Changed all names to something less magical.

1 files changed, 89 insertions, 0 deletions

diff --git a/server/xml/macros/medicine-1.0.xml b/server/xml/macros/medicine-1.0.xml
new file mode 100644
index 0000000..4f83a95
--- /dev/null
+++ b/server/xml/macros/medicine-1.0.xml
@@ -0,0 +1,89 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<!--
+    20081202: Bent Bisballe Nyeng
+    Feltnavnene ændret så de giver mening.
+  -->
+<!--
+    20090108: Bent Bisballe Nyeng
+    Alt tekst ændret.
+    Layout af multilist input er ændret så det er liniebaseret.
+  -->
+<!--
+    20090319: Bent Bisballe Nyeng
+    Øje ændret til combobox istedet for radiobuttons.
+  -->
+<macro name="medicine" version="1.0">
+  <resume>Medicin:
+${medicin}</resume>
+  <queries>
+  </queries>
+  <maps>
+  </maps>
+  <scripts>
+  </scripts>
+  <window caption="Medicin (B.1.2)"
+          layout="vbox">
+
+    <frame layout="vbox" help="For ambulante patienter noteres de typer og den dosering af medicin, som foreligger oplyst og som har relevans for sygdomsforløbet. Der kan refereres til indskannet medicinliste, såfremt denne er dækkende og læselig.\nFor indlagte patienter noteres detaljeret medicinanamnese med præparatnavn og dosering.">
+
+	<altcombobox name="medicin" layout="vbox" width="200" value="Intet dagligt forbrug." type="select">
+	  <item caption="Intet dagligt forbrug" value="Intet dagligt forbrug."/>
+	  <item caption="Se indscannet samtykkeskema" value="Se indscannet samtykkeskema."/>
+	  <altitem caption="Anfør liste" value="list" innerwidget="medicin_list">
+	    <frame name="frame_medicin_list" caption="Søg og tilføj" layout="vbox">
+	      <multilist name="medicin_list" layout="vbox"
+      			 innerwidget="medicin_list_entry">
+		
+		<metawidget name="medicin_list_entry" layout="hbox" format="${prep} x ${dosis}${eye}">
+		  <frame layout="vbox">
+		    <label caption="Præparat: ex. 'Primcillin 250 mg (tabl.)'"/>
+		    <dbwidget name="prep" driver="QPSQL" server="sensei.j.auh.dk" user="lmsread" database="lms"
+			      select="drugname, form, strength"
+			      from="package"
+			      where="drugname || ' ' || strength || ' (' || form || ')'"
+			      format="${drugname} ${strength} (${form})"
+			      width="250"/>
+		  </frame>
+
+		  <frame layout="vbox">
+		    <label caption=""/>
+		    <label caption=" x "/>
+		  </frame>
+
+		  <frame layout="vbox">
+		    <label caption="Dosis: ex. '2 tbl. dagl.'" />
+		    <lineedit name="dosis" width="75" value="" regexp=".+"/>
+		  </frame>
+
+		  <frame layout="vbox">
+		    <label caption=""/>
+		    <label caption=" - "/>
+		  </frame>
+
+		  <frame layout="vbox">
+		    <label caption="Øje:"/>
+		    <combobox name="eye" value="">
+		      <item caption="Ingen" value=""/>
+		      <item caption="o.dxt" value=" o.dxt"/>
+		      <item caption="o.sin" value=" o.sin"/>
+		      <item caption="o.u" value=" o.u"/>
+		    </combobox>
+		  </frame>
+
+		  <spacer />
+
+		</metawidget>
+	      </multilist>
+	    </frame>
+	  </altitem>
+	</altcombobox>
+      
+    </frame>
+    
+    <!-- Knapper -->
+    <frame layout="hbox">
+      <spacer />
+      <button caption="Gem" action="commit"/>
+    </frame>
+  </window>
+</macro>