From 726d0368fd102e2312348af480f3034665db1c82 Mon Sep 17 00:00:00 2001
From: deva <deva>
Date: Mon, 20 Apr 2009 14:53:16 +0000
Subject: Major fixup of this macro
---
server/xml/macros/B.2.2.7.xml | 113 ++++++++++++++++++++++++++++++++++++++----
1 file 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">
--
cgit v1.2.3