From 01741251d16bfb23a99f315fd1970597938ae5ce Mon Sep 17 00:00:00 2001
From: deva <deva>
Date: Thu, 12 Feb 2009 08:20:51 +0000
Subject: Latest changes in macros...

---
 server/xml/macros/B.2.7.3.xml | 112 ++++++++++++++++++++++++++++--------------
 1 file changed, 74 insertions(+), 38 deletions(-)

(limited to 'server/xml/macros/B.2.7.3.xml')

diff --git a/server/xml/macros/B.2.7.3.xml b/server/xml/macros/B.2.7.3.xml
index cbdbb86..857c88b 100644
--- a/server/xml/macros/B.2.7.3.xml
+++ b/server/xml/macros/B.2.7.3.xml
@@ -4,13 +4,35 @@
     Feltnavnene ændret så de giver mening.
   -->
 <!--
-    200901007: Bent Bisballe Nyeng
+    20090107: Bent Bisballe Nyeng
     Fluorescens info felterne skjules nu istedet for kun at blive disabled.
   -->
+<!--
+    20090211: Bent Bisballe Nyeng
+    Fluorescens info felterne bliver nu disabled igen, men har f[et fjernet den
+    altcombo som omkransede dem. Desuden er et 'andet' felt tilføjet.
+  -->
 <macro name="B.2.7.3" version="1.0">
-  <resume>Konklusion:
-${fluorescens.conclusion}
-${fluorescens.additional_info}</resume>
+  <resume language="lua">
+    out = 'Konklusion:\n'
+
+    if( getValue('fluorescens.conclusion') == 'Klassisk subretinal karnydannelse.'
+        or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
+    then
+      out = out .. getValue('fluorescens.conclusion') .. '\n'
+      out = out .. 'Membran placering: ' .. getValue('fluorescens.membrane.position') .. '\n'
+      out = out .. 'Membranstørrelse: ' .. getValue('fluorescens.membrane.size') .. 'µm\n'
+    else
+      if( getValue('fluorescens.conclusion') == 'andet' )
+      then
+        out = out .. getValue('fluorescens.conclusion.other') .. '\n'
+      else
+        out = out .. getValue('fluorescens.conclusion') .. '\n'
+      end
+    end
+
+    return out
+  </resume>
   <queries>
   </queries>
   <maps>
@@ -22,20 +44,36 @@ ${fluorescens.additional_info}</resume>
       if( getValue('fluorescens.conclusion') == 'Klassisk subretinal karnydannelse.'
           or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
       then
-        setValue('fluorescens.additional_info', 'additional')
-        setVisible('fluorescens.additional_info', true)
-        return true
+        enable('yderligere_info_frame')
+      else
+        disable('yderligere_info_frame')
+      end
+
+      if( getValue('fluorescens.conclusion') == 'andet' )
+      then
+        enable('andet_frame')
       else
-        setValue('fluorescens.additional_info', '')
-        setVisible('fluorescens.additional_info', false)
-        return true
+        disable('andet_frame')
       end
+
+      return true
     </script>
   </scripts>
   <window caption="Konklusion (B.2.7.3)"
           layout="vbox">
 
-    <combobox name="fluorescens.conclusion" value="" script="angiografi_konklusion">
+    <frame layout="hbox">
+      <label caption="Øje:" width="50"/>
+      <radiobuttons name="fluorescens.conclusion.eye" value="">
+	<radiobutton caption="o.dxt" value="o.dxt"/>
+	<radiobutton caption="o.sin" value="o.sin"/>
+      </radiobuttons>
+      <spacer/>
+    </frame>
+
+    <combobox name="fluorescens.conclusion" 
+	      value="Atrofiske foranderinger. Der findes ingen behandlingsindikation."
+	      script="angiografi_konklusion">
       <item caption="Atrofiske foranderinger. Der findes ingen behandlingsindikation"
 	    value="Atrofiske foranderinger. Der findes ingen behandlingsindikation." />
       <item caption="Pigmentepitelløsning. Der findes ingen behandlingsindikation"
@@ -48,37 +86,35 @@ ${fluorescens.additional_info}</resume>
 	    value="Minimalt klassisk subretinal neovaskulær membran." />
       <item caption="Occutalt subretinal neovaskulær membran."
 	    value="Occutalt subretinal neovaskulær membran." />
+      <item caption="Andet"
+	    value="andet" />
     </combobox>
 
-    <frame name="yderligere_info_box" layout="hbox">
-      <frame layout="vbox">
-	<label caption="Yderligere information:" width="150"/>
+    <frame name="andet_frame" layout="hbox">
+      <label caption="Andet:"/>
+      <lineedit name="fluorescens.conclusion.other" value=""/>
+    </frame>
+
+    <frame name="yderligere_info_frame" layout="vbox">
+      <label caption="Yderligere information:"/>
+
+      <frame layout="hbox">
+	<label caption="Membran beliggenhed:" width="150"/>
+	<combobox name="fluorescens.membrane.position" value="">
+	  <item caption="Subfovealt" value="subfovealt" />
+	  <item caption="Juxtafovealt" value="juxtafovealt" />
+	  <item caption="Extrafovealt" value="extrafovealt" />
+	</combobox>
 	<spacer/>
       </frame>
-      <altcombobox name="fluorescens.additional_info" layout="vbox"
-		   script="angiografi_konklusion" visible="false">
-	<item caption="Ingen" value=""/>
-	<altitem caption="Udfyld" value="additional" innerwidget="additional_meta">
-          <metawidget name="additional_meta" layout="hbox"
-		      format="Membranen er beliggende ${position} og membranstørrelsen er ${size} µm.">
-	    <frame layout="vbox">
-	      <label caption="Membran beliggenhed:" />
-	      <label caption="Membranstørrelse:" />
-	    </frame>
-	    <frame layout="vbox">
-	      <combobox name="position" value="">
-		<item caption="Subfovealt" value="subfovealt" />
-		<item caption="Juxtafovealt" value="juxtafovealt" />
-		<item caption="Extrafovealt" value="extrafovealt" />
-	      </combobox>
-	      <frame layout="hbox">
-		<lineedit name="size" value=""/>
-		<label caption="µm" />
-	      </frame>
-	    </frame>
-	  </metawidget>
-	</altitem>
-      </altcombobox>
+      
+      <frame layout="hbox">
+	<label caption="Membranstørrelse:" width="150"/>
+	<lineedit name="fluorescens.membrane.size" regexp="[0-9,.-]+" value=""/>
+	<label caption="µm" />
+	<spacer/>
+      </frame>
+
     </frame>
 
     <!-- Knapper -->
-- 
cgit v1.2.3