diff options
Diffstat (limited to 'server/xml')
| -rw-r--r-- | server/xml/macros/B.2.2.7.xml | 113 | 
1 files changed, 102 insertions, 11 deletions
| diff --git a/server/xml/macros/B.2.2.7.xml b/server/xml/macros/B.2.2.7.xml index 0eeacca..e3eed24 100644 --- a/server/xml/macros/B.2.2.7.xml +++ b/server/xml/macros/B.2.2.7.xml @@ -2,19 +2,108 @@  <!--      20081204: Bent Bisballe Nyeng      Feltnavnene ændret så de giver mening. -  --> -<!-- +      20090108: Bent Bisballe Nyeng      Højre/venstre byttet om. -  --> -<!-- +      20090320: Bent Bisballe Nyeng      Total omskrivning + +    20090420: Bent Bisballe Nyeng +    Nyt resume.    -->  <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} -${90D_lens.additional}</resume> +  <resume language="lua"> +    out = '' + +    if ( getValue('90D_lens.right.missing') == '' and getValue('90D_lens.left.missing') == '' ) +    then +      out = 'Inblikket til fundusbaggrunden er ' .. getValue('90D_lens.right.fundus_visibility') +          .. ' på højre øje og ' .. getValue('90D_lens.left.fundus_visibility')..' på venstre.\n' +    else +      if ( getValue('90D_lens.right.missing') == '' ) +      then +        out = 'Inblikket til fundusbaggrunden er ' .. getValue('90D_lens.right.fundus_visibility') +           .. ' på højre øje.\n' +      end +      if ( getValue('90D_lens.left.missing') == '' ) +      then +        out = 'Inblikket til fundusbaggrunden er ' .. getValue('90D_lens.left.fundus_visibility') +           ..' på venstre øje.\n' +      end +    end + +    if ( getValue('90D_lens.right.missing') == '' ) +    then +      if ( getValue('90D_lens.right.implikation') == 'retinal hævelse' ) +      then +        out = out .. 'På højre øje findes der retinal hævelse' +        if ( getValue('90D_lens.right.randbl') ~= '' and getValue('90D_lens.right.exsudater') ~= '') +        then +          out = out .. ' med randblødning og exhudater.\n' +        end +   +        if ( getValue('90D_lens.right.randbl') == '' and getValue('90D_lens.right.exsudater') ~= '') +        then +          out = out .. ' med exhudater.\n' +        end +   +        if ( getValue('90D_lens.right.randbl') ~= '' and getValue('90D_lens.right.exsudater') == '') +        then +          out = out .. ' med randblødning.\n' +        end +   +        if ( getValue('90D_lens.right.randbl') == '' and getValue('90D_lens.right.exsudater') == '') +        then +          out = out .. '.\n' +        end +      end + +      if ( getValue('90D_lens.right.implikation') == 'atrofi' ) +      then +        out = out .. 'På højre øje findes der atrofi.\n' +      end +    end + +    if ( getValue('90D_lens.left.missing') == '' ) +    then +      if ( getValue('90D_lens.left.implikation') == 'retinal hævelse' ) +      then +        out = out .. 'På venstre øje findes der retinal hævelse' +        if ( getValue('90D_lens.left.randbl') ~= '' and getValue('90D_lens.left.exsudater') ~= '') +        then +          out = out .. ' med randblødning og exhudater.\n' +        end +   +        if ( getValue('90D_lens.left.randbl') == '' and getValue('90D_lens.left.exsudater') ~= '') +        then +          out = out .. ' med exhudater.\n' +        end +   +        if ( getValue('90D_lens.left.randbl') ~= '' and getValue('90D_lens.left.exsudater') == '') +        then +          out = out .. ' med randblødning.\n' +        end +   +        if ( getValue('90D_lens.left.randbl') == '' and getValue('90D_lens.left.exsudater') == '') +        then +          out = out .. '.\n' +        end +      end +   +      if ( getValue('90D_lens.left.implikation') == 'atrofi' ) +      then +        out = out .. 'På venstre øje findes der atrofi.\n' +      end +    end +   +    if ( getValue('90D_lens.additional') ~= '' ) +    then +      out = out .. getValue('90D_lens.additional') .. '\n' +    end + +    return out +  </resume>    <queries>    </queries>    <maps> @@ -111,13 +200,14 @@ ${90D_lens.additional}</resume>  	    <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..right.implikation" value="" script="retinal_haevelse_right"> +	  <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"/> +	    <radiobutton caption="Andet (se suppl.)" value=""/>  	  </radiobuttons>  	  <frame name="retinal_haevelse_right" layout="vbox"> @@ -143,13 +233,14 @@ ${90D_lens.additional}</resume>  	    <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"> +	  <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"/> +	    <radiobutton caption="Andet (se suppl.)" value=""/>  	  </radiobuttons>  	  <frame name="retinal_haevelse_left" layout="vbox"> | 
