<?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="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>
  <window 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>
  </window>
</macro>