cI51 ;VGL STOCK (VELD 14) MET 'L'_LIJNEN [ 01/26/95   6:07 PM ]
 ;
1 S PR=0 K ^HULP(boot,$J)
11 S PR=$O(@("^"_Q_"PR(PR)")) Q:'$L(PR)  S I2="L",X=$P(^(PR,0),D,14),PC=$P(^(0),D,1),Y=0 W !,PR
13 S I2=$O(^(I2)) G 15:$E(I2)'="L" S Y=Y+$P(^(I2),D,3) G 13
15 G 11:+X=Y S ^HULP(boot,$J,PR)=X_D_Y_D_PC G 11
 ;
YZ Q