diff options
Diffstat (limited to 'server/xml/macros/vurdering_af_fundus-1.0.xml')
| -rw-r--r-- | server/xml/macros/vurdering_af_fundus-1.0.xml | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/server/xml/macros/vurdering_af_fundus-1.0.xml b/server/xml/macros/vurdering_af_fundus-1.0.xml new file mode 100644 index 0000000..f7ca475 --- /dev/null +++ b/server/xml/macros/vurdering_af_fundus-1.0.xml @@ -0,0 +1,58 @@ +<?xml version='1.0' encoding='UTF-8'?> +<!-- + 20090420: Bent Bisballe Nyeng + Resume opdateret så det altid inkluderer både randhæmorrhagier og + exsudater, både hvis de er observerede og hvis de ikke er det. + --> +<macro name="vurdering_af_fundus" version="1.0"> + <resume language="lua"> + out = '90-D undersøgelse:\nDer findes ' + if(getValue('fundus.randh') == '' and getValue('fundus.exsud') == '') + then + out = out .. 'ingen randhæmorrhagier eller exsudater' + else + if(getValue('fundus.randh') ~= '' and getValue('fundus.exsud') ~= '') + then + out = out .. 'randhæmorrhagier og exsudater' + else + if(getValue('fundus.randh') ~= '') + then + out = out .. 'randhæmorrhagier, men ingen exsudater' + end + if(getValue('fundus.exsud') ~= '') + then + out = out .. 'ingen randhæmorrhagier, men exsudater' + end + end + end + out = out .. '.\n' + return out + </resume> + <queries> + </queries> + <maps> + </maps> + <scripts> + </scripts> + <widgets caption="Vurdering af fundus (B.2.5)" + layout="vbox"> + + <combobox name="fundus.source" value=""> + <item caption="Fundus foto" value="Fundus foto"/> + <item caption="90-D linse undersøgelse" value="90-D linse undersøgelse"/> + </combobox> + + <label caption="viser"/> + + <checkbox name="fundus.randh" caption="Randhæmorrhagier" + truevalue="Randhæmorrhagier" falsevalue="" value=""/> + <checkbox name="fundus.exsud" caption="Exsudater" + truevalue="Exsudater" falsevalue="" value=""/> + + <!-- Knapper --> + <frame layout="hbox"> + <spacer/> + <button caption="Gem" action="commit"/> + </frame> + </widgets> +</macro> |