The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups_perf pbg
, per_gen_hierarchy_nodes pgn
where pgn.hierarchy_node_id = p_hierarchy_node_id
and pbg.business_group_id (+) = pgn.business_group_id;
select pbg.legislation_code
from per_business_groups_perf pbg
, per_gen_hierarchy_nodes pgn
where pgn.hierarchy_node_id = p_hierarchy_node_id
and pbg.business_group_id (+) = pgn.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in per_pgn_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select 'Y'
from hr_all_organization_units hou
, hr_organization_information hoi
, per_gen_hierarchy_versions pgv
where hou.organization_id = p_entity_id
and (hou.business_group_id = p_business_group_id or p_business_group_id is null)
and pgv.hierarchy_version_id = p_hierarchy_version_id
and hou.organization_id = hoi.organization_id
and hoi.org_information_context = 'CLASS'
and hoi.org_information1 = 'PAR_ENT';
select 'Y'
from hr_locations_all loc
where loc.location_id = p_entity_id;
select 'Y'
from hr_locations_all loc,
hr_location_extra_info lei
where loc.location_id = p_entity_id
and loc.location_id = lei.location_id
and lei.information_type in ('Establishment Information',
'VETS-100 Specific Information',
'EEO-1 Specific Information',
'Multi Work Site Information');
select 'Y'
from per_gen_hierarchy_nodes
where entity_id = p_entity_id
and hierarchy_version_id = p_hierarchy_version_id
and node_type = p_node_type;
select 'Y'
from per_gen_hierarchy_versions
where hierarchy_version_id = p_hierarchy_version_id;
select seq
from per_gen_hierarchy_nodes
where seq = p_seq
and hierarchy_version_id = p_hierarchy_version_id
and parent_hierarchy_node_id = p_parent_hierarchy_node_id;
select 'Y'
from per_gen_hierarchy_nodes
where node_type = 'PAR'
and hierarchy_version_id = p_hierarchy_version_id;
select 'Y'
from per_gen_hierarchy_nodes
where hierarchy_version_id = p_hierarchy_version_id
and hierarchy_node_id = p_parent_hierarchy_node_id;
Procedure chk_delete
( p_hierarchy_node_id in per_gen_hierarchy_nodes.hierarchy_node_id%TYPE
) is
--
-- Declare local variables
--
l_exists varchar2(1) := 'N';
l_proc varchar2(72) := g_package||'chk_delete';
select 'Y'
from per_gen_hierarchy_nodes
where parent_hierarchy_node_id = p_hierarchy_node_id;
select 'X'
from per_cal_entry_values
where hierarchy_node_id = p_hierarchy_node_id;
end chk_delete;
Procedure insert_validate
(p_effective_date in date
,p_rec in per_pgn_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_pgn_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_pgn_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete
( p_hierarchy_node_id => p_rec.hierarchy_node_id
);
End delete_validate;