[Home] [Help]
115: IF ( l_lot_cnt = 0 OR l_child_rec.lot_qty > l_orig_lot_qty ) THEN
116: IF (l_debug = 1) THEN
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
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');
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:
144: IF (l_serial_cnt = 0) THEN
145: IF (l_debug = 1) THEN
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
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');
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;
171: IF (l_serial_cnt = 0) THEN
172: IF (l_debug = 1) THEN
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
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');
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:
865: FROM mtl_material_transactions_temp
866: WHERE transaction_temp_id = p_txn_temp_id);
867: IF SQL%NOTFOUND THEN
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;
1116:
1117: IF (l_debug = 1) THEN
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:
1128:
1129: IF (l_debug = 1) THEN
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;
1165:
1166: IF l_loaded > 0 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;
1201:
1202: -- The calling java code treats this condition as an error
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;
1218: AND secondary_inventory_name = l_sub;
1219:
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:
1235:
1236: IF l_loc_active = 0 THEN
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;
1249: EXCEPTION
1250:
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;
1290:
1291: IF l_so_cnt > 0 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;
1345: IF (l_debug = 1) THEN
1346: trace('lpn_match: item lot rev combo does not exist');
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;
1377: IF (l_debug = 1) THEN
1378: trace('lpn_match:lot rev combo for the item does not exist');
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;
1426: WHEN no_data_found then
1427: IF (l_debug = 1) THEN
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:
1541: ELSE
1542: IF (l_debug = 1) THEN
1543: trace('lpn_match: calling update qty tree with lpn 1st time failed ');
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;
1542: IF (l_debug = 1) THEN
1543: trace('lpn_match: calling update qty tree with lpn 1st time failed ');
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
1582: ELSE
1583: IF (l_debug = 1) THEN
1584: trace('lpn_match: calling update qty tree back without lpn 1st time failed ');
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;
1583: IF (l_debug = 1) THEN
1584: trace('lpn_match: calling update qty tree back without lpn 1st time failed ');
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:
1663:
1664: IF (l_debug = 1) THEN
1665: trace('lpn_match: calling qty tree 1st time failed ');
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:
1664: IF (l_debug = 1) THEN
1665: trace('lpn_match: calling qty tree 1st time failed ');
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;
1708: ELSE
1709: IF (l_debug = 1) THEN
1710: trace('lpn_match: calling update qty tree back with lpn 1st time failed ');
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;
1709: IF (l_debug = 1) THEN
1710: trace('lpn_match: calling update qty tree back with lpn 1st time failed ');
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
1749: ELSE
1750: IF (l_debug = 1) THEN
1751: trace('lpn_match: calling update qty tree back without lpn 1st time failed ');
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;
1750: IF (l_debug = 1) THEN
1751: trace('lpn_match: calling update qty tree back without lpn 1st time failed ');
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;
1787: trace('lpn_match: LPN does not have the allocated serials ');
1788: END IF;
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:
1855: ELSE
1856: IF (l_debug = 1) THEN
1857: trace('lpn_match: calling update qty tree with lpn 2nd time failed ');
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;
1856: IF (l_debug = 1) THEN
1857: trace('lpn_match: calling update qty tree with lpn 2nd time failed ');
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
1896: ELSE
1897: IF (l_debug = 1) THEN
1898: trace('lpn_match: calling update qty tree back without lpn 2nd time failed ');
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;
1897: IF (l_debug = 1) THEN
1898: trace('lpn_match: calling update qty tree back without lpn 2nd time failed ');
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:
1940:
1941: IF (l_debug = 1) THEN
1942: trace('lpn_match: calling qty tree 2nd time failed ');
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:
1941: IF (l_debug = 1) THEN
1942: trace('lpn_match: calling qty tree 2nd time failed ');
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;
1985: ELSE
1986: IF (l_debug = 1) THEN
1987: trace('lpn_match: calling update qty tree with lpn 2nd time failed ');
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;
1986: IF (l_debug = 1) THEN
1987: trace('lpn_match: calling update qty tree with lpn 2nd time failed ');
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
2026: ELSE
2027: IF (l_debug = 1) THEN
2028: trace('lpn_match: calling update qty tree back without lpn 2nd time failed ');
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;
2027: IF (l_debug = 1) THEN
2028: trace('lpn_match: calling update qty tree back without lpn 2nd time failed ');
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:
2102: trace('lpn_match: No serial allocations have occured or LPN does not have the allocated serials ');
2103: END IF;
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;
2177: ELSE
2178: IF (l_debug = 1) THEN
2179: trace('lpn_match: calling update qty tree with lpn 3rd time failed ');
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;
2178: IF (l_debug = 1) THEN
2179: trace('lpn_match: calling update qty tree with lpn 3rd time failed ');
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
2218: ELSE
2219: IF (l_debug = 1) THEN
2220: trace('lpn_match: calling update qty tree back 3rd time without lpn 3rd time failed ');
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;
2219: IF (l_debug = 1) THEN
2220: trace('lpn_match: calling update qty tree back 3rd time without lpn 3rd time failed ');
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:
2314:
2315: IF (l_debug = 1) THEN
2316: trace('lpn_match: calling qty tree 3rd time failed ');
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:
2315: IF (l_debug = 1) THEN
2316: trace('lpn_match: calling qty tree 3rd time failed ');
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;
2405: ELSE
2406: IF (l_debug = 1) THEN
2407: trace('lpn_match: calling update qty tree with lpn 3rd time failed ');
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;
2406: IF (l_debug = 1) THEN
2407: trace('lpn_match: calling update qty tree with lpn 3rd time failed ');
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
2446: ELSE
2447: IF (l_debug = 1) THEN
2448: trace('lpn_match: calling update qty tree back without lpn 3rd time failed ');
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;
2447: IF (l_debug = 1) THEN
2448: trace('lpn_match: calling update qty tree back without lpn 3rd time failed ');
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:
2540: trace('lpn_match: LPN does not have the allocated serials ');
2541: END IF;
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:
2592: ELSE
2593: IF (l_debug = 1) THEN
2594: trace('lpn_match: calling update qty tree with lpn 4th time failed ');
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;
2593: IF (l_debug = 1) THEN
2594: trace('lpn_match: calling update qty tree with lpn 4th time failed ');
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
2633: ELSE
2634: IF (l_debug = 1) THEN
2635: trace('lpn_match: calling update qty tree without lpn 4th time failed ');
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;
2634: IF (l_debug = 1) THEN
2635: trace('lpn_match: calling update qty tree without lpn 4th time failed ');
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:
2713:
2714: IF (l_debug = 1) THEN
2715: trace('lpn_match: calling qty tree 4th time failed');
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:
2714: IF (l_debug = 1) THEN
2715: trace('lpn_match: calling qty tree 4th time failed');
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;
2758: ELSE
2759: IF (l_debug = 1) THEN
2760: trace('lpn_match: calling update qty tree back with lpn 4th time failed ');
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;
2759: IF (l_debug = 1) THEN
2760: trace('lpn_match: calling update qty tree back with lpn 4th time failed ');
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
2799: ELSE
2800: IF (l_debug = 1) THEN
2801: trace('lpn_match: calling update qty tree back without lpn 4th time failed ');
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;
2800: IF (l_debug = 1) THEN
2801: trace('lpn_match: calling update qty tree back without lpn 4th time failed ');
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:
2895: trace('lpn_match: After 6');
2896: END IF;
2897: x_match := 11;
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:
2896: END IF;
2897: x_match := 11;
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;
2929: x_match := 8;
2930:
2931: -- LPN status is invalid for this operation
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:
2930:
2931: -- LPN status is invalid for this operation
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;
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');
3229: FND_MSG_PUB.ADD;
3230:
3231: --update wdr for error_code and error_mesg
3232: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3238: IF l_rec.relation_id IS NULL OR l_rec.task_id IS NULL THEN
3239: IF (l_debug = 1) THEN
3240: trace('Error: parent_request_id or task_id is null for Task Confirm');
3241: END IF;
3242: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISSING_TASK_INFO');
3243: FND_MSG_PUB.ADD;
3244:
3245: --update wdr for error_code and error_mesg
3246: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3263: AND ROWNUM <2;
3264: EXCEPTION
3265: WHEN no_data_found THEN
3266:
3267: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISSING_TASK_INFO');
3268: FND_MSG_PUB.ADD;
3269:
3270: --update wdr for error_code and error_mesg
3271: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3329: ELSIF (l_rec.transaction_quantity > l_mmtt_txn_qty) THEN
3330: IF (l_debug = 1) THEN
3331: trace('Quantity is not valid in the record');
3332: END IF;
3333: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_QTY');
3334: FND_MSG_PUB.ADD;
3335:
3336: --update wdr for error_code and mesg
3337: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3361: WHEN no_data_found THEN
3362: IF (l_debug = 1) THEN
3363: trace('Invalid Sub:This Subinventory does not exist');
3364: END IF;
3365: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SUB');
3366: FND_MSG_PUB.ADD;
3367:
3368: --update wdr for error_code and mesg
3369: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3374: IF (l_lpn_controlled_flag IS NULL) OR (l_lpn_controlled_flag <> wms_globals.g_lpn_controlled_sub) THEN
3375: IF (l_debug = 1) THEN
3376: trace('Invalid Sub:SUB is not LPN Controlled');
3377: END IF;
3378: FND_MESSAGE.SET_NAME('WMS', 'WMS_SUB_NOLPN_CTRLD');
3379: FND_MSG_PUB.ADD;
3380: --update wdr for error_code and mesg
3381: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3382: l_any_row_failed := TRUE;
3404: IF (l_count = 0) THEN
3405: IF (l_debug = 1) THEN
3406: trace('Invalid Locator:Locator does not exist in this Sub/Org');
3407: END IF;
3408: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LOC');--done
3409: FND_MSG_PUB.ADD;
3410:
3411: --update wdr for error_code and mesg
3412: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3437: --with lpn_id in WDR being populated
3438: IF (l_debug = 1) THEN
3439: trace('Error:Invalid Picked LPN:allocated LPN and picked LPNs do NOT match');
3440: END IF;
3441: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISMATCH_LPN');
3442: FND_MSG_PUB.ADD;
3443:
3444: --update wdr for error_code and error_mesg
3445: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3470: WHEN no_data_found THEN
3471: IF (l_debug = 1) THEN
3472: trace('Error:NO data found for picked lpn_id:'||l_rec.lpn_id);
3473: END IF;
3474: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3475: FND_MSG_PUB.ADD;
3476:
3477: --update wdr for error_code and error_mesg
3478: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3483: IF l_pick_lpn_context NOT IN ( wms_container_pub.lpn_context_pregenerated,wms_container_pub.LPN_CONTEXT_INV) THEN
3484: IF (l_debug = 1) THEN
3485: trace('Invalid LPN context for picked LPN:'||l_rec.lpn_id||'::context::'||l_pick_lpn_context);
3486: END IF;
3487: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3488: FND_MSG_PUB.ADD;
3489:
3490: --update wdr for error_code and error_mesg
3491: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3536: IF l_loc_id <> x_loc_id THEN
3537: IF (l_debug = 1) THEN
3538: trace('Error:Unallowed LPN:substituted LPN must be picked from suggested Location');
3539: END IF;
3540: FND_MESSAGE.SET_NAME('WMS', 'WMS_SUBST_LPN_ERR');
3541: FND_MSG_PUB.ADD;
3542:
3543: --update wdr for error_code and error_mesg
3544: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3575: WHEN no_data_found THEN
3576: IF (l_debug = 1) THEN
3577: trace('Error:NO data found for xfer_lpn_id:'||l_rec.xfer_lpn_id);
3578: END IF;
3579: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3580: FND_MSG_PUB.ADD;
3581:
3582: --update wdr for error_code and error_mesg
3583: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3590: wms_container_pub.lpn_context_pregenerated,wms_container_pub.LPN_CONTEXT_INV) THEN
3591: IF (l_debug = 1) THEN
3592: trace('Invalid LPN context for xfer_LPN:'||l_rec.xfer_lpn_id||'::context::'||l_lpn_context);
3593: END IF;
3594: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3595: FND_MSG_PUB.ADD;
3596:
3597: --update wdr for error_code and error_mesg
3598: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
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;
3647: l_any_row_failed := TRUE;
3654: --l_rec.transaction_quantity =0 no need for xfer_lpn_id
3655: IF (l_debug = 1) THEN
3656: trace('Error:No infomration about xfer_LPN_id was passed from WCS');
3657: END IF;
3658: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISSING_XFER_LPN');
3659: FND_MSG_PUB.ADD;
3660:
3661: --update wdr for error_code and error_mesg
3662: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3682: l_serial_code<>6) THEN
3683: IF (l_debug = 1) THEN
3684: trace('Error:UnderPick of Serial item is not supported');
3685: END IF;
3686: FND_MESSAGE.SET_NAME('WMS', 'WMS_SER_SHORT_PICK_ERR');
3687: FND_MSG_PUB.ADD;
3688:
3689: --update wdr for error_code and error_mesg
3690: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3728: WHEN no_data_found THEN
3729: IF (l_debug = 1) THEN
3730: trace('Error: Resources associated with User Task Type stamped on current task are not of type Person');
3731: END IF;
3732: FND_MESSAGE.SET_NAME('WMS','WMS_RES_TASK_TYPE_ERR');
3733: FND_MSG_PUB.ADD;
3734: --update wdr for error_code and error_mesg
3735: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3736: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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');
3859: FND_MSG_PUB.ADD;
3860:
3861: --update wdr for error_code and error_mesg
3862: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3902: --Error
3903: IF (l_debug = 1) THEN
3904: trace('error out,Can not move the entire LPN');
3905: END IF;
3906: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVLID_LPN_MOVE');
3907: FND_MSG_PUB.ADD;
3908:
3909: --update wdr for error_code and error_mesg
3910: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3916: --ERROR;
3917: IF (l_debug = 1) THEN
3918: trace('error out,qty picked is more then pickable qty in LPN');
3919: END IF;
3920: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_QTY');
3921: FND_MSG_PUB.ADD;
3922:
3923: --update wdr for error_code and error_mesg
3924: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3940: --ERROR;
3941: IF (l_debug = 1) THEN
3942: trace('error out,Can not move the entire LPN');
3943: END IF;
3944: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
3945: FND_MSG_PUB.ADD;
3946:
3947: --update wdr for error_code and error_mesg
3948: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
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');
4006: FND_MSG_PUB.ADD;
4007:
4008: --update wdr for error_code and error_mesg
4009: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
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
4101: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
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
4122: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4314: --ERROR;
4315: IF (l_debug = 1) THEN
4316: trace('error out,Can not move the entire LPN');
4317: END IF;
4318: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
4319: FND_MSG_PUB.ADD;
4320: --update wdr for error_code and error_mesg
4321: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4322: l_any_row_failed := TRUE;
4344: --Error
4345: IF (l_debug = 1) THEN
4346: trace('error out,Can not move the entire LPN');
4347: END IF;
4348: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
4349: FND_MSG_PUB.ADD;
4350: --update wdr for error_code and error_mesg
4351: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4352: l_any_row_failed := TRUE;
4356: --ERROR;
4357: IF (l_debug = 1) THEN
4358: trace('error out,qty picked is more then pickable qty in LPN');
4359: END IF;
4360: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_QTY');
4361: FND_MSG_PUB.ADD;
4362: --update wdr for error_code and error_mesg
4363: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4364: l_any_row_failed := TRUE;
4388: --ERROR;
4389: IF (l_debug = 1) THEN
4390: trace('error out,Can not move the entire LPN');
4391: END IF;
4392: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
4393: FND_MSG_PUB.ADD;
4394: --update wdr for error_code and error_mesg
4395: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4396: l_any_row_failed := TRUE;
4407: --ERROR;
4408: IF (l_debug = 1) THEN
4409: trace('error out,qty picked is more then pickable qty in LPN');
4410: END IF;
4411: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_QTY');
4412: FND_MSG_PUB.ADD;
4413: --update wdr for error_code and error_mesg
4414: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4415: l_any_row_failed := TRUE;
4423: --ERROR;
4424: IF (l_debug = 1) THEN
4425: trace('error out,Can not move the entire LPN');
4426: END IF;
4427: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
4428: FND_MSG_PUB.ADD;
4429: --update wdr for error_code and error_mesg
4430: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4431: l_any_row_failed := TRUE;
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;
4603: l_any_row_failed := TRUE;
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');
4706: FND_MSG_PUB.ADD;
4707: --update wdr for error_code and error_mesg
4708: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4709: l_any_row_failed := TRUE;
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');
4718: FND_MSG_PUB.ADD;
4719: --update wdr for error_code and error_mesg
4720: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4721: l_any_row_failed := TRUE;
4818:
4819: IF (l_debug = 1) THEN
4820: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4821: END IF;
4822: FND_MESSAGE.SET_NAME('WMS','WMS_TD_MODIFY_LPN_ERROR');
4823: FND_MSG_PUB.ADD;
4824: --update wdr for error_code and error_mesg
4825: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4826: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
4853:
4854: IF (l_debug = 1) THEN
4855: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4856: END IF;
4857: FND_MESSAGE.SET_NAME('WMS','WMS_TD_MODIFY_LPN_ERROR');
4858: FND_MSG_PUB.ADD;
4859: --update wdr for error_code and error_mesg
4860: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4861: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
4874: ELSE--means l_txn_temp_id IS NULL,No corresponding record in WDRH
4875: IF (l_debug = 1) THEN
4876: trace('parent_request_id is not valid');
4877: END IF;
4878: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISSING_TASK_INFO');
4879: FND_MSG_PUB.ADD;
4880: --update wdr for error_code and error_mesg
4881: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4882: l_any_row_failed := TRUE;
4936: ELSE
4937: IF (l_debug = 1) THEN
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:
5020: IF (l_debug = 1) THEN
5021: trace('*************TM call FAILED***************');
5022: END IF;
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:
5078:
5079: IF (l_debug = 1) THEN
5080: trace('device_confirmation: modify_lpn Unexpected error');
5081: END IF;
5082: FND_MESSAGE.SET_NAME('WMS','WMS_TD_MODIFY_LPN_ERROR' );
5083: FND_MSG_PUB.ADD;
5084: --rollback the batch
5085: ROLLBACK TO wms_device_requests_sp_outer;
5086:
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
5114: IF (l_debug = 1) THEN
5143: x_msg_data:=GET_MSG_STACK ; --Bug#4535546.
5144:
5145: WHEN OTHERS THEN
5146:
5147: FND_MESSAGE.SET_NAME('WMS', 'WMS_DEV_REQ_FAIL');
5148: FND_MSG_PUB.ADD;
5149: --since all original records have been deleted from WDRH before making this
5150: --call
5151: IF (l_debug = 1) THEN