From new_protocol branch.

1 files changed, 33 insertions, 217 deletions

diff --git a/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml b/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
index faa7355..a35e2c8 100644
--- a/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
+++ b/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
@@ -2,25 +2,19 @@
 <macro name="ref_behandling.kirurgisk_procedure" version="1.0">
   <resume language="lua">
     out = ''
-
     out = out .. 'I Oxybuprokain dråbeanæstesi foretages ' .. getValue('ref_behandling.kirurgisk_procedure.type') .. ' på ' .. getValue('ref_behandling.kirurgisk_procedure.oeje') .. ' øje.\n'
 
-
-
     if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASIK' )
     then
       out = out .. 'LASIK flappen skæres med ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.metode') .. '.\n'
-      if ( getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'Moria M2 90 SU' or getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'Moria M2 130' )
-      then
-        out = out .. '  Variabel sugekop: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.sugekop') .. '\n'
-        out = out .. '  Variabel hængsel: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.haengsel') .. '\n'
-      end
-      if ( getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'Visumax' )
+
+      if ( getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'femtosekundlaser' )
       then
-        out = out .. '  Flapdiameter: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.flapdiameter') .. ' mm\n'
-        out = out .. '  Flaptykkelse: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.flaptykkelse') .. ' um\n'
-        out = out .. '  Kantprofil: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.kantprofil') .. '\n'
+        out = out .. 'Flapdiameter: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.flapdiameter') .. ' mm\n'
+        out = out .. 'Flaptykkelse: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.flaptykkelse') .. ' um\n'
+        out = out .. 'Kantprofil: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.kantprofil') .. '\n'
       end
+
       out = out .. 'Flappen løftes med flap-lifter.\n\n'
     end
 
@@ -44,41 +38,11 @@
       out = out .. getValue('ref_behandling.kirurgisk_procedure.lasek.part1') .. '\n\n'
     end
 
-    if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'FLEX' )
-    then
-      out = out .. 'FLEX flappen skæres med ' .. getValue('ref_behandling.kirurgisk_procedure.flex.metode') .. '.\n'
-
-      if ( getValue('ref_behandling.kirurgisk_procedure.flex.metode') == 'Moria M2 90 SU' or getValue('ref_behandling.kirurgisk_procedure.flex.metode') == 'Moria M2 130' )
-      then
-        out = out .. '  Variabel sugekop: ' .. getValue('ref_behandling.kirurgisk_procedure.flex.sugekop') .. '\n'
-        out = out .. '  Variabel hængsel: ' .. getValue('ref_behandling.kirurgisk_procedure.flex.haengsel') .. '\n'
-      end
-
-      if ( getValue('ref_behandling.kirurgisk_procedure.flex.metode') == 'Visumax' )
-      then
-        out = out .. '  Flapdiameter: ' .. getValue('ref_behandling.kirurgisk_procedure.flex.flapdiameter') .. ' mm\n'
-        out = out .. '  Flaptykkelse: ' .. getValue('ref_behandling.kirurgisk_procedure.flex.flaptykkelse') .. ' um\n'
-        out = out .. '  Kantprofil: ' .. getValue('ref_behandling.kirurgisk_procedure.flex.kantprofil') .. '\n'
-      end
-
-      out = out .. 'Flappen løftes med flap-lifter.\n\n'
-    end
-
-
-
-    out = out .. 'Tilstræbt refraktionsændring:\n'
-    out = out .. 'Algoritme: ' .. getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.algoritme') .. '\n'
-    out = out .. 'Korrektion: ' .. getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.sf') .. ' sf ' .. getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.cyl') .. ' x ' .. getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.grader') .. '\n'
-    out = out .. 'Behandlingsdiameter: ' .. getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.behandlingsdiameter') .. ' mm\n'
-    out = out .. 'Behandlingsdybde: ' .. getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.behandlingsdybde') .. ' um\n'
-    if ( getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.algoritme') == 'FLEX' )
-    then
-    out = out .. 'Kanttykkelse: ' .. getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.kanttykkelse') .. ' mym\n\n'
-    else
-    out = out .. '\n'
-    end
-
-
+    out = out .. 'Fotoablation:\n'
+    out = out .. 'Algoritme: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.algoritme') .. '\n'
+    out = out .. 'Korrektion: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.sf') .. ' sf ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.cyl') .. ' x ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.grader') .. '\n'
+    out = out .. 'Ablationsdiameter: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.ablationsdiameter') .. ' mm\n'
+    out = out .. 'Ablationsdybde: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.ablationsdybde') .. ' um\n\n'
 
     if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASIK' )
     then
@@ -105,17 +69,8 @@
       out = out .. getValue('ref_behandling.kirurgisk_procedure.lasek.part2') .. '\n\n'
     end
 
-    if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'FLEX' )
-    then
-      out = out .. getValue('ref_behandling.kirurgisk_procedure.flex.part2') .. '\n\n'
-    end
-
-
-
     out = out .. 'Der dryppes med ' .. getValue('ref_behandling.kirurgisk_procedure.drypperegime') .. '\n\n'
 
-
-
     if ( getValue('ref_behandling.kirurgisk_procedure.komplikationer') ~= '' )
     then
       out = out .. 'Komplikationer: ' .. getValue('ref_behandling.kirurgisk_procedure.komplikationer')
@@ -135,12 +90,10 @@
         disable('prk_frame1')
         disable('relasik_frame1')
         disable('lasek_frame1')
-        disable('flex_frame1')
         enable('lasik_frame2')
         disable('prk_frame2')
         disable('relasik_frame2')
         disable('lasek_frame2')
-        disable('flex_frame2')
       end
       if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'PRK' )
       then
@@ -148,12 +101,10 @@
         enable('prk_frame1')
         disable('relasik_frame1')
         disable('lasek_frame1')
-        disable('flex_frame1')
         disable('lasik_frame2')
         enable('prk_frame2')
         disable('relasik_frame2')
         disable('lasek_frame2')
-        disable('flex_frame2')
       end
       if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'reLASIK' )
       then
@@ -161,12 +112,10 @@
         disable('prk_frame1')
         enable('relasik_frame1')
         disable('lasek_frame1')
-        disable('flex_frame1')
         disable('lasik_frame2')
         disable('prk_frame2')
         enable('relasik_frame2')
         disable('lasek_frame2')
-        disable('flex_frame2')
       end
       if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'rePRK' )
       then
@@ -174,12 +123,10 @@
         enable('prk_frame1')
         disable('relasik_frame1')
         disable('lasek_frame1')
-        disable('flex_frame1')
         disable('lasik_frame2')
         enable('prk_frame2')
         disable('relasik_frame2')
         disable('lasek_frame2')
-        disable('flex_frame2')
       end
       if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASEK' )
       then
@@ -187,60 +134,19 @@
         disable('prk_frame1')
         disable('relasik_frame1')
         enable('lasek_frame1')
-        disable('flex_frame1')
         disable('lasik_frame2')
         disable('prk_frame2')
         disable('relasik_frame2')
         enable('lasek_frame2')
-        disable('flex_frame2')
-      end
-      if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'FLEX' )
-      then
-        disable('lasik_frame1')
-        disable('prk_frame1')
-        disable('relasik_frame1')
-        disable('lasek_frame1')
-        enable('flex_frame1')
-        disable('lasik_frame2')
-        disable('prk_frame2')
-        disable('relasik_frame2')
-        disable('lasek_frame2')
-        enable('flex_frame2')
-      end
-      return true
-    </script>
-    <script language="lua" name="lasik_metode_check">
-      disable('lasik_visumax')
-      disable('lasik_moria')
-      if ( getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'Visumax' )
-      then
-        enable('lasik_visumax')
-      end
-      if ( getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'Moria M2 90 SU' or getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'Moria M2 130' )
-      then
-        enable('lasik_moria')
       end
       return true
     </script>
-    <script language="lua" name="flex_metode_check">
-      disable('flex_visumax')
-      disable('flex_moria')
-      if ( getValue('ref_behandling.kirurgisk_procedure.flex.metode') == 'Visumax' )
+    <script language="lua" name="femtosekundlaser_check">
+      if ( getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'femtosekundlaser' )
       then
-        enable('flex_visumax')
-      end
-      if ( getValue('ref_behandling.kirurgisk_procedure.flex.metode') == 'Moria M2 90 SU' or getValue('ref_behandling.kirurgisk_procedure.flex.metode') == 'Moria M2 130' )
-      then
-        enable('flex_moria')
-      end
-      return true
-    </script>
-    <script language="lua" name="algoritme">
-      if ( getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.algoritme') == 'FLEX' )
-      then
-        enable('flex_algoritme')
+        enable('femtosekundlaser')
       else
-        disable('flex_algoritme')
+        disable('femtosekundlaser')
       end
       return true
     </script>
@@ -374,12 +280,11 @@
 	  <item caption="reLASIK" value="reLASIK"/>
 	  <item caption="rePRK" value="rePRK"/>
 	  <item caption="LASEK" value="LASEK"/>
-	  <item caption="FLEX" value="FLEX"/>
 	</combobox>
 	<label caption="på"/>
 	<combobox name="ref_behandling.kirurgisk_procedure.oeje" value="">
-	  <item caption="Højre" value="højre"/>
-	  <item caption="Venstre" value="venstre"/>
+	  <item caption="højre" value="højre"/>
+	  <item caption="venstre" value="venstre"/>
 	</combobox>
 	<label caption="øje"/>
 	<spacer/>
@@ -392,41 +297,20 @@
     <!-- LASIK frame -->
       <frame name="lasik_frame1" caption="LASIK" layout="vbox">
 	<label caption="LASIK flappen skæres med:"/>
-	<altcombobox name="ref_behandling.kirurgisk_procedure.lasik.metode" value="" layout="vbox" script="lasik_metode_check">
+	<altcombobox name="ref_behandling.kirurgisk_procedure.lasik.metode" value="" layout="vbox" script="femtosekundlaser_check">
 	  <item caption="Ikke udfyldt" value=""/>
 	  <item caption="Moria M2 90 SU" value="Moria M2 90 SU"/>
 	  <item caption="Moria M2 130" value="Moria M2 130"/>
-	  <item caption="Visumax" value="Visumax"/>
+	  <item caption="femtosekundlaser" value="femtosekundlaser"/>
 	  <altitem caption="Andet" value="andet" innerwidget="lasik_andet" layout="hbox">
 	    <label caption="Andet:"/>
-	    <lineedit name="lasik_andet"/>
+	    <lineedit name="lasik_andet" regexp="[0-9]+(,\d+|\d*)"/>
 	  </altitem>
 	</altcombobox>
-	<frame name="lasik_moria" layout="vbox">
-	  <frame layout="hbox">
-	    <label caption="Variabel sugekop:"/>
-	    <combobox name="ref_behandling.kirurgisk_procedure.lasik.sugekop" value="" layout="vbox">
-	      <item caption="-1" value="-1"/>
-	      <item caption="0" value="0"/>
-	      <item caption="+1" value="+1"/>
-	      <item caption="+2" value="+2"/>
-	    </combobox>
-	    <spacer/>
-	  </frame>
-	  <frame layout="hbox">
-	    <label caption="Variabel hængsel:"/>
-	    <combobox name="ref_behandling.kirurgisk_procedure.lasik.haengsel" value="" layout="vbox">
-	      <item caption="7,5" value="7,5"/>
-	      <item caption="8,0" value="8,0"/>
-	      <item caption="8,5" value="8,5"/>
-	    </combobox>
-	    <spacer/>
-	  </frame>
-	</frame>
-	<frame name="lasik_visumax" layout="vbox">
+	<frame name="femtosekundlaser" layout="vbox">
 	  <frame layout="hbox">
 	    <label caption="Flapdiameter:"/>
-	    <lineedit name="ref_behandling.kirurgisk_procedure.lasik.flapdiameter" regexp="\d{1,2},\d{2}"/>
+	    <lineedit name="ref_behandling.kirurgisk_procedure.lasik.flapdiameter" regexp="\d{1,2},\d{1}"/>
 	    <label caption="mm"/>
 	    <spacer/>
 	  </frame>
@@ -438,7 +322,7 @@
 	  </frame>
 	  <frame layout="hbox">
 	    <label caption="Kantprofil:"/>
-	    <lineedit name="ref_behandling.kirurgisk_procedure.lasik.kantprofil" regexp="\d{1,3}"/>
+	    <lineedit name="ref_behandling.kirurgisk_procedure.lasik.kantprofil" regexp="\d{1,3},\d{1}"/>
 	    <spacer/>
 	  </frame>
 	</frame>
@@ -459,75 +343,18 @@
       <checkbox name="ref_behandling.kirurgisk_procedure.lasek.part1" caption="Efter applikation af 20% alkohol i 20 sek løftes epithelet i de centrale 8 mm til side." truevalue="Efter applikation af 20% alkohol i 20 sek løftes epithelet i de centrale 8 mm til side." falsevalue=""/>
     </frame>
 
-    <!-- FLEX frame -->
-      <frame name="flex_frame1" caption="FLEX" layout="vbox">
-	<label caption="FLEX flappen skæres med:"/>
-	<altcombobox name="ref_behandling.kirurgisk_procedure.flex.metode" value="" layout="vbox" script="flex_metode_check">
-	  <item caption="Ikke udfyldt" value=""/>
-	  <item caption="Moria M2 90 SU" value="Moria M2 90 SU"/>
-	  <item caption="Moria M2 130" value="Moria M2 130"/>
-	  <item caption="Visumax" value="Visumax"/>
-	  <altitem caption="Andet" value="andet" innerwidget="flex_andet" layout="hbox">
-	    <label caption="Andet:"/>
-	    <lineedit name="flex_andet"/>
-	  </altitem>
-	</altcombobox>
-	<frame name="flex_moria" layout="vbox">
-	  <frame layout="hbox">
-	    <label caption="Variabel sugekop:"/>
-	    <combobox name="ref_behandling.kirurgisk_procedure.flex.sugekop" value="" layout="vbox">
-	      <item caption="-1" value="-1"/>
-	      <item caption="0" value="0"/>
-	      <item caption="+1" value="+1"/>
-	      <item caption="+2" value="+2"/>
-	    </combobox>
-	    <spacer/>
-	  </frame>
-	  <frame layout="hbox">
-	    <label caption="Variabel hængsel:"/>
-	    <combobox name="ref_behandling.kirurgisk_procedure.flex.haengsel" value="" layout="vbox">
-	      <item caption="7,5" value="7,5"/>
-	      <item caption="8,0" value="8,0"/>
-	      <item caption="8,5" value="8,5"/>
-	    </combobox>
-	    <spacer/>
-	  </frame>
-	</frame>
-	<frame name="flex_visumax" layout="vbox">
-	  <frame layout="hbox">
-	    <label caption="Flapdiameter:"/>
-	    <lineedit name="ref_behandling.kirurgisk_procedure.flex.flapdiameter" regexp="\d{1,2},\d{2}"/>
-	    <label caption="mm"/>
-	    <spacer/>
-	  </frame>
-	  <frame layout="hbox">
-	    <label caption="Flaptykkelse:"/>
-	    <lineedit name="ref_behandling.kirurgisk_procedure.flex.flaptykkelse" regexp="\d{1,3}"/>
-	    <label caption="um"/>
-	    <spacer/>
-	  </frame>
-	  <frame layout="hbox">
-	    <label caption="Kantprofil:"/>
-	    <lineedit name="ref_behandling.kirurgisk_procedure.flex.kantprofil" regexp="\d{1,3}"/>
-	    <spacer/>
-	  </frame>
-	</frame>
-      </frame>
-
     <!-- End 2nd outer frame -->
     </frame>
 
-    <!-- Tilstraebt refraktionsændring frame -->
-    <frame name="tilstraebtrefrationsaendring_frame" caption="3. Tilstræbt refraktionsændring" layout="vbox">
+    <!-- Fotoablation frame -->
+    <frame name="fotoablation_frame" caption="3. Fotoablation" layout="vbox">
       <frame layout="hbox">
 	<label caption="Algoritme:"/>
-	<combobox name="ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.algoritme" script="algoritme">
+	<combobox name="ref_behandling.kirurgisk_procedure.fotoablation.algoritme">
 	  <item caption="Smart" value="Smart"/>
 	  <item caption="Tissue saving" value="Tissue saving"/>
 	  <item caption="Topografistyret" value="Topografistyret"/>
-	  <item caption="Topografi 'smooth'" value="Topografi 'smooth'"/>
 	  <item caption="Bølgefrontstyret" value="Bølgefrontstyret"/>
-	  <item caption="FLEX" value="FLEX"/>
 	</combobox>
 	<spacer/>
       </frame>
@@ -538,35 +365,29 @@
 	</frame>
 	<frame layout="vbox">
 	  <label caption="Sf:"/>
-	  <lineedit name="ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.sf" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
+	  <lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.sf" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
 	</frame>
 	<frame layout="vbox">
 	  <label caption="Cyl:"/>
-	  <lineedit name="ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.cyl" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+	  <lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.cyl" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
 	</frame>
 	<frame layout="vbox">
 	  <label caption="Grader:"/>
-	  <lineedit name="ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.grader" regexp="[\d]+" script="lt179gt0" value=""/>
+	  <lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.grader" regexp="[\d]+" script="lt179gt0" value=""/>
 	</frame>
       </frame>
       <frame layout="hbox">
-	<label caption="Behandlingsdiameter:"/>
-	<lineedit name="ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.behandlingsdiameter" script="lt12gt0" regexp="\d{1,2},\d{2}"/>
+	<label caption="Ablationsdiameter:"/>
+	<lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.ablationsdiameter" script="lt12gt0" regexp="\d{1,2},\d{1}"/>
 	<label caption="mm"/>
 	<spacer/>
       </frame>
       <frame layout="hbox">
-	<label caption="Behandlingsdybde:"/>
-	<lineedit name="ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.behandlingsdybde" script="lt500gt0" regexp="\d{1,3}"/>
+	<label caption="Ablationsdybde:"/>
+	<lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.ablationsdybde" script="lt500gt0" regexp="\d{1,3}"/>
 	<label caption="um"/>
 	<spacer/>
       </frame>
-      <frame name="flex_algoritme" layout="hbox">
-	<label caption="Kanttykkelse:"/>
-	<lineedit name="ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.kanttykkelse" regexp="\d{1,2}"/>
-	<label caption="mym"/>
-	<spacer/>
-      </frame>
     </frame>
 
     <!-- Begin 3rd outer frame -->
@@ -592,11 +413,6 @@
       <checkbox name="ref_behandling.kirurgisk_procedure.lasek.part2" caption="Epithelet replaceres." truevalue="Epithelet replaceres." falsevalue=""/>
     </frame>
 
-    <!-- FLEX frame -->
-    <frame name="flex_frame2" caption="FLEX" layout="vbox">
-      <checkbox name="ref_behandling.kirurgisk_procedure.flex.part2" caption="FLEX flappen åbnes, vævslinsen ekstraheres, lappen replaceres. Der irrigeres med isotont saltvand, og flappen tørrer i 2 minutter." truevalue="FLEX flappen åbnes, vævslinsen ekstraheres, lappen replaceres. Der irrigeres med isotont saltvand, og flappen tørrer i 2 minutter." falsevalue=""/>
-    </frame>
-
     <!-- End 3rd outer frame -->
     </frame>