The following lines contain the word 'select', 'insert', 'update' or 'delete':
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_person_type_usage_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 chk_non_updateable_args
(p_rec in per_ptu_shd.g_rec_type
,p_effective_date in date
) is
--
l_proc varchar2(72) := g_package||'chk_non_updateable_args';
end chk_non_updateable_args;
select person_id
from per_all_people_f
where person_id = p_person_id;
select system_person_type ,business_group_id
from per_person_types
where person_type_id = lc_person_type_id;
select person_type_usage_id
from per_person_type_usages_f
where person_type_id in ( select person_type_id
from per_person_types
where system_person_type = l_person_type
and business_group_id = l_business_group_id )
and person_id = p_person_id
and ((effective_start_date <= p_effective_date and
effective_end_date >= p_effective_date) or
(effective_start_date >= p_effective_date));
Procedure insert_validate
(p_rec in per_ptu_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_ptu_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';
chk_non_updateable_args
(p_rec => p_rec
,p_effective_date => p_effective_date);
dt_update_validate
(p_person_id => p_rec.person_id,
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_ptu_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_person_type_usage_id => p_rec.person_type_usage_id);
End delete_validate;
select pbg.legislation_code
from per_business_groups pbg
, per_person_type_usages_f ptu
, per_all_people_f per
where ptu.person_type_usage_id = p_person_type_usage_id
and ptu.person_id = per.person_id
and pbg.business_group_id = per.business_group_id;