KT143 G 1 ;WIJZIGEN en RAADPLEGEN ;KT143;DO van KFTR1 en KT144
 ;
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:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) W @F,U3 Q
 ;
1 S U=";",(SW2,SW4,SW5)=1,PNT="........................................",Q3="^"_Q_Q1_"(I1)",Q4="^"_Q_Q1_"(I1,U3)",SR="^KFTR1"
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=SW4+'($N(^(SW4+1*100))=-1) G 15:X=SW4 S SW4=X G 13
15 S:$D(^(-3*WIJZ+6)) X3=^(-3*WIJZ+6) S:$D(^(5)) SR=^(5) 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 S R="K\2000\"_X1_D_Q1_D_Q2 D @SR G 5:K?1"#"2N I K="-" G 35:SW4>1,YZ
25 K B S I1=K,B(1)=^(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 I 'WIJZ,$D(X3) D @X3 I K?1"#"2N G 5
33 D:WIJZ ^KT144 G 21
 ;
35 S K=$P($T(T3),U,2),FP=2204+F60+$L(K) W @F,@F5 S FP=2203+F60 W @F,@F4,K,@F5,":" S FP=FP+100 W @F,$P($T(T3),U,3) S FP=FP-100+$L(K)+4
36 W @F,".",@F2,@F,@F0 R U4 G YZ:U4="-" I U4?1"#"2N S K=U4 G 5
37 G 36:U4'?1N,36:'U4!(U4>SW4)
38 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
 ;
5 G ^KFTP
 ;
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 ; 21.04.88 - 12 u 36