summaryrefslogtreecommitdiff
path: root/server/xml/macros/90Dlens-1.0.xml
diff options
context:
space:
mode:
Diffstat (limited to 'server/xml/macros/90Dlens-1.0.xml')
-rw-r--r--server/xml/macros/90Dlens-1.0.xml266
1 files changed, 0 insertions, 266 deletions
diff --git a/server/xml/macros/90Dlens-1.0.xml b/server/xml/macros/90Dlens-1.0.xml
deleted file mode 100644
index 4219efe..0000000
--- a/server/xml/macros/90Dlens-1.0.xml
+++ /dev/null
@@ -1,266 +0,0 @@
-<?xml version='1.0' encoding='UTF-8'?>
-<!--
- 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="90Dlens" version="1.0">
- <resume language="lua">
- out = '90D linse:'
-
- 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>
- <map name="missing_eye_right_map">
- value = 0
- timestamp = 0
- source = 'pracro'
-
- if( missing_eye_right )
- then
- if( missing_eye_right.value and missing_eye_right.value == '' )
- then
- value = ''
- timestamp = missing_eye_right.timestamp
- else
- value = 'mangler'
- timestamp = missing_eye_right.timestamp
- end
- end
- return value, timestamp, source
- </map>
- <map name="missing_eye_left_map">
- value = 0
- timestamp = 0
- source = 'pracro'
-
- if( missing_eye_left )
- then
- if( missing_eye_left.value and missing_eye_left.value == '' )
- then
- value = ''
- timestamp = missing_eye_left.timestamp
- else
- value = 'mangler'
- timestamp = missing_eye_left.timestamp
- end
- end
- return value, timestamp, source
- </map>
- </maps>
- <scripts>
- <script language="lua" name="right_eye">
- if ( value == 'mangler' )
- then
- disable('right_eye_frame')
- else
- enable('right_eye_frame')
- end
- return true
- </script>
- <script language="lua" name="left_eye">
- if ( value == 'mangler' )
- then
- disable('left_eye_frame')
- else
- enable('left_eye_frame')
- end
- return true
- </script>
- <script language="lua" name="retinal_haevelse_right">
- if ( value == 'retinal hævelse' )
- then
- enable('retinal_haevelse_right')
- else
- disable('retinal_haevelse_right')
- end
- return true
- </script>
- <script language="lua" name="retinal_haevelse_left">
- if ( value == 'retinal hævelse' )
- then
- enable('retinal_haevelse_left')
- else
- disable('retinal_haevelse_left')
- end
- return true
- </script>
- </scripts>
- <widgets caption="90-D linse (B.2.2.7)"
- layout="vbox">
-
- <frame layout="hbox">
-
- <!-- Højre øje -->
- <frame layout="vbox">
- <checkbox caption="Der er ikke målt på højre øje"
- name="90D_lens.right.missing" script="right_eye"
- map="missing_eye_right_map"
- truevalue="mangler" falsevalue="" value=""/>
- <frame name="right_eye_frame" caption="Højre øje" layout="vbox">
-
- <!-- Indblik -->
- <combobox name="90D_lens.right.fundus_visibility" value="">
- <item caption="Klart" value="klart"/>
- <item caption="Let sløret" value="let sløret"/>
- <item caption="Meget sløret" value="meget sløret"/>
- </combobox>
-
- <!-- Observationer -->
- <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">
- <checkbox name="90D_lens.right.randbl" caption="Randblødning"
- truevalue="randblødning" falsevalue="" value=""/>
- <checkbox name="90D_lens.right.exsudater" caption="Exsudater"
- truevalue="exsudater" falsevalue="" value=""/>
- </frame>
-
- </frame>
- </frame>
-
- <!-- Venstre øje -->
- <frame layout="vbox">
- <checkbox caption="Der er ikke målt på venstre øje"
- name="90D_lens.left.missing" script="left_eye"
- map="missing_eye_left_map"
- truevalue="mangler" falsevalue="" value=""/>
- <frame name="left_eye_frame" caption="Venstre øje" layout="vbox">
-
- <!-- Indblik -->
- <combobox name="90D_lens.left.fundus_visibility" value="">
- <item caption="Klart" value="klart"/>
- <item caption="Let sløret" value="let sløret"/>
- <item caption="Meget sløret" value="meget sløret"/>
- </combobox>
-
- <!-- Observationer -->
- <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">
- <checkbox name="90D_lens.left.randbl" caption="Randblødning"
- truevalue="randblødning" falsevalue="" value=""/>
- <checkbox name="90D_lens.left.exsudater" caption="Exsudater"
- truevalue="exsudater" falsevalue="" value=""/>
- </frame>
-
- </frame>
- </frame>
- </frame>
-
- <label caption="Supplerende:"/>
- <textedit name="90D_lens.additional" value=""/>
-
- <!-- Knapper -->
- <frame layout="hbox">
- <spacer/>
- <button caption="Gem" action="commit"/>
- </frame>
- </widgets>
-</macro>