61: IF print_option_set THEN
62: FND_FILE.put_line(FND_FILE.LOG ,'Print Options Set ...');
63: ELSE
64: FND_FILE.put_line(FND_FILE.LOG ,'ERROR in setting Print Options ...');
65: errbuf := substr(fnd_message.get, 1, 240);
66: FND_FILE.put_line(FND_FILE.LOG ,'ERR MSG: '||errbuf);
67: END IF;
68:
69: req_id := FND_REQUEST.SUBMIT_REQUEST(
83: FND_FILE.put_line(FND_FILE.LOG, 'Request ID: '||req_id);
84:
85: IF req_id = 0 THEN
86: FND_FILE.put_line(FND_FILE.LOG ,'Error on SUBMIT_REQUEST for process #'||i);
87: p_errbuf := substr(fnd_message.get, 1, 240);
88: FND_FILE.put_line(FND_FILE.LOG, 'ERR MSG: '||errbuf);
89: --EXIT;
90: END IF;
91:
95: WHEN e_OrderPrefixException THEN
96: errbuf := 'Order Prefix given already exists';
97: retcode := -1;
98: WHEN OTHERS THEN
99: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
100: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.SENDORDER');
101: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
102: errbuf := FND_MESSAGE.GET;
103: retcode := -1;
96: errbuf := 'Order Prefix given already exists';
97: retcode := -1;
98: WHEN OTHERS THEN
99: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
100: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.SENDORDER');
101: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
102: errbuf := FND_MESSAGE.GET;
103: retcode := -1;
104:
97: retcode := -1;
98: WHEN OTHERS THEN
99: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
100: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.SENDORDER');
101: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
102: errbuf := FND_MESSAGE.GET;
103: retcode := -1;
104:
105: END SendOrder;
98: WHEN OTHERS THEN
99: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
100: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.SENDORDER');
101: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
102: errbuf := FND_MESSAGE.GET;
103: retcode := -1;
104:
105: END SendOrder;
106:
366: EXCEPTION
367: WHEN e_SubmitOrderException THEN
368: retcode := -1;
369: WHEN OTHERS THEN
370: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
371: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.SUBMITORDER');
372: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
373: errbuf := FND_MESSAGE.GET;
374: retcode := -1;
367: WHEN e_SubmitOrderException THEN
368: retcode := -1;
369: WHEN OTHERS THEN
370: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
371: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.SUBMITORDER');
372: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
373: errbuf := FND_MESSAGE.GET;
374: retcode := -1;
375:
368: retcode := -1;
369: WHEN OTHERS THEN
370: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
371: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.SUBMITORDER');
372: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
373: errbuf := FND_MESSAGE.GET;
374: retcode := -1;
375:
376: END SubmitOrder ;
369: WHEN OTHERS THEN
370: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
371: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.SUBMITORDER');
372: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
373: errbuf := FND_MESSAGE.GET;
374: retcode := -1;
375:
376: END SubmitOrder ;
377:
416: FND_FILE.put_line(FND_FILE.OUTPUT,'==============================================================');
417:
418: EXCEPTION
419: WHEN OTHERS THEN
420: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
421: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.PRINTSUBMITORDERSTAT');
422: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
423: errbuf := FND_MESSAGE.GET;
424: retcode := -1;
417:
418: EXCEPTION
419: WHEN OTHERS THEN
420: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
421: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.PRINTSUBMITORDERSTAT');
422: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
423: errbuf := FND_MESSAGE.GET;
424: retcode := -1;
425:
418: EXCEPTION
419: WHEN OTHERS THEN
420: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
421: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.PRINTSUBMITORDERSTAT');
422: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
423: errbuf := FND_MESSAGE.GET;
424: retcode := -1;
425:
426: END PrintSubmitOrderStat;
419: WHEN OTHERS THEN
420: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
421: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.PRINTSUBMITORDERSTAT');
422: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
423: errbuf := FND_MESSAGE.GET;
424: retcode := -1;
425:
426: END PrintSubmitOrderStat;
427:
508: WHEN e_OrderPrefixException THEN
509: errbuf := 'Order Prefix Not Found';
510: retcode := -1;
511: WHEN OTHERS THEN
512: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
513: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.GETREPORT');
514: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
515: errbuf := FND_MESSAGE.GET;
516: retcode := -1;
509: errbuf := 'Order Prefix Not Found';
510: retcode := -1;
511: WHEN OTHERS THEN
512: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
513: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.GETREPORT');
514: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
515: errbuf := FND_MESSAGE.GET;
516: retcode := -1;
517: END GetReport;
510: retcode := -1;
511: WHEN OTHERS THEN
512: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
513: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.GETREPORT');
514: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
515: errbuf := FND_MESSAGE.GET;
516: retcode := -1;
517: END GetReport;
518:
511: WHEN OTHERS THEN
512: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
513: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.GETREPORT');
514: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
515: errbuf := FND_MESSAGE.GET;
516: retcode := -1;
517: END GetReport;
518:
519: /***********************************************************************************
631: EXCEPTION
632: WHEN e_OrderPrefixException THEN
633: retcode := -1;
634: WHEN OTHERS THEN
635: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
636: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.GETFLOWTHROUGHSTAT');
637: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
638: errbuf := FND_MESSAGE.GET;
639: retcode := -1;
632: WHEN e_OrderPrefixException THEN
633: retcode := -1;
634: WHEN OTHERS THEN
635: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
636: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.GETFLOWTHROUGHSTAT');
637: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
638: errbuf := FND_MESSAGE.GET;
639: retcode := -1;
640:
633: retcode := -1;
634: WHEN OTHERS THEN
635: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
636: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.GETFLOWTHROUGHSTAT');
637: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
638: errbuf := FND_MESSAGE.GET;
639: retcode := -1;
640:
641: END GetFlowthroughStat;
634: WHEN OTHERS THEN
635: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
636: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDP_PERF_BM_PKG.GETFLOWTHROUGHSTAT');
637: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
638: errbuf := FND_MESSAGE.GET;
639: retcode := -1;
640:
641: END GetFlowthroughStat;
642: