The following lines contain the word 'select', 'insert', 'update' or 'delete':
/*Self-Service creates the cost allocations but it doesn't update the concatenated
segements. So we need to explicitly update the Cost allocations entry with
concatenated segments. This is a private function can be called only from this
package. */
procedure upd_cost_KFF_concat_segments(
p_business_group_id in number
,p_cost_allocation_keyflex_id in number) is
-- Cursors
cursor csr_segments is
select segment1, segment2, segment3, segment4, segment5,
segment6, segment7, segment8, segment9, segment10,
segment11, segment12, segment13, segment14, segment15,
segment16, segment17, segment18, segment19, segment20,
segment21, segment22, segment23, segment24, segment25,
segment26, segment27, segment28, segment29, segment30
from pay_cost_allocation_keyflex
where cost_allocation_keyflex_id = p_cost_allocation_keyflex_id;
select pbg.cost_allocation_structure
from per_business_groups pbg
where pbg.business_group_id = p_business_group_id;
select substr(application_column_name,8,2)
from fnd_id_flex_segments_vl
where id_flex_code = 'COST'
and id_flex_num = p_cost_flex_structure
and application_id = 801
and enabled_flag = 'Y'
and display_flag = 'Y'
order by segment_num;
l_proc varchar2(100) := 'PAY_COST_ALLOCATION_SWI.UPDATE_COST_KFF_CONCAT_SEGMENTS';
/*Now update the Cost KFF entry with the concatenated segment
only if the existing concatenated segment is not equal to the
newly constructed concatenated segment(for Update)*/
update pay_cost_allocation_keyflex
set concatenated_segments = l_concatenated_segments
where cost_allocation_keyflex_id = p_cost_allocation_keyflex_id
and id_flex_num = l_flex_num
and nvl(concatenated_segments, hr_api.g_varchar2) <> l_concatenated_segments;
hr_utility.trace('No Rows updated');
hr_utility.trace('Row updated with concatenated segment');
,p_program_update_date in date default null
,p_combination_name out nocopy varchar2
,p_cost_allocation_id in number
,p_effective_start_date out nocopy date
,p_effective_end_date out nocopy date
,p_cost_allocation_keyflex_id in out nocopy number
,p_object_version_number out nocopy number
,p_return_status out nocopy varchar2
) is
--
-- Variables for API Boolean parameters
l_validate boolean;
,p_program_update_date => p_program_update_date
,p_combination_name => p_combination_name
,p_cost_allocation_id => l_cost_allocation_id
,p_effective_start_date => p_effective_start_date
,p_effective_end_date => p_effective_end_date
,p_cost_allocation_keyflex_id => p_cost_allocation_keyflex_id
,p_object_version_number => p_object_version_number
);
PROCEDURE delete_cost_allocation
(p_validate in number default hr_api.g_false_num
,p_effective_date in date
,p_datetrack_delete_mode in varchar2
,p_cost_allocation_id in number
,p_object_version_number in out nocopy number
,p_effective_start_date out nocopy date
,p_effective_end_date out nocopy date
,p_return_status out nocopy varchar2
) is
--
-- Variables for API Boolean parameters
l_validate boolean;
l_proc varchar2(72) := g_package ||'delete_cost_allocation';
savepoint delete_cost_allocation_swi;
pay_cost_allocation_api.delete_cost_allocation
(p_validate => l_validate
,p_effective_date => p_effective_date
,p_datetrack_delete_mode => p_datetrack_delete_mode
,p_cost_allocation_id => p_cost_allocation_id
,p_object_version_number => p_object_version_number
,p_effective_start_date => p_effective_start_date
,p_effective_end_date => p_effective_end_date
);
rollback to delete_cost_allocation_swi;
rollback to delete_cost_allocation_swi;
end delete_cost_allocation;
PROCEDURE update_cost_allocation
(p_validate in number default hr_api.g_false_num
,p_effective_date in date
,p_datetrack_update_mode in varchar2
,p_cost_allocation_id in number
,p_object_version_number in out nocopy number
,p_proportion in number default hr_api.g_number
,p_segment1 in varchar2 default hr_api.g_varchar2
,p_segment2 in varchar2 default hr_api.g_varchar2
,p_segment3 in varchar2 default hr_api.g_varchar2
,p_segment4 in varchar2 default hr_api.g_varchar2
,p_segment5 in varchar2 default hr_api.g_varchar2
,p_segment6 in varchar2 default hr_api.g_varchar2
,p_segment7 in varchar2 default hr_api.g_varchar2
,p_segment8 in varchar2 default hr_api.g_varchar2
,p_segment9 in varchar2 default hr_api.g_varchar2
,p_segment10 in varchar2 default hr_api.g_varchar2
,p_segment11 in varchar2 default hr_api.g_varchar2
,p_segment12 in varchar2 default hr_api.g_varchar2
,p_segment13 in varchar2 default hr_api.g_varchar2
,p_segment14 in varchar2 default hr_api.g_varchar2
,p_segment15 in varchar2 default hr_api.g_varchar2
,p_segment16 in varchar2 default hr_api.g_varchar2
,p_segment17 in varchar2 default hr_api.g_varchar2
,p_segment18 in varchar2 default hr_api.g_varchar2
,p_segment19 in varchar2 default hr_api.g_varchar2
,p_segment20 in varchar2 default hr_api.g_varchar2
,p_segment21 in varchar2 default hr_api.g_varchar2
,p_segment22 in varchar2 default hr_api.g_varchar2
,p_segment23 in varchar2 default hr_api.g_varchar2
,p_segment24 in varchar2 default hr_api.g_varchar2
,p_segment25 in varchar2 default hr_api.g_varchar2
,p_segment26 in varchar2 default hr_api.g_varchar2
,p_segment27 in varchar2 default hr_api.g_varchar2
,p_segment28 in varchar2 default hr_api.g_varchar2
,p_segment29 in varchar2 default hr_api.g_varchar2
,p_segment30 in varchar2 default hr_api.g_varchar2
,p_concat_segments in varchar2 default hr_api.g_varchar2
,p_request_id in number default hr_api.g_number
,p_program_application_id in number default hr_api.g_number
,p_program_id in number default hr_api.g_number
,p_program_update_date in date default hr_api.g_date
,p_combination_name out nocopy varchar2
,p_cost_allocation_keyflex_id in out nocopy number
,p_effective_start_date out nocopy date
,p_effective_end_date out nocopy date
,p_return_status out nocopy varchar2
) is
--
--Cursors
cursor csr_bg is
select distinct business_group_id
from PAY_COST_ALLOCATIONS_F
where COST_ALLOCATION_ID = p_cost_allocation_id;
l_proc varchar2(72) := g_package ||'update_cost_allocation';
savepoint update_cost_allocation_swi;
pay_cost_allocation_api.update_cost_allocation
(p_validate => l_validate
,p_effective_date => p_effective_date
,p_datetrack_update_mode => p_datetrack_update_mode
,p_cost_allocation_id => p_cost_allocation_id
,p_object_version_number => p_object_version_number
,p_proportion => p_proportion
,p_segment1 => p_segment1
,p_segment2 => p_segment2
,p_segment3 => p_segment3
,p_segment4 => p_segment4
,p_segment5 => p_segment5
,p_segment6 => p_segment6
,p_segment7 => p_segment7
,p_segment8 => p_segment8
,p_segment9 => p_segment9
,p_segment10 => p_segment10
,p_segment11 => p_segment11
,p_segment12 => p_segment12
,p_segment13 => p_segment13
,p_segment14 => p_segment14
,p_segment15 => p_segment15
,p_segment16 => p_segment16
,p_segment17 => p_segment17
,p_segment18 => p_segment18
,p_segment19 => p_segment19
,p_segment20 => p_segment20
,p_segment21 => p_segment21
,p_segment22 => p_segment22
,p_segment23 => p_segment23
,p_segment24 => p_segment24
,p_segment25 => p_segment25
,p_segment26 => p_segment26
,p_segment27 => p_segment27
,p_segment28 => p_segment28
,p_segment29 => p_segment29
,p_segment30 => p_segment30
,p_concat_segments => p_concat_segments
,p_request_id => p_request_id
,p_program_application_id => p_program_application_id
,p_program_id => p_program_id
,p_program_update_date => p_program_update_date
,p_combination_name => p_combination_name
,p_cost_allocation_keyflex_id => p_cost_allocation_keyflex_id
,p_effective_start_date => p_effective_start_date
,p_effective_end_date => p_effective_end_date
);
rollback to update_cost_allocation_swi;
rollback to update_cost_allocation_swi;
end update_cost_allocation;
procedure insert_fnd_sessions
(p_effective_date in varchar2
)is
--cursors
cursor csr_get_session_id is
select session_id
from fnd_sessions
where session_id = userenv('sessionid');
hr_utility.trace('Entered insert_fnd_sessions ');
insert into fnd_sessions(session_id,effective_date)
values (userenv('sessionid'),fnd_date.canonical_to_date(p_effective_date));
hr_utility.trace('inserted a row into the fnd_sessions table');
end insert_fnd_sessions;