The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, pay_cost_allocations_f cal
where cal.cost_allocation_id = p_cost_allocation_id
and pbg.business_group_id = cal.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, pay_cost_allocations_f cal
where cal.cost_allocation_id = p_cost_allocation_id
and pbg.business_group_id = cal.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in pay_cal_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select 'Y'
from pay_cost_allocation_keyflex ckf
where ckf.cost_allocation_keyflex_id = p_cost_allocation_keyflex_id
and p_effective_date between nvl(ckf.start_date_active,p_effective_date)
and nvl(ckf.end_date_active,p_effective_date)
and ckf.enabled_flag = 'Y';
select 'Y'
from per_assignments_f paf
where paf.assignment_id = p_assignment_id
and p_effective_date between paf.effective_start_date
and paf.effective_end_date
and paf.business_group_id = p_business_group_id;
select null
from pay_cost_allocations_f
where assignment_id = p_assignment_id
and cost_allocation_id <> nvl(p_cost_allocation_id, hr_api.g_number)
and cost_allocation_keyflex_id = p_cost_allocation_keyflex_id
and effective_start_date <= p_validation_end_date
and effective_end_date >= p_validation_start_date
;
if p_datetrack_mode not in (hr_api.g_zap, hr_api.g_delete) then
--
-- Check mandatory parameters have been set
--
--
-- Note: cost_allocation_id is not yet populated when inserting.
--
if p_datetrack_mode <> hr_api.g_insert then
hr_api.mandatory_arg_error
(p_api_name => l_proc
,p_argument => 'cost_allocation_id'
,p_argument_value => p_cost_allocation_id
);
Procedure dt_update_validate
(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_cost_allocation_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 = hr_api.g_delete or
p_datetrack_mode = hr_api.g_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 pay_cal_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 pay_cal_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
);
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in pay_cal_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_cost_allocation_id => p_rec.cost_allocation_id
);
End delete_validate;