DBA Data[Home] [Help]

APPS.GMIVTDX dependencies on IC_LOCT_INV

Line 291: l_ic_loct_inv_row ic_loct_inv%ROWTYPE;

287: )IS
288: l_api_name CONSTANT VARCHAR2(30) := 'create_txn_update_bal_in_opm' ;
289: l_api_version CONSTANT NUMBER := 1.0 ;
290: l_tran_row ic_tran_cmp%ROWTYPE;
291: l_ic_loct_inv_row ic_loct_inv%ROWTYPE;
292: TYPE tran_rec_tbl IS TABLE OF GMI_TRANS_ENGINE_PUB.ictran_rec INDEX BY BINARY_INTEGER;
293: l_tran_rec_tbl tran_rec_tbl;
294: BEGIN
295:

Line 368: l_ic_loct_inv_row.whse_code := l_tran_rec_tbl(i).whse_code;

364: ******************************************************************************************* */
365: --{
366: IF (l_tran_rec_tbl(i).line_type = -1) THEN
367: --transfer is from process to discrete
368: l_ic_loct_inv_row.whse_code := l_tran_rec_tbl(i).whse_code;
369: l_ic_loct_inv_row.location := l_tran_rec_tbl(i).location;
370: l_ic_loct_inv_row.item_id := l_tran_rec_tbl(i).item_id;
371: l_ic_loct_inv_row.lot_id := l_tran_rec_tbl(i).lot_id;
372:

Line 369: l_ic_loct_inv_row.location := l_tran_rec_tbl(i).location;

365: --{
366: IF (l_tran_rec_tbl(i).line_type = -1) THEN
367: --transfer is from process to discrete
368: l_ic_loct_inv_row.whse_code := l_tran_rec_tbl(i).whse_code;
369: l_ic_loct_inv_row.location := l_tran_rec_tbl(i).location;
370: l_ic_loct_inv_row.item_id := l_tran_rec_tbl(i).item_id;
371: l_ic_loct_inv_row.lot_id := l_tran_rec_tbl(i).lot_id;
372:
373: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

Line 370: l_ic_loct_inv_row.item_id := l_tran_rec_tbl(i).item_id;

366: IF (l_tran_rec_tbl(i).line_type = -1) THEN
367: --transfer is from process to discrete
368: l_ic_loct_inv_row.whse_code := l_tran_rec_tbl(i).whse_code;
369: l_ic_loct_inv_row.location := l_tran_rec_tbl(i).location;
370: l_ic_loct_inv_row.item_id := l_tran_rec_tbl(i).item_id;
371: l_ic_loct_inv_row.lot_id := l_tran_rec_tbl(i).lot_id;
372:
373: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
374: log_msg('validation for quantity being transferrred from OPM such that OPM inventory is not driven negative before posting the transaction.');

Line 371: l_ic_loct_inv_row.lot_id := l_tran_rec_tbl(i).lot_id;

367: --transfer is from process to discrete
368: l_ic_loct_inv_row.whse_code := l_tran_rec_tbl(i).whse_code;
369: l_ic_loct_inv_row.location := l_tran_rec_tbl(i).location;
370: l_ic_loct_inv_row.item_id := l_tran_rec_tbl(i).item_id;
371: l_ic_loct_inv_row.lot_id := l_tran_rec_tbl(i).lot_id;
372:
373: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
374: log_msg('validation for quantity being transferrred from OPM such that OPM inventory is not driven negative before posting the transaction.');
375: END IF;

Line 377: IF GMIVDBL.ic_loct_inv_select(l_ic_loct_inv_row, l_ic_loct_inv_row) THEN

373: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
374: log_msg('validation for quantity being transferrred from OPM such that OPM inventory is not driven negative before posting the transaction.');
375: END IF;
376: --{
377: IF GMIVDBL.ic_loct_inv_select(l_ic_loct_inv_row, l_ic_loct_inv_row) THEN
378:
379: IF ( (p_txn_vars_rec.opm_lot_indivisible = 1)
380: AND (l_ic_loct_inv_row.loct_onhand <> abs(l_tran_rec_tbl(i).trans_qty))
381: ) THEN

Line 380: AND (l_ic_loct_inv_row.loct_onhand <> abs(l_tran_rec_tbl(i).trans_qty))

376: --{
377: IF GMIVDBL.ic_loct_inv_select(l_ic_loct_inv_row, l_ic_loct_inv_row) THEN
378:
379: IF ( (p_txn_vars_rec.opm_lot_indivisible = 1)
380: AND (l_ic_loct_inv_row.loct_onhand <> abs(l_tran_rec_tbl(i).trans_qty))
381: ) THEN
382: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
383: FND_MESSAGE.SET_TOKEN('LINE_NO',to_char(l_tran_rec_tbl(i).doc_line));
384: FND_MSG_PUB.Add;