We're running a script using several employee API's which is failing..

Question

Hello.
Hopefully, one of you gurus will have xome across this before...
Our script has been created to take both NEW & CHANGED employee details into ORACLE Financials via a temporary table directly loaded in from our HR system. It has been working thus far for any new employees but is now failing now that we're trying to incorporate existing employees.
The error message given is:
ORACLE error occurred processing record.. ORA-20001: PAY_7599_SYS_SUP_DT_OUTDAT
The official description behind the error is:
ORA-20001: Supervisor is not valid for the duration of the assignment
Metalink states “Using UPDATE_EMP_ASG API to update the supervisor on a person's assignment when the supervisor is hired after the Employee”. To get around this the DATETRACK mode needs to be set to UPDATE. However Shared HR users are only allowed to use the mode of CORRECTION for this API. We are, unfortunately, a Shared HR User.
Basically, as I understand it, it is because we're trying to load in employees who have a start date BEFORE that of the Supervisor that we’re attaching it to.
Please could you suggest/supply a workaround for users in this type of situation.
/* Formatted on 2009/04/29 11:52 (Formatter Plus v4.8.7) */
SET serveroutput ON SIZE 1000000 FORMAT WRAPPED
SET verify OFF
SET feedback OFF
DECLARE
-- Debugging/error handling
-- Work variables
   location_code_errors  exception;
--   emp_status_errors1   exception;
--   emp_status_errors2   exception;
  v_emp_no number;
   l_employ_start_date        DATE:= TO_DATE ('01-APR-1999', 'DD-MON-YYYY');
   v_ora_loc_code number                     := 0;
   p_emp_number                     VARCHAR2 (14);
   v_rec_cnt                        NUMBER                          := 0;
   insert_flag                      VARCHAR2 (8);
   err_num                          NUMBER;
   err_msg                          VARCHAR2 (150);
   err_line                         VARCHAR2 (350);
   err_seq                          NUMBER                          := 0;
   l_validate                       BOOLEAN                     DEFAULT FALSE;
   l_std_business_group_id          NUMBER                          := '0';
   l_default_code_comb_id           NUMBER                        := '218048';
   l_organization_id                NUMBER                          := '0';
   l_set_of_books_id                NUMBER                          := '1';
   l_job_id                         NUMBER                          := '10';
   l_obj                            NUMBER;
   l_datetrack_update_mode          VARCHAR2 (30)             := 'CORRECTION';
   l_assignment_sequence            NUMBER;
   l_name_combination_warning       BOOLEAN                         := FALSE;
   l_assign_payroll_warning         BOOLEAN                         := FALSE;
   l_org_now_no_manager_warning     BOOLEAN;
   l_other_manager_warning          BOOLEAN;
   l_spp_delete_warning             BOOLEAN;
   l_entries_changed_warning        VARCHAR2 (30);
   l_tax_district_changed_warning   BOOLEAN;
   l_person_id                      NUMBER;
   l_assignment_id                  NUMBER;
   l_assignment_id2           NUMBER;  -- := '28262';
   l_special_ceiling_step_id        NUMBER;
   l_per_effective_end_date         DATE:= TO_DATE ('11-Jul-2049', 'DD-MON-YYYY');
   l_people_group_id                NUMBER;
   l_group_name                     VARCHAR2 (30);
   l_assignment_number              VARCHAR2 (35);
   l_effective_end_date             DATE := TO_DATE ('11-Jul-2049', 'DD-MON-YYYY');
   l_date                           DATE                           := SYSDATE;
   ip_p_address_id                  per_addresses.address_id%TYPE;
   ip_p_object_version_number       NUMBER;
   ip_p_party_id                    per_addresses.party_id%TYPE;
   l_per_object_version_number      NUMBER;
   l_asg_object_version_number      NUMBER;
   l_full_name                      VARCHAR2 (240);
   l_per_comment_id                 NUMBER;
   l_per_effective_start_date       DATE;
   l_concatenated_segments          VARCHAR2 (240);
   l_soft_coding_keyflex_id         NUMBER;
   l_comment_id                     NUMBER;
   l_no_managers_warning            BOOLEAN;
-- Get employee details info from work table
   CURSOR get_employee_details
   IS
      SELECT std_hire_date, std_last_name, std_sex, std_date_of_birth,
             std_email_address, std_emp_status,
             LPAD (std_employee_number, 8, '0') std_employee_number,
             std_first_name, std_marital_status, std_middle_names,
             std_nationality, std_title, std_national_identifier,
             std_address_line1, std_address_line2, std_address_line3,
             std_address_line4, std_post_code, std_telephone_1, std_country, --std_region,
             std_location_id, --std_organization_id,
             lpad(std_supervisor_id,8,'0') std_supervisor_id
     --, std_person_id, std_position_id
        FROM SU_TEMPLOYEE_DETAILS     
     WHERE std_employee_number IS NOT NULL AND std_national_identifier IS NOT NULL;
-- checks employee details info from PER_ALL_PEOPLE_F table
   CURSOR c_check_employee (p_emp_number VARCHAR2, p_NI_number Varchar2)
   IS
      SELECT per.person_id, per.business_group_id, per.last_name,
             per.start_date, per.date_of_birth, per.email_address,
             per.employee_number, per.first_name, per.marital_status,
             per.middle_names, per.nationality, per.national_identifier,
             per.sex, per.title, padd.address_id, padd.primary_flag,
             padd.address_line1, padd.address_line2, padd.address_line3,
             padd.town_or_city, padd.postal_code, padd.telephone_number_1, paas.assignment_id,
             paas.assignment_number, paas.object_version_number, paas.EFFECTIVE_START_DATE,
     paas.job_id, paas.position_id, paas.location_id, paas.organization_id, paas.assignment_type, paas.supervisor_id,
             paas.default_code_comb_id, paas.set_of_books_id, paas.period_of_service_id
      FROM   per_all_people_f per,
             per_all_assignments_f paas,
             per_addresses padd
       WHERE padd.person_id = per.person_id
       AND paas.person_id(+) = per.person_id
     AND per.employee_number = p_emp_number
     AND per.national_identifier = p_NI_number;
   emp_rec                          c_check_employee%ROWTYPE;
-- Cursor retrieves latest Object Version Number from per_assignments_f table..
--   CURSOR csr_ovn (cp_person_id IN per_all_people_f.person_id%TYPE)
     CURSOR csr_ovn (cp_person_emp_no IN per_all_people_f.EMPLOYEE_NUMBER%TYPE)
    IS
      SELECT MAX (paas.object_version_number)
        FROM per_assignments_f paas, per_all_people_f per
       WHERE paas.person_id = per.person_id
         AND per.employee_number = paas.assignment_number
        -- AND per.person_id = cp_person_id;
        AND employee_number = cp_person_emp_no;
-- Cursor to get Oracle_Loc_Code from SU CHRIS vs ORACLE Locations Table into a variable..
CURSOR csr_ora_loc_code (cp_location_id IN SU_TEMPLOYEE_DETAILS.std_location_id%TYPE)
IS
      SELECT sil.ORACLE_LOC_CODE
     FROM SU_TEMPLOYEE_DETAILS std, SU_IEXP_LOCATIONS sil
     WHERE std.STD_LOCATION_ID = sil.CHRIS_LOC_code
     AND std.STD_LOCATION_ID = cp_location_id;
BEGIN
-- Process each record in the work table
   FOR v_emp IN get_employee_details
   LOOP
-- Obtain the most recent Object Version Number..
       OPEN csr_ovn (v_emp.std_employee_number);
      FETCH csr_ovn
       INTO l_obj;
      IF csr_ovn%NOTFOUND     THEN        RAISE NO_DATA_FOUND;   END IF;
      CLOSE csr_ovn;
-- determine whether customer already exists
      OPEN c_check_employee (v_emp.std_employee_number, v_emp.std_national_identifier);
      FETCH c_check_employee
       INTO emp_rec;
       v_emp_no :=  LPAD (v_emp.std_employee_number, 8, '0');
       l_assignment_id2 := emp_rec.assignment_id;
      IF v_emp.std_emp_status = 'N'  and c_check_employee%NOTFOUND
      THEN
      insert_flag := 'I';
          DBMS_OUTPUT.PUT_LINE ('Employee No: ' || v_emp.std_employee_number);
          DBMS_OUTPUT.PUT (CHR (10));
       END IF;
     --If Chris21 status is New but Employee exists in Finance make it a changed record
      IF v_emp.std_emp_status = 'N'  and c_check_employee%FOUND
      THEN
      insert_flag := 'C';
          DBMS_OUTPUT.PUT_LINE ('Employee No: ' || v_emp.std_employee_number);
          DBMS_OUTPUT.PUT (CHR (10));
       END IF;
      IF  v_emp.std_emp_status = 'C' and c_check_employee%NOTFOUND
      THEN
      insert_flag := 'I';
      DBMS_OUTPUT.PUT_LINE ('Employee No: ' || v_emp.std_employee_number || ' doesnt exist but            theyre goin in anyway.. ');
       DBMS_OUTPUT.PUT (CHR (10));
      END IF;
       IF v_emp.std_emp_status = 'C' and c_check_employee%FOUND
      THEN    
       insert_flag := 'C';
        END IF;
--==================================================
--===== Left this out as this was predominantly for testing purposes.. ======
--==================================================
       --    IF l_assignment_id2 is null then   raise emp_status_errors1;     END IF;
       --    IF l_obj is null then  raise emp_status_errors2;    END  IF;
      --     IF l_job_id is null AND v_emp.std_emp_status = 'C'  THEN l_job_id = '10';
        -- END IF;
        -- END IF;
      CLOSE c_check_employee;
-- Open Oracle Location Code cursor
OPEN csr_ora_loc_code(v_emp.std_location_id); 
      FETCH csr_ora_loc_code
       INTO v_ora_loc_code;
       IF csr_ora_loc_code%NOTFOUND  THEN    RAISE   location_code_errors; END IF;
      CLOSE csr_ora_loc_code;
-- Create new PER_ALL_PEOPLE_F and PER_ADDRESSES record from
--            info in  table record
      IF insert_flag = 'I'
      THEN
--                      -- Importing Employee Procedure --
         Hr_Employee_Api.create_gb_employee
                 (p_validate                       => l_validate,
                  p_hire_date                      => l_employ_start_date,
                  p_business_group_id              => l_std_business_group_id,
                  p_date_of_birth                  => v_emp.std_date_of_birth,
                  p_email_address                  => v_emp.std_email_address,
                  p_first_name                     => v_emp.std_first_name,
                  p_middle_names                   => v_emp.std_middle_names,
                  p_last_name                      => v_emp.std_last_name,
                  p_sex                            => v_emp.std_sex,
                  p_ni_number                      => v_emp.std_national_identifier,
                  p_employee_number                => v_emp.std_employee_number,
                  p_person_id                      => l_person_id,
                  p_title                          => v_emp.std_title,
                  p_assignment_id                  => l_assignment_id,
                  p_per_object_version_number      => l_per_object_version_number,
                  p_asg_object_version_number      => l_asg_object_version_number,
                  p_per_effective_start_date       => l_per_effective_start_date,
                  p_per_effective_end_date         => l_per_effective_end_date,
                  p_full_name                      => l_full_name,
                  p_per_comment_id                 => l_per_comment_id,
                  p_assignment_sequence            => l_assignment_sequence,
                  p_assignment_number              => l_assignment_number,
                  p_name_combination_warning       => l_name_combination_warning,
                  p_assign_payroll_warning         => l_assign_payroll_warning
         Hr_Person_Address_Api.create_person_address
                                  (p_validate                     => l_validate,
                    --            p_effective_date               => v_emp.std_hire_date,
                                   p_effective_date              =>  l_employ_start_date,
                                   p_pradd_ovlapval_override      => NULL,
                                   p_validate_county              => NULL,
                                   p_person_id                    => l_person_id,
                                   p_primary_flag                 => 'Y',
                                   p_style                        => 'GB_GLB',
                                   p_date_from                    => SYSDATE,
                                   p_date_to                      => NULL,
                                   p_address_type                 => NULL,
                                   p_comments                     => NULL,
                                   p_address_line1                => v_emp.std_address_line1,
                                   p_address_line2                => v_emp.std_address_line2,
                                   p_address_line3                => v_emp.std_address_line3,
                                   p_town_or_city                 => v_emp.std_address_line4,
                                   p_region_1                     => NULL,
                                   p_region_2                     => NULL,
                                   p_region_3                     => NULL,
                                   p_postal_code                  => v_emp.std_post_code,
                                   p_country                      => v_emp.std_nationality,
                                   p_telephone_number_1           => NULL,
                                   p_telephone_number_2           => NULL,
                                   p_telephone_number_3           => NULL,
                                   p_party_id                     => ip_p_party_id,
                                   p_address_id                   => ip_p_address_id,
                                   p_object_version_number        => l_obj
         Hr_Assignment_Api.update_emp_asg
                        (p_validate                    => l_validate,
                         p_effective_date              => SYSDATE,  -- l_date,
                         p_datetrack_update_mode       => l_datetrack_update_mode,
                         p_assignment_id               => l_assignment_id,
                         p_object_version_number       => l_obj,
                         p_supervisor_id               => v_emp.std_supervisor_id,
                         p_default_code_comb_id        => l_default_code_comb_id,
                         p_set_of_books_id             => l_set_of_books_id,
                         p_concatenated_segments       => l_concatenated_segments,
                         --IN/OUT
                         p_soft_coding_keyflex_id      => l_soft_coding_keyflex_id,
                         --IN/OUT
                         p_comment_id                  => l_comment_id,
                         --IN/OUT
                         p_effective_start_date        => l_date,     --IN/OUT
                         p_effective_end_date          => l_effective_end_date,
                         --IN/OUT
                         p_no_managers_warning         => l_no_managers_warning,
                         --IN/OUT
                         p_other_manager_warning       => l_other_manager_warning
                        --IN/OUT
         Hr_Assignment_Api.update_emp_asg_criteria
             (p_validate                          => l_validate,
              p_effective_date                    => SYSDATE,       -- l_date,
              p_datetrack_update_mode             => l_datetrack_update_mode,
              p_assignment_id                     => l_assignment_id,
              p_object_version_number             => l_obj,
              p_organization_id                   => l_organization_id,
              p_location_id                       => v_ora_loc_code,
              p_job_id                            => l_job_id,
--              p_position_id                       => v_emp.std_position_id,
              p_special_ceiling_step_id           => l_special_ceiling_step_id,
              p_effective_start_date              => l_date,
              --per_effective_start_date,
              p_effective_end_date                => l_effective_end_date,
              --IN/OUT
              p_people_group_id                   => l_people_group_id,
              --IN/OUT
              p_group_name                        => l_group_name,    --IN/OUT
              p_org_now_no_manager_warning        => l_org_now_no_manager_warning,
              --IN/OUT
              p_other_manager_warning             => l_other_manager_warning,
              --IN/OUT
              p_spp_delete_warning                => l_spp_delete_warning,
              --IN/OUT
              p_entries_changed_warning           => l_entries_changed_warning,
              --IN/OUT
              p_tax_district_changed_warning      => l_tax_district_changed_warning
             --IN/OUT
         v_rec_cnt := v_rec_cnt + 1;
         DBMS_OUTPUT.PUT (CHR (10));
         DBMS_OUTPUT.PUT_LINE (   'There were '
                               || v_rec_cnt
                               || '  records read in..'
-- Updating PER_ALL_PEOPLE_F and PER_ADDRESSES record from
--            info in  table record
   ELSE IF insert_flag = 'C'
      THEN
          DBMS_OUTPUT.PUT (CHR (10));
         DBMS_OUTPUT.PUT_LINE ('Employee No: ' || v_emp.std_employee_number ||  '  is about to be updated.. '   );
          DBMS_OUTPUT.PUT (CHR (10));
-- ===================================================
-- these next 6 lines is for the initial mass update of existing employee records only     
-- ===================================================
/*IF emp_rec.default_code_comb_id is NULL THEN
     l_default_code_comb_id = 218048;
     END IF;     
     IF emp_rec.job_id is NULL THEN
     l_job_id = 10;
     END IF;      */
-- =========
-- Section end
-- =========
         Hr_Assignment_Api.update_emp_asg
                        (p_validate                    => l_validate,
                         p_effective_date           => emp_rec.EFFECTIVE_START_DATE, --SYSDATE,
                         p_datetrack_update_mode       => l_datetrack_update_mode,
                         p_assignment_id               => l_assignment_id2,
                         p_object_version_number       => l_obj,
                         p_supervisor_id               => v_emp.std_supervisor_id,
                          p_default_code_comb_id        => l_default_code_comb_id,
           --            p_default_code_comb_id        => emp_rec.default_code_comb_id,
                         p_set_of_books_id             => emp_rec.set_of_books_id,
                         p_concatenated_segments       => l_concatenated_segments,
                         --IN/OUT
                         p_soft_coding_keyflex_id      => l_soft_coding_keyflex_id,
                         --IN/OUT
                         p_comment_id                  => l_comment_id,
                         --IN/OUT
                         p_effective_start_date        => l_date,     --IN/OUT
                         p_effective_end_date          => l_effective_end_date,
                         --IN/OUT
                         p_no_managers_warning         => l_no_managers_warning,
                         --IN/OUT
                         p_other_manager_warning       => l_other_manager_warning
                        --IN/OUT
         Hr_Assignment_Api.update_emp_asg_criteria
             (p_validate                          => l_validate,
              p_effective_date                    => emp_rec.EFFECTIVE_START_DATE,
              --p_effective_date                    => SYSDATE,
              p_datetrack_update_mode             => l_datetrack_update_mode,
              p_assignment_id                     => l_assignment_id2,
              p_object_version_number             => l_obj,
--              p_organization_id                   => emp_rec.organization_id,
              p_organization_id                   => l_organization_id,
              p_location_id                       => v_ora_loc_code,
              p_job_id                            => emp_rec.job_id,
--              p_position_id                       => emp_rec.position_id,
              p_special_ceiling_step_id           => l_special_ceiling_step_id,
              p_effective_start_date              => emp_rec.EFFECTIVE_START_DATE,
              p_effective_end_date                => l_effective_end_date,
              --IN/OUT
              p_people_group_id                   => l_people_group_id,
              --IN/OUT
              p_group_name                        => l_group_name,    --IN/OUT
              p_org_now_no_manager_warning        => l_org_now_no_manager_warning,
              --IN/OUT
              p_other_manager_warning             => l_other_manager_warning,
              --IN/OUT
              p_spp_delete_warning                => l_spp_delete_warning,
              --IN/OUT
              p_entries_changed_warning           => l_entries_changed_warning,
              --IN/OUT
              p_tax_district_changed_warning      => l_tax_district_changed_warning
             --IN/OUT
         v_rec_cnt := v_rec_cnt + 1;
         DBMS_OUTPUT.PUT (CHR (10));
         DBMS_OUTPUT.PUT_LINE (   'There were '
                               || v_rec_cnt
                               || ' records read in..'
         DBMS_OUTPUT.PUT (CHR (10));
-- End of customer related details
      END IF;
      END IF;
--      END IF;
   END   LOOP;
   COMMIT;
EXCEPTION
WHEN  location_code_errors THEN  ROLLBACK;
dbms_output.put_line  ('Location ID unknown or not found, please check..');
/* WHEN  emp_status_errors1 THEN  ROLLBACK;
dbms_output.put_line  ( 'Employee No: ' || v_emp_no || ' has been found but has no assignment id2!') ;
WHEN  emp_status_errors2 THEN  ROLLBACK;
dbms_output.put_line  ( 'Employee No: ' || v_emp_no  || ' Assgnmnt Obj Vers No is not being passed!');
   WHEN NO_DATA_FOUND     THEN     ROLLBACK;
      err_num := TO_CHAR (SQLCODE);
      err_msg := SUBSTR (SQLERRM, 1, 150);
      err_line :=   'ORACLE error occurred processing record.. ' ||  err_msg;
      DBMS_OUTPUT.PUT_LINE (err_line);
      INSERT INTO SU_ERROR_LOG  VALUES (err_msg, 'TEMPLOYEE_DTLS.sql', SYSTIMESTAMP);
    WHEN OTHERS    THEN       ROLLBACK;
      err_num := TO_CHAR (SQLCODE);
      err_msg := SUBSTR (SQLERRM, 1, 150);
      err_line :=   'ORACLE error occurred processing record.. ' ||  err_msg;
      DBMS_OUTPUT.PUT_LINE (err_line);
      INSERT INTO SU_ERROR_LOG  VALUES (err_msg, 'TEMPLOYEE_DTLS.sql', SYSTIMESTAMP);
END;
EXIT;Many thanks..
Steven

Answer 1

many thanks for your help user11181328 but because its just a SQL script I thought an alternative was to create 2 cursors in the same script to get the date..:
1st cursor to -- 1. First get the assignment id of the subordinate. (emp_rec.assignment_id)
..and then 2nd to: get the start date of the supervisor's record (v_emp.std_supervisor_id)
-- Cursor to get Oracle_Loc_Code from SU CHRIS vs ORACLE Locations Table into a variable..
CURSOR csr_ora_loc_code (cp_location_id IN SU_TEMPLOYEE_DETAILS.std_location_id%TYPE)
IS
      SELECT sil.ORACLE_LOC_CODE
     FROM SU_TEMPLOYEE_DETAILS std, SU_IEXP_LOCATIONS sil
     WHERE std.STD_LOCATION_ID = sil.CHRIS_LOC_code
     AND std.STD_LOCATION_ID = cp_location_id;
-- Cursor to get the start date of the supervisor's record based
-- on the assignment id of the subordinate (employee)
-- 1. First get the assignment id of the subordinate. (emp_rec.assignment_id)
CURSOR c_sprvsrid_ofemp (p_emp_number VARCHAR2)
IS
SELECT paas.assignment_id --  per.EMPLOYEE_NUMBER
FROM per_all_people_f per, per_assignments_f paas
WHERE
paas.person_id = per.person_id
AND per.employee_number = p_emp_number;
   sprvsr_rec                          c_sprvsrid_ofemp%ROWTYPE;
-- 2. from this get the start date of the supervisor's record (v_emp.std_supervisor_id)
CURSOR c_sprvsr_strt_dte (p_emp_number VARCHAR2)
IS
SELECT   paas.effective_start_date 
FROM per_all_people_f per, per_assignments_f paas
WHERE
paas.person_id = per.person_id
AND per.employee_number = paas.assignment_number
--AND paas.assignment_id = sprvsr_rec.SUPERVISOR_ID;
AND paas.assignment_id = sprvsr_rec.assignment_id;
   ssdate_rec                          c_sprvsr_strt_dte%ROWTYPE;
-- 3. then take this start date in [2] and give it to the start date of the assignment for the subordinate....then in the main section..
-- Get that bloody Supervisors start date!!
OPEN c_sprvsrid_ofemp (emp_rec.employee_number);
      FETCH c_sprvsrid_ofemp        INTO sprvsrid_ofemp;
    --  IF c_sprvsrid_ofemp%NOTFOUND     THEN        RAISE NO_DATA_FOUND;   END IF;
     CLOSE c_sprvsrid_ofemp;
OPEN c_sprvsr_strt_dte (emp_rec.employee_number);
    FETCH c_sprvsr_strt_dte INTO v_sprvsr_strt_dte;     
-- IF c_sprvsr_strt_dte%NOTFOUND     THEN        RAISE NO_DATA_FOUND;   END IF;
   CLOSE c_sprvsr_strt_dte;Alas, although it seemed written out to work, the same error message was generated when ran. I have honestly no idea how to get around this. Metalink acknowledge its a problem but have placed it as an 'Enhancement Request', meaning of course, don't wait up for a fix anytime this year..
Steven