[Home] [Help]
241: /* BUG 1577035 END
242: ================== */
243: ELSE
244:
245: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
246: (l_old_transaction_rec, l_old_transaction_rec )
247: THEN
248: /* We have the transaction we need. */
249: /* Before Completing any transactions lets Lock The Rows. */
297: /* Set Trans Id To fetch */
298:
299: l_old_transaction_rec.trans_id := l_trans_id;
300:
301: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
302: (l_old_transaction_rec, l_old_transaction_rec )
303: THEN
304: GMI_RESERVATION_UTIL.println('Found Transaction ID => '|| l_old_transaction_rec.trans_id);
305:
469: CLOSE default_transaction_c;
470: /* We need to increase the amounts in the existing transaction */
471: l_old_transaction_rec.trans_id := l_trans_id;
472:
473: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
474: (l_old_transaction_rec, l_old_transaction_rec )
475: THEN
476: l_old_transaction_rec.trans_qty := -1 * (ABS(l_old_transaction_rec.trans_qty) + p_shipping_line.cycle_count_quantity);
477:
562: SAVEPOINT process_backorders;
563: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
564:
565: l_transaction_rec.trans_id := p_trans_id;
566: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
567: (l_transaction_rec, l_transaction_rec )
568: THEN
569: GMI_reservation_Util.PrintLn('Find OPM Item ID');
570:
638: END IF;
639:
640: l_transaction_rec.trans_id := l_trans_id;
641:
642: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
643: (l_transaction_rec, l_transaction_rec )
644: THEN
645: /* balance the default lot */
646: GMI_RESERVATION_UTIL.balance_default_lot
978: END IF;
979:
980:
981: GMI_RESERVATION_UTIL.println('Retrieve OPM Transaction => ' ||l_old_transaction_rec.trans_id );
982: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
983: (l_old_transaction_rec, l_old_transaction_rec )
984: THEN
985:
986: l_src_qty := GMI_RESERVATION_UTIL.Get_Opm_converted_qty
1200: p_line_id => l_new_transaction_rec.line_id
1201: );
1202: IF nvl(l_trans_id,0) > 0 THEN -- bug 2124600
1203: l_new_transaction_rec.trans_id := l_trans_id;
1204: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
1205: (l_new_transaction_rec, l_new_transaction_rec )
1206: THEN
1207: l_new_transaction_rec.trans_qty := 0;
1208: l_new_transaction_rec.trans_qty2 := 0;
1417: CLOSE default_transaction_c;
1418:
1419: /* We need to increase the amounts in the existing transaction */
1420: l_old_transaction_rec.trans_id := l_trans_id;
1421: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
1422: (l_old_transaction_rec, l_old_transaction_rec )
1423: THEN
1424: l_old_transaction_rec.trans_qty := l_old_transaction_rec.trans_qty +
1425: l_delta_trans_qty1;
1494: OPEN default_transaction_c;
1495: FETCH default_transaction_c INTO l_trans_id;
1496: CLOSE default_transaction_c;
1497: l_new_transaction_rec.trans_id := l_trans_id;
1498: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
1499: (l_new_transaction_rec, l_new_transaction_rec )
1500: THEN
1501: GMI_RESERVATION_UTIL.println('balancing default lot.');
1502: GMI_RESERVATION_UTIL.balance_default_lot
1649: CLOSE get_opm_transaction_c;
1650: END IF;
1651:
1652: GMI_RESERVATION_UTIL.println('Retrieve OPM Transaction => ' ||l_old_transaction_rec.trans_id );
1653: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
1654: (l_old_transaction_rec, l_old_transaction_rec )
1655: THEN
1656: -- PK Bug 3527599 Moving Lock_Inventory call from here to just before
1657: -- UPDATE_PENDING_TO_COMPLETED call.
1743: );
1744: /* because OM int is done first, there might not be a default lot associated with this line_id*/
1745: IF nvl(l_trans_id,0) > 0 THEN -- no balancing if no default exist
1746: l_new_transaction_rec.trans_id := l_trans_id;
1747: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
1748: (l_new_transaction_rec, l_new_transaction_rec )
1749: THEN
1750: l_ship_qty_above := p_shipping_line.ship_tolerance_above * abs(l_old_transaction_rec.trans_qty) /100;
1751: l_ship_qty_below := p_shipping_line.ship_tolerance_below * abs(l_old_transaction_rec.trans_qty) /100;
2141:
2142: CLOSE fetch_opm_transaction;
2143:
2144: GMI_RESERVATION_UTIL.println('Retrieve OPM Transaction => ' ||l_old_transaction_rec.trans_id );
2145: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND (l_old_transaction_rec, l_old_transaction_rec )
2146: THEN
2147: GMI_reservation_Util.printLn('OPM Transaction found in OPM_UPDATE_TRXS');
2148: -- PK Bug 3527599 No need to lock IC_LOCT_INV when updating / creating pending txn.
2149:
3655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3656: END IF;
3657:
3658: l_old_transaction_rec.trans_id := l_trans_id;
3659: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3660: (l_old_transaction_rec, l_old_transaction_rec )
3661: THEN
3662: l_orig_txn_exists := 1; --Bug3149635
3663: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for line_id '|| p_old_source_line_id);
3723: l_old_transaction_rec.trans_id := l_new_transaction_row.trans_id;
3724: ELSE
3725: l_old_transaction_rec.trans_id := l_trans_id;
3726: END IF;
3727: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3728: (l_old_transaction_rec, l_old_transaction_rec )
3729: THEN
3730: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for line_id '|| p_new_source_line_id);
3731: GMI_RESERVATION_UTIL.balance_default_lot
3776: EXIT WHEN c_reservations%NOTFOUND;
3777:
3778: l_old_transaction_rec.trans_id := l_trans_id;
3779:
3780: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3781: (l_old_transaction_rec, l_old_transaction_rec )
3782: THEN
3783: GMI_RESERVATION_UTIL.Println('got trans for trans_id '||l_trans_id);
3784: GMI_RESERVATION_UTIL.Println('l_qty_to_fulfil '||l_qty_to_fulfil);
3853: l_old_transaction_rec.trans_id := l_trans_id;
3854: -- B2985470 old line has txn new should also have one.
3855: l_orig_txn_exists := 1; -- B2985470
3856:
3857: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3858: (l_old_transaction_rec, l_old_transaction_rec )
3859: THEN
3860: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for line_id '|| p_old_source_line_id);
3861: GMI_RESERVATION_UTIL.balance_default_lot
3882: IF l_trans_id > 0 AND p_new_source_line_id <> p_old_source_line_id
3883: THEN -- if it does not exist, don't bother
3884: l_old_transaction_rec.trans_id := l_trans_id;
3885:
3886: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3887: (l_old_transaction_rec, l_old_transaction_rec )
3888: THEN
3889: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for line_id '|| p_new_source_line_id);
3890: GMI_RESERVATION_UTIL.balance_default_lot
3942: IF l_trans_id > 0 AND p_new_source_line_id <> p_old_source_line_id
3943: THEN -- if it does not exist, don't bother
3944: l_old_transaction_rec.trans_id := l_trans_id;
3945:
3946: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3947: (l_old_transaction_rec, l_old_transaction_rec )
3948: THEN
3949: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for line_id '|| p_new_source_line_id);
3950: GMI_RESERVATION_UTIL.balance_default_lot
4080: p_line_id => l_source_line_id
4081: );
4082: l_get_trans := 0;
4083: l_old_transaction_rec.trans_id := l_trans_id;
4084: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4085: (l_old_transaction_rec, l_old_transaction_rec )
4086: THEN
4087: l_get_trans := 1;
4088: END IF;
4101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4102: END IF;
4103: l_get_trans := 0;
4104: /* need to fetch it again */
4105: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
4106: (l_old_transaction_rec, l_old_transaction_rec )
4107: THEN
4108: l_get_trans := 1;
4109: END IF;