EBS开发_创建员工供应商

create or replace package cux_ap_emp_vendor_pkg is
  procedure main(errbuf           OUT NOCOPY VARCHAR2,
                 retcode          OUT NOCOPY NUMBER,
                 i_auto_next_step IN VARCHAR2 DEFAULT 'N');
  PROCEDURE Load_InterfaceTable(errbuff OUT VARCHAR2, retcode OUT number);
end cux_ap_emp_vendor_pkg;
/
create or replace package body cux_ap_emp_vendor_pkg is
  procedure main(errbuf           OUT NOCOPY VARCHAR2,
                 retcode          OUT NOCOPY NUMBER,
                 i_auto_next_step IN VARCHAR2 DEFAULT 'N') is
    v_session_id     number;
    v_request_id     number;
    v_b_return       boolean;
    v_b_result       boolean;
    v_chr_phase      VARCHAR2(100);
    v_chr_status     VARCHAR2(100);
    v_chr_dev_phase  VARCHAR2(100);
    v_chr_dev_status VARCHAR2(100);
    v_chr_message    VARCHAR2(100);
  begin
  
    FND_FILE.PUT_LINE(FND_FILE.LOG,
                      '****************开始处理***********************');
    SELECT USERENV('SESSIONID') INTO v_session_id FROM DUAL;
    Load_InterfaceTable(errbuf, retcode);
  
    FND_FILE.PUT_LINE(FND_FILE.LOG, 'retcode' || retcode);
    IF retcode = 2 THEN
      NULL;
    ELSE
      if i_auto_next_step = 'Y' then
        v_request_id := fnd_request.submit_request(application => 'SQLAP',
                                                   program     => 'APXSUIMP',
                                                   description => NULL,
                                                   start_time  => NULL,
                                                   sub_request => FALSE,
                                                   --P_WHAT_TO_IMPORT   => 'NEW',
                                                   --P_COMMIT_SIZE   => 1000,
                                                   --P_PRINT_EXCEPTIONS   => 'N',
                                                   --P_DEBUG_SWITCH   => 'N',
                                                   --P_TRACE_SWITCH   => 'N',
                                                   argument1 => 'NEW',
                                                   argument2 => 1000,
                                                   argument3 => 'Y',
                                                   argumen