HRMS GOSI Migration

Declare
v_object_version_number    NUMBER;
p_comment_id               NUMBER;
p_soft_coding_keyflex_id   NUMBER;
p_effective_start_date     DATE;
p_effective_end_date       DATE;
l_date   date;
p_concatenated_segments    VARCHAR2 (250);
p_no_managers_warning      BOOLEAN;
p_other_manager_warning    BOOLEAN;
V_ERRCODE                  VARCHAR2 (3000);


begin

for i in (
SELECT object_version_number , gg.EFFECTIVE_START_DATE  , assignment_id
FROM per_all_assignments_f gg
where TO_NUMBER(TO_CHAR(EFFECTIVE_END_DATE,'RRRR')) > 4000
and SOFT_CODING_KEYFLEX_ID is  null)
--and  assignment_id  = 16547)

Loop
begin
hr_sa_assignment_api.update_sa_emp_asg
(p_effective_date              => I.EFFECTIVE_START_DATE , --sysdate,
p_datetrack_update_mode       => 'CORRECTION',
p_assignment_id               => i.assignment_id  ,
p_object_version_number       => i.object_version_number,
p_employer                    => '81',
p_gosi_num                    => 1,
p_gosi_annuities              => 'N' ,
p_annuities_branch_join_date  => SYSDATE  ,
p_gosi_hazards                => 'Y' ,
p_hazards_branch_join_date    => SYSDATE,
p_comment_id                  => p_comment_id,
p_soft_coding_keyflex_id      => p_soft_coding_keyflex_id,
p_effective_start_date        => p_effective_start_date,
p_effective_end_date          => p_effective_end_date,
p_concatenated_segments       => p_concatenated_segments,
p_no_managers_warning         => p_no_managers_warning,
p_other_manager_warning       => p_other_manager_warning
);
Commit;

dbms_output.PUT_LINE('DONE');
EXCEPTION
WHEN OTHERS
THEN
V_ERRCODE    := substr(SQLERRM,1,200);
dbms_output.PUT_LINE(V_ERRCODE|| i.assignment_id);



END;
end loop;
End;