Added FLEX and adjusted several smaller things according to Jespers specifications

1 files changed, 176 insertions, 22 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 a35e2c8..aa8c141 100644
--- a/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
+++ b/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
@@ -8,11 +8,17 @@
     then
       out = out .. 'LASIK flappen skæres med ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.metode') .. '.\n'
 
-      if ( getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'femtosekundlaser' )
+      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 .. '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 .. '  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' )
+      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'
       end
 
       out = out .. 'Flappen løftes med flap-lifter.\n\n'
@@ -38,11 +44,31 @@
       out = out .. getValue('ref_behandling.kirurgisk_procedure.lasek.part1') .. '\n\n'
     end
 
-    out = out .. 'Fotoablation:\n'
+    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.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'
+    out = out .. 'Behandlingsdiameter: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.ablationsdiameter') .. ' mm\n'
+    out = out .. 'Behandlingsdybde: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.ablationsdybde') .. ' um\n\n'
 
     if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASIK' )
     then
@@ -69,6 +95,11 @@
       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') ~= '' )
@@ -90,10 +121,12 @@
         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
@@ -101,10 +134,12 @@
         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
@@ -112,10 +147,12 @@
         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
@@ -123,10 +160,12 @@
         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
@@ -134,19 +173,51 @@
         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="femtosekundlaser_check">
-      if ( getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'femtosekundlaser' )
+    <script language="lua" name="lasik_metode_check">
+      disable('lasik_visumax')
+      disable('lasik_moria')
+      if ( getValue('ref_behandling.kirurgisk_procedure.lasik.metode') == 'Visumax' )
       then
-        enable('femtosekundlaser')
-      else
-        disable('femtosekundlaser')
+        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' )
+      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>
@@ -280,6 +351,7 @@
 	  <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="">
@@ -297,20 +369,41 @@
     <!-- 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="femtosekundlaser_check">
+	<altcombobox name="ref_behandling.kirurgisk_procedure.lasik.metode" value="" layout="vbox" script="lasik_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="femtosekundlaser" value="femtosekundlaser"/>
+	  <item caption="Visumax" value="Visumax"/>
 	  <altitem caption="Andet" value="andet" innerwidget="lasik_andet" layout="hbox">
 	    <label caption="Andet:"/>
-	    <lineedit name="lasik_andet" regexp="[0-9]+(,\d+|\d*)"/>
+	    <lineedit name="lasik_andet"/>
 	  </altitem>
 	</altcombobox>
-	<frame name="femtosekundlaser" layout="vbox">
+	<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 layout="hbox">
 	    <label caption="Flapdiameter:"/>
-	    <lineedit name="ref_behandling.kirurgisk_procedure.lasik.flapdiameter" regexp="\d{1,2},\d{1}"/>
+	    <lineedit name="ref_behandling.kirurgisk_procedure.lasik.flapdiameter" regexp="\d{1,2},\d{2}"/>
 	    <label caption="mm"/>
 	    <spacer/>
 	  </frame>
@@ -322,7 +415,7 @@
 	  </frame>
 	  <frame layout="hbox">
 	    <label caption="Kantprofil:"/>
-	    <lineedit name="ref_behandling.kirurgisk_procedure.lasik.kantprofil" regexp="\d{1,3},\d{1}"/>
+	    <lineedit name="ref_behandling.kirurgisk_procedure.lasik.kantprofil" regexp="\d{1,3}"/>
 	    <spacer/>
 	  </frame>
 	</frame>
@@ -343,17 +436,73 @@
       <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>
 
     <!-- Fotoablation frame -->
-    <frame name="fotoablation_frame" caption="3. Fotoablation" layout="vbox">
+    <frame name="fotoablation_frame" caption="3. Tilstræbt refraktionsændring" layout="vbox">
       <frame layout="hbox">
 	<label caption="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"/>
 	</combobox>
 	<spacer/>
@@ -377,13 +526,13 @@
 	</frame>
       </frame>
       <frame layout="hbox">
-	<label caption="Ablationsdiameter:"/>
-	<lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.ablationsdiameter" script="lt12gt0" regexp="\d{1,2},\d{1}"/>
+	<label caption="Behandlingsdiameter:"/>
+	<lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.ablationsdiameter" script="lt12gt0" regexp="\d{1,2},\d{2}"/>
 	<label caption="mm"/>
 	<spacer/>
       </frame>
       <frame layout="hbox">
-	<label caption="Ablationsdybde:"/>
+	<label caption="Behandlingsdybde:"/>
 	<lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.ablationsdybde" script="lt500gt0" regexp="\d{1,3}"/>
 	<label caption="um"/>
 	<spacer/>
@@ -413,6 +562,11 @@
       <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>