All the latest changes. None mentioned, none forgotten.

1 files changed, 138 insertions, 56 deletions

diff --git a/server/xml/macros/B.2.2.7.xml b/server/xml/macros/B.2.2.7.xml
index d253d0d..0eeacca 100644
--- a/server/xml/macros/B.2.2.7.xml
+++ b/server/xml/macros/B.2.2.7.xml
@@ -7,83 +7,165 @@
     20090108: Bent Bisballe Nyeng
     Højre/venstre byttet om.
   -->
+<!--
+    20090320: Bent Bisballe Nyeng
+    Total omskrivning
+  -->
 <macro name="B.2.2.7" version="1.0">
   <resume>Inblikket til fundusbaggrunden er ${90D_lens.right.fundus_visibility} på højre øje og ${90D_lens.left.fundus_visibility} på venstre.
-${90D_lens.implications}</resume>
+${90D_lens.implications}
+${90D_lens.additional}</resume>
   <queries>
   </queries>
   <maps>
+    <map name="missing_eye_right_map">
+      value = 0
+      timestamp = 0
+      source = 'pracro'
+
+      if( missing_eye_right )
+      then
+        if( missing_eye_right.value and missing_eye_right.value == '' )
+        then
+          value = ''
+          timestamp = missing_eye_right.timestamp
+        else
+          value = 'mangler'
+          timestamp = missing_eye_right.timestamp
+        end
+      end
+      return value, timestamp, source
+    </map>
+    <map name="missing_eye_left_map">
+      value = 0
+      timestamp = 0
+      source = 'pracro'
+      
+      if( missing_eye_left )
+      then
+        if( missing_eye_left.value and missing_eye_left.value == '' )
+        then
+          value = ''
+          timestamp = missing_eye_left.timestamp
+        else
+          value = 'mangler'
+          timestamp = missing_eye_left.timestamp
+        end
+      end
+      return value, timestamp, source
+    </map>
   </maps>
   <scripts>
+    <script language="lua" name="right_eye">
+      if ( value == 'mangler' )
+      then
+        disable('right_eye_frame')
+      else
+        enable('right_eye_frame')
+      end
+      return true
+    </script>
+    <script language="lua" name="left_eye">
+      if ( value == 'mangler' )
+      then
+        disable('left_eye_frame')
+      else
+        enable('left_eye_frame')
+      end
+      return true
+    </script>
+    <script language="lua" name="retinal_haevelse_right">
+      if ( value == 'retinal hævelse' )
+      then
+        enable('retinal_haevelse_right')
+      else
+        disable('retinal_haevelse_right')
+      end
+      return true
+    </script>
+    <script language="lua" name="retinal_haevelse_left">
+      if ( value == 'retinal hævelse' )
+      then
+        enable('retinal_haevelse_left')
+      else
+        disable('retinal_haevelse_left')
+      end
+      return true
+    </script>
   </scripts>
   <window caption="90-D linse (B.2.2.7)"
           layout="vbox">
     
-    <!-- Indblik -->
-    <frame layout="vbox">
-      <label caption="Indblik til fundusbaggrunden:"/>
-      <frame layout="hbox">
-
-	<label caption="Højre:"/>
-	<combobox name="90D_lens.right.fundus_visibility" value="klart">
-	  <item caption="Klart" value="klart"/>
-	  <item caption="Let sløret" value="let sløret"/>
-	  <item caption="Meget sløret" value="meget sløret"/>
-	  <item caption="Intet" value="intet"/>
-	</combobox>
-	<spacer/>
-
-	<label caption="Venstre:"/>
-	<combobox name="90D_lens.left.fundus_visibility" value="klart">
-	  <item caption="Klart" value="klart"/>
-	  <item caption="Let sløret" value="let sløret"/>
-	  <item caption="Meget sløret" value="meget sløret"/>
-	  <item caption="Intet" value="intet"/>
-	</combobox>
-	<spacer/>
+    <frame layout="hbox">
 
-      </frame>
-    </frame>
+      <!-- Højre øje -->
+      <frame layout="vbox">
+	<checkbox caption="Der er ikke målt på højre øje"
+		  name="90D_lens.right.missing" script="right_eye"
+		  map="missing_eye_right_map"
+		  truevalue="mangler" falsevalue="" value=""/>
+	<frame name="right_eye_frame" caption="Højre øje" layout="vbox">
+	  
+	  <!-- Indblik -->
+	  <combobox name="90D_lens.right.fundus_visibility" value="">
+	    <item caption="Klart" value="klart"/>
+	    <item caption="Let sløret" value="let sløret"/>
+	    <item caption="Meget sløret" value="meget sløret"/>
+	    <item caption="Intet" value="intet"/>
+	  </combobox>
 
-    <!-- Observationer -->
-    <frame caption="Observeret" layout="hbox">
-      <multilist name="90D_lens.implications" value="" layout="hbox" innerwidget="90dmeta">
-	<metawidget name="90dmeta" format="På ${eye} øje findes ${implikation}." layout="hbox">
+	  <!-- Observationer -->
+	  <radiobuttons name="90D_lens..right.implikation" value="" script="retinal_haevelse_right">
+	    <radiobutton caption="Retinal hævelse" value="retinal hævelse"/>
+	    <radiobutton caption="Atrofi" value="atrofi"/>
+	  </radiobuttons>
 
-	  <frame layout="vbox">
-	    <label caption=" "/>
-	    <label caption="På"/>
+	  <frame name="retinal_haevelse_right" layout="vbox">
+	    <checkbox name="90D_lens.right.randbl" caption="Randblødning"
+		      truevalue="randblødning" falsevalue="" value=""/>
+	    <checkbox name="90D_lens.right.exsudater" caption="Exsudater"
+		      truevalue="exsudater" falsevalue="" value=""/>
 	  </frame>
 
-	  <frame layout="vbox">
-	    <label caption="Øje:"/>
-	    <combobox name="eye" value="højre">
-	      <item caption="Højre" value="højre"/>
-	      <item caption="Venstre" value="venstre"/>
-	    </combobox>
-	  </frame>
+	</frame>
+      </frame>
+      
+      <!-- Venstre øje -->
+      <frame layout="vbox">
+	<checkbox caption="Der er ikke målt på venstre øje"
+		  name="90D_lens.left.missing" script="left_eye"
+		  map="missing_eye_left_map"
+		  truevalue="mangler" falsevalue="" value=""/>
+	<frame name="left_eye_frame" caption="Venstre øje" layout="vbox">
+	  
+	  <!-- Indblik -->
+	  <combobox name="90D_lens.left.fundus_visibility" value="">
+	    <item caption="Klart" value="klart"/>
+	    <item caption="Let sløret" value="let sløret"/>
+	    <item caption="Meget sløret" value="meget sløret"/>
+	    <item caption="Intet" value="intet"/>
+	  </combobox>
+	  
+	  <!-- Observationer -->
+	  <radiobuttons name="90D_lens.left.implikation" value="" script="retinal_haevelse_left">
+	    <radiobutton caption="Retinal hævelse" value="retinal hævelse"/>
+	    <radiobutton caption="Atrofi" value="atrofi"/>
+	  </radiobuttons>
 
-	  <frame layout="vbox">
-	    <label caption=""/>
-	    <label caption="øje findes"/>
+	  <frame name="retinal_haevelse_left" layout="vbox">
+	    <checkbox name="90D_lens.left.randbl" caption="Randblødning"
+		      truevalue="randblødning" falsevalue="" value=""/>
+	    <checkbox name="90D_lens.left.exsudater" caption="Exsudater"
+		      truevalue="exsudater" falsevalue="" value=""/>
 	  </frame>
 
-	  <frame layout="vbox">
-	    <label caption="Implikation:"/>
-	    <combobox name="implikation" value="atrofi">
-	      <item caption="Atrofi" value="atrofi"/>
-	      <item caption="Central hævelse" value="central hævelse"/>
-	      <item caption="Randblødning" value="randblødning"/>
-	      <item caption="Exsudater" value="exsudater"/>
-	    </combobox>
-	  </frame>
+	</frame>
+      </frame>
+    </frame>
 
-	  <spacer/>
+    <label caption="Supplerende:"/>
+    <textedit name="90D_lens.additional" value=""/>
 
-	</metawidget>
-      </multilist>
-    </frame>
-    
     <!-- Knapper -->
     <frame layout="hbox">
       <spacer/>