1 
 S act="s" 					//привелегия (select,insert,update,...)
 S type= 1 					//"1" for table, "3" for view, "9" for procedure
 S objs="hndb.ageGroup"		//имя таблицы
 S users="Portal_USER"		//пользователи (ресурсы???)
 S g= 1 						// 0 / 1  for WITH GRANT OPTION
 S revoke=- 1 				// 1  если отменить (- 1  в противном случае)
 //s SQLCODE   				//передается по ссылке. Возвращает SQLCODE
 //contains 				// 0  (Успех) или number <  0  (Ошибка)
 //%msg      				//передается по ссылке. Если SQLCODE< 0 , содержит сообщение об ошибке.
 S GrantedBy=$Username		//Кто привилегия была предоставлена. Если отменить, 
 							//аннулировать от пользователя, полученный от
 
 //fields  					//- факультативно, $List имен полей, 
 							//чтобы предоставить или отменить privs на OBJS
 //classmethod SaveObjPriv(
 			//acts As %String, 
 			//type As %Integer, 
 			//objs As %String, 
 			//users As %String, 
 			//g, 
 			//revoke As %Integer, 
 			//ByRef SQLCODE As %Integer, 
 			//ByRef %msg As %String, 
 			//GrantedBy As %String = "", 
 			//ByRef fields As %String = "") as %Status
 S sc=##class(%SQL.Manager.API).SaveObjPriv(act,type,objs,users,g,revoke,.SQLCODE,.msg,GrantedBy)
 w sc,!,SQLCODE,!,msg
 I +sc'= 1  w $SYSTEM.OBJ.DisplayError(sc)
 Q 

Set SQLCODE= 0 ,%msg=""
 #; The last parameter is cascade. It's set to zero now.
 If revoke= 1  Do setup1^%SYS.SQLSEC(acts,type,$lb(objs),users,g, 0 ,,,GrantedBy,.fields) QUIT $$$OK 
// Revoke
#; The last parameter is %check (check to make sure user has grantable priv)
 Do setup^%SYS.SQLSEC(acts,type,$lb(objs),users,g, 1 ,GrantedBy,.fields)	// Grant
 Quit $$$OK