cI53 ;KONTROLE 'R'-LIJNEN MET 'Q'_OD [ 01/26/95   6:07 PM ]
 ;
1 S PR=0,US="F" K ^HULP(boot,$J)
11 S PR=$O(@("^"_Q_"PR(PR)")) G YZ:'$L(PR) S FP=2403 W @F,PR,@F2 S I2="R"
13 S I2=$O(@("^"_Q_"PR(PR,I2)")) G 11:$E(I2)'="R" S K=$E(I2,10,15) D S1:'K S UR=K S K=$E(I2,16,18) D S1:'K S UZ=K+100
15 S X=^(I2),KC=$P(X,D,2) G 13:$D(@("^"_Q_"OD(KC,US,UR,UZ)")) S ^HULP(boot,$J,PR,I2)=X G 13
17 K @("^"_Q_"PR(PR,I2)") S $P(^(2),D,9)=$P(^(2),D,9)-$P(X,D,5) G 13
 ;
YZ Q
 ;
S1 F I=1:1 S K=$E(K,2,$L(K)) Q:K
S1Z Q