From 8eade25e7f7a390b67e37f48d61454af0c1e9363 Mon Sep 17 00:00:00 2001
From: deva <deva>
Date: Thu, 6 Aug 2009 08:55:51 +0000
Subject: Renamed all macros to Danish.

---
 server/xml/macros/vurdering_af_fundus-1.0.xml | 58 +++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 server/xml/macros/vurdering_af_fundus-1.0.xml

(limited to 'server/xml/macros/vurdering_af_fundus-1.0.xml')

diff --git a/server/xml/macros/vurdering_af_fundus-1.0.xml b/server/xml/macros/vurdering_af_fundus-1.0.xml
new file mode 100644
index 0000000..f7ca475
--- /dev/null
+++ b/server/xml/macros/vurdering_af_fundus-1.0.xml
@@ -0,0 +1,58 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<!--
+    20090420: Bent Bisballe Nyeng
+    Resume opdateret så det altid inkluderer både randhæmorrhagier og
+    exsudater, både hvis de er observerede og hvis de ikke er det.
+  -->
+<macro name="vurdering_af_fundus" version="1.0">
+  <resume language="lua">
+    out = '90-D undersøgelse:\nDer findes '
+    if(getValue('fundus.randh') == '' and getValue('fundus.exsud') == '')
+    then
+      out = out .. 'ingen randhæmorrhagier eller exsudater'
+    else
+      if(getValue('fundus.randh') ~= '' and getValue('fundus.exsud') ~= '')
+      then
+        out = out .. 'randhæmorrhagier og exsudater'
+      else
+        if(getValue('fundus.randh') ~= '')
+        then
+          out = out .. 'randhæmorrhagier, men ingen exsudater'
+        end
+        if(getValue('fundus.exsud') ~= '')
+        then
+          out = out .. 'ingen randhæmorrhagier, men exsudater'
+        end
+      end
+    end
+    out = out .. '.\n'
+    return out
+  </resume>
+  <queries>
+  </queries>
+  <maps>
+  </maps>
+  <scripts>
+  </scripts>
+  <widgets caption="Vurdering af fundus (B.2.5)"
+          layout="vbox">
+
+    <combobox name="fundus.source" value="">
+      <item caption="Fundus foto" value="Fundus foto"/>
+      <item caption="90-D linse undersøgelse" value="90-D linse undersøgelse"/>
+    </combobox>
+
+    <label caption="viser"/>
+
+    <checkbox name="fundus.randh" caption="Randhæmorrhagier"
+	      truevalue="Randhæmorrhagier" falsevalue="" value=""/>
+    <checkbox name="fundus.exsud" caption="Exsudater"
+	      truevalue="Exsudater" falsevalue="" value=""/>
+
+    <!-- Knapper -->
+    <frame layout="hbox">
+      <spacer/>
+      <button caption="Gem" action="commit"/>
+    </frame>
+  </widgets>
+</macro>
-- 
cgit v1.2.3