[Home] [Help]
315:
316: IF ln_reqid_gle<>0
317: THEN
318:
319: IF FND_CONCURRENT.Wait_For_Request(request_id => ln_reqid_gle
320: ,interval => ln_waiting_interval
321: ,phase => lv_gle_req_phase
322: ,status => lv_gle_req_status
323: ,dev_phase => lv_dev_phase
404:
405: IF ln_reqid_comb<>0
406: THEN
407:
408: IF FND_CONCURRENT.Wait_For_Request(request_id => ln_reqid_comb
409: ,interval => ln_waiting_interval
410: ,phase => lv_comb_req_phase
411: ,status => lv_comb_req_status
412: ,dev_phase => lv_dev_phase
499: ELSIF lv_comb_req_status_code='E'
500: THEN
501: lv_error_flag:='E';
502: END IF; --lv_comb_req_status_code='C'
503: END IF; --FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_comb
504: ELSE
505: lv_error_flag:='E';
506: END IF; --ln_reqid_comb<>0
507:
517: ELSIF lv_gle_req_status_code='E'
518: THEN
519: lv_error_flag:='E';
520: END IF; --lv_gle_req_status_code='C'
521: END IF; --FND_CONCURRENT.Wait_For_Request(request_id => l_reqid_comb
522: ELSE
523: lv_error_flag:='E';
524: END IF; --ln_reqid_gle<>0
525:
526: --If any of above concurrent porgrams is Warning/Failed, set current GL export
527: --program to status 'Warning'/'Error' accordingly.
528: IF lv_error_flag='W'
529: THEN
530: lv_error_status:=FND_CONCURRENT.Set_Completion_Status( status => 'WARNING'
531: , message => ''
532: );
533: ELSIF lv_error_flag='E'
534: THEN
531: , message => ''
532: );
533: ELSIF lv_error_flag='E'
534: THEN
535: lv_error_status:=FND_CONCURRENT.Set_Completion_Status( status => 'ERROR'
536: , message => ''
537: );
538: END IF; --lv_error_flag='W'
539: