[Home] [Help]
149:
150: --Cursor to get request_id for CFS FSG xml output
151: CURSOR c_reqid_fsg_cfs IS
152: SELECT request_id
153: FROM fnd_concurrent_requests
154: WHERE parent_request_id = l_reqid_fsg;
155:
156: --Cursor to get functional currency code of current set of book
157: --this cursor is updated by lyb.
246: '', '', '', '', '', '', '', '', '', ''
247: );
248:
249: IF (p_OUTPUT_OPTION = 'Y') THEN
250: UPDATE FND_CONCURRENT_REQUESTS
251: SET
252: OUTPUT_FILE_TYPE = 'XML'
253: WHERE
254: REQUEST_ID = l_reqid_fsg;
265: END IF; --( g_stmt_level >= g_dbg_level)
266:
267: --Waiting for the 'Program - Run Financial Statement Generator' completed,
268: -- and then retrive the sub-request id
269: -- from the table 'fnd_concurrent_requests' for the FSG - CFS report.
270: IF l_reqid_fsg <> 0
271: THEN
272: IF FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_fsg,
273: INTERVAL => 5,
268: -- and then retrive the sub-request id
269: -- from the table 'fnd_concurrent_requests' for the FSG - CFS report.
270: IF l_reqid_fsg <> 0
271: THEN
272: IF FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_fsg,
273: INTERVAL => 5,
274: phase => l_user_phase,
275: status => l_user_status,
276: dev_phase => l_fsg_req_phase,
298: l_err_code := 'W';
299: ELSE
300: l_err_code := 'E';
301: END IF; --l_fsg_req_phase='Completed'
302: END IF; -- FND_CONCURRENT.Wait_For_Request
303:
304: END IF; --l_reqid_fsg<>0
305:
306: --if FSG xml output request for cfs is completed, then submit
310: AND l_err_code = 'N'
311: THEN
312:
313: --Waiting for the concurrent program completed
314: /* IF FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_fsg_cfs,
315: INTERVAL => 5,
316: phase => l_user_phase,
317: status => l_user_status,
318: dev_phase => l_fsg_req_phase_cfs,
359:
360: IF l_reqid_cal <> 0
361: THEN
362:
363: IF FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_cal,
364: INTERVAL => 5,
365: phase => l_user_phase,
366: status => l_user_status,
367: dev_phase => l_cal_req_phase,
406: -- Combination' completed AND THEN submit THE 'XML Report Publisher'
407: IF l_reqid_combination <> 0
408: THEN
409:
410: IF FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_combination,
411: INTERVAL => 5,
412: phase => l_user_phase,
413: status => l_user_status,
414: dev_phase => l_combination_req_phase,
459: l_err_code := 'W';
460: ELSE
461: l_err_code := 'E';
462: END IF; -- l_combination_req_phase='NORMAL'
463: END IF; --FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_combination
464:
465: END IF; --l_reqid_combination<>0
466:
467: ELSIF l_cal_req_status = 'WARNING'
469: l_err_code := 'W';
470: ELSE
471: l_err_code := 'E';
472: END IF; --IF l_cal_req_status = 'NORMAL'
473: END IF; --IF FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_cal,
474:
475: END IF; --l_reqid_cal <> 0
476: /*
477: ELSIF l_fsg_req_status_cfs = 'WARNING'
480: ELSE
481: l_err_code := 'E';
482: END IF; -- l_fsg_req_status_cfs = 'NORMAL'*/
483:
484: -- END IF; --FND_CONCURRENT.Wait_For_Request
485:
486: END IF; --nvl(l_reqid_fsg_cfs,0)<>0
487:
488: IF l_err_code = 'E'
488: IF l_err_code = 'E'
489: THEN
490: --If any of above four concurrent porgrams is failed, set current generation
491: --program to status 'error'
492: l_error_flag := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',
493: message => '');
494: ELSIF l_err_code = 'W'
495: THEN
496: l_error_flag := FND_CONCURRENT.Set_Completion_Status(status => 'WARNING',
492: l_error_flag := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',
493: message => '');
494: ELSIF l_err_code = 'W'
495: THEN
496: l_error_flag := FND_CONCURRENT.Set_Completion_Status(status => 'WARNING',
497: message => '');
498: END IF;
499:
500: --log for debug