The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 1
from all_policies
where object_owner = p_policy_owner
and object_name = 'BOM_ALTERNATE_DESIGNATORS'
and policy_name = 'STRUCT_TYPE_ALTS';
SELECT 1 FROM All_Policies
WHERE Object_Owner = l_Prod_Schema
AND Object_Name = 'BOM_ALTERNATE_DESIGNATORS'
AND Policy_Name = 'STRUCT_TYPE_ALTS';
SELECT oracle_username
into p_policy_owner
from fnd_oracle_userid
where read_only_flag = 'U';
STATEMENT_TYPES => 'SELECT');
select sys_context('Struct_Type_Ctx', 'appl_id')
into l_current_appl_id
from dual;