PlSql - Reverse terminate an employee using Oracle R12

The below code will be used to reverse terminate an employee, we received from Oracle.


Required to pass only person id as parameters

SET SERVEROUTPUT ON;


SET SERVEROUTPUT ON;

DECLARE

   CURSOR c_emp_cur
   IS
select person_id, actual_termination_date
from per_periods_of_service
where actual_termination_date is not null
AND person_id=18631;

l_validate Boolean := False;
l_actual_termination_date DATE;
l_person_id Number;  

 BEGIN

   FOR c_emp_rec IN c_emp_cur
   LOOP

      l_person_id := c_emp_rec.person_id;
      l_actual_termination_date := c_emp_rec.actual_termination_date;    

   DBMS_OUTPUT.PUT_LINE('l_person_id' ||l_person_id); 
   DBMS_OUTPUT.PUT_LINE('l_actual_termination_date' ||l_actual_termination_date); 
  
   
      BEGIN
      
                         hr_ex_employee_api.reverse_terminate_employee
                                 (p_validate  => l_validate
                                 ,p_person_id  => l_person_id
                                 ,p_actual_termination_date => l_actual_termination_date
                                 ,p_clear_details => 'Y'
                                 );
        DBMS_OUTPUT.PUT_LINE('DONE');

     Exception
        WHEN Others Then
        DBMS_OUTPUT.PUT_LINE( sqlerrm);
     End;
    
  End Loop;
   commit;
End;


O/p:

PL/SQL procedure successfully completed.
l_person_id18631
l_actual_termination_date24-DEC-16
DONE


Here tables affected is

select * from per_all_assignments_f where person_id=18631;
select * from per_all_people_f where employee_number='111999';
select * from per_periods_of_Service where person_id=18631;

The 2 records created in assignments,per_all_people_f, periods all got cleared.

If required much more details-

https://community.oracle.com/message/14155828#14155828