From 4aa86d54143d81dd0f819805aeac2b8e5a26488b Mon Sep 17 00:00:00 2001
From: senator <senator>
Date: Mon, 8 Mar 2010 11:14:47 +0000
Subject: Added FLEX and adjusted several smaller things according to Jespers
 specifications

---
 .../ref_behandling-kirurgisk_procedure-1.0.xml     | 26 ++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

(limited to 'server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml')

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 d83620e..786f9a6 100644
--- a/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
+++ b/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
@@ -68,7 +68,13 @@
     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\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
 
     if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASIK' )
     then
@@ -221,6 +227,15 @@
       end
       return true
     </script>
+    <script language="lua" name="algoritme">
+      if ( getValue('ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.algoritme') == 'FLEX' )
+      then
+        enable('flex_algoritme')
+      else
+        disable('flex_algoritme')
+      end
+      return true
+    </script>
     <script language="lua" name="lt12gt0">
       if(value == '')
       then
@@ -498,12 +513,13 @@
     <frame name="tilstraebtrefrationsaendring_frame" caption="3. Tilstræbt refraktionsændring" layout="vbox">
       <frame layout="hbox">
 	<label caption="Algoritme:"/>
-	<combobox name="ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.algoritme">
+	<combobox name="ref_behandling.kirurgisk_procedure.tilstraebtrefraktionsaendring.algoritme" script="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>
@@ -537,6 +553,12 @@
 	<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 -->
-- 
cgit v1.2.3