From df88d843e13bcd3da067b882d91fc4c02365a1af Mon Sep 17 00:00:00 2001
From: deva <deva>
Date: Mon, 2 Mar 2009 07:52:10 +0000
Subject: Macro fix
---
server/xml/macros/B.2.2.4.1.xml | 24 ++++++++++++------------
server/xml/macros/B.2.2.4.2.xml | 25 +++++++++++++++----------
server/xml/macros/B.2.2.6.xml | 2 +-
server/xml/macros/B.2.7.2.xml | 17 +++++++++++------
server/xml/macros/B.2.7.3.xml | 18 ++++++++++--------
server/xml/macros/B.3.1.1.xml | 7 +++++--
server/xml/macros/B.3.1.2.xml | 19 +++++++++++++------
server/xml/macros/B.3.1.3.xml | 16 ++++++++++++++--
8 files changed, 81 insertions(+), 47 deletions(-)
(limited to 'server')
diff --git a/server/xml/macros/B.2.2.4.1.xml b/server/xml/macros/B.2.2.4.1.xml
index 40c8e85..cf5af85 100644
--- a/server/xml/macros/B.2.2.4.1.xml
+++ b/server/xml/macros/B.2.2.4.1.xml
@@ -14,21 +14,21 @@
<macro name="B.2.2.4.1" version="1.0">
<resume language="lua">
out = ''
- if ( getValue('oct.right.missing') == '' )
+ if ( getValue('oct.right.missing') == '' or getValue('oct.left.missing') == '' )
then
- out = out .. 'Central nethindetykkelse, højre: ' .. getValue('oct.right.thickness')
- .. ' µm\n'
- end
+ out = out .. 'Central nethindetykkelse:\n'
- if ( getValue('oct.left.missing') == '' )
- then
- out = out .. 'Central nethindetykkelse, venstre: ' .. getValue('oct.left.thickness')
- .. ' µm\n'
- end
+ if ( getValue('oct.right.missing') == '' )
+ then
+ out = out .. 'OCT o.dxt ' .. getValue('oct.right.thickness') .. ' µm\n'
+ end
- if ( getValue('oct.comments') ~= '' )
- then
- out = out .. getValue('oct.comments') .. '\n'
+ if ( getValue('oct.left.missing') == '' )
+ then
+ out = out .. 'OCT o.sin ' .. getValue('oct.left.thickness') .. ' µm\n'
+ end
+
+ out = out .. 'Anamnese som anført'
end
return out
diff --git a/server/xml/macros/B.2.2.4.2.xml b/server/xml/macros/B.2.2.4.2.xml
index 3980234..d4735c0 100644
--- a/server/xml/macros/B.2.2.4.2.xml
+++ b/server/xml/macros/B.2.2.4.2.xml
@@ -14,17 +14,22 @@
<macro name="B.2.2.4.2" version="1.0">
<resume language="lua">
out = ''
- if ( getValue('oct.right.missing') == '' )
- then
- out = out .. 'Central nethindetykkelse, højre: ' .. getValue('oct.right.thickness')
- .. ' µm, ' .. getValue('oct.right.description') .. '.\n'
- end
+ if ( getValue('oct.right.missing') == '' or getValue('oct.left.missing') == '' )
+ then
+ out = out .. 'Central nethindetykkelse:\n'
- if ( getValue('oct.left.missing') == '' )
- then
- out = out .. 'Central nethindetykkelse, venstre: ' .. getValue('oct.left.thickness')
- .. ' µm, ' .. getValue('oct.left.description') .. '.\n'
- end
+ if ( getValue('oct.right.missing') == '' )
+ then
+ out = out .. 'OCT o.dxt ' .. getValue('oct.right.thickness') .. ' µm '
+ .. getValue('oct.right.description') .. '.\n'
+ end
+
+ if ( getValue('oct.left.missing') == '' )
+ then
+ out = out .. 'OCT o.sin ' .. getValue('oct.left.thickness') .. ' µm '
+ .. getValue('oct.left.description') .. '.\n'
+ end
+ end
if ( getValue('oct.comments') ~= '' )
then
diff --git a/server/xml/macros/B.2.2.6.xml b/server/xml/macros/B.2.2.6.xml
index 37c04e8..3b05bf8 100644
--- a/server/xml/macros/B.2.2.6.xml
+++ b/server/xml/macros/B.2.2.6.xml
@@ -16,7 +16,7 @@
out = ''
if ( getValue('slit_lamp.right.missing') == '' or getValue('slit_lamp.left.missing') == '' )
then
- out = out .. 'Spaltelampe:\n'
+ out = out .. 'Spl:\n'
end
if ( getValue('slit_lamp.right.missing') == '' )
diff --git a/server/xml/macros/B.2.7.2.xml b/server/xml/macros/B.2.7.2.xml
index 7ae99b7..269b387 100644
--- a/server/xml/macros/B.2.7.2.xml
+++ b/server/xml/macros/B.2.7.2.xml
@@ -5,8 +5,12 @@
-->
<macro name="B.2.7.2" version="1.0">
<resume>Undersøgelsen viser god fyldning af det retinale kartrø.
-Svarende til det retinale ødem ses der i de tidlige faser ${fluorescens.early_fases}.
-Gennem de angiografiske faser udvikles der ${fluorescens.angiografic_fases}.</resume>
+
+Svarende til det retinale ødem ses der i de tidlige faser
+${fluorescens.early_fases}.
+
+Gennem de angiografiske faser udvikles der
+${fluorescens.angiografic_fases}.</resume>
<queries>
</queries>
<maps>
@@ -29,13 +33,14 @@ Gennem de angiografiske faser udvikles der ${fluorescens.angiografic_fases}.</re
<label caption="Tidlige faser:"/>
<combobox name="fluorescens.early_fases" value="">
- <item caption="Hyperfluorescens" value="hyperfluorescens" />
- <item caption="Hypofluorescens" value="hypofluorescens" />
- <item caption="Normalt fluorescensmønster" value="normalt fluorescensmønster" />
+ <item caption="Hyperfluorescens" value="Hyperfluorescens" />
+ <item caption="Hypofluorescens" value="Hypofluorescens" />
+ <item caption="Normalt fluorescensmønster" value="Normalt fluorescens mønster" />
</combobox>
<label caption="Angiografiske faser:" />
- <altcombobox name="fluorescens.angiografic_fases" value="ingen ændringer i fluorescensen" layout="vbox">
+ <altcombobox name="fluorescens.angiografic_fases"
+ value="ingen ændringer i fluorescensen" layout="vbox">
<item caption="Ingen ændringer i fluorescensen"
value="ingen ændringer i fluorescensen" />
<item caption="Gradvis tiltagende fluorescens, i senfaserne, velafgrænset med retinale kar som negative skygger henover"
diff --git a/server/xml/macros/B.2.7.3.xml b/server/xml/macros/B.2.7.3.xml
index 857c88b..4327a9e 100644
--- a/server/xml/macros/B.2.7.3.xml
+++ b/server/xml/macros/B.2.7.3.xml
@@ -16,12 +16,14 @@
<resume language="lua">
out = 'Konklusion:\n'
- if( getValue('fluorescens.conclusion') == 'Klassisk subretinal karnydannelse.'
+ 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 .. 'Membran placering: ' .. getValue('fluorescens.membrane.position') .. '\n'
- out = out .. 'Membranstørrelse: ' .. getValue('fluorescens.membrane.size') .. 'µm\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
@@ -41,7 +43,7 @@
<script language="lua" name="angiografi_konklusion">
-- This script sets the value of additional according to conclusion.
- if( getValue('fluorescens.conclusion') == 'Klassisk subretinal karnydannelse.'
+ if( getValue('fluorescens.conclusion') == 'Klassisk subretinal neovaskulær membran.'
or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
then
enable('yderligere_info_frame')
@@ -79,7 +81,7 @@
<item caption="Pigmentepitelløsning. Der findes ingen behandlingsindikation"
value="Pigmentepitelløsning. Der findes ingen behandlingsindikation." />
<item caption="Klassisk subretinal karnydannelse"
- value="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"
@@ -101,9 +103,9 @@
<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" />
+ <item caption="Subfovealt" value="Subfovealt" />
+ <item caption="Juxtafovealt" value="Juxtafovealt" />
+ <item caption="Extrafovealt" value="Extrafovealt" />
</combobox>
<spacer/>
</frame>
diff --git a/server/xml/macros/B.3.1.1.xml b/server/xml/macros/B.3.1.1.xml
index c66cffc..bdb1705 100644
--- a/server/xml/macros/B.3.1.1.xml
+++ b/server/xml/macros/B.3.1.1.xml
@@ -1,6 +1,9 @@
<?xml version='1.0' encoding='UTF-8'?>
<macro name="B.3.1.1" version="1.0">
- <resume store_in_journal="false"></resume>
+ <resume>Der findes indikation for intravitreal injektion med Lucentis.
+Pt. klargøres i henhold til afdelingens instruks.
+Klargøring udført af: ${intravitreal.initials}
+</resume>
<queries>
</queries>
<maps>
@@ -12,7 +15,7 @@
<label caption="Der er fundet indikation for intravitreal injektion med Lucentis og patienten klargøres i henhold til afdelingens instruks."/>
<frame layout="hbox">
<label caption="Initialer:"/>
- <lineedit name="intravitreal_initials"/>
+ <lineedit name="intravitreal.initials" regexp="[a-zæøåA-ZÆØÅ]{2,5}"/>
</frame>
</frame>
<frame layout="hbox">
diff --git a/server/xml/macros/B.3.1.2.xml b/server/xml/macros/B.3.1.2.xml
index 2391b0e..bf4058f 100644
--- a/server/xml/macros/B.3.1.2.xml
+++ b/server/xml/macros/B.3.1.2.xml
@@ -1,11 +1,18 @@
<?xml version='1.0' encoding='UTF-8'?>
<macro name="B.3.1.2" version="1.0">
- <resume store_in_journal="false"></resume>
- <queries>
- </queries>
+ <resume>De 5 trin til forebyggelse af forveksling af øjnene er gennemgået.</resume>
+ <queries></queries>
<maps>
</maps>
<scripts>
+ <script language="lua" name="yes_only">
+ if ( value == 'ja' )
+ then
+ return true
+ else
+ return false
+ end
+ </script>
</scripts>
<window caption="Gennemgang af de 5 trin (B.3.1.2)" layout="vbox">
<frame layout="vbox">
@@ -13,9 +20,9 @@
<label caption="De 5 trin til forebyggelse af forveksling af øjnene er gennemgået:"/>
</frame>
<frame layout="hbox">
- <radiobuttons name="five_steps_radiobutton">
- <radiobutton value="five_steps_yes" caption="Ja"/>
- <radiobutton value="five_steps_no" caption="Nej"/>
+ <radiobuttons name="five_steps" script="yes_only">
+ <radiobutton value="ja" caption="Ja"/>
+ <radiobutton value="nej" caption="Nej"/>
</radiobuttons>
<spacer />
</frame>
diff --git a/server/xml/macros/B.3.1.3.xml b/server/xml/macros/B.3.1.3.xml
index 3562523..2ea7743 100644
--- a/server/xml/macros/B.3.1.3.xml
+++ b/server/xml/macros/B.3.1.3.xml
@@ -1,6 +1,18 @@
<?xml version='1.0' encoding='UTF-8'?>
<macro name="B.3.1.3" version="1.0">
- <resume store_in_journal="false"></resume>
+ <resume>Der afvaskes periorbitalt med Povidoniodid og efterfølgende dryppes
+der med Povidoniodid. Efter 5 minutter bedøves med en spongostan swap
+vædet i Lidokain 20 mg/ml med Adrenalin.
+Injektionsstedet nedadtil temporalt i konjunktiva 3,5 mm fra limbus
+afmærkes med passer. Gennem 30 gauge kanyle gives 0,05 ml:
+
+Lucentis ${lucentis_treatment.eye}
+
+Der dryppes med oculoguttae Tobrex over injektionsstedet.
+Herefter medgives oculoguttae Tobrex til drypning x 2 i 2 døgn i det
+behandlede øje.
+Der gives tid til kontrol og fornyet behandling om 1 måned.
+Møder til kontrol 1 måned efter behandling med Lucentis.</resume>
<queries>
</queries>
<maps>
@@ -13,7 +25,7 @@
Injektionsstedet nedadtil temporalt i konjunktiva afmærkes med passer 3,5 mm fra limbus."/>
<frame layout="hbox">
<label width="250" caption="Med 30 gauge kanyle gives 0,05 ml Lucentis"/>
- <radiobuttons name="tekst_odxt_osin">
+ <radiobuttons name="lucentis_treatment.eye">
<radiobutton value="o.dxt" caption="o.dxt"/>
<radiobutton value="o.sin" caption="o.sin"/>
</radiobuttons>
--
cgit v1.2.3