[Home] [Help]
170: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
171: --
172: IF l_debug_on IS NULL
173: THEN
174: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
175: END IF;
176: --
177: IF l_debug_on THEN
178: WSH_DEBUG_SV.push(l_module_name);
174: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
175: END IF;
176: --
177: IF l_debug_on THEN
178: WSH_DEBUG_SV.push(l_module_name);
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:
175: END IF;
176: --
177: IF l_debug_on THEN
178: WSH_DEBUG_SV.push(l_module_name);
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;
176: --
177: IF l_debug_on THEN
178: WSH_DEBUG_SV.push(l_module_name);
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
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');
207: --}
208: END IF;
209:
210: IF l_debug_on THEN
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);
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');
221: END IF;
222: --
223: END Validate_Container;
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');
221: END IF;
222: --
223: END Validate_Container;
224: -- bug 3440811
296: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
297: --
298: IF l_debug_on IS NULL
299: THEN
300: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
301: END IF;
302: --
303: IF l_debug_on THEN
304: WSH_DEBUG_SV.push(l_module_name);
300: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
301: END IF;
302: --
303: IF l_debug_on THEN
304: WSH_DEBUG_SV.push(l_module_name);
305: --
306: WSH_DEBUG_SV.log(l_module_name,'organization_id',P_container_rec.organization_id);
307: WSH_DEBUG_SV.log(l_module_name,'item_id',P_container_rec.inventory_item_id);
308: END IF;
302: --
303: IF l_debug_on THEN
304: WSH_DEBUG_SV.push(l_module_name);
305: --
306: WSH_DEBUG_SV.log(l_module_name,'organization_id',P_container_rec.organization_id);
307: WSH_DEBUG_SV.log(l_module_name,'item_id',P_container_rec.inventory_item_id);
308: END IF;
309: --
310:
303: IF l_debug_on THEN
304: WSH_DEBUG_SV.push(l_module_name);
305: --
306: WSH_DEBUG_SV.log(l_module_name,'organization_id',P_container_rec.organization_id);
307: WSH_DEBUG_SV.log(l_module_name,'item_id',P_container_rec.inventory_item_id);
308: END IF;
309: --
310:
311: -- If one of the wt/vol fields are negative, or if any wt/vol is give
320: THEN --{
321:
322: IF l_debug_on THEN --{
323:
324: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
325: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
326: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
327: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
328: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
321:
322: IF l_debug_on THEN --{
323:
324: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
325: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
326: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
327: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
328: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
329: END IF; --}
322: IF l_debug_on THEN --{
323:
324: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
325: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
326: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
327: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
328: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
329: END IF; --}
330:
323:
324: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
325: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
326: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
327: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
328: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
329: END IF; --}
330:
331: RAISE FND_API.G_EXC_ERROR;
324: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
325: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
326: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
327: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
328: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
329: END IF; --}
330:
331: RAISE FND_API.G_EXC_ERROR;
332:
352: --AND l_additional_cont_attr.tare_weight_uom_code IS NOT NULL )
353: THEN --}{
354: IF l_debug_on THEN --{
355:
356: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
357: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
358: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
359: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
360: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
353: THEN --}{
354: IF l_debug_on THEN --{
355:
356: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
357: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
358: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
359: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
360: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
354: IF l_debug_on THEN --{
355:
356: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
357: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
358: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
359: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
360: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
362: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
355:
356: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
357: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
358: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
359: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
360: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
362: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
363: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
356: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
357: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
358: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
359: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
360: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
362: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
363: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
357: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
358: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
359: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
360: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
362: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
363: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
365: END IF; --}
358: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
359: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
360: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
362: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
363: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
365: END IF; --}
366:
359: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
360: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
362: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
363: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
365: END IF; --}
366:
367: RAISE FND_API.G_EXC_ERROR;
360: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
362: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
363: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
365: END IF; --}
366:
367: RAISE FND_API.G_EXC_ERROR;
368:
369: END IF; --}
370:
371: l_wms_org := wsh_util_validate.check_wms_org(P_container_rec.organization_id);
372: IF l_debug_on THEN
373: WSH_DEBUG_SV.log(l_module_name,'l_wms_org',l_wms_org);
374: END IF;
375:
376: OPEN Get_Cont_Item_Info (P_container_rec.inventory_item_id,
377: P_container_rec.organization_id,
378: l_wms_org);
379:
380: --
381: IF l_debug_on THEN
382: WSH_DEBUG_SV.logmsg(l_module_name, 'GETTING CONTAINER ITEM INFO' );
383: END IF;
384: --
385: FETCH Get_Cont_Item_Info INTO
386: l_description,
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');
414: CLOSE Get_Cont_Item_Info;
415: -- Bug#: 3362895
416: IF P_container_rec.inventory_item_id IS NOT NULL THEN
417: IF l_debug_on THEN
418: WSH_DEBUG_SV.pop(l_module_name);
419: END IF;
420: --
421: return;
422: END IF;
428: END IF; --}
429:
430: --
431: IF l_debug_on THEN
432: WSH_DEBUG_SV.log(l_module_name, 'l_vol_uom',l_vol_uom );
433: WSH_DEBUG_SV.log(l_module_name, 'l_wt_uom',l_wt_uom );
434: END IF;
435: IF l_vol_uom IS NULL OR l_wt_uom IS NULL THEN --{
436: IF l_debug_on THEN
429:
430: --
431: IF l_debug_on THEN
432: WSH_DEBUG_SV.log(l_module_name, 'l_vol_uom',l_vol_uom );
433: WSH_DEBUG_SV.log(l_module_name, 'l_wt_uom',l_wt_uom );
434: END IF;
435: IF l_vol_uom IS NULL OR l_wt_uom IS NULL THEN --{
436: IF l_debug_on THEN
437: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.GET_DEFAULT_UOMS',WSH_DEBUG_SV.C_PROC_LEVEL);
433: WSH_DEBUG_SV.log(l_module_name, 'l_wt_uom',l_wt_uom );
434: END IF;
435: IF l_vol_uom IS NULL OR l_wt_uom IS NULL THEN --{
436: IF l_debug_on THEN
437: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.GET_DEFAULT_UOMS',WSH_DEBUG_SV.C_PROC_LEVEL);
438: END IF;
439: --
440: WSH_WV_UTILS.Get_Default_Uoms (
441: P_container_rec.organization_id,
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);
451: END IF;
452: --
453: l_org_name := WSH_UTIL_CORE.Get_Org_Name(P_container_rec.organization_id);
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');
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;
461: --
462: wsh_util_core.api_post_call
463: (
467: );
468: END IF; --}
469: --
470: IF l_debug_on THEN
471: WSH_DEBUG_SV.logmsg(l_module_name, 'NO ERRORS AFTER GETTING DEFAULT UOMS' );
472: WSH_DEBUG_SV.logmsg(l_module_name, 'CLOSED GET_CONT_ITEM_INFO' );
473: END IF;
474: --
475: END IF; --}
468: END IF; --}
469: --
470: IF l_debug_on THEN
471: WSH_DEBUG_SV.logmsg(l_module_name, 'NO ERRORS AFTER GETTING DEFAULT UOMS' );
472: WSH_DEBUG_SV.logmsg(l_module_name, 'CLOSED GET_CONT_ITEM_INFO' );
473: END IF;
474: --
475: END IF; --}
476:
573: END IF;
574:
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: --
574:
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);
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);
585: p_container_rec.requested_quantity := 1;
586: p_container_rec.shipped_quantity := null;
587: --
588: IF l_debug_on THEN
589: WSH_DEBUG_SV.logmsg(l_module_name, 'ASSIGNING RQ_UOM' );
590: END IF;
591: --
592: p_container_rec.requested_quantity_uom := l_primary_uom;
593: p_container_rec.wv_frozen_flag := 'N';
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
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');
621: END IF;
622: --
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');
621: END IF;
622: --
623: WHEN WSH_UTIL_CORE.G_EXC_WARNING 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');
621: END IF;
622: --
623: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
624: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
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;
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:
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
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);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
648: END IF;
649: --
650: END default_container_attr;
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);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
648: END IF;
649: --
650: END default_container_attr;
651:
822: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
823: --
824: IF l_debug_on IS NULL
825: THEN
826: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
827: END IF;
828: --
829: IF l_debug_on THEN
830: WSH_DEBUG_SV.push(l_module_name);
826: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
827: END IF;
828: --
829: IF l_debug_on THEN
830: WSH_DEBUG_SV.push(l_module_name);
831: --
832: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
833: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
834: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
828: --
829: IF l_debug_on THEN
830: WSH_DEBUG_SV.push(l_module_name);
831: --
832: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
833: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
834: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
835: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
836: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
829: IF l_debug_on THEN
830: WSH_DEBUG_SV.push(l_module_name);
831: --
832: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
833: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
834: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
835: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
836: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
837: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
830: WSH_DEBUG_SV.push(l_module_name);
831: --
832: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
833: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
834: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
835: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
836: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
837: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
838: END IF;
831: --
832: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
833: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
834: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
835: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
836: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
837: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
838: END IF;
839: --
832: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
833: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
834: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
835: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
836: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
837: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
838: END IF;
839: --
840: --
833: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
834: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
835: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
836: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
837: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
838: END IF;
839: --
840: --
841: IF l_debug_on THEN
838: END IF;
839: --
840: --
841: IF l_debug_on THEN
842: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CREATE_CONT_INSTANCE_MULTI ' );
843: END IF;
844: --
845:
846: l_orig_value := WSH_WMS_LPN_GRP.g_call_group_api;
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;
858: --
859: return;
860: END IF;
867:
868: IF c_wms_code_present = 'Y' THEN --{
869:
870: IF l_debug_on THEN
871: WSH_DEBUG_SV.logmsg(l_module_name,
872: 'calling wms_container_grp.Auto_Create_LPNs' );
873: END IF;
874:
875: l_gen_lpn_rec.container_item_id := l_inventory_item_id;
904: j := 1;
905: i := l_lpn_tbl.first;
906: WHILE i IS NOT NULL LOOP
907: IF l_debug_on THEN
908: WSH_DEBUG_SV.log(l_module_name,'container_name',
909: l_lpn_tbl(i).license_plate_number);
910: WSH_DEBUG_SV.log(l_module_name,'lpn_id',
911: l_lpn_tbl(i).lpn_id);
912: END IF;
906: WHILE i IS NOT NULL LOOP
907: IF l_debug_on THEN
908: WSH_DEBUG_SV.log(l_module_name,'container_name',
909: l_lpn_tbl(i).license_plate_number);
910: WSH_DEBUG_SV.log(l_module_name,'lpn_id',
911: l_lpn_tbl(i).lpn_id);
912: END IF;
913: l_container_info_rec.container_names(j)
914: := l_lpn_tbl(i).license_plate_number;
974: );
975: i := l_container_info_rec.container_names.FIRST;
976: WHILE i IS NOT NULL LOOP
977: IF l_debug_on THEN
978: WSH_DEBUG_SV.log(l_module_name,'container_name', l_container_info_rec.container_names(i));
979: END IF;
980: l_container_info_rec.lpn_ids(i) := NULL;
981: i := l_container_info_rec.container_names.NEXT(i);
982: END LOOP;
1006: l_inventory_item_id;
1007:
1008: IF c_get_lpn_info%NOTFOUND THEN
1009: IF l_debug_on THEN
1010: WSH_DEBUG_SV.log(l_module_name,'Error invalid Lpn_id ',
1011: p_lpn_id);
1012: END IF;
1013: RAISE FND_API.G_EXC_ERROR;
1014: END IF;
1027: l_tare_wt,
1028: l_inventory_item_id);
1029: END IF;
1030: IF l_debug_on THEN
1031: WSH_DEBUG_SV.log(l_module_name,'l_net_weight ',l_net_weight);
1032: END IF;
1033: l_container_rec.net_weight:= l_net_weight;
1034: */
1035: l_container_info_rec.container_names(1) := l_container_rec.container_name;
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;
1049: --
1050: return;
1051: END IF;
1075: -- Populate Delivery Detail id and Delivery Assignment id
1076: -- within the Loop
1077:
1078: IF l_debug_on THEN
1079: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATING DELIVERY DETAIL'||p_num_of_containers );
1080: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1081: END IF;
1082: --
1083:
1076: -- within the Loop
1077:
1078: IF l_debug_on THEN
1079: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATING DELIVERY DETAIL'||p_num_of_containers );
1080: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1081: END IF;
1082: --
1083:
1084:
1091: );
1092:
1093: --
1094: IF l_debug_on THEN
1095: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || x_return_status);
1096: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED DELIVERY DETAIL ' || l_cont_dummy_tab.count);
1097: END IF;
1098: --
1099:
1092:
1093: --
1094: IF l_debug_on THEN
1095: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || x_return_status);
1096: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED DELIVERY DETAIL ' || l_cont_dummy_tab.count);
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 ) );
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);
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;
1114: --
1115: return;
1116: END IF;
1120: FETCH c_get_rowid INTO x_row_id, x_cont_name;
1121: CLOSE c_get_rowid;
1122: --
1123: IF l_debug_on THEN
1124: WSH_DEBUG_SV.log(l_module_name, 'x_row_id',x_row_id);
1125: WSH_DEBUG_SV.log(l_module_name, 'x_cont_name',x_cont_name);
1126: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED CONTAINER DELIVERY DETAIL ');
1127: END IF;
1128: --
1121: CLOSE c_get_rowid;
1122: --
1123: IF l_debug_on THEN
1124: WSH_DEBUG_SV.log(l_module_name, 'x_row_id',x_row_id);
1125: WSH_DEBUG_SV.log(l_module_name, 'x_cont_name',x_cont_name);
1126: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED CONTAINER DELIVERY DETAIL ');
1127: END IF;
1128: --
1129:
1122: --
1123: IF l_debug_on THEN
1124: WSH_DEBUG_SV.log(l_module_name, 'x_row_id',x_row_id);
1125: WSH_DEBUG_SV.log(l_module_name, 'x_cont_name',x_cont_name);
1126: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED CONTAINER DELIVERY DETAIL ');
1127: END IF;
1128: --
1129:
1130: l_del_assg_rec.delivery_id := null;
1132: l_del_assg_rec.parent_delivery_detail_id := null;
1133:
1134: --
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1137: --WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF CONTS'||p_num_of_containers);
1138: WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF RECORDS IN WDD '||l_cont_dummy_tab.count);
1139: END IF;
1140: --
1133:
1134: --
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1137: --WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF CONTS'||p_num_of_containers);
1138: WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF RECORDS IN WDD '||l_cont_dummy_tab.count);
1139: END IF;
1140: --
1141:
1134: --
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1137: --WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF CONTS'||p_num_of_containers);
1138: WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF RECORDS IN WDD '||l_cont_dummy_tab.count);
1139: END IF;
1140: --
1141:
1142: WSH_DELIVERY_DETAILS_PKG.create_deliv_assignment_bulk
1147: x_return_status => x_return_status
1148: );
1149:
1150: IF l_debug_on THEN
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,
1148: );
1149:
1150: IF l_debug_on THEN
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
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;
1164: --
1165: return;
1166: END IF;
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);
1185: END IF;
1186: --
1187: EXCEPTION
1188: WHEN FND_API.G_EXC_ERROR THEN
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');
1199: END IF;
1200:
1201: WHEN Others THEN
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');
1199: END IF;
1200:
1201: WHEN Others THEN
1202: WSH_WMS_LPN_GRP.g_call_group_api := l_orig_value;
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);
1210: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1211: END IF;
1212: --
1213: END Create_Cont_Instance_Multi;
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);
1210: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1211: END IF;
1212: --
1213: END Create_Cont_Instance_Multi;
1214:
1374: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1375: --
1376: IF l_debug_on IS NULL
1377: THEN
1378: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1379: END IF;
1380: --
1381: IF l_debug_on THEN
1382: WSH_DEBUG_SV.push(l_module_name);
1378: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1379: END IF;
1380: --
1381: IF l_debug_on THEN
1382: WSH_DEBUG_SV.push(l_module_name);
1383: --
1384: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ID',P_CONTAINER_ID);
1385: END IF;
1386: --
1380: --
1381: IF l_debug_on THEN
1382: WSH_DEBUG_SV.push(l_module_name);
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;
1406: -- to a closed or in-transit delivery (only open deliveries allowed)
1407:
1408: --
1409: IF l_debug_on THEN
1410: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
1411: END IF;
1412: --
1413: WSH_CONTAINER_UTILITIES.Get_Delivery_Status (
1414: p_container_id,
1432:
1433:
1434: --
1435: IF l_debug_on THEN
1436: WSH_DEBUG_SV.log(l_module_name,'Delivery Status',l_del_sts);
1437: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
1438: END IF;
1439: --
1440: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details (
1433:
1434: --
1435: IF l_debug_on THEN
1436: WSH_DEBUG_SV.log(l_module_name,'Delivery Status',l_del_sts);
1437: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
1438: END IF;
1439: --
1440: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details (
1441: p_rowid => null,
1443: x_return_status => x_return_status);
1444:
1445: --
1446: IF l_debug_on THEN
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
1467:
1468:
1469: --
1470: IF l_debug_on THEN
1471: WSH_DEBUG_SV.pop(l_module_name);
1472: END IF;
1473: --
1474: EXCEPTION
1475:
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
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);
1493: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DELIVERY');
1494: END IF;
1495: --
1496: WHEN Invalid_Detail THEN
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);
1503: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
1504: END IF;
1505: --
1506: WHEN Cont_Not_Empty THEN
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);
1513: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONT_NOT_EMPTY');
1514: END IF;
1515: --
1516: WHEN Container_Error THEN
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');
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
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
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;
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
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
1544: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1545: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1546: END IF;
1547: --
1548: END Delete_Containers;
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);
1545: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1546: END IF;
1547: --
1548: END Delete_Containers;
1549:
1679: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1680: --
1681: IF l_debug_on IS NULL
1682: THEN
1683: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1684: END IF;
1685: --
1686: IF l_debug_on THEN
1687: WSH_DEBUG_SV.push(l_module_name);
1683: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1684: END IF;
1685: --
1686: IF l_debug_on THEN
1687: WSH_DEBUG_SV.push(l_module_name);
1688: --
1689: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
1690: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_CREDIT_HOLDS',P_CHECK_CREDIT_HOLDS);
1691: END IF;
1685: --
1686: IF l_debug_on THEN
1687: WSH_DEBUG_SV.push(l_module_name);
1688: --
1689: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
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
1686: IF l_debug_on THEN
1687: WSH_DEBUG_SV.push(l_module_name);
1688: --
1689: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
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
1699: WSH_DEBUG_SV.pop(l_module_name);
1700: END IF;
1701: --
1702: return;
1703: END IF;
1706: -- to a closed or in-transit delivery (only open deliveries allowed)
1707:
1708: --
1709: IF l_debug_on THEN
1710: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
1711: END IF;
1712: --
1713: WSH_CONTAINER_UTILITIES.Get_Delivery_Status ( p_container_instance_id,
1714: l_delivery_id,
1715: l_del_status,
1716: x_return_status);
1717:
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: --
1716: x_return_status);
1717:
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
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;
1727: --
1728: return;
1729: END IF;
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);
1741: END IF;
1742: --
1743: return;
1744: END IF;
1751: -- container as the first line..
1752:
1753: --
1754: IF l_debug_on THEN
1755: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
1756: END IF;
1757: --
1758: wsh_container_actions.Check_Cont_Attributes (
1759: p_container_instance_id,
1761: x_return_status);
1762:
1763: --
1764: IF l_debug_on THEN
1765: WSH_DEBUG_SV.log(l_module_name,' after CHECK_CONT_ATTRIBUTES, return status is',x_return_status);
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:
1771: --
1772: -- Debug Statements
1773: --
1774: IF l_debug_on THEN
1775: WSH_DEBUG_SV.pop(l_module_name);
1776: END IF;
1777: --
1778: return;
1779: END IF;
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);
1806: END IF;
1807: --
1808: l_action_rec.action := 'MATCH_GROUPS';
1809:
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');
1858: x_return_status := l_ret_sts;
1859: x_pack_status := 'Error';
1860: --
1861: IF l_debug_on THEN
1862: WSH_DEBUG_SV.pop(l_module_name);
1863: END IF;
1864: --
1865: return;
1866: END IF;
1929: IF p_check_credit_holds
1930: THEN
1931: --
1932: IF l_debug_on THEN
1933: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_CREDIT_HOLDS',WSH_DEBUG_SV.C_PROC_LEVEL);
1934: END IF;
1935: --
1936: WSH_DETAILS_VALIDATIONS.Check_Credit_Holds (
1937: l_del_detail_id,
1943: x_return_status);
1944:
1945: --
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
1964: -- success always..
1965:
1966: --
1967: IF l_debug_on THEN
1968: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.VALIDATE_HAZARD_CLASS',WSH_DEBUG_SV.C_PROC_LEVEL);
1969: END IF;
1970: --
1971: WSH_CONTAINER_UTILITIES.Validate_Hazard_Class (
1972: l_del_detail_id,
1984: -- create assignment with l_del_detail_id and p_container_instance_id;
1985:
1986: --
1987: IF l_debug_on THEN
1988: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
1989: END IF;
1990: --
1991: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_To_Cont (
1992: l_del_detail_id,
1994: x_return_status);
1995:
1996: --
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
2024:
2025: --dbms_output.put_line('calling update cont hierarchy with ' || p_container_instance_id);
2026: --
2027: IF l_debug_on THEN
2028: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
2029: END IF;
2030: --
2031: wsh_container_actions.Update_Cont_Hierarchy (
2032: l_del_detail_id,
2034: p_container_instance_id,
2035: x_return_status);
2036: --
2037: IF l_debug_on THEN
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
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);
2094: x_return_status := l_ret_sts;
2095:
2096: --
2097: IF l_debug_on THEN
2098: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2099: WSH_DEBUG_SV.pop(l_module_name);
2100: END IF;
2101: --
2102: EXCEPTION
2095:
2096: --
2097: IF l_debug_on THEN
2098: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2099: WSH_DEBUG_SV.pop(l_module_name);
2100: END IF;
2101: --
2102: EXCEPTION
2103:
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);
2111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2112: END IF;
2113: --
2114: END Assign_Detail;
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);
2111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2112: END IF;
2113: --
2114: END Assign_Detail;
2115:
2240: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2241: --
2242: IF l_debug_on IS NULL
2243: THEN
2244: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2245: END IF;
2246: --
2247: IF l_debug_on THEN
2248: WSH_DEBUG_SV.push(l_module_name);
2244: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2245: END IF;
2246: --
2247: IF l_debug_on THEN
2248: WSH_DEBUG_SV.push(l_module_name);
2249: --
2250: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2251: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2252: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2246: --
2247: IF l_debug_on THEN
2248: WSH_DEBUG_SV.push(l_module_name);
2249: --
2250: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2251: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2252: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2253: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
2254: END IF;
2247: IF l_debug_on THEN
2248: WSH_DEBUG_SV.push(l_module_name);
2249: --
2250: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2251: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2252: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2253: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
2254: END IF;
2255: --
2248: WSH_DEBUG_SV.push(l_module_name);
2249: --
2250: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2251: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2252: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2253: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
2254: END IF;
2255: --
2256: IF p_del_detail_tab.count = 0 THEN
2249: --
2250: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2251: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2252: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2253: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
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);
2263: END IF;
2264: --
2265: return;
2266: END IF;
2285: END IF;
2286:
2287: --
2288: IF l_debug_on THEN
2289: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
2290: END IF;
2291: --
2292: WSH_CONTAINER_UTILITIES.Get_Delivery_Status (
2293: l_cont_instance_id,
2296: x_return_status);
2297:
2298: --
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
2338: END LOOP;
2339:
2340: IF l_mdc_index > 0 THEN
2341: IF l_debug_on THEN
2342: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Unpack_Details_from_Consol',WSH_DEBUG_SV.C_PROC_LEVEL);
2343: END IF;
2344: Unpack_Details_from_Consol
2345: (p_delivery_details_tab => l_mdc_details,
2346: p_caller => 'WMS_UNASSIGN_CONSOL',
2346: p_caller => 'WMS_UNASSIGN_CONSOL',
2347: x_return_status => x_return_status);
2348:
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: --
2358: IF l_debug_on THEN
2359: WSH_DEBUG_SV.pop(l_module_name);
2360: END IF;
2361: --
2362: return;
2363: END IF;
2369:
2370: END IF;
2371: --
2372: IF l_debug_on THEN
2373: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
2374: END IF;
2375: --
2376: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Multiple_Details (
2377: l_del_detail_rec,
2382: p_action_prms);
2383:
2384: --
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
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;
2399: --
2400: return;
2401: END IF;
2415: l_wms_org := wsh_util_validate.check_wms_org(l_cont_org_tab(i));
2416: -- K LPN CONV. rv
2417:
2418: IF l_debug_on THEN
2419: WSH_DEBUG_SV.log(l_module_name,'l_wms_org',l_wms_org);
2420: END IF;
2421: --dbms_output.put_line('calling last assigned line for ' || l_del_detail_rec(i));
2422:
2423: --
2421: --dbms_output.put_line('calling last assigned line for ' || l_del_detail_rec(i));
2422:
2423: --
2424: IF l_debug_on THEN
2425: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.LAST_ASSIGNED_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
2426: END IF;
2427: --
2428: wsh_container_actions.Last_Assigned_Line (
2429: l_del_detail_rec(i),
2432: x_return_status);
2433:
2434: --
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: --
2444: IF l_debug_on THEN
2445: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
2457: --dbms_output.put_line('calling check cont attr with ' || l_cont_tab(i));
2458:
2459: --
2460: IF l_debug_on THEN
2461: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
2462: END IF;
2463: --
2464: wsh_container_actions.Check_Cont_Attributes (
2465: l_cont_tab(i),
2466: l_attr_flag,
2467: x_return_status);
2468: --
2469: IF l_debug_on THEN
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
2509: x_return_status => l_return_status
2510: );
2511:
2512: IF l_debug_on THEN
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
2552: END IF;
2553:
2554: --
2555: IF l_debug_on THEN
2556: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
2557: END IF;
2558: --
2559: wsh_container_actions.Update_Cont_Hierarchy (
2560: l_cont_tab(i),
2562: l_cont_tab(i),
2563: x_return_status);
2564: --
2565: IF l_debug_on THEN
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
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);
2610:
2611: IF l_cont_flag = 'N' THEN --{
2612: --
2613: IF l_debug_on THEN
2614: WSH_DEBUG_SV.log(l_module_name,'l_cont_flag',l_cont_flag);
2615: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',l_del_detail_rec(i));
2616: END IF;
2617: --
2618: UPDATE wsh_delivery_details --bug 5165197
2611: IF l_cont_flag = 'N' THEN --{
2612: --
2613: IF l_debug_on THEN
2614: WSH_DEBUG_SV.log(l_module_name,'l_cont_flag',l_cont_flag);
2615: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',l_del_detail_rec(i));
2616: END IF;
2617: --
2618: UPDATE wsh_delivery_details --bug 5165197
2619: SET master_serial_number = NULL
2622: ELSIF l_cont_flag = 'Y' THEN --}{
2623:
2624: --
2625: IF l_debug_on THEN
2626: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
2627: END IF;
2628: --
2629: WSH_CONTAINER_UTILITIES.Get_Delivery_Status (
2630: l_del_detail_rec(i),
2632: l_del_status,
2633: x_return_status);
2634: --
2635: IF l_debug_on THEN
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
2663: END IF;
2664:
2665: --
2666: IF l_debug_on THEN
2667: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.LAST_ASSIGNED_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
2668: END IF;
2669: --
2670: wsh_container_actions.Last_Assigned_Line (
2671: NULL,
2673: l_last_line_flag,
2674: x_return_status);
2675: --
2676: IF l_debug_on THEN
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 --{
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);
2697: --dbms_output.put_line('calling check cont attr with ' || l_del_detail_rec(i));
2698:
2699: --
2700: IF l_debug_on THEN
2701: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
2702: END IF;
2703: --
2704: wsh_container_actions.Check_Cont_Attributes (
2705: l_del_detail_rec(i),
2706: l_attr_flag,
2707: x_return_status);
2708: --
2709: IF l_debug_on THEN
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 --{
2742: x_return_status => l_return_status
2743: );
2744:
2745: IF l_debug_on THEN
2746: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2747: END IF;
2748: --
2749: --
2750: --
2786: END IF;
2787:
2788: --
2789: IF l_debug_on THEN
2790: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
2791: END IF;
2792: --
2793: wsh_container_actions.Update_Cont_Hierarchy (
2794: l_del_detail_rec(i),
2796: l_del_detail_rec(i),
2797: x_return_status);
2798: --
2799: IF l_debug_on THEN
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 --{
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);
2842: x_return_status => l_return_status
2843: );
2844:
2845: IF l_debug_on THEN
2846: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2847: END IF;
2848: --
2849: --
2850: --
2869: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2870: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CHILD_UPD_ERROR');
2871: --
2872: IF l_debug_on THEN
2873: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
2882: END IF;
2883:
2884: --
2885: IF l_debug_on THEN
2886: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_MASTER_SERIAL_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
2887: END IF;
2888: --
2889: WSH_CONTAINER_UTILITIES.Get_Master_Serial_Number (
2890: l_del_detail_rec(i),
2891: l_master_serial_number,
2892: x_return_status);
2893: --
2894: IF l_debug_on THEN
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
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);
2912: END IF;
2913:
2914: --
2915: IF l_debug_on THEN
2916: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
2917: END IF;
2918: --
2919: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
2920: l_del_detail_rec(i),
2922: l_master_serial_number,
2923: x_return_status);
2924: --
2925: IF l_debug_on THEN
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
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');
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;
2945: --
2946: return;
2947: END IF;
2980:
2981: IF l_fill_status = 'O' THEN
2982:
2983: IF l_debug_on THEN
2984: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2985: 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');
2992: x_pack_status := 'Overpacked';
2993:
2994: ELSIF l_fill_status = 'U' THEN
2995: IF l_debug_on THEN
2996: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2997: END IF;
2998: --
2999: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3000: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
3016: END IF;
3017:
3018: --
3019: IF l_debug_on THEN
3020: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3021: WSH_DEBUG_SV.pop(l_module_name);
3022: END IF;
3023: --
3024: EXCEPTION
3017:
3018: --
3019: IF l_debug_on THEN
3020: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3021: WSH_DEBUG_SV.pop(l_module_name);
3022: END IF;
3023: --
3024: EXCEPTION
3025:
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);
3033: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3034: END IF;
3035: --
3036: END Unassign_Detail;
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);
3033: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3034: END IF;
3035: --
3036: END Unassign_Detail;
3037:
3063: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3064: --
3065: IF l_debug_on IS NULL
3066: THEN
3067: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3068: END IF;
3069: --
3070: IF l_debug_on THEN
3071: WSH_DEBUG_SV.push(l_module_name);
3067: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3068: END IF;
3069: --
3070: IF l_debug_on THEN
3071: WSH_DEBUG_SV.push(l_module_name);
3072: --
3073: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3074: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3075: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3069: --
3070: IF l_debug_on THEN
3071: WSH_DEBUG_SV.push(l_module_name);
3072: --
3073: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3074: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3075: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3076: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
3077: END IF;
3070: IF l_debug_on THEN
3071: WSH_DEBUG_SV.push(l_module_name);
3072: --
3073: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3074: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3075: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3076: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
3077: END IF;
3078: --
3071: WSH_DEBUG_SV.push(l_module_name);
3072: --
3073: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3074: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3075: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3076: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
3077: END IF;
3078: --
3079: --
3072: --
3073: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3074: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3075: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3076: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
3077: END IF;
3078: --
3079: --
3080: IF l_debug_on THEN
3077: END IF;
3078: --
3079: --
3080: IF l_debug_on THEN
3081: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.Unassign_Detail',WSH_DEBUG_SV.C_PROC_LEVEL);
3082: END IF;
3083: --
3084: Unassign_Detail
3085: (
3093: l_action_prms
3094: );
3095: --
3096: IF l_debug_on THEN
3097: WSH_DEBUG_SV.pop(l_module_name);
3098: END IF;
3099: --
3100: EXCEPTION
3101:
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;
3109: --
3110: END Unassign_Detail;
3111: /*
3174: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3175: --
3176: IF l_debug_on IS NULL
3177: THEN
3178: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3179: END IF;
3180: --
3181: IF l_debug_on THEN
3182: WSH_DEBUG_SV.push(l_module_name);
3178: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3179: END IF;
3180: --
3181: IF l_debug_on THEN
3182: WSH_DEBUG_SV.push(l_module_name);
3183: --
3184: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3185: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3186: END IF;
3180: --
3181: IF l_debug_on THEN
3182: WSH_DEBUG_SV.push(l_module_name);
3183: --
3184: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3185: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3186: END IF;
3187: --
3188: OPEN Get_Cont_Org (p_container_instance_id);
3181: IF l_debug_on THEN
3182: WSH_DEBUG_SV.push(l_module_name);
3183: --
3184: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3185: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3186: END IF;
3187: --
3188: OPEN Get_Cont_Org (p_container_instance_id);
3189:
3192: IF Get_Cont_Org%NOTFOUND THEN
3193: CLOSE Get_Cont_Org;
3194: --
3195: IF l_debug_on THEN
3196: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3197: 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');
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;
3208: --
3209: return;
3210: END IF;
3219: IF Get_Del_Org%NOTFOUND THEN
3220: CLOSE Get_Del_Org;
3221: --
3222: IF l_debug_on THEN
3223: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3224: 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');
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;
3235: --
3236: return;
3237: END IF;
3243: IF l_cont_org = l_del_org THEN
3244:
3245: --
3246: IF l_debug_on THEN
3247: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_DELIVERY_ASSIGNMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
3248: END IF;
3249: --
3250: wsh_container_actions.Create_Delivery_Assignment(
3251: p_container_instance_id,
3256: );
3257:
3258: --
3259: IF l_debug_on THEN
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
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;
3269: --
3270: return;
3271: END IF;
3271: END IF;
3272: ELSE
3273: --
3274: IF l_debug_on THEN
3275: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3276: END IF;
3277: --
3278: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3279: --
3277: --
3278: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3279: --
3280: IF l_debug_on THEN
3281: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3282: END IF;
3283: --
3284: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id);
3285: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
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;
3294: --
3295: return;
3296: END IF;
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);
3304: END IF;
3305: --
3306: EXCEPTION
3307:
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);
3315: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3316: END IF;
3317: --
3318: END Assign_To_Delivery;
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);
3315: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3316: END IF;
3317: --
3318: END Assign_To_Delivery;
3319:
3342: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3343: --
3344: IF l_debug_on IS NULL
3345: THEN
3346: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3347: END IF;
3348: --
3349: IF l_debug_on THEN
3350: WSH_DEBUG_SV.push(l_module_name);
3346: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3347: END IF;
3348: --
3349: IF l_debug_on THEN
3350: WSH_DEBUG_SV.push(l_module_name);
3351: --
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;
3348: --
3349: IF l_debug_on THEN
3350: WSH_DEBUG_SV.push(l_module_name);
3351: --
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;
3349: IF l_debug_on THEN
3350: WSH_DEBUG_SV.push(l_module_name);
3351: --
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: --
3369: x_return_status => x_return_status
3370: );
3371: --
3372: IF l_debug_on THEN
3373: WSH_DEBUG_SV.pop(l_module_name);
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');
3383: END IF;
3384: END Assign_To_Delivery;
3385:
3386:
3420: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3421: --
3422: IF l_debug_on IS NULL
3423: THEN
3424: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3425: END IF;
3426: --
3427: IF l_debug_on THEN
3428: WSH_DEBUG_SV.push(l_module_name);
3424: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3425: END IF;
3426: --
3427: IF l_debug_on THEN
3428: WSH_DEBUG_SV.push(l_module_name);
3429: --
3430: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3431: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3432: END IF;
3426: --
3427: IF l_debug_on THEN
3428: WSH_DEBUG_SV.push(l_module_name);
3429: --
3430: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3431: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3432: END IF;
3433: --
3434: --
3427: IF l_debug_on THEN
3428: WSH_DEBUG_SV.push(l_module_name);
3429: --
3430: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3431: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3432: END IF;
3433: --
3434: --
3435: IF l_debug_on THEN
3432: END IF;
3433: --
3434: --
3435: IF l_debug_on THEN
3436: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
3437: END IF;
3438: --
3439: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_to_Delivery(
3440: P_DETAIL_ID =>p_container_instance_id ,
3444: x_dlvy_freight_Terms_code => x_dlvy_freight_Terms_code
3445: );
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: --
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);
3473: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3474: END IF;
3475: --
3476: END Create_Delivery_Assignment;
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');
3474: END IF;
3475: --
3476: END Create_Delivery_Assignment;
3477:
3500: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3501: --
3502: IF l_debug_on IS NULL
3503: THEN
3504: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3505: END IF;
3506: --
3507: IF l_debug_on THEN
3508: WSH_DEBUG_SV.push(l_module_name);
3504: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3505: END IF;
3506: --
3507: IF l_debug_on THEN
3508: WSH_DEBUG_SV.push(l_module_name);
3509: --
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;
3506: --
3507: IF l_debug_on THEN
3508: WSH_DEBUG_SV.push(l_module_name);
3509: --
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;
3507: IF l_debug_on THEN
3508: WSH_DEBUG_SV.push(l_module_name);
3509: --
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: --
3527: x_dlvy_freight_Terms_code => l_dlvy_freight_Terms_code
3528: );
3529: --
3530: IF l_debug_on THEN
3531: WSH_DEBUG_SV.pop(l_module_name);
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');
3541: END IF;
3542: END Create_Delivery_Assignment;
3543:
3544:
3644: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3645: --
3646: IF l_debug_on IS NULL
3647: THEN
3648: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3649: END IF;
3650: --
3651: IF l_debug_on THEN
3652: WSH_DEBUG_SV.push(l_module_name);
3648: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3649: END IF;
3650: --
3651: IF l_debug_on THEN
3652: WSH_DEBUG_SV.push(l_module_name);
3653: --
3654: WSH_DEBUG_SV.log(l_module_name,'P_DET_CONT_INST_ID',P_DET_CONT_INST_ID);
3655: WSH_DEBUG_SV.log(l_module_name,'P_PAR_CONT_INST_ID',P_PAR_CONT_INST_ID);
3656: END IF;
3650: --
3651: IF l_debug_on THEN
3652: WSH_DEBUG_SV.push(l_module_name);
3653: --
3654: WSH_DEBUG_SV.log(l_module_name,'P_DET_CONT_INST_ID',P_DET_CONT_INST_ID);
3655: WSH_DEBUG_SV.log(l_module_name,'P_PAR_CONT_INST_ID',P_PAR_CONT_INST_ID);
3656: END IF;
3657: --
3658: OPEN Get_Cont_Org (p_det_cont_inst_id);
3651: IF l_debug_on THEN
3652: WSH_DEBUG_SV.push(l_module_name);
3653: --
3654: WSH_DEBUG_SV.log(l_module_name,'P_DET_CONT_INST_ID',P_DET_CONT_INST_ID);
3655: WSH_DEBUG_SV.log(l_module_name,'P_PAR_CONT_INST_ID',P_PAR_CONT_INST_ID);
3656: END IF;
3657: --
3658: OPEN Get_Cont_Org (p_det_cont_inst_id);
3659:
3662: IF Get_Cont_Org%NOTFOUND THEN
3663: CLOSE Get_Cont_Org;
3664: --
3665: IF l_debug_on THEN
3666: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3667: END IF;
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');
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;
3678: --
3679: return;
3680: END IF;
3690: IF Get_Cont_Org%NOTFOUND THEN
3691: CLOSE Get_Cont_Org;
3692: --
3693: IF l_debug_on THEN
3694: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3695: 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');
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;
3706: --
3707: return;
3708: END IF;
3713:
3714: IF l_det_cont_org <> l_par_cont_org THEN
3715: --
3716: IF l_debug_on THEN
3717: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3718: END IF;
3719: --
3720: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
3721: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
3721: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
3722: FND_MESSAGE.SET_TOKEN('ENTITY1',l_cont_name);
3723: --
3724: IF l_debug_on THEN
3725: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
3735: END IF;
3736: --
3737: return;
3738: END IF;
3741: -- to a closed or in-transit delivery (only open deliveries allowed)
3742:
3743: --
3744: IF l_debug_on THEN
3745: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
3746: END IF;
3747: --
3748: WSH_CONTAINER_UTILITIES.Get_Delivery_Status ( p_par_cont_inst_id,
3749: l_par_del_id,
3750: l_del_status,
3751: x_return_status);
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
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;
3761: --
3762: return;
3763: END IF;
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;
3775: --
3776: return;
3777: END IF;
3781: -- to a closed or in-transit delivery (only open deliveries allowed)
3782:
3783: --
3784: IF l_debug_on THEN
3785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
3786: END IF;
3787: --
3788: WSH_CONTAINER_UTILITIES.Get_Delivery_Status ( p_det_cont_inst_id,
3789: l_det_del_id,
3790: l_del_status,
3791: x_return_status);
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
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;
3801: --
3802: return;
3803: END IF;
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;
3815: --
3816: return;
3817: END IF;
3817: END IF;
3818: END IF;
3819:
3820: IF l_debug_on THEN
3821: WSH_DEBUG_SV.log(l_module_name,'l_det_del_id',l_det_del_id);
3822: WSH_DEBUG_SV.log(l_module_name,'l_par_del_id',l_par_del_id);
3823: END IF;
3824:
3825: IF ((nvl(l_det_del_id,-99) <> -99) AND (nvl(l_par_del_id,-99) <> -99)) THEN
3818: END IF;
3819:
3820: IF l_debug_on THEN
3821: WSH_DEBUG_SV.log(l_module_name,'l_det_del_id',l_det_del_id);
3822: WSH_DEBUG_SV.log(l_module_name,'l_par_del_id',l_par_del_id);
3823: END IF;
3824:
3825: IF ((nvl(l_det_del_id,-99) <> -99) AND (nvl(l_par_del_id,-99) <> -99)) THEN
3826:
3830: -- R12: MDC: For WMS we can assign containers to parent containers on different deliveries.
3831: IF wsh_util_validate.check_wms_org(l_par_cont_org) = 'Y' THEN
3832:
3833: IF l_debug_on THEN
3834: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Assign_Container_to_Consol',WSH_DEBUG_SV.C_PROC_LEVEL);
3835: END IF;
3836: Assign_Container_to_Consol(
3837: p_child_container_id => p_det_cont_inst_id,
3838: p_parent_container_id => p_par_cont_inst_id,
3839: p_caller => 'WMS_PACK_CONSOL',
3840: x_return_status => x_return_status);
3841:
3842: IF l_debug_on THEN
3843: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
3844: END IF;
3845:
3846: return;
3847: ELSE
3848:
3849:
3850: --
3851: IF l_debug_on THEN
3852: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3853: END IF;
3854: --
3855: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
3856: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_DEL_DIFF');
3856: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_DEL_DIFF');
3857: FND_MESSAGE.SET_TOKEN('ENTITY1',l_cont_name);
3858: --
3859: IF l_debug_on THEN
3860: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
3870: END IF;
3871: --
3872: return;
3873:
3877: END IF;
3878:
3879: --
3880: IF l_debug_on THEN
3881: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_MASTER_CONT_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
3882: END IF;
3883: --
3884: WSH_CONTAINER_UTILITIES.Get_Master_Cont_Serial (
3885: p_par_cont_inst_id,
3887: l_master_cont_name,
3888: l_master_serial_number,
3889: x_return_status);
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);
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
3899: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
3910: END IF;
3911:
3912: --
3913: IF l_debug_on THEN
3914: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
3915: END IF;
3916: --
3917: wsh_container_actions.Check_Cont_Attributes (
3918: p_det_cont_inst_id,
3919: l_det_attr_flag,
3920: x_return_status);
3921:
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');
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;
3933: --
3934: return;
3935: END IF;
3936:
3937:
3938: --
3939: IF l_debug_on THEN
3940: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
3941: END IF;
3942: --
3943: wsh_container_actions.Check_Cont_Attributes (
3944: p_par_cont_inst_id,
3945: l_par_attr_flag,
3946: x_return_status);
3947:
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');
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;
3959: --
3960: return;
3961: END IF;
3965: --dbms_output.put_line('creating assignment of cont ' || p_det_cont_inst_id || ' to container ' || p_par_cont_inst_id);
3966: -- just create assignment of child container to parent.
3967: --
3968: IF l_debug_on THEN
3969: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
3970: END IF;
3971: --
3972: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Cont_To_Cont (
3973: p_det_cont_inst_id,
3974: p_par_cont_inst_id,
3975: x_return_status);
3976:
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: --
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;
3986: --
3987: return;
3988: END IF;
3991:
3992:
3993: --
3994: IF l_debug_on THEN
3995: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
3996: END IF;
3997: --
3998: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
3999: p_det_cont_inst_id,
4001: l_master_serial_number,
4002: x_return_status);
4003:
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: --
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');
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;
4023: --
4024: return;
4025: END IF;
4030:
4031: -- just create assignment of child container to parent.
4032: --
4033: IF l_debug_on THEN
4034: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
4035: END IF;
4036: --
4037: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Cont_To_Cont (
4038: p_det_cont_inst_id,
4039: p_par_cont_inst_id,
4040: x_return_status);
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
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;
4050: --
4051: return;
4052: END IF;
4054: --
4055: -- Debug Statements
4056: --
4057: IF l_debug_on THEN
4058: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
4059: END IF;
4060: --
4061: wsh_container_actions.Update_Cont_Hierarchy (
4062: p_par_cont_inst_id,
4063: l_det_del_id,
4064: p_det_cont_inst_id,
4065: x_return_status );
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');
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);
4081: END IF;
4082:
4083: --
4084: IF l_debug_on THEN
4085: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4086: END IF;
4087: --
4088: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
4089: p_det_cont_inst_id,
4090: l_master_cont_id,
4091: l_master_serial_number,
4092: x_return_status);
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: --
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');
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;
4112: --
4113: return;
4114: END IF;
4119:
4120: -- just create assignment of child container to parent.
4121: --
4122: IF l_debug_on THEN
4123: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
4124: END IF;
4125: --
4126: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Cont_To_Cont (
4127: p_det_cont_inst_id,
4128: p_par_cont_inst_id,
4129: x_return_status);
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: --
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);
4139: END IF;
4140: --
4141: return;
4142: END IF;
4142: END IF;
4143:
4144: --
4145: IF l_debug_on THEN
4146: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
4147: END IF;
4148: --
4149: wsh_container_actions.Update_Cont_Hierarchy (
4150: p_det_cont_inst_id,
4152: p_par_cont_inst_id,
4153: x_return_status );
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: --
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);
4169: END IF;
4170:
4171: --
4172: IF l_debug_on THEN
4173: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4174: END IF;
4175: --
4176: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
4177: p_det_cont_inst_id,
4178: l_master_cont_id,
4179: l_master_serial_number,
4180: x_return_status);
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: --
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');
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;
4200: --
4201: return;
4202: END IF;
4214: l_attr_tab(2).entity_type := 'DELIVERY_DETAIL';
4215:
4216: --
4217: IF l_debug_on THEN
4218: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
4219: END IF;
4220:
4221: l_action_rec.action := 'MATCH_GROUPS';
4222: l_action_rec.check_single_grp := 'Y';
4230: x_out_rec => l_out_rec,
4231: x_return_status => x_return_status);
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');
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;
4244: --
4245: return;
4246: END IF;
4249:
4250: -- create assignment between child and parent container
4251: --
4252: IF l_debug_on THEN
4253: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
4254: END IF;
4255: --
4256: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Cont_To_Cont (
4257: p_det_cont_inst_id,
4258: p_par_cont_inst_id,
4259: x_return_status);
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: --
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);
4269: END IF;
4270: --
4271: return;
4272: END IF;
4273:
4274: -- call update cont attributes to update grouping attr.
4275: --
4276: IF l_debug_on THEN
4277: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4278: END IF;
4279: --
4280: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
4281: p_det_cont_inst_id,
4282: l_master_cont_id,
4283: l_master_serial_number,
4284: x_return_status);
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: --
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');
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;
4304: --
4305: return;
4306: END IF;
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);
4316: END IF;
4317: --
4318: EXCEPTION
4319:
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);
4327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4328: END IF;
4329: --
4330: END Assign_To_Container;
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);
4327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4328: END IF;
4329: --
4330: END Assign_To_Container;
4331:
4391: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4392: --
4393: IF l_debug_on IS NULL
4394: THEN
4395: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4396: END IF;
4397: --
4398: IF l_debug_on THEN
4399: WSH_DEBUG_SV.push(l_module_name);
4395: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4396: END IF;
4397: --
4398: IF l_debug_on THEN
4399: WSH_DEBUG_SV.push(l_module_name);
4400: --
4401: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ITEM_ID',P_CONTAINER_ITEM_ID);
4402: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4403: WSH_DEBUG_SV.log(l_module_name,'P_W_V_BOTH',P_W_V_BOTH);
4397: --
4398: IF l_debug_on THEN
4399: WSH_DEBUG_SV.push(l_module_name);
4400: --
4401: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ITEM_ID',P_CONTAINER_ITEM_ID);
4402: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4403: WSH_DEBUG_SV.log(l_module_name,'P_W_V_BOTH',P_W_V_BOTH);
4404: END IF;
4405: --
4398: IF l_debug_on THEN
4399: WSH_DEBUG_SV.push(l_module_name);
4400: --
4401: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ITEM_ID',P_CONTAINER_ITEM_ID);
4402: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4403: WSH_DEBUG_SV.log(l_module_name,'P_W_V_BOTH',P_W_V_BOTH);
4404: END IF;
4405: --
4406: x_error_cnt := 0;
4399: WSH_DEBUG_SV.push(l_module_name);
4400: --
4401: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ITEM_ID',P_CONTAINER_ITEM_ID);
4402: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4403: WSH_DEBUG_SV.log(l_module_name,'P_W_V_BOTH',P_W_V_BOTH);
4404: END IF;
4405: --
4406: x_error_cnt := 0;
4407: x_return_status := C_SUCCESS_STATUS;
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);
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);
4505: --dbms_output.put_line('WSH_CONTAINER_ACTIONS.Get_Cont_Load_Vol_info returned '||x_return_status||' with error count '||x_error_cnt);
4506:
4507: --
4508: IF l_debug_on THEN
4509: WSH_DEBUG_SV.log(l_module_name,'MAX LOAD',x_max_load);
4510: WSH_DEBUG_SV.log(l_module_name,'MAX VOLUME',x_max_vol);
4511: WSH_DEBUG_SV.pop(l_module_name);
4512: END IF;
4513: --
4506:
4507: --
4508: IF l_debug_on THEN
4509: WSH_DEBUG_SV.log(l_module_name,'MAX LOAD',x_max_load);
4510: WSH_DEBUG_SV.log(l_module_name,'MAX VOLUME',x_max_vol);
4511: WSH_DEBUG_SV.pop(l_module_name);
4512: END IF;
4513: --
4514: RETURN;
4507: --
4508: IF l_debug_on THEN
4509: WSH_DEBUG_SV.log(l_module_name,'MAX LOAD',x_max_load);
4510: WSH_DEBUG_SV.log(l_module_name,'MAX VOLUME',x_max_vol);
4511: WSH_DEBUG_SV.pop(l_module_name);
4512: END IF;
4513: --
4514: RETURN;
4515:
4522: x_return_status := C_UNEXP_ERROR_STATUS;
4523:
4524: --
4525: IF l_debug_on THEN
4526: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4527: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4528: END IF;
4529: --
4530: END Get_Cont_Load_Vol_info;
4523:
4524: --
4525: IF l_debug_on THEN
4526: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4527: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4528: END IF;
4529: --
4530: END Get_Cont_Load_Vol_info;
4531:
4565: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4566: --
4567: IF l_debug_on IS NULL
4568: THEN
4569: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4570: END IF;
4571: --
4572: IF l_debug_on THEN
4573: WSH_DEBUG_SV.push(l_module_name);
4569: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4570: END IF;
4571: --
4572: IF l_debug_on THEN
4573: WSH_DEBUG_SV.push(l_module_name);
4574: --
4575: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4576: END IF;
4577: --
4571: --
4572: IF l_debug_on THEN
4573: WSH_DEBUG_SV.push(l_module_name);
4574: --
4575: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4576: END IF;
4577: --
4578: --
4579: IF l_debug_on THEN
4576: END IF;
4577: --
4578: --
4579: IF l_debug_on THEN
4580: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',WSH_DEBUG_SV.C_PROC_LEVEL);
4581: END IF;
4582: --
4583: WSH_SHIPPING_PARAMS_PVT.Get(
4584: p_organization_id => p_organization_id,
4585: x_param_info => l_param_info,
4586: x_return_status => x_return_status);
4587:
4588: IF l_debug_on THEN
4589: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4590: END IF;
4591: IF (x_return_status = C_SUCCESS_STATUS) THEN
4592: x_fill_basis := l_param_info.percent_fill_basis_flag;
4593: -- HW OPMCONV - No need to populate this value
4597: --dbms_output.put_line('WSH_CONTAINER_ACTIONS.Calc_Fill_Basis_and_proc_flag returned '||x_return_status);
4598:
4599: --
4600: IF l_debug_on THEN
4601: WSH_DEBUG_SV.pop(l_module_name);
4602: END IF;
4603: --
4604: RETURN;
4605:
4604: RETURN;
4605:
4606: --
4607: IF l_debug_on THEN
4608: WSH_DEBUG_SV.pop(l_module_name);
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);
4618: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4619: END IF;
4620: --
4621: END Calc_Fill_Basis_and_proc_flag;
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);
4618: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4619: END IF;
4620: --
4621: END Calc_Fill_Basis_and_proc_flag;
4622:
4674: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4675: --
4676: IF l_debug_on IS NULL
4677: THEN
4678: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4679: END IF;
4680: --
4681: IF l_debug_on THEN
4682: WSH_DEBUG_SV.push(l_module_name);
4678: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4679: END IF;
4680: --
4681: IF l_debug_on THEN
4682: WSH_DEBUG_SV.push(l_module_name);
4683: --
4684: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4685: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
4686: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4680: --
4681: IF l_debug_on THEN
4682: WSH_DEBUG_SV.push(l_module_name);
4683: --
4684: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4685: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
4686: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4687: END IF;
4688: --
4681: IF l_debug_on THEN
4682: WSH_DEBUG_SV.push(l_module_name);
4683: --
4684: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4685: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
4686: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4687: END IF;
4688: --
4689: x_error_cnt := 0;
4682: WSH_DEBUG_SV.push(l_module_name);
4683: --
4684: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4685: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
4686: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4687: END IF;
4688: --
4689: x_error_cnt := 0;
4690: x_return_status := C_SUCCESS_STATUS;
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: --
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);
4745: --dbms_output.put_line('WSH_CONTAINER_ACTIONS.Calc_Pref_Container returned '||x_return_status||' with error count '||x_error_cnt);
4746:
4747: --
4748: IF l_debug_on THEN
4749: WSH_DEBUG_SV.pop(l_module_name);
4750: END IF;
4751: --
4752: RETURN;
4753:
4752: RETURN;
4753:
4754: --
4755: IF l_debug_on THEN
4756: WSH_DEBUG_SV.pop(l_module_name);
4757: END IF;
4758: --
4759: EXCEPTION
4760: WHEN Others THEN
4765: x_return_status := C_UNEXP_ERROR_STATUS;
4766:
4767: --
4768: IF l_debug_on THEN
4769: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4770: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4771: END IF;
4772: --
4773: END Calc_Pref_Container;
4766:
4767: --
4768: IF l_debug_on THEN
4769: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4770: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4771: END IF;
4772: --
4773: END Calc_Pref_Container;
4774:
4837: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4838: --
4839: IF l_debug_on IS NULL
4840: THEN
4841: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4842: END IF;
4843: --
4844: IF l_debug_on THEN
4845: WSH_DEBUG_SV.push(l_module_name);
4841: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4842: END IF;
4843: --
4844: IF l_debug_on THEN
4845: WSH_DEBUG_SV.push(l_module_name);
4846: WSH_DEBUG_SV.log(l_module_name,'In Pack_Delivery_Detail API, Packing wdd '||p_line_cont_rec.delivery_detail_id||' div flag '||p_line_cont_rec.indivisible_flag||' Process Flag '||p_line_cont_rec.process_flag);
4847: WSH_DEBUG_SV.log(l_module_name,'Fill Pc Basis '||p_line_cont_rec.fill_pc_basis||' G Wt '||p_line_cont_rec.gross_weight||' N Wt '||p_line_cont_rec.net_weight||' Vol '||p_line_cont_rec.volume );
4848: END IF;
4849: --
4842: END IF;
4843: --
4844: IF l_debug_on THEN
4845: WSH_DEBUG_SV.push(l_module_name);
4846: WSH_DEBUG_SV.log(l_module_name,'In Pack_Delivery_Detail API, Packing wdd '||p_line_cont_rec.delivery_detail_id||' div flag '||p_line_cont_rec.indivisible_flag||' Process Flag '||p_line_cont_rec.process_flag);
4847: WSH_DEBUG_SV.log(l_module_name,'Fill Pc Basis '||p_line_cont_rec.fill_pc_basis||' G Wt '||p_line_cont_rec.gross_weight||' N Wt '||p_line_cont_rec.net_weight||' Vol '||p_line_cont_rec.volume );
4848: END IF;
4849: --
4850: l_dd_gross_wt_left := ROUND(p_line_cont_rec.gross_weight,LIMITED_PRECISION);
4843: --
4844: IF l_debug_on THEN
4845: WSH_DEBUG_SV.push(l_module_name);
4846: WSH_DEBUG_SV.log(l_module_name,'In Pack_Delivery_Detail API, Packing wdd '||p_line_cont_rec.delivery_detail_id||' div flag '||p_line_cont_rec.indivisible_flag||' Process Flag '||p_line_cont_rec.process_flag);
4847: WSH_DEBUG_SV.log(l_module_name,'Fill Pc Basis '||p_line_cont_rec.fill_pc_basis||' G Wt '||p_line_cont_rec.gross_weight||' N Wt '||p_line_cont_rec.net_weight||' Vol '||p_line_cont_rec.volume );
4848: END IF;
4849: --
4850: l_dd_gross_wt_left := ROUND(p_line_cont_rec.gross_weight,LIMITED_PRECISION);
4851: l_dd_net_wt_left := ROUND(p_line_cont_rec.net_weight,LIMITED_PRECISION);
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;
4878: END IF;
4879: -- Bug 2786021
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;
4901: END IF;
4902: -- Bug 2786021
4902: -- Bug 2786021
4903: END IF;
4904:
4905: IF l_debug_on THEN
4906: WSH_DEBUG_SV.log(l_module_name,'Wt per pc-',l_weight_per_pc);
4907: WSH_DEBUG_SV.log(l_module_name,'Vol per pc-',l_volume_per_pc);
4908: WSH_DEBUG_SV.log(l_module_name,'Cont max load-',l_mtl_max_load);
4909: WSH_DEBUG_SV.log(l_module_name,'Cont max vol-',l_mtl_max_vol);
4910: END IF;
4903: END IF;
4904:
4905: IF l_debug_on THEN
4906: WSH_DEBUG_SV.log(l_module_name,'Wt per pc-',l_weight_per_pc);
4907: WSH_DEBUG_SV.log(l_module_name,'Vol per pc-',l_volume_per_pc);
4908: WSH_DEBUG_SV.log(l_module_name,'Cont max load-',l_mtl_max_load);
4909: WSH_DEBUG_SV.log(l_module_name,'Cont max vol-',l_mtl_max_vol);
4910: END IF;
4911:
4904:
4905: IF l_debug_on THEN
4906: WSH_DEBUG_SV.log(l_module_name,'Wt per pc-',l_weight_per_pc);
4907: WSH_DEBUG_SV.log(l_module_name,'Vol per pc-',l_volume_per_pc);
4908: WSH_DEBUG_SV.log(l_module_name,'Cont max load-',l_mtl_max_load);
4909: WSH_DEBUG_SV.log(l_module_name,'Cont max vol-',l_mtl_max_vol);
4910: END IF;
4911:
4912: l_original_qty := p_line_cont_rec.shp_qty;
4905: IF l_debug_on THEN
4906: WSH_DEBUG_SV.log(l_module_name,'Wt per pc-',l_weight_per_pc);
4907: WSH_DEBUG_SV.log(l_module_name,'Vol per pc-',l_volume_per_pc);
4908: WSH_DEBUG_SV.log(l_module_name,'Cont max load-',l_mtl_max_load);
4909: WSH_DEBUG_SV.log(l_module_name,'Cont max vol-',l_mtl_max_vol);
4910: END IF;
4911:
4912: l_original_qty := p_line_cont_rec.shp_qty;
4913: l_quantity_left := p_line_cont_rec.shp_qty;
4948:
4949: -- Per Pushkar,OPM: Call Check_Decimal_Quantity for both OPM and Discrete for primary quantity
4950: --
4951: IF l_debug_on THEN
4952: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
4953: END IF;
4954: --
4955: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
4956: p_line_cont_rec.inventory_item_id,
4960: l_output_qty,
4961: l_return_status);
4962:
4963: IF l_debug_on THEN
4964: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
4965: END IF;
4966: IF (l_return_status <> C_SUCCESS_STATUS OR
4967: p_line_cont_rec.indivisible_flag = 'Y')THEN
4968: -- Fractional qtys not allowed
5022:
5023: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_tmp_split_qty);
5024: --
5025: IF l_debug_on THEN
5026: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5027: WSH_DEBUG_SV.logmsg(l_module_name,'SPLIT QTY IS'||l_tmp_split_qty);
5028: END IF;
5029: --
5030:
5023: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_tmp_split_qty);
5024: --
5025: IF l_debug_on THEN
5026: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5027: WSH_DEBUG_SV.logmsg(l_module_name,'SPLIT QTY IS'||l_tmp_split_qty);
5028: END IF;
5029: --
5030:
5031: -- added l_dd_id_tab for Bulk call
5044: x_return_status => l_return_status
5045: );
5046:
5047: IF l_debug_on THEN
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,
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;
5064: --
5065: return;
5066: END IF;
5065: return;
5066: END IF;
5067:
5068: IF l_debug_on THEN
5069: WSH_DEBUG_SV.logmsg(l_module_name,'COUNT OF WDD RECORDS IS'||l_dd_id_tab.count);
5070: END IF;
5071:
5072: --dbms_output.put_line('Created new dd '||l_split_del_detail_id);
5073:
5192:
5193: -- Per Pushkar,OPM: Call Check_Decimal_Quantity for both OPM and Discrete for primary quantity
5194: --
5195: IF l_debug_on THEN
5196: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
5197: END IF;
5198: --
5199: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
5200: p_line_cont_rec.inventory_item_id,
5204: l_output_qty,
5205: l_return_status);
5206:
5207: IF l_debug_on THEN
5208: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5209: END IF;
5210: IF (l_return_status <> C_SUCCESS_STATUS OR
5211: p_line_cont_rec.indivisible_flag = 'Y')THEN
5212: -- Fractional qtys not allowed
5271: -- End BugFix#3475352
5272:
5273: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_split_qty);
5274: IF l_debug_on THEN
5275: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5276: WSH_DEBUG_SV.logmsg(l_module_name,'Split Qty is'||l_split_qty);
5277: WSH_DEBUG_SV.logmsg(l_module_name,'Number of split is'||l_num_of_split);
5278: END IF;
5279:
5272:
5273: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_split_qty);
5274: IF l_debug_on THEN
5275: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5276: WSH_DEBUG_SV.logmsg(l_module_name,'Split Qty is'||l_split_qty);
5277: WSH_DEBUG_SV.logmsg(l_module_name,'Number of split is'||l_num_of_split);
5278: END IF;
5279:
5280: --this is in Main Loop
5273: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_split_qty);
5274: IF l_debug_on THEN
5275: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5276: WSH_DEBUG_SV.logmsg(l_module_name,'Split Qty is'||l_split_qty);
5277: WSH_DEBUG_SV.logmsg(l_module_name,'Number of split is'||l_num_of_split);
5278: END IF;
5279:
5280: --this is in Main Loop
5281: -- Call BULK Split API
5293: x_return_status => l_return_status
5294: );
5295:
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
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;
5311:
5312: return;
5313: END IF;
5452: END IF;
5453: x_return_status := C_SUCCESS_STATUS;
5454: --
5455: IF l_debug_on THEN
5456: WSH_DEBUG_SV.pop(l_module_name);
5457: END IF;
5458: --
5459: RETURN;
5460:
5464: x_return_status := C_UNEXP_ERROR_STATUS;
5465:
5466: --
5467: IF l_debug_on THEN
5468: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5470: END IF;
5471: --
5472: END Pack_Delivery_Detail;
5465:
5466: --
5467: IF l_debug_on THEN
5468: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5470: END IF;
5471: --
5472: END Pack_Delivery_Detail;
5473:
5600: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5601: --
5602: IF l_debug_on IS NULL
5603: THEN
5604: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5605: END IF;
5606: --
5607: IF l_debug_on THEN
5608: WSH_DEBUG_SV.push(l_module_name);
5604: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5605: END IF;
5606: --
5607: IF l_debug_on THEN
5608: WSH_DEBUG_SV.push(l_module_name);
5609: END IF;
5610: --
5611: DELETE FROM wsh_tmp;
5612:
5717: );
5718:
5719:
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: (
5760: x_cont_item_id => l_wcl_cont_item_id,
5761: x_max_load_qty => l_max_load_qty);
5762:
5763: IF l_debug_on THEN
5764: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5765: END IF;
5766:
5767: IF (l_return_status = C_ERROR_STATUS) THEN
5768: error_cnt := error_cnt + l_error_cnt;
5819: --
5820: IF rec.wv_frozen_flag = 'N' THEN
5821:
5822: IF l_debug_on THEN
5823: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5824: END IF;
5825: --
5826: WSH_WV_UTILS.Detail_Weight_Volume(
5827: p_delivery_detail_id => rec.delivery_detail_id,
5832: x_net_weight => l_dd_net_wt,
5833: x_volume => l_dd_volume ,
5834: x_return_status => l_return_status);
5835: IF l_debug_on THEN
5836: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5837: END IF;
5838:
5839: IF (l_return_status <> C_SUCCESS_STATUS) THEN
5840: --dbms_output.put_line('WSH_WV_UTILS.Detail_Weight_Volume did not return success');
5876: x_return_status => l_return_status,
5877: x_error_cnt => l_error_cnt);
5878:
5879: IF l_debug_on THEN
5880: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5881: END IF;
5882: IF (l_return_status IN (C_ERROR_STATUS,C_UNEXP_ERROR_STATUS)
5883: ) THEN
5884: error_cnt := error_cnt + l_error_cnt;
5887: -- Bug 2786021
5888: IF (nvl(l_mtl_max_load,0) = 0) OR
5889: (nvl(l_mtl_max_vol,0) = 0) THEN
5890: IF l_debug_on THEN
5891: WSH_DEBUG_SV.log(l_module_name,'fill pc is Q,but use Wt or Vol');
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');
5888: IF (nvl(l_mtl_max_load,0) = 0) OR
5889: (nvl(l_mtl_max_vol,0) = 0) THEN
5890: IF l_debug_on THEN
5891: WSH_DEBUG_SV.log(l_module_name,'fill pc is Q,but use Wt or Vol');
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);
5889: (nvl(l_mtl_max_vol,0) = 0) THEN
5890: IF l_debug_on THEN
5891: WSH_DEBUG_SV.log(l_module_name,'fill pc is Q,but use Wt or Vol');
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;
5906:
5907: IF (l_mtl_wt_uom <> rec.weight_uom_code) THEN
5908: --
5909: IF l_debug_on THEN
5910: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
5911: END IF;
5912: --
5913: l_dd_gross_wt := WSH_WV_UTILS.Convert_Uom (
5914: from_uom => rec.weight_uom_code,
5921:
5922: IF (l_mtl_vol_uom <> rec.volume_uom_code) THEN
5923: --
5924: IF l_debug_on THEN
5925: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
5926: END IF;
5927: --
5928: l_dd_volume := WSH_WV_UTILS.Convert_Uom (
5929: from_uom => rec.volume_uom_code,
5942: --dbms_output.put_line('l_dd_gross_wt '||l_dd_gross_wt||' l_dd_volume '||l_dd_volume ||' l_mtl_max_load '||l_mtl_max_load||' l_mtl_max_vol '||l_mtl_max_vol || ' l_max_load_qty '||l_max_load_qty);
5943:
5944: --
5945: IF l_debug_on THEN
5946: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
5947: END IF;
5948: --
5949: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
5950: p_item_id => rec.inventory_item_id,
5954: x_output_quantity => l_output_qty,
5955: x_return_status => l_return_status);
5956:
5957: IF l_debug_on THEN
5958: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5959: END IF;
5960: IF l_return_status <> C_SUCCESS_STATUS THEN
5961: --dbms_output.put_line('WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity returned '||l_return_status);
5962: l_discard_message := FND_MESSAGE.GET;
5995: --
5996: IF rec.wv_frozen_flag = 'N' THEN
5997:
5998: IF l_debug_on THEN
5999: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
6000: END IF;
6001: --
6002: WSH_WV_UTILS.Detail_Weight_Volume(
6003: p_delivery_detail_id => rec.delivery_detail_id,
6009: x_volume => l_dd_volume ,
6010: x_return_status => l_return_status);
6011:
6012: IF l_debug_on THEN
6013: WSH_DEBUG_SV.log(l_module_name,'return status -,wt,vol',l_return_status||l_dd_net_wt||','||l_dd_volume);
6014: END IF;
6015:
6016: IF (l_return_status <> C_SUCCESS_STATUS) THEN
6017: --dbms_output.put_line('WSH_WV_UTILS.Detail_Weight_Volume did not return success');
6070: x_return_status => l_return_status,
6071: x_error_cnt => l_error_cnt);
6072:
6073: IF l_debug_on THEN
6074: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6075: END IF;
6076: IF (l_return_status = C_ERROR_STATUS) THEN
6077: error_cnt := error_cnt + l_error_cnt;
6078: END IF;
6087:
6088: IF (l_mtl_wt_uom <> rec.weight_uom_code) THEN
6089: --
6090: IF l_debug_on THEN
6091: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
6092: END IF;
6093: --
6094: l_dd_gross_wt := WSH_WV_UTILS.Convert_Uom (
6095: from_uom => rec.weight_uom_code,
6111:
6112: IF (l_mtl_vol_uom <> rec.volume_uom_code) THEN
6113: --
6114: IF l_debug_on THEN
6115: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
6116: END IF;
6117: --
6118: l_dd_volume := WSH_WV_UTILS.Convert_Uom (
6119: from_uom => rec.volume_uom_code,
6173: -- 20.70 Do Credit Check
6174: --dbms_output.put_line('Doing Credit Check');
6175: --
6176: IF l_debug_on THEN
6177: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_CREDIT_HOLDS',WSH_DEBUG_SV.C_PROC_LEVEL);
6178: END IF;
6179: --
6180: WSH_DETAILS_VALIDATIONS.Check_Credit_Holds (
6181: p_detail_id => rec.delivery_detail_id,
6186: p_init_flag => 'Y',
6187: x_return_status => l_return_status);
6188:
6189: IF l_debug_on THEN
6190: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6191: END IF;
6192: -- Bug 2847515
6193: -- Error was being treated as warning
6194: IF l_return_status <> C_SUCCESS_STATUS THEN
6220: --dbms_output.put_line('Exiting Validate_Dd_for_Pack');
6221:
6222: --
6223: IF l_debug_on THEN
6224: WSH_DEBUG_SV.log(l_module_name,'p_del_detail_tab count->'||p_del_detail_tab.count||' x_line_cont_tab count->'||x_line_cont_tab.count);
6225: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| x_error_cnt||' Warning Count '|| x_warn_cnt||' Release Warn Count '|| x_release_warn_cnt);
6226: WSH_DEBUG_SV.pop(l_module_name);
6227: END IF;
6228: --
6221:
6222: --
6223: IF l_debug_on THEN
6224: WSH_DEBUG_SV.log(l_module_name,'p_del_detail_tab count->'||p_del_detail_tab.count||' x_line_cont_tab count->'||x_line_cont_tab.count);
6225: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| x_error_cnt||' Warning Count '|| x_warn_cnt||' Release Warn Count '|| x_release_warn_cnt);
6226: WSH_DEBUG_SV.pop(l_module_name);
6227: END IF;
6228: --
6229: RETURN;
6222: --
6223: IF l_debug_on THEN
6224: WSH_DEBUG_SV.log(l_module_name,'p_del_detail_tab count->'||p_del_detail_tab.count||' x_line_cont_tab count->'||x_line_cont_tab.count);
6225: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| x_error_cnt||' Warning Count '|| x_warn_cnt||' Release Warn Count '|| x_release_warn_cnt);
6226: WSH_DEBUG_SV.pop(l_module_name);
6227: END IF;
6228: --
6229: RETURN;
6230:
6229: RETURN;
6230:
6231: --
6232: IF l_debug_on THEN
6233: WSH_DEBUG_SV.pop(l_module_name);
6234: END IF;
6235: --
6236: EXCEPTION
6237: WHEN Others THEN
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');
6249: END IF;
6250: --
6251: raise;
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');
6249: END IF;
6250: --
6251: raise;
6252:
6251: raise;
6252:
6253: --
6254: IF l_debug_on THEN
6255: WSH_DEBUG_SV.pop(l_module_name);
6256: END IF;
6257: --
6258: END Validate_Dd_For_Pack;
6259:
6500: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6501: --
6502: IF l_debug_on IS NULL
6503: THEN
6504: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6505: END IF;
6506: --
6507: IF l_debug_on THEN
6508: WSH_DEBUG_SV.push(l_module_name);
6504: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6505: END IF;
6506: --
6507: IF l_debug_on THEN
6508: WSH_DEBUG_SV.push(l_module_name);
6509: --
6510: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
6511: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed', l_gc3_is_installed); -- OTM R12 : assign delivery detail
6512: END IF;
6506: --
6507: IF l_debug_on THEN
6508: WSH_DEBUG_SV.push(l_module_name);
6509: --
6510: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
6511: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed', l_gc3_is_installed); -- OTM R12 : assign delivery detail
6512: END IF;
6513: --
6514: g_empty_cont_tab.DELETE;
6507: IF l_debug_on THEN
6508: WSH_DEBUG_SV.push(l_module_name);
6509: --
6510: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
6511: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed', l_gc3_is_installed); -- OTM R12 : assign delivery detail
6512: END IF;
6513: --
6514: g_empty_cont_tab.DELETE;
6515: g_assign_detail_tab.DELETE;
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;
6534: --
6535: return;
6536: END IF;
6543:
6544: --dbms_output.put_line('Calling WSH_DELIVERY_AUTOCREATE.autocreate_deliveries to generate group_ids');
6545: --
6546: IF l_debug_on THEN
6547: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
6548: END IF;
6549: --
6550:
6551: l_attr_tab.delete;
6569: x_out_rec => l_out_rec,
6570: x_return_status => l_return_status);
6571:
6572: IF l_debug_on THEN
6573: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6574: 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);
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);
6584: END IF;
6585: --
6586: return;
6587: END IF;
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;
6602: --
6603: return;
6604: ELSE
6621: x_fill_pc_warn_cnt => l_fill_pc_warn_count, -- bug 3562797 jckwok
6622: x_release_warn_cnt => l_release_warn_count);
6623:
6624: IF l_debug_on THEN
6625: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6626: WSH_DEBUG_SV.log(l_module_name,'line cont tab count -',line_cont_tab.count);
6627: END IF;
6628: --dbms_output.put_line(p_del_detail_tab.count||'
6629:
6622: x_release_warn_cnt => l_release_warn_count);
6623:
6624: IF l_debug_on THEN
6625: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6626: WSH_DEBUG_SV.log(l_module_name,'line cont tab count -',line_cont_tab.count);
6627: END IF;
6628: --dbms_output.put_line(p_del_detail_tab.count||'
6629:
6630: -- Raise warning if we found some delivery details with status 'S'
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;
6640: RETURN;
6641: ELSIF (l_release_warn_count > 0) THEN
6642: -- Bug 3337629 - x_return_status does not hold any value.
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;
6667: ELSIF (l_fill_pc_warn_count > 0) THEN
6668: IF (l_return_status <> C_ERROR_STATUS) THEN
6681: l_last_organization_id := NULL;
6682: WHILE (cnt <= line_cont_tab.COUNT) LOOP
6683:
6684: IF l_debug_on THEN
6685: WSH_DEBUG_SV.log(l_module_name,'======================================================');
6686: WSH_DEBUG_SV.log(l_module_name,'auto-packing line ' || line_cont_tab(cnt).delivery_detail_id||'Org id'||line_cont_tab(cnt).organization_id);
6687: END IF;
6688:
6689: IF (l_last_organization_id is NULL) THEN
6682: WHILE (cnt <= line_cont_tab.COUNT) LOOP
6683:
6684: IF l_debug_on THEN
6685: WSH_DEBUG_SV.log(l_module_name,'======================================================');
6686: WSH_DEBUG_SV.log(l_module_name,'auto-packing line ' || line_cont_tab(cnt).delivery_detail_id||'Org id'||line_cont_tab(cnt).organization_id);
6687: END IF;
6688:
6689: IF (l_last_organization_id is NULL) THEN
6690: l_last_organization_id := line_cont_tab(cnt).organization_id;
6720: l_cont_name := null;
6721:
6722: --
6723: IF l_debug_on THEN
6724: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_CONT_INSTANCE_MULTI',WSH_DEBUG_SV.C_PROC_LEVEL);
6725: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Containers'||g_new_container_tab(cnt).number_of_containers);
6726: WSH_DEBUG_SV.log(l_module_name,'Create Container'||g_new_container_tab(cnt).container_item_id||'<'||g_new_container_tab(cnt).organization_id||'>'||g_new_container_tab(cnt).number_of_containers);
6727: END IF;
6728: --
6721:
6722: --
6723: IF l_debug_on THEN
6724: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_CONT_INSTANCE_MULTI',WSH_DEBUG_SV.C_PROC_LEVEL);
6725: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Containers'||g_new_container_tab(cnt).number_of_containers);
6726: WSH_DEBUG_SV.log(l_module_name,'Create Container'||g_new_container_tab(cnt).container_item_id||'<'||g_new_container_tab(cnt).organization_id||'>'||g_new_container_tab(cnt).number_of_containers);
6727: END IF;
6728: --
6729: wsh_container_actions.Create_Cont_Instance_Multi (
6722: --
6723: IF l_debug_on THEN
6724: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_CONT_INSTANCE_MULTI',WSH_DEBUG_SV.C_PROC_LEVEL);
6725: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Containers'||g_new_container_tab(cnt).number_of_containers);
6726: WSH_DEBUG_SV.log(l_module_name,'Create Container'||g_new_container_tab(cnt).container_item_id||'<'||g_new_container_tab(cnt).organization_id||'>'||g_new_container_tab(cnt).number_of_containers);
6727: END IF;
6728: --
6729: wsh_container_actions.Create_Cont_Instance_Multi (
6730: x_cont_name => l_cont_name,
6746: p_ignore_for_planning => NULL,
6747: p_caller => 'WSH'
6748: );
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
6758: error_cnt := error_cnt + 1;
6759: ELSE
6760:
6761: IF l_debug_on THEN
6762: WSH_DEBUG_SV.logmsg(l_module_name,'Created Containers'||l_cont_tab.count);
6763: END IF;
6764: -- do not use this container instance id
6765: g_new_container_tab(cnt).cont_instance_id := l_cont_instance_id;
6766:
6824:
6825: -- 70.1 Assign Details to Actual Containers created
6826: IF l_debug_on THEN
6827:
6828: WSH_DEBUG_SV.log(l_module_name,'*** Assigning Details to Containers Created ***'||g_assign_detail_tab.count);
6829: WSH_DEBUG_SV.log(l_module_name,'*** COUNT ***'||g_new_contid_tab.count||'<'||g_new_container_tab.count||to_char(sysdate,'HH24:MI:SS'));
6830: END IF;
6831:
6832: -- doing BULK UPDATE here
6825: -- 70.1 Assign Details to Actual Containers created
6826: IF l_debug_on THEN
6827:
6828: WSH_DEBUG_SV.log(l_module_name,'*** Assigning Details to Containers Created ***'||g_assign_detail_tab.count);
6829: WSH_DEBUG_SV.log(l_module_name,'*** COUNT ***'||g_new_contid_tab.count||'<'||g_new_container_tab.count||to_char(sysdate,'HH24:MI:SS'));
6830: END IF;
6831:
6832: -- doing BULK UPDATE here
6833: -- First Update WDA for each delivey detail to have parent_delivery_detail populated
6984: END IF;
6985: END LOOP; -- g_assign_detail_tab Loop
6986:
6987: IF l_debug_on THEN
6988: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
6989: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
6990: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
6991: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
6992: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
6985: END LOOP; -- g_assign_detail_tab Loop
6986:
6987: IF l_debug_on THEN
6988: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
6989: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
6990: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
6991: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
6992: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
6993: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT);
6986:
6987: IF l_debug_on THEN
6988: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
6989: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
6990: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
6991: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
6992: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
6993: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT);
6994: END IF;
6987: IF l_debug_on THEN
6988: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
6989: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
6990: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
6991: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
6992: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
6993: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT);
6994: END IF;
6995:
6988: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
6989: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
6990: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
6991: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
6992: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
6993: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT);
6994: END IF;
6995:
6996: -- J: W/V Changes
6989: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
6990: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
6991: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
6992: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
6993: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT);
6994: END IF;
6995:
6996: -- J: W/V Changes
6997: -- 70.2 Accumulate the W/V to be adjusted by delivery and container for perf reasons. After the following loop
7003: -- Then after the following loop, l_tmp_dd1list will have dd with vol -20. l_tmp_dd2list will have
7004: -- gross wt. 10 Lbs and Vol 20 Cu. Ft.
7005:
7006: IF l_debug_on THEN
7007: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7008: END IF;
7009: l_prev_del_id := NULL;
7010: l_prev_dd_id := NULL;
7011: l_prev_cont_id := NULL;
7020: i := i + 1;
7021:
7022: IF l_debug_on THEN
7023: IF i <= l_dellist.COUNT THEN
7024: WSH_DEBUG_SV.logmsg(l_module_name,'Del '||l_dellist(i)||' Cont '||l_contlist(i)||' DD '||l_ddlist(i)||' l_prev_dd_id '||l_prev_dd_id||' l_prev_cont_id '||l_prev_cont_id||' l_prev_del_id '||l_prev_del_id);
7025: END IF;
7026: END IF;
7027:
7028: IF (i > l_dellist.COUNT OR l_contlist(i) is NOT NULL) THEN
7079:
7080: END IF;
7081: END LOOP;
7082: IF l_debug_on THEN
7083: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7084: --WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT||' l_tmp_contlist.COUNT '||l_tmp_contlist.COUNT);
7085: WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT);
7086: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7087: END IF;
7080: END IF;
7081: END LOOP;
7082: IF l_debug_on THEN
7083: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7084: --WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT||' l_tmp_contlist.COUNT '||l_tmp_contlist.COUNT);
7085: WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT);
7086: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7087: END IF;
7088:
7081: END LOOP;
7082: IF l_debug_on THEN
7083: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7084: --WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT||' l_tmp_contlist.COUNT '||l_tmp_contlist.COUNT);
7085: WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT);
7086: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7087: END IF;
7088:
7089: -- J: W/V Changes
7082: IF l_debug_on THEN
7083: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7084: --WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT||' l_tmp_contlist.COUNT '||l_tmp_contlist.COUNT);
7085: WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT);
7086: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7087: END IF;
7088:
7089: -- J: W/V Changes
7090: FOR i in 1..l_tmp_dd1list.COUNT LOOP
7088:
7089: -- J: W/V Changes
7090: FOR i in 1..l_tmp_dd1list.COUNT LOOP
7091: IF l_debug_on THEN
7092: WSH_DEBUG_SV.logmsg(l_module_name,'Del1:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7093: END IF;
7094:
7095: WSH_WV_UTILS.DD_WV_Post_Process(
7096: p_delivery_detail_id => l_tmp_dd1list(i).dd_id,
7111:
7112: END IF;
7113: END LOOP;
7114: IF l_debug_on THEN
7115: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7116: END IF;
7117:
7118: -- changes to add l_dellist1 and add new messages
7119: --
7130: x_return_status => l_return_status
7131: );
7132:
7133: IF l_debug_on THEN
7134: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7135: END IF;
7136: --
7137: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7138: x_return_status := l_return_status;
7137: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7138: x_return_status := l_return_status;
7139: --
7140: IF l_debug_on THEN
7141: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7142: WSH_DEBUG_SV.pop(l_module_name);
7143: END IF;
7144: --
7145: RETURN;
7138: x_return_status := l_return_status;
7139: --
7140: IF l_debug_on THEN
7141: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7142: WSH_DEBUG_SV.pop(l_module_name);
7143: END IF;
7144: --
7145: RETURN;
7146: ELSE
7158: x_return_status => l_return_status
7159: );
7160:
7161: IF l_debug_on THEN
7162: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7163: END IF;
7164: --
7165: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7166: x_return_status := l_return_status;
7165: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7166: x_return_status := l_return_status;
7167: --
7168: IF l_debug_on THEN
7169: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7170: WSH_DEBUG_SV.pop(l_module_name);
7171: END IF;
7172: --
7173: RETURN;
7166: x_return_status := l_return_status;
7167: --
7168: IF l_debug_on THEN
7169: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7170: WSH_DEBUG_SV.pop(l_module_name);
7171: END IF;
7172: --
7173: RETURN;
7174: ELSE
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;
7210: RETURN;
7211: END IF;
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;
7210: RETURN;
7211: END IF;
7212:
7212:
7213:
7214: -- J: W/V Changes
7215: IF l_debug_on THEN
7216: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 2 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7217: END IF;
7218: FOR i in 1..l_tmp_dd2list.COUNT LOOP
7219: IF l_debug_on THEN
7220: WSH_DEBUG_SV.logmsg(l_module_name,'Del2:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7216: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 2 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7217: END IF;
7218: FOR i in 1..l_tmp_dd2list.COUNT LOOP
7219: IF l_debug_on THEN
7220: WSH_DEBUG_SV.logmsg(l_module_name,'Del2:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7221: END IF;
7222:
7223: WSH_WV_UTILS.DD_WV_Post_Process(
7224: p_delivery_detail_id => l_tmp_dd2list(i).dd_id,
7239:
7240: END IF;
7241: END LOOP;
7242: IF l_debug_on THEN
7243: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment 2 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7244: END IF;
7245:
7246: -- fetch all the attributes for the delivery line
7247: cnt := 0;
7282: x_return_status => l_return_status
7283: );
7284:
7285: IF l_debug_on THEN
7286: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7287: END IF;
7288: --
7289: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7290: x_return_status := l_return_status;
7289: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7290: x_return_status := l_return_status;
7291: --
7292: IF l_debug_on THEN
7293: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7294: WSH_DEBUG_SV.pop(l_module_name);
7295: END IF;
7296: --
7297: RETURN;
7290: x_return_status := l_return_status;
7291: --
7292: IF l_debug_on THEN
7293: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7294: WSH_DEBUG_SV.pop(l_module_name);
7295: END IF;
7296: --
7297: RETURN;
7298: ELSE
7310: x_return_status => l_return_status
7311: );
7312:
7313: IF l_debug_on THEN
7314: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7315: END IF;
7316: --
7317: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7318: x_return_status := l_return_status;
7317: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7318: x_return_status := l_return_status;
7319: --
7320: IF l_debug_on THEN
7321: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7322: WSH_DEBUG_SV.pop(l_module_name);
7323: END IF;
7324: --
7325: RETURN;
7318: x_return_status := l_return_status;
7319: --
7320: IF l_debug_on THEN
7321: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7322: WSH_DEBUG_SV.pop(l_module_name);
7323: END IF;
7324: --
7325: RETURN;
7326: ELSE
7368: x_return_status => l_return_status
7369: );
7370:
7371: IF l_debug_on THEN
7372: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7373: END IF;
7374: --
7375: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7376: x_return_status := l_return_status;
7375: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7376: x_return_status := l_return_status;
7377: --
7378: IF l_debug_on THEN
7379: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7380: WSH_DEBUG_SV.pop(l_module_name);
7381: END IF;
7382: --
7383: RETURN;
7376: x_return_status := l_return_status;
7377: --
7378: IF l_debug_on THEN
7379: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7380: WSH_DEBUG_SV.pop(l_module_name);
7381: END IF;
7382: --
7383: RETURN;
7384: ELSE
7396: x_return_status => l_return_status
7397: );
7398:
7399: IF l_debug_on THEN
7400: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7401: END IF;
7402: --
7403: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7404: x_return_status := l_return_status;
7403: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7404: x_return_status := l_return_status;
7405: --
7406: IF l_debug_on THEN
7407: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7408: WSH_DEBUG_SV.pop(l_module_name);
7409: END IF;
7410: --
7411: RETURN;
7404: x_return_status := l_return_status;
7405: --
7406: IF l_debug_on THEN
7407: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7408: WSH_DEBUG_SV.pop(l_module_name);
7409: END IF;
7410: --
7411: RETURN;
7412: ELSE
7436: l_tms_interface_flag_tab(l_index);
7437: IF c_get_plan_and_tms_flag%NOTFOUND THEN
7438: --{
7439: IF l_debug_on THEN
7440: WSH_DEBUG_SV.log(l_module_name,'No data for c_get_plan_and_tms_flag', l_dellist1(l_index));
7441: END IF;
7442: CLOSE c_get_plan_and_tms_flag;
7443: raise FND_API.G_EXC_ERROR;
7444: END IF;
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;
7456: ELSIF (l_is_delivery_empty = 'Y') THEN
7457: l_delivery_was_empty_tab(l_index) := TRUE;
7457: l_delivery_was_empty_tab(l_index) := TRUE;
7458: END IF;
7459: END IF;
7460: IF l_debug_on THEN
7461: WSH_DEBUG_SV.log(l_module_name,'l_dellist1('||l_index||')', l_dellist1(l_index));
7462: WSH_DEBUG_SV.log(l_module_name,'l_contlist1('||l_index||')', l_contlist1(l_index));
7463: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning_tab('||l_index||')', l_ignore_for_planning_tab(l_index));
7464: WSH_DEBUG_SV.log(l_module_name,'l_tms_interface_flag_tab('||l_index||')', l_tms_interface_flag_tab(l_index));
7465: END IF;
7458: END IF;
7459: END IF;
7460: IF l_debug_on THEN
7461: WSH_DEBUG_SV.log(l_module_name,'l_dellist1('||l_index||')', l_dellist1(l_index));
7462: WSH_DEBUG_SV.log(l_module_name,'l_contlist1('||l_index||')', l_contlist1(l_index));
7463: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning_tab('||l_index||')', l_ignore_for_planning_tab(l_index));
7464: WSH_DEBUG_SV.log(l_module_name,'l_tms_interface_flag_tab('||l_index||')', l_tms_interface_flag_tab(l_index));
7465: END IF;
7466: ELSE
7459: END IF;
7460: IF l_debug_on THEN
7461: WSH_DEBUG_SV.log(l_module_name,'l_dellist1('||l_index||')', l_dellist1(l_index));
7462: WSH_DEBUG_SV.log(l_module_name,'l_contlist1('||l_index||')', l_contlist1(l_index));
7463: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning_tab('||l_index||')', l_ignore_for_planning_tab(l_index));
7464: WSH_DEBUG_SV.log(l_module_name,'l_tms_interface_flag_tab('||l_index||')', l_tms_interface_flag_tab(l_index));
7465: END IF;
7466: ELSE
7467: l_ignore_for_planning_tab(l_index) := NULL;
7460: IF l_debug_on THEN
7461: WSH_DEBUG_SV.log(l_module_name,'l_dellist1('||l_index||')', l_dellist1(l_index));
7462: WSH_DEBUG_SV.log(l_module_name,'l_contlist1('||l_index||')', l_contlist1(l_index));
7463: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning_tab('||l_index||')', l_ignore_for_planning_tab(l_index));
7464: WSH_DEBUG_SV.log(l_module_name,'l_tms_interface_flag_tab('||l_index||')', l_tms_interface_flag_tab(l_index));
7465: END IF;
7466: ELSE
7467: l_ignore_for_planning_tab(l_index) := NULL;
7468: l_tms_interface_flag_tab(l_index) := NULL;
7467: l_ignore_for_planning_tab(l_index) := NULL;
7468: l_tms_interface_flag_tab(l_index) := NULL;
7469: l_delivery_was_empty_tab(l_index) := NULL;
7470: IF l_debug_on THEN
7471: WSH_DEBUG_SV.log(l_module_name, 'l_dellist1 is null for ', l_contlist1(l_index));
7472: END IF;
7473: END IF;
7474:
7475: l_index := l_dellist1.NEXT(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;
7505: raise FND_API.G_EXC_ERROR;
7506: ELSIF (l_is_delivery_empty = 'N') THEN
7507: IF (l_tms_interface_flag_tab(l_index) = WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) THEN
7509: l_delivery_id_tab(l_index_update) := l_dellist1(l_index);
7510: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
7511:
7512: IF (l_debug_on) THEN
7513: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7514: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7515: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7516: END IF;
7517: ELSIF (l_tms_interface_flag_tab(l_index) in
7510: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
7511:
7512: IF (l_debug_on) THEN
7513: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7514: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7515: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7516: END IF;
7517: ELSIF (l_tms_interface_flag_tab(l_index) in
7518: (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
7511:
7512: IF (l_debug_on) THEN
7513: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7514: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7515: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7516: END IF;
7517: ELSIF (l_tms_interface_flag_tab(l_index) in
7518: (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
7519: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS)) THEN
7520: l_index_update := l_index_update + 1;
7521: l_delivery_id_tab(l_index_update) := l_dellist1(l_index);
7522: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
7523: IF (l_debug_on) THEN
7524: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7525: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7526: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7527: END IF;
7528: END IF;
7521: l_delivery_id_tab(l_index_update) := l_dellist1(l_index);
7522: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
7523: IF (l_debug_on) THEN
7524: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7525: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7526: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7527: END IF;
7528: END IF;
7529: END IF;
7522: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
7523: IF (l_debug_on) THEN
7524: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7525: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7526: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7527: END IF;
7528: END IF;
7529: END IF;
7530: ELSE -- (NOT l_delivery_was_empty)
7534:
7535: IF c_get_tare_weight%NOTFOUND THEN
7536: --{
7537: IF l_debug_on THEN
7538: WSH_DEBUG_SV.log(l_module_name,'No data for c_get_tare_weight', l_contlist1(l_index));
7539: END IF;
7540: CLOSE c_get_tare_weight;
7541: raise FND_API.G_EXC_ERROR;
7542: END IF;
7542: END IF;
7543: CLOSE c_get_tare_weight;
7544:
7545: IF (l_debug_on) THEN
7546: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery was not empty');
7547: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7548: WSH_DEBUG_SV.log(l_module_name,'l_contlist1', l_contlist1(l_index));
7549: WSH_DEBUG_SV.log(l_module_name,'l_tare_weight', l_tare_weight);
7550: END IF;
7543: CLOSE c_get_tare_weight;
7544:
7545: IF (l_debug_on) THEN
7546: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery was not empty');
7547: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7548: WSH_DEBUG_SV.log(l_module_name,'l_contlist1', l_contlist1(l_index));
7549: WSH_DEBUG_SV.log(l_module_name,'l_tare_weight', l_tare_weight);
7550: END IF;
7551:
7544:
7545: IF (l_debug_on) THEN
7546: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery was not empty');
7547: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7548: WSH_DEBUG_SV.log(l_module_name,'l_contlist1', l_contlist1(l_index));
7549: WSH_DEBUG_SV.log(l_module_name,'l_tare_weight', l_tare_weight);
7550: END IF;
7551:
7552: IF (l_tare_weight <> 0) THEN
7545: IF (l_debug_on) THEN
7546: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery was not empty');
7547: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7548: WSH_DEBUG_SV.log(l_module_name,'l_contlist1', l_contlist1(l_index));
7549: WSH_DEBUG_SV.log(l_module_name,'l_tare_weight', l_tare_weight);
7550: END IF;
7551:
7552: IF (l_tare_weight <> 0) THEN
7553: -- do not update if assign/unassign 0/NULL
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;
7577: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7578: IF l_debug_on THEN
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;
7582: END IF;
7583:
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;
7607: RETURN;
7608: END IF;
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;
7607: RETURN;
7608: END IF;
7609:
7608: END IF;
7609:
7610: -- J: W/V Changes
7611: IF l_debug_on THEN
7612: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 3 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7613: END IF;
7614: FOR i in 1..l_contlist1.COUNT LOOP
7615: IF l_debug_on THEN
7616: WSH_DEBUG_SV.logmsg(l_module_name,'Cont:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7612: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 3 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7613: END IF;
7614: FOR i in 1..l_contlist1.COUNT LOOP
7615: IF l_debug_on THEN
7616: WSH_DEBUG_SV.logmsg(l_module_name,'Cont:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7617: END IF;
7618:
7619: WSH_WV_UTILS.DD_WV_Post_Process(
7620: p_delivery_detail_id => l_contlist1(i),
7635:
7636: END IF;
7637: END LOOP;
7638: IF l_debug_on THEN
7639: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment 3 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7640: END IF;
7641:
7642: -- 75.1 Bulk Update Weight/Volume on packed delivery details
7643: -- added the WHO columns in the UPDATE
7656:
7657: --H integration : Pricing Integration
7658: IF l_del_tab.count > 0 THEN
7659: IF l_debug_on THEN
7660: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Program Unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
7661: END IF;
7662: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required
7663: (p_entity_type => 'DELIVERY',
7664: p_entity_ids => l_del_tab,
7664: p_entity_ids => l_del_tab,
7665: x_return_status => l_return_status
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;
7676: --dbms_output.put_line('AFTER CONT WT'||to_char(sysdate,'HH24:MI:SS'));
7677: -- 90.1 Summarize errors/warnings
7678:
7679: IF l_debug_on THEN
7680: WSH_DEBUG_SV.logmsg(l_module_name,'Error, warn,success Count -'||error_cnt||','||warn_cnt||','||succ_cnt);
7681: END IF;
7682: IF (warn_cnt > 0 OR cont_warn > 0) THEN
7683: x_return_status := C_WARNING_STATUS;
7684: IF cont_warn > 0 THEN
7702: x_return_status := C_SUCCESS_STATUS;
7703: END IF;
7704:
7705: IF l_debug_on THEN
7706: WSH_DEBUG_SV.logmsg(l_module_name,'L ret status -'||l_return_status);
7707: WSH_DEBUG_SV.logmsg(l_module_name,'X ret status -'||x_return_status);
7708: END IF;
7709: IF x_return_status = C_ERROR_STATUS THEN
7710: IF p_pack_cont_flag = 'Y' THEN
7703: END IF;
7704:
7705: IF l_debug_on THEN
7706: WSH_DEBUG_SV.logmsg(l_module_name,'L ret status -'||l_return_status);
7707: WSH_DEBUG_SV.logmsg(l_module_name,'X ret status -'||x_return_status);
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);
7717: END IF;
7718: --
7719: return;
7720: ELSE
7721: l_return_status := x_return_status;
7722: END IF;
7723:
7724: IF l_debug_on THEN
7725: WSH_DEBUG_SV.logmsg(l_module_name,'2L ret status -'||l_return_status);
7726: WSH_DEBUG_SV.logmsg(l_module_name,'2X ret status -'||x_return_status);
7727: END IF;
7728: -- 100.1 Call WSH_CONTAINER_ACTIONS.Auto_Pack_Conts depending on
7729: -- p_pack_cont_flag and if new detail containers are created
7722: END IF;
7723:
7724: IF l_debug_on THEN
7725: WSH_DEBUG_SV.logmsg(l_module_name,'2L ret status -'||l_return_status);
7726: WSH_DEBUG_SV.logmsg(l_module_name,'2X ret status -'||x_return_status);
7727: END IF;
7728: -- 100.1 Call WSH_CONTAINER_ACTIONS.Auto_Pack_Conts depending on
7729: -- p_pack_cont_flag and if new detail containers are created
7730: IF l_detail_cont_tab.count > 0 AND p_pack_cont_flag = 'Y' THEN
7733:
7734: --dbms_output.put_line('Calling AUTO PACK CONTS With x_cont_instance count of ' || x_cont_instance_tab.count);
7735: --
7736: IF l_debug_on THEN
7737: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.AUTO_PACK_CONTS',WSH_DEBUG_SV.C_PROC_LEVEL);
7738: END IF;
7739: --
7740: wsh_container_actions.Auto_Pack_Conts (
7741: l_group_id_tab,
7744: l_mast_cont_tab,
7745: l_return_status);
7746:
7747: IF l_debug_on THEN
7748: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
7749: END IF;
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
7758: */
7759: x_return_status := l_return_status;
7760: --
7761: IF l_debug_on THEN
7762: WSH_DEBUG_SV.pop(l_module_name);
7763: END IF;
7764: --
7765: RETURN;
7766: ELSE
7782:
7783: END IF;
7784:
7785: IF l_debug_on THEN
7786: WSH_DEBUG_SV.logmsg(l_module_name,'3L ret status -'||l_return_status);
7787: WSH_DEBUG_SV.logmsg(l_module_name,'3X ret status -'||x_return_status);
7788: END IF;
7789: IF l_debug_on THEN
7790: WSH_DEBUG_SV.pop(l_module_name);
7783: END IF;
7784:
7785: IF l_debug_on THEN
7786: WSH_DEBUG_SV.logmsg(l_module_name,'3L ret status -'||l_return_status);
7787: WSH_DEBUG_SV.logmsg(l_module_name,'3X ret status -'||x_return_status);
7788: END IF;
7789: IF l_debug_on THEN
7790: WSH_DEBUG_SV.pop(l_module_name);
7791: END IF;
7786: WSH_DEBUG_SV.logmsg(l_module_name,'3L ret status -'||l_return_status);
7787: WSH_DEBUG_SV.logmsg(l_module_name,'3X ret status -'||x_return_status);
7788: END IF;
7789: IF l_debug_on THEN
7790: WSH_DEBUG_SV.pop(l_module_name);
7791: END IF;
7792: --
7793: EXCEPTION
7794:
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;
7803:
7804: -- OTM R12 : assign delivery detail
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;
7803:
7804: -- OTM R12 : assign delivery detail
7805: WHEN FND_API.G_EXC_ERROR THEN
7812: END IF;
7813:
7814: --
7815: IF l_debug_on THEN
7816: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
7817: WSH_DEBUG_SV.pop(l_module_name);
7818: END IF;
7819: --
7820: RETURN;
7813:
7814: --
7815: IF l_debug_on THEN
7816: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
7817: WSH_DEBUG_SV.pop(l_module_name);
7818: END IF;
7819: --
7820: RETURN;
7821: -- End of OTM R12 : assign delivery detail
7834: x_return_status := C_UNEXP_ERROR_STATUS;
7835:
7836: --
7837: IF l_debug_on THEN
7838: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7839: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7840: END IF;
7841: --
7842: END Auto_Pack_Lines;
7835:
7836: --
7837: IF l_debug_on THEN
7838: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7839: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7840: END IF;
7841: --
7842: END Auto_Pack_Lines;
7843:
7926: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7927: --
7928: IF l_debug_on IS NULL
7929: THEN
7930: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7931: END IF;
7932: --
7933: IF l_debug_on THEN
7934: WSH_DEBUG_SV.push(l_module_name);
7930: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7931: END IF;
7932: --
7933: IF l_debug_on THEN
7934: WSH_DEBUG_SV.push(l_module_name);
7935: --
7936: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
7937: END IF;
7938: --
7932: --
7933: IF l_debug_on THEN
7934: WSH_DEBUG_SV.push(l_module_name);
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:
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));
7951: END IF;
7952: -- bug 1578527: disallow packing actions in WMS
7953:
7954: OPEN get_delivery_wms(p_delivery_tab(j));
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;
7964: --
7965: --RETURN; LPN CONV. rv
7966: raise e_return_excp; -- LPN CONV. rv
7976: FOR d IN Get_Delivery_Lines (p_delivery_tab(j)) LOOP
7977:
7978: l_del_detail_tab(i) := d.delivery_detail_id;
7979: IF l_debug_on THEN
7980: WSH_DEBUG_SV.log(l_module_name,'pupulate delivery detail id ', d.delivery_detail_id );
7981: END IF;
7982: i := i + 1;
7983:
7984: END LOOP;
7986: IF Get_Delivery_Lines%ISOPEN THEN
7987: CLOSE Get_Delivery_Lines;
7988: END IF;
7989: IF l_debug_on THEN
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
7999: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
8005: ELSE
8006:
8007: --
8008: IF l_debug_on THEN
8009: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.AUTO_PACK_LINES',WSH_DEBUG_SV.C_PROC_LEVEL);
8010: END IF;
8011: --
8012:
8013: wsh_container_actions.Auto_Pack_Lines (
8017: l_cont_instance_tab,
8018: l_return_status);
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;
8041:
8042: END IF;
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
8070: */
8071: IF l_del_rows.count > 0 THEN
8072: --
8073: IF l_debug_on THEN
8074: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
8075: END IF;
8076: --
8077: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
8078: p_entity_type => 'DELIVERY',
8079: p_entity_ids => l_del_rows,
8080: x_return_status => l_return_status);
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;
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
8094: raise e_return_excp; -- LPN CONV. rv
8095: END IF;
8101: THEN
8102: --{
8103:
8104: IF l_debug_on THEN
8105: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
8106: END IF;
8107: --
8108: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8109: (
8112: x_out_rec => l_lpn_out_sync_comm_rec
8113: );
8114: --
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: (
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);
8160: END IF;
8161:
8162: EXCEPTION
8163: -- LPN CONV. rv
8167: THEN
8168: --{
8169: --
8170: IF l_debug_on THEN
8171: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
8172: END IF;
8173: --
8174: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8175: (
8178: x_out_rec => l_lpn_out_sync_comm_rec
8179: );
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;
8189: --
8190: -- LPN CONV. rv
8191: --
8192: IF l_debug_on THEN
8193: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
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);
8203: END IF;
8204: --
8205: IF l_debug_on THEN
8206: 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);
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;
8204: --
8205: IF l_debug_on THEN
8206: 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);
8207: END IF;
8208: --
8209: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8210: THEN
8210: THEN
8211: --{
8212: --
8213: IF l_debug_on THEN
8214: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
8215: END IF;
8216: --
8217: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8218: (
8221: x_out_rec => l_lpn_out_sync_comm_rec
8222: );
8223: --
8224: IF l_debug_on THEN
8225: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
8226: END IF;
8227: --}
8228: END IF;
8229: --
8229: --
8230: -- LPN CONV. rv
8231: --
8232: IF l_debug_on THEN
8233: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8234: END IF;
8235: END Auto_Pack_Delivery;
8236:
8237:
8421: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8422: --
8423: IF l_debug_on IS NULL
8424: THEN
8425: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8426: END IF;
8427: --
8428: IF l_debug_on THEN
8429: WSH_DEBUG_SV.push(l_module_name);
8425: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8426: END IF;
8427: --
8428: IF l_debug_on THEN
8429: WSH_DEBUG_SV.push(l_module_name);
8430: --
8431: WSH_DEBUG_SV.log(l_module_name,'P_PACK_MODE',P_PACK_MODE);
8432: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_PC',P_SPLIT_PC);
8433: END IF;
8427: --
8428: IF l_debug_on THEN
8429: WSH_DEBUG_SV.push(l_module_name);
8430: --
8431: WSH_DEBUG_SV.log(l_module_name,'P_PACK_MODE',P_PACK_MODE);
8432: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_PC',P_SPLIT_PC);
8433: END IF;
8434: --
8435: IF p_cont_tab.count = 0 OR p_del_detail_tab.count = 0 THEN
8428: IF l_debug_on THEN
8429: WSH_DEBUG_SV.push(l_module_name);
8430: --
8431: WSH_DEBUG_SV.log(l_module_name,'P_PACK_MODE',P_PACK_MODE);
8432: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_PC',P_SPLIT_PC);
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');
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);
8449: x_return_status => l_tmp_return_status);
8450:
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,
8465: END IF;
8466: END IF;
8467: --}
8468: --IF l_debug_on THEN
8469: -- WSH_DEBUG_SV.pop(l_module_name);
8470: --END IF;
8471: --
8472: --return; LPN CONV. rv
8473: raise e_return_excp; -- LPN CONV. rv
8507: l_det_tab(j).pack_status := 'Unpacked';
8508:
8509: --
8510: IF l_debug_on THEN
8511: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_CREDIT_HOLDS',WSH_DEBUG_SV.C_PROC_LEVEL);
8512: END IF;
8513: --
8514: WSH_DETAILS_VALIDATIONS.Check_Credit_Holds (
8515: l_det_tab(j).delivery_detail_id,
8519: NULL,
8520: 'Y',
8521: x_return_status);
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;
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);
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);
8550: END IF;
8551:
8552: /* wsh_util_core.api_post_call
8553: (
8564: END IF;
8565: --}
8566: --
8567: --IF l_debug_on THEN
8568: -- WSH_DEBUG_SV.pop(l_module_name);
8569: --END IF;
8570: --
8571: --RETURN; LPN CONV. rv
8572: raise e_return_excp; -- LPN CONV. rv
8584: l_det_pack_sts := 'Unpacked';
8585: i := 1;
8586:
8587: IF l_debug_on THEN
8588: WSH_DEBUG_SV.log(l_module_name,'processing line ' || j || ' detail is ' || l_det_tab(j).delivery_detail_id);
8589: END IF;
8590:
8591: WHILE i <= cont_count LOOP
8592: IF l_cont_tab(i).pack_status = 'Skipped' THEN
8644: x_fill_basis => l_fill_pc_basis,
8645: x_process_flag => l_process_flag);
8646:
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 {
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);
8660: x_return_status => l_tmp_return_status);
8661:
8662:
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: (
8692: END IF;
8693: END IF;
8694: --}
8695: --IF l_debug_on THEN
8696: -- WSH_DEBUG_SV.pop(l_module_name);
8697: --END IF;
8698: --RETURN;
8699: raise e_return_excp; -- LPN CONV. rv
8700: END IF;
8767:
8768: IF Get_Cont_Info%NOTFOUND THEN
8769: --
8770: IF l_debug_on THEN
8771: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
8772: END IF;
8773: --
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');
8793: -- replacing with TPA enabled API..
8794:
8795: --
8796: IF l_debug_on THEN
8797: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
8798: END IF;
8799: --
8800: WSH_TPA_CONTAINER_PKG.Container_Weight_Volume (
8801: l_cont_tab(i).container_instance_id,
8806: 'Y',
8807: l_tmp_fill_pc,
8808: x_return_status);
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: --
8818: IF l_debug_on THEN
8819: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
8820: END IF;
8821: --
8822: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
8823: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
8856: -- replacing with TPA enabled API..
8857:
8858: --
8859: IF l_debug_on THEN
8860: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.ESTIMATE_DETAIL_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
8861: END IF;
8862: --
8863: WSH_TPA_CONTAINER_PKG.Estimate_Detail_Containers (
8864: l_cont_tab(i).container_instance_id,
8868: l_req_cont_num,
8869: x_return_status);
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';
8887:
8888: l_tmp_det_tab(1) := l_det_tab(j).delivery_detail_id;
8889:
8890: IF l_debug_on THEN
8891: WSH_DEBUG_SV.log(l_module_name,'assigning detail ' || l_tmp_det_tab(1) || ' to container ' || l_cont_tab(i).container_instance_id);
8892: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
8893: END IF;
8894:
8895: --
8888: l_tmp_det_tab(1) := l_det_tab(j).delivery_detail_id;
8889:
8890: IF l_debug_on THEN
8891: WSH_DEBUG_SV.log(l_module_name,'assigning detail ' || l_tmp_det_tab(1) || ' to container ' || l_cont_tab(i).container_instance_id);
8892: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
8893: END IF;
8894:
8895: --
8896: wsh_container_actions.Assign_Detail (
8898: l_tmp_det_tab,
8899: l_pack_status,
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';
8921:
8922: IF l_fill_status = 'O' THEN
8923: --
8924: IF l_debug_on THEN
8925: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
8926: END IF;
8927: --
8928: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
8929:
8954: l_tmp_split_qty := ROUND(((l_det_pack_qty*l_cont_avail_pc)/l_req_cont_num),LIMITED_PRECISION);
8955:
8956: --
8957: IF l_debug_on THEN
8958: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
8959: END IF;
8960: --
8961: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
8962: l_det_inv_item_id,
8965: l_det_qty_uom,
8966: l_split_qty,
8967: l_discard_status);
8968: IF l_debug_on THEN
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
8992: IF l_split_qty >= 1 THEN
8993:
8994: IF l_det_pack_qty = l_split_qty THEN
8995: IF l_debug_on THEN
8996: WSH_DEBUG_SV.log(l_module_name,'In IF of equal-');
8997: END IF;
8998: l_split_det_id := l_det_tab(j).delivery_detail_id;
8999: IF l_debug_on THEN
9000: WSH_DEBUG_SV.log(l_module_name,'DELIVERY DETAIL id'||l_split_det_id);
8996: WSH_DEBUG_SV.log(l_module_name,'In IF of equal-');
8997: END IF;
8998: l_split_det_id := l_det_tab(j).delivery_detail_id;
8999: IF l_debug_on THEN
9000: WSH_DEBUG_SV.log(l_module_name,'DELIVERY DETAIL id'||l_split_det_id);
9001: END IF;
9002: l_tmp_det_tab(1) := l_split_det_id;
9003: l_tmp_det_count := j;
9004: l_det_pack_sts := 'Packed';
9028: ELSE -- non divisible
9029:
9030: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9031: IF l_debug_on THEN
9032: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9033: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9034: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9035: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9036: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9029:
9030: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9031: IF l_debug_on THEN
9032: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9033: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9034: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9035: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9036: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9037: END IF;
9030: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9031: IF l_debug_on THEN
9032: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9033: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9034: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9035: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9036: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9037: END IF;
9038: --
9031: IF l_debug_on THEN
9032: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9033: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9034: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9035: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9036: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9037: END IF;
9038: --
9039:
9032: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9033: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9034: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9035: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9036: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9037: END IF;
9038: --
9039:
9040: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details (
9046: p_manual_split => 'C'
9047: );
9048: --dbms_output.put_line('...split detail id ' || l_split_det_id);
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');
9073:
9074: END IF;
9075: --
9076: IF l_debug_on THEN
9077: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
9078: END IF;
9079: --
9080: wsh_container_actions.Assign_Detail (
9081: l_cont_tab(i).container_instance_id,
9083: l_pack_status,
9084: x_return_status,FALSE);
9085:
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
9165:
9166: FOR j IN 1..det_count LOOP
9167:
9168: IF l_debug_on THEN
9169: WSH_DEBUG_SV.log(l_module_name,'===========================================');
9170: WSH_DEBUG_SV.log(l_module_name,'pack mode E: processing detail ' || l_det_tab(j).delivery_detail_id);
9171: END IF;
9172:
9173: OPEN Get_Detail_Info (l_det_tab(j).delivery_detail_id);
9166: FOR j IN 1..det_count LOOP
9167:
9168: IF l_debug_on THEN
9169: WSH_DEBUG_SV.log(l_module_name,'===========================================');
9170: WSH_DEBUG_SV.log(l_module_name,'pack mode E: processing detail ' || l_det_tab(j).delivery_detail_id);
9171: END IF;
9172:
9173: OPEN Get_Detail_Info (l_det_tab(j).delivery_detail_id);
9174:
9230: l_tmp_split_qty := ROUND((l_split_pc*l_det_pack_qty/100),LIMITED_PRECISION);
9231:
9232: --
9233: IF l_debug_on THEN
9234: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
9235: END IF;
9236: --
9237: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
9238: l_det_inv_item_id,
9242: l_split_qty,
9243: l_discard_status);
9244:
9245: IF l_debug_on THEN
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
9267:
9268: FOR i IN 1..cont_count LOOP
9269:
9270: IF l_debug_on THEN
9271: WSH_DEBUG_SV.log(l_module_name,'----- packing into container ' || l_cont_tab(i).container_instance_id);
9272: WSH_DEBUG_SV.log(l_module_name,'Tmp Det Qty,Det Pack Qty,split qty',l_tmp_det_qty||l_det_pack_qty||l_split_qty);
9273: END IF;
9274: --dbms_output.put_line('l_tmp_det_qty = ' || l_tmp_det_qty);
9275: --dbms_output.put_line('l_det_pack_qty = ' || l_det_pack_qty);
9268: FOR i IN 1..cont_count LOOP
9269:
9270: IF l_debug_on THEN
9271: WSH_DEBUG_SV.log(l_module_name,'----- packing into container ' || l_cont_tab(i).container_instance_id);
9272: WSH_DEBUG_SV.log(l_module_name,'Tmp Det Qty,Det Pack Qty,split qty',l_tmp_det_qty||l_det_pack_qty||l_split_qty);
9273: END IF;
9274: --dbms_output.put_line('l_tmp_det_qty = ' || l_tmp_det_qty);
9275: --dbms_output.put_line('l_det_pack_qty = ' || l_det_pack_qty);
9276: --dbms_output.put_line('l_split_qty = ' || l_split_qty);
9294:
9295: IF Get_Cont_Info%NOTFOUND THEN
9296: --
9297: IF l_debug_on THEN
9298: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9299: END IF;
9300: --
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');
9347: ELSE -- non divisible
9348: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9349:
9350: IF l_debug_on THEN
9351: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9352: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9353: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9354: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9355: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9348: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9349:
9350: IF l_debug_on THEN
9351: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9352: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9353: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9354: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9355: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9356: END IF;
9349:
9350: IF l_debug_on THEN
9351: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9352: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9353: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9354: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9355: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9356: END IF;
9357:
9350: IF l_debug_on THEN
9351: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9352: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9353: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9354: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9355: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9356: END IF;
9357:
9358: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details (
9351: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9352: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9353: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9354: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9355: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9356: END IF;
9357:
9358: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details (
9359: p_from_detail_id => l_det_tab(j).delivery_detail_id,
9363: x_return_status => x_return_status,
9364: p_manual_split => 'C'
9365: );
9366: IF l_debug_on THEN
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
9409: --dbms_output.put_line('* * * ASSIGNING detail ' || l_tmp_det_tab(1) || ' to container ' || l_cont_tab(i).container_instance_id);
9410:
9411: --
9412: IF l_debug_on THEN
9413: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
9414: END IF;
9415: --
9416: wsh_container_actions.Assign_Detail (
9417: l_cont_tab(i).container_instance_id,
9419: l_pack_status,
9420: x_return_status,FALSE);
9421:
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));
9471: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NO_MATCH');
9472: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9473: --
9474: IF l_debug_on THEN
9475: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9476: END IF;
9477: --
9478: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9479: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_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:
9515: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9516: x_return_status => l_tmp_return_status);
9516: x_return_status => l_tmp_return_status);
9517:
9518:
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: (
9534: END IF;
9535: --}
9536: --
9537: --IF l_debug_on THEN
9538: -- WSH_DEBUG_SV.pop(l_module_name);
9539: --END IF;
9540: --
9541: --return;
9542: raise e_return_excp; -- LPN CONV. rv
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);
9605: x_return_status => l_tmp_return_status);
9606:
9607:
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: (
9623: END IF;
9624: --}
9625: --
9626: --IF l_debug_on THEN
9627: -- WSH_DEBUG_SV.pop(l_module_name);
9628: --END IF;
9629: --
9630: --return;
9631: raise e_return_excp; -- LPN CONV. rv
9637: */
9638: IF l_detail_rows.count > 0 THEN
9639: --
9640: IF l_debug_on THEN
9641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
9642: END IF;
9643: --
9644: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
9645: p_entity_type => 'DELIVERY_DETAIL',
9646: p_entity_ids => l_detail_rows,
9647: x_return_status => l_return_status);
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');
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);
9665: x_return_status => l_tmp_return_status);
9666:
9667:
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: (
9695: END IF;
9696: END IF;
9697: --}
9698: --IF l_debug_on THEN
9699: -- WSH_DEBUG_SV.pop(l_module_name);
9700: --END IF;
9701: --
9702: --return;
9703: raise e_return_excp; -- LPN CONV. rv
9714: cont_err := cont_err + 1;
9715: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NOT_PACKED');
9716: --
9717: IF l_debug_on THEN
9718: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
9725: cont_warn := cont_warn + 1;
9726: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
9727: --
9728: IF l_debug_on THEN
9729: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
9739: cont_warn := cont_warn + 1;
9740: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
9741: --
9742: IF l_debug_on THEN
9743: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
9753: cont_warn := cont_warn + 1;
9754: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
9755: --
9756: IF l_debug_on THEN
9757: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
9776: THEN
9777: --{
9778:
9779: IF l_debug_on THEN
9780: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
9781: END IF;
9782: --
9783: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
9784: (
9787: x_out_rec => l_lpn_out_sync_comm_rec
9788: );
9789: --
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: (
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);
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;
9850:
9851: /*wsh_util_core.api_post_call
9852: (
9877: --}
9878:
9879: --
9880: IF l_debug_on THEN
9881: WSH_DEBUG_SV.pop(l_module_name);
9882: END IF;
9883: --
9884: EXCEPTION
9885: -- LPN CONV. rv
9886: WHEN e_return_excp THEN
9887: --
9888: --
9889: IF l_debug_on THEN
9890: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
9891: END IF;
9892: --
9893: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
9894: THEN
9894: THEN
9895: --{
9896: --
9897: IF l_debug_on THEN
9898: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
9899: END IF;
9900: --
9901: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
9902: (
9905: x_out_rec => l_lpn_out_sync_comm_rec
9906: );
9907: --
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;
9918: -- LPN CONV. rv
9919: --
9920: --
9921: IF l_debug_on THEN
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);
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;
9932: --
9933: -- LPN CONV. rv
9934: IF l_debug_on THEN
9931: END IF;
9932: --
9933: -- LPN CONV. rv
9934: IF l_debug_on THEN
9935: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
9936: END IF;
9937: --
9938: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
9939: THEN
9939: THEN
9940: --{
9941: --
9942: IF l_debug_on THEN
9943: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
9944: END IF;
9945: --
9946: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
9947: (
9950: x_out_rec => l_lpn_out_sync_comm_rec
9951: );
9952: --
9953: IF l_debug_on THEN
9954: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
9955: END IF;
9956: --}
9957: END IF;
9958: --
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);
9970: x_return_status => l_return_status);
9971:
9972:
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: (
9985: END IF;
9986: --}
9987: --
9988: IF l_debug_on THEN
9989: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9990: END IF;
9991: --
9992: END Pack_Multi;
9993:
10039: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10040: --
10041: IF l_debug_on IS NULL
10042: THEN
10043: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10044: END IF;
10045: --
10046: IF l_debug_on THEN
10047: WSH_DEBUG_SV.push(l_module_name);
10043: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10044: END IF;
10045: --
10046: IF l_debug_on THEN
10047: WSH_DEBUG_SV.push(l_module_name);
10048: --
10049: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
10050: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_DETAIL_ID',P_SPLIT_DETAIL_ID);
10051: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QTY',P_SPLIT_QTY);
10045: --
10046: IF l_debug_on THEN
10047: WSH_DEBUG_SV.push(l_module_name);
10048: --
10049: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
10050: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_DETAIL_ID',P_SPLIT_DETAIL_ID);
10051: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QTY',P_SPLIT_QTY);
10052: END IF;
10053: --
10046: IF l_debug_on THEN
10047: WSH_DEBUG_SV.push(l_module_name);
10048: --
10049: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
10050: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_DETAIL_ID',P_SPLIT_DETAIL_ID);
10051: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QTY',P_SPLIT_QTY);
10052: END IF;
10053: --
10054: IF p_split_detail_id IS NULL THEN
10047: WSH_DEBUG_SV.push(l_module_name);
10048: --
10049: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
10050: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_DETAIL_ID',P_SPLIT_DETAIL_ID);
10051: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QTY',P_SPLIT_QTY);
10052: END IF;
10053: --
10054: IF p_split_detail_id IS NULL THEN
10055: -- nothing split, ergo nothing to update...
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;
10061: --
10062: return;
10063: END IF;
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;
10079: --
10080: return;
10081: END IF;
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;
10093: --
10094: return;
10095: END IF;
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;
10114: --
10115: return;
10116: END IF;
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;
10141: --
10142: return;
10143: END IF;
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;
10163:
10164:
10165: --
10166: IF l_debug_on THEN
10167: WSH_DEBUG_SV.pop(l_module_name);
10168: END IF;
10169: --
10170: EXCEPTION
10171:
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);
10179: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10180: END IF;
10181: --
10182: END Update_Shipped_Qty;
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);
10179: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10180: END IF;
10181: --
10182: END Update_Shipped_Qty;
10183:
10215: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10216: --
10217: IF l_debug_on IS NULL
10218: THEN
10219: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10220: END IF;
10221: --
10222: IF l_debug_on THEN
10223: WSH_DEBUG_SV.push(l_module_name);
10219: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10220: END IF;
10221: --
10222: IF l_debug_on THEN
10223: WSH_DEBUG_SV.push(l_module_name);
10224: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10225: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10226: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10227: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10220: END IF;
10221: --
10222: IF l_debug_on THEN
10223: WSH_DEBUG_SV.push(l_module_name);
10224: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10225: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10226: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10227: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10228: END IF;
10221: --
10222: IF l_debug_on THEN
10223: WSH_DEBUG_SV.push(l_module_name);
10224: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10225: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10226: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10227: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10228: END IF;
10229: --
10222: IF l_debug_on THEN
10223: WSH_DEBUG_SV.push(l_module_name);
10224: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10225: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10226: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10227: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10228: END IF;
10229: --
10230: l_quantity_left := p_line_cont_rec.shp_qty;
10223: WSH_DEBUG_SV.push(l_module_name);
10224: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10225: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10226: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10227: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10228: END IF;
10229: --
10230: l_quantity_left := p_line_cont_rec.shp_qty;
10231:
10371: END IF;
10372: x_return_status := C_SUCCESS_STATUS;
10373: --
10374: IF l_debug_on THEN
10375: WSH_DEBUG_SV.pop(l_module_name);
10376: END IF;
10377: --
10378: RETURN;
10379:
10378: RETURN;
10379:
10380: --
10381: IF l_debug_on THEN
10382: WSH_DEBUG_SV.pop(l_module_name);
10383: END IF;
10384: --
10385: EXCEPTION
10386: WHEN Others THEN
10388: x_return_status := C_UNEXP_ERROR_STATUS;
10389:
10390: --
10391: IF l_debug_on THEN
10392: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10393: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10394: END IF;
10395: --
10396: END Pack_Container;
10389:
10390: --
10391: IF l_debug_on THEN
10392: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10393: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10394: END IF;
10395: --
10396: END Pack_Container;
10397:
10494: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10495: --
10496: IF l_debug_on IS NULL
10497: THEN
10498: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10499: END IF;
10500: --
10501: IF l_debug_on THEN
10502: WSH_DEBUG_SV.push(l_module_name);
10498: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10499: END IF;
10500: --
10501: IF l_debug_on THEN
10502: WSH_DEBUG_SV.push(l_module_name);
10503: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10504: WSH_DEBUG_SV.log(l_module_name,'In Validate_Container_For_Pack...');
10505: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10506: END IF;
10499: END IF;
10500: --
10501: IF l_debug_on THEN
10502: WSH_DEBUG_SV.push(l_module_name);
10503: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10504: WSH_DEBUG_SV.log(l_module_name,'In Validate_Container_For_Pack...');
10505: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10506: END IF;
10507: --
10500: --
10501: IF l_debug_on THEN
10502: WSH_DEBUG_SV.push(l_module_name);
10503: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10504: WSH_DEBUG_SV.log(l_module_name,'In Validate_Container_For_Pack...');
10505: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10506: END IF;
10507: --
10508: l_last_organization_id := NULL;
10501: IF l_debug_on THEN
10502: WSH_DEBUG_SV.push(l_module_name);
10503: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10504: WSH_DEBUG_SV.log(l_module_name,'In Validate_Container_For_Pack...');
10505: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10506: END IF;
10507: --
10508: l_last_organization_id := NULL;
10509: l_dd_count := 0;
10560: x_return_status => l_return_status,
10561: x_fill_basis => l_fill_pc_basis,
10562: x_process_flag => l_process_flag);
10563: IF l_debug_on THEN
10564: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10565: END IF;
10566: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10567: error_cnt := error_cnt + 1;
10568: goto next_cont;
10603: x_error_cnt => l_error_cnt,
10604: x_cont_item_id => l_wcl_cont_item_id,
10605: x_max_load_qty => l_max_load_qty);
10606: IF l_debug_on THEN
10607: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10608: END IF;
10609: IF (l_return_status = C_ERROR_STATUS) THEN
10610: error_cnt := error_cnt + l_error_cnt;
10611: END IF;
10651: -- Calculate max load qty depending on Weight/Volume
10652: IF (line_cont_rec.gross_weight IS NULL OR line_cont_rec.volume IS NULL) THEN
10653: --
10654: IF l_debug_on THEN
10655: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
10656: END IF;
10657: --
10658: -- J: W/V Changes
10659: WSH_WV_UTILS.Container_Weight_Volume(
10668: x_cont_fill_pc => l_cont_fill_pc,
10669: x_return_status => l_return_status);
10670:
10671: IF l_debug_on THEN
10672: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10673: END IF;
10674: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10675: --dbms_output.put_line('WSH_TPA_CONTAINER_PKG.Container_Weight_Volume did not return success');
10676: --
10674: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10675: --dbms_output.put_line('WSH_TPA_CONTAINER_PKG.Container_Weight_Volume did not return success');
10676: --
10677: IF l_debug_on THEN
10678: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
10679: END IF;
10680: --
10681: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(line_cont_rec.delivery_detail_id);
10682: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
10715: x_vol_uom => l_mtl_vol_uom,
10716: x_return_status => l_return_status,
10717: x_error_cnt => l_error_cnt);
10718: IF l_debug_on THEN
10719: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10720: END IF;
10721: IF (l_return_status = C_ERROR_STATUS) THEN
10722: error_cnt := error_cnt + l_error_cnt;
10723: END IF;
10729:
10730: IF (l_mtl_wt_uom <> line_cont_rec.weight_uom) THEN
10731: --
10732: IF l_debug_on THEN
10733: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
10734: END IF;
10735: --
10736: l_dd_gross_wt := WSH_WV_UTILS.Convert_Uom (
10737: from_uom => line_cont_rec.weight_uom,
10744:
10745: IF (l_mtl_vol_uom <> line_cont_rec.volume_uom) THEN
10746: --
10747: IF l_debug_on THEN
10748: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
10749: END IF;
10750: --
10751: l_dd_volume := WSH_WV_UTILS.Convert_Uom (
10752: from_uom => line_cont_rec.volume_uom,
10787: IF ((line_cont_rec.gross_weight IS NULL AND line_cont_rec.fill_pc_basis = 'W') OR
10788: (line_cont_rec.volume IS NULL AND line_cont_rec.fill_pc_basis = 'V')) THEN
10789: --
10790: IF l_debug_on THEN
10791: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
10792: END IF;
10793: --
10794: -- J: W/V Changes
10795: WSH_WV_UTILS.Container_Weight_Volume(
10804: x_cont_fill_pc => l_cont_fill_pc,
10805: x_return_status => l_return_status);
10806:
10807: IF l_debug_on THEN
10808: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10809: END IF;
10810: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10811: --dbms_output.put_line('WSH_TPA_CONTAINER_PKG.Container_Weight_Volume did not return success');
10812: --
10810: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10811: --dbms_output.put_line('WSH_TPA_CONTAINER_PKG.Container_Weight_Volume did not return success');
10812: --
10813: IF l_debug_on THEN
10814: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
10815: END IF;
10816: --
10817: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(line_cont_rec.delivery_detail_id);
10818: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
10872: x_vol_uom => l_mtl_vol_uom,
10873: x_return_status => l_return_status,
10874: x_error_cnt => l_error_cnt);
10875: IF l_debug_on THEN
10876: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10877: END IF;
10878: IF (l_return_status = C_ERROR_STATUS) THEN
10879: error_cnt := error_cnt + l_error_cnt;
10880: END IF;
10889:
10890: IF (l_mtl_wt_uom <> line_cont_rec.weight_uom) THEN
10891: --
10892: IF l_debug_on THEN
10893: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
10894: END IF;
10895: --
10896: l_dd_net_wt := WSH_WV_UTILS.Convert_Uom (
10897: from_uom => line_cont_rec.weight_uom,
10915:
10916: IF (l_mtl_vol_uom <> line_cont_rec.volume_uom) THEN
10917: --
10918: IF l_debug_on THEN
10919: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
10920: END IF;
10921: --
10922: l_dd_volume := WSH_WV_UTILS.Convert_Uom (
10923: from_uom => line_cont_rec.volume_uom,
10962: x_line_cont_tab := line_cont_tab;
10963: x_fill_pc_warn_cnt := fill_pc_warn_cnt; -- bug 3562797 jckwok
10964:
10965: IF l_debug_on THEN
10966: WSH_DEBUG_SV.log(l_module_name,'p_cont_info_tab count->'||p_cont_info_tab.count||' x_line_cont_tab count->'||x_line_cont_tab.count);
10967: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| error_cnt||' Warning Count '|| warn_cnt);
10968: WSH_DEBUG_SV.pop(l_module_name);
10969: END IF;
10970:
10963: x_fill_pc_warn_cnt := fill_pc_warn_cnt; -- bug 3562797 jckwok
10964:
10965: IF l_debug_on THEN
10966: WSH_DEBUG_SV.log(l_module_name,'p_cont_info_tab count->'||p_cont_info_tab.count||' x_line_cont_tab count->'||x_line_cont_tab.count);
10967: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| error_cnt||' Warning Count '|| warn_cnt);
10968: WSH_DEBUG_SV.pop(l_module_name);
10969: END IF;
10970:
10971: RETURN;
10964:
10965: IF l_debug_on THEN
10966: WSH_DEBUG_SV.log(l_module_name,'p_cont_info_tab count->'||p_cont_info_tab.count||' x_line_cont_tab count->'||x_line_cont_tab.count);
10967: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| error_cnt||' Warning Count '|| warn_cnt);
10968: WSH_DEBUG_SV.pop(l_module_name);
10969: END IF;
10970:
10971: RETURN;
10972:
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');
10986: END IF;
10987: --
10988: raise;
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');
10986: END IF;
10987: --
10988: raise;
10989:
11101: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11102: --
11103: IF l_debug_on IS NULL
11104: THEN
11105: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11106: END IF;
11107: --
11108: IF l_debug_on THEN
11109: WSH_DEBUG_SV.push(l_module_name);
11105: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11106: END IF;
11107: --
11108: IF l_debug_on THEN
11109: WSH_DEBUG_SV.push(l_module_name);
11110: END IF;
11111: --
11112: g_empty_cont_tab.DELETE;
11113: g_assign_detail_tab.DELETE;
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;
11131: --
11132: return;
11133: END IF;
11140:
11141: --dbms_output.put_line('Calling WSH_DELIVERY_AUTOCREATE.autocreate_deliveries to generate group_ids');
11142: --
11143: IF l_debug_on THEN
11144: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
11145: END IF;
11146: --
11147: l_attr_tab.delete;
11148: FOR i in 1..p_cont_detail_tab.count LOOP
11166:
11167:
11168:
11169: IF l_debug_on THEN
11170: WSH_DEBUG_SV.log(l_module_name,'return status', l_return_status);
11171: 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);
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);
11181: END IF;
11182: --
11183: return;
11184: END IF;
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;
11198: --
11199: return;
11200: ELSE
11219: x_fill_pc_warn_cnt => l_fill_pc_warn_count -- bug 3562797 jckwok
11220: );
11221:
11222: IF l_debug_on THEN
11223: WSH_DEBUG_SV.log(l_module_name,'after validate container for pack-error,warning', error_cnt||','||warn_cnt);
11224: END IF;
11225: --
11226: -- bug 3562797 jckwok
11227: -- Raise Error if all containers have 'Shipping Parameter' percent fill basis as None
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;
11239: ELSIF (l_fill_pc_warn_count > 0) THEN
11240: IF (l_return_status <> C_ERROR_STATUS) THEN
11254: WHILE (cnt <= line_cont_tab.COUNT) LOOP
11255:
11256: --dbms_output.put_line('======================================================');
11257: IF l_debug_on THEN
11258: WSH_DEBUG_SV.log(l_module_name,'auto-packing Container ' || line_cont_tab(cnt).delivery_detail_id||' Organization id '||line_cont_tab(cnt).organization_id);
11259: END IF;
11260:
11261: IF (l_last_organization_id is NULL) THEN
11262: l_last_organization_id := line_cont_tab(cnt).organization_id;
11289:
11290: --
11291: -- K LPN CONV. rv
11292: IF l_debug_on THEN
11293: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_CONT_INSTANCE_MULTI',WSH_DEBUG_SV.C_PROC_LEVEL);
11294: END IF;
11295: --
11296: WSH_CONTAINER_ACTIONS.Create_Cont_Instance_Multi(
11297: x_cont_name => l_cont_name,
11311: p_lpn_id => NULL,
11312: p_ignore_for_planning => NULL,
11313: p_caller => 'WSH_AUTO_PACK_CONTS');
11314: IF l_debug_on THEN
11315: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
11316: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
11317: END IF;
11318: -- K LPN CONV. rv
11319:
11312: p_ignore_for_planning => NULL,
11313: p_caller => 'WSH_AUTO_PACK_CONTS');
11314: IF l_debug_on THEN
11315: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
11316: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
11317: END IF;
11318: -- K LPN CONV. rv
11319:
11320: IF l_return_status <> C_SUCCESS_STATUS THEN
11338: cnt := 1;
11339: WHILE (cnt <= g_assign_detail_tab.COUNT) LOOP
11340: l_cont_instance_id := g_new_container_tab(g_assign_detail_tab(cnt).container_index).cont_instance_id;
11341: IF l_debug_on THEN
11342: WSH_DEBUG_SV.log(l_module_name,'DD '||g_assign_detail_tab(cnt).delivery_detail_id||' Index '||g_assign_detail_tab(cnt).container_index||' Cont '||l_cont_instance_id);
11343: END IF;
11344:
11345: --
11346: -- K LPN CONV. rv
11359: --update the container's ignore value with the first line's ignore
11360: --since grouping will have already sorted out lines with diff ignore, this shud be okay
11361: FOR cur IN c_get_detail(g_assign_detail_tab(cnt).delivery_detail_id) LOOP
11362: IF l_debug_on THEN
11363: WSH_DEBUG_SV.log(l_module_name,'ignore_for_planning',cur.ignore_for_planning);
11364: END IF;
11365: --
11366: -- K LPN CONV. rv
11367: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
11382: x_return_status => l_return_status
11383: );
11384:
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: --
11393: ELSE
11394: --
11395: error_cnt := error_cnt + 1;
11396: IF l_debug_on THEN
11397: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
11398: END IF;
11399: --
11400: END IF;
11401: --
11409:
11410: IF SQL%NOTFOUND THEN
11411: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
11412: IF l_debug_on THEN
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;
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;
11423: END IF;
11424: END LOOP;
11425:
11426: IF (l_cont_instance_id is NOT NULL) THEN
11427: --
11428: IF l_debug_on THEN
11429: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_TO_CONTAINER',WSH_DEBUG_SV.C_PROC_LEVEL);
11430: END IF;
11431: --
11432: wsh_container_actions.Assign_To_Container (
11433: p_det_cont_inst_id => g_assign_detail_tab(cnt).delivery_detail_id,
11433: p_det_cont_inst_id => g_assign_detail_tab(cnt).delivery_detail_id,
11434: p_par_cont_inst_id => l_cont_instance_id,
11435: x_return_status => l_return_status);
11436: IF l_debug_on THEN
11437: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
11438: END IF;
11439:
11440: --dbms_output.put_line('WSH_CONTAINER_ACTIONS.Assign_To_Container returned '||l_return_status);
11441: IF l_return_status = C_ERROR_STATUS THEN
11453:
11454: END IF; -- line_cont_tab.COUNT > 0
11455:
11456: IF l_debug_on THEN
11457: WSH_DEBUG_SV.log(l_module_name,'error cnt is ' || error_cnt || ' warn cnt is ' || warn_cnt|| ' succ cnt is ' || succ_cnt);
11458: END IF;
11459:
11460: -- 90.1 Summarize errors/warnings
11461: IF (error_cnt > 0) THEN
11482: END IF;
11483:
11484: --
11485: IF l_debug_on THEN
11486: WSH_DEBUG_SV.pop(l_module_name);
11487: END IF;
11488: --
11489: RETURN;
11490:
11489: RETURN;
11490:
11491: --
11492: IF l_debug_on THEN
11493: WSH_DEBUG_SV.pop(l_module_name);
11494: END IF;
11495: --
11496: EXCEPTION
11497: WHEN Others THEN
11499: x_return_status := C_UNEXP_ERROR_STATUS;
11500:
11501: --
11502: IF l_debug_on THEN
11503: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11504: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11505: END IF;
11506: --
11507: END Auto_Pack_conts;
11500:
11501: --
11502: IF l_debug_on THEN
11503: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11504: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11505: END IF;
11506: --
11507: END Auto_Pack_conts;
11508:
11593: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11594: --
11595: IF l_debug_on IS NULL
11596: THEN
11597: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11598: END IF;
11599: --
11600: IF l_debug_on THEN
11601: WSH_DEBUG_SV.push(l_module_name);
11597: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11598: END IF;
11599: --
11600: IF l_debug_on THEN
11601: WSH_DEBUG_SV.push(l_module_name);
11602: --
11603: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
11604: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
11605: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11599: --
11600: IF l_debug_on THEN
11601: WSH_DEBUG_SV.push(l_module_name);
11602: --
11603: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
11604: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
11605: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11606: END IF;
11607: --
11600: IF l_debug_on THEN
11601: WSH_DEBUG_SV.push(l_module_name);
11602: --
11603: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
11604: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
11605: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11606: END IF;
11607: --
11608: IF p_delivery_detail_id IS NOT NULL THEN
11601: WSH_DEBUG_SV.push(l_module_name);
11602: --
11603: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
11604: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
11605: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11606: END IF;
11607: --
11608: IF p_delivery_detail_id IS NOT NULL THEN
11609:
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;
11642: --
11643: return;
11644: END IF;
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;
11683: --
11684: return;
11685: END IF;
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;
11699: --
11700: return;
11701:
11730: x_return_status => l_return_status
11731: );
11732:
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: --
11738: --
11739: x_return_status := l_return_status;
11740: --
11741: IF l_debug_on THEN
11742: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
11743: WSH_DEBUG_SV.pop(l_module_name);
11744: END IF;
11745: --
11746: return;
11739: x_return_status := l_return_status;
11740: --
11741: IF l_debug_on THEN
11742: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
11743: WSH_DEBUG_SV.pop(l_module_name);
11744: END IF;
11745: --
11746: return;
11747: --
11776: --dbms_output.put_line('could not update container ' || p_container_instance_id);
11777: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
11778: --
11779: IF l_debug_on THEN
11780: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
11790: END IF;
11791: --
11792: return;
11793: END IF;
11800:
11801:
11802: --
11803: IF l_debug_on THEN
11804: WSH_DEBUG_SV.pop(l_module_name);
11805: END IF;
11806: --
11807: EXCEPTION
11808:
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);
11816: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11817: END IF;
11818: --
11819: END Update_Cont_Attributes;
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);
11816: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11817: END IF;
11818: --
11819: END Update_Cont_Attributes;
11820:
11876: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11877: --
11878: IF l_debug_on IS NULL
11879: THEN
11880: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11881: END IF;
11882: --
11883: IF l_debug_on THEN
11884: WSH_DEBUG_SV.push(l_module_name);
11880: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11881: END IF;
11882: --
11883: IF l_debug_on THEN
11884: WSH_DEBUG_SV.push(l_module_name);
11885: --
11886: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11887: END IF;
11888: --
11882: --
11883: IF l_debug_on THEN
11884: WSH_DEBUG_SV.push(l_module_name);
11885: --
11886: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11887: END IF;
11888: --
11889: OPEN Get_Detail_Attr (p_container_instance_id);
11890:
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);
11912: END IF;
11913: --
11914: return;
11915: END IF;
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);
11961: END IF;
11962: --
11963: EXCEPTION
11964:
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);
11972: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11973: END IF;
11974: --
11975: END Check_Cont_Attributes;
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);
11972: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11973: END IF;
11974: --
11975: END Check_Cont_Attributes;
11976:
12027: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12028: --
12029: IF l_debug_on IS NULL
12030: THEN
12031: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12032: END IF;
12033: --
12034: IF l_debug_on THEN
12035: WSH_DEBUG_SV.push(l_module_name);
12031: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12032: END IF;
12033: --
12034: IF l_debug_on THEN
12035: WSH_DEBUG_SV.push(l_module_name);
12036: --
12037: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12038: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12039: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12033: --
12034: IF l_debug_on THEN
12035: WSH_DEBUG_SV.push(l_module_name);
12036: --
12037: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12038: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12039: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12040: END IF;
12041: --
12034: IF l_debug_on THEN
12035: WSH_DEBUG_SV.push(l_module_name);
12036: --
12037: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12038: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12039: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12040: END IF;
12041: --
12042: --
12035: WSH_DEBUG_SV.push(l_module_name);
12036: --
12037: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12038: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12039: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12040: END IF;
12041: --
12042: --
12043: IF l_debug_on THEN
12040: END IF;
12041: --
12042: --
12043: IF l_debug_on THEN
12044: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_MASTER_CONT_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
12045: END IF;
12046: --
12047: l_master_cont_inst_id := WSH_CONTAINER_UTILITIES.Get_Master_Cont_Id(p_container_instance_id);
12048:
12079: --dbms_output.put_line('calling update cont attr with ' || cont.delivery_detail_id);
12080:
12081: --
12082: IF l_debug_on THEN
12083: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
12084: END IF;
12085: --
12086: wsh_container_actions.Update_Cont_Attributes (
12087: p_del_detail_id,
12088: p_delivery_id,
12089: cont.delivery_detail_id,
12090: l_return_status);
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');
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);
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;
12122: --
12123: return;
12124: ELSE
12126: END IF;
12127:
12128: --
12129: IF l_debug_on THEN
12130: WSH_DEBUG_SV.pop(l_module_name);
12131: END IF;
12132: --
12133: EXCEPTION
12134:
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);
12142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12143: END IF;
12144: --
12145: END Update_Cont_Hierarchy;
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);
12142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12143: END IF;
12144: --
12145: END Update_Cont_Hierarchy;
12146:
12199: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12200: --
12201: IF l_debug_on IS NULL
12202: THEN
12203: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12204: END IF;
12205: --
12206: IF l_debug_on THEN
12207: WSH_DEBUG_SV.push(l_module_name);
12203: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12204: END IF;
12205: --
12206: IF l_debug_on THEN
12207: WSH_DEBUG_SV.push(l_module_name);
12208: --
12209: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12210: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12211: END IF;
12205: --
12206: IF l_debug_on THEN
12207: WSH_DEBUG_SV.push(l_module_name);
12208: --
12209: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12210: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12211: END IF;
12212: --
12213: --
12206: IF l_debug_on THEN
12207: WSH_DEBUG_SV.push(l_module_name);
12208: --
12209: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12210: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12211: END IF;
12212: --
12213: --
12214: IF l_debug_on THEN
12211: END IF;
12212: --
12213: --
12214: IF l_debug_on THEN
12215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_MASTER_CONT_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
12216: END IF;
12217: --
12218: l_mast_cont_inst_id := WSH_CONTAINER_UTILITIES.Get_Master_Cont_Id (p_container_instance_id);
12219:
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;
12238: --
12239: return;
12240: END IF;
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;
12260: --
12261: return;
12262: END IF;
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);
12279: END IF;
12280: --
12281: EXCEPTION
12282:
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);
12290: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12291: END IF;
12292: --
12293: END Last_Assigned_Line;
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);
12290: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12291: END IF;
12292: --
12293: END Last_Assigned_Line;
12294:
12418: --
12419: l_debug_on := wsh_debug_interface.g_debug;
12420: --
12421: IF l_debug_on IS NULL THEN
12422: l_debug_on := wsh_debug_sv.is_debug_enabled;
12423: END IF;
12424: --
12425: IF l_debug_on THEN
12426: wsh_debug_sv.push(l_module_name);
12422: l_debug_on := wsh_debug_sv.is_debug_enabled;
12423: END IF;
12424: --
12425: IF l_debug_on THEN
12426: wsh_debug_sv.push(l_module_name);
12427: --
12428: wsh_debug_sv.LOG(l_module_name, 'p_lpn_id', p_lpn_id);
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);
12424: --
12425: IF l_debug_on THEN
12426: wsh_debug_sv.push(l_module_name);
12427: --
12428: wsh_debug_sv.LOG(l_module_name, 'p_lpn_id', p_lpn_id);
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: --
12425: IF l_debug_on THEN
12426: wsh_debug_sv.push(l_module_name);
12427: --
12428: wsh_debug_sv.LOG(l_module_name, 'p_lpn_id', p_lpn_id);
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;
12426: wsh_debug_sv.push(l_module_name);
12427: --
12428: wsh_debug_sv.LOG(l_module_name, 'p_lpn_id', p_lpn_id);
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: --
12503: fetch l_dup_del_csr into l_dup_del_id,l_dup_del_name, l_dup_del_status, l_dup_cnt_id;
12504: close l_dup_del_csr;
12505:
12506: IF l_debug_on THEN
12507: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_id', l_dup_del_id);
12508: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_name', l_dup_del_name);
12509: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_status', l_dup_del_status);
12510: WSH_DEBUG_SV.log(l_module_name,'l_dup_cnt_id', l_dup_cnt_id);
12511: END IF;
12504: close l_dup_del_csr;
12505:
12506: IF l_debug_on THEN
12507: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_id', l_dup_del_id);
12508: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_name', l_dup_del_name);
12509: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_status', l_dup_del_status);
12510: WSH_DEBUG_SV.log(l_module_name,'l_dup_cnt_id', l_dup_cnt_id);
12511: END IF;
12512:
12505:
12506: IF l_debug_on THEN
12507: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_id', l_dup_del_id);
12508: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_name', l_dup_del_name);
12509: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_status', l_dup_del_status);
12510: WSH_DEBUG_SV.log(l_module_name,'l_dup_cnt_id', l_dup_cnt_id);
12511: END IF;
12512:
12513: IF(l_dup_del_id is not null AND nvl(l_dup_del_status,'OP') = 'CL') THEN
12506: IF l_debug_on THEN
12507: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_id', l_dup_del_id);
12508: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_name', l_dup_del_name);
12509: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_status', l_dup_del_status);
12510: WSH_DEBUG_SV.log(l_module_name,'l_dup_cnt_id', l_dup_cnt_id);
12511: END IF;
12512:
12513: IF(l_dup_del_id is not null AND nvl(l_dup_del_status,'OP') = 'CL') THEN
12514: --{
12525: --l_cont_name := SUBSTRB(p_lpn_name || '.' || l_dlvy_rec.name,1,50);
12526: --
12527: --
12528: IF l_debug_on THEN
12529: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Create_Cont_Instance_Multi',WSH_DEBUG_SV.C_PROC_LEVEL);
12530: END IF;
12531: --
12532: G_CALLED_FROM_INBOUND := TRUE;
12533: --
12553: p_ignore_for_planning => l_dlvy_rec.ignore_for_planning,
12554: p_caller => 'WSH_IB_PACK');
12555: --
12556: IF l_debug_on THEN
12557: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
12558: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
12559: END IF;
12560: l_container_instance_id := l_cont_tab(1);
12561: -- K LPN CONV. rv
12554: p_caller => 'WSH_IB_PACK');
12555: --
12556: IF l_debug_on THEN
12557: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
12558: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
12559: END IF;
12560: l_container_instance_id := l_cont_tab(1);
12561: -- K LPN CONV. rv
12562: --
12604: -- Update of wsh_delivery_details where requested_quantity/released_status
12605: -- are changed, call DBI API after the update.
12606: -- This API will also check for DBI Installed or not
12607: IF l_debug_on THEN
12608: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',l_container_instance_id);
12609: END IF;
12610: l_detail_tab(1) := l_container_instance_id;
12611: WSH_INTEGRATION.DBI_Update_Detail_Log
12612: (p_delivery_detail_id_tab => l_detail_tab,
12613: p_dml_type => 'UPDATE',
12614: x_return_status => l_dbi_rs);
12615:
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;
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);
12625: WSH_DEBUG_SV.pop(l_module_name);
12626: END IF;
12627: return;
12628: END IF;
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);
12625: WSH_DEBUG_SV.pop(l_module_name);
12626: END IF;
12627: return;
12628: END IF;
12629: -- treat all other return status as Success
12654: --
12655: --
12656: --
12657: IF l_debug_on THEN
12658: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_tp_release.calculate_cont_del_tpdates',WSH_DEBUG_SV.C_PROC_LEVEL);
12659: END IF;
12660: --
12661: --
12662: -- Calculate container dates
12678: IF nvl(p_caller, '!!!!') <> 'WSH_VENDOR_MERGE' THEN
12679: --{
12680:
12681: IF l_debug_on THEN
12682: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
12683: END IF;
12684: --
12685: --
12686: -- Calculate container weight and volume
12696: x_cont_fill_pc => l_cont_fill_pc,
12697: x_return_status => l_return_status);
12698: --
12699: IF l_debug_on THEN
12700: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
12701: END IF;
12702: --}
12703: END IF;
12704:
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);
12719: END IF;
12720: --
12721: --}
12722: EXCEPTION
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');
12734: END IF;
12735: --
12736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
12734: END IF;
12735: --
12736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12737:
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);
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
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);
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: --
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:
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: --
12767: --}
12768: END pack_inbound_lines;
12821: --
12822: l_debug_on := wsh_debug_interface.g_debug;
12823: --
12824: IF l_debug_on IS NULL THEN
12825: l_debug_on := wsh_debug_sv.is_debug_enabled;
12826: END IF;
12827: --
12828: IF l_debug_on THEN
12829: wsh_debug_sv.push(l_module_name);
12825: l_debug_on := wsh_debug_sv.is_debug_enabled;
12826: END IF;
12827: --
12828: IF l_debug_on THEN
12829: wsh_debug_sv.push(l_module_name);
12830: --
12831: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12832: END IF;
12833: --
12827: --
12828: IF l_debug_on THEN
12829: wsh_debug_sv.push(l_module_name);
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: --
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);
12930: END IF;
12931: --
12932: --}
12933: EXCEPTION
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');
12944: END IF;
12945: --
12946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
12944: END IF;
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');
12954: END IF;
12955: --
12956: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
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');
12954: END IF;
12955: --
12956: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12957: x_return_status := WSH_UTIL_CORE.G_RET_STS_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:
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: --
12973: --}
12974: END unpack_inbound_delivery;
13016: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13017: --
13018: IF l_debug_on IS NULL
13019: THEN
13020: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13021: END IF;
13022: --
13023: IF l_debug_on THEN
13024: WSH_DEBUG_SV.push(l_module_name);
13020: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13021: END IF;
13022: --
13023: IF l_debug_on THEN
13024: WSH_DEBUG_SV.push(l_module_name);
13025: --
13026: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13027: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13028: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13022: --
13023: IF l_debug_on THEN
13024: WSH_DEBUG_SV.push(l_module_name);
13025: --
13026: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13027: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13028: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13029: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13030: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13023: IF l_debug_on THEN
13024: WSH_DEBUG_SV.push(l_module_name);
13025: --
13026: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13027: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13028: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13029: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13030: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13031: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
13024: WSH_DEBUG_SV.push(l_module_name);
13025: --
13026: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13027: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13028: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13029: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13030: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13031: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
13032: END IF;
13025: --
13026: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13027: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13028: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13029: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13030: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13031: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
13032: END IF;
13033: --
13026: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13027: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13028: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13029: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13030: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13031: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
13032: END IF;
13033: --
13034: IF ( NVL(p_quantity,0) <= 0 ) THEN
13027: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13028: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13029: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13030: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13031: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
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);
13041: END IF;
13042: --
13043: return;
13044: END IF;
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;
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);
13100: END IF;
13101: --
13102: EXCEPTION
13103:
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);
13111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13112: END IF;
13113: --
13114: END Create_Multiple_Cont_name;
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);
13111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13112: END IF;
13113: --
13114: END Create_Multiple_Cont_name;
13115:
13166: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13167: --
13168: IF l_debug_on IS NULL
13169: THEN
13170: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13171: END IF;
13172: --
13173: IF l_debug_on THEN
13174: WSH_DEBUG_SV.push(l_module_name);
13170: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13171: END IF;
13172: --
13173: IF l_debug_on THEN
13174: WSH_DEBUG_SV.push(l_module_name);
13175: --
13176: WSH_DEBUG_SV.log(l_module_name,'p_container_id',p_container_id);
13177: WSH_DEBUG_SV.log(l_module_name,'P_locator_id',P_locator_id);
13178: WSH_DEBUG_SV.log(l_module_name,'P_subinventory',P_subinventory);
13172: --
13173: IF l_debug_on THEN
13174: WSH_DEBUG_SV.push(l_module_name);
13175: --
13176: WSH_DEBUG_SV.log(l_module_name,'p_container_id',p_container_id);
13177: WSH_DEBUG_SV.log(l_module_name,'P_locator_id',P_locator_id);
13178: WSH_DEBUG_SV.log(l_module_name,'P_subinventory',P_subinventory);
13179: END IF;
13180: --
13173: IF l_debug_on THEN
13174: WSH_DEBUG_SV.push(l_module_name);
13175: --
13176: WSH_DEBUG_SV.log(l_module_name,'p_container_id',p_container_id);
13177: WSH_DEBUG_SV.log(l_module_name,'P_locator_id',P_locator_id);
13178: WSH_DEBUG_SV.log(l_module_name,'P_subinventory',P_subinventory);
13179: END IF;
13180: --
13181:
13174: WSH_DEBUG_SV.push(l_module_name);
13175: --
13176: WSH_DEBUG_SV.log(l_module_name,'p_container_id',p_container_id);
13177: WSH_DEBUG_SV.log(l_module_name,'P_locator_id',P_locator_id);
13178: WSH_DEBUG_SV.log(l_module_name,'P_subinventory',P_subinventory);
13179: END IF;
13180: --
13181:
13182:
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);
13200: END IF;
13201: --
13202: EXCEPTION
13203:
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
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;
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);
13221: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13222: END IF;
13223: --
13224: END Update_child_inv_info;
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);
13221: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13222: END IF;
13223: --
13224: END Update_child_inv_info;
13225:
13358: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13359: --
13360: IF l_debug_on IS NULL
13361: THEN
13362: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13363: END IF;
13364: --
13365: IF l_debug_on THEN
13366: WSH_DEBUG_SV.push(l_module_name);
13362: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13363: END IF;
13364: --
13365: IF l_debug_on THEN
13366: WSH_DEBUG_SV.push(l_module_name);
13367: --
13368: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
13369: WSH_DEBUG_SV.log(l_module_name,'p_child_container_id',p_child_container_id);
13370: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13364: --
13365: IF l_debug_on THEN
13366: WSH_DEBUG_SV.push(l_module_name);
13367: --
13368: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
13369: WSH_DEBUG_SV.log(l_module_name,'p_child_container_id',p_child_container_id);
13370: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13371: END IF;
13372: -- Check if the parent lpn is a consol LPN
13365: IF l_debug_on THEN
13366: WSH_DEBUG_SV.push(l_module_name);
13367: --
13368: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
13369: WSH_DEBUG_SV.log(l_module_name,'p_child_container_id',p_child_container_id);
13370: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13371: END IF;
13372: -- Check if the parent lpn is a consol LPN
13373:
13366: WSH_DEBUG_SV.push(l_module_name);
13367: --
13368: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
13369: WSH_DEBUG_SV.log(l_module_name,'p_child_container_id',p_child_container_id);
13370: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13371: END IF;
13372: -- Check if the parent lpn is a consol LPN
13373:
13374: OPEN c_get_container_info(p_parent_container_id);
13398:
13399: END IF;
13400:
13401: IF l_debug_on THEN
13402: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13403: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13404: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.container_flag',l_parent_container_info.container_flag);
13405: END IF;
13406: IF l_parent_container_info.container_flag = 'Y' THEN
13399: END IF;
13400:
13401: IF l_debug_on THEN
13402: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13403: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13404: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.container_flag',l_parent_container_info.container_flag);
13405: END IF;
13406: IF l_parent_container_info.container_flag = 'Y' THEN
13407:
13400:
13401: IF l_debug_on THEN
13402: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13403: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13404: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.container_flag',l_parent_container_info.container_flag);
13405: END IF;
13406: IF l_parent_container_info.container_flag = 'Y' THEN
13407:
13408: -- This is not a consol LPN, so we need to convert this to a consol before assignment.
13432: -- the same trip, or if only one of the deliveries has a trip. Check if
13433: -- this trip has a consol delivery. If yes, we can use this consol delivery, else
13434: -- We need to create a consolidation delivery for both.
13435: IF l_debug_on THEN
13436: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13437: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13438: END IF;
13439:
13440: -- Check if the trips have consolidation deliveries.
13433: -- this trip has a consol delivery. If yes, we can use this consol delivery, else
13434: -- We need to create a consolidation delivery for both.
13435: IF l_debug_on THEN
13436: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13437: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13438: END IF;
13439:
13440: -- Check if the trips have consolidation deliveries.
13441: -- Check trip for the parent lpn.
13473: l_child_trip_id := NVL(l_child_trip_id, l_parent_trip_id);
13474:
13475:
13476: IF l_debug_on THEN
13477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Unassign_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
13478: END IF;
13479:
13480: WSH_TRIPS_ACTIONS.Unassign_Trip(p_del_rows => l_unassign_dels,
13481: p_trip_id => l_child_trip_id,
13495: END IF;
13496: IF l_new_parent_delivery_id IS NULL THEN
13497: -- Create a new consolidation delivery.
13498: IF l_debug_on THEN
13499: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13500: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13501: END IF;
13502:
13503: FOR i in 1..2 LOOP
13496: IF l_new_parent_delivery_id IS NULL THEN
13497: -- Create a new consolidation delivery.
13498: IF l_debug_on THEN
13499: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13500: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13501: END IF;
13502:
13503: FOR i in 1..2 LOOP
13504:
13508: l_child_delivery_id := l_child_container_info.delivery_id;
13509: END IF;
13510:
13511: IF l_debug_on THEN
13512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.Populate_Record',WSH_DEBUG_SV.C_PROC_LEVEL);
13513: END IF;
13514: WSH_NEW_DELIVERIES_PVT.Populate_Record(
13515: p_delivery_id => l_child_delivery_id,
13516: x_delivery_info => l_del_info_tab(i),
13527: END LOOP;
13528:
13529:
13530: IF l_debug_on THEN
13531: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_Delivery_Autocreate.Autocreate_Consol_Delivery',WSH_DEBUG_SV.C_PROC_LEVEL);
13532: END IF;
13533: WSH_Delivery_Autocreate.Autocreate_Consol_Delivery(
13534: p_del_attributes_tab => l_del_info_tab,
13535: p_caller => p_caller,
13548: ELSIF (l_parent_container_info.parent_delivery_id <> l_child_container_info.parent_delivery_id) OR
13549: (l_parent_container_info.parent_delivery_id IS NULL) OR
13550: (l_child_container_info.parent_delivery_id IS NULL) THEN
13551: IF l_debug_on THEN
13552: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13553: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13554: END IF;
13555:
13556: IF l_parent_container_info.parent_delivery_id IS NOT NULL
13549: (l_parent_container_info.parent_delivery_id IS NULL) OR
13550: (l_child_container_info.parent_delivery_id IS NULL) THEN
13551: IF l_debug_on THEN
13552: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13553: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13554: END IF;
13555:
13556: IF l_parent_container_info.parent_delivery_id IS NOT NULL
13557: AND l_child_container_info.parent_delivery_id IS NULL THEN
13559: -- a consol delivery, but the child is not.
13560: -- We need to assign the child containers delivery to the parent containers
13561: -- consol delivery.
13562: IF l_debug_on THEN
13563: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13564: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13565: END IF;
13566:
13567: l_assign_flag := 'Y';
13560: -- We need to assign the child containers delivery to the parent containers
13561: -- consol delivery.
13562: IF l_debug_on THEN
13563: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13564: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13565: END IF;
13566:
13567: l_assign_flag := 'Y';
13568: l_new_parent_delivery_id := l_parent_container_info.parent_delivery_id;
13574: -- case 3. The child LPN is attached to a consol delivery, but the parent is not.
13575: -- We need to assign the parent container's delivery to the child
13576: -- containers consol delivery.
13577: IF l_debug_on THEN
13578: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13579: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13580: END IF;
13581:
13582: l_assign_flag := 'Y';
13575: -- We need to assign the parent container's delivery to the child
13576: -- containers consol delivery.
13577: IF l_debug_on THEN
13578: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13579: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13580: END IF;
13581:
13582: l_assign_flag := 'Y';
13583: l_new_parent_delivery_id := l_child_container_info.parent_delivery_id;
13589: -- but they do not match.
13590: -- Raise an exception since this is not a valid assignment.
13591:
13592: IF l_debug_on THEN
13593: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13594: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13595: END IF;
13596: RAISE WSH_CONSOL_DEL_NO_MATCH;
13597:
13590: -- Raise an exception since this is not a valid assignment.
13591:
13592: IF l_debug_on THEN
13593: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13594: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13595: END IF;
13596: RAISE WSH_CONSOL_DEL_NO_MATCH;
13597:
13598: END IF;
13597:
13598: END IF;
13599: ELSIF l_child_container_info.parent_delivery_id = l_parent_container_info.parent_delivery_id THEN
13600: IF l_debug_on THEN
13601: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13602: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13603: END IF;
13604:
13605: l_new_parent_delivery_id := l_parent_container_info.parent_delivery_id;
13598: END IF;
13599: ELSIF l_child_container_info.parent_delivery_id = l_parent_container_info.parent_delivery_id THEN
13600: IF l_debug_on THEN
13601: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13602: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13603: END IF;
13604:
13605: l_new_parent_delivery_id := l_parent_container_info.parent_delivery_id;
13606:
13609: -- Convert the parent LPN to be a consol LPN.
13610:
13611: -- Get the attributes of the parent delivery
13612: IF l_debug_on THEN
13613: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.Populate_Record',WSH_DEBUG_SV.C_PROC_LEVEL);
13614: END IF;
13615:
13616: WSH_NEW_DELIVERIES_PVT.Populate_Record(
13617: p_delivery_id => l_new_parent_delivery_id,
13640: --
13641: -- Debug Statements
13642: --
13643: IF l_debug_on THEN
13644: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13645: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
13646: END IF;
13647: RETURN;
13648: --
13641: -- Debug Statements
13642: --
13643: IF l_debug_on THEN
13644: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13645: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
13646: END IF;
13647: RETURN;
13648: --
13649: END;
13702:
13703:
13704: -- Get the current topmost children of the parent LPN.
13705: IF l_debug_on THEN
13706: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13707: END IF;
13708:
13709: OPEN c_get_child_details(p_parent_container_id);
13710: FETCH c_get_child_details BULK COLLECT
13709: OPEN c_get_child_details(p_parent_container_id);
13710: FETCH c_get_child_details BULK COLLECT
13711: INTO l_child_details_tab;
13712: IF l_debug_on THEN
13713: WSH_DEBUG_SV.log(l_module_name,'l_child_details_tab.count',l_child_details_tab.count);
13714: END IF;
13715: CLOSE c_get_child_details;
13716:
13717: -- lock the children.
13729: --
13730: -- Debug Statements
13731: --
13732: IF l_debug_on THEN
13733: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
13735: END IF;
13736: RETURN;
13737: --
13730: -- Debug Statements
13731: --
13732: IF l_debug_on THEN
13733: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
13735: END IF;
13736: RETURN;
13737: --
13738: END;
13769: l_del_asg_info_rec.parent_delivery_id := l_new_parent_delivery_id;
13770: l_del_asg_info_rec.type := 'C';
13771:
13772: IF l_debug_on THEN
13773: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_Delivery_Details_PKG.Create_Deliv_Assignment_bulk',WSH_DEBUG_SV.C_PROC_LEVEL);
13774: END IF;
13775: WSH_Delivery_Details_PKG.Create_Deliv_Assignment_bulk(
13776: p_delivery_assignments_info => l_del_asg_info_rec,
13777: p_num_of_rec => l_child_details_tab.count,
13828:
13829: FOR i in 1..l_del_tab.count LOOP
13830:
13831: IF l_debug_on THEN
13832: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.Populate_Record',WSH_DEBUG_SV.C_PROC_LEVEL);
13833: END IF;
13834: WSH_NEW_DELIVERIES_PVT.Populate_Record(
13835: p_delivery_id => l_del_tab(i),
13836: x_delivery_info => l_del_info_tab(i),
13849:
13850:
13851:
13852: IF l_debug_on THEN
13853: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_New_Delivery_Actions.Assign_Del_to_Consol_Del',WSH_DEBUG_SV.C_PROC_LEVEL);
13854: END IF;
13855: WSH_New_Delivery_Actions.Assign_Del_to_Consol_Del(
13856: p_del_tab => l_del_info_tab,
13857: p_parent_del_id => l_new_parent_delivery_id,
13882:
13883: -- Handle wt/vol for consol deliveries/LPNs.
13884: /***
13885: IF l_debug_on THEN
13886: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Container_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
13887: END IF;
13888: WSH_WV_UTILS.Container_Weight_Volume (
13889: p_container_instance_id => p_parent_container_id,
13890: p_override_flag => 'Y',
13906: ***/
13907: -- Need to recalculate the wt/vol for the releated entities.
13908: -- Calculating for the trips would drive all the way to the deliveries and lpns.
13909: IF l_debug_on THEN
13910: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.trip_weight_volume',WSH_DEBUG_SV.C_PROC_LEVEL);
13911: END IF;
13912: OPEN c_get_filled_vol(p_parent_container_id);
13913: FETCH c_get_filled_vol INTO l_filled_volume;
13914: CLOSE c_get_filled_vol;
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;
13937: /*
13938:
13936: END IF;
13937: /*
13938:
13939: IF l_debug_on THEN
13940: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Delivery_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
13941: END IF;
13942:
13943: WSH_WV_UTILS.Delivery_Weight_Volume
13944: ( p_delivery_id => l_new_parent_delivery_id,
13967: --
13968: -- Debug Statements
13969: --
13970: IF l_debug_on THEN
13971: WSH_DEBUG_SV.pop(l_module_name);
13972: END IF;
13973: --
13974:
13975: EXCEPTION
13978: --
13979: -- Debug Statements
13980: --
13981: IF l_debug_on THEN
13982: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13983: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13984: END IF;
13985:
13986: WHEN WSH_INVALID_TRIPS THEN
13979: -- Debug Statements
13980: --
13981: IF l_debug_on THEN
13982: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
13990: --
13991: -- Debug Statements
13992: --
13993: IF l_debug_on THEN
13994: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_TRIPS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13995:
13996: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIPS');
13997: END IF;
13998:
13992: --
13993: IF l_debug_on THEN
13994: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_TRIPS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13995:
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;
14003: --
14004: -- Debug Statements
14005: --
14006: IF l_debug_on THEN
14007: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_CHILD_LPNS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14008:
14009: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_CHILD_LPNS');
14010: END IF;
14011:
14005: --
14006: IF l_debug_on THEN
14007: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_CHILD_LPNS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14008:
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;
14016: --
14017: -- Debug Statements
14018: --
14019: IF l_debug_on THEN
14020: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CONSOL_DEL_NO_MATCH exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14021:
14022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CONSOL_DEL_NO_MATCH');
14023: END IF;
14024:
14018: --
14019: IF l_debug_on THEN
14020: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CONSOL_DEL_NO_MATCH exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14021:
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;
14029: --
14030: -- Debug Statements
14031: --
14032: IF l_debug_on THEN
14033: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_ASSIGN_CONSOL_LPN_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14034:
14035: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_ASSIGN_CONSOL_LPN_ERROR');
14036: END IF;
14037:
14031: --
14032: IF l_debug_on THEN
14033: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_ASSIGN_CONSOL_LPN_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14034:
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;
14042: --
14043: -- Debug Statements
14044: --
14045: IF l_debug_on THEN
14046: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CONSOL_ASSIGN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14047:
14048: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CONSOL_ASSIGN');
14049: END IF;
14050:
14044: --
14045: IF l_debug_on THEN
14046: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CONSOL_ASSIGN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14047:
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;
14055: --
14056: -- Debug Statements
14057: --
14058: IF l_debug_on THEN
14059: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_PARENT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14060:
14061: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_PARENT');
14062: END IF;
14063:
14057: --
14058: IF l_debug_on THEN
14059: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_PARENT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14060:
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;
14068: --
14069: -- Debug Statements
14070: --
14071: IF l_debug_on THEN
14072: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILD exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14073:
14074: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILD');
14075: END IF;
14076: --
14070: --
14071: IF l_debug_on THEN
14072: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILD exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14073:
14074: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILD');
14075: END IF;
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;
14085:
14086: END Assign_Container_to_Consol;
14087:
14160: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
14161: --
14162: IF l_debug_on IS NULL
14163: THEN
14164: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14165: END IF;
14166: --
14167: IF l_debug_on THEN
14168: WSH_DEBUG_SV.push(l_module_name);
14164: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14165: END IF;
14166: --
14167: IF l_debug_on THEN
14168: WSH_DEBUG_SV.push(l_module_name);
14169: --
14170: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
14171: END IF;
14172: --
14166: --
14167: IF l_debug_on THEN
14168: WSH_DEBUG_SV.push(l_module_name);
14169: --
14170: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
14171: END IF;
14172: --
14173:
14174:
14214: --
14215: -- Debug Statements
14216: --
14217: IF l_debug_on THEN
14218: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14219: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
14220: END IF;
14221: RETURN;
14222: --
14215: -- Debug Statements
14216: --
14217: IF l_debug_on THEN
14218: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14219: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
14220: END IF;
14221: RETURN;
14222: --
14223: END;
14231: -- anticipation of it being decremented during the WMS call.
14232:
14233:
14234: IF l_debug_on THEN
14235: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14236: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14237: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14238: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14239: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14232:
14233:
14234: IF l_debug_on THEN
14235: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14236: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14237: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14238: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14239: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14240: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14233:
14234: IF l_debug_on THEN
14235: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14236: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14237: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14238: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14239: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14240: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14241: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14234: IF l_debug_on THEN
14235: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14236: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14237: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14238: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14239: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14240: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14241: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14242: END IF;
14235: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14236: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14237: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14238: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14239: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14240: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14241: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14242: END IF;
14243:
14236: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14237: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14238: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14239: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14240: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14241: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14242: END IF;
14243:
14244: -- convert the child UOM to the parent UOMs.
14237: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14238: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14239: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14240: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14241: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14242: END IF;
14243:
14244: -- convert the child UOM to the parent UOMs.
14245:
14251: IF NVL(l_cont_gross_weight, 0) = 0 THEN
14252: l_child_gross_weight := 0;
14253: ELSE
14254: IF l_debug_on THEN
14255: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14256: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14257: END IF;
14258: l_child_gross_weight :=
14259: WSH_WV_UTILS.convert_uom(l_child_weight_UOM, l_parent_weight_UOM, l_cont_gross_weight, l_child_inv_item_id);
14252: l_child_gross_weight := 0;
14253: ELSE
14254: IF l_debug_on THEN
14255: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14256: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14257: END IF;
14258: l_child_gross_weight :=
14259: WSH_WV_UTILS.convert_uom(l_child_weight_UOM, l_parent_weight_UOM, l_cont_gross_weight, l_child_inv_item_id);
14260: END IF;
14261: IF NVL(l_cont_net_weight, 0) = 0 THEN
14262: l_child_net_weight := 0;
14263: ELSE
14264: IF l_debug_on THEN
14265: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14266: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14267: END IF;
14268: l_child_net_weight :=
14269: WSH_WV_UTILS.convert_uom(l_child_weight_UOM, l_parent_weight_UOM, l_cont_net_weight, l_child_inv_item_id);
14262: l_child_net_weight := 0;
14263: ELSE
14264: IF l_debug_on THEN
14265: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14266: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14267: END IF;
14268: l_child_net_weight :=
14269: WSH_WV_UTILS.convert_uom(l_child_weight_UOM, l_parent_weight_UOM, l_cont_net_weight, l_child_inv_item_id);
14270: END IF;
14277: IF NVL(l_cont_volume, 0) = 0 THEN
14278: l_child_volume := 0;
14279: ELSE
14280: IF l_debug_on THEN
14281: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14282: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14283: END IF;
14284: l_child_volume :=
14285: WSH_WV_UTILS.convert_uom(l_child_volume_UOM, l_parent_volume_UOM, l_cont_volume, l_child_inv_item_id);
14278: l_child_volume := 0;
14279: ELSE
14280: IF l_debug_on THEN
14281: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14282: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14283: END IF;
14284: l_child_volume :=
14285: WSH_WV_UTILS.convert_uom(l_child_volume_UOM, l_parent_volume_UOM, l_cont_volume, l_child_inv_item_id);
14286: END IF;
14287:
14288: END IF;
14289:
14290: IF l_debug_on THEN
14291: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
14292: END IF;
14293:
14294: WSH_WV_UTILS.DD_WV_Post_Process(
14295: p_delivery_detail_id => l_parent_dd_id,
14328: --
14329: -- Debug Statements
14330: --
14331: IF l_debug_on THEN
14332: WSH_DEBUG_SV.pop(l_module_name);
14333: END IF;
14334:
14335:
14336: EXCEPTION
14339: --
14340: -- Debug Statements
14341: --
14342: IF l_debug_on THEN
14343: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14344: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14345: END IF;
14346:
14347:
14340: -- Debug Statements
14341: --
14342: IF l_debug_on THEN
14343: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14344: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14345: END IF;
14346:
14347:
14348: WHEN WSH_INVALID_COMBINATION THEN
14352: --
14353: -- Debug Statements
14354: --
14355: IF l_debug_on THEN
14356: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_COMBINATION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14357:
14358: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_COMBINATION');
14359: END IF;
14360: --
14354: --
14355: IF l_debug_on THEN
14356: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_COMBINATION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14357:
14358: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_COMBINATION');
14359: END IF;
14360: --
14361:
14362: WHEN OTHERS THEN
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;
14368:
14369: END Unpack_Details_from_Consol;
14370: