Macro fix

8 files changed, 81 insertions, 47 deletions

diff --git a/server/xml/macros/B.2.2.4.1.xml b/server/xml/macros/B.2.2.4.1.xml
index 40c8e85..cf5af85 100644
--- a/server/xml/macros/B.2.2.4.1.xml
+++ b/server/xml/macros/B.2.2.4.1.xml
@@ -14,21 +14,21 @@
 <macro name="B.2.2.4.1" version="1.0">
   <resume language="lua">
     out = ''
-    if ( getValue('oct.right.missing') == '' )
+    if ( getValue('oct.right.missing') == '' or getValue('oct.left.missing') == '' )
     then
-      out = out .. 'Central nethindetykkelse, højre: ' .. getValue('oct.right.thickness')
-            .. ' µm\n'
-    end
+      out = out .. 'Central nethindetykkelse:\n'
 
-    if ( getValue('oct.left.missing') == '' )
-    then
-      out = out .. 'Central nethindetykkelse, venstre: ' .. getValue('oct.left.thickness') 
-          .. ' µm\n'
-    end
+      if ( getValue('oct.right.missing') == '' )
+      then
+        out = out .. 'OCT o.dxt ' .. getValue('oct.right.thickness') .. ' µm\n'
+      end
 
-    if ( getValue('oct.comments') ~= '' )
-    then
-      out = out .. getValue('oct.comments') .. '\n'
+      if ( getValue('oct.left.missing') == '' )
+      then
+        out = out .. 'OCT o.sin ' .. getValue('oct.left.thickness') .. ' µm\n'
+      end
+
+      out = out .. 'Anamnese som anført'
     end
 
     return out
diff --git a/server/xml/macros/B.2.2.4.2.xml b/server/xml/macros/B.2.2.4.2.xml
index 3980234..d4735c0 100644
--- a/server/xml/macros/B.2.2.4.2.xml
+++ b/server/xml/macros/B.2.2.4.2.xml
@@ -14,17 +14,22 @@
 <macro name="B.2.2.4.2" version="1.0">
   <resume language="lua">
     out = ''
-    if ( getValue('oct.right.missing') == '' )
-    then
-      out = out .. 'Central nethindetykkelse, højre: ' .. getValue('oct.right.thickness')
-            .. ' µm, ' .. getValue('oct.right.description') .. '.\n'
-    end
+    if ( getValue('oct.right.missing') == '' or getValue('oct.left.missing') == '' )
+		then
+		  out = out .. 'Central nethindetykkelse:\n'
 
-    if ( getValue('oct.left.missing') == '' )
-    then
-      out = out .. 'Central nethindetykkelse, venstre: ' .. getValue('oct.left.thickness') 
-          .. ' µm, ' .. getValue('oct.left.description') .. '.\n'
-    end
+      if ( getValue('oct.right.missing') == '' )
+      then
+        out = out .. 'OCT o.dxt ' .. getValue('oct.right.thickness') .. ' µm '
+		        .. getValue('oct.right.description') .. '.\n'
+      end
+
+      if ( getValue('oct.left.missing') == '' )
+      then
+        out = out .. 'OCT o.sin ' .. getValue('oct.left.thickness') .. ' µm '
+            .. getValue('oct.left.description') .. '.\n'
+      end
+		end
 
     if ( getValue('oct.comments') ~= '' )
     then
diff --git a/server/xml/macros/B.2.2.6.xml b/server/xml/macros/B.2.2.6.xml
index 37c04e8..3b05bf8 100644
--- a/server/xml/macros/B.2.2.6.xml
+++ b/server/xml/macros/B.2.2.6.xml
@@ -16,7 +16,7 @@
     out = ''
     if ( getValue('slit_lamp.right.missing') == '' or  getValue('slit_lamp.left.missing') == '' )
     then
-      out = out .. 'Spaltelampe:\n'
+      out = out .. 'Spl:\n'
     end
 
     if ( getValue('slit_lamp.right.missing') == '' )
diff --git a/server/xml/macros/B.2.7.2.xml b/server/xml/macros/B.2.7.2.xml
index 7ae99b7..269b387 100644
--- a/server/xml/macros/B.2.7.2.xml
+++ b/server/xml/macros/B.2.7.2.xml
@@ -5,8 +5,12 @@
   -->
 <macro name="B.2.7.2" version="1.0">
   <resume>Undersøgelsen viser god fyldning af det retinale kartrø.
-Svarende til det retinale ødem ses der i de tidlige faser ${fluorescens.early_fases}.
-Gennem de angiografiske faser udvikles der ${fluorescens.angiografic_fases}.</resume>
+
+Svarende til det retinale ødem ses der i de tidlige faser
+${fluorescens.early_fases}.
+
+Gennem de angiografiske faser udvikles der
+${fluorescens.angiografic_fases}.</resume>
   <queries>
   </queries>
   <maps>
@@ -29,13 +33,14 @@ Gennem de angiografiske faser udvikles der ${fluorescens.angiografic_fases}.</re
 
       <label caption="Tidlige faser:"/>
       <combobox name="fluorescens.early_fases" value="">
-	<item caption="Hyperfluorescens" value="hyperfluorescens" />
-	<item caption="Hypofluorescens" value="hypofluorescens" />
-	<item caption="Normalt fluorescensmønster" value="normalt fluorescensmønster" />
+	<item caption="Hyperfluorescens" value="Hyperfluorescens" />
+	<item caption="Hypofluorescens" value="Hypofluorescens" />
+	<item caption="Normalt fluorescensmønster" value="Normalt fluorescens mønster" />
       </combobox>
       
       <label caption="Angiografiske faser:" />
-      <altcombobox name="fluorescens.angiografic_fases" value="ingen ændringer i fluorescensen" layout="vbox">
+      <altcombobox name="fluorescens.angiografic_fases"
+		   value="ingen ændringer i fluorescensen" layout="vbox">
 	<item caption="Ingen ændringer i fluorescensen"
 	      value="ingen ændringer i fluorescensen" />
 	<item caption="Gradvis tiltagende fluorescens, i senfaserne, velafgrænset med retinale kar som negative skygger henover"
diff --git a/server/xml/macros/B.2.7.3.xml b/server/xml/macros/B.2.7.3.xml
index 857c88b..4327a9e 100644
--- a/server/xml/macros/B.2.7.3.xml
+++ b/server/xml/macros/B.2.7.3.xml
@@ -16,12 +16,14 @@
   <resume language="lua">
     out = 'Konklusion:\n'
 
-    if( getValue('fluorescens.conclusion') == 'Klassisk subretinal karnydannelse.'
+    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 .. 'Membran placering: ' .. getValue('fluorescens.membrane.position') .. '\n'
-      out = out .. 'Membranstørrelse: ' .. getValue('fluorescens.membrane.size') .. 'µm\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
@@ -41,7 +43,7 @@
     <script language="lua" name="angiografi_konklusion">
       -- This script sets the value of additional according to conclusion.
 
-      if( getValue('fluorescens.conclusion') == 'Klassisk subretinal karnydannelse.'
+      if( getValue('fluorescens.conclusion') == 'Klassisk subretinal neovaskulær membran.'
           or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
       then
         enable('yderligere_info_frame')
@@ -79,7 +81,7 @@
       <item caption="Pigmentepitelløsning. Der findes ingen behandlingsindikation"
 	    value="Pigmentepitelløsning. Der findes ingen behandlingsindikation." />
       <item caption="Klassisk subretinal karnydannelse"
-	    value="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"
@@ -101,9 +103,9 @@
       <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" />
+	  <item caption="Subfovealt" value="Subfovealt" />
+	  <item caption="Juxtafovealt" value="Juxtafovealt" />
+	  <item caption="Extrafovealt" value="Extrafovealt" />
 	</combobox>
 	<spacer/>
       </frame>
diff --git a/server/xml/macros/B.3.1.1.xml b/server/xml/macros/B.3.1.1.xml
index c66cffc..bdb1705 100644
--- a/server/xml/macros/B.3.1.1.xml
+++ b/server/xml/macros/B.3.1.1.xml
@@ -1,6 +1,9 @@
 <?xml version='1.0' encoding='UTF-8'?>
 <macro name="B.3.1.1" version="1.0">
-  <resume store_in_journal="false"></resume>
+  <resume>Der findes indikation for intravitreal injektion med Lucentis.
+Pt. klargøres i henhold til afdelingens instruks.
+Klargøring udført af: ${intravitreal.initials}
+</resume>
   <queries>
   </queries>
   <maps>
@@ -12,7 +15,7 @@
       <label caption="Der er fundet indikation for intravitreal injektion med Lucentis og patienten klargøres i henhold til afdelingens instruks."/>
       <frame layout="hbox">
 	<label caption="Initialer:"/>
-	<lineedit name="intravitreal_initials"/>
+	<lineedit name="intravitreal.initials" regexp="[a-zæøåA-ZÆØÅ]{2,5}"/>
       </frame>
     </frame>
     <frame layout="hbox">
diff --git a/server/xml/macros/B.3.1.2.xml b/server/xml/macros/B.3.1.2.xml
index 2391b0e..bf4058f 100644
--- a/server/xml/macros/B.3.1.2.xml
+++ b/server/xml/macros/B.3.1.2.xml
@@ -1,11 +1,18 @@
 <?xml version='1.0' encoding='UTF-8'?>
 <macro name="B.3.1.2" version="1.0">
-  <resume store_in_journal="false"></resume>
-  <queries>
-  </queries>
+  <resume>De 5 trin til forebyggelse af forveksling af øjnene er gennemgået.</resume>
+  <queries></queries>
   <maps>
   </maps>
   <scripts>
+    <script language="lua" name="yes_only">
+      if ( value == 'ja' )
+      then
+        return true
+      else
+        return false
+      end
+    </script>
   </scripts>
   <window caption="Gennemgang af de 5 trin (B.3.1.2)" layout="vbox">
     <frame layout="vbox">
@@ -13,9 +20,9 @@
 	<label caption="De 5 trin til forebyggelse af forveksling af øjnene er gennemgået:"/>
       </frame>
       <frame layout="hbox">
-	<radiobuttons name="five_steps_radiobutton">
-	  <radiobutton value="five_steps_yes" caption="Ja"/>
-	  <radiobutton value="five_steps_no" caption="Nej"/>
+	<radiobuttons name="five_steps" script="yes_only">
+	  <radiobutton value="ja" caption="Ja"/>
+	  <radiobutton value="nej" caption="Nej"/>
 	</radiobuttons>
 	<spacer />
       </frame>
diff --git a/server/xml/macros/B.3.1.3.xml b/server/xml/macros/B.3.1.3.xml
index 3562523..2ea7743 100644
--- a/server/xml/macros/B.3.1.3.xml
+++ b/server/xml/macros/B.3.1.3.xml
@@ -1,6 +1,18 @@
 <?xml version='1.0' encoding='UTF-8'?>
 <macro name="B.3.1.3" version="1.0">
-  <resume store_in_journal="false"></resume>
+  <resume>Der afvaskes periorbitalt med Povidoniodid og efterfølgende dryppes
+der med Povidoniodid. Efter 5 minutter bedøves med en spongostan swap
+vædet i Lidokain 20 mg/ml med Adrenalin.
+Injektionsstedet nedadtil temporalt i konjunktiva 3,5 mm fra limbus
+afmærkes med passer. Gennem 30 gauge kanyle gives 0,05 ml:
+
+Lucentis ${lucentis_treatment.eye}
+
+Der dryppes med oculoguttae Tobrex over injektionsstedet.
+Herefter medgives oculoguttae Tobrex til drypning x 2 i 2 døgn i det
+behandlede øje.
+Der gives tid til kontrol og fornyet behandling om 1 måned.
+Møder til kontrol 1 måned efter behandling med Lucentis.</resume>
   <queries>
   </queries>
   <maps>
@@ -13,7 +25,7 @@
 Injektionsstedet nedadtil temporalt i konjunktiva afmærkes med passer 3,5 mm fra limbus."/>
       <frame layout="hbox">
 	<label width="250" caption="Med 30 gauge kanyle gives 0,05 ml Lucentis"/>
-	<radiobuttons name="tekst_odxt_osin">
+	<radiobuttons name="lucentis_treatment.eye">
 	  <radiobutton value="o.dxt" caption="o.dxt"/>
 	  <radiobutton value="o.sin" caption="o.sin"/>
 	</radiobuttons>