summaryrefslogtreecommitdiff
path: root/server/xml/macros/90d_linse-1.0.xml
diff options
context:
space:
mode:
authordeva <deva>2010-06-01 13:02:23 +0000
committerdeva <deva>2010-06-01 13:02:23 +0000
commit730eb796bbce6f124be9194f1565b7dda1daddf1 (patch)
tree46387b60fefad222197e3319ed922b23176d4a36 /server/xml/macros/90d_linse-1.0.xml
parent74a28aa7125be6a603128ad600c98c4882f3b5c2 (diff)
Afdj macros/templates are now located in their own repo.
Diffstat (limited to 'server/xml/macros/90d_linse-1.0.xml')
-rw-r--r--server/xml/macros/90d_linse-1.0.xml270
1 files changed, 0 insertions, 270 deletions
diff --git a/server/xml/macros/90d_linse-1.0.xml b/server/xml/macros/90d_linse-1.0.xml
deleted file mode 100644
index 01d2541..0000000
--- a/server/xml/macros/90d_linse-1.0.xml
+++ /dev/null
@@ -1,270 +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="90d_linse" version="1.0">
- <resume language="lua">
- out = '90D linse:'
-
- if ( getValue('90d_linse.mangler.odxt') == '' and getValue('90d_linse.mangler.osin') == '' )
- then
- out = 'Inblikket til fundusbaggrunden er ' .. getValue('90d_linse.indblik.odxt')
- .. ' på o.dxt og ' .. getValue('90d_linse.indblik.osin')..' på venstre.\n'
- else
- if ( getValue('90d_linse.mangler.odxt') == '' )
- then
- out = 'Inblikket til fundusbaggrunden er ' .. getValue('90d_linse.indblik.odxt')
- .. ' på o.dxt.\n'
- end
- if ( getValue('90d_linse.mangler.osin') == '' )
- then
- out = 'Inblikket til fundusbaggrunden er ' .. getValue('90d_linse.indblik.osin')
- ..' på o.sin.\n'
- end
- end
-
- if ( getValue('90d_linse.mangler.odxt') == '' )
- then
- if ( getValue('90d_linse.implikation.odxt') == 'retinal hævelse' )
- then
- out = out .. 'På o.dxt findes der retinal hævelse'
- if ( getValue('90d_linse.randbloedninger.odxt') ~= '' and getValue('90d_linse.exsudaterater.odxt') ~= '')
- then
- out = out .. ' med randblødning og exhudater.\n'
- end
-
- if ( getValue('90d_linse.randbloedninger.odxt') == '' and getValue('90d_linse.exsudaterater.odxt') ~= '')
- then
- out = out .. ' med exhudater.\n'
- end
-
- if ( getValue('90d_linse.randbloedninger.odxt') ~= '' and getValue('90d_linse.exsudaterater.odxt') == '')
- then
- out = out .. ' med randblødning.\n'
- end
-
- if ( getValue('90d_linse.randbloedninger.odxt') == '' and getValue('90d_linse.exsudaterater.odxt') == '')
- then
- out = out .. '.\n'
- end
- end
-
- if ( getValue('90d_linse.implikation.odxt') == 'atrofi' )
- then
- out = out .. 'På o.dxt findes der atrofi.\n'
- end
- end
-
- if ( getValue('90d_linse.mangler.osin') == '' )
- then
- if ( getValue('90d_linse.implikation.osin') == 'retinal hævelse' )
- then
- out = out .. 'På o.sin findes der retinal hævelse'
- if ( getValue('90d_linse.randbloedninger.osin') ~= '' and getValue('90d_linse.exsudaterater.osin') ~= '')
- then
- out = out .. ' med randblødning og exhudater.\n'
- end
-
- if ( getValue('90d_linse.randbloedninger.osin') == '' and getValue('90d_linse.exsudaterater.osin') ~= '')
- then
- out = out .. ' med exhudater.\n'
- end
-
- if ( getValue('90d_linse.randbloedninger.osin') ~= '' and getValue('90d_linse.exsudaterater.osin') == '')
- then
- out = out .. ' med randblødning.\n'
- end
-
- if ( getValue('90d_linse.randbloedninger.osin') == '' and getValue('90d_linse.exsudaterater.osin') == '')
- then
- out = out .. '.\n'
- end
- end
-
- if ( getValue('90d_linse.implikation.osin') == 'atrofi' )
- then
- out = out .. 'På o.sin findes der atrofi.\n'
- end
- end
-
- if ( getValue('90d_linse.yderligere') ~= '' )
- then
- out = out .. getValue('90d_linse.yderligere') .. '\n'
- end
-
- return out
- </resume>
- <queries>
- </queries>
- <maps>
- <map name="missing_eye_odxt_map">
- value = 0
- timestamp = 0
- source = ''
-
- if( missing_eye_odxt )
- then
- if( missing_eye_odxt.value and missing_eye_odxt.value == '' )
- then
- value = ''
- timestamp = missing_eye_odxt.timestamp
- source = missing_eye_odxt.source
- else
- value = 'mangler'
- timestamp = missing_eye_odxt.timestamp
- source = missing_eye_odxt.source
- end
- end
- return value, timestamp, source
- </map>
- <map name="missing_eye_osin_map">
- value = 0
- timestamp = 0
- source = ''
-
- if( missing_eye_osin )
- then
- if( missing_eye_osin.value and missing_eye_osin.value == '' )
- then
- value = ''
- timestamp = missing_eye_osin.timestamp
- source = missing_eye_osin.source
- else
- value = 'mangler'
- timestamp = missing_eye_osin.timestamp
- source = missing_eye_osin.source
- 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_odxt">
- if ( value == 'retinal hævelse' )
- then
- enable('retinal_haevelse_odxt')
- else
- disable('retinal_haevelse_odxt')
- end
- return true
- </script>
- <script language="lua" name="retinal_haevelse_osin">
- if ( value == 'retinal hævelse' )
- then
- enable('retinal_haevelse_osin')
- else
- disable('retinal_haevelse_osin')
- end
- return true
- </script>
- </scripts>
- <widgets caption="90-D linse (B.2.2.7)"
- layout="vbox">
-
- <frame layout="hbox">
-
- <!-- o.dxt -->
- <frame layout="vbox">
- <checkbox caption="Der er ikke målt på o.dxt"
- name="90d_linse.mangler.odxt" script="right_eye"
- map="missing_eye_odxt_map"
- truevalue="mangler" falsevalue="" value=""/>
- <frame name="right_eye_frame" caption="o.dxt" layout="vbox">
-
- <!-- Indblik -->
- <combobox name="90d_linse.indblik.odxt" 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_linse.implikation.odxt" value=" "
- script="retinal_haevelse_odxt">
- <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_odxt" layout="vbox">
- <checkbox name="90d_linse.randbloedninger.odxt" caption="Randblødning"
- truevalue="randblødning" falsevalue="" value=""/>
- <checkbox name="90d_linse.exsudaterater.odxt" caption="Exsudater"
- truevalue="exsudater" falsevalue="" value=""/>
- </frame>
-
- </frame>
- </frame>
-
- <!-- o.sin -->
- <frame layout="vbox">
- <checkbox caption="Der er ikke målt på o.sin"
- name="90d_linse.mangler.osin" script="left_eye"
- map="missing_eye_osin_map"
- truevalue="mangler" falsevalue="" value=""/>
- <frame name="left_eye_frame" caption="o.sin" layout="vbox">
-
- <!-- Indblik -->
- <combobox name="90d_linse.indblik.osin" 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_linse.implikation.osin" value=" "
- script="retinal_haevelse_osin">
- <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_osin" layout="vbox">
- <checkbox name="90d_linse.randbloedninger.osin" caption="Randblødning"
- truevalue="randblødning" falsevalue="" value=""/>
- <checkbox name="90d_linse.exsudaterater.osin" caption="Exsudater"
- truevalue="exsudater" falsevalue="" value=""/>
- </frame>
-
- </frame>
- </frame>
- </frame>
-
- <label caption="Supplerende:"/>
- <textedit name="90d_linse.yderligere" value=""/>
-
- <!-- Knapper -->
- <frame layout="hbox">
- <spacer/>
- <button caption="Gem" action="commit"/>
- </frame>
- </widgets>
-</macro>