The following lines contain the word 'select', 'insert', 'update' or 'delete':
g_update_mode constant varchar2(6):= 'UPDATE';
g_delete_mode constant varchar2(6):= 'DELETE';
select distinct paf.assignment_id
into l_assignment_id
from
per_all_assignments_f paf
,per_all_people_f ppf
where
paf.assignment_number = p_assignment_number
and paf.business_group_id+0 = p_business_group_id
and ppf.person_id = paf.person_id
and paf.effective_start_date between ppf.effective_start_date
and ppf.effective_end_date
and nvl(ppf.full_name, hr_api.g_varchar2)
= nvl(p_full_name, nvl(ppf.full_name, hr_api.g_varchar2))
;
select distinct pee.element_entry_id
into l_element_entry_id
from
pay_element_types_f_tl pettl
,pay_element_types_f pet
,pay_element_links_f pel
,pay_element_entries_f pee
where
pettl.element_name = p_element_name
and pettl.language = userenv('lang')
and pet.element_type_id = pettl.element_type_id
and nvl(pet.business_group_id, p_business_group_id) = p_business_group_id
and nvl(pet.legislation_code, l_leg_code) = l_leg_code
and pel.element_type_id = pet.element_type_id
and pel.business_group_id+0 = p_business_group_id
and pee.assignment_id = p_assignment_id
and pee.element_link_id = pel.element_link_id
and pee.creator_type in ('A', 'F', 'H', 'Q', 'SP', 'UT', 'M', 'S')
;
select
retro_component_id into l_retro_component_id
from pay_retro_components
where
component_name = p_component_name
and nvl(legislation_code, l_leg_code) = l_leg_code;
procedure update_or_delete_retro_asg
(p_business_group_id in number
,p_assignment_number in varchar2
,p_full_name in varchar2 default null
,p_reprocess_date in date default null
,p_approval_status in varchar2 default null
,p_update_or_delete_mode in varchar2 default 'UPDATE'
)
is
l_proc varchar2(72) := g_package||'update_or_delete_retro_asg';
if p_update_or_delete_mode = g_update_mode then
--
pay_retro_status_internal.update_retro_asg
(p_retro_assignment_id => l_retro_assignment_id
,p_reprocess_date => nvl(p_reprocess_date, hr_api.g_date)
,p_approval_status => nvl(p_approval_status, hr_api.g_varchar2)
,p_owner_type => pay_retro_status_internal.g_user
);
elsif p_update_or_delete_mode = g_delete_mode then
--
pay_retro_status_internal.delete_retro_asg
(p_retro_assignment_id => l_retro_assignment_id
,p_owner_type => pay_retro_status_internal.g_user
,p_replaced_retro_asg_id => l_replaced_retro_asg_id
);
(l_proc||':chk_update_or_delete_mode' ,false);
end update_or_delete_retro_asg;
procedure update_reprocess_date(
p_business_group_id in number
,p_assignment_number in varchar2
,p_full_name in varchar2 default null
,p_reprocess_date in date
,p_new_retro_asg_id out nocopy number
) is
--local variables.
l_proc varchar2(72) := g_package||'update_reprocess_date';
hr_utility.set_location('Calling pay_retro_status_internal.update_reprocess_date : '|| l_proc, 60);
pay_retro_status_internal.update_reprocess_date(
p_assignment_id => l_assignment_id
,p_reprocess_date => p_reprocess_date
,p_retro_asg_id => p_new_retro_asg_id);
end update_reprocess_date;