The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, per_grades grd
where grd.grade_id = p_grade_id
and pbg.business_group_id = grd.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, per_grades grd
where grd.grade_id = p_grade_id
and pbg.business_group_id = grd.business_group_id;
PROCEDURE chk_delete(p_grade_id number
,p_object_version_number number
) is
l_exists varchar2(1);
select 'x'
FROM per_all_assignments_f
WHERE grade_id = p_grade_id;
select 'x'
FROM per_valid_grades
WHERE grade_id = p_grade_id;
select 'x'
FROM per_vacancies
WHERE grade_id = p_grade_id;
select 'x'
FROM pay_element_links
WHERE grade_id = p_grade_id;
select 'x'
FROM per_budget_elements
WHERE grade_id = p_grade_id;
select 'x'
FROM per_grade_spines
WHERE grade_id = p_grade_id;
select 'x'
FROM pay_grade_rules
WHERE grade_or_spinal_point_id = p_grade_id
AND rate_type = 'G';
select 'x'
FROM per_salary_survey_mappings
WHERE grade_id = p_grade_id;
select 'x'
FROM hr_all_positions_f
WHERE entry_grade_id = p_grade_id;
l_proc varchar2(72) := g_package||'chk_delete';
l_delete_plan varchar2(20);
l_delete_plan := pqh_gsp_sync_compensation_obj.delete_plan_for_grade
(p_grade_id => p_grade_id
);
hr_utility.trace('pqh_gsp_sync_compensation_obj.delete_plan_for_grade return => ' || l_delete_plan);
if l_delete_plan <> 'SUCCESS' Then
l_message := fnd_message.get;
end chk_delete;
select 'x'
from per_grades
where p_short_name is not null
and upper(short_name) = upper(p_short_name)
and business_group_id + 0 = p_business_group_id;
cursor csr_update_short_name is
select 'x'
from per_grades grd
where p_short_name is not null
and grd.grade_id = p_grade_id
and exists
(select *
from per_grades
where business_group_id = grd.business_group_id
and upper(short_name) = upper(p_short_name));
open csr_update_short_name;
fetch csr_update_short_name into l_exists;
if csr_update_short_name%found then
close csr_update_short_name;
close csr_update_short_name;
select 'x'
from per_grade_definitions
where grade_definition_id = p_grade_definition_id;
select 'x'
from per_grades
where grade_definition_id = p_grade_definition_id
and business_group_id + 0 = p_business_group_id;
SELECT 'x'
FROM per_grades grd
WHERE grd.business_group_id = p_business_group_id
AND grd.sequence = p_sequence
;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in per_grd_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
Procedure insert_validate
(p_effective_date in date
,p_rec in per_grd_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_grd_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_grd_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete
(p_grade_id => p_rec.grade_id
,p_object_version_number => p_rec.object_version_number
);
End delete_validate;