[Home] [Help]
93: );
94: TYPE cont_msi_tab IS TABLE OF cont_msi_info INDEX BY BINARY_INTEGER;
95: g_cont_msi_tab cont_msi_tab;
96:
97: C_ERROR_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_ERROR;
98: C_WARNING_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_WARNING;
99: C_SUCCESS_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
100: C_UNEXP_ERROR_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
101:
94: TYPE cont_msi_tab IS TABLE OF cont_msi_info INDEX BY BINARY_INTEGER;
95: g_cont_msi_tab cont_msi_tab;
96:
97: C_ERROR_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_ERROR;
98: C_WARNING_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_WARNING;
99: C_SUCCESS_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
100: C_UNEXP_ERROR_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
101:
102: --
95: g_cont_msi_tab cont_msi_tab;
96:
97: C_ERROR_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_ERROR;
98: C_WARNING_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_WARNING;
99: C_SUCCESS_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
100: C_UNEXP_ERROR_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
101:
102: --
103: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_CONTAINER_ACTIONS';
96:
97: C_ERROR_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_ERROR;
98: C_WARNING_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_WARNING;
99: C_SUCCESS_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
100: C_UNEXP_ERROR_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
101:
102: --
103: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_CONTAINER_ACTIONS';
104: --
179: WSH_DEBUG_SV.log(l_module_name, 'p_cont_item_id', p_cont_item_id);
180: WSH_DEBUG_SV.log(l_module_name, 'p_organization_id', p_organization_id);
181: END IF;
182:
183: x_return_status := wsh_util_core.g_ret_sts_success;
184: IF p_cont_item_id IS NOT NULL THEN
185: --{
186: OPEN l_valid_cont_csr (p_cont_item_id, p_organization_id);
187: FETCH l_valid_cont_csr INTO l_valid_container;
187: FETCH l_valid_cont_csr INTO l_valid_container;
188: IF l_valid_cont_csr%NOTFOUND THEN
189: --{
190: IF l_debug_on THEN
191: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
192: END IF;
193: --
194: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_cont_item_id,p_organization_id);
195: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
190: IF l_debug_on THEN
191: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
192: END IF;
193: --
194: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_cont_item_id,p_organization_id);
195: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
196: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
197: CLOSE l_valid_cont_csr;
198: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
194: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_cont_item_id,p_organization_id);
195: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
196: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
197: CLOSE l_valid_cont_csr;
198: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
199:
200: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
201: --}
202: ELSE
196: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
197: CLOSE l_valid_cont_csr;
198: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
199:
200: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
201: --}
202: ELSE
203: --{
204: CLOSE l_valid_cont_csr;
211: WSH_DEBUG_SV.pop(l_module_name);
212: END IF;
213: EXCEPTION
214: WHEN Others THEN
215: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Container',l_module_name);
216: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
217: --
218: IF l_debug_on THEN
219: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
212: END IF;
213: EXCEPTION
214: WHEN Others THEN
215: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Container',l_module_name);
216: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
217: --
218: IF l_debug_on THEN
219: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
220: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
402: AND NVL(p_caller,'WSH') NOT LIKE 'WMS%'
403: THEN
404:
405: IF l_debug_on THEN
406: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
407: END IF;
408: --
409: l_item_name := WSH_UTIL_CORE.Get_Item_Name(P_container_rec.inventory_item_id,P_container_rec.organization_id);
410: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
405: IF l_debug_on THEN
406: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
407: END IF;
408: --
409: l_item_name := WSH_UTIL_CORE.Get_Item_Name(P_container_rec.inventory_item_id,P_container_rec.organization_id);
410: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
411: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
412: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
413: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
408: --
409: l_item_name := WSH_UTIL_CORE.Get_Item_Name(P_container_rec.inventory_item_id,P_container_rec.organization_id);
410: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
411: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
412: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
413: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
414: END IF;
415:
416: CLOSE Get_Cont_Item_Info;
409: l_item_name := WSH_UTIL_CORE.Get_Item_Name(P_container_rec.inventory_item_id,P_container_rec.organization_id);
410: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
411: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
412: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
413: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
414: END IF;
415:
416: CLOSE Get_Cont_Item_Info;
417: -- Bug#: 3362895
447: l_wt_uom_org,
448: l_vol_uom_org,
449: l_return_status);
450:
451: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
452: --
453: IF l_debug_on THEN
454: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR GETTING DEFFAULT UOMS' );
455: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
451: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
452: --
453: IF l_debug_on THEN
454: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR GETTING DEFFAULT UOMS' );
455: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
456: END IF;
457: --
458: l_org_name := WSH_UTIL_CORE.Get_Org_Name(P_container_rec.organization_id);
459: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
454: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR GETTING DEFFAULT UOMS' );
455: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
456: END IF;
457: --
458: l_org_name := WSH_UTIL_CORE.Get_Org_Name(P_container_rec.organization_id);
459: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
460: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
461: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
462: --
457: --
458: l_org_name := WSH_UTIL_CORE.Get_Org_Name(P_container_rec.organization_id);
459: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
460: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
461: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
462: --
463: IF l_debug_on THEN
464: WSH_DEBUG_SV.log(l_module_name,'Org Name is ',l_org_name);
465: END IF;
463: IF l_debug_on THEN
464: WSH_DEBUG_SV.log(l_module_name,'Org Name is ',l_org_name);
465: END IF;
466: --
467: wsh_util_core.api_post_call
468: (
469: p_return_status => l_return_status,
470: x_num_warnings => l_num_warnings,
471: x_num_errors => l_num_errors
513: quantity => p_container_rec.volume,
514: item_id => P_container_rec.inventory_item_id,
515: x_return_status => l_return_status
516: );
517: wsh_util_core.api_post_call
518: (
519: p_return_status => l_return_status,
520: x_num_warnings => l_num_warnings,
521: x_num_errors => l_num_errors
531: to_uom =>l_vol_uom,
532: quantity =>p_container_rec.filled_volume,
533: item_id =>P_container_rec.inventory_item_id,
534: x_return_status => l_return_status );
535: wsh_util_core.api_post_call
536: (
537: p_return_status => l_return_status,
538: x_num_warnings => l_num_warnings,
539: x_num_errors => l_num_errors
551: quantity => p_container_rec.gross_weight,
552: item_id => P_container_rec.inventory_item_id,
553: x_return_status => l_return_status
554: );
555: wsh_util_core.api_post_call
556: (
557: p_return_status => l_return_status,
558: x_num_warnings => l_num_warnings,
559: x_num_errors => l_num_errors
565: to_uom => l_wt_uom,
566: quantity => p_container_rec.net_weight,
567: item_id =>P_container_rec.inventory_item_id,
568: x_return_status => l_return_status);
569: wsh_util_core.api_post_call
570: (
571: p_return_status => l_return_status,
572: x_num_warnings => l_num_warnings,
573: x_num_errors => l_num_errors
584: quantity => l_additional_cont_attr.tare_weight,
585: item_id => P_container_rec.inventory_item_id,
586: x_return_status => l_return_status
587: );
588: wsh_util_core.api_post_call
589: (
590: p_return_status => l_return_status,
591: x_num_warnings => l_num_warnings,
592: x_num_errors => l_num_errors
602: --
603: IF l_debug_on THEN
604: WSH_DEBUG_SV.log(l_module_name, 'gross weight', p_container_rec.gross_weight );
605: WSH_DEBUG_SV.log(l_module_name, 'volume', p_container_rec.volume );
606: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.ORG_TO_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
607: END IF;
608: --
609: p_container_rec.ship_from_location_id := WSH_UTIL_CORE.Org_To_Location(p_container_rec.organization_id,TRUE);
610: p_container_rec.container_type_code := NVL(p_container_rec.container_type_code,l_container_type_code);
605: WSH_DEBUG_SV.log(l_module_name, 'volume', p_container_rec.volume );
606: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.ORG_TO_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
607: END IF;
608: --
609: p_container_rec.ship_from_location_id := WSH_UTIL_CORE.Org_To_Location(p_container_rec.organization_id,TRUE);
610: p_container_rec.container_type_code := NVL(p_container_rec.container_type_code,l_container_type_code);
611: p_container_rec.item_description := l_description;
612: p_container_rec.requested_quantity := 1;
613: p_container_rec.shipped_quantity := null;
630: -- Fix for Bug 1820376 : Containers should have release status as 'X'
631: p_container_rec.released_status := 'X';
632:
633:
634: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
635:
636: --
637: IF l_debug_on THEN
638: WSH_DEBUG_SV.pop(l_module_name);
639: END IF;
640: --
641: EXCEPTION
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
643: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
644: IF l_debug_on THEN
645: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle
646: error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
646: error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
648: END IF;
649: --
650: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
652: --
653: IF l_debug_on THEN
654: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
648: END IF;
649: --
650: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
652: --
653: IF l_debug_on THEN
654: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
655: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
650: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
652: --
653: IF l_debug_on THEN
654: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
655: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
656:
657: WHEN FND_API.G_EXC_ERROR THEN
658:
651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
652: --
653: IF l_debug_on THEN
654: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
655: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
656:
657: WHEN FND_API.G_EXC_ERROR THEN
658:
659: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
655: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
656:
657: WHEN FND_API.G_EXC_ERROR THEN
658:
659: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
660: --
661: IF l_debug_on THEN
662: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
663: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
664: END IF;
665: --
666:
667: WHEN Others THEN
668: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.default_container_attr',l_module_name);
669: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
670:
671: --
672: IF l_debug_on THEN
665: --
666:
667: WHEN Others THEN
668: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.default_container_attr',l_module_name);
669: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
670:
671: --
672: IF l_debug_on THEN
673: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
696: p_num_of_containers IN NUMBER,
697: x_row_id OUT NOCOPY VARCHAR2,
698: --x_row_id will containe the rowid of the first container created.
699: x_return_status OUT NOCOPY VARCHAR2,
700: x_cont_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
701: -- J: W/V Changes
702: x_unit_weight OUT NOCOPY NUMBER,
703: x_unit_volume OUT NOCOPY NUMBER,
704: x_weight_uom_code OUT NOCOPY VARCHAR2,
763: l_cont_tab wsh_container_actions.cont_inst_tab;
764: i NUMBER;
765: j NUMBER;
766: cnt NUMBER;
767: l_cont_dummy_tab WSH_UTIL_CORE.id_tab_type;
768: l_assignment_dummy_tab WSH_UTIL_CORE.id_tab_type;
769: l_delivery_detail_id NUMBER;
770: --lpn conv
771: l_orig_value VARCHAR2(2);
764: i NUMBER;
765: j NUMBER;
766: cnt NUMBER;
767: l_cont_dummy_tab WSH_UTIL_CORE.id_tab_type;
768: l_assignment_dummy_tab WSH_UTIL_CORE.id_tab_type;
769: l_delivery_detail_id NUMBER;
770: --lpn conv
771: l_orig_value VARCHAR2(2);
772: l_orig_update_cont_value VARCHAR2(2);
776: l_LPN_SUFFIX mtl_parameters.LPN_SUFFIX%TYPE;
777: l_LPN_STARTING_NUMBER mtl_parameters.LPN_STARTING_NUMBER%TYPE;
778: l_TOTAL_LPN_LENGTH mtl_parameters.TOTAL_LPN_LENGTH%TYPE;
779: --l_cont_names WSH_GLBL_VAR_STRCT_GRP.v50_Tbl_Type;
780: --l_lpn_ids WSH_UTIL_CORE.id_tab_type;
781: l_cont_name_dig number;
782: l_tare_wt NUMBER;
783: l_tare_wt_uom VARCHAR2(10);
784: l_msg_count NUMBER;
875: l_inventory_item_id := p_cont_item_id;
876:
877: IF p_organization_id IS NULL AND p_lpn_id IS NULL THEN
878: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ORG_NULL');
879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
880: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
881: --
882: IF l_debug_on THEN
883: WSH_DEBUG_SV.pop(l_module_name);
876:
877: IF p_organization_id IS NULL AND p_lpn_id IS NULL THEN
878: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ORG_NULL');
879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
880: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
881: --
882: IF l_debug_on THEN
883: WSH_DEBUG_SV.pop(l_module_name);
884: END IF;
917: , p_caller => 'WSH_GENERATE'
918: , p_gen_lpn_rec => l_gen_lpn_rec
919: , p_lpn_table => l_lpn_tbl
920: );
921: wsh_util_core.api_post_call
922: (
923: p_return_status => l_return_status,
924: x_num_warnings => l_num_warnings,
925: x_num_errors => l_num_errors,
992: p_quantity => p_num_of_containers,
993: x_cont_names => l_container_info_rec.container_names,
994: x_return_status => l_return_status
995: );
996: wsh_util_core.api_post_call
997: (
998: p_return_status => l_return_status,
999: x_num_warnings => l_num_warnings,
1000: x_num_errors => l_num_errors
1066: END IF; --}
1067:
1068: IF p_organization_id IS NULL AND l_organization_id IS NULL THEN
1069: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ORG_NULL');
1070: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1071: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1072: --
1073: IF l_debug_on THEN
1074: WSH_DEBUG_SV.pop(l_module_name);
1067:
1068: IF p_organization_id IS NULL AND l_organization_id IS NULL THEN
1069: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ORG_NULL');
1070: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1071: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1072: --
1073: IF l_debug_on THEN
1074: WSH_DEBUG_SV.pop(l_module_name);
1075: END IF;
1088: l_additional_cont_attr ,
1089: p_caller,
1090: l_return_status);
1091:
1092: wsh_util_core.api_post_call
1093: (
1094: p_return_status => l_return_status,
1095: x_num_warnings => l_num_warnings,
1096: x_num_errors => l_num_errors
1124: END IF;
1125: --
1126:
1127: IF x_return_status IN
1128: (WSH_UTIL_CORE.G_RET_STS_ERROR,
1129: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
1130: --
1131: IF l_debug_on THEN
1132: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR CREATING CONTAINER' || TO_CHAR ( L_CONT_INSTANCE_ID ) );
1125: --
1126:
1127: IF x_return_status IN
1128: (WSH_UTIL_CORE.G_RET_STS_ERROR,
1129: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
1130: --
1131: IF l_debug_on THEN
1132: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR CREATING CONTAINER' || TO_CHAR ( L_CONT_INSTANCE_ID ) );
1133: END IF;
1132: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR CREATING CONTAINER' || TO_CHAR ( L_CONT_INSTANCE_ID ) );
1133: END IF;
1134: --
1135: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1136: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1137: --
1138: IF l_debug_on THEN
1139: WSH_DEBUG_SV.pop(l_module_name);
1140: END IF;
1178: WSH_DEBUG_SV.logmsg(l_module_name,'COUNT OF WDA RECORDS'||l_assignment_dummy_tab.count);
1179: WSH_DEBUG_SV.logmsg(l_module_name,'Create Delivery Assignment, Return Status'||x_return_status);
1180: END IF;
1181:
1182: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1183: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1184: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1185: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1186: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1179: WSH_DEBUG_SV.logmsg(l_module_name,'Create Delivery Assignment, Return Status'||x_return_status);
1180: END IF;
1181:
1182: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1183: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1184: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1185: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1186: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1187: --
1181:
1182: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1183: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1184: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1185: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1186: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1187: --
1188: IF l_debug_on THEN
1189: WSH_DEBUG_SV.pop(l_module_name);
1182: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1183: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1184: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1185: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1186: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1187: --
1188: IF l_debug_on THEN
1189: WSH_DEBUG_SV.pop(l_module_name);
1190: END IF;
1203: x_unit_volume := l_container_rec.unit_volume;
1204: x_weight_uom_code := l_container_rec.weight_uom_code;
1205: x_volume_uom_code := l_container_rec.volume_uom_code;
1206:
1207: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1208:
1209: --
1210: IF l_debug_on THEN
1211: WSH_DEBUG_SV.pop(l_module_name);
1217: WSH_WMS_LPN_GRP.g_update_to_container := l_orig_update_cont_value;
1218: IF c_get_lpn_info%ISOPEN THEN
1219: CLOSE c_get_lpn_info;
1220: END IF;
1221: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1222:
1223: IF l_debug_on THEN
1224: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1227:
1228: WHEN Others THEN
1229: WSH_WMS_LPN_GRP.g_call_group_api := l_orig_value;
1230: WSH_WMS_LPN_GRP.g_update_to_container := l_orig_update_cont_value;
1231: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Cont_Instance_Multi',l_module_name);
1232: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1233:
1234: --
1235: IF l_debug_on THEN
1228: WHEN Others THEN
1229: WSH_WMS_LPN_GRP.g_call_group_api := l_orig_value;
1230: WSH_WMS_LPN_GRP.g_update_to_container := l_orig_update_cont_value;
1231: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Cont_Instance_Multi',l_module_name);
1232: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1233:
1234: --
1235: IF l_debug_on THEN
1236: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1275: x_return_status OUT NOCOPY VARCHAR2) IS
1276:
1277: BEGIN
1278:
1279: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1280:
1281: END Create_Container_Instance;
1282:
1283:
1319: p_cont_name_suf IN VARCHAR2,
1320: p_cont_name_num IN NUMBER,
1321: p_cont_name_dig IN NUMBER,
1322: p_quantity IN NUMBER,
1323: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1324: x_return_status OUT NOCOPY VARCHAR2) IS
1325:
1326: --
1327: BEGIN
1325:
1326: --
1327: BEGIN
1328:
1329: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1330:
1331: END Create_Multiple_Containers;
1332:
1333:
1378:
1379: l_del_id NUMBER;
1380: l_del_sts VARCHAR2(10);
1381:
1382: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1383:
1384:
1385: Invalid_Container EXCEPTION;
1386: Invalid_Delivery EXCEPTION;
1410: --
1411: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ID',P_CONTAINER_ID);
1412: END IF;
1413: --
1414: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1415: SAVEPOINT Delete_Cont;
1416: IF (NVL(p_container_id,0) = 0) THEN
1417: raise Invalid_Container;
1418: ELSE
1442: l_del_id,
1443: l_del_sts,
1444: x_return_status);
1445:
1446: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1447: raise Container_Error;
1448: END IF;
1449: IF ((nvl(l_del_id,-99) <> -99) AND (nvl(l_del_sts,'N/A') <> 'OP')) THEN
1450: raise Invalid_Delivery;
1474: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
1475: END IF;
1476: --
1477:
1478: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1479: raise Container_Error;
1480: END IF;
1481:
1482: ELSE
1501: EXCEPTION
1502:
1503: WHEN Invalid_Container THEN
1504: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_DELETE');
1505: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1506: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1507: --
1508: IF l_debug_on THEN
1509: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1502:
1503: WHEN Invalid_Container THEN
1504: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_DELETE');
1505: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1506: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1507: --
1508: IF l_debug_on THEN
1509: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1510: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CONTAINER');
1511: END IF;
1512: --
1513: WHEN Invalid_Delivery THEN
1514: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
1515: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1516: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1517: --
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1512: --
1513: WHEN Invalid_Delivery THEN
1514: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
1515: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1516: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1517: --
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1520: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DELIVERY');
1521: END IF;
1522: --
1523: WHEN Invalid_Detail THEN
1524: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_CONT');
1525: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1526: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1527: --
1528: IF l_debug_on THEN
1529: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1522: --
1523: WHEN Invalid_Detail THEN
1524: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_CONT');
1525: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1526: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1527: --
1528: IF l_debug_on THEN
1529: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1530: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
1531: END IF;
1532: --
1533: WHEN Cont_Not_Empty THEN
1534: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_EMPTY');
1535: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1536: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1537: --
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name,'CONT_NOT_EMPTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1532: --
1533: WHEN Cont_Not_Empty THEN
1534: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_EMPTY');
1535: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1536: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1537: --
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name,'CONT_NOT_EMPTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1540: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONT_NOT_EMPTY');
1540: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONT_NOT_EMPTY');
1541: END IF;
1542: --
1543: WHEN Container_Error THEN
1544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1545: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_ERROR');
1546: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1547: --
1548: IF l_debug_on THEN
1542: --
1543: WHEN Container_Error THEN
1544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1545: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_ERROR');
1546: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1547: --
1548: IF l_debug_on THEN
1549: WSH_DEBUG_SV.logmsg(l_module_name,'CONTAINER_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1550: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONTAINER_ERROR');
1551: END IF;
1552: --
1553: WHEN Unassign_Del_Error THEN
1554: ROLLBACK to Delete_Cont;
1555: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1556: FND_MESSAGE.SET_NAME('WSH','WSH_UNASSIGN_DEL_ERROR');
1557: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1558:
1559: --
1553: WHEN Unassign_Del_Error THEN
1554: ROLLBACK to Delete_Cont;
1555: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1556: FND_MESSAGE.SET_NAME('WSH','WSH_UNASSIGN_DEL_ERROR');
1557: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1558:
1559: --
1560: IF l_debug_on THEN
1561: WSH_DEBUG_SV.logmsg(l_module_name,'UNASSIGN_DEL_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1562: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UNASSIGN_DEL_ERROR');
1563: END IF;
1564: --
1565: WHEN Others THEN
1566: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Delete_Containers',l_module_name);
1567: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1568:
1569: --
1570: IF l_debug_on THEN
1563: END IF;
1564: --
1565: WHEN Others THEN
1566: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Delete_Containers',l_module_name);
1567: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1568:
1569: --
1570: IF l_debug_on THEN
1571: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1604: x_return_status OUT NOCOPY VARCHAR2) IS
1605:
1606: BEGIN
1607:
1608: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1609:
1610: END Update_Container;
1611:
1612:
1627:
1628:
1629: PROCEDURE Assign_Detail(
1630: p_container_instance_id IN NUMBER,
1631: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
1632: x_pack_status OUT NOCOPY VARCHAR2,
1633: x_return_status OUT NOCOPY VARCHAR2,
1634: p_check_credit_holds IN BOOLEAN) IS
1635:
1653: AND container_flag = 'N';
1654:
1655: l_del_detail_id WSH_DELIVERY_DETAILS.delivery_detail_id%TYPE;
1656:
1657: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
1658: -- l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
1659:
1660: l_src_line_id NUMBER;
1661: l_src_hdr_id NUMBER;
1654:
1655: l_del_detail_id WSH_DELIVERY_DETAILS.delivery_detail_id%TYPE;
1656:
1657: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
1658: -- l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
1659:
1660: l_src_line_id NUMBER;
1661: l_src_hdr_id NUMBER;
1662: l_source_code VARCHAR2(30);
1664: cnt NUMBER;
1665: i NUMBER;
1666: l_group_id NUMBER;
1667:
1668: l_del_rows WSH_UTIL_CORE.id_tab_type;
1669: l_ret_sts VARCHAR2(1);
1670:
1671: l_cont_name VARCHAR2(30);
1672: l_delivery_id NUMBER;
1688: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
1689: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
1690: l_action_rec wsh_delivery_autocreate.action_rec_type;
1691: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
1692: l_matched_entities wsh_util_core.id_tab_type;
1693: l_out_rec wsh_delivery_autocreate.out_rec_type;
1694:
1695:
1696:
1717: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_CREDIT_HOLDS',P_CHECK_CREDIT_HOLDS);
1718: END IF;
1719: --
1720: IF p_del_detail_tab.COUNT = 0 THEN
1721: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1722: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DET_ASSG_NULL');
1723: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1724: --
1725: IF l_debug_on THEN
1719: --
1720: IF p_del_detail_tab.COUNT = 0 THEN
1721: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1722: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DET_ASSG_NULL');
1723: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1724: --
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.pop(l_module_name);
1727: END IF;
1745: IF l_debug_on THEN
1746: WSH_DEBUG_SV.log(l_module_name,'Delivery Status',l_del_status);
1747: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
1748: END IF;
1749: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1750: --
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.pop(l_module_name);
1753: END IF;
1758: IF (nvl(l_delivery_id,-99) <> -99) THEN
1759:
1760: IF (nvl(l_del_status,'N/A') NOT IN ('OP','SA')) THEN
1761: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
1762: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1763: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1764: x_pack_status := 'Error';
1765: --
1766: IF l_debug_on THEN
1759:
1760: IF (nvl(l_del_status,'N/A') NOT IN ('OP','SA')) THEN
1761: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
1762: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1763: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1764: x_pack_status := 'Error';
1765: --
1766: IF l_debug_on THEN
1767: WSH_DEBUG_SV.pop(l_module_name);
1793: END IF;
1794:
1795: --dbms_output.put_line('after check attr for ' || p_container_instance_id || ' attr flag is ' || l_attr_flag || ' and ret sts is ' || x_return_status);
1796:
1797: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1798: --
1799: -- Debug Statements
1800: --
1801: IF l_debug_on THEN
1824: CLOSE Get_First_Line;
1825: END IF;
1826:
1827: -- call auto_create del grouping API with l_temp_detail_tab returning
1828: -- l_group_id_tab of type WSH_UTIL_CORE.id_tab_type;
1829:
1830: --
1831: IF l_debug_on THEN
1832: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1844: x_out_rec => l_out_rec,
1845: x_return_status => x_return_status);
1846:
1847: --
1848: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1849: --dbms_output.put_line('error in autocreate');
1850: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
1851: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1852: --
1847: --
1848: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1849: --dbms_output.put_line('error in autocreate');
1850: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
1851: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1852: --
1853: END IF;
1854:
1855: i := l_attr_tab.FIRST;
1863: i := i + 1;
1864: END IF;
1865:
1866: l_del_detail_id := l_attr_tab(i).entity_id;
1867: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1868:
1869: OPEN Get_Cont_Item;
1870:
1871: FETCH Get_Cont_Item INTO l_cont_item_id,l_master_serial_number;
1871: FETCH Get_Cont_Item INTO l_cont_item_id,l_master_serial_number;
1872:
1873: IF Get_Cont_Item%NOTFOUND THEN
1874: CLOSE Get_Cont_Item;
1875: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
1876: --
1877: IF l_debug_on THEN
1878: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1879: END IF;
1880: --
1881: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1882: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
1883: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1884: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
1885: x_return_status := l_ret_sts;
1886: x_pack_status := 'Error';
1887: --
1888: IF l_debug_on THEN
1917: l_src_hdr_id,l_source_code;
1918:
1919: IF Get_Det_Cont_Item%NOTFOUND THEN
1920: CLOSE Get_Det_Cont_Item;
1921: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
1922: l_tmp_status := 'Error';
1923: GOTO next_line;
1924: END IF;
1925:
1929:
1930: IF l_cont_item_id <> nvl(l_det_cont_item_id,l_cont_item_id) THEN
1931: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CONT_ITEM_DIFF');
1932: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
1933: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
1934: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1935: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1936: END IF;
1937: END IF;
1930: IF l_cont_item_id <> nvl(l_det_cont_item_id,l_cont_item_id) THEN
1931: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CONT_ITEM_DIFF');
1932: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
1933: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
1934: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1935: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1936: END IF;
1937: END IF;
1938:
1931: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CONT_ITEM_DIFF');
1932: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
1933: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
1934: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1935: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1936: END IF;
1937: END IF;
1938:
1939: -- check if the line has any holds on it. IF yes ignore the line
1973: IF l_debug_on THEN
1974: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
1975: END IF;
1976: --
1977: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1978: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1979: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1980: END IF;
1981: l_tmp_status := 'Error';
1974: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
1975: END IF;
1976: --
1977: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1978: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1979: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1980: END IF;
1981: l_tmp_status := 'Error';
1982: GOTO next_line;
1975: END IF;
1976: --
1977: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1978: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1979: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1980: END IF;
1981: l_tmp_status := 'Error';
1982: GOTO next_line;
1983: END IF;
1999: l_del_detail_id,
2000: p_container_instance_id,
2001: x_return_status);
2002:
2003: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2004: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2005: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2006: END IF;
2007: l_tmp_status := 'Error';
2000: p_container_instance_id,
2001: x_return_status);
2002:
2003: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2004: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2005: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2006: END IF;
2007: l_tmp_status := 'Error';
2008: GOTO next_line;
2001: x_return_status);
2002:
2003: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2004: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2005: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2006: END IF;
2007: l_tmp_status := 'Error';
2008: GOTO next_line;
2009: END IF;
2024: IF l_debug_on THEN
2025: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2026: END IF;
2027: --
2028: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2029: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2030: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2031: ELSE
2032: -- l_ret_sts := x_return_status;
2025: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2026: END IF;
2027: --
2028: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2029: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2030: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2031: ELSE
2032: -- l_ret_sts := x_return_status;
2033: --dbms_output.put_line('error assigning ' || l_del_detail_id);
2026: END IF;
2027: --
2028: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2029: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2030: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2031: ELSE
2032: -- l_ret_sts := x_return_status;
2033: --dbms_output.put_line('error assigning ' || l_del_detail_id);
2034: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
2030: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2031: ELSE
2032: -- l_ret_sts := x_return_status;
2033: --dbms_output.put_line('error assigning ' || l_del_detail_id);
2034: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
2035: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DETAIL_NOT_ASSIGNED');
2036: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2037: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
2038: END IF;
2033: --dbms_output.put_line('error assigning ' || l_del_detail_id);
2034: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
2035: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DETAIL_NOT_ASSIGNED');
2036: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2037: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
2038: END IF;
2039: END IF;
2040:
2041: -- store group id to check for group id of next line
2065: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2066: END IF;
2067: --
2068:
2069: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2070: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
2071: --
2072: IF l_debug_on THEN
2073: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2074: END IF;
2075: --
2076: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
2077: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2078: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2079: END IF;
2080:
2081: l_upd_flag := TRUE;
2082:
2092: --dbms_output.put_line('error updating master serial number for detail ' || l_del_detail_id);
2093:
2094: FND_MESSAGE.SET_NAME('WSH','WSH_DET_UPD_SER_ERROR');
2095: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2096: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2097: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2098: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2099: END IF;
2100: END IF;
2093:
2094: FND_MESSAGE.SET_NAME('WSH','WSH_DET_UPD_SER_ERROR');
2095: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2096: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2097: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2098: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2099: END IF;
2100: END IF;
2101: ELSE
2094: FND_MESSAGE.SET_NAME('WSH','WSH_DET_UPD_SER_ERROR');
2095: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2096: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2097: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2098: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2099: END IF;
2100: END IF;
2101: ELSE
2102:
2099: END IF;
2100: END IF;
2101: ELSE
2102:
2103: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2104: l_tmp_status := 'Error';
2105: GOTO next_line;
2106:
2107: END IF;
2109: <
2110: IF l_tmp_status = 'Error' THEN
2111: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DETAIL_NOT_ASSIGNED');
2112: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2113: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2114: END IF;
2115:
2116: i := i + 1;
2117: l_tmp_status := 'OK';
2128: --
2129: EXCEPTION
2130:
2131: WHEN Others THEN
2132: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_Detail',l_module_name);
2133: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2134:
2135: --
2136: IF l_debug_on THEN
2129: EXCEPTION
2130:
2131: WHEN Others THEN
2132: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_Detail',l_module_name);
2133: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2134:
2135: --
2136: IF l_debug_on THEN
2137: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2166:
2167: PROCEDURE Unassign_Detail(
2168: p_container_instance_id IN NUMBER,
2169: p_delivery_id IN NUMBER,
2170: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
2171: p_cont_unassign IN VARCHAR2,
2172: p_del_unassign IN VARCHAR2,
2173: x_pack_status OUT NOCOPY VARCHAR2,
2174: x_return_status OUT NOCOPY VARCHAR2,
2174: x_return_status OUT NOCOPY VARCHAR2,
2175: p_action_prms IN wsh_glbl_var_strct_grp.dd_action_parameters_rec_type
2176: ) IS
2177:
2178: l_del_detail_rec WSH_UTIL_CORE.ID_TAB_TYPE;
2179:
2180: l_gross NUMBER;
2181: l_net NUMBER;
2182: l_volume NUMBER;
2226: l_delivery_id NUMBER;
2227: l_last_line_flag VARCHAR2(1);
2228: l_attr_flag VARCHAR2(1) := 'N';
2229:
2230: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2231:
2232: l_del_status VARCHAR2(10);
2233:
2234: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2230: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2231:
2232: l_del_status VARCHAR2(10);
2233:
2234: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2235: l_cont_org_tab WSH_UTIL_CORE.id_tab_type; -- K LPN CONV. rv
2236: l_cont_line_dir_tab WSH_UTIL_CORE.Column_Tab_Type; -- K LPN CONV. rv
2237:
2238: -- K: MDC
2231:
2232: l_del_status VARCHAR2(10);
2233:
2234: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2235: l_cont_org_tab WSH_UTIL_CORE.id_tab_type; -- K LPN CONV. rv
2236: l_cont_line_dir_tab WSH_UTIL_CORE.Column_Tab_Type; -- K LPN CONV. rv
2237:
2238: -- K: MDC
2239: l_mdc_index NUMBER := 0;
2232: l_del_status VARCHAR2(10);
2233:
2234: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2235: l_cont_org_tab WSH_UTIL_CORE.id_tab_type; -- K LPN CONV. rv
2236: l_cont_line_dir_tab WSH_UTIL_CORE.Column_Tab_Type; -- K LPN CONV. rv
2237:
2238: -- K: MDC
2239: l_mdc_index NUMBER := 0;
2240: l_mdc_details WSH_UTIL_CORE.id_tab_type;
2236: l_cont_line_dir_tab WSH_UTIL_CORE.Column_Tab_Type; -- K LPN CONV. rv
2237:
2238: -- K: MDC
2239: l_mdc_index NUMBER := 0;
2240: l_mdc_details WSH_UTIL_CORE.id_tab_type;
2241:
2242:
2243: l_cont_item_id NUMBER; -- wms change:
2244:
2284: END IF;
2285: --
2286: IF p_del_detail_tab.count = 0 THEN
2287: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
2288: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2289: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2290: --
2291: IF l_debug_on THEN
2292: WSH_DEBUG_SV.pop(l_module_name);
2285: --
2286: IF p_del_detail_tab.count = 0 THEN
2287: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
2288: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2289: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2290: --
2291: IF l_debug_on THEN
2292: WSH_DEBUG_SV.pop(l_module_name);
2293: END IF;
2329: IF l_debug_on THEN
2330: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2331: END IF;
2332: --
2333: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2334: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2335: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2336: END IF;
2337: GOTO next_detail;
2330: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2331: END IF;
2332: --
2333: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2334: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2335: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2336: END IF;
2337: GOTO next_detail;
2338: END IF;
2331: END IF;
2332: --
2333: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2334: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2335: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2336: END IF;
2337: GOTO next_detail;
2338: END IF;
2339:
2339:
2340: IF (nvl(l_delivery_id,-99) <> -99) THEN
2341:
2342: IF (nvl(l_del_status,'N/A') <> 'OP')
2343: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
2344: THEN
2345: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2346: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2347: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2342: IF (nvl(l_del_status,'N/A') <> 'OP')
2343: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
2344: THEN
2345: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2346: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2347: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2348: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2349: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2350: END IF;
2343: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
2344: THEN
2345: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2346: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2347: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2348: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2349: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2350: END IF;
2351: x_pack_status := 'Error';
2344: THEN
2345: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2346: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2347: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2348: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2349: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2350: END IF;
2351: x_pack_status := 'Error';
2352: GOTO next_detail;
2345: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2346: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2347: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2348: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2349: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2350: END IF;
2351: x_pack_status := 'Error';
2352: GOTO next_detail;
2353: END IF;
2379: IF l_debug_on THEN
2380: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2381: END IF;
2382: --
2383: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2384: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2385: l_num_warnings := l_num_warnings + 1;
2386: ELSE
2387: --
2380: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2381: END IF;
2382: --
2383: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2384: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2385: l_num_warnings := l_num_warnings + 1;
2386: ELSE
2387: --
2388: IF l_debug_on THEN
2415: IF l_debug_on THEN
2416: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2417: END IF;
2418: --
2419: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2420: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2421: l_num_warnings := l_num_warnings + 1;
2422: ELSE
2423: -- FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_UNASSG_ERROR');
2416: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2417: END IF;
2418: --
2419: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2420: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2421: l_num_warnings := l_num_warnings + 1;
2422: ELSE
2423: -- FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_UNASSG_ERROR');
2424: -- WSH_UTIL_CORE.Add_Message(x_return_status);
2420: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2421: l_num_warnings := l_num_warnings + 1;
2422: ELSE
2423: -- FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_UNASSG_ERROR');
2424: -- WSH_UTIL_CORE.Add_Message(x_return_status);
2425: --
2426: IF l_debug_on THEN
2427: WSH_DEBUG_SV.pop(l_module_name);
2428: END IF;
2465: IF l_debug_on THEN
2466: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2467: END IF;
2468: --
2469: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
2470: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2471: ) THEN
2472: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LAST_LINE_ERROR');
2473: --
2466: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2467: END IF;
2468: --
2469: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
2470: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2471: ) THEN
2472: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LAST_LINE_ERROR');
2473: --
2474: IF l_debug_on THEN
2476: END IF;
2477: --
2478: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2479: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2480: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2481: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2482: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2483: END IF;
2484: GOTO next_line;
2477: --
2478: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2479: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2480: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2481: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2482: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2483: END IF;
2484: GOTO next_line;
2485: END IF;
2478: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2479: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2480: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2481: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2482: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2483: END IF;
2484: GOTO next_line;
2485: END IF;
2486:
2500: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2501: END IF;
2502: --
2503:
2504: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2505: --dbms_output.put_line('after check cont attr status is ' || x_return_status);
2506: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2507: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2508: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2503:
2504: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2505: --dbms_output.put_line('after check cont attr status is ' || x_return_status);
2506: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2507: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2508: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2509: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2510: END IF;
2511: GOTO next_line;
2504: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2505: --dbms_output.put_line('after check cont attr status is ' || x_return_status);
2506: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2507: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2508: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2509: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2510: END IF;
2511: GOTO next_line;
2512: END IF;
2505: --dbms_output.put_line('after check cont attr status is ' || x_return_status);
2506: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2507: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2508: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2509: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2510: END IF;
2511: GOTO next_line;
2512: END IF;
2513:
2543: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2544: END IF;
2545: --
2546: --
2547: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2548: --
2549: GOTO next_line;
2550: --
2551: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2547: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2548: --
2549: GOTO next_line;
2550: --
2551: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2552: --
2553: l_num_warnings := l_num_warnings + 1;
2554: --
2555: END IF;
2574: WHERE delivery_detail_id = l_cont_tab(i);
2575:
2576: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2577: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2578: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2579: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2580: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2581: END IF;
2582: GOTO next_line;
2575:
2576: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2577: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2578: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2579: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2580: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2581: END IF;
2582: GOTO next_line;
2583: END IF;
2576: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2577: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2578: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2579: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2580: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2581: END IF;
2582: GOTO next_line;
2583: END IF;
2584:
2597: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2598: END IF;
2599: --
2600:
2601: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2602: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
2603: --
2604: IF l_debug_on THEN
2605: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2606: END IF;
2607: --
2608: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2609: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2610: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2611: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2612: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2613: END IF;
2614: GOTO next_line;
2607: --
2608: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2609: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2610: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2611: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2612: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2613: END IF;
2614: GOTO next_line;
2615: END IF;
2608: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2609: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2610: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2611: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2612: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2613: END IF;
2614: GOTO next_line;
2615: END IF;
2616:
2627: IF Is_Container%NOTFOUND THEN
2628: CLOSE Is_Container;
2629: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
2630: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_rec(i));
2631: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2632: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2633: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2634: END IF;
2635: GOTO next_line;
2628: CLOSE Is_Container;
2629: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
2630: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_rec(i));
2631: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2632: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2633: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2634: END IF;
2635: GOTO next_line;
2636: END IF;
2629: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
2630: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_rec(i));
2631: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2632: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2633: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2634: END IF;
2635: GOTO next_line;
2636: END IF;
2637:
2667: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2668: END IF;
2669: --
2670:
2671: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2672: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2673: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2674: END IF;
2675: GOTO next_line;
2668: END IF;
2669: --
2670:
2671: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2672: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2673: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2674: END IF;
2675: GOTO next_line;
2676: END IF;
2669: --
2670:
2671: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2672: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2673: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2674: END IF;
2675: GOTO next_line;
2676: END IF;
2677:
2678: IF (nvl(l_delivery_id,-99) <> -99) THEN --{
2679:
2680: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
2681: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2683: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2684: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2685: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2686: END IF;
2679:
2680: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
2681: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2683: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2684: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2685: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2686: END IF;
2687: x_pack_status := 'Error';
2680: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
2681: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2683: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2684: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2685: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2686: END IF;
2687: x_pack_status := 'Error';
2688: GOTO next_line;
2681: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2683: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2684: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2685: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2686: END IF;
2687: x_pack_status := 'Error';
2688: GOTO next_line;
2689: END IF;
2707: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2708: END IF;
2709: --
2710:
2711: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2712: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LAST_LINE_ERROR');
2713: --
2714: IF l_debug_on THEN
2715: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2716: END IF;
2717: --
2718: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2719: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2720: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2721:
2722: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2723: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2724: END IF;
2718: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2719: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2720: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2721:
2722: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2723: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2724: END IF;
2725: GOTO next_line;
2726: END IF; --}
2719: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2720: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2721:
2722: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2723: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2724: END IF;
2725: GOTO next_line;
2726: END IF; --}
2727:
2741: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2742: END IF;
2743: --
2744:
2745: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2746: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2747: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2748:
2749: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2743: --
2744:
2745: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2746: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2747: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2748:
2749: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2750: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2751: END IF;
2745: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2746: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2747: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2748:
2749: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2750: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2751: END IF;
2752: GOTO next_line;
2753: END IF; --}
2746: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2747: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2748:
2749: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2750: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2751: END IF;
2752: GOTO next_line;
2753: END IF; --}
2754: END IF; --} Delivery Check
2780: END IF;
2781: --
2782: --
2783: --
2784: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2785: --
2786: GOTO next_line;
2787: --
2788: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2784: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2785: --
2786: GOTO next_line;
2787: --
2788: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2789: --
2790: l_num_warnings := l_num_warnings + 1;
2791: --
2792: END IF;
2811: WHERE delivery_detail_id = l_del_detail_rec(i);
2812:
2813: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2814: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2815: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2816: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2817: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2818: END IF;
2819: GOTO next_line;
2812:
2813: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2814: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2815: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2816: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2817: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2818: END IF;
2819: GOTO next_line;
2820: END IF;
2813: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2814: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2815: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2816: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2817: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2818: END IF;
2819: GOTO next_line;
2820: END IF;
2821:
2834: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2835: END IF;
2836: --
2837:
2838: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2839: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
2840: --
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2843: END IF;
2844: --
2845: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2846: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2847: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2848: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2849: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2850: END IF;
2851: GOTO next_line;
2844: --
2845: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2846: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2847: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2848: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2849: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2850: END IF;
2851: GOTO next_line;
2852: END IF; --}
2845: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2846: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2847: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2848: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2849: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2850: END IF;
2851: GOTO next_line;
2852: END IF; --}
2853:
2881: END IF;
2882: --
2883: --
2884: --
2885: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2886: --
2887: GOTO next_line;
2888: --
2889: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2885: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2886: --
2887: GOTO next_line;
2888: --
2889: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2890: --
2891: l_num_warnings := l_num_warnings + 1;
2892: --
2893: END IF;
2908: END IF;
2909: --
2910: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2911: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2912: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2913: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2914: END IF;
2915: GOTO next_line;
2916: END IF;
2909: --
2910: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2911: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2912: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2913: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2914: END IF;
2915: GOTO next_line;
2916: END IF;
2917:
2929: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2930: END IF;
2931: --
2932:
2933: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2934: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GET_SRL_ERROR');
2935: --
2936: IF l_debug_on THEN
2937: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2938: END IF;
2939: --
2940: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2941: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2942: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2943: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2944: END IF;
2945: GOTO next_line;
2946: END IF;
2939: --
2940: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2941: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2942: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2943: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2944: END IF;
2945: GOTO next_line;
2946: END IF;
2947:
2960: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2961: END IF;
2962: --
2963:
2964: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2965: --
2966: IF l_debug_on THEN
2967: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2968: END IF;
2969: --
2970: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2971: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
2972: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2973: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2974: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2975: --
2976: IF l_debug_on THEN
2977: WSH_DEBUG_SV.pop(l_module_name);
2970: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2971: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
2972: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2973: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2974: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2975: --
2976: IF l_debug_on THEN
2977: WSH_DEBUG_SV.pop(l_module_name);
2978: END IF;
3020: --
3021: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3022: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
3023: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3024: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3025: WSH_UTIL_CORE.Add_Message(l_return_status);
3026: x_pack_status := 'Overpacked';
3027:
3028: ELSIF l_fill_status = 'U' THEN
3021: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3022: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
3023: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3024: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3025: WSH_UTIL_CORE.Add_Message(l_return_status);
3026: x_pack_status := 'Overpacked';
3027:
3028: ELSIF l_fill_status = 'U' THEN
3029: IF l_debug_on THEN
3032: --
3033: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3034: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
3035: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3036: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3037: WSH_UTIL_CORE.Add_Message(l_return_status);
3038: x_pack_status := 'Underpacked';
3039: ELSE
3040: x_pack_status := 'Success';
3033: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3034: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
3035: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3036: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3037: WSH_UTIL_CORE.Add_Message(l_return_status);
3038: x_pack_status := 'Underpacked';
3039: ELSE
3040: x_pack_status := 'Success';
3041: END IF;
3053: p_container_id => l_cont_tab(i),
3054: x_deliver_to_location_id => l_deliver_to_location_id,
3055: x_return_status => l_return_status);
3056:
3057: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3058:
3059: UPDATE wsh_delivery_details
3060: SET deliver_to_location_id = l_deliver_to_location_id
3061: WHERE delivery_detail_id = l_cont_tab(i);
3063:
3064: END LOOP;
3065:
3066: IF l_num_warnings > 0 THEN
3067: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3068: ELSE
3069: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3070: END IF;
3071:
3065:
3066: IF l_num_warnings > 0 THEN
3067: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3068: ELSE
3069: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3070: END IF;
3071:
3072: --
3073: IF l_debug_on THEN
3077: --
3078: EXCEPTION
3079:
3080: WHEN Others THEN
3081: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Unassign_Detail',l_module_name);
3082: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3083:
3084: --
3085: IF l_debug_on THEN
3078: EXCEPTION
3079:
3080: WHEN Others THEN
3081: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Unassign_Detail',l_module_name);
3082: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3083:
3084: --
3085: IF l_debug_on THEN
3086: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3096:
3097: PROCEDURE Unassign_Detail(
3098: p_container_instance_id IN NUMBER,
3099: p_delivery_id IN NUMBER,
3100: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
3101: p_cont_unassign IN VARCHAR2,
3102: p_del_unassign IN VARCHAR2,
3103: x_pack_status OUT NOCOPY VARCHAR2,
3104: x_return_status OUT NOCOPY VARCHAR2) IS
3153: --
3154: EXCEPTION
3155:
3156: WHEN Others THEN
3157: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Unassign_Detail',l_module_name);
3158: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3159: --
3160: IF l_debug_on THEN
3161: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3154: EXCEPTION
3155:
3156: WHEN Others THEN
3157: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Unassign_Detail',l_module_name);
3158: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3159: --
3160: IF l_debug_on THEN
3161: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3162: END IF;
3252: --
3253: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3254: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3255: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3256: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3257: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3258: --
3259: IF l_debug_on THEN
3260: WSH_DEBUG_SV.pop(l_module_name);
3253: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3254: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3255: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3256: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3257: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3258: --
3259: IF l_debug_on THEN
3260: WSH_DEBUG_SV.pop(l_module_name);
3261: END IF;
3279: --
3280: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id);
3281: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DEL');
3282: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
3283: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3284: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3285: --
3286: IF l_debug_on THEN
3287: WSH_DEBUG_SV.pop(l_module_name);
3280: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id);
3281: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DEL');
3282: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
3283: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3284: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3285: --
3286: IF l_debug_on THEN
3287: WSH_DEBUG_SV.pop(l_module_name);
3288: END IF;
3314: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3315: END IF;
3316: --
3317:
3318: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3319: --
3320: IF l_debug_on THEN
3321: WSH_DEBUG_SV.pop(l_module_name);
3322: END IF;
3338: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id);
3339: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
3340: FND_MESSAGE.SET_TOKEN('ENTITY1',l_cont_name);
3341: FND_MESSAGE.SET_TOKEN('ENTITY2',l_del_name);
3342: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3343: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3344: --
3345: IF l_debug_on THEN
3346: WSH_DEBUG_SV.pop(l_module_name);
3339: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
3340: FND_MESSAGE.SET_TOKEN('ENTITY1',l_cont_name);
3341: FND_MESSAGE.SET_TOKEN('ENTITY2',l_del_name);
3342: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3343: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3344: --
3345: IF l_debug_on THEN
3346: WSH_DEBUG_SV.pop(l_module_name);
3347: END IF;
3349: return;
3350: END IF;
3351:
3352:
3353: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3354:
3355: --
3356: IF l_debug_on THEN
3357: WSH_DEBUG_SV.pop(l_module_name);
3359: --
3360: EXCEPTION
3361:
3362: WHEN Others THEN
3363: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_To_Delivery',l_module_name);
3364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3365:
3366: --
3367: IF l_debug_on THEN
3360: EXCEPTION
3361:
3362: WHEN Others THEN
3363: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_To_Delivery',l_module_name);
3364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3365:
3366: --
3367: IF l_debug_on THEN
3368: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3406: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3407: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3408: END IF;
3409: --
3410: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3411: --
3412: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
3413: (
3414: p_delivery_id => p_delivery_id
3428: END IF;
3429: --
3430: EXCEPTION
3431: WHEN others THEN
3432: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3433: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Assign_To_Delivery',l_module_name);
3434: --
3435: IF l_debug_on THEN
3436: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3429: --
3430: EXCEPTION
3431: WHEN others THEN
3432: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3433: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Assign_To_Delivery',l_module_name);
3434: --
3435: IF l_debug_on THEN
3436: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3437: END IF;
3500:
3501: IF l_debug_on THEN
3502: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3503: END IF;
3504: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3505: --set proper error message
3506: --
3507: IF l_debug_on THEN
3508: WSH_DEBUG_SV.pop(l_module_name);
3509: END IF;
3510: --
3511: return;
3512: END IF;
3513: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3514:
3515: --
3516: IF l_debug_on THEN
3517: WSH_DEBUG_SV.pop(l_module_name);
3518: END IF;
3519: --
3520: EXCEPTION
3521: WHEN Others THEN
3522: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3524: --
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3519: --
3520: EXCEPTION
3521: WHEN Others THEN
3522: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3524: --
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3527: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3564: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3566: END IF;
3567: --
3568: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3569: --
3570: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
3571: (
3572: p_delivery_id => p_delivery_id
3586: END IF;
3587: --
3588: EXCEPTION
3589: WHEN others THEN
3590: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3591: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3592: --
3593: IF l_debug_on THEN
3594: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3587: --
3588: EXCEPTION
3589: WHEN others THEN
3590: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3591: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3592: --
3593: IF l_debug_on THEN
3594: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3595: END IF;
3614: x_return_status OUT NOCOPY VARCHAR2) IS
3615:
3616: BEGIN
3617:
3618: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3619:
3620: END Unassign_Delivery;
3621:
3622:
3656:
3657: l_det_cont_org NUMBER;
3658: l_par_cont_org NUMBER;
3659:
3660: l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
3661:
3662: cnt NUMBER;
3663: l_del_rows WSH_UTIL_CORE.id_tab_type;
3664: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
3659:
3660: l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
3661:
3662: cnt NUMBER;
3663: l_del_rows WSH_UTIL_CORE.id_tab_type;
3664: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
3665: l_ret_sts VARCHAR2(1);
3666:
3667: l_cont_name VARCHAR2(30);
3660: l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
3661:
3662: cnt NUMBER;
3663: l_del_rows WSH_UTIL_CORE.id_tab_type;
3664: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
3665: l_ret_sts VARCHAR2(1);
3666:
3667: l_cont_name VARCHAR2(30);
3668:
3680: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
3681: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
3682: l_action_rec wsh_delivery_autocreate.action_rec_type;
3683: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
3684: l_matched_entities wsh_util_core.id_tab_type;
3685: l_out_rec wsh_delivery_autocreate.out_rec_type;
3686:
3687: --BUG#12904248
3688: l_deliver_to_location_id NUMBER;
3685: l_out_rec wsh_delivery_autocreate.out_rec_type;
3686:
3687: --BUG#12904248
3688: l_deliver_to_location_id NUMBER;
3689: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3690:
3691: --
3692: l_debug_on BOOLEAN;
3693: --
3725: --
3726: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
3727: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3728: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3729: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3730: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3731: --
3732: IF l_debug_on THEN
3733: WSH_DEBUG_SV.pop(l_module_name);
3726: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
3727: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3728: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3729: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3730: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3731: --
3732: IF l_debug_on THEN
3733: WSH_DEBUG_SV.pop(l_module_name);
3734: END IF;
3753: --
3754: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3755: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3756: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3757: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3758: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3759: --
3760: IF l_debug_on THEN
3761: WSH_DEBUG_SV.pop(l_module_name);
3754: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3755: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3756: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3757: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3758: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3759: --
3760: IF l_debug_on THEN
3761: WSH_DEBUG_SV.pop(l_module_name);
3762: END IF;
3783: END IF;
3784: --
3785: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3786: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3788: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3789: --
3790: IF l_debug_on THEN
3791: WSH_DEBUG_SV.pop(l_module_name);
3784: --
3785: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3786: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3788: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3789: --
3790: IF l_debug_on THEN
3791: WSH_DEBUG_SV.pop(l_module_name);
3792: END IF;
3809:
3810: IF l_debug_on THEN
3811: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3812: END IF;
3813: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3814: --
3815: IF l_debug_on THEN
3816: WSH_DEBUG_SV.pop(l_module_name);
3817: END IF;
3823:
3824: -- TPW - Distributed Organization Changes
3825: IF (nvl(l_del_status,'N/A') NOT IN ('OP','SA')) THEN
3826: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
3827: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3828: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3829: --
3830: IF l_debug_on THEN
3831: WSH_DEBUG_SV.pop(l_module_name);
3824: -- TPW - Distributed Organization Changes
3825: IF (nvl(l_del_status,'N/A') NOT IN ('OP','SA')) THEN
3826: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
3827: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3828: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3829: --
3830: IF l_debug_on THEN
3831: WSH_DEBUG_SV.pop(l_module_name);
3832: END IF;
3850:
3851: IF l_debug_on THEN
3852: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3853: END IF;
3854: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3855: --
3856: IF l_debug_on THEN
3857: WSH_DEBUG_SV.pop(l_module_name);
3858: END IF;
3863: IF (nvl(l_det_del_id,-99) <> -99) THEN
3864:
3865: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
3866: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
3867: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3868: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3869: --
3870: IF l_debug_on THEN
3871: WSH_DEBUG_SV.pop(l_module_name);
3864:
3865: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
3866: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
3867: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3868: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3869: --
3870: IF l_debug_on THEN
3871: WSH_DEBUG_SV.pop(l_module_name);
3872: END IF;
3919: END IF;
3920: --
3921: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3922: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3924: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3925: --
3926: IF l_debug_on THEN
3927: WSH_DEBUG_SV.pop(l_module_name);
3920: --
3921: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3922: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3924: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3925: --
3926: IF l_debug_on THEN
3927: WSH_DEBUG_SV.pop(l_module_name);
3928: END IF;
3948: IF l_debug_on THEN
3949: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3950: END IF;
3951:
3952: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3953: --dbms_output.put_line('error while getting master serial for parent ' || p_par_cont_inst_id);
3954: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GET_MASTER_ERROR');
3955: --
3956: IF l_debug_on THEN
3958: END IF;
3959: --
3960: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3961: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3962: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3963: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3964: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
3965: END IF;
3966: l_master_cont_id := NULL;
3959: --
3960: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3961: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3962: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3963: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3964: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
3965: END IF;
3966: l_master_cont_id := NULL;
3967: l_master_serial_number := NULL;
3960: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3961: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3962: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3963: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3964: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
3965: END IF;
3966: l_master_cont_id := NULL;
3967: l_master_serial_number := NULL;
3968: END IF;
3980: IF l_debug_on THEN
3981: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3982: END IF;
3983:
3984: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3985: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
3986: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3987: --
3988: IF l_debug_on THEN
3982: END IF;
3983:
3984: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3985: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
3986: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3987: --
3988: IF l_debug_on THEN
3989: WSH_DEBUG_SV.pop(l_module_name);
3990: END IF;
4006: IF l_debug_on THEN
4007: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4008: END IF;
4009:
4010: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4011: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
4012: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4013: --
4014: IF l_debug_on THEN
4008: END IF;
4009:
4010: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4011: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
4012: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4013: --
4014: IF l_debug_on THEN
4015: WSH_DEBUG_SV.pop(l_module_name);
4016: END IF;
4035: IF l_debug_on THEN
4036: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4037: END IF;
4038:
4039: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4040: --
4041: IF l_debug_on THEN
4042: WSH_DEBUG_SV.pop(l_module_name);
4043: END IF;
4062: IF l_debug_on THEN
4063: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4064: END IF;
4065:
4066: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4067: --
4068: IF l_debug_on THEN
4069: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4070: END IF;
4071: --
4072: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4073: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4074: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4075: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4076: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4077: --
4078: IF l_debug_on THEN
4079: WSH_DEBUG_SV.pop(l_module_name);
4072: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4073: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4074: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4075: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4076: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4077: --
4078: IF l_debug_on THEN
4079: WSH_DEBUG_SV.pop(l_module_name);
4080: END IF;
4099:
4100: IF l_debug_on THEN
4101: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4102: END IF;
4103: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4104: --
4105: IF l_debug_on THEN
4106: WSH_DEBUG_SV.pop(l_module_name);
4107: END IF;
4124: IF l_debug_on THEN
4125: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4126: END IF;
4127:
4128: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4129: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GRP_ATTR_WARN');
4130: --
4131: IF l_debug_on THEN
4132: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4133: END IF;
4134: --
4135: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4136: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4137: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
4138: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
4139: END IF;
4140:
4141: --
4134: --
4135: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4136: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4137: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
4138: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
4139: END IF;
4140:
4141: --
4142: IF l_debug_on THEN
4151: IF l_debug_on THEN
4152: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4153: END IF;
4154:
4155: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4156: --
4157: IF l_debug_on THEN
4158: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4159: END IF;
4160: --
4161: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4162: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4163: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4164: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4165: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4166: --
4167: IF l_debug_on THEN
4168: WSH_DEBUG_SV.pop(l_module_name);
4161: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4162: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4163: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4164: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4165: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4166: --
4167: IF l_debug_on THEN
4168: WSH_DEBUG_SV.pop(l_module_name);
4169: END IF;
4188:
4189: IF l_debug_on THEN
4190: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4191: END IF;
4192: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4193: --dbms_output.put_line('cont not assigned');
4194: --
4195: IF l_debug_on THEN
4196: WSH_DEBUG_SV.pop(l_module_name);
4212:
4213: IF l_debug_on THEN
4214: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4215: END IF;
4216: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4217: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GRP_ATTR_WARN');
4218: --
4219: IF l_debug_on THEN
4220: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4221: END IF;
4222: --
4223: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4224: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4225: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
4226: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
4227: END IF;
4228:
4229: --
4222: --
4223: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4224: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4225: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
4226: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
4227: END IF;
4228:
4229: --
4230: IF l_debug_on THEN
4239: IF l_debug_on THEN
4240: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4241: END IF;
4242:
4243: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4244: --
4245: IF l_debug_on THEN
4246: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4247: END IF;
4248: --
4249: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4250: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4251: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4252: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4253: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4254: --
4255: IF l_debug_on THEN
4256: WSH_DEBUG_SV.pop(l_module_name);
4249: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4250: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4251: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4252: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4253: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4254: --
4255: IF l_debug_on THEN
4256: WSH_DEBUG_SV.pop(l_module_name);
4257: END IF;
4290:
4291: IF l_debug_on THEN
4292: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4293: END IF;
4294: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
4295: OR NVL(l_out_rec.single_group, 'N') = 'N') THEN
4296: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
4297: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4298: --
4293: END IF;
4294: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
4295: OR NVL(l_out_rec.single_group, 'N') = 'N') THEN
4296: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
4297: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4298: --
4299: IF l_debug_on THEN
4300: WSH_DEBUG_SV.pop(l_module_name);
4301: END IF;
4318:
4319: IF l_debug_on THEN
4320: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4321: END IF;
4322: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4323: l_ret_sts := x_return_status;
4324: --
4325: IF l_debug_on THEN
4326: WSH_DEBUG_SV.pop(l_module_name);
4343: IF l_debug_on THEN
4344: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4345: END IF;
4346:
4347: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4348: --
4349: IF l_debug_on THEN
4350: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4351: END IF;
4352: --
4353: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4354: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4355: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4356: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4357: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4358: --
4359: IF l_debug_on THEN
4360: WSH_DEBUG_SV.pop(l_module_name);
4353: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4354: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4355: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4356: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4357: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4358: --
4359: IF l_debug_on THEN
4360: WSH_DEBUG_SV.pop(l_module_name);
4361: END IF;
4371: p_container_id => p_par_cont_inst_id,
4372: x_deliver_to_location_id => l_deliver_to_location_id,
4373: x_return_status => l_return_status);
4374:
4375: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4376:
4377: UPDATE wsh_delivery_details
4378: SET deliver_to_location_id = l_deliver_to_location_id
4379: WHERE delivery_detail_id = p_par_cont_inst_id;
4379: WHERE delivery_detail_id = p_par_cont_inst_id;
4380:
4381: END IF;
4382:
4383: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4384:
4385: --
4386: IF l_debug_on THEN
4387: WSH_DEBUG_SV.pop(l_module_name);
4389: --
4390: EXCEPTION
4391:
4392: WHEN Others THEN
4393: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_To_Container',l_module_name);
4394: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4395:
4396: --
4397: IF l_debug_on THEN
4390: EXCEPTION
4391:
4392: WHEN Others THEN
4393: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_To_Container',l_module_name);
4394: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4395:
4396: --
4397: IF l_debug_on THEN
4398: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4485: NULL;
4486: ELSE
4487: --
4488: IF l_debug_on THEN
4489: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4490: END IF;
4491: --
4492: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4493: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4488: IF l_debug_on THEN
4489: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4490: END IF;
4491: --
4492: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4493: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4494: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
4495: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4496: CLOSE Get_Cont_Msi;
4493: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4494: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
4495: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4496: CLOSE Get_Cont_Msi;
4497: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4498: x_return_status := C_ERROR_STATUS;
4499: x_error_cnt := x_error_cnt + 1;
4500:
4501: END IF;
4519:
4520: IF Get_Cont_Msi%NOTFOUND THEN
4521: --
4522: IF l_debug_on THEN
4523: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4524: END IF;
4525: --
4526: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4527: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4522: IF l_debug_on THEN
4523: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4524: END IF;
4525: --
4526: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4527: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4528: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
4529: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4530: CLOSE Get_Cont_Msi;
4527: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4528: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
4529: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4530: CLOSE Get_Cont_Msi;
4531: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4532: x_return_status := C_ERROR_STATUS;
4533: x_error_cnt := x_error_cnt + 1;
4534: ELSE
4535:
4539:
4540: IF ((NVL(l_mtl_max_load,0) <= 0) AND (p_w_v_both in ('W','B'))) THEN
4541: --dbms_output.put_line('Preferred Container Weight is <= 0');
4542: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_LOAD_ERROR');
4543: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4544: x_return_status := C_ERROR_STATUS;
4545: x_error_cnt := x_error_cnt + 1;
4546: l_flag := 'N';
4547: END IF;
4548:
4549: IF ((NVL(l_mtl_max_vol,0) <= 0) AND (p_w_v_both in ('V','B'))) THEN
4550: --dbms_output.put_line('Preferred Container Volume is <= 0');
4551: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_VOL_ERROR');
4552: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4553: x_return_status := C_ERROR_STATUS;
4554: x_error_cnt := x_error_cnt + 1;
4555: l_flag := 'N';
4556: END IF;
4589: WHEN Others THEN
4590: IF (Get_Cont_Msi%ISOPEN) THEN
4591: CLOSE Get_Cont_Msi;
4592: END IF;
4593: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Get_Cont_Load_Vol_info',l_module_name);
4594: x_return_status := C_UNEXP_ERROR_STATUS;
4595:
4596: --
4597: IF l_debug_on THEN
4681: END IF;
4682: --
4683: EXCEPTION
4684: WHEN Others THEN
4685: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Calc_Fill_Basis_and_proc_flag',l_module_name);
4686: x_return_status := C_UNEXP_ERROR_STATUS;
4687: --
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4777: IF Get_Cont_Load%NOTFOUND THEN
4778: CLOSE Get_Cont_Load;
4779: --
4780: IF l_debug_on THEN
4781: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4782: END IF;
4783: --
4784: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_inventory_item_id, p_organization_id);
4785: --
4780: IF l_debug_on THEN
4781: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4782: END IF;
4783: --
4784: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_inventory_item_id, p_organization_id);
4785: --
4786: IF l_debug_on THEN
4787: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4788: END IF;
4783: --
4784: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_inventory_item_id, p_organization_id);
4785: --
4786: IF l_debug_on THEN
4787: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4788: END IF;
4789: --
4790: l_org_name := WSH_UTIL_CORE.Get_Org_Name(p_organization_id);
4791: --dbms_output.put_line('Error: Cont/Load Relationship does not exist for Item '||l_item_name||' Org '||l_org_name);
4786: IF l_debug_on THEN
4787: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4788: END IF;
4789: --
4790: l_org_name := WSH_UTIL_CORE.Get_Org_Name(p_organization_id);
4791: --dbms_output.put_line('Error: Cont/Load Relationship does not exist for Item '||l_item_name||' Org '||l_org_name);
4792: --dbms_output.put_line('p_inventory_item_id '||p_inventory_item_id||' p_organization_id '||p_organization_id);
4793: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_LOAD');
4794: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4792: --dbms_output.put_line('p_inventory_item_id '||p_inventory_item_id||' p_organization_id '||p_organization_id);
4793: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_LOAD');
4794: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4795: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
4796: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4797: x_return_status := C_ERROR_STATUS;
4798: x_error_cnt := x_error_cnt + 1;
4799: ELSE
4800: CLOSE Get_Cont_Load;
4800: CLOSE Get_Cont_Load;
4801: IF ((l_max_load_qty = 0) AND (p_fill_pc_basis = 'Q')) THEN
4802: --dbms_output.put_line('Error: Max Load qty for Preferred Container is 0');
4803: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LOAD_QTY_ERROR');
4804: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4805: x_error_cnt := x_error_cnt + 1;
4806: x_return_status := C_ERROR_STATUS;
4807: l_wcl_cont_item_id := NULL;
4808: END IF;
4832: WHEN Others THEN
4833: IF (Get_Cont_Load%ISOPEN) THEN
4834: CLOSE Get_Cont_Load;
4835: END IF;
4836: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Calc_Pref_Container',l_module_name);
4837: x_return_status := C_UNEXP_ERROR_STATUS;
4838:
4839: --
4840: IF l_debug_on THEN
4895: l_count_container NUMBER;
4896: l_container_item_id NUMBER;
4897: l_container_org_id NUMBER;
4898: l_num_of_split NUMBER;
4899: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
4900:
4901: --
4902: l_debug_on BOOLEAN;
4903: --
4941: ELSIF nvl(l_weight_per_pc,0) = 0 THEN
4942: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WEIGHT_VOLUME');
4943: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',p_line_cont_rec.delivery_detail_id);
4944: END IF;
4945: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4946: IF l_debug_on THEN
4947: WSH_DEBUG_SV.pop(l_module_name);
4948: END IF;
4949: RETURN;
4964: ELSIF nvl(l_volume_per_pc,0) = 0 THEN
4965: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WEIGHT_VOLUME');
4966: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',p_line_cont_rec.delivery_detail_id);
4967: END IF;
4968: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4969: IF l_debug_on THEN
4970: WSH_DEBUG_SV.pop(l_module_name);
4971: END IF;
4972: RETURN;
5120: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5121: END IF;
5122: --dbms_output.put_line('STATUS after SPLITDD in empty'||l_return_status||l_dd_id_tab.count);
5123:
5124: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5125: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5126: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5127: x_return_status := C_ERROR_STATUS;
5128: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '||x_return_status);
5121: END IF;
5122: --dbms_output.put_line('STATUS after SPLITDD in empty'||l_return_status||l_dd_id_tab.count);
5123:
5124: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5125: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5126: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5127: x_return_status := C_ERROR_STATUS;
5128: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '||x_return_status);
5129: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5127: x_return_status := C_ERROR_STATUS;
5128: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '||x_return_status);
5129: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5130: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5131: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5132: --
5133: IF l_debug_on THEN
5134: WSH_DEBUG_SV.pop(l_module_name);
5135: END IF;
5336: IF (l_num_of_split + 1) > 100000 THEN
5337: x_return_status := C_ERROR_STATUS;
5338: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_COUNT');
5339: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5340: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5341: return;
5342: END IF;
5343: -- End BugFix#3475352
5344:
5368: IF l_debug_on THEN
5369: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5370: END IF;
5371:
5372: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5373: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5374: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5375: x_return_status := C_ERROR_STATUS;
5376: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5369: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5370: END IF;
5371:
5372: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5373: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5374: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5375: x_return_status := C_ERROR_STATUS;
5376: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5377: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5374: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5375: x_return_status := C_ERROR_STATUS;
5376: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5377: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5378: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5379:
5380: IF l_debug_on THEN
5381: WSH_DEBUG_SV.pop(l_module_name);
5382: END IF;
5531: RETURN;
5532:
5533: EXCEPTION
5534: WHEN Others THEN
5535: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Delivery_Detail',l_module_name);
5536: x_return_status := C_UNEXP_ERROR_STATUS;
5537:
5538: --
5539: IF l_debug_on THEN
5562: ------------------------------------------------------------------------------
5563: */
5564:
5565: PROCEDURE Validate_Dd_for_Pack(
5566: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
5567: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
5568: x_line_cont_tab OUT NOCOPY wsh_container_actions.line_cont_info_tab,
5569: x_error_cnt OUT NOCOPY NUMBER,
5570: x_warn_cnt OUT NOCOPY NUMBER,
5563: */
5564:
5565: PROCEDURE Validate_Dd_for_Pack(
5566: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
5567: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
5568: x_line_cont_tab OUT NOCOPY wsh_container_actions.line_cont_info_tab,
5569: x_error_cnt OUT NOCOPY NUMBER,
5570: x_warn_cnt OUT NOCOPY NUMBER,
5571: x_fill_pc_warn_cnt OUT NOCOPY NUMBER, -- bug 3562797 jckwok
5792: IF l_debug_on THEN
5793: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5794: END IF;
5795:
5796: wsh_util_core.api_post_call
5797: (
5798: p_return_status => l_return_status,
5799: x_num_warnings => l_num_warnings,
5800: x_num_errors => l_num_errors
5911: IF (l_return_status <> C_SUCCESS_STATUS) THEN
5912: --dbms_output.put_line('WSH_WV_UTILS.Detail_Weight_Volume did not return success');
5913: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
5914: FND_MESSAGE.SET_TOKEN('DETAIL_ID',rec.delivery_detail_id);
5915: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
5916: error_cnt := error_cnt + 1;
5917: --dbms_output.put_line('Skipping this dd');
5918: goto next_detail;
5919: END IF;
5928: (NVL(rec.volume,0) = 0)) THEN
5929: --dbms_output.put_line('Weight or Volume is NULL or 0');
5930: FND_MESSAGE.SET_NAME('WSH', 'WSH_NULL_WEIGHT_VOLUME');
5931: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL', rec.delivery_detail_id);
5932: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5933: error_cnt := error_cnt + 1;
5934: --dbms_output.put_line('Skipping this dd');
5935: goto next_detail;
5936: END IF;
5964: WSH_DEBUG_SV.log(l_module_name,'Wt-'||l_mtl_max_load);
5965: WSH_DEBUG_SV.log(l_module_name,'Vol-'||l_mtl_max_vol);
5966: END IF;
5967: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_MAX_WT_ERROR');
5968: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5969: error_cnt := error_cnt + l_error_cnt;
5970: goto next_detail;
5971: END IF;
5972: -- Bug 2786021
6035: l_tmp_num_cont := FLOOR(rec.packed_quantity/l_max_load_qty);
6036:
6037: IF (l_tmp_num_cont = 0) THEN
6038: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
6039: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6040: error_cnt := error_cnt + 1;
6041: goto next_detail;
6042: ELSE
6043: --l_max_load_qty := (rec.packed_quantity/l_tmp_num_cont);
6051:
6052: IF (NVL(line_cont_rec.max_load_qty,0) <= 0) THEN
6053: --dbms_output.put_line('Max Load Qty is NULL or <= 0. Skipping this dd');
6054: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
6055: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6056: error_cnt := error_cnt + 1;
6057: goto next_detail;
6058: END IF;
6059:
6088: IF (l_return_status <> C_SUCCESS_STATUS) THEN
6089: --dbms_output.put_line('WSH_WV_UTILS.Detail_Weight_Volume did not return success');
6090: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
6091: FND_MESSAGE.SET_TOKEN('DETAIL_ID',rec.delivery_detail_id);
6092: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6093: error_cnt := error_cnt + 1;
6094: --dbms_output.put_line('Skipping this dd');
6095: goto next_detail;
6096: END IF;
6109: IF (NVL(rec.gross_weight,0) = 0) THEN
6110: --dbms_output.put_line('Weight is NULL or 0');
6111: FND_MESSAGE.SET_NAME('WSH', 'WSH_NULL_WEIGHT_VOLUME');
6112: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL', rec.delivery_detail_id);
6113: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6114: error_cnt := error_cnt + 1;
6115: --dbms_output.put_line('Skipping this dd');
6116: goto next_detail;
6117: END IF;
6120: IF (NVL(rec.volume,0) = 0) THEN
6121: --dbms_output.put_line('Volume is NULL or 0');
6122: FND_MESSAGE.SET_NAME('WSH', 'WSH_NULL_WEIGHT_VOLUME');
6123: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL', rec.delivery_detail_id);
6124: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6125: error_cnt := error_cnt + 1;
6126: --dbms_output.put_line('Skipping this dd');
6127: goto next_detail;
6128: END IF;
6205: (line_cont_rec.fill_pc_basis = 'V' AND ((line_cont_rec.converted_vol/line_cont_rec.shp_qty) > l_mtl_max_vol)))) THEN
6206: --dbms_output.put_line('Indivisible flag is Y and Preferred Cont cannot hold atleast 1 piece');
6207: -- Bug#: 2503937 - New Error Message
6208: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_VOL_ERROR');
6209: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6210: error_cnt := error_cnt + 1;
6211: --dbms_output.put_line('Skipping this dd');
6212: goto next_detail;
6213: END IF;
6235: OR (line_cont_rec.fill_pc_basis = 'V' AND (l_dd_volume> line_cont_rec.cont_vol) ) ) ) THEN
6236:
6237: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
6238: FND_MESSAGE.SET_TOKEN('DETAIL_ID',rec.delivery_detail_id);
6239: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6240: WSH_UTIL_CORE.Add_Message(l_return_status);
6241: error_cnt := error_cnt + 1;
6242: goto next_detail;
6243: END IF;-- end of 3011758
6236:
6237: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
6238: FND_MESSAGE.SET_TOKEN('DETAIL_ID',rec.delivery_detail_id);
6239: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6240: WSH_UTIL_CORE.Add_Message(l_return_status);
6241: error_cnt := error_cnt + 1;
6242: goto next_detail;
6243: END IF;-- end of 3011758
6244:
6312: END IF;
6313: IF (Get_Cont_Item_Load%ISOPEN) THEN
6314: CLOSE Get_Cont_Item_Load;
6315: END IF;
6316: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Dd_For_Pack',l_module_name);
6317: --
6318: IF l_debug_on THEN
6319: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6357: ------------------------------------------------------------------------------
6358: */
6359:
6360: PROCEDURE Auto_Pack_Lines (
6361: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
6362: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
6363: p_pack_cont_flag IN VARCHAR2,
6364: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
6365: x_return_status OUT NOCOPY VARCHAR2) IS
6358: */
6359:
6360: PROCEDURE Auto_Pack_Lines (
6361: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
6362: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
6363: p_pack_cont_flag IN VARCHAR2,
6364: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
6365: x_return_status OUT NOCOPY VARCHAR2) IS
6366:
6360: PROCEDURE Auto_Pack_Lines (
6361: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
6362: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
6363: p_pack_cont_flag IN VARCHAR2,
6364: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
6365: x_return_status OUT NOCOPY VARCHAR2) IS
6366:
6367: CURSOR c_get_attributes(v_delivery_detail_id IN NUMBER) IS
6368: SELECT customer_id,ship_to_location_id,
6394: -- OTM R12 : assign delivery detail
6395:
6396: TYPE tab_varchar IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
6397:
6398: l_tab_cust_id wsh_util_core.id_tab_type;
6399: l_tab_ship_location_id wsh_util_core.id_tab_type;
6400: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6401: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6402: l_tab_carrier_id wsh_util_core.id_tab_type;
6395:
6396: TYPE tab_varchar IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
6397:
6398: l_tab_cust_id wsh_util_core.id_tab_type;
6399: l_tab_ship_location_id wsh_util_core.id_tab_type;
6400: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6401: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6402: l_tab_carrier_id wsh_util_core.id_tab_type;
6403: l_tab_fob_code tab_varchar;
6396: TYPE tab_varchar IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
6397:
6398: l_tab_cust_id wsh_util_core.id_tab_type;
6399: l_tab_ship_location_id wsh_util_core.id_tab_type;
6400: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6401: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6402: l_tab_carrier_id wsh_util_core.id_tab_type;
6403: l_tab_fob_code tab_varchar;
6404: l_tab_freight_terms_code tab_varchar;
6397:
6398: l_tab_cust_id wsh_util_core.id_tab_type;
6399: l_tab_ship_location_id wsh_util_core.id_tab_type;
6400: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6401: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6402: l_tab_carrier_id wsh_util_core.id_tab_type;
6403: l_tab_fob_code tab_varchar;
6404: l_tab_freight_terms_code tab_varchar;
6405: l_tab_ship_method_code tab_varchar;
6398: l_tab_cust_id wsh_util_core.id_tab_type;
6399: l_tab_ship_location_id wsh_util_core.id_tab_type;
6400: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6401: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6402: l_tab_carrier_id wsh_util_core.id_tab_type;
6403: l_tab_fob_code tab_varchar;
6404: l_tab_freight_terms_code tab_varchar;
6405: l_tab_ship_method_code tab_varchar;
6406: l_tab_mode_of_transport tab_varchar;
6408: l_tab_line_direction tab_varchar;
6409: l_tab_shipping_control tab_varchar;
6410: l_tab_ignore_for_planning tab_varchar;
6411: --
6412: l_tab_client_id wsh_util_core.id_tab_type; -- LSP PROJECT :
6413: --
6414:
6415: line_cont_tab line_cont_info_tab;
6416:
6413: --
6414:
6415: line_cont_tab line_cont_info_tab;
6416:
6417: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6418: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6419: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6420: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6421: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6414:
6415: line_cont_tab line_cont_info_tab;
6416:
6417: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6418: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6419: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6420: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6421: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6422: l_detail_cont_rec empty_cont_info;
6415: line_cont_tab line_cont_info_tab;
6416:
6417: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6418: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6419: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6420: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6421: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6422: l_detail_cont_rec empty_cont_info;
6423: l_detail_cont_tab empty_cont_info_tab;
6416:
6417: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6418: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6419: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6420: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6421: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6422: l_detail_cont_rec empty_cont_info;
6423: l_detail_cont_tab empty_cont_info_tab;
6424:
6417: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6418: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6419: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6420: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6421: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6422: l_detail_cont_rec empty_cont_info;
6423: l_detail_cont_tab empty_cont_info_tab;
6424:
6425: l_return_status VARCHAR2(1);
6447: l_error_cnt NUMBER := 0;
6448:
6449: l_new_contid_count NUMBER := 0;
6450: --l_cont_tab wsh_container_actions.cont_inst_tab;
6451: l_cont_tab WSH_UTIL_CORE.id_tab_type;
6452:
6453: TYPE NumList IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
6454: TYPE CharList IS TABLE OF VARCHAR2(3) INDEX BY BINARY_INTEGER;
6455: l_GrossWtlist NumList;
6460: l_contlist NumList; -- containers for delivery detail id
6461: l_contlist1 NumList; -- containers and delivery id
6462: --l_dellist1 NumList; -- containers and delivery id Commented by adagur for bug 16397445
6463: m NUMBER;
6464: l_del_tab WSH_UTIL_CORE.id_tab_type;
6465: l_exists_flag VARCHAR2(1);
6466: l_duplicate_flag VARCHAR2(1); -- for checking record
6467:
6468: -- J: W/V Changes
6510: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
6511: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
6512: l_action_rec wsh_delivery_autocreate.action_rec_type;
6513: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
6514: l_matched_entities wsh_util_core.id_tab_type;
6515: l_out_rec wsh_delivery_autocreate.out_rec_type;
6516:
6517: mark_reprice_error EXCEPTION;
6518:
6521: l_is_delivery_empty VARCHAR2(1);
6522: l_index NUMBER;
6523: l_index_update NUMBER;
6524: l_tare_weight WSH_DELIVERY_DETAILS.UNIT_WEIGHT%TYPE;
6525: l_ignore_for_planning_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6526: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6527: l_delivery_was_empty_tab BOOLEAN_TAB_TYPE;
6528: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6529: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6522: l_index NUMBER;
6523: l_index_update NUMBER;
6524: l_tare_weight WSH_DELIVERY_DETAILS.UNIT_WEIGHT%TYPE;
6525: l_ignore_for_planning_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6526: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6527: l_delivery_was_empty_tab BOOLEAN_TAB_TYPE;
6528: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6529: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6530: -- End of OTM R12 : assign delivery detail
6524: l_tare_weight WSH_DELIVERY_DETAILS.UNIT_WEIGHT%TYPE;
6525: l_ignore_for_planning_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6526: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6527: l_delivery_was_empty_tab BOOLEAN_TAB_TYPE;
6528: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6529: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6530: -- End of OTM R12 : assign delivery detail
6531:
6532: -- K LPN CONV. rv
6525: l_ignore_for_planning_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6526: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6527: l_delivery_was_empty_tab BOOLEAN_TAB_TYPE;
6528: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6529: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6530: -- End of OTM R12 : assign delivery detail
6531:
6532: -- K LPN CONV. rv
6533: l_wms_org VARCHAR2(10) := 'N';
6543: l_sync_tmp_inv_contlist1 wsh_glbl_var_strct_grp.sync_tmp_recTbl_type;
6544: l_wms_contlist1_cnt NUMBER;
6545: l_inv_contlist1_cnt NUMBER;
6546: -- K LPN CONV. rv
6547: l_mdc_id_tab wsh_util_core.id_tab_type;
6548: l_mdc_index_i NUMBER;
6549: l_mdc_index_j NUMBER;
6550:
6551: --BUG#12904248
6574: --
6575: --
6576:
6577: -- OTM R12 : assign delivery detail
6578: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6579:
6580: IF (l_gc3_is_installed IS NULL) THEN
6581: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6582: END IF;
6577: -- OTM R12 : assign delivery detail
6578: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6579:
6580: IF (l_gc3_is_installed IS NULL) THEN
6581: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6582: END IF;
6583:
6584: -- End of OTM R12 : assign delivery detail
6585:
6611: IF p_del_detail_tab.count = 0 THEN
6612: --dbms_output.put_line('p_del_detail_tab count is 0');
6613: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
6614: x_return_status := C_ERROR_STATUS;
6615: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6616: --
6617: IF l_debug_on THEN
6618: WSH_DEBUG_SV.pop(l_module_name);
6619: END IF;
6661: IF (l_return_status = C_ERROR_STATUS) OR
6662: (l_return_status = C_UNEXP_ERROR_STATUS) THEN
6663: --dbms_output.put_line('***WSH_DELIVERY_AUTOCREATE.autocreate_deliveries returned '||l_return_status);
6664: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
6665: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
6666: x_return_status := l_return_status;
6667: --
6668: IF l_debug_on THEN
6669: WSH_DEBUG_SV.pop(l_module_name);
6679:
6680: IF ((cnt IS NULL) OR (p_group_id_tab.COUNT <> p_del_detail_tab.count)) THEN
6681: x_return_status := C_ERROR_STATUS;
6682: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
6683: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6684: --
6685: IF l_debug_on THEN
6686: WSH_DEBUG_SV.pop(l_module_name);
6687: END IF;
6717: -- Raise Error if all lines are with status 'S'
6718: IF (l_release_warn_count = p_del_detail_tab.count) THEN
6719: x_return_status := C_ERROR_STATUS;
6720: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_RELEASED_STATUS');
6721: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6722: -- Bug 3337629 : Added the following return statement.
6723: IF l_debug_on THEN
6724: WSH_DEBUG_SV.pop(l_module_name);
6725: END IF;
6733: IF (l_return_status <> C_ERROR_STATUS) THEN
6734: x_return_status := C_WARNING_STATUS;
6735: warn_cnt := warn_cnt + 1;
6736: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_REL_STATUS_WARN');
6737: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6738: END IF;
6739: END IF;
6740: --
6741: -- bug 3562797 jckwok
6744: --
6745: IF (l_fill_pc_warn_count = p_del_detail_tab.count) THEN
6746: x_return_status := C_ERROR_STATUS;
6747: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
6748: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6749: IF l_debug_on THEN
6750: WSH_DEBUG_SV.pop(l_module_name);
6751: END IF;
6752: RETURN;
6754: IF (l_return_status <> C_ERROR_STATUS) THEN
6755: x_return_status := C_WARNING_STATUS;
6756: warn_cnt := warn_cnt + 1;
6757: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
6758: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6759: END IF;
6760: END IF;
6761: -- end of bug 3562797 jckwok
6762:
6835: IF l_debug_on THEN
6836: WSH_DEBUG_SV.log(l_module_name,'return status ,cont tab count -',l_return_status||l_cont_tab.count);
6837: END IF;
6838:
6839: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
6840: ) THEN
6841: --dbms_output.put_line('Container Creation failed for index '|| cnt);
6842: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
6843: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6839: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
6840: ) THEN
6841: --dbms_output.put_line('Container Creation failed for index '|| cnt);
6842: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
6843: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6844: error_cnt := error_cnt + 1;
6845: ELSE
6846:
6847: IF l_debug_on THEN
7287: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
7288: p_detail_id_tab => l_mdc_id_tab,
7289: x_return_status => x_return_status);
7290:
7291: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7292: IF l_debug_on THEN
7293: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7294: WSH_DEBUG_SV.pop(l_module_name);
7295: END IF;
7577:
7578: l_delivery_was_empty_tab(l_index) := FALSE;
7579: IF (l_ignore_for_planning_tab(l_index) = 'N') THEN
7580: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_dellist1(l_index));
7581: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
7582: IF l_debug_on THEN
7583: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7584: END IF;
7585: raise FND_API.G_EXC_ERROR;
7628:
7629: IF (l_delivery_was_empty_tab(l_index)) THEN
7630: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_dellist1(l_index));
7631:
7632: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
7633: --handle the error approriately to the procedure this code is in
7634: IF l_debug_on THEN
7635: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7636: END IF;
7696: p_delivery_id_tab => l_delivery_id_tab,
7697: p_tms_interface_flag_tab => l_interface_flag_tab,
7698: x_return_status => l_return_status);
7699:
7700: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
7701: IF l_debug_on THEN
7702: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7703: END IF;
7704: raise FND_API.G_EXC_ERROR;
7701: IF l_debug_on THEN
7702: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7703: END IF;
7704: raise FND_API.G_EXC_ERROR;
7705: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7706: IF l_debug_on THEN
7707: WSH_DEBUG_SV.logmsg(l_module_name,'Warning in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7708: END IF;
7709: cont_warn := cont_warn + 1;
7727: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
7728: p_detail_id_tab => l_mdc_id_tab,
7729: x_return_status => x_return_status);
7730:
7731: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7732: IF l_debug_on THEN
7733: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7734: WSH_DEBUG_SV.pop(l_module_name);
7735: END IF;
7795: );
7796: IF l_debug_on THEN
7797: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
7798: END IF;
7799: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7800: RAISE mark_reprice_error;
7801: END IF;
7802: END IF;
7803: -- End of H integration : Pricing Integration
7813: IF cont_warn > 0 THEN
7814: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_PACK_WARN');
7815: FND_MESSAGE.SET_TOKEN('CONT_WARN',cont_warn);
7816: FND_MESSAGE.SET_TOKEN('CONT_ERR',0);
7817: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
7818: END IF;
7819: ELSIF (error_cnt > 0) THEN
7820: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_PACK_ERROR');
7821: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
7825: x_return_status := C_WARNING_STATUS;
7826: ELSE
7827: x_return_status := C_ERROR_STATUS;
7828: END IF;
7829: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
7830: ELSE
7831: x_return_status := C_SUCCESS_STATUS;
7832: END IF;
7833:
7837: END IF;
7838: IF x_return_status = C_ERROR_STATUS THEN
7839: IF p_pack_cont_flag = 'Y' THEN
7840: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MASTER_NOT_PACK');
7841: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
7842: END IF;
7843: --
7844: IF l_debug_on THEN
7845: WSH_DEBUG_SV.pop(l_module_name);
7879: IF l_return_status = C_UNEXP_ERROR_STATUS THEN
7880: --dbms_output.put_line('Returned from autopack conts with unexpected error');
7881: /* No message WSH_CONT_CONT_AUTOPACK_ERR
7882: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CONT_AUTOPACK_ERR');
7883: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
7884: IF l_return_status <> C_ERROR_STATUS THEN
7885: l_return_status := C_WARNING_STATUS;
7886: END IF;
7887: */
7923:
7924: WHEN mark_reprice_error THEN
7925: FND_MESSAGE.Set_Name('WSH','WSH_REPRICE_REQD_ERR');
7926: x_return_status := l_return_status;
7927: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
7928: IF l_debug_on THEN
7929: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7930: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
7931: END IF;
7931: END IF;
7932:
7933: -- OTM R12 : assign delivery detail
7934: WHEN FND_API.G_EXC_ERROR THEN
7935: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7936: IF c_get_plan_and_tms_flag%ISOPEN THEN
7937: CLOSE c_get_plan_and_tms_flag;
7938: END IF;
7939: IF c_get_tare_weight%ISOPEN THEN
7958: CLOSE c_get_tare_weight;
7959: END IF;
7960: -- End of OTM R12 : assign delivery detail
7961:
7962: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Auto_Pack_Lines',l_module_name);
7963: x_return_status := C_UNEXP_ERROR_STATUS;
7964:
7965: --
7966: IF l_debug_on THEN
7988: */
7989:
7990:
7991: PROCEDURE Auto_Pack_Delivery (
7992: p_delivery_tab IN WSH_UTIL_CORE.id_tab_type,
7993: p_pack_cont_flag IN VARCHAR2,
7994: x_cont_instance_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
7995: x_return_status OUT NOCOPY VARCHAR2) IS
7996:
7990:
7991: PROCEDURE Auto_Pack_Delivery (
7992: p_delivery_tab IN WSH_UTIL_CORE.id_tab_type,
7993: p_pack_cont_flag IN VARCHAR2,
7994: x_cont_instance_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
7995: x_return_status OUT NOCOPY VARCHAR2) IS
7996:
7997: CURSOR get_delivery_wms(x_delivery_id NUMBER) IS
7998: SELECT mp.wms_enabled_flag
8011: AND wda.parent_delivery_detail_id IS NULL
8012: AND wda.delivery_detail_id = wdd.delivery_detail_id
8013: AND wdd.container_flag = 'N';
8014:
8015: l_del_detail_tab WSH_UTIL_CORE.id_tab_type;
8016: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
8017:
8018: l_gross_weight NUMBER;
8019: l_volume NUMBER;
8012: AND wda.delivery_detail_id = wdd.delivery_detail_id
8013: AND wdd.container_flag = 'N';
8014:
8015: l_del_detail_tab WSH_UTIL_CORE.id_tab_type;
8016: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
8017:
8018: l_gross_weight NUMBER;
8019: l_volume NUMBER;
8020:
8017:
8018: l_gross_weight NUMBER;
8019: l_volume NUMBER;
8020:
8021: l_cont_instance_tab WSH_UTIL_CORE.id_tab_type;
8022:
8023: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8024: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8025:
8019: l_volume NUMBER;
8020:
8021: l_cont_instance_tab WSH_UTIL_CORE.id_tab_type;
8022:
8023: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8024: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8025:
8026: error_cnt NUMBER := 0;
8027: warn_cnt NUMBER := 0;
8020:
8021: l_cont_instance_tab WSH_UTIL_CORE.id_tab_type;
8022:
8023: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8024: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8025:
8026: error_cnt NUMBER := 0;
8027: warn_cnt NUMBER := 0;
8028: succ_cnt NUMBER := 0;
8028: succ_cnt NUMBER := 0;
8029:
8030: i NUMBER;
8031: m NUMBER := 0;
8032: l_del_rows WSH_UTIL_CORE.id_tab_type;
8033:
8034: l_del_name VARCHAR2(30);
8035: l_wms_count NUMBER := 0;
8036: l_wms_enabled_flag VARCHAR2(1);
8064: --
8065: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
8066: END IF;
8067: --
8068: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8069:
8070: l_del_rows.delete;
8071:
8072: FOR j IN 1..p_delivery_tab.count LOOP
8071:
8072: FOR j IN 1..p_delivery_tab.count LOOP
8073:
8074: i := 1;
8075: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8076: l_del_detail_tab.delete;
8077:
8078: IF l_debug_on THEN
8079: WSH_DEBUG_SV.log(l_module_name,'Auto pack delivery ', p_delivery_tab(j));
8084: FETCH get_delivery_wms INTO l_wms_enabled_flag;
8085: IF get_delivery_wms%NOTFOUND THEN
8086: CLOSE get_delivery_wms;
8087: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_DATA_FOUND');
8088: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8089: --
8090: --IF l_debug_on THEN
8091: --WSH_DEBUG_SV.pop(l_module_name);
8092: --END IF;
8097: CLOSE get_delivery_wms;
8098:
8099: IF l_wms_enabled_flag = 'Y' THEN
8100: l_wms_count := l_wms_count + 1;
8101: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8102: goto next_delivery_to_autopack;
8103: END IF;
8104:
8105: FOR d IN Get_Delivery_Lines (p_delivery_tab(j)) LOOP
8119: WSH_DEBUG_SV.log(l_module_name,'l_del_detail_tab.count: ', l_del_detail_tab.count );
8120: END IF;
8121: IF l_del_detail_tab.count = 0 THEN
8122:
8123: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8124:
8125: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_AUTOPACK_NULL');
8126: --
8127: IF l_debug_on THEN
8129: END IF;
8130: --
8131: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_tab(j));
8132: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
8133: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
8134: ELSE
8135:
8136: --
8137: IF l_debug_on THEN
8148:
8149: IF l_debug_on THEN
8150: WSH_DEBUG_SV.log(l_module_name,'Return status from wsh_container_actions.Auto_Pack_Lines -',l_return_status);
8151: END IF;
8152: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8153: --dbms_output.put_line('autopack lines failed');
8154: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: ELSE
8156: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8150: WSH_DEBUG_SV.log(l_module_name,'Return status from wsh_container_actions.Auto_Pack_Lines -',l_return_status);
8151: END IF;
8152: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8153: --dbms_output.put_line('autopack lines failed');
8154: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: ELSE
8156: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8157: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
8158: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN -- Bug#2903864 - Start
8152: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8153: --dbms_output.put_line('autopack lines failed');
8154: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: ELSE
8156: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8157: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
8158: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN -- Bug#2903864 - Start
8159: IF (x_cont_instance_tab IS NULL) THEN
8160: x_cont_instance_tab := l_cont_instance_tab;
8153: --dbms_output.put_line('autopack lines failed');
8154: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: ELSE
8156: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8157: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
8158: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN -- Bug#2903864 - Start
8159: IF (x_cont_instance_tab IS NULL) THEN
8160: x_cont_instance_tab := l_cont_instance_tab;
8161: ELSE
8154: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8155: ELSE
8156: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8157: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
8158: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN -- Bug#2903864 - Start
8159: IF (x_cont_instance_tab IS NULL) THEN
8160: x_cont_instance_tab := l_cont_instance_tab;
8161: ELSE
8162: FOR i in 1..l_cont_instance_tab.count LOOP
8172: <
8173: IF l_debug_on THEN
8174: WSH_DEBUG_SV.log(l_module_name,'return status for delivery '|| p_delivery_tab(j), l_ret_sts );
8175: END IF;
8176: IF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8177: succ_cnt := succ_cnt + 1;
8178: ELSIF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8179: warn_cnt := warn_cnt + 1;
8180: ELSE
8174: WSH_DEBUG_SV.log(l_module_name,'return status for delivery '|| p_delivery_tab(j), l_ret_sts );
8175: END IF;
8176: IF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8177: succ_cnt := succ_cnt + 1;
8178: ELSIF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8179: warn_cnt := warn_cnt + 1;
8180: ELSE
8181: error_cnt := error_cnt + 1;
8182: END IF;
8185: -- bug 1578527: disallow packing actions in WMS
8186: IF l_wms_count > 0 THEN
8187: IF l_wms_count = p_delivery_tab.count THEN
8188: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_PACK_NOT_ALLOWED');
8189: WSH_UTIL_CORE.Add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8190: ELSE
8191: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_RECORDS_NOT_PACKED');
8192: FND_MESSAGE.SET_TOKEN('COUNT', l_wms_count);
8193: WSH_UTIL_CORE.Add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8189: WSH_UTIL_CORE.Add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8190: ELSE
8191: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_RECORDS_NOT_PACKED');
8192: FND_MESSAGE.SET_TOKEN('COUNT', l_wms_count);
8193: WSH_UTIL_CORE.Add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8194: END IF;
8195: END IF;
8196:
8197: /* H integration: Pricing integration csun
8210:
8211: IF l_debug_on THEN
8212: WSH_DEBUG_SV.log(l_module_name,'Return status from WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required -',l_return_status);
8213: END IF;
8214: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8215: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8216: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8217: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8218: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
8211: IF l_debug_on THEN
8212: WSH_DEBUG_SV.log(l_module_name,'Return status from WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required -',l_return_status);
8213: END IF;
8214: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8215: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8216: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8217: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8218: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
8219: --IF l_debug_on THEN
8212: WSH_DEBUG_SV.log(l_module_name,'Return status from WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required -',l_return_status);
8213: END IF;
8214: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8215: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8216: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8217: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8218: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
8219: --IF l_debug_on THEN
8220: -- WSH_DEBUG_SV.pop(l_module_name);
8214: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8215: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8216: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8217: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8218: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
8219: --IF l_debug_on THEN
8220: -- WSH_DEBUG_SV.pop(l_module_name);
8221: --END IF;
8222: --return; LPN CONV. rv
8244: IF l_debug_on THEN
8245: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
8246: END IF;
8247: --
8248: WSH_UTIL_CORE.API_POST_CALL
8249: (
8250: p_return_status => l_return_status,
8251: x_num_warnings => warn_cnt,
8252: x_num_errors => error_cnt,
8257: -- LPN CONV. rv
8258: --
8259:
8260: IF warn_cnt > 0 THEN
8261: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8262: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_WARN');
8263: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
8264: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8265: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8262: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_WARN');
8263: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
8264: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8265: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8266: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8267:
8268: ELSIF error_cnt > 0 THEN
8269: IF succ_cnt > 0 THEN
8270: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8266: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8267:
8268: ELSIF error_cnt > 0 THEN
8269: IF succ_cnt > 0 THEN
8270: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8271: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_WARN');
8272: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
8273: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8274: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8271: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_WARN');
8272: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
8273: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8274: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8275: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8276: ELSE
8277: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8278: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ERROR');
8279: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8273: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8274: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8275: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8276: ELSE
8277: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8278: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ERROR');
8279: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8280: END IF;
8281: ELSIF succ_cnt > 0 THEN
8275: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8276: ELSE
8277: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8278: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ERROR');
8279: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8280: END IF;
8281: ELSIF succ_cnt > 0 THEN
8282: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8283: ELSE
8278: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ERROR');
8279: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8280: END IF;
8281: ELSIF succ_cnt > 0 THEN
8282: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8283: ELSE
8284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8285: END IF;
8286:
8280: END IF;
8281: ELSIF succ_cnt > 0 THEN
8282: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8283: ELSE
8284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8285: END IF;
8286:
8287: IF l_debug_on THEN
8288: WSH_DEBUG_SV.pop(l_module_name);
8309: --
8310: IF l_debug_on THEN
8311: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
8312: END IF;
8313: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8314: x_return_status := l_return_status;
8315: END IF;
8316: --}
8317: END IF;
8323: END IF;
8324:
8325: WHEN Others THEN
8326: --
8327: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Auto_Pack_Delivery',l_module_name);
8328: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8329:
8330: IF l_debug_on THEN
8331: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS FROM WHEN OTHERS',WSH_DEBUG_SV.C_PROC_LEVEL);
8324:
8325: WHEN Others THEN
8326: --
8327: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Auto_Pack_Delivery',l_module_name);
8328: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8329:
8330: IF l_debug_on THEN
8331: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS FROM WHEN OTHERS',WSH_DEBUG_SV.C_PROC_LEVEL);
8332: END IF;
8388: */
8389:
8390:
8391: PROCEDURE Pack_Multi (
8392: p_cont_tab IN WSH_UTIL_CORE.id_tab_type,
8393: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
8394: p_pack_mode IN VARCHAR2,
8395: p_split_pc IN NUMBER,
8396: x_pack_status OUT NOCOPY VARCHAR2,
8389:
8390:
8391: PROCEDURE Pack_Multi (
8392: p_cont_tab IN WSH_UTIL_CORE.id_tab_type,
8393: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
8394: p_pack_mode IN VARCHAR2,
8395: p_split_pc IN NUMBER,
8396: x_pack_status OUT NOCOPY VARCHAR2,
8397: x_return_status OUT NOCOPY VARCHAR2) IS
8454: l_cont_avail_pc NUMBER;
8455: l_cont_self_tare NUMBER;
8456: l_split_qty NUMBER;
8457: l_split_qty2 NUMBER;
8458: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8459:
8460: l_tmp_cont_gr NUMBER;
8461: l_tmp_cont_net NUMBER;
8462: l_tmp_cont_vol NUMBER;
8469: l_tmp_det_vol NUMBER;
8470:
8471: l_det_pack_sts VARCHAR2(30);
8472:
8473: l_tmp_det_tab WSH_UTIL_CORE.id_tab_type;
8474:
8475: l_cont_tab Cont_Rec_Table;
8476: l_det_tab Detail_Rec_Table;
8477:
8500: l_fill_status VARCHAR2(1);
8501:
8502: /* H projects: pricing integration csun */
8503: m NUMBER := 0;
8504: l_detail_rows WSH_UTIL_CORE.id_tab_type;
8505:
8506: -- for Load Tender
8507: l_trip_id_tab wsh_util_core.id_tab_type;
8508:
8503: m NUMBER := 0;
8504: l_detail_rows WSH_UTIL_CORE.id_tab_type;
8505:
8506: -- for Load Tender
8507: l_trip_id_tab wsh_util_core.id_tab_type;
8508:
8509: -- bug 3562797 jckwok
8510: l_process_flag VARCHAR2(1);
8511: l_fill_pc_basis VARCHAR2(1);
8540: e_return_excp EXCEPTION;
8541: -- LPN CONV. rv
8542:
8543: BEGIN
8544: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
8545: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
8546: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
8547: END IF;
8548: --
8541: -- LPN CONV. rv
8542:
8543: BEGIN
8544: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
8545: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
8546: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
8547: END IF;
8548: --
8549: --
8542:
8543: BEGIN
8544: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
8545: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
8546: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
8547: END IF;
8548: --
8549: --
8550: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8562: END IF;
8563: --
8564: IF p_cont_tab.count = 0 OR p_del_detail_tab.count = 0 THEN
8565: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
8566: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8567: x_pack_status := 'Error';
8568: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8569: --
8570: --Bugfix 4070732 {
8564: IF p_cont_tab.count = 0 OR p_del_detail_tab.count = 0 THEN
8565: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
8566: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8567: x_pack_status := 'Error';
8568: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8569: --
8570: --Bugfix 4070732 {
8571: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8572: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8567: x_pack_status := 'Error';
8568: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8569: --
8570: --Bugfix 4070732 {
8571: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8572: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8573: IF l_debug_on THEN
8574: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8575: END IF;
8568: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8569: --
8570: --Bugfix 4070732 {
8571: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8572: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8573: IF l_debug_on THEN
8574: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8575: END IF;
8576:
8570: --Bugfix 4070732 {
8571: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8572: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8573: IF l_debug_on THEN
8574: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8575: END IF;
8576:
8577: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8578: x_return_status => l_tmp_return_status);
8573: IF l_debug_on THEN
8574: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8575: END IF;
8576:
8577: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8578: x_return_status => l_tmp_return_status);
8579:
8580:
8581: IF l_debug_on THEN
8580:
8581: IF l_debug_on THEN
8582: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8583: END IF;
8584: /*wsh_util_core.api_post_call
8585: (
8586: p_return_status => l_return_status,
8587: x_num_warnings => l_num_warnings,
8588: x_num_errors => l_num_errors
8587: x_num_warnings => l_num_warnings,
8588: x_num_errors => l_num_errors
8589: );
8590: */
8591: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8592: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8593: END IF;
8594: END IF;
8595: END IF;
8588: x_num_errors => l_num_errors
8589: );
8590: */
8591: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8592: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8593: END IF;
8594: END IF;
8595: END IF;
8596: --}
8651: IF l_debug_on THEN
8652: WSH_DEBUG_SV.log(l_module_name,'return status-', x_return_status);
8653: END IF;
8654:
8655: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8656: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8657: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DETAIL_NOT_ASSIGNED');
8658: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8659: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8652: WSH_DEBUG_SV.log(l_module_name,'return status-', x_return_status);
8653: END IF;
8654:
8655: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8656: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8657: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DETAIL_NOT_ASSIGNED');
8658: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8659: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8660: x_pack_status := 'Error';
8655: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8656: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8657: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DETAIL_NOT_ASSIGNED');
8658: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8659: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8660: x_pack_status := 'Error';
8661: END IF;
8662:
8663: END LOOP;
8661: END IF;
8662:
8663: END LOOP;
8664:
8665: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8666: THEN
8667: --Bugfix 4070732 {
8668: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8669: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8664:
8665: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8666: THEN
8667: --Bugfix 4070732 {
8668: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8669: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8670: IF l_debug_on THEN
8671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8672: END IF;
8665: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8666: THEN
8667: --Bugfix 4070732 {
8668: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8669: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8670: IF l_debug_on THEN
8671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8672: END IF;
8673:
8667: --Bugfix 4070732 {
8668: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8669: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8670: IF l_debug_on THEN
8671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8672: END IF;
8673:
8674: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8675: x_return_status => l_tmp_return_status);
8670: IF l_debug_on THEN
8671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8672: END IF;
8673:
8674: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8675: x_return_status => l_tmp_return_status);
8676:
8677: IF l_debug_on THEN
8678: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8677: IF l_debug_on THEN
8678: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8679: END IF;
8680:
8681: /* wsh_util_core.api_post_call
8682: (
8683: p_return_status => l_return_status,
8684: x_num_warnings => l_num_warnings,
8685: x_num_errors => l_num_errors
8685: x_num_errors => l_num_errors
8686: );
8687: */
8688:
8689: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8690: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8691: END IF;
8692: END IF;
8693: END IF;
8686: );
8687: */
8688:
8689: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8690: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8691: END IF;
8692: END IF;
8693: END IF;
8694: --}
8751: IF Get_Detail_Info%NOTFOUND THEN
8752: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
8753: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8754: x_pack_status := 'Error';
8755: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8756: CLOSE Get_Detail_Info;
8757: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8758: error_cnt := error_cnt + 1;
8759: l_det_tab(j).pack_status := 'Error';
8753: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8754: x_pack_status := 'Error';
8755: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8756: CLOSE Get_Detail_Info;
8757: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8758: error_cnt := error_cnt + 1;
8759: l_det_tab(j).pack_status := 'Error';
8760: exit;
8761: END IF;
8776: IF l_debug_on THEN
8777: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
8778: END IF;
8779:
8780: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8781: --Bugfix 4070732 {
8782: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8783: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8784: IF l_debug_on THEN
8778: END IF;
8779:
8780: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8781: --Bugfix 4070732 {
8782: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8783: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8784: IF l_debug_on THEN
8785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8786: END IF;
8779:
8780: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8781: --Bugfix 4070732 {
8782: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8783: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8784: IF l_debug_on THEN
8785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8786: END IF;
8787:
8781: --Bugfix 4070732 {
8782: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8783: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8784: IF l_debug_on THEN
8785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8786: END IF;
8787:
8788: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8789: x_return_status => l_tmp_return_status);
8784: IF l_debug_on THEN
8785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8786: END IF;
8787:
8788: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8789: x_return_status => l_tmp_return_status);
8790:
8791:
8792: IF l_debug_on THEN
8792: IF l_debug_on THEN
8793: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8794: END IF;
8795:
8796: /*wsh_util_core.api_post_call
8797: (
8798: p_return_status => l_return_status,
8799: x_num_warnings => l_num_warnings,
8800: x_num_errors => l_num_errors
8801: );
8802: */
8803:
8804: IF
8805: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8806: OR
8807: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8808: THEN --{
8809: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8803:
8804: IF
8805: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8806: OR
8807: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8808: THEN --{
8809: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8810: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8811: THEN
8805: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8806: OR
8807: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8808: THEN --{
8809: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8810: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8811: THEN
8812: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8813: THEN
8806: OR
8807: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8808: THEN --{
8809: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8810: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8811: THEN
8812: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8813: THEN
8814: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8808: THEN --{
8809: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8810: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8811: THEN
8812: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8813: THEN
8814: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8815: ELSIF l_tmp_return_status =
8816: WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8810: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8811: THEN
8812: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8813: THEN
8814: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8815: ELSIF l_tmp_return_status =
8816: WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8817: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8818: END IF;
8812: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8813: THEN
8814: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8815: ELSIF l_tmp_return_status =
8816: WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8817: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8818: END IF;
8819: END IF; --}
8820:
8813: THEN
8814: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8815: ELSIF l_tmp_return_status =
8816: WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8817: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8818: END IF;
8819: END IF; --}
8820:
8821: END IF;
8828: raise e_return_excp; -- LPN CONV. rv
8829: END IF;
8830: IF (l_fill_pc_basis = 'N') THEN
8831: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
8832: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8833: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8834: x_pack_status := 'Error';
8835: error_cnt := error_cnt + 1;
8836: l_det_tab(j).pack_status := 'Error';
8829: END IF;
8830: IF (l_fill_pc_basis = 'N') THEN
8831: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
8832: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8833: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8834: x_pack_status := 'Error';
8835: error_cnt := error_cnt + 1;
8836: l_det_tab(j).pack_status := 'Error';
8837: exit;
8849: , x_mtl_system_items_rec => l_item_info
8850: , x_return_status => l_return_status
8851: );
8852:
8853: wsh_util_core.api_post_call
8854: (
8855: p_return_status => l_return_status,
8856: x_num_warnings => l_num_warnings,
8857: x_num_errors => l_num_errors
8903: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
8904: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
8905: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
8906: x_pack_status := 'Error';
8907: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8908: CLOSE Get_Cont_Info;
8909: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8910: cont_err := cont_err + 1;
8911: l_cont_tab(i).pack_status := 'Error';
8905: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
8906: x_pack_status := 'Error';
8907: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8908: CLOSE Get_Cont_Info;
8909: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8910: cont_err := cont_err + 1;
8911: l_cont_tab(i).pack_status := 'Error';
8912: l_tmp_status := 'Error';
8913: GOTO new_container;
8938: IF l_debug_on THEN
8939: WSH_DEBUG_SV.log(l_module_name,'return status ' ,x_return_status);
8940: END IF;
8941:
8942: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8943: --dbms_output.put_line('container wt vol error');
8944:
8945: l_cont_tab(i).pack_status := 'Warning';
8946: --
8952: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
8953: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
8954:
8955:
8956: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
8957: cont_warn := cont_warn + 1;
8958: l_tmp_status := 'Error';
8959: GOTO new_container;
8960: END IF;
8964: IF (l_cont_fill_pc > 100) THEN
8965:
8966: --dbms_output.put_line('cont overpacked');
8967:
8968: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8969: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8970: END IF;
8971:
8972: l_cont_tab(i).pack_status := 'Overpacked';
8965:
8966: --dbms_output.put_line('cont overpacked');
8967:
8968: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8969: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8970: END IF;
8971:
8972: l_cont_tab(i).pack_status := 'Overpacked';
8973: cont_warn := cont_warn + 1;
8999:
9000: IF l_debug_on THEN
9001: WSH_DEBUG_SV.log(l_module_name,'return status ' ,x_return_status);
9002: END IF;
9003: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9004: l_cont_tab(i).pack_status := 'Skipped';
9005: l_det_tab(j).pack_status := 'Error';
9006: error_cnt := error_cnt + 1;
9007: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9003: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9004: l_cont_tab(i).pack_status := 'Skipped';
9005: l_det_tab(j).pack_status := 'Error';
9006: error_cnt := error_cnt + 1;
9007: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9008: l_tmp_status := 'Error';
9009: GOTO new_container;
9010: END IF;
9011:
9029: x_return_status,FALSE);
9030: IF l_debug_on THEN
9031: WSH_DEBUG_SV.log(l_module_name,'return status ' ,x_return_status);
9032: END IF;
9033: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9034: --dbms_output.put_line('could not assign');
9035: l_cont_tab(i).pack_status := 'Skipped';
9036: l_det_tab(j).pack_status := 'Error';
9037: error_cnt := error_cnt + 1;
9034: --dbms_output.put_line('could not assign');
9035: l_cont_tab(i).pack_status := 'Skipped';
9036: l_det_tab(j).pack_status := 'Error';
9037: error_cnt := error_cnt + 1;
9038: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9039: l_return_status := x_return_status;
9040: END IF;
9041:
9042: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9038: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9039: l_return_status := x_return_status;
9040: END IF;
9041:
9042: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9043: l_det_tab(j).pack_status := 'Packed';
9044: l_det_pack_sts := 'Packed';
9045: -- J: W/V Changes
9046: WSH_WV_UTILS.Check_Fill_Pc (
9058:
9059: --dbms_output.put_line('container ' || l_cont_name || ' overpacked ');
9060:
9061:
9062: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9063: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9064: END IF;
9065:
9066: l_cont_tab(i).pack_status := 'Overpacked';
9059: --dbms_output.put_line('container ' || l_cont_name || ' overpacked ');
9060:
9061:
9062: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9063: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9064: END IF;
9065:
9066: l_cont_tab(i).pack_status := 'Overpacked';
9067: cont_warn := cont_warn + 1;
9098: WSH_DEBUG_SV.log(l_module_name,'return status ' ,l_discard_status);
9099: END IF;
9100:
9101: -- bug 1716136: errors likely mean integers are safe values.
9102: IF l_discard_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9103: l_discard_message := FND_MESSAGE.GET;
9104: l_split_qty := FLOOR(l_tmp_split_qty);
9105: END IF;
9106:
9110:
9111: IF (l_split_qty < 0 OR l_split_qty > l_det_pack_qty) THEN
9112: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9113: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9114: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9115: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9116: l_det_tab(j).pack_status := 'Error';
9117: error_cnt := error_cnt + 1;
9118: exit;
9111: IF (l_split_qty < 0 OR l_split_qty > l_det_pack_qty) THEN
9112: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9113: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9114: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9115: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9116: l_det_tab(j).pack_status := 'Error';
9117: error_cnt := error_cnt + 1;
9118: exit;
9119: END IF;
9141: -- - 2) Changed check condition for lot divisible from 1 to 'N'
9142: IF ( l_lot_divisible_flag = 'N' AND i = cont_count AND l_det_pack_sts = 'Unpacked') THEN
9143: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
9144: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9145: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9146: WSH_UTIL_CORE.Add_Message(l_return_status);
9147: l_det_tab(j).pack_status := 'Error';
9148: error_cnt := error_cnt + 1;
9149: exit;
9142: IF ( l_lot_divisible_flag = 'N' AND i = cont_count AND l_det_pack_sts = 'Unpacked') THEN
9143: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
9144: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9145: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9146: WSH_UTIL_CORE.Add_Message(l_return_status);
9147: l_det_tab(j).pack_status := 'Error';
9148: error_cnt := error_cnt + 1;
9149: exit;
9150: -- HW OPMCONV - 1) Renamed lot_indivisible variable to lot_divisible_flag
9178: IF l_debug_on THEN
9179: WSH_DEBUG_SV.log(l_module_name,'return status,split det id -',x_return_status||l_split_det_id);
9180: END IF;
9181:
9182: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9183: --dbms_output.put_line('error in splitting');
9184: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9185: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9186: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9182: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9183: --dbms_output.put_line('error in splitting');
9184: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9185: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9186: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9187: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9188: l_det_tab(j).pack_status := 'Error';
9189: error_cnt := error_cnt + 1;
9190: exit;
9183: --dbms_output.put_line('error in splitting');
9184: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9185: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9186: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9187: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9188: l_det_tab(j).pack_status := 'Error';
9189: error_cnt := error_cnt + 1;
9190: exit;
9191: END IF;
9215: IF l_debug_on THEN
9216: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
9217: END IF;
9218:
9219: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9220: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9221: l_return_status := x_return_status;
9222: END IF;
9223:
9216: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
9217: END IF;
9218:
9219: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9220: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9221: l_return_status := x_return_status;
9222: END IF;
9223:
9224: l_det_tab(l_tmp_det_count).pack_status := 'Error';
9226: error_cnt := error_cnt + 1;
9227:
9228: END IF;
9229:
9230: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9231: l_det_tab(l_tmp_det_count).pack_status := 'Packed';
9232: l_cont_tab(i).pack_status := 'Packed';
9233: -- J: W/V Changes
9234:
9237: x_fill_status => l_fill_status,
9238: x_return_status => l_return_status);
9239:
9240: IF l_fill_status = 'O' THEN
9241: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9242: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9243: END IF;
9244:
9245: l_cont_tab(i).pack_status := 'Overpacked';
9238: x_return_status => l_return_status);
9239:
9240: IF l_fill_status = 'O' THEN
9241: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9242: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9243: END IF;
9244:
9245: l_cont_tab(i).pack_status := 'Overpacked';
9246: cont_warn := cont_warn + 1;
9315:
9316: IF Get_Detail_Info%NOTFOUND THEN
9317: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
9318: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9319: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9320: CLOSE Get_Detail_Info;
9321: --dbms_output.put_line('error in fetching details for ' || l_det_tab(j).delivery_detail_id);
9322: l_det_tab(j).pack_status := 'Error';
9323: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9319: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9320: CLOSE Get_Detail_Info;
9321: --dbms_output.put_line('error in fetching details for ' || l_det_tab(j).delivery_detail_id);
9322: l_det_tab(j).pack_status := 'Error';
9323: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9324: l_tmp_status := 'Error';
9325: GOTO next_detail;
9326: END IF;
9327:
9340: , x_mtl_system_items_rec => l_item_info
9341: , x_return_status => l_return_status
9342: );
9343:
9344: wsh_util_core.api_post_call
9345: (
9346: p_return_status => l_return_status,
9347: x_num_warnings => l_num_warnings,
9348: x_num_errors => l_num_errors
9375: WSH_DEBUG_SV.log(l_module_name,'return status-',l_discard_status);
9376: END IF;
9377:
9378: -- bug 1716136: errors likely mean integers are safe values.
9379: IF l_discard_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9380: l_discard_message := FND_MESSAGE.GET;
9381: l_split_qty := FLOOR(l_tmp_split_qty);
9382: END IF;
9383: /* Bug 2173615 - added l_split_qty = 0,in case of fractional split example = 0.3 */
9430: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9431: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
9432: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9433: -- x_pack_status := 'Error';
9434: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9435: l_cont_tab(i).pack_status := 'Error';
9436: CLOSE Get_Cont_Info;
9437: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9438: cont_err := cont_err + 1;
9433: -- x_pack_status := 'Error';
9434: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9435: l_cont_tab(i).pack_status := 'Error';
9436: CLOSE Get_Cont_Info;
9437: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9438: cont_err := cont_err + 1;
9439: l_tmp_status := 'Error';
9440: GOTO next_container;
9441: END IF;
9462: -- - 2) Changed check condition for lot divisible from 1 to 'N'
9463: IF ( l_lot_divisible_flag = 'N' AND i = cont_count AND l_det_pack_sts = 'Unpacked') THEN
9464: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
9465: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9466: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9467: WSH_UTIL_CORE.Add_Message(l_return_status);
9468: l_det_tab(j).pack_status := 'Error';
9469: error_cnt := error_cnt + 1;
9470: exit;
9463: IF ( l_lot_divisible_flag = 'N' AND i = cont_count AND l_det_pack_sts = 'Unpacked') THEN
9464: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
9465: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9466: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9467: WSH_UTIL_CORE.Add_Message(l_return_status);
9468: l_det_tab(j).pack_status := 'Error';
9469: error_cnt := error_cnt + 1;
9470: exit;
9471: -- HW OPMCONV - 1) Renamed lot_indivisible variable to lot_divisible_flag
9496: WSH_DEBUG_SV.log(l_module_name,'return status',x_return_status);
9497: END IF;
9498: --dbms_output.put_line('...split detail id ' || l_split_det_id);
9499:
9500: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9501: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9502: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9503: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9504: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9499:
9500: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9501: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9502: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9503: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9504: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9505: --dbms_output.put_line('error in splitting details for ' || l_det_tab(j).delivery_detail_id);
9506: error_cnt := error_cnt + 1;
9507: l_det_tab(j).pack_status := 'Error';
9500: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9501: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9502: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9503: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9504: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9505: --dbms_output.put_line('error in splitting details for ' || l_det_tab(j).delivery_detail_id);
9506: error_cnt := error_cnt + 1;
9507: l_det_tab(j).pack_status := 'Error';
9508: exit;
9551: IF l_debug_on THEN
9552: WSH_DEBUG_SV.log(l_module_name,'return status',x_return_status);
9553: END IF;
9554:
9555: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9556: --dbms_output.put_line('error in assigning details for ' || l_tmp_det_tab(1));
9557: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9558: l_return_status := x_return_status;
9559: END IF;
9553: END IF;
9554:
9555: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9556: --dbms_output.put_line('error in assigning details for ' || l_tmp_det_tab(1));
9557: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9558: l_return_status := x_return_status;
9559: END IF;
9560: error_cnt := error_cnt + 1;
9561: l_det_tab(l_tmp_det_count).pack_status := 'Error';
9559: END IF;
9560: error_cnt := error_cnt + 1;
9561: l_det_tab(l_tmp_det_count).pack_status := 'Error';
9562:
9563: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9564: --dbms_output.put_line('assigned line ' || l_tmp_det_tab(1));
9565: l_det_tab(l_tmp_det_count).pack_status := 'Packed';
9566: l_cont_tab(i).pack_status := 'Packed';
9567:
9572: x_return_status => l_return_status);
9573:
9574: IF (l_fill_status = 'O' AND l_cont_item_id IS NOT NULL) THEN
9575:
9576: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9577: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9578: END IF;
9579:
9580: cont_warn := cont_warn + 1;
9573:
9574: IF (l_fill_status = 'O' AND l_cont_item_id IS NOT NULL) THEN
9575:
9576: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9577: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9578: END IF;
9579:
9580: cont_warn := cont_warn + 1;
9581: l_cont_tab(i).pack_status := 'Overpacked';
9581: l_cont_tab(i).pack_status := 'Overpacked';
9582: ELSIF (l_fill_status = 'U'
9583: AND l_cont_item_id IS NOT NULL ) THEN
9584:
9585: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9586: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9587: END IF;
9588:
9589: cont_warn := cont_warn + 1;
9582: ELSIF (l_fill_status = 'U'
9583: AND l_cont_item_id IS NOT NULL ) THEN
9584:
9585: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9586: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9587: END IF;
9588:
9589: cont_warn := cont_warn + 1;
9590: l_cont_tab(i).pack_status := 'Underpacked';
9631: -- packing mode is invalid - did not pack
9632:
9633: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_INVALID_PACK_MODE');
9634: x_pack_status := 'Error';
9635: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9636: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
9637: --Bugfix 4070732 {
9638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9632:
9633: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_INVALID_PACK_MODE');
9634: x_pack_status := 'Error';
9635: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9636: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
9637: --Bugfix 4070732 {
9638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9640: IF l_debug_on THEN
9634: x_pack_status := 'Error';
9635: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9636: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
9637: --Bugfix 4070732 {
9638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9640: IF l_debug_on THEN
9641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9642: END IF;
9635: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9636: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
9637: --Bugfix 4070732 {
9638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9640: IF l_debug_on THEN
9641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9642: END IF;
9643:
9637: --Bugfix 4070732 {
9638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9640: IF l_debug_on THEN
9641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9642: END IF;
9643:
9644: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9645: x_return_status => l_tmp_return_status);
9640: IF l_debug_on THEN
9641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9642: END IF;
9643:
9644: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9645: x_return_status => l_tmp_return_status);
9646:
9647:
9648: IF l_debug_on THEN
9648: IF l_debug_on THEN
9649: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9650: END IF;
9651:
9652: /*wsh_util_core.api_post_call
9653: (
9654: p_return_status => l_return_status,
9655: x_num_warnings => l_num_warnings,
9656: x_num_errors => l_num_errors
9655: x_num_warnings => l_num_warnings,
9656: x_num_errors => l_num_errors
9657: );
9658: */
9659: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9660: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9661: END IF;
9662: END IF;
9663: END IF;
9656: x_num_errors => l_num_errors
9657: );
9658: */
9659: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9660: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9661: END IF;
9662: END IF;
9663: END IF;
9664: --}
9688: IF l_det_tab(i).pack_status = 'Error' THEN
9689: error_cnt := error_cnt + 1;
9690: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DETAIL_NOT_ASSIGNED');
9691: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(i).delivery_detail_id);
9692: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
9693: ELSE
9694: IF l_det_tab(i).pack_status = 'Unpacked' THEN
9695: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_IGNORED');
9696: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(i).delivery_detail_id);
9693: ELSE
9694: IF l_det_tab(i).pack_status = 'Unpacked' THEN
9695: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_IGNORED');
9696: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(i).delivery_detail_id);
9697: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9698: END IF;
9699: warn_cnt := warn_cnt + 1;
9700: END IF;
9701: ELSE
9712: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
9713: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
9714: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
9715: IF error_cnt > 0 THEN
9716: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9717: ELSIF warn_cnt > 0 THEN
9718: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9719: END IF;
9720:
9714: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
9715: IF error_cnt > 0 THEN
9716: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9717: ELSIF warn_cnt > 0 THEN
9718: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9719: END IF;
9720:
9721: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9722:
9717: ELSIF warn_cnt > 0 THEN
9718: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9719: END IF;
9720:
9721: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9722:
9723: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9724: x_return_status := l_return_status;
9725: x_pack_status := 'Error';
9719: END IF;
9720:
9721: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9722:
9723: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9724: x_return_status := l_return_status;
9725: x_pack_status := 'Error';
9726: --Bugfix 4070732 {
9727: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9723: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9724: x_return_status := l_return_status;
9725: x_pack_status := 'Error';
9726: --Bugfix 4070732 {
9727: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9728: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9729: IF l_debug_on THEN
9730: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9731: END IF;
9724: x_return_status := l_return_status;
9725: x_pack_status := 'Error';
9726: --Bugfix 4070732 {
9727: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9728: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9729: IF l_debug_on THEN
9730: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9731: END IF;
9732:
9726: --Bugfix 4070732 {
9727: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9728: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9729: IF l_debug_on THEN
9730: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9731: END IF;
9732:
9733: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9734: x_return_status => l_tmp_return_status);
9729: IF l_debug_on THEN
9730: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9731: END IF;
9732:
9733: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9734: x_return_status => l_tmp_return_status);
9735:
9736:
9737: IF l_debug_on THEN
9737: IF l_debug_on THEN
9738: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9739: END IF;
9740:
9741: /*wsh_util_core.api_post_call
9742: (
9743: p_return_status => l_return_status,
9744: x_num_warnings => l_num_warnings,
9745: x_num_errors => l_num_errors
9744: x_num_warnings => l_num_warnings,
9745: x_num_errors => l_num_errors
9746: );
9747: */
9748: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9749: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9750: END IF;
9751: END IF;
9752: END IF;
9745: x_num_errors => l_num_errors
9746: );
9747: */
9748: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9749: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9750: END IF;
9751: END IF;
9752: END IF;
9753: --}
9777:
9778: IF l_debug_on THEN
9779: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
9780: END IF;
9781: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9782: x_return_status := l_return_status;
9783: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9784: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
9785: --
9780: END IF;
9781: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9782: x_return_status := l_return_status;
9783: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9784: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
9785: --
9786: --Bugfix 4070732 {
9787: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9788: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9783: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9784: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
9785: --
9786: --Bugfix 4070732 {
9787: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9788: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9789: IF l_debug_on THEN
9790: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9791: END IF;
9784: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
9785: --
9786: --Bugfix 4070732 {
9787: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9788: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9789: IF l_debug_on THEN
9790: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9791: END IF;
9792:
9786: --Bugfix 4070732 {
9787: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9788: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9789: IF l_debug_on THEN
9790: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9791: END IF;
9792:
9793: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9794: x_return_status => l_tmp_return_status);
9789: IF l_debug_on THEN
9790: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9791: END IF;
9792:
9793: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9794: x_return_status => l_tmp_return_status);
9795:
9796:
9797: IF l_debug_on THEN
9797: IF l_debug_on THEN
9798: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9799: END IF;
9800:
9801: /*wsh_util_core.api_post_call
9802: (
9803: p_return_status => l_return_status,
9804: x_num_warnings => l_num_warnings,
9805: x_num_errors => l_num_errors
9805: x_num_errors => l_num_errors
9806: );
9807: */
9808: IF
9809: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9810: OR
9811: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9812: THEN --{
9813: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9807: */
9808: IF
9809: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9810: OR
9811: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9812: THEN --{
9813: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9814: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9815: THEN
9809: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9810: OR
9811: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9812: THEN --{
9813: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9814: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9815: THEN
9816: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9817: THEN
9810: OR
9811: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9812: THEN --{
9813: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9814: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9815: THEN
9816: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9817: THEN
9818: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9812: THEN --{
9813: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9814: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9815: THEN
9816: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9817: THEN
9818: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9819: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9820: THEN
9814: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9815: THEN
9816: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9817: THEN
9818: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9819: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9820: THEN
9821: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9822: END IF;
9815: THEN
9816: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9817: THEN
9818: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9819: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9820: THEN
9821: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9822: END IF;
9823: END IF; --}
9817: THEN
9818: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9819: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9820: THEN
9821: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9822: END IF;
9823: END IF; --}
9824: END IF;
9825: END IF;
9838: FOR i IN 1..l_cont_tab.count LOOP
9839: --dbms_output.put_line('container ' || l_cont_tab(i).container_instance_id || ' is ' || l_cont_tab(i).pack_status);
9840: IF l_cont_tab(i).pack_status <> 'Packed' THEN
9841: IF l_cont_tab(i).pack_status = 'Error' THEN
9842: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9843: cont_err := cont_err + 1;
9844: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NOT_PACKED');
9845: --
9846: IF l_debug_on THEN
9848: END IF;
9849: --
9850: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9851: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9852: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9853: ELSIF l_cont_tab(i).pack_status = 'Overpacked' THEN
9854: cont_warn := cont_warn + 1;
9855: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
9856: --
9859: END IF;
9860: --
9861: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9862: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9863: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9864: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9865: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9866: END IF;
9867: ELSIF l_cont_tab(i).pack_status = 'Underpacked' THEN
9860: --
9861: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9862: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9863: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9864: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9865: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9866: END IF;
9867: ELSIF l_cont_tab(i).pack_status = 'Underpacked' THEN
9868: cont_warn := cont_warn + 1;
9861: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9862: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9863: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9864: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9865: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9866: END IF;
9867: ELSIF l_cont_tab(i).pack_status = 'Underpacked' THEN
9868: cont_warn := cont_warn + 1;
9869: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
9873: END IF;
9874: --
9875: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9876: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9877: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9878: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9879: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9880: END IF;
9881: ELSIF l_cont_tab(i).pack_status = 'Warning' THEN
9874: --
9875: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9876: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9877: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9878: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9879: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9880: END IF;
9881: ELSIF l_cont_tab(i).pack_status = 'Warning' THEN
9882: cont_warn := cont_warn + 1;
9875: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9876: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9877: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9878: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9879: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9880: END IF;
9881: ELSIF l_cont_tab(i).pack_status = 'Warning' THEN
9882: cont_warn := cont_warn + 1;
9883: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
9887: END IF;
9888: --
9889: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9890: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9891: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9892:
9893: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9894: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9895: END IF;
9889: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9890: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9891: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9892:
9893: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9894: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9895: END IF;
9896: END IF;
9897: END IF;
9890: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9891: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9892:
9893: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9894: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9895: END IF;
9896: END IF;
9897: END IF;
9898:
9919: IF l_debug_on THEN
9920: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
9921: END IF;
9922: --
9923: WSH_UTIL_CORE.API_POST_CALL
9924: (
9925: p_return_status => l_return_status,
9926: x_num_warnings => cont_warn,
9927: x_num_errors => cont_err,
9936: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_PACK_WARN');
9937: FND_MESSAGE.SET_TOKEN('CONT_WARN',cont_warn);
9938: FND_MESSAGE.SET_TOKEN('CONT_ERR',cont_err);
9939: IF cont_err > 0 THEN
9940: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9941: ELSE
9942: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9943: END IF;
9944: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9938: FND_MESSAGE.SET_TOKEN('CONT_ERR',cont_err);
9939: IF cont_err > 0 THEN
9940: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9941: ELSE
9942: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9943: END IF;
9944: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9945: END IF;
9946:
9940: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9941: ELSE
9942: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9943: END IF;
9944: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9945: END IF;
9946:
9947: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9948: x_return_status := l_return_status;
9943: END IF;
9944: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9945: END IF;
9946:
9947: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9948: x_return_status := l_return_status;
9949: ELSE
9950: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9951: END IF;
9946:
9947: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9948: x_return_status := l_return_status;
9949: ELSE
9950: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9951: END IF;
9952:
9953: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9954: x_pack_status := 'Success';
9949: ELSE
9950: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9951: END IF;
9952:
9953: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9954: x_pack_status := 'Success';
9955: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9956: x_pack_status := 'Error';
9957: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9951: END IF;
9952:
9953: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9954: x_pack_status := 'Success';
9955: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9956: x_pack_status := 'Error';
9957: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9958: x_pack_status := 'Warning';
9959: l_num_warnings := nvl(l_num_warnings,0 ) + 1;
9953: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9954: x_pack_status := 'Success';
9955: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9956: x_pack_status := 'Error';
9957: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9958: x_pack_status := 'Warning';
9959: l_num_warnings := nvl(l_num_warnings,0 ) + 1;
9960: END IF;
9961:
9964: x_pack_status := 'Success';
9965: END IF;
9966:
9967: --Bugfix 4070732 {
9968: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9969: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9970: IF l_debug_on THEN
9971: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9972: END IF;
9965: END IF;
9966:
9967: --Bugfix 4070732 {
9968: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9969: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9970: IF l_debug_on THEN
9971: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9972: END IF;
9973:
9967: --Bugfix 4070732 {
9968: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9969: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9970: IF l_debug_on THEN
9971: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9972: END IF;
9973:
9974: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
9975: x_return_status => l_tmp_return_status);
9970: IF l_debug_on THEN
9971: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9972: END IF;
9973:
9974: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
9975: x_return_status => l_tmp_return_status);
9976: IF l_debug_on THEN
9977: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9978: END IF;
9976: IF l_debug_on THEN
9977: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9978: END IF;
9979:
9980: /*wsh_util_core.api_post_call
9981: (
9982: p_return_status => l_return_status,
9983: x_num_warnings => l_num_warnings,
9984: x_num_errors => l_num_errors
9983: x_num_warnings => l_num_warnings,
9984: x_num_errors => l_num_errors
9985: );
9986: */
9987: IF (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9988: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9989: THEN --{
9990: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9991: x_pack_status := 'Error';
9984: x_num_errors => l_num_errors
9985: );
9986: */
9987: IF (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9988: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9989: THEN --{
9990: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9991: x_pack_status := 'Error';
9992: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9986: */
9987: IF (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9988: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9989: THEN --{
9990: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9991: x_pack_status := 'Error';
9992: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9993: THEN
9994: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9988: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9989: THEN --{
9990: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9991: x_pack_status := 'Error';
9992: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9993: THEN
9994: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9995: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9996: x_pack_status := 'Error';
9990: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9991: x_pack_status := 'Error';
9992: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9993: THEN
9994: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9995: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9996: x_pack_status := 'Error';
9997: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9998: THEN
9991: x_pack_status := 'Error';
9992: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9993: THEN
9994: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9995: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9996: x_pack_status := 'Error';
9997: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9998: THEN
9999: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9993: THEN
9994: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9995: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9996: x_pack_status := 'Error';
9997: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9998: THEN
9999: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10000: x_pack_status := 'Warning';
10001: END IF;
9995: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9996: x_pack_status := 'Error';
9997: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9998: THEN
9999: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10000: x_pack_status := 'Warning';
10001: END IF;
10002: END IF; --}
10003:
10037: IF l_debug_on THEN
10038: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
10039: END IF;
10040: --
10041: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
10042: x_return_status := l_return_status;
10043: END IF;
10044: --}
10045: END IF;
10051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
10052: END IF;
10053: WHEN Others THEN
10054: --
10055: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Multi',l_module_name);
10056: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10057: --
10058: IF l_debug_on THEN
10059: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10052: END IF;
10053: WHEN Others THEN
10054: --
10055: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Multi',l_module_name);
10056: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10057: --
10058: IF l_debug_on THEN
10059: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10060: END IF;
10088: -- LPN CONV. rv
10089: --
10090:
10091: --Bugfix 4070732 {
10092: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
10093: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
10094: IF l_debug_on THEN
10095: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
10096: END IF;
10089: --
10090:
10091: --Bugfix 4070732 {
10092: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
10093: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
10094: IF l_debug_on THEN
10095: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
10096: END IF;
10097:
10091: --Bugfix 4070732 {
10092: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
10093: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
10094: IF l_debug_on THEN
10095: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
10096: END IF;
10097:
10098: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
10099: x_return_status => l_return_status);
10094: IF l_debug_on THEN
10095: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
10096: END IF;
10097:
10098: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
10099: x_return_status => l_return_status);
10100:
10101:
10102: IF l_debug_on THEN
10102: IF l_debug_on THEN
10103: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
10104: END IF;
10105:
10106: /*wsh_util_core.api_post_call
10107: (
10108: p_return_status => l_return_status,
10109: x_num_warnings => l_num_warnings,
10110: x_num_errors => l_num_errors
10181: END IF;
10182: --
10183: IF p_split_detail_id IS NULL THEN
10184: -- nothing split, ergo nothing to update...
10185: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10186: --
10187: IF l_debug_on THEN
10188: WSH_DEBUG_SV.pop(l_module_name);
10189: END IF;
10198: IF Get_Ship_Qty%NOTFOUND THEN
10199: CLOSE Get_Ship_Qty;
10200: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10201: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
10202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10203: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10204: --
10205: IF l_debug_on THEN
10206: WSH_DEBUG_SV.pop(l_module_name);
10199: CLOSE Get_Ship_Qty;
10200: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10201: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
10202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10203: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10204: --
10205: IF l_debug_on THEN
10206: WSH_DEBUG_SV.pop(l_module_name);
10207: END IF;
10213: CLOSE Get_Ship_Qty;
10214: END IF;
10215:
10216: IF l_shp_qty = -99 THEN
10217: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10218: --
10219: IF l_debug_on THEN
10220: WSH_DEBUG_SV.pop(l_module_name);
10221: END IF;
10233: IF Get_Ship_Qty%NOTFOUND THEN
10234: CLOSE Get_Ship_Qty;
10235: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10236: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_split_detail_id);
10237: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10238: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10239: --
10240: IF l_debug_on THEN
10241: WSH_DEBUG_SV.pop(l_module_name);
10234: CLOSE Get_Ship_Qty;
10235: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10236: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_split_detail_id);
10237: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10238: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10239: --
10240: IF l_debug_on THEN
10241: WSH_DEBUG_SV.pop(l_module_name);
10242: END IF;
10260:
10261: IF SQL%NOTFOUND THEN
10262: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10263: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
10264: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10265: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10266: --
10267: IF l_debug_on THEN
10268: WSH_DEBUG_SV.pop(l_module_name);
10261: IF SQL%NOTFOUND THEN
10262: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10263: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
10264: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10265: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10266: --
10267: IF l_debug_on THEN
10268: WSH_DEBUG_SV.pop(l_module_name);
10269: END IF;
10277:
10278: IF SQL%NOTFOUND THEN
10279: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10280: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_split_detail_id);
10281: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10282: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10283: --
10284: IF l_debug_on THEN
10285: WSH_DEBUG_SV.pop(l_module_name);
10278: IF SQL%NOTFOUND THEN
10279: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10280: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_split_detail_id);
10281: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10282: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10283: --
10284: IF l_debug_on THEN
10285: WSH_DEBUG_SV.pop(l_module_name);
10286: END IF;
10287: --
10288: return;
10289: END IF;
10290:
10291: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10292:
10293:
10294: --
10295: IF l_debug_on THEN
10298: --
10299: EXCEPTION
10300:
10301: WHEN Others THEN
10302: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Shipped_Qty',l_module_name);
10303: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10304:
10305: --
10306: IF l_debug_on THEN
10299: EXCEPTION
10300:
10301: WHEN Others THEN
10302: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Shipped_Qty',l_module_name);
10303: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10304:
10305: --
10306: IF l_debug_on THEN
10307: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10512: END IF;
10513: --
10514: EXCEPTION
10515: WHEN Others THEN
10516: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Container',l_module_name);
10517: x_return_status := C_UNEXP_ERROR_STATUS;
10518:
10519: --
10520: IF l_debug_on THEN
10543: -- Master container informations which is used when Auto_pack Master
10544: -- action performed on delivery detail lines
10545:
10546: PROCEDURE Validate_Container_For_Pack(
10547: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
10548: p_cont_info_tab IN wsh_util_core.id_tab_type,
10549: p_mast_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
10550: x_line_cont_tab OUT NOCOPY wsh_container_actions.cont_info_tab,
10551: x_error_cnt OUT NOCOPY NUMBER,
10544: -- action performed on delivery detail lines
10545:
10546: PROCEDURE Validate_Container_For_Pack(
10547: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
10548: p_cont_info_tab IN wsh_util_core.id_tab_type,
10549: p_mast_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
10550: x_line_cont_tab OUT NOCOPY wsh_container_actions.cont_info_tab,
10551: x_error_cnt OUT NOCOPY NUMBER,
10552: x_warn_cnt OUT NOCOPY NUMBER,
10825: IF ((NVL(line_cont_rec.gross_weight,0) = 0) OR
10826: (NVL(line_cont_rec.volume,0) = 0)) THEN
10827: --dbms_output.put_line('Weight or Volume is NULL or 0');
10828: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
10829: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10830: error_cnt := error_cnt + 1;
10831: --dbms_output.put_line('Skipping this cont');
10832: goto next_cont;
10833: END IF;
10903:
10904: IF (NVL(line_cont_rec.max_load_qty,0) <= 0) THEN
10905: --dbms_output.put_line('Max Load Qty is null or <= 0. Skipping this container');
10906: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
10907: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10908: error_cnt := error_cnt + 1;
10909: goto next_cont;
10910: END IF;
10911:
10962: IF (NVL(line_cont_rec.gross_weight,0) = 0) THEN
10963: --dbms_output.put_line('Weight is NULL or 0');
10964: --BUG 3577115
10965: --FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
10966: l_item_name := WSH_UTIL_CORE.Get_Item_Name(line_cont_rec.inventory_item_id, line_cont_rec.organization_id);
10967: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_WEIGHT_VOLUME');
10968: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_item_name);
10969: --BUG 3577115
10970: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10966: l_item_name := WSH_UTIL_CORE.Get_Item_Name(line_cont_rec.inventory_item_id, line_cont_rec.organization_id);
10967: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_WEIGHT_VOLUME');
10968: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_item_name);
10969: --BUG 3577115
10970: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10971: error_cnt := error_cnt + 1;
10972: --dbms_output.put_line('Skipping this Cont');
10973: goto next_cont;
10974: END IF;
10978: IF (NVL(line_cont_rec.volume,0) = 0) THEN
10979: --dbms_output.put_line('Volume is NULL or 0');
10980: --BUG 3577115
10981: --FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_VOL_ERROR');
10982: l_item_name := WSH_UTIL_CORE.Get_Item_Name(line_cont_rec.inventory_item_id, line_cont_rec.organization_id);
10983: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_WEIGHT_VOLUME');
10984: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_item_name);
10985: --BUG 3577115
10986: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10982: l_item_name := WSH_UTIL_CORE.Get_Item_Name(line_cont_rec.inventory_item_id, line_cont_rec.organization_id);
10983: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_WEIGHT_VOLUME');
10984: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_item_name);
10985: --BUG 3577115
10986: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10987: error_cnt := error_cnt + 1;
10988: --dbms_output.put_line('Skipping this Cont');
10989: goto next_cont;
10990: END IF;
11065: (line_cont_rec.fill_pc_basis = 'V' AND (line_cont_rec.converted_vol > l_mtl_max_vol))) THEN
11066: --dbms_output.put_line('Indivisible flag is Y and Preferred Mast Cont cannot hold atleast 1 piece');
11067: -- Bug#: 2503937 - New Error Message
11068: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_VOL_ERROR');
11069: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
11070: error_cnt := error_cnt + 1;
11071: --dbms_output.put_line('Skipping this Cont');
11072: goto next_cont;
11073: END IF;
11106: END IF;
11107: IF (Get_Cont_Item_Load%ISOPEN) THEN
11108: CLOSE Get_Cont_Item_Load;
11109: END IF;
11110: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Container_For_Pack',l_module_name);
11111: --
11112: IF l_debug_on THEN
11113: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11114: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11150: ------------------------------------------------------------------------------
11151: */
11152:
11153: PROCEDURE Auto_Pack_Conts (
11154: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
11155: p_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
11156: p_cont_detail_tab IN WSH_UTIL_CORE.id_tab_type,
11157: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
11158: x_return_status OUT NOCOPY VARCHAR2) IS
11152:
11153: PROCEDURE Auto_Pack_Conts (
11154: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
11155: p_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
11156: p_cont_detail_tab IN WSH_UTIL_CORE.id_tab_type,
11157: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
11158: x_return_status OUT NOCOPY VARCHAR2) IS
11159:
11160: line_cont_rec wsh_container_actions.cont_info;
11153: PROCEDURE Auto_Pack_Conts (
11154: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
11155: p_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
11156: p_cont_detail_tab IN WSH_UTIL_CORE.id_tab_type,
11157: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
11158: x_return_status OUT NOCOPY VARCHAR2) IS
11159:
11160: line_cont_rec wsh_container_actions.cont_info;
11161: line_cont_tab wsh_container_actions.cont_info_tab;
11159:
11160: line_cont_rec wsh_container_actions.cont_info;
11161: line_cont_tab wsh_container_actions.cont_info_tab;
11162:
11163: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
11164: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
11165: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
11166: l_return_status VARCHAR2(1);
11167: l_cont_instance_id NUMBER;
11160: line_cont_rec wsh_container_actions.cont_info;
11161: line_cont_tab wsh_container_actions.cont_info_tab;
11162:
11163: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
11164: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
11165: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
11166: l_return_status VARCHAR2(1);
11167: l_cont_instance_id NUMBER;
11168: l_row_id VARCHAR2(30);
11161: line_cont_tab wsh_container_actions.cont_info_tab;
11162:
11163: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
11164: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
11165: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
11166: l_return_status VARCHAR2(1);
11167: l_cont_instance_id NUMBER;
11168: l_row_id VARCHAR2(30);
11169: l_gross_weight NUMBER;
11179: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
11180: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
11181: l_action_rec wsh_delivery_autocreate.action_rec_type;
11182: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
11183: l_matched_entities wsh_util_core.id_tab_type;
11184: l_out_rec wsh_delivery_autocreate.out_rec_type;
11185:
11186:
11187: i NUMBER;
11203:
11204: -- K LPN CONV. rv
11205: l_wms_org VARCHAR2(10) := 'N';
11206: l_sync_tmp_rec wsh_glbl_var_strct_grp.sync_tmp_rec_type;
11207: l_cont_tab wsh_util_core.id_tab_type;
11208: l_lpn_unit_weight NUMBER;
11209: l_lpn_unit_volume NUMBER;
11210: l_lpn_weight_uom_code VARCHAR2(100);
11211: l_lpn_volume_uom_code VARCHAR2(100);
11251: IF (p_cont_detail_tab.COUNT = 0) THEN
11252: --dbms_output.put_line('p_cont_detail_tab count is 0');
11253: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CONT_ASSG_NULL');
11254: x_return_status := C_ERROR_STATUS;
11255: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11256: --
11257: IF l_debug_on THEN
11258: WSH_DEBUG_SV.pop(l_module_name);
11259: END IF;
11301: IF (l_return_status = C_ERROR_STATUS) OR
11302: (l_return_status = C_UNEXP_ERROR_STATUS) THEN
11303: --dbms_output.put_line('WSH_DELIVERY_AUTOCREATE.autocreate_deliveries returned '||l_return_status);
11304: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
11305: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
11306: x_return_status := l_return_status;
11307: --
11308: IF l_debug_on THEN
11309: WSH_DEBUG_SV.pop(l_module_name);
11318: cnt := p_group_id_tab.FIRST;
11319: IF ((cnt IS NULL) OR (p_group_id_tab.COUNT <> p_cont_detail_tab.count)) THEN
11320: x_return_status := C_ERROR_STATUS;
11321: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
11322: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11323: --
11324: IF l_debug_on THEN
11325: WSH_DEBUG_SV.pop(l_module_name);
11326: END IF;
11359: --
11360: IF (l_fill_pc_warn_count = p_cont_detail_tab.count) THEN
11361: x_return_status := C_ERROR_STATUS;
11362: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
11363: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11364: IF l_debug_on THEN
11365: WSH_DEBUG_SV.pop(l_module_name);
11366: END IF;
11367: RETURN;
11369: IF (l_return_status <> C_ERROR_STATUS) THEN
11370: x_return_status := C_WARNING_STATUS;
11371: warn_cnt := warn_cnt + 1;
11372: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
11373: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11374: END IF;
11375: END IF;
11376: -- end of bug 3562797 jckwok
11377:
11448:
11449: IF l_return_status <> C_SUCCESS_STATUS THEN
11450: --dbms_output.put_line('Container Creation failed for index '|| cnt);
11451: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
11452: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
11453: error_cnt := error_cnt + 1;
11454: ELSE
11455: l_cont_instance_id := l_cont_tab(1);
11456: g_new_container_tab(cnt).cont_instance_id := l_cont_instance_id;
11514: IF l_debug_on THEN
11515: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
11516: END IF;
11517: --
11518: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11519: --
11520: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11521: warn_cnt := warn_cnt + 1;
11522: ELSE
11516: END IF;
11517: --
11518: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11519: --
11520: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11521: warn_cnt := warn_cnt + 1;
11522: ELSE
11523: --
11524: error_cnt := error_cnt + 1;
11542: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
11543: END IF;
11544: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_instance_id);
11545: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11546: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11547: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11548: IF l_debug_on THEN
11549: WSH_DEBUG_SV.pop(l_module_name);
11550: END IF;
11543: END IF;
11544: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_instance_id);
11545: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11546: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11547: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11548: IF l_debug_on THEN
11549: WSH_DEBUG_SV.pop(l_module_name);
11550: END IF;
11551: return;
11596: x_return_status := C_WARNING_STATUS;
11597: ELSE
11598: x_return_status := C_ERROR_STATUS;
11599: END IF;
11600: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11601: ELSIF (warn_cnt > 0 OR cont_warn > 0) THEN
11602: x_return_status := C_WARNING_STATUS;
11603: IF cont_warn > 0 THEN
11604: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_PACK_WARN');
11603: IF cont_warn > 0 THEN
11604: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_PACK_WARN');
11605: FND_MESSAGE.SET_TOKEN('CONT_WARN',cont_warn);
11606: FND_MESSAGE.SET_TOKEN('CONT_ERR',0);
11607: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11608: END IF;
11609: ELSE
11610: x_return_status := C_SUCCESS_STATUS;
11611: END IF;
11623: END IF;
11624: --
11625: EXCEPTION
11626: WHEN Others THEN
11627: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Auto_Pack_conts',l_module_name);
11628: x_return_status := C_UNEXP_ERROR_STATUS;
11629:
11630: --
11631: IF l_debug_on THEN
11769: --dbms_output.put_line('invalid detail id ' || p_delivery_detail_id);
11770: CLOSE Get_Detail_Attr;
11771: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
11772: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
11773: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11774: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11775: --
11776: IF l_debug_on THEN
11777: WSH_DEBUG_SV.pop(l_module_name);
11770: CLOSE Get_Detail_Attr;
11771: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
11772: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
11773: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11774: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11775: --
11776: IF l_debug_on THEN
11777: WSH_DEBUG_SV.pop(l_module_name);
11778: END IF;
11811: IF Get_Del_Attr%NOTFOUND THEN
11812: CLOSE Get_Del_Attr;
11813: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DELIVERY');
11814: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_id);
11815: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11816: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11817: --
11818: IF l_debug_on THEN
11819: WSH_DEBUG_SV.pop(l_module_name);
11812: CLOSE Get_Del_Attr;
11813: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DELIVERY');
11814: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_id);
11815: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11816: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11817: --
11818: IF l_debug_on THEN
11819: WSH_DEBUG_SV.pop(l_module_name);
11820: END IF;
11827: END IF;
11828:
11829: ELSE
11830: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NO_ATTR_ERROR');
11831: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11832: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11833: --
11834: IF l_debug_on THEN
11835: WSH_DEBUG_SV.pop(l_module_name);
11828:
11829: ELSE
11830: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NO_ATTR_ERROR');
11831: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11832: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11833: --
11834: IF l_debug_on THEN
11835: WSH_DEBUG_SV.pop(l_module_name);
11836: END IF;
11871: IF l_debug_on THEN
11872: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
11873: END IF;
11874: --
11875: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
11876: --
11877: x_return_status := l_return_status;
11878: --
11879: IF l_debug_on THEN
11882: END IF;
11883: --
11884: return;
11885: --
11886: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
11887: --
11888: l_num_warnings := l_num_warnings + 1;
11889: --
11890: END IF;
11931: END IF;
11932: --
11933: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
11934: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11935: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11936: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11937: --
11938: IF l_debug_on THEN
11939: WSH_DEBUG_SV.pop(l_module_name);
11932: --
11933: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
11934: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11935: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11936: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11937: --
11938: IF l_debug_on THEN
11939: WSH_DEBUG_SV.pop(l_module_name);
11940: END IF;
11941: --
11942: return;
11943: END IF;
11944:
11945: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11946:
11947: IF l_num_warnings > 0 THEN
11948: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11949: END IF;
11944:
11945: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11946:
11947: IF l_num_warnings > 0 THEN
11948: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11949: END IF;
11950:
11951:
11952: --
11956: --
11957: EXCEPTION
11958:
11959: WHEN Others THEN
11960: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Cont_Attributes',l_module_name);
11961: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11962:
11963: --
11964: IF l_debug_on THEN
11957: EXCEPTION
11958:
11959: WHEN Others THEN
11960: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Cont_Attributes',l_module_name);
11961: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11962:
11963: --
11964: IF l_debug_on THEN
11965: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12052: IF Get_Detail_Attr%NOTFOUND THEN
12053: CLOSE Get_Detail_Attr;
12054: --dbms_output.put_line('no detail found for ' || p_container_instance_id);
12055: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12056: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12057: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12058: x_attr_flag := 'N';
12059: --
12060: IF l_debug_on THEN
12053: CLOSE Get_Detail_Attr;
12054: --dbms_output.put_line('no detail found for ' || p_container_instance_id);
12055: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12056: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12057: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12058: x_attr_flag := 'N';
12059: --
12060: IF l_debug_on THEN
12061: WSH_DEBUG_SV.pop(l_module_name);
12102: END IF;
12103:
12104: x_attr_flag := l_attr_flag;
12105:
12106: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12107:
12108: --
12109: IF l_debug_on THEN
12110: WSH_DEBUG_SV.pop(l_module_name);
12112: --
12113: EXCEPTION
12114:
12115: WHEN Others THEN
12116: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Check_Cont_Attributes',l_module_name);
12117: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12118:
12119: --
12120: IF l_debug_on THEN
12113: EXCEPTION
12114:
12115: WHEN Others THEN
12116: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Check_Cont_Attributes',l_module_name);
12117: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12118:
12119: --
12120: IF l_debug_on THEN
12121: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12162:
12163: l_cont_name VARCHAR2(30);
12164: l_cont_flag VARCHAR2(1);
12165:
12166: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12167:
12168: --
12169: l_debug_on BOOLEAN;
12170: --
12241: IF l_debug_on THEN
12242: WSH_DEBUG_SV.log(l_module_name,'return status-',l_return_status);
12243: END IF;
12244:
12245: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12246: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
12247: --
12248: IF l_debug_on THEN
12249: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
12250: END IF;
12251: --
12252: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(cont.delivery_detail_id);
12253: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
12254: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12255: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12256: END IF;
12257:
12258: END IF;
12251: --
12252: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(cont.delivery_detail_id);
12253: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
12254: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12255: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12256: END IF;
12257:
12258: END IF;
12259:
12263: l_cont_flag := NULL;
12264:
12265: END LOOP;
12266:
12267: IF nvl(x_return_status,WSH_UTIL_CORE.G_RET_STS_SUCCESS) <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12268: --
12269: IF l_debug_on THEN
12270: WSH_DEBUG_SV.pop(l_module_name);
12271: END IF;
12271: END IF;
12272: --
12273: return;
12274: ELSE
12275: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12276: END IF;
12277:
12278: --
12279: IF l_debug_on THEN
12282: --
12283: EXCEPTION
12284:
12285: WHEN Others THEN
12286: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Cont_Hierarchy',l_module_name);
12287: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12288:
12289: --
12290: IF l_debug_on THEN
12283: EXCEPTION
12284:
12285: WHEN Others THEN
12286: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Cont_Hierarchy',l_module_name);
12287: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12288:
12289: --
12290: IF l_debug_on THEN
12291: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12378: IF Get_Contents%NOTFOUND THEN
12379: CLOSE Get_Contents;
12380: x_last_line_flag := 'N';
12381: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12382: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12383: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12384: --
12385: IF l_debug_on THEN
12386: WSH_DEBUG_SV.pop(l_module_name);
12379: CLOSE Get_Contents;
12380: x_last_line_flag := 'N';
12381: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12382: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12383: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12384: --
12385: IF l_debug_on THEN
12386: WSH_DEBUG_SV.pop(l_module_name);
12387: END IF;
12400: IF Get_Cont_Count%NOTFOUND THEN
12401: CLOSE Get_Cont_Count;
12402: x_last_line_flag := 'N';
12403: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12404: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12405: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12406: --
12407: IF l_debug_on THEN
12408: WSH_DEBUG_SV.pop(l_module_name);
12401: CLOSE Get_Cont_Count;
12402: x_last_line_flag := 'N';
12403: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12404: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12405: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12406: --
12407: IF l_debug_on THEN
12408: WSH_DEBUG_SV.pop(l_module_name);
12409: END IF;
12420: ELSE
12421: x_last_line_flag := 'Y';
12422: END IF;
12423:
12424: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12425:
12426: --
12427: IF l_debug_on THEN
12428: WSH_DEBUG_SV.pop(l_module_name);
12430: --
12431: EXCEPTION
12432:
12433: WHEN Others THEN
12434: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Last_Assigned_Line',l_module_name);
12435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12436:
12437: --
12438: IF l_debug_on THEN
12431: EXCEPTION
12432:
12433: WHEN Others THEN
12434: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Last_Assigned_Line',l_module_name);
12435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12436:
12437: --
12438: IF l_debug_on THEN
12439: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12476: --========================================================================
12477: --
12478: PROCEDURE pack_inbound_lines
12479: (
12480: p_lines_tbl IN WSH_UTIL_CORE.id_tab_type,
12481: p_lpn_id IN NUMBER,
12482: p_lpn_name IN VARCHAR2,
12483: p_delivery_id IN NUMBER,
12484: p_transactionType IN VARCHAR2 DEFAULT 'ASN',
12519: --
12520: l_cont_name VARCHAR2(100);
12521: l_container_instance_id NUMBER;
12522: l_rowid VARCHAR2(32767);
12523: l_cont_tbl WSH_UTIL_CORE.id_tab_type;
12524: --
12525: l_gross_weight NUMBER;
12526: l_net_weight NUMBER;
12527: l_volume NUMBER;
12526: l_net_weight NUMBER;
12527: l_volume NUMBER;
12528: l_cont_fill_pc NUMBER;
12529:
12530: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
12531: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
12532:
12533: cursor l_dup_del_csr(p_lpn_name IN VARCHAR2)
12534: is
12550: l_dup_cnt_id NUMBER;
12551: --
12552:
12553: -- K LPN CONV. rv
12554: l_cont_tab wsh_util_core.id_tab_type;
12555: l_lpn_unit_weight NUMBER;
12556: l_lpn_unit_volume NUMBER;
12557: l_lpn_weight_uom_code VARCHAR2(100);
12558: l_lpn_volume_uom_code VARCHAR2(100);
12579: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12580: wsh_debug_sv.LOG(l_module_name, 'p_transactionTYpe', p_transactionTYpe);
12581: END IF;
12582: --
12583: x_return_status := wsh_util_core.g_ret_sts_success;
12584: --
12585: --
12586: IF p_delivery_id IS NULL
12587: THEN
12590: -- p_delivery_id is mandatory
12591: --
12592: FND_MESSAGE.SET_NAME('WSH', 'WSH_REQUIRED_FIELD_NULL');
12593: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'p_delivery_id');
12594: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12595: --
12596: RAISE FND_API.G_EXC_ERROR;
12597: --}
12598: END IF;
12604: -- p_lines_tbl should have at least one record
12605: --
12606: FND_MESSAGE.SET_NAME('WSH', 'WSH_EMPTY_TABLE_ERROR');
12607: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'p_lines_tbl');
12608: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12609: --
12610: RAISE FND_API.G_EXC_ERROR;
12611: --}
12612: END IF;
12620: THEN
12621: --{
12622: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NOT_EXIST');
12623: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_id);
12624: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12625: --
12626: RAISE FND_API.G_EXC_ERROR;
12627: --}
12628: END IF;
12635: -- Invalid operation for outbound delivery
12636: --
12637: FND_MESSAGE.SET_NAME('WSH','WSH_NOT_IB_DLVY_ERROR');
12638: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_dlvy_rec.name);
12639: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12640: --
12641: RAISE FND_API.G_EXC_ERROR;
12642: --}
12643: END IF;
12712: --
12713: --
12714: G_CALLED_FROM_INBOUND := FALSE;
12715: --
12716: wsh_util_core.api_post_call
12717: (
12718: p_return_status => l_return_status,
12719: x_num_warnings => l_num_warnings,
12720: x_num_errors => l_num_errors
12766: IF l_debug_on THEN
12767: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
12768: END IF;
12769:
12770: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12771: x_return_status := l_dbi_rs;
12772: -- just pass this return status to caller API
12773: IF l_debug_on THEN
12774: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
12817: p_entity_ids => l_cont_tbl,
12818: x_return_status => l_return_status
12819: );
12820: --
12821: wsh_util_core.api_post_call
12822: (
12823: p_return_status => l_return_status,
12824: x_num_warnings => l_num_warnings,
12825: x_num_errors => l_num_errors
12855: --
12856: --
12857: IF l_num_errors > 0
12858: THEN
12859: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12860: ELSIF l_num_warnings > 0
12861: THEN
12862: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12863: ELSE
12858: THEN
12859: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12860: ELSIF l_num_warnings > 0
12861: THEN
12862: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12863: ELSE
12864: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12865: END IF;
12866: --
12860: ELSIF l_num_warnings > 0
12861: THEN
12862: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12863: ELSE
12864: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12865: END IF;
12866: --
12867: IF l_debug_on THEN
12868: wsh_debug_sv.pop(l_module_name);
12875: WHEN FND_API.G_EXC_ERROR THEN
12876:
12877: G_CALLED_FROM_INBOUND := FALSE;
12878: ROLLBACK TO pack_inbound_lines_sp;
12879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12880: --
12881: IF l_debug_on THEN
12882: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12883: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12885: --
12886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12887:
12888: G_CALLED_FROM_INBOUND := FALSE;
12889: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12890: ROLLBACK TO pack_inbound_lines_sp;
12891: --
12892: IF l_debug_on THEN
12893: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12893: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12894: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12895: END IF;
12896: --
12897: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12898:
12899: G_CALLED_FROM_INBOUND := FALSE;
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12901: --
12896: --
12897: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12898:
12899: G_CALLED_FROM_INBOUND := FALSE;
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12901: --
12902: IF l_debug_on THEN
12903: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12904: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12899: G_CALLED_FROM_INBOUND := FALSE;
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12901: --
12902: IF l_debug_on THEN
12903: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12904: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12905: END IF;
12906: --
12907: WHEN OTHERS THEN
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12901: --
12902: IF l_debug_on THEN
12903: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12904: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12905: END IF;
12906: --
12907: WHEN OTHERS THEN
12908:
12907: WHEN OTHERS THEN
12908:
12909: G_CALLED_FROM_INBOUND := FALSE;
12910: ROLLBACK TO pack_inbound_lines_sp;
12911: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12912: wsh_util_core.default_handler('wsh_container_actions.pack_inbound_lines', l_module_name);
12913: IF l_debug_on THEN
12914: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12915: END IF;
12908:
12909: G_CALLED_FROM_INBOUND := FALSE;
12910: ROLLBACK TO pack_inbound_lines_sp;
12911: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12912: wsh_util_core.default_handler('wsh_container_actions.pack_inbound_lines', l_module_name);
12913: IF l_debug_on THEN
12914: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12915: END IF;
12916: --
12957: l_num_warnings NUMBER := 0;
12958: l_num_errors NUMBER := 0;
12959: l_return_status VARCHAR2(10);
12960: --
12961: l_lines_tbl WSH_UTIL_CORE.id_tab_type;
12962: --
12963: l_debug_on BOOLEAN;
12964: --
12965: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || g_pkg_name || '.' || 'unpack_inbound_delivery';
12980: --
12981: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12982: END IF;
12983: --
12984: x_return_status := wsh_util_core.g_ret_sts_success;
12985: --
12986: --
12987: IF p_delivery_id IS NULL
12988: THEN
12991: -- p_delivery_id is mandatory
12992: --
12993: FND_MESSAGE.SET_NAME('WSH', 'WSH_REQUIRED_FIELD_NULL');
12994: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'p_delivery_id');
12995: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12996: --
12997: RAISE FND_API.G_EXC_ERROR;
12998: --}
12999: END IF;
13007: THEN
13008: --{
13009: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NOT_EXIST');
13010: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_id);
13011: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
13012: --
13013: RAISE FND_API.G_EXC_ERROR;
13014: --}
13015: END IF;
13022: -- Invalid operation for outbound delivery
13023: --
13024: FND_MESSAGE.SET_NAME('WSH','WSH_NOT_IB_DLVY_ERROR');
13025: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_dlvy_rec.name);
13026: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
13027: --
13028: RAISE FND_API.G_EXC_ERROR;
13029: --}
13030: END IF;
13066: --
13067: --
13068: IF l_num_errors > 0
13069: THEN
13070: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13071: ELSIF l_num_warnings > 0
13072: THEN
13073: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13074: ELSE
13069: THEN
13070: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13071: ELSIF l_num_warnings > 0
13072: THEN
13073: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13074: ELSE
13075: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13076: END IF;
13077: --
13071: ELSIF l_num_warnings > 0
13072: THEN
13073: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13074: ELSE
13075: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13076: END IF;
13077: --
13078: IF l_debug_on THEN
13079: wsh_debug_sv.pop(l_module_name);
13085: --
13086: WHEN FND_API.G_EXC_ERROR THEN
13087:
13088: ROLLBACK TO unpack_inbound_delivery_sp;
13089: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13090: --
13091: IF l_debug_on THEN
13092: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13093: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13095: --
13096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13097:
13098: ROLLBACK TO unpack_inbound_delivery_sp;
13099: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13100: --
13101: IF l_debug_on THEN
13102: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13102: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13104: END IF;
13105: --
13106: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
13107: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13108: --
13109: IF l_debug_on THEN
13110: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13104: END IF;
13105: --
13106: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
13107: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13108: --
13109: IF l_debug_on THEN
13110: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
13106: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
13107: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13108: --
13109: IF l_debug_on THEN
13110: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
13112: END IF;
13113: --
13114: WHEN OTHERS THEN
13107: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13108: --
13109: IF l_debug_on THEN
13110: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
13112: END IF;
13113: --
13114: WHEN OTHERS THEN
13115:
13113: --
13114: WHEN OTHERS THEN
13115:
13116: ROLLBACK TO unpack_inbound_delivery_sp;
13117: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13118: wsh_util_core.default_handler('wsh_container_actions.unpack_inbound_delivery', l_module_name);
13119: IF l_debug_on THEN
13120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13121: END IF;
13114: WHEN OTHERS THEN
13115:
13116: ROLLBACK TO unpack_inbound_delivery_sp;
13117: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13118: wsh_util_core.default_handler('wsh_container_actions.unpack_inbound_delivery', l_module_name);
13119: IF l_debug_on THEN
13120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13121: END IF;
13122: --
13151: l_cont_inst_id NUMBER;
13152: l_row_id VARCHAR2(30);
13153: l_cont_cnt NUMBER;
13154: l_all_null_flag VARCHAR2(1) := 'Y';
13155: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13156:
13157: --
13158: l_debug_on BOOLEAN;
13159: --
13182: END IF;
13183: --
13184: IF ( NVL(p_quantity,0) <= 0 ) THEN
13185: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13186: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13187: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13188: --
13189: IF l_debug_on THEN
13190: WSH_DEBUG_SV.pop(l_module_name);
13183: --
13184: IF ( NVL(p_quantity,0) <= 0 ) THEN
13185: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13186: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13187: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13188: --
13189: IF l_debug_on THEN
13190: WSH_DEBUG_SV.pop(l_module_name);
13191: END IF;
13222: IF l_cont_cnt = 0 THEN
13223: --
13224: x_cont_names(x_cont_names.count+1) := l_cont_name;
13225: ELSE
13226: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13227: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NAME_DUPLICATE');
13228: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
13229: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
13230: END IF;
13225: ELSE
13226: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13227: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NAME_DUPLICATE');
13228: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
13229: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
13230: END IF;
13231: END LOOP;
13232:
13233: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13229: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
13230: END IF;
13231: END LOOP;
13232:
13233: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13234: x_return_status := l_return_status;
13235: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13236: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13237: --
13232:
13233: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13234: x_return_status := l_return_status;
13235: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13236: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13237: --
13238: IF l_debug_on THEN
13239: WSH_DEBUG_SV.pop(l_module_name);
13240: END IF;
13241: --
13242: return;
13243: END IF;
13244:
13245: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13246:
13247: --
13248: IF l_debug_on THEN
13249: WSH_DEBUG_SV.pop(l_module_name);
13251: --
13252: EXCEPTION
13253:
13254: WHEN Others THEN
13255: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Multiple_Cont_names',l_module_name);
13256: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13257:
13258:
13259: IF l_debug_on THEN
13252: EXCEPTION
13253:
13254: WHEN Others THEN
13255: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Multiple_Cont_names',l_module_name);
13256: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13257:
13258:
13259: IF l_debug_on THEN
13260: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13341: WHERE delivery_detail_id = l_container_id;
13342:
13343: END LOOP ; --}
13344:
13345: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13346:
13347: --
13348: IF l_debug_on THEN
13349: WSH_DEBUG_SV.pop(l_module_name);
13352: EXCEPTION
13353:
13354: WHEN child_cont_locked THEN
13355: rollback to s_Update_child_inv_info;
13356: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13357: --
13358: IF l_debug_on THEN
13359: WSH_DEBUG_SV.logmsg(l_module_name,'Could not lock record for the containers ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13360: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:child_cont_locked');
13361: END IF;
13362: --
13363: WHEN Others THEN
13364: rollback to s_Update_child_inv_info;
13365: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_child_inv_info',l_module_name);
13366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13367:
13368:
13369: IF l_debug_on THEN
13362: --
13363: WHEN Others THEN
13364: rollback to s_Update_child_inv_info;
13365: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_child_inv_info',l_module_name);
13366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13367:
13368:
13369: IF l_debug_on THEN
13370: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13410:
13411: l_parent_container_info c_get_container_info%rowtype;
13412: l_child_container_info c_get_container_info%rowtype;
13413: l_new_parent_delivery_id NUMBER := NULL;
13414: l_del_tab wsh_util_core.id_tab_type;
13415:
13416:
13417: -- This cursor accepts a given delivery, p_del_id,
13418: -- and looks for consol deliveries that share the
13458: l_assign_flag VARCHAR2(1);
13459: l_del_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
13460: l_parent_del_info_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
13461: l_del_asg_info_rec WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_TYPE;
13462: l_child_details_tab wsh_util_core.id_tab_type;
13463: l_dummy_asg_tab wsh_util_core.id_tab_type;
13464: l_wv_delivery_tab wsh_util_core.id_tab_type;
13465: l_child_delivery_id NUMBER;
13466: l_trip_id NUMBER;
13459: l_del_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
13460: l_parent_del_info_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
13461: l_del_asg_info_rec WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_TYPE;
13462: l_child_details_tab wsh_util_core.id_tab_type;
13463: l_dummy_asg_tab wsh_util_core.id_tab_type;
13464: l_wv_delivery_tab wsh_util_core.id_tab_type;
13465: l_child_delivery_id NUMBER;
13466: l_trip_id NUMBER;
13467: l_parent_trip_id NUMBER;
13460: l_parent_del_info_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
13461: l_del_asg_info_rec WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_TYPE;
13462: l_child_details_tab wsh_util_core.id_tab_type;
13463: l_dummy_asg_tab wsh_util_core.id_tab_type;
13464: l_wv_delivery_tab wsh_util_core.id_tab_type;
13465: l_child_delivery_id NUMBER;
13466: l_trip_id NUMBER;
13467: l_parent_trip_id NUMBER;
13468: l_parent_consol_del_id NUMBER;
13467: l_parent_trip_id NUMBER;
13468: l_parent_consol_del_id NUMBER;
13469: l_child_trip_id NUMBER;
13470: l_child_consol_del_id NUMBER;
13471: l_unassign_dels wsh_util_core.id_tab_type;
13472: l_trip_id_tab wsh_util_core.id_tab_type;
13473:
13474: l_cont_gross_weight NUMBER;
13475: l_cont_net_weight NUMBER;
13468: l_parent_consol_del_id NUMBER;
13469: l_child_trip_id NUMBER;
13470: l_child_consol_del_id NUMBER;
13471: l_unassign_dels wsh_util_core.id_tab_type;
13472: l_trip_id_tab wsh_util_core.id_tab_type;
13473:
13474: l_cont_gross_weight NUMBER;
13475: l_cont_net_weight NUMBER;
13476: l_cont_volume NUMBER;
13630: WSH_TRIPS_ACTIONS.Unassign_Trip(p_del_rows => l_unassign_dels,
13631: p_trip_id => l_child_trip_id,
13632: x_return_status => l_return_status);
13633:
13634: wsh_util_core.api_post_call
13635: (
13636: p_return_status => l_return_status,
13637: x_num_warnings => l_num_warnings,
13638: x_num_errors => l_num_errors
13665: p_delivery_id => l_child_delivery_id,
13666: x_delivery_info => l_del_info_tab(i),
13667: x_return_status => l_return_status);
13668:
13669: wsh_util_core.api_post_call
13670: (
13671: p_return_status => l_return_status,
13672: x_num_warnings => l_num_warnings,
13673: x_num_errors => l_num_errors
13686: x_parent_del_id => l_new_parent_delivery_id,
13687: x_parent_trip_id => l_trip_id,
13688: x_return_status => l_return_status);
13689:
13690: wsh_util_core.api_post_call
13691: (
13692: p_return_status => l_return_status,
13693: x_num_warnings => l_num_warnings,
13694: x_num_errors => l_num_errors
13767: p_delivery_id => l_new_parent_delivery_id,
13768: x_delivery_info => l_parent_del_info_rec,
13769: x_return_status => l_return_status);
13770:
13771: wsh_util_core.api_post_call
13772: (
13773: p_return_status => l_return_status,
13774: x_num_warnings => l_num_warnings,
13775: x_num_errors => l_num_errors
13783: wsh_delivery_details_pkg.lock_wda_no_compare(p_delivery_detail_id => p_parent_container_id);
13784: wsh_delivery_details_pkg.lock_wda_no_compare(p_delivery_detail_id => p_child_container_id);
13785: EXCEPTION
13786: WHEN OTHERS THEN
13787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13788: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
13789: WSH_UTIL_CORE.Add_Message(x_return_status);
13790: --
13791: -- Debug Statements
13785: EXCEPTION
13786: WHEN OTHERS THEN
13787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13788: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
13789: WSH_UTIL_CORE.Add_Message(x_return_status);
13790: --
13791: -- Debug Statements
13792: --
13793: IF l_debug_on THEN
13872: END LOOP;
13873:
13874: EXCEPTION
13875: WHEN OTHERS THEN
13876: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13877: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
13878: WSH_UTIL_CORE.Add_Message(x_return_status);
13879: --
13880: -- Debug Statements
13874: EXCEPTION
13875: WHEN OTHERS THEN
13876: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13877: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
13878: WSH_UTIL_CORE.Add_Message(x_return_status);
13879: --
13880: -- Debug Statements
13881: --
13882: IF l_debug_on THEN
13928: p_dd_id_tab => l_child_details_tab,
13929: x_da_id_tab => l_dummy_asg_tab,
13930: x_return_status => l_return_status);
13931:
13932: wsh_util_core.api_post_call
13933: (
13934: p_return_status => l_return_status,
13935: x_num_warnings => l_num_warnings,
13936: x_num_errors => l_num_errors
13985: p_delivery_id => l_del_tab(i),
13986: x_delivery_info => l_del_info_tab(i),
13987: x_return_status => l_return_status);
13988:
13989: wsh_util_core.api_post_call
13990: (
13991: p_return_status => l_return_status,
13992: x_num_warnings => l_num_warnings,
13993: x_num_errors => l_num_errors
14009: x_return_status => l_return_status);
14010:
14011: -- Handle return status.
14012:
14013: wsh_util_core.api_post_call
14014: (
14015: p_return_status => l_return_status,
14016: x_num_warnings => l_num_warnings,
14017: x_num_errors => l_num_errors
14046: x_volume => l_cont_volume,
14047: x_cont_fill_pc => l_cont_fill_pc,
14048: x_return_status => l_return_status);
14049:
14050: wsh_util_core.api_post_call
14051: (
14052: p_return_status => l_return_status,
14053: x_num_warnings => l_num_warnings,
14054: x_num_errors => l_num_errors
14078: UPDATE wsh_delivery_details
14079: SET filled_volume = l_filled_volume
14080: WHERE delivery_detail_id = p_parent_container_id;
14081:
14082: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
14083: IF l_debug_on THEN
14084: WSH_DEBUG_SV.logmsg(l_module_name,'Error calculating trip wt/vol');
14085: END IF;
14086: END IF;
14098: x_net_weight => l_net_wt,
14099: x_volume => l_volume,
14100: x_return_status => l_return_status);
14101: */
14102: wsh_util_core.api_post_call
14103: (
14104: p_return_status => l_return_status,
14105: x_num_warnings => l_num_warnings,
14106: x_num_errors => l_num_errors);
14106: x_num_errors => l_num_errors);
14107:
14108: IF l_num_errors > 0
14109: THEN
14110: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14111: ELSIF l_num_warnings > 0
14112: THEN
14113: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14114: ELSE
14109: THEN
14110: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14111: ELSIF l_num_warnings > 0
14112: THEN
14113: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14114: ELSE
14115: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14116: END IF;
14117: --
14111: ELSIF l_num_warnings > 0
14112: THEN
14113: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14114: ELSE
14115: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14116: END IF;
14117: --
14118: -- Debug Statements
14119: --
14123: --
14124:
14125: EXCEPTION
14126: WHEN FND_API.G_EXC_ERROR THEN
14127: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14128: --
14129: -- Debug Statements
14130: --
14131: IF l_debug_on THEN
14133: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14134: END IF;
14135:
14136: WHEN WSH_INVALID_TRIPS THEN
14137: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14138: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRIPS');
14139: WSH_UTIL_CORE.Add_Message(x_return_status);
14140: --
14141: -- Debug Statements
14135:
14136: WHEN WSH_INVALID_TRIPS THEN
14137: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14138: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRIPS');
14139: WSH_UTIL_CORE.Add_Message(x_return_status);
14140: --
14141: -- Debug Statements
14142: --
14143: IF l_debug_on THEN
14146: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIPS');
14147: END IF;
14148:
14149: WHEN WSH_NO_CHILD_LPNS THEN
14150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14151: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CHILD_LPNS');
14152: WSH_UTIL_CORE.Add_Message(x_return_status);
14153: --
14154: -- Debug Statements
14148:
14149: WHEN WSH_NO_CHILD_LPNS THEN
14150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14151: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CHILD_LPNS');
14152: WSH_UTIL_CORE.Add_Message(x_return_status);
14153: --
14154: -- Debug Statements
14155: --
14156: IF l_debug_on THEN
14159: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_CHILD_LPNS');
14160: END IF;
14161:
14162: WHEN WSH_CONSOL_DEL_NO_MATCH THEN
14163: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14164: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_DEL_NO_MATCH');
14165: WSH_UTIL_CORE.Add_Message(x_return_status);
14166: --
14167: -- Debug Statements
14161:
14162: WHEN WSH_CONSOL_DEL_NO_MATCH THEN
14163: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14164: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_DEL_NO_MATCH');
14165: WSH_UTIL_CORE.Add_Message(x_return_status);
14166: --
14167: -- Debug Statements
14168: --
14169: IF l_debug_on THEN
14172: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CONSOL_DEL_NO_MATCH');
14173: END IF;
14174:
14175: WHEN WSH_ASSIGN_CONSOL_LPN_ERROR THEN
14176: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14177: FND_MESSAGE.SET_NAME('WSH','WSH_ASSIGN_CONSOL_LPN_ERROR');
14178: WSH_UTIL_CORE.Add_Message(x_return_status);
14179: --
14180: -- Debug Statements
14174:
14175: WHEN WSH_ASSIGN_CONSOL_LPN_ERROR THEN
14176: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14177: FND_MESSAGE.SET_NAME('WSH','WSH_ASSIGN_CONSOL_LPN_ERROR');
14178: WSH_UTIL_CORE.Add_Message(x_return_status);
14179: --
14180: -- Debug Statements
14181: --
14182: IF l_debug_on THEN
14185: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_ASSIGN_CONSOL_LPN_ERROR');
14186: END IF;
14187:
14188: WHEN WSH_INVALID_CONSOL_ASSIGN THEN
14189: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14190: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONSOL_ASSIGN');
14191: WSH_UTIL_CORE.Add_Message(x_return_status);
14192: --
14193: -- Debug Statements
14187:
14188: WHEN WSH_INVALID_CONSOL_ASSIGN THEN
14189: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14190: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONSOL_ASSIGN');
14191: WSH_UTIL_CORE.Add_Message(x_return_status);
14192: --
14193: -- Debug Statements
14194: --
14195: IF l_debug_on THEN
14198: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CONSOL_ASSIGN');
14199: END IF;
14200:
14201: WHEN WSH_INVALID_PARENT THEN
14202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14203: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_PARENT');
14204: WSH_UTIL_CORE.Add_Message(x_return_status);
14205: --
14206: -- Debug Statements
14200:
14201: WHEN WSH_INVALID_PARENT THEN
14202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14203: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_PARENT');
14204: WSH_UTIL_CORE.Add_Message(x_return_status);
14205: --
14206: -- Debug Statements
14207: --
14208: IF l_debug_on THEN
14211: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_PARENT');
14212: END IF;
14213:
14214: WHEN WSH_INVALID_CHILD THEN
14215: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14216: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILD');
14217: WSH_UTIL_CORE.Add_Message(x_return_status);
14218: --
14219: -- Debug Statements
14213:
14214: WHEN WSH_INVALID_CHILD THEN
14215: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14216: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILD');
14217: WSH_UTIL_CORE.Add_Message(x_return_status);
14218: --
14219: -- Debug Statements
14220: --
14221: IF l_debug_on THEN
14226: --
14227:
14228: WHEN OTHERS THEN
14229:
14230: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14231: wsh_util_core.default_handler('wsh_container_actions.Assign_Container_to_Consol', l_module_name);
14232: IF l_debug_on THEN
14233: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
14234: END IF;
14227:
14228: WHEN OTHERS THEN
14229:
14230: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14231: wsh_util_core.default_handler('wsh_container_actions.Assign_Container_to_Consol', l_module_name);
14232: IF l_debug_on THEN
14233: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
14234: END IF;
14235:
14235:
14236: END Assign_Container_to_Consol;
14237:
14238: PROCEDURE Unpack_Details_from_Consol
14239: (p_delivery_details_tab IN WSH_UTIL_CORE.ID_TAB_TYPE,
14240: p_caller IN VARCHAR2,
14241: x_return_status OUT NOCOPY VARCHAR2) IS
14242:
14243: cursor c_check_valid_combination(p_dd_id IN NUMBER) IS
14272: and type = 'C'
14273: and rownum = 1;
14274:
14275:
14276: l_consol_lpn_tab wsh_util_core.id_tab_type;
14277: l_empty_lpn_tab wsh_util_core.id_tab_type;
14278: l_rem_lpn_tab wsh_util_core.id_tab_type;
14279:
14280: l_cont_gross_weight NUMBER;
14273: and rownum = 1;
14274:
14275:
14276: l_consol_lpn_tab wsh_util_core.id_tab_type;
14277: l_empty_lpn_tab wsh_util_core.id_tab_type;
14278: l_rem_lpn_tab wsh_util_core.id_tab_type;
14279:
14280: l_cont_gross_weight NUMBER;
14281: l_cont_net_weight NUMBER;
14274:
14275:
14276: l_consol_lpn_tab wsh_util_core.id_tab_type;
14277: l_empty_lpn_tab wsh_util_core.id_tab_type;
14278: l_rem_lpn_tab wsh_util_core.id_tab_type;
14279:
14280: l_cont_gross_weight NUMBER;
14281: l_cont_net_weight NUMBER;
14282: l_cont_volume NUMBER;
14357: WSH_DELIVERY_DETAILS_PKG.lock_wda_no_compare(p_delivery_detail_id => p_delivery_details_tab(i));
14358:
14359: EXCEPTION
14360: WHEN OTHERS THEN
14361: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14362: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
14363: WSH_UTIL_CORE.Add_Message(x_return_status);
14364: --
14365: -- Debug Statements
14359: EXCEPTION
14360: WHEN OTHERS THEN
14361: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14362: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
14363: WSH_UTIL_CORE.Add_Message(x_return_status);
14364: --
14365: -- Debug Statements
14366: --
14367: IF l_debug_on THEN
14448: p_diff_volume => l_child_volume,
14449: p_diff_fill_volume => l_child_volume,
14450: x_return_status => l_return_status);
14451:
14452: WSH_UTIL_CORE.API_Post_Call
14453: (
14454: p_return_status => l_return_status,
14455: x_num_warnings => l_num_warnings,
14456: x_num_errors => l_num_errors);
14467:
14468:
14469: IF l_num_errors > 0
14470: THEN
14471: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14472: ELSIF l_num_warnings > 0
14473: THEN
14474: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14475: ELSE
14470: THEN
14471: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14472: ELSIF l_num_warnings > 0
14473: THEN
14474: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14475: ELSE
14476: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14477: END IF;
14478: --
14472: ELSIF l_num_warnings > 0
14473: THEN
14474: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14475: ELSE
14476: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14477: END IF;
14478: --
14479: -- Debug Statements
14480: --
14484:
14485:
14486: EXCEPTION
14487: WHEN FND_API.G_EXC_ERROR THEN
14488: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14489: --
14490: -- Debug Statements
14491: --
14492: IF l_debug_on THEN
14495: END IF;
14496:
14497:
14498: WHEN WSH_INVALID_COMBINATION THEN
14499: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14500: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_COMBINATION');
14501: WSH_UTIL_CORE.Add_Message(x_return_status);
14502: --
14503: -- Debug Statements
14497:
14498: WHEN WSH_INVALID_COMBINATION THEN
14499: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14500: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_COMBINATION');
14501: WSH_UTIL_CORE.Add_Message(x_return_status);
14502: --
14503: -- Debug Statements
14504: --
14505: IF l_debug_on THEN
14509: END IF;
14510: --
14511:
14512: WHEN OTHERS THEN
14513: wsh_util_core.default_handler('wsh_container_actions.unassign_detail_from_consol',l_module_name);
14514: --
14515: IF l_debug_on THEN
14516: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14517: END IF;
14582: cnt:=cnt+1;
14583: END LOOP;
14584:
14585: x_deliver_to_location_id :=l_deliver_to_location_id;
14586: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14587:
14588: IF l_debug_on THEN
14589: WSH_DEBUG_SV.pop(l_module_name);
14590: END IF;
14591:
14592: EXCEPTION
14593:
14594: WHEN Others THEN
14595: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Get_Deliver_To_Location',l_module_name);
14596: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14597:
14598: --
14599: IF l_debug_on THEN
14592: EXCEPTION
14593:
14594: WHEN Others THEN
14595: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Get_Deliver_To_Location',l_module_name);
14596: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14597:
14598: --
14599: IF l_debug_on THEN
14600: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);