s rs = ##class(%ResultSet).%New("Security.Resources:List")
d rs.Execute("*",- 1 ,- 1 )
f { q:('rs.Next())  w "Name="_rs.Get("Name"),! }
k rs

w ##class(Security.Users).Get(<имя_пользователя>,.Prop)
w Prop  ; пустая строка
zw Prop  ; параметры пользователя в узлах массива

GrantPriv(namespace, project, grantee, priv="*") [ SQLCODE, ClassList, project, namespace ] PUBLIC
{
s SQLCODE =  0 
&sql(SELECT LIST(DictCls.SqlQualifiedNameQ) INTO :ClassList
	FROM %Dictionary.CompiledClass DictCls,
		(SELECT Name FROM %Studio.ProjectItem WHERE (Project = :project) AND (type = 'CLS')) PrjCls
	WHERE (DictCls.CompileNamespace = :namespace)
		AND (DictCls.ClassType = 'persistent' OR DictCls.ClassType = 'view')
		AND (DictCls.ID = PrjCls.Name)
	)
if (SQLCODE '= 0)
{
	w "Ошибка SQL: SQLCODE="_SQLCODE,!
	q 0
}
#;
s SQLCODE = 0
s rs = ##class(%ResultSet).%New("%DynamicQuery:SQL")
s sc = rs.Prepare("GRANT "_priv_" ON "_ClassList_" TO "_grantee)
s:($$$ISOK(sc)) sc = rs.Execute()
k rs
#;
if ($$$ISERR(sc)) && (SQLCODE '=  0 ) && (SQLCODE '=  100 )
{
	w "Ошибка GRANT: StatusCode="_sc,!
	q  0 
}
#;
q  1 
}