Oracle HRMS Update Person API script

DECLARE

  ln_object_version_number PER_ALL_PEOPLE_F.OBJECT_VERSION_NUMBER%TYPE := 3;
  --   lc_dt_ud_mode                            VARCHAR2(100)                                                                                     := NULL;

  lc_employee_number VARCHAr2(30) := '105929';

  -- Out Variables for Find Date Track Mode API
  -- ----------------------------------------------------------------
  lb_correction           BOOLEAN;
  lb_update               BOOLEAN;
  lb_update_override      BOOLEAN;
  lb_update_change_insert BOOLEAN;

  -- Out Variables for Update Employee API
  -- -----------------------------------------------------------
  ld_effective_start_date     DATE;
  ld_effective_end_date       DATE;
  lc_full_name                PER_ALL_PEOPLE_F.FULL_NAME%TYPE;
  ln_comment_id               PER_ALL_PEOPLE_F.COMMENT_ID%TYPE;
  lb_name_combination_warning BOOLEAN;
  lb_assign_payroll_warning   BOOLEAN;
  lb_orig_hire_warning        BOOLEAN;
  lc_dt_ud_mode               VARCHAR2(200) := 'CORRECTION';

BEGIN

  hr_person_api.update_person( -- Input Data Elements
                              -- ------------------------------
                              p_effective_date        => TO_DATE('26-MAY-2014'),
                              p_datetrack_update_mode => lc_dt_ud_mode,
                              p_person_id             => 3575,
                              p_last_name             => 'Prasad',
                              -- Output Data Elements
                              -- ----------------------------------
                              p_employee_number          => lc_employee_number,
                              p_object_version_number    => ln_object_version_number,
                              p_effective_start_date     => ld_effective_start_date,
                              p_effective_end_date       => ld_effective_end_date,
                              p_full_name                => lc_full_name,
                              p_comment_id               => ln_comment_id,
                              p_name_combination_warning => lb_name_combination_warning,
                              p_assign_payroll_warning   => lb_assign_payroll_warning,
                              p_orig_hire_warning        => lb_orig_hire_warning);

EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;