64: IF(l_debug = 1) THEN
65: debug('The parameter P_ORG_ID cannot be NULL');
66: END IF;
67: RETCODE := 2;
68: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_ERR');
69: -- Consolidation of Onhand Quantities failed.
70: ERRBUF := FND_MESSAGE.get;
71: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
72: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
66: END IF;
67: RETCODE := 2;
68: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_ERR');
69: -- Consolidation of Onhand Quantities failed.
70: ERRBUF := FND_MESSAGE.get;
71: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
72: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
73: ROLLBACK;
74: RETURN;
98: IF(l_debug = 1) THEN
99: debug('The Profile INV: FIFO for Original Receipt Date is set to Yes at Appl/Resp/User Level');
100: END IF;
101: RETCODE := 2;
102: FND_MESSAGE.set_name('INV','INV_MOQD_FIFO_SET');
103: -- The Profile INV: FIFO for Original Receipt Date is set to Yes and this program should not be run when the option is set to Yes.
104: ERRBUF := FND_MESSAGE.get;
105: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
106: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
100: END IF;
101: RETCODE := 2;
102: FND_MESSAGE.set_name('INV','INV_MOQD_FIFO_SET');
103: -- The Profile INV: FIFO for Original Receipt Date is set to Yes and this program should not be run when the option is set to Yes.
104: ERRBUF := FND_MESSAGE.get;
105: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
106: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
107: ROLLBACK;
108: RETURN;
115: IF(l_debug = 1) THEN
116: debug('The Profile INV: FIFO for Original Receipt Date is set to Yes and this program should not be run when this option is set to Yes');
117: END IF;
118: RETCODE := 2;
119: FND_MESSAGE.set_name('INV','INV_MOQD_FIFO_SET');
120: -- The Profile INV: FIFO for Original Receipt Date is set to Yes and this program should not be run when the option is set to Yes.
121: ERRBUF := FND_MESSAGE.get;
122: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
123: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
117: END IF;
118: RETCODE := 2;
119: FND_MESSAGE.set_name('INV','INV_MOQD_FIFO_SET');
120: -- The Profile INV: FIFO for Original Receipt Date is set to Yes and this program should not be run when the option is set to Yes.
121: ERRBUF := FND_MESSAGE.get;
122: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
123: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
124: ROLLBACK;
125: RETURN;
137: IF(l_debug = 1) THEN
138: debug('This Organization is either WMS enabled or Process enabled');
139: END IF;
140: RETCODE := 2;
141: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_ERR');
142: -- Consolidation of Onhand Quantities failed.
143: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
144: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
145: RETURN;
161: CLOSE lock_moqd;
162: END IF;
163:
164: RETCODE := 2;
165: FND_MESSAGE.set_name('INV','INV_MOQD_CANNOT_LOCK');
166: -- The Onhand Quantities table cannot be locked for consolidation.
167: ERRBUF := FND_MESSAGE.get;
168: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
169: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
163:
164: RETCODE := 2;
165: FND_MESSAGE.set_name('INV','INV_MOQD_CANNOT_LOCK');
166: -- The Onhand Quantities table cannot be locked for consolidation.
167: ERRBUF := FND_MESSAGE.get;
168: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
169: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
170: ROLLBACK;
171: RETURN;
308: IF(l_debug = 1) THEN
309: debug('MOQD and Backup Count are not same');
310: END IF;
311: RETCODE := 2;
312: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_ERR');
313: -- Consolidation of Onhand Quantities failed.
314: ERRBUF := FND_MESSAGE.get;
315: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
316: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
310: END IF;
311: RETCODE := 2;
312: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_ERR');
313: -- Consolidation of Onhand Quantities failed.
314: ERRBUF := FND_MESSAGE.get;
315: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
316: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
317: ROLLBACK;
318: RETURN;
477: IF(l_debug = 1) THEN
478: debug('Sum of MOQ Qty and Backup Qty Count are not same');
479: END IF;
480: RETCODE := 2;
481: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_ERR');
482: -- Consolidation of Onhand Quantities failed.
483: ERRBUF := FND_MESSAGE.get;
484: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
485: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
479: END IF;
480: RETCODE := 2;
481: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_ERR');
482: -- Consolidation of Onhand Quantities failed.
483: ERRBUF := FND_MESSAGE.get;
484: FND_FILE.PUT_LINE(FND_FILE.LOG, ERRBUF);
485: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
486: ROLLBACK;
487: RETURN;
597: debug('Completed Successfully');
598: END IF;
599:
600: RETCODE := 1;
601: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_SUCC');
602: -- Consolidation of Onhand Quantities completed successfully.
603: ERRBUF := FND_MESSAGE.get;
604: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',ERRBUF);
605:
599:
600: RETCODE := 1;
601: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_SUCC');
602: -- Consolidation of Onhand Quantities completed successfully.
603: ERRBUF := FND_MESSAGE.get;
604: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',ERRBUF);
605:
606: COMMIT;
607: RETURN;
612: debug('Error during script, Statement = '||l_stmt_count);
613: debug('Rolling back... Error Message = ' ||SQLERRM);
614: END IF;
615: RETCODE := 2;
616: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_ERR');
617: -- Consolidation of Onhand Quantities failed.
618: ERRBUF := FND_MESSAGE.get;
619: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
620: ROLLBACK;
614: END IF;
615: RETCODE := 2;
616: FND_MESSAGE.set_name('INV','INV_MOQD_REQ_ERR');
617: -- Consolidation of Onhand Quantities failed.
618: ERRBUF := FND_MESSAGE.get;
619: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
620: ROLLBACK;
621: RETURN;
622: END;