The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_delimiter IS
l_width_1 NUMBER;
END insert_delimiter;
SELECT parent_value, parent_value_description, hierarchy_level
FROM JG_ZZ_GL_ACCT_HIER_GT
START WITH child_value = p_detail_acct
AND flex_value_set_id = p_value_set_id
-- AND summary_flag = 'Y'
-- AND hierarchy_level IS NOT NULL
CONNECT BY PRIOR parent_value = child_value
AND flex_value_set_id = p_value_set_id
AND summary_flag = 'Y'
AND hierarchy_level IS NOT NULL
ORDER BY hierarchy_level, parent_value;
insert_delimiter;
SELECT flex_value, description, enabled_flag, summary_flag,
substr(compiled_value_attributes,5,1) account_type,
flex_value_set_id, start_date_active, end_date_active
FROM FND_FLEX_VALUES_VL
WHERE flex_value_set_id = p_value_set_id
AND DECODE(p_top_parent_acct,'','1',flex_value) = DECODE(p_top_parent_acct,'','1',p_top_parent_acct);
SELECT f.flex_value, f.description, f.enabled_flag, f.summary_flag,
substr(f.compiled_value_attributes,5,1) account_type,
f.flex_value_set_id, f.start_date_active, f.end_date_active,
nvl((SELECT distinct 1 FROM JG_ZZ_GL_ACCT_HIER_GT gt
WHERE gt.summary_flag = 'Y'
AND nvl(gt.hierarchy_level, -1) = v_level
AND gt.child_value = f.flex_value
AND EXISTS( SELECT distinct 1 FROM JG_ZZ_GL_ACCT_HIER_GT gt2
WHERE gt2.PARENT_VALUE = gt.CHILD_VALUE)),0) record_exists
FROM FND_FLEX_VALUES_VL f
WHERE flex_value_set_id = p_value_set_id
AND flex_value IN (SELECT gt.child_value
FROM JG_ZZ_GL_ACCT_HIER_GT gt
WHERE gt.summary_flag = 'Y'
AND nvl(gt.hierarchy_level, -1) = v_level);
SELECT b.flex_value, b.summary_flag
FROM FND_FLEX_VALUES_VL b, FND_FLEX_VALUE_NORM_HIERARCHY a
WHERE a.flex_value_set_id = p_value_set_id
AND a.parent_flex_value = v_flex_parent
AND b.flex_value_set_id = p_value_set_id
AND b.flex_value IN
(SELECT c.flex_value
FROM FND_FLEX_VALUES c
WHERE c.flex_value BETWEEN a.child_flex_value_low
AND a.child_flex_value_high
AND c.flex_value_set_id = a.flex_value_set_id
AND DECODE(a.range_attribute, 'P', 'Y', 'N') = c.summary_flag);
l_insert_count NUMBER;
l_insert_count := 0;
INSERT INTO JG_ZZ_GL_ACCT_HIER_GT
(parent_value,
parent_value_description,
child_value,
summary_flag,
account_type,
hierarchy_level,
flex_value_set_id)
VALUES
(val_rec.flex_value,
val_rec.description,
child_rec.flex_value,
child_rec.summary_flag,
val_rec.account_type,
l_level,
p_value_set_id);
l_insert_count := l_insert_count + 1;
INSERT INTO JG_ZZ_GL_ACCT_HIER_GT
(parent_value,
parent_value_description,
child_value,
summary_flag,
account_type,
hierarchy_level,
flex_value_set_id)
VALUES
(val_rec.flex_value,
val_rec.description,
NULL,
val_rec.summary_flag,
val_rec.account_type,
NULL,
p_value_set_id);
l_done := (l_insert_count = 0);
l_insert_count := 0;
UPDATE JG_ZZ_GL_ACCT_HIER_GT
SET hierarchy_level = l_level + 1
WHERE parent_value = val_rec.flex_value
AND child_value = child_rec.flex_value
AND flex_value_set_id = p_value_set_id;
INSERT INTO JG_ZZ_GL_ACCT_HIER_GT
(parent_value,
parent_value_description,
child_value,
summary_flag,
account_type,
hierarchy_level,
flex_value_set_id)
VALUES
(val_rec.flex_value,
val_rec.description,
child_rec.flex_value,
child_rec.summary_flag,
val_rec.account_type,
l_level + 1,
p_value_set_id);
l_insert_count := l_insert_count + 1;
INSERT INTO JG_ZZ_GL_ACCT_HIER_GT
(parent_value,
parent_value_description,
child_value,
summary_flag,
account_type,
hierarchy_level,
flex_value_set_id)
VALUES
(val_rec.flex_value,
val_rec.description,
NULL,
val_rec.summary_flag,
val_rec.account_type,
NULL,
p_value_set_id);*/
l_done := (l_insert_count = 0);