cA246 ;BEHEER GEGEVENS ;%A246 ;do naar %A247 ; [ 02/05/96  11:40 AM ]
 G 1
 ;
T0 ;Beheer gegevens ;
T1 ;Er bestaan ;schermen.;
T2 ;Welk scherm\"-[] = einde programma";
T3 ;Scherm ;
 ;
T0F ;Gestion des données;
T1F ;Il y a ;écrans.;
T2F ;Quel écran\"-[] = fin du programme";
T3F ;Ecran ;
 ;
T0E ;Beheer gegevens ;
T1E ;Er bestaan ;schermen.;
T2E ;Welk scherm\"-[] = einde programma";
T3E ;Scherm ;
 ;
S1 K A S S1=SW2*100,S2=0
S1A S S1=$O(@("^"_Q1_"(G1,S1)")) I S1\100=SW2 S S2=S2+1,A(S2)=S1 G S1A
S1Z K S1,S2 Q
 ;
1 S Q1=$P(R,U,2),G1=$P(R,U,3) S:$E(Q1)'="^" Q1="^"_Q_Q1 S Q1=$P(Q1,"^",2) S:G1="" G1=0
10 I G1="QT" S G1=QT I G1="" S G1=0
11 S FP=202 W @F61,@F11,@F1,@F,@F4,$P(@("^"_Q1_"(G1,0)"),U),QN," ",@F5,@F1
13 F SW4=1:1 I $O(^(SW4+1*100))\100-1'=SW4 Q
14 L +@("^"_Q1_"(G1)"):2 E  S R=14 D F2 G YZ
15 I SW4>1 S FP=254 W @F,@F5,@F1,$P($T(@("T1"_QT)),U,2),@F4,SW4," ",@F5,$P($T(@("T1"_QT)),U,3),@F1
17 S SW2=1 G 2
19 S R="SW2\22\3\"_$P($T(@("T2"_QT)),U,2)_D_$L(SW4)_"\\K=""-""!(K?.N&K&(K'>SW4))" D R0 G YZ:K="-"
 ;
2 S FP=355 W @F,@F1 W:SW4>1 $P($T(@("T3"_QT)),U,2),SW2 D S1
21 S (B(1),U1)=""
23 S U1=$O(A(U1)) G 4:U1="" S U2=@("^"_Q1_"(G1,A(U1))"),(K,U3)=""
25 S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U),@F9
27 I $L($P(U2,U,7)),@$P(U2,U,14) X "S K="_$P(U2,U,7) G 3
29 I $L($P(U2,U,16)) X "S K="_$P(U2,U,16)
 ;
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 I '$P(U2,U,23) S FP=FP-2 W @F,":"
33 G 23
 ;
4 D ^cA247 I K="-"!(K=",") G 19:SW4>1,YZ
41 S SW2=KW G 2
 ;
YZ L -@("^"_Q1_"(G1)") K A,B,SW2,SW4,G1,Q1,U1,U2,U3 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