cA247 ;BEHEER GEGEVENS ;%A246 ;do uit %A246 ; [ 01/23/96  5:02 PM ]
 G 1
 ;
T0 ;Beheer gegevens ;
T1 ;Nummer element\".x[] = scherm x";
 ;
T0F ;Gestion des données;
T1F ;Numéro d'element\".[] = écran x";
 ;
T0E ;Beheer gegevens ;
T1E ;Nummer element\".x[] = scherm x";
 ;
1 S KW="",R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\2\\K!(K?1"".""1N)!(K=""-"")!(K="","")\\\\\\1" D R0
100 I RK=25 S K="."_(SW2-1),RK=28
101 I RK=26 S K="."_(SW2+1),RK=28
102 I RK=27 S K="-",RK=28
103 I RK'=28 G 1
104 G YZ:K="-"!(K=",")
11 I $E(K)="." S KW=$E(K,2,99) G 1:KW=SW2!(KW>SW4)!'KW,YZ
13 S U1=+K G 1:'$D(A(U1)) S U2=@("^"_Q1_"(G1,A(U1))")
15 I $P(U2,U,12),@$P(U2,U,15) S R=69 D F2 G 1
17 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 1:K="-"!(K=","),3
 ;
2 I $L($P(U2,U,7)),@$P(U2,U,14) X "S K="_$P(U2,U,7) G 23
21 I $L($P(U2,U,16)) X "S K="_$P(U2,U,16)
23 D ^cA207 G 1:K="-"!(K=",")
 ;
3 S U3=K I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
31 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,U3,$J("",$P(U2,U,9)+$P(U2,U,13)-$L(U3))
33 X "S "_$P(U2,U,16)_"=K" G 1
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84