The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, per_gen_hier_node_types pgt
where pgt.hier_node_type_id = p_hier_node_type_id
and pbg.business_group_id = pgt.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, per_gen_hier_node_types pgt
where pgt.hier_node_type_id = p_hier_node_type_id
and pbg.business_group_id (+) = pgt.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in per_pgt_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
SELECT 'X'
FROM per_gen_hier_node_types
WHERE child_node_type = l_node_type
AND hierarchy_type = l_hierarchy_type;
SELECT 'X'
FROM per_gen_hier_node_types
WHERE parent_node_type is null
AND hierarchy_type = l_hierarchy_type;
SELECT 'X'
FROM fnd_flex_value_sets
WHERE flex_value_set_name = p_child_value_set;
SELECT 'Y'
FROM per_gen_hierarchy_nodes
WHERE node_type = to_char(p_hier_node_type_id);
Procedure insert_validate
(p_effective_date in date
,p_rec in per_pgt_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in per_pgt_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in per_pgt_shd.g_rec_type
) is
-- csr to see if any hierarchy nodes reference this scope
CURSOR csr_node_used is
select 'Y'
from per_gen_hierarchy_nodes
where node_type = to_char(p_rec.hier_node_type_id);
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;