The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, per_pos_structure_elements pse
where pse.pos_structure_element_id = p_pos_structure_element_id
and pbg.business_group_id = pse.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, per_pos_structure_elements pse
where pse.pos_structure_element_id = p_pos_structure_element_id
and pbg.business_group_id = pse.business_group_id;
Procedure chk_non_updateable_args
(p_rec in per_pse_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select null
into l_temp
from sys.dual
where exists(select 1
from per_pos_structure_elements pse
where pse.parent_position_id = p_Subordinate_position_Id
and pse.pos_structure_version_id = p_Pos_Structure_version_Id);
select null
into l_dummy
from sys.dual
where exists(select 1
from per_security_profiles psp
where psp.business_group_id + 0 = p_Business_Group_Id
and psp.position_id = p_Subordinate_position_Id
and psp.position_structure_id = (select psv.position_structure_id
from per_pos_structure_versions psv
where psv.Pos_Structure_version_Id
= p_Pos_Structure_version_Id)
);
SELECT 'X'
from per_pos_structure_versions psv
where psv.pos_structure_version_id = p_pos_structure_version_id
and psv.business_group_id = p_business_group_id
and p_effective_date between psv.DATE_FROM
and nvl(psv.DATE_TO,hr_general.end_of_time);
SELECT 'X'
from hr_all_positions_f pos
where pos.POSITION_ID = p_pos_id
and pos.business_group_id = p_business_group_id
and p_effective_date between pos.EFFECTIVE_START_DATE
and pos.EFFECTIVE_END_DATE;
SELECT 'X'
from per_pos_structure_elements ele
where ele.pos_structure_version_id = p_pos_structure_version_id
and ele.subordinate_position_id = p_subordinate_position_id;
Procedure insert_validate
(p_rec in per_pse_shd.g_rec_type
,p_effective_date in date
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in per_pse_shd.g_rec_type
,p_effective_date in date
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in per_pse_shd.g_rec_type
,p_hr_installed in VARCHAR2
,p_chk_children in VARCHAR2
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;