1 %RegisteredObject 0 %String 1 Gebruiker:%String %Status %ArrayOfObjects 1 1 %String 1 1 %String TableName:%String 1 Tools.dto.SQL.Privileges 1 %Boolean 0 { set Gedefinieerd = 1 set GrantIndex = $order(^mpriv(0,TableNode,"s",..Gebruiker,"")) set Privilege = $select(^mpriv(0,TableNode,"s",..Gebruiker,GrantIndex):2,1:1) } quit Gedefinieerd ]]>