The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_element_link
(p_validate in boolean default false
,p_effective_date in date
,p_element_link_id in number
,p_datetrack_mode in varchar2
,p_costable_type in varchar2 default hr_api.g_varchar2
,p_element_set_id in number default hr_api.g_number
,p_multiply_value_flag in varchar2 default hr_api.g_varchar2
,p_standard_link_flag in varchar2 default hr_api.g_varchar2
,p_transfer_to_gl_flag in varchar2 default hr_api.g_varchar2
,p_comments in varchar2 default hr_api.g_varchar2
,p_comment_id in varchar2 default hr_api.g_varchar2
,p_employment_category in varchar2 default hr_api.g_varchar2
,p_qualifying_age in number default hr_api.g_number
,p_qualifying_length_of_service in number default hr_api.g_number
,p_qualifying_units in varchar2 default hr_api.g_varchar2
,p_attribute_category in varchar2 default hr_api.g_varchar2
,p_attribute1 in varchar2 default hr_api.g_varchar2
,p_attribute2 in varchar2 default hr_api.g_varchar2
,p_attribute3 in varchar2 default hr_api.g_varchar2
,p_attribute4 in varchar2 default hr_api.g_varchar2
,p_attribute5 in varchar2 default hr_api.g_varchar2
,p_attribute6 in varchar2 default hr_api.g_varchar2
,p_attribute7 in varchar2 default hr_api.g_varchar2
,p_attribute8 in varchar2 default hr_api.g_varchar2
,p_attribute9 in varchar2 default hr_api.g_varchar2
,p_attribute10 in varchar2 default hr_api.g_varchar2
,p_attribute11 in varchar2 default hr_api.g_varchar2
,p_attribute12 in varchar2 default hr_api.g_varchar2
,p_attribute13 in varchar2 default hr_api.g_varchar2
,p_attribute14 in varchar2 default hr_api.g_varchar2
,p_attribute15 in varchar2 default hr_api.g_varchar2
,p_attribute16 in varchar2 default hr_api.g_varchar2
,p_attribute17 in varchar2 default hr_api.g_varchar2
,p_attribute18 in varchar2 default hr_api.g_varchar2
,p_attribute19 in varchar2 default hr_api.g_varchar2
,p_attribute20 in varchar2 default hr_api.g_varchar2
,p_cost_segment1 in varchar2 default hr_api.g_varchar2
,p_cost_segment2 in varchar2 default hr_api.g_varchar2
,p_cost_segment3 in varchar2 default hr_api.g_varchar2
,p_cost_segment4 in varchar2 default hr_api.g_varchar2
,p_cost_segment5 in varchar2 default hr_api.g_varchar2
,p_cost_segment6 in varchar2 default hr_api.g_varchar2
,p_cost_segment7 in varchar2 default hr_api.g_varchar2
,p_cost_segment8 in varchar2 default hr_api.g_varchar2
,p_cost_segment9 in varchar2 default hr_api.g_varchar2
,p_cost_segment10 in varchar2 default hr_api.g_varchar2
,p_cost_segment11 in varchar2 default hr_api.g_varchar2
,p_cost_segment12 in varchar2 default hr_api.g_varchar2
,p_cost_segment13 in varchar2 default hr_api.g_varchar2
,p_cost_segment14 in varchar2 default hr_api.g_varchar2
,p_cost_segment15 in varchar2 default hr_api.g_varchar2
,p_cost_segment16 in varchar2 default hr_api.g_varchar2
,p_cost_segment17 in varchar2 default hr_api.g_varchar2
,p_cost_segment18 in varchar2 default hr_api.g_varchar2
,p_cost_segment19 in varchar2 default hr_api.g_varchar2
,p_cost_segment20 in varchar2 default hr_api.g_varchar2
,p_cost_segment21 in varchar2 default hr_api.g_varchar2
,p_cost_segment22 in varchar2 default hr_api.g_varchar2
,p_cost_segment23 in varchar2 default hr_api.g_varchar2
,p_cost_segment24 in varchar2 default hr_api.g_varchar2
,p_cost_segment25 in varchar2 default hr_api.g_varchar2
,p_cost_segment26 in varchar2 default hr_api.g_varchar2
,p_cost_segment27 in varchar2 default hr_api.g_varchar2
,p_cost_segment28 in varchar2 default hr_api.g_varchar2
,p_cost_segment29 in varchar2 default hr_api.g_varchar2
,p_cost_segment30 in varchar2 default hr_api.g_varchar2
,p_balance_segment1 in varchar2 default hr_api.g_varchar2
,p_balance_segment2 in varchar2 default hr_api.g_varchar2
,p_balance_segment3 in varchar2 default hr_api.g_varchar2
,p_balance_segment4 in varchar2 default hr_api.g_varchar2
,p_balance_segment5 in varchar2 default hr_api.g_varchar2
,p_balance_segment6 in varchar2 default hr_api.g_varchar2
,p_balance_segment7 in varchar2 default hr_api.g_varchar2
,p_balance_segment8 in varchar2 default hr_api.g_varchar2
,p_balance_segment9 in varchar2 default hr_api.g_varchar2
,p_balance_segment10 in varchar2 default hr_api.g_varchar2
,p_balance_segment11 in varchar2 default hr_api.g_varchar2
,p_balance_segment12 in varchar2 default hr_api.g_varchar2
,p_balance_segment13 in varchar2 default hr_api.g_varchar2
,p_balance_segment14 in varchar2 default hr_api.g_varchar2
,p_balance_segment15 in varchar2 default hr_api.g_varchar2
,p_balance_segment16 in varchar2 default hr_api.g_varchar2
,p_balance_segment17 in varchar2 default hr_api.g_varchar2
,p_balance_segment18 in varchar2 default hr_api.g_varchar2
,p_balance_segment19 in varchar2 default hr_api.g_varchar2
,p_balance_segment20 in varchar2 default hr_api.g_varchar2
,p_balance_segment21 in varchar2 default hr_api.g_varchar2
,p_balance_segment22 in varchar2 default hr_api.g_varchar2
,p_balance_segment23 in varchar2 default hr_api.g_varchar2
,p_balance_segment24 in varchar2 default hr_api.g_varchar2
,p_balance_segment25 in varchar2 default hr_api.g_varchar2
,p_balance_segment26 in varchar2 default hr_api.g_varchar2
,p_balance_segment27 in varchar2 default hr_api.g_varchar2
,p_balance_segment28 in varchar2 default hr_api.g_varchar2
,p_balance_segment29 in varchar2 default hr_api.g_varchar2
,p_balance_segment30 in varchar2 default hr_api.g_varchar2
,p_cost_concat_segments_in in varchar2 default hr_api.g_varchar2
,p_balance_concat_segments_in in varchar2 default hr_api.g_varchar2
,p_object_version_number in out nocopy number
,p_cost_allocation_keyflex_id out nocopy number
,p_balancing_keyflex_id out nocopy number
,p_cost_concat_segments_out out nocopy varchar2
,p_balance_concat_segments_out out nocopy varchar2
,p_effective_start_date out nocopy date
,p_effective_end_date out nocopy date
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72) := g_package||'update_element_link';
select business_group_id
,element_type_id
,standard_link_flag
,payroll_id
,link_to_all_payrolls_flag
,job_id
,grade_id
,position_id
,organization_id
,location_id
,pay_basis_id
,employment_category
,people_group_id
from pay_element_links_f
where element_link_id = p_element_link_id
and l_effective_date between effective_start_date
and effective_end_date;
select cost_allocation_structure
from per_business_groups
where business_group_id = p_business_group_id;
savepoint update_element_link;
pay_element_link_BK2.update_element_link_b
(l_effective_date
,p_element_link_id
,p_datetrack_mode
,p_costable_type
,p_element_set_id
,p_multiply_value_flag
,p_standard_link_flag
,p_transfer_to_gl_flag
,p_comments
,p_comment_id
,p_employment_category
,p_qualifying_age
,p_qualifying_length_of_service
,p_qualifying_units
,p_attribute_category
,p_attribute1
,p_attribute2
,p_attribute3
,p_attribute4
,p_attribute5
,p_attribute6
,p_attribute7
,p_attribute8
,p_attribute9
,p_attribute10
,p_attribute11
,p_attribute12
,p_attribute13
,p_attribute14
,p_attribute15
,p_attribute16
,p_attribute17
,p_attribute18
,p_attribute19
,p_attribute20
,p_cost_segment1
,p_cost_segment2
,p_cost_segment3
,p_cost_segment4
,p_cost_segment5
,p_cost_segment6
,p_cost_segment7
,p_cost_segment8
,p_cost_segment9
,p_cost_segment10
,p_cost_segment11
,p_cost_segment12
,p_cost_segment13
,p_cost_segment14
,p_cost_segment15
,p_cost_segment16
,p_cost_segment17
,p_cost_segment18
,p_cost_segment19
,p_cost_segment20
,p_cost_segment21
,p_cost_segment22
,p_cost_segment23
,p_cost_segment24
,p_cost_segment25
,p_cost_segment26
,p_cost_segment27
,p_cost_segment28
,p_cost_segment29
,p_cost_segment30
,p_balance_segment1
,p_balance_segment2
,p_balance_segment3
,p_balance_segment4
,p_balance_segment5
,p_balance_segment6
,p_balance_segment7
,p_balance_segment8
,p_balance_segment9
,p_balance_segment10
,p_balance_segment11
,p_balance_segment12
,p_balance_segment13
,p_balance_segment14
,p_balance_segment15
,p_balance_segment16
,p_balance_segment17
,p_balance_segment18
,p_balance_segment19
,p_balance_segment20
,p_balance_segment21
,p_balance_segment22
,p_balance_segment23
,p_balance_segment24
,p_balance_segment25
,p_balance_segment26
,p_balance_segment27
,p_balance_segment28
,p_balance_segment29
,p_balance_segment30
,p_cost_concat_segments_in
,p_balance_concat_segments_in
,p_object_version_number
);
(p_module_name => 'update_element_link'
,p_hook_type => 'BP'
);
pay_element_link_BK2.update_element_link_a
(l_effective_date
,p_element_link_id
,p_datetrack_mode
,p_costable_type
,p_element_set_id
,p_multiply_value_flag
,p_standard_link_flag
,p_transfer_to_gl_flag
,p_comments
,p_comment_id
,p_employment_category
,p_qualifying_age
,p_qualifying_length_of_service
,p_qualifying_units
,p_attribute_category
,p_attribute1
,p_attribute2
,p_attribute3
,p_attribute4
,p_attribute5
,p_attribute6
,p_attribute7
,p_attribute8
,p_attribute9
,p_attribute10
,p_attribute11
,p_attribute12
,p_attribute13
,p_attribute14
,p_attribute15
,p_attribute16
,p_attribute17
,p_attribute18
,p_attribute19
,p_attribute20
,p_cost_segment1
,p_cost_segment2
,p_cost_segment3
,p_cost_segment4
,p_cost_segment5
,p_cost_segment6
,p_cost_segment7
,p_cost_segment8
,p_cost_segment9
,p_cost_segment10
,p_cost_segment11
,p_cost_segment12
,p_cost_segment13
,p_cost_segment14
,p_cost_segment15
,p_cost_segment16
,p_cost_segment17
,p_cost_segment18
,p_cost_segment19
,p_cost_segment20
,p_cost_segment21
,p_cost_segment22
,p_cost_segment23
,p_cost_segment24
,p_cost_segment25
,p_cost_segment26
,p_cost_segment27
,p_cost_segment28
,p_cost_segment29
,p_cost_segment30
,p_balance_segment1
,p_balance_segment2
,p_balance_segment3
,p_balance_segment4
,p_balance_segment5
,p_balance_segment6
,p_balance_segment7
,p_balance_segment8
,p_balance_segment9
,p_balance_segment10
,p_balance_segment11
,p_balance_segment12
,p_balance_segment13
,p_balance_segment14
,p_balance_segment15
,p_balance_segment16
,p_balance_segment17
,p_balance_segment18
,p_balance_segment19
,p_balance_segment20
,p_balance_segment21
,p_balance_segment22
,p_balance_segment23
,p_balance_segment24
,p_balance_segment25
,p_balance_segment26
,p_balance_segment27
,p_balance_segment28
,p_balance_segment29
,p_balance_segment30
,p_cost_concat_segments_in
,p_balance_concat_segments_in
,p_object_version_number
,l_cost_allocation_id
,l_bal_allocation_id
,p_cost_concat_segments_out
,p_balance_concat_segments_out
,p_effective_start_date
,p_effective_end_date
);
(p_module_name => 'update_element_link'
,p_hook_type => 'AP'
);
rollback to update_element_link;
rollback to update_element_link;
end update_element_link;
procedure delete_element_link_int
(p_effective_date in date
,p_element_link_id in number
,p_datetrack_delete_mode in varchar2
,p_object_version_number in out nocopy number
,p_effective_start_date out nocopy date
,p_effective_end_date out nocopy date
,p_entries_warning out nocopy boolean
)
is
--
l_proc varchar2(72) := g_package||'delete_element_link_int';
select element_entry_id
from pay_element_entries_f
where element_link_id = p_element_link_id
and p_effective_date between effective_start_date
and effective_end_date;
select link_input_value_id, object_version_number
from pay_link_input_values_f pliv
where element_link_id = p_element_link_id
and p_effective_date between effective_start_date
and effective_end_date;
select link_input_value_id
,object_version_number
,effective_start_date
,effective_end_date
from pay_link_input_values_f pliv
where element_link_id = p_element_link_id
and effective_end_date >= p_effective_date
and not exists
(select null
from pay_link_input_values_f pliv2
where pliv2.element_link_id = pliv.element_link_id
and pliv2.input_value_id = pliv.input_value_id
and pliv2.effective_start_date > pliv.effective_start_date);
select min(effective_start_date) min_effective_start_date
,max(effective_end_date) max_effective_end_date
from pay_element_links_f
where element_link_id = p_element_link_id
;
dt_api.validate_dt_del_mode(p_datetrack_mode => p_datetrack_delete_mode);
,p_datetrack_mode => p_datetrack_delete_mode
,p_element_link_id => p_element_link_id
,p_object_version_number => l_object_version_number
,p_validation_start_date => l_validation_start_date
,p_validation_end_date => l_validation_end_date
,p_enforce_foreign_locking => false
);
pay_pel_bus.chk_date_eff_delete
(p_element_link_id => p_element_link_id
,p_delete_mode => p_datetrack_delete_mode
,p_validation_start_date => l_validation_start_date
);
if p_datetrack_delete_mode = hr_api.g_zap then
-- Delete the batch object status.
pay_batch_object_status_pkg.delete_object_status
(p_object_type => 'EL'
,p_object_id => p_element_link_id
,p_payroll_action_id => null
);
if p_datetrack_delete_mode in (hr_api.g_zap, hr_api.g_delete) then
-- Delete element entries
for fetched_entry in csr_links_entries
loop
hr_entry_api.delete_element_entry
(p_datetrack_delete_mode,
p_effective_date,
fetched_entry.element_entry_id
);
,p_datetrack_mode => p_datetrack_delete_mode
,p_link_input_value_id => fetched_input_value.link_input_value_id
,p_object_version_number => l_liv_ovn
,p_effective_start_date => l_liv_esd
,p_effective_end_date => l_liv_eed
);
,p_delete_mode => p_datetrack_delete_mode
,p_effective_start_date => l_old_esd
,p_effective_end_date => l_old_eed
,p_validation_start_date => l_validation_start_date
,p_validation_end_date => l_validation_end_date
);
,p_datetrack_delete_mode => p_datetrack_delete_mode
,p_object_version_number => l_object_version_number
,p_effective_start_date => l_effective_start_date
,p_effective_end_date => l_effective_end_date
,p_warning => l_entries_warning
);
if p_datetrack_delete_mode in (hr_api.g_delete_next_change
,hr_api.g_future_change) then
--
-- We should extend the duration of child records only when
-- the effective end date of the parent element link is extended.
--
-- Obtain the new date range.
--
open csr_link_date_range;
,p_delete_mode => hr_api.g_delete_next_change
,p_effective_start_date => l_new_min_esd
,p_effective_end_date => l_new_max_eed
,p_validation_start_date => l_validation_start_date
,p_validation_end_date => l_validation_end_date
);
,p_datetrack_mode => hr_api.g_delete_next_change
,p_link_input_value_id => last_liv_rec.link_input_value_id
,p_object_version_number => l_liv_ovn
,p_effective_start_date => l_liv_esd
,p_effective_end_date => l_liv_eed
);
hr_entry_api.delete_element_entry
(p_datetrack_delete_mode,
p_effective_date,
fetched_entry.element_entry_id
);
end delete_element_link_int;
procedure delete_element_link
(p_validate in boolean default false
,p_effective_date in date
,p_element_link_id in number
,p_datetrack_delete_mode in varchar2
,p_object_version_number in out nocopy number
,p_effective_start_date out nocopy date
,p_effective_end_date out nocopy date
,p_entries_warning out nocopy boolean
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72) := g_package||'delete_element_link';
savepoint delete_element_link;
pay_element_link_BK3.delete_element_link_b
(l_effective_date
,p_element_link_id
,p_datetrack_delete_mode
,p_object_version_number
);
(p_module_name => 'delete_element_link'
,p_hook_type => 'BP'
);
delete_element_link_int
(p_effective_date => l_effective_date
,p_element_link_id => p_element_link_id
,p_datetrack_delete_mode => p_datetrack_delete_mode
,p_object_version_number => p_object_version_number
,p_effective_start_date => p_effective_start_date
,p_effective_end_date => p_effective_end_date
,p_entries_warning => p_entries_warning
);
pay_element_link_BK3.delete_element_link_a
(l_effective_date
,p_element_link_id
,p_datetrack_delete_mode
,p_object_version_number
,p_effective_start_date
,p_effective_end_date
,p_entries_warning
);
(p_module_name => 'delete_element_link'
,p_hook_type => 'AP'
);
rollback to delete_element_link;
rollback to delete_element_link;
end delete_element_link;