[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');
400: AND NVL(p_caller,'WSH') NOT LIKE 'WMS%'
401: THEN
402:
403: IF l_debug_on THEN
404: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
405: END IF;
406: --
407: l_item_name := WSH_UTIL_CORE.Get_Item_Name(P_container_rec.inventory_item_id,P_container_rec.organization_id);
408: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
403: IF l_debug_on THEN
404: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
405: END IF;
406: --
407: l_item_name := WSH_UTIL_CORE.Get_Item_Name(P_container_rec.inventory_item_id,P_container_rec.organization_id);
408: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
409: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
411: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
406: --
407: l_item_name := WSH_UTIL_CORE.Get_Item_Name(P_container_rec.inventory_item_id,P_container_rec.organization_id);
408: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
409: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
411: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
412: END IF;
413:
414: CLOSE Get_Cont_Item_Info;
407: l_item_name := WSH_UTIL_CORE.Get_Item_Name(P_container_rec.inventory_item_id,P_container_rec.organization_id);
408: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
409: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
411: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
412: END IF;
413:
414: CLOSE Get_Cont_Item_Info;
415: -- Bug#: 3362895
442: l_wt_uom,
443: l_vol_uom,
444: l_return_status);
445:
446: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
447: --
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR GETTING DEFFAULT UOMS' );
450: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
446: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
447: --
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR GETTING DEFFAULT UOMS' );
450: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
451: END IF;
452: --
453: l_org_name := WSH_UTIL_CORE.Get_Org_Name(P_container_rec.organization_id);
454: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
449: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR GETTING DEFFAULT UOMS' );
450: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
451: END IF;
452: --
453: l_org_name := WSH_UTIL_CORE.Get_Org_Name(P_container_rec.organization_id);
454: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
455: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
456: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
457: --
452: --
453: l_org_name := WSH_UTIL_CORE.Get_Org_Name(P_container_rec.organization_id);
454: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
455: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
456: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
457: --
458: IF l_debug_on THEN
459: WSH_DEBUG_SV.log(l_module_name,'Org Name is ',l_org_name);
460: END IF;
458: IF l_debug_on THEN
459: WSH_DEBUG_SV.log(l_module_name,'Org Name is ',l_org_name);
460: END IF;
461: --
462: wsh_util_core.api_post_call
463: (
464: p_return_status => l_return_status,
465: x_num_warnings => l_num_warnings,
466: x_num_errors => l_num_errors
486: quantity => p_container_rec.volume,
487: item_id => P_container_rec.inventory_item_id,
488: x_return_status => l_return_status
489: );
490: wsh_util_core.api_post_call
491: (
492: p_return_status => l_return_status,
493: x_num_warnings => l_num_warnings,
494: x_num_errors => l_num_errors
504: to_uom =>l_vol_uom,
505: quantity =>p_container_rec.filled_volume,
506: item_id =>P_container_rec.inventory_item_id,
507: x_return_status => l_return_status );
508: wsh_util_core.api_post_call
509: (
510: p_return_status => l_return_status,
511: x_num_warnings => l_num_warnings,
512: x_num_errors => l_num_errors
524: quantity => p_container_rec.gross_weight,
525: item_id => P_container_rec.inventory_item_id,
526: x_return_status => l_return_status
527: );
528: wsh_util_core.api_post_call
529: (
530: p_return_status => l_return_status,
531: x_num_warnings => l_num_warnings,
532: x_num_errors => l_num_errors
538: to_uom => l_wt_uom,
539: quantity => p_container_rec.net_weight,
540: item_id =>P_container_rec.inventory_item_id,
541: x_return_status => l_return_status);
542: wsh_util_core.api_post_call
543: (
544: p_return_status => l_return_status,
545: x_num_warnings => l_num_warnings,
546: x_num_errors => l_num_errors
557: quantity => l_additional_cont_attr.tare_weight,
558: item_id => P_container_rec.inventory_item_id,
559: x_return_status => l_return_status
560: );
561: wsh_util_core.api_post_call
562: (
563: p_return_status => l_return_status,
564: x_num_warnings => l_num_warnings,
565: x_num_errors => l_num_errors
575: --
576: IF l_debug_on THEN
577: WSH_DEBUG_SV.log(l_module_name, 'gross weight', p_container_rec.gross_weight );
578: WSH_DEBUG_SV.log(l_module_name, 'volume', p_container_rec.volume );
579: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.ORG_TO_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
580: END IF;
581: --
582: p_container_rec.ship_from_location_id := WSH_UTIL_CORE.Org_To_Location(p_container_rec.organization_id,TRUE);
583: p_container_rec.container_type_code := NVL(p_container_rec.container_type_code,l_container_type_code);
578: WSH_DEBUG_SV.log(l_module_name, 'volume', p_container_rec.volume );
579: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.ORG_TO_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
580: END IF;
581: --
582: p_container_rec.ship_from_location_id := WSH_UTIL_CORE.Org_To_Location(p_container_rec.organization_id,TRUE);
583: p_container_rec.container_type_code := NVL(p_container_rec.container_type_code,l_container_type_code);
584: p_container_rec.item_description := l_description;
585: p_container_rec.requested_quantity := 1;
586: p_container_rec.shipped_quantity := null;
603: -- Fix for Bug 1820376 : Containers should have release status as 'X'
604: p_container_rec.released_status := 'X';
605:
606:
607: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
608:
609: --
610: IF l_debug_on THEN
611: WSH_DEBUG_SV.pop(l_module_name);
612: END IF;
613: --
614: EXCEPTION
615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
616: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
617: IF l_debug_on THEN
618: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle
619: error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
620: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
619: error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
620: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
621: END IF;
622: --
623: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
624: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
625: --
626: IF l_debug_on THEN
627: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
620: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
621: END IF;
622: --
623: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
624: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
625: --
626: IF l_debug_on THEN
627: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
628: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
623: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
624: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
625: --
626: IF l_debug_on THEN
627: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
628: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
629:
630: WHEN FND_API.G_EXC_ERROR THEN
631:
624: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
625: --
626: IF l_debug_on THEN
627: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
628: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
629:
630: WHEN FND_API.G_EXC_ERROR THEN
631:
632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
628: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
629:
630: WHEN FND_API.G_EXC_ERROR THEN
631:
632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
633: --
634: IF l_debug_on THEN
635: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
636: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
637: END IF;
638: --
639:
640: WHEN Others THEN
641: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.default_container_attr',l_module_name);
642: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
643:
644: --
645: IF l_debug_on THEN
638: --
639:
640: WHEN Others THEN
641: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.default_container_attr',l_module_name);
642: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
643:
644: --
645: IF l_debug_on THEN
646: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
669: p_num_of_containers IN NUMBER,
670: x_row_id OUT NOCOPY VARCHAR2,
671: --x_row_id will containe the rowid of the first container created.
672: x_return_status OUT NOCOPY VARCHAR2,
673: x_cont_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
674: -- J: W/V Changes
675: x_unit_weight OUT NOCOPY NUMBER,
676: x_unit_volume OUT NOCOPY NUMBER,
677: x_weight_uom_code OUT NOCOPY VARCHAR2,
736: l_cont_tab wsh_container_actions.cont_inst_tab;
737: i NUMBER;
738: j NUMBER;
739: cnt NUMBER;
740: l_cont_dummy_tab WSH_UTIL_CORE.id_tab_type;
741: l_assignment_dummy_tab WSH_UTIL_CORE.id_tab_type;
742: l_delivery_detail_id NUMBER;
743: --lpn conv
744: l_orig_value VARCHAR2(2);
737: i NUMBER;
738: j NUMBER;
739: cnt NUMBER;
740: l_cont_dummy_tab WSH_UTIL_CORE.id_tab_type;
741: l_assignment_dummy_tab WSH_UTIL_CORE.id_tab_type;
742: l_delivery_detail_id NUMBER;
743: --lpn conv
744: l_orig_value VARCHAR2(2);
745: l_orig_update_cont_value VARCHAR2(2);
749: l_LPN_SUFFIX mtl_parameters.LPN_SUFFIX%TYPE;
750: l_LPN_STARTING_NUMBER mtl_parameters.LPN_STARTING_NUMBER%TYPE;
751: l_TOTAL_LPN_LENGTH mtl_parameters.TOTAL_LPN_LENGTH%TYPE;
752: --l_cont_names WSH_GLBL_VAR_STRCT_GRP.v50_Tbl_Type;
753: --l_lpn_ids WSH_UTIL_CORE.id_tab_type;
754: l_cont_name_dig number;
755: l_tare_wt NUMBER;
756: l_tare_wt_uom VARCHAR2(10);
757: l_msg_count NUMBER;
848: l_inventory_item_id := p_cont_item_id;
849:
850: IF p_organization_id IS NULL AND p_lpn_id IS NULL THEN
851: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ORG_NULL');
852: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
853: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
854: --
855: IF l_debug_on THEN
856: WSH_DEBUG_SV.pop(l_module_name);
849:
850: IF p_organization_id IS NULL AND p_lpn_id IS NULL THEN
851: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ORG_NULL');
852: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
853: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
854: --
855: IF l_debug_on THEN
856: WSH_DEBUG_SV.pop(l_module_name);
857: END IF;
890: , p_caller => 'WSH_GENERATE'
891: , p_gen_lpn_rec => l_gen_lpn_rec
892: , p_lpn_table => l_lpn_tbl
893: );
894: wsh_util_core.api_post_call
895: (
896: p_return_status => l_return_status,
897: x_num_warnings => l_num_warnings,
898: x_num_errors => l_num_errors,
965: p_quantity => p_num_of_containers,
966: x_cont_names => l_container_info_rec.container_names,
967: x_return_status => l_return_status
968: );
969: wsh_util_core.api_post_call
970: (
971: p_return_status => l_return_status,
972: x_num_warnings => l_num_warnings,
973: x_num_errors => l_num_errors
1039: END IF; --}
1040:
1041: IF p_organization_id IS NULL AND l_organization_id IS NULL THEN
1042: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ORG_NULL');
1043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1044: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1045: --
1046: IF l_debug_on THEN
1047: WSH_DEBUG_SV.pop(l_module_name);
1040:
1041: IF p_organization_id IS NULL AND l_organization_id IS NULL THEN
1042: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ORG_NULL');
1043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1044: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1045: --
1046: IF l_debug_on THEN
1047: WSH_DEBUG_SV.pop(l_module_name);
1048: END IF;
1061: l_additional_cont_attr ,
1062: p_caller,
1063: l_return_status);
1064:
1065: wsh_util_core.api_post_call
1066: (
1067: p_return_status => l_return_status,
1068: x_num_warnings => l_num_warnings,
1069: x_num_errors => l_num_errors
1097: END IF;
1098: --
1099:
1100: IF x_return_status IN
1101: (WSH_UTIL_CORE.G_RET_STS_ERROR,
1102: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
1103: --
1104: IF l_debug_on THEN
1105: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR CREATING CONTAINER' || TO_CHAR ( L_CONT_INSTANCE_ID ) );
1098: --
1099:
1100: IF x_return_status IN
1101: (WSH_UTIL_CORE.G_RET_STS_ERROR,
1102: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
1103: --
1104: IF l_debug_on THEN
1105: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR CREATING CONTAINER' || TO_CHAR ( L_CONT_INSTANCE_ID ) );
1106: END IF;
1105: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR CREATING CONTAINER' || TO_CHAR ( L_CONT_INSTANCE_ID ) );
1106: END IF;
1107: --
1108: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1109: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1110: --
1111: IF l_debug_on THEN
1112: WSH_DEBUG_SV.pop(l_module_name);
1113: END IF;
1151: WSH_DEBUG_SV.logmsg(l_module_name,'COUNT OF WDA RECORDS'||l_assignment_dummy_tab.count);
1152: WSH_DEBUG_SV.logmsg(l_module_name,'Create Delivery Assignment, Return Status'||x_return_status);
1153: END IF;
1154:
1155: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1156: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1157: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1159: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1152: WSH_DEBUG_SV.logmsg(l_module_name,'Create Delivery Assignment, Return Status'||x_return_status);
1153: END IF;
1154:
1155: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1156: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1157: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1159: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1160: --
1154:
1155: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1156: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1157: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1159: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1160: --
1161: IF l_debug_on THEN
1162: WSH_DEBUG_SV.pop(l_module_name);
1155: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1156: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1157: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1159: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1160: --
1161: IF l_debug_on THEN
1162: WSH_DEBUG_SV.pop(l_module_name);
1163: END IF;
1176: x_unit_volume := l_container_rec.unit_volume;
1177: x_weight_uom_code := l_container_rec.weight_uom_code;
1178: x_volume_uom_code := l_container_rec.volume_uom_code;
1179:
1180: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1181:
1182: --
1183: IF l_debug_on THEN
1184: WSH_DEBUG_SV.pop(l_module_name);
1190: WSH_WMS_LPN_GRP.g_update_to_container := l_orig_update_cont_value;
1191: IF c_get_lpn_info%ISOPEN THEN
1192: CLOSE c_get_lpn_info;
1193: END IF;
1194: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1195:
1196: IF l_debug_on THEN
1197: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1198: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1200:
1201: WHEN Others THEN
1202: WSH_WMS_LPN_GRP.g_call_group_api := l_orig_value;
1203: WSH_WMS_LPN_GRP.g_update_to_container := l_orig_update_cont_value;
1204: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Cont_Instance_Multi',l_module_name);
1205: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1206:
1207: --
1208: IF l_debug_on THEN
1201: WHEN Others THEN
1202: WSH_WMS_LPN_GRP.g_call_group_api := l_orig_value;
1203: WSH_WMS_LPN_GRP.g_update_to_container := l_orig_update_cont_value;
1204: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Cont_Instance_Multi',l_module_name);
1205: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1206:
1207: --
1208: IF l_debug_on THEN
1209: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1248: x_return_status OUT NOCOPY VARCHAR2) IS
1249:
1250: BEGIN
1251:
1252: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1253:
1254: END Create_Container_Instance;
1255:
1256:
1292: p_cont_name_suf IN VARCHAR2,
1293: p_cont_name_num IN NUMBER,
1294: p_cont_name_dig IN NUMBER,
1295: p_quantity IN NUMBER,
1296: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1297: x_return_status OUT NOCOPY VARCHAR2) IS
1298:
1299: --
1300: BEGIN
1298:
1299: --
1300: BEGIN
1301:
1302: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1303:
1304: END Create_Multiple_Containers;
1305:
1306:
1351:
1352: l_del_id NUMBER;
1353: l_del_sts VARCHAR2(10);
1354:
1355: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1356:
1357:
1358: Invalid_Container EXCEPTION;
1359: Invalid_Delivery EXCEPTION;
1383: --
1384: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ID',P_CONTAINER_ID);
1385: END IF;
1386: --
1387: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1388: SAVEPOINT Delete_Cont;
1389: IF (NVL(p_container_id,0) = 0) THEN
1390: raise Invalid_Container;
1391: ELSE
1415: l_del_id,
1416: l_del_sts,
1417: x_return_status);
1418:
1419: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1420: raise Container_Error;
1421: END IF;
1422: IF ((nvl(l_del_id,-99) <> -99) AND (nvl(l_del_sts,'N/A') <> 'OP')) THEN
1423: raise Invalid_Delivery;
1447: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
1448: END IF;
1449: --
1450:
1451: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1452: raise Container_Error;
1453: END IF;
1454:
1455: ELSE
1474: EXCEPTION
1475:
1476: WHEN Invalid_Container THEN
1477: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_DELETE');
1478: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1479: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1480: --
1481: IF l_debug_on THEN
1482: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1475:
1476: WHEN Invalid_Container THEN
1477: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_DELETE');
1478: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1479: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1480: --
1481: IF l_debug_on THEN
1482: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1483: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CONTAINER');
1484: END IF;
1485: --
1486: WHEN Invalid_Delivery THEN
1487: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
1488: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1489: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1490: --
1491: IF l_debug_on THEN
1492: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1485: --
1486: WHEN Invalid_Delivery THEN
1487: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
1488: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1489: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1490: --
1491: IF l_debug_on THEN
1492: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1493: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DELIVERY');
1494: END IF;
1495: --
1496: WHEN Invalid_Detail THEN
1497: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_CONT');
1498: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1499: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1500: --
1501: IF l_debug_on THEN
1502: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1495: --
1496: WHEN Invalid_Detail THEN
1497: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_CONT');
1498: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1499: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1500: --
1501: IF l_debug_on THEN
1502: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1503: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
1504: END IF;
1505: --
1506: WHEN Cont_Not_Empty THEN
1507: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_EMPTY');
1508: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1509: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1510: --
1511: IF l_debug_on THEN
1512: WSH_DEBUG_SV.logmsg(l_module_name,'CONT_NOT_EMPTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1505: --
1506: WHEN Cont_Not_Empty THEN
1507: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_EMPTY');
1508: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1509: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1510: --
1511: IF l_debug_on THEN
1512: WSH_DEBUG_SV.logmsg(l_module_name,'CONT_NOT_EMPTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1513: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONT_NOT_EMPTY');
1513: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONT_NOT_EMPTY');
1514: END IF;
1515: --
1516: WHEN Container_Error THEN
1517: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1518: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_ERROR');
1519: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1520: --
1521: IF l_debug_on THEN
1515: --
1516: WHEN Container_Error THEN
1517: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1518: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_ERROR');
1519: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1520: --
1521: IF l_debug_on THEN
1522: WSH_DEBUG_SV.logmsg(l_module_name,'CONTAINER_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1523: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONTAINER_ERROR');
1524: END IF;
1525: --
1526: WHEN Unassign_Del_Error THEN
1527: ROLLBACK to Delete_Cont;
1528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1529: FND_MESSAGE.SET_NAME('WSH','WSH_UNASSIGN_DEL_ERROR');
1530: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1531:
1532: --
1526: WHEN Unassign_Del_Error THEN
1527: ROLLBACK to Delete_Cont;
1528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1529: FND_MESSAGE.SET_NAME('WSH','WSH_UNASSIGN_DEL_ERROR');
1530: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1531:
1532: --
1533: IF l_debug_on THEN
1534: WSH_DEBUG_SV.logmsg(l_module_name,'UNASSIGN_DEL_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1535: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UNASSIGN_DEL_ERROR');
1536: END IF;
1537: --
1538: WHEN Others THEN
1539: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Delete_Containers',l_module_name);
1540: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1541:
1542: --
1543: IF l_debug_on THEN
1536: END IF;
1537: --
1538: WHEN Others THEN
1539: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Delete_Containers',l_module_name);
1540: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1541:
1542: --
1543: IF l_debug_on THEN
1544: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1577: x_return_status OUT NOCOPY VARCHAR2) IS
1578:
1579: BEGIN
1580:
1581: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1582:
1583: END Update_Container;
1584:
1585:
1600:
1601:
1602: PROCEDURE Assign_Detail(
1603: p_container_instance_id IN NUMBER,
1604: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
1605: x_pack_status OUT NOCOPY VARCHAR2,
1606: x_return_status OUT NOCOPY VARCHAR2,
1607: p_check_credit_holds IN BOOLEAN) IS
1608:
1626: AND container_flag = 'N';
1627:
1628: l_del_detail_id WSH_DELIVERY_DETAILS.delivery_detail_id%TYPE;
1629:
1630: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
1631: -- l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
1632:
1633: l_src_line_id NUMBER;
1634: l_src_hdr_id NUMBER;
1627:
1628: l_del_detail_id WSH_DELIVERY_DETAILS.delivery_detail_id%TYPE;
1629:
1630: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
1631: -- l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
1632:
1633: l_src_line_id NUMBER;
1634: l_src_hdr_id NUMBER;
1635: l_source_code VARCHAR2(30);
1637: cnt NUMBER;
1638: i NUMBER;
1639: l_group_id NUMBER;
1640:
1641: l_del_rows WSH_UTIL_CORE.id_tab_type;
1642: l_ret_sts VARCHAR2(1);
1643:
1644: l_cont_name VARCHAR2(30);
1645: l_delivery_id NUMBER;
1661: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
1662: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
1663: l_action_rec wsh_delivery_autocreate.action_rec_type;
1664: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
1665: l_matched_entities wsh_util_core.id_tab_type;
1666: l_out_rec wsh_delivery_autocreate.out_rec_type;
1667:
1668:
1669:
1690: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_CREDIT_HOLDS',P_CHECK_CREDIT_HOLDS);
1691: END IF;
1692: --
1693: IF p_del_detail_tab.COUNT = 0 THEN
1694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1695: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DET_ASSG_NULL');
1696: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1697: --
1698: IF l_debug_on THEN
1692: --
1693: IF p_del_detail_tab.COUNT = 0 THEN
1694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1695: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DET_ASSG_NULL');
1696: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1697: --
1698: IF l_debug_on THEN
1699: WSH_DEBUG_SV.pop(l_module_name);
1700: END IF;
1718: IF l_debug_on THEN
1719: WSH_DEBUG_SV.log(l_module_name,'Delivery Status',l_del_status);
1720: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
1721: END IF;
1722: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1723: --
1724: IF l_debug_on THEN
1725: WSH_DEBUG_SV.pop(l_module_name);
1726: END IF;
1731: IF (nvl(l_delivery_id,-99) <> -99) THEN
1732:
1733: IF (nvl(l_del_status,'N/A') NOT IN ('OP','SA')) THEN
1734: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
1735: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1736: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1737: x_pack_status := 'Error';
1738: --
1739: IF l_debug_on THEN
1732:
1733: IF (nvl(l_del_status,'N/A') NOT IN ('OP','SA')) THEN
1734: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
1735: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1736: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1737: x_pack_status := 'Error';
1738: --
1739: IF l_debug_on THEN
1740: WSH_DEBUG_SV.pop(l_module_name);
1766: END IF;
1767:
1768: --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);
1769:
1770: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1771: --
1772: -- Debug Statements
1773: --
1774: IF l_debug_on THEN
1797: CLOSE Get_First_Line;
1798: END IF;
1799:
1800: -- call auto_create del grouping API with l_temp_detail_tab returning
1801: -- l_group_id_tab of type WSH_UTIL_CORE.id_tab_type;
1802:
1803: --
1804: IF l_debug_on THEN
1805: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1817: x_out_rec => l_out_rec,
1818: x_return_status => x_return_status);
1819:
1820: --
1821: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1822: --dbms_output.put_line('error in autocreate');
1823: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
1824: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1825: --
1820: --
1821: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1822: --dbms_output.put_line('error in autocreate');
1823: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
1824: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1825: --
1826: END IF;
1827:
1828: i := l_attr_tab.FIRST;
1836: i := i + 1;
1837: END IF;
1838:
1839: l_del_detail_id := l_attr_tab(i).entity_id;
1840: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1841:
1842: OPEN Get_Cont_Item;
1843:
1844: FETCH Get_Cont_Item INTO l_cont_item_id,l_master_serial_number;
1844: FETCH Get_Cont_Item INTO l_cont_item_id,l_master_serial_number;
1845:
1846: IF Get_Cont_Item%NOTFOUND THEN
1847: CLOSE Get_Cont_Item;
1848: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
1849: --
1850: IF l_debug_on THEN
1851: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1852: END IF;
1853: --
1854: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1855: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
1856: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1857: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
1858: x_return_status := l_ret_sts;
1859: x_pack_status := 'Error';
1860: --
1861: IF l_debug_on THEN
1890: l_src_hdr_id,l_source_code;
1891:
1892: IF Get_Det_Cont_Item%NOTFOUND THEN
1893: CLOSE Get_Det_Cont_Item;
1894: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
1895: l_tmp_status := 'Error';
1896: GOTO next_line;
1897: END IF;
1898:
1902:
1903: IF l_cont_item_id <> nvl(l_det_cont_item_id,l_cont_item_id) THEN
1904: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CONT_ITEM_DIFF');
1905: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
1906: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
1907: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1908: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1909: END IF;
1910: END IF;
1903: IF l_cont_item_id <> nvl(l_det_cont_item_id,l_cont_item_id) THEN
1904: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CONT_ITEM_DIFF');
1905: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
1906: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
1907: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1908: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1909: END IF;
1910: END IF;
1911:
1904: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CONT_ITEM_DIFF');
1905: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
1906: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
1907: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1908: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1909: END IF;
1910: END IF;
1911:
1912: -- check if the line has any holds on it. IF yes ignore the line
1946: IF l_debug_on THEN
1947: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
1948: END IF;
1949: --
1950: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1951: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1952: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1953: END IF;
1954: l_tmp_status := 'Error';
1947: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
1948: END IF;
1949: --
1950: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1951: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1952: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1953: END IF;
1954: l_tmp_status := 'Error';
1955: GOTO next_line;
1948: END IF;
1949: --
1950: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1951: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1952: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1953: END IF;
1954: l_tmp_status := 'Error';
1955: GOTO next_line;
1956: END IF;
1972: l_del_detail_id,
1973: p_container_instance_id,
1974: x_return_status);
1975:
1976: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1977: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1978: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1979: END IF;
1980: l_tmp_status := 'Error';
1973: p_container_instance_id,
1974: x_return_status);
1975:
1976: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1977: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1978: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1979: END IF;
1980: l_tmp_status := 'Error';
1981: GOTO next_line;
1974: x_return_status);
1975:
1976: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1977: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1978: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1979: END IF;
1980: l_tmp_status := 'Error';
1981: GOTO next_line;
1982: END IF;
1997: IF l_debug_on THEN
1998: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
1999: END IF;
2000: --
2001: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2002: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2003: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2004: ELSE
2005: -- l_ret_sts := x_return_status;
1998: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
1999: END IF;
2000: --
2001: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2002: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2003: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2004: ELSE
2005: -- l_ret_sts := x_return_status;
2006: --dbms_output.put_line('error assigning ' || l_del_detail_id);
1999: END IF;
2000: --
2001: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2002: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2003: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2004: ELSE
2005: -- l_ret_sts := x_return_status;
2006: --dbms_output.put_line('error assigning ' || l_del_detail_id);
2007: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
2003: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2004: ELSE
2005: -- l_ret_sts := x_return_status;
2006: --dbms_output.put_line('error assigning ' || l_del_detail_id);
2007: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
2008: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DETAIL_NOT_ASSIGNED');
2009: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2010: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
2011: END IF;
2006: --dbms_output.put_line('error assigning ' || l_del_detail_id);
2007: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
2008: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DETAIL_NOT_ASSIGNED');
2009: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2010: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
2011: END IF;
2012: END IF;
2013:
2014: -- store group id to check for group id of next line
2038: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2039: END IF;
2040: --
2041:
2042: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2043: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
2044: --
2045: IF l_debug_on THEN
2046: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2047: END IF;
2048: --
2049: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
2050: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2051: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2052: END IF;
2053:
2054: l_upd_flag := TRUE;
2055:
2065: --dbms_output.put_line('error updating master serial number for detail ' || l_del_detail_id);
2066:
2067: FND_MESSAGE.SET_NAME('WSH','WSH_DET_UPD_SER_ERROR');
2068: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2069: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2070: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2071: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2072: END IF;
2073: END IF;
2066:
2067: FND_MESSAGE.SET_NAME('WSH','WSH_DET_UPD_SER_ERROR');
2068: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2069: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2070: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2071: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2072: END IF;
2073: END IF;
2074: ELSE
2067: FND_MESSAGE.SET_NAME('WSH','WSH_DET_UPD_SER_ERROR');
2068: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2069: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2070: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2071: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2072: END IF;
2073: END IF;
2074: ELSE
2075:
2072: END IF;
2073: END IF;
2074: ELSE
2075:
2076: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2077: l_tmp_status := 'Error';
2078: GOTO next_line;
2079:
2080: END IF;
2082: <
2083: IF l_tmp_status = 'Error' THEN
2084: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DETAIL_NOT_ASSIGNED');
2085: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_id);
2086: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2087: END IF;
2088:
2089: i := i + 1;
2090: l_tmp_status := 'OK';
2101: --
2102: EXCEPTION
2103:
2104: WHEN Others THEN
2105: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_Detail',l_module_name);
2106: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2107:
2108: --
2109: IF l_debug_on THEN
2102: EXCEPTION
2103:
2104: WHEN Others THEN
2105: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_Detail',l_module_name);
2106: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2107:
2108: --
2109: IF l_debug_on THEN
2110: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2139:
2140: PROCEDURE Unassign_Detail(
2141: p_container_instance_id IN NUMBER,
2142: p_delivery_id IN NUMBER,
2143: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
2144: p_cont_unassign IN VARCHAR2,
2145: p_del_unassign IN VARCHAR2,
2146: x_pack_status OUT NOCOPY VARCHAR2,
2147: x_return_status OUT NOCOPY VARCHAR2,
2147: x_return_status OUT NOCOPY VARCHAR2,
2148: p_action_prms IN wsh_glbl_var_strct_grp.dd_action_parameters_rec_type
2149: ) IS
2150:
2151: l_del_detail_rec WSH_UTIL_CORE.ID_TAB_TYPE;
2152:
2153: l_gross NUMBER;
2154: l_net NUMBER;
2155: l_volume NUMBER;
2199: l_delivery_id NUMBER;
2200: l_last_line_flag VARCHAR2(1);
2201: l_attr_flag VARCHAR2(1) := 'N';
2202:
2203: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2204:
2205: l_del_status VARCHAR2(10);
2206:
2207: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2203: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2204:
2205: l_del_status VARCHAR2(10);
2206:
2207: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2208: l_cont_org_tab WSH_UTIL_CORE.id_tab_type; -- K LPN CONV. rv
2209: l_cont_line_dir_tab WSH_UTIL_CORE.Column_Tab_Type; -- K LPN CONV. rv
2210:
2211: -- K: MDC
2204:
2205: l_del_status VARCHAR2(10);
2206:
2207: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2208: l_cont_org_tab WSH_UTIL_CORE.id_tab_type; -- K LPN CONV. rv
2209: l_cont_line_dir_tab WSH_UTIL_CORE.Column_Tab_Type; -- K LPN CONV. rv
2210:
2211: -- K: MDC
2212: l_mdc_index NUMBER := 0;
2205: l_del_status VARCHAR2(10);
2206:
2207: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2208: l_cont_org_tab WSH_UTIL_CORE.id_tab_type; -- K LPN CONV. rv
2209: l_cont_line_dir_tab WSH_UTIL_CORE.Column_Tab_Type; -- K LPN CONV. rv
2210:
2211: -- K: MDC
2212: l_mdc_index NUMBER := 0;
2213: l_mdc_details WSH_UTIL_CORE.id_tab_type;
2209: l_cont_line_dir_tab WSH_UTIL_CORE.Column_Tab_Type; -- K LPN CONV. rv
2210:
2211: -- K: MDC
2212: l_mdc_index NUMBER := 0;
2213: l_mdc_details WSH_UTIL_CORE.id_tab_type;
2214:
2215:
2216: l_cont_item_id NUMBER; -- wms change:
2217:
2254: END IF;
2255: --
2256: IF p_del_detail_tab.count = 0 THEN
2257: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
2258: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2259: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2260: --
2261: IF l_debug_on THEN
2262: WSH_DEBUG_SV.pop(l_module_name);
2255: --
2256: IF p_del_detail_tab.count = 0 THEN
2257: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
2258: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2259: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2260: --
2261: IF l_debug_on THEN
2262: WSH_DEBUG_SV.pop(l_module_name);
2263: END IF;
2299: IF l_debug_on THEN
2300: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2301: END IF;
2302: --
2303: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2304: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2305: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2306: END IF;
2307: GOTO next_detail;
2300: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2301: END IF;
2302: --
2303: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2304: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2305: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2306: END IF;
2307: GOTO next_detail;
2308: END IF;
2301: END IF;
2302: --
2303: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2304: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2305: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2306: END IF;
2307: GOTO next_detail;
2308: END IF;
2309:
2309:
2310: IF (nvl(l_delivery_id,-99) <> -99) THEN
2311:
2312: IF (nvl(l_del_status,'N/A') <> 'OP')
2313: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
2314: THEN
2315: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2316: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2317: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2312: IF (nvl(l_del_status,'N/A') <> 'OP')
2313: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
2314: THEN
2315: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2316: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2317: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2318: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2319: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2320: END IF;
2313: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
2314: THEN
2315: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2316: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2317: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2318: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2319: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2320: END IF;
2321: x_pack_status := 'Error';
2314: THEN
2315: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2316: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2317: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2318: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2319: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2320: END IF;
2321: x_pack_status := 'Error';
2322: GOTO next_detail;
2315: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2316: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2317: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2318: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2319: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2320: END IF;
2321: x_pack_status := 'Error';
2322: GOTO next_detail;
2323: END IF;
2349: IF l_debug_on THEN
2350: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2351: END IF;
2352: --
2353: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2354: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2355: l_num_warnings := l_num_warnings + 1;
2356: ELSE
2357: --
2350: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2351: END IF;
2352: --
2353: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2354: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2355: l_num_warnings := l_num_warnings + 1;
2356: ELSE
2357: --
2358: IF l_debug_on THEN
2385: IF l_debug_on THEN
2386: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2387: END IF;
2388: --
2389: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2390: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2391: l_num_warnings := l_num_warnings + 1;
2392: ELSE
2393: -- FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_UNASSG_ERROR');
2386: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2387: END IF;
2388: --
2389: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2390: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2391: l_num_warnings := l_num_warnings + 1;
2392: ELSE
2393: -- FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_UNASSG_ERROR');
2394: -- WSH_UTIL_CORE.Add_Message(x_return_status);
2390: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2391: l_num_warnings := l_num_warnings + 1;
2392: ELSE
2393: -- FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_UNASSG_ERROR');
2394: -- WSH_UTIL_CORE.Add_Message(x_return_status);
2395: --
2396: IF l_debug_on THEN
2397: WSH_DEBUG_SV.pop(l_module_name);
2398: END IF;
2435: IF l_debug_on THEN
2436: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2437: END IF;
2438: --
2439: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
2440: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2441: ) THEN
2442: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LAST_LINE_ERROR');
2443: --
2436: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2437: END IF;
2438: --
2439: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
2440: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2441: ) THEN
2442: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LAST_LINE_ERROR');
2443: --
2444: IF l_debug_on THEN
2446: END IF;
2447: --
2448: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2449: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2450: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2451: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2452: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2453: END IF;
2454: GOTO next_line;
2447: --
2448: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2449: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2450: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2451: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2452: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2453: END IF;
2454: GOTO next_line;
2455: END IF;
2448: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2449: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2450: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2451: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2452: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2453: END IF;
2454: GOTO next_line;
2455: END IF;
2456:
2470: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2471: END IF;
2472: --
2473:
2474: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2475: --dbms_output.put_line('after check cont attr status is ' || x_return_status);
2476: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2477: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2478: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2473:
2474: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2475: --dbms_output.put_line('after check cont attr status is ' || x_return_status);
2476: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2477: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2478: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2479: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2480: END IF;
2481: GOTO next_line;
2474: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2475: --dbms_output.put_line('after check cont attr status is ' || x_return_status);
2476: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2477: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2478: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2479: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2480: END IF;
2481: GOTO next_line;
2482: END IF;
2475: --dbms_output.put_line('after check cont attr status is ' || x_return_status);
2476: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2477: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2478: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2479: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2480: END IF;
2481: GOTO next_line;
2482: END IF;
2483:
2513: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2514: END IF;
2515: --
2516: --
2517: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2518: --
2519: GOTO next_line;
2520: --
2521: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2517: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2518: --
2519: GOTO next_line;
2520: --
2521: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2522: --
2523: l_num_warnings := l_num_warnings + 1;
2524: --
2525: END IF;
2543: WHERE delivery_detail_id = l_cont_tab(i);
2544:
2545: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2546: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2547: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2548: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2549: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2550: END IF;
2551: GOTO next_line;
2544:
2545: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2546: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2547: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2548: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2549: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2550: END IF;
2551: GOTO next_line;
2552: END IF;
2545: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2546: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2547: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2548: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2549: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2550: END IF;
2551: GOTO next_line;
2552: END IF;
2553:
2566: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2567: END IF;
2568: --
2569:
2570: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2571: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
2572: --
2573: IF l_debug_on THEN
2574: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2575: END IF;
2576: --
2577: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2578: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2579: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2580: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2581: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2582: END IF;
2583: GOTO next_line;
2576: --
2577: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2578: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2579: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2580: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2581: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2582: END IF;
2583: GOTO next_line;
2584: END IF;
2577: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2578: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2579: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2580: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2581: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2582: END IF;
2583: GOTO next_line;
2584: END IF;
2585:
2596: IF Is_Container%NOTFOUND THEN
2597: CLOSE Is_Container;
2598: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
2599: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_rec(i));
2600: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2601: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2602: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2603: END IF;
2604: GOTO next_line;
2597: CLOSE Is_Container;
2598: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
2599: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_rec(i));
2600: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2601: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2602: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2603: END IF;
2604: GOTO next_line;
2605: END IF;
2598: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
2599: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_del_detail_rec(i));
2600: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2601: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2602: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2603: END IF;
2604: GOTO next_line;
2605: END IF;
2606:
2636: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2637: END IF;
2638: --
2639:
2640: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2641: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2642: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2643: END IF;
2644: GOTO next_line;
2637: END IF;
2638: --
2639:
2640: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2641: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2642: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2643: END IF;
2644: GOTO next_line;
2645: END IF;
2638: --
2639:
2640: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2641: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2642: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2643: END IF;
2644: GOTO next_line;
2645: END IF;
2646:
2647: IF (nvl(l_delivery_id,-99) <> -99) THEN --{
2648:
2649: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
2650: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2652: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2653: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2654: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2655: END IF;
2648:
2649: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
2650: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2652: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2653: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2654: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2655: END IF;
2656: x_pack_status := 'Error';
2649: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
2650: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2652: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2653: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2654: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2655: END IF;
2656: x_pack_status := 'Error';
2657: GOTO next_line;
2650: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
2651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2652: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2653: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2654: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2655: END IF;
2656: x_pack_status := 'Error';
2657: GOTO next_line;
2658: END IF;
2677: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2678: END IF;
2679: --
2680:
2681: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2682: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LAST_LINE_ERROR');
2683: --
2684: IF l_debug_on THEN
2685: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2686: END IF;
2687: --
2688: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2689: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2690: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2691: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2692: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2693: END IF;
2694: GOTO next_line;
2687: --
2688: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2689: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2690: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2691: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2692: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2693: END IF;
2694: GOTO next_line;
2695: END IF; --}
2688: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2689: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2690: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2691: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2692: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2693: END IF;
2694: GOTO next_line;
2695: END IF; --}
2696:
2710: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2711: END IF;
2712: --
2713:
2714: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2715: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2716: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2717: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2718: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2712: --
2713:
2714: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2715: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2716: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2717: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2718: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2719: END IF;
2720: GOTO next_line;
2713:
2714: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2715: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2716: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2717: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2718: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2719: END IF;
2720: GOTO next_line;
2721: END IF; --}
2714: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2715: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
2716: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2717: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2718: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2719: END IF;
2720: GOTO next_line;
2721: END IF; --}
2722:
2747: END IF;
2748: --
2749: --
2750: --
2751: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2752: --
2753: GOTO next_line;
2754: --
2755: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2751: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2752: --
2753: GOTO next_line;
2754: --
2755: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2756: --
2757: l_num_warnings := l_num_warnings + 1;
2758: --
2759: END IF;
2777: WHERE delivery_detail_id = l_del_detail_rec(i);
2778:
2779: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2780: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2781: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2782: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2783: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2784: END IF;
2785: GOTO next_line;
2778:
2779: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2780: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2781: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2782: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2783: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2784: END IF;
2785: GOTO next_line;
2786: END IF;
2779: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2780: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2781: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2782: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2783: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2784: END IF;
2785: GOTO next_line;
2786: END IF;
2787:
2800: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2801: END IF;
2802: --
2803:
2804: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2805: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
2806: --
2807: IF l_debug_on THEN
2808: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2809: END IF;
2810: --
2811: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2812: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2813: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2814: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2815: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2816: END IF;
2817: GOTO next_line;
2810: --
2811: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2812: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2813: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2814: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2815: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2816: END IF;
2817: GOTO next_line;
2818: END IF; --}
2811: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2812: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2813: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2814: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2815: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2816: END IF;
2817: GOTO next_line;
2818: END IF; --}
2819:
2847: END IF;
2848: --
2849: --
2850: --
2851: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2852: --
2853: GOTO next_line;
2854: --
2855: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2851: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2852: --
2853: GOTO next_line;
2854: --
2855: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2856: --
2857: l_num_warnings := l_num_warnings + 1;
2858: --
2859: END IF;
2874: END IF;
2875: --
2876: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2877: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2878: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2879: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2880: END IF;
2881: GOTO next_line;
2882: END IF;
2875: --
2876: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2877: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2878: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2879: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2880: END IF;
2881: GOTO next_line;
2882: END IF;
2883:
2895: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2896: END IF;
2897: --
2898:
2899: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2900: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GET_SRL_ERROR');
2901: --
2902: IF l_debug_on THEN
2903: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2904: END IF;
2905: --
2906: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2907: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2908: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2909: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2910: END IF;
2911: GOTO next_line;
2912: END IF;
2905: --
2906: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2907: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2908: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2909: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2910: END IF;
2911: GOTO next_line;
2912: END IF;
2913:
2926: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2927: END IF;
2928: --
2929:
2930: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2931: --
2932: IF l_debug_on THEN
2933: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2934: END IF;
2935: --
2936: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2937: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
2938: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2939: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2940: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2941: --
2942: IF l_debug_on THEN
2943: WSH_DEBUG_SV.pop(l_module_name);
2936: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2937: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
2938: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2939: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2940: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2941: --
2942: IF l_debug_on THEN
2943: WSH_DEBUG_SV.pop(l_module_name);
2944: END IF;
2986: --
2987: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
2988: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
2989: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2990: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2991: WSH_UTIL_CORE.Add_Message(l_return_status);
2992: x_pack_status := 'Overpacked';
2993:
2994: ELSIF l_fill_status = 'U' THEN
2987: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
2988: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
2989: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2990: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2991: WSH_UTIL_CORE.Add_Message(l_return_status);
2992: x_pack_status := 'Overpacked';
2993:
2994: ELSIF l_fill_status = 'U' THEN
2995: IF l_debug_on THEN
2998: --
2999: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3000: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
3001: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3002: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3003: WSH_UTIL_CORE.Add_Message(l_return_status);
3004: x_pack_status := 'Underpacked';
3005: ELSE
3006: x_pack_status := 'Success';
2999: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3000: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
3001: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3002: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3003: WSH_UTIL_CORE.Add_Message(l_return_status);
3004: x_pack_status := 'Underpacked';
3005: ELSE
3006: x_pack_status := 'Success';
3007: END IF;
3009: END IF;
3010: END IF;
3011:
3012: IF l_num_warnings > 0 THEN
3013: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3014: ELSE
3015: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3016: END IF;
3017:
3011:
3012: IF l_num_warnings > 0 THEN
3013: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3014: ELSE
3015: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3016: END IF;
3017:
3018: --
3019: IF l_debug_on THEN
3023: --
3024: EXCEPTION
3025:
3026: WHEN Others THEN
3027: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Unassign_Detail',l_module_name);
3028: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3029:
3030: --
3031: IF l_debug_on THEN
3024: EXCEPTION
3025:
3026: WHEN Others THEN
3027: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Unassign_Detail',l_module_name);
3028: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3029:
3030: --
3031: IF l_debug_on THEN
3032: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3042:
3043: PROCEDURE Unassign_Detail(
3044: p_container_instance_id IN NUMBER,
3045: p_delivery_id IN NUMBER,
3046: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
3047: p_cont_unassign IN VARCHAR2,
3048: p_del_unassign IN VARCHAR2,
3049: x_pack_status OUT NOCOPY VARCHAR2,
3050: x_return_status OUT NOCOPY VARCHAR2) IS
3099: --
3100: EXCEPTION
3101:
3102: WHEN Others THEN
3103: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Unassign_Detail',l_module_name);
3104: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3105: --
3106: IF l_debug_on THEN
3107: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3100: EXCEPTION
3101:
3102: WHEN Others THEN
3103: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Unassign_Detail',l_module_name);
3104: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3105: --
3106: IF l_debug_on THEN
3107: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3108: END IF;
3198: --
3199: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3200: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3201: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3203: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3204: --
3205: IF l_debug_on THEN
3206: WSH_DEBUG_SV.pop(l_module_name);
3199: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3200: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3201: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3203: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3204: --
3205: IF l_debug_on THEN
3206: WSH_DEBUG_SV.pop(l_module_name);
3207: END IF;
3225: --
3226: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id);
3227: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DEL');
3228: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
3229: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3230: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3231: --
3232: IF l_debug_on THEN
3233: WSH_DEBUG_SV.pop(l_module_name);
3226: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id);
3227: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DEL');
3228: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
3229: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3230: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3231: --
3232: IF l_debug_on THEN
3233: WSH_DEBUG_SV.pop(l_module_name);
3234: END IF;
3260: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3261: END IF;
3262: --
3263:
3264: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3265: --
3266: IF l_debug_on THEN
3267: WSH_DEBUG_SV.pop(l_module_name);
3268: END IF;
3284: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id);
3285: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
3286: FND_MESSAGE.SET_TOKEN('ENTITY1',l_cont_name);
3287: FND_MESSAGE.SET_TOKEN('ENTITY2',l_del_name);
3288: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3289: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3290: --
3291: IF l_debug_on THEN
3292: WSH_DEBUG_SV.pop(l_module_name);
3285: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
3286: FND_MESSAGE.SET_TOKEN('ENTITY1',l_cont_name);
3287: FND_MESSAGE.SET_TOKEN('ENTITY2',l_del_name);
3288: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3289: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3290: --
3291: IF l_debug_on THEN
3292: WSH_DEBUG_SV.pop(l_module_name);
3293: END IF;
3295: return;
3296: END IF;
3297:
3298:
3299: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3300:
3301: --
3302: IF l_debug_on THEN
3303: WSH_DEBUG_SV.pop(l_module_name);
3305: --
3306: EXCEPTION
3307:
3308: WHEN Others THEN
3309: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_To_Delivery',l_module_name);
3310: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3311:
3312: --
3313: IF l_debug_on THEN
3306: EXCEPTION
3307:
3308: WHEN Others THEN
3309: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_To_Delivery',l_module_name);
3310: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3311:
3312: --
3313: IF l_debug_on THEN
3314: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3352: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3353: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3354: END IF;
3355: --
3356: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3357: --
3358: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
3359: (
3360: p_delivery_id => p_delivery_id
3374: END IF;
3375: --
3376: EXCEPTION
3377: WHEN others THEN
3378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3379: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Assign_To_Delivery',l_module_name);
3380: --
3381: IF l_debug_on THEN
3382: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3375: --
3376: EXCEPTION
3377: WHEN others THEN
3378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3379: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Assign_To_Delivery',l_module_name);
3380: --
3381: IF l_debug_on THEN
3382: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3383: END IF;
3446:
3447: IF l_debug_on THEN
3448: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3449: END IF;
3450: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3451: --set proper error message
3452: --
3453: IF l_debug_on THEN
3454: WSH_DEBUG_SV.pop(l_module_name);
3455: END IF;
3456: --
3457: return;
3458: END IF;
3459: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3460:
3461: --
3462: IF l_debug_on THEN
3463: WSH_DEBUG_SV.pop(l_module_name);
3464: END IF;
3465: --
3466: EXCEPTION
3467: WHEN Others THEN
3468: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3469: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3470: --
3471: IF l_debug_on THEN
3472: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3465: --
3466: EXCEPTION
3467: WHEN Others THEN
3468: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3469: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3470: --
3471: IF l_debug_on THEN
3472: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3473: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3510: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3511: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3512: END IF;
3513: --
3514: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3515: --
3516: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
3517: (
3518: p_delivery_id => p_delivery_id
3532: END IF;
3533: --
3534: EXCEPTION
3535: WHEN others THEN
3536: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3537: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3538: --
3539: IF l_debug_on THEN
3540: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3533: --
3534: EXCEPTION
3535: WHEN others THEN
3536: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3537: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3538: --
3539: IF l_debug_on THEN
3540: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3541: END IF;
3560: x_return_status OUT NOCOPY VARCHAR2) IS
3561:
3562: BEGIN
3563:
3564: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3565:
3566: END Unassign_Delivery;
3567:
3568:
3602:
3603: l_det_cont_org NUMBER;
3604: l_par_cont_org NUMBER;
3605:
3606: l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
3607:
3608: cnt NUMBER;
3609: l_del_rows WSH_UTIL_CORE.id_tab_type;
3610: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
3605:
3606: l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
3607:
3608: cnt NUMBER;
3609: l_del_rows WSH_UTIL_CORE.id_tab_type;
3610: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
3611: l_ret_sts VARCHAR2(1);
3612:
3613: l_cont_name VARCHAR2(30);
3606: l_temp_detail_tab WSH_UTIL_CORE.id_tab_type;
3607:
3608: cnt NUMBER;
3609: l_del_rows WSH_UTIL_CORE.id_tab_type;
3610: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
3611: l_ret_sts VARCHAR2(1);
3612:
3613: l_cont_name VARCHAR2(30);
3614:
3626: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
3627: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
3628: l_action_rec wsh_delivery_autocreate.action_rec_type;
3629: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
3630: l_matched_entities wsh_util_core.id_tab_type;
3631: l_out_rec wsh_delivery_autocreate.out_rec_type;
3632:
3633:
3634: --
3668: --
3669: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
3670: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3671: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3672: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3673: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3674: --
3675: IF l_debug_on THEN
3676: WSH_DEBUG_SV.pop(l_module_name);
3669: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
3670: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3671: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3672: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3673: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3674: --
3675: IF l_debug_on THEN
3676: WSH_DEBUG_SV.pop(l_module_name);
3677: END IF;
3696: --
3697: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3698: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3699: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3700: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3701: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3702: --
3703: IF l_debug_on THEN
3704: WSH_DEBUG_SV.pop(l_module_name);
3697: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3698: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3699: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3700: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3701: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3702: --
3703: IF l_debug_on THEN
3704: WSH_DEBUG_SV.pop(l_module_name);
3705: END IF;
3726: END IF;
3727: --
3728: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3729: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3730: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3731: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3732: --
3733: IF l_debug_on THEN
3734: WSH_DEBUG_SV.pop(l_module_name);
3727: --
3728: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3729: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3730: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3731: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3732: --
3733: IF l_debug_on THEN
3734: WSH_DEBUG_SV.pop(l_module_name);
3735: END IF;
3752:
3753: IF l_debug_on THEN
3754: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3755: END IF;
3756: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3757: --
3758: IF l_debug_on THEN
3759: WSH_DEBUG_SV.pop(l_module_name);
3760: END IF;
3765: IF (nvl(l_par_del_id,-99) <> -99) THEN
3766:
3767: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
3768: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
3769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3770: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3771: --
3772: IF l_debug_on THEN
3773: WSH_DEBUG_SV.pop(l_module_name);
3766:
3767: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
3768: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
3769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3770: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3771: --
3772: IF l_debug_on THEN
3773: WSH_DEBUG_SV.pop(l_module_name);
3774: END IF;
3792:
3793: IF l_debug_on THEN
3794: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3795: END IF;
3796: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3797: --
3798: IF l_debug_on THEN
3799: WSH_DEBUG_SV.pop(l_module_name);
3800: END IF;
3805: IF (nvl(l_det_del_id,-99) <> -99) THEN
3806:
3807: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
3808: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
3809: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3810: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3811: --
3812: IF l_debug_on THEN
3813: WSH_DEBUG_SV.pop(l_module_name);
3806:
3807: IF (nvl(l_del_status,'N/A') <> 'OP') THEN
3808: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
3809: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3810: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3811: --
3812: IF l_debug_on THEN
3813: WSH_DEBUG_SV.pop(l_module_name);
3814: END IF;
3861: END IF;
3862: --
3863: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3864: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3866: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3867: --
3868: IF l_debug_on THEN
3869: WSH_DEBUG_SV.pop(l_module_name);
3862: --
3863: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3864: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3866: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3867: --
3868: IF l_debug_on THEN
3869: WSH_DEBUG_SV.pop(l_module_name);
3870: END IF;
3890: IF l_debug_on THEN
3891: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3892: END IF;
3893:
3894: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3895: --dbms_output.put_line('error while getting master serial for parent ' || p_par_cont_inst_id);
3896: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GET_MASTER_ERROR');
3897: --
3898: IF l_debug_on THEN
3900: END IF;
3901: --
3902: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3903: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3904: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3905: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3906: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
3907: END IF;
3908: l_master_cont_id := NULL;
3901: --
3902: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3903: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3904: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3905: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3906: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
3907: END IF;
3908: l_master_cont_id := NULL;
3909: l_master_serial_number := NULL;
3902: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3903: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3904: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3905: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3906: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
3907: END IF;
3908: l_master_cont_id := NULL;
3909: l_master_serial_number := NULL;
3910: END IF;
3922: IF l_debug_on THEN
3923: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3924: END IF;
3925:
3926: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3927: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
3928: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3929: --
3930: IF l_debug_on THEN
3924: END IF;
3925:
3926: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3927: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
3928: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3929: --
3930: IF l_debug_on THEN
3931: WSH_DEBUG_SV.pop(l_module_name);
3932: 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: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
3954: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3955: --
3956: IF l_debug_on THEN
3950: END IF;
3951:
3952: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3953: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
3954: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3955: --
3956: IF l_debug_on THEN
3957: WSH_DEBUG_SV.pop(l_module_name);
3958: END IF;
3977: IF l_debug_on THEN
3978: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3979: END IF;
3980:
3981: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3982: --
3983: IF l_debug_on THEN
3984: WSH_DEBUG_SV.pop(l_module_name);
3985: END IF;
4004: IF l_debug_on THEN
4005: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4006: END IF;
4007:
4008: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4009: --
4010: IF l_debug_on THEN
4011: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4012: END IF;
4013: --
4014: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4015: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4016: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4017: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4018: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4019: --
4020: IF l_debug_on THEN
4021: WSH_DEBUG_SV.pop(l_module_name);
4014: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4015: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4016: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4017: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4018: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4019: --
4020: IF l_debug_on THEN
4021: WSH_DEBUG_SV.pop(l_module_name);
4022: END IF;
4041:
4042: IF l_debug_on THEN
4043: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4044: END IF;
4045: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4046: --
4047: IF l_debug_on THEN
4048: WSH_DEBUG_SV.pop(l_module_name);
4049: END IF;
4066: IF l_debug_on THEN
4067: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4068: END IF;
4069:
4070: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4071: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GRP_ATTR_WARN');
4072: --
4073: IF l_debug_on THEN
4074: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4075: END IF;
4076: --
4077: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4078: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4079: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
4080: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
4081: END IF;
4082:
4083: --
4076: --
4077: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4078: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4079: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
4080: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
4081: END IF;
4082:
4083: --
4084: IF l_debug_on THEN
4093: IF l_debug_on THEN
4094: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4095: END IF;
4096:
4097: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4098: --
4099: IF l_debug_on THEN
4100: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4101: END IF;
4102: --
4103: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4104: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4105: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4106: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4107: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4108: --
4109: IF l_debug_on THEN
4110: WSH_DEBUG_SV.pop(l_module_name);
4103: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4104: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4105: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4106: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4107: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4108: --
4109: IF l_debug_on THEN
4110: WSH_DEBUG_SV.pop(l_module_name);
4111: END IF;
4130:
4131: IF l_debug_on THEN
4132: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4133: END IF;
4134: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4135: --dbms_output.put_line('cont not assigned');
4136: --
4137: IF l_debug_on THEN
4138: WSH_DEBUG_SV.pop(l_module_name);
4154:
4155: IF l_debug_on THEN
4156: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4157: END IF;
4158: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4159: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GRP_ATTR_WARN');
4160: --
4161: IF l_debug_on THEN
4162: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4163: END IF;
4164: --
4165: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4166: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4167: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
4168: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
4169: END IF;
4170:
4171: --
4164: --
4165: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4166: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4167: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
4168: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
4169: END IF;
4170:
4171: --
4172: IF l_debug_on THEN
4181: IF l_debug_on THEN
4182: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4183: END IF;
4184:
4185: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4186: --
4187: IF l_debug_on THEN
4188: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4189: END IF;
4190: --
4191: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4192: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4193: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4194: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4195: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4196: --
4197: IF l_debug_on THEN
4198: WSH_DEBUG_SV.pop(l_module_name);
4191: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4192: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4193: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4194: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4195: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4196: --
4197: IF l_debug_on THEN
4198: WSH_DEBUG_SV.pop(l_module_name);
4199: END IF;
4232:
4233: IF l_debug_on THEN
4234: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4235: END IF;
4236: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
4237: OR NVL(l_out_rec.single_group, 'N') = 'N') THEN
4238: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
4239: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4240: --
4235: END IF;
4236: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
4237: OR NVL(l_out_rec.single_group, 'N') = 'N') THEN
4238: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
4239: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4240: --
4241: IF l_debug_on THEN
4242: WSH_DEBUG_SV.pop(l_module_name);
4243: END IF;
4260:
4261: IF l_debug_on THEN
4262: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4263: END IF;
4264: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4265: l_ret_sts := x_return_status;
4266: --
4267: IF l_debug_on THEN
4268: WSH_DEBUG_SV.pop(l_module_name);
4285: IF l_debug_on THEN
4286: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4287: END IF;
4288:
4289: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4290: --
4291: IF l_debug_on THEN
4292: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4293: END IF;
4294: --
4295: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4296: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4297: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4298: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4299: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4300: --
4301: IF l_debug_on THEN
4302: WSH_DEBUG_SV.pop(l_module_name);
4295: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4296: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4297: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4298: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4299: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4300: --
4301: IF l_debug_on THEN
4302: WSH_DEBUG_SV.pop(l_module_name);
4303: END IF;
4307:
4308:
4309: END IF;
4310:
4311: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4312:
4313: --
4314: IF l_debug_on THEN
4315: WSH_DEBUG_SV.pop(l_module_name);
4317: --
4318: EXCEPTION
4319:
4320: WHEN Others THEN
4321: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_To_Container',l_module_name);
4322: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4323:
4324: --
4325: IF l_debug_on THEN
4318: EXCEPTION
4319:
4320: WHEN Others THEN
4321: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Assign_To_Container',l_module_name);
4322: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4323:
4324: --
4325: IF l_debug_on THEN
4326: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4413: NULL;
4414: ELSE
4415: --
4416: IF l_debug_on THEN
4417: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4418: END IF;
4419: --
4420: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4421: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4416: IF l_debug_on THEN
4417: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4418: END IF;
4419: --
4420: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4421: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4422: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
4423: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4424: CLOSE Get_Cont_Msi;
4421: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4422: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
4423: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4424: CLOSE Get_Cont_Msi;
4425: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4426: x_return_status := C_ERROR_STATUS;
4427: x_error_cnt := x_error_cnt + 1;
4428:
4429: END IF;
4447:
4448: IF Get_Cont_Msi%NOTFOUND THEN
4449: --
4450: IF l_debug_on THEN
4451: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4452: END IF;
4453: --
4454: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4455: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4450: IF l_debug_on THEN
4451: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4452: END IF;
4453: --
4454: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4455: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4456: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
4457: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4458: CLOSE Get_Cont_Msi;
4455: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4456: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
4457: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4458: CLOSE Get_Cont_Msi;
4459: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4460: x_return_status := C_ERROR_STATUS;
4461: x_error_cnt := x_error_cnt + 1;
4462: ELSE
4463:
4467:
4468: IF ((NVL(l_mtl_max_load,0) <= 0) AND (p_w_v_both in ('W','B'))) THEN
4469: --dbms_output.put_line('Preferred Container Weight is <= 0');
4470: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_LOAD_ERROR');
4471: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4472: x_return_status := C_ERROR_STATUS;
4473: x_error_cnt := x_error_cnt + 1;
4474: l_flag := 'N';
4475: END IF;
4476:
4477: IF ((NVL(l_mtl_max_vol,0) <= 0) AND (p_w_v_both in ('V','B'))) THEN
4478: --dbms_output.put_line('Preferred Container Volume is <= 0');
4479: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_VOL_ERROR');
4480: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4481: x_return_status := C_ERROR_STATUS;
4482: x_error_cnt := x_error_cnt + 1;
4483: l_flag := 'N';
4484: END IF;
4517: WHEN Others THEN
4518: IF (Get_Cont_Msi%ISOPEN) THEN
4519: CLOSE Get_Cont_Msi;
4520: END IF;
4521: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Get_Cont_Load_Vol_info',l_module_name);
4522: x_return_status := C_UNEXP_ERROR_STATUS;
4523:
4524: --
4525: IF l_debug_on THEN
4609: END IF;
4610: --
4611: EXCEPTION
4612: WHEN Others THEN
4613: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Calc_Fill_Basis_and_proc_flag',l_module_name);
4614: x_return_status := C_UNEXP_ERROR_STATUS;
4615: --
4616: IF l_debug_on THEN
4617: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4705: IF Get_Cont_Load%NOTFOUND THEN
4706: CLOSE Get_Cont_Load;
4707: --
4708: IF l_debug_on THEN
4709: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4710: END IF;
4711: --
4712: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_inventory_item_id, p_organization_id);
4713: --
4708: IF l_debug_on THEN
4709: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4710: END IF;
4711: --
4712: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_inventory_item_id, p_organization_id);
4713: --
4714: IF l_debug_on THEN
4715: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4716: END IF;
4711: --
4712: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_inventory_item_id, p_organization_id);
4713: --
4714: IF l_debug_on THEN
4715: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4716: END IF;
4717: --
4718: l_org_name := WSH_UTIL_CORE.Get_Org_Name(p_organization_id);
4719: --dbms_output.put_line('Error: Cont/Load Relationship does not exist for Item '||l_item_name||' Org '||l_org_name);
4714: IF l_debug_on THEN
4715: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4716: END IF;
4717: --
4718: l_org_name := WSH_UTIL_CORE.Get_Org_Name(p_organization_id);
4719: --dbms_output.put_line('Error: Cont/Load Relationship does not exist for Item '||l_item_name||' Org '||l_org_name);
4720: --dbms_output.put_line('p_inventory_item_id '||p_inventory_item_id||' p_organization_id '||p_organization_id);
4721: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_LOAD');
4722: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4720: --dbms_output.put_line('p_inventory_item_id '||p_inventory_item_id||' p_organization_id '||p_organization_id);
4721: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_LOAD');
4722: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
4723: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
4724: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4725: x_return_status := C_ERROR_STATUS;
4726: x_error_cnt := x_error_cnt + 1;
4727: ELSE
4728: CLOSE Get_Cont_Load;
4728: CLOSE Get_Cont_Load;
4729: IF ((l_max_load_qty = 0) AND (p_fill_pc_basis = 'Q')) THEN
4730: --dbms_output.put_line('Error: Max Load qty for Preferred Container is 0');
4731: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LOAD_QTY_ERROR');
4732: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
4733: x_error_cnt := x_error_cnt + 1;
4734: x_return_status := C_ERROR_STATUS;
4735: l_wcl_cont_item_id := NULL;
4736: END IF;
4760: WHEN Others THEN
4761: IF (Get_Cont_Load%ISOPEN) THEN
4762: CLOSE Get_Cont_Load;
4763: END IF;
4764: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Calc_Pref_Container',l_module_name);
4765: x_return_status := C_UNEXP_ERROR_STATUS;
4766:
4767: --
4768: IF l_debug_on THEN
4823: l_count_container NUMBER;
4824: l_container_item_id NUMBER;
4825: l_container_org_id NUMBER;
4826: l_num_of_split NUMBER;
4827: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
4828:
4829: --
4830: l_debug_on BOOLEAN;
4831: --
4869: ELSIF nvl(l_weight_per_pc,0) = 0 THEN
4870: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WEIGHT_VOLUME');
4871: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',p_line_cont_rec.delivery_detail_id);
4872: END IF;
4873: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4874: IF l_debug_on THEN
4875: WSH_DEBUG_SV.pop(l_module_name);
4876: END IF;
4877: RETURN;
4892: ELSIF nvl(l_volume_per_pc,0) = 0 THEN
4893: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WEIGHT_VOLUME');
4894: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',p_line_cont_rec.delivery_detail_id);
4895: END IF;
4896: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4897: IF l_debug_on THEN
4898: WSH_DEBUG_SV.pop(l_module_name);
4899: END IF;
4900: RETURN;
5048: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5049: END IF;
5050: --dbms_output.put_line('STATUS after SPLITDD in empty'||l_return_status||l_dd_id_tab.count);
5051:
5052: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5053: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5054: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5055: x_return_status := C_ERROR_STATUS;
5056: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '||x_return_status);
5049: END IF;
5050: --dbms_output.put_line('STATUS after SPLITDD in empty'||l_return_status||l_dd_id_tab.count);
5051:
5052: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5053: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5054: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5055: x_return_status := C_ERROR_STATUS;
5056: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '||x_return_status);
5057: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5055: x_return_status := C_ERROR_STATUS;
5056: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '||x_return_status);
5057: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5058: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5059: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5060: --
5061: IF l_debug_on THEN
5062: WSH_DEBUG_SV.pop(l_module_name);
5063: END IF;
5264: IF (l_num_of_split + 1) > 100000 THEN
5265: x_return_status := C_ERROR_STATUS;
5266: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_COUNT');
5267: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5268: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5269: return;
5270: END IF;
5271: -- End BugFix#3475352
5272:
5296: IF l_debug_on THEN
5297: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5298: END IF;
5299:
5300: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5301: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5302: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5303: x_return_status := C_ERROR_STATUS;
5304: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5297: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5298: END IF;
5299:
5300: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5301: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5302: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5303: x_return_status := C_ERROR_STATUS;
5304: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5305: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5302: --dbms_output.put_line('WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details returned '|| l_return_status);
5303: x_return_status := C_ERROR_STATUS;
5304: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
5305: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5306: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5307:
5308: IF l_debug_on THEN
5309: WSH_DEBUG_SV.pop(l_module_name);
5310: END IF;
5459: RETURN;
5460:
5461: EXCEPTION
5462: WHEN Others THEN
5463: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Delivery_Detail',l_module_name);
5464: x_return_status := C_UNEXP_ERROR_STATUS;
5465:
5466: --
5467: IF l_debug_on THEN
5490: ------------------------------------------------------------------------------
5491: */
5492:
5493: PROCEDURE Validate_Dd_for_Pack(
5494: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
5495: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
5496: x_line_cont_tab OUT NOCOPY wsh_container_actions.line_cont_info_tab,
5497: x_error_cnt OUT NOCOPY NUMBER,
5498: x_warn_cnt OUT NOCOPY NUMBER,
5491: */
5492:
5493: PROCEDURE Validate_Dd_for_Pack(
5494: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
5495: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
5496: x_line_cont_tab OUT NOCOPY wsh_container_actions.line_cont_info_tab,
5497: x_error_cnt OUT NOCOPY NUMBER,
5498: x_warn_cnt OUT NOCOPY NUMBER,
5499: x_fill_pc_warn_cnt OUT NOCOPY NUMBER, -- bug 3562797 jckwok
5720: IF l_debug_on THEN
5721: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5722: END IF;
5723:
5724: wsh_util_core.api_post_call
5725: (
5726: p_return_status => l_return_status,
5727: x_num_warnings => l_num_warnings,
5728: x_num_errors => l_num_errors
5839: IF (l_return_status <> C_SUCCESS_STATUS) THEN
5840: --dbms_output.put_line('WSH_WV_UTILS.Detail_Weight_Volume did not return success');
5841: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
5842: FND_MESSAGE.SET_TOKEN('DETAIL_ID',rec.delivery_detail_id);
5843: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
5844: error_cnt := error_cnt + 1;
5845: --dbms_output.put_line('Skipping this dd');
5846: goto next_detail;
5847: END IF;
5856: (NVL(rec.volume,0) = 0)) THEN
5857: --dbms_output.put_line('Weight or Volume is NULL or 0');
5858: FND_MESSAGE.SET_NAME('WSH', 'WSH_NULL_WEIGHT_VOLUME');
5859: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL', rec.delivery_detail_id);
5860: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5861: error_cnt := error_cnt + 1;
5862: --dbms_output.put_line('Skipping this dd');
5863: goto next_detail;
5864: END IF;
5892: WSH_DEBUG_SV.log(l_module_name,'Wt-'||l_mtl_max_load);
5893: WSH_DEBUG_SV.log(l_module_name,'Vol-'||l_mtl_max_vol);
5894: END IF;
5895: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_MAX_WT_ERROR');
5896: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5897: error_cnt := error_cnt + l_error_cnt;
5898: goto next_detail;
5899: END IF;
5900: -- Bug 2786021
5963: l_tmp_num_cont := FLOOR(rec.packed_quantity/l_max_load_qty);
5964:
5965: IF (l_tmp_num_cont = 0) THEN
5966: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
5967: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5968: error_cnt := error_cnt + 1;
5969: goto next_detail;
5970: ELSE
5971: --l_max_load_qty := (rec.packed_quantity/l_tmp_num_cont);
5979:
5980: IF (NVL(line_cont_rec.max_load_qty,0) <= 0) THEN
5981: --dbms_output.put_line('Max Load Qty is NULL or <= 0. Skipping this dd');
5982: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
5983: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5984: error_cnt := error_cnt + 1;
5985: goto next_detail;
5986: END IF;
5987:
6016: IF (l_return_status <> C_SUCCESS_STATUS) THEN
6017: --dbms_output.put_line('WSH_WV_UTILS.Detail_Weight_Volume did not return success');
6018: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
6019: FND_MESSAGE.SET_TOKEN('DETAIL_ID',rec.delivery_detail_id);
6020: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6021: error_cnt := error_cnt + 1;
6022: --dbms_output.put_line('Skipping this dd');
6023: goto next_detail;
6024: END IF;
6037: IF (NVL(rec.gross_weight,0) = 0) THEN
6038: --dbms_output.put_line('Weight is NULL or 0');
6039: FND_MESSAGE.SET_NAME('WSH', 'WSH_NULL_WEIGHT_VOLUME');
6040: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL', rec.delivery_detail_id);
6041: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6042: error_cnt := error_cnt + 1;
6043: --dbms_output.put_line('Skipping this dd');
6044: goto next_detail;
6045: END IF;
6048: IF (NVL(rec.volume,0) = 0) THEN
6049: --dbms_output.put_line('Volume is NULL or 0');
6050: FND_MESSAGE.SET_NAME('WSH', 'WSH_NULL_WEIGHT_VOLUME');
6051: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL', rec.delivery_detail_id);
6052: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6053: error_cnt := error_cnt + 1;
6054: --dbms_output.put_line('Skipping this dd');
6055: goto next_detail;
6056: END IF;
6133: (line_cont_rec.fill_pc_basis = 'V' AND ((line_cont_rec.converted_vol/line_cont_rec.shp_qty) > l_mtl_max_vol)))) THEN
6134: --dbms_output.put_line('Indivisible flag is Y and Preferred Cont cannot hold atleast 1 piece');
6135: -- Bug#: 2503937 - New Error Message
6136: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_VOL_ERROR');
6137: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6138: error_cnt := error_cnt + 1;
6139: --dbms_output.put_line('Skipping this dd');
6140: goto next_detail;
6141: END IF;
6163: OR (line_cont_rec.fill_pc_basis = 'V' AND (l_dd_volume> line_cont_rec.cont_vol) ) ) ) THEN
6164:
6165: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
6166: FND_MESSAGE.SET_TOKEN('DETAIL_ID',rec.delivery_detail_id);
6167: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6168: WSH_UTIL_CORE.Add_Message(l_return_status);
6169: error_cnt := error_cnt + 1;
6170: goto next_detail;
6171: END IF;-- end of 3011758
6164:
6165: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
6166: FND_MESSAGE.SET_TOKEN('DETAIL_ID',rec.delivery_detail_id);
6167: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6168: WSH_UTIL_CORE.Add_Message(l_return_status);
6169: error_cnt := error_cnt + 1;
6170: goto next_detail;
6171: END IF;-- end of 3011758
6172:
6240: END IF;
6241: IF (Get_Cont_Item_Load%ISOPEN) THEN
6242: CLOSE Get_Cont_Item_Load;
6243: END IF;
6244: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Dd_For_Pack',l_module_name);
6245: --
6246: IF l_debug_on THEN
6247: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6248: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6285: ------------------------------------------------------------------------------
6286: */
6287:
6288: PROCEDURE Auto_Pack_Lines (
6289: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
6290: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
6291: p_pack_cont_flag IN VARCHAR2,
6292: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
6293: x_return_status OUT NOCOPY VARCHAR2) IS
6286: */
6287:
6288: PROCEDURE Auto_Pack_Lines (
6289: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
6290: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
6291: p_pack_cont_flag IN VARCHAR2,
6292: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
6293: x_return_status OUT NOCOPY VARCHAR2) IS
6294:
6288: PROCEDURE Auto_Pack_Lines (
6289: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
6290: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
6291: p_pack_cont_flag IN VARCHAR2,
6292: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
6293: x_return_status OUT NOCOPY VARCHAR2) IS
6294:
6295: CURSOR c_get_attributes(v_delivery_detail_id IN NUMBER) IS
6296: SELECT customer_id,ship_to_location_id,
6321: -- OTM R12 : assign delivery detail
6322:
6323: TYPE tab_varchar IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
6324:
6325: l_tab_cust_id wsh_util_core.id_tab_type;
6326: l_tab_ship_location_id wsh_util_core.id_tab_type;
6327: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6328: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6329: l_tab_carrier_id wsh_util_core.id_tab_type;
6322:
6323: TYPE tab_varchar IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
6324:
6325: l_tab_cust_id wsh_util_core.id_tab_type;
6326: l_tab_ship_location_id wsh_util_core.id_tab_type;
6327: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6328: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6329: l_tab_carrier_id wsh_util_core.id_tab_type;
6330: l_tab_fob_code tab_varchar;
6323: TYPE tab_varchar IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
6324:
6325: l_tab_cust_id wsh_util_core.id_tab_type;
6326: l_tab_ship_location_id wsh_util_core.id_tab_type;
6327: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6328: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6329: l_tab_carrier_id wsh_util_core.id_tab_type;
6330: l_tab_fob_code tab_varchar;
6331: l_tab_freight_terms_code tab_varchar;
6324:
6325: l_tab_cust_id wsh_util_core.id_tab_type;
6326: l_tab_ship_location_id wsh_util_core.id_tab_type;
6327: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6328: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6329: l_tab_carrier_id wsh_util_core.id_tab_type;
6330: l_tab_fob_code tab_varchar;
6331: l_tab_freight_terms_code tab_varchar;
6332: l_tab_ship_method_code tab_varchar;
6325: l_tab_cust_id wsh_util_core.id_tab_type;
6326: l_tab_ship_location_id wsh_util_core.id_tab_type;
6327: l_tab_intmed_location_id wsh_util_core.id_tab_type;
6328: l_tab_deliver_location_id wsh_util_core.id_tab_type;
6329: l_tab_carrier_id wsh_util_core.id_tab_type;
6330: l_tab_fob_code tab_varchar;
6331: l_tab_freight_terms_code tab_varchar;
6332: l_tab_ship_method_code tab_varchar;
6333: l_tab_mode_of_transport tab_varchar;
6337: l_tab_ignore_for_planning tab_varchar;
6338:
6339: line_cont_tab line_cont_info_tab;
6340:
6341: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6342: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6343: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6344: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6345: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6338:
6339: line_cont_tab line_cont_info_tab;
6340:
6341: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6342: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6343: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6344: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6345: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6346: l_detail_cont_rec empty_cont_info;
6339: line_cont_tab line_cont_info_tab;
6340:
6341: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6342: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6343: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6344: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6345: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6346: l_detail_cont_rec empty_cont_info;
6347: l_detail_cont_tab empty_cont_info_tab;
6340:
6341: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6342: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6343: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6344: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6345: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6346: l_detail_cont_rec empty_cont_info;
6347: l_detail_cont_tab empty_cont_info_tab;
6348:
6341: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
6342: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
6343: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
6344: l_mast_cont_tab WSH_UTIL_CORE.id_tab_type;
6345: l_tmp_detail_tab WSH_UTIL_CORE.id_tab_type;
6346: l_detail_cont_rec empty_cont_info;
6347: l_detail_cont_tab empty_cont_info_tab;
6348:
6349: l_return_status VARCHAR2(1);
6371: l_error_cnt NUMBER := 0;
6372:
6373: l_new_contid_count NUMBER := 0;
6374: --l_cont_tab wsh_container_actions.cont_inst_tab;
6375: l_cont_tab WSH_UTIL_CORE.id_tab_type;
6376:
6377: TYPE NumList IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
6378: TYPE CharList IS TABLE OF VARCHAR2(3) INDEX BY BINARY_INTEGER;
6379: l_GrossWtlist NumList;
6384: l_contlist NumList; -- containers for delivery detail id
6385: l_contlist1 NumList; -- containers and delivery id
6386: l_dellist1 NumList; -- containers and delivery id
6387: m NUMBER;
6388: l_del_tab WSH_UTIL_CORE.id_tab_type;
6389: l_exists_flag VARCHAR2(1);
6390: l_duplicate_flag VARCHAR2(1); -- for checking record
6391:
6392: -- J: W/V Changes
6434: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
6435: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
6436: l_action_rec wsh_delivery_autocreate.action_rec_type;
6437: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
6438: l_matched_entities wsh_util_core.id_tab_type;
6439: l_out_rec wsh_delivery_autocreate.out_rec_type;
6440:
6441: mark_reprice_error EXCEPTION;
6442:
6445: l_is_delivery_empty VARCHAR2(1);
6446: l_index NUMBER;
6447: l_index_update NUMBER;
6448: l_tare_weight WSH_DELIVERY_DETAILS.UNIT_WEIGHT%TYPE;
6449: l_ignore_for_planning_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6450: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6451: l_delivery_was_empty_tab BOOLEAN_TAB_TYPE;
6452: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6453: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6446: l_index NUMBER;
6447: l_index_update NUMBER;
6448: l_tare_weight WSH_DELIVERY_DETAILS.UNIT_WEIGHT%TYPE;
6449: l_ignore_for_planning_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6450: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6451: l_delivery_was_empty_tab BOOLEAN_TAB_TYPE;
6452: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6453: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6454: -- End of OTM R12 : assign delivery detail
6448: l_tare_weight WSH_DELIVERY_DETAILS.UNIT_WEIGHT%TYPE;
6449: l_ignore_for_planning_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6450: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6451: l_delivery_was_empty_tab BOOLEAN_TAB_TYPE;
6452: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6453: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6454: -- End of OTM R12 : assign delivery detail
6455:
6456: -- K LPN CONV. rv
6449: l_ignore_for_planning_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6450: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6451: l_delivery_was_empty_tab BOOLEAN_TAB_TYPE;
6452: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6453: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6454: -- End of OTM R12 : assign delivery detail
6455:
6456: -- K LPN CONV. rv
6457: l_wms_org VARCHAR2(10) := 'N';
6467: l_sync_tmp_inv_contlist1 wsh_glbl_var_strct_grp.sync_tmp_recTbl_type;
6468: l_wms_contlist1_cnt NUMBER;
6469: l_inv_contlist1_cnt NUMBER;
6470: -- K LPN CONV. rv
6471: l_mdc_id_tab wsh_util_core.id_tab_type;
6472: l_mdc_index_i NUMBER;
6473: l_mdc_index_j NUMBER;
6474:
6475: --
6488: --
6489: --
6490:
6491: -- OTM R12 : assign delivery detail
6492: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6493:
6494: IF (l_gc3_is_installed IS NULL) THEN
6495: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6496: END IF;
6491: -- OTM R12 : assign delivery detail
6492: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6493:
6494: IF (l_gc3_is_installed IS NULL) THEN
6495: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6496: END IF;
6497:
6498: -- End of OTM R12 : assign delivery detail
6499:
6525: IF p_del_detail_tab.count = 0 THEN
6526: --dbms_output.put_line('p_del_detail_tab count is 0');
6527: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
6528: x_return_status := C_ERROR_STATUS;
6529: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6530: --
6531: IF l_debug_on THEN
6532: WSH_DEBUG_SV.pop(l_module_name);
6533: END IF;
6575: IF (l_return_status = C_ERROR_STATUS) OR
6576: (l_return_status = C_UNEXP_ERROR_STATUS) THEN
6577: --dbms_output.put_line('***WSH_DELIVERY_AUTOCREATE.autocreate_deliveries returned '||l_return_status);
6578: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
6579: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
6580: x_return_status := l_return_status;
6581: --
6582: IF l_debug_on THEN
6583: WSH_DEBUG_SV.pop(l_module_name);
6593:
6594: IF ((cnt IS NULL) OR (p_group_id_tab.COUNT <> p_del_detail_tab.count)) THEN
6595: x_return_status := C_ERROR_STATUS;
6596: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
6597: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6598: --
6599: IF l_debug_on THEN
6600: WSH_DEBUG_SV.pop(l_module_name);
6601: END IF;
6631: -- Raise Error if all lines are with status 'S'
6632: IF (l_release_warn_count = p_del_detail_tab.count) THEN
6633: x_return_status := C_ERROR_STATUS;
6634: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_RELEASED_STATUS');
6635: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6636: -- Bug 3337629 : Added the following return statement.
6637: IF l_debug_on THEN
6638: WSH_DEBUG_SV.pop(l_module_name);
6639: END IF;
6647: IF (l_return_status <> C_ERROR_STATUS) THEN
6648: x_return_status := C_WARNING_STATUS;
6649: warn_cnt := warn_cnt + 1;
6650: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_REL_STATUS_WARN');
6651: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6652: END IF;
6653: END IF;
6654: --
6655: -- bug 3562797 jckwok
6658: --
6659: IF (l_fill_pc_warn_count = p_del_detail_tab.count) THEN
6660: x_return_status := C_ERROR_STATUS;
6661: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
6662: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6663: IF l_debug_on THEN
6664: WSH_DEBUG_SV.pop(l_module_name);
6665: END IF;
6666: RETURN;
6668: IF (l_return_status <> C_ERROR_STATUS) THEN
6669: x_return_status := C_WARNING_STATUS;
6670: warn_cnt := warn_cnt + 1;
6671: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
6672: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6673: END IF;
6674: END IF;
6675: -- end of bug 3562797 jckwok
6676:
6749: IF l_debug_on THEN
6750: WSH_DEBUG_SV.log(l_module_name,'return status ,cont tab count -',l_return_status||l_cont_tab.count);
6751: END IF;
6752:
6753: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
6754: ) THEN
6755: --dbms_output.put_line('Container Creation failed for index '|| cnt);
6756: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
6757: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6753: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
6754: ) THEN
6755: --dbms_output.put_line('Container Creation failed for index '|| cnt);
6756: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
6757: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
6758: error_cnt := error_cnt + 1;
6759: ELSE
6760:
6761: IF l_debug_on THEN
7201: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
7202: p_detail_id_tab => l_mdc_id_tab,
7203: x_return_status => x_return_status);
7204:
7205: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7206: IF l_debug_on THEN
7207: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7208: WSH_DEBUG_SV.pop(l_module_name);
7209: END IF;
7447:
7448: l_delivery_was_empty_tab(l_index) := FALSE;
7449: IF (l_ignore_for_planning_tab(l_index) = 'N') THEN
7450: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_dellist1(l_index));
7451: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
7452: IF l_debug_on THEN
7453: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7454: END IF;
7455: raise FND_API.G_EXC_ERROR;
7496:
7497: IF (l_delivery_was_empty_tab(l_index)) THEN
7498: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_dellist1(l_index));
7499:
7500: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
7501: --handle the error approriately to the procedure this code is in
7502: IF l_debug_on THEN
7503: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7504: END IF;
7568: p_delivery_id_tab => l_delivery_id_tab,
7569: p_tms_interface_flag_tab => l_interface_flag_tab,
7570: x_return_status => l_return_status);
7571:
7572: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
7573: IF l_debug_on THEN
7574: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7575: END IF;
7576: raise FND_API.G_EXC_ERROR;
7573: IF l_debug_on THEN
7574: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7575: END IF;
7576: raise FND_API.G_EXC_ERROR;
7577: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7578: IF l_debug_on THEN
7579: WSH_DEBUG_SV.logmsg(l_module_name,'Warning in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7580: END IF;
7581: cont_warn := cont_warn + 1;
7598: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
7599: p_detail_id_tab => l_mdc_id_tab,
7600: x_return_status => x_return_status);
7601:
7602: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7603: IF l_debug_on THEN
7604: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7605: WSH_DEBUG_SV.pop(l_module_name);
7606: END IF;
7666: );
7667: IF l_debug_on THEN
7668: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
7669: END IF;
7670: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7671: RAISE mark_reprice_error;
7672: END IF;
7673: END IF;
7674: -- End of H integration : Pricing Integration
7684: IF cont_warn > 0 THEN
7685: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_PACK_WARN');
7686: FND_MESSAGE.SET_TOKEN('CONT_WARN',cont_warn);
7687: FND_MESSAGE.SET_TOKEN('CONT_ERR',0);
7688: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
7689: END IF;
7690: ELSIF (error_cnt > 0) THEN
7691: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_PACK_ERROR');
7692: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
7696: x_return_status := C_WARNING_STATUS;
7697: ELSE
7698: x_return_status := C_ERROR_STATUS;
7699: END IF;
7700: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
7701: ELSE
7702: x_return_status := C_SUCCESS_STATUS;
7703: END IF;
7704:
7708: END IF;
7709: IF x_return_status = C_ERROR_STATUS THEN
7710: IF p_pack_cont_flag = 'Y' THEN
7711: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MASTER_NOT_PACK');
7712: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
7713: END IF;
7714: --
7715: IF l_debug_on THEN
7716: WSH_DEBUG_SV.pop(l_module_name);
7750: IF l_return_status = C_UNEXP_ERROR_STATUS THEN
7751: --dbms_output.put_line('Returned from autopack conts with unexpected error');
7752: /* No message WSH_CONT_CONT_AUTOPACK_ERR
7753: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CONT_AUTOPACK_ERR');
7754: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
7755: IF l_return_status <> C_ERROR_STATUS THEN
7756: l_return_status := C_WARNING_STATUS;
7757: END IF;
7758: */
7794:
7795: WHEN mark_reprice_error THEN
7796: FND_MESSAGE.Set_Name('WSH','WSH_REPRICE_REQD_ERR');
7797: x_return_status := l_return_status;
7798: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
7799: IF l_debug_on THEN
7800: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7801: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
7802: END IF;
7802: END IF;
7803:
7804: -- OTM R12 : assign delivery detail
7805: WHEN FND_API.G_EXC_ERROR THEN
7806: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7807: IF c_get_plan_and_tms_flag%ISOPEN THEN
7808: CLOSE c_get_plan_and_tms_flag;
7809: END IF;
7810: IF c_get_tare_weight%ISOPEN THEN
7829: CLOSE c_get_tare_weight;
7830: END IF;
7831: -- End of OTM R12 : assign delivery detail
7832:
7833: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Auto_Pack_Lines',l_module_name);
7834: x_return_status := C_UNEXP_ERROR_STATUS;
7835:
7836: --
7837: IF l_debug_on THEN
7859: */
7860:
7861:
7862: PROCEDURE Auto_Pack_Delivery (
7863: p_delivery_tab IN WSH_UTIL_CORE.id_tab_type,
7864: p_pack_cont_flag IN VARCHAR2,
7865: x_cont_instance_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
7866: x_return_status OUT NOCOPY VARCHAR2) IS
7867:
7861:
7862: PROCEDURE Auto_Pack_Delivery (
7863: p_delivery_tab IN WSH_UTIL_CORE.id_tab_type,
7864: p_pack_cont_flag IN VARCHAR2,
7865: x_cont_instance_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
7866: x_return_status OUT NOCOPY VARCHAR2) IS
7867:
7868: CURSOR get_delivery_wms(x_delivery_id NUMBER) IS
7869: SELECT mp.wms_enabled_flag
7882: AND wda.parent_delivery_detail_id IS NULL
7883: AND wda.delivery_detail_id = wdd.delivery_detail_id
7884: AND wdd.container_flag = 'N';
7885:
7886: l_del_detail_tab WSH_UTIL_CORE.id_tab_type;
7887: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
7888:
7889: l_gross_weight NUMBER;
7890: l_volume NUMBER;
7883: AND wda.delivery_detail_id = wdd.delivery_detail_id
7884: AND wdd.container_flag = 'N';
7885:
7886: l_del_detail_tab WSH_UTIL_CORE.id_tab_type;
7887: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
7888:
7889: l_gross_weight NUMBER;
7890: l_volume NUMBER;
7891:
7888:
7889: l_gross_weight NUMBER;
7890: l_volume NUMBER;
7891:
7892: l_cont_instance_tab WSH_UTIL_CORE.id_tab_type;
7893:
7894: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7895: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7896:
7890: l_volume NUMBER;
7891:
7892: l_cont_instance_tab WSH_UTIL_CORE.id_tab_type;
7893:
7894: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7895: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7896:
7897: error_cnt NUMBER := 0;
7898: warn_cnt NUMBER := 0;
7891:
7892: l_cont_instance_tab WSH_UTIL_CORE.id_tab_type;
7893:
7894: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7895: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7896:
7897: error_cnt NUMBER := 0;
7898: warn_cnt NUMBER := 0;
7899: succ_cnt NUMBER := 0;
7899: succ_cnt NUMBER := 0;
7900:
7901: i NUMBER;
7902: m NUMBER := 0;
7903: l_del_rows WSH_UTIL_CORE.id_tab_type;
7904:
7905: l_del_name VARCHAR2(30);
7906: l_wms_count NUMBER := 0;
7907: l_wms_enabled_flag VARCHAR2(1);
7935: --
7936: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
7937: END IF;
7938: --
7939: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7940:
7941: l_del_rows.delete;
7942:
7943: FOR j IN 1..p_delivery_tab.count LOOP
7942:
7943: FOR j IN 1..p_delivery_tab.count LOOP
7944:
7945: i := 1;
7946: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7947: l_del_detail_tab.delete;
7948:
7949: IF l_debug_on THEN
7950: WSH_DEBUG_SV.log(l_module_name,'Auto pack delivery ', p_delivery_tab(j));
7955: FETCH get_delivery_wms INTO l_wms_enabled_flag;
7956: IF get_delivery_wms%NOTFOUND THEN
7957: CLOSE get_delivery_wms;
7958: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_DATA_FOUND');
7959: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7960: --
7961: --IF l_debug_on THEN
7962: --WSH_DEBUG_SV.pop(l_module_name);
7963: --END IF;
7968: CLOSE get_delivery_wms;
7969:
7970: IF l_wms_enabled_flag = 'Y' THEN
7971: l_wms_count := l_wms_count + 1;
7972: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
7973: goto next_delivery_to_autopack;
7974: END IF;
7975:
7976: FOR d IN Get_Delivery_Lines (p_delivery_tab(j)) LOOP
7990: WSH_DEBUG_SV.log(l_module_name,'l_del_detail_tab.count: ', l_del_detail_tab.count );
7991: END IF;
7992: IF l_del_detail_tab.count = 0 THEN
7993:
7994: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
7995:
7996: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_AUTOPACK_NULL');
7997: --
7998: IF l_debug_on THEN
8000: END IF;
8001: --
8002: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_tab(j));
8003: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
8004: WSH_UTIL_CORE.Add_Message(l_ret_sts,l_module_name);
8005: ELSE
8006:
8007: --
8008: IF l_debug_on THEN
8019:
8020: IF l_debug_on THEN
8021: WSH_DEBUG_SV.log(l_module_name,'Return status from wsh_container_actions.Auto_Pack_Lines -',l_return_status);
8022: END IF;
8023: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8024: --dbms_output.put_line('autopack lines failed');
8025: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8026: ELSE
8027: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8021: WSH_DEBUG_SV.log(l_module_name,'Return status from wsh_container_actions.Auto_Pack_Lines -',l_return_status);
8022: END IF;
8023: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8024: --dbms_output.put_line('autopack lines failed');
8025: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8026: ELSE
8027: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8028: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
8029: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN -- Bug#2903864 - Start
8023: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8024: --dbms_output.put_line('autopack lines failed');
8025: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8026: ELSE
8027: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8028: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
8029: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN -- Bug#2903864 - Start
8030: IF (x_cont_instance_tab IS NULL) THEN
8031: x_cont_instance_tab := l_cont_instance_tab;
8024: --dbms_output.put_line('autopack lines failed');
8025: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8026: ELSE
8027: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8028: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
8029: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN -- Bug#2903864 - Start
8030: IF (x_cont_instance_tab IS NULL) THEN
8031: x_cont_instance_tab := l_cont_instance_tab;
8032: ELSE
8025: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8026: ELSE
8027: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8028: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
8029: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN -- Bug#2903864 - Start
8030: IF (x_cont_instance_tab IS NULL) THEN
8031: x_cont_instance_tab := l_cont_instance_tab;
8032: ELSE
8033: FOR i in 1..l_cont_instance_tab.count LOOP
8043: <
8044: IF l_debug_on THEN
8045: WSH_DEBUG_SV.log(l_module_name,'return status for delivery '|| p_delivery_tab(j), l_ret_sts );
8046: END IF;
8047: IF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8048: succ_cnt := succ_cnt + 1;
8049: ELSIF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8050: warn_cnt := warn_cnt + 1;
8051: ELSE
8045: WSH_DEBUG_SV.log(l_module_name,'return status for delivery '|| p_delivery_tab(j), l_ret_sts );
8046: END IF;
8047: IF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8048: succ_cnt := succ_cnt + 1;
8049: ELSIF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8050: warn_cnt := warn_cnt + 1;
8051: ELSE
8052: error_cnt := error_cnt + 1;
8053: END IF;
8056: -- bug 1578527: disallow packing actions in WMS
8057: IF l_wms_count > 0 THEN
8058: IF l_wms_count = p_delivery_tab.count THEN
8059: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_PACK_NOT_ALLOWED');
8060: WSH_UTIL_CORE.Add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8061: ELSE
8062: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_RECORDS_NOT_PACKED');
8063: FND_MESSAGE.SET_TOKEN('COUNT', l_wms_count);
8064: WSH_UTIL_CORE.Add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8060: WSH_UTIL_CORE.Add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8061: ELSE
8062: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_RECORDS_NOT_PACKED');
8063: FND_MESSAGE.SET_TOKEN('COUNT', l_wms_count);
8064: WSH_UTIL_CORE.Add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8065: END IF;
8066: END IF;
8067:
8068: /* H integration: Pricing integration csun
8081:
8082: IF l_debug_on THEN
8083: WSH_DEBUG_SV.log(l_module_name,'Return status from WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required -',l_return_status);
8084: END IF;
8085: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8086: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8087: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8088: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8089: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
8082: IF l_debug_on THEN
8083: WSH_DEBUG_SV.log(l_module_name,'Return status from WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required -',l_return_status);
8084: END IF;
8085: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8086: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8087: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8088: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8089: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
8090: --IF l_debug_on THEN
8083: WSH_DEBUG_SV.log(l_module_name,'Return status from WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required -',l_return_status);
8084: END IF;
8085: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8086: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8087: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8088: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8089: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
8090: --IF l_debug_on THEN
8091: -- WSH_DEBUG_SV.pop(l_module_name);
8085: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8086: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8087: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8088: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8089: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
8090: --IF l_debug_on THEN
8091: -- WSH_DEBUG_SV.pop(l_module_name);
8092: --END IF;
8093: --return; LPN CONV. rv
8115: IF l_debug_on THEN
8116: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
8117: END IF;
8118: --
8119: WSH_UTIL_CORE.API_POST_CALL
8120: (
8121: p_return_status => l_return_status,
8122: x_num_warnings => warn_cnt,
8123: x_num_errors => error_cnt,
8128: -- LPN CONV. rv
8129: --
8130:
8131: IF warn_cnt > 0 THEN
8132: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8133: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_WARN');
8134: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
8135: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8136: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8133: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_WARN');
8134: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
8135: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8136: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8137: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8138:
8139: ELSIF error_cnt > 0 THEN
8140: IF succ_cnt > 0 THEN
8141: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8137: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8138:
8139: ELSIF error_cnt > 0 THEN
8140: IF succ_cnt > 0 THEN
8141: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8142: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_WARN');
8143: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
8144: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8145: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8142: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_WARN');
8143: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
8144: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8145: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8146: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8147: ELSE
8148: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8149: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ERROR');
8150: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8144: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
8145: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
8146: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8147: ELSE
8148: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8149: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ERROR');
8150: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8151: END IF;
8152: ELSIF succ_cnt > 0 THEN
8146: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8147: ELSE
8148: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8149: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ERROR');
8150: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8151: END IF;
8152: ELSIF succ_cnt > 0 THEN
8153: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8154: ELSE
8149: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ERROR');
8150: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8151: END IF;
8152: ELSIF succ_cnt > 0 THEN
8153: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8154: ELSE
8155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8156: END IF;
8157:
8151: END IF;
8152: ELSIF succ_cnt > 0 THEN
8153: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8154: ELSE
8155: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8156: END IF;
8157:
8158: IF l_debug_on THEN
8159: WSH_DEBUG_SV.pop(l_module_name);
8180: --
8181: IF l_debug_on THEN
8182: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
8183: END IF;
8184: 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
8185: x_return_status := l_return_status;
8186: END IF;
8187: --}
8188: END IF;
8194: END IF;
8195:
8196: WHEN Others THEN
8197: --
8198: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Auto_Pack_Delivery',l_module_name);
8199: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8200:
8201: IF l_debug_on THEN
8202: 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);
8195:
8196: WHEN Others THEN
8197: --
8198: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Auto_Pack_Delivery',l_module_name);
8199: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8200:
8201: IF l_debug_on THEN
8202: 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);
8203: END IF;
8259: */
8260:
8261:
8262: PROCEDURE Pack_Multi (
8263: p_cont_tab IN WSH_UTIL_CORE.id_tab_type,
8264: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
8265: p_pack_mode IN VARCHAR2,
8266: p_split_pc IN NUMBER,
8267: x_pack_status OUT NOCOPY VARCHAR2,
8260:
8261:
8262: PROCEDURE Pack_Multi (
8263: p_cont_tab IN WSH_UTIL_CORE.id_tab_type,
8264: p_del_detail_tab IN WSH_UTIL_CORE.id_tab_type,
8265: p_pack_mode IN VARCHAR2,
8266: p_split_pc IN NUMBER,
8267: x_pack_status OUT NOCOPY VARCHAR2,
8268: x_return_status OUT NOCOPY VARCHAR2) IS
8325: l_cont_avail_pc NUMBER;
8326: l_cont_self_tare NUMBER;
8327: l_split_qty NUMBER;
8328: l_split_qty2 NUMBER;
8329: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8330:
8331: l_tmp_cont_gr NUMBER;
8332: l_tmp_cont_net NUMBER;
8333: l_tmp_cont_vol NUMBER;
8340: l_tmp_det_vol NUMBER;
8341:
8342: l_det_pack_sts VARCHAR2(30);
8343:
8344: l_tmp_det_tab WSH_UTIL_CORE.id_tab_type;
8345:
8346: l_cont_tab Cont_Rec_Table;
8347: l_det_tab Detail_Rec_Table;
8348:
8371: l_fill_status VARCHAR2(1);
8372:
8373: /* H projects: pricing integration csun */
8374: m NUMBER := 0;
8375: l_detail_rows WSH_UTIL_CORE.id_tab_type;
8376:
8377: -- for Load Tender
8378: l_trip_id_tab wsh_util_core.id_tab_type;
8379:
8374: m NUMBER := 0;
8375: l_detail_rows WSH_UTIL_CORE.id_tab_type;
8376:
8377: -- for Load Tender
8378: l_trip_id_tab wsh_util_core.id_tab_type;
8379:
8380: -- bug 3562797 jckwok
8381: l_process_flag VARCHAR2(1);
8382: l_fill_pc_basis VARCHAR2(1);
8411: e_return_excp EXCEPTION;
8412: -- LPN CONV. rv
8413:
8414: BEGIN
8415: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
8416: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
8417: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
8418: END IF;
8419: --
8412: -- LPN CONV. rv
8413:
8414: BEGIN
8415: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
8416: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
8417: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
8418: END IF;
8419: --
8420: --
8413:
8414: BEGIN
8415: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
8416: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
8417: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
8418: END IF;
8419: --
8420: --
8421: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8433: END IF;
8434: --
8435: IF p_cont_tab.count = 0 OR p_del_detail_tab.count = 0 THEN
8436: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
8437: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8438: x_pack_status := 'Error';
8439: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8440: --
8441: --Bugfix 4070732 {
8435: IF p_cont_tab.count = 0 OR p_del_detail_tab.count = 0 THEN
8436: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
8437: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8438: x_pack_status := 'Error';
8439: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8440: --
8441: --Bugfix 4070732 {
8442: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8443: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8438: x_pack_status := 'Error';
8439: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8440: --
8441: --Bugfix 4070732 {
8442: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8443: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8444: IF l_debug_on THEN
8445: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8446: END IF;
8439: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
8440: --
8441: --Bugfix 4070732 {
8442: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8443: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8444: IF l_debug_on THEN
8445: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8446: END IF;
8447:
8441: --Bugfix 4070732 {
8442: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8443: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8444: IF l_debug_on THEN
8445: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8446: END IF;
8447:
8448: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8449: x_return_status => l_tmp_return_status);
8444: IF l_debug_on THEN
8445: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8446: END IF;
8447:
8448: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8449: x_return_status => l_tmp_return_status);
8450:
8451:
8452: IF l_debug_on THEN
8451:
8452: IF l_debug_on THEN
8453: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8454: END IF;
8455: /*wsh_util_core.api_post_call
8456: (
8457: p_return_status => l_return_status,
8458: x_num_warnings => l_num_warnings,
8459: x_num_errors => l_num_errors
8458: x_num_warnings => l_num_warnings,
8459: x_num_errors => l_num_errors
8460: );
8461: */
8462: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8463: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8464: END IF;
8465: END IF;
8466: END IF;
8459: x_num_errors => l_num_errors
8460: );
8461: */
8462: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8463: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8464: END IF;
8465: END IF;
8466: END IF;
8467: --}
8522: IF l_debug_on THEN
8523: WSH_DEBUG_SV.log(l_module_name,'return status-', x_return_status);
8524: END IF;
8525:
8526: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8527: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8528: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DETAIL_NOT_ASSIGNED');
8529: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8530: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8523: WSH_DEBUG_SV.log(l_module_name,'return status-', x_return_status);
8524: END IF;
8525:
8526: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8527: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8528: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DETAIL_NOT_ASSIGNED');
8529: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8530: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8531: x_pack_status := 'Error';
8526: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8527: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8528: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DETAIL_NOT_ASSIGNED');
8529: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8530: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8531: x_pack_status := 'Error';
8532: END IF;
8533:
8534: END LOOP;
8532: END IF;
8533:
8534: END LOOP;
8535:
8536: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8537: THEN
8538: --Bugfix 4070732 {
8539: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8540: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8535:
8536: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8537: THEN
8538: --Bugfix 4070732 {
8539: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8540: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8541: IF l_debug_on THEN
8542: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8543: END IF;
8536: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8537: THEN
8538: --Bugfix 4070732 {
8539: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8540: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8541: IF l_debug_on THEN
8542: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8543: END IF;
8544:
8538: --Bugfix 4070732 {
8539: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8540: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8541: IF l_debug_on THEN
8542: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8543: END IF;
8544:
8545: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8546: x_return_status => l_tmp_return_status);
8541: IF l_debug_on THEN
8542: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8543: END IF;
8544:
8545: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8546: x_return_status => l_tmp_return_status);
8547:
8548: IF l_debug_on THEN
8549: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8548: IF l_debug_on THEN
8549: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8550: END IF;
8551:
8552: /* wsh_util_core.api_post_call
8553: (
8554: p_return_status => l_return_status,
8555: x_num_warnings => l_num_warnings,
8556: x_num_errors => l_num_errors
8556: x_num_errors => l_num_errors
8557: );
8558: */
8559:
8560: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8561: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8562: END IF;
8563: END IF;
8564: END IF;
8557: );
8558: */
8559:
8560: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8561: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8562: END IF;
8563: END IF;
8564: END IF;
8565: --}
8622: IF Get_Detail_Info%NOTFOUND THEN
8623: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
8624: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8625: x_pack_status := 'Error';
8626: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8627: CLOSE Get_Detail_Info;
8628: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8629: error_cnt := error_cnt + 1;
8630: l_det_tab(j).pack_status := 'Error';
8624: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8625: x_pack_status := 'Error';
8626: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8627: CLOSE Get_Detail_Info;
8628: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8629: error_cnt := error_cnt + 1;
8630: l_det_tab(j).pack_status := 'Error';
8631: exit;
8632: END IF;
8647: IF l_debug_on THEN
8648: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
8649: END IF;
8650:
8651: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8652: --Bugfix 4070732 {
8653: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8654: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8655: IF l_debug_on THEN
8649: END IF;
8650:
8651: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8652: --Bugfix 4070732 {
8653: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8654: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8655: IF l_debug_on THEN
8656: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8657: END IF;
8650:
8651: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8652: --Bugfix 4070732 {
8653: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8654: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8655: IF l_debug_on THEN
8656: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8657: END IF;
8658:
8652: --Bugfix 4070732 {
8653: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8654: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8655: IF l_debug_on THEN
8656: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8657: END IF;
8658:
8659: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8660: x_return_status => l_tmp_return_status);
8655: IF l_debug_on THEN
8656: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8657: END IF;
8658:
8659: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8660: x_return_status => l_tmp_return_status);
8661:
8662:
8663: IF l_debug_on THEN
8663: IF l_debug_on THEN
8664: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8665: END IF;
8666:
8667: /*wsh_util_core.api_post_call
8668: (
8669: p_return_status => l_return_status,
8670: x_num_warnings => l_num_warnings,
8671: x_num_errors => l_num_errors
8672: );
8673: */
8674:
8675: IF
8676: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8677: OR
8678: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8679: THEN --{
8680: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8674:
8675: IF
8676: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8677: OR
8678: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8679: THEN --{
8680: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8681: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8682: THEN
8676: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8677: OR
8678: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8679: THEN --{
8680: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8681: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8682: THEN
8683: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8684: THEN
8677: OR
8678: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8679: THEN --{
8680: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8681: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8682: THEN
8683: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8684: THEN
8685: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8679: THEN --{
8680: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8681: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8682: THEN
8683: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8684: THEN
8685: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8686: ELSIF l_tmp_return_status =
8687: WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8681: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
8682: THEN
8683: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8684: THEN
8685: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8686: ELSIF l_tmp_return_status =
8687: WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8688: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8689: END IF;
8683: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
8684: THEN
8685: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8686: ELSIF l_tmp_return_status =
8687: WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8688: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8689: END IF;
8690: END IF; --}
8691:
8684: THEN
8685: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8686: ELSIF l_tmp_return_status =
8687: WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8688: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8689: END IF;
8690: END IF; --}
8691:
8692: END IF;
8699: raise e_return_excp; -- LPN CONV. rv
8700: END IF;
8701: IF (l_fill_pc_basis = 'N') THEN
8702: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
8703: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8704: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8705: x_pack_status := 'Error';
8706: error_cnt := error_cnt + 1;
8707: l_det_tab(j).pack_status := 'Error';
8700: END IF;
8701: IF (l_fill_pc_basis = 'N') THEN
8702: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
8703: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8704: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8705: x_pack_status := 'Error';
8706: error_cnt := error_cnt + 1;
8707: l_det_tab(j).pack_status := 'Error';
8708: exit;
8720: , x_mtl_system_items_rec => l_item_info
8721: , x_return_status => l_return_status
8722: );
8723:
8724: wsh_util_core.api_post_call
8725: (
8726: p_return_status => l_return_status,
8727: x_num_warnings => l_num_warnings,
8728: x_num_errors => l_num_errors
8774: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
8775: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
8776: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
8777: x_pack_status := 'Error';
8778: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8779: CLOSE Get_Cont_Info;
8780: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8781: cont_err := cont_err + 1;
8782: l_cont_tab(i).pack_status := 'Error';
8776: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
8777: x_pack_status := 'Error';
8778: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8779: CLOSE Get_Cont_Info;
8780: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8781: cont_err := cont_err + 1;
8782: l_cont_tab(i).pack_status := 'Error';
8783: l_tmp_status := 'Error';
8784: GOTO new_container;
8809: IF l_debug_on THEN
8810: WSH_DEBUG_SV.log(l_module_name,'return status ' ,x_return_status);
8811: END IF;
8812:
8813: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8814: --dbms_output.put_line('container wt vol error');
8815:
8816: l_cont_tab(i).pack_status := 'Warning';
8817: --
8823: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
8824: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
8825:
8826:
8827: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
8828: cont_warn := cont_warn + 1;
8829: l_tmp_status := 'Error';
8830: GOTO new_container;
8831: END IF;
8835: IF (l_cont_fill_pc > 100) THEN
8836:
8837: --dbms_output.put_line('cont overpacked');
8838:
8839: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8840: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8841: END IF;
8842:
8843: l_cont_tab(i).pack_status := 'Overpacked';
8836:
8837: --dbms_output.put_line('cont overpacked');
8838:
8839: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8840: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8841: END IF;
8842:
8843: l_cont_tab(i).pack_status := 'Overpacked';
8844: cont_warn := cont_warn + 1;
8870:
8871: IF l_debug_on THEN
8872: WSH_DEBUG_SV.log(l_module_name,'return status ' ,x_return_status);
8873: END IF;
8874: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8875: l_cont_tab(i).pack_status := 'Skipped';
8876: l_det_tab(j).pack_status := 'Error';
8877: error_cnt := error_cnt + 1;
8878: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8874: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8875: l_cont_tab(i).pack_status := 'Skipped';
8876: l_det_tab(j).pack_status := 'Error';
8877: error_cnt := error_cnt + 1;
8878: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8879: l_tmp_status := 'Error';
8880: GOTO new_container;
8881: END IF;
8882:
8900: x_return_status,FALSE);
8901: IF l_debug_on THEN
8902: WSH_DEBUG_SV.log(l_module_name,'return status ' ,x_return_status);
8903: END IF;
8904: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8905: --dbms_output.put_line('could not assign');
8906: l_cont_tab(i).pack_status := 'Skipped';
8907: l_det_tab(j).pack_status := 'Error';
8908: error_cnt := error_cnt + 1;
8905: --dbms_output.put_line('could not assign');
8906: l_cont_tab(i).pack_status := 'Skipped';
8907: l_det_tab(j).pack_status := 'Error';
8908: error_cnt := error_cnt + 1;
8909: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8910: l_return_status := x_return_status;
8911: END IF;
8912:
8913: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8909: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8910: l_return_status := x_return_status;
8911: END IF;
8912:
8913: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8914: l_det_tab(j).pack_status := 'Packed';
8915: l_det_pack_sts := 'Packed';
8916: -- J: W/V Changes
8917: WSH_WV_UTILS.Check_Fill_Pc (
8929:
8930: --dbms_output.put_line('container ' || l_cont_name || ' overpacked ');
8931:
8932:
8933: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8934: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8935: END IF;
8936:
8937: l_cont_tab(i).pack_status := 'Overpacked';
8930: --dbms_output.put_line('container ' || l_cont_name || ' overpacked ');
8931:
8932:
8933: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8934: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8935: END IF;
8936:
8937: l_cont_tab(i).pack_status := 'Overpacked';
8938: cont_warn := cont_warn + 1;
8969: WSH_DEBUG_SV.log(l_module_name,'return status ' ,l_discard_status);
8970: END IF;
8971:
8972: -- bug 1716136: errors likely mean integers are safe values.
8973: IF l_discard_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8974: l_discard_message := FND_MESSAGE.GET;
8975: l_split_qty := FLOOR(l_tmp_split_qty);
8976: END IF;
8977:
8981:
8982: IF (l_split_qty < 0 OR l_split_qty > l_det_pack_qty) THEN
8983: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
8984: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8985: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8986: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8987: l_det_tab(j).pack_status := 'Error';
8988: error_cnt := error_cnt + 1;
8989: exit;
8982: IF (l_split_qty < 0 OR l_split_qty > l_det_pack_qty) THEN
8983: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
8984: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
8985: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8986: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
8987: l_det_tab(j).pack_status := 'Error';
8988: error_cnt := error_cnt + 1;
8989: exit;
8990: END IF;
9012: -- - 2) Changed check condition for lot divisible from 1 to 'N'
9013: IF ( l_lot_divisible_flag = 'N' AND i = cont_count AND l_det_pack_sts = 'Unpacked') THEN
9014: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
9015: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9016: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9017: WSH_UTIL_CORE.Add_Message(l_return_status);
9018: l_det_tab(j).pack_status := 'Error';
9019: error_cnt := error_cnt + 1;
9020: exit;
9013: IF ( l_lot_divisible_flag = 'N' AND i = cont_count AND l_det_pack_sts = 'Unpacked') THEN
9014: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
9015: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9016: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9017: WSH_UTIL_CORE.Add_Message(l_return_status);
9018: l_det_tab(j).pack_status := 'Error';
9019: error_cnt := error_cnt + 1;
9020: exit;
9021: -- HW OPMCONV - 1) Renamed lot_indivisible variable to lot_divisible_flag
9049: IF l_debug_on THEN
9050: WSH_DEBUG_SV.log(l_module_name,'return status,split det id -',x_return_status||l_split_det_id);
9051: END IF;
9052:
9053: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9054: --dbms_output.put_line('error in splitting');
9055: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9056: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9057: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9053: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9054: --dbms_output.put_line('error in splitting');
9055: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9056: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9057: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9058: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9059: l_det_tab(j).pack_status := 'Error';
9060: error_cnt := error_cnt + 1;
9061: exit;
9054: --dbms_output.put_line('error in splitting');
9055: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9056: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9057: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9058: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9059: l_det_tab(j).pack_status := 'Error';
9060: error_cnt := error_cnt + 1;
9061: exit;
9062: END IF;
9086: IF l_debug_on THEN
9087: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
9088: END IF;
9089:
9090: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9091: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9092: l_return_status := x_return_status;
9093: END IF;
9094:
9087: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
9088: END IF;
9089:
9090: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9091: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9092: l_return_status := x_return_status;
9093: END IF;
9094:
9095: l_det_tab(l_tmp_det_count).pack_status := 'Error';
9097: error_cnt := error_cnt + 1;
9098:
9099: END IF;
9100:
9101: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9102: l_det_tab(l_tmp_det_count).pack_status := 'Packed';
9103: l_cont_tab(i).pack_status := 'Packed';
9104: -- J: W/V Changes
9105:
9108: x_fill_status => l_fill_status,
9109: x_return_status => l_return_status);
9110:
9111: IF l_fill_status = 'O' THEN
9112: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9113: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9114: END IF;
9115:
9116: l_cont_tab(i).pack_status := 'Overpacked';
9109: x_return_status => l_return_status);
9110:
9111: IF l_fill_status = 'O' THEN
9112: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9113: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9114: END IF;
9115:
9116: l_cont_tab(i).pack_status := 'Overpacked';
9117: cont_warn := cont_warn + 1;
9186:
9187: IF Get_Detail_Info%NOTFOUND THEN
9188: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
9189: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9190: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9191: CLOSE Get_Detail_Info;
9192: --dbms_output.put_line('error in fetching details for ' || l_det_tab(j).delivery_detail_id);
9193: l_det_tab(j).pack_status := 'Error';
9194: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9190: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9191: CLOSE Get_Detail_Info;
9192: --dbms_output.put_line('error in fetching details for ' || l_det_tab(j).delivery_detail_id);
9193: l_det_tab(j).pack_status := 'Error';
9194: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9195: l_tmp_status := 'Error';
9196: GOTO next_detail;
9197: END IF;
9198:
9211: , x_mtl_system_items_rec => l_item_info
9212: , x_return_status => l_return_status
9213: );
9214:
9215: wsh_util_core.api_post_call
9216: (
9217: p_return_status => l_return_status,
9218: x_num_warnings => l_num_warnings,
9219: x_num_errors => l_num_errors
9246: WSH_DEBUG_SV.log(l_module_name,'return status-',l_discard_status);
9247: END IF;
9248:
9249: -- bug 1716136: errors likely mean integers are safe values.
9250: IF l_discard_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9251: l_discard_message := FND_MESSAGE.GET;
9252: l_split_qty := FLOOR(l_tmp_split_qty);
9253: END IF;
9254: /* Bug 2173615 - added l_split_qty = 0,in case of fractional split example = 0.3 */
9301: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9302: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
9303: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9304: -- x_pack_status := 'Error';
9305: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9306: l_cont_tab(i).pack_status := 'Error';
9307: CLOSE Get_Cont_Info;
9308: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9309: cont_err := cont_err + 1;
9304: -- x_pack_status := 'Error';
9305: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9306: l_cont_tab(i).pack_status := 'Error';
9307: CLOSE Get_Cont_Info;
9308: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9309: cont_err := cont_err + 1;
9310: l_tmp_status := 'Error';
9311: GOTO next_container;
9312: END IF;
9333: -- - 2) Changed check condition for lot divisible from 1 to 'N'
9334: IF ( l_lot_divisible_flag = 'N' AND i = cont_count AND l_det_pack_sts = 'Unpacked') THEN
9335: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
9336: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9337: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9338: WSH_UTIL_CORE.Add_Message(l_return_status);
9339: l_det_tab(j).pack_status := 'Error';
9340: error_cnt := error_cnt + 1;
9341: exit;
9334: IF ( l_lot_divisible_flag = 'N' AND i = cont_count AND l_det_pack_sts = 'Unpacked') THEN
9335: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_IND_SPLIT_PACK');
9336: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9337: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9338: WSH_UTIL_CORE.Add_Message(l_return_status);
9339: l_det_tab(j).pack_status := 'Error';
9340: error_cnt := error_cnt + 1;
9341: exit;
9342: -- HW OPMCONV - 1) Renamed lot_indivisible variable to lot_divisible_flag
9367: WSH_DEBUG_SV.log(l_module_name,'return status',x_return_status);
9368: END IF;
9369: --dbms_output.put_line('...split detail id ' || l_split_det_id);
9370:
9371: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9372: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9373: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9374: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9375: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9370:
9371: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9372: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9373: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9374: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9375: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9376: --dbms_output.put_line('error in splitting details for ' || l_det_tab(j).delivery_detail_id);
9377: error_cnt := error_cnt + 1;
9378: l_det_tab(j).pack_status := 'Error';
9371: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9372: FND_MESSAGE.SET_NAME('WSH','WSH_DET_SPLIT_ERROR');
9373: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9374: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9375: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9376: --dbms_output.put_line('error in splitting details for ' || l_det_tab(j).delivery_detail_id);
9377: error_cnt := error_cnt + 1;
9378: l_det_tab(j).pack_status := 'Error';
9379: exit;
9422: IF l_debug_on THEN
9423: WSH_DEBUG_SV.log(l_module_name,'return status',x_return_status);
9424: END IF;
9425:
9426: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9427: --dbms_output.put_line('error in assigning details for ' || l_tmp_det_tab(1));
9428: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9429: l_return_status := x_return_status;
9430: END IF;
9424: END IF;
9425:
9426: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9427: --dbms_output.put_line('error in assigning details for ' || l_tmp_det_tab(1));
9428: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9429: l_return_status := x_return_status;
9430: END IF;
9431: error_cnt := error_cnt + 1;
9432: l_det_tab(l_tmp_det_count).pack_status := 'Error';
9430: END IF;
9431: error_cnt := error_cnt + 1;
9432: l_det_tab(l_tmp_det_count).pack_status := 'Error';
9433:
9434: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9435: --dbms_output.put_line('assigned line ' || l_tmp_det_tab(1));
9436: l_det_tab(l_tmp_det_count).pack_status := 'Packed';
9437: l_cont_tab(i).pack_status := 'Packed';
9438:
9443: x_return_status => l_return_status);
9444:
9445: IF (l_fill_status = 'O' AND l_cont_item_id IS NOT NULL) THEN
9446:
9447: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9448: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9449: END IF;
9450:
9451: cont_warn := cont_warn + 1;
9444:
9445: IF (l_fill_status = 'O' AND l_cont_item_id IS NOT NULL) THEN
9446:
9447: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9448: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9449: END IF;
9450:
9451: cont_warn := cont_warn + 1;
9452: l_cont_tab(i).pack_status := 'Overpacked';
9452: l_cont_tab(i).pack_status := 'Overpacked';
9453: ELSIF (l_fill_status = 'U'
9454: AND l_cont_item_id IS NOT NULL ) THEN
9455:
9456: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9457: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9458: END IF;
9459:
9460: cont_warn := cont_warn + 1;
9453: ELSIF (l_fill_status = 'U'
9454: AND l_cont_item_id IS NOT NULL ) THEN
9455:
9456: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9457: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9458: END IF;
9459:
9460: cont_warn := cont_warn + 1;
9461: l_cont_tab(i).pack_status := 'Underpacked';
9502: -- packing mode is invalid - did not pack
9503:
9504: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_INVALID_PACK_MODE');
9505: x_pack_status := 'Error';
9506: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9507: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
9508: --Bugfix 4070732 {
9509: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9510: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9503:
9504: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_INVALID_PACK_MODE');
9505: x_pack_status := 'Error';
9506: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9507: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
9508: --Bugfix 4070732 {
9509: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9510: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9511: IF l_debug_on THEN
9505: x_pack_status := 'Error';
9506: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9507: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
9508: --Bugfix 4070732 {
9509: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9510: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9511: IF l_debug_on THEN
9512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9513: END IF;
9506: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9507: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
9508: --Bugfix 4070732 {
9509: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9510: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9511: IF l_debug_on THEN
9512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9513: END IF;
9514:
9508: --Bugfix 4070732 {
9509: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9510: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9511: IF l_debug_on THEN
9512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9513: END IF;
9514:
9515: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9516: x_return_status => l_tmp_return_status);
9511: IF l_debug_on THEN
9512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9513: END IF;
9514:
9515: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9516: x_return_status => l_tmp_return_status);
9517:
9518:
9519: IF l_debug_on THEN
9519: IF l_debug_on THEN
9520: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9521: END IF;
9522:
9523: /*wsh_util_core.api_post_call
9524: (
9525: p_return_status => l_return_status,
9526: x_num_warnings => l_num_warnings,
9527: x_num_errors => l_num_errors
9526: x_num_warnings => l_num_warnings,
9527: x_num_errors => l_num_errors
9528: );
9529: */
9530: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9531: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9532: END IF;
9533: END IF;
9534: END IF;
9527: x_num_errors => l_num_errors
9528: );
9529: */
9530: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9531: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9532: END IF;
9533: END IF;
9534: END IF;
9535: --}
9559: IF l_det_tab(i).pack_status = 'Error' THEN
9560: error_cnt := error_cnt + 1;
9561: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DETAIL_NOT_ASSIGNED');
9562: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(i).delivery_detail_id);
9563: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
9564: ELSE
9565: IF l_det_tab(i).pack_status = 'Unpacked' THEN
9566: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_IGNORED');
9567: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(i).delivery_detail_id);
9564: ELSE
9565: IF l_det_tab(i).pack_status = 'Unpacked' THEN
9566: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_IGNORED');
9567: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(i).delivery_detail_id);
9568: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9569: END IF;
9570: warn_cnt := warn_cnt + 1;
9571: END IF;
9572: ELSE
9583: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',error_cnt);
9584: FND_MESSAGE.SET_TOKEN('WARN_COUNT',warn_cnt);
9585: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
9586: IF error_cnt > 0 THEN
9587: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9588: ELSIF warn_cnt > 0 THEN
9589: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9590: END IF;
9591:
9585: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',succ_cnt);
9586: IF error_cnt > 0 THEN
9587: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9588: ELSIF warn_cnt > 0 THEN
9589: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9590: END IF;
9591:
9592: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9593:
9588: ELSIF warn_cnt > 0 THEN
9589: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9590: END IF;
9591:
9592: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9593:
9594: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9595: x_return_status := l_return_status;
9596: x_pack_status := 'Error';
9590: END IF;
9591:
9592: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9593:
9594: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9595: x_return_status := l_return_status;
9596: x_pack_status := 'Error';
9597: --Bugfix 4070732 {
9598: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9594: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9595: x_return_status := l_return_status;
9596: x_pack_status := 'Error';
9597: --Bugfix 4070732 {
9598: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9599: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9600: IF l_debug_on THEN
9601: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9602: END IF;
9595: x_return_status := l_return_status;
9596: x_pack_status := 'Error';
9597: --Bugfix 4070732 {
9598: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9599: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9600: IF l_debug_on THEN
9601: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9602: END IF;
9603:
9597: --Bugfix 4070732 {
9598: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9599: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9600: IF l_debug_on THEN
9601: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9602: END IF;
9603:
9604: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9605: x_return_status => l_tmp_return_status);
9600: IF l_debug_on THEN
9601: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9602: END IF;
9603:
9604: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9605: x_return_status => l_tmp_return_status);
9606:
9607:
9608: IF l_debug_on THEN
9608: IF l_debug_on THEN
9609: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9610: END IF;
9611:
9612: /*wsh_util_core.api_post_call
9613: (
9614: p_return_status => l_return_status,
9615: x_num_warnings => l_num_warnings,
9616: x_num_errors => l_num_errors
9615: x_num_warnings => l_num_warnings,
9616: x_num_errors => l_num_errors
9617: );
9618: */
9619: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9620: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9621: END IF;
9622: END IF;
9623: END IF;
9616: x_num_errors => l_num_errors
9617: );
9618: */
9619: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9620: X_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9621: END IF;
9622: END IF;
9623: END IF;
9624: --}
9648:
9649: IF l_debug_on THEN
9650: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
9651: END IF;
9652: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9653: x_return_status := l_return_status;
9654: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9655: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
9656: --
9651: END IF;
9652: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9653: x_return_status := l_return_status;
9654: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9655: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
9656: --
9657: --Bugfix 4070732 {
9658: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9659: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9654: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9655: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
9656: --
9657: --Bugfix 4070732 {
9658: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9659: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9660: IF l_debug_on THEN
9661: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9662: END IF;
9655: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
9656: --
9657: --Bugfix 4070732 {
9658: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9659: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9660: IF l_debug_on THEN
9661: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9662: END IF;
9663:
9657: --Bugfix 4070732 {
9658: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9659: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9660: IF l_debug_on THEN
9661: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9662: END IF;
9663:
9664: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9665: x_return_status => l_tmp_return_status);
9660: IF l_debug_on THEN
9661: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9662: END IF;
9663:
9664: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9665: x_return_status => l_tmp_return_status);
9666:
9667:
9668: IF l_debug_on THEN
9668: IF l_debug_on THEN
9669: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9670: END IF;
9671:
9672: /*wsh_util_core.api_post_call
9673: (
9674: p_return_status => l_return_status,
9675: x_num_warnings => l_num_warnings,
9676: x_num_errors => l_num_errors
9676: x_num_errors => l_num_errors
9677: );
9678: */
9679: IF
9680: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9681: OR
9682: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9683: THEN --{
9684: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9678: */
9679: IF
9680: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9681: OR
9682: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9683: THEN --{
9684: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9685: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9686: THEN
9680: (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9681: OR
9682: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9683: THEN --{
9684: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9685: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9686: THEN
9687: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9688: THEN
9681: OR
9682: (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9683: THEN --{
9684: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9685: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9686: THEN
9687: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9688: THEN
9689: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9683: THEN --{
9684: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9685: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9686: THEN
9687: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9688: THEN
9689: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9690: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9691: THEN
9685: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9686: THEN
9687: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9688: THEN
9689: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9690: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9691: THEN
9692: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9693: END IF;
9686: THEN
9687: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9688: THEN
9689: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9690: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9691: THEN
9692: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9693: END IF;
9694: END IF; --}
9688: THEN
9689: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9690: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9691: THEN
9692: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9693: END IF;
9694: END IF; --}
9695: END IF;
9696: END IF;
9709: FOR i IN 1..l_cont_tab.count LOOP
9710: --dbms_output.put_line('container ' || l_cont_tab(i).container_instance_id || ' is ' || l_cont_tab(i).pack_status);
9711: IF l_cont_tab(i).pack_status <> 'Packed' THEN
9712: IF l_cont_tab(i).pack_status = 'Error' THEN
9713: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9714: cont_err := cont_err + 1;
9715: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NOT_PACKED');
9716: --
9717: IF l_debug_on THEN
9719: END IF;
9720: --
9721: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9722: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9723: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9724: ELSIF l_cont_tab(i).pack_status = 'Overpacked' THEN
9725: cont_warn := cont_warn + 1;
9726: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
9727: --
9730: END IF;
9731: --
9732: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9733: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9734: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9735: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9736: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9737: END IF;
9738: ELSIF l_cont_tab(i).pack_status = 'Underpacked' THEN
9731: --
9732: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9733: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9734: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9735: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9736: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9737: END IF;
9738: ELSIF l_cont_tab(i).pack_status = 'Underpacked' THEN
9739: cont_warn := cont_warn + 1;
9732: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9733: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9734: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9735: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9736: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9737: END IF;
9738: ELSIF l_cont_tab(i).pack_status = 'Underpacked' THEN
9739: cont_warn := cont_warn + 1;
9740: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
9744: END IF;
9745: --
9746: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9747: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9748: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9749: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9750: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9751: END IF;
9752: ELSIF l_cont_tab(i).pack_status = 'Warning' THEN
9745: --
9746: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9747: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9748: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9749: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9750: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9751: END IF;
9752: ELSIF l_cont_tab(i).pack_status = 'Warning' THEN
9753: cont_warn := cont_warn + 1;
9746: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9747: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9748: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9749: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9750: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9751: END IF;
9752: ELSIF l_cont_tab(i).pack_status = 'Warning' THEN
9753: cont_warn := cont_warn + 1;
9754: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
9758: END IF;
9759: --
9760: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9761: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9762: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9763:
9764: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9765: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9766: END IF;
9760: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9761: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9762: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9763:
9764: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9765: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9766: END IF;
9767: END IF;
9768: END IF;
9761: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9762: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
9763:
9764: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9765: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9766: END IF;
9767: END IF;
9768: END IF;
9769:
9790: IF l_debug_on THEN
9791: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
9792: END IF;
9793: --
9794: WSH_UTIL_CORE.API_POST_CALL
9795: (
9796: p_return_status => l_return_status,
9797: x_num_warnings => cont_warn,
9798: x_num_errors => cont_err,
9807: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_PACK_WARN');
9808: FND_MESSAGE.SET_TOKEN('CONT_WARN',cont_warn);
9809: FND_MESSAGE.SET_TOKEN('CONT_ERR',cont_err);
9810: IF cont_err > 0 THEN
9811: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9812: ELSE
9813: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9814: END IF;
9815: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9809: FND_MESSAGE.SET_TOKEN('CONT_ERR',cont_err);
9810: IF cont_err > 0 THEN
9811: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9812: ELSE
9813: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9814: END IF;
9815: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9816: END IF;
9817:
9811: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9812: ELSE
9813: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9814: END IF;
9815: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9816: END IF;
9817:
9818: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9819: x_return_status := l_return_status;
9814: END IF;
9815: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
9816: END IF;
9817:
9818: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9819: x_return_status := l_return_status;
9820: ELSE
9821: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9822: END IF;
9817:
9818: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9819: x_return_status := l_return_status;
9820: ELSE
9821: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9822: END IF;
9823:
9824: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9825: x_pack_status := 'Success';
9820: ELSE
9821: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9822: END IF;
9823:
9824: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9825: x_pack_status := 'Success';
9826: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9827: x_pack_status := 'Error';
9828: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9822: END IF;
9823:
9824: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9825: x_pack_status := 'Success';
9826: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9827: x_pack_status := 'Error';
9828: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9829: x_pack_status := 'Warning';
9830: l_num_warnings := nvl(l_num_warnings,0 ) + 1;
9824: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9825: x_pack_status := 'Success';
9826: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9827: x_pack_status := 'Error';
9828: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
9829: x_pack_status := 'Warning';
9830: l_num_warnings := nvl(l_num_warnings,0 ) + 1;
9831: END IF;
9832:
9835: x_pack_status := 'Success';
9836: END IF;
9837:
9838: --Bugfix 4070732 {
9839: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9840: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9841: IF l_debug_on THEN
9842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9843: END IF;
9836: END IF;
9837:
9838: --Bugfix 4070732 {
9839: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9840: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9841: IF l_debug_on THEN
9842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9843: END IF;
9844:
9838: --Bugfix 4070732 {
9839: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9840: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9841: IF l_debug_on THEN
9842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9843: END IF;
9844:
9845: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
9846: x_return_status => l_tmp_return_status);
9841: IF l_debug_on THEN
9842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9843: END IF;
9844:
9845: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
9846: x_return_status => l_tmp_return_status);
9847: IF l_debug_on THEN
9848: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9849: END IF;
9847: IF l_debug_on THEN
9848: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9849: END IF;
9850:
9851: /*wsh_util_core.api_post_call
9852: (
9853: p_return_status => l_return_status,
9854: x_num_warnings => l_num_warnings,
9855: x_num_errors => l_num_errors
9854: x_num_warnings => l_num_warnings,
9855: x_num_errors => l_num_errors
9856: );
9857: */
9858: IF (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9859: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9860: THEN --{
9861: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9862: x_pack_status := 'Error';
9855: x_num_errors => l_num_errors
9856: );
9857: */
9858: IF (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9859: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9860: THEN --{
9861: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9862: x_pack_status := 'Error';
9863: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9857: */
9858: IF (l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9859: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9860: THEN --{
9861: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9862: x_pack_status := 'Error';
9863: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9864: THEN
9865: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9859: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
9860: THEN --{
9861: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9862: x_pack_status := 'Error';
9863: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9864: THEN
9865: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9867: x_pack_status := 'Error';
9861: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9862: x_pack_status := 'Error';
9863: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9864: THEN
9865: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9867: x_pack_status := 'Error';
9868: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9869: THEN
9862: x_pack_status := 'Error';
9863: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
9864: THEN
9865: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9867: x_pack_status := 'Error';
9868: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9869: THEN
9870: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9864: THEN
9865: IF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9867: x_pack_status := 'Error';
9868: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9869: THEN
9870: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9871: x_pack_status := 'Warning';
9872: END IF;
9866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9867: x_pack_status := 'Error';
9868: ELSIF l_tmp_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
9869: THEN
9870: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9871: x_pack_status := 'Warning';
9872: END IF;
9873: END IF; --}
9874:
9908: IF l_debug_on THEN
9909: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
9910: END IF;
9911: --
9912: 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
9913: x_return_status := l_return_status;
9914: END IF;
9915: --}
9916: END IF;
9922: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
9923: END IF;
9924: WHEN Others THEN
9925: --
9926: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Multi',l_module_name);
9927: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9928: --
9929: IF l_debug_on THEN
9930: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9923: END IF;
9924: WHEN Others THEN
9925: --
9926: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Multi',l_module_name);
9927: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9928: --
9929: IF l_debug_on THEN
9930: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9931: END IF;
9959: -- LPN CONV. rv
9960: --
9961:
9962: --Bugfix 4070732 {
9963: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9964: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9965: IF l_debug_on THEN
9966: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9967: END IF;
9960: --
9961:
9962: --Bugfix 4070732 {
9963: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9964: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9965: IF l_debug_on THEN
9966: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9967: END IF;
9968:
9962: --Bugfix 4070732 {
9963: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9964: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9965: IF l_debug_on THEN
9966: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9967: END IF;
9968:
9969: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9970: x_return_status => l_return_status);
9965: IF l_debug_on THEN
9966: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9967: END IF;
9968:
9969: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9970: x_return_status => l_return_status);
9971:
9972:
9973: IF l_debug_on THEN
9973: IF l_debug_on THEN
9974: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
9975: END IF;
9976:
9977: /*wsh_util_core.api_post_call
9978: (
9979: p_return_status => l_return_status,
9980: x_num_warnings => l_num_warnings,
9981: x_num_errors => l_num_errors
10052: END IF;
10053: --
10054: IF p_split_detail_id IS NULL THEN
10055: -- nothing split, ergo nothing to update...
10056: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10057: --
10058: IF l_debug_on THEN
10059: WSH_DEBUG_SV.pop(l_module_name);
10060: END IF;
10069: IF Get_Ship_Qty%NOTFOUND THEN
10070: CLOSE Get_Ship_Qty;
10071: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10072: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
10073: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10074: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10075: --
10076: IF l_debug_on THEN
10077: WSH_DEBUG_SV.pop(l_module_name);
10070: CLOSE Get_Ship_Qty;
10071: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10072: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
10073: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10074: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10075: --
10076: IF l_debug_on THEN
10077: WSH_DEBUG_SV.pop(l_module_name);
10078: END IF;
10084: CLOSE Get_Ship_Qty;
10085: END IF;
10086:
10087: IF l_shp_qty = -99 THEN
10088: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10089: --
10090: IF l_debug_on THEN
10091: WSH_DEBUG_SV.pop(l_module_name);
10092: END IF;
10104: IF Get_Ship_Qty%NOTFOUND THEN
10105: CLOSE Get_Ship_Qty;
10106: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10107: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_split_detail_id);
10108: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10109: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10110: --
10111: IF l_debug_on THEN
10112: WSH_DEBUG_SV.pop(l_module_name);
10105: CLOSE Get_Ship_Qty;
10106: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10107: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_split_detail_id);
10108: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10109: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10110: --
10111: IF l_debug_on THEN
10112: WSH_DEBUG_SV.pop(l_module_name);
10113: END IF;
10131:
10132: IF SQL%NOTFOUND THEN
10133: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10134: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
10135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10136: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10137: --
10138: IF l_debug_on THEN
10139: WSH_DEBUG_SV.pop(l_module_name);
10132: IF SQL%NOTFOUND THEN
10133: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10134: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
10135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10136: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10137: --
10138: IF l_debug_on THEN
10139: WSH_DEBUG_SV.pop(l_module_name);
10140: END IF;
10148:
10149: IF SQL%NOTFOUND THEN
10150: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10151: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_split_detail_id);
10152: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10153: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10154: --
10155: IF l_debug_on THEN
10156: WSH_DEBUG_SV.pop(l_module_name);
10149: IF SQL%NOTFOUND THEN
10150: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
10151: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_split_detail_id);
10152: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10153: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10154: --
10155: IF l_debug_on THEN
10156: WSH_DEBUG_SV.pop(l_module_name);
10157: END IF;
10158: --
10159: return;
10160: END IF;
10161:
10162: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10163:
10164:
10165: --
10166: IF l_debug_on THEN
10169: --
10170: EXCEPTION
10171:
10172: WHEN Others THEN
10173: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Shipped_Qty',l_module_name);
10174: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10175:
10176: --
10177: IF l_debug_on THEN
10170: EXCEPTION
10171:
10172: WHEN Others THEN
10173: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Shipped_Qty',l_module_name);
10174: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10175:
10176: --
10177: IF l_debug_on THEN
10178: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10383: END IF;
10384: --
10385: EXCEPTION
10386: WHEN Others THEN
10387: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Container',l_module_name);
10388: x_return_status := C_UNEXP_ERROR_STATUS;
10389:
10390: --
10391: IF l_debug_on THEN
10414: -- Master container informations which is used when Auto_pack Master
10415: -- action performed on delivery detail lines
10416:
10417: PROCEDURE Validate_Container_For_Pack(
10418: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
10419: p_cont_info_tab IN wsh_util_core.id_tab_type,
10420: p_mast_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
10421: x_line_cont_tab OUT NOCOPY wsh_container_actions.cont_info_tab,
10422: x_error_cnt OUT NOCOPY NUMBER,
10415: -- action performed on delivery detail lines
10416:
10417: PROCEDURE Validate_Container_For_Pack(
10418: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
10419: p_cont_info_tab IN wsh_util_core.id_tab_type,
10420: p_mast_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
10421: x_line_cont_tab OUT NOCOPY wsh_container_actions.cont_info_tab,
10422: x_error_cnt OUT NOCOPY NUMBER,
10423: x_warn_cnt OUT NOCOPY NUMBER,
10696: IF ((NVL(line_cont_rec.gross_weight,0) = 0) OR
10697: (NVL(line_cont_rec.volume,0) = 0)) THEN
10698: --dbms_output.put_line('Weight or Volume is NULL or 0');
10699: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
10700: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10701: error_cnt := error_cnt + 1;
10702: --dbms_output.put_line('Skipping this cont');
10703: goto next_cont;
10704: END IF;
10774:
10775: IF (NVL(line_cont_rec.max_load_qty,0) <= 0) THEN
10776: --dbms_output.put_line('Max Load Qty is null or <= 0. Skipping this container');
10777: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
10778: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10779: error_cnt := error_cnt + 1;
10780: goto next_cont;
10781: END IF;
10782:
10833: IF (NVL(line_cont_rec.gross_weight,0) = 0) THEN
10834: --dbms_output.put_line('Weight is NULL or 0');
10835: --BUG 3577115
10836: --FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_ERROR');
10837: l_item_name := WSH_UTIL_CORE.Get_Item_Name(line_cont_rec.inventory_item_id, line_cont_rec.organization_id);
10838: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_WEIGHT_VOLUME');
10839: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_item_name);
10840: --BUG 3577115
10841: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10837: l_item_name := WSH_UTIL_CORE.Get_Item_Name(line_cont_rec.inventory_item_id, line_cont_rec.organization_id);
10838: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_WEIGHT_VOLUME');
10839: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_item_name);
10840: --BUG 3577115
10841: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10842: error_cnt := error_cnt + 1;
10843: --dbms_output.put_line('Skipping this Cont');
10844: goto next_cont;
10845: END IF;
10849: IF (NVL(line_cont_rec.volume,0) = 0) THEN
10850: --dbms_output.put_line('Volume is NULL or 0');
10851: --BUG 3577115
10852: --FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_VOL_ERROR');
10853: l_item_name := WSH_UTIL_CORE.Get_Item_Name(line_cont_rec.inventory_item_id, line_cont_rec.organization_id);
10854: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_WEIGHT_VOLUME');
10855: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_item_name);
10856: --BUG 3577115
10857: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10853: l_item_name := WSH_UTIL_CORE.Get_Item_Name(line_cont_rec.inventory_item_id, line_cont_rec.organization_id);
10854: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NULL_WEIGHT_VOLUME');
10855: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_item_name);
10856: --BUG 3577115
10857: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10858: error_cnt := error_cnt + 1;
10859: --dbms_output.put_line('Skipping this Cont');
10860: goto next_cont;
10861: END IF;
10936: (line_cont_rec.fill_pc_basis = 'V' AND (line_cont_rec.converted_vol > l_mtl_max_vol))) THEN
10937: --dbms_output.put_line('Indivisible flag is Y and Preferred Mast Cont cannot hold atleast 1 piece');
10938: -- Bug#: 2503937 - New Error Message
10939: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MAX_WT_VOL_ERROR');
10940: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
10941: error_cnt := error_cnt + 1;
10942: --dbms_output.put_line('Skipping this Cont');
10943: goto next_cont;
10944: END IF;
10977: END IF;
10978: IF (Get_Cont_Item_Load%ISOPEN) THEN
10979: CLOSE Get_Cont_Item_Load;
10980: END IF;
10981: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Container_For_Pack',l_module_name);
10982: --
10983: IF l_debug_on THEN
10984: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10985: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11021: ------------------------------------------------------------------------------
11022: */
11023:
11024: PROCEDURE Auto_Pack_Conts (
11025: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
11026: p_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
11027: p_cont_detail_tab IN WSH_UTIL_CORE.id_tab_type,
11028: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
11029: x_return_status OUT NOCOPY VARCHAR2) IS
11023:
11024: PROCEDURE Auto_Pack_Conts (
11025: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
11026: p_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
11027: p_cont_detail_tab IN WSH_UTIL_CORE.id_tab_type,
11028: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
11029: x_return_status OUT NOCOPY VARCHAR2) IS
11030:
11031: line_cont_rec wsh_container_actions.cont_info;
11024: PROCEDURE Auto_Pack_Conts (
11025: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
11026: p_cont_info_tab IN wsh_container_actions.empty_cont_info_tab,
11027: p_cont_detail_tab IN WSH_UTIL_CORE.id_tab_type,
11028: x_cont_instance_tab IN OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
11029: x_return_status OUT NOCOPY VARCHAR2) IS
11030:
11031: line_cont_rec wsh_container_actions.cont_info;
11032: line_cont_tab wsh_container_actions.cont_info_tab;
11030:
11031: line_cont_rec wsh_container_actions.cont_info;
11032: line_cont_tab wsh_container_actions.cont_info_tab;
11033:
11034: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
11035: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
11036: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
11037: l_return_status VARCHAR2(1);
11038: l_cont_instance_id NUMBER;
11031: line_cont_rec wsh_container_actions.cont_info;
11032: line_cont_tab wsh_container_actions.cont_info_tab;
11033:
11034: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
11035: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
11036: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
11037: l_return_status VARCHAR2(1);
11038: l_cont_instance_id NUMBER;
11039: l_row_id VARCHAR2(30);
11032: line_cont_tab wsh_container_actions.cont_info_tab;
11033:
11034: l_group_id_temp_tab WSH_UTIL_CORE.id_tab_type;
11035: l_group_id_tab WSH_UTIL_CORE.id_tab_type;
11036: l_del_row_tab WSH_UTIL_CORE.id_tab_type;
11037: l_return_status VARCHAR2(1);
11038: l_cont_instance_id NUMBER;
11039: l_row_id VARCHAR2(30);
11040: l_gross_weight NUMBER;
11050: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
11051: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
11052: l_action_rec wsh_delivery_autocreate.action_rec_type;
11053: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
11054: l_matched_entities wsh_util_core.id_tab_type;
11055: l_out_rec wsh_delivery_autocreate.out_rec_type;
11056:
11057:
11058: i NUMBER;
11074:
11075: -- K LPN CONV. rv
11076: l_wms_org VARCHAR2(10) := 'N';
11077: l_sync_tmp_rec wsh_glbl_var_strct_grp.sync_tmp_rec_type;
11078: l_cont_tab wsh_util_core.id_tab_type;
11079: l_lpn_unit_weight NUMBER;
11080: l_lpn_unit_volume NUMBER;
11081: l_lpn_weight_uom_code VARCHAR2(100);
11082: l_lpn_volume_uom_code VARCHAR2(100);
11122: IF (p_cont_detail_tab.COUNT = 0) THEN
11123: --dbms_output.put_line('p_cont_detail_tab count is 0');
11124: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CONT_ASSG_NULL');
11125: x_return_status := C_ERROR_STATUS;
11126: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11127: --
11128: IF l_debug_on THEN
11129: WSH_DEBUG_SV.pop(l_module_name);
11130: END IF;
11172: IF (l_return_status = C_ERROR_STATUS) OR
11173: (l_return_status = C_UNEXP_ERROR_STATUS) THEN
11174: --dbms_output.put_line('WSH_DELIVERY_AUTOCREATE.autocreate_deliveries returned '||l_return_status);
11175: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
11176: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
11177: x_return_status := l_return_status;
11178: --
11179: IF l_debug_on THEN
11180: WSH_DEBUG_SV.pop(l_module_name);
11189: cnt := p_group_id_tab.FIRST;
11190: IF ((cnt IS NULL) OR (p_group_id_tab.COUNT <> p_cont_detail_tab.count)) THEN
11191: x_return_status := C_ERROR_STATUS;
11192: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
11193: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11194: --
11195: IF l_debug_on THEN
11196: WSH_DEBUG_SV.pop(l_module_name);
11197: END IF;
11230: --
11231: IF (l_fill_pc_warn_count = p_cont_detail_tab.count) THEN
11232: x_return_status := C_ERROR_STATUS;
11233: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
11234: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11235: IF l_debug_on THEN
11236: WSH_DEBUG_SV.pop(l_module_name);
11237: END IF;
11238: RETURN;
11240: IF (l_return_status <> C_ERROR_STATUS) THEN
11241: x_return_status := C_WARNING_STATUS;
11242: warn_cnt := warn_cnt + 1;
11243: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
11244: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11245: END IF;
11246: END IF;
11247: -- end of bug 3562797 jckwok
11248:
11319:
11320: IF l_return_status <> C_SUCCESS_STATUS THEN
11321: --dbms_output.put_line('Container Creation failed for index '|| cnt);
11322: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
11323: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
11324: error_cnt := error_cnt + 1;
11325: ELSE
11326: l_cont_instance_id := l_cont_tab(1);
11327: g_new_container_tab(cnt).cont_instance_id := l_cont_instance_id;
11385: IF l_debug_on THEN
11386: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
11387: END IF;
11388: --
11389: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11390: --
11391: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11392: warn_cnt := warn_cnt + 1;
11393: ELSE
11387: END IF;
11388: --
11389: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11390: --
11391: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11392: warn_cnt := warn_cnt + 1;
11393: ELSE
11394: --
11395: error_cnt := error_cnt + 1;
11413: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
11414: END IF;
11415: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_instance_id);
11416: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11417: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11418: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11419: IF l_debug_on THEN
11420: WSH_DEBUG_SV.pop(l_module_name);
11421: END IF;
11414: END IF;
11415: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_instance_id);
11416: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11417: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11418: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11419: IF l_debug_on THEN
11420: WSH_DEBUG_SV.pop(l_module_name);
11421: END IF;
11422: return;
11467: x_return_status := C_WARNING_STATUS;
11468: ELSE
11469: x_return_status := C_ERROR_STATUS;
11470: END IF;
11471: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11472: ELSIF (warn_cnt > 0 OR cont_warn > 0) THEN
11473: x_return_status := C_WARNING_STATUS;
11474: IF cont_warn > 0 THEN
11475: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_PACK_WARN');
11474: IF cont_warn > 0 THEN
11475: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_PACK_WARN');
11476: FND_MESSAGE.SET_TOKEN('CONT_WARN',cont_warn);
11477: FND_MESSAGE.SET_TOKEN('CONT_ERR',0);
11478: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11479: END IF;
11480: ELSE
11481: x_return_status := C_SUCCESS_STATUS;
11482: END IF;
11494: END IF;
11495: --
11496: EXCEPTION
11497: WHEN Others THEN
11498: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Auto_Pack_conts',l_module_name);
11499: x_return_status := C_UNEXP_ERROR_STATUS;
11500:
11501: --
11502: IF l_debug_on THEN
11632: --dbms_output.put_line('invalid detail id ' || p_delivery_detail_id);
11633: CLOSE Get_Detail_Attr;
11634: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
11635: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
11636: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11637: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11638: --
11639: IF l_debug_on THEN
11640: WSH_DEBUG_SV.pop(l_module_name);
11633: CLOSE Get_Detail_Attr;
11634: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
11635: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
11636: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11637: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11638: --
11639: IF l_debug_on THEN
11640: WSH_DEBUG_SV.pop(l_module_name);
11641: END IF;
11673: IF Get_Del_Attr%NOTFOUND THEN
11674: CLOSE Get_Del_Attr;
11675: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DELIVERY');
11676: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_id);
11677: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11678: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11679: --
11680: IF l_debug_on THEN
11681: WSH_DEBUG_SV.pop(l_module_name);
11674: CLOSE Get_Del_Attr;
11675: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DELIVERY');
11676: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_id);
11677: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11678: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11679: --
11680: IF l_debug_on THEN
11681: WSH_DEBUG_SV.pop(l_module_name);
11682: END IF;
11689: END IF;
11690:
11691: ELSE
11692: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NO_ATTR_ERROR');
11693: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11694: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11695: --
11696: IF l_debug_on THEN
11697: WSH_DEBUG_SV.pop(l_module_name);
11690:
11691: ELSE
11692: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NO_ATTR_ERROR');
11693: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11694: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11695: --
11696: IF l_debug_on THEN
11697: WSH_DEBUG_SV.pop(l_module_name);
11698: END IF;
11733: IF l_debug_on THEN
11734: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
11735: END IF;
11736: --
11737: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
11738: --
11739: x_return_status := l_return_status;
11740: --
11741: IF l_debug_on THEN
11744: END IF;
11745: --
11746: return;
11747: --
11748: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
11749: --
11750: l_num_warnings := l_num_warnings + 1;
11751: --
11752: END IF;
11781: END IF;
11782: --
11783: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
11784: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11785: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11786: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11787: --
11788: IF l_debug_on THEN
11789: WSH_DEBUG_SV.pop(l_module_name);
11782: --
11783: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
11784: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11785: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11786: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11787: --
11788: IF l_debug_on THEN
11789: WSH_DEBUG_SV.pop(l_module_name);
11790: END IF;
11791: --
11792: return;
11793: END IF;
11794:
11795: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11796:
11797: IF l_num_warnings > 0 THEN
11798: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11799: END IF;
11794:
11795: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11796:
11797: IF l_num_warnings > 0 THEN
11798: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11799: END IF;
11800:
11801:
11802: --
11806: --
11807: EXCEPTION
11808:
11809: WHEN Others THEN
11810: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Cont_Attributes',l_module_name);
11811: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11812:
11813: --
11814: IF l_debug_on THEN
11807: EXCEPTION
11808:
11809: WHEN Others THEN
11810: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Cont_Attributes',l_module_name);
11811: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11812:
11813: --
11814: IF l_debug_on THEN
11815: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11902: IF Get_Detail_Attr%NOTFOUND THEN
11903: CLOSE Get_Detail_Attr;
11904: --dbms_output.put_line('no detail found for ' || p_container_instance_id);
11905: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
11906: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11907: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11908: x_attr_flag := 'N';
11909: --
11910: IF l_debug_on THEN
11903: CLOSE Get_Detail_Attr;
11904: --dbms_output.put_line('no detail found for ' || p_container_instance_id);
11905: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
11906: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11907: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11908: x_attr_flag := 'N';
11909: --
11910: IF l_debug_on THEN
11911: WSH_DEBUG_SV.pop(l_module_name);
11952: END IF;
11953:
11954: x_attr_flag := l_attr_flag;
11955:
11956: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11957:
11958: --
11959: IF l_debug_on THEN
11960: WSH_DEBUG_SV.pop(l_module_name);
11962: --
11963: EXCEPTION
11964:
11965: WHEN Others THEN
11966: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Check_Cont_Attributes',l_module_name);
11967: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11968:
11969: --
11970: IF l_debug_on THEN
11963: EXCEPTION
11964:
11965: WHEN Others THEN
11966: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Check_Cont_Attributes',l_module_name);
11967: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11968:
11969: --
11970: IF l_debug_on THEN
11971: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12012:
12013: l_cont_name VARCHAR2(30);
12014: l_cont_flag VARCHAR2(1);
12015:
12016: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12017:
12018: --
12019: l_debug_on BOOLEAN;
12020: --
12091: IF l_debug_on THEN
12092: WSH_DEBUG_SV.log(l_module_name,'return status-',l_return_status);
12093: END IF;
12094:
12095: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12096: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
12097: --
12098: IF l_debug_on THEN
12099: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
12100: END IF;
12101: --
12102: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(cont.delivery_detail_id);
12103: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
12104: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12105: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12106: END IF;
12107:
12108: END IF;
12101: --
12102: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(cont.delivery_detail_id);
12103: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
12104: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12105: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12106: END IF;
12107:
12108: END IF;
12109:
12113: l_cont_flag := NULL;
12114:
12115: END LOOP;
12116:
12117: IF nvl(x_return_status,WSH_UTIL_CORE.G_RET_STS_SUCCESS) <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12118: --
12119: IF l_debug_on THEN
12120: WSH_DEBUG_SV.pop(l_module_name);
12121: END IF;
12121: END IF;
12122: --
12123: return;
12124: ELSE
12125: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12126: END IF;
12127:
12128: --
12129: IF l_debug_on THEN
12132: --
12133: EXCEPTION
12134:
12135: WHEN Others THEN
12136: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Cont_Hierarchy',l_module_name);
12137: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12138:
12139: --
12140: IF l_debug_on THEN
12133: EXCEPTION
12134:
12135: WHEN Others THEN
12136: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_Cont_Hierarchy',l_module_name);
12137: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12138:
12139: --
12140: IF l_debug_on THEN
12141: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12228: IF Get_Contents%NOTFOUND THEN
12229: CLOSE Get_Contents;
12230: x_last_line_flag := 'N';
12231: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12232: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12233: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12234: --
12235: IF l_debug_on THEN
12236: WSH_DEBUG_SV.pop(l_module_name);
12229: CLOSE Get_Contents;
12230: x_last_line_flag := 'N';
12231: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12232: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12233: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12234: --
12235: IF l_debug_on THEN
12236: WSH_DEBUG_SV.pop(l_module_name);
12237: END IF;
12250: IF Get_Cont_Count%NOTFOUND THEN
12251: CLOSE Get_Cont_Count;
12252: x_last_line_flag := 'N';
12253: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12254: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12255: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12256: --
12257: IF l_debug_on THEN
12258: WSH_DEBUG_SV.pop(l_module_name);
12251: CLOSE Get_Cont_Count;
12252: x_last_line_flag := 'N';
12253: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
12254: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12255: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12256: --
12257: IF l_debug_on THEN
12258: WSH_DEBUG_SV.pop(l_module_name);
12259: END IF;
12270: ELSE
12271: x_last_line_flag := 'Y';
12272: END IF;
12273:
12274: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12275:
12276: --
12277: IF l_debug_on THEN
12278: WSH_DEBUG_SV.pop(l_module_name);
12280: --
12281: EXCEPTION
12282:
12283: WHEN Others THEN
12284: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Last_Assigned_Line',l_module_name);
12285: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12286:
12287: --
12288: IF l_debug_on THEN
12281: EXCEPTION
12282:
12283: WHEN Others THEN
12284: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Last_Assigned_Line',l_module_name);
12285: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12286:
12287: --
12288: IF l_debug_on THEN
12289: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12326: --========================================================================
12327: --
12328: PROCEDURE pack_inbound_lines
12329: (
12330: p_lines_tbl IN WSH_UTIL_CORE.id_tab_type,
12331: p_lpn_id IN NUMBER,
12332: p_lpn_name IN VARCHAR2,
12333: p_delivery_id IN NUMBER,
12334: p_transactionType IN VARCHAR2 DEFAULT 'ASN',
12369: --
12370: l_cont_name VARCHAR2(100);
12371: l_container_instance_id NUMBER;
12372: l_rowid VARCHAR2(32767);
12373: l_cont_tbl WSH_UTIL_CORE.id_tab_type;
12374: --
12375: l_gross_weight NUMBER;
12376: l_net_weight NUMBER;
12377: l_volume NUMBER;
12376: l_net_weight NUMBER;
12377: l_volume NUMBER;
12378: l_cont_fill_pc NUMBER;
12379:
12380: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
12381: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
12382:
12383: cursor l_dup_del_csr(p_lpn_name IN VARCHAR2)
12384: is
12400: l_dup_cnt_id NUMBER;
12401: --
12402:
12403: -- K LPN CONV. rv
12404: l_cont_tab wsh_util_core.id_tab_type;
12405: l_lpn_unit_weight NUMBER;
12406: l_lpn_unit_volume NUMBER;
12407: l_lpn_weight_uom_code VARCHAR2(100);
12408: l_lpn_volume_uom_code VARCHAR2(100);
12429: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12430: wsh_debug_sv.LOG(l_module_name, 'p_transactionTYpe', p_transactionTYpe);
12431: END IF;
12432: --
12433: x_return_status := wsh_util_core.g_ret_sts_success;
12434: --
12435: --
12436: IF p_delivery_id IS NULL
12437: THEN
12440: -- p_delivery_id is mandatory
12441: --
12442: FND_MESSAGE.SET_NAME('WSH', 'WSH_REQUIRED_FIELD_NULL');
12443: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'p_delivery_id');
12444: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12445: --
12446: RAISE FND_API.G_EXC_ERROR;
12447: --}
12448: END IF;
12454: -- p_lines_tbl should have at least one record
12455: --
12456: FND_MESSAGE.SET_NAME('WSH', 'WSH_EMPTY_TABLE_ERROR');
12457: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'p_lines_tbl');
12458: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12459: --
12460: RAISE FND_API.G_EXC_ERROR;
12461: --}
12462: END IF;
12470: THEN
12471: --{
12472: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NOT_EXIST');
12473: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_id);
12474: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12475: --
12476: RAISE FND_API.G_EXC_ERROR;
12477: --}
12478: END IF;
12485: -- Invalid operation for outbound delivery
12486: --
12487: FND_MESSAGE.SET_NAME('WSH','WSH_NOT_IB_DLVY_ERROR');
12488: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_dlvy_rec.name);
12489: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12490: --
12491: RAISE FND_API.G_EXC_ERROR;
12492: --}
12493: END IF;
12562: --
12563: --
12564: G_CALLED_FROM_INBOUND := FALSE;
12565: --
12566: wsh_util_core.api_post_call
12567: (
12568: p_return_status => l_return_status,
12569: x_num_warnings => l_num_warnings,
12570: x_num_errors => l_num_errors
12616: IF l_debug_on THEN
12617: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
12618: END IF;
12619:
12620: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12621: x_return_status := l_dbi_rs;
12622: -- just pass this return status to caller API
12623: IF l_debug_on THEN
12624: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
12667: p_entity_ids => l_cont_tbl,
12668: x_return_status => l_return_status
12669: );
12670: --
12671: wsh_util_core.api_post_call
12672: (
12673: p_return_status => l_return_status,
12674: x_num_warnings => l_num_warnings,
12675: x_num_errors => l_num_errors
12705: --
12706: --
12707: IF l_num_errors > 0
12708: THEN
12709: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12710: ELSIF l_num_warnings > 0
12711: THEN
12712: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12713: ELSE
12708: THEN
12709: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12710: ELSIF l_num_warnings > 0
12711: THEN
12712: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12713: ELSE
12714: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12715: END IF;
12716: --
12710: ELSIF l_num_warnings > 0
12711: THEN
12712: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12713: ELSE
12714: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12715: END IF;
12716: --
12717: IF l_debug_on THEN
12718: wsh_debug_sv.pop(l_module_name);
12725: WHEN FND_API.G_EXC_ERROR THEN
12726:
12727: G_CALLED_FROM_INBOUND := FALSE;
12728: ROLLBACK TO pack_inbound_lines_sp;
12729: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12730: --
12731: IF l_debug_on THEN
12732: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12733: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12735: --
12736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12737:
12738: G_CALLED_FROM_INBOUND := FALSE;
12739: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12740: ROLLBACK TO pack_inbound_lines_sp;
12741: --
12742: IF l_debug_on THEN
12743: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12743: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12744: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12745: END IF;
12746: --
12747: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12748:
12749: G_CALLED_FROM_INBOUND := FALSE;
12750: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12751: --
12746: --
12747: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12748:
12749: G_CALLED_FROM_INBOUND := FALSE;
12750: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12751: --
12752: IF l_debug_on THEN
12753: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12754: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12749: G_CALLED_FROM_INBOUND := FALSE;
12750: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12751: --
12752: IF l_debug_on THEN
12753: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12754: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12755: END IF;
12756: --
12757: WHEN OTHERS THEN
12750: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12751: --
12752: IF l_debug_on THEN
12753: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12754: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12755: END IF;
12756: --
12757: WHEN OTHERS THEN
12758:
12757: WHEN OTHERS THEN
12758:
12759: G_CALLED_FROM_INBOUND := FALSE;
12760: ROLLBACK TO pack_inbound_lines_sp;
12761: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12762: wsh_util_core.default_handler('wsh_container_actions.pack_inbound_lines', l_module_name);
12763: IF l_debug_on THEN
12764: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12765: END IF;
12758:
12759: G_CALLED_FROM_INBOUND := FALSE;
12760: ROLLBACK TO pack_inbound_lines_sp;
12761: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12762: wsh_util_core.default_handler('wsh_container_actions.pack_inbound_lines', l_module_name);
12763: IF l_debug_on THEN
12764: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12765: END IF;
12766: --
12807: l_num_warnings NUMBER := 0;
12808: l_num_errors NUMBER := 0;
12809: l_return_status VARCHAR2(10);
12810: --
12811: l_lines_tbl WSH_UTIL_CORE.id_tab_type;
12812: --
12813: l_debug_on BOOLEAN;
12814: --
12815: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || g_pkg_name || '.' || 'unpack_inbound_delivery';
12830: --
12831: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12832: END IF;
12833: --
12834: x_return_status := wsh_util_core.g_ret_sts_success;
12835: --
12836: --
12837: IF p_delivery_id IS NULL
12838: THEN
12841: -- p_delivery_id is mandatory
12842: --
12843: FND_MESSAGE.SET_NAME('WSH', 'WSH_REQUIRED_FIELD_NULL');
12844: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'p_delivery_id');
12845: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12846: --
12847: RAISE FND_API.G_EXC_ERROR;
12848: --}
12849: END IF;
12857: THEN
12858: --{
12859: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NOT_EXIST');
12860: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_id);
12861: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12862: --
12863: RAISE FND_API.G_EXC_ERROR;
12864: --}
12865: END IF;
12872: -- Invalid operation for outbound delivery
12873: --
12874: FND_MESSAGE.SET_NAME('WSH','WSH_NOT_IB_DLVY_ERROR');
12875: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_dlvy_rec.name);
12876: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
12877: --
12878: RAISE FND_API.G_EXC_ERROR;
12879: --}
12880: END IF;
12916: --
12917: --
12918: IF l_num_errors > 0
12919: THEN
12920: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12921: ELSIF l_num_warnings > 0
12922: THEN
12923: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12924: ELSE
12919: THEN
12920: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12921: ELSIF l_num_warnings > 0
12922: THEN
12923: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12924: ELSE
12925: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12926: END IF;
12927: --
12921: ELSIF l_num_warnings > 0
12922: THEN
12923: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12924: ELSE
12925: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12926: END IF;
12927: --
12928: IF l_debug_on THEN
12929: wsh_debug_sv.pop(l_module_name);
12935: --
12936: WHEN FND_API.G_EXC_ERROR THEN
12937:
12938: ROLLBACK TO unpack_inbound_delivery_sp;
12939: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12940: --
12941: IF l_debug_on THEN
12942: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12943: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12945: --
12946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12947:
12948: ROLLBACK TO unpack_inbound_delivery_sp;
12949: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12950: --
12951: IF l_debug_on THEN
12952: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12953: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12952: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12953: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12954: END IF;
12955: --
12956: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12957: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12958: --
12959: IF l_debug_on THEN
12960: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12953: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12954: END IF;
12955: --
12956: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12957: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12958: --
12959: IF l_debug_on THEN
12960: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12961: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12956: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12957: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12958: --
12959: IF l_debug_on THEN
12960: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12961: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12962: END IF;
12963: --
12964: WHEN OTHERS THEN
12957: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12958: --
12959: IF l_debug_on THEN
12960: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12961: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12962: END IF;
12963: --
12964: WHEN OTHERS THEN
12965:
12963: --
12964: WHEN OTHERS THEN
12965:
12966: ROLLBACK TO unpack_inbound_delivery_sp;
12967: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12968: wsh_util_core.default_handler('wsh_container_actions.unpack_inbound_delivery', l_module_name);
12969: IF l_debug_on THEN
12970: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12971: END IF;
12964: WHEN OTHERS THEN
12965:
12966: ROLLBACK TO unpack_inbound_delivery_sp;
12967: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12968: wsh_util_core.default_handler('wsh_container_actions.unpack_inbound_delivery', l_module_name);
12969: IF l_debug_on THEN
12970: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12971: END IF;
12972: --
13001: l_cont_inst_id NUMBER;
13002: l_row_id VARCHAR2(30);
13003: l_cont_cnt NUMBER;
13004: l_all_null_flag VARCHAR2(1) := 'Y';
13005: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13006:
13007: --
13008: l_debug_on BOOLEAN;
13009: --
13032: END IF;
13033: --
13034: IF ( NVL(p_quantity,0) <= 0 ) THEN
13035: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13036: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13037: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13038: --
13039: IF l_debug_on THEN
13040: WSH_DEBUG_SV.pop(l_module_name);
13033: --
13034: IF ( NVL(p_quantity,0) <= 0 ) THEN
13035: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13036: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13037: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13038: --
13039: IF l_debug_on THEN
13040: WSH_DEBUG_SV.pop(l_module_name);
13041: END IF;
13072: IF l_cont_cnt = 0 THEN
13073: --
13074: x_cont_names(x_cont_names.count+1) := l_cont_name;
13075: ELSE
13076: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13077: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NAME_DUPLICATE');
13078: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
13079: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
13080: END IF;
13075: ELSE
13076: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13077: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NAME_DUPLICATE');
13078: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
13079: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
13080: END IF;
13081: END LOOP;
13082:
13083: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13079: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
13080: END IF;
13081: END LOOP;
13082:
13083: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13084: x_return_status := l_return_status;
13085: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13086: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13087: --
13082:
13083: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13084: x_return_status := l_return_status;
13085: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13086: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13087: --
13088: IF l_debug_on THEN
13089: WSH_DEBUG_SV.pop(l_module_name);
13090: END IF;
13091: --
13092: return;
13093: END IF;
13094:
13095: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13096:
13097: --
13098: IF l_debug_on THEN
13099: WSH_DEBUG_SV.pop(l_module_name);
13101: --
13102: EXCEPTION
13103:
13104: WHEN Others THEN
13105: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Multiple_Cont_names',l_module_name);
13106: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13107:
13108:
13109: IF l_debug_on THEN
13102: EXCEPTION
13103:
13104: WHEN Others THEN
13105: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Multiple_Cont_names',l_module_name);
13106: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13107:
13108:
13109: IF l_debug_on THEN
13110: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13191: WHERE delivery_detail_id = l_container_id;
13192:
13193: END LOOP ; --}
13194:
13195: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13196:
13197: --
13198: IF l_debug_on THEN
13199: WSH_DEBUG_SV.pop(l_module_name);
13202: EXCEPTION
13203:
13204: WHEN child_cont_locked THEN
13205: rollback to s_Update_child_inv_info;
13206: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13207: --
13208: IF l_debug_on THEN
13209: WSH_DEBUG_SV.logmsg(l_module_name,'Could not lock record for the containers ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13210: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:child_cont_locked');
13211: END IF;
13212: --
13213: WHEN Others THEN
13214: rollback to s_Update_child_inv_info;
13215: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_child_inv_info',l_module_name);
13216: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13217:
13218:
13219: IF l_debug_on THEN
13212: --
13213: WHEN Others THEN
13214: rollback to s_Update_child_inv_info;
13215: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Update_child_inv_info',l_module_name);
13216: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13217:
13218:
13219: IF l_debug_on THEN
13220: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13260:
13261: l_parent_container_info c_get_container_info%rowtype;
13262: l_child_container_info c_get_container_info%rowtype;
13263: l_new_parent_delivery_id NUMBER := NULL;
13264: l_del_tab wsh_util_core.id_tab_type;
13265:
13266:
13267: -- This cursor accepts a given delivery, p_del_id,
13268: -- and looks for consol deliveries that share the
13308: l_assign_flag VARCHAR2(1);
13309: l_del_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
13310: l_parent_del_info_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
13311: l_del_asg_info_rec WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_TYPE;
13312: l_child_details_tab wsh_util_core.id_tab_type;
13313: l_dummy_asg_tab wsh_util_core.id_tab_type;
13314: l_wv_delivery_tab wsh_util_core.id_tab_type;
13315: l_child_delivery_id NUMBER;
13316: l_trip_id NUMBER;
13309: l_del_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
13310: l_parent_del_info_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
13311: l_del_asg_info_rec WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_TYPE;
13312: l_child_details_tab wsh_util_core.id_tab_type;
13313: l_dummy_asg_tab wsh_util_core.id_tab_type;
13314: l_wv_delivery_tab wsh_util_core.id_tab_type;
13315: l_child_delivery_id NUMBER;
13316: l_trip_id NUMBER;
13317: l_parent_trip_id NUMBER;
13310: l_parent_del_info_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
13311: l_del_asg_info_rec WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_TYPE;
13312: l_child_details_tab wsh_util_core.id_tab_type;
13313: l_dummy_asg_tab wsh_util_core.id_tab_type;
13314: l_wv_delivery_tab wsh_util_core.id_tab_type;
13315: l_child_delivery_id NUMBER;
13316: l_trip_id NUMBER;
13317: l_parent_trip_id NUMBER;
13318: l_parent_consol_del_id NUMBER;
13317: l_parent_trip_id NUMBER;
13318: l_parent_consol_del_id NUMBER;
13319: l_child_trip_id NUMBER;
13320: l_child_consol_del_id NUMBER;
13321: l_unassign_dels wsh_util_core.id_tab_type;
13322: l_trip_id_tab wsh_util_core.id_tab_type;
13323:
13324: l_cont_gross_weight NUMBER;
13325: l_cont_net_weight NUMBER;
13318: l_parent_consol_del_id NUMBER;
13319: l_child_trip_id NUMBER;
13320: l_child_consol_del_id NUMBER;
13321: l_unassign_dels wsh_util_core.id_tab_type;
13322: l_trip_id_tab wsh_util_core.id_tab_type;
13323:
13324: l_cont_gross_weight NUMBER;
13325: l_cont_net_weight NUMBER;
13326: l_cont_volume NUMBER;
13480: WSH_TRIPS_ACTIONS.Unassign_Trip(p_del_rows => l_unassign_dels,
13481: p_trip_id => l_child_trip_id,
13482: x_return_status => l_return_status);
13483:
13484: wsh_util_core.api_post_call
13485: (
13486: p_return_status => l_return_status,
13487: x_num_warnings => l_num_warnings,
13488: x_num_errors => l_num_errors
13515: p_delivery_id => l_child_delivery_id,
13516: x_delivery_info => l_del_info_tab(i),
13517: x_return_status => l_return_status);
13518:
13519: wsh_util_core.api_post_call
13520: (
13521: p_return_status => l_return_status,
13522: x_num_warnings => l_num_warnings,
13523: x_num_errors => l_num_errors
13536: x_parent_del_id => l_new_parent_delivery_id,
13537: x_parent_trip_id => l_trip_id,
13538: x_return_status => l_return_status);
13539:
13540: wsh_util_core.api_post_call
13541: (
13542: p_return_status => l_return_status,
13543: x_num_warnings => l_num_warnings,
13544: x_num_errors => l_num_errors
13617: p_delivery_id => l_new_parent_delivery_id,
13618: x_delivery_info => l_parent_del_info_rec,
13619: x_return_status => l_return_status);
13620:
13621: wsh_util_core.api_post_call
13622: (
13623: p_return_status => l_return_status,
13624: x_num_warnings => l_num_warnings,
13625: x_num_errors => l_num_errors
13633: wsh_delivery_details_pkg.lock_wda_no_compare(p_delivery_detail_id => p_parent_container_id);
13634: wsh_delivery_details_pkg.lock_wda_no_compare(p_delivery_detail_id => p_child_container_id);
13635: EXCEPTION
13636: WHEN OTHERS THEN
13637: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13638: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
13639: WSH_UTIL_CORE.Add_Message(x_return_status);
13640: --
13641: -- Debug Statements
13635: EXCEPTION
13636: WHEN OTHERS THEN
13637: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13638: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
13639: WSH_UTIL_CORE.Add_Message(x_return_status);
13640: --
13641: -- Debug Statements
13642: --
13643: IF l_debug_on THEN
13722: END LOOP;
13723:
13724: EXCEPTION
13725: WHEN OTHERS THEN
13726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13727: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
13728: WSH_UTIL_CORE.Add_Message(x_return_status);
13729: --
13730: -- Debug Statements
13724: EXCEPTION
13725: WHEN OTHERS THEN
13726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13727: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
13728: WSH_UTIL_CORE.Add_Message(x_return_status);
13729: --
13730: -- Debug Statements
13731: --
13732: IF l_debug_on THEN
13778: p_dd_id_tab => l_child_details_tab,
13779: x_da_id_tab => l_dummy_asg_tab,
13780: x_return_status => l_return_status);
13781:
13782: wsh_util_core.api_post_call
13783: (
13784: p_return_status => l_return_status,
13785: x_num_warnings => l_num_warnings,
13786: x_num_errors => l_num_errors
13835: p_delivery_id => l_del_tab(i),
13836: x_delivery_info => l_del_info_tab(i),
13837: x_return_status => l_return_status);
13838:
13839: wsh_util_core.api_post_call
13840: (
13841: p_return_status => l_return_status,
13842: x_num_warnings => l_num_warnings,
13843: x_num_errors => l_num_errors
13859: x_return_status => l_return_status);
13860:
13861: -- Handle return status.
13862:
13863: wsh_util_core.api_post_call
13864: (
13865: p_return_status => l_return_status,
13866: x_num_warnings => l_num_warnings,
13867: x_num_errors => l_num_errors
13896: x_volume => l_cont_volume,
13897: x_cont_fill_pc => l_cont_fill_pc,
13898: x_return_status => l_return_status);
13899:
13900: wsh_util_core.api_post_call
13901: (
13902: p_return_status => l_return_status,
13903: x_num_warnings => l_num_warnings,
13904: x_num_errors => l_num_errors
13928: UPDATE wsh_delivery_details
13929: SET filled_volume = l_filled_volume
13930: WHERE delivery_detail_id = p_parent_container_id;
13931:
13932: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
13933: IF l_debug_on THEN
13934: WSH_DEBUG_SV.logmsg(l_module_name,'Error calculating trip wt/vol');
13935: END IF;
13936: END IF;
13948: x_net_weight => l_net_wt,
13949: x_volume => l_volume,
13950: x_return_status => l_return_status);
13951: */
13952: wsh_util_core.api_post_call
13953: (
13954: p_return_status => l_return_status,
13955: x_num_warnings => l_num_warnings,
13956: x_num_errors => l_num_errors);
13956: x_num_errors => l_num_errors);
13957:
13958: IF l_num_errors > 0
13959: THEN
13960: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13961: ELSIF l_num_warnings > 0
13962: THEN
13963: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13964: ELSE
13959: THEN
13960: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13961: ELSIF l_num_warnings > 0
13962: THEN
13963: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13964: ELSE
13965: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13966: END IF;
13967: --
13961: ELSIF l_num_warnings > 0
13962: THEN
13963: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13964: ELSE
13965: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13966: END IF;
13967: --
13968: -- Debug Statements
13969: --
13973: --
13974:
13975: EXCEPTION
13976: WHEN FND_API.G_EXC_ERROR THEN
13977: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13978: --
13979: -- Debug Statements
13980: --
13981: IF l_debug_on THEN
13983: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13984: END IF;
13985:
13986: WHEN WSH_INVALID_TRIPS THEN
13987: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13988: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRIPS');
13989: WSH_UTIL_CORE.Add_Message(x_return_status);
13990: --
13991: -- Debug Statements
13985:
13986: WHEN WSH_INVALID_TRIPS THEN
13987: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13988: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRIPS');
13989: WSH_UTIL_CORE.Add_Message(x_return_status);
13990: --
13991: -- Debug Statements
13992: --
13993: IF l_debug_on THEN
13996: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIPS');
13997: END IF;
13998:
13999: WHEN WSH_NO_CHILD_LPNS THEN
14000: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14001: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CHILD_LPNS');
14002: WSH_UTIL_CORE.Add_Message(x_return_status);
14003: --
14004: -- Debug Statements
13998:
13999: WHEN WSH_NO_CHILD_LPNS THEN
14000: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14001: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CHILD_LPNS');
14002: WSH_UTIL_CORE.Add_Message(x_return_status);
14003: --
14004: -- Debug Statements
14005: --
14006: IF l_debug_on THEN
14009: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_CHILD_LPNS');
14010: END IF;
14011:
14012: WHEN WSH_CONSOL_DEL_NO_MATCH THEN
14013: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14014: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_DEL_NO_MATCH');
14015: WSH_UTIL_CORE.Add_Message(x_return_status);
14016: --
14017: -- Debug Statements
14011:
14012: WHEN WSH_CONSOL_DEL_NO_MATCH THEN
14013: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14014: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_DEL_NO_MATCH');
14015: WSH_UTIL_CORE.Add_Message(x_return_status);
14016: --
14017: -- Debug Statements
14018: --
14019: IF l_debug_on THEN
14022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CONSOL_DEL_NO_MATCH');
14023: END IF;
14024:
14025: WHEN WSH_ASSIGN_CONSOL_LPN_ERROR THEN
14026: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14027: FND_MESSAGE.SET_NAME('WSH','WSH_ASSIGN_CONSOL_LPN_ERROR');
14028: WSH_UTIL_CORE.Add_Message(x_return_status);
14029: --
14030: -- Debug Statements
14024:
14025: WHEN WSH_ASSIGN_CONSOL_LPN_ERROR THEN
14026: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14027: FND_MESSAGE.SET_NAME('WSH','WSH_ASSIGN_CONSOL_LPN_ERROR');
14028: WSH_UTIL_CORE.Add_Message(x_return_status);
14029: --
14030: -- Debug Statements
14031: --
14032: IF l_debug_on THEN
14035: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_ASSIGN_CONSOL_LPN_ERROR');
14036: END IF;
14037:
14038: WHEN WSH_INVALID_CONSOL_ASSIGN THEN
14039: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14040: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONSOL_ASSIGN');
14041: WSH_UTIL_CORE.Add_Message(x_return_status);
14042: --
14043: -- Debug Statements
14037:
14038: WHEN WSH_INVALID_CONSOL_ASSIGN THEN
14039: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14040: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONSOL_ASSIGN');
14041: WSH_UTIL_CORE.Add_Message(x_return_status);
14042: --
14043: -- Debug Statements
14044: --
14045: IF l_debug_on THEN
14048: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CONSOL_ASSIGN');
14049: END IF;
14050:
14051: WHEN WSH_INVALID_PARENT THEN
14052: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14053: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_PARENT');
14054: WSH_UTIL_CORE.Add_Message(x_return_status);
14055: --
14056: -- Debug Statements
14050:
14051: WHEN WSH_INVALID_PARENT THEN
14052: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14053: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_PARENT');
14054: WSH_UTIL_CORE.Add_Message(x_return_status);
14055: --
14056: -- Debug Statements
14057: --
14058: IF l_debug_on THEN
14061: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_PARENT');
14062: END IF;
14063:
14064: WHEN WSH_INVALID_CHILD THEN
14065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14066: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILD');
14067: WSH_UTIL_CORE.Add_Message(x_return_status);
14068: --
14069: -- Debug Statements
14063:
14064: WHEN WSH_INVALID_CHILD THEN
14065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14066: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILD');
14067: WSH_UTIL_CORE.Add_Message(x_return_status);
14068: --
14069: -- Debug Statements
14070: --
14071: IF l_debug_on THEN
14076: --
14077:
14078: WHEN OTHERS THEN
14079:
14080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14081: wsh_util_core.default_handler('wsh_container_actions.Assign_Container_to_Consol', l_module_name);
14082: IF l_debug_on THEN
14083: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
14084: END IF;
14077:
14078: WHEN OTHERS THEN
14079:
14080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14081: wsh_util_core.default_handler('wsh_container_actions.Assign_Container_to_Consol', l_module_name);
14082: IF l_debug_on THEN
14083: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
14084: END IF;
14085:
14085:
14086: END Assign_Container_to_Consol;
14087:
14088: PROCEDURE Unpack_Details_from_Consol
14089: (p_delivery_details_tab IN WSH_UTIL_CORE.ID_TAB_TYPE,
14090: p_caller IN VARCHAR2,
14091: x_return_status OUT NOCOPY VARCHAR2) IS
14092:
14093: cursor c_check_valid_combination(p_dd_id IN NUMBER) IS
14122: and type = 'C'
14123: and rownum = 1;
14124:
14125:
14126: l_consol_lpn_tab wsh_util_core.id_tab_type;
14127: l_empty_lpn_tab wsh_util_core.id_tab_type;
14128: l_rem_lpn_tab wsh_util_core.id_tab_type;
14129:
14130: l_cont_gross_weight NUMBER;
14123: and rownum = 1;
14124:
14125:
14126: l_consol_lpn_tab wsh_util_core.id_tab_type;
14127: l_empty_lpn_tab wsh_util_core.id_tab_type;
14128: l_rem_lpn_tab wsh_util_core.id_tab_type;
14129:
14130: l_cont_gross_weight NUMBER;
14131: l_cont_net_weight NUMBER;
14124:
14125:
14126: l_consol_lpn_tab wsh_util_core.id_tab_type;
14127: l_empty_lpn_tab wsh_util_core.id_tab_type;
14128: l_rem_lpn_tab wsh_util_core.id_tab_type;
14129:
14130: l_cont_gross_weight NUMBER;
14131: l_cont_net_weight NUMBER;
14132: l_cont_volume NUMBER;
14207: WSH_DELIVERY_DETAILS_PKG.lock_wda_no_compare(p_delivery_detail_id => p_delivery_details_tab(i));
14208:
14209: EXCEPTION
14210: WHEN OTHERS THEN
14211: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14212: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
14213: WSH_UTIL_CORE.Add_Message(x_return_status);
14214: --
14215: -- Debug Statements
14209: EXCEPTION
14210: WHEN OTHERS THEN
14211: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14212: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
14213: WSH_UTIL_CORE.Add_Message(x_return_status);
14214: --
14215: -- Debug Statements
14216: --
14217: IF l_debug_on THEN
14298: p_diff_volume => l_child_volume,
14299: p_diff_fill_volume => l_child_volume,
14300: x_return_status => l_return_status);
14301:
14302: WSH_UTIL_CORE.API_Post_Call
14303: (
14304: p_return_status => l_return_status,
14305: x_num_warnings => l_num_warnings,
14306: x_num_errors => l_num_errors);
14317:
14318:
14319: IF l_num_errors > 0
14320: THEN
14321: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14322: ELSIF l_num_warnings > 0
14323: THEN
14324: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14325: ELSE
14320: THEN
14321: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14322: ELSIF l_num_warnings > 0
14323: THEN
14324: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14325: ELSE
14326: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14327: END IF;
14328: --
14322: ELSIF l_num_warnings > 0
14323: THEN
14324: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14325: ELSE
14326: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14327: END IF;
14328: --
14329: -- Debug Statements
14330: --
14334:
14335:
14336: EXCEPTION
14337: WHEN FND_API.G_EXC_ERROR THEN
14338: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14339: --
14340: -- Debug Statements
14341: --
14342: IF l_debug_on THEN
14345: END IF;
14346:
14347:
14348: WHEN WSH_INVALID_COMBINATION THEN
14349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14350: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_COMBINATION');
14351: WSH_UTIL_CORE.Add_Message(x_return_status);
14352: --
14353: -- Debug Statements
14347:
14348: WHEN WSH_INVALID_COMBINATION THEN
14349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14350: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_COMBINATION');
14351: WSH_UTIL_CORE.Add_Message(x_return_status);
14352: --
14353: -- Debug Statements
14354: --
14355: IF l_debug_on THEN
14359: END IF;
14360: --
14361:
14362: WHEN OTHERS THEN
14363: wsh_util_core.default_handler('wsh_container_actions.unassign_detail_from_consol',l_module_name);
14364: --
14365: IF l_debug_on THEN
14366: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14367: END IF;