cT844 ;Fin & div: vwerk anal. ;%T80 ; [ 01/04/01  2:09 PM ]
 ;
T0 ;Fin & div: vwerk anal. ;
T1 ;Analytische rekening ;is geen boekingsrekening ;
T2 ;De curve is ongeldig (som=;%) ;
 ;
T0F ;Fin & div: trait.anal. ;
T1F ;Compte analytique ;n'est pas un compte comptable ;
T2F ;La courbe n'est pas valable (somme=;%) ;
 ;
T0E ;Financial & miscellaneous transactions: proc. anal. ;
T1E ;Analytical account ;is no valid account ;
T2E ;The curve is invalid (sum=;%) ;
 ;
1 S R="HULPE" D ^cA348
11 S RR1=$E(BRA),RR2=$E(BRA,2,99)
13 I RR1="A" S ^(HULPE,RR2)=100 G 2
15 S RR1=@("^"_Q_"AK1(RR2)"),RR2=0
17 S RR2=$O(@("^"_Q_"AK(RR1,RR2)")) G 2:RR2="" S RR3=^(RR2),RR4=$P(RR3,D,2),RR3=$P(RR3,D) I '$D(^HULPE(HULPE,RR3)) S ^(RR3)=0
19 S ^(RR3)=^(RR3)+RR4 G 17
 ;
2 S RR1=0,RR2="",RR3=$T(@("T1"_QT))
21 S RR2=$O(^HULPE(HULPE,RR2)) G 29:RR2="" S RR1=RR1+^(RR2)
23 I '$D(@("^"_Q_"ARA(RR2,0)")) S RA=$P(RR3,U,2)_RR2,R=8 D F2 K RA S K="-" G Y
25 I $P(^(0),D,13) S K=$P(RR3,U,2)_RR2_$P(RR3,U,3) D F1 S K="-" G Y
27 G 21
29 I RR1'=100 S K=$P($T(@("T2"_QT)),U,2)_RR1_$P($T(@("T2"_QT)),U,3) D F1 S K="-" G Y
 ;
3 S BE=$J(HBE*PAR,1,QD),RR2="",(RR1,RR3,RR4,RR5,RR6,RR7)=0
31 S RR2=$O(^HULPE(HULPE,RR2)) I RR2="" G 4
33 S RR4=$J(^(RR2)/100*BE,1,QD),RR1=RR1+RR4 I RR4>RR5 S RR5=RR4,RR8=RR2
35 S RR6=$J(^(RR2)/100*HBE,1,HQD),RR3=RR3+RR6 I RR6>RR7 S RR7=RR6,RR9=RR2
37 S ^(RR2)=RR4_D_RR6 G 31
 ;
4 S RR4=BE-RR1 I RR4'=0 S $P(^(RR8),D)=RR5+RR4
41 S RR6=HBE-RR3 I RR6'=0 S $P(^(RR9),D,2)=RR7+RR6
43 G ^cT845
 ;
Y S R="HULPE" D S1^cA348
YA K HULPE,RR1,RR2,RR3,RR4,RR5,RR6,RR7,RR8,RR9,RL
YZ Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84