CREATE OR REPLACE PROCEDURE APPS.XXASHRPEITEXCEL (errbuf VARCHAR2
,retcode NUMBER
,p_location varchar2
,p_eff_date varchar2
)
IS
xml_layout BOOLEAN;
req_id NUMBER;
l_request_status BOOLEAN;
x_phase VARCHAR2(240);
x_status VARCHAR2(240);
x_dev_phase VARCHAR2(240);
x_dev_status VARCHAR2(240);
x_message VARCHAR2(240);
BEGIN
--
xml_layout := FND_REQUEST.ADD_LAYOUT('XXAS'
,'XXASHRPEIT'
,'en'
,'US'
,'EXCEL'
); ---CALLING XML TEMPLATE
--
req_id := FND_REQUEST.SUBMIT_REQUEST('XXAS'
,'XXASHRPEIT'
,''
,''
,FALSE
,p_location --concurrent program parameters
,p_eff_date --concurrent program parameters
); ---CALLING Concurrent program
--
COMMIT;
--
IF req_id <> 0
THEN
l_request_status := FND_CONCURRENT.WAIT_FOR_REQUEST(req_id
,30
,0
,x_phase
,x_status
,x_dev_phase
,x_dev_status
,x_message
);
END IF;
--
COMMIT;
END XXASHRPEITEXCEL;
/
