The following lines contain the word 'select', 'insert', 'update' or 'delete':
CURSOR c_list_entries_deleted IS
SELECT LIST_ENTRY_ROW_ID, LIST_HEADER_ID, ROWID PURGE_ROWID
FROM AMS_LIST_ENTRIES_PURGE;
l_api_name VARCHAR2(50) := 'Delete_Disabled_List_Entries';
INSERT INTO AMS_LIST_ENTRIES_PURGE (LIST_HEADER_ID,LIST_ENTRY_ROW_ID)
SELECT ale.list_header_id list_header_id, ale.rowid list_entry_row_id
FROM AMS_LIST_ENTRIES ale
WHERE ale.list_header_id = p_list_name
AND ale.enabled_flag = 'N' ;
FND_FILE.PUT_LINE(FND_FILE.LOG, ' Inserted into AMS_LIST_ENTRIES_PURGE ' );
FND_FILE.PUT_LINE(FND_FILE.LOG, ' OPEN cursor c_list_entries_deleted' );
OPEN c_list_entries_deleted;
FETCH c_list_entries_deleted
BULK COLLECT INTO l_list_rec.tbl_rowid,
l_list_rec.list_header_id,
l_list_rec.purge_rowid
LIMIT l_cursor_limit;
CLOSE c_list_entries_deleted;
IF c_list_entries_deleted%ISOPEN THEN
CLOSE c_list_entries_deleted;
FND_FILE.PUT_LINE(FND_FILE.LOG, ' Others Exception in OPEN c_list_entries_deleted ' );
errbuf := 'Error in cursor c_list_entries_deleted ' || SQLERRM;
-- Delete from tables
FND_FILE.PUT_LINE(FND_FILE.LOG, ' Delete list_entries from AMS_LIST_ENTRIES ' );
DELETE FROM AMS_LIST_ENTRIES
WHERE rowid = l_list_rec.tbl_rowid(i);
DELETE FROM AMS_LIST_ENTRIES_PURGE
WHERE rowid = l_list_rec.purge_rowid(i);
FND_FILE.PUT_LINE(FND_FILE.LOG, ' Records deleted: ' || l_first ||'-'|| l_last );