The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_cak_concat_segs
(p_cost_allocation_keyflex_id in number
,p_concatenated_segments in varchar2
) is
--
CURSOR csr_chk_cak is
SELECT null
FROM pay_cost_allocation_keyflex
where cost_allocation_keyflex_id = p_cost_allocation_keyflex_id
and (concatenated_segments <> p_concatenated_segments
or concatenated_segments is null);
l_proc varchar2(72) := g_package||'update_cak_concat_segs';
procedure update_cak_concat_segs_auto
(p_cost_allocation_keyflex_id in number
,p_concatenated_segments in varchar2
) is
PRAGMA AUTONOMOUS_TRANSACTION;
SELECT null
FROM pay_cost_allocation_keyflex
where cost_allocation_keyflex_id = p_cost_allocation_keyflex_id
for update nowait;
l_proc varchar2(72) := g_package||'update_cak_concat_segs_auto';
update pay_cost_allocation_keyflex
set concatenated_segments = p_concatenated_segments
where cost_allocation_keyflex_id = p_cost_allocation_keyflex_id
and (concatenated_segments <> p_concatenated_segments
or concatenated_segments is null);
end update_cak_concat_segs_auto;
update_cak_concat_segs_auto
(p_cost_allocation_keyflex_id => p_cost_allocation_keyflex_id
,p_concatenated_segments => p_concatenated_segments
);
end update_cak_concat_segs;
SELECT substr(fs.application_column_name,8,2) segment_no,
fs.application_column_name application_column_name,
fs.segment_name application_segment_name,
fs.required_flag required_flag
FROM FND_ID_FLEX_SEGMENTS fs,
FND_SEGMENT_ATTRIBUTE_VALUES sa1
WHERE sa1.id_flex_num = p_cost_id_flex_num
and sa1.id_flex_code = 'COST'
and sa1.attribute_value = 'Y'
and sa1.segment_attribute_type <> 'BALANCING'
and sa1.segment_attribute_type = p_level
and fs.id_flex_num = p_cost_id_flex_num
and fs.id_flex_code = 'COST'
and fs.enabled_flag = 'Y'
and fs.application_id = 801
and fs.application_column_name =
sa1.application_column_name
order by substr(fs.application_column_name,8,2);
select parameter_value
into v_cal_cost_segs
from pay_action_parameters
where parameter_name = 'COST_VAL_SEGS';
,p_program_update_date in date default null
,p_combination_name out nocopy varchar2
,p_cost_allocation_id out nocopy 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
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72) := g_package||'CREATE_COST_ALLOCATION';
select pbg.cost_allocation_structure
from per_business_groups pbg
where pbg.business_group_id = p_business_group_id;
,p_program_update_date => p_program_update_date
);
update_cak_concat_segs
(p_cost_allocation_keyflex_id => l_cost_allocation_keyflex_id
,p_concatenated_segments => l_combination_name
);
,p_program_update_date => p_program_update_date
,p_cost_allocation_id => l_cost_allocation_id
,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_program_update_date => p_program_update_date
,p_combination_name => l_combination_name
,p_cost_allocation_id => l_cost_allocation_id
,p_effective_start_date => l_effective_start_date
,p_effective_end_date => l_effective_end_date
,p_object_version_number => l_object_version_number
,p_cost_allocation_keyflex_id => l_cost_allocation_keyflex_id
);
procedure UPDATE_COST_ALLOCATION
(p_validate in boolean default false
,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
) is
--
-- bug no 3829293.Initialize segment varray to passed parameter value
--
l_new_segment segment_value
:=segment_value(p_segment1 ,p_segment2 ,p_segment3 ,p_segment4 ,p_segment5,
p_segment6 ,p_segment7 ,p_segment8 ,p_segment9 ,p_segment10,
p_segment11 ,p_segment12,p_segment13 ,p_segment14 ,p_segment15,
p_segment16 ,p_segment17,p_segment18 ,p_segment19 ,p_segment20,
p_segment21 ,p_segment22,p_segment23 ,p_segment24 ,p_segment25,
p_segment26 ,p_segment27,p_segment28 ,p_segment29 ,p_segment30
);
l_proc varchar2(72) := g_package||'UPDATE_COST_ALLOCATION';
select pbg.cost_allocation_structure
from per_business_groups pbg
where pbg.business_group_id = p_bg_id;
select pca.cost_allocation_keyflex_id
, pca.business_group_id
from pay_cost_allocations_f pca
where pca.cost_allocation_id = p_cost_Allocation_id
and p_effective_date between pca.effective_start_date
and pca.effective_end_date;
select pca.segment1,
pca.segment2,
pca.segment3,
pca.segment4,
pca.segment5,
pca.segment6,
pca.segment7,
pca.segment8,
pca.segment9,
pca.segment10,
pca.segment11,
pca.segment12,
pca.segment13,
pca.segment14,
pca.segment15,
pca.segment16,
pca.segment17,
pca.segment18,
pca.segment19,
pca.segment20,
pca.segment21,
pca.segment22,
pca.segment23,
pca.segment24,
pca.segment25,
pca.segment26,
pca.segment27,
pca.segment28,
pca.segment29,
pca.segment30
from pay_cost_allocation_keyflex pca,
pay_cost_allocations_f pac
where pac.cost_allocation_id = p_cost_Allocation_id
and p_effective_date between pac.effective_start_date
and pac.effective_end_date
and pac.cost_allocation_keyflex_id = pca.cost_allocation_keyflex_id;
savepoint UPDATE_COST_ALLOCATION;
PAY_COST_ALLOCATION_BK2.update_cost_allocation_b
(p_effective_date => l_effective_date
,p_datetrack_update_mode => p_datetrack_update_mode
,p_cost_allocation_id => p_cost_allocation_id
,p_object_version_number => l_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_module_name => 'UPDATE_COST_ALLOCATION'
,p_hook_type => 'BP'
);
update_cak_concat_segs
(p_cost_allocation_keyflex_id => l_cost_allocation_keyflex_id
,p_concatenated_segments => l_combination_name
);
hr_utility.set_location('Entering Update API', 10);
hr_utility.set_location('Entering Update API', 20);
,p_datetrack_mode => p_datetrack_update_mode
,p_cost_allocation_id => p_cost_allocation_id
,p_object_version_number => l_object_version_number
,p_cost_allocation_keyflex_id => l_cost_allocation_keyflex_id
,p_proportion => p_proportion
,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_effective_start_date => l_effective_start_date
,p_effective_end_date => l_effective_end_date
);
PAY_COST_ALLOCATION_BK2.update_cost_allocation_a
(p_effective_date => l_effective_date
,p_datetrack_update_mode => p_datetrack_update_mode
,p_cost_allocation_id => p_cost_allocation_id
,p_object_version_number => l_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 => l_combination_name
,p_effective_start_date => l_effective_start_date
,p_effective_end_date => l_effective_end_date
,p_cost_allocation_keyflex_id => l_cost_allocation_keyflex_id
);
(p_module_name => 'UPDATE_COST_ALLOCATION'
,p_hook_type => 'AP'
);
rollback to UPDATE_COST_ALLOCATION;
rollback to UPDATE_COST_ALLOCATION;
end UPDATE_COST_ALLOCATION;
procedure DELETE_COST_ALLOCATION
(p_validate in boolean default false
,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
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72) := g_package||'DELETE_COST_ALLOCATION';
savepoint DELETE_COST_ALLOCATION;
PAY_COST_ALLOCATION_BK3.delete_cost_allocation_b
(p_effective_date => l_effective_date
,p_datetrack_delete_mode => p_datetrack_delete_mode
,p_cost_allocation_id => p_cost_allocation_id
,p_object_version_number => l_object_version_number
);
(p_module_name => 'DELETE_COST_ALLOCATION'
,p_hook_type => 'BP'
);
,p_datetrack_mode => p_datetrack_delete_mode
,p_cost_allocation_id => p_cost_allocation_id
,p_object_version_number => l_object_version_number
,p_effective_start_date => l_effective_start_date
,p_effective_end_date => l_effective_end_date
);
PAY_COST_ALLOCATION_BK3.delete_cost_allocation_a
(p_effective_date => l_effective_date
,p_datetrack_delete_mode => p_datetrack_delete_mode
,p_cost_allocation_id => p_cost_allocation_id
,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_module_name => 'DELETE_COST_ALLOCATION'
,p_hook_type => 'AP'
);
rollback to DELETE_COST_ALLOCATION;
rollback to DELETE_COST_ALLOCATION;
end DELETE_COST_ALLOCATION;