cAFA12	;Algemene functies ; cAFA12
	;
YZ	Q
	;
NS(NP,NSP)	; haal namespace van de firma's op in tabel NP
	; NP  : door te geven als referentie : bv : .TAB
	; NSP : voor een bepaalde namespace en bijhorende
	S $ZT="TRAP^cAN000"
	N T,I
	I '$L($G(NSP)) S NSP=$ZU(5)
	K NP
	I NSP?1"V"4.N S NP(NSP)="" G NSZ  ; Basis-namespace
	D NSPC^cQ21(.NSP,1)
	F  Q:$E(NSP,$L(NSP))'?1N  S NSP=$E(NSP,1,$L(NSP)-1)
	S I=NSP F  S I=$O(NSP(I)) Q:$E(I,1,$L(NSP))'=NSP  I $P(I,NSP,2)=+$P(I,NSP,2) S NP(I)=""
NSZ	Q
	;
GLMP(G,NS)	;
	; G = global
	; NS = namespace
	; 
	; OUT : 1 = Locaal, 0 = Centraal
	; 
	S NR=""
	I '$L($G(NS)) S NS=$ZU(5)
	S NSP=NS
	I NS?1"V"4.N S NR=1 G GLMPA
	F  Q:$E(NS,$L(NS))'?1N  S NR=$E(NS,$L(NS))_NR,NS=$E(NS,1,$L(NS)-1)
GLMPA	S LOC=1 
	I ($P($P($ZV,")",2),"(",1)[" 2010") S DB=^["%SYS"]SYS("NSMAP",NSP,"defglbloc")
	E  S DB=^["%SYS"]SYS("GREDIR","NSINIT",NSP,"defglbloc")
	S DB=$$UC^cAFA1(DB)
	I DB'[("\"_NS_"\G\"_NR_"\") S LOC=0
	I ($P($P($ZV,")",2),"(",1)[" 2010") S DBM=$G(^["%SYS"]SYS("NSMAP",NSP,"globmap",G,1,"I"))
	E  S DBM=$G(^["%SYS"]SYS("GREDIR","NSINIT",NSP,"globmap",G,1,"I"))
	S DBM=$$UC^cAFA1(DBM)
	I '$L(DBM) G GLMPZ
	I DBM'=DB S LOC=0
	I DBM=DB S LOC=1
GLMPZ	Q LOC
	;
	;
ZZ	; 06.01.11 - 12 u 25 * V9.10