cA237 ;OPENEN OP 3 LIJNEN VLGS PATROON ;%A220 ; [ 01/23/96  5:01 PM ]
 ;
T0 ;Openen op 3 lijnen vlgs patroon ;
T1 ;Volgend scherm\"[] = volgend scherm   .[] = openen ok";
 ;
T0F ;Création sur 3 lignes suivant masque;
T1F ;Ecran suivant\"[] = écran suivant   .[] = création ok";
 ;
T0E ;Openen op 3 lijnen vlgs patroon ;
T1E ;Volgend scherm\"[] = volgend scherm   .[] = openen ok";
 ;
1 S Q3="^"_Q_Q1_"(0,1)",Q4="^"_Q_Q2_"(NR)",Y=100
11 S SL="",$P(SL,D,25)=D,(SW1,SW3,SW4,SW6)=0,(SW2,SW5)=1,X3=$G(@("^"_Q_Q1_"(0,2)")),SW7=$G(^(7)) D SO^cA243,S6^cA907:$L(SW7)
13 S X=$O(^(SW4+1*100)) I X\100-1=SW4 S SW4=SW4+1 G 13
15 S Y=$O(^(Y)) I Y\100,Y\100'>SW4 S X=$P(^(Y),U,16)\100 S:X>SW3 SW3=X G 15
17 S R="UP\2000\"_Q1 D ^cA221 G YZ:K="-"!(K=",")
25 D S4^cA907:$L(SW7) S X=$D(@("^"_Q_"BA(""%A"",1,Q1,UP,0)")) F X=1:1:SW3 S B(X)=SL D S4
27 D S1 I '$L($O(A(SW2*100))) G 9:SW2=SW4 D S5 G 27
31 S SW6=1 D ^cA222 G YZ:K="-",31:K=",",7
 ;
35 D S5
37 D S1 I '$L($O(A(SW2*100))) G 35:SW2<SW4,9
39 G 87
 ;
7 G 73:$L(NR) L @Q3:2 E  S R=14 D F2 G 7
71 S NR=@Q3,^(1)=^(1)+1 G 71:$D(@Q4)
72 S B(1)=NR_D_$P(B(1),D,2,99)
73 I SW2=1,$D(@Q4) S R=12 D F1,7^cA222 G YZ:K="-",31:K=",",73
75 I $D(X3),$L($P(X3,U)) K OK D @$P(X3,U) G 86:OK=1 I 'OK D 7^cA222 G YZ:K="-",31:K=",",73
 ;
79 D ^cA218
83 F X=1:1:SW3 S @("^"_Q_Q1_"(I,X-1)")=B(X)
85 S @Q4=I
86 G 9:SW1,35
87 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\"".""[K" D R0 G 31:K=""
9 S FP=2203+F60 W @F,$P(B(1),D),"  ",$P(B(1),D,2),@F1
91 I $D(X3),$L($P(X3,U,2)) D @$P(X3,U,2)
 ;
YZ K A,B,C Q
 ;
S1 S SW1=($O(@("^"_Q_Q1_"(0,SW2+1*100)"))'?1.N),Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K,U1=K
S1A S X=$O(^(X)) I X>0,X<Y S R=^(X) G S1A:'$P(R,U,16),S1A:$P(C($P(R,U,16)\100),D,$P(R,U,16)#100)'="?" S K=K+1,A(K)=R G S1A
S1Z D S5^cA907:$L(SW7) Q
 ;
S3 S X=102
S3A S X=$O(A(X)) I X>0 K A(X) G S3A
S3Z Q
 ;
S4 S C(X)="" F I=1:1:25 S $P(C(X),D,I)="?"
S4A S C(X)=C(X)_D I $D(^(X-1)),$L(^(X-1)) S C(X)=^(X-1)
S4B F K=1:1:$L(C(X),D) I $P(C(X),D,K)'="?" S $P(B(X),D,K)=$P(C(X),D,K)
S4Z Q
 ;
S5 S SW5=1,SW2=SW2+1 D S3 F X=1:1:SW3 S B(X)=@("^"_Q_Q1_"(I,X-1)")
S5Z 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
 ;
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