diff options
Diffstat (limited to 'server/xml/macros/fluorescens_konklusion-1.0.xml')
| -rw-r--r-- | server/xml/macros/fluorescens_konklusion-1.0.xml | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/server/xml/macros/fluorescens_konklusion-1.0.xml b/server/xml/macros/fluorescens_konklusion-1.0.xml new file mode 100644 index 0000000..bfa115d --- /dev/null +++ b/server/xml/macros/fluorescens_konklusion-1.0.xml @@ -0,0 +1,128 @@ +<?xml version='1.0' encoding='UTF-8'?> +<!-- + 20081208: Bent Bisballe Nyeng + Feltnavnene ændret så de giver mening. + --> +<!-- + 20090107: Bent Bisballe Nyeng + Fluorescens info felterne skjules nu istedet for kun at blive disabled. + --> +<!-- + 20090211: Bent Bisballe Nyeng + Fluorescens info felterne bliver nu disabled igen, men har f[et fjernet den + altcombo som omkransede dem. Desuden er et 'andet' felt tilføjet. + --> +<macro name="fluorescens_konklusion" version="1.0"> + <resume language="lua"> + out = 'Konklusion:\n' + + if( getValue('fluorescens.conclusion') == 'Klassisk subretinal neovaskulær membran.' + or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' ) + then + out = out .. getValue('fluorescens.conclusion') .. '\n' + out = out .. 'Membranen er beliggende:' + .. getValue('fluorescens.membrane.position') .. '\n' + out = out .. 'Membranstørrelse:' + .. getValue('fluorescens.membrane.size') .. 'µm\n' + else + if( getValue('fluorescens.conclusion') == 'andet' ) + then + out = out .. getValue('fluorescens.conclusion.other') .. '\n' + else + out = out .. getValue('fluorescens.conclusion') .. '\n' + end + end + + return out + </resume> + <queries> + </queries> + <maps> + </maps> + <scripts> + <script language="lua" name="angiografi_konklusion"> + -- This script sets the value of additional according to conclusion. + + if( getValue('fluorescens.conclusion') == 'Klassisk subretinal neovaskulær membran.' + or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' ) + then + enable('yderligere_info_frame') + else + disable('yderligere_info_frame') + end + + if( getValue('fluorescens.conclusion') == 'andet' ) + then + enable('andet_frame') + else + disable('andet_frame') + end + + return true + </script> + </scripts> + <widgets caption="Konklusion (B.2.7.3)" + layout="vbox"> + + <frame layout="hbox"> + <label caption="Øje:" width="50"/> + <radiobuttons name="fluorescens.conclusion.eye" value=""> + <radiobutton caption="o.dxt" value="o.dxt"/> + <radiobutton caption="o.sin" value="o.sin"/> + </radiobuttons> + <spacer/> + </frame> + + <combobox name="fluorescens.conclusion" + value="Atrofiske foranderinger. Der findes ingen behandlingsindikation." + script="angiografi_konklusion"> + <item caption="Atrofiske foranderinger. Der findes ingen behandlingsindikation" + value="Atrofiske foranderinger. Der findes ingen behandlingsindikation." /> + <item caption="Pigmentepitelløsning. Der findes ingen behandlingsindikation" + value="Pigmentepitelløsning. Der findes ingen behandlingsindikation." /> + <item caption="Klassisk subretinal karnydannelse" + value="Klassisk subretinal neovaskulær membran." /> + <item caption="Overvejende klassisk subretinal neovaskulær membran" + value="Overvejende klassisk subretinal neovaskulær membran." /> + <item caption="Minimalt klassisk subretinal neovaskulær membran" + value="Minimalt klassisk subretinal neovaskulær membran." /> + <item caption="Okkult subretinal neovaskulær membran." + value="Okkult subretinal neovaskulær membran." /> + <item caption="Andet" + value="andet" /> + </combobox> + + <frame name="andet_frame" layout="hbox"> + <label caption="Andet:"/> + <lineedit name="fluorescens.conclusion.other" value=""/> + </frame> + + <frame name="yderligere_info_frame" layout="vbox"> + <label caption="Yderligere information:"/> + + <frame layout="hbox"> + <label caption="Membran beliggenhed:" width="150"/> + <combobox name="fluorescens.membrane.position" value=""> + <item caption="Subfovealt" value="Subfovealt" /> + <item caption="Juxtafovealt" value="Juxtafovealt" /> + <item caption="Extrafovealt" value="Extrafovealt" /> + </combobox> + <spacer/> + </frame> + + <frame layout="hbox"> + <label caption="Membranstørrelse:" width="150"/> + <lineedit name="fluorescens.membrane.size" regexp="[0-9,.-]+" value=""/> + <label caption="µm" /> + <spacer/> + </frame> + + </frame> + + <!-- Knapper --> + <frame layout="hbox"> + <spacer/> + <button caption="Gem" action="commit"/> + </frame> + </widgets> +</macro> |