170: 'Entering ' || l_api_name );
171: END IF;
172:
173: IF FND_API.to_boolean(p_init_msg_list) THEN
174: FND_MSG_PUB.Initialize;
175: END IF;
176:
177: -- Standard call to check for call compatibility.
178: IF NOT FND_API.Compatible_API_Call ( l_api_version,
230: FND_MESSAGE.SET_NAME('GMI','GMI_SQL_ERROR');
231: FND_MESSAGE.SET_TOKEN('WHERE','GML_RCV_DB_COMMON.VALIDATE_RMA_LOT_QUANTITIES'||'-'||l_progress);
232: FND_MESSAGE.SET_TOKEN('SQL_CODE',SQLCODE);
233: FND_MESSAGE.SET_TOKEN('SQL_ERRM',SQLERRM(SQLCODE));
234: FND_MSG_PUB.ADD;
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: END;
237:
238:
253: FND_MESSAGE.SET_NAME('GMI','GMI_SQL_ERROR');
254: FND_MESSAGE.SET_TOKEN('WHERE','GML_RCV_DB_COMMON.VALIDATE_RMA_LOT_QUANTITIES'||'-'||l_progress);
255: FND_MESSAGE.SET_TOKEN('SQL_CODE',SQLCODE);
256: FND_MESSAGE.SET_TOKEN('SQL_ERRM',SQLERRM(SQLCODE));
257: FND_MSG_PUB.ADD;
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: END;
260: END IF;
261:
279: FND_MESSAGE.SET_NAME('GMI','GMI_SQL_ERROR');
280: FND_MESSAGE.SET_TOKEN('WHERE','GML_RCV_DB_COMMON.VALIDATE_RMA_LOT_QUANTITIES'||'-'||l_progress);
281: FND_MESSAGE.SET_TOKEN('SQL_CODE',SQLCODE);
282: FND_MESSAGE.SET_TOKEN('SQL_ERRM',SQLERRM(SQLCODE));
283: FND_MSG_PUB.ADD;
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: END;
286: ELSE
287: l_rma_lot_qty := p_rma_lot_qty;
294: l_trx_opm_uom := PO_GML_DB_COMMON.GET_OPM_UOM_CODE(p_trx_uom);
295:
296: EXCEPTION
297: WHEN OTHERS THEN
298: FND_MSG_PUB.ADD;
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: END;
301:
302: l_progress := '006';
326: FND_MESSAGE.SET_NAME('GMI','GMI_SQL_ERROR');
327: FND_MESSAGE.SET_TOKEN('WHERE','GML_RCV_DB_COMMON.VALIDATE_RMA_LOT_QUANTITIES'||'-'||l_progress);
328: FND_MESSAGE.SET_TOKEN('SQL_CODE',SQLCODE);
329: FND_MESSAGE.SET_TOKEN('SQL_ERRM',SQLERRM(SQLCODE));
330: FND_MSG_PUB.ADD;
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END;
333:
334: l_lot_recv_qty := 0;
368: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
369: ELSIF (l_trx_opm_qty < -11) THEN
370: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
371: END IF;
372: FND_MSG_PUB.ADD;
373: RAISE FND_API.G_EXC_ERROR;
374: END IF;
375:
376: ELSE
413: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
414: ELSIF (l_rma_lot_opm_qty < -11) THEN
415: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
416: END IF;
417: FND_MSG_PUB.ADD;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420: ELSE
421: l_rma_lot_opm_qty := l_rma_lot_qty;
462: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
463: ELSIF (X_allowed_quantity < -11) THEN
464: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
465: END IF;
466: FND_MSG_PUB.ADD;
467: RAISE FND_API.G_EXC_ERROR;
468: END IF;
469: ELSE
470: X_allowed_quantity := (l_rma_lot_opm_qty - nvl(l_lot_recv_qty,0));
513: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
514: ELSIF (l_rma_lot_opm_qty < -11) THEN
515: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
516: END IF;
517: FND_MSG_PUB.ADD;
518: RAISE FND_API.G_EXC_ERROR;
519: END IF;
520:
521: l_progress := '014';
552: FND_MESSAGE.SET_NAME('GMI','GMI_SQL_ERROR');
553: FND_MESSAGE.SET_TOKEN('WHERE','GML_RCV_DB_COMMON.VALIDATE_RMA_LOT_QUANTITIES'||'-'||l_progress);
554: FND_MESSAGE.SET_TOKEN('SQL_CODE',SQLCODE);
555: FND_MESSAGE.SET_TOKEN('SQL_ERRM',SQLERRM(SQLCODE));
556: FND_MSG_PUB.ADD;
557: /* Bug 4502018 */
558: -- IF (g_fnd_debug = 'Y') THEN
559: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
560: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED,
688: l_trx_opm_uom_code := PO_GML_DB_COMMON.GET_OPM_UOM_CODE(p_trx_uom);
689:
690: EXCEPTION
691: WHEN OTHERS THEN
692: FND_MSG_PUB.ADD;
693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694: END;
695:
696: ---Get total shipped quantity for that IO.