[Home] [Help]
80: IF l_count_child_rec = 0 AND p_qty_disc_flag <> 0 THEN
81: IF (l_debug = 1) THEN
82: trace('Error: qty discrepancy and no child rec found');
83: END IF;
84: RAISE FND_API.G_EXC_ERROR;
85: END IF;
86:
87: --make sure that the sum of lot_qty is equal to the transaction_quantiy
88: IF l_count_child_rec <> 0 AND p_transaction_quantity IS NOT NULL
89: AND p_transaction_quantity <> l_total_lot_qty THEN
90: IF (l_debug = 1) THEN
91: trace('Error: Total lot_qty is greater than transaction_quantity');
92: END IF;
93: RAISE FND_API.G_EXC_ERROR;
94:
95: END IF;
96:
97: FOR l_child_rec IN child_rec_cursor LOOP--child records
117: trace('Invalid Lot:Allocated Lot is not chosen or qty is greater');
118: END IF;
119: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LOT');
120: FND_MSG_PUB.ADD;
121: RAISE FND_API.G_EXC_ERROR;
122: END IF;
123: ELSIF p_error_on_lot_serial_null = 'Y' THEN--l_rec.LOT_NUMBER is null
124: IF (l_debug = 1) THEN
125: trace('Erroring out:Lot info NOT provided in child record');
125: trace('Erroring out:Lot info NOT provided in child record');
126: END IF;
127: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LOT');
128: FND_MSG_PUB.ADD;
129: RAISE FND_API.G_EXC_ERROR;
130: END IF;
131:
132: /* -- Serial Not supported, Will be done later
133: IF (l_serial_code >1 AND l_serial_code<>6) THEN --both lot and serial controlled
146: trace('Invalid Serial:Either allocate_serial_flag IS off FOR the org OR Allocated Serial is not chosen');
147: END IF;
148: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
149: FND_MSG_PUB.ADD;
150: RAISE FND_API.G_EXC_ERROR;
151: END IF;
152: ELSIF p_error_on_lot_serial_null = 'Y' THEN --l_child_rec.serial_number IS NULL
153: IF (l_debug = 1) THEN
154: trace('Erroring out:serial info NOT provided in child record');
154: trace('Erroring out:serial info NOT provided in child record');
155: END IF;
156: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
157: FND_MSG_PUB.ADD;
158: RAISE FND_API.G_EXC_ERROR;
159: END IF;
160: END IF;
161:
162: ELSIF (l_serial_code >1 AND l_serial_code<>6) THEN --serial controlled only
173: trace('Invalid Serial:Either allocate_serial_flag IS off FOR the org OR Allocated Serial is not chosen');
174: END IF;
175: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
176: FND_MSG_PUB.ADD;
177: RAISE FND_API.G_EXC_ERROR;
178: END IF;
179: ELSIF p_error_on_lot_serial_null = 'Y' THEN --l_child_rec.serial_number IS NULL
180: IF (l_debug = 1) THEN
181: trace('Erroring out:serial info NOT provided in child record');
181: trace('Erroring out:serial info NOT provided in child record');
182: END IF;
183: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
184: FND_MSG_PUB.ADD;
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: */
189:
191: END IF;--means LOT CONTROLED
192:
193: END LOOP;--for child records
194:
195: x_return_status:=FND_API.G_RET_STS_SUCCESS;
196:
197: EXCEPTION
198: WHEN FND_API.g_exc_error THEN
199: x_return_status := FND_API.G_RET_STS_ERROR;
194:
195: x_return_status:=FND_API.G_RET_STS_SUCCESS;
196:
197: EXCEPTION
198: WHEN FND_API.g_exc_error THEN
199: x_return_status := FND_API.G_RET_STS_ERROR;
200:
201: WHEN OTHERS THEN
202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: x_return_status:=FND_API.G_RET_STS_SUCCESS;
196:
197: EXCEPTION
198: WHEN FND_API.g_exc_error THEN
199: x_return_status := FND_API.G_RET_STS_ERROR;
200:
201: WHEN OTHERS THEN
202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
203:
198: WHEN FND_API.g_exc_error THEN
199: x_return_status := FND_API.G_RET_STS_ERROR;
200:
201: WHEN OTHERS THEN
202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
203:
204: END validate_child_record;
205:
206: ---************
382: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
383:
384: BEGIN
385:
386: x_return_status := FND_API.G_RET_STS_SUCCESS ;
387:
388: IF (l_debug = 1) THEN
389: trace('SPLIT_MMTT: temp id : ' ||p_txn_temp_id );
390: trace('SPLIT_MMTT: p_txn_qty : ' ||p_txn_qty || ',p_pri_qty:'||p_pri_qty );
868: trace (' p_txn_temp_id: NOT found : ' || p_txn_temp_id);
869: fnd_message.set_name('WMS', 'WMS_INSERT_ALLOCATION');
870: -- "Error Inserting Allocation ."
871: fnd_msg_pub.ADD;
872: RAISE fnd_api.G_EXC_ERROR;
873: END IF;
874:
875: IF (l_debug = 1) THEN
876: trace('SPLIT_MMTT:INSERTED new MMTT; new temp id : ' ||l_new_txn_temp_id );
880: WHEN OTHERS THEN
881: IF (l_debug = 1) THEN
882: trace('ERROR:EXCEPTION when splitting MMTT !!!' );
883: END IF;
884: x_return_status := FND_API.G_RET_STS_ERROR;
885:
886: RAISE fnd_api.G_EXC_ERROR;
887: END SPLIT_MMTT; --14028129
888:
882: trace('ERROR:EXCEPTION when splitting MMTT !!!' );
883: END IF;
884: x_return_status := FND_API.G_RET_STS_ERROR;
885:
886: RAISE fnd_api.G_EXC_ERROR;
887: END SPLIT_MMTT; --14028129
888:
889: ---------------------------------------------------------
890: -- Retrieve err message from the message stack
1092: END IF;
1093:
1094: l_lpn_qty := p_qty;
1095:
1096: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1097:
1098: l_lpn_exists := 0;
1099:
1100: --clear the PL/SQL table each time come in
1118: trace('lpn_match: lpn does not exist in org');
1119: END IF;
1120: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
1121: FND_MSG_PUB.ADD;
1122: RAISE FND_API.G_EXC_ERROR;
1123: END;
1124:
1125: IF l_lpn_exists = 0 OR
1126: p_lpn = 0 OR
1130: trace('lpn_match: lpn does not exist in org');
1131: END IF;
1132: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
1133: FND_MSG_PUB.ADD;
1134: RAISE FND_API.G_EXC_ERROR;
1135:
1136: END IF;
1137:
1138: IF (l_debug = 1) THEN
1167:
1168: x_match := 7;
1169: FND_MESSAGE.SET_NAME('WMS','WMS_LOADED_ERROR');
1170: FND_MSG_PUB.ADD;
1171: RAISE FND_API.G_EXC_ERROR;
1172:
1173: END IF;
1174:
1175: -- Check if locator is valid
1203:
1204: x_match := 10;
1205: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_SUB');
1206: FND_MSG_PUB.ADD;
1207: RAISE FND_API.G_EXC_ERROR;
1208:
1209: END IF;
1210:
1211: -- bug 2398247
1220: IF l_sub_active = 0 THEN
1221: x_match := 10;
1222: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_SUB');
1223: FND_MSG_PUB.ADD;
1224: RAISE FND_API.G_EXC_ERROR;
1225: END IF;
1226:
1227: -- verify if locator is active
1228: SELECT COUNT(*)
1237:
1238: x_match := 10;
1239: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LOC');
1240: FND_MSG_PUB.ADD;
1241: RAISE FND_API.G_EXC_ERROR;
1242:
1243: END IF;
1244:
1245: x_sub := l_sub;
1251: WHEN NO_DATA_FOUND THEN
1252: x_match := 6;
1253: FND_MESSAGE.SET_NAME('WMS','WMS_TD_LPN_LOC_NOT_FOUND');
1254: FND_MSG_PUB.ADD;
1255: RAISE FND_API.G_EXC_ERROR;
1256:
1257: END;
1258:
1259: IF (l_debug = 1) THEN
1292:
1293: x_match := 12;
1294: FND_MESSAGE.SET_NAME('WMS','WMS_LPN_STAGED');
1295: FND_MSG_PUB.ADD;
1296: RAISE FND_API.G_EXC_ERROR;
1297:
1298: END IF;
1299:
1300: SELECT
1347: END IF;
1348: x_match := 5;
1349: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
1350: FND_MSG_PUB.ADD;
1351: RAISE FND_API.G_EXC_ERROR;
1352:
1353: END;
1354:
1355: IF l_item_cnt > 0 AND l_lot_code > 1 THEN
1379: END IF;
1380: x_match := 5;
1381: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LOT_LPN');
1382: FND_MSG_PUB.ADD;
1383: RAISE FND_API.G_EXC_ERROR;
1384:
1385: END;
1386:
1387: END IF;
1428: trace ('lpn_match: transaction does not exist in mmtt');
1429: END IF;
1430: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TRANSACTION');
1431: FND_MSG_PUB.ADD;
1432: RAISE FND_API.G_EXC_ERROR;
1433: END;
1434:
1435: -- clear quantity cache before we create qty tree.
1436: inv_quantity_tree_pub.clear_quantity_cache;
1508: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
1509: -- in order to get correct att.
1510: inv_quantity_tree_pub.update_quantities
1511: ( p_api_version_number => 1.0
1512: , p_init_msg_lst => fnd_api.g_false
1513: , x_return_status => l_return_status
1514: , x_msg_count => l_msg_cnt
1515: , x_msg_data => l_msg_data
1516: , p_organization_id => p_org_id
1533: , x_atr => l_atr
1534: , p_lpn_id => p_lpn
1535: , p_transfer_subinventory_code => l_xfr_sub_code
1536: );
1537: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1538: IF (l_debug = 1) THEN
1539: trace('lpn_match: after update qty tree for lpn l_att:' || l_att||' for lot:'||l_mtlt_lot_number);
1540: END IF;
1541: ELSE
1544: END IF;
1545: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1546: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1547: FND_MSG_PUB.ADD;
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550: ELSE
1551: inv_quantity_tree_pub.update_quantities
1552: ( p_api_version_number => 1.0
1549: END IF;
1550: ELSE
1551: inv_quantity_tree_pub.update_quantities
1552: ( p_api_version_number => 1.0
1553: , p_init_msg_lst => fnd_api.g_false
1554: , x_return_status => l_return_status
1555: , x_msg_count => l_msg_cnt
1556: , x_msg_data => l_msg_data
1557: , p_organization_id => p_org_id
1574: , x_atr => l_atr
1575: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
1576: , p_transfer_subinventory_code => l_xfr_sub_code
1577: );
1578: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1579: IF (l_debug = 1) THEN
1580: trace('lpn_match: after update qty tree without lpn l_att:' || l_att||' for lot:'||l_mtlt_lot_number);
1581: END IF;
1582: ELSE
1585: END IF;
1586: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1587: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1588: FND_MSG_PUB.ADD;
1589: RAISE FND_API.G_EXC_ERROR;
1590: END IF;
1591:
1592: END IF;
1593:
1592: END IF;
1593:
1594: inv_quantity_tree_pub.query_quantities
1595: ( p_api_version_number => 1.0
1596: , p_init_msg_lst => fnd_api.g_false
1597: , x_return_status => l_return_status
1598: , x_msg_count => l_msg_cnt
1599: , x_msg_data => l_msg_data
1600: , p_organization_id => p_org_id
1617: , p_lpn_id => p_lpn
1618: , p_transfer_subinventory_code => l_xfr_sub_code
1619: );
1620:
1621: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1622:
1623: IF (l_att > 0) THEN
1624:
1625: l_table_index := l_table_index + 1;
1666: END IF;
1667: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1668: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1669: FND_MSG_PUB.ADD;
1670: RAISE FND_API.G_EXC_ERROR;
1671:
1672: END IF;
1673:
1674: IF nvl(l_allocated_lpn_id, 0) = p_lpn THEN
1675: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
1676: -- in order to get correct att.
1677: inv_quantity_tree_pub.update_quantities
1678: ( p_api_version_number => 1.0
1679: , p_init_msg_lst => fnd_api.g_false
1680: , x_return_status => l_return_status
1681: , x_msg_count => l_msg_cnt
1682: , x_msg_data => l_msg_data
1683: , p_organization_id => p_org_id
1700: , x_atr => l_atr
1701: , p_lpn_id => p_lpn
1702: , p_transfer_subinventory_code => l_xfr_sub_code
1703: );
1704: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1705: IF (l_debug = 1) THEN
1706: trace('lpn_match: after update qty tree back for lpn l_att:' || l_att||' for lot:'||l_mtlt_lot_number);
1707: END IF;
1708: ELSE
1711: END IF;
1712: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1713: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1714: FND_MSG_PUB.ADD;
1715: RAISE FND_API.G_EXC_ERROR;
1716: END IF;
1717: ELSE
1718: inv_quantity_tree_pub.update_quantities
1719: ( p_api_version_number => 1.0
1716: END IF;
1717: ELSE
1718: inv_quantity_tree_pub.update_quantities
1719: ( p_api_version_number => 1.0
1720: , p_init_msg_lst => fnd_api.g_false
1721: , x_return_status => l_return_status
1722: , x_msg_count => l_msg_cnt
1723: , x_msg_data => l_msg_data
1724: , p_organization_id => p_org_id
1741: , x_atr => l_atr
1742: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
1743: , p_transfer_subinventory_code => l_xfr_sub_code
1744: );
1745: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1746: IF (l_debug = 1) THEN
1747: trace('lpn_match: after update qty tree back without lpn l_att:' || l_att||' for lot:'||l_mtlt_lot_number);
1748: END IF;
1749: ELSE
1752: END IF;
1753: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1754: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1755: FND_MSG_PUB.ADD;
1756: RAISE FND_API.G_EXC_ERROR;
1757: END IF;
1758: END IF;
1759:
1760: END LOOP;
1789: -- Serial numbers missing for the transaction
1790: x_match := 9;
1791: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
1792: FND_MSG_PUB.ADD;
1793: RAISE FND_API.G_EXC_ERROR;
1794: END IF;
1795:
1796:
1797: SELECT COUNT(fm_serial_number)
1822: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
1823: -- in order to get correct att.
1824: inv_quantity_tree_pub.update_quantities
1825: ( p_api_version_number => 1.0
1826: , p_init_msg_lst => fnd_api.g_false
1827: , x_return_status => l_return_status
1828: , x_msg_count => l_msg_cnt
1829: , x_msg_data => l_msg_data
1830: , p_organization_id => p_org_id
1847: , x_atr => l_atr
1848: , p_lpn_id => p_lpn
1849: , p_transfer_subinventory_code => l_xfr_sub_code
1850: );
1851: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1852: IF (l_debug = 1) THEN
1853: trace('lpn_match: update qty tree with lpn 2nd time: l_att:' || l_att);
1854: END IF;
1855: ELSE
1858: END IF;
1859: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1860: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1861: FND_MSG_PUB.ADD;
1862: RAISE FND_API.G_EXC_ERROR;
1863: END IF;
1864: ELSE
1865: inv_quantity_tree_pub.update_quantities
1866: ( p_api_version_number => 1.0
1863: END IF;
1864: ELSE
1865: inv_quantity_tree_pub.update_quantities
1866: ( p_api_version_number => 1.0
1867: , p_init_msg_lst => fnd_api.g_false
1868: , x_return_status => l_return_status
1869: , x_msg_count => l_msg_cnt
1870: , x_msg_data => l_msg_data
1871: , p_organization_id => p_org_id
1888: , x_atr => l_atr
1889: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
1890: , p_transfer_subinventory_code => l_xfr_sub_code
1891: );
1892: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1893: IF (l_debug = 1) THEN
1894: trace('lpn_match: update qty tree without lpn 2nd time:l_att:'||l_att);
1895: END IF;
1896: ELSE
1899: END IF;
1900: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1901: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1902: FND_MSG_PUB.ADD;
1903: RAISE FND_API.G_EXC_ERROR;
1904: END IF;
1905:
1906: END IF;
1907:
1906: END IF;
1907:
1908: inv_quantity_tree_pub.query_quantities
1909: ( p_api_version_number => 1.0
1910: , p_init_msg_lst => fnd_api.g_false
1911: , x_return_status => l_return_status
1912: , x_msg_count => l_msg_cnt
1913: , x_msg_data => l_msg_data
1914: , p_organization_id => p_org_id
1931: , p_lpn_id => p_lpn
1932: , p_transfer_subinventory_code => l_xfr_sub_code
1933: );
1934:
1935: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1936:
1937: l_lpn_qty := l_att;
1938:
1939: ELSE
1943: END IF;
1944: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1945: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1946: FND_MSG_PUB.add;
1947: RAISE FND_API.G_EXC_ERROR;
1948:
1949: END IF;
1950:
1951: IF nvl(l_allocated_lpn_id, 0) = p_lpn THEN
1952: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
1953: -- in order to get correct att.
1954: inv_quantity_tree_pub.update_quantities
1955: ( p_api_version_number => 1.0
1956: , p_init_msg_lst => fnd_api.g_false
1957: , x_return_status => l_return_status
1958: , x_msg_count => l_msg_cnt
1959: , x_msg_data => l_msg_data
1960: , p_organization_id => p_org_id
1977: , x_atr => l_atr
1978: , p_lpn_id => p_lpn
1979: , p_transfer_subinventory_code => l_xfr_sub_code
1980: );
1981: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1982: IF (l_debug = 1) THEN
1983: trace('lpn_match: update qty tree back with lpn 2nd time: l_att:' || l_att);
1984: END IF;
1985: ELSE
1988: END IF;
1989: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1990: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1991: FND_MSG_PUB.ADD;
1992: RAISE FND_API.G_EXC_ERROR;
1993: END IF;
1994: ELSE
1995: inv_quantity_tree_pub.update_quantities
1996: ( p_api_version_number => 1.0
1993: END IF;
1994: ELSE
1995: inv_quantity_tree_pub.update_quantities
1996: ( p_api_version_number => 1.0
1997: , p_init_msg_lst => fnd_api.g_false
1998: , x_return_status => l_return_status
1999: , x_msg_count => l_msg_cnt
2000: , x_msg_data => l_msg_data
2001: , p_organization_id => p_org_id
2018: , x_atr => l_atr
2019: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
2020: , p_transfer_subinventory_code => l_xfr_sub_code
2021: );
2022: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2023: IF (l_debug = 1) THEN
2024: trace('lpn_match: update qty tree back without lpn 2nd time:l_att:'||l_att);
2025: END IF;
2026: ELSE
2029: END IF;
2030: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2031: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2032: FND_MSG_PUB.ADD;
2033: RAISE FND_API.G_EXC_ERROR;
2034: END IF;
2035:
2036: END IF;
2037:
2104: -- Serial numbers missing for the transaction
2105: x_match := 9;
2106: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
2107: FND_MSG_PUB.ADD;
2108: RAISE FND_API.G_EXC_ERROR;
2109:
2110: END IF;
2111:
2112: END IF;
2144: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
2145: -- in order to get correct att.
2146: inv_quantity_tree_pub.update_quantities
2147: ( p_api_version_number => 1.0
2148: , p_init_msg_lst => fnd_api.g_false
2149: , x_return_status => l_return_status
2150: , x_msg_count => l_msg_cnt
2151: , x_msg_data => l_msg_data
2152: , p_organization_id => p_org_id
2169: , x_atr => l_atr
2170: , p_lpn_id => p_lpn
2171: , p_transfer_subinventory_code => l_xfr_sub_code
2172: );
2173: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2174: IF (l_debug = 1) THEN
2175: trace('lpn_match: update qty tree 3rd time for lpn l_att:'||l_att||' for lot:'||l_mtlt_lot_number);
2176: END IF;
2177: ELSE
2180: END IF;
2181: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2182: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2183: FND_MSG_PUB.ADD;
2184: RAISE FND_API.G_EXC_ERROR;
2185: END IF;
2186: ELSE
2187: inv_quantity_tree_pub.update_quantities
2188: ( p_api_version_number => 1.0
2185: END IF;
2186: ELSE
2187: inv_quantity_tree_pub.update_quantities
2188: ( p_api_version_number => 1.0
2189: , p_init_msg_lst => fnd_api.g_false
2190: , x_return_status => l_return_status
2191: , x_msg_count => l_msg_cnt
2192: , x_msg_data => l_msg_data
2193: , p_organization_id => p_org_id
2210: , x_atr => l_atr
2211: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
2212: , p_transfer_subinventory_code => l_xfr_sub_code
2213: );
2214: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2215: IF (l_debug = 1) THEN
2216: trace('lpn_match: after update without lpn 3rd time l_att:'|| l_att||' for lot:'||l_mtlt_lot_number);
2217: END IF;
2218: ELSE
2221: END IF;
2222: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2223: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2224: FND_MSG_PUB.ADD;
2225: RAISE FND_API.G_EXC_ERROR;
2226: END IF;
2227:
2228: END IF;
2229:
2228: END IF;
2229:
2230: inv_quantity_tree_pub.query_quantities
2231: ( p_api_version_number => 1.0
2232: , p_init_msg_lst => fnd_api.g_false
2233: , x_return_status => l_return_status
2234: , x_msg_count => l_msg_cnt
2235: , x_msg_data => l_msg_data
2236: , p_organization_id => p_org_id
2253: , p_lpn_id => p_lpn
2254: , p_transfer_subinventory_code => l_xfr_sub_code
2255: );
2256:
2257: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2258:
2259: l_lot_match := 1;
2260:
2261: IF (l_att > 0) THEN
2317: END IF;
2318: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2319: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2320: FND_MSG_PUB.add;
2321: RAISE FND_API.G_EXC_ERROR;
2322:
2323: END IF;
2324:
2325: IF l_lot_match <> 0 AND x_match <> 4 THEN
2372: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
2373: -- in order to get correct att.
2374: inv_quantity_tree_pub.update_quantities
2375: ( p_api_version_number => 1.0
2376: , p_init_msg_lst => fnd_api.g_false
2377: , x_return_status => l_return_status
2378: , x_msg_count => l_msg_cnt
2379: , x_msg_data => l_msg_data
2380: , p_organization_id => p_org_id
2397: , x_atr => l_atr
2398: , p_lpn_id => p_lpn
2399: , p_transfer_subinventory_code => l_xfr_sub_code
2400: );
2401: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2402: IF (l_debug = 1) THEN
2403: trace('lpn_match: update qty tree back 3rd time for lpn l_att:'||l_att||' for lot:'||l_mtlt_lot_number);
2404: END IF;
2405: ELSE
2408: END IF;
2409: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2410: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2411: FND_MSG_PUB.ADD;
2412: RAISE FND_API.G_EXC_ERROR;
2413: END IF;
2414: ELSE
2415: inv_quantity_tree_pub.update_quantities
2416: ( p_api_version_number => 1.0
2413: END IF;
2414: ELSE
2415: inv_quantity_tree_pub.update_quantities
2416: ( p_api_version_number => 1.0
2417: , p_init_msg_lst => fnd_api.g_false
2418: , x_return_status => l_return_status
2419: , x_msg_count => l_msg_cnt
2420: , x_msg_data => l_msg_data
2421: , p_organization_id => p_org_id
2438: , x_atr => l_atr
2439: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
2440: , p_transfer_subinventory_code => l_xfr_sub_code
2441: );
2442: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2443: IF (l_debug = 1) THEN
2444: trace('lpn_match: after update qty tree back without lpn 3rd time l_att:'|| l_att||' for lot:'||l_mtlt_lot_number);
2445: END IF;
2446: ELSE
2449: END IF;
2450: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2451: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2452: FND_MSG_PUB.ADD;
2453: RAISE FND_API.G_EXC_ERROR;
2454: END IF;
2455:
2456: END IF;
2457:
2542: -- Serial numbers missing for the transaction
2543: x_match := 9;
2544: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
2545: FND_MSG_PUB.ADD;
2546: RAISE FND_API.G_EXC_ERROR;
2547: END IF;
2548:
2549:
2550: END IF;
2559: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
2560: -- in order to get correct att.
2561: inv_quantity_tree_pub.update_quantities
2562: ( p_api_version_number => 1.0
2563: , p_init_msg_lst => fnd_api.g_false
2564: , x_return_status => l_return_status
2565: , x_msg_count => l_msg_cnt
2566: , x_msg_data => l_msg_data
2567: , p_organization_id => p_org_id
2584: , x_atr => l_atr
2585: , p_lpn_id => p_lpn
2586: , p_transfer_subinventory_code => l_xfr_sub_code
2587: );
2588: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2589: IF (l_debug = 1) THEN
2590: trace('lpn_match: update qty tree with lpn 4th time: l_att:' || l_att);
2591: END IF;
2592: ELSE
2595: END IF;
2596: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2597: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2598: FND_MSG_PUB.ADD;
2599: RAISE FND_API.G_EXC_ERROR;
2600: END IF;
2601: ELSE
2602: inv_quantity_tree_pub.update_quantities
2603: ( p_api_version_number => 1.0
2600: END IF;
2601: ELSE
2602: inv_quantity_tree_pub.update_quantities
2603: ( p_api_version_number => 1.0
2604: , p_init_msg_lst => fnd_api.g_false
2605: , x_return_status => l_return_status
2606: , x_msg_count => l_msg_cnt
2607: , x_msg_data => l_msg_data
2608: , p_organization_id => p_org_id
2625: , x_atr => l_atr
2626: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
2627: , p_transfer_subinventory_code => l_xfr_sub_code
2628: );
2629: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2630: IF (l_debug = 1) THEN
2631: trace('lpn_match: update qty tree without lpn 4th time:l_att:'||l_att);
2632: END IF;
2633: ELSE
2636: END IF;
2637: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2638: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2639: FND_MSG_PUB.ADD;
2640: RAISE FND_API.G_EXC_ERROR;
2641: END IF;
2642:
2643: END IF;
2644:
2643: END IF;
2644:
2645: inv_quantity_tree_pub.query_quantities
2646: ( p_api_version_number => 1.0
2647: , p_init_msg_lst => fnd_api.g_false
2648: , x_return_status => l_return_status
2649: , x_msg_count => l_msg_cnt
2650: , x_msg_data => l_msg_data
2651: , p_organization_id => p_org_id
2668: , p_lpn_id => p_lpn
2669: , p_transfer_subinventory_code => l_xfr_sub_code
2670: );
2671:
2672: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2673:
2674: IF (l_debug = 1) THEN
2675: trace('lpn_match: lpn quantity = ' || l_att );
2676: END IF;
2716: END IF;
2717: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2718: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2719: FND_MSG_PUB.add;
2720: RAISE FND_API.G_EXC_ERROR;
2721:
2722: END IF;
2723:
2724: IF nvl(l_allocated_lpn_id, 0) = p_lpn THEN
2725: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
2726: -- in order to get correct att.
2727: inv_quantity_tree_pub.update_quantities
2728: ( p_api_version_number => 1.0
2729: , p_init_msg_lst => fnd_api.g_false
2730: , x_return_status => l_return_status
2731: , x_msg_count => l_msg_cnt
2732: , x_msg_data => l_msg_data
2733: , p_organization_id => p_org_id
2750: , x_atr => l_atr
2751: , p_lpn_id => p_lpn
2752: , p_transfer_subinventory_code => l_xfr_sub_code
2753: );
2754: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2755: IF (l_debug = 1) THEN
2756: trace('lpn_match: update qty tree back with lpn 4th time: l_att:' || l_att);
2757: END IF;
2758: ELSE
2761: END IF;
2762: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2763: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2764: FND_MSG_PUB.ADD;
2765: RAISE FND_API.G_EXC_ERROR;
2766: END IF;
2767: ELSE
2768: inv_quantity_tree_pub.update_quantities
2769: ( p_api_version_number => 1.0
2766: END IF;
2767: ELSE
2768: inv_quantity_tree_pub.update_quantities
2769: ( p_api_version_number => 1.0
2770: , p_init_msg_lst => fnd_api.g_false
2771: , x_return_status => l_return_status
2772: , x_msg_count => l_msg_cnt
2773: , x_msg_data => l_msg_data
2774: , p_organization_id => p_org_id
2791: , x_atr => l_atr
2792: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
2793: , p_transfer_subinventory_code => l_xfr_sub_code
2794: );
2795: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2796: IF (l_debug = 1) THEN
2797: trace('lpn_match: update qty tree back without lpn 4th time:l_att:'||l_att);
2798: END IF;
2799: ELSE
2802: END IF;
2803: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2804: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2805: FND_MSG_PUB.ADD;
2806: RAISE FND_API.G_EXC_ERROR;
2807: END IF;
2808:
2809: END IF;
2810:
2898: CLOSE ser_csr;
2899: FND_MESSAGE.SET_NAME('INV','INV_SER_STATUS_NA');
2900: FND_MESSAGE.SET_TOKEN('TOKEN',l_serial_number);
2901: FND_MSG_PUB.ADD;
2902: RAISE FND_API.G_EXC_ERROR;
2903:
2904: END IF;
2905:
2906: END LOOP;
2932:
2933: FND_MESSAGE.SET_NAME('INV','INV_INVALID_LPN_STATUS');
2934: FND_MESSAGE.SET_TOKEN('TOKEN1',TO_CHAR(p_lpn));
2935: FND_MSG_PUB.ADD;
2936: RAISE FND_API.G_EXC_ERROR;
2937:
2938: END IF;
2939:
2940: END IF;
2974: END IF;
2975:
2976: x_temp_id := l_out_temp_id;
2977: x_qty := least(l_lpn_qty, p_qty);
2978: x_return_status := FND_API.G_RET_STS_SUCCESS;
2979:
2980: IF (l_debug = 1) THEN
2981: trace('lpn_match: Match :'||x_match);
2982: trace('lpn_match: x_loc_id :' || x_loc_id);
2987: END IF;
2988:
2989: EXCEPTION
2990:
2991: WHEN FND_API.G_EXC_ERROR THEN
2992: IF (l_debug = 1) THEN
2993: trace('lpn_match: Exception raised');
2994: END IF;
2995: x_return_status := FND_API.G_RET_STS_ERROR;
2991: WHEN FND_API.G_EXC_ERROR THEN
2992: IF (l_debug = 1) THEN
2993: trace('lpn_match: Exception raised');
2994: END IF;
2995: x_return_status := FND_API.G_RET_STS_ERROR;
2996: fnd_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data );
2997:
2998: WHEN OTHERS THEN
2999: IF (l_debug = 1) THEN
2998: WHEN OTHERS THEN
2999: IF (l_debug = 1) THEN
3000: trace('lpn_match: Other exception raised : ' || Sqlerrm);
3001: END IF;
3002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3003: fnd_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data );
3004:
3005: END get_lpn_match;
3006:
3190:
3191: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3192: BEGIN
3193: x_successful_row_cnt := 0;
3194: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3195:
3196: SAVEPOINT WMS_DEVICE_REQUESTS_SP_OUTER;
3197:
3198: --this header_id will be used to call TM for the batch
3220: l_lot_code := 0 ;
3221: l_serial_code := 0 ;
3222: l_wf := 0 ; -- 14028129
3223:
3224: IF l_rec.device_status <> FND_API.g_ret_sts_success THEN
3225: IF (l_debug = 1) THEN
3226: trace('DEVICE REQUEST has its status as ERROR ');
3227: END IF;
3228: FND_MESSAGE.SET_NAME('WMS', 'WMS_ERR_DEVICE_STATUS');
3629: trace('x_msg_data :'||x_msg_data);
3630: END IF;
3631:
3632:
3633: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3634: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3635: FND_MSG_PUB.ADD;
3636: --update wdr for error_code and error_mesg
3637: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3638: l_any_row_failed := TRUE;
3639: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
3640: GOTO continue_loop;
3641:
3642: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3643: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3644: FND_MSG_PUB.ADD;
3645: --update wdr for error_code and error_mesg
3646: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3746: WHEN OTHERS THEN
3747: IF (l_debug = 1) THEN
3748: trace('Error:Cannot find Employee id for user:'||fnd_global.user_id);
3749: END IF;
3750: RAISE fnd_api.g_exc_error;
3751: END; -- 14028129
3752:
3753:
3754: --Step1 Insert into WMS_DISPATCHED_TASKS --as "ACTIVE =9"
3850:
3851: validate_child_record(l_rec.relation_id,'Y',l_lot_code,l_serial_code,l_txn_temp_id,l_qty_discrepancy_flag,l_rec.transaction_quantity,x_return_status);
3852: --l_rec.task_id is same asl_txn_temp_id in this file
3853:
3854: IF x_return_status <> FND_API.g_ret_sts_success THEN
3855: IF (l_debug = 1) THEN
3856: trace('Error:In validating Lot/Serial information');
3857: END IF;
3858: FND_MESSAGE.SET_NAME('WMS', 'WMS_LOT_SER_VALIDATION_FAIL');
3997: --lot_qty should NOT be greater than allocated_lot_qty
3998:
3999: validate_child_record(l_rec.relation_id,'Y',l_lot_code,l_serial_code,l_txn_temp_id,l_qty_discrepancy_flag,l_rec.transaction_quantity,x_return_status);
4000:
4001: IF x_return_status <> FND_API.g_ret_sts_success THEN
4002: IF (l_debug = 1) THEN
4003: trace('Error:In validating Lot/Serial information');
4004: END IF;
4005: FND_MESSAGE.SET_NAME('WMS', 'WMS_LOT_SER_VALIDATION_FAIL');
4092: , x_msg_count => x_msg_count
4093: , x_msg_data => x_msg_data);
4094:
4095:
4096: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4097: FND_MESSAGE.SET_NAME('WMS','WMS_BACKORDER_FAILED');
4098: FND_MSG_PUB.ADD;
4099:
4100: --update wdr for error_code and error_mesg
4113: x_return_status => x_return_status,
4114: x_msg_count => x_msg_count,
4115: x_msg_data => x_msg_data);
4116:
4117: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4118: FND_MESSAGE.SET_NAME('WMS','WMS_BACKORDER_FAILED');
4119: FND_MSG_PUB.ADD;
4120:
4121: --update wdr for error_code and error_mesg
4176:
4177: wms_container_pvt.Modify_LPN
4178: (
4179: p_api_version => 1.0
4180: , p_validation_level => fnd_api.g_valid_level_none
4181: , x_return_status => x_return_status
4182: , x_msg_count => x_msg_count
4183: , x_msg_data => x_msg_data
4184: , p_lpn => l_lpn
4564: END IF;
4565:
4566: wms_txnrsn_actions_pub.log_exception
4567: (p_api_version_number =>1.0
4568: , p_init_msg_lst =>fnd_api.g_false
4569: , p_commit => FND_API.G_FALSE
4570: , x_return_status =>x_return_status
4571: , x_msg_count =>x_msg_count
4572: , x_msg_data =>x_msg_data
4565:
4566: wms_txnrsn_actions_pub.log_exception
4567: (p_api_version_number =>1.0
4568: , p_init_msg_lst =>fnd_api.g_false
4569: , p_commit => FND_API.G_FALSE
4570: , x_return_status =>x_return_status
4571: , x_msg_count =>x_msg_count
4572: , x_msg_data =>x_msg_data
4573: , p_organization_id =>l_rec.organization_id
4585: IF (l_debug = 1) THEN
4586: trace('After logging exception for qty discrepancy');
4587: END IF;
4588:
4589: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4590: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
4591: FND_MSG_PUB.ADD;
4592: --update wdr for error_code and error_mesg
4593: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4594: l_any_row_failed := TRUE;
4595: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
4596: GOTO continue_loop;
4597:
4598: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4599: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
4600: FND_MSG_PUB.ADD;
4601: --update wdr for error_code and error_mesg
4602: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4656: x_return_status => x_return_status ,
4657: x_msg_count => x_msg_count,
4658: x_msg_data => x_msg_data) ;
4659:
4660: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4661: IF (l_debug = 1) THEN
4662: trace('Error in call to SPLIT_MMTT');
4663: END IF;
4664: ELSE
4677: END IF;
4678:
4679: wms_workflow_wrappers.wf_wrapper
4680: (p_api_version => 1.0,
4681: p_init_msg_list => fnd_api.g_false,
4682: p_commit => fnd_api.g_false,
4683: x_return_status => x_return_status ,
4684: x_msg_count => x_msg_count,
4685: x_msg_data => x_msg_data,
4678:
4679: wms_workflow_wrappers.wf_wrapper
4680: (p_api_version => 1.0,
4681: p_init_msg_list => fnd_api.g_false,
4682: p_commit => fnd_api.g_false,
4683: x_return_status => x_return_status ,
4684: x_msg_count => x_msg_count,
4685: x_msg_data => x_msg_data,
4686: p_org_id => l_rec.organization_id ,
4697: IF (l_debug = 1) THEN
4698: trace('After Calling WF Wrapperfor Qty Discrepancy');
4699: END IF;
4700:
4701: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4702: IF (l_debug = 1) THEN
4703: trace('device_confirmation: Error callinf WF wrapper');
4704: END IF;
4705: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
4709: l_any_row_failed := TRUE;
4710: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
4711: GOTO continue_loop;
4712:
4713: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4714: IF (l_debug = 1) THEN
4715: trace('device_confirmation: Error calling WF wrapper');
4716: END IF;
4717: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
4752: );
4753: IF (l_debug = 1) THEN
4754: trace('x_return_status ' || x_return_status);
4755: END IF;
4756: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4757: IF l_debug = 1 THEN
4758: trace('Error occurred while deleting new MMTT');
4759: END IF;
4760: RAISE fnd_api.g_exc_error;
4756: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4757: IF l_debug = 1 THEN
4758: trace('Error occurred while deleting new MMTT');
4759: END IF;
4760: RAISE fnd_api.g_exc_error;
4761: END IF; /*BUG#5868236.END of fix. -- 14028129 */
4762:
4763: END IF; ---l_wf > 0
4764:
4812: x_msg_data => x_msg_data,
4813: p_lpn_id => l_rec.lpn_id,
4814: p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PACKING);
4815:
4816: IF ((x_return_status = FND_API.g_ret_sts_unexp_error) OR (x_return_status
4817: = FND_API.g_ret_sts_error)) THEN
4818:
4819: IF (l_debug = 1) THEN
4820: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4813: p_lpn_id => l_rec.lpn_id,
4814: p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PACKING);
4815:
4816: IF ((x_return_status = FND_API.g_ret_sts_unexp_error) OR (x_return_status
4817: = FND_API.g_ret_sts_error)) THEN
4818:
4819: IF (l_debug = 1) THEN
4820: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4821: END IF;
4847: x_msg_data => x_msg_data,
4848: p_lpn_id => l_rec.xfer_lpn_id,
4849: p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PACKING);
4850:
4851: IF ((x_return_status = FND_API.g_ret_sts_unexp_error) OR (x_return_status
4852: = FND_API.g_ret_sts_error)) THEN
4853:
4854: IF (l_debug = 1) THEN
4855: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4848: p_lpn_id => l_rec.xfer_lpn_id,
4849: p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PACKING);
4850:
4851: IF ((x_return_status = FND_API.g_ret_sts_unexp_error) OR (x_return_status
4852: = FND_API.g_ret_sts_error)) THEN
4853:
4854: IF (l_debug = 1) THEN
4855: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4856: END IF;
4938: trace('device_confirmation: Period is invalid');
4939: END IF;
4940: FND_MESSAGE.SET_NAME('INV', 'INV_NO_OPEN_PERIOD');
4941: FND_MSG_PUB.ADD;
4942: x_return_status := FND_API.g_ret_sts_error;
4943: ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER;
4944:
4945: END IF;
4946:
5005:
5006:
5007: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx
5008: (p_trx_hdr_id => l_txn_hdr_id,
5009: p_commit => fnd_api.g_false,
5010: x_proc_msg => x_msg_data);
5011:
5012: IF (l_debug = 1) THEN
5013: trace('After call to TM, Txn proc ret'||l_txn_ret);
5023:
5024: FND_MESSAGE.SET_NAME('WMS','WMS_TD_TXNMGR_ERROR' );
5025: FND_MSG_PUB.ADD;
5026:
5027: x_return_status := FND_API.g_ret_sts_error;
5028:
5029: ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER;
5030:
5031: ELSE
5064:
5065: wms_container_pvt.Modify_LPN
5066: (
5067: p_api_version => 1.0
5068: , p_validation_level => fnd_api.g_valid_level_none
5069: , x_return_status => x_return_status
5070: , x_msg_count => x_msg_count
5071: , x_msg_data => x_msg_data
5072: , p_lpn => l_lpn
5072: , p_lpn => l_lpn
5073: ) ;
5074:
5075:
5076: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
5077: x_return_status = FND_API.g_ret_sts_error THEN
5078:
5079: IF (l_debug = 1) THEN
5080: trace('device_confirmation: modify_lpn Unexpected error');
5073: ) ;
5074:
5075:
5076: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
5077: x_return_status = FND_API.g_ret_sts_error THEN
5078:
5079: IF (l_debug = 1) THEN
5080: trace('device_confirmation: modify_lpn Unexpected error');
5081: END IF;
5105: trace('device_confirmation:done with this API');
5106: END IF;
5107:
5108: EXCEPTION
5109: WHEN FND_API.g_exc_error THEN
5110: FND_MESSAGE.SET_NAME('WMS', 'WMS_DEV_REQ_FAIL');
5111: FND_MSG_PUB.ADD;
5112: --since all original records have been deleted from WDRH before making this
5113: --call
5137: IF (l_debug = 1) THEN
5138: trace('DEVICE_CONFIRMATION:Error: G_EXC_ERR');
5139: END IF;
5140: -- ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER;Commented for Bug#4535546
5141: x_return_status := FND_API.G_RET_STS_ERROR;
5142:
5143: x_msg_data:=GET_MSG_STACK ; --Bug#4535546.
5144:
5145: WHEN OTHERS THEN
5174: IF (l_debug = 1) THEN
5175: trace('DEVICE_CONFIRMATION:Error: G_UNEXC_ERR');
5176: END IF;
5177: -- ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER; Commented for Bug#4535546
5178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5179:
5180: x_msg_data:=GET_MSG_STACK ; --Bug#4535546.
5181:
5182: END device_confirmation;