The following lines contain the word 'select', 'insert', 'update' or 'delete':
select DISTINCT sets.instance_set_id instance_set_id , sets.instance_set_name instance_set_name,
sets.predicate predicate
from
fnd_grants grants,
fnd_object_instance_sets sets,
fnd_objects obj
where obj.obj_name = p_obj_name
AND grants.object_id = obj.object_id
AND grants.instance_type='SET'
AND grants.parameter1 is null
AND nvl(grants.end_date, sysdate+1) >= trunc(sysdate)
AND grants.grantee_type = p_grantee_type
AND sets.instance_set_id = grants.instance_set_id
order by instance_set_name;
select DATABASE_OBJECT_NAME,
PK1_COLUMN_NAME,PK2_COLUMN_NAME,
PK3_COLUMN_NAME,PK4_COLUMN_NAME,
PK5_COLUMN_NAME from fnd_objects where OBJ_NAME = p_obj_name;
cursor_select INTEGER;
obj_std_pkq := 'SELECT ' || obj_meta_data_rec.PK1_COLUMN_NAME;
query_to_exec := 'SELECT 1 from dual WHERE (' || p_obj_ids || ') IN (' || obj_std_pkq;
query_to_exec := 'SELECT 1 from dual WHERE EXISTS( ' || obj_std_pkq || ' WHERE ';
query_to_exec := 'SELECT 1 from dual WHERE (' || p_obj_ids || ') IN (' || obj_std_pkq;
query_to_exec := 'SELECT 1 from dual WHERE EXISTS( ' || obj_std_pkq || ' WHERE ';
query_to_exec := 'SELECT 1 from dual WHERE (' || p_obj_ids || ') IN (' || obj_std_pkq;
query_to_exec := 'SELECT 1 from dual WHERE EXISTS( ' || obj_std_pkq || ' WHERE ';
cursor_select := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE(cursor_select, query_to_exec, DBMS_SQL.NATIVE);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':id1', p_bind1);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':id2', p_bind2);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':id3', p_bind3);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':id4', p_bind4);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':id5', p_bind5);
cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
IF DBMS_SQL.FETCH_ROWS(cursor_select) > 0 THEN
IF i = 1 THEN
inst_set_ids := to_char(inst_set_preds_rec.instance_set_id);
DBMS_SQL.CLOSE_CURSOR(cursor_select);