From 346a1fa9097b0673e690c7760e68531f6610d3a2 Mon Sep 17 00:00:00 2001
From: senator <senator>
Date: Wed, 28 Apr 2010 09:20:56 +0000
Subject: Initial release of tao_aktuelle
---
server/xml/macros/tao_aktuelle-1.0.xml | 156 +++++++++++++++++++++++++++++++++
1 file changed, 156 insertions(+)
create mode 100644 server/xml/macros/tao_aktuelle-1.0.xml
(limited to 'server/xml')
diff --git a/server/xml/macros/tao_aktuelle-1.0.xml b/server/xml/macros/tao_aktuelle-1.0.xml
new file mode 100644
index 0000000..6ecd8ce
--- /dev/null
+++ b/server/xml/macros/tao_aktuelle-1.0.xml
@@ -0,0 +1,156 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<macro name="tao_aktuelle" version="1.0">
+ <resume language="lua">
+ out = ''
+
+ if ( getValue('tao_aktuelle.thyreotoxicose') ~= 'ikke diagnosticeret' )
+ then
+ out = out .. 'Thyreotoxicose siden ' .. os.date('%b %Y', tonumber(getValue('tao_aktuelle.thyreotoxicose.dato'))) .. '. '
+ out = out .. 'På ' .. getValue('tao_aktuelle.thyreotoxicose.oeje') .. ' er der '
+
+ if ( getValue('tao_aktuelle.thyreotoxicose.roedme') ~= '' )
+ then
+ out = out .. getValue('tao_aktuelle.thyreotoxicose.roedme')
+ if ( getValue('tao_aktuelle.thyreotoxicose.kloee') ~= '' or getValue('tao_aktuelle.thyreotoxicose.dobbeltsyn') ~= '' or getValue('tao_aktuelle.thyreotoxicose.smerter') ~= '' or getValue('tao_aktuelle.thyreotoxicose.symptom_andet') ~= '' )
+ then
+ out = out .. ', '
+ end
+ end
+
+ if ( getValue('tao_aktuelle.thyreotoxicose.kloee') ~= '' )
+ then
+ out = out .. getValue('tao_aktuelle.thyreotoxicose.kloee')
+ if ( getValue('tao_aktuelle.thyreotoxicose.dobbeltsyn') ~= '' or getValue('tao_aktuelle.thyreotoxicose.smerter') ~= '' or getValue('tao_aktuelle.thyreotoxicose.symptom_andet') ~= '' )
+ then
+ out = out .. ', '
+ end
+ end
+
+ if ( getValue('tao_aktuelle.thyreotoxicose.dobbeltsyn') ~= '' )
+ then
+ out = out .. getValue('tao_aktuelle.thyreotoxicose.dobbeltsyn')
+ if ( getValue('tao_aktuelle.thyreotoxicose.smerter') ~= '' or getValue('tao_aktuelle.thyreotoxicose.symptom_andet') ~= '' )
+ then
+ out = out .. ', '
+ end
+ end
+
+ if ( getValue('tao_aktuelle.thyreotoxicose.smerter') ~= '' )
+ then
+ out = out .. getValue('tao_aktuelle.thyreotoxicose.smerter')
+ if ( getValue('tao_aktuelle.thyreotoxicose.symptom_andet') ~= '' )
+ then
+ out = out .. ', '
+ end
+ end
+
+ if ( getValue('tao_aktuelle.thyreotoxicose.symptom_andet') ~= '' )
+ then
+ out = out .. getValue('tao_aktuelle.thyreotoxicose.symptom_andet')
+ end
+
+ out = out .. '.\n'
+
+ out = out .. 'Symptomerne er opstået ' .. getValue('tao_aktuelle.thyreotoxicose.opstaaet') .. ' og er efterfølgende ' .. getValue('tao_aktuelle.thyreotoxicose.efterfoelgende') .. '.'
+
+ else
+ out = out .. 'Thyreotoxicose ikke diagnosticeret.'
+ end
+
+
+ return out
+</resume>
+ <queries>
+ </queries>
+ <maps>
+ <map name="now">
+ -- Set date to now if no other data available within last 24 hours.
+ return os.time(), os.time() - 24*60*60, 'pracro'
+ </map>
+ </maps>
+ <scripts>
+ <script language="lua" name="thyreotoxicose">
+ if (value == 'siden dato')
+ then
+ enable('thyreotoxicose.symptomer')
+ enable('thyreotoxicose.dato')
+ else
+ disable('thyreotoxicose.symptomer')
+ disable('thyreotoxicose.dato')
+ end
+ return true
+ </script>
+ </scripts>
+ <widgets caption="TAO Aktuelle" layout="vbox">
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label caption="Thyreotoxicose"/>
+ <spacer/>
+ </frame>
+ <frame layout="vbox">
+ <combobox name="tao_aktuelle.thyreotoxicose" layout="vbox" script="thyreotoxicose" value="ikke diagnosticeret">
+ <item caption="ikke diagnosticeret" value="ikke diagnosticeret"/>
+ <item caption="siden dato (anfør herunder)" value="siden dato"/>
+ </combobox>
+ <frame layout="hbox" name="thyreotoxicose.dato">
+ <label caption="Dato:"/>
+ <datetime name="tao_aktuelle.thyreotoxicose.dato" fuzziness="2" map="now" value=""/>
+ </frame>
+ </frame>
+ <spacer/>
+ </frame>
+ <frame layout="vbox" name="thyreotoxicose.symptomer" caption="Symptomer">
+ <frame layout="hbox">
+ <frame layout="vbox">
+ <label caption="På"/>
+ <spacer/>
+ <spacer/>
+ </frame>
+ <frame layout="vbox">
+ <combobox name="tao_aktuelle.thyreotoxicose.oeje" layout="vbox">
+ <item caption="højre øje" value="højre øje"/>
+ <item caption="venstre øje" value="venstre øje"/>
+ <item caption="begge øjne" value="begge øjne"/>
+ </combobox>
+ <spacer/>
+ <spacer/>
+ </frame>
+ <frame layout="vbox">
+ <label caption="er der"/>
+ <spacer/>
+ <spacer/>
+ </frame>
+ <frame layout="vbox">
+ <checkbox caption="Rødme" name="tao_aktuelle.thyreotoxicose.roedme" truevalue="rødme" falsevalue="" value=""/>
+ <checkbox caption="Kløe" name="tao_aktuelle.thyreotoxicose.kloee" truevalue="kløe" falsevalue="" value=""/>
+ <checkbox caption="Dobbeltsyn" name="tao_aktuelle.thyreotoxicose.dobbeltsyn" truevalue="dobbeltsyn" falsevalue="" value=""/>
+ <checkbox caption="Smerter" name="tao_aktuelle.thyreotoxicose.smerter" truevalue="smerter" falsevalue="" value=""/>
+ <frame layout="hbox">
+ <label caption="Andet(kommasepareret):"/>
+ <lineedit name="tao_aktuelle.thyreotoxicose.symptom_andet" value=""/>
+ </frame>
+ </frame>
+ <spacer/>
+ </frame>
+ <frame layout="hbox">
+ <label caption="Symptomerne er opstået"/>
+ <combobox name="tao_aktuelle.thyreotoxicose.opstaaet" layout="vbox">
+ <item caption="pludseligt" value="pludseligt"/>
+ <item caption="gradvist" value="gradvist"/>
+ </combobox>
+ <label caption="og er efterfølgende"/>
+ <combobox name="tao_aktuelle.thyreotoxicose.efterfoelgende" layout="vbox">
+ <item caption="forværret" value="forværret"/>
+ <item caption="uændrede" value="uændrede"/>
+ <item caption="forbedret" value="forbedret"/>
+ </combobox>
+ </frame>
+ </frame>
+
+ <!-- Knapper -->
+ <frame layout="hbox">
+ <spacer/>
+ <button caption="Gem" action="commit"/>
+ </frame>
+ </widgets>
+</macro>
--
cgit v1.2.3