cTA8	;OPBOUW ^'Q'HULP(boot,$J+100) UIT BRA ;%T222; [ 02/20/95   4:36 PM ]
	;
T0	;Opbouw ^'q'hulp(boot,$j+100) uit bra ;
	;
T0F	;Fichier ^'q'hulp($j+100) des bra ;
	;
T0E	;Opbouw ^'q'hulp(boot,$j+100) uit bra ;
	;
	; input BRA,R
	; output ^'Q'HULP(boot,$J+100,nr)=BR#KP#KS#BE#HOE#BTWC#HIS#BRa
	;
1	N K K ^HULP(boot,$J+(100/10000)) S R10=$E(BRA,2,255) I $E(BRA,1)="K" G 3
11	S K="" I $P($G(@("^"_Q_"BA(300)")),D,8) S K=$$SEG^cTA901(R10) ; IAS segmenten
	; vaste analytische rekening
2	S ^HULP(boot,$J+(100/10000),1)=$P(R,"#",1,8)_"#"_R10 S:$L(K) ^(1)=^(1)_"#"_R10_"#"_$P(K,D)_"#"_$P(K,D,2)_"#"_$P(K,D,3) G YZ
	; verdeelkurve
3	S R11=@("^"_Q_"AK1(R10)"),(R12,R13,R17,R20)=0,R18=-$P(R,"#",4),R19=-$P(R,"#",5)
31	S R12=$O(@("^"_Q_"AK(R11,R12)")) G 36:R12="" S R13=R13+1,R14=^(R12)
32	S R15=$J($P(R,"#",4)*$P(R14,D,2)/100,0,QA),R16=$J($P(R,"#",5)*$P(R14,D,2)/100,0,0),R18=R18+R15,R19=R19+R16
	;
	; aanpassing ivm negatieve bedragen (test op R13=1) - FB - 04.04.02
33	I R15>R17!(R13=1) S R17=R15,R20=R13
	;
330	S K="" I $P($G(@("^"_Q_"BA(300)")),D,8) S K=$$SEG^cTA901($P(R14,D)) ; IAS segmenten
34	S ^HULP(boot,$J+(100/10000),R13)=$P(R,"#",1,3)_"#"_R15_"#"_R16_"#"_$P(R,"#",6,8)_"#"_$P(R14,D) I $L(K) S ^(R13)=^(R13)_"#"_$P(R14,D)_"#"_$P(K,D)_"#"_$P(K,D,2)_"#"_$P(K,D,3)
35	G 31
36	I R18'=0 S $P(^(R20),"#",4)=$P(^HULP(boot,$J+(100/10000),R20),"#",4)-R18
37	I R19'=0 S $P(^(R20),"#",5)=$P(^HULP(boot,$J+(100/10000),R20),"#",5)-R19
	;
YZ	K R10,R11,R12,R13,R14,R15,R16,R17,R18,R19,R20 Q
	;
Z	X ^cZ
ZZ	; 19.05.04 - 16 u 09 * V8