The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_clob (p_spec_id IN NUMBER) IS
PRAGMA AUTONOMOUS_TRANSACTION;
l_api_name VARCHAR2(40) := 'INSERT_CLOB';
DELETE FROM FND_LOBS WHERE FILE_ID = l_spec_id;
INSERT INTO FND_LOBS (FILE_ID, FILE_NAME, FILE_CONTENT_TYPE,
FILE_DATA, LANGUAGE, ORACLE_CHARSET, FILE_FORMAT)
VALUES (l_spec_id, 'lcf.sql', 'text/plain', EMPTY_BLOB(), USERENV('LANG'), 'UTF8', 'text');
SELECT file_data INTO l_blob
FROM fnd_lobs
WHERE file_id = l_spec_id
FOR UPDATE NOWAIT;
END insert_clob;
SELECT DISTINCT tech_parm_id, tech_parm_name
FROM GMD_LCF_TECH_DATA_GTMP
ORDER BY tech_parm_id;
SELECT d.LINE_NO, d.line_id, SUBSTR(d.CONCATENATED_SEGMENTS,1, 36) item, d.PRIMARY_UOM, t.VALUE
FROM GMD_LCF_DETAILS_GTMP d, GMD_LCF_TECH_DATA_GTMP t
WHERE d.line_id = t.line_id
ORDER BY d.line_no, t.tech_parm_id;
SELECT category_name
FROM gmd_lcf_category_hdr_gtmp h
WHERE EXISTS (SELECT 1
FROM gmd_lcf_category_dtl_gtmp d
WHERE d.line_id = V_line_id
AND NVL(value_ind, 0) = 1
AND d.category_id = h.category_id);
insert_clob (p_spec_id => p_spec_id);