Major fixup of this macro

1 files changed, 102 insertions, 11 deletions

diff --git a/server/xml/macros/B.2.2.7.xml b/server/xml/macros/B.2.2.7.xml
index 0eeacca..e3eed24 100644
--- a/server/xml/macros/B.2.2.7.xml
+++ b/server/xml/macros/B.2.2.7.xml
@@ -2,19 +2,108 @@
 <!--
     20081204: Bent Bisballe Nyeng
     Feltnavnene ændret så de giver mening.
-  -->
-<!--
+
     20090108: Bent Bisballe Nyeng
     Højre/venstre byttet om.
-  -->
-<!--
+
     20090320: Bent Bisballe Nyeng
     Total omskrivning
+
+    20090420: Bent Bisballe Nyeng
+    Nyt resume.
   -->
 <macro name="B.2.2.7" version="1.0">
-  <resume>Inblikket til fundusbaggrunden er ${90D_lens.right.fundus_visibility} på højre øje og ${90D_lens.left.fundus_visibility} på venstre.
-${90D_lens.implications}
-${90D_lens.additional}</resume>
+  <resume language="lua">
+    out = ''
+
+    if ( getValue('90D_lens.right.missing') == '' and getValue('90D_lens.left.missing') == '' )
+    then
+      out = 'Inblikket til fundusbaggrunden er ' .. getValue('90D_lens.right.fundus_visibility')
+          .. ' på højre øje og ' .. getValue('90D_lens.left.fundus_visibility')..' på venstre.\n'
+    else
+      if ( getValue('90D_lens.right.missing') == '' )
+      then
+        out = 'Inblikket til fundusbaggrunden er ' .. getValue('90D_lens.right.fundus_visibility')
+           .. ' på højre øje.\n'
+      end
+      if ( getValue('90D_lens.left.missing') == '' )
+      then
+        out = 'Inblikket til fundusbaggrunden er ' .. getValue('90D_lens.left.fundus_visibility')
+           ..' på venstre øje.\n'
+      end
+    end
+
+    if ( getValue('90D_lens.right.missing') == '' )
+    then
+      if ( getValue('90D_lens.right.implikation') == 'retinal hævelse' )
+      then
+        out = out .. 'På højre øje findes der retinal hævelse'
+        if ( getValue('90D_lens.right.randbl') ~= '' and getValue('90D_lens.right.exsudater') ~= '')
+        then
+          out = out .. ' med randblødning og exhudater.\n'
+        end
+  
+        if ( getValue('90D_lens.right.randbl') == '' and getValue('90D_lens.right.exsudater') ~= '')
+        then
+          out = out .. ' med exhudater.\n'
+        end
+  
+        if ( getValue('90D_lens.right.randbl') ~= '' and getValue('90D_lens.right.exsudater') == '')
+        then
+          out = out .. ' med randblødning.\n'
+        end
+  
+        if ( getValue('90D_lens.right.randbl') == '' and getValue('90D_lens.right.exsudater') == '')
+        then
+          out = out .. '.\n'
+        end
+      end
+
+      if ( getValue('90D_lens.right.implikation') == 'atrofi' )
+      then
+        out = out .. 'På højre øje findes der atrofi.\n'
+      end
+    end
+
+    if ( getValue('90D_lens.left.missing') == '' )
+    then
+      if ( getValue('90D_lens.left.implikation') == 'retinal hævelse' )
+      then
+        out = out .. 'På venstre øje findes der retinal hævelse'
+        if ( getValue('90D_lens.left.randbl') ~= '' and getValue('90D_lens.left.exsudater') ~= '')
+        then
+          out = out .. ' med randblødning og exhudater.\n'
+        end
+  
+        if ( getValue('90D_lens.left.randbl') == '' and getValue('90D_lens.left.exsudater') ~= '')
+        then
+          out = out .. ' med exhudater.\n'
+        end
+  
+        if ( getValue('90D_lens.left.randbl') ~= '' and getValue('90D_lens.left.exsudater') == '')
+        then
+          out = out .. ' med randblødning.\n'
+        end
+  
+        if ( getValue('90D_lens.left.randbl') == '' and getValue('90D_lens.left.exsudater') == '')
+        then
+          out = out .. '.\n'
+        end
+      end
+  
+      if ( getValue('90D_lens.left.implikation') == 'atrofi' )
+      then
+        out = out .. 'På venstre øje findes der atrofi.\n'
+      end
+    end
+  
+    if ( getValue('90D_lens.additional') ~= '' )
+    then
+      out = out .. getValue('90D_lens.additional') .. '\n'
+    end
+
+    return out
+  </resume>
   <queries>
   </queries>
   <maps>
@@ -111,13 +200,14 @@ ${90D_lens.additional}</resume>
 	    <item caption="Klart" value="klart"/>
 	    <item caption="Let sløret" value="let sløret"/>
 	    <item caption="Meget sløret" value="meget sløret"/>
-	    <item caption="Intet" value="intet"/>
 	  </combobox>
 
 	  <!-- Observationer -->
-	  <radiobuttons name="90D_lens..right.implikation" value="" script="retinal_haevelse_right">
+	  <radiobuttons name="90D_lens.right.implikation" value=" "
+			script="retinal_haevelse_right">
 	    <radiobutton caption="Retinal hævelse" value="retinal hævelse"/>
 	    <radiobutton caption="Atrofi" value="atrofi"/>
+	    <radiobutton caption="Andet (se suppl.)" value=""/>
 	  </radiobuttons>
 
 	  <frame name="retinal_haevelse_right" layout="vbox">
@@ -143,13 +233,14 @@ ${90D_lens.additional}</resume>
 	    <item caption="Klart" value="klart"/>
 	    <item caption="Let sløret" value="let sløret"/>
 	    <item caption="Meget sløret" value="meget sløret"/>
-	    <item caption="Intet" value="intet"/>
 	  </combobox>
 	  
 	  <!-- Observationer -->
-	  <radiobuttons name="90D_lens.left.implikation" value="" script="retinal_haevelse_left">
+	  <radiobuttons name="90D_lens.left.implikation" value=" "
+			script="retinal_haevelse_left">
 	    <radiobutton caption="Retinal hævelse" value="retinal hævelse"/>
 	    <radiobutton caption="Atrofi" value="atrofi"/>
+	    <radiobutton caption="Andet (se suppl.)" value=""/>
 	  </radiobuttons>
 
 	  <frame name="retinal_haevelse_left" layout="vbox">