cI57 ;KONTROLE 'R'-LIJNEN MET VELD 9 NODE 1 [ 01/26/95   6:07 PM ]
 ;
1 S PR=0 K ^HULP(boot,$J)
11 S PR=$O(@("^"_Q_"PR(PR)")) G YZ:'$L(PR)  W !,PR S I2="R",TOT=$P(^(PR,1),D,9),TOTR=0
13 S I2=$O(^(I2)) I $E(I2)'="R" G 11:+TOTR=+TOT S ^HULP(boot,$J,PR)=TOTR_D_TOT G 11
15 S TOTR=TOTR+$P(^(I2),D,5) G 13
 ;
YZ Q