cTA801 ;AN. VERR. - INGAVE REKENING ;%TA80 ; [ 01/02/01  5:54 PM ]
 G 1
 ;
T0 ;An. verr. - ingave rekening ;
T1 ;Analytische verrichtingen\AV;
 ;
T0F ;Op. an. - introduction compte ;
T1F ;Opérations analytiques\OA;
 ;
T0E ;An. trans. - input account ;
T1E ;Analytical transactions\AT;
 ;
1 S HBF=BF,HQD=QD,PAR=1,(UX,VMSW,PRO)=0,SRT="",K=$S(K="-":K,1:"D") G YZ:K="-",3:K="D"
 ;
3 D YZ S R="SRT\E\1300\\1800" D ^cA336 G 1:K="-"
31 S K=$P($T(@("T1"_QT)),U,2) I SRT S K="E"_$E(1000+SRT,2,4),K=^(K)
33 S BR="D",NMB=$P(K,D),CD=$P(K,D,2),SAL=0,RB=BR_SRT
 ;
Y S Q93="^"_Q_"FIE(BP,RB)"
YZ S FP=2101 W @F,@F1 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84