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 K ^HULP(boot,$J+(100/10000)) S R10=$E(BRA,2,255) I $E(BRA,1)="K" G 3
 ; vaste analytische rekening
2 S ^HULP(boot,$J+(100/10000),1)=$P(R,"#",1,8)_"#"_R10 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
33 I R15>R17 S R17=R15,R20=R13
34 S ^HULP(boot,$J+(100/10000),R13)=$P(R,"#",1,3)_"#"_R15_"#"_R16_"#"_$P(R,"#",6,8)_"#"_$P(R14,D,1)
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 ; 05.02.01 - 16 u 23 * V7.84