The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_all(p_request_id IN NUMBER,
p_table_name IN VARCHAR2) IS
v_source_list TYP_NEST_TAB_VARCHAR;
--gather stats on the table from which the records are to be deleted
FND_STATS.GATHER_TABLE_STATS('AZ',p_table_name);
execute immediate 'select distinct(source) from '||p_table_name||
' where request_id='||p_request_id
BULK COLLECT INTO v_source_list;
delete_source(p_request_id,v_source_list(i),p_table_name);
'DELETE_ALL: Error while deleting records for a given source:'||v_source_list(i));
END delete_all;
PROCEDURE delete_source(p_request_id IN NUMBER,p_source IN VARCHAR2,p_table_name IN VARCHAR2)
IS
v_id_list TYP_NEST_TAB_NUMBER;
open cur_id for 'select id from '||p_table_name||
' where request_id=:1 and source=:2'
USING p_request_id,p_source;
execute immediate 'delete from '||p_table_name||' where
request_id=:1 and source=:2 and
id=:3' using p_request_id,p_source,v_id_list(i);
END delete_source;