diff options
Diffstat (limited to 'server/xml/macros/90d_linse-1.0.xml')
| -rw-r--r-- | server/xml/macros/90d_linse-1.0.xml | 270 |
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> |