From a81fd2a780e59ab918d172d0b4cc08be8780ec68 Mon Sep 17 00:00:00 2001
From: deva <deva>
Date: Fri, 24 Jul 2009 11:28:37 +0000
Subject: Changed all names to something less magical.

---
 server/xml/macros/fluoresceinconclusion-1.0.xml | 128 ++++++++++++++++++++++++
 1 file changed, 128 insertions(+)
 create mode 100644 server/xml/macros/fluoresceinconclusion-1.0.xml

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

diff --git a/server/xml/macros/fluoresceinconclusion-1.0.xml b/server/xml/macros/fluoresceinconclusion-1.0.xml
new file mode 100644
index 0000000..123570c
--- /dev/null
+++ b/server/xml/macros/fluoresceinconclusion-1.0.xml
@@ -0,0 +1,128 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<!--
+    20081208: Bent Bisballe Nyeng
+    Feltnavnene ændret så de giver mening.
+  -->
+<!--
+    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="fluoresceinconclusion" version="1.0">
+  <resume language="lua">
+    out = 'Konklusion:\n'
+
+    if( getValue('fluorescens.conclusion') == 'Klassisk subretinal neovaskulær membran.'
+        or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
+    then
+      out = out .. getValue('fluorescens.conclusion') .. '\n'
+      out = out .. 'Membranen er beliggende:'
+                .. 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>
+  </maps>
+  <scripts>
+    <script language="lua" name="angiografi_konklusion">
+      -- This script sets the value of additional according to conclusion.
+
+      if( getValue('fluorescens.conclusion') == 'Klassisk subretinal neovaskulær membran.'
+          or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
+      then
+        enable('yderligere_info_frame')
+      else
+        disable('yderligere_info_frame')
+      end
+
+      if( getValue('fluorescens.conclusion') == 'andet' )
+      then
+        enable('andet_frame')
+      else
+        disable('andet_frame')
+      end
+
+      return true
+    </script>
+  </scripts>
+  <window caption="Konklusion (B.2.7.3)"
+          layout="vbox">
+
+    <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"
+	    value="Pigmentepitelløsning. Der findes ingen behandlingsindikation." />
+      <item caption="Klassisk subretinal karnydannelse"
+	    value="Klassisk subretinal neovaskulær membran." />
+      <item caption="Overvejende klassisk subretinal neovaskulær membran"
+	    value="Overvejende klassisk subretinal neovaskulær membran." />
+      <item caption="Minimalt klassisk subretinal neovaskulær membran"
+	    value="Minimalt klassisk subretinal neovaskulær membran." />
+      <item caption="Okkult subretinal neovaskulær membran."
+	    value="Okkult subretinal neovaskulær membran." />
+      <item caption="Andet"
+	    value="andet" />
+    </combobox>
+
+    <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>
+      
+      <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 -->
+    <frame layout="hbox">
+      <spacer/>
+      <button caption="Gem" action="commit"/>
+    </frame>
+  </window>
+</macro>
-- 
cgit v1.2.3