DBA Data[Home] [Help]

APPS.GML_RCV_DB_COMMON dependencies on FND_API

Line 107: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

103: #
104: ## #######################################################################*/
105:
106: Procedure VALIDATE_RMA_LOT_QUANTITIES( p_api_version IN NUMBER,
107: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
108: p_opm_item_id IN NUMBER,
109: p_lot_id IN NUMBER,
110: p_lot_no IN VARCHAR2,
111: p_sublot_no IN VARCHAR2,

Line 173: IF FND_API.to_boolean(p_init_msg_list) THEN

169: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name,
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.

Line 178: IF NOT FND_API.Compatible_API_Call ( l_api_version,

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,
179: p_api_version,
180: l_api_name ,
181: G_PKG_NAME
182: ) THEN

Line 183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

179: p_api_version,
180: l_api_name ,
181: G_PKG_NAME
182: ) THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: END IF;
185:
186: x_return_status :=FND_API.G_RET_STS_SUCCESS;
187:

Line 186: x_return_status :=FND_API.G_RET_STS_SUCCESS;

182: ) THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: END IF;
185:
186: x_return_status :=FND_API.G_RET_STS_SUCCESS;
187:
188: --If any of these parameters are NULL nothing can be done so just
189: --returns as if successful.
190: IF p_opm_item_id IS NULL OR

Line 235: RAISE FND_API.G_EXC_UNEXPECTED_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:
239: ELSE

Line 258: RAISE FND_API.G_EXC_UNEXPECTED_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:
262: --Fetch QTY of the LOT in the RMA if not passed.

Line 284: RAISE FND_API.G_EXC_UNEXPECTED_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;
288:

Line 299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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';
303:

Line 331: RAISE FND_API.G_EXC_UNEXPECTED_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;
335: END IF;

Line 373: RAISE FND_API.G_EXC_ERROR;

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
377: l_trx_opm_qty := p_trx_qty;

Line 418: RAISE FND_API.G_EXC_ERROR;

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;
422:

Line 467: RAISE FND_API.G_EXC_ERROR;

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));
471:

Line 518: RAISE FND_API.G_EXC_ERROR;

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';
522: ELSE

Line 544: WHEN FND_API.G_EXC_ERROR THEN

540: END IF;
541: END IF;
542:
543: EXCEPTION
544: WHEN FND_API.G_EXC_ERROR THEN
545: x_return_status := FND_API.G_RET_STS_ERROR;
546:
547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 545: x_return_status := FND_API.G_RET_STS_ERROR;

541: END IF;
542:
543: EXCEPTION
544: WHEN FND_API.G_EXC_ERROR THEN
545: x_return_status := FND_API.G_RET_STS_ERROR;
546:
547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549:

Line 547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

543: EXCEPTION
544: WHEN FND_API.G_EXC_ERROR THEN
545: x_return_status := FND_API.G_RET_STS_ERROR;
546:
547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549:
550: WHEN OTHERS THEN
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

544: WHEN FND_API.G_EXC_ERROR THEN
545: x_return_status := FND_API.G_RET_STS_ERROR;
546:
547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549:
550: WHEN OTHERS THEN
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: FND_MESSAGE.SET_NAME('GMI','GMI_SQL_ERROR');

Line 551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549:
550: WHEN OTHERS THEN
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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));

Line 590: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,

586: #
587: ## #######################################################################*/
588:
589: Procedure VALIDATE_IO_LOT_QUANTITIES (p_api_version IN NUMBER ,
590: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
591: p_opm_item_id IN NUMBER ,
592: p_lot_id IN NUMBER ,
593: p_trx_qty IN NUMBER ,
594: p_trx_uom IN VARCHAR2 ,

Line 663: IF NOT FND_API.Compatible_API_Call ( l_api_version,

659: --initialize x_allowed =
660: X_allowed := 'Y';
661:
662: -- Standard call to check for call compatibility.
663: IF NOT FND_API.Compatible_API_Call ( l_api_version,
664: p_api_version,
665: l_api_name ,
666: G_PKG_NAME
667: ) THEN

Line 668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

664: p_api_version,
665: l_api_name ,
666: G_PKG_NAME
667: ) THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:
671: ----If any of these parameters are NULL , nothing can be done so just
672: ----returns as if successful.

Line 693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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.
697: Open Cr_Io_lot_shipped_qty;