oracle8.1.6
declare begin
acs_permission.grant_permission(object_id => :object_id,
grantee_id => :user_id,
privilege => :privilege);
end;
declare begin
acs_permission.revoke_permission(object_id => :object_id,
grantee_id => :user_id,
privilege => :privilege);
end;
select count(*)
from dual
where acs_permission.permission_p(:object_id, :user_id, :privilege) = 't'
select acs_object.name(:object_id) from dual