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
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