The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Delete_Transaction_Rows(p_older_than_date IN DATE) IS
h_counter NUMBER := 0;
CURSOR select_cursor IS
SELECT rowid FROM fnd_ps_txn
WHERE creation_date < p_older_than_date;
FOR rec IN select_cursor LOOP
DELETE FROM fnd_ps_txn
WHERE rowid = rec.rowid;
'FND_BC4J_CLEANUP.Delete_Transaction_Rows');
END Delete_Transaction_Rows;
PROCEDURE Delete_Control_Rows(p_older_than_date IN DATE) IS
h_counter NUMBER := 0;
CURSOR select_cursor IS
SELECT rowid FROM fnd_pcoll_control
WHERE updatedate < p_older_than_date;
FOR rec IN select_cursor LOOP
DELETE FROM fnd_pcoll_control
WHERE rowid = rec.rowid;
'FND_BC4J_CLEANUP.Delete_Control_Rows');
END Delete_Control_Rows;