818:
819: function get_root_req_id(p_prog_request_id number) return number is
820: cursor c_root_req_id is
821: select a.priority_request_id
822: from fnd_concurrent_requests a
823: where a.request_id =
824: (select b.parent_request_id from fnd_concurrent_requests b where b.request_id=p_prog_request_id );
825: l_root_req_id number;
826: begin
820: cursor c_root_req_id is
821: select a.priority_request_id
822: from fnd_concurrent_requests a
823: where a.request_id =
824: (select b.parent_request_id from fnd_concurrent_requests b where b.request_id=p_prog_request_id );
825: l_root_req_id number;
826: begin
827: open c_root_req_id;
828: fetch c_root_req_id into l_root_req_id;
1122: close c_mv_log_for_unimpl_mvs;
1123:
1124: ---added for bug 4406144
1125: --compile_mvs; --bug fix 5750596
1126: g_program_status := fnd_concurrent.set_completion_status(g_program_status_var ,NULL);
1127:
1128: EXCEPTION
1129: WHEN OTHERS THEN
1130: ROLLBACK;
1132: retcode := sqlcode;
1133: BIS_COLLECTION_UTILITIES.put_line(' ');
1134: BIS_COLLECTION_UTILITIES.put_line('Error occurred:');
1135: BIS_COLLECTION_UTILITIES.put_line(errbuf);
1136: g_program_status := fnd_concurrent.set_completion_status('ERROR' ,NULL);
1137:
1138: BIS_COLLECTION_UTILITIES.WRAPUP(
1139: FALSE,
1140: 0,
1265: logmsg(' ');
1266: end loop;
1267: close c_mv_log_for_unimpl_mvs;
1268:
1269: g_program_status := fnd_concurrent.set_completion_status(g_program_status_var ,NULL);
1270:
1271: EXCEPTION
1272: WHEN OTHERS THEN
1273: ROLLBACK;
1275: retcode := sqlcode;
1276: BIS_COLLECTION_UTILITIES.put_line(' ');
1277: BIS_COLLECTION_UTILITIES.put_line('Error occurred:');
1278: BIS_COLLECTION_UTILITIES.put_line(errbuf);
1279: g_program_status := fnd_concurrent.set_completion_status('ERROR' ,NULL);
1280:
1281: BIS_COLLECTION_UTILITIES.WRAPUP(
1282: FALSE,
1283: 0,
1418:
1419: --- END IF; -- end NOT IS_IMPLEMENTED comment out check for impl flag for bug 4532066
1420: END IF; -- end NOT VALIDATE
1421:
1422: g_program_status := fnd_concurrent.set_completion_status(g_program_status_var ,NULL);
1423:
1424:
1425: BIS_COLLECTION_UTILITIES.WRAPUP(
1426: TRUE, -- status
1521: ELSE
1522: BIS_COLLECTION_UTILITIES.put_line('Error in Compiling Invalid MVs - MV is being refreshed' );
1523: END IF;
1524: BIS_COLLECTION_UTILITIES.put_line('Please run Compiling Invalid MVs when there are no Refresh request-set/programs running');
1525: l_program_status := fnd_concurrent.set_completion_status('Error' ,NULL);
1526: errbuf := 'DBI Refresh Program Running';
1527: WHEN OTHERS THEN
1528: BIS_COLLECTION_UTILITIES.put_line('Error in Compiling Invalid MVs '|| sqlerrm);
1529: l_program_status := fnd_concurrent.set_completion_status('Error' ,NULL);
1525: l_program_status := fnd_concurrent.set_completion_status('Error' ,NULL);
1526: errbuf := 'DBI Refresh Program Running';
1527: WHEN OTHERS THEN
1528: BIS_COLLECTION_UTILITIES.put_line('Error in Compiling Invalid MVs '|| sqlerrm);
1529: l_program_status := fnd_concurrent.set_completion_status('Error' ,NULL);
1530: errbuf := sqlerrm;
1531: retcode := sqlcode;
1532: END;
1533: