197: END IF;
198:
199: WSH_SHIPMENT_REQUEST_PKG.Process_Shipment_Request(
200: p_transaction_rec => l_trns_history_rec,
201: p_commit_flag => FND_API.G_TRUE,
202: x_return_status => l_return_status);
203:
204: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
205: RAISE FND_API.G_EXC_ERROR;
201: p_commit_flag => FND_API.G_TRUE,
202: x_return_status => l_return_status);
203:
204: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
205: RAISE FND_API.G_EXC_ERROR;
206: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208: ELSE
209: IF NVL(x_return_status,wsh_util_core.g_ret_sts_success) =
203:
204: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
205: RAISE FND_API.G_EXC_ERROR;
206: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208: ELSE
209: IF NVL(x_return_status,wsh_util_core.g_ret_sts_success) =
210: wsh_util_core.g_ret_sts_success
211: THEN
418: END IF;
419: --
420: --
421: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
422: RAISE FND_API.G_EXC_ERROR;
423: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
425: ELSE
426: IF NVL(x_return_status,wsh_util_core.g_ret_sts_success) =
420: --
421: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
422: RAISE FND_API.G_EXC_ERROR;
423: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
425: ELSE
426: IF NVL(x_return_status,wsh_util_core.g_ret_sts_success) =
427: wsh_util_core.g_ret_sts_success
428: THEN
457: END IF;
458:
459: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
460: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
461: RAISE FND_API.G_EXC_ERROR;
462: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464: END IF;
465: --}
459: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
460: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
461: RAISE FND_API.G_EXC_ERROR;
462: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464: END IF;
465: --}
466: END IF;
467: --
496: END IF;
497: --
498: --
499: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: --ELSE
504: --x_return_status := l_return_status;
498: --
499: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: --ELSE
504: --x_return_status := l_return_status;
505: END IF;
506: --
525: END IF;
526:
527: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
528: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
529: RAISE FND_API.G_EXC_ERROR;
530: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
532: END IF;
533: --}
527: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
528: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
529: RAISE FND_API.G_EXC_ERROR;
530: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
532: END IF;
533: --}
534: END IF;
535: --
594:
595: --wsh_debug_sv.stop_other_app_debug('OE', l_return_status);
596: wsh_debug_sv.stop_debug;
597: EXCEPTION
598: WHEN FND_API.G_EXC_ERROR THEN
599: x_return_status := FND_API.G_RET_STS_ERROR ;
600: --
601: -- K LPN CONV. rv
602: --
595: --wsh_debug_sv.stop_other_app_debug('OE', l_return_status);
596: wsh_debug_sv.stop_debug;
597: EXCEPTION
598: WHEN FND_API.G_EXC_ERROR THEN
599: x_return_status := FND_API.G_RET_STS_ERROR ;
600: --
601: -- K LPN CONV. rv
602: --
603: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
659: -- End of Code Bugfix 4070732
660: --
661:
662: IF l_debug_on THEN
663: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
665: END IF;
666: --
667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
660: --
661:
662: IF l_debug_on THEN
663: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
665: END IF;
666: --
667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
663: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
665: END IF;
666: --
667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
669: --
670: -- K LPN CONV. rv
671: --
664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
665: END IF;
666: --
667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
669: --
670: -- K LPN CONV. rv
671: --
672: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
719: --
720: -- End of Code Bugfix 4070732
721: --
722: IF l_debug_on THEN
723: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
724: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
725: END IF;
726: --
727: WHEN invalid_doc_direction
720: -- End of Code Bugfix 4070732
721: --
722: IF l_debug_on THEN
723: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
724: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
725: END IF;
726: --
727: WHEN invalid_doc_direction
728: THEN
1008: END IF;
1009: wsh_debug_sv.stop_debug;
1010: WHEN OTHERS
1011: THEN
1012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1013: IF l_debug_on THEN
1014: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1015: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1016: END IF;
1388: WSH_DEBUG_SV.log(l_module_name, 'SoldTo Customer derived from Customer Name', l_customer_id );
1389: END IF;
1390: --
1391:
1392: IF nvl(l_customer_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1393: l_customer_id := null;
1394: IF (x_return_status <> wsh_util_core.g_ret_sts_success)
1395: THEN
1396: interface_errors_rec.p_token3 := 'Customer Name';
1423: p_customer_number => NULL );
1424:
1425: WSH_DEBUG_SV.logmsg(l_module_name, 'l_ship_to_cust_id = '||l_ship_to_cust_id, WSH_DEBUG_SV.C_PROC_LEVEL);
1426:
1427: IF nvl(l_ship_to_cust_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1428: l_ship_to_cust_id := null;
1429: IF (x_return_status <> wsh_util_core.g_ret_sts_success)
1430: THEN
1431: interface_errors_rec.p_token3 := 'Ship To Customer Name';
1462: --
1463: IF l_debug_on THEN
1464: WSH_DEBUG_SV.log(l_module_name, 'ShipTo Site Use Id', l_ship_to_site_use_id);
1465: END IF;
1466: IF ( nvl(l_ship_to_site_use_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM )
1467: THEN
1468: l_ship_to_site_use_id := null;
1469: IF (x_return_status <> wsh_util_core.g_ret_sts_success)
1470: THEN