Initial release of tao_aktuelle

1 files changed, 156 insertions, 0 deletions

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>