The following lines contain the word 'select', 'insert', 'update' or 'delete':
select '1'
from per_collective_agreements per
where per.collective_agreement_id = p_collective_agreement_id;
select '1'
from fnd_id_flex_structures fnd
where fnd.id_flex_num = p_id_flex_num;
select '1'
from per_cagr_grade_structures pcg
where pcg.id_flex_num = p_id_flex_num
and pcg.collective_agreement_id = p_collective_agreement_id;
procedure chk_dynamic_insert_allowed
(p_cagr_grade_structure_id in per_cagr_grade_structures.cagr_grade_structure_id%TYPE
,p_dynamic_insert_allowed in per_cagr_grade_structures.dynamic_insert_allowed%TYPE
,p_effective_date in date
,p_object_version_number in per_cagr_grade_structures.object_version_number%TYPE
) is
--
l_proc varchar2(72) := g_package||'chk_dynamic_insert_allowed';
,p_argument => 'dynamic_insert_allowed'
,p_argument_value => p_dynamic_insert_allowed
);
nvl(per_grs_shd.g_old_rec.dynamic_insert_allowed, hr_api.g_varchar2)<>
nvl(p_dynamic_insert_allowed, hr_api.g_varchar2))
or (NOT l_api_updating))
then
hr_utility.set_location(l_proc, 40);
,p_lookup_code => p_dynamic_insert_allowed
)
then
--
hr_utility.set_message(800, 'PER_52614_GRS_INV_DYNAMIC_INS');
end chk_dynamic_insert_allowed;
select '1' from per_cagr_grades
where cagr_grade_structure_id = p_cagr_grade_structure_id;
Procedure insert_validate(p_effective_date in date,
p_rec in per_grs_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_validate';
chk_dynamic_insert_allowed
(p_cagr_grade_structure_id => p_rec.cagr_grade_structure_id
,p_dynamic_insert_allowed => p_rec.dynamic_insert_allowed
,p_effective_date => p_effective_date
,p_object_version_number => p_rec.object_version_number
);
End insert_validate;
Procedure update_validate( p_effective_date in date,
p_rec in per_grs_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_dynamic_insert_allowed
(p_cagr_grade_structure_id => p_rec.cagr_grade_structure_id
,p_dynamic_insert_allowed => p_rec.dynamic_insert_allowed
,p_effective_date => p_effective_date
,p_object_version_number => p_rec.object_version_number);
End update_validate;
Procedure delete_validate(p_effective_date in date,
p_rec in per_grs_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;