From 5d3f428da7d295dcaf32c1559fd3b3780d6bb686 Mon Sep 17 00:00:00 2001
From: senator <senator>
Date: Tue, 6 Oct 2009 09:16:00 +0000
Subject: Added ref_behandling macros
---
server/xml/macros/de_5_trin-1.0.xml | 35 ++
.../ref_behandling-kirurgisk_procedure-1.0.xml | 444 +++++++++++++++++++++
.../xml/macros/ref_behandling-klargoering-1.0.xml | 29 ++
3 files changed, 508 insertions(+)
create mode 100644 server/xml/macros/de_5_trin-1.0.xml
create mode 100644 server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
create mode 100644 server/xml/macros/ref_behandling-klargoering-1.0.xml
(limited to 'server')
diff --git a/server/xml/macros/de_5_trin-1.0.xml b/server/xml/macros/de_5_trin-1.0.xml
new file mode 100644
index 0000000..08c698a
--- /dev/null
+++ b/server/xml/macros/de_5_trin-1.0.xml
@@ -0,0 +1,35 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<macro name="de_5_trin" version="1.0">
+ <resume language="lua">
+ out = ''
+ if ( getValue('de_5_trin.checkbox') ~= '' )
+ then
+ out = out .. getValue('de_5_trin.checkbox')
+ end
+
+ return out
+ </resume>
+ <queries>
+ </queries>
+ <maps>
+ </maps>
+ <scripts>
+ <script language="lua" name="de_5_trin">
+ if ( getValue('de_5_trin.checkbox') ~= '' )
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ </scripts>
+ <widgets caption="De 5 trin" layout="vbox">
+ <checkbox name="de_5_trin.checkbox" caption="De 5 trin til forebyggelse af forveksling af øjnene er gennemgået." truevalue="De 5 trin til forebyggelse af forveksling af øjnene er gennemgået." falsevalue="" script="de_5_trin"/>
+
+ <!-- Knapper -->
+ <frame layout="hbox">
+ <spacer />
+ <button caption="Gem" action="commit"/>
+ </frame>
+ </widgets>
+</macro>
diff --git a/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml b/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
new file mode 100644
index 0000000..7b28761
--- /dev/null
+++ b/server/xml/macros/ref_behandling-kirurgisk_procedure-1.0.xml
@@ -0,0 +1,444 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<macro name="ref_behandling.kirurgisk_procedure" version="1.0">
+ <resume language="lua">
+ out = ''
+ out = out .. 'I Oxybuprokain dråbeanæstesi foretages ' .. getValue('ref_behandling.kirurgisk_procedure.type') .. ' på ' .. getValue('ref_behandling.kirurgisk_procedure.eye') .. ' øje.\n'
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASIK' )
+ then
+ out = out .. 'LASIK flappen skæres med ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.method') .. '.\n'
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.lasik.method') == 'femtosekundlaser' )
+ then
+ out = out .. 'Flapdiameter: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.flapdiameter') .. ' mm\n'
+ out = out .. 'Flaptykkelse: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.flaptykkelse') .. ' um\n'
+ out = out .. 'Kantprofil: ' .. getValue('ref_behandling.kirurgisk_procedure.lasik.kantprofil') .. '\n'
+ end
+
+ out = out .. 'Flappen løftes med flap-lifter.\n\n'
+ end
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'PRK' )
+ then
+ out = out .. getValue('ref_behandling.kirurgisk_procedure.prk.part1') .. '\n\n'
+ end
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'reLASIK' )
+ then
+ out = out .. getValue('ref_behandling.kirurgisk_procedure.relasik.part1') .. '\n\n'
+ end
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'rePRK' )
+ then
+ out = out .. getValue('ref_behandling.kirurgisk_procedure.prk.part1') .. '\n\n'
+ end
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASEK' )
+ then
+ out = out .. getValue('ref_behandling.kirurgisk_procedure.lasek.part1') .. '\n\n'
+ end
+
+ out = out .. 'Fotoablation:\n'
+ out = out .. 'Algoritme: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.algoritme') .. '\n'
+ out = out .. 'Korrektion: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.sf') .. ' sf ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.cyl') .. ' x ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.grader') .. '\n'
+ out = out .. 'Ablationsdiameter: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.ablationsdiameter') .. ' mm\n'
+ out = out .. 'Ablationsdybde: ' .. getValue('ref_behandling.kirurgisk_procedure.fotoablation.ablationsdybde') .. ' um\n\n'
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASIK' )
+ then
+ out = out .. getValue('ref_behandling.kirurgisk_procedure.lasik.part2') .. '\n\n'
+ end
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'PRK' )
+ then
+ out = out .. getValue('ref_behandling.kirurgisk_procedure.prk.part2') .. '\n\n'
+ end
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'reLASIK' )
+ then
+ out = out .. getValue('ref_behandling.kirurgisk_procedure.relasik.part2') .. '\n\n'
+ end
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'rePRK' )
+ then
+ out = out .. getValue('ref_behandling.kirurgisk_procedure.prk.part2') .. '\n\n'
+ end
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASEK' )
+ then
+ out = out .. getValue('ref_behandling.kirurgisk_procedure.lasek.part2') .. '\n\n'
+ end
+
+ out = out .. 'Der dryppes med ' .. getValue('ref_behandling.kirurgisk_procedure.drypperegime') .. '\n\n'
+
+ if ( getValue('ref_behandling.kirurgisk_procedure.komplikationer') ~= '' )
+ then
+ out = out .. 'Komplikationer: ' .. getValue('ref_behandling.kirurgisk_procedure.komplikationer')
+ end
+
+ return out
+ </resume>
+ <queries>
+ </queries>
+ <maps>
+ </maps>
+ <scripts>
+ <script language="lua" name="type">
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASIK' )
+ then
+ enable('lasik_frame1')
+ disable('prk_frame1')
+ disable('relasik_frame1')
+ disable('lasek_frame1')
+ enable('lasik_frame2')
+ disable('prk_frame2')
+ disable('relasik_frame2')
+ disable('lasek_frame2')
+ end
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'PRK' )
+ then
+ disable('lasik_frame1')
+ enable('prk_frame1')
+ disable('relasik_frame1')
+ disable('lasek_frame1')
+ disable('lasik_frame2')
+ enable('prk_frame2')
+ disable('relasik_frame2')
+ disable('lasek_frame2')
+ end
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'reLASIK' )
+ then
+ disable('lasik_frame1')
+ disable('prk_frame1')
+ enable('relasik_frame1')
+ disable('lasek_frame1')
+ disable('lasik_frame2')
+ disable('prk_frame2')
+ enable('relasik_frame2')
+ disable('lasek_frame2')
+ end
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'rePRK' )
+ then
+ disable('lasik_frame1')
+ enable('prk_frame1')
+ disable('relasik_frame1')
+ disable('lasek_frame1')
+ disable('lasik_frame2')
+ enable('prk_frame2')
+ disable('relasik_frame2')
+ disable('lasek_frame2')
+ end
+ if ( getValue('ref_behandling.kirurgisk_procedure.type') == 'LASEK' )
+ then
+ disable('lasik_frame1')
+ disable('prk_frame1')
+ disable('relasik_frame1')
+ enable('lasek_frame1')
+ disable('lasik_frame2')
+ disable('prk_frame2')
+ disable('relasik_frame2')
+ enable('lasek_frame2')
+ end
+ return true
+ </script>
+ <script language="lua" name="femtosekundlaser_check">
+ if ( getValue('ref_behandling.kirurgisk_procedure.lasik.method') == 'femtosekundlaser' )
+ then
+ enable('femtosekundlaser')
+ else
+ disable('femtosekundlaser')
+ end
+ return true
+ </script>
+ <script language="lua" name="lt12gt0">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) >= 0 and tonumber(value) <= 12)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ <script language="lua" name="lt500gt0">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) >= 0 and tonumber(value) <= 500)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ <script language="lua" name="lt180gt0">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) >= 0 and tonumber(value) <= 180)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ <script language="lua" name="lt20gt-25">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) >= -25 and tonumber(value) <= 20)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ <script language="lua" name="lt10gt-15">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) >= -15 and tonumber(value) <= 10)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ <script language="lua" name="lt179gt0">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) >= 0 and tonumber(value) <= 179)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ <script language="lua" name="lt12gt0">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) >= 0 and tonumber(value) <= 12)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ <script language="lua" name="lt500gt0">
+ if(value == '')
+ then
+ return false
+ end
+
+ value = string.gsub(value, ',', '.')
+ if(tonumber(value) >= 0 and tonumber(value) <= 500)
+ then
+ return true
+ else
+ return false
+ end
+ </script>
+ <script language="lua" name="not0">
+ if(value == 'Ikke udfyldt')
+ then
+ return false
+ end
+ return true
+ </script>
+ </scripts>
+ <widgets caption="Kirurgisk procedure" layout="vbox">
+ <frame caption="1." layout="vbox">
+ <label caption="I Oxybuprokain dråbeanæstesi foretages:"/>
+ <frame layout="hbox">
+ <combobox name="ref_behandling.kirurgisk_procedure.type" value="" script="type">
+ <item caption="LASIK" value="LASIK"/>
+ <item caption="PRK" value="PRK"/>
+ <item caption="reLASIK" value="reLASIK"/>
+ <item caption="rePRK" value="rePRK"/>
+ <item caption="LASEK" value="LASEK"/>
+ </combobox>
+ <label caption="på"/>
+ <combobox name="ref_behandling.kirurgisk_procedure.eye" value="">
+ <item caption="højre" value="højre"/>
+ <item caption="venstre" value="venstre"/>
+ </combobox>
+ <label caption="øje"/>
+ <spacer/>
+ </frame>
+ </frame>
+
+ <!-- Begin 2nd outer frame -->
+ <frame caption="2." layout="vbox">
+
+ <!-- LASIK frame -->
+ <frame name="lasik_frame1" caption="LASIK" layout="vbox">
+ <label caption="LASIK flappen skæres med:"/>
+ <altcombobox name="ref_behandling.kirurgisk_procedure.lasik.method" value="" layout="vbox" script="femtosekundlaser_check">
+ <item caption="Ikke udfyldt" value=""/>
+ <item caption="Moria M2 90 SU" value="Moria M2 90 SU"/>
+ <item caption="Moria M2 130" value="Moria M2 130"/>
+ <item caption="femtosekundlaser" value="femtosekundlaser"/>
+ <altitem caption="Andet" value="andet" innerwidget="lasik_andet" layout="hbox">
+ <label caption="Andet:"/>
+ <lineedit name="lasik_andet" regexp="[0-9]+(,\d+|\d*)"/>
+ </altitem>
+ </altcombobox>
+ <frame name="femtosekundlaser" layout="vbox">
+ <frame layout="hbox">
+ <label caption="Flapdiameter:"/>
+ <lineedit name="ref_behandling.kirurgisk_procedure.lasik.flapdiameter" regexp="\d{1,2},\d{1}"/>
+ <label caption="mm"/>
+ <spacer/>
+ </frame>
+ <frame layout="hbox">
+ <label caption="Flaptykkelse:"/>
+ <lineedit name="ref_behandling.kirurgisk_procedure.lasik.flaptykkelse" regexp="\d{1,3}"/>
+ <label caption="um"/>
+ <spacer/>
+ </frame>
+ <frame layout="hbox">
+ <label caption="Kantprofil:"/>
+ <lineedit name="ref_behandling.kirurgisk_procedure.lasik.kantprofil" regexp="\d{1,3},\d{1}"/>
+ <spacer/>
+ </frame>
+ </frame>
+ </frame>
+
+ <!-- PRK frame -->
+ <frame name="prk_frame1" caption="PRK / rePRK" layout="vbox">
+ <checkbox name="ref_behandling.kirurgisk_procedure.prk.part1" caption="Efter touchering med 96% alkohol fjernes epithelet i de centrale 8 mm." truevalue="Efter touchering med 96% alkohol fjernes epithelet i de centrale 8 mm." falsevalue=""/>
+ </frame>
+
+ <!-- reLASIK frame -->
+ <frame name="relasik_frame1" caption="reLASIK" layout="vbox">
+ <checkbox name="ref_behandling.kirurgisk_procedure.relasik.part1" caption="Med Sinskey-hook åbnes kanten af den gamle flap, hvorefter flappen løftes med flap-lifter." truevalue="Med Sinskey-hook åbnes kanten af den gamle flap, hvorefter flappen løftes med flap-lifter." falsevalue=""/>
+ </frame>
+
+ <!-- LASEK frame -->
+ <frame name="lasek_frame1" caption="LASEK" layout="vbox">
+ <checkbox name="ref_behandling.kirurgisk_procedure.lasek.part1" caption="Efter applikation af 20% alkohol i 20 sek løftes epithelet i de centrale 8 mm til side." truevalue="Efter applikation af 20% alkohol i 20 sek løftes epithelet i de centrale 8 mm til side." falsevalue=""/>
+ </frame>
+
+ <!-- End 2nd outer frame -->
+ </frame>
+
+ <!-- Fotoablation frame -->
+ <frame name="fotoablation_frame" caption="3. Fotoablation" layout="vbox">
+ <frame layout="hbox">
+ <label caption="Algoritme:"/>
+ <combobox name="ref_behandling.kirurgisk_procedure.fotoablation.algoritme">
+ <item caption="Smart" value="Smart"/>
+ <item caption="Tissue saving" value="Tissue saving"/>
+ <item caption="Topografistyret" value="Topografistyret"/>
+ <item caption="Bølgefrontstyret" value="Bølgefrontstyret"/>
+ </combobox>
+ <spacer/>
+ </frame>
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label/>
+ <label caption="Korrektion:"/>
+ </frame>
+ <frame layout="vbox">
+ <label caption="Sf:"/>
+ <lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.sf" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt20gt-25" value=""/>
+ </frame>
+ <frame layout="vbox">
+ <label caption="Cyl:"/>
+ <lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.cyl" regexp="[+-]{0,1}\d{1,2},\d{2}" script="lt10gt-15" value=""/>
+ </frame>
+ <frame layout="vbox">
+ <label caption="Grader:"/>
+ <lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.grader" regexp="[\d]+" script="lt179gt0" value=""/>
+ </frame>
+ </frame>
+ <frame layout="hbox">
+ <label caption="Ablationsdiameter:"/>
+ <lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.ablationsdiameter" script="lt12gt0" regexp="\d{1,2},\d{1}"/>
+ <label caption="mm"/>
+ <spacer/>
+ </frame>
+ <frame layout="hbox">
+ <label caption="Ablationsdybde:"/>
+ <lineedit name="ref_behandling.kirurgisk_procedure.fotoablation.ablationsdybde" script="lt500gt0" regexp="\d{1,3}"/>
+ <label caption="um"/>
+ <spacer/>
+ </frame>
+ </frame>
+
+ <!-- Begin 3rd outer frame -->
+ <frame caption="4." layout="vbox">
+
+ <!-- LASIK frame -->
+ <frame name="lasik_frame2" caption="LASIK" layout="vbox">
+ <checkbox name="ref_behandling.kirurgisk_procedure.lasik.part2" caption="LASIK flappen replaceres. Der irrigeres med isotont saltvand, og flappen tørrer i 2 minutter." truevalue="LASIK flappen replaceres. Der irrigeres med isotont saltvand, og flappen tørrer i 2 minutter." falsevalue=""/>
+ </frame>
+
+ <!-- PRK frame -->
+ <frame name="prk_frame2" caption="PRK / rePRK" layout="vbox">
+ <checkbox name="ref_behandling.kirurgisk_procedure.prk.part2" caption="Der appliceres 0,02% Mitomycin C på swap i 20 sekunder fuldt af irrigation med isotont saltvand" truevalue="Der appliceres 0,02% Mitomycin C på swap i 20 sekunder fuldt af irrigation med isotont saltvand." falsevalue=""/>
+ </frame>
+
+ <!-- reLASIK frame -->
+ <frame name="relasik_frame2" caption="reLASIK" layout="vbox">
+ <checkbox name="ref_behandling.kirurgisk_procedure.relasik.part2" caption="LASIK flappen replaceres. Der irrigeres med isotont saltvand, og flappen tørrer i 2 minutter." truevalue="LASIK flappen replaceres. Der irrigeres med isotont saltvand, og flappen tørrer i 2 minutter." falsevalue=""/>
+ </frame>
+
+ <!-- LASEK frame -->
+ <frame name="lasek_frame2" caption="LASEK" layout="vbox">
+ <checkbox name="ref_behandling.kirurgisk_procedure.lasek.part2" caption="Epithelet replaceres." truevalue="Epithelet replaceres." falsevalue=""/>
+ </frame>
+
+ <!-- End 3rd outer frame -->
+ </frame>
+
+ <!-- Øjendrypning frame -->
+ <frame name="oejendrypning_frame" caption="5. Øjendrypning" layout="vbox">
+ <frame layout="hbox">
+ <label caption="Drypperegime:"/>
+ <combobox name="ref_behandling.kirurgisk_procedure.drypperegime">
+ <item caption="Kloramfenikol 0,5% og Voltaren 0,1%" value="Kloramfenikol 0,5% og Voltaren 0,1%"/>
+ <item caption="Ciloxan 0,3% og Voltaren 0,1%" value="Ciloxan 0,3% og Voltaren 0,1%"/>
+ <item caption="Kloramfenikolsalve 1% og Voltaren 0,1%" value="Kloramfenikolsalve 1% og Voltaren 0,1%"/>
+ <item caption="Ciloxsalve 0,3% og Voltaren 0,1%" value="Ciloxsalve 0,3% og Voltaren 0,1%"/>
+ </combobox>
+ <spacer/>
+ </frame>
+ </frame>
+
+ <!-- Komplikationer frame -->
+ <frame name="komplikationer_frame" caption="6. Komplikationer" layout="vbox">
+ <textedit name="ref_behandling.kirurgisk_procedure.komplikationer"/>
+ </frame>
+
+ <!-- Knapper -->
+ <frame layout="hbox">
+ <spacer />
+ <button caption="Gem" action="commit"/>
+ </frame>
+ </widgets>
+</macro>
diff --git a/server/xml/macros/ref_behandling-klargoering-1.0.xml b/server/xml/macros/ref_behandling-klargoering-1.0.xml
new file mode 100644
index 0000000..ea28f9b
--- /dev/null
+++ b/server/xml/macros/ref_behandling-klargoering-1.0.xml
@@ -0,0 +1,29 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<macro name="ref_behandling.klargoering" version="1.0">
+ <resume language="lua">
+ out = ''
+ out = out .. 'Patienten er klargjort til refraktiv kirurgi i henhold til afdelingens instruks.\n'
+ out = out .. 'Klargøring udført af: ' .. getValue('ref_behandling.klargoering.initialer')
+ return out
+ </resume>
+ <queries>
+ </queries>
+ <maps>
+ </maps>
+ <scripts>
+ </scripts>
+ <widgets caption="Klargøring" layout="vbox">
+ <label caption="Patienten er klargjort til refraktiv kirurgi i henhold til afdelingens instruks."/>
+ <frame layout="hbox">
+ <label caption="Klargøring udført af (initialer):"/>
+ <lineedit name="ref_behandling.klargoering.initialer" regexp="[a-zæøåA-ZÆØÅ]{2,5}"/>
+ <spacer/>
+ </frame>
+
+ <!-- Knapper -->
+ <frame layout="hbox">
+ <spacer />
+ <button caption="Gem" action="commit"/>
+ </frame>
+ </widgets>
+</macro>
--
cgit v1.2.3