KPE20 G 10 ;RAADPLEGEN PRODUCTEN ;OVERLAY NAAR KPE01,KPE21
 ;
T1 ;ER BESTAAN 
T2 ;SCHERMEN
 ;
10 S X=$N(@("^"_Q_"BA(18,-1)")) F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1)
13 S SW69=$D(@("^"_Q_"PR(0,""PNR"")")),Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
17 S Y=$N(^(Y)) G 20:Y=-1 S @Y=^(Y) G 17
20 S U=";",(SW2,SW4,SW5,SW6,U5)=1,(SW1,SW10,U4,Z)=0,Y=@("^"_Q_"PR(0,1)"),RVW=$P($P($T(+1),U,2)," ",1)
30 I ($N(^(SW4+1*100)))\100=(SW4+1) S SW4=SW4+1 G 30
 ;
60 S FP=225+$L(QN) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),U,2),QN," ",@F5
90 S SW7=0 K A,B D ^KPE01 G YZ:I1="-" S X=100,SW11=0
95 I SW4>1 S FP=269 W @F,@F5 S FP=255 W @F,$P($T(T1),";",2),@F4,SW4," ",@F5,$P($T(T2),";",2)
105 S K=100,Y=$D(@("^"_Q_"PR(0,0)")) S:SW2>1 K=K+2
 ;
110 S X=$N(^(X)) G 115:'Z&(X'?.N!(X>((SW2+1)*100))) G 115:Z&(X'?.N!(X-Z>99)) S K=K+1,A(K)=^(X) G 110
115 S HI1=I1,SW1=1,U1=100,FP=601 W:SW5&'SW10 @F,@F1
120 G 130:SW10 S B(1)=@("^"_Q_"PR(I1,0)") F I=1:1:6 I $D(^(I)) S B(I+1)=^(I)
130 S U1=$N(A(U1)) I U1=103&(SW4>1)&('SW10)&(SW11) S FP=466 W @F,@F5 S FP=455 W @F,@F4,"SCHERM ",SW2," ",@F5,@F2
135 G 160:U1<0!(U1=103&('SW11)),150:'SW5 S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6)-3 W @F,@F5,": " S FP=$P(A(U1),U,2)*100+$P(A(U1),U,3)
140 W @F S U4=U4+1 W $J(U4,2),@F6,$P(A(U1),U,1),@F5
150 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" S U3=$P(B(X\100),D,X#100),K=U3 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8)
155 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3 G 130
160 S (SW1,SW11)=1,SW5=0
 ;
170 G 170^KPE21
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32