The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure chk_non_updateable_args
(p_rec in irc_rtm_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select party_id
from per_all_people_f
where person_id = p_person_id
and p_effective_date between
effective_start_date and effective_end_date;
SELECT NULL
FROM per_all_people_f paf
WHERE paf.person_id = p_person_id
AND p_effective_date BETWEEN paf.effective_start_date
AND paf.effective_end_date
AND ( NVL (paf.current_employee_flag, 'N') = 'Y'
OR ( NVL (paf.current_npw_flag, 'N') = 'Y'
AND NVL (fnd_profile.VALUE ('HR_TREAT_CWK_AS_EMP'), 'N') = 'Y'
)
);
select vacancy_id
from per_all_vacancies
where vacancy_id = p_vacancy_id;
select null from
per_jobs job, per_all_vacancies vac
where job.job_id = p_job_id
and vac.vacancy_id = p_vacancy_id
and vac.business_group_id = job.business_group_id
and p_start_date between job.date_from and nvl(job.date_to,hr_api.g_eot);
select null from
per_jobs job
,per_job_groups jgr
where job.job_id = p_job_id
and job.job_group_id = jgr.job_group_id
and job.business_group_id = jgr.business_group_id
and jgr.internal_name <> 'HR_'||to_char(jgr.business_group_id);
Procedure chk_update_allowed
(p_update_allowed in irc_rec_team_members.update_allowed%type
,p_start_date in irc_rec_team_members.start_date%type
,p_rec_team_member_id in irc_rec_team_members.rec_team_member_id%type
,p_object_version_number in irc_rec_team_members.object_version_number%type
) IS
--
l_proc varchar2(72) := g_package || 'chk_update_allowed';
if (p_update_allowed is not NULL) then
--
l_api_updating := irc_rtm_shd.api_updating(p_rec_team_member_id
,p_object_version_number);
and (irc_rtm_shd.g_old_rec.update_allowed <> p_update_allowed))
or (NOT l_api_updating)) then
--
-- Check that a valid 'Update Allowed' value is entered.
--
l_var := hr_api.not_exists_in_hr_lookups
(p_start_date
,'YES_NO'
,p_update_allowed
);
(p_associated_column1 => 'IRC_REC_TEAM_MEMBERS.UPDATE_ALLOWED'
) then
hr_utility.set_location(' Leaving:'||l_proc, 50);
End chk_update_allowed;
Procedure chk_delete_allowed
(p_delete_allowed in irc_rec_team_members.delete_allowed%type
,p_start_date in irc_rec_team_members.start_date%type
,p_rec_team_member_id in irc_rec_team_members.rec_team_member_id%type
,p_object_version_number in irc_rec_team_members.object_version_number%type
) IS
--
l_proc varchar2(72) := g_package || 'chk_delete_allowed';
if (p_delete_allowed is not NULL) then
--
l_api_updating := irc_rtm_shd.api_updating(p_rec_team_member_id,p_object_version_number);
and (irc_rtm_shd.g_old_rec.delete_allowed <> p_delete_allowed))
or (NOT l_api_updating)) then
--
-- Check that a valid 'Delete Allowed' value is entered.
--
l_var := hr_api.not_exists_in_hr_lookups
(p_start_date
,'YES_NO'
,p_delete_allowed
);
(p_associated_column1 => 'IRC_REC_TEAM_MEMBERS.DELETE_ALLOWED'
) then
hr_utility.set_location(' Leaving:'||l_proc, 50);
End chk_delete_allowed;
select null
from irc_rec_team_members
where person_id = p_person_id
and vacancy_id = p_vacancy_id;
Procedure insert_validate
(p_rec in out nocopy irc_rtm_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
chk_update_allowed
(p_update_allowed => p_rec.update_allowed
,p_start_date => p_rec.start_date
,p_rec_team_member_id => p_rec.rec_team_member_id
,p_object_version_number => p_rec.object_version_number
);
chk_delete_allowed
(p_delete_allowed => p_rec.delete_allowed
,p_start_date => p_rec.start_date
,p_rec_team_member_id => p_rec.rec_team_member_id
,p_object_version_number => p_rec.object_version_number
);
End insert_validate;
Procedure update_validate
(p_rec in out nocopy irc_rtm_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_update_allowed
(p_update_allowed => p_rec.update_allowed
,p_start_date => p_rec.start_date
,p_rec_team_member_id => p_rec.rec_team_member_id
,p_object_version_number => p_rec.object_version_number
);
chk_delete_allowed
(p_delete_allowed => p_rec.delete_allowed
,p_start_date => p_rec.start_date
,p_rec_team_member_id => p_rec.rec_team_member_id
,p_object_version_number => p_rec.object_version_number
);
chk_non_updateable_args
(p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in irc_rtm_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;