summaryrefslogtreecommitdiff
path: root/server/xml/macros/fluoresceinconclusion-1.0.xml
blob: a8bd27704f70cdacc8a3d6b3688621fbe9d34a19 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
<?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="fluoresceinconclusion" version="1.0">
  <resume language="lua">
    out = 'Konklusion:\n'

    if( getValue('fluorescens.conclusion') == 'Klassisk subretinal neovaskulær membran.'
        or getValue('fluorescens.conclusion') == 'Overvejende klassisk subretinal neovaskulær membran.' )
    then
      out = out .. getValue('fluorescens.conclusion') .. '\n'
      out = out .. 'Membranen er beliggende:'
                .. 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 neovaskulær membran.'
          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>
  <widgets 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 neovaskulær membran." />
      <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="Okkult subretinal neovaskulær membran."
	    value="Okkult 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>
  </widgets>
</macro>