[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
298: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
299: --
300: IF l_debug_on IS NULL
301: THEN
302: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
303: END IF;
304: --
305: IF l_debug_on THEN
306: WSH_DEBUG_SV.push(l_module_name);
302: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
303: END IF;
304: --
305: IF l_debug_on THEN
306: WSH_DEBUG_SV.push(l_module_name);
307: --
308: WSH_DEBUG_SV.log(l_module_name,'organization_id',P_container_rec.organization_id);
309: WSH_DEBUG_SV.log(l_module_name,'item_id',P_container_rec.inventory_item_id);
310: END IF;
304: --
305: IF l_debug_on THEN
306: WSH_DEBUG_SV.push(l_module_name);
307: --
308: WSH_DEBUG_SV.log(l_module_name,'organization_id',P_container_rec.organization_id);
309: WSH_DEBUG_SV.log(l_module_name,'item_id',P_container_rec.inventory_item_id);
310: END IF;
311: --
312:
305: IF l_debug_on THEN
306: WSH_DEBUG_SV.push(l_module_name);
307: --
308: WSH_DEBUG_SV.log(l_module_name,'organization_id',P_container_rec.organization_id);
309: WSH_DEBUG_SV.log(l_module_name,'item_id',P_container_rec.inventory_item_id);
310: END IF;
311: --
312:
313: -- If one of the wt/vol fields are negative, or if any wt/vol is give
322: THEN --{
323:
324: IF l_debug_on THEN --{
325:
326: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
327: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
328: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
329: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
330: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
323:
324: IF l_debug_on THEN --{
325:
326: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
327: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
328: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
329: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
330: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
331: END IF; --}
324: IF l_debug_on THEN --{
325:
326: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
327: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
328: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
329: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
330: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
331: END IF; --}
332:
325:
326: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
327: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
328: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
329: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
330: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
331: END IF; --}
332:
333: RAISE FND_API.G_EXC_ERROR;
326: WSH_DEBUG_SV.log(l_module_name,'1 gross_weight',P_container_rec.gross_weight);
327: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
328: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
329: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
330: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
331: END IF; --}
332:
333: RAISE FND_API.G_EXC_ERROR;
334:
354: --AND l_additional_cont_attr.tare_weight_uom_code IS NOT NULL )
355: THEN --}{
356: IF l_debug_on THEN --{
357:
358: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
359: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
360: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
362: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
355: THEN --}{
356: IF l_debug_on THEN --{
357:
358: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
359: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
360: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
362: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
363: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
356: IF l_debug_on THEN --{
357:
358: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
359: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
360: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
362: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
363: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
357:
358: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
359: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
360: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
362: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
363: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
365: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
358: WSH_DEBUG_SV.log(l_module_name,'2 gross_weight',P_container_rec.gross_weight);
359: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
360: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
362: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
363: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
365: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
366: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
359: WSH_DEBUG_SV.log(l_module_name,'net_weight',P_container_rec.net_weight);
360: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
362: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
363: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
365: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
366: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
367: END IF; --}
360: WSH_DEBUG_SV.log(l_module_name,'weight_uom_code',P_container_rec.weight_uom_code);
361: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
362: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
363: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
365: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
366: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
367: END IF; --}
368:
361: WSH_DEBUG_SV.log(l_module_name,'tare_weight',l_additional_cont_attr.tare_weight);
362: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
363: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
365: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
366: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
367: END IF; --}
368:
369: RAISE FND_API.G_EXC_ERROR;
362: WSH_DEBUG_SV.log(l_module_name,'tare_weight_uom_code',l_additional_cont_attr.tare_weight_uom_code);
363: WSH_DEBUG_SV.log(l_module_name,'volume',P_container_rec.volume);
364: WSH_DEBUG_SV.log(l_module_name,'filled_volume',P_container_rec.filled_volume);
365: WSH_DEBUG_SV.log(l_module_name,'volume_uom_code',P_container_rec.volume_uom_code);
366: WSH_DEBUG_SV.log(l_module_name,'filled_volume_uom',l_additional_cont_attr.filled_volume_uom_code);
367: END IF; --}
368:
369: RAISE FND_API.G_EXC_ERROR;
370:
371: END IF; --}
372:
373: l_wms_org := wsh_util_validate.check_wms_org(P_container_rec.organization_id);
374: IF l_debug_on THEN
375: WSH_DEBUG_SV.log(l_module_name,'l_wms_org',l_wms_org);
376: END IF;
377:
378: OPEN Get_Cont_Item_Info (P_container_rec.inventory_item_id,
379: P_container_rec.organization_id,
380: l_wms_org);
381:
382: --
383: IF l_debug_on THEN
384: WSH_DEBUG_SV.logmsg(l_module_name, 'GETTING CONTAINER ITEM INFO' );
385: END IF;
386: --
387: FETCH Get_Cont_Item_Info INTO
388: l_description,
402: AND NVL(p_caller,'WSH') NOT LIKE 'WMS%'
403: THEN
404:
405: IF l_debug_on THEN
406: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
407: END IF;
408: --
409: l_item_name := WSH_UTIL_CORE.Get_Item_Name(P_container_rec.inventory_item_id,P_container_rec.organization_id);
410: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
416: CLOSE Get_Cont_Item_Info;
417: -- Bug#: 3362895
418: IF P_container_rec.inventory_item_id IS NOT NULL THEN
419: IF l_debug_on THEN
420: WSH_DEBUG_SV.pop(l_module_name);
421: END IF;
422: --
423: return;
424: END IF;
430: END IF; --}
431:
432: --
433: IF l_debug_on THEN
434: WSH_DEBUG_SV.log(l_module_name, 'l_vol_uom',l_vol_uom );
435: WSH_DEBUG_SV.log(l_module_name, 'l_wt_uom',l_wt_uom );
436: END IF;
437: IF l_vol_uom IS NULL OR l_wt_uom IS NULL THEN --{
438: IF l_debug_on THEN
431:
432: --
433: IF l_debug_on THEN
434: WSH_DEBUG_SV.log(l_module_name, 'l_vol_uom',l_vol_uom );
435: WSH_DEBUG_SV.log(l_module_name, 'l_wt_uom',l_wt_uom );
436: END IF;
437: IF l_vol_uom IS NULL OR l_wt_uom IS NULL THEN --{
438: IF l_debug_on THEN
439: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.GET_DEFAULT_UOMS',WSH_DEBUG_SV.C_PROC_LEVEL);
435: WSH_DEBUG_SV.log(l_module_name, 'l_wt_uom',l_wt_uom );
436: END IF;
437: IF l_vol_uom IS NULL OR l_wt_uom IS NULL THEN --{
438: IF l_debug_on THEN
439: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.GET_DEFAULT_UOMS',WSH_DEBUG_SV.C_PROC_LEVEL);
440: END IF;
441: --
442: WSH_WV_UTILS.Get_Default_Uoms (
443: P_container_rec.organization_id,
450:
451: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
452: --
453: IF l_debug_on THEN
454: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR GETTING DEFFAULT UOMS' );
455: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
456: END IF;
457: --
458: l_org_name := WSH_UTIL_CORE.Get_Org_Name(P_container_rec.organization_id);
451: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
452: --
453: IF l_debug_on THEN
454: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR GETTING DEFFAULT UOMS' );
455: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
456: END IF;
457: --
458: l_org_name := WSH_UTIL_CORE.Get_Org_Name(P_container_rec.organization_id);
459: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
460: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
461: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
462: --
463: IF l_debug_on THEN
464: WSH_DEBUG_SV.log(l_module_name,'Org Name is ',l_org_name);
465: END IF;
466: --
467: wsh_util_core.api_post_call
468: (
472: );
473: END IF; --}
474: --
475: IF l_debug_on THEN
476: WSH_DEBUG_SV.logmsg(l_module_name, 'NO ERRORS AFTER GETTING DEFAULT UOMS' );
477: WSH_DEBUG_SV.logmsg(l_module_name, 'CLOSED GET_CONT_ITEM_INFO' );
478: END IF;
479: --
480:
473: END IF; --}
474: --
475: IF l_debug_on THEN
476: WSH_DEBUG_SV.logmsg(l_module_name, 'NO ERRORS AFTER GETTING DEFAULT UOMS' );
477: WSH_DEBUG_SV.logmsg(l_module_name, 'CLOSED GET_CONT_ITEM_INFO' );
478: END IF;
479: --
480:
481: --Changes for bug 7615765 Give preference to Container Item attributes
482: IF l_wt_uom IS NULL THEN
483: --{
484: l_wt_uom := l_wt_uom_ORG;
485: IF l_debug_on THEN
486: WSH_DEBUG_SV.logmsg(l_module_name, 'l_wt_uom updated to org dafault value' );
487: WSH_DEBUG_SV.log(l_module_name, 'l_wt_uom',l_wt_uom );
488: END IF;
489: --}
490: END IF;
483: --{
484: l_wt_uom := l_wt_uom_ORG;
485: IF l_debug_on THEN
486: WSH_DEBUG_SV.logmsg(l_module_name, 'l_wt_uom updated to org dafault value' );
487: WSH_DEBUG_SV.log(l_module_name, 'l_wt_uom',l_wt_uom );
488: END IF;
489: --}
490: END IF;
491:
492: IF l_vol_uom IS NULL THEN
493: --{
494: l_vol_uom := l_vol_uom_ORG;
495: IF l_debug_on THEN
496: WSH_DEBUG_SV.logmsg(l_module_name, 'l_vol_uom updated to org dafault value' );
497: WSH_DEBUG_SV.log(l_module_name, 'l_vol_uom',l_vol_uom);
498: END IF;
499: --}
500: END IF;
493: --{
494: l_vol_uom := l_vol_uom_ORG;
495: IF l_debug_on THEN
496: WSH_DEBUG_SV.logmsg(l_module_name, 'l_vol_uom updated to org dafault value' );
497: WSH_DEBUG_SV.log(l_module_name, 'l_vol_uom',l_vol_uom);
498: END IF;
499: --}
500: END IF;
501:
600: END IF;
601:
602: --
603: IF l_debug_on THEN
604: WSH_DEBUG_SV.log(l_module_name, 'gross weight', p_container_rec.gross_weight );
605: WSH_DEBUG_SV.log(l_module_name, 'volume', p_container_rec.volume );
606: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.ORG_TO_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
607: END IF;
608: --
601:
602: --
603: IF l_debug_on THEN
604: WSH_DEBUG_SV.log(l_module_name, 'gross weight', p_container_rec.gross_weight );
605: WSH_DEBUG_SV.log(l_module_name, 'volume', p_container_rec.volume );
606: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.ORG_TO_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
607: END IF;
608: --
609: p_container_rec.ship_from_location_id := WSH_UTIL_CORE.Org_To_Location(p_container_rec.organization_id,TRUE);
602: --
603: IF l_debug_on THEN
604: WSH_DEBUG_SV.log(l_module_name, 'gross weight', p_container_rec.gross_weight );
605: WSH_DEBUG_SV.log(l_module_name, 'volume', p_container_rec.volume );
606: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.ORG_TO_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
607: END IF;
608: --
609: p_container_rec.ship_from_location_id := WSH_UTIL_CORE.Org_To_Location(p_container_rec.organization_id,TRUE);
610: p_container_rec.container_type_code := NVL(p_container_rec.container_type_code,l_container_type_code);
612: p_container_rec.requested_quantity := 1;
613: p_container_rec.shipped_quantity := null;
614: --
615: IF l_debug_on THEN
616: WSH_DEBUG_SV.logmsg(l_module_name, 'ASSIGNING RQ_UOM' );
617: END IF;
618: --
619: p_container_rec.requested_quantity_uom := l_primary_uom;
620: p_container_rec.wv_frozen_flag := 'N';
634: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
635:
636: --
637: IF l_debug_on THEN
638: WSH_DEBUG_SV.pop(l_module_name);
639: END IF;
640: --
641: EXCEPTION
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
641: EXCEPTION
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
643: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
644: IF l_debug_on THEN
645: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle
646: error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
648: END IF;
649: --
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
643: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
644: IF l_debug_on THEN
645: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle
646: error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
648: END IF;
649: --
650: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
643: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
644: IF l_debug_on THEN
645: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle
646: error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
648: END IF;
649: --
650: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
650: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
652: --
653: IF l_debug_on THEN
654: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
655: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
656:
657: WHEN FND_API.G_EXC_ERROR THEN
658:
651: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
652: --
653: IF l_debug_on THEN
654: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
655: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING'); END IF;
656:
657: WHEN FND_API.G_EXC_ERROR THEN
658:
659: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
658:
659: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
660: --
661: IF l_debug_on THEN
662: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
663: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
664: END IF;
665: --
666:
659: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
660: --
661: IF l_debug_on THEN
662: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
663: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
664: END IF;
665: --
666:
667: WHEN Others THEN
669: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
670:
671: --
672: IF l_debug_on THEN
673: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
674: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
675: END IF;
676: --
677: END default_container_attr;
670:
671: --
672: IF l_debug_on THEN
673: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
674: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
675: END IF;
676: --
677: END default_container_attr;
678:
849: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
850: --
851: IF l_debug_on IS NULL
852: THEN
853: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
854: END IF;
855: --
856: IF l_debug_on THEN
857: WSH_DEBUG_SV.push(l_module_name);
853: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
854: END IF;
855: --
856: IF l_debug_on THEN
857: WSH_DEBUG_SV.push(l_module_name);
858: --
859: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
860: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
861: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
855: --
856: IF l_debug_on THEN
857: WSH_DEBUG_SV.push(l_module_name);
858: --
859: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
860: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
861: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
862: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
863: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
856: IF l_debug_on THEN
857: WSH_DEBUG_SV.push(l_module_name);
858: --
859: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
860: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
861: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
862: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
863: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
864: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
857: WSH_DEBUG_SV.push(l_module_name);
858: --
859: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
860: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
861: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
862: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
863: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
864: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
865: END IF;
858: --
859: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
860: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
861: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
862: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
863: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
864: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
865: END IF;
866: --
859: WSH_DEBUG_SV.log(l_module_name,'X_CONT_NAME',X_CONT_NAME);
860: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
861: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
862: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
863: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
864: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
865: END IF;
866: --
867: --
860: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
861: WSH_DEBUG_SV.log(l_module_name,'X_CONT_INSTANCE_ID',X_CONT_INSTANCE_ID);
862: WSH_DEBUG_SV.log(l_module_name,'P_PAR_DETAIL_ID',P_PAR_DETAIL_ID);
863: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
864: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_TYPE_CODE',P_CONTAINER_TYPE_CODE);
865: END IF;
866: --
867: --
868: IF l_debug_on THEN
865: END IF;
866: --
867: --
868: IF l_debug_on THEN
869: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CREATE_CONT_INSTANCE_MULTI ' );
870: END IF;
871: --
872:
873: l_orig_value := WSH_WMS_LPN_GRP.g_call_group_api;
879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
880: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
881: --
882: IF l_debug_on THEN
883: WSH_DEBUG_SV.pop(l_module_name);
884: END IF;
885: --
886: return;
887: END IF;
894:
895: IF c_wms_code_present = 'Y' THEN --{
896:
897: IF l_debug_on THEN
898: WSH_DEBUG_SV.logmsg(l_module_name,
899: 'calling wms_container_grp.Auto_Create_LPNs' );
900: END IF;
901:
902: l_gen_lpn_rec.container_item_id := l_inventory_item_id;
931: j := 1;
932: i := l_lpn_tbl.first;
933: WHILE i IS NOT NULL LOOP
934: IF l_debug_on THEN
935: WSH_DEBUG_SV.log(l_module_name,'container_name',
936: l_lpn_tbl(i).license_plate_number);
937: WSH_DEBUG_SV.log(l_module_name,'lpn_id',
938: l_lpn_tbl(i).lpn_id);
939: END IF;
933: WHILE i IS NOT NULL LOOP
934: IF l_debug_on THEN
935: WSH_DEBUG_SV.log(l_module_name,'container_name',
936: l_lpn_tbl(i).license_plate_number);
937: WSH_DEBUG_SV.log(l_module_name,'lpn_id',
938: l_lpn_tbl(i).lpn_id);
939: END IF;
940: l_container_info_rec.container_names(j)
941: := l_lpn_tbl(i).license_plate_number;
1001: );
1002: i := l_container_info_rec.container_names.FIRST;
1003: WHILE i IS NOT NULL LOOP
1004: IF l_debug_on THEN
1005: WSH_DEBUG_SV.log(l_module_name,'container_name', l_container_info_rec.container_names(i));
1006: END IF;
1007: l_container_info_rec.lpn_ids(i) := NULL;
1008: i := l_container_info_rec.container_names.NEXT(i);
1009: END LOOP;
1033: l_inventory_item_id;
1034:
1035: IF c_get_lpn_info%NOTFOUND THEN
1036: IF l_debug_on THEN
1037: WSH_DEBUG_SV.log(l_module_name,'Error invalid Lpn_id ',
1038: p_lpn_id);
1039: END IF;
1040: RAISE FND_API.G_EXC_ERROR;
1041: END IF;
1054: l_tare_wt,
1055: l_inventory_item_id);
1056: END IF;
1057: IF l_debug_on THEN
1058: WSH_DEBUG_SV.log(l_module_name,'l_net_weight ',l_net_weight);
1059: END IF;
1060: l_container_rec.net_weight:= l_net_weight;
1061: */
1062: l_container_info_rec.container_names(1) := l_container_rec.container_name;
1070: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1071: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1072: --
1073: IF l_debug_on THEN
1074: WSH_DEBUG_SV.pop(l_module_name);
1075: END IF;
1076: --
1077: return;
1078: END IF;
1102: -- Populate Delivery Detail id and Delivery Assignment id
1103: -- within the Loop
1104:
1105: IF l_debug_on THEN
1106: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATING DELIVERY DETAIL'||p_num_of_containers );
1107: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1108: END IF;
1109: --
1110:
1103: -- within the Loop
1104:
1105: IF l_debug_on THEN
1106: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATING DELIVERY DETAIL'||p_num_of_containers );
1107: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1108: END IF;
1109: --
1110:
1111:
1118: );
1119:
1120: --
1121: IF l_debug_on THEN
1122: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || x_return_status);
1123: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED DELIVERY DETAIL ' || l_cont_dummy_tab.count);
1124: END IF;
1125: --
1126:
1119:
1120: --
1121: IF l_debug_on THEN
1122: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || x_return_status);
1123: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED DELIVERY DETAIL ' || l_cont_dummy_tab.count);
1124: END IF;
1125: --
1126:
1127: IF x_return_status IN
1128: (WSH_UTIL_CORE.G_RET_STS_ERROR,
1129: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
1130: --
1131: IF l_debug_on THEN
1132: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR CREATING CONTAINER' || TO_CHAR ( L_CONT_INSTANCE_ID ) );
1133: END IF;
1134: --
1135: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1136: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1135: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
1136: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1137: --
1138: IF l_debug_on THEN
1139: WSH_DEBUG_SV.pop(l_module_name);
1140: END IF;
1141: --
1142: return;
1143: END IF;
1147: FETCH c_get_rowid INTO x_row_id, x_cont_name;
1148: CLOSE c_get_rowid;
1149: --
1150: IF l_debug_on THEN
1151: WSH_DEBUG_SV.log(l_module_name, 'x_row_id',x_row_id);
1152: WSH_DEBUG_SV.log(l_module_name, 'x_cont_name',x_cont_name);
1153: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED CONTAINER DELIVERY DETAIL ');
1154: END IF;
1155: --
1148: CLOSE c_get_rowid;
1149: --
1150: IF l_debug_on THEN
1151: WSH_DEBUG_SV.log(l_module_name, 'x_row_id',x_row_id);
1152: WSH_DEBUG_SV.log(l_module_name, 'x_cont_name',x_cont_name);
1153: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED CONTAINER DELIVERY DETAIL ');
1154: END IF;
1155: --
1156:
1149: --
1150: IF l_debug_on THEN
1151: WSH_DEBUG_SV.log(l_module_name, 'x_row_id',x_row_id);
1152: WSH_DEBUG_SV.log(l_module_name, 'x_cont_name',x_cont_name);
1153: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED CONTAINER DELIVERY DETAIL ');
1154: END IF;
1155: --
1156:
1157: l_del_assg_rec.delivery_id := null;
1159: l_del_assg_rec.parent_delivery_detail_id := null;
1160:
1161: --
1162: IF l_debug_on THEN
1163: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1164: --WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF CONTS'||p_num_of_containers);
1165: WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF RECORDS IN WDD '||l_cont_dummy_tab.count);
1166: END IF;
1167: --
1160:
1161: --
1162: IF l_debug_on THEN
1163: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1164: --WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF CONTS'||p_num_of_containers);
1165: WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF RECORDS IN WDD '||l_cont_dummy_tab.count);
1166: END IF;
1167: --
1168:
1161: --
1162: IF l_debug_on THEN
1163: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1164: --WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF CONTS'||p_num_of_containers);
1165: WSH_DEBUG_SV.logmsg(l_module_name,'NUMBER OF RECORDS IN WDD '||l_cont_dummy_tab.count);
1166: END IF;
1167: --
1168:
1169: WSH_DELIVERY_DETAILS_PKG.create_deliv_assignment_bulk
1174: x_return_status => x_return_status
1175: );
1176:
1177: IF l_debug_on THEN
1178: WSH_DEBUG_SV.logmsg(l_module_name,'COUNT OF WDA RECORDS'||l_assignment_dummy_tab.count);
1179: WSH_DEBUG_SV.logmsg(l_module_name,'Create Delivery Assignment, Return Status'||x_return_status);
1180: END IF;
1181:
1182: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1175: );
1176:
1177: IF l_debug_on THEN
1178: WSH_DEBUG_SV.logmsg(l_module_name,'COUNT OF WDA RECORDS'||l_assignment_dummy_tab.count);
1179: WSH_DEBUG_SV.logmsg(l_module_name,'Create Delivery Assignment, Return Status'||x_return_status);
1180: END IF;
1181:
1182: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1183: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1185: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1186: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1187: --
1188: IF l_debug_on THEN
1189: WSH_DEBUG_SV.pop(l_module_name);
1190: END IF;
1191: --
1192: return;
1193: END IF;
1207: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1208:
1209: --
1210: IF l_debug_on THEN
1211: WSH_DEBUG_SV.pop(l_module_name);
1212: END IF;
1213: --
1214: EXCEPTION
1215: WHEN FND_API.G_EXC_ERROR THEN
1220: END IF;
1221: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1222:
1223: IF l_debug_on THEN
1224: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1226: END IF;
1227:
1228: WHEN Others THEN
1221: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1222:
1223: IF l_debug_on THEN
1224: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1226: END IF;
1227:
1228: WHEN Others THEN
1229: WSH_WMS_LPN_GRP.g_call_group_api := l_orig_value;
1232: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1233:
1234: --
1235: IF l_debug_on THEN
1236: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1237: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1238: END IF;
1239: --
1240: END Create_Cont_Instance_Multi;
1233:
1234: --
1235: IF l_debug_on THEN
1236: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1237: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1238: END IF;
1239: --
1240: END Create_Cont_Instance_Multi;
1241:
1401: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1402: --
1403: IF l_debug_on IS NULL
1404: THEN
1405: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1406: END IF;
1407: --
1408: IF l_debug_on THEN
1409: WSH_DEBUG_SV.push(l_module_name);
1405: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1406: END IF;
1407: --
1408: IF l_debug_on THEN
1409: WSH_DEBUG_SV.push(l_module_name);
1410: --
1411: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ID',P_CONTAINER_ID);
1412: END IF;
1413: --
1407: --
1408: IF l_debug_on THEN
1409: WSH_DEBUG_SV.push(l_module_name);
1410: --
1411: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ID',P_CONTAINER_ID);
1412: END IF;
1413: --
1414: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1415: SAVEPOINT Delete_Cont;
1433: -- to a closed or in-transit delivery (only open deliveries allowed)
1434:
1435: --
1436: IF l_debug_on THEN
1437: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
1438: END IF;
1439: --
1440: WSH_CONTAINER_UTILITIES.Get_Delivery_Status (
1441: p_container_id,
1459:
1460:
1461: --
1462: IF l_debug_on THEN
1463: WSH_DEBUG_SV.log(l_module_name,'Delivery Status',l_del_sts);
1464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
1465: END IF;
1466: --
1467: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details (
1460:
1461: --
1462: IF l_debug_on THEN
1463: WSH_DEBUG_SV.log(l_module_name,'Delivery Status',l_del_sts);
1464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
1465: END IF;
1466: --
1467: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details (
1468: p_rowid => null,
1470: x_return_status => x_return_status);
1471:
1472: --
1473: IF l_debug_on THEN
1474: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
1475: END IF;
1476: --
1477:
1478: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1494:
1495:
1496: --
1497: IF l_debug_on THEN
1498: WSH_DEBUG_SV.pop(l_module_name);
1499: END IF;
1500: --
1501: EXCEPTION
1502:
1505: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1506: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1507: --
1508: IF l_debug_on THEN
1509: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1510: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CONTAINER');
1511: END IF;
1512: --
1513: WHEN Invalid_Delivery THEN
1506: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1507: --
1508: IF l_debug_on THEN
1509: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1510: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CONTAINER');
1511: END IF;
1512: --
1513: WHEN Invalid_Delivery THEN
1514: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DEL_STS_INVALID');
1515: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1516: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1517: --
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1520: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DELIVERY');
1521: END IF;
1522: --
1523: WHEN Invalid_Detail THEN
1516: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1517: --
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1520: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DELIVERY');
1521: END IF;
1522: --
1523: WHEN Invalid_Detail THEN
1524: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_CONT');
1525: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1526: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1527: --
1528: IF l_debug_on THEN
1529: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1530: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
1531: END IF;
1532: --
1533: WHEN Cont_Not_Empty THEN
1526: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1527: --
1528: IF l_debug_on THEN
1529: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1530: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
1531: END IF;
1532: --
1533: WHEN Cont_Not_Empty THEN
1534: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_NOT_EMPTY');
1535: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1536: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1537: --
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name,'CONT_NOT_EMPTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1540: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONT_NOT_EMPTY');
1541: END IF;
1542: --
1543: WHEN Container_Error THEN
1536: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
1537: --
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name,'CONT_NOT_EMPTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1540: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONT_NOT_EMPTY');
1541: END IF;
1542: --
1543: WHEN Container_Error THEN
1544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1545: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DELETE_ERROR');
1546: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1547: --
1548: IF l_debug_on THEN
1549: WSH_DEBUG_SV.logmsg(l_module_name,'CONTAINER_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1550: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONTAINER_ERROR');
1551: END IF;
1552: --
1553: WHEN Unassign_Del_Error THEN
1546: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1547: --
1548: IF l_debug_on THEN
1549: WSH_DEBUG_SV.logmsg(l_module_name,'CONTAINER_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1550: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CONTAINER_ERROR');
1551: END IF;
1552: --
1553: WHEN Unassign_Del_Error THEN
1554: ROLLBACK to Delete_Cont;
1557: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1558:
1559: --
1560: IF l_debug_on THEN
1561: WSH_DEBUG_SV.logmsg(l_module_name,'UNASSIGN_DEL_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1562: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UNASSIGN_DEL_ERROR');
1563: END IF;
1564: --
1565: WHEN Others THEN
1558:
1559: --
1560: IF l_debug_on THEN
1561: WSH_DEBUG_SV.logmsg(l_module_name,'UNASSIGN_DEL_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1562: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UNASSIGN_DEL_ERROR');
1563: END IF;
1564: --
1565: WHEN Others THEN
1566: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Delete_Containers',l_module_name);
1567: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1568:
1569: --
1570: IF l_debug_on THEN
1571: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1572: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1573: END IF;
1574: --
1575: END Delete_Containers;
1568:
1569: --
1570: IF l_debug_on THEN
1571: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1572: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1573: END IF;
1574: --
1575: END Delete_Containers;
1576:
1706: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1707: --
1708: IF l_debug_on IS NULL
1709: THEN
1710: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1711: END IF;
1712: --
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.push(l_module_name);
1710: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1711: END IF;
1712: --
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.push(l_module_name);
1715: --
1716: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
1717: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_CREDIT_HOLDS',P_CHECK_CREDIT_HOLDS);
1718: END IF;
1712: --
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.push(l_module_name);
1715: --
1716: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
1717: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_CREDIT_HOLDS',P_CHECK_CREDIT_HOLDS);
1718: END IF;
1719: --
1720: IF p_del_detail_tab.COUNT = 0 THEN
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.push(l_module_name);
1715: --
1716: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
1717: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_CREDIT_HOLDS',P_CHECK_CREDIT_HOLDS);
1718: END IF;
1719: --
1720: IF p_del_detail_tab.COUNT = 0 THEN
1721: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1722: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_DET_ASSG_NULL');
1723: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1724: --
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.pop(l_module_name);
1727: END IF;
1728: --
1729: return;
1730: END IF;
1733: -- to a closed or in-transit delivery (only open deliveries allowed)
1734:
1735: --
1736: IF l_debug_on THEN
1737: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
1738: END IF;
1739: --
1740: WSH_CONTAINER_UTILITIES.Get_Delivery_Status ( p_container_instance_id,
1741: l_delivery_id,
1742: l_del_status,
1743: x_return_status);
1744:
1745: IF l_debug_on THEN
1746: WSH_DEBUG_SV.log(l_module_name,'Delivery Status',l_del_status);
1747: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
1748: END IF;
1749: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1750: --
1743: x_return_status);
1744:
1745: IF l_debug_on THEN
1746: WSH_DEBUG_SV.log(l_module_name,'Delivery Status',l_del_status);
1747: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
1748: END IF;
1749: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1750: --
1751: IF l_debug_on THEN
1748: END IF;
1749: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1750: --
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.pop(l_module_name);
1753: END IF;
1754: --
1755: return;
1756: END IF;
1763: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1764: x_pack_status := 'Error';
1765: --
1766: IF l_debug_on THEN
1767: WSH_DEBUG_SV.pop(l_module_name);
1768: END IF;
1769: --
1770: return;
1771: END IF;
1778: -- container as the first line..
1779:
1780: --
1781: IF l_debug_on THEN
1782: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
1783: END IF;
1784: --
1785: wsh_container_actions.Check_Cont_Attributes (
1786: p_container_instance_id,
1788: x_return_status);
1789:
1790: --
1791: IF l_debug_on THEN
1792: WSH_DEBUG_SV.log(l_module_name,' after CHECK_CONT_ATTRIBUTES, return status is',x_return_status);
1793: END IF;
1794:
1795: --dbms_output.put_line('after check attr for ' || p_container_instance_id || ' attr flag is ' || l_attr_flag || ' and ret sts is ' || x_return_status);
1796:
1798: --
1799: -- Debug Statements
1800: --
1801: IF l_debug_on THEN
1802: WSH_DEBUG_SV.pop(l_module_name);
1803: END IF;
1804: --
1805: return;
1806: END IF;
1828: -- l_group_id_tab of type WSH_UTIL_CORE.id_tab_type;
1829:
1830: --
1831: IF l_debug_on THEN
1832: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1833: END IF;
1834: --
1835: l_action_rec.action := 'MATCH_GROUPS';
1836:
1874: CLOSE Get_Cont_Item;
1875: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
1876: --
1877: IF l_debug_on THEN
1878: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1879: END IF;
1880: --
1881: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1882: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
1885: x_return_status := l_ret_sts;
1886: x_pack_status := 'Error';
1887: --
1888: IF l_debug_on THEN
1889: WSH_DEBUG_SV.pop(l_module_name);
1890: END IF;
1891: --
1892: return;
1893: END IF;
1956: IF p_check_credit_holds
1957: THEN
1958: --
1959: IF l_debug_on THEN
1960: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_CREDIT_HOLDS',WSH_DEBUG_SV.C_PROC_LEVEL);
1961: END IF;
1962: --
1963: WSH_DETAILS_VALIDATIONS.Check_Credit_Holds (
1964: l_del_detail_id,
1970: x_return_status);
1971:
1972: --
1973: IF l_debug_on THEN
1974: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
1975: END IF;
1976: --
1977: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1978: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1991: -- success always..
1992:
1993: --
1994: IF l_debug_on THEN
1995: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.VALIDATE_HAZARD_CLASS',WSH_DEBUG_SV.C_PROC_LEVEL);
1996: END IF;
1997: --
1998: WSH_CONTAINER_UTILITIES.Validate_Hazard_Class (
1999: l_del_detail_id,
2011: -- create assignment with l_del_detail_id and p_container_instance_id;
2012:
2013: --
2014: IF l_debug_on THEN
2015: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
2016: END IF;
2017: --
2018: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_To_Cont (
2019: l_del_detail_id,
2021: x_return_status);
2022:
2023: --
2024: IF l_debug_on THEN
2025: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2026: END IF;
2027: --
2028: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2029: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2051:
2052: --dbms_output.put_line('calling update cont hierarchy with ' || p_container_instance_id);
2053: --
2054: IF l_debug_on THEN
2055: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
2056: END IF;
2057: --
2058: wsh_container_actions.Update_Cont_Hierarchy (
2059: l_del_detail_id,
2061: p_container_instance_id,
2062: x_return_status);
2063: --
2064: IF l_debug_on THEN
2065: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2066: END IF;
2067: --
2068:
2069: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2069: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2070: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
2071: --
2072: IF l_debug_on THEN
2073: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2074: END IF;
2075: --
2076: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
2077: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2121: x_return_status := l_ret_sts;
2122:
2123: --
2124: IF l_debug_on THEN
2125: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2126: WSH_DEBUG_SV.pop(l_module_name);
2127: END IF;
2128: --
2129: EXCEPTION
2122:
2123: --
2124: IF l_debug_on THEN
2125: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2126: WSH_DEBUG_SV.pop(l_module_name);
2127: END IF;
2128: --
2129: EXCEPTION
2130:
2133: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2134:
2135: --
2136: IF l_debug_on THEN
2137: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2138: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2139: END IF;
2140: --
2141: END Assign_Detail;
2134:
2135: --
2136: IF l_debug_on THEN
2137: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2138: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2139: END IF;
2140: --
2141: END Assign_Detail;
2142:
2270: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2271: --
2272: IF l_debug_on IS NULL
2273: THEN
2274: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2275: END IF;
2276: --
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.push(l_module_name);
2274: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2275: END IF;
2276: --
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.push(l_module_name);
2279: --
2280: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2281: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2282: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2276: --
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.push(l_module_name);
2279: --
2280: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2281: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2282: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2283: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
2284: END IF;
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.push(l_module_name);
2279: --
2280: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2281: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2282: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2283: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
2284: END IF;
2285: --
2278: WSH_DEBUG_SV.push(l_module_name);
2279: --
2280: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2281: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2282: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2283: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
2284: END IF;
2285: --
2286: IF p_del_detail_tab.count = 0 THEN
2279: --
2280: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2281: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2282: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
2283: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
2284: END IF;
2285: --
2286: IF p_del_detail_tab.count = 0 THEN
2287: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
2288: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2289: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2290: --
2291: IF l_debug_on THEN
2292: WSH_DEBUG_SV.pop(l_module_name);
2293: END IF;
2294: --
2295: return;
2296: END IF;
2315: END IF;
2316:
2317: --
2318: IF l_debug_on THEN
2319: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
2320: END IF;
2321: --
2322: WSH_CONTAINER_UTILITIES.Get_Delivery_Status (
2323: l_cont_instance_id,
2326: x_return_status);
2327:
2328: --
2329: IF l_debug_on THEN
2330: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2331: END IF;
2332: --
2333: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2334: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2368: END LOOP;
2369:
2370: IF l_mdc_index > 0 THEN
2371: IF l_debug_on THEN
2372: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Unpack_Details_from_Consol',WSH_DEBUG_SV.C_PROC_LEVEL);
2373: END IF;
2374: Unpack_Details_from_Consol
2375: (p_delivery_details_tab => l_mdc_details,
2376: p_caller => 'WMS_UNASSIGN_CONSOL',
2376: p_caller => 'WMS_UNASSIGN_CONSOL',
2377: x_return_status => x_return_status);
2378:
2379: IF l_debug_on THEN
2380: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2381: END IF;
2382: --
2383: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2384: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2385: l_num_warnings := l_num_warnings + 1;
2386: ELSE
2387: --
2388: IF l_debug_on THEN
2389: WSH_DEBUG_SV.pop(l_module_name);
2390: END IF;
2391: --
2392: return;
2393: END IF;
2399:
2400: END IF;
2401: --
2402: IF l_debug_on THEN
2403: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
2404: END IF;
2405: --
2406: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Multiple_Details (
2407: l_del_detail_rec,
2412: p_action_prms);
2413:
2414: --
2415: IF l_debug_on THEN
2416: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2417: END IF;
2418: --
2419: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2420: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2423: -- FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_UNASSG_ERROR');
2424: -- WSH_UTIL_CORE.Add_Message(x_return_status);
2425: --
2426: IF l_debug_on THEN
2427: WSH_DEBUG_SV.pop(l_module_name);
2428: END IF;
2429: --
2430: return;
2431: END IF;
2445: l_wms_org := wsh_util_validate.check_wms_org(l_cont_org_tab(i));
2446: -- K LPN CONV. rv
2447:
2448: IF l_debug_on THEN
2449: WSH_DEBUG_SV.log(l_module_name,'l_wms_org',l_wms_org);
2450: END IF;
2451: --dbms_output.put_line('calling last assigned line for ' || l_del_detail_rec(i));
2452:
2453: --
2451: --dbms_output.put_line('calling last assigned line for ' || l_del_detail_rec(i));
2452:
2453: --
2454: IF l_debug_on THEN
2455: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.LAST_ASSIGNED_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
2456: END IF;
2457: --
2458: wsh_container_actions.Last_Assigned_Line (
2459: l_del_detail_rec(i),
2462: x_return_status);
2463:
2464: --
2465: IF l_debug_on THEN
2466: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2467: END IF;
2468: --
2469: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
2470: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2471: ) THEN
2472: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LAST_LINE_ERROR');
2473: --
2474: IF l_debug_on THEN
2475: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2476: END IF;
2477: --
2478: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2479: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2487: --dbms_output.put_line('calling check cont attr with ' || l_cont_tab(i));
2488:
2489: --
2490: IF l_debug_on THEN
2491: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
2492: END IF;
2493: --
2494: wsh_container_actions.Check_Cont_Attributes (
2495: l_cont_tab(i),
2496: l_attr_flag,
2497: x_return_status);
2498: --
2499: IF l_debug_on THEN
2500: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2501: END IF;
2502: --
2503:
2504: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2539: x_return_status => l_return_status
2540: );
2541:
2542: IF l_debug_on THEN
2543: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2544: END IF;
2545: --
2546: --
2547: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2583: END IF;
2584:
2585: --
2586: IF l_debug_on THEN
2587: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
2588: END IF;
2589: --
2590: wsh_container_actions.Update_Cont_Hierarchy (
2591: l_cont_tab(i),
2593: l_cont_tab(i),
2594: x_return_status);
2595: --
2596: IF l_debug_on THEN
2597: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2598: END IF;
2599: --
2600:
2601: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2601: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2602: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
2603: --
2604: IF l_debug_on THEN
2605: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2606: END IF;
2607: --
2608: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i));
2609: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2641:
2642: IF l_cont_flag = 'N' THEN --{
2643: --
2644: IF l_debug_on THEN
2645: WSH_DEBUG_SV.log(l_module_name,'l_cont_flag',l_cont_flag);
2646: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',l_del_detail_rec(i));
2647: END IF;
2648: --
2649: UPDATE wsh_delivery_details --bug 5165197
2642: IF l_cont_flag = 'N' THEN --{
2643: --
2644: IF l_debug_on THEN
2645: WSH_DEBUG_SV.log(l_module_name,'l_cont_flag',l_cont_flag);
2646: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',l_del_detail_rec(i));
2647: END IF;
2648: --
2649: UPDATE wsh_delivery_details --bug 5165197
2650: SET master_serial_number = NULL
2653: ELSIF l_cont_flag = 'Y' THEN --}{
2654:
2655: --
2656: IF l_debug_on THEN
2657: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
2658: END IF;
2659: --
2660: WSH_CONTAINER_UTILITIES.Get_Delivery_Status (
2661: l_del_detail_rec(i),
2663: l_del_status,
2664: x_return_status);
2665: --
2666: IF l_debug_on THEN
2667: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2668: END IF;
2669: --
2670:
2671: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2693: -- Last_Assigned_Line and Check_Cont_Attributes will be called only if the container belongs to a delivery.
2694: IF (nvl(l_delivery_id,-99) = -99) THEN --{ Delivery Check
2695: --
2696: IF l_debug_on THEN
2697: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.LAST_ASSIGNED_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
2698: END IF;
2699: --
2700: wsh_container_actions.Last_Assigned_Line (
2701: NULL,
2703: l_last_line_flag,
2704: x_return_status);
2705: --
2706: IF l_debug_on THEN
2707: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2708: END IF;
2709: --
2710:
2711: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2711: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2712: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LAST_LINE_ERROR');
2713: --
2714: IF l_debug_on THEN
2715: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2716: END IF;
2717: --
2718: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2719: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2728: --dbms_output.put_line('calling check cont attr with ' || l_del_detail_rec(i));
2729:
2730: --
2731: IF l_debug_on THEN
2732: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
2733: END IF;
2734: --
2735: wsh_container_actions.Check_Cont_Attributes (
2736: l_del_detail_rec(i),
2737: l_attr_flag,
2738: x_return_status);
2739: --
2740: IF l_debug_on THEN
2741: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2742: END IF;
2743: --
2744:
2745: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2775: x_return_status => l_return_status
2776: );
2777:
2778: IF l_debug_on THEN
2779: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2780: END IF;
2781: --
2782: --
2783: --
2820: END IF;
2821:
2822: --
2823: IF l_debug_on THEN
2824: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
2825: END IF;
2826: --
2827: wsh_container_actions.Update_Cont_Hierarchy (
2828: l_del_detail_rec(i),
2830: l_del_detail_rec(i),
2831: x_return_status);
2832: --
2833: IF l_debug_on THEN
2834: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2835: END IF;
2836: --
2837:
2838: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2838: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
2839: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
2840: --
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2843: END IF;
2844: --
2845: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2846: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2876: x_return_status => l_return_status
2877: );
2878:
2879: IF l_debug_on THEN
2880: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2881: END IF;
2882: --
2883: --
2884: --
2903: IF SQL%ROWCOUNT > 1 OR SQL%NOTFOUND THEN
2904: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CHILD_UPD_ERROR');
2905: --
2906: IF l_debug_on THEN
2907: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2908: END IF;
2909: --
2910: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2911: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2916: END IF;
2917:
2918: --
2919: IF l_debug_on THEN
2920: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_MASTER_SERIAL_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
2921: END IF;
2922: --
2923: WSH_CONTAINER_UTILITIES.Get_Master_Serial_Number (
2924: l_del_detail_rec(i),
2925: l_master_serial_number,
2926: x_return_status);
2927: --
2928: IF l_debug_on THEN
2929: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2930: END IF;
2931: --
2932:
2933: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2933: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2934: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GET_SRL_ERROR');
2935: --
2936: IF l_debug_on THEN
2937: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2938: END IF;
2939: --
2940: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2941: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
2946: END IF;
2947:
2948: --
2949: IF l_debug_on THEN
2950: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
2951: END IF;
2952: --
2953: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
2954: l_del_detail_rec(i),
2956: l_master_serial_number,
2957: x_return_status);
2958: --
2959: IF l_debug_on THEN
2960: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
2961: END IF;
2962: --
2963:
2964: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2963:
2964: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2965: --
2966: IF l_debug_on THEN
2967: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2968: END IF;
2969: --
2970: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_del_detail_rec(i));
2971: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
2973: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2974: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2975: --
2976: IF l_debug_on THEN
2977: WSH_DEBUG_SV.pop(l_module_name);
2978: END IF;
2979: --
2980: return;
2981: END IF;
3014:
3015: IF l_fill_status = 'O' THEN
3016:
3017: IF l_debug_on THEN
3018: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3019: END IF;
3020: --
3021: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3022: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
3026: x_pack_status := 'Overpacked';
3027:
3028: ELSIF l_fill_status = 'U' THEN
3029: IF l_debug_on THEN
3030: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3031: END IF;
3032: --
3033: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3034: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
3045:
3046: --BUG#12904248
3047: FOR i IN 1..l_cont_tab.count LOOP
3048: IF l_debug_on THEN
3049: WSH_DEBUG_SV.log(l_module_name,'l_cont_tab.count',l_cont_tab(i));
3050: END IF;
3051:
3052: Get_Deliver_To_Location(
3053: p_container_id => l_cont_tab(i),
3070: END IF;
3071:
3072: --
3073: IF l_debug_on THEN
3074: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3075: WSH_DEBUG_SV.pop(l_module_name);
3076: END IF;
3077: --
3078: EXCEPTION
3071:
3072: --
3073: IF l_debug_on THEN
3074: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3075: WSH_DEBUG_SV.pop(l_module_name);
3076: END IF;
3077: --
3078: EXCEPTION
3079:
3082: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3083:
3084: --
3085: IF l_debug_on THEN
3086: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3087: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3088: END IF;
3089: --
3090: END Unassign_Detail;
3083:
3084: --
3085: IF l_debug_on THEN
3086: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3087: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3088: END IF;
3089: --
3090: END Unassign_Detail;
3091:
3117: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3118: --
3119: IF l_debug_on IS NULL
3120: THEN
3121: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3122: END IF;
3123: --
3124: IF l_debug_on THEN
3125: WSH_DEBUG_SV.push(l_module_name);
3121: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3122: END IF;
3123: --
3124: IF l_debug_on THEN
3125: WSH_DEBUG_SV.push(l_module_name);
3126: --
3127: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3128: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3129: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3123: --
3124: IF l_debug_on THEN
3125: WSH_DEBUG_SV.push(l_module_name);
3126: --
3127: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3128: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3129: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3130: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
3131: END IF;
3124: IF l_debug_on THEN
3125: WSH_DEBUG_SV.push(l_module_name);
3126: --
3127: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3128: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3129: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3130: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
3131: END IF;
3132: --
3125: WSH_DEBUG_SV.push(l_module_name);
3126: --
3127: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3128: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3129: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3130: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
3131: END IF;
3132: --
3133: --
3126: --
3127: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3128: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3129: WSH_DEBUG_SV.log(l_module_name,'P_CONT_UNASSIGN',P_CONT_UNASSIGN);
3130: WSH_DEBUG_SV.log(l_module_name,'P_DEL_UNASSIGN',P_DEL_UNASSIGN);
3131: END IF;
3132: --
3133: --
3134: IF l_debug_on THEN
3131: END IF;
3132: --
3133: --
3134: IF l_debug_on THEN
3135: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.Unassign_Detail',WSH_DEBUG_SV.C_PROC_LEVEL);
3136: END IF;
3137: --
3138: Unassign_Detail
3139: (
3147: l_action_prms
3148: );
3149: --
3150: IF l_debug_on THEN
3151: WSH_DEBUG_SV.pop(l_module_name);
3152: END IF;
3153: --
3154: EXCEPTION
3155:
3157: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Unassign_Detail',l_module_name);
3158: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3159: --
3160: IF l_debug_on THEN
3161: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3162: END IF;
3163: --
3164: END Unassign_Detail;
3165: /*
3228: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3229: --
3230: IF l_debug_on IS NULL
3231: THEN
3232: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3233: END IF;
3234: --
3235: IF l_debug_on THEN
3236: WSH_DEBUG_SV.push(l_module_name);
3232: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3233: END IF;
3234: --
3235: IF l_debug_on THEN
3236: WSH_DEBUG_SV.push(l_module_name);
3237: --
3238: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3239: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3240: END IF;
3234: --
3235: IF l_debug_on THEN
3236: WSH_DEBUG_SV.push(l_module_name);
3237: --
3238: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3239: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3240: END IF;
3241: --
3242: OPEN Get_Cont_Org (p_container_instance_id);
3235: IF l_debug_on THEN
3236: WSH_DEBUG_SV.push(l_module_name);
3237: --
3238: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3239: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3240: END IF;
3241: --
3242: OPEN Get_Cont_Org (p_container_instance_id);
3243:
3246: IF Get_Cont_Org%NOTFOUND THEN
3247: CLOSE Get_Cont_Org;
3248: --
3249: IF l_debug_on THEN
3250: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3251: END IF;
3252: --
3253: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3254: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3256: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3257: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3258: --
3259: IF l_debug_on THEN
3260: WSH_DEBUG_SV.pop(l_module_name);
3261: END IF;
3262: --
3263: return;
3264: END IF;
3273: IF Get_Del_Org%NOTFOUND THEN
3274: CLOSE Get_Del_Org;
3275: --
3276: IF l_debug_on THEN
3277: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3278: END IF;
3279: --
3280: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id);
3281: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DEL');
3283: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3284: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3285: --
3286: IF l_debug_on THEN
3287: WSH_DEBUG_SV.pop(l_module_name);
3288: END IF;
3289: --
3290: return;
3291: END IF;
3297: IF l_cont_org = l_del_org THEN
3298:
3299: --
3300: IF l_debug_on THEN
3301: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_DELIVERY_ASSIGNMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
3302: END IF;
3303: --
3304: wsh_container_actions.Create_Delivery_Assignment(
3305: p_container_instance_id,
3310: );
3311:
3312: --
3313: IF l_debug_on THEN
3314: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3315: END IF;
3316: --
3317:
3318: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3317:
3318: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3319: --
3320: IF l_debug_on THEN
3321: WSH_DEBUG_SV.pop(l_module_name);
3322: END IF;
3323: --
3324: return;
3325: END IF;
3325: END IF;
3326: ELSE
3327: --
3328: IF l_debug_on THEN
3329: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3330: END IF;
3331: --
3332: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3333: --
3331: --
3332: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
3333: --
3334: IF l_debug_on THEN
3335: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3336: END IF;
3337: --
3338: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id);
3339: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
3342: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3343: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3344: --
3345: IF l_debug_on THEN
3346: WSH_DEBUG_SV.pop(l_module_name);
3347: END IF;
3348: --
3349: return;
3350: END IF;
3353: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3354:
3355: --
3356: IF l_debug_on THEN
3357: WSH_DEBUG_SV.pop(l_module_name);
3358: END IF;
3359: --
3360: EXCEPTION
3361:
3364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3365:
3366: --
3367: IF l_debug_on THEN
3368: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3369: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3370: END IF;
3371: --
3372: END Assign_To_Delivery;
3365:
3366: --
3367: IF l_debug_on THEN
3368: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3369: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3370: END IF;
3371: --
3372: END Assign_To_Delivery;
3373:
3396: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3397: --
3398: IF l_debug_on IS NULL
3399: THEN
3400: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3401: END IF;
3402: --
3403: IF l_debug_on THEN
3404: WSH_DEBUG_SV.push(l_module_name);
3400: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3401: END IF;
3402: --
3403: IF l_debug_on THEN
3404: WSH_DEBUG_SV.push(l_module_name);
3405: --
3406: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3407: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3408: END IF;
3402: --
3403: IF l_debug_on THEN
3404: WSH_DEBUG_SV.push(l_module_name);
3405: --
3406: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3407: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3408: END IF;
3409: --
3410: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3403: IF l_debug_on THEN
3404: WSH_DEBUG_SV.push(l_module_name);
3405: --
3406: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3407: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3408: END IF;
3409: --
3410: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3411: --
3423: x_return_status => x_return_status
3424: );
3425: --
3426: IF l_debug_on THEN
3427: WSH_DEBUG_SV.pop(l_module_name);
3428: END IF;
3429: --
3430: EXCEPTION
3431: WHEN others THEN
3432: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3433: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Assign_To_Delivery',l_module_name);
3434: --
3435: IF l_debug_on THEN
3436: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3437: END IF;
3438: END Assign_To_Delivery;
3439:
3440:
3474: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3475: --
3476: IF l_debug_on IS NULL
3477: THEN
3478: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3479: END IF;
3480: --
3481: IF l_debug_on THEN
3482: WSH_DEBUG_SV.push(l_module_name);
3478: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3479: END IF;
3480: --
3481: IF l_debug_on THEN
3482: WSH_DEBUG_SV.push(l_module_name);
3483: --
3484: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3485: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3486: END IF;
3480: --
3481: IF l_debug_on THEN
3482: WSH_DEBUG_SV.push(l_module_name);
3483: --
3484: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3485: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3486: END IF;
3487: --
3488: --
3481: IF l_debug_on THEN
3482: WSH_DEBUG_SV.push(l_module_name);
3483: --
3484: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3485: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3486: END IF;
3487: --
3488: --
3489: IF l_debug_on THEN
3486: END IF;
3487: --
3488: --
3489: IF l_debug_on THEN
3490: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
3491: END IF;
3492: --
3493: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_to_Delivery(
3494: P_DETAIL_ID =>p_container_instance_id ,
3498: x_dlvy_freight_Terms_code => x_dlvy_freight_Terms_code
3499: );
3500:
3501: IF l_debug_on THEN
3502: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3503: END IF;
3504: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3505: --set proper error message
3506: --
3504: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3505: --set proper error message
3506: --
3507: IF l_debug_on THEN
3508: WSH_DEBUG_SV.pop(l_module_name);
3509: END IF;
3510: --
3511: return;
3512: END IF;
3513: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3514:
3515: --
3516: IF l_debug_on THEN
3517: WSH_DEBUG_SV.pop(l_module_name);
3518: END IF;
3519: --
3520: EXCEPTION
3521: WHEN Others THEN
3522: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3524: --
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3527: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3528: END IF;
3529: --
3530: END Create_Delivery_Assignment;
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3524: --
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3527: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3528: END IF;
3529: --
3530: END Create_Delivery_Assignment;
3531:
3554: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3555: --
3556: IF l_debug_on IS NULL
3557: THEN
3558: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3559: END IF;
3560: --
3561: IF l_debug_on THEN
3562: WSH_DEBUG_SV.push(l_module_name);
3558: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3559: END IF;
3560: --
3561: IF l_debug_on THEN
3562: WSH_DEBUG_SV.push(l_module_name);
3563: --
3564: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3566: END IF;
3560: --
3561: IF l_debug_on THEN
3562: WSH_DEBUG_SV.push(l_module_name);
3563: --
3564: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3566: END IF;
3567: --
3568: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3561: IF l_debug_on THEN
3562: WSH_DEBUG_SV.push(l_module_name);
3563: --
3564: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3566: END IF;
3567: --
3568: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3569: --
3581: x_dlvy_freight_Terms_code => l_dlvy_freight_Terms_code
3582: );
3583: --
3584: IF l_debug_on THEN
3585: WSH_DEBUG_SV.pop(l_module_name);
3586: END IF;
3587: --
3588: EXCEPTION
3589: WHEN others THEN
3590: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3591: wsh_util_core.default_handler('WSH_CONTAINER_ACTIONS.Create_Delivery_Assignment',l_module_name);
3592: --
3593: IF l_debug_on THEN
3594: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3595: END IF;
3596: END Create_Delivery_Assignment;
3597:
3598:
3701: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3702: --
3703: IF l_debug_on IS NULL
3704: THEN
3705: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3706: END IF;
3707: --
3708: IF l_debug_on THEN
3709: WSH_DEBUG_SV.push(l_module_name);
3705: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3706: END IF;
3707: --
3708: IF l_debug_on THEN
3709: WSH_DEBUG_SV.push(l_module_name);
3710: --
3711: WSH_DEBUG_SV.log(l_module_name,'P_DET_CONT_INST_ID',P_DET_CONT_INST_ID);
3712: WSH_DEBUG_SV.log(l_module_name,'P_PAR_CONT_INST_ID',P_PAR_CONT_INST_ID);
3713: END IF;
3707: --
3708: IF l_debug_on THEN
3709: WSH_DEBUG_SV.push(l_module_name);
3710: --
3711: WSH_DEBUG_SV.log(l_module_name,'P_DET_CONT_INST_ID',P_DET_CONT_INST_ID);
3712: WSH_DEBUG_SV.log(l_module_name,'P_PAR_CONT_INST_ID',P_PAR_CONT_INST_ID);
3713: END IF;
3714: --
3715: OPEN Get_Cont_Org (p_det_cont_inst_id);
3708: IF l_debug_on THEN
3709: WSH_DEBUG_SV.push(l_module_name);
3710: --
3711: WSH_DEBUG_SV.log(l_module_name,'P_DET_CONT_INST_ID',P_DET_CONT_INST_ID);
3712: WSH_DEBUG_SV.log(l_module_name,'P_PAR_CONT_INST_ID',P_PAR_CONT_INST_ID);
3713: END IF;
3714: --
3715: OPEN Get_Cont_Org (p_det_cont_inst_id);
3716:
3719: IF Get_Cont_Org%NOTFOUND THEN
3720: CLOSE Get_Cont_Org;
3721: --
3722: IF l_debug_on THEN
3723: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3724: END IF;
3725: --
3726: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
3727: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3729: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3730: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3731: --
3732: IF l_debug_on THEN
3733: WSH_DEBUG_SV.pop(l_module_name);
3734: END IF;
3735: --
3736: return;
3737: END IF;
3747: IF Get_Cont_Org%NOTFOUND THEN
3748: CLOSE Get_Cont_Org;
3749: --
3750: IF l_debug_on THEN
3751: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3752: END IF;
3753: --
3754: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3755: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
3757: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3758: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3759: --
3760: IF l_debug_on THEN
3761: WSH_DEBUG_SV.pop(l_module_name);
3762: END IF;
3763: --
3764: return;
3765: END IF;
3770:
3771: IF l_det_cont_org <> l_par_cont_org THEN
3772: --
3773: IF l_debug_on THEN
3774: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3775: END IF;
3776: --
3777: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
3778: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
3778: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
3779: FND_MESSAGE.SET_TOKEN('ENTITY1',l_cont_name);
3780: --
3781: IF l_debug_on THEN
3782: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3783: END IF;
3784: --
3785: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3786: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3788: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3789: --
3790: IF l_debug_on THEN
3791: WSH_DEBUG_SV.pop(l_module_name);
3792: END IF;
3793: --
3794: return;
3795: END IF;
3798: -- to a closed or in-transit delivery (only open deliveries allowed)
3799:
3800: --
3801: IF l_debug_on THEN
3802: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
3803: END IF;
3804: --
3805: WSH_CONTAINER_UTILITIES.Get_Delivery_Status ( p_par_cont_inst_id,
3806: l_par_del_id,
3807: l_del_status,
3808: x_return_status);
3809:
3810: IF l_debug_on THEN
3811: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3812: END IF;
3813: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3814: --
3815: IF l_debug_on THEN
3812: END IF;
3813: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3814: --
3815: IF l_debug_on THEN
3816: WSH_DEBUG_SV.pop(l_module_name);
3817: END IF;
3818: --
3819: return;
3820: END IF;
3827: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3828: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3829: --
3830: IF l_debug_on THEN
3831: WSH_DEBUG_SV.pop(l_module_name);
3832: END IF;
3833: --
3834: return;
3835: END IF;
3839: -- to a closed or in-transit delivery (only open deliveries allowed)
3840:
3841: --
3842: IF l_debug_on THEN
3843: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_DELIVERY_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
3844: END IF;
3845: --
3846: WSH_CONTAINER_UTILITIES.Get_Delivery_Status ( p_det_cont_inst_id,
3847: l_det_del_id,
3848: l_del_status,
3849: x_return_status);
3850:
3851: IF l_debug_on THEN
3852: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3853: END IF;
3854: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3855: --
3856: IF l_debug_on THEN
3853: END IF;
3854: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3855: --
3856: IF l_debug_on THEN
3857: WSH_DEBUG_SV.pop(l_module_name);
3858: END IF;
3859: --
3860: return;
3861: END IF;
3867: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3868: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3869: --
3870: IF l_debug_on THEN
3871: WSH_DEBUG_SV.pop(l_module_name);
3872: END IF;
3873: --
3874: return;
3875: END IF;
3875: END IF;
3876: END IF;
3877:
3878: IF l_debug_on THEN
3879: WSH_DEBUG_SV.log(l_module_name,'l_det_del_id',l_det_del_id);
3880: WSH_DEBUG_SV.log(l_module_name,'l_par_del_id',l_par_del_id);
3881: END IF;
3882:
3883: IF ((nvl(l_det_del_id,-99) <> -99) AND (nvl(l_par_del_id,-99) <> -99)) THEN
3876: END IF;
3877:
3878: IF l_debug_on THEN
3879: WSH_DEBUG_SV.log(l_module_name,'l_det_del_id',l_det_del_id);
3880: WSH_DEBUG_SV.log(l_module_name,'l_par_del_id',l_par_del_id);
3881: END IF;
3882:
3883: IF ((nvl(l_det_del_id,-99) <> -99) AND (nvl(l_par_del_id,-99) <> -99)) THEN
3884:
3888: -- R12: MDC: For WMS we can assign containers to parent containers on different deliveries.
3889: IF wsh_util_validate.check_wms_org(l_par_cont_org) = 'Y' THEN
3890:
3891: IF l_debug_on THEN
3892: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Assign_Container_to_Consol',WSH_DEBUG_SV.C_PROC_LEVEL);
3893: END IF;
3894: Assign_Container_to_Consol(
3895: p_child_container_id => p_det_cont_inst_id,
3896: p_parent_container_id => p_par_cont_inst_id,
3897: p_caller => 'WMS_PACK_CONSOL',
3898: x_return_status => x_return_status);
3899:
3900: IF l_debug_on THEN
3901: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
3902: END IF;
3903:
3904: return;
3905: ELSE
3906:
3907:
3908: --
3909: IF l_debug_on THEN
3910: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3911: END IF;
3912: --
3913: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
3914: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_DEL_DIFF');
3914: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_DEL_DIFF');
3915: FND_MESSAGE.SET_TOKEN('ENTITY1',l_cont_name);
3916: --
3917: IF l_debug_on THEN
3918: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3919: END IF;
3920: --
3921: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3922: FND_MESSAGE.SET_TOKEN('ENTITY2',l_cont_name);
3923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3924: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3925: --
3926: IF l_debug_on THEN
3927: WSH_DEBUG_SV.pop(l_module_name);
3928: END IF;
3929: --
3930: return;
3931:
3935: END IF;
3936:
3937: --
3938: IF l_debug_on THEN
3939: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_MASTER_CONT_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
3940: END IF;
3941: --
3942: WSH_CONTAINER_UTILITIES.Get_Master_Cont_Serial (
3943: p_par_cont_inst_id,
3945: l_master_cont_name,
3946: l_master_serial_number,
3947: x_return_status);
3948: IF l_debug_on THEN
3949: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3950: END IF;
3951:
3952: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3953: --dbms_output.put_line('error while getting master serial for parent ' || p_par_cont_inst_id);
3953: --dbms_output.put_line('error while getting master serial for parent ' || p_par_cont_inst_id);
3954: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GET_MASTER_ERROR');
3955: --
3956: IF l_debug_on THEN
3957: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3958: END IF;
3959: --
3960: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_par_cont_inst_id);
3961: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3968: END IF;
3969:
3970: --
3971: IF l_debug_on THEN
3972: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
3973: END IF;
3974: --
3975: wsh_container_actions.Check_Cont_Attributes (
3976: p_det_cont_inst_id,
3977: l_det_attr_flag,
3978: x_return_status);
3979:
3980: IF l_debug_on THEN
3981: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
3982: END IF;
3983:
3984: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3985: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
3985: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
3986: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3987: --
3988: IF l_debug_on THEN
3989: WSH_DEBUG_SV.pop(l_module_name);
3990: END IF;
3991: --
3992: return;
3993: END IF;
3994:
3995:
3996: --
3997: IF l_debug_on THEN
3998: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
3999: END IF;
4000: --
4001: wsh_container_actions.Check_Cont_Attributes (
4002: p_par_cont_inst_id,
4003: l_par_attr_flag,
4004: x_return_status);
4005:
4006: IF l_debug_on THEN
4007: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4008: END IF;
4009:
4010: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4011: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
4011: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ATTR_ERROR');
4012: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4013: --
4014: IF l_debug_on THEN
4015: WSH_DEBUG_SV.pop(l_module_name);
4016: END IF;
4017: --
4018: return;
4019: END IF;
4023: --dbms_output.put_line('creating assignment of cont ' || p_det_cont_inst_id || ' to container ' || p_par_cont_inst_id);
4024: -- just create assignment of child container to parent.
4025: --
4026: IF l_debug_on THEN
4027: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
4028: END IF;
4029: --
4030: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Cont_To_Cont (
4031: p_det_cont_inst_id,
4032: p_par_cont_inst_id,
4033: x_return_status);
4034:
4035: IF l_debug_on THEN
4036: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4037: END IF;
4038:
4039: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4040: --
4038:
4039: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4040: --
4041: IF l_debug_on THEN
4042: WSH_DEBUG_SV.pop(l_module_name);
4043: END IF;
4044: --
4045: return;
4046: END IF;
4049:
4050:
4051: --
4052: IF l_debug_on THEN
4053: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4054: END IF;
4055: --
4056: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
4057: p_det_cont_inst_id,
4059: l_master_serial_number,
4060: x_return_status);
4061:
4062: IF l_debug_on THEN
4063: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4064: END IF;
4065:
4066: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4067: --
4065:
4066: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4067: --
4068: IF l_debug_on THEN
4069: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4070: END IF;
4071: --
4072: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4073: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4075: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4076: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4077: --
4078: IF l_debug_on THEN
4079: WSH_DEBUG_SV.pop(l_module_name);
4080: END IF;
4081: --
4082: return;
4083: END IF;
4088:
4089: -- just create assignment of child container to parent.
4090: --
4091: IF l_debug_on THEN
4092: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
4093: END IF;
4094: --
4095: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Cont_To_Cont (
4096: p_det_cont_inst_id,
4097: p_par_cont_inst_id,
4098: x_return_status);
4099:
4100: IF l_debug_on THEN
4101: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4102: END IF;
4103: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4104: --
4105: IF l_debug_on THEN
4102: END IF;
4103: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4104: --
4105: IF l_debug_on THEN
4106: WSH_DEBUG_SV.pop(l_module_name);
4107: END IF;
4108: --
4109: return;
4110: END IF;
4112: --
4113: -- Debug Statements
4114: --
4115: IF l_debug_on THEN
4116: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
4117: END IF;
4118: --
4119: wsh_container_actions.Update_Cont_Hierarchy (
4120: p_par_cont_inst_id,
4121: l_det_del_id,
4122: p_det_cont_inst_id,
4123: x_return_status );
4124: IF l_debug_on THEN
4125: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4126: END IF;
4127:
4128: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4129: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GRP_ATTR_WARN');
4128: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4129: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GRP_ATTR_WARN');
4130: --
4131: IF l_debug_on THEN
4132: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4133: END IF;
4134: --
4135: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4136: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4139: END IF;
4140:
4141: --
4142: IF l_debug_on THEN
4143: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4144: END IF;
4145: --
4146: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
4147: p_det_cont_inst_id,
4148: l_master_cont_id,
4149: l_master_serial_number,
4150: x_return_status);
4151: IF l_debug_on THEN
4152: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4153: END IF;
4154:
4155: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4156: --
4154:
4155: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4156: --
4157: IF l_debug_on THEN
4158: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4159: END IF;
4160: --
4161: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4162: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4164: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4165: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4166: --
4167: IF l_debug_on THEN
4168: WSH_DEBUG_SV.pop(l_module_name);
4169: END IF;
4170: --
4171: return;
4172: END IF;
4177:
4178: -- just create assignment of child container to parent.
4179: --
4180: IF l_debug_on THEN
4181: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
4182: END IF;
4183: --
4184: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Cont_To_Cont (
4185: p_det_cont_inst_id,
4186: p_par_cont_inst_id,
4187: x_return_status);
4188:
4189: IF l_debug_on THEN
4190: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4191: END IF;
4192: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4193: --dbms_output.put_line('cont not assigned');
4194: --
4192: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4193: --dbms_output.put_line('cont not assigned');
4194: --
4195: IF l_debug_on THEN
4196: WSH_DEBUG_SV.pop(l_module_name);
4197: END IF;
4198: --
4199: return;
4200: END IF;
4200: END IF;
4201:
4202: --
4203: IF l_debug_on THEN
4204: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
4205: END IF;
4206: --
4207: wsh_container_actions.Update_Cont_Hierarchy (
4208: p_det_cont_inst_id,
4210: p_par_cont_inst_id,
4211: x_return_status );
4212:
4213: IF l_debug_on THEN
4214: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4215: END IF;
4216: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4217: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GRP_ATTR_WARN');
4218: --
4216: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4217: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_GRP_ATTR_WARN');
4218: --
4219: IF l_debug_on THEN
4220: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4221: END IF;
4222: --
4223: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4224: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4227: END IF;
4228:
4229: --
4230: IF l_debug_on THEN
4231: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4232: END IF;
4233: --
4234: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
4235: p_det_cont_inst_id,
4236: l_master_cont_id,
4237: l_master_serial_number,
4238: x_return_status);
4239: IF l_debug_on THEN
4240: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4241: END IF;
4242:
4243: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4244: --
4242:
4243: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4244: --
4245: IF l_debug_on THEN
4246: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4247: END IF;
4248: --
4249: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4250: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4252: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4253: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4254: --
4255: IF l_debug_on THEN
4256: WSH_DEBUG_SV.pop(l_module_name);
4257: END IF;
4258: --
4259: return;
4260: END IF;
4272: l_attr_tab(2).entity_type := 'DELIVERY_DETAIL';
4273:
4274: --
4275: IF l_debug_on THEN
4276: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
4277: END IF;
4278:
4279: l_action_rec.action := 'MATCH_GROUPS';
4280: l_action_rec.check_single_grp := 'Y';
4288: x_out_rec => l_out_rec,
4289: x_return_status => x_return_status);
4290:
4291: IF l_debug_on THEN
4292: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4293: END IF;
4294: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
4295: OR NVL(l_out_rec.single_group, 'N') = 'N') THEN
4296: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
4296: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
4297: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4298: --
4299: IF l_debug_on THEN
4300: WSH_DEBUG_SV.pop(l_module_name);
4301: END IF;
4302: --
4303: return;
4304: END IF;
4307:
4308: -- create assignment between child and parent container
4309: --
4310: IF l_debug_on THEN
4311: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
4312: END IF;
4313: --
4314: WSH_DELIVERY_DETAILS_ACTIONS.Assign_Cont_To_Cont (
4315: p_det_cont_inst_id,
4316: p_par_cont_inst_id,
4317: x_return_status);
4318:
4319: IF l_debug_on THEN
4320: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4321: END IF;
4322: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4323: l_ret_sts := x_return_status;
4324: --
4322: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4323: l_ret_sts := x_return_status;
4324: --
4325: IF l_debug_on THEN
4326: WSH_DEBUG_SV.pop(l_module_name);
4327: END IF;
4328: --
4329: return;
4330: END IF;
4331:
4332: -- call update cont attributes to update grouping attr.
4333: --
4334: IF l_debug_on THEN
4335: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.UPDATE_CHILD_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4336: END IF;
4337: --
4338: WSH_CONTAINER_UTILITIES.Update_Child_Containers (
4339: p_det_cont_inst_id,
4340: l_master_cont_id,
4341: l_master_serial_number,
4342: x_return_status);
4343: IF l_debug_on THEN
4344: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4345: END IF;
4346:
4347: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4348: --
4346:
4347: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4348: --
4349: IF l_debug_on THEN
4350: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4351: END IF;
4352: --
4353: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_det_cont_inst_id);
4354: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_CHILD_UPD_ERROR');
4356: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4357: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4358: --
4359: IF l_debug_on THEN
4360: WSH_DEBUG_SV.pop(l_module_name);
4361: END IF;
4362: --
4363: return;
4364: END IF;
4383: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4384:
4385: --
4386: IF l_debug_on THEN
4387: WSH_DEBUG_SV.pop(l_module_name);
4388: END IF;
4389: --
4390: EXCEPTION
4391:
4394: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4395:
4396: --
4397: IF l_debug_on THEN
4398: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4399: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4400: END IF;
4401: --
4402: END Assign_To_Container;
4395:
4396: --
4397: IF l_debug_on THEN
4398: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4399: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4400: END IF;
4401: --
4402: END Assign_To_Container;
4403:
4463: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4464: --
4465: IF l_debug_on IS NULL
4466: THEN
4467: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4468: END IF;
4469: --
4470: IF l_debug_on THEN
4471: WSH_DEBUG_SV.push(l_module_name);
4467: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4468: END IF;
4469: --
4470: IF l_debug_on THEN
4471: WSH_DEBUG_SV.push(l_module_name);
4472: --
4473: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ITEM_ID',P_CONTAINER_ITEM_ID);
4474: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4475: WSH_DEBUG_SV.log(l_module_name,'P_W_V_BOTH',P_W_V_BOTH);
4469: --
4470: IF l_debug_on THEN
4471: WSH_DEBUG_SV.push(l_module_name);
4472: --
4473: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ITEM_ID',P_CONTAINER_ITEM_ID);
4474: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4475: WSH_DEBUG_SV.log(l_module_name,'P_W_V_BOTH',P_W_V_BOTH);
4476: END IF;
4477: --
4470: IF l_debug_on THEN
4471: WSH_DEBUG_SV.push(l_module_name);
4472: --
4473: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ITEM_ID',P_CONTAINER_ITEM_ID);
4474: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4475: WSH_DEBUG_SV.log(l_module_name,'P_W_V_BOTH',P_W_V_BOTH);
4476: END IF;
4477: --
4478: x_error_cnt := 0;
4471: WSH_DEBUG_SV.push(l_module_name);
4472: --
4473: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ITEM_ID',P_CONTAINER_ITEM_ID);
4474: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4475: WSH_DEBUG_SV.log(l_module_name,'P_W_V_BOTH',P_W_V_BOTH);
4476: END IF;
4477: --
4478: x_error_cnt := 0;
4479: x_return_status := C_SUCCESS_STATUS;
4485: NULL;
4486: ELSE
4487: --
4488: IF l_debug_on THEN
4489: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4490: END IF;
4491: --
4492: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4493: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4519:
4520: IF Get_Cont_Msi%NOTFOUND THEN
4521: --
4522: IF l_debug_on THEN
4523: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4524: END IF;
4525: --
4526: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_container_item_id, p_organization_id);
4527: --dbms_output.put_line('Container '||p_container_item_id||' not found in Org '||p_organization_id);
4577: --dbms_output.put_line('WSH_CONTAINER_ACTIONS.Get_Cont_Load_Vol_info returned '||x_return_status||' with error count '||x_error_cnt);
4578:
4579: --
4580: IF l_debug_on THEN
4581: WSH_DEBUG_SV.log(l_module_name,'MAX LOAD',x_max_load);
4582: WSH_DEBUG_SV.log(l_module_name,'MAX VOLUME',x_max_vol);
4583: WSH_DEBUG_SV.pop(l_module_name);
4584: END IF;
4585: --
4578:
4579: --
4580: IF l_debug_on THEN
4581: WSH_DEBUG_SV.log(l_module_name,'MAX LOAD',x_max_load);
4582: WSH_DEBUG_SV.log(l_module_name,'MAX VOLUME',x_max_vol);
4583: WSH_DEBUG_SV.pop(l_module_name);
4584: END IF;
4585: --
4586: RETURN;
4579: --
4580: IF l_debug_on THEN
4581: WSH_DEBUG_SV.log(l_module_name,'MAX LOAD',x_max_load);
4582: WSH_DEBUG_SV.log(l_module_name,'MAX VOLUME',x_max_vol);
4583: WSH_DEBUG_SV.pop(l_module_name);
4584: END IF;
4585: --
4586: RETURN;
4587:
4594: x_return_status := C_UNEXP_ERROR_STATUS;
4595:
4596: --
4597: IF l_debug_on THEN
4598: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4600: END IF;
4601: --
4602: END Get_Cont_Load_Vol_info;
4595:
4596: --
4597: IF l_debug_on THEN
4598: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4600: END IF;
4601: --
4602: END Get_Cont_Load_Vol_info;
4603:
4637: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4638: --
4639: IF l_debug_on IS NULL
4640: THEN
4641: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4642: END IF;
4643: --
4644: IF l_debug_on THEN
4645: WSH_DEBUG_SV.push(l_module_name);
4641: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4642: END IF;
4643: --
4644: IF l_debug_on THEN
4645: WSH_DEBUG_SV.push(l_module_name);
4646: --
4647: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4648: END IF;
4649: --
4643: --
4644: IF l_debug_on THEN
4645: WSH_DEBUG_SV.push(l_module_name);
4646: --
4647: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4648: END IF;
4649: --
4650: --
4651: IF l_debug_on THEN
4648: END IF;
4649: --
4650: --
4651: IF l_debug_on THEN
4652: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',WSH_DEBUG_SV.C_PROC_LEVEL);
4653: END IF;
4654: --
4655: WSH_SHIPPING_PARAMS_PVT.Get(
4656: p_organization_id => p_organization_id,
4657: x_param_info => l_param_info,
4658: x_return_status => x_return_status);
4659:
4660: IF l_debug_on THEN
4661: WSH_DEBUG_SV.log(l_module_name,'return status - ',x_return_status);
4662: END IF;
4663: IF (x_return_status = C_SUCCESS_STATUS) THEN
4664: x_fill_basis := l_param_info.percent_fill_basis_flag;
4665: -- HW OPMCONV - No need to populate this value
4669: --dbms_output.put_line('WSH_CONTAINER_ACTIONS.Calc_Fill_Basis_and_proc_flag returned '||x_return_status);
4670:
4671: --
4672: IF l_debug_on THEN
4673: WSH_DEBUG_SV.pop(l_module_name);
4674: END IF;
4675: --
4676: RETURN;
4677:
4676: RETURN;
4677:
4678: --
4679: IF l_debug_on THEN
4680: WSH_DEBUG_SV.pop(l_module_name);
4681: END IF;
4682: --
4683: EXCEPTION
4684: WHEN Others THEN
4685: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Calc_Fill_Basis_and_proc_flag',l_module_name);
4686: x_return_status := C_UNEXP_ERROR_STATUS;
4687: --
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4690: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4691: END IF;
4692: --
4693: END Calc_Fill_Basis_and_proc_flag;
4686: x_return_status := C_UNEXP_ERROR_STATUS;
4687: --
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4690: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4691: END IF;
4692: --
4693: END Calc_Fill_Basis_and_proc_flag;
4694:
4746: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4747: --
4748: IF l_debug_on IS NULL
4749: THEN
4750: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4751: END IF;
4752: --
4753: IF l_debug_on THEN
4754: WSH_DEBUG_SV.push(l_module_name);
4750: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4751: END IF;
4752: --
4753: IF l_debug_on THEN
4754: WSH_DEBUG_SV.push(l_module_name);
4755: --
4756: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4757: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
4758: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4752: --
4753: IF l_debug_on THEN
4754: WSH_DEBUG_SV.push(l_module_name);
4755: --
4756: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4757: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
4758: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4759: END IF;
4760: --
4753: IF l_debug_on THEN
4754: WSH_DEBUG_SV.push(l_module_name);
4755: --
4756: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4757: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
4758: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4759: END IF;
4760: --
4761: x_error_cnt := 0;
4754: WSH_DEBUG_SV.push(l_module_name);
4755: --
4756: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4757: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
4758: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4759: END IF;
4760: --
4761: x_error_cnt := 0;
4762: x_return_status := C_SUCCESS_STATUS;
4777: IF Get_Cont_Load%NOTFOUND THEN
4778: CLOSE Get_Cont_Load;
4779: --
4780: IF l_debug_on THEN
4781: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4782: END IF;
4783: --
4784: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_inventory_item_id, p_organization_id);
4785: --
4783: --
4784: l_item_name := WSH_UTIL_CORE.Get_Item_Name(p_inventory_item_id, p_organization_id);
4785: --
4786: IF l_debug_on THEN
4787: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4788: END IF;
4789: --
4790: l_org_name := WSH_UTIL_CORE.Get_Org_Name(p_organization_id);
4791: --dbms_output.put_line('Error: Cont/Load Relationship does not exist for Item '||l_item_name||' Org '||l_org_name);
4817: --dbms_output.put_line('WSH_CONTAINER_ACTIONS.Calc_Pref_Container returned '||x_return_status||' with error count '||x_error_cnt);
4818:
4819: --
4820: IF l_debug_on THEN
4821: WSH_DEBUG_SV.pop(l_module_name);
4822: END IF;
4823: --
4824: RETURN;
4825:
4824: RETURN;
4825:
4826: --
4827: IF l_debug_on THEN
4828: WSH_DEBUG_SV.pop(l_module_name);
4829: END IF;
4830: --
4831: EXCEPTION
4832: WHEN Others THEN
4837: x_return_status := C_UNEXP_ERROR_STATUS;
4838:
4839: --
4840: IF l_debug_on THEN
4841: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4842: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4843: END IF;
4844: --
4845: END Calc_Pref_Container;
4838:
4839: --
4840: IF l_debug_on THEN
4841: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4842: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4843: END IF;
4844: --
4845: END Calc_Pref_Container;
4846:
4909: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4910: --
4911: IF l_debug_on IS NULL
4912: THEN
4913: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4914: END IF;
4915: --
4916: IF l_debug_on THEN
4917: WSH_DEBUG_SV.push(l_module_name);
4913: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4914: END IF;
4915: --
4916: IF l_debug_on THEN
4917: WSH_DEBUG_SV.push(l_module_name);
4918: 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);
4919: 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 );
4920: END IF;
4921: --
4914: END IF;
4915: --
4916: IF l_debug_on THEN
4917: WSH_DEBUG_SV.push(l_module_name);
4918: 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);
4919: 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 );
4920: END IF;
4921: --
4922: l_dd_gross_wt_left := ROUND(p_line_cont_rec.gross_weight,LIMITED_PRECISION);
4915: --
4916: IF l_debug_on THEN
4917: WSH_DEBUG_SV.push(l_module_name);
4918: 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);
4919: 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 );
4920: END IF;
4921: --
4922: l_dd_gross_wt_left := ROUND(p_line_cont_rec.gross_weight,LIMITED_PRECISION);
4923: l_dd_net_wt_left := ROUND(p_line_cont_rec.net_weight,LIMITED_PRECISION);
4943: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',p_line_cont_rec.delivery_detail_id);
4944: END IF;
4945: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4946: IF l_debug_on THEN
4947: WSH_DEBUG_SV.pop(l_module_name);
4948: END IF;
4949: RETURN;
4950: END IF;
4951: -- Bug 2786021
4966: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',p_line_cont_rec.delivery_detail_id);
4967: END IF;
4968: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4969: IF l_debug_on THEN
4970: WSH_DEBUG_SV.pop(l_module_name);
4971: END IF;
4972: RETURN;
4973: END IF;
4974: -- Bug 2786021
4974: -- Bug 2786021
4975: END IF;
4976:
4977: IF l_debug_on THEN
4978: WSH_DEBUG_SV.log(l_module_name,'Wt per pc-',l_weight_per_pc);
4979: WSH_DEBUG_SV.log(l_module_name,'Vol per pc-',l_volume_per_pc);
4980: WSH_DEBUG_SV.log(l_module_name,'Cont max load-',l_mtl_max_load);
4981: WSH_DEBUG_SV.log(l_module_name,'Cont max vol-',l_mtl_max_vol);
4982: END IF;
4975: END IF;
4976:
4977: IF l_debug_on THEN
4978: WSH_DEBUG_SV.log(l_module_name,'Wt per pc-',l_weight_per_pc);
4979: WSH_DEBUG_SV.log(l_module_name,'Vol per pc-',l_volume_per_pc);
4980: WSH_DEBUG_SV.log(l_module_name,'Cont max load-',l_mtl_max_load);
4981: WSH_DEBUG_SV.log(l_module_name,'Cont max vol-',l_mtl_max_vol);
4982: END IF;
4983:
4976:
4977: IF l_debug_on THEN
4978: WSH_DEBUG_SV.log(l_module_name,'Wt per pc-',l_weight_per_pc);
4979: WSH_DEBUG_SV.log(l_module_name,'Vol per pc-',l_volume_per_pc);
4980: WSH_DEBUG_SV.log(l_module_name,'Cont max load-',l_mtl_max_load);
4981: WSH_DEBUG_SV.log(l_module_name,'Cont max vol-',l_mtl_max_vol);
4982: END IF;
4983:
4984: l_original_qty := p_line_cont_rec.shp_qty;
4977: IF l_debug_on THEN
4978: WSH_DEBUG_SV.log(l_module_name,'Wt per pc-',l_weight_per_pc);
4979: WSH_DEBUG_SV.log(l_module_name,'Vol per pc-',l_volume_per_pc);
4980: WSH_DEBUG_SV.log(l_module_name,'Cont max load-',l_mtl_max_load);
4981: WSH_DEBUG_SV.log(l_module_name,'Cont max vol-',l_mtl_max_vol);
4982: END IF;
4983:
4984: l_original_qty := p_line_cont_rec.shp_qty;
4985: l_quantity_left := p_line_cont_rec.shp_qty;
5020:
5021: -- Per Pushkar,OPM: Call Check_Decimal_Quantity for both OPM and Discrete for primary quantity
5022: --
5023: IF l_debug_on THEN
5024: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
5025: END IF;
5026: --
5027: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
5028: p_line_cont_rec.inventory_item_id,
5032: l_output_qty,
5033: l_return_status);
5034:
5035: IF l_debug_on THEN
5036: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5037: END IF;
5038: IF (l_return_status <> C_SUCCESS_STATUS OR
5039: p_line_cont_rec.indivisible_flag = 'Y')THEN
5040: -- Fractional qtys not allowed
5094:
5095: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_tmp_split_qty);
5096: --
5097: IF l_debug_on THEN
5098: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5099: WSH_DEBUG_SV.logmsg(l_module_name,'SPLIT QTY IS'||l_tmp_split_qty);
5100: END IF;
5101: --
5102:
5095: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_tmp_split_qty);
5096: --
5097: IF l_debug_on THEN
5098: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5099: WSH_DEBUG_SV.logmsg(l_module_name,'SPLIT QTY IS'||l_tmp_split_qty);
5100: END IF;
5101: --
5102:
5103: -- added l_dd_id_tab for Bulk call
5116: x_return_status => l_return_status
5117: );
5118:
5119: IF l_debug_on THEN
5120: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5121: END IF;
5122: --dbms_output.put_line('STATUS after SPLITDD in empty'||l_return_status||l_dd_id_tab.count);
5123:
5124: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5130: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5131: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5132: --
5133: IF l_debug_on THEN
5134: WSH_DEBUG_SV.pop(l_module_name);
5135: END IF;
5136: --
5137: return;
5138: END IF;
5137: return;
5138: END IF;
5139:
5140: IF l_debug_on THEN
5141: WSH_DEBUG_SV.logmsg(l_module_name,'COUNT OF WDD RECORDS IS'||l_dd_id_tab.count);
5142: END IF;
5143:
5144: --dbms_output.put_line('Created new dd '||l_split_del_detail_id);
5145:
5264:
5265: -- Per Pushkar,OPM: Call Check_Decimal_Quantity for both OPM and Discrete for primary quantity
5266: --
5267: IF l_debug_on THEN
5268: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
5269: END IF;
5270: --
5271: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
5272: p_line_cont_rec.inventory_item_id,
5276: l_output_qty,
5277: l_return_status);
5278:
5279: IF l_debug_on THEN
5280: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5281: END IF;
5282: IF (l_return_status <> C_SUCCESS_STATUS OR
5283: p_line_cont_rec.indivisible_flag = 'Y')THEN
5284: -- Fractional qtys not allowed
5343: -- End BugFix#3475352
5344:
5345: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_split_qty);
5346: IF l_debug_on THEN
5347: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5348: WSH_DEBUG_SV.logmsg(l_module_name,'Split Qty is'||l_split_qty);
5349: WSH_DEBUG_SV.logmsg(l_module_name,'Number of split is'||l_num_of_split);
5350: END IF;
5351:
5344:
5345: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_split_qty);
5346: IF l_debug_on THEN
5347: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5348: WSH_DEBUG_SV.logmsg(l_module_name,'Split Qty is'||l_split_qty);
5349: WSH_DEBUG_SV.logmsg(l_module_name,'Number of split is'||l_num_of_split);
5350: END IF;
5351:
5352: --this is in Main Loop
5345: --dbms_output.put_line('Splitting dd '||p_line_cont_rec.delivery_detail_id||' with qty '||l_split_qty);
5346: IF l_debug_on THEN
5347: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
5348: WSH_DEBUG_SV.logmsg(l_module_name,'Split Qty is'||l_split_qty);
5349: WSH_DEBUG_SV.logmsg(l_module_name,'Number of split is'||l_num_of_split);
5350: END IF;
5351:
5352: --this is in Main Loop
5353: -- Call BULK Split API
5365: x_return_status => l_return_status
5366: );
5367:
5368: IF l_debug_on THEN
5369: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5370: END IF;
5371:
5372: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5373: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5377: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_line_cont_rec.delivery_detail_id);
5378: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5379:
5380: IF l_debug_on THEN
5381: WSH_DEBUG_SV.pop(l_module_name);
5382: END IF;
5383:
5384: return;
5385: END IF;
5524: END IF;
5525: x_return_status := C_SUCCESS_STATUS;
5526: --
5527: IF l_debug_on THEN
5528: WSH_DEBUG_SV.pop(l_module_name);
5529: END IF;
5530: --
5531: RETURN;
5532:
5536: x_return_status := C_UNEXP_ERROR_STATUS;
5537:
5538: --
5539: IF l_debug_on THEN
5540: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5541: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5542: END IF;
5543: --
5544: END Pack_Delivery_Detail;
5537:
5538: --
5539: IF l_debug_on THEN
5540: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5541: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5542: END IF;
5543: --
5544: END Pack_Delivery_Detail;
5545:
5672: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5673: --
5674: IF l_debug_on IS NULL
5675: THEN
5676: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5677: END IF;
5678: --
5679: IF l_debug_on THEN
5680: WSH_DEBUG_SV.push(l_module_name);
5676: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5677: END IF;
5678: --
5679: IF l_debug_on THEN
5680: WSH_DEBUG_SV.push(l_module_name);
5681: END IF;
5682: --
5683: DELETE FROM wsh_tmp;
5684:
5789: );
5790:
5791:
5792: IF l_debug_on THEN
5793: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5794: END IF;
5795:
5796: wsh_util_core.api_post_call
5797: (
5832: x_cont_item_id => l_wcl_cont_item_id,
5833: x_max_load_qty => l_max_load_qty);
5834:
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_ERROR_STATUS) THEN
5840: error_cnt := error_cnt + l_error_cnt;
5891: --
5892: IF rec.wv_frozen_flag = 'N' THEN
5893:
5894: IF l_debug_on THEN
5895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5896: END IF;
5897: --
5898: WSH_WV_UTILS.Detail_Weight_Volume(
5899: p_delivery_detail_id => rec.delivery_detail_id,
5904: x_net_weight => l_dd_net_wt,
5905: x_volume => l_dd_volume ,
5906: x_return_status => l_return_status);
5907: IF l_debug_on THEN
5908: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5909: END IF;
5910:
5911: IF (l_return_status <> C_SUCCESS_STATUS) THEN
5912: --dbms_output.put_line('WSH_WV_UTILS.Detail_Weight_Volume did not return success');
5948: x_return_status => l_return_status,
5949: x_error_cnt => l_error_cnt);
5950:
5951: IF l_debug_on THEN
5952: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
5953: END IF;
5954: IF (l_return_status IN (C_ERROR_STATUS,C_UNEXP_ERROR_STATUS)
5955: ) THEN
5956: error_cnt := error_cnt + l_error_cnt;
5959: -- Bug 2786021
5960: IF (nvl(l_mtl_max_load,0) = 0) OR
5961: (nvl(l_mtl_max_vol,0) = 0) THEN
5962: IF l_debug_on THEN
5963: WSH_DEBUG_SV.log(l_module_name,'fill pc is Q,but use Wt or Vol');
5964: WSH_DEBUG_SV.log(l_module_name,'Wt-'||l_mtl_max_load);
5965: WSH_DEBUG_SV.log(l_module_name,'Vol-'||l_mtl_max_vol);
5966: END IF;
5967: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_MAX_WT_ERROR');
5960: IF (nvl(l_mtl_max_load,0) = 0) OR
5961: (nvl(l_mtl_max_vol,0) = 0) THEN
5962: IF l_debug_on THEN
5963: WSH_DEBUG_SV.log(l_module_name,'fill pc is Q,but use Wt or Vol');
5964: WSH_DEBUG_SV.log(l_module_name,'Wt-'||l_mtl_max_load);
5965: WSH_DEBUG_SV.log(l_module_name,'Vol-'||l_mtl_max_vol);
5966: END IF;
5967: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_MAX_WT_ERROR');
5968: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5961: (nvl(l_mtl_max_vol,0) = 0) THEN
5962: IF l_debug_on THEN
5963: WSH_DEBUG_SV.log(l_module_name,'fill pc is Q,but use Wt or Vol');
5964: WSH_DEBUG_SV.log(l_module_name,'Wt-'||l_mtl_max_load);
5965: WSH_DEBUG_SV.log(l_module_name,'Vol-'||l_mtl_max_vol);
5966: END IF;
5967: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_MAX_WT_ERROR');
5968: WSH_UTIL_CORE.Add_Message(C_ERROR_STATUS,l_module_name);
5969: error_cnt := error_cnt + l_error_cnt;
5978:
5979: IF (l_mtl_wt_uom <> rec.weight_uom_code) THEN
5980: --
5981: IF l_debug_on THEN
5982: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
5983: END IF;
5984: --
5985: l_dd_gross_wt := WSH_WV_UTILS.Convert_Uom (
5986: from_uom => rec.weight_uom_code,
5993:
5994: IF (l_mtl_vol_uom <> rec.volume_uom_code) THEN
5995: --
5996: IF l_debug_on THEN
5997: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
5998: END IF;
5999: --
6000: l_dd_volume := WSH_WV_UTILS.Convert_Uom (
6001: from_uom => rec.volume_uom_code,
6014: --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);
6015:
6016: --
6017: IF l_debug_on THEN
6018: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
6019: END IF;
6020: --
6021: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
6022: p_item_id => rec.inventory_item_id,
6026: x_output_quantity => l_output_qty,
6027: x_return_status => l_return_status);
6028:
6029: IF l_debug_on THEN
6030: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6031: END IF;
6032: IF l_return_status <> C_SUCCESS_STATUS THEN
6033: --dbms_output.put_line('WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity returned '||l_return_status);
6034: l_discard_message := FND_MESSAGE.GET;
6067: --
6068: IF rec.wv_frozen_flag = 'N' THEN
6069:
6070: IF l_debug_on THEN
6071: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
6072: END IF;
6073: --
6074: WSH_WV_UTILS.Detail_Weight_Volume(
6075: p_delivery_detail_id => rec.delivery_detail_id,
6081: x_volume => l_dd_volume ,
6082: x_return_status => l_return_status);
6083:
6084: IF l_debug_on THEN
6085: WSH_DEBUG_SV.log(l_module_name,'return status -,wt,vol',l_return_status||l_dd_net_wt||','||l_dd_volume);
6086: END IF;
6087:
6088: IF (l_return_status <> C_SUCCESS_STATUS) THEN
6089: --dbms_output.put_line('WSH_WV_UTILS.Detail_Weight_Volume did not return success');
6142: x_return_status => l_return_status,
6143: x_error_cnt => l_error_cnt);
6144:
6145: IF l_debug_on THEN
6146: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6147: END IF;
6148: IF (l_return_status = C_ERROR_STATUS) THEN
6149: error_cnt := error_cnt + l_error_cnt;
6150: END IF;
6159:
6160: IF (l_mtl_wt_uom <> rec.weight_uom_code) THEN
6161: --
6162: IF l_debug_on THEN
6163: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
6164: END IF;
6165: --
6166: l_dd_gross_wt := WSH_WV_UTILS.Convert_Uom (
6167: from_uom => rec.weight_uom_code,
6183:
6184: IF (l_mtl_vol_uom <> rec.volume_uom_code) THEN
6185: --
6186: IF l_debug_on THEN
6187: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
6188: END IF;
6189: --
6190: l_dd_volume := WSH_WV_UTILS.Convert_Uom (
6191: from_uom => rec.volume_uom_code,
6245: -- 20.70 Do Credit Check
6246: --dbms_output.put_line('Doing Credit Check');
6247: --
6248: IF l_debug_on THEN
6249: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_CREDIT_HOLDS',WSH_DEBUG_SV.C_PROC_LEVEL);
6250: END IF;
6251: --
6252: WSH_DETAILS_VALIDATIONS.Check_Credit_Holds (
6253: p_detail_id => rec.delivery_detail_id,
6258: p_init_flag => 'Y',
6259: x_return_status => l_return_status);
6260:
6261: IF l_debug_on THEN
6262: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6263: END IF;
6264: -- Bug 2847515
6265: -- Error was being treated as warning
6266: IF l_return_status <> C_SUCCESS_STATUS THEN
6292: --dbms_output.put_line('Exiting Validate_Dd_for_Pack');
6293:
6294: --
6295: IF l_debug_on THEN
6296: 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);
6297: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| x_error_cnt||' Warning Count '|| x_warn_cnt||' Release Warn Count '|| x_release_warn_cnt);
6298: WSH_DEBUG_SV.pop(l_module_name);
6299: END IF;
6300: --
6293:
6294: --
6295: IF l_debug_on THEN
6296: 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);
6297: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| x_error_cnt||' Warning Count '|| x_warn_cnt||' Release Warn Count '|| x_release_warn_cnt);
6298: WSH_DEBUG_SV.pop(l_module_name);
6299: END IF;
6300: --
6301: RETURN;
6294: --
6295: IF l_debug_on THEN
6296: 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);
6297: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| x_error_cnt||' Warning Count '|| x_warn_cnt||' Release Warn Count '|| x_release_warn_cnt);
6298: WSH_DEBUG_SV.pop(l_module_name);
6299: END IF;
6300: --
6301: RETURN;
6302:
6301: RETURN;
6302:
6303: --
6304: IF l_debug_on THEN
6305: WSH_DEBUG_SV.pop(l_module_name);
6306: END IF;
6307: --
6308: EXCEPTION
6309: WHEN Others THEN
6315: END IF;
6316: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Dd_For_Pack',l_module_name);
6317: --
6318: IF l_debug_on THEN
6319: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6321: END IF;
6322: --
6323: raise;
6316: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Dd_For_Pack',l_module_name);
6317: --
6318: IF l_debug_on THEN
6319: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6321: END IF;
6322: --
6323: raise;
6324:
6323: raise;
6324:
6325: --
6326: IF l_debug_on THEN
6327: WSH_DEBUG_SV.pop(l_module_name);
6328: END IF;
6329: --
6330: END Validate_Dd_For_Pack;
6331:
6586: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6587: --
6588: IF l_debug_on IS NULL
6589: THEN
6590: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6591: END IF;
6592: --
6593: IF l_debug_on THEN
6594: WSH_DEBUG_SV.push(l_module_name);
6590: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6591: END IF;
6592: --
6593: IF l_debug_on THEN
6594: WSH_DEBUG_SV.push(l_module_name);
6595: --
6596: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
6597: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed', l_gc3_is_installed); -- OTM R12 : assign delivery detail
6598: END IF;
6592: --
6593: IF l_debug_on THEN
6594: WSH_DEBUG_SV.push(l_module_name);
6595: --
6596: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
6597: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed', l_gc3_is_installed); -- OTM R12 : assign delivery detail
6598: END IF;
6599: --
6600: g_empty_cont_tab.DELETE;
6593: IF l_debug_on THEN
6594: WSH_DEBUG_SV.push(l_module_name);
6595: --
6596: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
6597: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed', l_gc3_is_installed); -- OTM R12 : assign delivery detail
6598: END IF;
6599: --
6600: g_empty_cont_tab.DELETE;
6601: g_assign_detail_tab.DELETE;
6614: x_return_status := C_ERROR_STATUS;
6615: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6616: --
6617: IF l_debug_on THEN
6618: WSH_DEBUG_SV.pop(l_module_name);
6619: END IF;
6620: --
6621: return;
6622: END IF;
6629:
6630: --dbms_output.put_line('Calling WSH_DELIVERY_AUTOCREATE.autocreate_deliveries to generate group_ids');
6631: --
6632: IF l_debug_on THEN
6633: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
6634: END IF;
6635: --
6636:
6637: l_attr_tab.delete;
6655: x_out_rec => l_out_rec,
6656: x_return_status => l_return_status);
6657:
6658: IF l_debug_on THEN
6659: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6660: END IF;
6661: IF (l_return_status = C_ERROR_STATUS) OR
6662: (l_return_status = C_UNEXP_ERROR_STATUS) THEN
6663: --dbms_output.put_line('***WSH_DELIVERY_AUTOCREATE.autocreate_deliveries returned '||l_return_status);
6665: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
6666: x_return_status := l_return_status;
6667: --
6668: IF l_debug_on THEN
6669: WSH_DEBUG_SV.pop(l_module_name);
6670: END IF;
6671: --
6672: return;
6673: END IF;
6682: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
6683: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6684: --
6685: IF l_debug_on THEN
6686: WSH_DEBUG_SV.pop(l_module_name);
6687: END IF;
6688: --
6689: return;
6690: ELSE
6707: x_fill_pc_warn_cnt => l_fill_pc_warn_count, -- bug 3562797 jckwok
6708: x_release_warn_cnt => l_release_warn_count);
6709:
6710: IF l_debug_on THEN
6711: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6712: WSH_DEBUG_SV.log(l_module_name,'line cont tab count -',line_cont_tab.count);
6713: END IF;
6714: --dbms_output.put_line(p_del_detail_tab.count||'
6715:
6708: x_release_warn_cnt => l_release_warn_count);
6709:
6710: IF l_debug_on THEN
6711: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
6712: WSH_DEBUG_SV.log(l_module_name,'line cont tab count -',line_cont_tab.count);
6713: END IF;
6714: --dbms_output.put_line(p_del_detail_tab.count||'
6715:
6716: -- Raise warning if we found some delivery details with status 'S'
6720: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_RELEASED_STATUS');
6721: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6722: -- Bug 3337629 : Added the following return statement.
6723: IF l_debug_on THEN
6724: WSH_DEBUG_SV.pop(l_module_name);
6725: END IF;
6726: RETURN;
6727: ELSIF (l_release_warn_count > 0) THEN
6728: -- Bug 3337629 - x_return_status does not hold any value.
6746: x_return_status := C_ERROR_STATUS;
6747: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
6748: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6749: IF l_debug_on THEN
6750: WSH_DEBUG_SV.pop(l_module_name);
6751: END IF;
6752: RETURN;
6753: ELSIF (l_fill_pc_warn_count > 0) THEN
6754: IF (l_return_status <> C_ERROR_STATUS) THEN
6767: l_last_organization_id := NULL;
6768: WHILE (cnt <= line_cont_tab.COUNT) LOOP
6769:
6770: IF l_debug_on THEN
6771: WSH_DEBUG_SV.log(l_module_name,'======================================================');
6772: 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);
6773: END IF;
6774:
6775: IF (l_last_organization_id is NULL) THEN
6768: WHILE (cnt <= line_cont_tab.COUNT) LOOP
6769:
6770: IF l_debug_on THEN
6771: WSH_DEBUG_SV.log(l_module_name,'======================================================');
6772: 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);
6773: END IF;
6774:
6775: IF (l_last_organization_id is NULL) THEN
6776: l_last_organization_id := line_cont_tab(cnt).organization_id;
6806: l_cont_name := null;
6807:
6808: --
6809: IF l_debug_on THEN
6810: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_CONT_INSTANCE_MULTI',WSH_DEBUG_SV.C_PROC_LEVEL);
6811: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Containers'||g_new_container_tab(cnt).number_of_containers);
6812: 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);
6813: END IF;
6814: --
6807:
6808: --
6809: IF l_debug_on THEN
6810: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_CONT_INSTANCE_MULTI',WSH_DEBUG_SV.C_PROC_LEVEL);
6811: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Containers'||g_new_container_tab(cnt).number_of_containers);
6812: 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);
6813: END IF;
6814: --
6815: wsh_container_actions.Create_Cont_Instance_Multi (
6808: --
6809: IF l_debug_on THEN
6810: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_CONT_INSTANCE_MULTI',WSH_DEBUG_SV.C_PROC_LEVEL);
6811: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Containers'||g_new_container_tab(cnt).number_of_containers);
6812: 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);
6813: END IF;
6814: --
6815: wsh_container_actions.Create_Cont_Instance_Multi (
6816: x_cont_name => l_cont_name,
6832: p_ignore_for_planning => NULL,
6833: p_caller => 'WSH'
6834: );
6835: IF l_debug_on THEN
6836: WSH_DEBUG_SV.log(l_module_name,'return status ,cont tab count -',l_return_status||l_cont_tab.count);
6837: END IF;
6838:
6839: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
6840: ) THEN
6844: error_cnt := error_cnt + 1;
6845: ELSE
6846:
6847: IF l_debug_on THEN
6848: WSH_DEBUG_SV.logmsg(l_module_name,'Created Containers'||l_cont_tab.count);
6849: END IF;
6850: -- do not use this container instance id
6851: g_new_container_tab(cnt).cont_instance_id := l_cont_instance_id;
6852:
6910:
6911: -- 70.1 Assign Details to Actual Containers created
6912: IF l_debug_on THEN
6913:
6914: WSH_DEBUG_SV.log(l_module_name,'*** Assigning Details to Containers Created ***'||g_assign_detail_tab.count);
6915: WSH_DEBUG_SV.log(l_module_name,'*** COUNT ***'||g_new_contid_tab.count||'<'||g_new_container_tab.count||to_char(sysdate,'HH24:MI:SS'));
6916: END IF;
6917:
6918: -- doing BULK UPDATE here
6911: -- 70.1 Assign Details to Actual Containers created
6912: IF l_debug_on THEN
6913:
6914: WSH_DEBUG_SV.log(l_module_name,'*** Assigning Details to Containers Created ***'||g_assign_detail_tab.count);
6915: WSH_DEBUG_SV.log(l_module_name,'*** COUNT ***'||g_new_contid_tab.count||'<'||g_new_container_tab.count||to_char(sysdate,'HH24:MI:SS'));
6916: END IF;
6917:
6918: -- doing BULK UPDATE here
6919: -- First Update WDA for each delivey detail to have parent_delivery_detail populated
7070: END IF;
7071: END LOOP; -- g_assign_detail_tab Loop
7072:
7073: IF l_debug_on THEN
7074: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
7075: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
7076: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
7077: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
7078: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
7071: END LOOP; -- g_assign_detail_tab Loop
7072:
7073: IF l_debug_on THEN
7074: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
7075: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
7076: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
7077: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
7078: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
7079: --WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT); Commented by adagur for bug 16397445
7072:
7073: IF l_debug_on THEN
7074: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
7075: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
7076: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
7077: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
7078: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
7079: --WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT); Commented by adagur for bug 16397445
7080: END IF;
7073: IF l_debug_on THEN
7074: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
7075: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
7076: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
7077: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
7078: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
7079: --WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT); Commented by adagur for bug 16397445
7080: END IF;
7081:
7074: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_assign_detail_tab'||g_assign_detail_tab.COUNT);
7075: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
7076: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
7077: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
7078: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
7079: --WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT); Commented by adagur for bug 16397445
7080: END IF;
7081:
7082: -- J: W/V Changes
7075: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist'||l_contlist.COUNT);
7076: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist>'||l_dellist.COUNT);
7077: WSH_DEBUG_SV.logmsg(l_module_name,'Count-g_new_contid>'||g_new_contid_tab.COUNT);
7078: WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_contlist1>'||l_contlist1.COUNT);
7079: --WSH_DEBUG_SV.logmsg(l_module_name,'Count-l_dellist1>'||l_dellist1.COUNT); Commented by adagur for bug 16397445
7080: END IF;
7081:
7082: -- J: W/V Changes
7083: -- 70.2 Accumulate the W/V to be adjusted by delivery and container for perf reasons. After the following loop
7089: -- Then after the following loop, l_tmp_dd1list will have dd with vol -20. l_tmp_dd2list will have
7090: -- gross wt. 10 Lbs and Vol 20 Cu. Ft.
7091:
7092: IF l_debug_on THEN
7093: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7094: END IF;
7095: l_prev_del_id := NULL;
7096: l_prev_dd_id := NULL;
7097: l_prev_cont_id := NULL;
7106: i := i + 1;
7107:
7108: IF l_debug_on THEN
7109: IF i <= l_dellist.COUNT THEN
7110: 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);
7111: END IF;
7112: END IF;
7113:
7114: IF (i > l_dellist.COUNT OR l_contlist(i) is NOT NULL) THEN
7165:
7166: END IF;
7167: END LOOP;
7168: IF l_debug_on THEN
7169: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7170: --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);
7171: WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT);
7172: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7173: END IF;
7166: END IF;
7167: END LOOP;
7168: IF l_debug_on THEN
7169: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7170: --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);
7171: WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT);
7172: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7173: END IF;
7174:
7167: END LOOP;
7168: IF l_debug_on THEN
7169: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7170: --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);
7171: WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT);
7172: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7173: END IF;
7174:
7175: -- J: W/V Changes
7168: IF l_debug_on THEN
7169: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7170: --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);
7171: WSH_DEBUG_SV.log(l_module_name,'l_tmp_dd1list.COUNT '||l_tmp_dd1list.COUNT||' l_tmp_dd2list.COUNT '||l_tmp_dd2list.COUNT);
7172: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7173: END IF;
7174:
7175: -- J: W/V Changes
7176: FOR i in 1..l_tmp_dd1list.COUNT LOOP
7174:
7175: -- J: W/V Changes
7176: FOR i in 1..l_tmp_dd1list.COUNT LOOP
7177: IF l_debug_on THEN
7178: WSH_DEBUG_SV.logmsg(l_module_name,'Del1:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7179: END IF;
7180:
7181: WSH_WV_UTILS.DD_WV_Post_Process(
7182: p_delivery_detail_id => l_tmp_dd1list(i).dd_id,
7197:
7198: END IF;
7199: END LOOP;
7200: IF l_debug_on THEN
7201: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment 1 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7202: END IF;
7203:
7204: -- changes to add l_dellist1 and add new messages
7205: --
7216: x_return_status => l_return_status
7217: );
7218:
7219: IF l_debug_on THEN
7220: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7221: END IF;
7222: --
7223: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7224: x_return_status := l_return_status;
7223: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7224: x_return_status := l_return_status;
7225: --
7226: IF l_debug_on THEN
7227: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7228: WSH_DEBUG_SV.pop(l_module_name);
7229: END IF;
7230: --
7231: RETURN;
7224: x_return_status := l_return_status;
7225: --
7226: IF l_debug_on THEN
7227: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7228: WSH_DEBUG_SV.pop(l_module_name);
7229: END IF;
7230: --
7231: RETURN;
7232: ELSE
7244: x_return_status => l_return_status
7245: );
7246:
7247: IF l_debug_on THEN
7248: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7249: END IF;
7250: --
7251: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7252: x_return_status := l_return_status;
7251: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7252: x_return_status := l_return_status;
7253: --
7254: IF l_debug_on THEN
7255: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7256: WSH_DEBUG_SV.pop(l_module_name);
7257: END IF;
7258: --
7259: RETURN;
7252: x_return_status := l_return_status;
7253: --
7254: IF l_debug_on THEN
7255: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7256: WSH_DEBUG_SV.pop(l_module_name);
7257: END IF;
7258: --
7259: RETURN;
7260: ELSE
7289: x_return_status => x_return_status);
7290:
7291: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7292: IF l_debug_on THEN
7293: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7294: WSH_DEBUG_SV.pop(l_module_name);
7295: END IF;
7296: RETURN;
7297: END IF;
7290:
7291: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7292: IF l_debug_on THEN
7293: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7294: WSH_DEBUG_SV.pop(l_module_name);
7295: END IF;
7296: RETURN;
7297: END IF;
7298:
7298:
7299:
7300: -- J: W/V Changes
7301: IF l_debug_on THEN
7302: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 2 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7303: END IF;
7304: FOR i in 1..l_tmp_dd2list.COUNT LOOP
7305: IF l_debug_on THEN
7306: WSH_DEBUG_SV.logmsg(l_module_name,'Del2:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7302: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 2 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7303: END IF;
7304: FOR i in 1..l_tmp_dd2list.COUNT LOOP
7305: IF l_debug_on THEN
7306: WSH_DEBUG_SV.logmsg(l_module_name,'Del2:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7307: END IF;
7308:
7309: WSH_WV_UTILS.DD_WV_Post_Process(
7310: p_delivery_detail_id => l_tmp_dd2list(i).dd_id,
7325:
7326: END IF;
7327: END LOOP;
7328: IF l_debug_on THEN
7329: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment 2 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7330: END IF;
7331:
7332: -- fetch all the attributes for the delivery line
7333: cnt := 0;
7369: x_return_status => l_return_status
7370: );
7371:
7372: IF l_debug_on THEN
7373: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7374: END IF;
7375: --
7376: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7377: x_return_status := l_return_status;
7376: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7377: x_return_status := l_return_status;
7378: --
7379: IF l_debug_on THEN
7380: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7381: WSH_DEBUG_SV.pop(l_module_name);
7382: END IF;
7383: --
7384: RETURN;
7377: x_return_status := l_return_status;
7378: --
7379: IF l_debug_on THEN
7380: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7381: WSH_DEBUG_SV.pop(l_module_name);
7382: END IF;
7383: --
7384: RETURN;
7385: ELSE
7397: x_return_status => l_return_status
7398: );
7399:
7400: IF l_debug_on THEN
7401: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7402: END IF;
7403: --
7404: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7405: x_return_status := l_return_status;
7404: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7405: x_return_status := l_return_status;
7406: --
7407: IF l_debug_on THEN
7408: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7409: WSH_DEBUG_SV.pop(l_module_name);
7410: END IF;
7411: --
7412: RETURN;
7405: x_return_status := l_return_status;
7406: --
7407: IF l_debug_on THEN
7408: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7409: WSH_DEBUG_SV.pop(l_module_name);
7410: END IF;
7411: --
7412: RETURN;
7413: ELSE
7433:
7434: CLOSE c_get_deliver_to_location_id;
7435:
7436: IF l_debug_on THEN
7437: WSH_DEBUG_SV.log(l_module_name,'cnt ',cnt);
7438: WSH_DEBUG_SV.log(l_module_name,'l_deliver_to_location_id ',l_deliver_to_location_id);
7439: WSH_DEBUG_SV.log(l_module_name,'l_tab_deliver_location_id(cnt) ',l_tab_deliver_location_id(cnt));
7440: END IF;
7441:
7434: CLOSE c_get_deliver_to_location_id;
7435:
7436: IF l_debug_on THEN
7437: WSH_DEBUG_SV.log(l_module_name,'cnt ',cnt);
7438: WSH_DEBUG_SV.log(l_module_name,'l_deliver_to_location_id ',l_deliver_to_location_id);
7439: WSH_DEBUG_SV.log(l_module_name,'l_tab_deliver_location_id(cnt) ',l_tab_deliver_location_id(cnt));
7440: END IF;
7441:
7442: -- If conatiner deliver to location id is null
7435:
7436: IF l_debug_on THEN
7437: WSH_DEBUG_SV.log(l_module_name,'cnt ',cnt);
7438: WSH_DEBUG_SV.log(l_module_name,'l_deliver_to_location_id ',l_deliver_to_location_id);
7439: WSH_DEBUG_SV.log(l_module_name,'l_tab_deliver_location_id(cnt) ',l_tab_deliver_location_id(cnt));
7440: END IF;
7441:
7442: -- If conatiner deliver to location id is null
7443: IF l_deliver_to_location_id is null THEN
7459:
7460: l_container_id := l_contlist(cnt);
7461:
7462: IF l_debug_on THEN
7463: WSH_DEBUG_SV.log(l_module_name,'l_deliver_to_location_id1 ', l_deliver_to_location_id1);
7464: END IF;
7465:
7466: UPDATE WSH_DELIVERY_DETAILS
7467: SET customer_id = l_tab_cust_id(cnt),
7498: x_return_status => l_return_status
7499: );
7500:
7501: IF l_debug_on THEN
7502: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7503: END IF;
7504: --
7505: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7506: x_return_status := l_return_status;
7505: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7506: x_return_status := l_return_status;
7507: --
7508: IF l_debug_on THEN
7509: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7510: WSH_DEBUG_SV.pop(l_module_name);
7511: END IF;
7512: --
7513: RETURN;
7506: x_return_status := l_return_status;
7507: --
7508: IF l_debug_on THEN
7509: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7510: WSH_DEBUG_SV.pop(l_module_name);
7511: END IF;
7512: --
7513: RETURN;
7514: ELSE
7526: x_return_status => l_return_status
7527: );
7528:
7529: IF l_debug_on THEN
7530: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
7531: END IF;
7532: --
7533: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7534: x_return_status := l_return_status;
7533: IF l_return_status IN (C_UNEXP_ERROR_STATUS, C_ERROR_STATUS) THEN
7534: x_return_status := l_return_status;
7535: --
7536: IF l_debug_on THEN
7537: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7538: WSH_DEBUG_SV.pop(l_module_name);
7539: END IF;
7540: --
7541: RETURN;
7534: x_return_status := l_return_status;
7535: --
7536: IF l_debug_on THEN
7537: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE_BULK');
7538: WSH_DEBUG_SV.pop(l_module_name);
7539: END IF;
7540: --
7541: RETURN;
7542: ELSE
7566: l_tms_interface_flag_tab(l_index);
7567: IF c_get_plan_and_tms_flag%NOTFOUND THEN
7568: --{
7569: IF l_debug_on THEN
7570: WSH_DEBUG_SV.log(l_module_name,'No data for c_get_plan_and_tms_flag', l_dellist1(l_index));
7571: END IF;
7572: CLOSE c_get_plan_and_tms_flag;
7573: raise FND_API.G_EXC_ERROR;
7574: END IF;
7579: IF (l_ignore_for_planning_tab(l_index) = 'N') THEN
7580: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_dellist1(l_index));
7581: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
7582: IF l_debug_on THEN
7583: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7584: END IF;
7585: raise FND_API.G_EXC_ERROR;
7586: ELSIF (l_is_delivery_empty = 'Y') THEN
7587: l_delivery_was_empty_tab(l_index) := TRUE;
7587: l_delivery_was_empty_tab(l_index) := TRUE;
7588: END IF;
7589: END IF;
7590: IF l_debug_on THEN
7591: WSH_DEBUG_SV.log(l_module_name,'l_dellist1('||l_index||')', l_dellist1(l_index));
7592: WSH_DEBUG_SV.log(l_module_name,'l_contlist1('||l_index||')', l_contlist1(l_index));
7593: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning_tab('||l_index||')', l_ignore_for_planning_tab(l_index));
7594: WSH_DEBUG_SV.log(l_module_name,'l_tms_interface_flag_tab('||l_index||')', l_tms_interface_flag_tab(l_index));
7595: END IF;
7588: END IF;
7589: END IF;
7590: IF l_debug_on THEN
7591: WSH_DEBUG_SV.log(l_module_name,'l_dellist1('||l_index||')', l_dellist1(l_index));
7592: WSH_DEBUG_SV.log(l_module_name,'l_contlist1('||l_index||')', l_contlist1(l_index));
7593: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning_tab('||l_index||')', l_ignore_for_planning_tab(l_index));
7594: WSH_DEBUG_SV.log(l_module_name,'l_tms_interface_flag_tab('||l_index||')', l_tms_interface_flag_tab(l_index));
7595: END IF;
7596: ELSE
7589: END IF;
7590: IF l_debug_on THEN
7591: WSH_DEBUG_SV.log(l_module_name,'l_dellist1('||l_index||')', l_dellist1(l_index));
7592: WSH_DEBUG_SV.log(l_module_name,'l_contlist1('||l_index||')', l_contlist1(l_index));
7593: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning_tab('||l_index||')', l_ignore_for_planning_tab(l_index));
7594: WSH_DEBUG_SV.log(l_module_name,'l_tms_interface_flag_tab('||l_index||')', l_tms_interface_flag_tab(l_index));
7595: END IF;
7596: ELSE
7597: l_ignore_for_planning_tab(l_index) := NULL;
7590: IF l_debug_on THEN
7591: WSH_DEBUG_SV.log(l_module_name,'l_dellist1('||l_index||')', l_dellist1(l_index));
7592: WSH_DEBUG_SV.log(l_module_name,'l_contlist1('||l_index||')', l_contlist1(l_index));
7593: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning_tab('||l_index||')', l_ignore_for_planning_tab(l_index));
7594: WSH_DEBUG_SV.log(l_module_name,'l_tms_interface_flag_tab('||l_index||')', l_tms_interface_flag_tab(l_index));
7595: END IF;
7596: ELSE
7597: l_ignore_for_planning_tab(l_index) := NULL;
7598: l_tms_interface_flag_tab(l_index) := NULL;
7597: l_ignore_for_planning_tab(l_index) := NULL;
7598: l_tms_interface_flag_tab(l_index) := NULL;
7599: l_delivery_was_empty_tab(l_index) := NULL;
7600: IF l_debug_on THEN
7601: WSH_DEBUG_SV.log(l_module_name, 'l_dellist1 is null for ', l_contlist1(l_index));
7602: END IF;
7603: END IF;
7604:
7605: l_index := l_dellist1.NEXT(l_index);
7631:
7632: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
7633: --handle the error approriately to the procedure this code is in
7634: IF l_debug_on THEN
7635: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7636: END IF;
7637: raise FND_API.G_EXC_ERROR;
7638: ELSIF (l_is_delivery_empty = 'N') THEN
7639: IF (l_tms_interface_flag_tab(l_index) = WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) THEN
7641: l_delivery_id_tab(l_index_update) := l_dellist1(l_index);
7642: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
7643:
7644: IF (l_debug_on) THEN
7645: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7646: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7647: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7648: END IF;
7649: ELSIF (l_tms_interface_flag_tab(l_index) in
7642: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
7643:
7644: IF (l_debug_on) THEN
7645: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7646: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7647: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7648: END IF;
7649: ELSIF (l_tms_interface_flag_tab(l_index) in
7650: (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
7643:
7644: IF (l_debug_on) THEN
7645: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7646: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7647: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7648: END IF;
7649: ELSIF (l_tms_interface_flag_tab(l_index) in
7650: (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
7651: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS)) THEN
7652: l_index_update := l_index_update + 1;
7653: l_delivery_id_tab(l_index_update) := l_dellist1(l_index);
7654: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
7655: IF (l_debug_on) THEN
7656: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7657: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7658: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7659: END IF;
7660: END IF;
7653: l_delivery_id_tab(l_index_update) := l_dellist1(l_index);
7654: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
7655: IF (l_debug_on) THEN
7656: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7657: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7658: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7659: END IF;
7660: END IF;
7661: END IF;
7654: l_interface_flag_tab(l_index_update) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
7655: IF (l_debug_on) THEN
7656: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery is not empty');
7657: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7658: WSH_DEBUG_SV.log(l_module_name,'l_interface_flag_tab', l_interface_flag_tab(l_index_update));
7659: END IF;
7660: END IF;
7661: END IF;
7662: ELSE -- (NOT l_delivery_was_empty)
7666:
7667: IF c_get_tare_weight%NOTFOUND THEN
7668: --{
7669: IF l_debug_on THEN
7670: WSH_DEBUG_SV.log(l_module_name,'No data for c_get_tare_weight', l_contlist1(l_index));
7671: END IF;
7672: CLOSE c_get_tare_weight;
7673: raise FND_API.G_EXC_ERROR;
7674: END IF;
7674: END IF;
7675: CLOSE c_get_tare_weight;
7676:
7677: IF (l_debug_on) THEN
7678: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery was not empty');
7679: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7680: WSH_DEBUG_SV.log(l_module_name,'l_contlist1', l_contlist1(l_index));
7681: WSH_DEBUG_SV.log(l_module_name,'l_tare_weight', l_tare_weight);
7682: END IF;
7675: CLOSE c_get_tare_weight;
7676:
7677: IF (l_debug_on) THEN
7678: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery was not empty');
7679: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7680: WSH_DEBUG_SV.log(l_module_name,'l_contlist1', l_contlist1(l_index));
7681: WSH_DEBUG_SV.log(l_module_name,'l_tare_weight', l_tare_weight);
7682: END IF;
7683: l_index_update := l_index_update + 1;
7676:
7677: IF (l_debug_on) THEN
7678: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery was not empty');
7679: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7680: WSH_DEBUG_SV.log(l_module_name,'l_contlist1', l_contlist1(l_index));
7681: WSH_DEBUG_SV.log(l_module_name,'l_tare_weight', l_tare_weight);
7682: END IF;
7683: l_index_update := l_index_update + 1;
7684: l_delivery_id_tab(l_index_update) := l_dellist1(l_index);
7677: IF (l_debug_on) THEN
7678: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery was not empty');
7679: WSH_DEBUG_SV.log(l_module_name,'l_dellist1', l_dellist1(l_index));
7680: WSH_DEBUG_SV.log(l_module_name,'l_contlist1', l_contlist1(l_index));
7681: WSH_DEBUG_SV.log(l_module_name,'l_tare_weight', l_tare_weight);
7682: END IF;
7683: l_index_update := l_index_update + 1;
7684: l_delivery_id_tab(l_index_update) := l_dellist1(l_index);
7685: l_interface_flag_tab(l_index_update) := NULL;
7698: x_return_status => l_return_status);
7699:
7700: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
7701: IF l_debug_on THEN
7702: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7703: END IF;
7704: raise FND_API.G_EXC_ERROR;
7705: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7706: IF l_debug_on THEN
7703: END IF;
7704: raise FND_API.G_EXC_ERROR;
7705: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7706: IF l_debug_on THEN
7707: WSH_DEBUG_SV.logmsg(l_module_name,'Warning in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7708: END IF;
7709: cont_warn := cont_warn + 1;
7710: END IF;
7711:
7729: x_return_status => x_return_status);
7730:
7731: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7732: IF l_debug_on THEN
7733: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7734: WSH_DEBUG_SV.pop(l_module_name);
7735: END IF;
7736: RETURN;
7737: END IF;
7730:
7731: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7732: IF l_debug_on THEN
7733: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7734: WSH_DEBUG_SV.pop(l_module_name);
7735: END IF;
7736: RETURN;
7737: END IF;
7738:
7737: END IF;
7738:
7739: -- J: W/V Changes
7740: IF l_debug_on THEN
7741: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 3 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7742: END IF;
7743: FOR i in 1..l_contlist1.COUNT LOOP
7744: IF l_debug_on THEN
7745: WSH_DEBUG_SV.logmsg(l_module_name,'Cont:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7741: WSH_DEBUG_SV.log(l_module_name,'before W/V adjustment 3 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7742: END IF;
7743: FOR i in 1..l_contlist1.COUNT LOOP
7744: IF l_debug_on THEN
7745: WSH_DEBUG_SV.logmsg(l_module_name,'Cont:Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
7746: END IF;
7747:
7748: WSH_WV_UTILS.DD_WV_Post_Process(
7749: p_delivery_detail_id => l_contlist1(i),
7764:
7765: END IF;
7766: END LOOP;
7767: IF l_debug_on THEN
7768: WSH_DEBUG_SV.log(l_module_name,'after W/V adjustment 3 '||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
7769: END IF;
7770:
7771: -- 75.1 Bulk Update Weight/Volume on packed delivery details
7772: -- added the WHO columns in the UPDATE
7785:
7786: --H integration : Pricing Integration
7787: IF l_del_tab.count > 0 THEN
7788: IF l_debug_on THEN
7789: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Program Unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
7790: END IF;
7791: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required
7792: (p_entity_type => 'DELIVERY',
7793: p_entity_ids => l_del_tab,
7793: p_entity_ids => l_del_tab,
7794: x_return_status => l_return_status
7795: );
7796: IF l_debug_on THEN
7797: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
7798: END IF;
7799: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7800: RAISE mark_reprice_error;
7801: END IF;
7805: --dbms_output.put_line('AFTER CONT WT'||to_char(sysdate,'HH24:MI:SS'));
7806: -- 90.1 Summarize errors/warnings
7807:
7808: IF l_debug_on THEN
7809: WSH_DEBUG_SV.logmsg(l_module_name,'Error, warn,success Count -'||error_cnt||','||warn_cnt||','||succ_cnt);
7810: END IF;
7811: IF (warn_cnt > 0 OR cont_warn > 0) THEN
7812: x_return_status := C_WARNING_STATUS;
7813: IF cont_warn > 0 THEN
7831: x_return_status := C_SUCCESS_STATUS;
7832: END IF;
7833:
7834: IF l_debug_on THEN
7835: WSH_DEBUG_SV.logmsg(l_module_name,'L ret status -'||l_return_status);
7836: WSH_DEBUG_SV.logmsg(l_module_name,'X ret status -'||x_return_status);
7837: END IF;
7838: IF x_return_status = C_ERROR_STATUS THEN
7839: IF p_pack_cont_flag = 'Y' THEN
7832: END IF;
7833:
7834: IF l_debug_on THEN
7835: WSH_DEBUG_SV.logmsg(l_module_name,'L ret status -'||l_return_status);
7836: WSH_DEBUG_SV.logmsg(l_module_name,'X ret status -'||x_return_status);
7837: END IF;
7838: IF x_return_status = C_ERROR_STATUS THEN
7839: IF p_pack_cont_flag = 'Y' THEN
7840: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_MASTER_NOT_PACK');
7841: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
7842: END IF;
7843: --
7844: IF l_debug_on THEN
7845: WSH_DEBUG_SV.pop(l_module_name);
7846: END IF;
7847: --
7848: return;
7849: ELSE
7850: l_return_status := x_return_status;
7851: END IF;
7852:
7853: IF l_debug_on THEN
7854: WSH_DEBUG_SV.logmsg(l_module_name,'2L ret status -'||l_return_status);
7855: WSH_DEBUG_SV.logmsg(l_module_name,'2X ret status -'||x_return_status);
7856: END IF;
7857: -- 100.1 Call WSH_CONTAINER_ACTIONS.Auto_Pack_Conts depending on
7858: -- p_pack_cont_flag and if new detail containers are created
7851: END IF;
7852:
7853: IF l_debug_on THEN
7854: WSH_DEBUG_SV.logmsg(l_module_name,'2L ret status -'||l_return_status);
7855: WSH_DEBUG_SV.logmsg(l_module_name,'2X ret status -'||x_return_status);
7856: END IF;
7857: -- 100.1 Call WSH_CONTAINER_ACTIONS.Auto_Pack_Conts depending on
7858: -- p_pack_cont_flag and if new detail containers are created
7859: IF l_detail_cont_tab.count > 0 AND p_pack_cont_flag = 'Y' THEN
7862:
7863: --dbms_output.put_line('Calling AUTO PACK CONTS With x_cont_instance count of ' || x_cont_instance_tab.count);
7864: --
7865: IF l_debug_on THEN
7866: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.AUTO_PACK_CONTS',WSH_DEBUG_SV.C_PROC_LEVEL);
7867: END IF;
7868: --
7869: wsh_container_actions.Auto_Pack_Conts (
7870: l_group_id_tab,
7873: l_mast_cont_tab,
7874: l_return_status);
7875:
7876: IF l_debug_on THEN
7877: WSH_DEBUG_SV.log(l_module_name,'return status -',l_return_status);
7878: END IF;
7879: IF l_return_status = C_UNEXP_ERROR_STATUS THEN
7880: --dbms_output.put_line('Returned from autopack conts with unexpected error');
7881: /* No message WSH_CONT_CONT_AUTOPACK_ERR
7887: */
7888: x_return_status := l_return_status;
7889: --
7890: IF l_debug_on THEN
7891: WSH_DEBUG_SV.pop(l_module_name);
7892: END IF;
7893: --
7894: RETURN;
7895: ELSE
7911:
7912: END IF;
7913:
7914: IF l_debug_on THEN
7915: WSH_DEBUG_SV.logmsg(l_module_name,'3L ret status -'||l_return_status);
7916: WSH_DEBUG_SV.logmsg(l_module_name,'3X ret status -'||x_return_status);
7917: END IF;
7918: IF l_debug_on THEN
7919: WSH_DEBUG_SV.pop(l_module_name);
7912: END IF;
7913:
7914: IF l_debug_on THEN
7915: WSH_DEBUG_SV.logmsg(l_module_name,'3L ret status -'||l_return_status);
7916: WSH_DEBUG_SV.logmsg(l_module_name,'3X ret status -'||x_return_status);
7917: END IF;
7918: IF l_debug_on THEN
7919: WSH_DEBUG_SV.pop(l_module_name);
7920: END IF;
7915: WSH_DEBUG_SV.logmsg(l_module_name,'3L ret status -'||l_return_status);
7916: WSH_DEBUG_SV.logmsg(l_module_name,'3X ret status -'||x_return_status);
7917: END IF;
7918: IF l_debug_on THEN
7919: WSH_DEBUG_SV.pop(l_module_name);
7920: END IF;
7921: --
7922: EXCEPTION
7923:
7925: FND_MESSAGE.Set_Name('WSH','WSH_REPRICE_REQD_ERR');
7926: x_return_status := l_return_status;
7927: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
7928: IF l_debug_on THEN
7929: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7930: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
7931: END IF;
7932:
7933: -- OTM R12 : assign delivery detail
7926: x_return_status := l_return_status;
7927: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
7928: IF l_debug_on THEN
7929: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7930: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
7931: END IF;
7932:
7933: -- OTM R12 : assign delivery detail
7934: WHEN FND_API.G_EXC_ERROR THEN
7941: END IF;
7942:
7943: --
7944: IF l_debug_on THEN
7945: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
7946: WSH_DEBUG_SV.pop(l_module_name);
7947: END IF;
7948: --
7949: RETURN;
7942:
7943: --
7944: IF l_debug_on THEN
7945: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
7946: WSH_DEBUG_SV.pop(l_module_name);
7947: END IF;
7948: --
7949: RETURN;
7950: -- End of OTM R12 : assign delivery detail
7963: x_return_status := C_UNEXP_ERROR_STATUS;
7964:
7965: --
7966: IF l_debug_on THEN
7967: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7968: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7969: END IF;
7970: --
7971: END Auto_Pack_Lines;
7964:
7965: --
7966: IF l_debug_on THEN
7967: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7968: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7969: END IF;
7970: --
7971: END Auto_Pack_Lines;
7972:
8055: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8056: --
8057: IF l_debug_on IS NULL
8058: THEN
8059: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8060: END IF;
8061: --
8062: IF l_debug_on THEN
8063: WSH_DEBUG_SV.push(l_module_name);
8059: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8060: END IF;
8061: --
8062: IF l_debug_on THEN
8063: WSH_DEBUG_SV.push(l_module_name);
8064: --
8065: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
8066: END IF;
8067: --
8061: --
8062: IF l_debug_on THEN
8063: WSH_DEBUG_SV.push(l_module_name);
8064: --
8065: WSH_DEBUG_SV.log(l_module_name,'P_PACK_CONT_FLAG',P_PACK_CONT_FLAG);
8066: END IF;
8067: --
8068: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8069:
8075: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8076: l_del_detail_tab.delete;
8077:
8078: IF l_debug_on THEN
8079: WSH_DEBUG_SV.log(l_module_name,'Auto pack delivery ', p_delivery_tab(j));
8080: END IF;
8081: -- bug 1578527: disallow packing actions in WMS
8082:
8083: OPEN get_delivery_wms(p_delivery_tab(j));
8087: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_DATA_FOUND');
8088: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8089: --
8090: --IF l_debug_on THEN
8091: --WSH_DEBUG_SV.pop(l_module_name);
8092: --END IF;
8093: --
8094: --RETURN; LPN CONV. rv
8095: raise e_return_excp; -- LPN CONV. rv
8105: FOR d IN Get_Delivery_Lines (p_delivery_tab(j)) LOOP
8106:
8107: l_del_detail_tab(i) := d.delivery_detail_id;
8108: IF l_debug_on THEN
8109: WSH_DEBUG_SV.log(l_module_name,'pupulate delivery detail id ', d.delivery_detail_id );
8110: END IF;
8111: i := i + 1;
8112:
8113: END LOOP;
8115: IF Get_Delivery_Lines%ISOPEN THEN
8116: CLOSE Get_Delivery_Lines;
8117: END IF;
8118: IF l_debug_on THEN
8119: WSH_DEBUG_SV.log(l_module_name,'l_del_detail_tab.count: ', l_del_detail_tab.count );
8120: END IF;
8121: IF l_del_detail_tab.count = 0 THEN
8122:
8123: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8124:
8125: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_AUTOPACK_NULL');
8126: --
8127: IF l_debug_on THEN
8128: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
8129: END IF;
8130: --
8131: l_del_name := WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_tab(j));
8132: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
8134: ELSE
8135:
8136: --
8137: IF l_debug_on THEN
8138: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.AUTO_PACK_LINES',WSH_DEBUG_SV.C_PROC_LEVEL);
8139: END IF;
8140: --
8141:
8142: wsh_container_actions.Auto_Pack_Lines (
8146: l_cont_instance_tab,
8147: l_return_status);
8148:
8149: IF l_debug_on THEN
8150: WSH_DEBUG_SV.log(l_module_name,'Return status from wsh_container_actions.Auto_Pack_Lines -',l_return_status);
8151: END IF;
8152: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8153: --dbms_output.put_line('autopack lines failed');
8154: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
8170:
8171: END IF;
8172: <
8173: IF l_debug_on THEN
8174: WSH_DEBUG_SV.log(l_module_name,'return status for delivery '|| p_delivery_tab(j), l_ret_sts );
8175: END IF;
8176: IF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8177: succ_cnt := succ_cnt + 1;
8178: ELSIF l_ret_sts = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
8199: */
8200: IF l_del_rows.count > 0 THEN
8201: --
8202: IF l_debug_on THEN
8203: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
8204: END IF;
8205: --
8206: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
8207: p_entity_type => 'DELIVERY',
8208: p_entity_ids => l_del_rows,
8209: x_return_status => l_return_status);
8210:
8211: IF l_debug_on THEN
8212: WSH_DEBUG_SV.log(l_module_name,'Return status from WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required -',l_return_status);
8213: END IF;
8214: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8215: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8216: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8216: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8217: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8218: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
8219: --IF l_debug_on THEN
8220: -- WSH_DEBUG_SV.pop(l_module_name);
8221: --END IF;
8222: --return; LPN CONV. rv
8223: raise e_return_excp; -- LPN CONV. rv
8224: END IF;
8230: THEN
8231: --{
8232:
8233: IF l_debug_on THEN
8234: 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);
8235: END IF;
8236: --
8237: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8238: (
8241: x_out_rec => l_lpn_out_sync_comm_rec
8242: );
8243: --
8244: IF l_debug_on THEN
8245: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
8246: END IF;
8247: --
8248: WSH_UTIL_CORE.API_POST_CALL
8249: (
8284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8285: END IF;
8286:
8287: IF l_debug_on THEN
8288: WSH_DEBUG_SV.pop(l_module_name);
8289: END IF;
8290:
8291: EXCEPTION
8292: -- LPN CONV. rv
8296: THEN
8297: --{
8298: --
8299: IF l_debug_on THEN
8300: 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);
8301: END IF;
8302: --
8303: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8304: (
8307: x_out_rec => l_lpn_out_sync_comm_rec
8308: );
8309: --
8310: IF l_debug_on THEN
8311: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
8312: END IF;
8313: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8314: x_return_status := l_return_status;
8315: END IF;
8318: --
8319: -- LPN CONV. rv
8320: --
8321: IF l_debug_on THEN
8322: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
8323: END IF;
8324:
8325: WHEN Others THEN
8326: --
8327: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Auto_Pack_Delivery',l_module_name);
8328: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8329:
8330: IF l_debug_on THEN
8331: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS FROM WHEN OTHERS',WSH_DEBUG_SV.C_PROC_LEVEL);
8332: END IF;
8333: --
8334: IF l_debug_on THEN
8335: 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);
8331: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS FROM WHEN OTHERS',WSH_DEBUG_SV.C_PROC_LEVEL);
8332: END IF;
8333: --
8334: IF l_debug_on THEN
8335: 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);
8336: END IF;
8337: --
8338: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8339: THEN
8339: THEN
8340: --{
8341: --
8342: IF l_debug_on THEN
8343: 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);
8344: END IF;
8345: --
8346: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8347: (
8350: x_out_rec => l_lpn_out_sync_comm_rec
8351: );
8352: --
8353: IF l_debug_on THEN
8354: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
8355: END IF;
8356: --}
8357: END IF;
8358: --
8358: --
8359: -- LPN CONV. rv
8360: --
8361: IF l_debug_on THEN
8362: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8363: END IF;
8364: END Auto_Pack_Delivery;
8365:
8366:
8550: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8551: --
8552: IF l_debug_on IS NULL
8553: THEN
8554: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8555: END IF;
8556: --
8557: IF l_debug_on THEN
8558: WSH_DEBUG_SV.push(l_module_name);
8554: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8555: END IF;
8556: --
8557: IF l_debug_on THEN
8558: WSH_DEBUG_SV.push(l_module_name);
8559: --
8560: WSH_DEBUG_SV.log(l_module_name,'P_PACK_MODE',P_PACK_MODE);
8561: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_PC',P_SPLIT_PC);
8562: END IF;
8556: --
8557: IF l_debug_on THEN
8558: WSH_DEBUG_SV.push(l_module_name);
8559: --
8560: WSH_DEBUG_SV.log(l_module_name,'P_PACK_MODE',P_PACK_MODE);
8561: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_PC',P_SPLIT_PC);
8562: END IF;
8563: --
8564: IF p_cont_tab.count = 0 OR p_del_detail_tab.count = 0 THEN
8557: IF l_debug_on THEN
8558: WSH_DEBUG_SV.push(l_module_name);
8559: --
8560: WSH_DEBUG_SV.log(l_module_name,'P_PACK_MODE',P_PACK_MODE);
8561: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_PC',P_SPLIT_PC);
8562: END IF;
8563: --
8564: IF p_cont_tab.count = 0 OR p_del_detail_tab.count = 0 THEN
8565: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
8570: --Bugfix 4070732 {
8571: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8572: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8573: IF l_debug_on THEN
8574: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8575: END IF;
8576:
8577: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8578: x_return_status => l_tmp_return_status);
8578: x_return_status => l_tmp_return_status);
8579:
8580:
8581: IF l_debug_on THEN
8582: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8583: END IF;
8584: /*wsh_util_core.api_post_call
8585: (
8586: p_return_status => l_return_status,
8594: END IF;
8595: END IF;
8596: --}
8597: --IF l_debug_on THEN
8598: -- WSH_DEBUG_SV.pop(l_module_name);
8599: --END IF;
8600: --
8601: --return; LPN CONV. rv
8602: raise e_return_excp; -- LPN CONV. rv
8636: l_det_tab(j).pack_status := 'Unpacked';
8637:
8638: --
8639: IF l_debug_on THEN
8640: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_CREDIT_HOLDS',WSH_DEBUG_SV.C_PROC_LEVEL);
8641: END IF;
8642: --
8643: WSH_DETAILS_VALIDATIONS.Check_Credit_Holds (
8644: l_det_tab(j).delivery_detail_id,
8648: NULL,
8649: 'Y',
8650: x_return_status);
8651: IF l_debug_on THEN
8652: WSH_DEBUG_SV.log(l_module_name,'return status-', x_return_status);
8653: END IF;
8654:
8655: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8656: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8667: --Bugfix 4070732 {
8668: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8669: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8670: IF l_debug_on THEN
8671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8672: END IF;
8673:
8674: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8675: x_return_status => l_tmp_return_status);
8674: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8675: x_return_status => l_tmp_return_status);
8676:
8677: IF l_debug_on THEN
8678: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8679: END IF;
8680:
8681: /* wsh_util_core.api_post_call
8682: (
8693: END IF;
8694: --}
8695: --
8696: --IF l_debug_on THEN
8697: -- WSH_DEBUG_SV.pop(l_module_name);
8698: --END IF;
8699: --
8700: --RETURN; LPN CONV. rv
8701: raise e_return_excp; -- LPN CONV. rv
8713: l_det_pack_sts := 'Unpacked';
8714: i := 1;
8715:
8716: IF l_debug_on THEN
8717: WSH_DEBUG_SV.log(l_module_name,'processing line ' || j || ' detail is ' || l_det_tab(j).delivery_detail_id);
8718: END IF;
8719:
8720: WHILE i <= cont_count LOOP
8721: IF l_cont_tab(i).pack_status = 'Skipped' THEN
8773: x_fill_basis => l_fill_pc_basis,
8774: x_process_flag => l_process_flag);
8775:
8776: IF l_debug_on THEN
8777: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
8778: END IF;
8779:
8780: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8781: --Bugfix 4070732 {
8781: --Bugfix 4070732 {
8782: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
8783: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
8784: IF l_debug_on THEN
8785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
8786: END IF;
8787:
8788: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
8789: x_return_status => l_tmp_return_status);
8789: x_return_status => l_tmp_return_status);
8790:
8791:
8792: IF l_debug_on THEN
8793: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
8794: END IF;
8795:
8796: /*wsh_util_core.api_post_call
8797: (
8821: END IF;
8822: END IF;
8823: --}
8824: --IF l_debug_on THEN
8825: -- WSH_DEBUG_SV.pop(l_module_name);
8826: --END IF;
8827: --RETURN;
8828: raise e_return_excp; -- LPN CONV. rv
8829: END IF;
8896:
8897: IF Get_Cont_Info%NOTFOUND THEN
8898: --
8899: IF l_debug_on THEN
8900: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
8901: END IF;
8902: --
8903: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
8904: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
8922: -- replacing with TPA enabled API..
8923:
8924: --
8925: IF l_debug_on THEN
8926: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
8927: END IF;
8928: --
8929: WSH_TPA_CONTAINER_PKG.Container_Weight_Volume (
8930: l_cont_tab(i).container_instance_id,
8935: 'Y',
8936: l_tmp_fill_pc,
8937: x_return_status);
8938: IF l_debug_on THEN
8939: WSH_DEBUG_SV.log(l_module_name,'return status ' ,x_return_status);
8940: END IF;
8941:
8942: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8943: --dbms_output.put_line('container wt vol error');
8944:
8945: l_cont_tab(i).pack_status := 'Warning';
8946: --
8947: IF l_debug_on THEN
8948: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
8949: END IF;
8950: --
8951: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
8952: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
8985: -- replacing with TPA enabled API..
8986:
8987: --
8988: IF l_debug_on THEN
8989: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.ESTIMATE_DETAIL_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
8990: END IF;
8991: --
8992: WSH_TPA_CONTAINER_PKG.Estimate_Detail_Containers (
8993: l_cont_tab(i).container_instance_id,
8997: l_req_cont_num,
8998: x_return_status);
8999:
9000: IF l_debug_on THEN
9001: WSH_DEBUG_SV.log(l_module_name,'return status ' ,x_return_status);
9002: END IF;
9003: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9004: l_cont_tab(i).pack_status := 'Skipped';
9005: l_det_tab(j).pack_status := 'Error';
9016:
9017: l_tmp_det_tab(1) := l_det_tab(j).delivery_detail_id;
9018:
9019: IF l_debug_on THEN
9020: WSH_DEBUG_SV.log(l_module_name,'assigning detail ' || l_tmp_det_tab(1) || ' to container ' || l_cont_tab(i).container_instance_id);
9021: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
9022: END IF;
9023:
9024: --
9017: l_tmp_det_tab(1) := l_det_tab(j).delivery_detail_id;
9018:
9019: IF l_debug_on THEN
9020: WSH_DEBUG_SV.log(l_module_name,'assigning detail ' || l_tmp_det_tab(1) || ' to container ' || l_cont_tab(i).container_instance_id);
9021: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
9022: END IF;
9023:
9024: --
9025: wsh_container_actions.Assign_Detail (
9027: l_tmp_det_tab,
9028: l_pack_status,
9029: x_return_status,FALSE);
9030: IF l_debug_on THEN
9031: WSH_DEBUG_SV.log(l_module_name,'return status ' ,x_return_status);
9032: END IF;
9033: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9034: --dbms_output.put_line('could not assign');
9035: l_cont_tab(i).pack_status := 'Skipped';
9050:
9051: IF l_fill_status = 'O' THEN
9052: --
9053: IF l_debug_on THEN
9054: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9055: END IF;
9056: --
9057: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9058:
9083: l_tmp_split_qty := ROUND(((l_det_pack_qty*l_cont_avail_pc)/l_req_cont_num),LIMITED_PRECISION);
9084:
9085: --
9086: IF l_debug_on THEN
9087: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
9088: END IF;
9089: --
9090: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
9091: l_det_inv_item_id,
9094: l_det_qty_uom,
9095: l_split_qty,
9096: l_discard_status);
9097: IF l_debug_on THEN
9098: WSH_DEBUG_SV.log(l_module_name,'return status ' ,l_discard_status);
9099: END IF;
9100:
9101: -- bug 1716136: errors likely mean integers are safe values.
9102: IF l_discard_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9121: IF l_split_qty >= 1 THEN
9122:
9123: IF l_det_pack_qty = l_split_qty THEN
9124: IF l_debug_on THEN
9125: WSH_DEBUG_SV.log(l_module_name,'In IF of equal-');
9126: END IF;
9127: l_split_det_id := l_det_tab(j).delivery_detail_id;
9128: IF l_debug_on THEN
9129: WSH_DEBUG_SV.log(l_module_name,'DELIVERY DETAIL id'||l_split_det_id);
9125: WSH_DEBUG_SV.log(l_module_name,'In IF of equal-');
9126: END IF;
9127: l_split_det_id := l_det_tab(j).delivery_detail_id;
9128: IF l_debug_on THEN
9129: WSH_DEBUG_SV.log(l_module_name,'DELIVERY DETAIL id'||l_split_det_id);
9130: END IF;
9131: l_tmp_det_tab(1) := l_split_det_id;
9132: l_tmp_det_count := j;
9133: l_det_pack_sts := 'Packed';
9157: ELSE -- non divisible
9158:
9159: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9160: IF l_debug_on THEN
9161: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9162: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9163: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9164: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9158:
9159: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9160: IF l_debug_on THEN
9161: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9162: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9163: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9164: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9166: END IF;
9159: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9160: IF l_debug_on THEN
9161: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9162: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9163: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9164: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9166: END IF;
9167: --
9160: IF l_debug_on THEN
9161: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9162: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9163: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9164: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9166: END IF;
9167: --
9168:
9161: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9162: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9163: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9164: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9166: END IF;
9167: --
9168:
9169: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details (
9175: p_manual_split => 'C'
9176: );
9177: --dbms_output.put_line('...split detail id ' || l_split_det_id);
9178: IF l_debug_on THEN
9179: WSH_DEBUG_SV.log(l_module_name,'return status,split det id -',x_return_status||l_split_det_id);
9180: END IF;
9181:
9182: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9183: --dbms_output.put_line('error in splitting');
9202:
9203: END IF;
9204: --
9205: IF l_debug_on THEN
9206: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
9207: END IF;
9208: --
9209: wsh_container_actions.Assign_Detail (
9210: l_cont_tab(i).container_instance_id,
9212: l_pack_status,
9213: x_return_status,FALSE);
9214:
9215: IF l_debug_on THEN
9216: WSH_DEBUG_SV.log(l_module_name,'return status -',x_return_status);
9217: END IF;
9218:
9219: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9220: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9294:
9295: FOR j IN 1..det_count LOOP
9296:
9297: IF l_debug_on THEN
9298: WSH_DEBUG_SV.log(l_module_name,'===========================================');
9299: WSH_DEBUG_SV.log(l_module_name,'pack mode E: processing detail ' || l_det_tab(j).delivery_detail_id);
9300: END IF;
9301:
9302: OPEN Get_Detail_Info (l_det_tab(j).delivery_detail_id);
9295: FOR j IN 1..det_count LOOP
9296:
9297: IF l_debug_on THEN
9298: WSH_DEBUG_SV.log(l_module_name,'===========================================');
9299: WSH_DEBUG_SV.log(l_module_name,'pack mode E: processing detail ' || l_det_tab(j).delivery_detail_id);
9300: END IF;
9301:
9302: OPEN Get_Detail_Info (l_det_tab(j).delivery_detail_id);
9303:
9359: l_tmp_split_qty := ROUND((l_split_pc*l_det_pack_qty/100),LIMITED_PRECISION);
9360:
9361: --
9362: IF l_debug_on THEN
9363: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
9364: END IF;
9365: --
9366: WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity (
9367: l_det_inv_item_id,
9371: l_split_qty,
9372: l_discard_status);
9373:
9374: IF l_debug_on THEN
9375: WSH_DEBUG_SV.log(l_module_name,'return status-',l_discard_status);
9376: END IF;
9377:
9378: -- bug 1716136: errors likely mean integers are safe values.
9379: IF l_discard_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9396:
9397: FOR i IN 1..cont_count LOOP
9398:
9399: IF l_debug_on THEN
9400: WSH_DEBUG_SV.log(l_module_name,'----- packing into container ' || l_cont_tab(i).container_instance_id);
9401: 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);
9402: END IF;
9403: --dbms_output.put_line('l_tmp_det_qty = ' || l_tmp_det_qty);
9404: --dbms_output.put_line('l_det_pack_qty = ' || l_det_pack_qty);
9397: FOR i IN 1..cont_count LOOP
9398:
9399: IF l_debug_on THEN
9400: WSH_DEBUG_SV.log(l_module_name,'----- packing into container ' || l_cont_tab(i).container_instance_id);
9401: 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);
9402: END IF;
9403: --dbms_output.put_line('l_tmp_det_qty = ' || l_tmp_det_qty);
9404: --dbms_output.put_line('l_det_pack_qty = ' || l_det_pack_qty);
9405: --dbms_output.put_line('l_split_qty = ' || l_split_qty);
9423:
9424: IF Get_Cont_Info%NOTFOUND THEN
9425: --
9426: IF l_debug_on THEN
9427: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9428: END IF;
9429: --
9430: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9431: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
9476: ELSE -- non divisible
9477: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9478:
9479: IF l_debug_on THEN
9480: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9481: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9482: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9483: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9484: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9477: l_split_qty2 := (l_split_qty * l_det_pack_qty2)/l_det_pack_qty;
9478:
9479: IF l_debug_on THEN
9480: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9481: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9482: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9483: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9484: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9485: END IF;
9478:
9479: IF l_debug_on THEN
9480: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9481: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9482: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9483: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9484: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9485: END IF;
9486:
9479: IF l_debug_on THEN
9480: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9481: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9482: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9483: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9484: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9485: END IF;
9486:
9487: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details (
9480: WSH_DEBUG_SV.log(l_module_name,'l_split_qty',l_split_qty);
9481: WSH_DEBUG_SV.log(l_module_name,'l_split_qty2',l_split_qty2);
9482: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty2',l_det_pack_qty2);
9483: WSH_DEBUG_SV.log(l_module_name,'l_det_pack_qty',l_det_pack_qty);
9484: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
9485: END IF;
9486:
9487: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details (
9488: p_from_detail_id => l_det_tab(j).delivery_detail_id,
9492: x_return_status => x_return_status,
9493: p_manual_split => 'C'
9494: );
9495: IF l_debug_on THEN
9496: WSH_DEBUG_SV.log(l_module_name,'return status',x_return_status);
9497: END IF;
9498: --dbms_output.put_line('...split detail id ' || l_split_det_id);
9499:
9500: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9538: --dbms_output.put_line('* * * ASSIGNING detail ' || l_tmp_det_tab(1) || ' to container ' || l_cont_tab(i).container_instance_id);
9539:
9540: --
9541: IF l_debug_on THEN
9542: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
9543: END IF;
9544: --
9545: wsh_container_actions.Assign_Detail (
9546: l_cont_tab(i).container_instance_id,
9548: l_pack_status,
9549: x_return_status,FALSE);
9550:
9551: IF l_debug_on THEN
9552: WSH_DEBUG_SV.log(l_module_name,'return status',x_return_status);
9553: END IF;
9554:
9555: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9556: --dbms_output.put_line('error in assigning details for ' || l_tmp_det_tab(1));
9600: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NO_MATCH');
9601: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_det_tab(j).delivery_detail_id);
9602: --
9603: IF l_debug_on THEN
9604: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9605: END IF;
9606: --
9607: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9608: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9637: --Bugfix 4070732 {
9638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9640: IF l_debug_on THEN
9641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9642: END IF;
9643:
9644: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9645: x_return_status => l_tmp_return_status);
9645: x_return_status => l_tmp_return_status);
9646:
9647:
9648: IF l_debug_on THEN
9649: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9650: END IF;
9651:
9652: /*wsh_util_core.api_post_call
9653: (
9663: END IF;
9664: --}
9665: --
9666: --IF l_debug_on THEN
9667: -- WSH_DEBUG_SV.pop(l_module_name);
9668: --END IF;
9669: --
9670: --return;
9671: raise e_return_excp; -- LPN CONV. rv
9726: --Bugfix 4070732 {
9727: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9728: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9729: IF l_debug_on THEN
9730: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9731: END IF;
9732:
9733: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9734: x_return_status => l_tmp_return_status);
9734: x_return_status => l_tmp_return_status);
9735:
9736:
9737: IF l_debug_on THEN
9738: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9739: END IF;
9740:
9741: /*wsh_util_core.api_post_call
9742: (
9752: END IF;
9753: --}
9754: --
9755: --IF l_debug_on THEN
9756: -- WSH_DEBUG_SV.pop(l_module_name);
9757: --END IF;
9758: --
9759: --return;
9760: raise e_return_excp; -- LPN CONV. rv
9766: */
9767: IF l_detail_rows.count > 0 THEN
9768: --
9769: IF l_debug_on THEN
9770: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
9771: END IF;
9772: --
9773: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
9774: p_entity_type => 'DELIVERY_DETAIL',
9775: p_entity_ids => l_detail_rows,
9776: x_return_status => l_return_status);
9777:
9778: IF l_debug_on THEN
9779: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
9780: END IF;
9781: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9782: x_return_status := l_return_status;
9783: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9786: --Bugfix 4070732 {
9787: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9788: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9789: IF l_debug_on THEN
9790: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9791: END IF;
9792:
9793: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
9794: x_return_status => l_tmp_return_status);
9794: x_return_status => l_tmp_return_status);
9795:
9796:
9797: IF l_debug_on THEN
9798: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9799: END IF;
9800:
9801: /*wsh_util_core.api_post_call
9802: (
9824: END IF;
9825: END IF;
9826: --}
9827: --IF l_debug_on THEN
9828: -- WSH_DEBUG_SV.pop(l_module_name);
9829: --END IF;
9830: --
9831: --return;
9832: raise e_return_excp; -- LPN CONV. rv
9843: cont_err := cont_err + 1;
9844: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NOT_PACKED');
9845: --
9846: IF l_debug_on THEN
9847: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9848: END IF;
9849: --
9850: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9851: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9854: cont_warn := cont_warn + 1;
9855: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
9856: --
9857: IF l_debug_on THEN
9858: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9859: END IF;
9860: --
9861: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9862: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9868: cont_warn := cont_warn + 1;
9869: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
9870: --
9871: IF l_debug_on THEN
9872: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9873: END IF;
9874: --
9875: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9876: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9882: cont_warn := cont_warn + 1;
9883: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
9884: --
9885: IF l_debug_on THEN
9886: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9887: END IF;
9888: --
9889: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_tab(i).container_instance_id);
9890: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
9905: THEN
9906: --{
9907:
9908: IF l_debug_on THEN
9909: 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);
9910: END IF;
9911: --
9912: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
9913: (
9916: x_out_rec => l_lpn_out_sync_comm_rec
9917: );
9918: --
9919: IF l_debug_on THEN
9920: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
9921: END IF;
9922: --
9923: WSH_UTIL_CORE.API_POST_CALL
9924: (
9967: --Bugfix 4070732 {
9968: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
9969: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
9970: IF l_debug_on THEN
9971: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
9972: END IF;
9973:
9974: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
9975: x_return_status => l_tmp_return_status);
9973:
9974: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
9975: x_return_status => l_tmp_return_status);
9976: IF l_debug_on THEN
9977: WSH_DEBUG_SV.log(l_module_name,'l_tmp_return_status',l_tmp_return_status);
9978: END IF;
9979:
9980: /*wsh_util_core.api_post_call
9981: (
10006: --}
10007:
10008: --
10009: IF l_debug_on THEN
10010: WSH_DEBUG_SV.pop(l_module_name);
10011: END IF;
10012: --
10013: EXCEPTION
10014: -- LPN CONV. rv
10015: WHEN e_return_excp THEN
10016: --
10017: --
10018: IF l_debug_on THEN
10019: 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);
10020: END IF;
10021: --
10022: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
10023: THEN
10023: THEN
10024: --{
10025: --
10026: IF l_debug_on THEN
10027: 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);
10028: END IF;
10029: --
10030: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
10031: (
10034: x_out_rec => l_lpn_out_sync_comm_rec
10035: );
10036: --
10037: IF l_debug_on THEN
10038: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
10039: END IF;
10040: --
10041: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
10042: x_return_status := l_return_status;
10047: -- LPN CONV. rv
10048: --
10049: --
10050: IF l_debug_on THEN
10051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
10052: END IF;
10053: WHEN Others THEN
10054: --
10055: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Multi',l_module_name);
10055: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Pack_Multi',l_module_name);
10056: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10057: --
10058: IF l_debug_on THEN
10059: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10060: END IF;
10061: --
10062: -- LPN CONV. rv
10063: IF l_debug_on THEN
10060: END IF;
10061: --
10062: -- LPN CONV. rv
10063: IF l_debug_on THEN
10064: 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);
10065: END IF;
10066: --
10067: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
10068: THEN
10068: THEN
10069: --{
10070: --
10071: IF l_debug_on THEN
10072: 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);
10073: END IF;
10074: --
10075: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
10076: (
10079: x_out_rec => l_lpn_out_sync_comm_rec
10080: );
10081: --
10082: IF l_debug_on THEN
10083: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
10084: END IF;
10085: --}
10086: END IF;
10087: --
10091: --Bugfix 4070732 {
10092: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
10093: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
10094: IF l_debug_on THEN
10095: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
10096: END IF;
10097:
10098: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
10099: x_return_status => l_return_status);
10099: x_return_status => l_return_status);
10100:
10101:
10102: IF l_debug_on THEN
10103: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
10104: END IF;
10105:
10106: /*wsh_util_core.api_post_call
10107: (
10114: END IF;
10115: --}
10116: --
10117: IF l_debug_on THEN
10118: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10119: END IF;
10120: --
10121: END Pack_Multi;
10122:
10168: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10169: --
10170: IF l_debug_on IS NULL
10171: THEN
10172: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10173: END IF;
10174: --
10175: IF l_debug_on THEN
10176: WSH_DEBUG_SV.push(l_module_name);
10172: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10173: END IF;
10174: --
10175: IF l_debug_on THEN
10176: WSH_DEBUG_SV.push(l_module_name);
10177: --
10178: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
10179: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_DETAIL_ID',P_SPLIT_DETAIL_ID);
10180: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QTY',P_SPLIT_QTY);
10174: --
10175: IF l_debug_on THEN
10176: WSH_DEBUG_SV.push(l_module_name);
10177: --
10178: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
10179: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_DETAIL_ID',P_SPLIT_DETAIL_ID);
10180: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QTY',P_SPLIT_QTY);
10181: END IF;
10182: --
10175: IF l_debug_on THEN
10176: WSH_DEBUG_SV.push(l_module_name);
10177: --
10178: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
10179: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_DETAIL_ID',P_SPLIT_DETAIL_ID);
10180: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QTY',P_SPLIT_QTY);
10181: END IF;
10182: --
10183: IF p_split_detail_id IS NULL THEN
10176: WSH_DEBUG_SV.push(l_module_name);
10177: --
10178: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
10179: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_DETAIL_ID',P_SPLIT_DETAIL_ID);
10180: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QTY',P_SPLIT_QTY);
10181: END IF;
10182: --
10183: IF p_split_detail_id IS NULL THEN
10184: -- nothing split, ergo nothing to update...
10184: -- nothing split, ergo nothing to update...
10185: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10186: --
10187: IF l_debug_on THEN
10188: WSH_DEBUG_SV.pop(l_module_name);
10189: END IF;
10190: --
10191: return;
10192: END IF;
10202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10203: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10204: --
10205: IF l_debug_on THEN
10206: WSH_DEBUG_SV.pop(l_module_name);
10207: END IF;
10208: --
10209: return;
10210: END IF;
10216: IF l_shp_qty = -99 THEN
10217: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10218: --
10219: IF l_debug_on THEN
10220: WSH_DEBUG_SV.pop(l_module_name);
10221: END IF;
10222: --
10223: return;
10224: END IF;
10237: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10238: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10239: --
10240: IF l_debug_on THEN
10241: WSH_DEBUG_SV.pop(l_module_name);
10242: END IF;
10243: --
10244: return;
10245: END IF;
10264: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10265: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10266: --
10267: IF l_debug_on THEN
10268: WSH_DEBUG_SV.pop(l_module_name);
10269: END IF;
10270: --
10271: return;
10272: END IF;
10281: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10282: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
10283: --
10284: IF l_debug_on THEN
10285: WSH_DEBUG_SV.pop(l_module_name);
10286: END IF;
10287: --
10288: return;
10289: END IF;
10292:
10293:
10294: --
10295: IF l_debug_on THEN
10296: WSH_DEBUG_SV.pop(l_module_name);
10297: END IF;
10298: --
10299: EXCEPTION
10300:
10303: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10304:
10305: --
10306: IF l_debug_on THEN
10307: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10308: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10309: END IF;
10310: --
10311: END Update_Shipped_Qty;
10304:
10305: --
10306: IF l_debug_on THEN
10307: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10308: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10309: END IF;
10310: --
10311: END Update_Shipped_Qty;
10312:
10344: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10345: --
10346: IF l_debug_on IS NULL
10347: THEN
10348: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10349: END IF;
10350: --
10351: IF l_debug_on THEN
10352: WSH_DEBUG_SV.push(l_module_name);
10348: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10349: END IF;
10350: --
10351: IF l_debug_on THEN
10352: WSH_DEBUG_SV.push(l_module_name);
10353: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10354: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10355: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10356: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10349: END IF;
10350: --
10351: IF l_debug_on THEN
10352: WSH_DEBUG_SV.push(l_module_name);
10353: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10354: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10355: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10356: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10357: END IF;
10350: --
10351: IF l_debug_on THEN
10352: WSH_DEBUG_SV.push(l_module_name);
10353: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10354: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10355: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10356: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10357: END IF;
10358: --
10351: IF l_debug_on THEN
10352: WSH_DEBUG_SV.push(l_module_name);
10353: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10354: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10355: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10356: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10357: END IF;
10358: --
10359: l_quantity_left := p_line_cont_rec.shp_qty;
10352: WSH_DEBUG_SV.push(l_module_name);
10353: WSH_DEBUG_SV.log(l_module_name,'shp_qty',p_line_cont_rec.shp_qty);
10354: WSH_DEBUG_SV.log(l_module_name,'preferred_container',p_line_cont_rec.preferred_container);
10355: WSH_DEBUG_SV.log(l_module_name,'organization_id',p_line_cont_rec.organization_id);
10356: WSH_DEBUG_SV.log(l_module_name,'group_id',p_line_cont_rec.group_id);
10357: END IF;
10358: --
10359: l_quantity_left := p_line_cont_rec.shp_qty;
10360:
10500: END IF;
10501: x_return_status := C_SUCCESS_STATUS;
10502: --
10503: IF l_debug_on THEN
10504: WSH_DEBUG_SV.pop(l_module_name);
10505: END IF;
10506: --
10507: RETURN;
10508:
10507: RETURN;
10508:
10509: --
10510: IF l_debug_on THEN
10511: WSH_DEBUG_SV.pop(l_module_name);
10512: END IF;
10513: --
10514: EXCEPTION
10515: WHEN Others THEN
10517: x_return_status := C_UNEXP_ERROR_STATUS;
10518:
10519: --
10520: IF l_debug_on THEN
10521: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10522: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10523: END IF;
10524: --
10525: END Pack_Container;
10518:
10519: --
10520: IF l_debug_on THEN
10521: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10522: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10523: END IF;
10524: --
10525: END Pack_Container;
10526:
10623: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10624: --
10625: IF l_debug_on IS NULL
10626: THEN
10627: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10628: END IF;
10629: --
10630: IF l_debug_on THEN
10631: WSH_DEBUG_SV.push(l_module_name);
10627: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10628: END IF;
10629: --
10630: IF l_debug_on THEN
10631: WSH_DEBUG_SV.push(l_module_name);
10632: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10633: WSH_DEBUG_SV.log(l_module_name,'In Validate_Container_For_Pack...');
10634: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10635: END IF;
10628: END IF;
10629: --
10630: IF l_debug_on THEN
10631: WSH_DEBUG_SV.push(l_module_name);
10632: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10633: WSH_DEBUG_SV.log(l_module_name,'In Validate_Container_For_Pack...');
10634: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10635: END IF;
10636: --
10629: --
10630: IF l_debug_on THEN
10631: WSH_DEBUG_SV.push(l_module_name);
10632: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10633: WSH_DEBUG_SV.log(l_module_name,'In Validate_Container_For_Pack...');
10634: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10635: END IF;
10636: --
10637: l_last_organization_id := NULL;
10630: IF l_debug_on THEN
10631: WSH_DEBUG_SV.push(l_module_name);
10632: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10633: WSH_DEBUG_SV.log(l_module_name,'In Validate_Container_For_Pack...');
10634: WSH_DEBUG_SV.log(l_module_name,'---------------------------------');
10635: END IF;
10636: --
10637: l_last_organization_id := NULL;
10638: l_dd_count := 0;
10689: x_return_status => l_return_status,
10690: x_fill_basis => l_fill_pc_basis,
10691: x_process_flag => l_process_flag);
10692: IF l_debug_on THEN
10693: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10694: END IF;
10695: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10696: error_cnt := error_cnt + 1;
10697: goto next_cont;
10732: x_error_cnt => l_error_cnt,
10733: x_cont_item_id => l_wcl_cont_item_id,
10734: x_max_load_qty => l_max_load_qty);
10735: IF l_debug_on THEN
10736: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10737: END IF;
10738: IF (l_return_status = C_ERROR_STATUS) THEN
10739: error_cnt := error_cnt + l_error_cnt;
10740: END IF;
10780: -- Calculate max load qty depending on Weight/Volume
10781: IF (line_cont_rec.gross_weight IS NULL OR line_cont_rec.volume IS NULL) THEN
10782: --
10783: IF l_debug_on THEN
10784: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
10785: END IF;
10786: --
10787: -- J: W/V Changes
10788: WSH_WV_UTILS.Container_Weight_Volume(
10797: x_cont_fill_pc => l_cont_fill_pc,
10798: x_return_status => l_return_status);
10799:
10800: IF l_debug_on THEN
10801: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10802: END IF;
10803: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10804: --dbms_output.put_line('WSH_TPA_CONTAINER_PKG.Container_Weight_Volume did not return success');
10805: --
10803: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10804: --dbms_output.put_line('WSH_TPA_CONTAINER_PKG.Container_Weight_Volume did not return success');
10805: --
10806: IF l_debug_on THEN
10807: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
10808: END IF;
10809: --
10810: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(line_cont_rec.delivery_detail_id);
10811: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
10844: x_vol_uom => l_mtl_vol_uom,
10845: x_return_status => l_return_status,
10846: x_error_cnt => l_error_cnt);
10847: IF l_debug_on THEN
10848: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10849: END IF;
10850: IF (l_return_status = C_ERROR_STATUS) THEN
10851: error_cnt := error_cnt + l_error_cnt;
10852: END IF;
10858:
10859: IF (l_mtl_wt_uom <> line_cont_rec.weight_uom) THEN
10860: --
10861: IF l_debug_on THEN
10862: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
10863: END IF;
10864: --
10865: l_dd_gross_wt := WSH_WV_UTILS.Convert_Uom (
10866: from_uom => line_cont_rec.weight_uom,
10873:
10874: IF (l_mtl_vol_uom <> line_cont_rec.volume_uom) THEN
10875: --
10876: IF l_debug_on THEN
10877: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
10878: END IF;
10879: --
10880: l_dd_volume := WSH_WV_UTILS.Convert_Uom (
10881: from_uom => line_cont_rec.volume_uom,
10916: IF ((line_cont_rec.gross_weight IS NULL AND line_cont_rec.fill_pc_basis = 'W') OR
10917: (line_cont_rec.volume IS NULL AND line_cont_rec.fill_pc_basis = 'V')) THEN
10918: --
10919: IF l_debug_on THEN
10920: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
10921: END IF;
10922: --
10923: -- J: W/V Changes
10924: WSH_WV_UTILS.Container_Weight_Volume(
10933: x_cont_fill_pc => l_cont_fill_pc,
10934: x_return_status => l_return_status);
10935:
10936: IF l_debug_on THEN
10937: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
10938: END IF;
10939: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10940: --dbms_output.put_line('WSH_TPA_CONTAINER_PKG.Container_Weight_Volume did not return success');
10941: --
10939: IF (l_return_status <> C_SUCCESS_STATUS) THEN
10940: --dbms_output.put_line('WSH_TPA_CONTAINER_PKG.Container_Weight_Volume did not return success');
10941: --
10942: IF l_debug_on THEN
10943: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
10944: END IF;
10945: --
10946: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(line_cont_rec.delivery_detail_id);
10947: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
11001: x_vol_uom => l_mtl_vol_uom,
11002: x_return_status => l_return_status,
11003: x_error_cnt => l_error_cnt);
11004: IF l_debug_on THEN
11005: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
11006: END IF;
11007: IF (l_return_status = C_ERROR_STATUS) THEN
11008: error_cnt := error_cnt + l_error_cnt;
11009: END IF;
11018:
11019: IF (l_mtl_wt_uom <> line_cont_rec.weight_uom) THEN
11020: --
11021: IF l_debug_on THEN
11022: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
11023: END IF;
11024: --
11025: l_dd_net_wt := WSH_WV_UTILS.Convert_Uom (
11026: from_uom => line_cont_rec.weight_uom,
11044:
11045: IF (l_mtl_vol_uom <> line_cont_rec.volume_uom) THEN
11046: --
11047: IF l_debug_on THEN
11048: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
11049: END IF;
11050: --
11051: l_dd_volume := WSH_WV_UTILS.Convert_Uom (
11052: from_uom => line_cont_rec.volume_uom,
11091: x_line_cont_tab := line_cont_tab;
11092: x_fill_pc_warn_cnt := fill_pc_warn_cnt; -- bug 3562797 jckwok
11093:
11094: IF l_debug_on THEN
11095: 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);
11096: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| error_cnt||' Warning Count '|| warn_cnt);
11097: WSH_DEBUG_SV.pop(l_module_name);
11098: END IF;
11099:
11092: x_fill_pc_warn_cnt := fill_pc_warn_cnt; -- bug 3562797 jckwok
11093:
11094: IF l_debug_on THEN
11095: 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);
11096: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| error_cnt||' Warning Count '|| warn_cnt);
11097: WSH_DEBUG_SV.pop(l_module_name);
11098: END IF;
11099:
11100: RETURN;
11093:
11094: IF l_debug_on THEN
11095: 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);
11096: WSH_DEBUG_SV.log(l_module_name,'Error Count '|| error_cnt||' Warning Count '|| warn_cnt);
11097: WSH_DEBUG_SV.pop(l_module_name);
11098: END IF;
11099:
11100: RETURN;
11101:
11109: END IF;
11110: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Container_For_Pack',l_module_name);
11111: --
11112: IF l_debug_on THEN
11113: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11114: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11115: END IF;
11116: --
11117: raise;
11110: WSH_UTIL_CORE.Default_Handler('WSH_CONTAINER_ACTIONS.Validate_Container_For_Pack',l_module_name);
11111: --
11112: IF l_debug_on THEN
11113: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11114: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11115: END IF;
11116: --
11117: raise;
11118:
11230: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11231: --
11232: IF l_debug_on IS NULL
11233: THEN
11234: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11235: END IF;
11236: --
11237: IF l_debug_on THEN
11238: WSH_DEBUG_SV.push(l_module_name);
11234: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11235: END IF;
11236: --
11237: IF l_debug_on THEN
11238: WSH_DEBUG_SV.push(l_module_name);
11239: END IF;
11240: --
11241: g_empty_cont_tab.DELETE;
11242: g_assign_detail_tab.DELETE;
11254: x_return_status := C_ERROR_STATUS;
11255: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11256: --
11257: IF l_debug_on THEN
11258: WSH_DEBUG_SV.pop(l_module_name);
11259: END IF;
11260: --
11261: return;
11262: END IF;
11269:
11270: --dbms_output.put_line('Calling WSH_DELIVERY_AUTOCREATE.autocreate_deliveries to generate group_ids');
11271: --
11272: IF l_debug_on THEN
11273: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
11274: END IF;
11275: --
11276: l_attr_tab.delete;
11277: FOR i in 1..p_cont_detail_tab.count LOOP
11295:
11296:
11297:
11298: IF l_debug_on THEN
11299: WSH_DEBUG_SV.log(l_module_name,'return status', l_return_status);
11300: END IF;
11301: IF (l_return_status = C_ERROR_STATUS) OR
11302: (l_return_status = C_UNEXP_ERROR_STATUS) THEN
11303: --dbms_output.put_line('WSH_DELIVERY_AUTOCREATE.autocreate_deliveries returned '||l_return_status);
11305: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
11306: x_return_status := l_return_status;
11307: --
11308: IF l_debug_on THEN
11309: WSH_DEBUG_SV.pop(l_module_name);
11310: END IF;
11311: --
11312: return;
11313: END IF;
11321: FND_MESSAGE.SET_NAME('WSH','WSH_GROUP_DETAILS_ERROR');
11322: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11323: --
11324: IF l_debug_on THEN
11325: WSH_DEBUG_SV.pop(l_module_name);
11326: END IF;
11327: --
11328: return;
11329: ELSE
11348: x_fill_pc_warn_cnt => l_fill_pc_warn_count -- bug 3562797 jckwok
11349: );
11350:
11351: IF l_debug_on THEN
11352: WSH_DEBUG_SV.log(l_module_name,'after validate container for pack-error,warning', error_cnt||','||warn_cnt);
11353: END IF;
11354: --
11355: -- bug 3562797 jckwok
11356: -- Raise Error if all containers have 'Shipping Parameter' percent fill basis as None
11361: x_return_status := C_ERROR_STATUS;
11362: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_NONE');
11363: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11364: IF l_debug_on THEN
11365: WSH_DEBUG_SV.pop(l_module_name);
11366: END IF;
11367: RETURN;
11368: ELSIF (l_fill_pc_warn_count > 0) THEN
11369: IF (l_return_status <> C_ERROR_STATUS) THEN
11383: WHILE (cnt <= line_cont_tab.COUNT) LOOP
11384:
11385: --dbms_output.put_line('======================================================');
11386: IF l_debug_on THEN
11387: 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);
11388: END IF;
11389:
11390: IF (l_last_organization_id is NULL) THEN
11391: l_last_organization_id := line_cont_tab(cnt).organization_id;
11418:
11419: --
11420: -- K LPN CONV. rv
11421: IF l_debug_on THEN
11422: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CREATE_CONT_INSTANCE_MULTI',WSH_DEBUG_SV.C_PROC_LEVEL);
11423: END IF;
11424: --
11425: WSH_CONTAINER_ACTIONS.Create_Cont_Instance_Multi(
11426: x_cont_name => l_cont_name,
11440: p_lpn_id => NULL,
11441: p_ignore_for_planning => NULL,
11442: p_caller => 'WSH_AUTO_PACK_CONTS');
11443: IF l_debug_on THEN
11444: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
11445: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
11446: END IF;
11447: -- K LPN CONV. rv
11448:
11441: p_ignore_for_planning => NULL,
11442: p_caller => 'WSH_AUTO_PACK_CONTS');
11443: IF l_debug_on THEN
11444: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
11445: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
11446: END IF;
11447: -- K LPN CONV. rv
11448:
11449: IF l_return_status <> C_SUCCESS_STATUS THEN
11467: cnt := 1;
11468: WHILE (cnt <= g_assign_detail_tab.COUNT) LOOP
11469: l_cont_instance_id := g_new_container_tab(g_assign_detail_tab(cnt).container_index).cont_instance_id;
11470: IF l_debug_on THEN
11471: 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);
11472: END IF;
11473:
11474: --
11475: -- K LPN CONV. rv
11488: --update the container's ignore value with the first line's ignore
11489: --since grouping will have already sorted out lines with diff ignore, this shud be okay
11490: FOR cur IN c_get_detail(g_assign_detail_tab(cnt).delivery_detail_id) LOOP
11491: IF l_debug_on THEN
11492: WSH_DEBUG_SV.log(l_module_name,'ignore_for_planning',cur.ignore_for_planning);
11493: END IF;
11494: --
11495: -- K LPN CONV. rv
11496: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
11511: x_return_status => l_return_status
11512: );
11513:
11514: IF l_debug_on THEN
11515: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
11516: END IF;
11517: --
11518: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11519: --
11522: ELSE
11523: --
11524: error_cnt := error_cnt + 1;
11525: IF l_debug_on THEN
11526: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
11527: END IF;
11528: --
11529: END IF;
11530: --
11538:
11539: IF SQL%NOTFOUND THEN
11540: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
11541: IF l_debug_on THEN
11542: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
11543: END IF;
11544: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_cont_instance_id);
11545: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11546: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11545: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11546: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11547: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11548: IF l_debug_on THEN
11549: WSH_DEBUG_SV.pop(l_module_name);
11550: END IF;
11551: return;
11552: END IF;
11553: END LOOP;
11554:
11555: IF (l_cont_instance_id is NOT NULL) THEN
11556: --
11557: IF l_debug_on THEN
11558: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.ASSIGN_TO_CONTAINER',WSH_DEBUG_SV.C_PROC_LEVEL);
11559: END IF;
11560: --
11561: wsh_container_actions.Assign_To_Container (
11562: p_det_cont_inst_id => g_assign_detail_tab(cnt).delivery_detail_id,
11562: p_det_cont_inst_id => g_assign_detail_tab(cnt).delivery_detail_id,
11563: p_par_cont_inst_id => l_cont_instance_id,
11564: x_return_status => l_return_status);
11565: IF l_debug_on THEN
11566: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
11567: END IF;
11568:
11569: --dbms_output.put_line('WSH_CONTAINER_ACTIONS.Assign_To_Container returned '||l_return_status);
11570: IF l_return_status = C_ERROR_STATUS THEN
11582:
11583: END IF; -- line_cont_tab.COUNT > 0
11584:
11585: IF l_debug_on THEN
11586: WSH_DEBUG_SV.log(l_module_name,'error cnt is ' || error_cnt || ' warn cnt is ' || warn_cnt|| ' succ cnt is ' || succ_cnt);
11587: END IF;
11588:
11589: -- 90.1 Summarize errors/warnings
11590: IF (error_cnt > 0) THEN
11611: END IF;
11612:
11613: --
11614: IF l_debug_on THEN
11615: WSH_DEBUG_SV.pop(l_module_name);
11616: END IF;
11617: --
11618: RETURN;
11619:
11618: RETURN;
11619:
11620: --
11621: IF l_debug_on THEN
11622: WSH_DEBUG_SV.pop(l_module_name);
11623: END IF;
11624: --
11625: EXCEPTION
11626: WHEN Others THEN
11628: x_return_status := C_UNEXP_ERROR_STATUS;
11629:
11630: --
11631: IF l_debug_on THEN
11632: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11633: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11634: END IF;
11635: --
11636: END Auto_Pack_conts;
11629:
11630: --
11631: IF l_debug_on THEN
11632: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11633: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11634: END IF;
11635: --
11636: END Auto_Pack_conts;
11637:
11729: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11730: --
11731: IF l_debug_on IS NULL
11732: THEN
11733: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11734: END IF;
11735: --
11736: IF l_debug_on THEN
11737: WSH_DEBUG_SV.push(l_module_name);
11733: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11734: END IF;
11735: --
11736: IF l_debug_on THEN
11737: WSH_DEBUG_SV.push(l_module_name);
11738: --
11739: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
11740: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
11741: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11735: --
11736: IF l_debug_on THEN
11737: WSH_DEBUG_SV.push(l_module_name);
11738: --
11739: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
11740: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
11741: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11742: END IF;
11743: --
11736: IF l_debug_on THEN
11737: WSH_DEBUG_SV.push(l_module_name);
11738: --
11739: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
11740: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
11741: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11742: END IF;
11743: --
11744: IF p_delivery_detail_id IS NOT NULL THEN
11737: WSH_DEBUG_SV.push(l_module_name);
11738: --
11739: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
11740: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
11741: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
11742: END IF;
11743: --
11744: IF p_delivery_detail_id IS NOT NULL THEN
11745:
11773: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11774: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11775: --
11776: IF l_debug_on THEN
11777: WSH_DEBUG_SV.pop(l_module_name);
11778: END IF;
11779: --
11780: return;
11781: END IF;
11815: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11816: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11817: --
11818: IF l_debug_on THEN
11819: WSH_DEBUG_SV.pop(l_module_name);
11820: END IF;
11821: --
11822: return;
11823: END IF;
11831: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11832: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11833: --
11834: IF l_debug_on THEN
11835: WSH_DEBUG_SV.pop(l_module_name);
11836: END IF;
11837: --
11838: return;
11839:
11868: x_return_status => l_return_status
11869: );
11870:
11871: IF l_debug_on THEN
11872: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
11873: END IF;
11874: --
11875: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
11876: --
11876: --
11877: x_return_status := l_return_status;
11878: --
11879: IF l_debug_on THEN
11880: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
11881: WSH_DEBUG_SV.pop(l_module_name);
11882: END IF;
11883: --
11884: return;
11877: x_return_status := l_return_status;
11878: --
11879: IF l_debug_on THEN
11880: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
11881: WSH_DEBUG_SV.pop(l_module_name);
11882: END IF;
11883: --
11884: return;
11885: --
11926: --dbms_output.put_line('could not update container ' || p_container_instance_id);
11927: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
11928: --
11929: IF l_debug_on THEN
11930: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
11931: END IF;
11932: --
11933: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
11934: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
11935: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11936: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
11937: --
11938: IF l_debug_on THEN
11939: WSH_DEBUG_SV.pop(l_module_name);
11940: END IF;
11941: --
11942: return;
11943: END IF;
11950:
11951:
11952: --
11953: IF l_debug_on THEN
11954: WSH_DEBUG_SV.pop(l_module_name);
11955: END IF;
11956: --
11957: EXCEPTION
11958:
11961: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11962:
11963: --
11964: IF l_debug_on THEN
11965: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11966: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11967: END IF;
11968: --
11969: END Update_Cont_Attributes;
11962:
11963: --
11964: IF l_debug_on THEN
11965: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11966: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11967: END IF;
11968: --
11969: END Update_Cont_Attributes;
11970:
12026: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12027: --
12028: IF l_debug_on IS NULL
12029: THEN
12030: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12031: END IF;
12032: --
12033: IF l_debug_on THEN
12034: WSH_DEBUG_SV.push(l_module_name);
12030: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12031: END IF;
12032: --
12033: IF l_debug_on THEN
12034: WSH_DEBUG_SV.push(l_module_name);
12035: --
12036: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12037: END IF;
12038: --
12032: --
12033: IF l_debug_on THEN
12034: WSH_DEBUG_SV.push(l_module_name);
12035: --
12036: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12037: END IF;
12038: --
12039: OPEN Get_Detail_Attr (p_container_instance_id);
12040:
12057: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12058: x_attr_flag := 'N';
12059: --
12060: IF l_debug_on THEN
12061: WSH_DEBUG_SV.pop(l_module_name);
12062: END IF;
12063: --
12064: return;
12065: END IF;
12106: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12107:
12108: --
12109: IF l_debug_on THEN
12110: WSH_DEBUG_SV.pop(l_module_name);
12111: END IF;
12112: --
12113: EXCEPTION
12114:
12117: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12118:
12119: --
12120: IF l_debug_on THEN
12121: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12122: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12123: END IF;
12124: --
12125: END Check_Cont_Attributes;
12118:
12119: --
12120: IF l_debug_on THEN
12121: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12122: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12123: END IF;
12124: --
12125: END Check_Cont_Attributes;
12126:
12177: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12178: --
12179: IF l_debug_on IS NULL
12180: THEN
12181: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12182: END IF;
12183: --
12184: IF l_debug_on THEN
12185: WSH_DEBUG_SV.push(l_module_name);
12181: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12182: END IF;
12183: --
12184: IF l_debug_on THEN
12185: WSH_DEBUG_SV.push(l_module_name);
12186: --
12187: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12188: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12189: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12183: --
12184: IF l_debug_on THEN
12185: WSH_DEBUG_SV.push(l_module_name);
12186: --
12187: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12188: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12189: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12190: END IF;
12191: --
12184: IF l_debug_on THEN
12185: WSH_DEBUG_SV.push(l_module_name);
12186: --
12187: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12188: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12189: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12190: END IF;
12191: --
12192: --
12185: WSH_DEBUG_SV.push(l_module_name);
12186: --
12187: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12188: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12189: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12190: END IF;
12191: --
12192: --
12193: IF l_debug_on THEN
12190: END IF;
12191: --
12192: --
12193: IF l_debug_on THEN
12194: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_MASTER_CONT_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
12195: END IF;
12196: --
12197: l_master_cont_inst_id := WSH_CONTAINER_UTILITIES.Get_Master_Cont_Id(p_container_instance_id);
12198:
12229: --dbms_output.put_line('calling update cont attr with ' || cont.delivery_detail_id);
12230:
12231: --
12232: IF l_debug_on THEN
12233: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
12234: END IF;
12235: --
12236: wsh_container_actions.Update_Cont_Attributes (
12237: p_del_detail_id,
12238: p_delivery_id,
12239: cont.delivery_detail_id,
12240: l_return_status);
12241: IF l_debug_on THEN
12242: WSH_DEBUG_SV.log(l_module_name,'return status-',l_return_status);
12243: END IF;
12244:
12245: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12246: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
12245: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12246: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
12247: --
12248: IF l_debug_on THEN
12249: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
12250: END IF;
12251: --
12252: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(cont.delivery_detail_id);
12253: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
12266:
12267: IF nvl(x_return_status,WSH_UTIL_CORE.G_RET_STS_SUCCESS) <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12268: --
12269: IF l_debug_on THEN
12270: WSH_DEBUG_SV.pop(l_module_name);
12271: END IF;
12272: --
12273: return;
12274: ELSE
12276: END IF;
12277:
12278: --
12279: IF l_debug_on THEN
12280: WSH_DEBUG_SV.pop(l_module_name);
12281: END IF;
12282: --
12283: EXCEPTION
12284:
12287: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12288:
12289: --
12290: IF l_debug_on THEN
12291: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12292: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12293: END IF;
12294: --
12295: END Update_Cont_Hierarchy;
12288:
12289: --
12290: IF l_debug_on THEN
12291: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12292: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12293: END IF;
12294: --
12295: END Update_Cont_Hierarchy;
12296:
12349: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12350: --
12351: IF l_debug_on IS NULL
12352: THEN
12353: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12354: END IF;
12355: --
12356: IF l_debug_on THEN
12357: WSH_DEBUG_SV.push(l_module_name);
12353: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12354: END IF;
12355: --
12356: IF l_debug_on THEN
12357: WSH_DEBUG_SV.push(l_module_name);
12358: --
12359: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12360: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12361: END IF;
12355: --
12356: IF l_debug_on THEN
12357: WSH_DEBUG_SV.push(l_module_name);
12358: --
12359: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12360: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12361: END IF;
12362: --
12363: --
12356: IF l_debug_on THEN
12357: WSH_DEBUG_SV.push(l_module_name);
12358: --
12359: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAIL_ID',P_DEL_DETAIL_ID);
12360: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
12361: END IF;
12362: --
12363: --
12364: IF l_debug_on THEN
12361: END IF;
12362: --
12363: --
12364: IF l_debug_on THEN
12365: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_MASTER_CONT_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
12366: END IF;
12367: --
12368: l_mast_cont_inst_id := WSH_CONTAINER_UTILITIES.Get_Master_Cont_Id (p_container_instance_id);
12369:
12382: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12383: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12384: --
12385: IF l_debug_on THEN
12386: WSH_DEBUG_SV.pop(l_module_name);
12387: END IF;
12388: --
12389: return;
12390: END IF;
12404: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12405: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
12406: --
12407: IF l_debug_on THEN
12408: WSH_DEBUG_SV.pop(l_module_name);
12409: END IF;
12410: --
12411: return;
12412: END IF;
12424: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12425:
12426: --
12427: IF l_debug_on THEN
12428: WSH_DEBUG_SV.pop(l_module_name);
12429: END IF;
12430: --
12431: EXCEPTION
12432:
12435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12436:
12437: --
12438: IF l_debug_on THEN
12439: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12440: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12441: END IF;
12442: --
12443: END Last_Assigned_Line;
12436:
12437: --
12438: IF l_debug_on THEN
12439: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12440: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12441: END IF;
12442: --
12443: END Last_Assigned_Line;
12444:
12568: --
12569: l_debug_on := wsh_debug_interface.g_debug;
12570: --
12571: IF l_debug_on IS NULL THEN
12572: l_debug_on := wsh_debug_sv.is_debug_enabled;
12573: END IF;
12574: --
12575: IF l_debug_on THEN
12576: wsh_debug_sv.push(l_module_name);
12572: l_debug_on := wsh_debug_sv.is_debug_enabled;
12573: END IF;
12574: --
12575: IF l_debug_on THEN
12576: wsh_debug_sv.push(l_module_name);
12577: --
12578: wsh_debug_sv.LOG(l_module_name, 'p_lpn_id', p_lpn_id);
12579: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12580: wsh_debug_sv.LOG(l_module_name, 'p_transactionTYpe', p_transactionTYpe);
12574: --
12575: IF l_debug_on THEN
12576: wsh_debug_sv.push(l_module_name);
12577: --
12578: wsh_debug_sv.LOG(l_module_name, 'p_lpn_id', p_lpn_id);
12579: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12580: wsh_debug_sv.LOG(l_module_name, 'p_transactionTYpe', p_transactionTYpe);
12581: END IF;
12582: --
12575: IF l_debug_on THEN
12576: wsh_debug_sv.push(l_module_name);
12577: --
12578: wsh_debug_sv.LOG(l_module_name, 'p_lpn_id', p_lpn_id);
12579: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12580: wsh_debug_sv.LOG(l_module_name, 'p_transactionTYpe', p_transactionTYpe);
12581: END IF;
12582: --
12583: x_return_status := wsh_util_core.g_ret_sts_success;
12576: wsh_debug_sv.push(l_module_name);
12577: --
12578: wsh_debug_sv.LOG(l_module_name, 'p_lpn_id', p_lpn_id);
12579: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12580: wsh_debug_sv.LOG(l_module_name, 'p_transactionTYpe', p_transactionTYpe);
12581: END IF;
12582: --
12583: x_return_status := wsh_util_core.g_ret_sts_success;
12584: --
12653: fetch l_dup_del_csr into l_dup_del_id,l_dup_del_name, l_dup_del_status, l_dup_cnt_id;
12654: close l_dup_del_csr;
12655:
12656: IF l_debug_on THEN
12657: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_id', l_dup_del_id);
12658: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_name', l_dup_del_name);
12659: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_status', l_dup_del_status);
12660: WSH_DEBUG_SV.log(l_module_name,'l_dup_cnt_id', l_dup_cnt_id);
12661: END IF;
12654: close l_dup_del_csr;
12655:
12656: IF l_debug_on THEN
12657: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_id', l_dup_del_id);
12658: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_name', l_dup_del_name);
12659: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_status', l_dup_del_status);
12660: WSH_DEBUG_SV.log(l_module_name,'l_dup_cnt_id', l_dup_cnt_id);
12661: END IF;
12662:
12655:
12656: IF l_debug_on THEN
12657: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_id', l_dup_del_id);
12658: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_name', l_dup_del_name);
12659: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_status', l_dup_del_status);
12660: WSH_DEBUG_SV.log(l_module_name,'l_dup_cnt_id', l_dup_cnt_id);
12661: END IF;
12662:
12663: IF(l_dup_del_id is not null AND nvl(l_dup_del_status,'OP') = 'CL') THEN
12656: IF l_debug_on THEN
12657: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_id', l_dup_del_id);
12658: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_name', l_dup_del_name);
12659: WSH_DEBUG_SV.log(l_module_name,'l_dup_del_status', l_dup_del_status);
12660: WSH_DEBUG_SV.log(l_module_name,'l_dup_cnt_id', l_dup_cnt_id);
12661: END IF;
12662:
12663: IF(l_dup_del_id is not null AND nvl(l_dup_del_status,'OP') = 'CL') THEN
12664: --{
12675: --l_cont_name := SUBSTRB(p_lpn_name || '.' || l_dlvy_rec.name,1,50);
12676: --
12677: --
12678: IF l_debug_on THEN
12679: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Create_Cont_Instance_Multi',WSH_DEBUG_SV.C_PROC_LEVEL);
12680: END IF;
12681: --
12682: G_CALLED_FROM_INBOUND := TRUE;
12683: --
12703: p_ignore_for_planning => l_dlvy_rec.ignore_for_planning,
12704: p_caller => 'WSH_IB_PACK');
12705: --
12706: IF l_debug_on THEN
12707: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
12708: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
12709: END IF;
12710: l_container_instance_id := l_cont_tab(1);
12711: -- K LPN CONV. rv
12704: p_caller => 'WSH_IB_PACK');
12705: --
12706: IF l_debug_on THEN
12707: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
12708: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
12709: END IF;
12710: l_container_instance_id := l_cont_tab(1);
12711: -- K LPN CONV. rv
12712: --
12754: -- Update of wsh_delivery_details where requested_quantity/released_status
12755: -- are changed, call DBI API after the update.
12756: -- This API will also check for DBI Installed or not
12757: IF l_debug_on THEN
12758: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',l_container_instance_id);
12759: END IF;
12760: l_detail_tab(1) := l_container_instance_id;
12761: WSH_INTEGRATION.DBI_Update_Detail_Log
12762: (p_delivery_detail_id_tab => l_detail_tab,
12763: p_dml_type => 'UPDATE',
12764: x_return_status => l_dbi_rs);
12765:
12766: IF l_debug_on THEN
12767: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
12768: END IF;
12769:
12770: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12771: x_return_status := l_dbi_rs;
12770: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12771: x_return_status := l_dbi_rs;
12772: -- just pass this return status to caller API
12773: IF l_debug_on THEN
12774: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
12775: WSH_DEBUG_SV.pop(l_module_name);
12776: END IF;
12777: return;
12778: END IF;
12771: x_return_status := l_dbi_rs;
12772: -- just pass this return status to caller API
12773: IF l_debug_on THEN
12774: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
12775: WSH_DEBUG_SV.pop(l_module_name);
12776: END IF;
12777: return;
12778: END IF;
12779: -- treat all other return status as Success
12804: --
12805: --
12806: --
12807: IF l_debug_on THEN
12808: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_tp_release.calculate_cont_del_tpdates',WSH_DEBUG_SV.C_PROC_LEVEL);
12809: END IF;
12810: --
12811: --
12812: -- Calculate container dates
12828: IF nvl(p_caller, '!!!!') <> 'WSH_VENDOR_MERGE' THEN
12829: --{
12830:
12831: IF l_debug_on THEN
12832: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
12833: END IF;
12834: --
12835: --
12836: -- Calculate container weight and volume
12846: x_cont_fill_pc => l_cont_fill_pc,
12847: x_return_status => l_return_status);
12848: --
12849: IF l_debug_on THEN
12850: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
12851: END IF;
12852: --}
12853: END IF;
12854:
12864: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12865: END IF;
12866: --
12867: IF l_debug_on THEN
12868: wsh_debug_sv.pop(l_module_name);
12869: END IF;
12870: --
12871: --}
12872: EXCEPTION
12878: ROLLBACK TO pack_inbound_lines_sp;
12879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12880: --
12881: IF l_debug_on THEN
12882: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12883: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12884: END IF;
12885: --
12886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12879: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12880: --
12881: IF l_debug_on THEN
12882: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12883: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12884: END IF;
12885: --
12886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12887:
12889: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12890: ROLLBACK TO pack_inbound_lines_sp;
12891: --
12892: IF l_debug_on THEN
12893: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12894: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12895: END IF;
12896: --
12897: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12890: ROLLBACK TO pack_inbound_lines_sp;
12891: --
12892: IF l_debug_on THEN
12893: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12894: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12895: END IF;
12896: --
12897: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
12898:
12899: G_CALLED_FROM_INBOUND := FALSE;
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12901: --
12902: IF l_debug_on THEN
12903: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12904: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12905: END IF;
12906: --
12907: WHEN OTHERS THEN
12900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12901: --
12902: IF l_debug_on THEN
12903: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12904: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
12905: END IF;
12906: --
12907: WHEN OTHERS THEN
12908:
12910: ROLLBACK TO pack_inbound_lines_sp;
12911: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12912: wsh_util_core.default_handler('wsh_container_actions.pack_inbound_lines', l_module_name);
12913: IF l_debug_on THEN
12914: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12915: END IF;
12916: --
12917: --}
12918: END pack_inbound_lines;
12971: --
12972: l_debug_on := wsh_debug_interface.g_debug;
12973: --
12974: IF l_debug_on IS NULL THEN
12975: l_debug_on := wsh_debug_sv.is_debug_enabled;
12976: END IF;
12977: --
12978: IF l_debug_on THEN
12979: wsh_debug_sv.push(l_module_name);
12975: l_debug_on := wsh_debug_sv.is_debug_enabled;
12976: END IF;
12977: --
12978: IF l_debug_on THEN
12979: wsh_debug_sv.push(l_module_name);
12980: --
12981: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12982: END IF;
12983: --
12977: --
12978: IF l_debug_on THEN
12979: wsh_debug_sv.push(l_module_name);
12980: --
12981: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
12982: END IF;
12983: --
12984: x_return_status := wsh_util_core.g_ret_sts_success;
12985: --
13075: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13076: END IF;
13077: --
13078: IF l_debug_on THEN
13079: wsh_debug_sv.pop(l_module_name);
13080: END IF;
13081: --
13082: --}
13083: EXCEPTION
13088: ROLLBACK TO unpack_inbound_delivery_sp;
13089: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13090: --
13091: IF l_debug_on THEN
13092: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13093: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13094: END IF;
13095: --
13096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13089: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13090: --
13091: IF l_debug_on THEN
13092: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13093: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13094: END IF;
13095: --
13096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13097:
13098: ROLLBACK TO unpack_inbound_delivery_sp;
13099: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13100: --
13101: IF l_debug_on THEN
13102: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13104: END IF;
13105: --
13106: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
13099: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13100: --
13101: IF l_debug_on THEN
13102: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13104: END IF;
13105: --
13106: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
13107: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13106: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
13107: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13108: --
13109: IF l_debug_on THEN
13110: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
13112: END IF;
13113: --
13114: WHEN OTHERS THEN
13107: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13108: --
13109: IF l_debug_on THEN
13110: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
13112: END IF;
13113: --
13114: WHEN OTHERS THEN
13115:
13116: ROLLBACK TO unpack_inbound_delivery_sp;
13117: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13118: wsh_util_core.default_handler('wsh_container_actions.unpack_inbound_delivery', l_module_name);
13119: IF l_debug_on THEN
13120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13121: END IF;
13122: --
13123: --}
13124: END unpack_inbound_delivery;
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_CONT_NAME',P_CONT_NAME);
13177: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13178: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
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_CONT_NAME',P_CONT_NAME);
13177: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13178: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13179: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13180: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13173: IF l_debug_on THEN
13174: WSH_DEBUG_SV.push(l_module_name);
13175: --
13176: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13177: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13178: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13179: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13180: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13181: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
13174: WSH_DEBUG_SV.push(l_module_name);
13175: --
13176: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13177: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13178: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13179: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13180: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13181: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
13182: END IF;
13175: --
13176: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13177: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13178: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13179: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13180: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13181: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
13182: END IF;
13183: --
13176: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME',P_CONT_NAME);
13177: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13178: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13179: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13180: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13181: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
13182: END IF;
13183: --
13184: IF ( NVL(p_quantity,0) <= 0 ) THEN
13177: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_PRE',P_CONT_NAME_PRE);
13178: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_SUF',P_CONT_NAME_SUF);
13179: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_NUM',P_CONT_NAME_NUM);
13180: WSH_DEBUG_SV.log(l_module_name,'P_CONT_NAME_DIG',P_CONT_NAME_DIG);
13181: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
13182: END IF;
13183: --
13184: IF ( NVL(p_quantity,0) <= 0 ) THEN
13185: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13186: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13187: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13188: --
13189: IF l_debug_on THEN
13190: WSH_DEBUG_SV.pop(l_module_name);
13191: END IF;
13192: --
13193: return;
13194: END IF;
13235: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_CREATE_ERROR');
13236: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
13237: --
13238: IF l_debug_on THEN
13239: WSH_DEBUG_SV.pop(l_module_name);
13240: END IF;
13241: --
13242: return;
13243: END IF;
13245: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13246:
13247: --
13248: IF l_debug_on THEN
13249: WSH_DEBUG_SV.pop(l_module_name);
13250: END IF;
13251: --
13252: EXCEPTION
13253:
13256: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13257:
13258:
13259: IF l_debug_on THEN
13260: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13261: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13262: END IF;
13263: --
13264: END Create_Multiple_Cont_name;
13257:
13258:
13259: IF l_debug_on THEN
13260: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13261: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13262: END IF;
13263: --
13264: END Create_Multiple_Cont_name;
13265:
13316: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13317: --
13318: IF l_debug_on IS NULL
13319: THEN
13320: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13321: END IF;
13322: --
13323: IF l_debug_on THEN
13324: WSH_DEBUG_SV.push(l_module_name);
13320: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13321: END IF;
13322: --
13323: IF l_debug_on THEN
13324: WSH_DEBUG_SV.push(l_module_name);
13325: --
13326: WSH_DEBUG_SV.log(l_module_name,'p_container_id',p_container_id);
13327: WSH_DEBUG_SV.log(l_module_name,'P_locator_id',P_locator_id);
13328: WSH_DEBUG_SV.log(l_module_name,'P_subinventory',P_subinventory);
13322: --
13323: IF l_debug_on THEN
13324: WSH_DEBUG_SV.push(l_module_name);
13325: --
13326: WSH_DEBUG_SV.log(l_module_name,'p_container_id',p_container_id);
13327: WSH_DEBUG_SV.log(l_module_name,'P_locator_id',P_locator_id);
13328: WSH_DEBUG_SV.log(l_module_name,'P_subinventory',P_subinventory);
13329: END IF;
13330: --
13323: IF l_debug_on THEN
13324: WSH_DEBUG_SV.push(l_module_name);
13325: --
13326: WSH_DEBUG_SV.log(l_module_name,'p_container_id',p_container_id);
13327: WSH_DEBUG_SV.log(l_module_name,'P_locator_id',P_locator_id);
13328: WSH_DEBUG_SV.log(l_module_name,'P_subinventory',P_subinventory);
13329: END IF;
13330: --
13331:
13324: WSH_DEBUG_SV.push(l_module_name);
13325: --
13326: WSH_DEBUG_SV.log(l_module_name,'p_container_id',p_container_id);
13327: WSH_DEBUG_SV.log(l_module_name,'P_locator_id',P_locator_id);
13328: WSH_DEBUG_SV.log(l_module_name,'P_subinventory',P_subinventory);
13329: END IF;
13330: --
13331:
13332:
13345: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13346:
13347: --
13348: IF l_debug_on THEN
13349: WSH_DEBUG_SV.pop(l_module_name);
13350: END IF;
13351: --
13352: EXCEPTION
13353:
13355: rollback to s_Update_child_inv_info;
13356: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13357: --
13358: IF l_debug_on THEN
13359: WSH_DEBUG_SV.logmsg(l_module_name,'Could not lock record for the containers ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13360: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:child_cont_locked');
13361: END IF;
13362: --
13363: WHEN Others THEN
13356: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13357: --
13358: IF l_debug_on THEN
13359: WSH_DEBUG_SV.logmsg(l_module_name,'Could not lock record for the containers ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13360: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:child_cont_locked');
13361: END IF;
13362: --
13363: WHEN Others THEN
13364: rollback to s_Update_child_inv_info;
13366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13367:
13368:
13369: IF l_debug_on THEN
13370: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13371: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13372: END IF;
13373: --
13374: END Update_child_inv_info;
13367:
13368:
13369: IF l_debug_on THEN
13370: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13371: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13372: END IF;
13373: --
13374: END Update_child_inv_info;
13375:
13508: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13509: --
13510: IF l_debug_on IS NULL
13511: THEN
13512: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13513: END IF;
13514: --
13515: IF l_debug_on THEN
13516: WSH_DEBUG_SV.push(l_module_name);
13512: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13513: END IF;
13514: --
13515: IF l_debug_on THEN
13516: WSH_DEBUG_SV.push(l_module_name);
13517: --
13518: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
13519: WSH_DEBUG_SV.log(l_module_name,'p_child_container_id',p_child_container_id);
13520: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13514: --
13515: IF l_debug_on THEN
13516: WSH_DEBUG_SV.push(l_module_name);
13517: --
13518: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
13519: WSH_DEBUG_SV.log(l_module_name,'p_child_container_id',p_child_container_id);
13520: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13521: END IF;
13522: -- Check if the parent lpn is a consol LPN
13515: IF l_debug_on THEN
13516: WSH_DEBUG_SV.push(l_module_name);
13517: --
13518: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
13519: WSH_DEBUG_SV.log(l_module_name,'p_child_container_id',p_child_container_id);
13520: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13521: END IF;
13522: -- Check if the parent lpn is a consol LPN
13523:
13516: WSH_DEBUG_SV.push(l_module_name);
13517: --
13518: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
13519: WSH_DEBUG_SV.log(l_module_name,'p_child_container_id',p_child_container_id);
13520: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13521: END IF;
13522: -- Check if the parent lpn is a consol LPN
13523:
13524: OPEN c_get_container_info(p_parent_container_id);
13548:
13549: END IF;
13550:
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: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.container_flag',l_parent_container_info.container_flag);
13555: END IF;
13556: IF l_parent_container_info.container_flag = 'Y' THEN
13549: END IF;
13550:
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: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.container_flag',l_parent_container_info.container_flag);
13555: END IF;
13556: IF l_parent_container_info.container_flag = 'Y' THEN
13557:
13550:
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: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.container_flag',l_parent_container_info.container_flag);
13555: END IF;
13556: IF l_parent_container_info.container_flag = 'Y' THEN
13557:
13558: -- This is not a consol LPN, so we need to convert this to a consol before assignment.
13582: -- the same trip, or if only one of the deliveries has a trip. Check if
13583: -- this trip has a consol delivery. If yes, we can use this consol delivery, else
13584: -- We need to create a consolidation delivery for both.
13585: IF l_debug_on THEN
13586: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13587: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13588: END IF;
13589:
13590: -- Check if the trips have consolidation deliveries.
13583: -- this trip has a consol delivery. If yes, we can use this consol delivery, else
13584: -- We need to create a consolidation delivery for both.
13585: IF l_debug_on THEN
13586: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13587: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13588: END IF;
13589:
13590: -- Check if the trips have consolidation deliveries.
13591: -- Check trip for the parent lpn.
13623: l_child_trip_id := NVL(l_child_trip_id, l_parent_trip_id);
13624:
13625:
13626: IF l_debug_on THEN
13627: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Unassign_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
13628: END IF;
13629:
13630: WSH_TRIPS_ACTIONS.Unassign_Trip(p_del_rows => l_unassign_dels,
13631: p_trip_id => l_child_trip_id,
13645: END IF;
13646: IF l_new_parent_delivery_id IS NULL THEN
13647: -- Create a new consolidation delivery.
13648: IF l_debug_on THEN
13649: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13650: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13651: END IF;
13652:
13653: FOR i in 1..2 LOOP
13646: IF l_new_parent_delivery_id IS NULL THEN
13647: -- Create a new consolidation delivery.
13648: IF l_debug_on THEN
13649: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13650: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13651: END IF;
13652:
13653: FOR i in 1..2 LOOP
13654:
13658: l_child_delivery_id := l_child_container_info.delivery_id;
13659: END IF;
13660:
13661: IF l_debug_on THEN
13662: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.Populate_Record',WSH_DEBUG_SV.C_PROC_LEVEL);
13663: END IF;
13664: WSH_NEW_DELIVERIES_PVT.Populate_Record(
13665: p_delivery_id => l_child_delivery_id,
13666: x_delivery_info => l_del_info_tab(i),
13677: END LOOP;
13678:
13679:
13680: IF l_debug_on THEN
13681: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_Delivery_Autocreate.Autocreate_Consol_Delivery',WSH_DEBUG_SV.C_PROC_LEVEL);
13682: END IF;
13683: WSH_Delivery_Autocreate.Autocreate_Consol_Delivery(
13684: p_del_attributes_tab => l_del_info_tab,
13685: p_caller => p_caller,
13698: ELSIF (l_parent_container_info.parent_delivery_id <> l_child_container_info.parent_delivery_id) OR
13699: (l_parent_container_info.parent_delivery_id IS NULL) OR
13700: (l_child_container_info.parent_delivery_id IS NULL) THEN
13701: IF l_debug_on THEN
13702: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13703: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13704: END IF;
13705:
13706: IF l_parent_container_info.parent_delivery_id IS NOT NULL
13699: (l_parent_container_info.parent_delivery_id IS NULL) OR
13700: (l_child_container_info.parent_delivery_id IS NULL) THEN
13701: IF l_debug_on THEN
13702: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13703: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13704: END IF;
13705:
13706: IF l_parent_container_info.parent_delivery_id IS NOT NULL
13707: AND l_child_container_info.parent_delivery_id IS NULL THEN
13709: -- a consol delivery, but the child is not.
13710: -- We need to assign the child containers delivery to the parent containers
13711: -- consol delivery.
13712: IF l_debug_on THEN
13713: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13714: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13715: END IF;
13716:
13717: l_assign_flag := 'Y';
13710: -- We need to assign the child containers delivery to the parent containers
13711: -- consol delivery.
13712: IF l_debug_on THEN
13713: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13714: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13715: END IF;
13716:
13717: l_assign_flag := 'Y';
13718: l_new_parent_delivery_id := l_parent_container_info.parent_delivery_id;
13724: -- case 3. The child LPN is attached to a consol delivery, but the parent is not.
13725: -- We need to assign the parent container's delivery to the child
13726: -- containers consol delivery.
13727: IF l_debug_on THEN
13728: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13729: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13730: END IF;
13731:
13732: l_assign_flag := 'Y';
13725: -- We need to assign the parent container's delivery to the child
13726: -- containers consol delivery.
13727: IF l_debug_on THEN
13728: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13729: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13730: END IF;
13731:
13732: l_assign_flag := 'Y';
13733: l_new_parent_delivery_id := l_child_container_info.parent_delivery_id;
13739: -- but they do not match.
13740: -- Raise an exception since this is not a valid assignment.
13741:
13742: IF l_debug_on THEN
13743: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13744: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13745: END IF;
13746: RAISE WSH_CONSOL_DEL_NO_MATCH;
13747:
13740: -- Raise an exception since this is not a valid assignment.
13741:
13742: IF l_debug_on THEN
13743: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13744: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13745: END IF;
13746: RAISE WSH_CONSOL_DEL_NO_MATCH;
13747:
13748: END IF;
13747:
13748: END IF;
13749: ELSIF l_child_container_info.parent_delivery_id = l_parent_container_info.parent_delivery_id THEN
13750: IF l_debug_on THEN
13751: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13752: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13753: END IF;
13754:
13755: l_new_parent_delivery_id := l_parent_container_info.parent_delivery_id;
13748: END IF;
13749: ELSIF l_child_container_info.parent_delivery_id = l_parent_container_info.parent_delivery_id THEN
13750: IF l_debug_on THEN
13751: WSH_DEBUG_SV.log(l_module_name,'l_child_container_info.parent_delivery_id',l_child_container_info.parent_delivery_id);
13752: WSH_DEBUG_SV.log(l_module_name,'l_parent_container_info.parent_delivery_id',l_parent_container_info.parent_delivery_id);
13753: END IF;
13754:
13755: l_new_parent_delivery_id := l_parent_container_info.parent_delivery_id;
13756:
13759: -- Convert the parent LPN to be a consol LPN.
13760:
13761: -- Get the attributes of the parent delivery
13762: IF l_debug_on THEN
13763: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.Populate_Record',WSH_DEBUG_SV.C_PROC_LEVEL);
13764: END IF;
13765:
13766: WSH_NEW_DELIVERIES_PVT.Populate_Record(
13767: p_delivery_id => l_new_parent_delivery_id,
13790: --
13791: -- Debug Statements
13792: --
13793: IF l_debug_on THEN
13794: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13795: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
13796: END IF;
13797: RETURN;
13798: --
13791: -- Debug Statements
13792: --
13793: IF l_debug_on THEN
13794: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13795: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
13796: END IF;
13797: RETURN;
13798: --
13799: END;
13852:
13853:
13854: -- Get the current topmost children of the parent LPN.
13855: IF l_debug_on THEN
13856: WSH_DEBUG_SV.log(l_module_name,'p_parent_container_id',p_parent_container_id);
13857: END IF;
13858:
13859: OPEN c_get_child_details(p_parent_container_id);
13860: FETCH c_get_child_details BULK COLLECT
13859: OPEN c_get_child_details(p_parent_container_id);
13860: FETCH c_get_child_details BULK COLLECT
13861: INTO l_child_details_tab;
13862: IF l_debug_on THEN
13863: WSH_DEBUG_SV.log(l_module_name,'l_child_details_tab.count',l_child_details_tab.count);
13864: END IF;
13865: CLOSE c_get_child_details;
13866:
13867: -- lock the children.
13879: --
13880: -- Debug Statements
13881: --
13882: IF l_debug_on THEN
13883: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13884: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
13885: END IF;
13886: RETURN;
13887: --
13880: -- Debug Statements
13881: --
13882: IF l_debug_on THEN
13883: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13884: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
13885: END IF;
13886: RETURN;
13887: --
13888: END;
13919: l_del_asg_info_rec.parent_delivery_id := l_new_parent_delivery_id;
13920: l_del_asg_info_rec.type := 'C';
13921:
13922: IF l_debug_on THEN
13923: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_Delivery_Details_PKG.Create_Deliv_Assignment_bulk',WSH_DEBUG_SV.C_PROC_LEVEL);
13924: END IF;
13925: WSH_Delivery_Details_PKG.Create_Deliv_Assignment_bulk(
13926: p_delivery_assignments_info => l_del_asg_info_rec,
13927: p_num_of_rec => l_child_details_tab.count,
13978:
13979: FOR i in 1..l_del_tab.count LOOP
13980:
13981: IF l_debug_on THEN
13982: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.Populate_Record',WSH_DEBUG_SV.C_PROC_LEVEL);
13983: END IF;
13984: WSH_NEW_DELIVERIES_PVT.Populate_Record(
13985: p_delivery_id => l_del_tab(i),
13986: x_delivery_info => l_del_info_tab(i),
13999:
14000:
14001:
14002: IF l_debug_on THEN
14003: 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);
14004: END IF;
14005: WSH_New_Delivery_Actions.Assign_Del_to_Consol_Del(
14006: p_del_tab => l_del_info_tab,
14007: p_parent_del_id => l_new_parent_delivery_id,
14032:
14033: -- Handle wt/vol for consol deliveries/LPNs.
14034: /***
14035: IF l_debug_on THEN
14036: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Container_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
14037: END IF;
14038: WSH_WV_UTILS.Container_Weight_Volume (
14039: p_container_instance_id => p_parent_container_id,
14040: p_override_flag => 'Y',
14056: ***/
14057: -- Need to recalculate the wt/vol for the releated entities.
14058: -- Calculating for the trips would drive all the way to the deliveries and lpns.
14059: IF l_debug_on THEN
14060: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.trip_weight_volume',WSH_DEBUG_SV.C_PROC_LEVEL);
14061: END IF;
14062: OPEN c_get_filled_vol(p_parent_container_id);
14063: FETCH c_get_filled_vol INTO l_filled_volume;
14064: CLOSE c_get_filled_vol;
14080: WHERE delivery_detail_id = p_parent_container_id;
14081:
14082: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
14083: IF l_debug_on THEN
14084: WSH_DEBUG_SV.logmsg(l_module_name,'Error calculating trip wt/vol');
14085: END IF;
14086: END IF;
14087: /*
14088:
14086: END IF;
14087: /*
14088:
14089: IF l_debug_on THEN
14090: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Delivery_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
14091: END IF;
14092:
14093: WSH_WV_UTILS.Delivery_Weight_Volume
14094: ( p_delivery_id => l_new_parent_delivery_id,
14117: --
14118: -- Debug Statements
14119: --
14120: IF l_debug_on THEN
14121: WSH_DEBUG_SV.pop(l_module_name);
14122: END IF;
14123: --
14124:
14125: EXCEPTION
14128: --
14129: -- Debug Statements
14130: --
14131: IF l_debug_on THEN
14132: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14133: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14134: END IF;
14135:
14136: WHEN WSH_INVALID_TRIPS THEN
14129: -- Debug Statements
14130: --
14131: IF l_debug_on THEN
14132: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14133: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14134: END IF;
14135:
14136: WHEN WSH_INVALID_TRIPS THEN
14137: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14140: --
14141: -- Debug Statements
14142: --
14143: IF l_debug_on THEN
14144: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_TRIPS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14145:
14146: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIPS');
14147: END IF;
14148:
14142: --
14143: IF l_debug_on THEN
14144: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_TRIPS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14145:
14146: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIPS');
14147: END IF;
14148:
14149: WHEN WSH_NO_CHILD_LPNS THEN
14150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14153: --
14154: -- Debug Statements
14155: --
14156: IF l_debug_on THEN
14157: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_CHILD_LPNS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14158:
14159: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_CHILD_LPNS');
14160: END IF;
14161:
14155: --
14156: IF l_debug_on THEN
14157: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_CHILD_LPNS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14158:
14159: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_CHILD_LPNS');
14160: END IF;
14161:
14162: WHEN WSH_CONSOL_DEL_NO_MATCH THEN
14163: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14166: --
14167: -- Debug Statements
14168: --
14169: IF l_debug_on THEN
14170: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CONSOL_DEL_NO_MATCH exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14171:
14172: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CONSOL_DEL_NO_MATCH');
14173: END IF;
14174:
14168: --
14169: IF l_debug_on THEN
14170: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CONSOL_DEL_NO_MATCH exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14171:
14172: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CONSOL_DEL_NO_MATCH');
14173: END IF;
14174:
14175: WHEN WSH_ASSIGN_CONSOL_LPN_ERROR THEN
14176: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14179: --
14180: -- Debug Statements
14181: --
14182: IF l_debug_on THEN
14183: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_ASSIGN_CONSOL_LPN_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14184:
14185: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_ASSIGN_CONSOL_LPN_ERROR');
14186: END IF;
14187:
14181: --
14182: IF l_debug_on THEN
14183: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_ASSIGN_CONSOL_LPN_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14184:
14185: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_ASSIGN_CONSOL_LPN_ERROR');
14186: END IF;
14187:
14188: WHEN WSH_INVALID_CONSOL_ASSIGN THEN
14189: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14192: --
14193: -- Debug Statements
14194: --
14195: IF l_debug_on THEN
14196: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CONSOL_ASSIGN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14197:
14198: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CONSOL_ASSIGN');
14199: END IF;
14200:
14194: --
14195: IF l_debug_on THEN
14196: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CONSOL_ASSIGN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14197:
14198: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CONSOL_ASSIGN');
14199: END IF;
14200:
14201: WHEN WSH_INVALID_PARENT THEN
14202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14205: --
14206: -- Debug Statements
14207: --
14208: IF l_debug_on THEN
14209: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_PARENT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14210:
14211: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_PARENT');
14212: END IF;
14213:
14207: --
14208: IF l_debug_on THEN
14209: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_PARENT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14210:
14211: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_PARENT');
14212: END IF;
14213:
14214: WHEN WSH_INVALID_CHILD THEN
14215: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14218: --
14219: -- Debug Statements
14220: --
14221: IF l_debug_on THEN
14222: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILD exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14223:
14224: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILD');
14225: END IF;
14226: --
14220: --
14221: IF l_debug_on THEN
14222: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILD exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14223:
14224: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILD');
14225: END IF;
14226: --
14227:
14228: WHEN OTHERS THEN
14229:
14230: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14231: wsh_util_core.default_handler('wsh_container_actions.Assign_Container_to_Consol', l_module_name);
14232: IF l_debug_on THEN
14233: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
14234: END IF;
14235:
14236: END Assign_Container_to_Consol;
14237:
14310: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
14311: --
14312: IF l_debug_on IS NULL
14313: THEN
14314: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14315: END IF;
14316: --
14317: IF l_debug_on THEN
14318: WSH_DEBUG_SV.push(l_module_name);
14314: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14315: END IF;
14316: --
14317: IF l_debug_on THEN
14318: WSH_DEBUG_SV.push(l_module_name);
14319: --
14320: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
14321: END IF;
14322: --
14316: --
14317: IF l_debug_on THEN
14318: WSH_DEBUG_SV.push(l_module_name);
14319: --
14320: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
14321: END IF;
14322: --
14323:
14324:
14364: --
14365: -- Debug Statements
14366: --
14367: IF l_debug_on THEN
14368: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14369: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
14370: END IF;
14371: RETURN;
14372: --
14365: -- Debug Statements
14366: --
14367: IF l_debug_on THEN
14368: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_LOCK exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14369: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_LOCK');
14370: END IF;
14371: RETURN;
14372: --
14373: END;
14381: -- anticipation of it being decremented during the WMS call.
14382:
14383:
14384: IF l_debug_on THEN
14385: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14386: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14387: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14388: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14389: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14382:
14383:
14384: IF l_debug_on THEN
14385: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14386: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14387: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14388: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14389: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14390: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14383:
14384: IF l_debug_on THEN
14385: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14386: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14387: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14388: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14389: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14390: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14391: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14384: IF l_debug_on THEN
14385: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14386: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14387: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14388: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14389: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14390: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14391: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14392: END IF;
14385: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14386: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14387: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14388: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14389: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14390: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14391: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14392: END IF;
14393:
14386: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14387: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14388: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14389: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14390: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14391: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14392: END IF;
14393:
14394: -- convert the child UOM to the parent UOMs.
14387: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14388: WSH_DEBUG_SV.log(l_module_name,'l_child_weight_UOM',l_child_weight_UOM);
14389: WSH_DEBUG_SV.log(l_module_name,'l_parent_weight_UOM',l_parent_weight_UOM);
14390: WSH_DEBUG_SV.log(l_module_name,'l_child_volume_UOM',l_child_volume_UOM);
14391: WSH_DEBUG_SV.log(l_module_name,'l_parent_volume_UOM',l_parent_volume_UOM);
14392: END IF;
14393:
14394: -- convert the child UOM to the parent UOMs.
14395:
14401: IF NVL(l_cont_gross_weight, 0) = 0 THEN
14402: l_child_gross_weight := 0;
14403: ELSE
14404: IF l_debug_on THEN
14405: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14406: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14407: END IF;
14408: l_child_gross_weight :=
14409: WSH_WV_UTILS.convert_uom(l_child_weight_UOM, l_parent_weight_UOM, l_cont_gross_weight, l_child_inv_item_id);
14402: l_child_gross_weight := 0;
14403: ELSE
14404: IF l_debug_on THEN
14405: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14406: WSH_DEBUG_SV.log(l_module_name,'l_cont_gross_weight',l_cont_gross_weight);
14407: END IF;
14408: l_child_gross_weight :=
14409: WSH_WV_UTILS.convert_uom(l_child_weight_UOM, l_parent_weight_UOM, l_cont_gross_weight, l_child_inv_item_id);
14410: END IF;
14411: IF NVL(l_cont_net_weight, 0) = 0 THEN
14412: l_child_net_weight := 0;
14413: ELSE
14414: IF l_debug_on THEN
14415: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14416: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14417: END IF;
14418: l_child_net_weight :=
14419: WSH_WV_UTILS.convert_uom(l_child_weight_UOM, l_parent_weight_UOM, l_cont_net_weight, l_child_inv_item_id);
14412: l_child_net_weight := 0;
14413: ELSE
14414: IF l_debug_on THEN
14415: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14416: WSH_DEBUG_SV.log(l_module_name,'l_cont_net_weight',l_cont_net_weight);
14417: END IF;
14418: l_child_net_weight :=
14419: WSH_WV_UTILS.convert_uom(l_child_weight_UOM, l_parent_weight_UOM, l_cont_net_weight, l_child_inv_item_id);
14420: END IF;
14427: IF NVL(l_cont_volume, 0) = 0 THEN
14428: l_child_volume := 0;
14429: ELSE
14430: IF l_debug_on THEN
14431: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14432: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14433: END IF;
14434: l_child_volume :=
14435: WSH_WV_UTILS.convert_uom(l_child_volume_UOM, l_parent_volume_UOM, l_cont_volume, l_child_inv_item_id);
14428: l_child_volume := 0;
14429: ELSE
14430: IF l_debug_on THEN
14431: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.convert_uom',WSH_DEBUG_SV.C_PROC_LEVEL);
14432: WSH_DEBUG_SV.log(l_module_name,'l_cont_volume',l_cont_volume);
14433: END IF;
14434: l_child_volume :=
14435: WSH_WV_UTILS.convert_uom(l_child_volume_UOM, l_parent_volume_UOM, l_cont_volume, l_child_inv_item_id);
14436: END IF;
14437:
14438: END IF;
14439:
14440: IF l_debug_on THEN
14441: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
14442: END IF;
14443:
14444: WSH_WV_UTILS.DD_WV_Post_Process(
14445: p_delivery_detail_id => l_parent_dd_id,
14478: --
14479: -- Debug Statements
14480: --
14481: IF l_debug_on THEN
14482: WSH_DEBUG_SV.pop(l_module_name);
14483: END IF;
14484:
14485:
14486: EXCEPTION
14489: --
14490: -- Debug Statements
14491: --
14492: IF l_debug_on THEN
14493: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14494: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14495: END IF;
14496:
14497:
14490: -- Debug Statements
14491: --
14492: IF l_debug_on THEN
14493: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14494: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14495: END IF;
14496:
14497:
14498: WHEN WSH_INVALID_COMBINATION THEN
14502: --
14503: -- Debug Statements
14504: --
14505: IF l_debug_on THEN
14506: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_COMBINATION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14507:
14508: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_COMBINATION');
14509: END IF;
14510: --
14504: --
14505: IF l_debug_on THEN
14506: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_COMBINATION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14507:
14508: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_COMBINATION');
14509: END IF;
14510: --
14511:
14512: WHEN OTHERS THEN
14512: WHEN OTHERS THEN
14513: wsh_util_core.default_handler('wsh_container_actions.unassign_detail_from_consol',l_module_name);
14514: --
14515: IF l_debug_on THEN
14516: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14517: END IF;
14518:
14519: END Unpack_Details_from_Consol;
14520:
14557: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
14558:
14559: IF l_debug_on IS NULL
14560: THEN
14561: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14562: END IF;
14563:
14564: IF l_debug_on THEN
14565: WSH_DEBUG_SV.push(l_module_name);
14561: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14562: END IF;
14563:
14564: IF l_debug_on THEN
14565: WSH_DEBUG_SV.push(l_module_name);
14566: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ID',p_container_id);
14567: END IF;
14568:
14569:
14562: END IF;
14563:
14564: IF l_debug_on THEN
14565: WSH_DEBUG_SV.push(l_module_name);
14566: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_ID',p_container_id);
14567: END IF;
14568:
14569:
14570: FOR c1 in get_deliver_to_location_id(P_CONTAINER_ID) LOOP
14568:
14569:
14570: FOR c1 in get_deliver_to_location_id(P_CONTAINER_ID) LOOP
14571: IF l_debug_on THEN
14572: WSH_DEBUG_SV.log(l_module_name,'cnt',cnt);
14573: WSH_DEBUG_SV.log(l_module_name,'c1.deliver_to_location_id',c1.deliver_to_location_id);
14574: END IF;
14575: IF cnt =0 THEN
14576: l_deliver_to_location_id := c1.deliver_to_location_id;
14569:
14570: FOR c1 in get_deliver_to_location_id(P_CONTAINER_ID) LOOP
14571: IF l_debug_on THEN
14572: WSH_DEBUG_SV.log(l_module_name,'cnt',cnt);
14573: WSH_DEBUG_SV.log(l_module_name,'c1.deliver_to_location_id',c1.deliver_to_location_id);
14574: END IF;
14575: IF cnt =0 THEN
14576: l_deliver_to_location_id := c1.deliver_to_location_id;
14577: ELSE
14585: x_deliver_to_location_id :=l_deliver_to_location_id;
14586: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14587:
14588: IF l_debug_on THEN
14589: WSH_DEBUG_SV.pop(l_module_name);
14590: END IF;
14591:
14592: EXCEPTION
14593:
14596: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14597:
14598: --
14599: IF l_debug_on THEN
14600: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14601: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
14602: END IF;
14603:
14604: END Get_Deliver_To_Location;
14597:
14598: --
14599: IF l_debug_on THEN
14600: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14601: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
14602: END IF;
14603:
14604: END Get_Deliver_To_Location;
14605: