[Home] [Help]
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
124: IF (l_debug = 1) THEN
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:
132: /* -- Serial Not supported, Will be done later
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
153: IF (l_debug = 1) THEN
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;
161:
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
180: IF (l_debug = 1) THEN
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:
188: */
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;
874:
875: IF (l_debug = 1) THEN
893: l_msg_count number;
894: l_msg_data varchar2(240);
895: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
896: BEGIN
897: fnd_msg_pub.count_And_get(
898: p_count => l_msg_count,
899: p_data => l_msg_data,
900: p_encoded => 'F'
901: );
906: l_msg_data := '';
907: ELSIF l_msg_count =1 THEN
908: null;
909: ELSE
910: l_msg_data := fnd_msg_pub.get(l_msg_count,'F');
911:
912: END IF;
913: FND_MSG_PUB.initialize;
914: RETURN l_msg_data;
909: ELSE
910: l_msg_data := fnd_msg_pub.get(l_msg_count,'F');
911:
912: END IF;
913: FND_MSG_PUB.initialize;
914: RETURN l_msg_data;
915: END GET_MSG_STACK;
916:
917:
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:
1125: IF l_lpn_exists = 0 OR
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;
1137:
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;
1174:
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;
1210:
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:
1227: -- verify if locator is active
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;
1244:
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;
1258:
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;
1299:
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;
1354:
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;
1386:
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:
1435: -- clear quantity cache before we create qty tree.
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
1551: inv_quantity_tree_pub.update_quantities
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:
1592: END IF;
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;
1673:
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
1718: inv_quantity_tree_pub.update_quantities
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;
1759:
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:
1796:
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
1865: inv_quantity_tree_pub.update_quantities
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:
1906: END IF;
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;
1950:
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
1995: inv_quantity_tree_pub.update_quantities
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:
2036: END IF;
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;
2111:
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
2187: inv_quantity_tree_pub.update_quantities
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:
2228: END IF;
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;
2324:
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
2415: inv_quantity_tree_pub.update_quantities
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:
2456: END IF;
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:
2549:
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
2602: inv_quantity_tree_pub.update_quantities
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:
2643: END IF;
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;
2723:
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
2768: inv_quantity_tree_pub.update_quantities
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:
2809: 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;
2905:
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;
2939:
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
3000: trace('lpn_match: Other exception raised : ' || Sqlerrm);
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:
3007:
3204:
3205: FOR l_rec IN wdr_cursor LOOP
3206: --FOR each record this savepoint wil be overwritten
3207: SAVEPOINT WMS_DEVICE_REQUESTS_SP;
3208: FND_MSG_PUB.initialize;
3209: --Check if device status
3210:
3211: --Bug#5868236 Initialize the local variables -- 14028129
3212: l_qty_diff := 0 ;
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;
3233: l_any_row_failed := TRUE;
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;
3247: l_any_row_failed := TRUE;
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;
3272: l_any_row_failed := TRUE;
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;
3338: l_any_row_failed := TRUE;
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;
3370: l_any_row_failed := TRUE;
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;
3383: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3413: l_any_row_failed := TRUE;
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;
3446: l_any_row_failed := TRUE;
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;
3479: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3492: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3545: l_any_row_failed := TRUE;
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;
3584: l_any_row_failed := TRUE;
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;
3599: l_any_row_failed := TRUE;
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;
3648: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_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;
3663: l_any_row_failed := TRUE;
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;
3691: l_any_row_failed := TRUE;
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);
3737: GOTO continue_loop;
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;
3863: l_any_row_failed := TRUE;
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;
3911: l_any_row_failed := TRUE;
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;
3925: l_any_row_failed := TRUE;
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;
3949: l_any_row_failed := TRUE;
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;
4010: l_any_row_failed := TRUE;
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;
4102: l_any_row_failed := TRUE;
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;
4123: l_any_row_failed := TRUE;
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;
4323: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4353: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4365: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4397: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4416: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4432: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4604: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4710: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4722: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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);
4827: GOTO continue_loop;
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);
4862: GOTO continue_loop;
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;
4883: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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:
4945: END IF;
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:
5029: ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER;
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:
5087: 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
5115: trace('calling populate_history for all records' );
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
5152: trace('calling populate_history for all records' );