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