From 220db6d8014e379c2635b5e00483fecd23f398eb Mon Sep 17 00:00:00 2001
From: senator <senator>
Date: Wed, 2 Sep 2009 11:59:05 +0000
Subject: Right eye done
---
server/xml/macros/ref_spaltelampe-1.0.xml | 260 ++++++++++++++++++++++++++++++
1 file changed, 260 insertions(+)
create mode 100644 server/xml/macros/ref_spaltelampe-1.0.xml
(limited to 'server/xml')
diff --git a/server/xml/macros/ref_spaltelampe-1.0.xml b/server/xml/macros/ref_spaltelampe-1.0.xml
new file mode 100644
index 0000000..cb779af
--- /dev/null
+++ b/server/xml/macros/ref_spaltelampe-1.0.xml
@@ -0,0 +1,260 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<macro name="ref_spaltelampe" version="1.0">
+ <resume language="lua">
+ out = ''
+ if ( getValue('spaltelampe.right.missing') == '' )
+ then
+ out = out .. 'Spaltelampe, højre øje:\n'
+ out = out .. 'Epithel: '
+ if ( getValue('spaltelampe.right.epithel.ophelet') == '' or getValue('spaltelampe.right.epithel.central_epitheldefekt') == '' or getValue('spaltelampe.right.epithel.toerhedsforandringer') == '' or getValue('spaltelampe.right.epithel.andet') == '')
+ then
+ out = out .. '\n'
+ end
+ if ( getValue('spaltelampe.right.epithel.ophelet') ~= '' )
+ then
+ out = out .. getValue('spaltelampe.right.epithel.ophelet')
+ if ( getValue('spaltelampe.right.epithel.central_epitheldefekt') ~= '' or getValue('spaltelampe.right.epithel.toerhedsforandringer') ~= '' or getValue('spaltelampe.right.epithel.andet') ~= '')
+ then
+ out = out .. ', '
+ else
+ out = out .. '\n'
+ end
+ end
+ if ( getValue('spaltelampe.right.epithel.central_epitheldefekt') ~= '' )
+ then
+ out = out .. getValue('spaltelampe.right.epithel.central_epitheldefekt')
+ if (getValue('spaltelampe.right.epithel.toerhedsforandringer') ~= '' or getValue('spaltelampe.right.epithel.andet') ~= '')
+ then
+ out = out .. ', '
+ else
+ out = out .. '\n'
+ end
+ end
+ if ( getValue('spaltelampe.right.epithel.toerhedsforandringer') ~= '' )
+ then
+ out = out .. getValue('spaltelampe.right.epithel.toerhedsforandringer')
+ if (getValue('spaltelampe.right.epithel.andet') ~= '')
+ then
+ out = out .. ', '
+ else
+ out = out .. '\n'
+ end
+ end
+ if ( getValue('spaltelampe.right.epithel.andet') ~= '' )
+ then
+ out = out .. getValue('spaltelampe.right.epithel.andet') .. '\n'
+ end
+ out = out .. 'Stroma: ' .. getValue('spaltelampe.right.stroma') .. '\n'
+ out = out .. 'Flap: ' .. getValue('spaltelampe.right.flap') .. '\n'
+ out = out .. 'Folder: ' .. getValue('spaltelampe.right.folder') .. '\n'
+ out = out .. 'Interface: ' .. getValue('spaltelampe.right.interface') .. '\n'
+ end
+ return out
+ </resume>
+ <queries>
+ <query service="pracro" class="missing_eye_right" ttl="1000000"/>
+ <query service="pracro" class="missing_eye_left" ttl="1000000"/>
+ </queries>
+ <maps>
+ <map name="missing_eye_right_map">
+ value = 0
+ timestamp = 0
+ source = ''
+
+ if( missing_eye_right )
+ then
+ if( missing_eye_right.value and missing_eye_right.value == '' )
+ then
+ value = ''
+ timestamp = missing_eye_right.timestamp
+ source = missing_eye_right.source
+ else
+ value = 'mangler'
+ timestamp = missing_eye_right.timestamp
+ source = missing_eye_right.source
+ end
+ end
+ return value, timestamp, source
+ </map>
+ <map name="missing_eye_left_map">
+ value = 0
+ timestamp = 0
+ source = ''
+
+ if( missing_eye_left )
+ then
+ if( missing_eye_left.value and missing_eye_left.value == '' )
+ then
+ value = ''
+ timestamp = missing_eye_left.timestamp
+ source = missing_eye_left.source
+ else
+ value = 'mangler'
+ timestamp = missing_eye_left.timestamp
+ source = missing_eye_left.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>
+ </scripts>
+ <widgets caption="Spaltelampe"
+ layout="vbox">
+
+ <frame layout="hbox">
+
+ <!-- Højre øje -->
+ <frame layout="vbox">
+ <checkbox caption="Der er ikke målt på højre øje"
+ name="spaltelampe.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">
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label caption="Epithel:"/>
+ <label/>
+ <label/>
+ <label/>
+ <label/>
+ </frame>
+ <frame layout="vbox">
+ <checkbox name="spaltelampe.right.epithel.ophelet" caption="Ophelet" falsevalue="" truevalue="Ophelet"/>
+ <checkbox name="spaltelampe.right.epithel.central_epitheldefekt" caption="Central epitheldefekt" falsevalue="" truevalue="Central epitheldefekt"/>
+ <checkbox name="spaltelampe.right.epithel.toerhedsforandringer" caption="Tørhedsforandringer" falsevalue="" truevalue="Tørhedsforandringer"/>
+ <frame layout="hbox">
+ <label caption="Andet:"/>
+ <lineedit name="spaltelampe.right.epithel.andet"/>
+ </frame>
+ </frame>
+ </frame>
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label caption="Stroma:"/>
+ <label/>
+ </frame>
+ <frame layout="vbox">
+ <altcombobox name="spaltelampe.right.stroma" layout="vbox">
+ <item caption="Klart" value="Klart"/>
+ <item caption="MD-folder" value="MD-folder"/>
+ <altitem caption="Andet" value="andet" layout="hbox" innerwidget="spaltelampe.right.stroma.andet">
+ <label caption="Andet:"/>
+ <lineedit name="spaltelampe.right.stroma.andet"/>
+ </altitem>
+ </altcombobox>
+ </frame>
+ </frame>
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label caption="Flap:"/>
+ <label/>
+ </frame>
+ <frame layout="vbox">
+ <altcombobox name="spaltelampe.right.flap" value="Velplaceret" layout="vbox">
+ <item caption="Velplaceret" value="Velplaceret"/>
+ <item caption="Dislokeret" value="Dislokeret"/>
+ <altitem caption="Andet" value="andet" layout="hbox" innerwidget="spaltelampe.right.flap.andet">
+ <label caption="Andet:"/>
+ <lineedit name="spaltelampe.right.flap.andet"/>
+ </altitem>
+ </altcombobox>
+ </frame>
+ </frame>
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label caption="Folder:"/>
+ <label/>
+ </frame>
+ <frame layout="vbox">
+ <altcombobox name="spaltelampe.right.folder" value="Ingen" layout="vbox">
+ <item caption="Ingen" value="Ingen"/>
+ <item caption="Mikrofolder" value="Mikrofolder"/>
+ <item caption="Lette folder" value="Lette folder"/>
+ <item caption="Udtalte folder" value="Udtalte folder"/>
+ <altitem caption="Andet" value="andet" layout="hbox" innerwidget="spaltelampe.right.folder.andet">
+ <label caption="Andet:"/>
+ <lineedit name="spaltelampe.right.folder.andet"/>
+ </altitem>
+ </altcombobox>
+ </frame>
+ </frame>
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label caption="Interface:"/>
+ <label/>
+ </frame>
+ <frame layout="vbox">
+ <altcombobox name="spaltelampe.right.interface" value="Ingen partikler eller debris" layout="vbox">
+ <item caption="Ingen partikler eller debris" value="Ingen partikler eller debris"/>
+ <item caption="Enkelte partikler" value="Enkelte partikler"/>
+ <item caption="Nogen partikler" value="Nogen partikler"/>
+ <item caption="Udtalte partikler" value="Udtalte partikler"/>
+ <altitem caption="Andet" value="andet" layout="hbox" innerwidget="spaltelampe.right.interface.andet">
+ <label caption="Andet:"/>
+ <lineedit name="spaltelampe.right.interface.andet"/>
+ </altitem>
+ </altcombobox>
+ </frame>
+ </frame>
+ </frame>
+ </frame>
+
+ <!-- Venstre øje -->
+ <frame layout="vbox">
+ <checkbox caption="Der er ikke målt på venstre øje"
+ name="slit_lamp.left.missing" script="left_eye"
+ map="missing_eye_left_map"
+ truevalue="mangler" falsevalue="" value=""/>
+ <frame name="left_eye_frame" caption="Venstre øje" layout="vbox">
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label caption="Linsen:"/>
+ <label/>
+ </frame>
+ <frame layout="vbox">
+ <altcombobox name="slit_lamp.left.observation" layout="vbox">
+ <item caption="Ingen katarakt" value="Ingen katarakt"/>
+ <item caption="Katarakt grad 1" value="Katarakt grad 1"/>
+ <item caption="Katarakt grad 2" value="Katarakt grad 2"/>
+ <item caption="Katarakt grad 3" value="Katarakt grad 3"/>
+ <item caption="Pseudofaki" value="Pseudofaki"/>
+ <altitem caption="Andet" value="andet" layout="vbox" innerwidget="spaltelampe_venstre_andet">
+ <label caption="Andet:"/>
+ <lineedit name="spaltelampe_venstre_andet"/>
+ </altitem>
+ </altcombobox>
+ </frame>
+ </frame>
+ <label caption="Supplerende:"/>
+ <textedit name="slit_lamp.left.additional" value=""/>
+ </frame>
+ </frame>
+
+ </frame>
+
+ <!-- Knapper -->
+ <frame layout="hbox">
+ <spacer/>
+ <button caption="Gem" action="commit"/>
+ </frame>
+ </widgets>
+</macro>
--
cgit v1.2.3