my proc. not giving me expected results

[kp9999]

Hello Anyone please help me out.

I am in the process of calling HRMS API to update contractor and their supervisor relationship.
I am calling this API [hr_assignment_api.update_emp_asg] and created a procedure with that..But this procedure is not updating the relationship.Please help



create or replace Procedure Update_supervisor_1 is

--(person_id,supervisor_id)
--
l_person_id NUMBER;
l_assignment_id NUMBER;
l_supervisor_id NUMBER;
l_per_object_version_number NUMBER;
l_asg_object_version_number NUMBER;
l_per_effective_start_date DATE;
l_per_effective_end_date DATE;
l_per_comment_id NUMBER;
l_assignment_sequence NUMBER;
l_assignment_number VARCHAR2 (1000);
l_name_combination_warning BOOLEAN;
l_assign_payroll_warning BOOLEAN;
l_orig_hire_warning BOOLEAN;
l_full_name VARCHAR2 (200);
l_eno VARCHAR2 (2000);
l_cagr_grade_def_id NUMBER;
l_cagr_concatenated_segments VARCHAR2 (100);
l_concatenated_segments VARCHAR2 (100);
l_soft_coding_keyflex_id NUMBER;
l_comment_id NUMBER:=0;
l_effective_start_date DATE;
l_effective_end_date DATE;
l_no_managers_warning BOOLEAN;
l_other_manager_warning BOOLEAN;
l_hourly_salaried_warning BOOLEAN;
l_gsp_post_process_warning VARCHAR2 (100);
l_clear_details VARCHAR2 (2) := 'N';
l_object_version_number NUMBER;

BEGIN

l_supervisor_id:=4444444;

select object_version_number
into l_object_version_number
from per_all_people_f
where person_id = 333333--p_person_id
and trunc(sysdate) between effective_start_date and effective_end_date;

select assignment_id
into
l_assignment_id
from per_assignments_x where person_id=333333;
--p_person_id;
--


BEGIN
hr_assignment_api.update_emp_asg (
p_validate => FALSE,--**
p_effective_date => SYSDATE,--**
p_datetrack_update_mode => 'CORRECTION',--**
p_assignment_id => l_assignment_id, --'8128',
p_object_version_number => l_object_version_number,--**
p_supervisor_id => l_supervisor_id, -- 74,--**
p_cagr_grade_def_id => l_cagr_grade_def_id,--**
p_cagr_concatenated_segments => l_cagr_concatenated_segments,--**
p_concatenated_segments => l_concatenated_segments,--**
p_soft_coding_keyflex_id => l_soft_coding_keyflex_id,--**
p_comment_id => l_comment_id,--**
p_effective_start_date => l_effective_start_date,--**
p_effective_end_date => l_effective_end_date,--**
p_no_managers_warning => l_no_managers_warning,--**
p_other_manager_warning => l_other_manager_warning,--**
p_hourly_salaried_warning => l_hourly_salaried_warning,--**
p_gsp_post_process_warning => l_gsp_post_process_warning--**
);

--

COMMIT;
--
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END;
--

--

--
END;
/