[Home] [Help]
120: END IF;
121:
122: fnd_message.set_name('INV', 'INV_ERES_ENABLED');
123: fnd_msg_pub.ADD;
124: RAISE fnd_api.g_exc_error;
125: RETURN FALSE;
126: END trans_eres_enabled;
127:
128: --3978111 CHANGES START
162: fnd_msg_pub.ADD;
163: IF (l_debug = 1) THEN
164: inv_log_util.TRACE('INVTRXWB: Error from CSTACOSN.op_snapshot ','INVTRXWB',1);
165: END IF;
166: raise fnd_api.g_exc_unexpected_error;
167: ELSE
168: inv_log_util.TRACE('INVTRXWB: CALL TO CSTACOSN.op_snapshot SUCCESSFULL','INVTRXWB',1);
169: END IF;
170:
229: fnd_message.set_token('uom1', v_mmtt_rec.transaction_uom);
230: fnd_message.set_token('uom2', l_temp_uom_code);
231: fnd_message.set_token('module', 'INSERT_LINE_TRX');
232: fnd_msg_pub.ADD;
233: RAISE fnd_api.g_exc_error;
234: END IF;
235:
236: v_mmtt_rec.primary_quantity := v_mmtt_rec.primary_quantity * l_sign; --Added bug3984746
237: ELSE
491: fnd_message.set_token('uom1', curlpnrec.uom);
492: fnd_message.set_token('uom2', l_primary_uom);
493: fnd_message.set_token('module', 'INSERT_LOT_TRX');
494: fnd_msg_pub.ADD;
495: RAISE fnd_api.g_exc_error;
496: END IF;
497:
498: retval :=
499: inv_trx_util_pub.insert_lot_trx(
515: END IF;
516:
517: fnd_message.set_name('INV', 'INV_FAILED');
518: fnd_msg_pub.ADD;
519: RAISE fnd_api.g_exc_error;
520: END IF;
521:
522: IF (l_debug = 1) THEN
523: inv_log_util.TRACE('*Inserted Lot :' || curlpnrec.lot_number, 'INV_LPN_TRX_PUB', 9);
544: END IF;
545:
546: fnd_message.set_name('INV', 'INV_FAILED');
547: fnd_msg_pub.ADD;
548: RAISE fnd_api.g_exc_error;
549: END IF;
550:
551: IF (l_debug = 1) THEN
552: inv_log_util.TRACE('*Inserted Serial:' || p_ser_number || ',trxid=' || p_sertrxid, 'INV_LPN_TRX_PUB', 9);
572: fnd_message.set_token('uom1', p_uom1);
573: fnd_message.set_token('uom2', p_uom2);
574: fnd_message.set_token('module', 'GET_CONVERTED_QTY');
575: fnd_msg_pub.ADD;
576: RAISE fnd_api.g_exc_error;
577: END IF;
578:
579: RETURN l_converted_qty;
580: END;
636: END IF;
637:
638: -- Bug 5103408 Add check for explode_lpn failure status.
639: -- Transaction should not continue if an error occurs during explosion
640: WMS_Container_PVT.Explode_LPN(1.0, fnd_api.g_false, fnd_api.g_false, ret_status, ret_msgcnt, ret_msgdata, p_lpn_id, 0, tb_lpn_cnts);
641:
642: IF ( ret_status <> fnd_api.g_ret_sts_success) THEN
643: IF (l_debug = 1) THEN
644: inv_log_util.TRACE('**Error: Failed in wms_container_pub.explode_lpn API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
638: -- Bug 5103408 Add check for explode_lpn failure status.
639: -- Transaction should not continue if an error occurs during explosion
640: WMS_Container_PVT.Explode_LPN(1.0, fnd_api.g_false, fnd_api.g_false, ret_status, ret_msgcnt, ret_msgdata, p_lpn_id, 0, tb_lpn_cnts);
641:
642: IF ( ret_status <> fnd_api.g_ret_sts_success) THEN
643: IF (l_debug = 1) THEN
644: inv_log_util.TRACE('**Error: Failed in wms_container_pub.explode_lpn API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
645: END IF;
646:
643: IF (l_debug = 1) THEN
644: inv_log_util.TRACE('**Error: Failed in wms_container_pub.explode_lpn API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
645: END IF;
646:
647: RAISE fnd_api.g_exc_error;
648: END IF;
649:
650: -- Retrieve LPN's SUB and Locator
651: SELECT subinventory_code
701: IF ( sql%rowcount = 0 ) THEN
702: fnd_message.set_name('INV', 'INV_NO_RECORDS');
703: fnd_message.set_token('ENTITY', 'MTL_TRANSACTIONS_INTERFACE');
704: fnd_msg_pub.ADD;
705: RAISE fnd_api.g_exc_error;
706: END IF;
707: END IF;
708: ELSIF(p_mmtt.inventory_item_id <> -1) THEN
709: UPDATE mtl_material_transactions_temp
729: END IF;
730:
731: fnd_message.set_name('INV', 'INV_INT_XSUBCODE');
732: fnd_msg_pub.ADD;
733: RAISE fnd_api.g_exc_error;
734: END IF;
735:
736: IF (l_debug = 1) THEN
737: inv_log_util.TRACE(
902: , p_lpn_id => NULL
903: , p_cost_group_id => NVL(curlpnrec.cost_group_id, p_mmtt.cost_group_id)
904: );
905:
906: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
907: IF (l_debug = 1) THEN
908: inv_log_util.TRACE('**Error: Failed in comingling_check API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
909: END IF;
910:
907: IF (l_debug = 1) THEN
908: inv_log_util.TRACE('**Error: Failed in comingling_check API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
909: END IF;
910:
911: RAISE fnd_api.g_exc_error;
912: END IF;
913:
914: IF (l_comingling_occurs = 'Y') THEN
915: IF (l_debug = 1) THEN
923:
924: fnd_message.set_name('INV', 'INV_COMINGLE_FAIL');
925: fnd_message.set_token('CG', l_cst_grp);
926: fnd_msg_pub.ADD;
927: RAISE fnd_api.g_exc_error;
928: END IF;
929: END IF;
930:
931: sertrxid := insert_lot_trx(curlpnrec, v_lasttrxtmpid);
1017: , p_lpn_id => NULL
1018: , p_cost_group_id => NVL(curlpnrec.cost_group_id, p_mmtt.cost_group_id)
1019: );
1020:
1021: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1022: IF (l_debug = 1) THEN
1023: inv_log_util.TRACE('**Error: Failed in comingling_check API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1024: END IF;
1025:
1022: IF (l_debug = 1) THEN
1023: inv_log_util.TRACE('**Error: Failed in comingling_check API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1024: END IF;
1025:
1026: RAISE fnd_api.g_exc_error;
1027: END IF;
1028:
1029: IF (l_comingling_occurs = 'Y') THEN
1030: IF (l_debug = 1) THEN
1038:
1039: fnd_message.set_name('INV', 'INV_COMINGLE_FAIL');
1040: fnd_message.set_token('CG', l_cst_grp);
1041: fnd_msg_pub.ADD;
1042: RAISE fnd_api.g_exc_error;
1043: END IF;
1044: END IF;
1045:
1046: -- End Bug 2712046
1108: , x_cost_group_id => l_cst_grp_id
1109: , x_transfer_cost_group_id => l_xfr_cst_grp_id
1110: );
1111:
1112: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1113: IF (l_debug = 1) THEN
1114: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1115: END IF;
1116:
1115: END IF;
1116:
1117: fnd_message.set_name('INV', 'INV_COST_GROUP_FAILURE');
1118: fnd_msg_pub.ADD;
1119: RAISE fnd_api.g_exc_error;
1120: END IF;
1121: -- If this is for an OrgXfr transaction, update the cost_group_id
1122: -- of the content item for this LPN as this could have been
1123: -- changed by the CG API.
1274: , x_cost_group_id => l_cst_grp_id
1275: , x_transfer_cost_group_id => l_xfr_cst_grp_id
1276: );
1277:
1278: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1279: IF (l_debug = 1) THEN
1280: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1281: END IF;
1282:
1281: END IF;
1282:
1283: fnd_message.set_name('INV', 'INV_COST_GROUP_FAILURE');
1284: fnd_msg_pub.ADD;
1285: RAISE fnd_api.g_exc_error;
1286: END IF;
1287: -- If this is for an OrgXfr transaction, update the cost_group_id
1288: -- of the content item for this LPN as this could have been
1289: -- changed by the CG API.
1306: l_shipment_line_id NUMBER;
1307: l_mmt_transaction_id NUMBER;
1308: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1309: BEGIN
1310: x_return_status := fnd_api.g_ret_sts_success;
1311:
1312: IF (l_debug = 1) THEN
1313: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1314: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1345:
1346: fnd_message.set_name('INV', 'INV_FOB_NOT_DEFINED');
1347: fnd_message.set_token('ENTITY1', v_mmtt.organization_id);
1348: fnd_msg_pub.ADD;
1349: RAISE fnd_api.g_exc_error;
1350: END;
1351:
1352: UPDATE mtl_material_transactions_temp
1353: SET fob_point = l_fob_point
1368: IF (l_debug = 1) THEN
1369: inv_log_util.TRACE('no data found rcv_transactions', 'INV_LPN_TRX_PUB', 1);
1370: END IF;
1371:
1372: RAISE fnd_api.g_exc_error;
1373: END;
1374:
1375: SELECT Nvl(mmt_transaction_id,-1)
1376: INTO l_mmt_transaction_id
1402: END IF;
1403: fnd_message.set_name('INV', 'INV_FOB_NOT_DEFINED');
1404: fnd_message.set_token('ENTITY1', v_mmtt.organization_id);
1405: fnd_msg_pub.ADD;
1406: RAISE fnd_api.g_exc_error;
1407: END;
1408: else
1409: BEGIN
1410: SELECT fob_point
1417: WHEN NO_DATA_FOUND THEN
1418: IF (l_debug = 1) THEN
1419: inv_log_util.TRACE('no data found mtl_material_transactions', 'INV_LPN_TRX_PUB', 1);
1420: END IF;
1421: RAISE fnd_api.g_exc_error;
1422: END;
1423: END IF;
1424: UPDATE mtl_material_transactions_temp
1425: SET fob_point = l_fob_point
1430: v_mmtt.fob_point := l_fob_point;
1431: v_mmtt.intransit_account := l_intransit_inv_account;
1432: END IF; -- intransit Rcpt
1433: EXCEPTION
1434: WHEN fnd_api.g_exc_error THEN
1435: x_return_status := fnd_api.g_ret_sts_error;
1436: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1437: WHEN OTHERS THEN
1438: x_return_status := fnd_api.g_ret_sts_unexp_error;
1431: v_mmtt.intransit_account := l_intransit_inv_account;
1432: END IF; -- intransit Rcpt
1433: EXCEPTION
1434: WHEN fnd_api.g_exc_error THEN
1435: x_return_status := fnd_api.g_ret_sts_error;
1436: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1437: WHEN OTHERS THEN
1438: x_return_status := fnd_api.g_ret_sts_unexp_error;
1439: END update_fob_point;
1434: WHEN fnd_api.g_exc_error THEN
1435: x_return_status := fnd_api.g_ret_sts_error;
1436: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1437: WHEN OTHERS THEN
1438: x_return_status := fnd_api.g_ret_sts_unexp_error;
1439: END update_fob_point;
1440:
1441: /********************************************************************
1442: * Pack or Unpack item/lpn. If lot or serial controlled, then
1519: END IF;
1520:
1521: WMS_Container_PVT.PackUnpack_Container(
1522: p_api_version => 1.0
1523: , p_init_msg_list => fnd_api.g_false
1524: , p_validation_level => fnd_api.g_valid_level_none
1525: , x_return_status => ret_status
1526: , x_msg_count => ret_msgcnt
1527: , x_msg_data => ret_msgdata
1520:
1521: WMS_Container_PVT.PackUnpack_Container(
1522: p_api_version => 1.0
1523: , p_init_msg_list => fnd_api.g_false
1524: , p_validation_level => fnd_api.g_valid_level_none
1525: , x_return_status => ret_status
1526: , x_msg_count => ret_msgcnt
1527: , x_msg_data => ret_msgdata
1528: , p_caller => 'INV_TRNSACTION'
1544: , p_source_name => p_source_name
1545: , p_source_transaction_id => p_source_trx_id
1546: );
1547:
1548: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1549: IF (l_debug = 1) THEN
1550: inv_log_util.TRACE('**Error from LPN pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1551: inv_log_util.TRACE(
1552: '**p_lpn='
1573: END IF;
1574:
1575: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
1576: fnd_msg_pub.ADD;
1577: RAISE fnd_api.g_exc_error;
1578: END IF;
1579: ELSE
1580: -- We are packing/unpacking an Item. Check for Lot and Serials
1581: item_id := p_item_rec.inventory_item_id;
1612: ) THEN /*pack as vanilla*/
1613: inv_log_util.TRACE('** Packing rma so issue serial as vanilla for receipt**', 'INV_LPN_TRX_PUB', 9);
1614: WMS_Container_PVT.PackUnpack_Container (
1615: p_api_version => 1.0
1616: , p_init_msg_list => fnd_api.g_false
1617: , x_return_status => ret_status
1618: , p_validation_level => fnd_api.g_valid_level_none
1619: , x_msg_count => ret_msgcnt
1620: , x_msg_data => ret_msgdata
1614: WMS_Container_PVT.PackUnpack_Container (
1615: p_api_version => 1.0
1616: , p_init_msg_list => fnd_api.g_false
1617: , x_return_status => ret_status
1618: , p_validation_level => fnd_api.g_valid_level_none
1619: , x_msg_count => ret_msgcnt
1620: , x_msg_data => ret_msgdata
1621: , p_caller => 'INV_TRNSACTION'
1622: , p_lpn_id => p_lpn
1640: );
1641: ELSE
1642: WMS_Container_PVT.PackUnpack_Container (
1643: p_api_version => 1.0
1644: , p_init_msg_list => fnd_api.g_false
1645: , x_return_status => ret_status
1646: , p_validation_level => fnd_api.g_valid_level_none
1647: , x_msg_count => ret_msgcnt
1648: , x_msg_data => ret_msgdata
1642: WMS_Container_PVT.PackUnpack_Container (
1643: p_api_version => 1.0
1644: , p_init_msg_list => fnd_api.g_false
1645: , x_return_status => ret_status
1646: , p_validation_level => fnd_api.g_valid_level_none
1647: , x_msg_count => ret_msgcnt
1648: , x_msg_data => ret_msgdata
1649: , p_caller => 'INV_TRNSACTION'
1650: , p_lpn_id => p_lpn
1667: , p_source_transaction_id => p_source_trx_id
1668: );
1669: END IF; /*end of 3158847*/
1670:
1671: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1672: IF (l_debug = 1) THEN
1673: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1674: inv_log_util.TRACE(
1675: '**p_lpn='
1704: END IF;
1705:
1706: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
1707: fnd_msg_pub.ADD;
1708: RAISE fnd_api.g_exc_error;
1709: END IF;
1710: END LOOP;
1711:
1712: IF (NOT v_serfound) THEN
1715: END IF;
1716:
1717: WMS_Container_PVT.PackUnpack_Container (
1718: p_api_version => 1.0
1719: , p_init_msg_list => fnd_api.g_false
1720: , p_validation_level => fnd_api.g_valid_level_none
1721: , x_return_status => ret_status
1722: , x_msg_count => ret_msgcnt
1723: , x_msg_data => ret_msgdata
1716:
1717: WMS_Container_PVT.PackUnpack_Container (
1718: p_api_version => 1.0
1719: , p_init_msg_list => fnd_api.g_false
1720: , p_validation_level => fnd_api.g_valid_level_none
1721: , x_return_status => ret_status
1722: , x_msg_count => ret_msgcnt
1723: , x_msg_data => ret_msgdata
1724: , p_caller => 'INV_TRNSACTION'
1741: , p_source_name => p_source_name
1742: , p_source_transaction_id => p_source_trx_id
1743: );
1744:
1745: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1746: IF (l_debug = 1) THEN
1747: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1748: inv_log_util.TRACE(
1749: '**p_lpn='
1770: END IF;
1771:
1772: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
1773: fnd_msg_pub.ADD;
1774: RAISE fnd_api.g_exc_error;
1775: END IF;
1776: END IF;
1777: END LOOP;
1778:
1804: ) THEN /*pack as vanilla*/
1805: inv_log_util.TRACE('** Packing rma so issue serial as vanilla for receipt**', 'INV_LPN_TRX_PUB', 9);
1806: WMS_Container_PVT.PackUnpack_Container (
1807: p_api_version => 1.0
1808: , p_init_msg_list => fnd_api.g_false
1809: , x_return_status => ret_status
1810: , p_validation_level => fnd_api.g_valid_level_none
1811: , x_msg_count => ret_msgcnt
1812: , x_msg_data => ret_msgdata
1806: WMS_Container_PVT.PackUnpack_Container (
1807: p_api_version => 1.0
1808: , p_init_msg_list => fnd_api.g_false
1809: , x_return_status => ret_status
1810: , p_validation_level => fnd_api.g_valid_level_none
1811: , x_msg_count => ret_msgcnt
1812: , x_msg_data => ret_msgdata
1813: , p_caller => 'INV_TRNSACTION'
1814: , p_lpn_id => p_lpn
1832: );
1833: ELSE
1834: WMS_Container_PVT.PackUnpack_Container (
1835: p_api_version => 1.0
1836: , p_init_msg_list => fnd_api.g_false
1837: , x_return_status => ret_status
1838: , x_msg_count => ret_msgcnt
1839: , x_msg_data => ret_msgdata
1840: , p_validation_level => fnd_api.g_valid_level_none
1836: , p_init_msg_list => fnd_api.g_false
1837: , x_return_status => ret_status
1838: , x_msg_count => ret_msgcnt
1839: , x_msg_data => ret_msgdata
1840: , p_validation_level => fnd_api.g_valid_level_none
1841: , p_caller => 'INV_TRNSACTION'
1842: , p_lpn_id => p_lpn
1843: , p_content_lpn_id => p_content_lpn
1844: , p_content_item_id => item_id
1858: , p_source_transaction_id => p_source_trx_id
1859: );
1860: END IF; /*3158847*/
1861:
1862: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1863: IF (l_debug = 1) THEN
1864: inv_log_util.TRACE(
1865: '**Error from pack/unpack :'
1866: || ret_status
1883: END IF;
1884:
1885: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
1886: fnd_msg_pub.ADD;
1887: RAISE fnd_api.g_exc_error;
1888: END IF;
1889: END LOOP;
1890:
1891: IF (NOT v_serfound) THEN
1894: END IF;
1895:
1896: WMS_Container_PVT.PackUnpack_Container (
1897: p_api_version => 1.0
1898: , p_init_msg_list => fnd_api.g_false
1899: , x_return_status => ret_status
1900: , x_msg_count => ret_msgcnt
1901: , x_msg_data => ret_msgdata
1902: , p_caller => 'INV_TRNSACTION'
1900: , x_msg_count => ret_msgcnt
1901: , x_msg_data => ret_msgdata
1902: , p_caller => 'INV_TRNSACTION'
1903: , p_lpn_id => p_lpn
1904: , p_validation_level => fnd_api.g_valid_level_none
1905: , p_content_lpn_id => p_content_lpn
1906: , p_content_item_id => item_id
1907: , p_revision => p_revision
1908: , p_primary_quantity => ABS(p_primary_qty)
1919: , p_source_name => p_source_name
1920: , p_source_transaction_id => p_source_trx_id
1921: );
1922:
1923: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1924: IF (l_debug = 1) THEN
1925: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1926: inv_log_util.TRACE(
1927: '**p_lpn='
1949: END IF;
1950:
1951: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
1952: fnd_msg_pub.ADD;
1953: RAISE fnd_api.g_exc_error;
1954: END IF;
1955: END IF;
1956: END IF;
1957: END IF; -- p_content_lpn is NULL
1974: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1975: BEGIN
1976: WMS_Container_PVT.Modify_LPN (
1977: p_api_version => 1.0
1978: , p_init_msg_list => fnd_api.g_true
1979: , p_commit => fnd_api.g_false
1980: , p_validation_level => fnd_api.g_valid_level_none
1981: , x_return_status => ret_status
1982: , x_msg_count => ret_msgcnt
1975: BEGIN
1976: WMS_Container_PVT.Modify_LPN (
1977: p_api_version => 1.0
1978: , p_init_msg_list => fnd_api.g_true
1979: , p_commit => fnd_api.g_false
1980: , p_validation_level => fnd_api.g_valid_level_none
1981: , x_return_status => ret_status
1982: , x_msg_count => ret_msgcnt
1983: , x_msg_data => ret_msgdata
1976: WMS_Container_PVT.Modify_LPN (
1977: p_api_version => 1.0
1978: , p_init_msg_list => fnd_api.g_true
1979: , p_commit => fnd_api.g_false
1980: , p_validation_level => fnd_api.g_valid_level_none
1981: , x_return_status => ret_status
1982: , x_msg_count => ret_msgcnt
1983: , x_msg_data => ret_msgdata
1984: , p_caller => 'INV_TRNSACTION'
1984: , p_caller => 'INV_TRNSACTION'
1985: , p_lpn => v_lpn
1986: );
1987:
1988: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1989: IF (l_debug = 1) THEN
1990: inv_log_util.TRACE('Error from modify_lpn :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1991: inv_log_util.TRACE('Error msg :' || ret_msgdata || 'msgcnt=' || ret_msgcnt, 'INV_LPN_TRX_PUB', 1);
1992: END IF;
1992: END IF;
1993:
1994: fnd_message.set_name('INV', 'INV_LPN_UPDATE_FAILURE');
1995: fnd_msg_pub.ADD;
1996: RAISE fnd_api.g_exc_error;
1997: END IF;
1998: END;
1999:
2000: /********************************************************************
2180: inv_log_util.TRACE('SQL error: ' || SQLERRM(SQLCODE), l_api_name, 1);
2181: END IF;
2182: END IF;
2183:
2184: RAISE fnd_api.g_exc_unexpected_error;
2185: END copy_msnt;
2186:
2187: /********************************************************************
2188: * Split Delivery Details. If serial controlled, then
2465: END IF;
2466:
2467: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
2468: fnd_msg_pub.ADD;
2469: RAISE fnd_api.g_exc_error;
2470: END IF;
2471:
2472: -- calculate the length of the serial number suffix
2473: --l_serial_suffix_length := LENGTH(l_new_fm_serial) - LENGTH(l_serial_prefix);
2567:
2568: wsh_integration.set_inv_pc_attributes(p_in_attributes => l_invpcinrectype, x_return_status => ret_status
2569: , x_msg_count => ret_msgcnt, x_msg_data => ret_msgdata);
2570:
2571: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2572: IF (l_debug = 1) THEN
2573: inv_log_util.TRACE('return error from Set_Inv_PC_Attributes', l_api_name);
2574: END IF;
2575:
2572: IF (l_debug = 1) THEN
2573: inv_log_util.TRACE('return error from Set_Inv_PC_Attributes', l_api_name);
2574: END IF;
2575:
2576: RAISE fnd_api.g_exc_error;
2577: END IF;
2578: END IF;
2579:
2580: -- End of serial number handling code
2591: fnd_message.set_token('uom1', p_uom_code);
2592: fnd_message.set_token('uom2', dd_rec.requested_quantity_uom);
2593: fnd_message.set_token('module', l_api_name);
2594: fnd_msg_pub.ADD;
2595: RAISE fnd_api.g_exc_error;
2596: END IF;
2597: END IF;
2598: ELSE -- Not serial controlled
2599: l_split_quantity := dd_rec.requested_quantity;
2611: fnd_message.set_token('uom1', l_remaining_qty_uom);
2612: fnd_message.set_token('uom2', dd_rec.requested_quantity_uom);
2613: fnd_message.set_token('module', l_api_name);
2614: fnd_msg_pub.ADD;
2615: RAISE fnd_api.g_exc_error;
2616: END IF;
2617:
2618: l_remaining_qty_uom := dd_rec.requested_quantity_uom;
2619: END IF;
2634: fnd_message.set_name('WMS', 'WMS_SEC_UOM_MISMATCH_ERROR');
2635: fnd_message.set_token('UOM1', p_secondary_uom_code);
2636: fnd_message.set_token('UOM2', dd_rec.requested_quantity_uom2);
2637: fnd_msg_pub.ADD;
2638: RAISE fnd_api.g_exc_unexpected_error;
2639: ELSE
2640: -- Everything checks out determine the amount of qty2 to split
2641: -- Calculate the theoretical proportionate quantity2 to be split
2642: --l_split_quantity2 := p_secondary_trx_quantity*dd_rec.requested_quantity/p_quantity;
2678: END IF;
2679:
2680: wsh_interface_ext_grp.delivery_detail_action(
2681: p_api_version_number => 1.0
2682: , p_init_msg_list => fnd_api.g_false
2683: , p_commit => fnd_api.g_false
2684: , x_return_status => ret_status
2685: , x_msg_count => ret_msgcnt
2686: , x_msg_data => ret_msgdata
2679:
2680: wsh_interface_ext_grp.delivery_detail_action(
2681: p_api_version_number => 1.0
2682: , p_init_msg_list => fnd_api.g_false
2683: , p_commit => fnd_api.g_false
2684: , x_return_status => ret_status
2685: , x_msg_count => ret_msgcnt
2686: , x_msg_data => ret_msgdata
2687: , p_detail_id_tab => l_detail_id_tab
2688: , p_action_prms => l_action_prms
2689: , x_action_out_rec => l_action_out_rec
2690: );
2691:
2692: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2693: IF (l_debug = 1) THEN
2694: inv_log_util.TRACE('**Error Delivery_Detail_Action: ' || ret_msgdata, l_api_name, 1);
2695: END IF;
2696:
2695: END IF;
2696:
2697: fnd_message.set_name('INV', 'INV_SPLIT_LINE_FAILURE');
2698: fnd_msg_pub.ADD;
2699: RAISE fnd_api.g_exc_error;
2700: END IF;
2701:
2702: l_shipping_attr(1).delivery_detail_id := l_action_out_rec.result_id_tab(1);
2703:
2709: inv_log_util.TRACE('Split qty ' || l_split_quantity || ' is greater than what is available on WDD '
2710: || dd_rec.delivery_detail_id, l_api_name, 9);
2711: END IF;
2712:
2713: RAISE fnd_api.g_exc_unexpected_error;
2714: END IF;
2715:
2716: IF (l_debug = 1) THEN
2717: inv_log_util.TRACE('Call to WSH Delivery_Detail_Action unassign delivery from lpn', l_api_name, 4);
2722: l_wsh_del_det_id_tbl(1) := l_shipping_attr(1).delivery_detail_id;
2723:
2724: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
2725: p_api_version_number => 1.0
2726: , p_init_msg_list => fnd_api.g_false
2727: , p_commit => fnd_api.g_false
2728: , x_return_status => ret_status
2729: , x_msg_count => ret_msgcnt
2730: , x_msg_data => ret_msgdata
2723:
2724: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
2725: p_api_version_number => 1.0
2726: , p_init_msg_list => fnd_api.g_false
2727: , p_commit => fnd_api.g_false
2728: , x_return_status => ret_status
2729: , x_msg_count => ret_msgcnt
2730: , x_msg_data => ret_msgdata
2731: , p_lpn_id_tbl => l_wsh_lpn_id_tbl
2733: , p_action_prms => l_wsh_action_prms
2734: , x_defaults => l_wsh_defaults
2735: , x_action_out_rec => l_wsh_action_out_rec );
2736:
2737: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2738: IF (l_debug = 1) THEN
2739: inv_log_util.TRACE('Error WSH_WMS_LPN_GRP.Delivery_Detail_Action' || ret_status, l_api_name, 1);
2740: END IF;
2741:
2740: END IF;
2741:
2742: fnd_message.set_name('INV', 'INV_UNASSIGN_DEL_FAILURE');
2743: fnd_msg_pub.ADD;
2744: RAISE fnd_api.g_exc_error;
2745: ELSIF (l_debug = 1) THEN
2746: inv_log_util.TRACE('Done with call to WSH Create_Update_Containers', l_api_name, 4);
2747: END IF;
2748:
2769: l_shipping_attr(1).picked_quantity2 := l_split_quantity2;
2770: wsh_interface.update_shipping_attributes(p_source_code => 'INV', p_changed_attributes => l_shipping_attr
2771: , x_return_status => ret_status);
2772:
2773: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2774: IF (l_debug = 1) THEN
2775: inv_log_util.TRACE('***Error in update shipping attribures for split trx', l_api_name, 9);
2776: END IF;
2777:
2776: END IF;
2777:
2778: fnd_message.set_name('WMS', 'WMS_TD_UPD_SHP_ERROR');
2779: fnd_msg_pub.ADD;
2780: RAISE fnd_api.g_exc_error;
2781: END IF;
2782:
2783: -- Need to also to transfer the item reservation
2784: IF (l_debug = 1) THEN
2802: , p_lot_number => p_lot_number
2803: , p_quantity => l_split_quantity
2804: , p_uom => dd_rec.requested_quantity_uom
2805: , p_lpn_id => p_xfr_lpn_id
2806: , p_force_reservation_flag => fnd_api.g_true
2807: , p_requirement_date => (Sysdate + l_loop_counter/(24*3600))
2808: , p_source_lpn_id => p_lpn_id );
2809:
2810: IF ( ret_status <> fnd_api.g_ret_sts_success ) THEN
2806: , p_force_reservation_flag => fnd_api.g_true
2807: , p_requirement_date => (Sysdate + l_loop_counter/(24*3600))
2808: , p_source_lpn_id => p_lpn_id );
2809:
2810: IF ( ret_status <> fnd_api.g_ret_sts_success ) THEN
2811: IF (l_debug = 1) THEN
2812: inv_log_util.TRACE('upd_reservation_pup failed '||ret_msgdata, l_api_name, 1);
2813: END IF;
2814: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
2812: inv_log_util.TRACE('upd_reservation_pup failed '||ret_msgdata, l_api_name, 1);
2813: END IF;
2814: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
2815: fnd_msg_pub.ADD;
2816: RAISE fnd_api.g_exc_error;
2817: END IF;
2818: l_progress := 'Done with call to Upd_Reservation_PUP_New';
2819:
2820: -- Subtract the split quantity from the remaining quantity
2835: IF (l_remaining_quantity > 0) THEN
2836: inv_log_util.TRACE('***Error while splittng delivery not enough quantity found in wdd', l_api_name, 1);
2837: fnd_message.set_name('WMS', 'INV_INSUFFICIENT_WDD_QTY');
2838: fnd_msg_pub.ADD;
2839: RAISE fnd_api.g_exc_error;
2840: END IF;
2841:
2842: IF (p_secondary_trx_quantity IS NOT NULL) THEN
2843: -- We have consumed all of the primary quantity. Calculate the amount of qty2
2893: fnd_message.set_name('WMS', 'WMS_SEC_UOM_MISMATCH_ERROR');
2894: fnd_message.set_token('UOM1', p_secondary_uom_code);
2895: fnd_message.set_token('UOM2', l_dd_rec.requested_quantity_uom2);
2896: fnd_msg_pub.ADD;
2897: RAISE fnd_api.g_exc_unexpected_error;
2898: ELSIF(l_dd_rec.picked_quantity2 > qty2_remainder) THEN
2899: -- This WDD record can consume the entire remaining qty. subtract that
2900: -- amount from the line and set remaining to zero
2901: l_del_det_attr(l_dd_ct).picked_quantity2 := l_dd_rec.picked_quantity2 - qty2_remainder;
2924: IF (qty2_remainder <> 0) THEN
2925: inv_log_util.TRACE('***Error while splittng delivery not enough quantity2 found in wdd', l_api_name, 9);
2926: fnd_message.set_name('WMS', 'INV_INSUFFICIENT_WDD_QTY');
2927: fnd_msg_pub.ADD;
2928: RAISE fnd_api.g_exc_error;
2929: END IF;
2930: ELSIF(l_debug = 1) THEN
2931: inv_log_util.TRACE('no WDD rows left in source lpn...ok', l_api_name, 9);
2932: END IF;
2945: END IF;
2946:
2947: wsh_interface_ext_grp.create_update_delivery_detail(
2948: p_api_version_number => 1.0
2949: , p_init_msg_list => fnd_api.g_false
2950: , p_commit => fnd_api.g_false
2951: , x_return_status => ret_status
2952: , x_msg_count => ret_msgcnt
2953: , x_msg_data => ret_msgdata
2946:
2947: wsh_interface_ext_grp.create_update_delivery_detail(
2948: p_api_version_number => 1.0
2949: , p_init_msg_list => fnd_api.g_false
2950: , p_commit => fnd_api.g_false
2951: , x_return_status => ret_status
2952: , x_msg_count => ret_msgcnt
2953: , x_msg_data => ret_msgdata
2954: , p_detail_info_tab => l_del_det_attr
2955: , p_in_rec => l_del_det_in_rec
2956: , x_out_rec => l_del_det_out_rec
2957: );
2958:
2959: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2960: --Get error messages from shipping
2961: wsh_util_core.get_messages('Y', ret_msgdata, l_msg_details, ret_msgcnt);
2962:
2963: IF (ret_msgcnt > 1) THEN
2970:
2971: fnd_message.set_name('WMS', 'WMS_UPD_DELIVERY_ERROR');
2972: fnd_message.set_token('MSG1', ret_msgdata);
2973: fnd_msg_pub.ADD;
2974: RAISE fnd_api.g_exc_unexpected_error;
2975: END IF;
2976: END IF;
2977: END split_delivery_details;
2978:
3025: , p_organization_id => p_org_id
3026: , p_inventory_item_id => p_item_rec.inventory_item_id
3027: );
3028:
3029: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3030: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
3031: fnd_msg_pub.ADD;
3032: RAISE fnd_api.g_exc_unexpected_error;
3033: END IF;
3028:
3029: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3030: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
3031: fnd_msg_pub.ADD;
3032: RAISE fnd_api.g_exc_unexpected_error;
3033: END IF;
3034:
3035: -- retrieve corresponding lot numbers
3036: FOR lottmp_rec IN lottmp_cur LOOP
3051: , p_to_lpn_id => p_xfr_lpn_id
3052: , x_show_ct_wt => l_valid_sec_qty_split
3053: );
3054:
3055: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3056: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
3057: fnd_msg_pub.ADD;
3058: RAISE fnd_api.g_exc_unexpected_error;
3059: END IF;
3054:
3055: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3056: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
3057: fnd_msg_pub.ADD;
3058: RAISE fnd_api.g_exc_unexpected_error;
3059: END IF;
3060:
3061: IF (l_debug = 1) THEN
3062: inv_log_util.TRACE('l_valid_sec_qty_split=' || l_valid_sec_qty_split, l_api_name, 9);
3080: , p_secondary_quantity => NULL
3081: , p_secondary_uom_code => NULL
3082: );
3083:
3084: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3085: IF (l_debug = 1) THEN
3086: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3087: END IF;
3088:
3085: IF (l_debug = 1) THEN
3086: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3087: END IF;
3088:
3089: RAISE fnd_api.g_exc_unexpected_error;
3090: END IF;
3091:
3092: --Clear the secondary quantity fields for the to LPN
3093: wms_catch_weight_pvt.update_lpn_secondary_quantity(
3106: , p_secondary_quantity => NULL
3107: , p_secondary_uom_code => NULL
3108: );
3109:
3110: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3111: IF (l_debug = 1) THEN
3112: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3113: END IF;
3114:
3111: IF (l_debug = 1) THEN
3112: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3113: END IF;
3114:
3115: RAISE fnd_api.g_exc_unexpected_error;
3116: END IF;
3117: END IF;
3118: END IF;
3119:
3166: , p_to_lpn_id => p_xfr_lpn_id
3167: , x_show_ct_wt => l_valid_sec_qty_split
3168: );
3169:
3170: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3171: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
3172: fnd_msg_pub.ADD;
3173: RAISE fnd_api.g_exc_unexpected_error;
3174: END IF;
3169:
3170: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3171: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
3172: fnd_msg_pub.ADD;
3173: RAISE fnd_api.g_exc_unexpected_error;
3174: END IF;
3175:
3176: IF (l_debug = 1) THEN
3177: inv_log_util.TRACE('l_valid_sec_qty_split=' || l_valid_sec_qty_split, l_api_name, 9);
3198: , p_secondary_quantity => NULL
3199: , p_secondary_uom_code => NULL
3200: );
3201:
3202: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3203: IF (l_debug = 1) THEN
3204: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3205: END IF;
3206:
3203: IF (l_debug = 1) THEN
3204: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3205: END IF;
3206:
3207: RAISE fnd_api.g_exc_unexpected_error;
3208: END IF;
3209:
3210: --Clear the secondary quantity fields for the to LPN
3211: wms_catch_weight_pvt.update_lpn_secondary_quantity(
3223: , p_secondary_quantity => NULL
3224: , p_secondary_uom_code => NULL
3225: );
3226:
3227: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3228: IF (l_debug = 1) THEN
3229: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3230: END IF;
3231:
3228: IF (l_debug = 1) THEN
3229: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3230: END IF;
3231:
3232: RAISE fnd_api.g_exc_unexpected_error;
3233: END IF;
3234: END IF;
3235: ELSIF(l_secondary_trx_quantity IS NOT NULL) THEN
3236: -- secondary qty populated even though item is not catch weight
3277: *******************************************************************/
3278:
3279: FUNCTION process_lpn_trx(
3280: p_trx_hdr_id IN NUMBER
3281: , p_commit IN VARCHAR2 := fnd_api.g_false
3282: , x_proc_msg OUT NOCOPY VARCHAR2
3283: , p_proc_mode IN NUMBER := NULL
3284: , p_process_trx IN VARCHAR2 := fnd_api.g_true
3285: , p_atomic IN VARCHAR2 := fnd_api.g_false
3280: p_trx_hdr_id IN NUMBER
3281: , p_commit IN VARCHAR2 := fnd_api.g_false
3282: , x_proc_msg OUT NOCOPY VARCHAR2
3283: , p_proc_mode IN NUMBER := NULL
3284: , p_process_trx IN VARCHAR2 := fnd_api.g_true
3285: , p_atomic IN VARCHAR2 := fnd_api.g_false
3286: , p_business_flow_code IN NUMBER := NULL
3287: )
3288: RETURN NUMBER IS
3281: , p_commit IN VARCHAR2 := fnd_api.g_false
3282: , x_proc_msg OUT NOCOPY VARCHAR2
3283: , p_proc_mode IN NUMBER := NULL
3284: , p_process_trx IN VARCHAR2 := fnd_api.g_true
3285: , p_atomic IN VARCHAR2 := fnd_api.g_false
3286: , p_business_flow_code IN NUMBER := NULL
3287: )
3288: RETURN NUMBER IS
3289: BEGIN
3303: *
3304: *******************************************************************/
3305: FUNCTION process_lpn_trx(
3306: p_trx_hdr_id IN NUMBER
3307: , p_commit IN VARCHAR2 := fnd_api.g_false
3308: , x_proc_msg OUT NOCOPY VARCHAR2
3309: , p_proc_mode IN NUMBER := NULL
3310: , p_process_trx IN VARCHAR2 := fnd_api.g_true
3311: , p_atomic IN VARCHAR2 := fnd_api.g_false
3306: p_trx_hdr_id IN NUMBER
3307: , p_commit IN VARCHAR2 := fnd_api.g_false
3308: , x_proc_msg OUT NOCOPY VARCHAR2
3309: , p_proc_mode IN NUMBER := NULL
3310: , p_process_trx IN VARCHAR2 := fnd_api.g_true
3311: , p_atomic IN VARCHAR2 := fnd_api.g_false
3312: , p_business_flow_code IN NUMBER := NULL
3313: , p_init_msg_list IN BOOLEAN
3314: )
3307: , p_commit IN VARCHAR2 := fnd_api.g_false
3308: , x_proc_msg OUT NOCOPY VARCHAR2
3309: , p_proc_mode IN NUMBER := NULL
3310: , p_process_trx IN VARCHAR2 := fnd_api.g_true
3311: , p_atomic IN VARCHAR2 := fnd_api.g_false
3312: , p_business_flow_code IN NUMBER := NULL
3313: , p_init_msg_list IN BOOLEAN
3314: )
3315: RETURN NUMBER IS
3488: END IF;
3489:
3490: --Bug 4338316
3491: --Setting the local variable l_commit to honor the p_commit, if passed as true.
3492: IF fnd_api.to_boolean(p_commit) THEN
3493: l_commit := 1;
3494: END IF;
3495:
3496: -- Release 12 - Call to Enhanced Diagnostics Check Implemented
3609: IF (l_debug = 1) THEN
3610: inv_log_util.TRACE('no rows retrieve when finding org and level for Cartonization', 'INV_LPN_TRX_PUB', 1);
3611: END IF;
3612:
3613: RAISE fnd_api.g_exc_unexpected_error;
3614: WHEN OTHERS THEN
3615: IF (l_debug = 1) THEN
3616: inv_log_util.TRACE('Unexpected error when finding org and level for Cartonization', 'INV_LPN_TRX_PUB', 1);
3617: END IF;
3615: IF (l_debug = 1) THEN
3616: inv_log_util.TRACE('Unexpected error when finding org and level for Cartonization', 'INV_LPN_TRX_PUB', 1);
3617: END IF;
3618:
3619: RAISE fnd_api.g_exc_unexpected_error;
3620: END;
3621:
3622: wms_cartnzn_wrap.cartonize(
3623: p_api_version => 1.0
3620: END;
3621:
3622: wms_cartnzn_wrap.cartonize(
3623: p_api_version => 1.0
3624: , p_init_msg_list => fnd_api.g_false
3625: , p_commit => fnd_api.g_false
3626: ,
3627: --p_validation_level => ,
3628: x_return_status => ret_status
3621:
3622: wms_cartnzn_wrap.cartonize(
3623: p_api_version => 1.0
3624: , p_init_msg_list => fnd_api.g_false
3625: , p_commit => fnd_api.g_false
3626: ,
3627: --p_validation_level => ,
3628: x_return_status => ret_status
3629: , x_msg_count => ret_msgcnt
3638: , p_stop_level => l_containers
3639: , p_packaging_mode => 2
3640: );
3641:
3642: IF (ret_status = fnd_api.g_ret_sts_error) THEN
3643: IF (l_debug = 1) THEN
3644: inv_log_util.TRACE('Error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3645: END IF;
3646:
3643: IF (l_debug = 1) THEN
3644: inv_log_util.TRACE('Error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3645: END IF;
3646:
3647: RAISE fnd_api.g_exc_error;
3648: ELSIF(ret_status = fnd_api.g_ret_sts_unexp_error) THEN
3649: IF (l_debug = 1) THEN
3650: inv_log_util.TRACE('Unexpectied error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3651: END IF;
3644: inv_log_util.TRACE('Error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3645: END IF;
3646:
3647: RAISE fnd_api.g_exc_error;
3648: ELSIF(ret_status = fnd_api.g_ret_sts_unexp_error) THEN
3649: IF (l_debug = 1) THEN
3650: inv_log_util.TRACE('Unexpectied error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3651: END IF;
3652:
3649: IF (l_debug = 1) THEN
3650: inv_log_util.TRACE('Unexpectied error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3651: END IF;
3652:
3653: RAISE fnd_api.g_exc_unexpected_error;
3654: ELSIF(ret_status <> fnd_api.g_ret_sts_success) THEN
3655: IF (l_debug = 1) THEN
3656: inv_log_util.TRACE('Undefined error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3657: END IF;
3650: inv_log_util.TRACE('Unexpectied error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3651: END IF;
3652:
3653: RAISE fnd_api.g_exc_unexpected_error;
3654: ELSIF(ret_status <> fnd_api.g_ret_sts_success) THEN
3655: IF (l_debug = 1) THEN
3656: inv_log_util.TRACE('Undefined error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3657: END IF;
3658:
3655: IF (l_debug = 1) THEN
3656: inv_log_util.TRACE('Undefined error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3657: END IF;
3658:
3659: RAISE fnd_api.g_exc_unexpected_error;
3660: END IF;
3661:
3662: IF (l_debug = 1) THEN
3663: inv_log_util.TRACE('Done with call to Cartonization', 'INV_LPN_TRX_PUB', 9);
3681:
3682:
3683:
3684: -- For atomic transactions create a single savepoint for the batch
3685: IF fnd_api.to_boolean(p_atomic) THEN
3686: SAVEPOINT group_savepoint;
3687: END IF;
3688:
3689: l_process := 0;
3714: /* ********************************************************************
3715: IF (v_mmtt.lot_number IS NOT NULL) THEN
3716: l_lot_indiv_trx_valid := INV_LOT_API_PUB.VALIDATE_LOT_INDIVISIBLE
3717: ( p_api_version => 1.0
3718: , p_init_msg_list => fnd_api.g_false
3719: , p_transaction_type_id => v_mmtt.transaction_type_id
3720: , p_organization_id => v_mmtt.organization_id
3721: , p_inventory_item_id => v_mmtt.inventory_item_id
3722: , p_revision => v_mmtt.revision
3734: -- the transaction is not valid regarding lot indivisible:
3735: IF (l_debug = 1) THEN
3736: inv_log_util.trace('in proc process_lpn_trx. lot indivisibility error', 'INV_LPN_TRX_PUB', 9);
3737: END IF;
3738: RAISE FND_API.G_EXC_ERROR;
3739: END IF;
3740: ELSE
3741: FOR v_mtlt in c_mtlt(v_mmtt.transaction_temp_id) LOOP
3742: l_lot_indiv_trx_valid := INV_LOT_API_PUB.VALIDATE_LOT_INDIVISIBLE
3740: ELSE
3741: FOR v_mtlt in c_mtlt(v_mmtt.transaction_temp_id) LOOP
3742: l_lot_indiv_trx_valid := INV_LOT_API_PUB.VALIDATE_LOT_INDIVISIBLE
3743: ( p_api_version => 1.0
3744: , p_init_msg_list => fnd_api.g_false
3745: , p_transaction_type_id => v_mmtt.transaction_type_id
3746: , p_organization_id => v_mmtt.organization_id
3747: , p_inventory_item_id => v_mmtt.inventory_item_id
3748: , p_revision => v_mmtt.revision
3760: -- the transaction is not valid regarding lot indivisible:
3761: IF (l_debug = 1) THEN
3762: inv_log_util.trace('in proc process_lpn_trx. lot indivisibility error', 'INV_LPN_TRX_PUB', 9);
3763: END IF;
3764: RAISE FND_API.G_EXC_ERROR;
3765: END IF;
3766:
3767: END LOOP;
3768: END IF;
3829: )
3830: ) THEN
3831: fnd_message.set_name('INV', 'INV_INT_TRXACTCODE');
3832: fnd_msg_pub.ADD;
3833: RAISE fnd_api.g_exc_error;
3834: END IF;
3835:
3836: -- For new or null transaction groups that are non atomic, create a new savepoint
3837: IF (NVL(v_mmtt.transaction_batch_id, -88) <> NVL(l_prev_trx_batch_id, -99)
3834: END IF;
3835:
3836: -- For new or null transaction groups that are non atomic, create a new savepoint
3837: IF (NVL(v_mmtt.transaction_batch_id, -88) <> NVL(l_prev_trx_batch_id, -99)
3838: AND NOT fnd_api.to_boolean(p_atomic)) THEN
3839: SAVEPOINT group_savepoint;
3840: l_prev_trx_batch_id := v_mmtt.transaction_batch_id;
3841: l_current_group_status := fnd_api.g_ret_sts_success;
3842:
3837: IF (NVL(v_mmtt.transaction_batch_id, -88) <> NVL(l_prev_trx_batch_id, -99)
3838: AND NOT fnd_api.to_boolean(p_atomic)) THEN
3839: SAVEPOINT group_savepoint;
3840: l_prev_trx_batch_id := v_mmtt.transaction_batch_id;
3841: l_current_group_status := fnd_api.g_ret_sts_success;
3842:
3843: IF (l_debug = 1) THEN
3844: inv_log_util.TRACE('new group savepoint prevbatchid=' || l_prev_trx_batch_id, 'INV_LPN_TRX_PUB', 9);
3845: END IF;
3848: -- Skip records that are of the same trx group where a record has failed
3849: -- Else run records normally
3850: IF NOT(
3851: v_mmtt.transaction_batch_id = l_prev_trx_batch_id
3852: AND NVL(l_current_group_status, fnd_api.g_ret_sts_success) <> fnd_api.g_ret_sts_success
3853: ) THEN
3854: insrowcnt := insrowcnt + 1;
3855:
3856: --For planning xfr and consigned xfr transactions, make sure the
3955: ) THEN
3956: update_fob_point(v_mmtt => v_mmtt, x_return_status => l_fob_ret_sts, x_msg_data => l_fob_ret_msg
3957: , x_msg_count => l_fob_msg_count);
3958:
3959: IF (l_fob_ret_sts <> fnd_api.g_ret_sts_success) THEN
3960: IF (l_debug = 1) THEN
3961: inv_log_util.TRACE(' Error from update_fob_point:' || l_fob_ret_msg, 'INV_LPN_TRX_PUB', 1);
3962: END IF;
3963:
3963:
3964: fnd_message.set_name('INV', 'INV_FOB_NOT_DEFINED');
3965: fnd_message.set_token('ENTITY1', v_mmtt.organization_id);
3966: fnd_msg_pub.ADD;
3967: RAISE fnd_api.g_exc_error;
3968: END IF;
3969: END IF;
3970: END IF; --(PO pathset J installed)
3971:
4015: , x_cost_group_id => l_cst_grp_id
4016: , x_transfer_cost_group_id => l_xfr_cst_grp_id
4017: );
4018:
4019: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4020: IF (l_debug = 1) THEN
4021: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4022: END IF;
4023: --Bug 3804314: The message from the cost group API is
4023: --Bug 3804314: The message from the cost group API is
4024: --overwritten by INV_COST_GROUP_FAILURE. Commenting the message.
4025: --fnd_message.set_name('INV', 'INV_COST_GROUP_FAILURE');
4026: --fnd_msg_pub.ADD;
4027: RAISE fnd_api.g_exc_error;
4028: END IF;
4029: END IF;
4030:
4031: -- Continue with the process based on the value of l_proc_mode
4072: fnd_message.set_name('INV', 'INV_TXN_REQ_QUEUED');
4073: fnd_msg_pub.ADD;
4074: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_last, 'F');
4075:
4076: IF fnd_api.to_boolean(p_commit) THEN
4077: COMMIT WORK;
4078: END IF;
4079:
4080: RETURN 0;
4187: , p_input_type => inv_cost_group_pub.g_input_mmtt
4188: , x_cost_group_id => l_cst_grp_id
4189: , x_transfer_cost_group_id => l_xfr_cst_grp_id );
4190:
4191: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4192: IF (l_debug = 1) THEN
4193: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4194: END IF;
4195: RAISE fnd_api.g_exc_error;
4191: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4192: IF (l_debug = 1) THEN
4193: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4194: END IF;
4195: RAISE fnd_api.g_exc_error;
4196: END IF;
4197: END IF;
4198: END IF; -- content_lpn_id populated
4199:
4221: , 1
4222: );
4223: END IF;
4224:
4225: l_current_group_status := fnd_api.g_ret_sts_error;
4226: l_error_code := fnd_msg_pub.get(fnd_msg_pub.g_last, 'F');
4227: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
4228: failedrowcnt := failedrowcnt + 1;
4229:
4232: END IF;
4233:
4234: ROLLBACK TO group_savepoint;
4235:
4236: IF fnd_api.to_boolean(p_atomic) THEN
4237: --Set message in MMTT line based in header id
4238: -- Bug 3804314: Changed the where clause to transaction_header_id
4239: BEGIN
4240: -- Update MMTT records with error message and set status to error
4430: END;
4431:
4432:
4433: -- All preprocessing done. Call the Inventory Transactions Manager
4434: IF (fnd_api.to_boolean(l_process_trx))
4435: AND (l_process <> 0) THEN
4436: -- AND(l_call_tm) THEN
4437: -- Should all the rows in MMTT with the specified TrxHdrId be considered
4438: -- as one unit
4435: AND (l_process <> 0) THEN
4436: -- AND(l_call_tm) THEN
4437: -- Should all the rows in MMTT with the specified TrxHdrId be considered
4438: -- as one unit
4439: IF fnd_api.to_boolean(p_atomic) THEN
4440: l_atomic := 1;
4441: END IF;
4442:
4443: IF (l_debug = 1) THEN
4487: , p_business_flow_code => 22
4488: , p_transaction_id => wms_cartnzn_wrap.get_lpns_generated_tb
4489: );
4490:
4491: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4492: IF (l_debug = 1) THEN
4493: inv_log_util.TRACE('**Error Label Printing :' || ret_status, 'INV_LPN_TRX_PUB', 1);
4494: END IF;
4495: END IF;
4500: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_last, 'F');
4501: RETURN -1 * failedrowcnt;
4502: END IF;
4503:
4504: IF fnd_api.to_boolean(p_commit) THEN
4505: COMMIT WORK;
4506: END IF;
4507:
4508: --
4549: inv_log_util.TRACE(' Return Message => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4550: inv_log_util.TRACE('ERECORD => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4551: END IF;
4552:
4553: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4554: IF (l_debug = 1) THEN
4555: inv_log_util.TRACE(' ERROR generated from getErecordIdAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4556: END IF;
4557:
4556: END IF;
4557:
4558: fnd_message.set_name('INV', 'INV_ERECORD_INVALID');
4559: fnd_msg_pub.ADD;
4560: RAISE fnd_api.g_exc_error;
4561: END IF;
4562:
4563: /* If an eRecord exists, then acknowledge it
4564: ===========================================*/
4577: , x_msg_count => ret_msgcnt
4578: , x_msg_data => ret_msgdata
4579: );
4580:
4581: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4582: IF (l_debug = 1) THEN
4583: inv_log_util.TRACE(' Error from Send ERES ACKNOWLEDGE API:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4584: END IF;
4585:
4584: END IF;
4585:
4586: fnd_message.set_name('INV', 'INV_ERECORD_INVALID');
4587: fnd_msg_pub.ADD;
4588: RAISE fnd_api.g_exc_error;
4589: END IF;
4590: END IF; /* IF ERECORD ID not NULL */
4591: END IF; /* IF TRANS NOT ERES SUPPORTED */
4592: END LOOP; /* LOOP THROUGH ALL ERECORDS in TBL*/
4629:
4630: ROLLBACK TO process_lpn_trx;
4631: --bug 2894323 fix made changes to return all the messages in the
4632: --stack in x_proc_msg out variable
4633: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => ret_msgcnt, p_data => x_proc_msg);
4634:
4635: IF ret_msgcnt IS NULL THEN
4636: ret_msgcnt := 0;
4637: END IF;
4885: , 9
4886: );
4887: END IF;
4888:
4889: x_return_status := fnd_api.g_ret_sts_success;
4890:
4891: --SAVEPOINT PROCESS_LPN_TRX_LINE;
4892:
4893: -- Continue with this record ONLY if atleast one of the field
4914: );
4915: END IF;
4916: ELSE --failed to get item info
4917: l_progress := 'Error calling INV_CACHE.Set_Item_Rec to get item info';
4918: RAISE fnd_api.g_exc_unexpected_error;
4919: END IF;
4920: ELSE --Values already passed, assign to item rec type
4921: l_item_rec.organization_id := p_organization_id;
4922: l_item_rec.inventory_item_id := p_inventory_item_id;
5196:
5197: -- LPN must be unpacked into the current sub
5198: WMS_Container_PVT.PackUnpack_Container(
5199: p_api_version => 1.0
5200: , p_init_msg_list => fnd_api.g_false
5201: , p_commit => fnd_api.g_false
5202: , p_validation_level => fnd_api.g_valid_level_none
5203: , x_return_status => ret_status
5204: , x_msg_count => ret_msgcnt
5197: -- LPN must be unpacked into the current sub
5198: WMS_Container_PVT.PackUnpack_Container(
5199: p_api_version => 1.0
5200: , p_init_msg_list => fnd_api.g_false
5201: , p_commit => fnd_api.g_false
5202: , p_validation_level => fnd_api.g_valid_level_none
5203: , x_return_status => ret_status
5204: , x_msg_count => ret_msgcnt
5205: , x_msg_data => ret_msgdata
5198: WMS_Container_PVT.PackUnpack_Container(
5199: p_api_version => 1.0
5200: , p_init_msg_list => fnd_api.g_false
5201: , p_commit => fnd_api.g_false
5202: , p_validation_level => fnd_api.g_valid_level_none
5203: , x_return_status => ret_status
5204: , x_msg_count => ret_msgcnt
5205: , x_msg_data => ret_msgdata
5206: , p_caller => 'INV_TRNSACTION'
5210: , p_locator_id => p_locator_id
5211: , p_operation => g_unpack_all
5212: , p_source_transaction_id => p_source_transaction_id );
5213:
5214: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
5215: IF (l_debug = 1) THEN
5216: inv_log_util.TRACE('**Error Full unpack for wip issue:' || ret_status, 'INV_LPN_TRX_PUB', 1);
5217: END IF;
5218:
5217: END IF;
5218:
5219: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
5220: fnd_msg_pub.ADD;
5221: RAISE fnd_api.g_exc_error;
5222: END IF;
5223: ELSE
5224: v_lpn.lpn_context := wms_container_pub.lpn_context_stores; --ISSUED OUT
5225: END IF;
5790: -- contents of the LPN.
5791: IF (v_autounpack = 2) THEN
5792: WMS_Container_PVT.PackUnpack_Container (
5793: p_api_version => 1.0
5794: , p_init_msg_list => fnd_api.g_false
5795: , p_commit => fnd_api.g_false
5796: , p_validation_level => fnd_api.g_valid_level_none
5797: , x_return_status => ret_status
5798: , x_msg_count => ret_msgcnt
5791: IF (v_autounpack = 2) THEN
5792: WMS_Container_PVT.PackUnpack_Container (
5793: p_api_version => 1.0
5794: , p_init_msg_list => fnd_api.g_false
5795: , p_commit => fnd_api.g_false
5796: , p_validation_level => fnd_api.g_valid_level_none
5797: , x_return_status => ret_status
5798: , x_msg_count => ret_msgcnt
5799: , x_msg_data => ret_msgdata
5792: WMS_Container_PVT.PackUnpack_Container (
5793: p_api_version => 1.0
5794: , p_init_msg_list => fnd_api.g_false
5795: , p_commit => fnd_api.g_false
5796: , p_validation_level => fnd_api.g_valid_level_none
5797: , x_return_status => ret_status
5798: , x_msg_count => ret_msgcnt
5799: , x_msg_data => ret_msgdata
5800: , p_caller => 'INV_TRNSACTION'
5804: , p_locator_id => p_locator_id
5805: , p_operation => g_unpack_all
5806: , p_source_transaction_id => p_source_transaction_id );
5807:
5808: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
5809: IF (l_debug = 1) THEN
5810: inv_log_util.TRACE('**Error Full unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
5811: END IF;
5812:
5811: END IF;
5812:
5813: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
5814: fnd_msg_pub.ADD;
5815: RAISE fnd_api.g_exc_error;
5816: END IF;
5817: END IF;
5818: END IF;
5819: END IF;
5840: END IF;
5841:
5842: fnd_message.set_name('INV', 'BAD_INPUT_ARGUMENTS');
5843: fnd_msg_pub.ADD;
5844: RAISE fnd_api.g_exc_error;
5845: END IF;
5846: END IF;
5847:
5848: -- If transaction is subtransfer
5904: END IF;
5905:
5906: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
5907: fnd_msg_pub.ADD;
5908: RAISE fnd_api.g_exc_error;
5909: END IF;
5910:
5911: -- An item or LPN is being unpacked from this LPN.
5912: Call_Pack_Unpack (
6018: , p_to_subinventory_code => p_transfer_subinventory
6019: , p_to_locator_id => p_transfer_to_location
6020: );
6021:
6022: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6023: IF (l_debug = 1) THEN
6024: inv_log_util.TRACE('Undefined error in calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 1);
6025: END IF;
6026:
6023: IF (l_debug = 1) THEN
6024: inv_log_util.TRACE('Undefined error in calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 1);
6025: END IF;
6026:
6027: RAISE fnd_api.g_exc_error;
6028: END IF;
6029:
6030: IF (l_debug = 1) THEN
6031: inv_log_util.TRACE('Done with call to Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 9);
6077: , p_to_subinventory_code => p_transfer_subinventory
6078: , p_to_locator_id => p_transfer_to_location
6079: );
6080:
6081: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6082: IF (l_debug = 1) THEN
6083: inv_log_util.TRACE('Undefined error in calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 1);
6084: END IF;
6085:
6082: IF (l_debug = 1) THEN
6083: inv_log_util.TRACE('Undefined error in calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 1);
6084: END IF;
6085:
6086: RAISE fnd_api.g_exc_error;
6087: END IF;
6088:
6089: IF (l_debug = 1) THEN
6090: inv_log_util.TRACE('Done with call to Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 9);
6113:
6114: -- bug 5531237 LPN org has not changed yet need to use original org not xfer org
6115: WMS_Container_PVT.PackUnpack_Container (
6116: p_api_version => 1.0
6117: , p_init_msg_list => fnd_api.g_false
6118: , p_commit => fnd_api.g_false
6119: , p_validation_level => fnd_api.g_valid_level_none
6120: , x_return_status => ret_status
6121: , x_msg_count => ret_msgcnt
6114: -- bug 5531237 LPN org has not changed yet need to use original org not xfer org
6115: WMS_Container_PVT.PackUnpack_Container (
6116: p_api_version => 1.0
6117: , p_init_msg_list => fnd_api.g_false
6118: , p_commit => fnd_api.g_false
6119: , p_validation_level => fnd_api.g_valid_level_none
6120: , x_return_status => ret_status
6121: , x_msg_count => ret_msgcnt
6122: , x_msg_data => ret_msgdata
6115: WMS_Container_PVT.PackUnpack_Container (
6116: p_api_version => 1.0
6117: , p_init_msg_list => fnd_api.g_false
6118: , p_commit => fnd_api.g_false
6119: , p_validation_level => fnd_api.g_valid_level_none
6120: , x_return_status => ret_status
6121: , x_msg_count => ret_msgcnt
6122: , x_msg_data => ret_msgdata
6123: , p_caller => 'INV_TRNSACTION'
6127: , p_locator_id => NULL
6128: , p_operation => g_unpack_all
6129: , p_source_transaction_id => p_source_transaction_id );
6130:
6131: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6132: IF (l_debug = 1) THEN
6133: inv_log_util.TRACE('**Error Full unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
6134: END IF;
6135:
6134: END IF;
6135:
6136: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
6137: fnd_msg_pub.ADD;
6138: RAISE fnd_api.g_exc_error;
6139: END IF;
6140: ELSE
6141: IF ( l_system_task_type = 7 AND
6142: v_cnt_lpn_ctx = wms_container_pub.lpn_loaded_in_stage )
6240: END IF;
6241:
6242: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
6243: fnd_msg_pub.ADD;
6244: RAISE fnd_api.g_exc_error;
6245: END IF;
6246:
6247: -- For CostGroupTransfer transactions, use the xfr_cost_group_id
6248: -- column from MMTT. For all other transactions, use the cost_group_id
6277: , p_to_subinventory_code => p_transfer_subinventory
6278: , p_to_locator_id => p_transfer_to_location
6279: );
6280:
6281: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6282: IF (l_debug = 1) THEN
6283: inv_log_util.TRACE('Undefined error in calling transfer_reserved_lpn_contents', 'INV_LPN_TRX_PUB', 1);
6284: END IF;
6285:
6282: IF (l_debug = 1) THEN
6283: inv_log_util.TRACE('Undefined error in calling transfer_reserved_lpn_contents', 'INV_LPN_TRX_PUB', 1);
6284: END IF;
6285:
6286: RAISE fnd_api.g_exc_error;
6287: END IF;
6288:
6289: IF (l_debug = 1) THEN
6290: inv_log_util.TRACE('Done with call to transfer_reserved_lpn_contents', 'INV_LPN_TRX_PUB', 9);
6370: END IF;
6371:
6372: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
6373: fnd_msg_pub.ADD;
6374: RAISE fnd_api.g_exc_error;
6375: END IF;
6376: END IF;
6377:
6378: IF (l_debug = 1) THEN
6417: , p_to_subinventory_code => p_transfer_subinventory
6418: , p_to_locator_id => p_transfer_to_location
6419: );
6420:
6421: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6422: IF (l_debug = 1) THEN
6423: inv_log_util.TRACE('**Error from transfer_lpn_trx_reservation :' || ret_status, 'INV_LPN_TRX_PUB', 1);
6424: END IF;
6425:
6424: END IF;
6425:
6426: fnd_message.set_name('INV', 'INV_XFR_RSV_FAILURE');
6427: fnd_msg_pub.ADD;
6428: RAISE fnd_api.g_exc_error;
6429: END IF;
6430: END IF;
6431: END IF;
6432: END IF;
6661: , p_transaction_id => p_transaction_temp_id
6662: , p_transaction_identifier => l_transaction_identifier --Added for Bug 4891916
6663: );
6664:
6665: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6666: IF (l_debug = 1) THEN
6667: inv_log_util.TRACE('**Error Label Printing :' || ret_status, 'INV_LPN_TRX_PUB', 1);
6668: END IF;
6669: --RAISE FND_API.G_EXC_ERROR; Since TM should not fail, even if
6665: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6666: IF (l_debug = 1) THEN
6667: inv_log_util.TRACE('**Error Label Printing :' || ret_status, 'INV_LPN_TRX_PUB', 1);
6668: END IF;
6669: --RAISE FND_API.G_EXC_ERROR; Since TM should not fail, even if
6670: --this call fails bug#2555226
6671: END IF;
6672: END IF;
6673:
6723: inv_log_util.TRACE('* No. of MMTT record deleted ' || SQL%ROWCOUNT, 'INV_LPN_TRX_PUB', 1);
6724: END IF;
6725: END IF;
6726: EXCEPTION
6727: WHEN fnd_api.g_exc_error THEN
6728: x_return_status := fnd_api.g_ret_sts_error;
6729: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
6730:
6731: IF (l_debug = 1) THEN
6724: END IF;
6725: END IF;
6726: EXCEPTION
6727: WHEN fnd_api.g_exc_error THEN
6728: x_return_status := fnd_api.g_ret_sts_error;
6729: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
6730:
6731: IF (l_debug = 1) THEN
6732: inv_log_util.TRACE(l_api_name || ' Exc err prog=' || l_progress || ' SQL err: ' || SQLERRM(SQLCODE), l_api_name, 1);
6738:
6739: inv_log_util.TRACE('msg: ' || l_msgdata, l_api_name, 1);
6740: END IF;
6741: WHEN OTHERS THEN
6742: x_return_status := fnd_api.g_ret_sts_unexp_error;
6743: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
6744:
6745: IF (l_debug = 1) THEN
6746: inv_log_util.TRACE(l_api_name || ' Unexp err prog=' || l_progress || ' SQL err: ' || SQLERRM(SQLCODE), l_api_name, 1);