114: IF ( l_lot_cnt = 0 OR l_child_rec.lot_qty > l_orig_lot_qty ) THEN
115: IF (l_debug = 1) THEN
116: trace('Invalid Lot:Allocated Lot is not chosen or qty is greater');
117: END IF;
118: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LOT');
119: FND_MSG_PUB.ADD;
120: RAISE FND_API.G_EXC_ERROR;
121: END IF;
122: ELSIF p_error_on_lot_serial_null = 'Y' THEN--l_rec.LOT_NUMBER is null
122: ELSIF p_error_on_lot_serial_null = 'Y' THEN--l_rec.LOT_NUMBER is null
123: IF (l_debug = 1) THEN
124: trace('Erroring out:Lot info NOT provided in child record');
125: END IF;
126: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LOT');
127: FND_MSG_PUB.ADD;
128: RAISE FND_API.G_EXC_ERROR;
129: END IF;
130:
143: IF (l_serial_cnt = 0) THEN
144: IF (l_debug = 1) THEN
145: trace('Invalid Serial:Either allocate_serial_flag IS off FOR the org OR Allocated Serial is not chosen');
146: END IF;
147: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
148: FND_MSG_PUB.ADD;
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
151: ELSIF p_error_on_lot_serial_null = 'Y' THEN --l_child_rec.serial_number IS NULL
151: ELSIF p_error_on_lot_serial_null = 'Y' THEN --l_child_rec.serial_number IS NULL
152: IF (l_debug = 1) THEN
153: trace('Erroring out:serial info NOT provided in child record');
154: END IF;
155: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
156: FND_MSG_PUB.ADD;
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
159: END IF;
170: IF (l_serial_cnt = 0) THEN
171: IF (l_debug = 1) THEN
172: trace('Invalid Serial:Either allocate_serial_flag IS off FOR the org OR Allocated Serial is not chosen');
173: END IF;
174: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
175: FND_MSG_PUB.ADD;
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178: ELSIF p_error_on_lot_serial_null = 'Y' THEN --l_child_rec.serial_number IS NULL
178: ELSIF p_error_on_lot_serial_null = 'Y' THEN --l_child_rec.serial_number IS NULL
179: IF (l_debug = 1) THEN
180: trace('Erroring out:serial info NOT provided in child record');
181: END IF;
182: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
183: FND_MSG_PUB.ADD;
184: RAISE FND_API.G_EXC_ERROR;
185: END IF;
186:
597:
598: IF (l_debug = 1) THEN
599: trace('lpn_match: lpn does not exist in org');
600: END IF;
601: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
602: FND_MSG_PUB.ADD;
603: RAISE FND_API.G_EXC_ERROR;
604: END;
605:
609:
610: IF (l_debug = 1) THEN
611: trace('lpn_match: lpn does not exist in org');
612: END IF;
613: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
614: FND_MSG_PUB.ADD;
615: RAISE FND_API.G_EXC_ERROR;
616:
617: END IF;
646:
647: IF l_loaded > 0 THEN
648:
649: x_match := 7;
650: FND_MESSAGE.SET_NAME('WMS','WMS_LOADED_ERROR');
651: FND_MSG_PUB.ADD;
652: RAISE FND_API.G_EXC_ERROR;
653:
654: END IF;
682:
683: -- The calling java code treats this condition as an error
684:
685: x_match := 10;
686: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_SUB');
687: FND_MSG_PUB.ADD;
688: RAISE FND_API.G_EXC_ERROR;
689:
690: END IF;
699: AND secondary_inventory_name = l_sub;
700:
701: IF l_sub_active = 0 THEN
702: x_match := 10;
703: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_SUB');
704: FND_MSG_PUB.ADD;
705: RAISE FND_API.G_EXC_ERROR;
706: END IF;
707:
716:
717: IF l_loc_active = 0 THEN
718:
719: x_match := 10;
720: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LOC');
721: FND_MSG_PUB.ADD;
722: RAISE FND_API.G_EXC_ERROR;
723:
724: END IF;
730: EXCEPTION
731:
732: WHEN NO_DATA_FOUND THEN
733: x_match := 6;
734: FND_MESSAGE.SET_NAME('WMS','WMS_TD_LPN_LOC_NOT_FOUND');
735: FND_MSG_PUB.ADD;
736: RAISE FND_API.G_EXC_ERROR;
737:
738: END;
770:
771: IF l_so_cnt > 0 THEN
772:
773: x_match := 12;
774: FND_MESSAGE.SET_NAME('WMS','WMS_LPN_STAGED');
775: FND_MSG_PUB.ADD;
776: RAISE FND_API.G_EXC_ERROR;
777:
778: END IF;
825: IF (l_debug = 1) THEN
826: trace('lpn_match: item lot rev combo does not exist');
827: END IF;
828: x_match := 5;
829: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
830: FND_MSG_PUB.ADD;
831: RAISE FND_API.G_EXC_ERROR;
832:
833: END;
857: IF (l_debug = 1) THEN
858: trace('lpn_match:lot rev combo for the item does not exist');
859: END IF;
860: x_match := 5;
861: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LOT_LPN');
862: FND_MSG_PUB.ADD;
863: RAISE FND_API.G_EXC_ERROR;
864:
865: END;
906: WHEN no_data_found then
907: IF (l_debug = 1) THEN
908: trace ('lpn_match: transaction does not exist in mmtt');
909: END IF;
910: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TRANSACTION');
911: FND_MSG_PUB.ADD;
912: RAISE FND_API.G_EXC_ERROR;
913: END;
914:
1021: ELSE
1022: IF (l_debug = 1) THEN
1023: trace('lpn_match: calling update qty tree with lpn 1st time failed ');
1024: END IF;
1025: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1026: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1027: FND_MSG_PUB.ADD;
1028: RAISE FND_API.G_EXC_ERROR;
1029: END IF;
1022: IF (l_debug = 1) THEN
1023: trace('lpn_match: calling update qty tree with lpn 1st time failed ');
1024: END IF;
1025: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1026: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1027: FND_MSG_PUB.ADD;
1028: RAISE FND_API.G_EXC_ERROR;
1029: END IF;
1030: ELSE
1062: ELSE
1063: IF (l_debug = 1) THEN
1064: trace('lpn_match: calling update qty tree back without lpn 1st time failed ');
1065: END IF;
1066: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1067: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1068: FND_MSG_PUB.ADD;
1069: RAISE FND_API.G_EXC_ERROR;
1070: END IF;
1063: IF (l_debug = 1) THEN
1064: trace('lpn_match: calling update qty tree back without lpn 1st time failed ');
1065: END IF;
1066: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1067: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1068: FND_MSG_PUB.ADD;
1069: RAISE FND_API.G_EXC_ERROR;
1070: END IF;
1071:
1143:
1144: IF (l_debug = 1) THEN
1145: trace('lpn_match: calling qty tree 1st time failed ');
1146: END IF;
1147: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1148: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1149: FND_MSG_PUB.ADD;
1150: RAISE FND_API.G_EXC_ERROR;
1151:
1144: IF (l_debug = 1) THEN
1145: trace('lpn_match: calling qty tree 1st time failed ');
1146: END IF;
1147: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1148: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1149: FND_MSG_PUB.ADD;
1150: RAISE FND_API.G_EXC_ERROR;
1151:
1152: END IF;
1188: ELSE
1189: IF (l_debug = 1) THEN
1190: trace('lpn_match: calling update qty tree back with lpn 1st time failed ');
1191: END IF;
1192: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1193: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1194: FND_MSG_PUB.ADD;
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1189: IF (l_debug = 1) THEN
1190: trace('lpn_match: calling update qty tree back with lpn 1st time failed ');
1191: END IF;
1192: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1193: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1194: FND_MSG_PUB.ADD;
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197: ELSE
1229: ELSE
1230: IF (l_debug = 1) THEN
1231: trace('lpn_match: calling update qty tree back without lpn 1st time failed ');
1232: END IF;
1233: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1234: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1235: FND_MSG_PUB.ADD;
1236: RAISE FND_API.G_EXC_ERROR;
1237: END IF;
1230: IF (l_debug = 1) THEN
1231: trace('lpn_match: calling update qty tree back without lpn 1st time failed ');
1232: END IF;
1233: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1234: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1235: FND_MSG_PUB.ADD;
1236: RAISE FND_API.G_EXC_ERROR;
1237: END IF;
1238: END IF;
1267: trace('lpn_match: LPN does not have the allocated serials ');
1268: END IF;
1269: -- Serial numbers missing for the transaction
1270: x_match := 9;
1271: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
1272: FND_MSG_PUB.ADD;
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1275:
1335: ELSE
1336: IF (l_debug = 1) THEN
1337: trace('lpn_match: calling update qty tree with lpn 2nd time failed ');
1338: END IF;
1339: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1340: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1341: FND_MSG_PUB.ADD;
1342: RAISE FND_API.G_EXC_ERROR;
1343: END IF;
1336: IF (l_debug = 1) THEN
1337: trace('lpn_match: calling update qty tree with lpn 2nd time failed ');
1338: END IF;
1339: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1340: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1341: FND_MSG_PUB.ADD;
1342: RAISE FND_API.G_EXC_ERROR;
1343: END IF;
1344: ELSE
1376: ELSE
1377: IF (l_debug = 1) THEN
1378: trace('lpn_match: calling update qty tree back without lpn 2nd time failed ');
1379: END IF;
1380: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1381: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1382: FND_MSG_PUB.ADD;
1383: RAISE FND_API.G_EXC_ERROR;
1384: END IF;
1377: IF (l_debug = 1) THEN
1378: trace('lpn_match: calling update qty tree back without lpn 2nd time failed ');
1379: END IF;
1380: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1381: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1382: FND_MSG_PUB.ADD;
1383: RAISE FND_API.G_EXC_ERROR;
1384: END IF;
1385:
1420:
1421: IF (l_debug = 1) THEN
1422: trace('lpn_match: calling qty tree 2nd time failed ');
1423: END IF;
1424: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1425: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1426: FND_MSG_PUB.add;
1427: RAISE FND_API.G_EXC_ERROR;
1428:
1421: IF (l_debug = 1) THEN
1422: trace('lpn_match: calling qty tree 2nd time failed ');
1423: END IF;
1424: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1425: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1426: FND_MSG_PUB.add;
1427: RAISE FND_API.G_EXC_ERROR;
1428:
1429: END IF;
1465: ELSE
1466: IF (l_debug = 1) THEN
1467: trace('lpn_match: calling update qty tree with lpn 2nd time failed ');
1468: END IF;
1469: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1470: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1471: FND_MSG_PUB.ADD;
1472: RAISE FND_API.G_EXC_ERROR;
1473: END IF;
1466: IF (l_debug = 1) THEN
1467: trace('lpn_match: calling update qty tree with lpn 2nd time failed ');
1468: END IF;
1469: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1470: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1471: FND_MSG_PUB.ADD;
1472: RAISE FND_API.G_EXC_ERROR;
1473: END IF;
1474: ELSE
1506: ELSE
1507: IF (l_debug = 1) THEN
1508: trace('lpn_match: calling update qty tree back without lpn 2nd time failed ');
1509: END IF;
1510: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1511: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1512: FND_MSG_PUB.ADD;
1513: RAISE FND_API.G_EXC_ERROR;
1514: END IF;
1507: IF (l_debug = 1) THEN
1508: trace('lpn_match: calling update qty tree back without lpn 2nd time failed ');
1509: END IF;
1510: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1511: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1512: FND_MSG_PUB.ADD;
1513: RAISE FND_API.G_EXC_ERROR;
1514: END IF;
1515:
1582: trace('lpn_match: No serial allocations have occured or LPN does not have the allocated serials ');
1583: END IF;
1584: -- Serial numbers missing for the transaction
1585: x_match := 9;
1586: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
1587: FND_MSG_PUB.ADD;
1588: RAISE FND_API.G_EXC_ERROR;
1589:
1590: END IF;
1657: ELSE
1658: IF (l_debug = 1) THEN
1659: trace('lpn_match: calling update qty tree with lpn 3rd time failed ');
1660: END IF;
1661: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1662: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1663: FND_MSG_PUB.ADD;
1664: RAISE FND_API.G_EXC_ERROR;
1665: END IF;
1658: IF (l_debug = 1) THEN
1659: trace('lpn_match: calling update qty tree with lpn 3rd time failed ');
1660: END IF;
1661: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1662: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1663: FND_MSG_PUB.ADD;
1664: RAISE FND_API.G_EXC_ERROR;
1665: END IF;
1666: ELSE
1698: ELSE
1699: IF (l_debug = 1) THEN
1700: trace('lpn_match: calling update qty tree back 3rd time without lpn 3rd time failed ');
1701: END IF;
1702: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1703: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1704: FND_MSG_PUB.ADD;
1705: RAISE FND_API.G_EXC_ERROR;
1706: END IF;
1699: IF (l_debug = 1) THEN
1700: trace('lpn_match: calling update qty tree back 3rd time without lpn 3rd time failed ');
1701: END IF;
1702: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1703: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1704: FND_MSG_PUB.ADD;
1705: RAISE FND_API.G_EXC_ERROR;
1706: END IF;
1707:
1794:
1795: IF (l_debug = 1) THEN
1796: trace('lpn_match: calling qty tree 3rd time failed ');
1797: END IF;
1798: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1799: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1800: FND_MSG_PUB.add;
1801: RAISE FND_API.G_EXC_ERROR;
1802:
1795: IF (l_debug = 1) THEN
1796: trace('lpn_match: calling qty tree 3rd time failed ');
1797: END IF;
1798: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1799: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1800: FND_MSG_PUB.add;
1801: RAISE FND_API.G_EXC_ERROR;
1802:
1803: END IF;
1885: ELSE
1886: IF (l_debug = 1) THEN
1887: trace('lpn_match: calling update qty tree with lpn 3rd time failed ');
1888: END IF;
1889: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1890: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1891: FND_MSG_PUB.ADD;
1892: RAISE FND_API.G_EXC_ERROR;
1893: END IF;
1886: IF (l_debug = 1) THEN
1887: trace('lpn_match: calling update qty tree with lpn 3rd time failed ');
1888: END IF;
1889: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1890: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1891: FND_MSG_PUB.ADD;
1892: RAISE FND_API.G_EXC_ERROR;
1893: END IF;
1894: ELSE
1926: ELSE
1927: IF (l_debug = 1) THEN
1928: trace('lpn_match: calling update qty tree back without lpn 3rd time failed ');
1929: END IF;
1930: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1931: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1932: FND_MSG_PUB.ADD;
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1927: IF (l_debug = 1) THEN
1928: trace('lpn_match: calling update qty tree back without lpn 3rd time failed ');
1929: END IF;
1930: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1931: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1932: FND_MSG_PUB.ADD;
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1935:
2020: trace('lpn_match: LPN does not have the allocated serials ');
2021: END IF;
2022: -- Serial numbers missing for the transaction
2023: x_match := 9;
2024: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
2025: FND_MSG_PUB.ADD;
2026: RAISE FND_API.G_EXC_ERROR;
2027: END IF;
2028:
2072: ELSE
2073: IF (l_debug = 1) THEN
2074: trace('lpn_match: calling update qty tree with lpn 4th time failed ');
2075: END IF;
2076: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2077: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2078: FND_MSG_PUB.ADD;
2079: RAISE FND_API.G_EXC_ERROR;
2080: END IF;
2073: IF (l_debug = 1) THEN
2074: trace('lpn_match: calling update qty tree with lpn 4th time failed ');
2075: END IF;
2076: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2077: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2078: FND_MSG_PUB.ADD;
2079: RAISE FND_API.G_EXC_ERROR;
2080: END IF;
2081: ELSE
2113: ELSE
2114: IF (l_debug = 1) THEN
2115: trace('lpn_match: calling update qty tree without lpn 4th time failed ');
2116: END IF;
2117: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2118: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2119: FND_MSG_PUB.ADD;
2120: RAISE FND_API.G_EXC_ERROR;
2121: END IF;
2114: IF (l_debug = 1) THEN
2115: trace('lpn_match: calling update qty tree without lpn 4th time failed ');
2116: END IF;
2117: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2118: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2119: FND_MSG_PUB.ADD;
2120: RAISE FND_API.G_EXC_ERROR;
2121: END IF;
2122:
2193:
2194: IF (l_debug = 1) THEN
2195: trace('lpn_match: calling qty tree 4th time failed');
2196: END IF;
2197: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2198: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2199: FND_MSG_PUB.add;
2200: RAISE FND_API.G_EXC_ERROR;
2201:
2194: IF (l_debug = 1) THEN
2195: trace('lpn_match: calling qty tree 4th time failed');
2196: END IF;
2197: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2198: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2199: FND_MSG_PUB.add;
2200: RAISE FND_API.G_EXC_ERROR;
2201:
2202: END IF;
2238: ELSE
2239: IF (l_debug = 1) THEN
2240: trace('lpn_match: calling update qty tree back with lpn 4th time failed ');
2241: END IF;
2242: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2243: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2244: FND_MSG_PUB.ADD;
2245: RAISE FND_API.G_EXC_ERROR;
2246: END IF;
2239: IF (l_debug = 1) THEN
2240: trace('lpn_match: calling update qty tree back with lpn 4th time failed ');
2241: END IF;
2242: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2243: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2244: FND_MSG_PUB.ADD;
2245: RAISE FND_API.G_EXC_ERROR;
2246: END IF;
2247: ELSE
2279: ELSE
2280: IF (l_debug = 1) THEN
2281: trace('lpn_match: calling update qty tree back without lpn 4th time failed ');
2282: END IF;
2283: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2284: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2285: FND_MSG_PUB.ADD;
2286: RAISE FND_API.G_EXC_ERROR;
2287: END IF;
2280: IF (l_debug = 1) THEN
2281: trace('lpn_match: calling update qty tree back without lpn 4th time failed ');
2282: END IF;
2283: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2284: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2285: FND_MSG_PUB.ADD;
2286: RAISE FND_API.G_EXC_ERROR;
2287: END IF;
2288:
2375: trace('lpn_match: After 6');
2376: END IF;
2377: x_match := 11;
2378: CLOSE ser_csr;
2379: FND_MESSAGE.SET_NAME('INV','INV_SER_STATUS_NA');
2380: FND_MESSAGE.SET_TOKEN('TOKEN',l_serial_number);
2381: FND_MSG_PUB.ADD;
2382: RAISE FND_API.G_EXC_ERROR;
2383:
2376: END IF;
2377: x_match := 11;
2378: CLOSE ser_csr;
2379: FND_MESSAGE.SET_NAME('INV','INV_SER_STATUS_NA');
2380: FND_MESSAGE.SET_TOKEN('TOKEN',l_serial_number);
2381: FND_MSG_PUB.ADD;
2382: RAISE FND_API.G_EXC_ERROR;
2383:
2384: END IF;
2409: x_match := 8;
2410:
2411: -- LPN status is invalid for this operation
2412:
2413: FND_MESSAGE.SET_NAME('INV','INV_INVALID_LPN_STATUS');
2414: FND_MESSAGE.SET_TOKEN('TOKEN1',TO_CHAR(p_lpn));
2415: FND_MSG_PUB.ADD;
2416: RAISE FND_API.G_EXC_ERROR;
2417:
2410:
2411: -- LPN status is invalid for this operation
2412:
2413: FND_MESSAGE.SET_NAME('INV','INV_INVALID_LPN_STATUS');
2414: FND_MESSAGE.SET_TOKEN('TOKEN1',TO_CHAR(p_lpn));
2415: FND_MSG_PUB.ADD;
2416: RAISE FND_API.G_EXC_ERROR;
2417:
2418: END IF;
2680: IF l_rec.device_status <> FND_API.g_ret_sts_success THEN
2681: IF (l_debug = 1) THEN
2682: trace('DEVICE REQUEST has its status as ERROR ');
2683: END IF;
2684: FND_MESSAGE.SET_NAME('WMS', 'WMS_ERR_DEVICE_STATUS');
2685: FND_MSG_PUB.ADD;
2686:
2687: --update wdr for error_code and error_mesg
2688: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2694: IF l_rec.relation_id IS NULL OR l_rec.task_id IS NULL THEN
2695: IF (l_debug = 1) THEN
2696: trace('Error: parent_request_id or task_id is null for Task Confirm');
2697: END IF;
2698: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISSING_TASK_INFO');
2699: FND_MSG_PUB.ADD;
2700:
2701: --update wdr for error_code and error_mesg
2702: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2719: AND ROWNUM <2;
2720: EXCEPTION
2721: WHEN no_data_found THEN
2722:
2723: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISSING_TASK_INFO');
2724: FND_MSG_PUB.ADD;
2725:
2726: --update wdr for error_code and error_mesg
2727: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2784: ELSIF (l_rec.transaction_quantity > l_mmtt_txn_qty) THEN
2785: IF (l_debug = 1) THEN
2786: trace('Quantity is not valid in the record');
2787: END IF;
2788: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_QTY');
2789: FND_MSG_PUB.ADD;
2790:
2791: --update wdr for error_code and mesg
2792: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2816: WHEN no_data_found THEN
2817: IF (l_debug = 1) THEN
2818: trace('Invalid Sub:This Subinventory does not exist');
2819: END IF;
2820: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SUB');
2821: FND_MSG_PUB.ADD;
2822:
2823: --update wdr for error_code and mesg
2824: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2829: IF (l_lpn_controlled_flag IS NULL) OR (l_lpn_controlled_flag <> wms_globals.g_lpn_controlled_sub) THEN
2830: IF (l_debug = 1) THEN
2831: trace('Invalid Sub:SUB is not LPN Controlled');
2832: END IF;
2833: FND_MESSAGE.SET_NAME('WMS', 'WMS_SUB_NOLPN_CTRLD');
2834: FND_MSG_PUB.ADD;
2835: --update wdr for error_code and mesg
2836: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2837: l_any_row_failed := TRUE;
2859: IF (l_count = 0) THEN
2860: IF (l_debug = 1) THEN
2861: trace('Invalid Locator:Locator does not exist in this Sub/Org');
2862: END IF;
2863: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LOC');--done
2864: FND_MSG_PUB.ADD;
2865:
2866: --update wdr for error_code and mesg
2867: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2892: --with lpn_id in WDR being populated
2893: IF (l_debug = 1) THEN
2894: trace('Error:Invalid Picked LPN:allocated LPN and picked LPNs do NOT match');
2895: END IF;
2896: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISMATCH_LPN');
2897: FND_MSG_PUB.ADD;
2898:
2899: --update wdr for error_code and error_mesg
2900: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2925: WHEN no_data_found THEN
2926: IF (l_debug = 1) THEN
2927: trace('Error:NO data found for picked lpn_id:'||l_rec.lpn_id);
2928: END IF;
2929: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
2930: FND_MSG_PUB.ADD;
2931:
2932: --update wdr for error_code and error_mesg
2933: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2938: IF l_pick_lpn_context NOT IN ( wms_container_pub.lpn_context_pregenerated,wms_container_pub.LPN_CONTEXT_INV) THEN
2939: IF (l_debug = 1) THEN
2940: trace('Invalid LPN context for picked LPN:'||l_rec.lpn_id||'::context::'||l_pick_lpn_context);
2941: END IF;
2942: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
2943: FND_MSG_PUB.ADD;
2944:
2945: --update wdr for error_code and error_mesg
2946: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
2991: IF l_loc_id <> x_loc_id THEN
2992: IF (l_debug = 1) THEN
2993: trace('Error:Unallowed LPN:substituted LPN must be picked from suggested Location');
2994: END IF;
2995: FND_MESSAGE.SET_NAME('WMS', 'WMS_SUBST_LPN_ERR');
2996: FND_MSG_PUB.ADD;
2997:
2998: --update wdr for error_code and error_mesg
2999: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3030: WHEN no_data_found THEN
3031: IF (l_debug = 1) THEN
3032: trace('Error:NO data found for xfer_lpn_id:'||l_rec.xfer_lpn_id);
3033: END IF;
3034: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3035: FND_MSG_PUB.ADD;
3036:
3037: --update wdr for error_code and error_mesg
3038: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3045: wms_container_pub.lpn_context_pregenerated,wms_container_pub.LPN_CONTEXT_INV) THEN
3046: IF (l_debug = 1) THEN
3047: trace('Invalid LPN context for xfer_LPN:'||l_rec.xfer_lpn_id||'::context::'||l_lpn_context);
3048: END IF;
3049: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3050: FND_MSG_PUB.ADD;
3051:
3052: --update wdr for error_code and error_mesg
3053: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3085: END IF;
3086:
3087:
3088: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3089: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3090: FND_MSG_PUB.ADD;
3091: --update wdr for error_code and error_mesg
3092: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3093: l_any_row_failed := TRUE;
3094: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
3095: GOTO continue_loop;
3096:
3097: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3098: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3099: FND_MSG_PUB.ADD;
3100: --update wdr for error_code and error_mesg
3101: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3102: l_any_row_failed := TRUE;
3109: --l_rec.transaction_quantity =0 no need for xfer_lpn_id
3110: IF (l_debug = 1) THEN
3111: trace('Error:No infomration about xfer_LPN_id was passed from WCS');
3112: END IF;
3113: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISSING_XFER_LPN');
3114: FND_MSG_PUB.ADD;
3115:
3116: --update wdr for error_code and error_mesg
3117: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3137: l_serial_code<>6) THEN
3138: IF (l_debug = 1) THEN
3139: trace('Error:UnderPick of Serial item is not supported');
3140: END IF;
3141: FND_MESSAGE.SET_NAME('WMS', 'WMS_SER_SHORT_PICK_ERR');
3142: FND_MSG_PUB.ADD;
3143:
3144: --update wdr for error_code and error_mesg
3145: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3255: IF x_return_status <> FND_API.g_ret_sts_success THEN
3256: IF (l_debug = 1) THEN
3257: trace('Error:In validating Lot/Serial information');
3258: END IF;
3259: FND_MESSAGE.SET_NAME('WMS', 'WMS_LOT_SER_VALIDATION_FAIL');
3260: FND_MSG_PUB.ADD;
3261:
3262: --update wdr for error_code and error_mesg
3263: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3303: --Error
3304: IF (l_debug = 1) THEN
3305: trace('error out,Can not move the entire LPN');
3306: END IF;
3307: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVLID_LPN_MOVE');
3308: FND_MSG_PUB.ADD;
3309:
3310: --update wdr for error_code and error_mesg
3311: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3317: --ERROR;
3318: IF (l_debug = 1) THEN
3319: trace('error out,qty picked is more then pickable qty in LPN');
3320: END IF;
3321: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_QTY');
3322: FND_MSG_PUB.ADD;
3323:
3324: --update wdr for error_code and error_mesg
3325: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3341: --ERROR;
3342: IF (l_debug = 1) THEN
3343: trace('error out,Can not move the entire LPN');
3344: END IF;
3345: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
3346: FND_MSG_PUB.ADD;
3347:
3348: --update wdr for error_code and error_mesg
3349: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3402: IF x_return_status <> FND_API.g_ret_sts_success THEN
3403: IF (l_debug = 1) THEN
3404: trace('Error:In validating Lot/Serial information');
3405: END IF;
3406: FND_MESSAGE.SET_NAME('WMS', 'WMS_LOT_SER_VALIDATION_FAIL');
3407: FND_MSG_PUB.ADD;
3408:
3409: --update wdr for error_code and error_mesg
3410: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3487: , x_msg_data => x_msg_data);
3488:
3489:
3490: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3491: FND_MESSAGE.SET_NAME('WMS','WMS_BACKORDER_FAILED');
3492: FND_MSG_PUB.ADD;
3493:
3494: --update wdr for error_code and error_mesg
3495: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3508: x_msg_count => x_msg_count,
3509: x_msg_data => x_msg_data);
3510:
3511: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3512: FND_MESSAGE.SET_NAME('WMS','WMS_BACKORDER_FAILED');
3513: FND_MSG_PUB.ADD;
3514:
3515: --update wdr for error_code and error_mesg
3516: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3694: --ERROR;
3695: IF (l_debug = 1) THEN
3696: trace('error out,Can not move the entire LPN');
3697: END IF;
3698: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
3699: FND_MSG_PUB.ADD;
3700: --update wdr for error_code and error_mesg
3701: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3702: l_any_row_failed := TRUE;
3724: --Error
3725: IF (l_debug = 1) THEN
3726: trace('error out,Can not move the entire LPN');
3727: END IF;
3728: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
3729: FND_MSG_PUB.ADD;
3730: --update wdr for error_code and error_mesg
3731: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3732: l_any_row_failed := TRUE;
3736: --ERROR;
3737: IF (l_debug = 1) THEN
3738: trace('error out,qty picked is more then pickable qty in LPN');
3739: END IF;
3740: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_QTY');
3741: FND_MSG_PUB.ADD;
3742: --update wdr for error_code and error_mesg
3743: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3744: l_any_row_failed := TRUE;
3768: --ERROR;
3769: IF (l_debug = 1) THEN
3770: trace('error out,Can not move the entire LPN');
3771: END IF;
3772: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
3773: FND_MSG_PUB.ADD;
3774: --update wdr for error_code and error_mesg
3775: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3776: l_any_row_failed := TRUE;
3787: --ERROR;
3788: IF (l_debug = 1) THEN
3789: trace('error out,qty picked is more then pickable qty in LPN');
3790: END IF;
3791: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_QTY');
3792: FND_MSG_PUB.ADD;
3793: --update wdr for error_code and error_mesg
3794: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3795: l_any_row_failed := TRUE;
3803: --ERROR;
3804: IF (l_debug = 1) THEN
3805: trace('error out,Can not move the entire LPN');
3806: END IF;
3807: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_LPN_MOVE');
3808: FND_MSG_PUB.ADD;
3809: --update wdr for error_code and error_mesg
3810: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3811: l_any_row_failed := TRUE;
3939: trace('After logging exception for qty discrepancy');
3940: END IF;
3941:
3942: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3943: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
3944: FND_MSG_PUB.ADD;
3945: --update wdr for error_code and error_mesg
3946: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3947: l_any_row_failed := TRUE;
3948: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
3949: GOTO continue_loop;
3950:
3951: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3952: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
3953: FND_MSG_PUB.ADD;
3954: --update wdr for error_code and error_mesg
3955: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3956: l_any_row_failed := TRUE;
4014: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4015: IF (l_debug = 1) THEN
4016: trace('device_confirmation: Error callinf WF wrapper');
4017: END IF;
4018: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
4019: FND_MSG_PUB.ADD;
4020: --update wdr for error_code and error_mesg
4021: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4022: l_any_row_failed := TRUE;
4026: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4027: IF (l_debug = 1) THEN
4028: trace('device_confirmation: Error calling WF wrapper');
4029: END IF;
4030: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
4031: FND_MSG_PUB.ADD;
4032: --update wdr for error_code and error_mesg
4033: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4034: l_any_row_failed := TRUE;
4093:
4094: IF (l_debug = 1) THEN
4095: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4096: END IF;
4097: FND_MESSAGE.SET_NAME('WMS','WMS_TD_MODIFY_LPN_ERROR');
4098: FND_MSG_PUB.ADD;
4099: --update wdr for error_code and error_mesg
4100: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4101: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
4126:
4127: IF (l_debug = 1) THEN
4128: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4129: END IF;
4130: FND_MESSAGE.SET_NAME('WMS','WMS_TD_MODIFY_LPN_ERROR');
4131: FND_MSG_PUB.ADD;
4132: --update wdr for error_code and error_mesg
4133: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4134: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
4146: ELSE--means l_txn_temp_id IS NULL,No corresponding record in WDRH
4147: IF (l_debug = 1) THEN
4148: trace('parent_request_id is not valid');
4149: END IF;
4150: FND_MESSAGE.SET_NAME('WMS', 'WMS_MISSING_TASK_INFO');
4151: FND_MSG_PUB.ADD;
4152: --update wdr for error_code and error_mesg
4153: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
4154: l_any_row_failed := TRUE;
4208: ELSE
4209: IF (l_debug = 1) THEN
4210: trace('device_confirmation: Period is invalid');
4211: END IF;
4212: FND_MESSAGE.SET_NAME('INV', 'INV_NO_OPEN_PERIOD');
4213: FND_MSG_PUB.ADD;
4214: x_return_status := FND_API.g_ret_sts_error;
4215: ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER;
4216:
4291: IF (l_debug = 1) THEN
4292: trace('*************TM call FAILED***************');
4293: END IF;
4294:
4295: FND_MESSAGE.SET_NAME('WMS','WMS_TD_TXNMGR_ERROR' );
4296: FND_MSG_PUB.ADD;
4297:
4298: x_return_status := FND_API.g_ret_sts_error;
4299:
4349:
4350: IF (l_debug = 1) THEN
4351: trace('device_confirmation: modify_lpn Unexpected error');
4352: END IF;
4353: FND_MESSAGE.SET_NAME('WMS','WMS_TD_MODIFY_LPN_ERROR' );
4354: FND_MSG_PUB.ADD;
4355: --rollback the batch
4356: ROLLBACK TO wms_device_requests_sp_outer;
4357:
4377: END IF;
4378:
4379: EXCEPTION
4380: WHEN FND_API.g_exc_error THEN
4381: FND_MESSAGE.SET_NAME('WMS', 'WMS_DEV_REQ_FAIL');
4382: FND_MSG_PUB.ADD;
4383: --since all original records have been deleted from WDRH before making this
4384: --call
4385: IF (l_debug = 1) THEN
4414: x_msg_data:=GET_MSG_STACK ; --Bug#4535546.
4415:
4416: WHEN OTHERS THEN
4417:
4418: FND_MESSAGE.SET_NAME('WMS', 'WMS_DEV_REQ_FAIL');
4419: FND_MSG_PUB.ADD;
4420: --since all original records have been deleted from WDRH before making this
4421: --call
4422: IF (l_debug = 1) THEN