cPE33 G 30 ;WIJZIGEN PRODUKTEN - KLASS. LEV. ;OVERLAY VAN %P30 [ 03/11/2002   4:37 PM ]
 ;
T1 ;NUMMER ELEMENT   -[] = einde : 
 ;
ER K @("^HBPWP"_$J) G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
 ;
30 S K=100
35 S X=$N(^(X)) G 40:X'?.N!(X>((SW2+1)*100)) S K=K+1,A(K)=^(X) G 35
40 S SW7=0,U4=2,U1=100
50 S U1=$N(A(U1)) G 90:U1<0 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)=BS S U3=$P(B(X\100),D,X#100),K=U3 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8)
60 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)
70 W @F S U4=U4+1 W $J(U4,2),@F6,$P(A(U1),U,1),@F5
80 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 50
90 S FP=L*100+1 W @F,@F1 S FP=2103+F60 W @F,$P($T(T1),U,2),@F0
100 R U1 G 90:U1?.E1C.E G 90:U1="",190:U1="-",90:'$D(A(U1+98)) S U2=A(U1+98)
110 I $P(U2,U,12),@$P(U2,U,15) X ^cTXT(0,"N",69) R Y G 90
113 S N=$P(U2,U,16) I N=101&(SW) X ^cTXT(0,"N",69) R Y G 90
115 G 120:(SW&(N'=102))!('SW&(N>103)) S IB=$P("PHG\PGR\PSG",D,N#100) S:SW IB="PMK"
117 S R=L*100_D_$P(@($E(IB,2,99)),D,2)_D_IB_D_IB D ^cPE39 G 90:K="-" S:K'="," K=$P(@("^"_Q_IB_"(R)"),D,2) S:"-,"[K K=" " S FP=L*100+1 W @F,@F1 G 133
120 S FP=2103+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9)) W:$L($P(U2,U,10)) !?2,$P(U2,U,10)
130 S FP=2100+F60+($L($P(U2,U,1))+6) W @F,@F0 R K G 130:K?.E1C.E,90:K="-"
133 S Y="1" S:$L($P(U2,U,21)) Y="("_$P($T(@$P(U2,U,21)),U,2,99)_")" G 120:$P(Y,",",1)="$L(K)"&(K="") I @Y G 140
135 E  G 120
140 S X=$P(U2,U,11) S:'$L(X) X=1 S X=X_"&'(K[D)&($L(K)'>$P(U2,U,9))!(K="","")" I @X G 170
150 E  G 120
170 S U3=K,X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100 S:(Y-1) K=D_K S B(X)=$P(B(X),D,1,Y-1)_K_D_$P(B(X),D,Y+1,99)
180 S K=U3 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) 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 S U2="" G 90
190 F I=1:1:3 I '$L($P(B(1),D,I)) S:I=1 B(1)=" "_D_$P(B(1),D,2,99) S:I>1 B(1)=$P(B(1),D,1,I-1)_D_" "_D_$P(B(1),D,I+1,99)
200 K U1,U2,U3 S @%Q1=0,X="^"_Q_"PR(I1,I2)=B(1)",@X,K="W",@%Q1=1
 ;
YZ K A,B Q
 ;