<?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="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> <window 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> </window> </macro>