165: -- Setting the return status in the begining
166: x_return_status := wsh_util_core.g_ret_sts_success;
167: --
168: IF l_debug_on THEN
169: WSH_DEBUG_SV.log(l_module_name,'wsh_wms_lpn_grp.g_hw_time_stamp', wsh_wms_lpn_grp.g_hw_time_stamp);
170: END IF;
171: --
172: IF ( wsh_wms_lpn_grp.g_hw_time_stamp is null ) THEN
173: wsh_wms_lpn_grp.g_hw_time_stamp := sysdate;
168: IF l_debug_on THEN
169: WSH_DEBUG_SV.log(l_module_name,'wsh_wms_lpn_grp.g_hw_time_stamp', wsh_wms_lpn_grp.g_hw_time_stamp);
170: END IF;
171: --
172: IF ( wsh_wms_lpn_grp.g_hw_time_stamp is null ) THEN
173: wsh_wms_lpn_grp.g_hw_time_stamp := sysdate;
174: END IF;
175: --
176: l_current_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp;
169: WSH_DEBUG_SV.log(l_module_name,'wsh_wms_lpn_grp.g_hw_time_stamp', wsh_wms_lpn_grp.g_hw_time_stamp);
170: END IF;
171: --
172: IF ( wsh_wms_lpn_grp.g_hw_time_stamp is null ) THEN
173: wsh_wms_lpn_grp.g_hw_time_stamp := sysdate;
174: END IF;
175: --
176: l_current_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp;
177: l_original_call_grp_api := wsh_wms_lpn_grp.g_call_group_api;
172: IF ( wsh_wms_lpn_grp.g_hw_time_stamp is null ) THEN
173: wsh_wms_lpn_grp.g_hw_time_stamp := sysdate;
174: END IF;
175: --
176: l_current_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp;
177: l_original_call_grp_api := wsh_wms_lpn_grp.g_call_group_api;
178:
179: -- This is not required any more as g_hw_time_stamp will always be initialized
180: --IF (l_current_hw_time_stamp IS NULL) THEN
173: wsh_wms_lpn_grp.g_hw_time_stamp := sysdate;
174: END IF;
175: --
176: l_current_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp;
177: l_original_call_grp_api := wsh_wms_lpn_grp.g_call_group_api;
178:
179: -- This is not required any more as g_hw_time_stamp will always be initialized
180: --IF (l_current_hw_time_stamp IS NULL) THEN
181: --{
231: END IF;
232: -- This infrastructure is built for future so that when
233: -- WMS is interested in getting this information, we
234: -- need to make a call at this point
235: -- need to set the WSH_WMS_LPN_GRP.g_call_group_api := 'N';
236: -- before calling WMS
237: l_unpack_lpn_id_tbl.delete;
238: i := 1;
239: --
275: END IF;
276: -- This infrastructure is built for future so that when
277: -- WMS is interested in getting this information, we
278: -- need to make a call at this point
279: -- need to set the WSH_WMS_LPN_GRP.g_call_group_api := 'N';
280: -- before calling WMS
281: l_pack_lpn_id_tbl.delete;
282: i := 1;
283: --
318: END IF;
319: -- This infrastructure is built for future so that when
320: -- WMS is interested in getting this information, we
321: -- need to make a call at this point
322: -- need to set the WSH_WMS_LPN_GRP.g_call_group_api := 'N';
323: -- before calling WMS
324: l_unasgn_lpn_id_tbl.delete;
325: i := 1;
326: --
362: END IF;
363: -- This infrastructure is built for future so that when
364: -- WMS is interested in getting this information, we
365: -- need to make a call at this point
366: -- need to set the WSH_WMS_LPN_GRP.g_call_group_api := 'N';
367: -- before calling WMS
368: l_asgn_lpn_id_tbl.delete;
369: i := 1;
370: --
418: --
419: IF ( l_wms_lpn_tbl.count > 0 ) THEN
420: --{
421: -- setting the globals appropriately before calling WMS.
422: WSH_WMS_LPN_GRP.g_call_group_api := 'N';
423:
424: IF l_debug_on THEN
425: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_CONTAINER_GRP.MODIFY_LPNS',WSH_DEBUG_SV.C_PROC_LEVEL);
426: END IF;
435: p_caller => 'WSH_WMS_SYNC_TMP_PKG',
436: p_lpn_table => l_wms_lpn_tbl
437: );
438: -- resetting the values back to the original values
439: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
440:
441: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
442: wsh_wms_lpn_grp.g_update_to_containers := 'N';
443: END IF;
437: );
438: -- resetting the values back to the original values
439: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
440:
441: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
442: wsh_wms_lpn_grp.g_update_to_containers := 'N';
443: END IF;
444:
445: --
438: -- resetting the values back to the original values
439: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
440:
441: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
442: wsh_wms_lpn_grp.g_update_to_containers := 'N';
443: END IF;
444:
445: --
446: -- Debug Statements
458:
459: --}
460: END IF;
461:
462: wsh_wms_lpn_grp.g_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp + 1/86400;
463:
464: IF l_num_errors > 0 THEN
465: RAISE FND_API.G_EXC_ERROR;
466: ELSIF l_num_warnings > 0 THEN
478: EXCEPTION
479: --{
480: WHEN FND_API.G_EXC_ERROR THEN
481: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
482: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
483: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
484: wsh_wms_lpn_grp.g_update_to_containers := 'N';
485: END IF;
486: --
479: --{
480: WHEN FND_API.G_EXC_ERROR THEN
481: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
482: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
483: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
484: wsh_wms_lpn_grp.g_update_to_containers := 'N';
485: END IF;
486: --
487: --
480: WHEN FND_API.G_EXC_ERROR THEN
481: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
482: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
483: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
484: wsh_wms_lpn_grp.g_update_to_containers := 'N';
485: END IF;
486: --
487: --
488: --
494: END IF;
495: --
496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
497: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
498: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
499: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
500: wsh_wms_lpn_grp.g_update_to_containers := 'N';
501: END IF;
502: --
495: --
496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
497: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
498: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
499: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
500: wsh_wms_lpn_grp.g_update_to_containers := 'N';
501: END IF;
502: --
503: --
496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
497: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
498: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
499: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
500: wsh_wms_lpn_grp.g_update_to_containers := 'N';
501: END IF;
502: --
503: --
504: --
511: --
512: WHEN OTHERS THEN
513: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
514: wsh_util_core.default_handler('WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_module_name);
515: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
516: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
517: wsh_wms_lpn_grp.g_update_to_containers := 'N';
518: END IF;
519: --
512: WHEN OTHERS THEN
513: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
514: wsh_util_core.default_handler('WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_module_name);
515: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
516: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
517: wsh_wms_lpn_grp.g_update_to_containers := 'N';
518: END IF;
519: --
520: -- Debug Statements
513: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
514: wsh_util_core.default_handler('WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_module_name);
515: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
516: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
517: wsh_wms_lpn_grp.g_update_to_containers := 'N';
518: END IF;
519: --
520: -- Debug Statements
521: --
599: --
600: -- Setting the return status in the begining
601: x_return_status := wsh_util_core.g_ret_sts_success;
602: --
603: IF ( wsh_wms_lpn_grp.g_hw_time_stamp is null ) THEN
604: wsh_wms_lpn_grp.g_hw_time_stamp := sysdate;
605: END IF;
606:
607: l_current_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp;
600: -- Setting the return status in the begining
601: x_return_status := wsh_util_core.g_ret_sts_success;
602: --
603: IF ( wsh_wms_lpn_grp.g_hw_time_stamp is null ) THEN
604: wsh_wms_lpn_grp.g_hw_time_stamp := sysdate;
605: END IF;
606:
607: l_current_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp;
608: l_original_call_grp_api := wsh_wms_lpn_grp.g_call_group_api;
603: IF ( wsh_wms_lpn_grp.g_hw_time_stamp is null ) THEN
604: wsh_wms_lpn_grp.g_hw_time_stamp := sysdate;
605: END IF;
606:
607: l_current_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp;
608: l_original_call_grp_api := wsh_wms_lpn_grp.g_call_group_api;
609:
610: IF l_debug_on THEN
611: WSH_DEBUG_SV.log(l_module_name,'wsh_wms_lpn_grp.g_hw_time_stamp', wsh_wms_lpn_grp.g_hw_time_stamp);
604: wsh_wms_lpn_grp.g_hw_time_stamp := sysdate;
605: END IF;
606:
607: l_current_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp;
608: l_original_call_grp_api := wsh_wms_lpn_grp.g_call_group_api;
609:
610: IF l_debug_on THEN
611: WSH_DEBUG_SV.log(l_module_name,'wsh_wms_lpn_grp.g_hw_time_stamp', wsh_wms_lpn_grp.g_hw_time_stamp);
612: WSH_DEBUG_SV.log(l_module_name,'l_original_call_grp_api', l_original_call_grp_api);
607: l_current_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp;
608: l_original_call_grp_api := wsh_wms_lpn_grp.g_call_group_api;
609:
610: IF l_debug_on THEN
611: WSH_DEBUG_SV.log(l_module_name,'wsh_wms_lpn_grp.g_hw_time_stamp', wsh_wms_lpn_grp.g_hw_time_stamp);
612: WSH_DEBUG_SV.log(l_module_name,'l_original_call_grp_api', l_original_call_grp_api);
613: END IF;
614: --
615: i := 1;
630: IF ( l_wms_lpn_tbl.count > 0
631: AND l_loopCounter > 1 AND l_call_level <> l_prev_call_level) THEN
632: --{
633: -- setting the globals appropriately before calling WMS.
634: WSH_WMS_LPN_GRP.g_call_group_api := 'N';
635:
636: IF l_debug_on THEN
637: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_CONTAINER_GRP.MODIFY_LPNS',WSH_DEBUG_SV.C_PROC_LEVEL);
638: END IF;
647: p_caller => 'WSH_WMS_SYNC_TMP_PKG',
648: p_lpn_table => l_wms_lpn_tbl
649: );
650: -- resetting the values back to the original values
651: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
652:
653: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
654: wsh_wms_lpn_grp.g_update_to_containers := 'N';
655: END IF;
649: );
650: -- resetting the values back to the original values
651: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
652:
653: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
654: wsh_wms_lpn_grp.g_update_to_containers := 'N';
655: END IF;
656:
657: --
650: -- resetting the values back to the original values
651: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
652:
653: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
654: wsh_wms_lpn_grp.g_update_to_containers := 'N';
655: END IF;
656:
657: --
658: -- Debug Statements
708: --
709: IF ( l_wms_lpn_tbl.count > 0 ) THEN
710: --{
711: -- setting the globals appropriately before calling WMS.
712: WSH_WMS_LPN_GRP.g_call_group_api := 'N';
713:
714: IF l_debug_on THEN
715: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_CONTAINER_GRP.MODIFY_LPNS',WSH_DEBUG_SV.C_PROC_LEVEL);
716: END IF;
725: p_caller => 'WSH_WMS_SYNC_TMP_PKG',
726: p_lpn_table => l_wms_lpn_tbl
727: );
728: -- resetting the values back to the original values
729: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
730:
731: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
732: wsh_wms_lpn_grp.g_update_to_containers := 'N';
733: END IF;
727: );
728: -- resetting the values back to the original values
729: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
730:
731: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
732: wsh_wms_lpn_grp.g_update_to_containers := 'N';
733: END IF;
734:
735: --
728: -- resetting the values back to the original values
729: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
730:
731: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
732: wsh_wms_lpn_grp.g_update_to_containers := 'N';
733: END IF;
734:
735: --
736: -- Debug Statements
748: --}
749: END IF;
750:
751:
752: wsh_wms_lpn_grp.g_hw_time_stamp := wsh_wms_lpn_grp.g_hw_time_stamp + 1/86400;
753:
754: IF l_num_errors > 0 THEN
755: RAISE FND_API.G_EXC_ERROR;
756: ELSIF l_num_warnings > 0 THEN
768: EXCEPTION
769: --{
770: WHEN FND_API.G_EXC_ERROR THEN
771: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
772: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
773: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
774: wsh_wms_lpn_grp.g_update_to_containers := 'N';
775: END IF;
776: --
769: --{
770: WHEN FND_API.G_EXC_ERROR THEN
771: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
772: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
773: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
774: wsh_wms_lpn_grp.g_update_to_containers := 'N';
775: END IF;
776: --
777: --
770: WHEN FND_API.G_EXC_ERROR THEN
771: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
772: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
773: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
774: wsh_wms_lpn_grp.g_update_to_containers := 'N';
775: END IF;
776: --
777: --
778: --
784: END IF;
785: --
786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
787: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
788: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
789: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
790: wsh_wms_lpn_grp.g_update_to_containers := 'N';
791: END IF;
792: --
785: --
786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
787: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
788: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
789: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
790: wsh_wms_lpn_grp.g_update_to_containers := 'N';
791: END IF;
792: --
793: --
786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
787: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
788: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
789: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
790: wsh_wms_lpn_grp.g_update_to_containers := 'N';
791: END IF;
792: --
793: --
794: --
801: --
802: WHEN OTHERS THEN
803: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
804: wsh_util_core.default_handler('WSH_LPN_SYNC_COMM_PKG.SYNC_PRORATED_LPNS_TO_WMS',l_module_name);
805: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
806: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
807: wsh_wms_lpn_grp.g_update_to_containers := 'N';
808: END IF;
809: --
802: WHEN OTHERS THEN
803: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
804: wsh_util_core.default_handler('WSH_LPN_SYNC_COMM_PKG.SYNC_PRORATED_LPNS_TO_WMS',l_module_name);
805: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
806: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
807: wsh_wms_lpn_grp.g_update_to_containers := 'N';
808: END IF;
809: --
810: -- Debug Statements
803: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
804: wsh_util_core.default_handler('WSH_LPN_SYNC_COMM_PKG.SYNC_PRORATED_LPNS_TO_WMS',l_module_name);
805: WSH_WMS_LPN_GRP.g_call_group_api := l_original_call_grp_api;
806: IF (nvl(wsh_wms_lpn_grp.g_update_to_containers,'N') = 'Y') THEN
807: wsh_wms_lpn_grp.g_update_to_containers := 'N';
808: END IF;
809: --
810: -- Debug Statements
811: --