summaryrefslogtreecommitdiff
path: root/server
diff options
context:
space:
mode:
Diffstat (limited to 'server')
-rw-r--r--server/xml/macros/B.1.2.xml29
-rw-r--r--server/xml/macros/B.2.1.3.xml220
2 files changed, 188 insertions, 61 deletions
diff --git a/server/xml/macros/B.1.2.xml b/server/xml/macros/B.1.2.xml
index 20463e3..2dd3643 100644
--- a/server/xml/macros/B.1.2.xml
+++ b/server/xml/macros/B.1.2.xml
@@ -8,6 +8,10 @@
Alt tekst ændret.
Layout af multilist input er ændret så det er liniebaseret.
-->
+<!--
+ 20090319: Bent Bisballe Nyeng
+ Øje ændret til combobox istedet for radiobuttons.
+ -->
<macro name="B.1.2" version="1.0">
<resume>Medicin:
${medicin}</resume>
@@ -32,7 +36,7 @@ ${medicin}</resume>
<metawidget name="medicin_list_entry" layout="hbox" format="${prep} x ${dosis}${eye}">
<frame layout="vbox">
- <label caption="Præparat:"/>
+ <label caption="Præparat: ex. 'Primcillin 250 mg (tabl.)'"/>
<dbwidget name="prep" driver="QPSQL" server="sensei.j.auh.dk" user="lmsread" database="lms"
select="drugname, form, strength"
from="package"
@@ -47,20 +51,27 @@ ${medicin}</resume>
</frame>
<frame layout="vbox">
- <label caption="Dosis:" />
- <lineedit name="dosis" width="75"/>
+ <label caption="Dosis: ex. '2 tbl. dagl.'" />
+ <lineedit name="dosis" width="75" value="" regexp=".+"/>
+ </frame>
+
+ <frame layout="vbox">
+ <label caption=""/>
+ <label caption=" - "/>
</frame>
<frame layout="vbox">
<label caption="Øje:"/>
- <radiobuttons name="eye" value="" layout="hbox">
- <radiobutton caption="Ingen" value=""/>
- <radiobutton caption="o.dxt" value=" o.dxt"/>
- <radiobutton caption="o.sin" value=" o.sin"/>
- <radiobutton caption="o.u" value=" o.u"/>
- </radiobuttons>
+ <combobox name="eye" value="">
+ <item caption="Ingen" value=""/>
+ <item caption="o.dxt" value=" o.dxt"/>
+ <item caption="o.sin" value=" o.sin"/>
+ <item caption="o.u" value=" o.u"/>
+ </combobox>
</frame>
+ <spacer />
+
</metawidget>
</multilist>
</frame>
diff --git a/server/xml/macros/B.2.1.3.xml b/server/xml/macros/B.2.1.3.xml
index 588abc6..86ce8fb 100644
--- a/server/xml/macros/B.2.1.3.xml
+++ b/server/xml/macros/B.2.1.3.xml
@@ -16,11 +16,39 @@
20090226: Bent Bisballe Nyeng
Rettet så den rent faktisk indeholder de felter den skal...
-->
+<!--
+ 20090320: Bent Bisballe Nyeng
+ Begge øjne er nu på, på samme tid. Resume er lavet intelligent.
+ -->
<macro name="B.2.1.3" version="1.0">
- <resume>Aktuelle:
-På ${current.eye} øje har der været
-${current.symptoms}
-${current.when} ${current.then}</resume>
+ <resume language="lua">
+ out = 'Aktuelle:\n'
+
+ if ( getValue('current.symptoms.right') == '' and getValue('current.symptoms.left') == '' )
+ then
+ out = out .. 'ingen\n'
+ end
+
+ if ( getValue('current.symptoms.right') ~= '' )
+ then
+ out = out .. 'På højre øje har der været\n'
+ out = out .. getValue('current.symptoms.right') .. '\n'
+ end
+
+ if ( getValue('current.symptoms.left') ~= '' )
+ then
+ out = out .. 'På venstre øje har der været\n'
+ out = out .. getValue('current.symptoms.left') .. '\n'
+ end
+
+ if ( getValue('current.symptoms.right') ~= '' or getValue('current.symptoms.left') ~= '' )
+ then
+ out = out .. 'Symptomerne er opstået ' .. getValue('current.when')
+ .. ' og efterfølgende ' .. getValue('current.then')
+ end
+
+ return out
+ </resume>
<queries>
</queries>
<maps>
@@ -30,31 +58,119 @@ ${current.when} ${current.then}</resume>
</map>
</maps>
<scripts>
+ <script language="lua" name="evolution_enable">
+ if( getValue('current.symptoms.right') ~= '' or getValue('current.symptoms.left') ~= '' )
+ then
+ enable('evolution')
+ else
+ disable('evolution')
+ end
+
+ return true
+ </script>
</scripts>
<window caption="Aktuelle (B.2.1.3)"
layout="vbox">
- <frame layout="vbox">
- <label caption="Aktuelt øje:"/>
- <frame layout="hbox">
- <radiobuttons name="current.eye" value="højre" layout="hbox">
- <radiobutton caption="Højre" value="højre"/>
- <radiobutton caption="Venstre" value="venstre"/>
- </radiobuttons>
- <spacer/>
- </frame>
- </frame>
+ <frame caption="Symptomliste" layout="hbox">
+
+ <frame layout="vbox">
+ <label caption="Højre"/>
+
+ <multilist name="current.symptoms.right" value=""
+ innerwidget="aktuelle_entry_right" script="evolution_enable">
+
+ <metawidget name="aktuelle_entry_right" layout="hbox"
+ formatlanguage="lua"
+ format=
+ "
+ days = (os.time() - tonumber(getValue('date_right'))) / (60 * 60 * 24)
+ num = 0
+ identifier = ''
+ suffix = ''
+
+ if(num == 0 and math.abs(days) ~= days)
+ then
+ num = 0.1
+ identifier = 'dag'
+ suffix = 'e'
+ end
+
+ if(num == 0 and math.floor(days/7) == 0)
+ then
+ num = days
+ identifier = 'dag'
+ suffix = 'e'
+ end
+
+ if(num == 0 and math.floor(days/31) == 0)
+ then
+ num = days / 7
+ identifier = 'uge'
+ suffix = 'r'
+ end
+
+ if(num == 0 and math.floor(days/365) == 0)
+ then
+ num = days / 31
+ identifier = 'måned'
+ suffix = 'er'
+ end
+
+ if(num == 0)
+ then
+ num = days / 365
+ identifier = 'år'
+ suffix = ''
+ end
- <frame caption="Symptomliste">
+ num = math.floor(num * 2) / 2
+ if(num == 1)
+ then
+ suffix = ''
+ end
+
+ return getValue('observeret_right') .. ': igennem ' .. num .. ' '
+ .. identifier .. suffix .. '.'
+ ">
- <multilist name="current.symptoms" value=""
- innerwidget="aktuelle_entry">
+ <frame layout="vbox">
+ <label caption="Observeret:"/>
+ <altcombobox name="observeret_right" layout="vbox" value="Sløret syn">
+ <item caption="Sløret syn" value="Sløret syn"/>
+ <item caption="Mørk plet i synsfeltet" value="Mørk plet i synsfeltet"/>
+ <item caption="Metamorfopsier" value="Metamorfopsier"/>
+ <item caption="Mikropsi" value="Mikropsi"/>
+ <item caption="Dyskromatopsi" value="Dyskromatopsi"/>
+ <altitem caption="Andet" value="andet" layout="hbox" innerwidget="andet_right">
+ <label caption="Andet:"/>
+ <lineedit name="andet_right" value=""/>
+ </altitem>
+ </altcombobox>
+ </frame>
+
+ <frame layout="vbox">
+ <label caption="Dato:"/>
+ <datetime name="date_right" fuzziness="3" map="now"/>
+ <label caption=""/>
+ </frame>
+
+ </metawidget>
+
+ </multilist>
+
+ </frame>
+ <frame layout="vbox">
+ <label caption="Venstre"/>
- <metawidget name="aktuelle_entry" layout="hbox"
- formatlanguage="lua"
- format=
+ <multilist name="current.symptoms.left" value=""
+ innerwidget="aktuelle_entry_left" script="evolution_enable">
+
+ <metawidget name="aktuelle_entry_left" layout="hbox"
+ formatlanguage="lua"
+ format=
"
- days = (os.time() - tonumber(getValue('date'))) / (60 * 60 * 24)
+ days = (os.time() - tonumber(getValue('date_left'))) / (60 * 60 * 24)
num = 0
identifier = ''
suffix = ''
@@ -100,47 +216,47 @@ ${current.when} ${current.then}</resume>
suffix = ''
end
- return getValue('observeret') .. ': igennem ' .. num .. ' '
+ return getValue('observeret_left') .. ': igennem ' .. num .. ' '
.. identifier .. suffix .. '.'
">
- <frame layout="vbox">
- <label caption="Observeret:"/>
- <altcombobox name="observeret" layout="vbox" value="Sløret syn">
- <item caption="Sløret syn" value="Sløret syn"/>
- <item caption="Mørk plet i synsfeltet" value="Mørk plet i synsfeltet"/>
- <item caption="Metamorfopsier" value="Metamorfopsier"/>
- <item caption="Mikropsi" value="Mikropsi"/>
- <item caption="Dyskromatopsi" value="Dyskromatopsi"/>
- <altitem caption="Andet" value="andet" layout="hbox" innerwidget="andet">
- <label caption="Andet:"/>
- <lineedit name="andet" value=""/>
- </altitem>
- </altcombobox>
- </frame>
-
- <frame layout="vbox">
- <label caption="Dato:"/>
- <datetime name="date" fuzziness="3" map="now"/>
- <label caption=""/>
- </frame>
-
- <spacer/>
+ <frame layout="vbox">
+ <label caption="Observeret:"/>
+ <altcombobox name="observeret_left" layout="vbox" value="Sløret syn">
+ <item caption="Sløret syn" value="Sløret syn"/>
+ <item caption="Mørk plet i synsfeltet" value="Mørk plet i synsfeltet"/>
+ <item caption="Metamorfopsier" value="Metamorfopsier"/>
+ <item caption="Mikropsi" value="Mikropsi"/>
+ <item caption="Dyskromatopsi" value="Dyskromatopsi"/>
+ <altitem caption="Andet" value="andet" layout="hbox" innerwidget="andet_left">
+ <label caption="Andet:"/>
+ <lineedit name="andet_left" value=""/>
+ </altitem>
+ </altcombobox>
+ </frame>
+
+ <frame layout="vbox">
+ <label caption="Dato:"/>
+ <datetime name="date_left" fuzziness="3" map="now"/>
+ <label caption=""/>
+ </frame>
+
+ </metawidget>
- </metawidget>
+ </multilist>
- </multilist>
+ </frame>
</frame>
- <frame layout="hbox">
+ <frame name="evolution" layout="hbox">
<frame layout="vbox">
<label caption="Opstået:"/>
<radiobuttons name="current.when" value="." layout="hbox">
<radiobutton caption="Pludseligt"
- value="Symptomerne er opstået pludseligt"/>
+ value="pludseligt"/>
<radiobutton caption="Gradvist"
- value="Symptomerne er opstået gradvist"/>
+ value="gradvist"/>
</radiobuttons>
<label caption=""/>
</frame>
@@ -148,9 +264,9 @@ ${current.when} ${current.then}</resume>
<frame layout="vbox">
<label caption="Efterfølgende:"/>
<combobox name="current.then" value="og har efterfølgende været uændrede">
- <item caption="Uændret" value="og har efterfølgende været uændrede"/>
- <item caption="Forværret" value="og er efterfølgende forværret"/>
- <item caption="Forbedret" value="og er efterfølgende forbedret"/>
+ <item caption="Uændret" value="uændrede"/>
+ <item caption="Forværret" value="forværret"/>
+ <item caption="Forbedret" value="forbedret"/>
</combobox>
<label caption=""/>
</frame>