The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT application_id
INTO app_id
FROM fnd_application
WHERE application_short_name = 'SQLGL';
FOR s IN (SELECT segment_num num,
application_column_name acn
FROM fnd_id_flex_segments
WHERE id_flex_code = 'GL#'
AND id_flex_num = cht_id
AND application_id = app_id
AND enabled_flag = 'Y'
ORDER BY segment_num)
LOOP
consegs := consegs || addition1 || s.acn || addition2 || separate;
SELECT application_id
INTO app_id
FROM fnd_application
WHERE application_short_name = 'SQLGL';
FOR s IN (SELECT segment_num num,
application_column_name acn
FROM fnd_id_flex_segments
WHERE id_flex_code = 'GL#'
AND id_flex_num = cht_id
AND application_id = app_id
AND enabled_flag = 'Y'
ORDER BY segment_num)
LOOP
IF nsegs > 0 THEN
-- Bug 2554099
num := to_number(substr(s.acn,8,length(s.acn)-7));