Employee No: 20227 exists but has no assignment id!

Question

Please could someone read through my script that uses several APIs to insert and update employee records and suggest why Im getting my error message "Employee No: 20227 exists but has no assignment id." How does it not have an assignment ID? A simpler version of this script has been working fine in LIVE Production. I can post this if required. Totally stumped.
/* 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
   obj_vers_no_failed exception;
   emp_status_errors1 exception;
   emp_status_errors2 exception;
   location_code_errors  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 := '0';
   l_obj2          NUMBER  := '0' ;
   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 := 0;
   l_assignment_id2           NUMBER       := 0;
   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_location_id, std_supervisor_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)
   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 per.employee_number = p_emp_number
         AND per.person_id = padd.person_id
         AND paas.person_id(+) = per.person_id;
--  AND per.employee_number IS NOT NULL AND per.national_identifier IS NOT NULL;
   emp_rec                          c_check_employee%ROWTYPE;
-- Cursor retrieves latest Object Version Number from per_assignments_f table..
     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 csr_ovn2 (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 Numbers..
       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;
       IF csr_ovn%NOTFOUND   THEN  RAISE  obj_vers_no_failed;
        DBMS_OUTPUT.PUT_LINE ('csr_ovn obj vers no failed..   '  );
        DBMS_OUTPUT.PUT (CHR (10));      
        END IF;
      CLOSE csr_ovn;
       OPEN csr_ovn2 (v_emp.std_employee_number);
       FETCH csr_ovn2
       INTO l_obj2;
      IF csr_ovn2%NOTFOUND     THEN        RAISE NO_DATA_FOUND;   END IF;
      -- IF csr_ovn2%NOTFOUND   THEN  RAISE  obj_vers_no_failed;
     -- DBMS_OUTPUT.PUT_LINE ('csr_ovn2 obj vers no failed..   '  );  END IF;
      CLOSE csr_ovn2;
-- determine whether customer already exists
      OPEN c_check_employee (v_emp.std_employee_number);
      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;
      l_assignment_id := emp_rec.assignment_id;
-- ===================================
-- these next 6 lines is to check the default code comb id..     
-- ===================================
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;     
      IF v_emp.std_emp_status = 'N'   and c_check_employee%NOTFOUND
      THEN
      insert_flag := 'I';
          DBMS_OUTPUT.PUT_LINE ('New Employee No: ' || v_emp.std_employee_number);
          DBMS_OUTPUT.PUT (CHR (10));
       end if;
      IF v_emp.std_emp_status = 'C' and v_emp.std_national_identifier is not null
        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));
   --      DBMS_OUTPUT.PUT_LINE ('Insert Flag is: ' || insert_flag  );
       end if;
      IF v_emp.std_emp_status = 'C' and c_check_employee%FOUND     
       THEN
       insert_flag := 'C';
      DBMS_OUTPUT.PUT_LINE ('Employee No: ' || v_emp.std_employee_number ||  '      ..is status C but is present in LIVE... '   );  
      DBMS_OUTPUT.PUT (CHR (10));
       DBMS_OUTPUT.PUT_LINE ('Insert Flag is: ' || insert_flag  );  
     END IF;
--   if l_assignment_id2 is null then
  --        raise_application_error (-20010, 'Employee No: ' || v_emp.std_employee_number  || ' exists but has no assignment id!');
     --   end if;
  IF l_assignment_id2 is null then      raise emp_status_errors1;     END IF;
--  IF l_assignment_id is null then      raise emp_status_errors1;     END IF;
      IF l_obj2 is null then  raise emp_status_errors2; END  IF;
      IF l_obj is null then  raise emp_status_errors2; END  IF;
    insert_flag := 'C';
    --      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;
       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 --
DBMS_OUTPUT.PUT_LINE ('Inserting Employee.. ' || v_emp.std_employee_number  || ' ..now '); 
         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_assignment_id                  => l_assignment_id2,
                  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
                             --      p_object_version_number        => l_obj2
         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_assignment_id               => l_assignment_id2,
                         p_object_version_number       => l_obj,
                   --      p_object_version_number       => l_obj2,
                         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_assignment_id                     => l_assignment_id2,
              p_object_version_number             => l_obj,
        --      p_object_version_number             => l_obj2,
              p_organization_id                   => l_organization_id,
              p_location_id                       => v_ora_loc_code,
              p_job_id                            => l_job_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
                               || '  Insert Flag I records read in..'
-- Updating PER_ALL_PEOPLE_F and PER_ADDRESSES record from
--            info in  table record
   ELSE IF insert_flag = 'C'
      THEN
         l_assignment_id2 := emp_rec.assignment_id;
          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));
--  END IF;
-- =========
-- Section end
-- =========
         Hr_Assignment_Api.update_emp_asg
                        (p_validate                    => l_validate,
                         p_effective_date           => SYSDATE,
                         p_datetrack_update_mode       => l_datetrack_update_mode,
                         p_assignment_id               => l_assignment_id2,
                     --    p_object_version_number       => l_obj2,
                         p_object_version_number       => l_obj,
                         p_supervisor_id               => v_emp.std_supervisor_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_obj2,
              p_object_version_number             => l_obj,
              p_organization_id                   => emp_rec.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
                               || '  INsert Flag C records read in..'
         DBMS_OUTPUT.PUT (CHR (10));
-- End of customer related details
      END IF;
  END IF;
      END IF;
   END   LOOP;
   COMMIT;
EXCEPTION
WHEN OBJ_VERS_NO_FAILED THEN   ROLLBACK;
dbms_output.put_line (' No Object version No was found.. ');
WHEN  emp_status_errors1 THEN  ROLLBACK;
dbms_output.put_line  ( 'Employee No: ' || v_emp_no || ' exists but has no assignment id!') ;
WHEN  emp_status_errors2 THEN  ROLLBACK;
dbms_output.put_line  ( 'Employee No: ' || v_emp_no  || ' Assgnmnt Obj Vers No is not being passed!');
WHEN  location_code_errors THEN  ROLLBACK;
dbms_output.put_line  ('Location ID unknown or not found, please check..');
   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

Thanks for taking the time out.
You're 2nd suggestion was correct the employee doesn't exist in ORACLE Financials becuase its a new employee.
Ive since placed some more lines in to give me more idea which of the 2 assignment_ids it could be. Its saying it finds the employee from the temporary table (SU_TEMPLOYEE_DTLS, that Ive loaded in) but it cant find anything in the variable 'l_assignment_id2' - which Ive got placed for the UPDATE section of the script only (insert_flag = 'C'hanged rather than 'I'nsert).
I cant understand this. Prior to been asked to put more error handling code this has worked fine updating and inserting employee records. Ive tried this morning comparing the two scripts but no success. Would you live a new version of the scripting posting?
Thanks again.
Steven