cI95	; Opbouwen ^DATA(Q,"AFS",... vanuit ^_Q_AFS ;AFSDATA;
	;
1	I $G(^DPAR("EA","AFS"))=1 G YZ
	S ^DPAR("EA","AFS")=1,INV=0
	F  S INV=$O(@("^"_Q_"AFS(INV)")) Q:INV=""  S CAT="" D
	. F  S CAT=$O(@("^"_Q_"AFS(INV,CAT)")) Q:CAT=""  S LN="" D
	.. F  S LN=$O(@("^"_Q_"AFS(INV,CAT,LN)")) Q:LN=""  S INH=^(LN) D
	... S BEE(1)=INH,$P(BEE(1),D,6)=INV,$P(BEE(1),D,7)=$$UR^cAFA1("AFS.CAT",106,CAT)
	... F I=11,13,14 I $L($P(BEE(1),D,I)) S $P(BEE(1),D,I)=+$P(INH,D,I)
	... S $P(BEE(1),D,23)=$$EBD^cT76($P(BEE(1),D,3),$P(BEE(1),D,8),$P(BEE(1),D,5))
	... S UI1=INV_" "_CAT_LN
	... D P^cAN220("AFS",0,UI1,"BEE","") W "."
	;
	; 
YZ	Q
	;
ZZ	; 04.04.05 - 14 u 29 * V8.03