cAT140 ;INIT. PARAM. BOEKHOUDING ;%AT14 ;do uit %AT14 ; [ 12/29/00  5:02 PM ]
 G 1
 ;
T0 ;Init. param. boekhouding ;
 ;
T0F ;Init. param. boekhouding ;
 ;
T0E ;Init. param. accouting ;
 ;
1 F I=1:1 S K=$T(@("T"_I_QT)) Q:'$L(K)  S J=$P(K,"~",2),@("^"_Q_"KH(0,J)")=$P(K,"~",3)
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84