The following lines contain the word 'select', 'insert', 'update' or 'delete':
select grants.GRANT_GUID grant_guid,
obj.database_object_name database_object_name,
grants.parameter1 parameter1,
grants.parameter2 parameter2,
grants.parameter3 parameter3,
grants.parameter4 parameter4,
grants.parameter5 parameter5,
grants.parameter6 parameter6,
grants.parameter7 parameter7,
grants.parameter8 parameter8,
grants.parameter9 parameter9,
grants.parameter10 parameter10,
sets.instance_set_id instance_set_id,
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 nvl(grants.end_date, sysdate+1) >= trunc(sysdate)
AND grants.grantee_type = p_grantee_type
AND sets.instance_set_id = grants.instance_set_id;
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 ';
cursor_select := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE(cursor_select, query_to_exec, DBMS_SQL.NATIVE);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter1', inst_set_preds_rec.parameter1);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter2', inst_set_preds_rec.parameter2);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter3', inst_set_preds_rec.parameter3);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter4', inst_set_preds_rec.parameter4);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter5', inst_set_preds_rec.parameter5);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter6', inst_set_preds_rec.parameter6);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter7', inst_set_preds_rec.parameter7);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter8', inst_set_preds_rec.parameter8);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter9', inst_set_preds_rec.parameter9);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameterX', inst_set_preds_rec.parameter10);
cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
IF DBMS_SQL.FETCH_ROWS(cursor_select) > 0 THEN
IF i = 1 THEN
guids := to_char(inst_set_preds_rec.grant_guid);
DBMS_SQL.CLOSE_CURSOR(cursor_select);
select sets.predicate,
obj.database_object_name,
grants.parameter1,
grants.parameter2,
grants.parameter3,
grants.parameter4,
grants.parameter5,
grants.parameter6,
grants.parameter7,
grants.parameter8,
grants.parameter9,
grants.parameter10
into l_pred,
l_datobj_name,
l_param1,
l_param2,
l_param3,
l_param4,
l_param5,
l_param6,
l_param7,
l_param8,
l_param9,
l_param10
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 nvl(grants.end_date, sysdate+1) >= trunc(sysdate)
AND grants.grantee_type = p_grantee_type
AND sets.instance_set_id = grants.instance_set_id
and sets.instance_set_id = p_int_set_id;
select replace (l_chg_pred, '&TABLE_ALIAS', l_datobj_name) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER1', l_param1) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER2', l_param2) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER3', l_param3) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER4', l_param4) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER5', l_param5) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER6', l_param6) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER7', l_param7) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER8', l_param8) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER9', l_param9) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER10', l_param10) into l_chg_pred from dual;
select replace (l_chg_pred, '&TABLE_ALIAS', l_datobj_name) into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER1', ':parameter1') into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER2', ':parameter2') into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER3', ':parameter3') into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER4', ':parameter4') into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER5', ':parameter5') into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER6', ':parameter6') into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER7', ':parameter7') into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER8', ':parameter8') into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER9', ':parameter9') into l_chg_pred from dual;
select replace (l_chg_pred, '&GRANT_ALIAS.PARAMETER10', ':parameterX') into l_chg_pred from dual;
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_object_name;
cursor_select INTEGER;
select grants.parameter1,
grants.parameter2,
grants.parameter3,
grants.parameter4,
grants.parameter5,
grants.parameter6,
grants.parameter7,
grants.parameter8,
grants.parameter9,
grants.parameter10,
sets.instance_set_id,
sets.predicate,
obj.database_object_name
into
param1,
param2,
param3,
param4,
param5,
param6,
param7,
param8,
param9,
param10,
inst_id,
pred,
db_obj_name
from
fnd_grants grants,
fnd_object_instance_sets sets,
fnd_objects obj
where grants.grant_guid = p_guid
AND sets.instance_set_id = grants.instance_set_id
and obj.obj_name = p_object_name;
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;
cursor_select := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE(cursor_select, query_to_exec, DBMS_SQL.NATIVE);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter1', param1);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter2', param2);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter3', param3);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter4', param4);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter5', param5);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter6', param6);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter7', param7);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter8', param8);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameter9', param9);
DBMS_SQL.BIND_VARIABLE(cursor_select, ':parameterX', param10);
cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
IF DBMS_SQL.FETCH_ROWS(cursor_select) > 0 THEN
ret_value := 1;
DBMS_SQL.CLOSE_CURSOR(cursor_select);
' select '||''''''||' PERSON_NAME, to_number(ltrim(gr.grantee_key, '||''''||'HZ_PARTY:'||''''||')) PERSON_ID, '||''''''||' COMPANY_NAME, gr.menu_id ROLE_ID ' ||
/**05.03.2006 npanandi: appending below in the SELECT clause for PLM's R12 SQL change**/
',gr.object_id '||
/**05.03.2006 npanandi: ends**/
' from fnd_grants gr, fnd_object_instance_sets inst, fnd_objects fo ' ||
' where gr.object_id = fo.object_id ' ||
' and fo.obj_name = ' || ''''||p_object_name ||''''||
' and gr.instance_type = '||''''||'SET'||'''' ||
' and grantee_type = '||''''||'USER'||'''' ||
' and nvl(end_date, sysdate+1) >= trunc(sysdate) ' ||
' and gr.instance_set_id = inst.instance_set_id ' ||
' and 1 = AMW_VALID_INSTANCE_SET_GRANTS.check_grant_validity' ||
'(gr.grant_guid, ' ||lp_pk1||', '||lp_pk2||', '||lp_pk3||', '||lp_pk4||', '||lp_pk5||','||
' fo.obj_name) ';