#; Список доступных областей
ListNamespace(OnlyMounted= 0 ) PUBLIC
{
	k arrNS
	f i= 1 : 1 :$ZU( 90 , 0 ) s arrNS($ZU( 90 , 2 , 0 ,i))=""
	#;
	s listNS = ""
	s ns = ""
	f {
		s ns = $o(arrNS(ns))
		q:(ns="")
		#;
		s:(('OnlyMounted)||$$BaseMounted(ns)) listNS = listNS_$lb(ns)
	}
	#;
	q listNS
}

#; Проверяет, смонтирована ли база aBaseName
BaseMounted(aBaseName) PUBLIC
{
	s $zt = "errBaseMounted"
	s res =  0 
	#;
	s BaseDir = $$defdir^%GLO(aBaseName)
	#;
	s info = $zu( 49 ,BaseDir, 0 )
	s flag = $p(info,",", 1 )
	s res = $case(flag, - 1 : 0 , - 2 : 0 , - 3 : 0 ,  255 : 0 ,  15999 : 0 , : 1 )
	#;
	g exitBaseMounted
	#;
errBaseMounted
	s res =  0 
	#;
exitBaseMounted
	#;
	q res
}

	Set Maj=##class(%SYSTEM.Version).GetMajor()
	If Maj< 2009  {
		Set result=##class(%Library.ResultSet).%New( "Config.DataStorage:LocalDatabaseList")
	} Else {
		Set result=##class(%Library.ResultSet).%New( "Config.Databases:LocalDatabaseList")
	}

ListNS(&iskl) PUBLIC
{
	k arrNS
	f i= 1 : 1 :$ZU( 90 , 0 ) s arrNS($ZU( 90 , 2 , 0 ,i))=""
	#;
	s listNS = ""
	s ns = ""
	f {
		s ns = $o(arrNS(ns))
		q:(ns="")
		#;
		s dir = $$defdir^%GLO(ns)
		#;
		continue:(dir="")
		continue:(dir=$g(iskl))
		continue:($zcvt(dir,"U")=ns)
		continue:(($e(ns)="A")||($e(ns)="B")||($e(ns)="C"))&&(ns?1U4N)
		#;
		s listNS = listNS_$lb($lb(ns,dir))
	}
	#;
	q listNS
}