cTA226	;Controle op analytische rekeningen ;;do uit %T646,%T687 ; [ 01/02/01  4:20 PM ]
	G 1
	;
T0	;Controle op analytische rekeningen ;
T1	;Analytische rekening ;
	;
T0F	;Contrôle des comptes analytiques ;
T1F	;Compte analytique ;
	;
T0E	;Check on analytical accounts ;
T1E	;Analytical account ;
	;
S1	I '$D(@("^"_Q_"ARA(R11)")) D
	. N TAB,K
	. S $ZT="TRAP^cAN000"
	. S TAB(1)=$P(R11," ")_"\?\1",$P(TAB(1),D,29)=$G(QU),$P(TAB(1),D,28)=$H D P^cAN220("ARA","",R11,"TAB","")
	. I K="-" S @("^"_Q_"ARA(R11,0)")=TAB(1),@("^"_Q_"RA1("" ""_$P(R11,"" ""))")="?",^INDEX(Q,"ARA",101,$$DI^cAN000(R11,R11))=R11
S1Z	Q
	;
1	S R10=""
11	S R10=$O(^HULP(boot,$J,0,R10)) G YZ:R10="" S K=$P(^(R10),D),R11=$P(K,S,9) I R11="" G 11
12	I '$D(@("^"_Q_"ARA(R11)")) D S1,F1
13	G 11
	;
YZ	K R10,R11 Q
	;
F1	S RA=$P($T(@("T1"_QT)),U,2)_R11,R=8
F2	D TXT^cAFA1(R)
FZ	K R,RA Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8