cTEA91	;Tonen synoniemen voor grootboekrek. en anal. rek. ;cTEA91 ; 
	;
T0	;Raadplegen rekening-anal.rekening ;
T1	;Geen budget op deze combinatie;
	;
T0F	;Consultation d'un compte-compte analytique ;
T1F	;Geen budget op deze combinatie;
	;
1	D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
	;
2	S Q1="AR",Q2="ARA"
	;
3	S UI1AR=$$^cANSYN(Q1) G YZ:K="-",3:$P(^(UI1AR,0),D,13)!'$P(^(0),D,21)
	;
4	S UI1ARA=$$^cANSYN(Q2) G 3:K="-",4:$P(^(UI1ARA,0),D,13)!'$P(^(0),D,21)
	;
6	S UI1=UI1AR_$P(UI1ARA," ") 
	I '$L($$SIG^cAFA1("AR.ARA.BUD",UI1,101)) S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250) G 4
	D R^cAN200("AR.ARA.BUD",0,"",0,$$IDEM^cAFA1())
	; ^DMA(0,"AR.ARA.BUD") : alle data ophalen via X ipv B-index met progr. cANTA79.int 
	;
YZ	D E^cA612 Q
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04