The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure chk_non_updateable_args
(p_rec in hr_hrc_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select
distinct 'found'
From
hr_ki_hierarchies hrc
where
hrc.hierarchy_key = p_hierarchy_key;
select
'found'
From
hr_ki_hierarchies hrc
where
hrc.hierarchy_id = p_parent_hierarchy_id;
select
'found'
From
hr_ki_hierarchies hrc
Where
hrc.parent_hierarchy_id is null;
procedure chk_parent_hierarchy_id_update
(p_parent_hierarchy_id in number
)
is
-- Variables for API Boolean parameters
l_proc varchar2(72) := g_package ||'chk_parent_hierarchy_id_update';
hr_utility.set_location(' Parent hierarchy id of global node updated:'
|| l_proc,20);
End chk_parent_hierarchy_id_update;
select
'found'
from
dual
where
p_hierarchy_id in
(
select
hrc.hierarchy_id
from hr_ki_hierarchies hrc
connect by prior hrc.parent_hierarchy_id = hrc.hierarchy_id
start with hrc.hierarchy_id = p_parent_hierarchy_id
);
l_proc varchar2(72) := g_package ||'chk_parent_hierarchy_id_update';
hr_utility.set_location(' Update will result in a cyclic hierarchy, aborting'
|| l_proc,20);
procedure chk_delete(p_hierarchy_id in varchar2)
is
CURSOR csr_hrc_id is
select
distinct 'found'
From
hr_ki_hierarchies hrc
where
hrc.parent_hierarchy_id = p_hierarchy_id;
select
distinct 'found'
From
hr_ki_hierarchy_node_maps hnm
where
hnm.hierarchy_id = p_hierarchy_id;
select
distinct 'found'
From
hr_ki_hierarchies_tl htl
where
htl.hierarchy_id = p_hierarchy_id;
l_proc varchar2(72) := g_package ||'chk_delete';
End chk_delete;
Procedure insert_validate
(p_rec in hr_hrc_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in hr_hrc_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_rec => p_rec
);
chk_parent_hierarchy_id_update(p_parent_hierarchy_id => p_rec.parent_hierarchy_id);
End update_validate;
Procedure delete_validate
(p_rec in hr_hrc_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete(p_hierarchy_id => p_rec.hierarchy_id);
End delete_validate;