/*Test on element_link_id=43033 to check that it's correction not update and in a business group 4350*/
--------------------
Declare
l_object_version_number number; --must be in , use a variable
l_cost_allocation_keyflex_id number;
l_balancing_keyflex_id number;
l_cost_concat_segments_out varchar2(4000);
l_balance_concat_segments_out varchar2(4000);
l_effective_start_date date;
l_effective_end_date date;
begin
for I in (
select src_link.* --,src_bal_kff.*
,src_cost_kff.segment3 cost_segment3,src_cost_kff.segment4 cost_segment4
,src_cost_kff.segment5 cost_segment5
,src_bal_kff.segment1 bal_segment1 ,src_bal_kff.segment2 bal_segment2,src_bal_kff.segment3 bal_segment3
,src_bal_kff.segment4 bal_segment4,src_bal_kff.segment5 bal_segment5,src_bal_kff.segment6 bal_segment6
,src_bal_kff.segment7 bal_segment7
,src_cost_kff.concatenated_segments cost_concatenated_segments
FROM pay_element_links_f src_link,
pay_cost_allocation_keyflex src_cost_kff,
pay_cost_allocation_keyflex src_bal_kff
WHERE src_link.business_group_id =4530-- Business Group you are dealing with
AND src_link.cost_allocation_keyflex_id =
src_cost_kff.cost_allocation_keyflex_id
AND src_link.balancing_keyflex_id =
src_bal_kff.cost_allocation_keyflex_id
AND TRUNC (SYSDATE) BETWEEN src_link.effective_start_date
AND src_link.effective_end_date
and src_link.element_link_id = 43033
);
LOOP
BEGIN
l_object_version_number :=i.object_version_number;
pay_element_link_api.update_element_link
(p_validate => false
,p_effective_date => i.effective_start_date -- in date
,p_element_link_id => i.element_link_id--in number
,p_datetrack_mode => 'CORRECTION'--to correct
,p_costable_type => i.costable_type -- in varchar2 default hr_api.g_varchar2
,p_element_set_id => i.element_set_id -- in number default hr_api.g_number
,p_multiply_value_flag => i.multiply_value_flag -- in varchar2 default hr_api.g_varchar2
,p_standard_link_flag => i.standard_link_flag -- in varchar2 default hr_api.g_varchar2
,p_transfer_to_gl_flag => i.transfer_to_gl_flag -- in varchar2 default hr_api.g_varchar2
--,p_comments -- in varchar2 default hr_api.g_varchar2
,p_comment_id => i.comment_id -- in varchar2 default hr_api.g_varchar2
,p_employment_category => i.employment_category -- in varchar2 default hr_api.g_varchar2
,p_qualifying_age => i.qualifying_age -- in number default hr_api.g_number
,p_qualifying_length_of_service => i.qualifying_length_of_service --in number default hr_api.g_number
,p_qualifying_units => i.qualifying_units --in varchar2 default hr_api.g_varchar2
,p_attribute_category => i.attribute_category --in varchar2 default hr_api.g_varchar2
,p_attribute1 => i.attribute1 -- in varchar2 default hr_api.g_varchar2
,p_attribute2 => i.attribute2 -- in varchar2 default hr_api.g_varchar2
,p_attribute3 => i.attribute3 -- in varchar2 default hr_api.g_varchar2
,p_attribute4 => i.attribute4 -- in varchar2 default hr_api.g_varchar2
,p_attribute5 => i.attribute5 -- in varchar2 default hr_api.g_varchar2
,p_attribute6 => i.attribute6 -- in varchar2 default hr_api.g_varchar2
,p_attribute7 => i.attribute7 -- in varchar2 default hr_api.g_varchar2
,p_attribute8 => i.attribute8 -- in varchar2 default hr_api.g_varchar2
,p_attribute9 => i.attribute9 -- in varchar2 default hr_api.g_varchar2
,p_attribute10 => i.attribute10 -- in varchar2 default hr_api.g_varchar2
,p_attribute11 => i.attribute11 -- in varchar2 default hr_api.g_varchar2
,p_attribute12 => i.attribute12 -- in varchar2 default hr_api.g_varchar2
,p_attribute13 => i.attribute13 -- in varchar2 default hr_api.g_varchar2
,p_attribute14 => i.attribute14 -- in varchar2 default hr_api.g_varchar2
,p_attribute15 => i.attribute15 -- in varchar2 default hr_api.g_varchar2
,p_attribute16 => i.attribute16 -- in varchar2 default hr_api.g_varchar2
,p_attribute17 => i.attribute17 -- in varchar2 default hr_api.g_varchar2
,p_attribute18 => i.attribute18 -- in varchar2 default hr_api.g_varchar2
,p_attribute19 => i.attribute19 -- in varchar2 default hr_api.g_varchar2
,p_attribute20 => i.attribute20 -- in varchar2 default hr_api.g_varchar2
--,p_cost_segment1 => i.cost_segment1 -- in varchar2 default hr_api.g_varchar2
--,p_cost_segment2 => i.cost_segment2 -- in varchar2 default hr_api.g_varchar2
,p_cost_segment3 => i.cost_segment3 -- in varchar2 default hr_api.g_varchar2
,p_cost_segment4 => i.cost_segment4 -- in varchar2 default hr_api.g_varchar2
,p_cost_segment5 => i.cost_segment5 --
/*,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 => i.bal_segment1 -- in varchar2 default hr_api.g_varchar2
,p_balance_segment2 => i.bal_segment2 -- in varchar2 default hr_api.g_varchar2
,p_balance_segment3 => i.bal_segment3 -- in varchar2 default hr_api.g_varchar2
,p_balance_segment4 => i.bal_segment4 -- in varchar2 default hr_api.g_varchar2
,p_balance_segment5 => i.bal_segment5 -- in varchar2 default hr_api.g_varchar2*/
,p_balance_segment6 =>'000000'--change this only --RRWR
,p_balance_segment7 => i.bal_segment7 -- in 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 => i.cost_concatenated_segments-- in varchar2 default hr_api.g_varchar2
--,p_balance_concat_segments_in => i.bal_segment1||'.'||i.bal_segment2||'.'||i.bal_segment4||'.'||i.bal_segment5||'.132000.'||i.bal_segment7--in varchar2 default hr_api.g_varchar2
,p_object_version_number => l_object_version_number --must be in , use a variable
,p_cost_allocation_keyflex_id => l_cost_allocation_keyflex_id
,p_balancing_keyflex_id => l_balancing_keyflex_id
,p_cost_concat_segments_out => l_cost_concat_segments_out
,p_balance_concat_segments_out => l_balance_concat_segments_out-- out nocopy varchar2
,p_effective_start_date => l_effective_start_date
,p_effective_end_date => l_effective_end_date--out nocopy date
);
-- commit;--**
Exception when others then
dbms_output.put_line('Error Not updated element_link_id ' ||I.element_link_id );
END;
End Loop;
end;
Hi Ahmad,
ReplyDeleteI also had same requirement as above,but when i compiling i`m getting errors.Please let me know if above was compiled for you