cPE380 G 1 ;WIJZIGEN HOOFDKLASSIFIKATE - HOOFDMERK ;OVERLAY VAN %P38
 ;
T1 ;GEEF NUMMER VAN HOOFD
T2 ;$P("KLASSIFIKATIE\"_$P(MK,D,2),D,SW+1)
T3 ;   -[] = einde : 
 ;
1 S Y=0,I=I2
110 S I=$N(@("^"_Q_"PR(I1,I)")) G 120:$E(I,1)'=I2 S Y=Y+1,T(Y)=I G 110
120 I Y=1 S I=$N(^(I2)),^(I)=$P(^(I),D,1,34)_D_"*"_D_$P(^(I),D,36,99) G YZ
 ;
200 F I=1:1:Y Q:$P(^(T(I)),D,35)="*"
210 G YZ:I'=Y
 ;
500 D 258 S FP=2203 W @F,@F1,$P($T(T1),U,2),@$P($T(T2),U,2),$P($T(T3),U,2),@F0 R Y G 500:Y="-",500:Y="",500:'$D(T(Y)),500:'$D(^(T(Y))) S I=I2
510 S I=$N(@("^"_Q_"PR(I1,I)")) G 530:$E(I,1)'=I2 I $P(^(I),D,35)="*" S ^(I)=$P(^(I),D,1,34)_D_D_$P(^(I),D,36,99)
520 E  G 510
530 S ^(T(Y))=$P(^(T(Y)),D,1,34)_D_"*"_D_$P(^(T(Y)),D,36,99)
 ;
YZ K T S FP=601 W @F,@F1 S FP=455 W @F,@F2 Q
 ;
258 S IX="J",LN=$P(L,D,2)+1,VN=0,VVE=1,FP=LN*100+2 W @F,@F1
259 S LN=LN+1 G 264:LN=21!(K="O"&(LN=(L-1))) S VN=VN+1,IX=$N(@("^"_Q_"PR(HI1,IX)")) G 264:$E(IX,1)'=HI2 S U7=^(IX),X=4 S FP=LN*100+1 W @F,VN
260 W:$P(U7,D,35)="*" " *"
262 F I=1:1:3 S FP=LN*100+X W @F W:I'=1 $P(U7,D,I) W:I=1 $P(@("^"_Q_"LE(@(""^""_Q_""L1($P(U7,D,I))""),0)"),D,2) S X=X+$P(@($P("LE\LP\LT",D,I)),D,3)+5
263 G 259
264 Q
 ;
Z X ^cZ
ZZ ; 24.06.86 - 16 u 34