The following lines contain the word 'select', 'insert', 'update' or 'delete':
select lower(host_name), lower(instance_name)
into lhost, linstance
from v$instance;
SELECT ENABLED
FROM FND_ENABLED_PLSQL
WHERE PLSQL_TYPE = 'PROCEDURE'
AND PLSQL_NAME = v_procedure
AND ENABLED = 'Y'
AND decode(v_external, 'Y', EXTERNAL, '*') =
decode(v_external, 'Y', 'Y', '*');
SELECT ENABLED
FROM FND_ENABLED_PLSQL
WHERE PLSQL_TYPE = 'PACKAGE' AND PLSQL_NAME = v_pack
AND ENABLED = 'Y'
AND decode(v_external, 'Y', EXTERNAL, '*') =
decode(v_external, 'Y', 'Y', '*');
SELECT decode(v_external, 'Y',
decode(nvl(EXTERNAL, 'N'), 'N', 'N', enabled), enabled)
FROM FND_ENABLED_PLSQL
WHERE PLSQL_TYPE = 'PACKAGE.PROCEDURE' AND PLSQL_NAME = v_packproc;