summaryrefslogtreecommitdiff
path: root/server/xml/macros
diff options
context:
space:
mode:
Diffstat (limited to 'server/xml/macros')
-rw-r--r--server/xml/macros/boelgefront-1.0.xml72
-rw-r--r--server/xml/macros/ref_forunders-informeret_samtykke-1.0.xml104
2 files changed, 171 insertions, 5 deletions
diff --git a/server/xml/macros/boelgefront-1.0.xml b/server/xml/macros/boelgefront-1.0.xml
index f198167..7628f41 100644
--- a/server/xml/macros/boelgefront-1.0.xml
+++ b/server/xml/macros/boelgefront-1.0.xml
@@ -1,25 +1,87 @@
<?xml version='1.0' encoding='UTF-8'?>
<macro name="boelgefront" version="1.0">
- <resume language="pracro">Bølgefront: ${boelgefront}</resume>
+ <resume language="lua">
+ out = ''
+ out = out .. 'Bølgefront: ' .. getValue('boelgefront') .. '\n'
+ if ( getValue('boelgefront') == 'Udført' )
+ then
+ out = out .. 'Aberration: ' .. getValue('boelgefront.aberration') .. ' my\n'
+ out = out .. 'Pupilstørrelse: ' .. getValue('boelgefront.pupilstoerrelse') .. ' mm\n'
+ end
+ return out
+ </resume>
<queries>
</queries>
<maps>
</maps>
<scripts>
+ <script language="lua" name="extras_check">
+ if ( getValue('boelgefront') == 'Udført' )
+ then
+ enable('extras')
+ else
+ disable('extras')
+ end
+ return true
+ </script>
+ <script language="lua" name="gt0.1lt0.5">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) &gt;= 0.1 and tonumber(value) &lt;= 0.5)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ <script language="lua" name="gt2lt9">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) &gt;= 2 and tonumber(value) &lt;= 9)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
</scripts>
<widgets caption="Bølgefront" layout="vbox">
- <altcombobox name="boelgefront" value="Ikke udført" layout="vbox">
+ <altcombobox name="boelgefront" value="Ikke udført" layout="vbox" script="extras_check">
<item caption="Udført" value="Udført"/>
<item caption="Ikke udført" value="Ikke udført"/>
- <altitem caption="Andet" value="andet" innerwidget="boelgefront_andet">
+ <altitem caption="Andet" value="andet" innerwidget="boelgefront.andet">
<frame layout="hbox">
<label caption="Andet:"/>
- <lineedit name="boelgefront_andet"/>
+ <lineedit name="boelgefront.andet"/>
</frame>
</altitem>
</altcombobox>
-
+
+ <frame name="extras" layout="hbox">
+ <frame layout="vbox">
+ <label caption="Aberration:"/>
+ <label caption="Pupilstørrelse:"/>
+ </frame>
+ <frame layout="vbox">
+ <lineedit name="boelgefront.aberration" script="gt0.1lt0.5" regexp="\d{1,2},\d{2}"/>
+ <lineedit name="boelgefront.pupilstoerrelse" script="gt2lt9" regexp="\d{1,2},\d{1}"/>
+ </frame>
+ <frame layout="vbox">
+ <label caption="my"/>
+ <label caption="mm"/>
+ </frame>
+ <spacer/>
+ </frame>
+
<frame layout="hbox">
<spacer/>
<button caption="Gem" action="commit"/>
diff --git a/server/xml/macros/ref_forunders-informeret_samtykke-1.0.xml b/server/xml/macros/ref_forunders-informeret_samtykke-1.0.xml
new file mode 100644
index 0000000..33b486f
--- /dev/null
+++ b/server/xml/macros/ref_forunders-informeret_samtykke-1.0.xml
@@ -0,0 +1,104 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<macro name="ref_forunders.informeret_samtykke" version="1.0">
+ <resume language="lua">
+ out = ''
+ out = out .. 'Informeret samtykke:\n'
+ out = out .. 'Patienten er informeret detaljeret om indgrebet, det forventede resultat samt risici og komplikationer i overensstemmelse med afdelingens retningslinier og giver samtykke til behandling. Patienten er indforstået med den brillestyrke som tilsigtes med operationen, nemlig ' .. getValue('ref_forunders.informeret_samtykke.dioptrier') .. ' dioptrier og ' .. getValue('ref_forunders.informeret_samtykke.cylindre') .. ' cylindre.'
+
+ if ( getValue('ref_forunders.informeret_samtykke.yderligere_kommentarer') ~= '' )
+ then
+ out = out .. '\n'
+ out = out .. getValue('ref_forunders.informeret_samtykke.yderligere_kommentarer')
+ end
+ return out
+ </resume>
+ <queries>
+ </queries>
+ <maps>
+ </maps>
+ <scripts>
+ <script language="lua" name="samtykke">
+ if ( getValue('ref_forunders.informeret_samtykke.informeret_samtykke') == 'true' )
+ then
+ return true
+ end
+ return false
+ </script>
+ </scripts>
+ <widgets caption="Informeret samtykke" layout="vbox">
+ <frame layout="vbox">
+<!--
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label caption="Der aftales"/>
+ <label/>
+ </frame>
+ <altcombobox name="ref_forunders.informeret_samtykke.rebehandling" value="na" layout="vbox" script="rebehandling">
+ <item caption="Ikke udfyldt" value="na"/>
+ <item caption="reLASIK" value="reLASIK"/>
+ <item caption="rePRK" value="rePRK"/>
+ <item caption="Topografistyret reLASIK" value="Topografistyret reLASIK"/>
+ <item caption="Topografistyret rePRK" value="Topografistyret rePRK"/>
+ <altitem caption="Andet" value="andet" layout="hbox" innerwidget="ref_forunders.informeret_samtykke.rebehandling.andet">
+ <label caption="Andet:"/>
+ <lineedit name="ref_forunders.informeret_samtykke.rebehandling.andet"/>
+ </altitem>
+ </altcombobox>
+ <frame layout="vbox">
+ <label caption="Øje:"/>
+ <label/>
+ </frame>
+ <frame layout="vbox">
+ <combobox name="ref_forunders.informeret_samtykke.oeje" value="">
+ <item caption="Højre øje" value="højre øje"/>
+ <item caption="Venstre øje" value="venstre øje"/>
+ <item caption="Begge øjne" value="begge øjne"/>
+ </combobox>
+ <label/>
+ </frame>
+ <spacer/>
+ </frame>
+-->
+ <label caption="Patienten er informeret detaljeret om indgrebet, det forventede resultat samt risici og komplikationer i"/>
+ <label caption="overensstemmelse med afdelingens retningslinier og giver samtykke til behandling. Patienten er "/>
+ <label caption="indforstået med den brillestyrke som tilsigtes med operationen (anfør herunder)."/>
+ <frame layout="hbox">
+ <label caption="Dioptrier:"/>
+ <combobox name="ref_forunders.informeret_samtykke.dioptrier" value="">
+ <item caption="-4" value="-4"/>
+ <item caption="-3" value="-3"/>
+ <item caption="-2" value="-2"/>
+ <item caption="-1" value="-1"/>
+ <item caption="0" value="0"/>
+ <item caption="1" value="1"/>
+ <item caption="2" value="2"/>
+ <item caption="3" value="3"/>
+ <item caption="4" value="4"/>
+ </combobox>
+ <label caption="Cylindre:"/>
+ <combobox name="ref_forunders.informeret_samtykke.cylindre" value="">
+ <item caption="-4" value="-4"/>
+ <item caption="-3" value="-3"/>
+ <item caption="-2" value="-2"/>
+ <item caption="-1" value="-1"/>
+ <item caption="0" value="0"/>
+ <item caption="1" value="1"/>
+ <item caption="2" value="2"/>
+ <item caption="3" value="3"/>
+ <item caption="4" value="4"/>
+ </combobox>
+ <spacer/>
+ </frame>
+ <checkbox name="ref_forunders.informeret_samtykke.informeret_samtykke" caption="Godkend ovenstående" truevalue="true" falsevalue="" script="samtykke"/>
+ </frame>
+ <label/>
+ <label caption="Yderligere kommentarer:"/>
+ <lineedit name="ref_forunders.informeret_samtykke.yderligere_kommentarer"/>
+
+ <!-- knapper -->
+ <frame layout="hbox">
+ <spacer/>
+ <button caption="Gem" action="commit"/>
+ </frame>
+ </widgets>
+</macro>