Parent Concurrent Program executes rest of the logic before PAUSED STATE.

Question

Procedure parent_cp (errbuf out nocopy varchar2, retcode out nocopy varchar2) IS
ret number;
i number;
BEGIN
fnd_msg_pub.initialize;
BEGIN ---Block A
req_data := fnd_conc_global.request_data;
if (req_data is not null) then
i := to_number(req_data);
if (i < 5 ) then
errbuf := 'Done!';
retcode := 0 ;
return;
end if;
else
i := 1;
end if;
for i in 1 .. 4 loop
ret := fnd_request.submit_request('CZ', 'Child','Delete Localized Text - Child Number : ' ||TO_CHAR(vChildNo), NULL,TRUE, vChildMdlRange);
fnd_conc_global.set_req_globals(conc_status => 'PAUSED', request_data => to_char(vChildNo)) ;
IF (ret = 0 ) THEN
errbuf := fnd_Message.get;
retcode := 2;
ELSE
errbuf := 'Sub-Request submitted!';
retcode := 0 ;
END IF;
END LOOP;
END;
BEGIN ---block B
dbms_output.put_line(' Block after submitting Child CP ');
END;
END parent_cp;
when i execute the above Parent CP ,it submitted 4 Child CPs and Parent CP went into Pause state. Before Parent CP went into Pause state it executed the Block B.
My Requirement is it should execute the block B after completion of all child CPs.
Please suggest how to achieve the above requirement.
Thanks,
Murali.

Answer 1

Procedure parent_cp (errbuf out nocopy varchar2, retcode out nocopy varchar2) IS
ret number;
i number;
BEGIN
fnd_msg_pub.initialize;
BEGIN ---Block A
req_data := fnd_conc_global.request_data;
if (req_data is not null) then
i := to_number(req_data);
if (i < 5 ) then
errbuf := 'Done!';
retcode := 0 ;
return;
end if;
else
i := 1;
end if;
for j in 1 .. 4 loop
vRequestId(j) := fnd_request.submit_request('CZ', 'Child','Delete Localized Text - Child Number : ' ||TO_CHAR(vChildNo), NULL,TRUE, vChildMdlRange);
fnd_conc_global.set_req_globals(conc_status => 'PAUSED', request_data => to_char(vChildNo)) ;
IF (vRequestId(j) = 0 ) THEN
errbuf := fnd_Message.get;
retcode := 2;
ELSE
errbuf := 'Sub-Request submitted!';
retcode := 0 ;
END IF;
END LOOP;
END;
BEGIN ---block B
For j in vRequestId.FIRST..vRequestId.LAST LOOP
fnd_file.put_line(fnd_file.log,' reuest' || vRequestId(j));
vrequeststatus := fnd_concurrent.get_request_status(vRequestId(j),
     NULL,
NULL,
     phase,
     status,
     dev_phase ,
     dev_status ,
     message );
WHILE (dev_phase != 'COMPLETE') LOOP
fnd_file.put_line(fnd_file.log,' while loop' || vRequestId(j));
vrequeststatus := fnd_concurrent.wait_for_request(vRequestId(j),
60,
     10,
     phase ,
     status ,
     dev_phase ,
     dev_status ,
     message );
END LOOP;
END LOOP;
dbms_output.put_line(' Block after submitting Child CP ');
END;
END parent_cp;
The above procedure was the Parent CP. Here the problem is in fnd_request.submit_request('CZ', 'Child','Delete Localized Text - Child Number : ' ||TO_CHAR(vChildNo), NULL,TRUE, vChildMdlRange); i have given sub_request as True and used fnd_conc_global.set_req_globals(conc_status => 'PAUSED', request_data => to_char(vChildNo)) ; to make parent CP to pause it.
It submits 4 child CPs as expected but the phase as INACTIVE and status NO MANAGER and PARENT CP was always in running state.
If i make sub_request parameter of fnd_request.sub_request to FALSE . It submits 4 child CPs as expected with the phase as PENDING and status NORMAL and PARENT CP was always in running state. But child cps are never changing the Phase as RUNNING. It is always in PENDING STATE.
Please suggest how to use fnd_conc_global.set_req_globals and fnd_concurrent.wait_for_request together.