How to call a concurrent program with some parameters in a stored procedure

Question

Hi All,
I have made two procedures, xx_nidhi_proc1 and xx_nidhi_proc2.
xx_nidhi_proc1 takes four parameters from front end and is registered as concurrent program in oracle apps and running fine alone.
xx_nidhi_proc2 calls the concurrent program of xx_nidhi_proc1 which is XX_NIDS_PROC1_PROG1.
But the problem in my code is , It runs the second concurrent program for xx_nidhi_proc2 but shows the Inactive- No Manager status for my first concurrent program XX_NIDS_PROC1_PROG1,
Please find out the error in my code...
CREATE OR REPLACE PACKAGE BODY NIDHI IS
procedure xx_nidhi_proc1 (errbuf OUT VARCHAR2,
retcode OUT VARCHAR2,
name_t varchar2,
empno varchar2,
doj date,
desig varchar2) is
begin
fnd_file.PUT_LINE(Fnd_File.output,'/**************Start of the output **********/');
fnd_file.PUT_LINE(Fnd_File.output, 'Name:'||name_t);
fnd_file.PUT_LINE(Fnd_File.output, 'Number:'||empno);
fnd_file.PUT_LINE(Fnd_File.output, 'DOJ:'|| to_char(doj, 'DD-MON-RRRR'));
fnd_file.PUT_LINE(Fnd_File.output, 'Designation:'||desig);
fnd_file.PUT_LINE(Fnd_File.output,'/**************End of the output **********/');
errbuf:='SUCCESS';
retcode:='SUCCESS';
end xx_nidhi_proc1;
--calls the xx_nidhi_proc1 as concurrent program.
procedure xx_nidhi_proc21 (errbuf OUT VARCHAR2,
retcode OUT VARCHAR2)
is
v_request_id number;
begin
fnd_file.PUT_LINE(Fnd_File.output,'/**************Start of the output **********/');
fnd_file.PUT_LINE(Fnd_File.output, 'Deptartment Number:'||'Computer');
fnd_file.PUT_LINE(Fnd_File.output, 'Location:'||'TCS Towers');
fnd_file.PUT_LINE(fnd_file.output,'Starting XX_NIDS_PROC1_PROG1');
fnd_global.apps_initialize(user_id => 1318 ,resp_id => 50578, resp_appl_id => 201);
v_request_id := FND_REQUEST.SUBMIT_REQUEST('PO',
'XX_NIDS_PROC1_PROG1',
null,
null,
TRUE,
'Nidhi gupta',
138609,
'12-Dec-2003',
'ASE');
commit;
fnd_file.PUT_LINE(fnd_file.OUTPUT,'Request ID is '||to_char(v_request_id));
fnd_file.PUT_LINE(fnd_file.OUTPUT,'End XX_NIDS_PROC1_PROG1');
fnd_file.PUT_LINE(Fnd_File.output,'/**************End of the output **********/');
errbuf:='SUCCESS';
retcode:='SUCCESS';
end xx_nidhi_proc21;
Thanks
Nidhi
END NIDHI;

Answer 1

Nidhi this might help u
v_num_request_load_id :=
fnd_request.submit_request (c_chr_application_short_name,
c_chr_apl_short_name,
NULL,
NULL,
FALSE,
p_chr_allocation_view,
p_chr_flow_type,     
p_chr_operating_unit,
p_dte_planned_from,          
p_dte_planned_to,
p_num_application_id,
p_num_loc_seg1_id,
p_num_loc_seg2_id,
p_num_organization_id,
p_num_responsibility_id,
p_num_session_id,
p_num_user_id,
p_chr_arrival_status,
p_chr_statuses,
p_chr_locations,
p_chr_transport_unit
COMMIT;
IF v_num_request_load_id = 0
THEN
          o_num_stat := 2;
     o_chr_err_msg := 'Report could not be submitted';
END IF;
          o_chr_err_msg := 'Request Id :' || v_num_request_load_id;
          v_boo_wait :=
     fnd_concurrent.wait_for_request (v_num_request_load_id,
c_num_interval,
c_num_max_wait,
v_chr_phase,
v_chr_status,
v_chr_dev_phase,
v_chr_dev_status,
v_chr_err_buf
IF v_chr_dev_phase = 'COMPLETE' /* 1.1 */
THEN
IF v_chr_dev_status = 'NORMAL' /* 1.2 */
THEN
BEGIN
-- some your own logic
EXCEPTION
WHEN OTHERS THEN
     o_chr_err_msg := o_chr_err_msg||' Unable to determine Report File Path.';
               o_num_stat := 2;
END;
ELSIF v_chr_dev_status = 'WARNING'                                             /* 1.2 */
THEN
o_chr_err_msg := o_chr_err_msg||' Report program completed with Warning.';
ELSE                                                                                               /* 1.2 */
o_chr_err_msg := o_chr_err_msg||' Report program completed with Error.';
END IF; /* 1.2 */
ELSE /* 1.1 */
o_chr_err_msg := 'Report program Timed Out.';
END IF; /* 1.1 */