cTA901	; IAS-functies ;
	;
SEG(ACODE)	; bepalen internal CGU, external CGU, segment (Ter Beke)
	N OQ S OQ=Q N Q,CGUI,CGUE,SEG
	S Q="TC" ; ophalen in het centrale analytische rekeningenplan
	S CGUI=$$SIG^cAFA1("ARA",ACODE,122) I '$L(CGUI) D  S CGUI=1031
	. N VNR
	. L +^IAS(OQ,"NOCGU") S VNR=$O(^IAS(OQ,"NOCGU",""),-1)+1
	. S ^IAS(OQ,"NOCGU",VNR,0)=OQ_D_ACODE_D_QU_D_DT_D_TD_D_$G(%ZM)
	. L -^IAS(OQ,"NOCGU")
	S CGUE=$$SIG^cAFA1("CODE.2011",CGUI,103)
	S SEG=$$SIG^cAFA1("CODE.2014",CGUE,103)
YZ	Q CGUI_D_CGUE_D_SEG
	;
ZZ	; 19.05.04 - 16 u 09 * V8