cI530 ;KONTROLE 'R'('T')-LIJNEN MET 'Q'_OD(TO) [ 05/30/00  12:11 PM ]
 G YZ
 ;
T1 ;Kontrole 'R'-lijnen met 'Q'_OD;Kontrole 'T'-lijnen met 'Q'_TO;
T2 ;Kontrole 'R'-lijnen met node 2 veld 9 (node 2 veld 9 / som van 'R'-lijnen);Kontrole 'T'-lijnen met node 0 veld 17 (veld 19 / som van 'T'-lijnen);
T3 ;Kontrole 'Q'_OD met 'R'-lijnen;Kontrole 'Q'_TO met 'T'-lijnen;
 ;
OD S UGL="OD",IR="R" G 1
TO S UGL="TO",IR="T" G 1
 ;
 ;korrektie op T1
OD1 S UGL="OD",IR="R" G S1
TO1 S UGL="TO",IR="T" G S1
 ;
 ;korrektie op T2
OD2 S UGL="OD",IR="R" G S2
TO2 S UGL="TO",IR="T" G S2
 ;
 ;korrektie op T3
OD3 S UGL="OD",IR="R" G S3
TO3 S UGL="TO",IR="T" G S3
 ;
1 S PR=0,US="F" K ^HULP(boot,$J) F I=1:1:3 S ^HULP(boot,$J,I)=$P($T(@("T"_I)),U,IR="T"+2)
11 F  S PR=$O(@("^"_Q_"PR(PR)")) Q:'$L(PR)  S FP=2403 W @F,PR,@F2 S I2=IR,TOT=0,TOTR=$P(^(PR,IR="R"*2),D,$S(IR="R":9,1:17)) D
 . F  S I2=$O(@("^"_Q_"PR(PR,I2)")) Q:$E(I2)'=IR  S UR=+$TR($E(I2,10,15)," "),UZ=$TR($E(I2,16,18)," ")+100 D
 .. S X=^(I2),KC=$P(X,D,2),US=$p(X,D,3),TOT=TOT+$P(X,D,5) S:'$L(US) US="F" Q:$D(@("^"_Q_UGL_"(KC,US,UR,UZ)"))  S ^HULP(boot,$J,1,PR,I2)=X
 . I +TOTR'=+TOT S ^HULP(boot,$J,2,PR)=TOTR_D_TOT
 ;
 ;
2 S KC=0 F  S KC=$O(@("^"_Q_UGL_"(KC)")) Q:'$L(KC)  S FP=2403 W @F,KC,@F2 S UR="" D
 . F  S UR=$O(@("^"_Q_UGL_"(KC,US,UR)")) Q:'$L(UR)  S U5=^(UR,1),DAT=$P(U5,D,2),UZ=100 D
 .. F  S UZ=$O(@("^"_Q_UGL_"(KC,US,UR,UZ)")) Q:'$L(UZ)  S B(1)=^(UZ),PR=$P(B(1),D,2) I PR D
 ... S X=IR_$S($E(DAT,7,8)>50:19,1:20)_$E(DAT,7,8)_$E(DAT,4,5)_$E(DAT,1,2)_$J(UR,6)_$J(UZ-100,3)
 ... Q:$D(@("^"_Q_"PR(PR,X)"))  S ^HULP(boot,$J,3,KC,UR,UZ)=PR
 ;
YZ Q
 ;
 ;korrektie op T1
S1 S PR=0,US="F"
S1A F  S PR=$O(@("^"_Q_"PR(PR)")) Q:'$L(PR)  S FP=2403 W @F,PR,@F2 S I2=IR,TOT=0,TOTR=$P(^(PR,IR="R"*2),D,$S(IR="R":9,1:17)) D
 . F  S I2=$O(@("^"_Q_"PR(PR,I2)")) Q:$E(I2)'=IR  S UR=+$TR($E(I2,10,15)," "),UZ=$TR($E(I2,16,18)," ")+100 D
 .. S X=^(I2),KC=$P(X,D,2),US=$p(X,D,3) S:'$L(US) US="F" Q:$D(@("^"_Q_UGL_"(KC,US,UR,UZ)"))
 .. K @("^"_Q_"PR(PR,I2)") S $P(^(IR="R"*2),D,$S(IR="R":9,1:17))=$P(^(IR="R"*2),D,$S(IR="R":9,1:17))-$P(X,D,5)
S1Z Q
 ;
 ;korrektie op T2
S2 S PR=0,US="F"
S2A F  S PR=$O(@("^"_Q_"PR(PR)")) Q:'$L(PR)  S FP=2403 W @F,PR,@F2 S I2=IR,TOT=0,TOTR=$P(^(PR,IR="R"*2),D,$S(IR="R":9,1:17)) D
 . F  S I2=$O(@("^"_Q_"PR(PR,I2)")) Q:$E(I2)'=IR  S UR=+$TR($E(I2,10,15)," "),UZ=$TR($E(I2,16,18)," ")+100 D
 .. S X=^(I2),KC=$P(X,D,2),TOT=TOT+$P(X,D,5)
 . I +TOTR'=+TOT S $P(@("^"_Q_"PR(PR,IR=""R""*2)"),D,$S(IR="R":9,1:17))=TOT
S2Z Q
 ;
 ;korrektie op T3
S3 S KC=0 F  S KC=$O(@("^"_Q_UGL_"(KC)")) Q:'$L(KC)  S FP=2403 W @F,KC,@F2 S UR="" D
 . F  S UR=$O(@("^"_Q_UGL_"(KC,US,UR)")) Q:'$L(UR)  S U5=^(UR,1),DAT=$P(U5,D,2),UZ=100 D
 .. F  S UZ=$O(@("^"_Q_UGL_"(KC,US,UR,UZ)")) Q:'$L(UZ)  S B(1)=^(UZ),PR=$P(B(1),D,2) I PR  D
 ... S X=IR_$S($E(DAT,7,8)>50:19,1:20)_$E(DAT,7,8)_$E(DAT,4,5)_$E(DAT,1,2)_$J(UR,6)_$J(UZ-100,3)
 ... Q:$D(@("^"_Q_"PR(PR,X)"))
 ... S ^(X)=$P(U5,D,2)_D_KC_D_$S(UGL="OD":US,1:$P(U5,D,4))_D_$P(B(1),D,3)_D_$P(B(1),D,3)_D_$P(B(1),D,25)_D_$P(U5,D,3)_D_$P(B(1),D,36)
 ... S $P(^(IR="R"*2),D,$S(IR="R":9,1:17))=$P(^(IR="R"*2),D,$S(IR="R":9,1:17))+$P(X,D,5)
S3Z Q
 ;
ZZ ; 30.06.00 - 16 u 02 * V7.4