diff options
| -rw-r--r-- | server/xml/macros/tao_aktuelle-1.0.xml | 156 |
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> |