<?xml version='1.0' encoding='UTF-8'?>
<!--
    20081208: Bent Bisballe Nyeng
    Feltnavnene ændret så de giver mening.
  -->
<!--
    20090107: Bent Bisballe Nyeng
    Fluorescens info felterne skjules nu istedet for kun at blive disabled.
  -->
<!--
    20090211: Bent Bisballe Nyeng
    Fluorescens info felterne bliver nu disabled igen, men har f[et fjernet den
    altcombo som omkransede dem. Desuden er et 'andet' felt tilføjet.
  -->
<macro name="B.2.7.3" version="1.0">
  <resume language="lua">
    out = 'Konklusion:\n'

    if( getValue('fluorescens.conclusion') == 'Klassisk subretinal karnydannelse.'
        or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
    then
      out = out .. getValue('fluorescens.conclusion') .. '\n'
      out = out .. 'Membran placering: ' .. getValue('fluorescens.membrane.position') .. '\n'
      out = out .. 'Membranstørrelse: ' .. getValue('fluorescens.membrane.size') .. 'µm\n'
    else
      if( getValue('fluorescens.conclusion') == 'andet' )
      then
        out = out .. getValue('fluorescens.conclusion.other') .. '\n'
      else
        out = out .. getValue('fluorescens.conclusion') .. '\n'
      end
    end

    return out
  </resume>
  <queries>
  </queries>
  <maps>
  </maps>
  <scripts>
    <script language="lua" name="angiografi_konklusion">
      -- This script sets the value of additional according to conclusion.

      if( getValue('fluorescens.conclusion') == 'Klassisk subretinal karnydannelse.'
          or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
      then
        enable('yderligere_info_frame')
      else
        disable('yderligere_info_frame')
      end

      if( getValue('fluorescens.conclusion') == 'andet' )
      then
        enable('andet_frame')
      else
        disable('andet_frame')
      end

      return true
    </script>
  </scripts>
  <window caption="Konklusion (B.2.7.3)"
          layout="vbox">

    <frame layout="hbox">
      <label caption="Øje:" width="50"/>
      <radiobuttons name="fluorescens.conclusion.eye" value="">
	<radiobutton caption="o.dxt" value="o.dxt"/>
	<radiobutton caption="o.sin" value="o.sin"/>
      </radiobuttons>
      <spacer/>
    </frame>

    <combobox name="fluorescens.conclusion" 
	      value="Atrofiske foranderinger. Der findes ingen behandlingsindikation."
	      script="angiografi_konklusion">
      <item caption="Atrofiske foranderinger. Der findes ingen behandlingsindikation"
	    value="Atrofiske foranderinger. Der findes ingen behandlingsindikation." />
      <item caption="Pigmentepitelløsning. Der findes ingen behandlingsindikation"
	    value="Pigmentepitelløsning. Der findes ingen behandlingsindikation." />
      <item caption="Klassisk subretinal karnydannelse"
	    value="Klassisk subretinal karnydannelse." />
      <item caption="Overvejende klassisk subretinal neovaskulær membran"
	    value="Overvejende klassisk subretinal neovaskulær membran." />
      <item caption="Minimalt klassisk subretinal neovaskulær membran"
	    value="Minimalt klassisk subretinal neovaskulær membran." />
      <item caption="Occutalt subretinal neovaskulær membran."
	    value="Occutalt subretinal neovaskulær membran." />
      <item caption="Andet"
	    value="andet" />
    </combobox>

    <frame name="andet_frame" layout="hbox">
      <label caption="Andet:"/>
      <lineedit name="fluorescens.conclusion.other" value=""/>
    </frame>

    <frame name="yderligere_info_frame" layout="vbox">
      <label caption="Yderligere information:"/>

      <frame layout="hbox">
	<label caption="Membran beliggenhed:" width="150"/>
	<combobox name="fluorescens.membrane.position" value="">
	  <item caption="Subfovealt" value="subfovealt" />
	  <item caption="Juxtafovealt" value="juxtafovealt" />
	  <item caption="Extrafovealt" value="extrafovealt" />
	</combobox>
	<spacer/>
      </frame>
      
      <frame layout="hbox">
	<label caption="Membranstørrelse:" width="150"/>
	<lineedit name="fluorescens.membrane.size" regexp="[0-9,.-]+" value=""/>
	<label caption="µm" />
	<spacer/>
      </frame>

    </frame>

    <!-- Knapper -->
    <frame layout="hbox">
      <spacer/>
      <button caption="Gem" action="commit"/>
    </frame>
  </window>
</macro>