cA233 ;SEQUENTIEEL WIJZIGEN ;%A233 ;do naar %A234 ; [ 01/23/96  5:00 PM ]
 ;
T0 ;Sequentieel wijzigen ;
T1 ;Sequentieel wijzigen ;
T2 ;Er bestaan ;schermen.;
T3 ;Welk scherm\"x[] = scherm x    -[] = einde programma";
T4 ;Scherm ;
 ;
T0F ;Modification séquentielle ;
T1F ;Modification séquentielle ;
T2F ;Il y a ;écrans.;
T3F ;Quel écran \"x[] = écran x      -[] = fin du programme";
T4F ;Ecran ;
 ;
T0E ;Sequentieel wijzigen ;
T1E ;Sequentieel wijzigen ;
T2E ;Er bestaan ;schermen.;
T3E ;Welk scherm\"x[] = scherm x    -[] = einde programma";
T4E ;Scherm ;
 ;
1 S X2=$P(@("^"_Q_Q1_"(0,0)"),U),(SW2,SW3,SW4,SW5)=1,Q3="^"_Q_Q1_"(I2)",Q4="^"_Q_Q1_"(I2,U3)",(SZ1,U1S)="",SZ2=0
11 S K=$P($T(@("T1"_QT)),U,2)_X2_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 I $O(^(SW4+1*100))\100-1=SW4 S SW4=SW4+1 G 13
15 S X=100 F  S X=$O(^(X)) Q:X<100!(X\100>SW4)  S Y=$P(^(X),U,16)\100 I Y>SW3 S SW3=Y
16 S TXT=X1_D_X2_D_$P(X4,U,$S(Q1="AR":4,1:2))_D_$P(X4,U,$S(Q1="AR":5,1:3))_D_Q1_D_Q2_D_1
17 S:$D(^(3)) X3=^(3) S:$D(^(5)) SR=^(5) D SW^cA243 S A(101)=^(101),A(102)=^(102) I SW4=1 S U4=1 D S1 G 2
19 S FP=269 W @F,@F5 S FP=254,K=$T(@("T2"_QT)) W @F,@F5,$P(K,U,2),@F4,SW4," ",@F5,$P(K,U,3) G 35
 ;
2 S (SZ3,SZ5,I,I2,SZ4)="" S:$D(TXT) TXT1=TXT S:'$D(TXT) TXT=TXT1 D ^cA306,S4 I K="-" G 35:SW4>1,YZ
21 K B S R="I2\"_Q1 D ^cA327 S I1=I2 D S4:I2="" G 35:SW4>1&(I2=""),YZ:I2=""
23 L (Q1(I2),@Q3):2 E  D TXT^cAFA1(14) G 37
25 S B(1)=@("^"_Q_Q1_"(I2,0)"),U1=100 F X=2:1:SW3 S B(X)=$G(^(X-1),"\\\\\\\\\\\\\\\\\\\\\\\\\")
27 I 'SZ2 D S4 S:SW2'=U4 SW2=U4,SW5=1 D S1
29 S U1=$O(A(U1)) I U1'="" D S2 G 29
31 S SW5=0 D ^cA234 I 'SZ2 G 2
33 G 21
 ;
35 S SZ2=0 I SW4<2 S U4=1 G 37
36 S R="U4\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$L(SW4)_"\\K=""-""!(K'>SW4&K)" D ^cA100 G YZ:K="-"
37 S FP=2103+F60 W @F,@F1 S FP=355 W @F,$P($T(@("T4"_QT)),U,2),U4 G 2
 ;
YZ K ^HULP(boot,$J),BFSW Q
 ;
S1 S Y=$D(@("^"_Q_Q1_"(0,0)")),Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K K A
S1A S X=$O(^(X)) I X>100,X<Y S K=K+1,A(K)=^(X) G S1A
S1B I '$D(A(101))!'$D(A(102)) S A(101)=^(101),A(102)=^(102)
S1Z Q
 ;
S2 S U2=A(U1),X=$P(U2,U,16),(K,U3)=$P($G(B(X\100)),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A I SW5 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
S2B 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))
S2C I SW5,'$P(U2,U,23) S FP=FP-2 W @F,":"
S2Z Q
 ;
S3 S X=102
S3A S X=$O(A(X)) I X'="" K A(X) G S3A
S3Z Q
 ;
S4 S FP=401 W @F,@F1 S SW5=1
S4Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84