cPE300 Q  ;HOOFDKLASSIFIKATE - HOOFDMERK ;OVERLAY VAN %P30 [ 03/07/2002  9:26 AM ]
 ;
T1 ;GEEF NUMMER VAN NIEUWE HOOFD
T2 ;$P("KLASSIFIKATIE\"_$P(MK,D,2),D,SW+1)
T3 ;   -[] = einde : 
 ;
100 S Y=0,I=$E(I2,1)
110 S I=$N(@("^"_Q_"PR(I1,I)")) G 120:$E(I,1)'=$E(I2,1) S Y=Y+1 G 110
120 G YZ:Y'=1 S ^(I2)=$P(^(I2),D,1,34)_D_"*"_D_$P(^(I2),D,36,99) G YZ
 ;
500 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 Y:Y="-",500:Y="",500:'$D(T(Y)) S I=$E(I2,1)
510 S I=$N(@("^"_Q_"PR(I1,I)")) G 530:$E(I,1)'=$E(I2,1) 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) G Y
 ;
600 S FP=601 W @F,@F1 S FP=455 W @F,@F2 Q
 ;
Y D 600 G 280^cPE30
YZ D 600 Q
 ;