cTA189	;Functies ivm ^DBH; cTA189
	;
T0	;Functies ivm ^DBH
	;
YZ	Q
	;
CONV	;  Eenmalig opnieuw opbouwen tussenbestand AR-ARA
	N I1,BEST
	S $ZT="TRAP^cAN000"
	K ^DBH(Q,"AR.ARA.TSS"),^INDEX(Q,"AR.ARA.TSS")
	; Aflopen cumuls en budgetten
	F BEST="BUD.AR.ARA","CUM.AR.ARA" D
	. S I1=""
	. F  S I1=$O(^DBH(Q,BEST,I1)) Q:I1=""  D
	.. S INH=^(I1,0)
	.. D TSS($P(INH,D),$P(INH,D,2))
CONVZ	Q
	;
TSS(UI1AR,UI1ARA)	;  Opbouwen tussen bestand ivm ^DBH --> AR en ARA
	N UI1,BB
	S $ZT="TRAP^cAN000"
	S BB(1)=UI1AR_D_UI1ARA
	S UI1=$P(UI1AR," ")_" "_$P(UI1ARA," ")
	I $D(^DBH(Q,"AR.ARA.TSS",UI1)) G TSSZ
	D P^cAN220("AR.ARA.TSS",0,UI1,"BB","")
TSSZ	Q
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04