[Home] [Help]
133: l_msg_name VARCHAR2(50);
134: BEGIN
135: debug('Entered procedure','process_mobile_msg');
136:
137: l_msg_count := fnd_msg_pub.count_msg;
138: debug('Msg Count: ' || l_msg_count,'process_mobile_msg');
139:
140: FOR i IN 1..l_msg_count LOOP
141: fnd_msg_pub.get(p_msg_index => i,
137: l_msg_count := fnd_msg_pub.count_msg;
138: debug('Msg Count: ' || l_msg_count,'process_mobile_msg');
139:
140: FOR i IN 1..l_msg_count LOOP
141: fnd_msg_pub.get(p_msg_index => i,
142: p_data => l_msg_data,
143: p_msg_index_out => l_dummy_number);
144:
145: debug('i: ' || i || ' index_out: ' || l_dummy_number || ' encoded_data: ' || l_msg_data,'process_mobile_msg');
150:
151: debug('App_short_name: ' || l_app_short_name || ' Msg_name: ' || l_msg_name,'process_mobile_msg');
152:
153: IF ((l_msg_name <> 'WSH_DET_INV_INT_SUBMITTED')) THEN
154: fnd_msg_pub.delete_msg(p_msg_index=>i);
155: debug('Deleted message at position: ' || i,'process_mobile_msg');
156: END IF;
157: END LOOP;
158: EXCEPTION
508: x_return_Status := fnd_api.g_ret_sts_error;
509: fnd_message.set_name('WMS','WMS_DEL_LOCK_FAILURE');
510: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
511: /*Failed to aquire locks on wsh_new_deliveries for
512: fnd_msg_pub.add;
513: fnd_msg_pub.count_and_get( p_count => x_msg_count,
514: p_data => x_msg_data
515: );
516: /*Failed to lock the delivery */
509: fnd_message.set_name('WMS','WMS_DEL_LOCK_FAILURE');
510: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
511: /*Failed to aquire locks on wsh_new_deliveries for
512: fnd_msg_pub.add;
513: fnd_msg_pub.count_and_get( p_count => x_msg_count,
514: p_data => x_msg_data
515: );
516: /*Failed to lock the delivery */
517: x_error_code := 5;
538: IF l_return_Status = 'S' AND l_missing_count > 0 then
539: IF (l_debug = 1) THEN
540: debug('There are Missing Items','CHECK_DELIVERY');
541: END IF;
542: fnd_msg_pub.count_and_get( p_count => x_msg_count,
543: p_data => x_msg_data
544: );
545: x_return_Status := fnd_api.g_ret_sts_error;
546: x_error_code := 1; -- not entire delivery is ready
564: fnd_message.set_name('WMS','WMS_NO_ISSUE_TRX');
565: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
566: /*Material Status prevents the sales order issue transaction for one
567: or more items in the delivery
568: FND_MSG_PUB.ADD;
569: IF (l_debug = 1) THEN
570: debug('Call to INV_SHIPPING_TRANSACTION_PUB.CHECK_DELIVERY_STATUS ' ||
571: 'returned with Status E '||P_DELIVERY_ID,'Check_Delivery');
572: END IF;
576: fnd_message.set_name('WMS','WMS_NO_ISSUE_TRX');
577: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
578: /*Material Status prevents the sales order issue transaction for one or
579: more items in the delivery
580: FND_MSG_PUB.ADD;
581: x_error_code := 2;
582: RAISE fnd_api.g_exc_unexpected_error;
583: END IF;
584: IF (l_debug = 1) THEN
600: ' E- shipset '||l_ship_set,'Check_Delivery');
601: END IF;
602: FND_MESSAGE.SET_NAME('INV', 'WMS_WSH_SHIPSET_FORCED');
603: FND_MESSAGE.SET_TOKEN('SHIP_SET_NAME', l_ship_set);
604: FND_MSG_PUB.ADD;
605: RAISE unspec_ship_set_exists;
606: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
607: FND_MESSAGE.SET_NAME('INV', 'WMS_SHIPSET_FAILED');
608: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_del_name);
606: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
607: FND_MESSAGE.SET_NAME('INV', 'WMS_SHIPSET_FAILED');
608: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_del_name);
609: /*Ship set validation for the delivery
610: FND_MSG_PUB.ADD;
611: IF (l_debug = 1) THEN
612: debug('WMS_SHIPPING_TRANSACTION_PUB.ship_set_check returned with status U','Check_Delivery');
613: END IF;
614: RAISE fnd_api.g_exc_unexpected_error;
631: FND_MESSAGE.SET_NAME('WMS','WMS_LPN_OTHER_DOCK');
632: FND_MESSAGE.SET_TOKEN('LPN_NAME',x_outermost_lpn);
633: FND_MESSAGE.SET_TOKEN('DOCK',l_loaded_dock_door);
634: /* LPN
635: FND_MSG_PUB.ADD;
636: fnd_msg_pub.count_and_get( p_count => x_msg_count,
637: p_data => x_msg_data
638: );
639: l_return_status := fnd_api.g_ret_sts_error;
632: FND_MESSAGE.SET_TOKEN('LPN_NAME',x_outermost_lpn);
633: FND_MESSAGE.SET_TOKEN('DOCK',l_loaded_dock_door);
634: /* LPN
635: FND_MSG_PUB.ADD;
636: fnd_msg_pub.count_and_get( p_count => x_msg_count,
637: p_data => x_msg_data
638: );
639: l_return_status := fnd_api.g_ret_sts_error;
640: x_error_code := 4;
677: debug('In exception unspec_ship_set_exists -Check_Deliveries - errorcode '
678: ||x_error_code,'Check_Delivery');
679: END IF;
680: -- Get message count and data
681: fnd_msg_pub.count_and_get
682: ( p_count => x_msg_count
683: , p_data => x_msg_data);
684:
685: WHEN incomplete_delivery THEN
683: , p_data => x_msg_data);
684:
685: WHEN incomplete_delivery THEN
686: x_return_status := fnd_api.g_ret_sts_error;
687: fnd_msg_pub.count_and_get( p_count => x_msg_count,
688: p_data => x_msg_data
689: );
690: x_error_code := 2;
691: IF (l_debug = 1) THEN
696: x_return_status := fnd_api.g_ret_sts_error;
697: FND_MESSAGE.SET_NAME('WMS','WMS_SHIP_METHOD_CODE');
698: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_del_name);
699: /* No Ship method code provided for the delivery DELIVERY_NAME .This is required */
700: FND_MSG_PUB.ADD;
701: fnd_msg_pub.count_and_get( p_count => x_msg_count,
702: p_data => x_msg_data
703: );
704: IF (l_debug = 1) THEN
697: FND_MESSAGE.SET_NAME('WMS','WMS_SHIP_METHOD_CODE');
698: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_del_name);
699: /* No Ship method code provided for the delivery DELIVERY_NAME .This is required */
700: FND_MSG_PUB.ADD;
701: fnd_msg_pub.count_and_get( p_count => x_msg_count,
702: p_data => x_msg_data
703: );
704: IF (l_debug = 1) THEN
705: debug('In exception no_ship_method_code -Check_Deliveries - errorcode '||x_error_code,'Check_Delivery');
707: x_error_code := 6;
708: WHEN check_ord_line_split THEN
709: x_return_status := fnd_api.g_ret_sts_error;
710: x_error_code := 7;
711: fnd_msg_pub.count_and_get
712: ( p_count => x_msg_count
713: , p_data => x_msg_data
714: );
715: WHEN delivery_lines_mix THEN
717: x_error_code := 8;
718: FND_MESSAGE.SET_NAME('WMS','WMS_DEL_LINES_MIX');
719: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_del_name);
720: /* The Delivery also has lines that were not staged through Direct Ship*/
721: FND_MSG_PUB.ADD;
722: fnd_msg_pub.count_and_get
723: ( p_count => x_msg_count
724: , p_data => x_msg_data
725: );
718: FND_MESSAGE.SET_NAME('WMS','WMS_DEL_LINES_MIX');
719: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_del_name);
720: /* The Delivery also has lines that were not staged through Direct Ship*/
721: FND_MSG_PUB.ADD;
722: fnd_msg_pub.count_and_get
723: ( p_count => x_msg_count
724: , p_data => x_msg_data
725: );
726: WHEN fnd_api.g_exc_unexpected_error THEN
725: );
726: WHEN fnd_api.g_exc_unexpected_error THEN
727: x_return_status := fnd_api.g_ret_sts_unexp_error ;
728: -- Get message count and data
729: fnd_msg_pub.count_and_get
730: ( p_count => x_msg_count
731: , p_data => x_msg_data
732: );
733: IF (l_debug = 1) THEN
735: END IF;
736:
737: WHEN OTHERS THEN
738: x_return_status := fnd_api.g_ret_sts_unexp_error;
739: fnd_msg_pub.count_and_get
740: ( p_count => x_msg_count
741: , p_data => x_msg_data
742: );
743: x_error_code := 5;
864: FND_MESSAGE.SET_NAME('WMS','WMS_CREATE_FREIGHT_FAIL');
865: FND_MESSAGE.SET_TOKEN('OBJ','Delivery');
866: FND_MESSAGE.SET_TOKEN('VAL',l_del_name);
867: /* Creation of freight cost for OBJ VAL has failed */
868: fnd_msg_pub.add;
869: IF (l_debug = 1) THEN
870: debug('Update of Freight Cost for Del is failed ','UPDATE_DELIVERY');
871: END IF;
872: raise FND_API.G_EXC_ERROR;
873: ELSIF (l_return_status = 'U' ) THEN
874: FND_MESSAGE.SET_TOKEN('OBJ','Delivery');
875: FND_MESSAGE.SET_TOKEN('VAL',l_del_name);
876: /* Creation of freight cost for
877: fnd_msg_pub.add;
878: IF (l_debug = 1) THEN
879: debug('Update of Freight Cost for Del is succ ','UPDATE_DELIVERY');
880: END IF;
881: raise fnd_api.g_exc_unexpected_error;
962: END IF;
963: FND_MESSAGE.SET_NAME('WMS','WMS_UPDATE_DELIVERY_FAILED');
964: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
965: /* Updation of delivery
966: fnd_msg_pub.add;
967: raise FND_API.G_EXC_UNEXPECTED_ERROR;
968: ELSIF (l_return_status IN (fnd_api.g_ret_sts_error)) THEN
969: FND_MESSAGE.SET_NAME('WMS','UPDATE_DELIVERY_FAILED');
970: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
968: ELSIF (l_return_status IN (fnd_api.g_ret_sts_error)) THEN
969: FND_MESSAGE.SET_NAME('WMS','UPDATE_DELIVERY_FAILED');
970: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
971: /* Updation of delivery
972: fnd_msg_pub.add;
973: raise FND_API.G_EXC_ERROR;
974: END IF;
975: END IF;
976: IF (l_debug = 1) THEN
978: END IF;
979: EXCEPTION
980: WHEN fnd_api.g_exc_error THEN
981: x_return_status := fnd_api.g_ret_sts_error;
982: fnd_msg_pub.count_and_get( p_count => x_msg_count,
983: p_data => x_msg_data
984: );
985: ROLLBACK;
986:
989: END IF;
990:
991: WHEN fnd_api.g_exc_unexpected_error THEN
992: x_return_status := fnd_api.g_ret_sts_unexp_error;
993: fnd_msg_pub.count_and_get( p_count => x_msg_count,
994: p_data => x_msg_data
995: );
996: ROLLBACK;
997:
1004:
1005: WHEN OTHERS THEN
1006: ROLLBACK;
1007: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1008: fnd_msg_pub.count_and_get( p_count => x_msg_count,
1009: p_data => x_msg_data
1010: );
1011: IF delivery_freight%ISOPEN THEN
1012: CLOSE delivery_freight;
1260: ,p_organization_id => p_org_id
1261: ,p_dock_door_id => p_dock_door_id);
1262: x_error_code := l_error_code;
1263: x_return_status := FND_API.G_RET_STS_ERROR;
1264: fnd_msg_pub.count_and_get( p_count => x_msg_count,
1265: p_data => x_msg_data);
1266: RETURN;
1267: ELSIF (l_error_code in (2,3,4,5,6,7,8) ) THEN
1268: IF (l_debug = 1) THEN
1269: debug(' Ship_Confirm Error. ShipSet, LPN Loaded on different Dock,ship_method_code ','Ship_Confirm');
1270: END IF;
1271: x_error_code := l_error_code;
1272: x_return_status := l_return_status;
1273: fnd_msg_pub.count_and_get( p_count => x_msg_count,
1274: p_data => x_msg_data);
1275: RETURN;
1276: END IF ;
1277:
1343: END IF;
1344: fnd_message.set_name('WMS','WMS_CREATE_TRIP_FAIL');
1345: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1346: /* Failed to create trip for the delivery DELIVERY_NAME */
1347: FND_MSG_PUB.ADD;
1348: RAISE fnd_api.g_exc_error;
1349: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1350: fnd_message.set_name('WMS','WMS_CREATE_TRIP_FAIL');
1351: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1348: RAISE fnd_api.g_exc_error;
1349: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1350: fnd_message.set_name('WMS','WMS_CREATE_TRIP_FAIL');
1351: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1352: FND_MSG_PUB.ADD;
1353: IF (l_debug = 1) THEN
1354: debug(' Ship_Confirm. Create Trip Failed Unexpected Error','Ship_Confirm');
1355: END IF;
1356: RAISE fnd_api.g_exc_unexpected_error;
1448: IF( l_return_status IN (fnd_api.g_ret_sts_error)) THEN
1449: FND_MESSAGE.SET_NAME('WMS','WMS_CONFIRM_DEL_FAIL');
1450: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1451: -- Ship Confirm of delivey
1452: FND_MSG_PUB.ADD;
1453: IF (l_debug = 1) THEN
1454: debug(' Ship_Confirm. Confirm Delivery is failing from WSH_DELIVERY_PUB','Ship_Confirm');
1455: END IF;
1456: raise FND_API.G_EXC_ERROR;
1458: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1459: FND_MESSAGE.SET_NAME('WMS','WMS_CONFIRM_DEL_FAIL');
1460: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1461: /* cONFIRM DELIVERY FAILED*/
1462: FND_MSG_PUB.ADD;
1463: IF (l_debug = 1) THEN
1464: debug(' Ship_Confirm. Confirm Delivery is failing from WSH_DELIVERY_PUB, Unexpected error','Ship_Confirm');
1465: END IF;
1466: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1467: END IF;
1468:
1469: --Ship confirm successful. Display only Interface Trip stop message from shipping
1470: process_mobile_msg;
1471: x_msg_count := fnd_msg_pub.count_msg;
1472: EXCEPTION
1473: WHEN fnd_api.g_exc_error THEN
1474: x_return_status := fnd_api.g_ret_sts_error;
1475: IF (l_debug = 1) THEN
1474: x_return_status := fnd_api.g_ret_sts_error;
1475: IF (l_debug = 1) THEN
1476: debug('In Exception (expected error) - E ','Ship_Confirm');
1477: END IF;
1478: fnd_msg_pub.count_and_get
1479: ( p_count => x_msg_count,
1480: p_data => x_msg_data
1481: );
1482: WHEN fnd_api.g_exc_unexpected_error THEN
1483: x_return_status := fnd_api.g_ret_sts_unexp_error;
1484: IF (l_debug = 1) THEN
1485: debug('In Exception (unexpected error) - U ','Ship_Confirm');
1486: END IF;
1487: fnd_msg_pub.count_and_get
1488: ( p_count => x_msg_count,
1489: p_data => x_msg_data
1490: );
1491: WHEN OTHERS THEN
1492: x_return_status := fnd_api.g_ret_sts_unexp_error;
1493: IF (l_debug = 1) THEN
1494: debug('In Exception (others)' ||SQLERRM,'Ship_Confirm');
1495: END IF;
1496: fnd_msg_pub.count_and_get
1497: ( p_count => x_msg_count,
1498: p_data => x_msg_data
1499: );
1500: END; -- SHIP_CONFIRM
1737: END IF ;
1738: IF (l_debug = 1) THEN
1739: debug('In Exception (expected error) - E ','Confirm_All_Deliveries');
1740: END IF;
1741: fnd_msg_pub.count_and_get
1742: ( p_count => x_msg_count,
1743: p_data => x_msg_data
1744: );
1745: WHEN fnd_api.g_exc_unexpected_error THEN
1749: END IF ;
1750: IF (l_debug = 1) THEN
1751: debug('In Exception (unexpected error) - U ','Confirm_All_Deliveries');
1752: END IF;
1753: fnd_msg_pub.count_and_get
1754: ( p_count => x_msg_count,
1755: p_data => x_msg_data
1756: );
1757: WHEN OTHERS THEN
1761: END IF ;
1762: IF (l_debug = 1) THEN
1763: debug('In Exception (others)' ||SQLERRM,'Confirm_All_Deliveries');
1764: END IF;
1765: fnd_msg_pub.count_and_get
1766: ( p_count => x_msg_count,
1767: p_data => x_msg_data
1768: );
1769:
1953: wms_globals.g_ship_confirm_method := NULL;
1954: IF (l_debug = 1) THEN
1955: debug('In Exception (expected error) - E ','CREATE_TRIP');
1956: END IF;
1957: fnd_msg_pub.count_and_get
1958: ( p_count => l_msg_count,
1959: p_data => l_msg_data
1960: );
1961: WHEN fnd_api.g_exc_unexpected_error THEN
1963: wms_globals.g_ship_confirm_method := NULL;
1964: IF (l_debug = 1) THEN
1965: debug('In Exception (unexpected error) - U ','Create_Trip');
1966: END IF;
1967: fnd_msg_pub.count_and_get
1968: ( p_count => l_msg_count,
1969: p_data => l_msg_data
1970: );
1971: WHEN others THEN
2122: FND_MESSAGE.SET_TOKEN('OBJ','Trip');
2123: FND_MESSAGE.SET_TOKEN('VAL',l_name);
2124: /* Creation of freight cost for
2125:
2126: FND_MSG_PUB.ADD;
2127: IF (l_debug = 1) THEN
2128: debug('Create_Update Freight Cost API failed with status E ','Update Trip Stop');
2129: END IF;
2130: RAISE fnd_api.g_exc_error;
2129: END IF;
2130: RAISE fnd_api.g_exc_error;
2131: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2132: FND_MESSAGE.SET_NAME('WMS','CREATE_FREIGHT_FAIL');
2133: FND_MSG_PUB.ADD;
2134: IF (l_debug = 1) THEN
2135: debug('Update Freight Cost failed with status U','Update TripStop');
2136: END IF;
2137: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2183: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2184: FND_MESSAGE.SET_NAME('WMS','WMS_UPD_STOP_FAIL');
2185: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_name);
2186: -- Failed to Create/update Trip Stop for the trip
2187: fnd_msg_pub.ADD;
2188: IF (l_debug = 1) THEN
2189: debug('Create_Update_Stop API failed with status E ','Update Trip Stop');
2190: END IF;
2191: RAISE fnd_api.g_exc_error;
2192: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2193: FND_MESSAGE.SET_NAME('WMS','WMS_UPD_STOP_FAIL');
2194: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_name);
2195: -- Failed to Create/update Trip Stop for the trip
2196: fnd_msg_pub.ADD;
2197: IF (l_debug = 1) THEN
2198: debug('Create_Update_Stop failed with status U','Update TripStop');
2199: END IF;
2200: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2256: ROLLBACK;
2257: IF trip_freight%ISOPEN THEN
2258: CLOSE trip_freight;
2259: END IF;
2260: fnd_msg_pub.count_and_get
2261: ( p_count => x_msg_count,
2262: p_data => x_msg_data
2263: );
2264:
2270: ROLLBACK;
2271: IF trip_freight%ISOPEN THEN
2272: CLOSE trip_freight;
2273: END IF;
2274: fnd_msg_pub.count_and_get
2275: ( p_count => x_msg_count,
2276: p_data => x_msg_data
2277: );
2278:
2418: END IF;
2419:
2420: l_count1 := 0;
2421: l_count2 := 0;
2422: l_count1 := fnd_msg_pub.count_msg();
2423:
2424: IF (l_debug = 1) THEN
2425: DEBUG('Call WSH_DOCUMENT_SETS.Print_document_Sets for all the deliveries');
2426: DEBUG('Msg table count' || l_count1, 'Print_Shipping_document');
2434: , p_delivery_ids => l_delivery_id
2435: , p_document_param_info => l_document_param_info
2436: , x_return_status => l_return_status
2437: );
2438: l_count2 := fnd_msg_pub.count_msg();
2439:
2440: IF (l_debug = 1) THEN
2441: DEBUG('Msg table count' || l_count2, 'Print_Shipping_document');
2442: END IF;
2444: IF l_count2 > l_count1 THEN
2445: l_count1 := l_count1 + 2;
2446:
2447: FOR i IN REVERSE l_count1 .. l_count2 LOOP
2448: l_dummy := fnd_msg_pub.get(i, fnd_api.g_true);
2449:
2450: IF (l_debug = 1) THEN
2451: DEBUG('Messages are' || l_dummy, 'Print_Shipping_document');
2452: END IF;
2450: IF (l_debug = 1) THEN
2451: DEBUG('Messages are' || l_dummy, 'Print_Shipping_document');
2452: END IF;
2453:
2454: fnd_msg_pub.delete_msg(i);
2455: END LOOP;
2456: END IF;
2457:
2458: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2457:
2458: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2459: fnd_message.set_name('WMS', 'WMS_PRINT_DOC_SET_FAIL');
2460: /* Failed to print the documents set */
2461: fnd_msg_pub.ADD;
2462:
2463: IF (l_debug = 1) THEN
2464: DEBUG('Print Document_sets API failed with status E ', 'Print_shipping_dcouments');
2465: END IF;
2465: END IF;
2466: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2467: fnd_message.set_name('WMS', 'WMS_PRINT_DOC_SET_FAIL');
2468: /* Failed to print the documents set */
2469: fnd_msg_pub.ADD;
2470:
2471: IF (l_debug = 1) THEN
2472: DEBUG('Print Document_sets API failed with status U ', 'Print_shipping_dcouments');
2473: END IF;
2481: IF (l_debug = 1) THEN
2482: DEBUG('Print Document has failed :Error', 'Print_shipping_dcouments');
2483: END IF;
2484:
2485: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2486: ROLLBACK;
2487: -- Think of some messages here.
2488: WHEN fnd_api.g_exc_unexpected_error THEN
2489: IF (l_debug = 1) THEN
2491: END IF;
2492:
2493: x_return_status := fnd_api.g_ret_sts_unexp_error;
2494: ROLLBACK;
2495: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2496:
2497: -- Think of some messages here.
2498: IF (l_debug = 1) THEN
2499: DEBUG('Print Document has failed :Unexpected Error', 'Print_shipping_dcouments');
2505: IF (l_debug = 1) THEN
2506: DEBUG('Print Document has failed : Unexpected Error', 'Print_shipping_dcouments');
2507: END IF;
2508:
2509: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2510:
2511: IF SQLCODE IS NOT NULL THEN
2512: IF (l_debug = 1) THEN
2513: DEBUG(SQLCODE, 'Print_shipping_dcouments');
2588: DEBUG('p_ship_method_code : ' || p_ship_method_code, 'close_trip');
2589: END IF;
2590:
2591: x_return_status := fnd_api.g_ret_sts_success;
2592: fnd_msg_pub.initialize;
2593:
2594: IF (l_debug = 1) THEN
2595: DEBUG('Begin Close Trip ', 'CLOSE_TRIP');
2596: END IF;
2692: fnd_message.set_token('LPN_NAME', l_outermost_lpn);
2693: fnd_message.set_token('TRIP', l_trip_name);
2694: fnd_message.set_token('DOCK', l_loaded_dock_door);
2695: /*Close Trip failed */
2696: fnd_msg_pub.ADD;
2697: x_return_status := fnd_api.g_ret_sts_error;
2698: CLOSE lpn_in_other_dock;
2699: RETURN;
2700: END IF;
2740: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2741: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2742: fnd_message.set_token('TRIP_NAME', l_name);
2743: /*Failed to close the trip TRIP_NAME*/
2744: fnd_msg_pub.ADD;
2745:
2746: IF (l_debug = 1) THEN
2747: DEBUG('Stop_Action API failed with status E ', 'Close_Trip');
2748: END IF;
2751: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2752: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2753: fnd_message.set_token('TRIP_NAME', l_name);
2754: /*Failed to close the trip TRIP_NAME*/
2755: fnd_msg_pub.ADD;
2756:
2757: IF (l_debug = 1) THEN
2758: DEBUG('Stop_Action API failed with status U', 'Close_Trip');
2759: END IF;
2779: IF (l_debug = 1) THEN
2780: DEBUG('Label Printing failed ', 'Close Trip');
2781: END IF;
2782:
2783: fnd_msg_pub.ADD;
2784: l_return_status := 'W';
2785: END IF;
2786:
2787: -- Clean up trips which are closed
2802:
2803: IF l_return_status =(fnd_api.g_ret_sts_error) THEN
2804: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2805: /*Failed while running cleanup program */
2806: fnd_msg_pub.ADD;
2807:
2808: IF (l_debug = 1) THEN
2809: DEBUG('CLEANUP_TEMP_RECS API failed with status E ', 'Close_Trip');
2810: END IF;
2812: RAISE fnd_api.g_exc_error;
2813: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2814: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2815: /*Failed while running cleanup program */
2816: fnd_msg_pub.ADD;
2817:
2818: IF (l_debug = 1) THEN
2819: DEBUG('CLEANUP_TEMP_RECS API failed with status U', 'Close_Trip');
2820: END IF;
2830: x_return_status := fnd_api.g_ret_sts_error;
2831: fnd_message.set_name('WMS', 'WMS_SHIP_METHOD_CODE');
2832: fnd_message.set_token('TRIP_NAME', l_name);
2833: /* No Ship method code provided for the Trip .This is required */
2834: fnd_msg_pub.ADD;
2835: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2836: DEBUG('In exception no_ship_method_code - - errorcode ', 'Close Trip');
2837: WHEN fnd_api.g_exc_error THEN
2838: x_return_status := fnd_api.g_ret_sts_error;
2831: fnd_message.set_name('WMS', 'WMS_SHIP_METHOD_CODE');
2832: fnd_message.set_token('TRIP_NAME', l_name);
2833: /* No Ship method code provided for the Trip .This is required */
2834: fnd_msg_pub.ADD;
2835: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2836: DEBUG('In exception no_ship_method_code - - errorcode ', 'Close Trip');
2837: WHEN fnd_api.g_exc_error THEN
2838: x_return_status := fnd_api.g_ret_sts_error;
2839: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2835: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2836: DEBUG('In exception no_ship_method_code - - errorcode ', 'Close Trip');
2837: WHEN fnd_api.g_exc_error THEN
2838: x_return_status := fnd_api.g_ret_sts_error;
2839: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2840: ROLLBACK;
2841:
2842: -- Think of some messages here.
2843: IF (l_debug = 1) THEN
2851: IF (l_debug = 1) THEN
2852: DEBUG('Close Trip has failed :Unexpected Error', 'Close_Trip');
2853: END IF;
2854:
2855: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2856: WHEN OTHERS THEN
2857: ROLLBACK;
2858: x_return_status := fnd_api.g_ret_sts_unexp_error;
2859:
2860: IF (l_debug = 1) THEN
2861: DEBUG('Close Trip has failed : Unexpected Error', 'Close_Trip');
2862: END IF;
2863:
2864: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2865:
2866: IF SQLCODE IS NOT NULL THEN
2867: IF (l_debug = 1) THEN
2868: DEBUG(SQLCODE, 'Close_Trip');
3206:
3207: IF l_return_status = fnd_api.g_ret_sts_error THEN
3208: fnd_message.set_name('WMS', 'WMS_RET_LINE_TO_STOCK');
3209: /* Failed to unload the delivery line */
3210: fnd_msg_pub.ADD;
3211:
3212: IF (l_debug = 1) THEN
3213: DEBUG('inv_line_return_to_stock API failed with status E ', 'Unload_Truck');
3214: END IF;
3220: END IF;
3221:
3222: fnd_message.set_name('WMS', 'WMS_RET_LINE_TO_STOCK');
3223: /* Failed to unload the delivery line */
3224: fnd_msg_pub.ADD;
3225: RAISE fnd_api.g_exc_unexpected_error;
3226: END IF;
3227:
3228: IF (l_debug = 1) THEN
3297:
3298: IF l_return_status = fnd_api.g_ret_sts_error THEN
3299: fnd_message.set_name('WMS', 'WMS_CLEANUP_TEMP');
3300: /*Failed in cleanup program*/
3301: fnd_msg_pub.ADD;
3302:
3303: IF (l_debug = 1) THEN
3304: DEBUG('CLEANUP_TEMP_RECS API failed with status E ', 'Unload_truck');
3305: END IF;
3307: RAISE fnd_api.g_exc_error;
3308: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3309: fnd_message.set_name('WMS', 'WMS_CLEANUP_TEMP');
3310: /*Failed in cleanup program*/
3311: fnd_msg_pub.ADD;
3312:
3313: IF (l_debug = 1) THEN
3314: DEBUG('CLEANUP_TEMP_RECS failed with status U', 'Unload_truck');
3315: END IF;
3326: EXCEPTION
3327: WHEN fnd_api.g_exc_error THEN
3328: x_return_status := fnd_api.g_ret_sts_error;
3329: ROLLBACK;
3330: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3331:
3332: IF (l_debug = 1) THEN
3333: DEBUG('Execution Error in Unload_Truck:' || SUBSTR(SQLERRM, 1, 240), 'Unload_Truck');
3334: END IF;
3334: END IF;
3335: WHEN fnd_api.g_exc_unexpected_error THEN
3336: x_return_status := fnd_api.g_ret_sts_unexp_error;
3337: ROLLBACK;
3338: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3339:
3340: IF (l_debug = 1) THEN
3341: DEBUG('Unexpected Error in Unload_Truck:' || SUBSTR(SQLERRM, 1, 240), 'Unload_Truck');
3342: END IF;
3344: --x_error_code := 9999;
3345: x_return_status := fnd_api.g_ret_sts_unexp_error;
3346: ROLLBACK;
3347:
3348: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3349: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'UNLOAD_TRUCK');
3350: END IF;
3351:
3352: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3345: x_return_status := fnd_api.g_ret_sts_unexp_error;
3346: ROLLBACK;
3347:
3348: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3349: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'UNLOAD_TRUCK');
3350: END IF;
3351:
3352: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3353:
3348: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3349: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'UNLOAD_TRUCK');
3350: END IF;
3351:
3352: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3353:
3354: IF (l_debug = 1) THEN
3355: DEBUG('Unexpected Error in Unload_Truck:' || SUBSTR(SQLERRM, 1, 240), 'Unload_Truck');
3356: END IF;
3460: --x_error_code := 9999;
3461: x_return_status := fnd_api.g_ret_sts_unexp_error;
3462: ROLLBACK;
3463:
3464: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3465: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'CLEANUP_TEMP');
3466: END IF;
3467:
3468: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3461: x_return_status := fnd_api.g_ret_sts_unexp_error;
3462: ROLLBACK;
3463:
3464: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3465: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'CLEANUP_TEMP');
3466: END IF;
3467:
3468: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3469:
3464: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3465: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'CLEANUP_TEMP');
3466: END IF;
3467:
3468: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3469:
3470: IF (l_debug = 1) THEN
3471: DEBUG('Unexpected Error in cleanup_temp:' || SUBSTR(SQLERRM, 1, 240), 'CLEANUP_TEMP_RECS');
3472: END IF;
3583: EXCEPTION
3584: WHEN OTHERS THEN
3585: x_return_status := fnd_api.g_ret_sts_unexp_error;
3586:
3587: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3588: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'validate_status_lpn_contents');
3589: END IF;
3590:
3591: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3584: WHEN OTHERS THEN
3585: x_return_status := fnd_api.g_ret_sts_unexp_error;
3586:
3587: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3588: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'validate_status_lpn_contents');
3589: END IF;
3590:
3591: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3592: END validate_status_lpn_contents;
3587: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3588: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'validate_status_lpn_contents');
3589: END IF;
3590:
3591: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3592: END validate_status_lpn_contents;
3593:
3594: PROCEDURE update_freight_cost(
3595: x_return_status OUT NOCOPY VARCHAR2
3698: END IF;
3699:
3700: x_return_status := fnd_api.g_ret_sts_error;
3701: ROLLBACK TO freight_cost;
3702: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3703: WHEN fnd_api.g_exc_unexpected_error THEN
3704: IF lpn_freight%ISOPEN THEN
3705: CLOSE lpn_freight;
3706: END IF;
3715: DEBUG('Update_Freight cost API failed with status (U)', 'update_freight_cost');
3716: END IF;
3717:
3718: ROLLBACK TO freight_cost;
3719: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3720: WHEN OTHERS THEN
3721: IF lpn_freight%ISOPEN THEN
3722: CLOSE lpn_freight;
3723: END IF;
3733: END IF;
3734:
3735: ROLLBACK TO freight_cost;
3736:
3737: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3738: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'update_freight_cost');
3739: END IF;
3740:
3741: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3734:
3735: ROLLBACK TO freight_cost;
3736:
3737: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3738: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'update_freight_cost');
3739: END IF;
3740:
3741: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3742: END update_freight_cost;
3737: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3738: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'update_freight_cost');
3739: END IF;
3740:
3741: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3742: END update_freight_cost;
3743:
3744: /******************************
3745: * Procedure Associates serial numbers with appropriate
4559: EXCEPTION
4560: WHEN fnd_api.g_exc_error THEN
4561: x_return_status := fnd_api.g_ret_sts_error;
4562: ROLLBACK;
4563: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4564: WHEN fnd_api.g_exc_unexpected_error THEN
4565: x_return_status := fnd_api.g_ret_sts_unexp_error;
4566: ROLLBACK;
4567: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4563: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4564: WHEN fnd_api.g_exc_unexpected_error THEN
4565: x_return_status := fnd_api.g_ret_sts_unexp_error;
4566: ROLLBACK;
4567: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4568: WHEN OTHERS THEN
4569: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
4570: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.EXPLODE_DELIVERY_DETAILS');
4571: END explode_delivery_details;
4802: IF (l_debug = 1) THEN
4803: DEBUG('Error Unassign_Detail_from_Cont'|| l_return_status, 'Overship Staged Lines');
4804: END IF;
4805: FND_MESSAGE.SET_NAME('INV', 'INV_UNASSIGN_DEL_FAILURE');
4806: FND_MSG_PUB.ADD;
4807: RAISE FND_API.G_EXC_ERROR;
4808: END IF;
4809:
4810:
6447: IF (l_debug = 1) THEN
6448: DEBUG('In exception type E', 'stage_lpns');
6449: END IF;
6450: -- ROLLBACK;
6451: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6452:
6453: WHEN fnd_api.g_exc_unexpected_error THEN
6454: x_return_status := fnd_api.g_ret_sts_unexp_error;
6455:
6457: DEBUG('In exception type U', 'stage_lpns');
6458: END IF;
6459:
6460: -- ROLLBACK;
6461: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6462: WHEN OTHERS THEN
6463: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
6464:
6465: IF (l_debug = 1) THEN
6679: x_return_status := fnd_api.g_ret_sts_error;
6680: fnd_message.set_name('WMS', 'WMS_SHIP_METHOD_CODE');
6681: fnd_message.set_token('TRIP_NAME', l_trip_name);
6682: /* No Ship method code provided for the Trip .This is required */
6683: fnd_msg_pub.ADD;
6684: /*fnd_msg_pub.count_and_get( p_count => x_msg_count,
6685: p_data => x_msg_data
6686: );*/
6687: DEBUG('In exception no_ship_method_code ', 'Close Trip');
6680: fnd_message.set_name('WMS', 'WMS_SHIP_METHOD_CODE');
6681: fnd_message.set_token('TRIP_NAME', l_trip_name);
6682: /* No Ship method code provided for the Trip .This is required */
6683: fnd_msg_pub.ADD;
6684: /*fnd_msg_pub.count_and_get( p_count => x_msg_count,
6685: p_data => x_msg_data
6686: );*/
6687: DEBUG('In exception no_ship_method_code ', 'Close Trip');
6688: WHEN fnd_api.g_exc_error THEN
6687: DEBUG('In exception no_ship_method_code ', 'Close Trip');
6688: WHEN fnd_api.g_exc_error THEN
6689: x_return_status := fnd_api.g_ret_sts_error;
6690: ROLLBACK; --TO closetruck;
6691: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6692: WHEN fnd_api.g_exc_unexpected_error THEN
6693: x_return_status := fnd_api.g_ret_sts_unexp_error;
6694: ROLLBACK; --TO closetruck;
6695: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6691: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6692: WHEN fnd_api.g_exc_unexpected_error THEN
6693: x_return_status := fnd_api.g_ret_sts_unexp_error;
6694: ROLLBACK; --TO closetruck;
6695: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6696: WHEN OTHERS THEN
6697: x_return_status := fnd_api.g_ret_sts_unexp_error;
6698: ROLLBACK; --TO closetruck;
6699: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6695: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6696: WHEN OTHERS THEN
6697: x_return_status := fnd_api.g_ret_sts_unexp_error;
6698: ROLLBACK; --TO closetruck;
6699: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6700: END;
6701:
6702: --CLOSE_TRUCK
6703:
6849: IF (l_debug = 1) THEN
6850: inv_log_util.TRACE('When others Exception in get_available_vmi_quantity', 'GET_LPN_AVAILABLE_QUANTITY', 9);
6851: END IF;
6852:
6853: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6854: x_return_status := fnd_api.g_ret_sts_unexp_error;
6855: RETURN;
6856: END get_lpn_available_quantity;
6857:
7109: EXCEPTION
7110: WHEN fnd_api.g_exc_error THEN
7111: x_return_status := fnd_api.g_ret_sts_error;
7112: ROLLBACK;
7113: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7114:
7115: IF (l_debug = 1) THEN
7116: DEBUG('Execution Error in Create_Update_Container:' || SUBSTR(SQLERRM, 1, 240), 9);
7117: END IF;
7116: DEBUG('Execution Error in Create_Update_Container:' || SUBSTR(SQLERRM, 1, 240), 9);
7117: END IF;
7118: WHEN fnd_api.g_exc_unexpected_error THEN
7119: x_return_status := fnd_api.g_ret_sts_unexp_error;
7120: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7121:
7122: IF (l_debug = 1) THEN
7123: DEBUG('Unexpected Error in Create_Update_Container:' || SUBSTR(SQLERRM, 1, 240), 'create_update_containers');
7124: END IF;
7129: END IF;
7130: x_return_status := fnd_api.g_ret_sts_unexp_error;
7131: ROLLBACK;
7132:
7133: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7134: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'create_update_containers');
7135: END IF;
7136:
7137: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7130: x_return_status := fnd_api.g_ret_sts_unexp_error;
7131: ROLLBACK;
7132:
7133: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7134: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'create_update_containers');
7135: END IF;
7136:
7137: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7138: END create_update_containers;
7133: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7134: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'create_update_containers');
7135: END IF;
7136:
7137: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7138: END create_update_containers;
7139:
7140: PROCEDURE update_shipped_quantity(
7141: x_return_status OUT NOCOPY VARCHAR2
7318: WHEN fnd_api.g_exc_error THEN
7319: x_return_status := fnd_api.g_ret_sts_error;
7320: x_error_code := 10;
7321: ROLLBACK;
7322: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7323:
7324: IF (l_debug = 1) THEN
7325: DEBUG('Execution Error in Update_shipped_Quantity', 'Update_shipped_Quantity');
7326: DEBUG('Could not update shipping attributes', 'Update_shipped_Quantity');
7327: END IF;
7328: WHEN fnd_api.g_exc_unexpected_error THEN
7329: x_return_status := fnd_api.g_ret_sts_unexp_error;
7330: x_error_code := 20;
7331: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7332:
7333: IF (l_debug = 1) THEN
7334: DEBUG('Unexpected Error in Update_shipped_Quantity:', 'Update_shipped_Quantity');
7335: DEBUG('Could not update shipping attributes', 'Update_shipped_Quantity');
7337: WHEN OTHERS THEN
7338: x_error_code := 30;
7339: x_return_status := fnd_api.g_ret_sts_unexp_error;
7340: ROLLBACK;
7341: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7342:
7343: IF (l_debug = 1) THEN
7344: DEBUG('Could not update shipping attributes', 'Update_shipped_Quantity');
7345: END IF;
7741: EXCEPTION
7742: WHEN fnd_api.g_exc_error THEN
7743: x_return_status := fnd_api.g_ret_sts_error;
7744: ROLLBACK;
7745: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7746:
7747: IF container_details%ISOPEN THEN
7748: CLOSE container_details;
7749: END IF;
7757: END IF;
7758: WHEN fnd_api.g_exc_unexpected_error THEN
7759: x_return_status := fnd_api.g_ret_sts_unexp_error;
7760: ROLLBACK;
7761: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7762:
7763: IF (l_debug = 1) THEN
7764: DEBUG('Unexpected Error in lpn_hiearchy:' || SUBSTR(SQLERRM, 1, 240) || SQLCODE, 'Container_Nesting');
7765: END IF;
7773: END IF;
7774: WHEN OTHERS THEN
7775: x_return_status := fnd_api.g_ret_sts_unexp_error;
7776: ROLLBACK;
7777: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7778:
7779: --debug('Unexpected Error in pack_lpns:' || substr(SQLERRM,1,240),9);
7780: IF (l_debug = 1) THEN
7781: DEBUG('When others in lpn_hiearchy:' || SUBSTR(SQLERRM, 1, 240) || SQLCODE, 'Container_Nesting');
7838: WHERE lpn_id = l_lpn_cur.parent_lpn_id;
7839:
7840: fnd_message.set_name('WMS', 'WMS_ORDER_LINE_SPLIT');
7841: fnd_message.set_token('CONTAINER_NAME', lpn_name);
7842: fnd_msg_pub.ADD;
7843: x_error_code := 7;
7844: RAISE fnd_api.g_exc_error;
7845:
7846: --dbms_output.put_line('Contents of the container '||lpn_name||' are split in order management');
7862: IF (l_debug = 1) THEN
7863: DEBUG('In Exception (expected error) - E ', 'CHECK_ORDER_LINE_SPLIT');
7864: END IF;
7865:
7866: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7867: WHEN fnd_api.g_exc_unexpected_error THEN
7868: x_return_status := fnd_api.g_ret_sts_unexp_error;
7869:
7870: IF lpn_cur%ISOPEN THEN
7874: IF (l_debug = 1) THEN
7875: DEBUG('In UnException (unexpected error) - U ', 'CHECK_ORDER_LINE_SPLIT');
7876: END IF;
7877:
7878: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7879: WHEN OTHERS THEN
7880: x_return_status := fnd_api.g_ret_sts_unexp_error;
7881:
7882: IF lpn_cur%ISOPEN THEN
7886: IF (l_debug = 1) THEN
7887: DEBUG('In Exception (When others) - U ', 'CHECK_ORDER_LINE_SPLIT');
7888: END IF;
7889:
7890: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7891: END check_order_line_split;
7892:
7893: PROCEDURE check_missing_item_cur(
7894: p_delivery_id IN NUMBER
8054: END;
8055: EXCEPTION
8056: WHEN fnd_api.g_exc_error THEN
8057: x_return_status := fnd_api.g_ret_sts_error;
8058: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8059: WHEN fnd_api.g_exc_unexpected_error THEN
8060: x_return_status := fnd_api.g_ret_sts_unexp_error;
8061: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8062: WHEN OTHERS THEN
8057: x_return_status := fnd_api.g_ret_sts_error;
8058: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8059: WHEN fnd_api.g_exc_unexpected_error THEN
8060: x_return_status := fnd_api.g_ret_sts_unexp_error;
8061: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8062: WHEN OTHERS THEN
8063: x_return_status := fnd_api.g_ret_sts_unexp_error;
8064: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8065: END chk_del_for_direct_ship;
8060: x_return_status := fnd_api.g_ret_sts_unexp_error;
8061: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8062: WHEN OTHERS THEN
8063: x_return_status := fnd_api.g_ret_sts_unexp_error;
8064: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8065: END chk_del_for_direct_ship;
8066:
8067:
8068: --Bug#5262108.This is to determine the qty remaining to pick
8352: END IF;
8353:
8354: x_return_status := fnd_api.g_ret_sts_error;
8355: fnd_message.set_name('WMS', 'WMS_SUB_NON_RESERVABLE');
8356: fnd_msg_pub.ADD;
8357: RETURN;
8358: ELSE
8359: IF (l_debug = 1) THEN
8360: DEBUG('Before getting LPN contents ', 'Process_LPN');
8428: END IF;
8429:
8430: x_return_status := fnd_api.g_ret_sts_error;
8431: fnd_message.set_name('WMS', 'WMS_ITEM_NON_RESERVABLE');
8432: fnd_msg_pub.ADD;
8433: RETURN;
8434: END IF;
8435:
8436: l_end_index := l_lpn_contents_cur%ROWCOUNT;
8512:
8513: IF g_lpn_contents_tab.COUNT = 0 THEN
8514: x_return_status := fnd_api.g_ret_sts_error;
8515: fnd_message.set_name('WMS', 'WMS_EMPTY_LPN');
8516: fnd_msg_pub.ADD;
8517:
8518: IF (l_debug = 1) THEN
8519: DEBUG('LPN is empty', 'Process_LPN');
8520: END IF;
8540: END IF;
8541:
8542: x_return_status := fnd_api.g_ret_sts_error;
8543: fnd_message.set_name('WMS', 'WMS_INVALID_MAT_STATUS');
8544: fnd_msg_pub.ADD;
8545: RETURN;
8546: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8547: IF (l_debug = 1) THEN
8548: DEBUG('Validate Status LPN Contents procedure failed with error status U ', 'Process_LPN');
8549: END IF;
8550:
8551: x_return_status := fnd_api.g_ret_sts_error;
8552: fnd_message.set_name('WMS', 'WMS_INVALID_MAT_STATUS');
8553: fnd_msg_pub.ADD;
8554: RETURN;
8555: END IF;
8556:
8557: IF (l_debug = 1) THEN
8786: DEBUG('Order Line not booked','Process_LPN');
8787: END IF;
8788: x_return_status:=FND_API.G_RET_STS_ERROR;
8789: FND_MESSAGE.SET_NAME('WMS','WMS_LINE_NOT_BOOKED');
8790: FND_MSG_PUB.ADD;
8791: RETURN;
8792: END IF;*/
8793: --Bug 2909327:Changed the call to check wsh_delivery_details instead of oel*/
8794: BEGIN
8811: END IF;
8812:
8813: x_return_status := fnd_api.g_ret_sts_error;
8814: fnd_message.set_name('WMS', 'WMS_LINE_NOT_BOOKED');
8815: fnd_msg_pub.ADD;
8816: RETURN;
8817: END;
8818: IF (l_debug = 1) THEN
8819: DEBUG('l_order_line_status: '|| l_order_line_status, 'Process_LPN');
8829: END IF;
8830:
8831: x_return_status := fnd_api.g_ret_sts_error;
8832: fnd_message.set_name('WMS', 'WMS_PJM_VALIDATION_FAILED');
8833: fnd_msg_pub.ADD;
8834: RETURN;
8835: END IF;
8836: END IF;
8837:
8862: END IF;
8863:
8864: x_return_status := fnd_api.g_ret_sts_error;
8865: fnd_message.set_name('WMS', 'WMS_PJM_VALIDATION_FAILED');
8866: fnd_msg_pub.ADD;
8867: RETURN;
8868: END IF;
8869: END IF;
8870: END IF;
8876: END IF;
8877:
8878: x_return_status := fnd_api.g_ret_sts_error;
8879: fnd_message.set_name('WMS', 'WMS_DEL_GRP_FAILED');
8880: fnd_msg_pub.ADD;
8881: RETURN;
8882: END IF;
8883:
8884: -- check delivery for direct ship
8889: END IF;
8890:
8891: x_return_status := fnd_api.g_ret_sts_error;
8892: fnd_message.set_name('WMS', 'WMS_DEL_LINES_MIX');
8893: fnd_msg_pub.ADD;
8894: RETURN;
8895: END IF;
8896:
8897: IF l_num_line_processed = 0 THEN -- needs to be set only once
8924: END IF;
8925:
8926: x_return_status := fnd_api.g_ret_sts_error;
8927: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
8928: fnd_msg_pub.ADD;
8929: RETURN;
8930: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8931: IF (l_debug = 1) THEN
8932: DEBUG('Check holds Failed :Unexpected', 'Process_LPN');
8933: END IF;
8934:
8935: x_return_status := fnd_api.g_ret_sts_error;
8936: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
8937: fnd_msg_pub.ADD;
8938: RETURN;
8939: ELSE
8940: IF (l_debug = 1) THEN
8941: DEBUG('Check Holds Succeeded', 'Process LPN');
9087: END IF;
9088:
9089: x_return_status := fnd_api.g_ret_sts_error;
9090: fnd_message.set_name('WMS', 'WMS_PJM_VALIDATION_FAILED');
9091: fnd_msg_pub.ADD;
9092: RETURN;
9093: END IF;
9094:
9095: IF (l_debug = 1) THEN
9206: END IF;
9207:
9208: x_return_status := fnd_api.g_ret_sts_unexp_error;
9209: fnd_message.set_name('WMS', 'WMS_ERROR_LOADING_LPN');
9210: fnd_msg_pub.ADD;
9211: END process_lpn;
9212:
9213: /* This procedure creates reservations for a line if it is not there and
9214: inserts processed line record into WDS.
9327: END IF;
9328:
9329: x_return_status := fnd_api.g_ret_sts_error;
9330: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_AVAILABLE');
9331: fnd_msg_pub.ADD;
9332: RETURN;
9333: END IF;
9334:
9335: --ACTION
9340: END IF;
9341:
9342: x_return_status := fnd_api.g_ret_sts_error;
9343: fnd_message.set_name('WMS', 'WMS_PJM_VALIDATION_FAILED');
9344: fnd_msg_pub.ADD;
9345: RETURN;
9346: END IF;
9347:
9348: -- checkk delivery for irect ship
9352: END IF;
9353:
9354: x_return_status := fnd_api.g_ret_sts_error;
9355: fnd_message.set_name('WMS', 'WMS_DEL_LINES_MIX');
9356: fnd_msg_pub.ADD;
9357: RETURN;
9358: END IF;
9359:
9360: -- check holds
9372: END IF;
9373:
9374: x_return_status := fnd_api.g_ret_sts_error;
9375: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
9376: fnd_msg_pub.ADD;
9377: RETURN;
9378: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9379: IF (l_debug = 1) THEN
9380: DEBUG('Check Holds Failed', 'Process_Line');
9381: END IF;
9382:
9383: x_return_status := fnd_api.g_ret_sts_error;
9384: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
9385: fnd_msg_pub.ADD;
9386: RETURN;
9387: ELSE
9388: IF (l_debug = 1) THEN
9389: DEBUG('Check Holds Succeeded', 'Process Line');
10227: , g_last_update_date
10228: , g_last_updated_by
10229: , g_last_update_login
10230: );
10231: fnd_msg_pub.Initialize;
10232: END IF;
10233: else
10234: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_AVAILABLE');
10235: fnd_msg_pub.ADD;
10231: fnd_msg_pub.Initialize;
10232: END IF;
10233: else
10234: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_AVAILABLE');
10235: fnd_msg_pub.ADD;
10236: IF (l_debug = 1) THEN
10237: DEBUG('Processed quantity for line is zero. Record not inserted into wds', 'Process_Line');
10238: END IF;
10239: end if;
10248: END IF;
10249:
10250: x_return_status := fnd_api.g_ret_sts_unexp_error;
10251: fnd_message.set_name('WMS', 'WMS_ERROR_LOADING_LINE');
10252: fnd_msg_pub.ADD;
10253: END process_line;
10254:
10255: /* This functions validates the line being packect into LPN for
10256: Delivery grouping rules.
10673: END IF;
10674:
10675: x_return_status := fnd_api.g_ret_sts_unexp_error;
10676: fnd_message.set_name('WMS', 'WMS_ERROR_LOADING_LPN');
10677: fnd_msg_pub.ADD;
10678: END load_lpn;
10679:
10680: /*
10681: This procedure distributes the un-used quantity in the lpn among all the loaded lines.
11545: END IF;
11546: END IF;
11547:
11548: fnd_message.set_name('WMS', 'WMS_LPN_NOT_CONSUMED');
11549: fnd_msg_pub.ADD;
11550: RETURN;
11551: END IF;
11552: END IF; -- quantity>0
11553:
11564: END IF;
11565:
11566: x_return_status := fnd_api.g_ret_sts_unexp_error;
11567: fnd_message.set_name('WMS', 'WMS_ERROR_LOADING_LPN');
11568: fnd_msg_pub.ADD;
11569: END perform_overship_distribution;
11570:
11571: /*
11572: This procedure checks any type of hold applied on the order line.
11627: IF (l_debug = 1) THEN
11628: DEBUG('fnd_api.g_exe_error ' || SQLERRM, 'Check_holds');
11629: END IF;
11630:
11631: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11632: WHEN fnd_api.g_exc_unexpected_error THEN
11633: x_return_status := fnd_api.g_ret_sts_unexp_error;
11634:
11635: IF (l_debug = 1) THEN
11635: IF (l_debug = 1) THEN
11636: DEBUG('FND_API.G_UNEXPECTED_ERR' || SQLERRM, 'check_holds');
11637: END IF;
11638:
11639: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11640: WHEN OTHERS THEN
11641: x_return_status := fnd_api.g_ret_sts_unexp_error;
11642:
11643: IF (l_debug = 1) THEN
11643: IF (l_debug = 1) THEN
11644: DEBUG('FND_API.G_UNEXPECTED_ERR' || SQLERRM, 'check_holds');
11645: END IF;
11646:
11647: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11648: END check_holds;
11649:
11650: /* Bug 2994099:This procedure cleanup all the temp data for a backordered delivery for this lpn */
11651: