cTA100 ;Analytische uitsplitsing kostensoorten ;%TA10 ; [ 01/02/01  6:19 PM ]
 G 1
 ;
T0 ;Analytische uitsplitsing kostensoorten ;
 ;
T0F ;Répartition analytique des genres de frais ;
 ;
T0E ;Analytical categorization cost type ;
 ;
1 S (BLZ,LN)=0,NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3) X F70 W @F80
11 S I1=""
 ;
2 K ^HULP(boot,$J+.09) D ^cAN004("I1",$P(TXT,D,2)) G 4:I1="" S K=^(I1,0)
20 G 2:$P(K,D,13)=1 I Q00="K","\1\A\K\"'[(D_$P($P(K,D,6),"#",1)_D) G 2
21 S NGR=$P(I1," ")_$J("",7-$L($P(I1," ")))_"   "_$P(K,D,2)
 ;
3 D ^cTA101:'TSW,^cTA102:TSW G 2
 ;
4 W:BLZ $$FF^cA334 X F71
 ;
YZ K A,A1,A2,I4,I4A,I4Z,NM1,NM2,NM3,BLZ,LN,LI,TAB,SWF,NGR,NAN,BE,REF,OM,CD,DOK,SRT,DTM,DEB,CRE,SDEB,SCRE,ARA,BP,OK Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84