From 1bce9e4ebb9521c26fdbc586d4eadd6f2a52b618 Mon Sep 17 00:00:00 2001
From: bertho <bertho>
Date: Wed, 4 Feb 2009 11:26:58 +0000
Subject: Add macros and templates to repository

---
 server/xml/macros/B.2.7.3.xml | 90 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 server/xml/macros/B.2.7.3.xml

(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
new file mode 100644
index 0000000..d632330
--- /dev/null
+++ b/server/xml/macros/B.2.7.3.xml
@@ -0,0 +1,90 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<!--
+    20081208: Bent Bisballe Nyeng
+    Feltnavnene ændret så de giver mening.
+  -->
+<!--
+    200901007: Bent Bisballe Nyeng
+    Fluorescens info felterne skjules nu istedet for kun at blive disabled.
+  -->
+<macro name="B.2.7.3" version="1.0">
+  <resume>Konklusion:
+${fluorescens.conclusion}
+${fluorescens.additional_info}</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 karnydannelse.'
+          or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
+      then
+        setValue('fluorescens.additional_info', 'additional')
+        setVisible('fluorescens.additional_info', true)
+        return true
+      else
+        setValue('fluorescens.additional_info', '')
+        setVisible('fluorescens.additional_info', false)
+        return true
+      end
+    </script>
+  </scripts>
+  <window caption="Konklusion (B.2.7.3)"
+          layout="vbox">
+
+    <combobox name="fluorescens.conclusion" value="test" 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 karnydannelse." />
+      <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="Occutalt subretinal neovaskulær membran."
+	    value="Occutalt subretinal neovaskulær membran." />
+    </combobox>
+
+    <frame name="yderligere_info_box" layout="hbox">
+      <frame layout="vbox">
+	<label caption="Yderligere information:" width="150"/>
+	<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>
+
+    <!-- Knapper -->
+    <frame layout="hbox">
+      <spacer/>
+      <button caption="Gem" action="commit"/>
+    </frame>
+  </window>
+</macro>
-- 
cgit v1.2.3