all ref macros ready for 1st review

1 files changed, 123 insertions, 0 deletions

diff --git a/server/xml/macros/ref_forunders-konklusion-1.0.xml b/server/xml/macros/ref_forunders-konklusion-1.0.xml
new file mode 100644
index 0000000..311ccaf
--- /dev/null
+++ b/server/xml/macros/ref_forunders-konklusion-1.0.xml
@@ -0,0 +1,123 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<macro name="ref_forunders.konklusion" version="1.0">
+  <resume language="lua">
+    out = ''
+    out = out .. 'Konklusion:\n'
+    out = out .. getValue('ref_forunders.konklusion.konklusion') .. '. '
+    if ( getValue('ref_forunders.konklusion.konklusion') == 'Patienten er kandidat til refraktiv kirurgi' )
+    then
+    out = out .. 'Det aftales at foretage ' .. getValue('ref_forunders.konklusion.behandling') .. ' på ' .. getValue('ref_forunders.konklusion.oeje') .. '.\n'
+    out = out .. 'Behandlingen stiler mod ' .. getValue('ref_forunders.konklusion.maal') .. '. '
+    out = out .. getValue('ref_forunders.konklusion.informeret_samtykke') .. '.'
+    end
+    if (getValue('ref_forunders.konklusion.yderligere_kommentarer') ~= '' )
+    then
+    out = out .. '\n\n'
+    out = out .. getValue('ref_forunders.konklusion.yderligere_kommentarer')
+    end
+    return out
+  </resume>
+  <queries>
+  </queries>
+  <maps>
+  </maps>
+  <scripts>
+    <script language="lua" name="konklusion">
+      if ( getValue('ref_forunders.konklusion.konklusion') == 'Patienten er kandidat til refraktiv kirurgi' )
+      then
+        enable('ref_forunders.konklusion.behandling_frame')
+      else
+        disable('ref_forunders.konklusion.behandling_frame')
+      end
+      if ( getValue('ref_forunders.konklusion.konklusion') == '' )
+      then
+        return false
+      end
+      return true
+    </script>
+    <script language="lua" name="behandling">
+      if ( getValue('ref_forunders.konklusion.behandling') == 'Ikke udfyldt' )
+      then
+        return false
+      end
+      return true
+    </script>
+    <script language="lua" name="samtykke">
+      if ( getValue('ref_forunders.konklusion.informeret_samtykke') == 'Patienten er informeret om at der vil være rest-nærsynethed efter operationen' )
+      then
+        return true
+      end
+      return false
+    </script>
+  </scripts>
+  <widgets caption="Konklusion" layout="vbox">
+    <frame layout="vbox">
+      <label caption="Konklusion:"/>
+      <combobox name="ref_forunders.konklusion.konklusion" value="" script="konklusion">
+	<item caption="Patienten er kandidat til refraktiv kirurgi" value="Patienten er kandidat til refraktiv kirurgi"/>
+	<item caption="Patienten er ikke kandidat til refraktiv kirurgi" value="Patienten er ikke kandidat til refraktiv kirurgi"/>	
+      </combobox>
+      <frame caption="Aftale" name="ref_forunders.konklusion.behandling_frame" layout="vbox">
+	<frame layout="hbox">
+	  <frame layout="vbox">
+	    <label caption="Der aftales"/>
+	    <label/>
+	  </frame>
+	  <altcombobox name="ref_forunders.konklusion.behandling" value="" layout="vbox" script="behandling">
+	    <item caption="Ikke udfyldt" value="Ikke udfyldt"/>
+	    <item caption="LASIK" value="LASIK"/>
+	    <item caption="PRK" value="PRK"/>
+	    <item caption="Topografistyret LASIK" value="Topografistyret LASIK"/>
+	    <item caption="Topografistyret PRK" value="Topografistyret PRK"/>
+	    <item caption="LASEK" value="LASEK"/>
+	    <altitem caption="Andet" value="andet" layout="hbox" innerwidget="ref_forunders.konklusion.behandling.andet">
+	      <label caption="Andet:"/>
+	      <lineedit name="ref_forunders.konklusion.behandling.andet"/>
+	    </altitem>
+	  </altcombobox>
+	  <frame layout="vbox">
+	    <label caption="på"/>
+	    <label/>
+	  </frame>
+	  <frame layout="vbox">
+	    <combobox name="ref_forunders.konklusion.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>
+	<frame layout="hbox">
+	  <frame layout="vbox">
+	    <label caption="Behandlingen stiler mod"/>
+	    <label/>
+	  </frame>
+	  <altcombobox name="ref_forunders.konklusion.maal" value="" layout="vbox">
+	    <item caption="Ikke udfyldt" value="Ikke udfyldt"/>
+	    <item caption="Emmetropi" value="emmetropi"/>
+	    <item caption="Størst mulig reduktion af nærsynetheden" value="størst mulig reduktion af nærsynetheden"/>
+	    <item caption="Let myopi (ca. -1 til -2 D)" value="let myopi (ca. -1 til -2 D)"/>
+	    <altitem caption="Andet" value="andet" layout="hbox" innerwidget="ref_forunders.konklusion.maal.andet">
+	      <label caption="Andet:"/>
+	      <lineedit name="ref_forunders.konklusion.maal.andet"/>
+	    </altitem>
+	  </altcombobox>
+	  <spacer/>
+	</frame>
+	<checkbox name="ref_forunders.konklusion.informeret_samtykke" caption="Patienten er informeret om at der vil være rest-nærsynethed efter operationen" truevalue="Patienten er informeret om at der vil være rest-nærsynethed efter operationen" falsevalue="" script="samtykke"/>
+      </frame>
+      <frame layout="vbox">
+	<label caption="Yderligere kommentarer:"/>
+	<lineedit name="ref_forunders.konklusion.yderligere_kommentarer"/>
+      </frame>
+    </frame>
+    
+    <!-- knapper -->
+    <frame layout="hbox">
+      <spacer/>
+      <button caption="Gem" action="commit"/>
+    </frame>
+  </widgets>
+</macro>