333: --get its status
334:
335: IF ln_reqid_gle <> 0 THEN
336:
337: IF FND_CONCURRENT.Wait_For_Request(request_id => ln_reqid_gle,
338: interval => ln_waiting_interval,
339: phase => lv_gle_req_phase,
340: status => lv_gle_req_status,
341: dev_phase => lv_dev_phase,
413: --get its status
414:
415: IF ln_reqid_comb <> 0 THEN
416:
417: IF FND_CONCURRENT.Wait_For_Request(request_id => ln_reqid_comb,
418: interval => ln_waiting_interval,
419: phase => lv_comb_req_phase,
420: status => lv_comb_req_status,
421: dev_phase => lv_dev_phase,
493: --Completed with 'Error'
494: ELSIF lv_comb_req_status_code = 'E' THEN
495: lv_error_flag := 'E';
496: END IF; --lv_comb_req_status_code='C'
497: END IF; --FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_comb
498: ELSE
499: lv_error_flag := 'E';
500: END IF; --ln_reqid_comb<>0
501:
509: --Completed with 'Error'
510: ELSIF lv_gle_req_status_code = 'E' THEN
511: lv_error_flag := 'E';
512: END IF; --lv_gle_req_status_code='C'
513: END IF; --FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_comb
514: ELSE
515: lv_error_flag := 'E';
516: END IF; --ln_reqid_gle<>0
517:
517:
518: --If any of above concurrent porgrams is Warning/Failed, set current GL export
519: --program to status 'Warning'/'Error' accordingly.
520: IF lv_error_flag = 'W' THEN
521: lv_error_status := FND_CONCURRENT.Set_Completion_Status(status => 'WARNING',
522: message => '');
523: ELSIF lv_error_flag = 'E' THEN
524: lv_error_status := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',
525: message => '');
520: IF lv_error_flag = 'W' THEN
521: lv_error_status := FND_CONCURRENT.Set_Completion_Status(status => 'WARNING',
522: message => '');
523: ELSIF lv_error_flag = 'E' THEN
524: lv_error_status := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',
525: message => '');
526: END IF; --lv_error_flag='W'
527:
528: --logging for debug