From 280c124b7fc384bff6ae0284ae030232711b3598 Mon Sep 17 00:00:00 2001
From: senator <senator>
Date: Wed, 23 Sep 2009 13:52:59 +0000
Subject: added informeret samtykke to ref_forunders

---
 server/xml/macros/boelgefront-1.0.xml              |  72 +++++++++++++-
 .../ref_forunders-informeret_samtykke-1.0.xml      | 104 +++++++++++++++++++++
 2 files changed, 171 insertions(+), 5 deletions(-)
 create mode 100644 server/xml/macros/ref_forunders-informeret_samtykke-1.0.xml

diff --git a/server/xml/macros/boelgefront-1.0.xml b/server/xml/macros/boelgefront-1.0.xml
index f198167..7628f41 100644
--- a/server/xml/macros/boelgefront-1.0.xml
+++ b/server/xml/macros/boelgefront-1.0.xml
@@ -1,25 +1,87 @@
 <?xml version='1.0' encoding='UTF-8'?>
 <macro name="boelgefront" version="1.0">
-  <resume language="pracro">Bølgefront: ${boelgefront}</resume>
+  <resume language="lua">
+    out = ''
+    out = out .. 'Bølgefront: ' .. getValue('boelgefront') .. '\n'
+    if ( getValue('boelgefront') == 'Udført' )
+    then
+      out = out .. 'Aberration: ' .. getValue('boelgefront.aberration') .. ' my\n'
+      out = out .. 'Pupilstørrelse: ' .. getValue('boelgefront.pupilstoerrelse') .. ' mm\n'
+    end
+    return out
+  </resume>
   <queries>
   </queries>
   <maps>
   </maps>
   <scripts>
+    <script language="lua" name="extras_check">
+      if ( getValue('boelgefront') == 'Udført' )
+      then
+        enable('extras')
+      else
+        disable('extras')
+      end
+      return true
+    </script>
+    <script language="lua" name="gt0.1lt0.5">
+      if(value == '')
+      then
+        return false
+      end
+      
+      value = string.gsub(value, ',', '.')
+      if(tonumber(value) &gt;= 0.1 and tonumber(value) &lt;= 0.5)
+      then
+        return true
+      else
+        return false
+      end
+    </script>
+    <script language="lua" name="gt2lt9">
+      if(value == '')
+      then
+        return false
+      end
+
+      value = string.gsub(value, ',', '.')
+      if(tonumber(value) &gt;= 2 and tonumber(value) &lt;= 9)
+      then
+        return true
+      else
+        return false
+      end
+    </script>
   </scripts>
   <widgets caption="Bølgefront" layout="vbox">
 
-    <altcombobox name="boelgefront" value="Ikke udført" layout="vbox">
+    <altcombobox name="boelgefront" value="Ikke udført" layout="vbox" script="extras_check">
       <item caption="Udført" value="Udført"/>
       <item caption="Ikke udført" value="Ikke udført"/>
-      <altitem caption="Andet" value="andet" innerwidget="boelgefront_andet">
+      <altitem caption="Andet" value="andet" innerwidget="boelgefront.andet">
 	<frame layout="hbox">
 	  <label caption="Andet:"/>
-	  <lineedit name="boelgefront_andet"/>
+	  <lineedit name="boelgefront.andet"/>
 	</frame>
       </altitem>
     </altcombobox>
-		
+
+    <frame name="extras" layout="hbox">
+      <frame layout="vbox">
+	<label caption="Aberration:"/>
+	<label caption="Pupilstørrelse:"/>
+      </frame>
+      <frame layout="vbox">
+	<lineedit name="boelgefront.aberration" script="gt0.1lt0.5" regexp="\d{1,2},\d{2}"/>
+	<lineedit name="boelgefront.pupilstoerrelse" script="gt2lt9" regexp="\d{1,2},\d{1}"/>
+      </frame>
+      <frame layout="vbox">
+	<label caption="my"/>
+	<label caption="mm"/>
+      </frame>
+      <spacer/>
+    </frame>
+
     <frame layout="hbox">
       <spacer/>
       <button caption="Gem" action="commit"/>
diff --git a/server/xml/macros/ref_forunders-informeret_samtykke-1.0.xml b/server/xml/macros/ref_forunders-informeret_samtykke-1.0.xml
new file mode 100644
index 0000000..33b486f
--- /dev/null
+++ b/server/xml/macros/ref_forunders-informeret_samtykke-1.0.xml
@@ -0,0 +1,104 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<macro name="ref_forunders.informeret_samtykke" version="1.0">
+  <resume language="lua">
+    out = ''
+    out = out .. 'Informeret samtykke:\n'
+    out = out .. 'Patienten er informeret detaljeret om indgrebet, det forventede resultat samt risici og komplikationer i overensstemmelse med afdelingens retningslinier og giver samtykke til behandling. Patienten er indforstået med den brillestyrke som tilsigtes med operationen, nemlig ' .. getValue('ref_forunders.informeret_samtykke.dioptrier') .. ' dioptrier og ' .. getValue('ref_forunders.informeret_samtykke.cylindre') .. ' cylindre.'
+
+    if ( getValue('ref_forunders.informeret_samtykke.yderligere_kommentarer') ~= '' )
+    then
+    out = out .. '\n'
+    out = out .. getValue('ref_forunders.informeret_samtykke.yderligere_kommentarer')
+    end
+    return out
+  </resume>
+  <queries>
+  </queries>
+  <maps>
+  </maps>
+  <scripts>
+    <script language="lua" name="samtykke">
+      if ( getValue('ref_forunders.informeret_samtykke.informeret_samtykke') == 'true' )
+      then
+        return true
+      end
+      return false
+    </script>
+  </scripts>
+  <widgets caption="Informeret samtykke" layout="vbox">
+    <frame layout="vbox">
+<!--
+	<frame layout="hbox">
+	  <frame layout="vbox">
+	    <label caption="Der aftales"/>
+	    <label/>
+	  </frame>
+	  <altcombobox name="ref_forunders.informeret_samtykke.rebehandling" value="na" layout="vbox" script="rebehandling">
+	    <item caption="Ikke udfyldt" value="na"/>
+	    <item caption="reLASIK" value="reLASIK"/>
+	    <item caption="rePRK" value="rePRK"/>
+	    <item caption="Topografistyret reLASIK" value="Topografistyret reLASIK"/>
+	    <item caption="Topografistyret rePRK" value="Topografistyret rePRK"/>
+	    <altitem caption="Andet" value="andet" layout="hbox" innerwidget="ref_forunders.informeret_samtykke.rebehandling.andet">
+	      <label caption="Andet:"/>
+	      <lineedit name="ref_forunders.informeret_samtykke.rebehandling.andet"/>
+	    </altitem>
+	  </altcombobox>
+	  <frame layout="vbox">
+	    <label caption="Øje:"/>
+	    <label/>
+	  </frame>
+	  <frame layout="vbox">
+	    <combobox name="ref_forunders.informeret_samtykke.oeje" value="">
+	      <item caption="Højre øje" value="højre øje"/>
+	      <item caption="Venstre øje" value="venstre øje"/>
+	      <item caption="Begge øjne" value="begge øjne"/>
+	    </combobox>
+	    <label/>
+	  </frame>
+	  <spacer/>
+	</frame>
+-->
+        <label caption="Patienten er informeret detaljeret om indgrebet, det forventede resultat samt risici og komplikationer i"/>
+	<label caption="overensstemmelse med afdelingens retningslinier og giver samtykke til behandling. Patienten er "/>
+	<label caption="indforstået med den brillestyrke som tilsigtes med operationen (anfør herunder)."/>
+	<frame layout="hbox">
+	  <label caption="Dioptrier:"/>
+	  <combobox name="ref_forunders.informeret_samtykke.dioptrier" value="">
+	    <item caption="-4" value="-4"/>
+	    <item caption="-3" value="-3"/>
+	    <item caption="-2" value="-2"/>
+	    <item caption="-1" value="-1"/>
+	    <item caption="0" value="0"/>
+	    <item caption="1" value="1"/>
+	    <item caption="2" value="2"/>
+	    <item caption="3" value="3"/>
+	    <item caption="4" value="4"/>
+	  </combobox>
+	  <label caption="Cylindre:"/>
+	  <combobox name="ref_forunders.informeret_samtykke.cylindre" value="">
+	    <item caption="-4" value="-4"/>
+	    <item caption="-3" value="-3"/>
+	    <item caption="-2" value="-2"/>
+	    <item caption="-1" value="-1"/>
+	    <item caption="0" value="0"/>
+	    <item caption="1" value="1"/>
+	    <item caption="2" value="2"/>
+	    <item caption="3" value="3"/>
+	    <item caption="4" value="4"/>
+	  </combobox>
+	  <spacer/>
+	</frame>
+	<checkbox name="ref_forunders.informeret_samtykke.informeret_samtykke" caption="Godkend ovenstående" truevalue="true" falsevalue="" script="samtykke"/>
+    </frame>
+    <label/>
+    <label caption="Yderligere kommentarer:"/>
+    <lineedit name="ref_forunders.informeret_samtykke.yderligere_kommentarer"/>
+    
+    <!-- knapper -->
+    <frame layout="hbox">
+      <spacer/>
+      <button caption="Gem" action="commit"/>
+    </frame>
+  </widgets>
+</macro>
-- 
cgit v1.2.3