The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure check_non_updateable_args(p_rec in per_asg_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'check_non_updateable_args';
end check_non_updateable_args;
select ppf.business_group_id
from per_people_f ppf
where ppf.person_id = p_person_id
and p_effective_date between ppf.effective_start_date
and ppf.effective_end_date;
cursor csr_update is
select null
from per_contracts_f
where person_id = p_person_id
and contract_id <> p_contract_id
and reference = p_reference;
cursor csr_insert is
select null
from per_contracts_f
where person_id = p_person_id
and reference = p_reference;
if p_datetrack_mode in ('UPDATE_OVERRIDE',
'UPDATE',
'CORRECTION',
'UPDATE_CHANGE_INSERT')
AND p_reference <> per_ctc_shd.g_old_rec.reference
THEN
open csr_update;
fetch csr_update into l_exists;
if csr_update%FOUND then
close csr_update;
close csr_update;
if p_datetrack_mode = 'INSERT' then
open csr_insert;
fetch csr_insert into l_exists;
if csr_insert%FOUND then
close csr_insert;
close csr_insert;
select '1' from per_all_assignments_f
where contract_id = p_contract_id;
if upper(p_datetrack_mode) = 'DELETE' then
hr_utility.set_message(800, 'PER_52842_CTR_DEL_MODE');
select pbg.legislation_code
from per_business_groups pbg
, per_contracts_f ctr
where ctr.contract_id = p_contract_id
and pbg.business_group_id = ctr.business_group_id
order by ctr.effective_start_date;
Procedure dt_update_validate
(
p_person_id in number default hr_api.g_number,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) Is
--
l_proc varchar2(72) := g_package||'dt_update_validate';
End dt_update_validate;
Procedure dt_delete_validate
(p_contract_id in number,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) Is
--
l_proc varchar2(72) := g_package||'dt_delete_validate';
If (p_datetrack_mode = 'DELETE' or
p_datetrack_mode = 'ZAP') then
--
--
-- Ensure the arguments are not null
--
hr_api.mandatory_arg_error
(p_api_name => l_proc,
p_argument => 'validation_start_date',
p_argument_value => p_validation_start_date);
End dt_delete_validate;
Procedure insert_validate
(p_rec in per_ctc_shd.g_rec_type,
p_effective_date in date,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in per_ctc_shd.g_rec_type,
p_effective_date in date,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) is
--
l_proc varchar2(72) := g_package||'update_validate';
dt_update_validate
(
p_datetrack_mode => p_datetrack_mode,
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date);
End update_validate;
Procedure delete_validate
(p_rec in per_ctc_shd.g_rec_type,
p_effective_date in date,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) is
--
l_proc varchar2(72) := g_package||'delete_validate';
dt_delete_validate
(p_datetrack_mode => p_datetrack_mode,
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date,
p_contract_id => p_rec.contract_id);
End delete_validate;