[Home] [Help]
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
123: IF (l_debug = 1) THEN
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:
131: /* -- Serial Not supported, Will be done later
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
152: IF (l_debug = 1) THEN
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;
160:
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
179: IF (l_debug = 1) THEN
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:
187: */
374: l_msg_count number;
375: l_msg_data varchar2(240);
376: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
377: BEGIN
378: fnd_msg_pub.count_And_get(
379: p_count => l_msg_count,
380: p_data => l_msg_data,
381: p_encoded => 'F'
382: );
387: l_msg_data := '';
388: ELSIF l_msg_count =1 THEN
389: null;
390: ELSE
391: l_msg_data := fnd_msg_pub.get(l_msg_count,'F');
392:
393: END IF;
394: FND_MSG_PUB.initialize;
395: RETURN l_msg_data;
390: ELSE
391: l_msg_data := fnd_msg_pub.get(l_msg_count,'F');
392:
393: END IF;
394: FND_MSG_PUB.initialize;
395: RETURN l_msg_data;
396: END GET_MSG_STACK;
397:
398:
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:
606: IF l_lpn_exists = 0 OR
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;
618:
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;
655:
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;
691:
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:
708: -- verify if locator is active
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;
725:
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;
739:
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;
779:
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;
834:
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;
866:
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:
915: -- clear quantity cache before we create qty tree.
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
1031: inv_quantity_tree_pub.update_quantities
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:
1072: END IF;
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;
1153:
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
1198: inv_quantity_tree_pub.update_quantities
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;
1239:
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:
1276:
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
1345: inv_quantity_tree_pub.update_quantities
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:
1386: END IF;
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;
1430:
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
1475: inv_quantity_tree_pub.update_quantities
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:
1516: END IF;
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;
1591:
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
1667: inv_quantity_tree_pub.update_quantities
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:
1708: END IF;
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;
1804:
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
1895: inv_quantity_tree_pub.update_quantities
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:
1936: END IF;
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:
2029:
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
2082: inv_quantity_tree_pub.update_quantities
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:
2123: END IF;
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;
2203:
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
2248: inv_quantity_tree_pub.update_quantities
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:
2289: 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;
2385:
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;
2419:
2472: IF (l_debug = 1) THEN
2473: trace('lpn_match: Exception raised');
2474: END IF;
2475: x_return_status := FND_API.G_RET_STS_ERROR;
2476: fnd_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data );
2477:
2478: WHEN OTHERS THEN
2479: IF (l_debug = 1) THEN
2480: trace('lpn_match: Other exception raised : ' || Sqlerrm);
2479: IF (l_debug = 1) THEN
2480: trace('lpn_match: Other exception raised : ' || Sqlerrm);
2481: END IF;
2482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2483: fnd_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data );
2484:
2485: END get_lpn_match;
2486:
2487:
2673:
2674: FOR l_rec IN wdr_cursor LOOP
2675: --FOR each record this savepoint wil be overwritten
2676: SAVEPOINT WMS_DEVICE_REQUESTS_SP;
2677: FND_MSG_PUB.initialize;
2678: --Check if device status
2679:
2680: IF l_rec.device_status <> FND_API.g_ret_sts_success THEN
2681: IF (l_debug = 1) 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;
2689: l_any_row_failed := TRUE;
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;
2703: l_any_row_failed := TRUE;
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;
2728: l_any_row_failed := TRUE;
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;
2793: l_any_row_failed := TRUE;
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;
2825: l_any_row_failed := TRUE;
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;
2838: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
2868: l_any_row_failed := TRUE;
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;
2901: l_any_row_failed := TRUE;
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;
2934: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
2947: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3000: l_any_row_failed := TRUE;
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;
3039: l_any_row_failed := TRUE;
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;
3054: l_any_row_failed := TRUE;
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;
3103: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_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;
3118: l_any_row_failed := TRUE;
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;
3146: l_any_row_failed := TRUE;
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;
3264: l_any_row_failed := TRUE;
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;
3312: l_any_row_failed := TRUE;
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;
3326: l_any_row_failed := TRUE;
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;
3350: l_any_row_failed := TRUE;
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;
3411: l_any_row_failed := TRUE;
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;
3496: l_any_row_failed := TRUE;
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;
3517: l_any_row_failed := TRUE;
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;
3703: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3733: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3745: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3777: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3796: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3812: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
3957: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4023: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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;
4035: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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);
4102: GOTO continue_loop;
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);
4135: GOTO continue_loop;
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;
4155: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
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:
4217: END IF;
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:
4300: ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER;
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:
4358: 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
4386: trace('calling populate_history for all records' );
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
4423: trace('calling populate_history for all records' );