The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 1
FROM ALL_TABLES
--MADE by Khaja added one OWNER on where clause for UDTF bug fix #3431801
--MADE by Khaja FROM user_tables
WHERE table_name = upper(c_tablename)
and owner=c_schema_owner;
FOR rec in (SELECT APPLICATION_SHORT_NAME from fnd_application
where application_id between 550 and 558
UNION
-- This query given by Pete from AD for UDTF APPS schema retrieve
SELECT oracle_username application_short_name FROM fnd_oracle_userid
WHERE read_only_flag = 'U')
LOOP
if rec.application_short_name='APPS' then
l_schema_owner:=rec.application_short_name;
select 'X'
from user_tablespaces
where tablespace_name = upper(c_tablespace_name);
SELECT sqlstatement
FROM sy_purg_def SD
WHERE SD.purge_type = c_purge_type;