The following lines contain the word 'select', 'insert', 'update' or 'delete':
select null
from pay_us_states pus
where pus.state_code = p_sui_state_code;
select business_group_id
from per_assignments_f asg
where asg.assignment_id = p_assignment_id
and p_effective_date between asg.effective_start_date
and asg.effective_end_date;
select null
from pay_us_states pus, pay_state_rules psr
where pus.state_code = p_sui_state_code
and pus.state_abbrev = psr.state_code
and psr.jurisdiction_code = p_sui_jurisdiction_code;
procedure chk_delete
(p_emp_fed_tax_rule_id in number
,p_assignment_id in number
,p_effective_date in date
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
,p_delete_routine in varchar2
) is
--
l_effective_date date;
l_proc varchar2(72) := g_package||'chk_delete';
select null
from dual
where exists (select null
from pay_payroll_actions ppa,
pay_assignment_actions paa
where ppa.payroll_action_id = paa.payroll_action_id
and ppa.action_type in ('Q','R','B','I','V')
and ppa.date_earned > p_csr_tmp_date
and paa.assignment_id = pay_fed_shd.g_old_rec.assignment_id
and paa.action_status = 'C'
);
select null
from pay_us_emp_state_tax_rules_f sta
where sta.assignment_id = p_assignment_id
and sta.effective_end_date > l_effective_date;
if nvl(p_delete_routine,'X') <> 'ASSIGNMENT' then
hr_utility.set_message(801, 'HR_6674_PAY_ASSIGN');
if p_datetrack_mode in('ZAP', 'DELETE') then
--
if p_datetrack_mode = hr_api.g_zap then
l_effective_date := trunc(hr_api.g_sot);
hr_utility.set_message(801, 'PAY_52235_TAX_RULE_DELETE');
elsif p_datetrack_mode in('DELETE_NEXT_CHANGE', 'FUTURE_CHANGE') then
--
null;
End chk_delete;
Procedure chk_non_updateable_args
(p_rec in pay_fed_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;
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_emp_fed_tax_rule_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 pay_fed_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_fed_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_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 pay_fed_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
,p_delete_routine in varchar2
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete
(p_emp_fed_tax_rule_id => p_rec.emp_fed_tax_rule_id
,p_assignment_id => pay_fed_shd.g_old_rec.assignment_id
,p_effective_date => p_effective_date
,p_datetrack_mode => p_datetrack_mode
,p_validation_start_date => p_validation_start_date
,p_validation_end_date => p_validation_end_date
,p_delete_routine => p_delete_routine
);
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_emp_fed_tax_rule_id => p_rec.emp_fed_tax_rule_id);
End delete_validate;
select bus.legislation_code
from per_business_groups bus,
pay_us_emp_fed_tax_rules_f fed
where fed.emp_fed_tax_rule_id = p_emp_fed_tax_rule_id
and bus.business_group_id = fed.business_group_id;