cA238 ;BEHEER ;OPENINGSPATRONEN ;OPENINGSPATROON ; [ 07/27/94  3:57 PM ]
 G 1
 ;
T0 ;Beheer ;
T1 ;Keuze;
T2 ;-[] = einde programma;-[] = keuze patroon;
T3 ;Er bestaan ;schermen.;
T4 ;Welk scherm;
T5 ;Scherm ;
 ;
T0F ;Gestion ;des masques de création ;masque de création des ;
T1F ;Choix;
T2F ;-[] = fin de programme;-[] = sélection fichier;
T3F ;Il y a ;écrans.;
T4F ;Quel écran;
T5F ;Ecran ;
 ;
T0E ;Beheer ;
T1E ;Keuze;
T2E ;-[] = einde programma;-[] = keuze patroon;
T3E ;Er bestaan ;schermen.;
T4E ;Welk scherm;
T5E ;Scherm ;
 ;
INIT F Q1="AR","KL","LE","PRVO","VT","NP","NA" I $D(@("^"_Q_Q1_"(0,0)")) S @("^"_Q_"BA(Q0,1,Q1,0)")=""
 Q
 ;
S2 S U2=A(U1),U7=$P(U2,U,16),(K,U3)=$P($G(B(U7\100)),D,U7#100)
S2A I K'="?",$L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U),@F9
S2C 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))
S2D I '$P(U2,U,23),$P(U2,U,2)=$P(U2,U,5) S FP=FP-2 W @F,":"
S2Z Q
 ;
1 S Q0="%A" I '$D(@("^"_Q_"BA(Q0,1)")) D INIT
11 S Q1="",(U1,SW1)=0 I '$L($O(^($O(@("^"_Q_"BA(Q0,1,Q1)"))))) S Q1=$O(^(Q1)) G 2
13 S K=$P($T(@("T0"_QT)),U,2)_$P($T(+1),U,3)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
14 S Q1="",U1=0
15 S Q1=$O(@("^"_Q_"BA(Q0,1,Q1)")) G 18:Q1="" S U1=U1+1,A(U1)=Q1,FP=U1+3*100+2 I U1>17 S FP=U1-14*100+40
17 W @F,$J(U1,2),". ",$P(@("^"_Q_Q1_"(0,0)"),U) G 15
18 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\"""_$P($T(@("T2"_QT)),U,2)_"""\"_$L(U1)_"\\K?.N&K!(K=""-"")" D R0
19 G YZ:K="-",18:'$D(A(K)) S Q1=A(K),SW1=1
 ;
2 K A D ^cA236 G Y:K="-"!(K=",") S X=$G(@("^"_Q_"BA(Q0,1,Q1,UP)"))
20 S K=$P($T(@("T0"_QT)),U,2)_$P($T(+1),U,4)_X_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
21 S (SW2,SW3,SW4,SW5)=0,Y=100,SW20=$G(@("^"_Q_Q1_"(0,20)")) D S5
22 S X=$O(^(SW4+1*100)) I X\100-1=SW4 S SW4=SW4+1 G 22
23 S Y=$O(^(Y)) I Y\100,Y\100'>SW4 S U7=$P(^(Y),U,16)\100 S:U7>SW3 SW3=U7 G 23
25 S FP=301 W @F,@F1 I SW4>1 S FP=269 W @F,@F5 S FP=254,K=$T(@("T3"_QT)) W @F,@F5,$P(K,U,2),@F4,SW4," ",@F5,$P(K,U,3)
27 S X=$D(@("^"_Q_"BA(Q0,1,Q1,UP,0)")) F X=1:1:SW3 D S1
29 I SW4=1 S SW2=1 D S3 G 4
 ;
3 S R="U4\22\3\"_$P($T(@("T4"_QT)),U,2)_"\"""_$P($T(@("T2"_QT)),U,3)_"""\1\\K?.N&K&(K'>SW4)!(K=""-"")" D R0 G 5:K="-",43:K=SW2
31 S FP=355 W @F,$P($T(@("T5"_QT)),U,2),U4
33 S SW2=U4,FP=$S(SW20:4,1:6)*100+1 W @F,@F1 D S4,S3
35 I 'SW5,'SW20 F U1=1,2 D S2
37 S U1=$S(SW20:0,1:2),SW5=1 G 41
 ;
4 S U1=0
41 S U1=$O(A(U1)) I $L(U1) D S2 G 41
43 D ^cA239 G 3:SW4>1
 ;
5 S X=$D(@("^"_Q_"BA(Q0,1,Q1,UP,0)")) F X=1:1:SW3 S ^(X-1)=B(X)
51 G 2
 ;
Y G 13:SW1
YZ K A,B Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
S1 S B(X)="" F I=1:1:30 S $P(B(X),D,I)="?"
S1A S B(X)=B(X)_D I $L($G(^(X-1))) S B(X)=^(X-1)
S1Z Q
 ;
S3 S X=$D(@("^"_Q_Q1_"(0,0)")),X=SW2*100,K=$S(SW2<2!SW20:0,1:2)
S3A S X=$O(^(X)) I X\100=SW2 S K=K+1,A(K)=^(X) G S3A
S3Z Q
 ;
S4 S X=$S(SW20:0,1:2)
S4A S X=$O(A(X)) I $L(X) K A(X) G S4A
S4Z Q
 ;
S5 S K=" " I 'SW20 S A(1)=^(101),A(2)=^(102)
S5A S K=$O(^(K)) I $L(K) S @K=^(K) G S5A
S5Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84