The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT pmp.status_code
FROM per_perf_mgmt_plans pmp
WHERE pmp.plan_id = p_plan_id;
SELECT pmp.object_version_number
FROM per_perf_mgmt_plans pmp
WHERE pmp.plan_id = p_plan_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in per_pmp_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select 'Y'
from per_perf_mgmt_plans pmp
where pmp.plan_id <> nvl(p_plan_id, hr_api.g_number)
and upper(trim(pmp.plan_name)) = upper(trim(p_plan_name))
and (p_start_date between pmp.start_date and pmp.end_date OR
pmp.start_date between p_start_date and p_end_date);
select 'Y'
from per_all_people_f ppf
where ppf.person_id = p_administrator_person_id
and p_effective_date between ppf.effective_start_date and ppf.effective_end_date;
select 'Y'
from per_perf_mgmt_plans pmp
where pmp.plan_id = p_previous_plan_id
and pmp.start_date < p_start_date
and pmp.plan_id <> nvl(p_plan_id, hr_api.g_number);
select end_date
from per_perf_mgmt_plans pmp
where pmp.plan_id = p_previous_plan_id;
select 'Y'
from per_all_people_f ppf
where ppf.person_id = p_supervisor_id
and p_effective_date between ppf.effective_start_date and ppf.effective_end_date;
select 'Y'
from per_all_assignments_f paf
where paf.assignment_id = p_supervisor_assignment_id
and p_effective_date between
paf.effective_start_date and paf.effective_end_date;
select 'Y'
from per_organization_structures pos
where pos.organization_structure_id = p_organization_structure_id;
select 'Y'
from per_org_structure_versions psv
where psv.org_structure_version_id = p_org_structure_version_id;
select 'Y'
from per_org_structure_versions psv
where psv.organization_structure_id = p_organization_structure_id
and psv.org_structure_version_id = p_org_structure_version_id;
select 'Y'
from per_org_structure_elements pse
where pse.organization_id_parent = p_top_organization_id
and (p_org_structure_version_id IS null OR
(p_org_structure_version_id IS NOT null AND
pse.org_structure_version_id = p_org_structure_version_id));
select 'Y'
from per_position_structures pps
where pps.position_structure_id = p_position_structure_id;
select 'Y'
from per_pos_structure_versions ppv
where ppv.pos_structure_version_id = p_pos_structure_version_id;
select 'Y'
from per_pos_structure_versions psv
where psv.position_structure_id = p_position_structure_id
and psv.pos_structure_version_id = p_pos_structure_version_id;
select 'Y'
from per_pos_structure_elements pos
where pos.parent_position_id = p_top_position_id
and (p_pos_structure_version_id IS null OR
(p_pos_structure_version_id IS NOT null AND
pos.pos_structure_version_id = p_pos_structure_version_id));
IF (p_status = 'INSERT') THEN
IF (p_end_date < l_sysdate) THEN
fnd_message.set_name('PER','HR_50422_WPM_EXPIRED_PLAN');
Procedure insert_validate
(p_effective_date in date
,p_rec in per_pmp_shd.g_rec_type
,p_duplicate_name_warning out nocopy boolean
,p_no_life_events_warning out nocopy boolean
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
,p_status => 'INSERT'
);
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in per_pmp_shd.g_rec_type
,p_duplicate_name_warning out nocopy boolean
,p_no_life_events_warning out nocopy boolean
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
,p_status => 'UPDATE'
);
End update_validate;
Procedure delete_validate
(p_rec in per_pmp_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;