KA203 ;WIJZIGEN en RAADPLEGEN ;KA203;DO van %A101 en KA204 [ 02/13/95  10:28 AM ]
 G 1
 ;
T1 ;RAADPLEGEN ;WIJZIGEN ;
T2 ;ER BESTAAN ;SCHERMEN.;
T3 ;WELK SCHERM : ;-[] = einde programma;
T4 ;SCHERM ;
 ;
S2 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\" S (K,U3)=$P(B(X\100),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A S FP=$P(U2,U,5)*100+$P(U2,U,6) G S2Z:'SW5 I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
S2B 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,1),@F9
S2C S FP=$P(U2,U,5)*100+$P(U2,U,6)
S2Z W @F,U3,$J("",$P(U2,U,9)+$P(U2,U,13)-$L(U3)) Q
 ;
1 S (SW2,SW4,SW5)=1,SW7="",PNT="",$P(PNT,".",40)=".",Q3="^"_Q_Q1_"(I1)",Q4="^"_Q_Q1_"(I1,U3)",SR="^cA101"
11 S K=$P($T(T1),U,WIJZ+2)_$P(@("^"_Q_Q1_"(0,0)"),U,1)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 S X=$O(^(SW4+1*100)) I X\100-1=SW4 S SW4=SW4+1 G 13
15 S:$D(^(-3*WIJZ+6)) X3=^(-3*WIJZ+6) S:$D(^(5)) SR=^(5) S:$D(^(7)) SW7=^(7) D SW^cA243:WIJZ,S6^cA908:$L(SW7) S A(101)=^(101),A(102)=^(102) I SW4=1 D S1 G 23
17 S FP=269 W @F,@F5 S FP=254,K=$T(T2) W @F,@F5,$P(K,U,2),@F4,SW4," ",@F5,$P(K,U,3) G 35
 ;
19 X ^cTXT(0,"N",14) R K G 23
 ;
21 S SW5=0
23 I $D(EXTERN) S K=^KK1(KLNr) G 24
 S R="K\2000\"_X1_D_Q1_D_Q2 D @SR I K="-" G 35:SW4>1,YZ
24 I $L(SW7),WIJZ D ^cA908 I K="-" G 23
25 K B S I1=K,B(1)=@("^"_Q_Q1_"(I1,0)"),U1=100 F X=1:1:9 I $D(^(X)) S B(X+1)=^(X)
27 I SW4>1 S U1=101 D S2 S U1=102 D S2 G 39
28 I WIJZ L +@Q3:2 E  G 19
29 S U1=$N(A(U1)) I U1>0 D S2 G 29
31 D:'WIJZ&$D(X3) @X3 D:WIJZ ^KA204 L:WIJZ -@Q3 G 21:'$D(EXTERN) S SW5=0
 ;
35 I $D(EXTERN),$L(Screen) S U4=Screen,Screen="" G 37
36 S FP=2203+F60,K=$P($T(T3),U,2) W @F,@F1,K S FP=FP+100 W @F,$P($T(T3),U,3) S FP=FP-100+$L(K)
 W @F,".",@F2,@F,@F0 R U4
37 G YZ:U4="-",36:U4'?1N,36:'U4!(U4>SW4)
 S LScreen=U4
 S FP=2103+F60 W @F,@F1 S FP=355 W @F,$P($T(T4),U,2),U4 G 23:SW5
39 I SW2'=U4!SW5 S SW2=U4,SW5=1,FP=601 W @F,@F1 D S3,S1
41 S U1=SW2*100+2 G 28
 ;
YZ K A,B Q
 ;
S1 S Y=$D(@("^"_Q_Q1_"(0,0)")),Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K
S1A S X=$N(^(X)) I X>0,X<Y S K=K+1,A(K)=^(X) G S1A
S1Z Q
 ;
S3 S X=102
S3A S X=$N(A(X)) I X>0 K A(X) G S3A
S3Z Q
 ;
Z X ^cZ Q
ZZ ; 04.06.92 - 15 u 19 *