ANUDO6 ;ANALYTISCHE VENTILATIE VOOR %T160 ;ANUDO6 ; [ 10/24/2000  5:00 PM ]
 G 1
 ;
S1 S BR=$P(BR," ")_" ",HIS=$S($D(@("^"_Q_"AR(BR,0)")):$P(^(0),D,3),1:1) I FC="C" S B=-B
S1A S R3=R3+1,B=$J(B*$S(UPAR:UPAR,1:1),0,QD),RN=RN-B I B>R2 S R2=B,R1=R3
S1B S ^HULP(boot,$J,0,R3)=BR_"###"_B_"###"_HIS_"##"_$P(R,D,44)
S1Z Q
 ;
1 S SWAN=$P($G(@("^"_Q_"BA(300)")),D,3) I 'SWAN G YZ
10 K ^HULP(boot,$J,0) S BR="",UR="U",(R1,R2,R3)=0,RN=$J(NET*$S(UPAR:UPAR,1:1),0,QD) 
11 S UR=$O(@("^"_Q_"FA(US,FNR,UR)")),UZ=99 I UR="" G 3
13 S UZ=$O(@("^"_Q_"FA(US,FNR,UR,UZ)")) G 11:UZ="" S R=^(UZ)
 ;
2 I $L($P(R,D)),'$L($P(R,D,26)) S BR=$P(R,D),B=$P(R,D,16) I B D S1
21 I $L($P(R,D)),'$L($P(R,D,26)) S BR=$P(R,D,11),B=$P(R,D,9)-$P(R,D,16) I B'=0 D S1
23 G 13
 ;
3 I +RN'=0 S R3=R1,R=^HULP(boot,$J,0,R3),$P(R,"#",4)=$P(R,"#",4)+RN,^(R3)=R
 ;
YZ K R,R1,R2,R3,RN Q
 ;
ZZ ; 03.11.00 - 17 u 18 * V7.81