[Home] [Help]
1: PACKAGE BODY WSH_WV_UTILS as
2: /* $Header: WSHWVUTB.pls 120.28.12020000.3 2013/04/23 10:30:25 ueshanka ship $ */
3:
4:
5: --
2: /* $Header: WSHWVUTB.pls 120.28.12020000.3 2013/04/23 10:30:25 ueshanka ship $ */
3:
4:
5: --
6: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_WV_UTILS';
7: --
8: -- HW OPMCONV - Added lot_number and org_id parameters
9: c_wms_code_present VARCHAR2(2) := 'Y';
10:
217:
218: EXCEPTION
219: WHEN OTHERS THEN
220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
221: wsh_util_core.default_handler('WSH_WV_UTILS.convert_uom_core');
222: --
223:
224: END convert_uom_core;
225:
310: END IF;
311: --
312: EXCEPTION
313: WHEN Others THEN
314: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.GET_DEFAULT_UOMS');
315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
316:
317: --
318: -- Debug Statements
715:
716:
717: WHEN others THEN
718:
719: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
720: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
721: IF l_debug_on THEN
722: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
723: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1603: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
1604: END IF;
1605:
1606: WHEN Others THEN
1607: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Adjust_parent_WV');
1608: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1609:
1610: IF l_debug_on THEN
1611: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1850:
1851: IF l_debug_on THEN
1852: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_Container_Wt_Vol',WSH_DEBUG_SV.C_PROC_LEVEL);
1853: END IF;
1854: WSH_WV_UTILS.update_container_wt_vol(
1855: p_container_instance_id => l_parent_container_id,
1856: p_gross_weight => l_tmp_unit_wt,
1857: p_net_weight => null,
1858: p_volume => l_tmp_unit_vol,
1870: l_num_warnings := l_num_warnings + 1;
1871: END IF;
1872:
1873: IF l_debug_on THEN
1874: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1875: END IF;
1876:
1877: DD_WV_Post_Process(
1878: p_delivery_detail_id => l_parent_container_id,
1884:
1885: ELSE -- NOT l_cont_empty
1886: -- Call Adjust_parent_WV to adjust W/V
1887: IF l_debug_on THEN
1888: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1889: END IF;
1890: Adjust_parent_WV(
1891: p_entity_type => 'CONTAINER',
1892: p_entity_id => l_parent_container_id,
1962:
1963: CLOSE C5;
1964:
1965: IF l_debug_on THEN
1966: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Del_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1967: END IF;
1968:
1969: Del_WV_Post_Process(
1970: p_delivery_id => l_delivery_id,
1976: ELSE -- NOT l_del_empty
1977:
1978: -- Call Adjust_parent_WV to adjust W/V
1979: IF l_debug_on THEN
1980: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1981: END IF;
1982: IF (l_container_flag = 'Y') OR ((l_container_flag = 'C')
1983: AND (NVL(g_consol_lpn, 0) <> p_delivery_detail_id)) THEN
1984: Adjust_parent_WV(
2045: WSH_DEBUG_SV.pop(l_module_name);
2046: END IF;
2047:
2048: WHEN Others THEN
2049: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DD_WV_POST_PROCESS');
2050: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2051:
2052: IF l_debug_on THEN
2053: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2395: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2396: END IF;
2397:
2398: WHEN Others THEN
2399: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DEL_WV_POST_PROCESS');
2400: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2401:
2402: IF l_debug_on THEN
2403: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2572: WSH_DEBUG_SV.pop(l_module_name);
2573: END IF;
2574:
2575: WHEN Others THEN
2576: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Detail_Weight_Volume');
2577: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2578: IF l_debug_on THEN
2579: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
2580: ;
3015: wdd.volume_uom_code,
3016: wdd.organization_id ,
3017: nvl(wdd.unit_weight,msi.unit_weight) unit_weight,
3018: nvl(wdd.unit_volume,msi.unit_volume) unit_volume,
3019: WSH_WV_UTILS.convert_uom
3020: (
3021: wdd.requested_quantity_uom,
3022: nvl(msi.primary_uom_code,wdd.requested_quantity_uom), --Bug7165744
3023: nvl(wdd.received_quantity, nvl(wdd.shipped_quantity, NVL(wdd.picked_quantity, wdd.requested_quantity))),
3152:
3153: -- Convert the W/V if UOMs differ
3154: IF ((l_dd_vol > 0) AND (childInfo_rec.volume_uom_code <> l_masterVolumeUomCode)) THEN
3155: IF l_debug_on THEN
3156: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3157: END IF;
3158: l_line_volume := WSH_WV_UTILS.convert_uom(
3159: childInfo_rec.volume_uom_code,
3160: l_masterVolumeUomCode,
3154: IF ((l_dd_vol > 0) AND (childInfo_rec.volume_uom_code <> l_masterVolumeUomCode)) THEN
3155: IF l_debug_on THEN
3156: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3157: END IF;
3158: l_line_volume := WSH_WV_UTILS.convert_uom(
3159: childInfo_rec.volume_uom_code,
3160: l_masterVolumeUomCode,
3161: l_dd_vol,
3162: childInfo_rec.inventory_item_id);
3169: END IF;
3170:
3171: IF ((l_dd_grossWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3172: IF l_debug_on THEN
3173: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3174: END IF;
3175: l_line_grossWeight := WSH_WV_UTILS.convert_uom(
3176: childInfo_rec.weight_uom_code,
3177: l_masterWeightUomCode,
3171: IF ((l_dd_grossWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3172: IF l_debug_on THEN
3173: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3174: END IF;
3175: l_line_grossWeight := WSH_WV_UTILS.convert_uom(
3176: childInfo_rec.weight_uom_code,
3177: l_masterWeightUomCode,
3178: l_dd_grossWt,
3179: childInfo_rec.inventory_item_id);
3184: END IF;
3185:
3186: IF ((l_dd_netWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3187: IF l_debug_on THEN
3188: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3189: END IF;
3190: l_line_netWeight := WSH_WV_UTILS.convert_uom(
3191: childInfo_rec.weight_uom_code,
3192: l_masterWeightUomCode,
3186: IF ((l_dd_netWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3187: IF l_debug_on THEN
3188: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3189: END IF;
3190: l_line_netWeight := WSH_WV_UTILS.convert_uom(
3191: childInfo_rec.weight_uom_code,
3192: l_masterWeightUomCode,
3193: l_dd_netWt,
3194: childInfo_rec.inventory_item_id);
3435:
3436: -- Convert the calculated W/V to p_masterWeightUomCode,p_masterVolumeUomCode UOMs
3437: IF p_masterWeightUomCode <> l_masterWeightUomCode THEN
3438: IF l_debug_on THEN
3439: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3440: END IF;
3441: x_grossWeight := WSH_WV_UTILS.convert_uom(
3442: l_masterWeightUomCode,
3443: p_masterWeightUomCode,
3437: IF p_masterWeightUomCode <> l_masterWeightUomCode THEN
3438: IF l_debug_on THEN
3439: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3440: END IF;
3441: x_grossWeight := WSH_WV_UTILS.convert_uom(
3442: l_masterWeightUomCode,
3443: p_masterWeightUomCode,
3444: l_grossWeight,
3445: l_masterInvItemId);
3443: p_masterWeightUomCode,
3444: l_grossWeight,
3445: l_masterInvItemId);
3446: IF l_debug_on THEN
3447: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3448: END IF;
3449: x_netWeight := WSH_WV_UTILS.convert_uom(
3450: l_masterWeightUomCode,
3451: p_masterWeightUomCode,
3445: l_masterInvItemId);
3446: IF l_debug_on THEN
3447: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3448: END IF;
3449: x_netWeight := WSH_WV_UTILS.convert_uom(
3450: l_masterWeightUomCode,
3451: p_masterWeightUomCode,
3452: l_netWeight,
3453: l_masterInvItemId);
3457: END IF;
3458:
3459: IF p_masterVolumeUomCode <> l_masterVolumeUomCode THEN
3460: IF l_debug_on THEN
3461: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3462: END IF;
3463: x_volume := WSH_WV_UTILS.convert_uom(
3464: l_masterVolumeUomCode,
3465: p_masterVolumeUomCode,
3459: IF p_masterVolumeUomCode <> l_masterVolumeUomCode THEN
3460: IF l_debug_on THEN
3461: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3462: END IF;
3463: x_volume := WSH_WV_UTILS.convert_uom(
3464: l_masterVolumeUomCode,
3465: p_masterVolumeUomCode,
3466: l_volume,
3467: l_masterInvItemId);
3465: p_masterVolumeUomCode,
3466: l_volume,
3467: l_masterInvItemId);
3468: IF l_debug_on THEN
3469: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3470: END IF;
3471: x_filledVolume := WSH_WV_UTILS.convert_uom(
3472: l_masterVolumeUomCode,
3473: p_masterVolumeUomCode,
3467: l_masterInvItemId);
3468: IF l_debug_on THEN
3469: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3470: END IF;
3471: x_filledVolume := WSH_WV_UTILS.convert_uom(
3472: l_masterVolumeUomCode,
3473: p_masterVolumeUomCode,
3474: l_filledVolume,
3475: l_masterInvItemId);
3531: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
3532: END IF;
3533: --
3534: WHEN e_abort THEN
3535: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3536: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3537: --
3538: -- Debug Statements
3539: --
3541: WSH_DEBUG_SV.pop(l_module_name);
3542: END IF;
3543:
3544: WHEN Others THEN
3545: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3546: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3547: --
3548: -- Debug Statements
3549: --
3637: /*
3638: EXCEPTION
3639:
3640: WHEN Others THEN
3641: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3642: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3643: */
3644: --
3645: -- Debug Statements
3839: END IF;
3840:
3841: EXCEPTION
3842: WHEN Others THEN
3843: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3844: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3845:
3846: IF l_debug_on THEN
3847: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
3947: FOR i IN 1..p_detail_rows.count LOOP
3948:
3949: -- OTM R12 : packing ECO
3950: -- for each detail in the loop, enable the check for delivery update
3951: IF (WSH_WV_UTILS.G_RESET_WV = 'Y') THEN
3952:
3953: OPEN c_get_delivery_info(p_detail_rows(i));
3954: FETCH c_get_delivery_info INTO l_delivery_id;
3955:
3958: END IF;
3959: CLOSE c_get_delivery_info;
3960:
3961: IF l_debug_on THEN
3962: WSH_DEBUG_SV.log(l_module_name, 'G_RESET_WV', WSH_WV_UTILS.G_RESET_WV);
3963: WSH_DEBUG_SV.log(l_module_name,'l_delivery_id', l_delivery_id);
3964: END IF;
3965:
3966: -- need to check for update only if delivery is include for planning and
3999:
4000: ELSE
4001:
4002: IF l_debug_on THEN
4003: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
4004: END IF;
4005: --
4006: Detail_Weight_Volume(
4007: p_delivery_detail_id => p_detail_rows(i),
4023: END IF;
4024:
4025: -- OTM R12 : packing ECO
4026: -- for the given delivery_id, G_DELIVERY_TMS_IMPACT is changed from N to Y
4027: IF (WSH_WV_UTILS.G_RESET_WV ='Y' AND
4028: G_DELIVERY_TMS_IMPACT = 'Y' AND
4029: l_delivery_id IS NOT NULL) THEN
4030:
4031: l_count := l_count + 1;
4098: IF (c_get_delivery_info%ISOPEN) THEN
4099: CLOSE c_get_delivery_info;
4100: END IF;
4101: -- End of OTM R12 : packing ECO
4102: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
4103: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4104:
4105: IF l_debug_on THEN
4106: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4571: END IF;
4572: --
4573: WHEN Others THEN
4574: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CALC_CONT_FILL_PC');
4575: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4576:
4577: --
4578: -- Debug Statements
4698: --
4699: -- Debug Statements
4700: --
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
4703: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4704: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4705: END IF;
4706: --
4703: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4704: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4705: END IF;
4706: --
4707: x_cont_tare_wt := WSH_WV_UTILS.Convert_Uom(l_wt_uom, nvl(p_wt_uom,l_cont_wt_uom),l_cont_unit_wt,nvl(p_cont_item_id, l_cont_item_id));
4708:
4709: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4710:
4711:
4718: --
4719: EXCEPTION
4720:
4721: WHEN Others THEN
4722: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_TARE_WEIGHT_SELF');
4723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4724:
4725: --
4726: -- Debug Statements
4899: END IF;
4900: --
4901: EXCEPTION
4902: WHEN Others THEN
4903: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CHECK_FILL_PC');
4904: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4905:
4906: --
4907: -- Debug Statements
5181:
5182: -- for the delivery, enable the check for delivery update
5183: -- need to check for update only if delivery is include for planning and
5184: -- tms_interface_flag is in CP UP AW AR state, which will be set to UR
5185: IF (WSH_WV_UTILS.G_RESET_WV ='Y' AND
5186: l_ignore_for_planning = 'N' AND
5187: l_tms_interface_flag IN
5188: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
5189: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
5216: END IF;
5217:
5218: -- Call Delivery WV API to calculate delivery W/V
5219: IF l_debug_on THEN
5220: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5221: END IF;
5222:
5223: Delivery_Weight_Volume(
5224: p_delivery_id => del.del_id,
5241: -- Convert the W/V if UOMs differ and then accumulate W/V
5242: IF (del.wt_uom <> l_weight_uom_code) THEN
5243: IF (l_gross_weight > 0) THEN
5244: IF l_debug_on THEN
5245: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5246: END IF;
5247: child_del_gross_weight := NVL(child_del_gross_weight,0) +
5248: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_gross_weight);
5249: ELSIF (l_gross_weight = 0) THEN
5244: IF l_debug_on THEN
5245: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5246: END IF;
5247: child_del_gross_weight := NVL(child_del_gross_weight,0) +
5248: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_gross_weight);
5249: ELSIF (l_gross_weight = 0) THEN
5250: IF l_debug_on THEN
5251: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_gross_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5252: END IF;
5254: END IF;
5255:
5256: IF (l_net_weight > 0) THEN
5257: IF l_debug_on THEN
5258: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5259: END IF;
5260: child_del_net_weight := NVL(child_del_net_weight,0) +
5261: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_net_weight);
5262: ELSIF (l_net_weight = 0) THEN
5257: IF l_debug_on THEN
5258: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5259: END IF;
5260: child_del_net_weight := NVL(child_del_net_weight,0) +
5261: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_net_weight);
5262: ELSIF (l_net_weight = 0) THEN
5263: IF l_debug_on THEN
5264: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_net_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5265: END IF;
5276:
5277: IF (del.vol_uom <> l_volume_uom_code) THEN
5278: IF (l_volume > 0) THEN
5279: IF l_debug_on THEN
5280: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5281: END IF;
5282: child_del_volume := NVL(child_del_volume,0) +
5283: WSH_WV_UTILS.convert_uom(del.vol_uom, l_volume_uom_code, l_volume);
5284: ELSIF (l_volume = 0) THEN
5279: IF l_debug_on THEN
5280: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5281: END IF;
5282: child_del_volume := NVL(child_del_volume,0) +
5283: WSH_WV_UTILS.convert_uom(del.vol_uom, l_volume_uom_code, l_volume);
5284: ELSIF (l_volume = 0) THEN
5285: IF l_debug_on THEN
5286: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5287: END IF;
5363: -- Convert the W/V if UOMs differ and then accumulate W/V
5364: IF (lpn.wt_uom <> l_weight_uom_code) THEN
5365: IF (l_cont_gross_weight > 0) THEN
5366: IF l_debug_on THEN
5367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5368: END IF;
5369: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) +
5370: WSH_WV_UTILS.convert_uom(lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, lpn.inventory_item_id);
5371: ELSIF (l_cont_gross_weight = 0) THEN
5366: IF l_debug_on THEN
5367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5368: END IF;
5369: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) +
5370: WSH_WV_UTILS.convert_uom(lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, lpn.inventory_item_id);
5371: ELSIF (l_cont_gross_weight = 0) THEN
5372: IF l_debug_on THEN
5373: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_gross_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5374: END IF;
5416: END IF;
5417:
5418: IF (consol_lpn.wt_uom <> l_weight_uom_code) THEN
5419: IF l_debug_on THEN
5420: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5421: END IF;
5422: IF (l_cont_gross_weight > 0) THEN
5423: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0) +
5424: WSH_WV_UTILS.convert_uom(consol_lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, consol_lpn.inventory_item_id);
5420: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5421: END IF;
5422: IF (l_cont_gross_weight > 0) THEN
5423: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0) +
5424: WSH_WV_UTILS.convert_uom(consol_lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, consol_lpn.inventory_item_id);
5425: ELSE
5426: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0);
5427: END IF;
5428: ELSE
5438:
5439: IF (consol_lpn.vol_uom <> l_volume_uom_code) THEN
5440: IF (l_cont_volume > 0) THEN
5441: IF l_debug_on THEN
5442: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5443: END IF;
5444: consol_lpn_volume := NVL(consol_lpn_volume,0) +
5445: WSH_WV_UTILS.convert_uom(consol_lpn.vol_uom, l_volume_uom_code, l_cont_volume);
5446: ELSIF (consol_lpn.vol = 0) THEN
5441: IF l_debug_on THEN
5442: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5443: END IF;
5444: consol_lpn_volume := NVL(consol_lpn_volume,0) +
5445: WSH_WV_UTILS.convert_uom(consol_lpn.vol_uom, l_volume_uom_code, l_cont_volume);
5446: ELSIF (consol_lpn.vol = 0) THEN
5447: IF l_debug_on THEN
5448: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5449: END IF;
5500: END IF;
5501:
5502: -- Call detail_weight_volume API to calculate detail W/V
5503: IF l_debug_on THEN
5504: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5505: END IF;
5506:
5507: WSH_WV_UTILS.detail_weight_volume(
5508: p_delivery_detail_id => dt.dd_id,
5503: IF l_debug_on THEN
5504: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5505: END IF;
5506:
5507: WSH_WV_UTILS.detail_weight_volume(
5508: p_delivery_detail_id => dt.dd_id,
5509: p_update_flag => p_update_flag,
5510: p_calc_wv_if_frozen => p_calc_wv_if_frozen,
5511: x_net_weight => l_net_weight,
5532: -- Convert the W/V if UOMs differ and then accumulate W/V
5533: IF (dt.wt_uom <> l_weight_uom_code) THEN
5534: IF (l_gross_weight > 0) THEN
5535: IF l_debug_on THEN
5536: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5537: END IF;
5538: loose_gross_weight := NVL(loose_gross_weight,0) +
5539: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_gross_weight, dt.inventory_item_id);
5540: ELSIF (l_gross_weight = 0) THEN
5535: IF l_debug_on THEN
5536: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5537: END IF;
5538: loose_gross_weight := NVL(loose_gross_weight,0) +
5539: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_gross_weight, dt.inventory_item_id);
5540: ELSIF (l_gross_weight = 0) THEN
5541: IF l_debug_on THEN
5542: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_gross_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5543: END IF;
5545: END IF;
5546:
5547: IF (l_net_weight > 0) THEN
5548: IF l_debug_on THEN
5549: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5550: END IF;
5551: loose_net_weight := NVL(loose_net_weight,0) +
5552: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_net_weight, dt.inventory_item_id);
5553: ELSIF (l_net_weight = 0) THEN
5548: IF l_debug_on THEN
5549: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5550: END IF;
5551: loose_net_weight := NVL(loose_net_weight,0) +
5552: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_net_weight, dt.inventory_item_id);
5553: ELSIF (l_net_weight = 0) THEN
5554: IF l_debug_on THEN
5555: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_net_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5556: END IF;
5567:
5568: IF (dt.vol_uom <> l_volume_uom_code) THEN
5569: IF (l_volume > 0) THEN
5570: IF l_debug_on THEN
5571: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5572: END IF;
5573: loose_volume := NVL(loose_volume,0) +
5574: WSH_WV_UTILS.convert_uom(dt.vol_uom, l_volume_uom_code, l_volume, dt.inventory_item_id);
5575: ELSIF (l_volume = 0) THEN
5570: IF l_debug_on THEN
5571: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5572: END IF;
5573: loose_volume := NVL(loose_volume,0) +
5574: WSH_WV_UTILS.convert_uom(dt.vol_uom, l_volume_uom_code, l_volume, dt.inventory_item_id);
5575: ELSIF (l_volume = 0) THEN
5576: IF l_debug_on THEN
5577: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5578: END IF;
5634: -- Convert the W/V if UOMs differ and then accumulate W/V
5635: IF (wci.wt_uom <> l_weight_uom_code) THEN
5636: IF (l_cont_gross_weight > 0) THEN
5637: IF l_debug_on THEN
5638: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5639: END IF;
5640: x_gross_weight := NVL(x_gross_weight,0) +
5641: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_gross_weight, wci.inventory_item_id);
5642: ELSIF (l_cont_gross_weight = 0) THEN
5637: IF l_debug_on THEN
5638: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5639: END IF;
5640: x_gross_weight := NVL(x_gross_weight,0) +
5641: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_gross_weight, wci.inventory_item_id);
5642: ELSIF (l_cont_gross_weight = 0) THEN
5643: IF l_debug_on THEN
5644: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_gross_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5645: END IF;
5647: END IF;
5648:
5649: IF (l_cont_net_weight > 0) THEN
5650: IF l_debug_on THEN
5651: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5652: END IF;
5653: x_net_weight := NVL(x_net_weight,0) +
5654: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_net_weight, wci.inventory_item_id);
5655: ELSIF (l_cont_net_weight = 0) THEN
5650: IF l_debug_on THEN
5651: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5652: END IF;
5653: x_net_weight := NVL(x_net_weight,0) +
5654: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_net_weight, wci.inventory_item_id);
5655: ELSIF (l_cont_net_weight = 0) THEN
5656: IF l_debug_on THEN
5657: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_net_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5658: END IF;
5669:
5670: IF (wci.vol_uom <> l_volume_uom_code) THEN
5671: IF (l_cont_volume > 0) THEN
5672: IF l_debug_on THEN
5673: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5674: END IF;
5675: x_volume := NVL(x_volume,0) +
5676: WSH_WV_UTILS.convert_uom(wci.vol_uom, l_volume_uom_code, l_cont_volume, wci.inventory_item_id);
5677: ELSIF (l_cont_volume = 0) THEN
5672: IF l_debug_on THEN
5673: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5674: END IF;
5675: x_volume := NVL(x_volume,0) +
5676: WSH_WV_UTILS.convert_uom(wci.vol_uom, l_volume_uom_code, l_cont_volume, wci.inventory_item_id);
5677: ELSIF (l_cont_volume = 0) THEN
5678: IF l_debug_on THEN
5679: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5680: END IF;
5722:
5723:
5724: -- OTM R12 : packing ECO
5725: -- for the given delivery_id, G_DELIVERY_TMS_IMPACT is changed from N to Y
5726: IF (WSH_WV_UTILS.G_RESET_WV ='Y' AND
5727: G_DELIVERY_TMS_IMPACT = 'Y' AND
5728: l_tms_interface_flag IN (
5729: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
5730: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
5780: WSH_DEBUG_SV.pop(l_module_name);
5781: END IF;
5782:
5783: WHEN Others THEN
5784: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5785: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5786:
5787: IF l_debug_on THEN
5788: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5963: END IF;
5964:
5965: EXCEPTION
5966: WHEN Others THEN
5967: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5968: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5969:
5970: IF l_debug_on THEN
5971: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6095:
6096: EXCEPTION
6097: WHEN others THEN
6098:
6099: wsh_util_core.default_handler ('WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME');
6100: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6101:
6102: IF l_debug_on THEN
6103: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6201:
6202:
6203: EXCEPTION
6204: WHEN others THEN
6205: wsh_util_core.default_handler ('WSH_WV_UTILS.within_deviation');
6206:
6207: IF l_debug_on THEN
6208: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6209: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6416: IF (c_get_delivery_info_cont%ISOPEN) THEN
6417: CLOSE c_get_delivery_info_cont;
6418: END IF;
6419:
6420: WSH_UTIL_CORE.default_handler('WSH_WV_UTILS.Prorate_weight' );
6421: --
6422: -- Debug Statements
6423: --
6424: IF l_debug_on THEN
6465: SELECT wdd.delivery_detail_id,
6466: nvl(wdd.net_weight,0) net_wt,
6467: nvl(wdd.gross_weight,0) gross_wt,
6468: nvl(wdd.gross_weight,0) - nvl(wdd.net_weight,0) tare_wt,
6469: decode(wdd.weight_uom_code,p_wt_uom,nvl(wdd.net_weight,0),wsh_wv_utils.convert_uom(wdd.weight_uom_code,p_wt_uom,nvl(wdd.net_weight,0),wdd.inventory_item_id)) net_wt_in_parent_uom,
6470: decode(wdd.weight_uom_code,p_wt_uom,nvl(wdd.gross_weight,0)-nvl(wdd.net_weight,0),wsh_wv_utils.convert_uom(wdd.weight_uom_code,p_wt_uom,(nvl(wdd.gross_weight,0)-nvl(wdd.net_weight,0)),wdd.inventory_item_id)) tare_wt_in_parent_uom,
6471: wdd.weight_uom_code,
6472: wdd.inventory_item_id,
6473: wdd.container_flag,
6466: nvl(wdd.net_weight,0) net_wt,
6467: nvl(wdd.gross_weight,0) gross_wt,
6468: nvl(wdd.gross_weight,0) - nvl(wdd.net_weight,0) tare_wt,
6469: decode(wdd.weight_uom_code,p_wt_uom,nvl(wdd.net_weight,0),wsh_wv_utils.convert_uom(wdd.weight_uom_code,p_wt_uom,nvl(wdd.net_weight,0),wdd.inventory_item_id)) net_wt_in_parent_uom,
6470: decode(wdd.weight_uom_code,p_wt_uom,nvl(wdd.gross_weight,0)-nvl(wdd.net_weight,0),wsh_wv_utils.convert_uom(wdd.weight_uom_code,p_wt_uom,(nvl(wdd.gross_weight,0)-nvl(wdd.net_weight,0)),wdd.inventory_item_id)) tare_wt_in_parent_uom,
6471: wdd.weight_uom_code,
6472: wdd.inventory_item_id,
6473: wdd.container_flag,
6474: nvl(wdd.line_direction, 'O') line_direction, -- LPN CONV. rv
6486: SELECT wdd.delivery_detail_id,
6487: nvl(wdd.net_weight,0) net_wt,
6488: nvl(wdd.gross_weight,0) gross_wt,
6489: nvl(wdd.gross_weight,0) - nvl(wdd.net_weight,0) tare_wt,
6490: decode(wdd.weight_uom_code,p_wt_uom,nvl(wdd.net_weight,0),wsh_wv_utils.convert_uom(wdd.weight_uom_code,p_wt_uom,nvl(wdd.net_weight,0),wdd.inventory_item_id)) net_wt_in_parent_uom,
6491: decode(wdd.weight_uom_code,p_wt_uom,nvl(wdd.gross_weight,0)-nvl(wdd.net_weight,0),wsh_wv_utils.convert_uom(wdd.weight_uom_code,p_wt_uom,(nvl(wdd.gross_weight,0)-nvl(wdd.net_weight,0)),wdd.inventory_item_id)) tare_wt_in_parent_uom,
6492: wdd.weight_uom_code,
6493: wdd.inventory_item_id,
6494: wdd.container_flag,
6487: nvl(wdd.net_weight,0) net_wt,
6488: nvl(wdd.gross_weight,0) gross_wt,
6489: nvl(wdd.gross_weight,0) - nvl(wdd.net_weight,0) tare_wt,
6490: decode(wdd.weight_uom_code,p_wt_uom,nvl(wdd.net_weight,0),wsh_wv_utils.convert_uom(wdd.weight_uom_code,p_wt_uom,nvl(wdd.net_weight,0),wdd.inventory_item_id)) net_wt_in_parent_uom,
6491: decode(wdd.weight_uom_code,p_wt_uom,nvl(wdd.gross_weight,0)-nvl(wdd.net_weight,0),wsh_wv_utils.convert_uom(wdd.weight_uom_code,p_wt_uom,(nvl(wdd.gross_weight,0)-nvl(wdd.net_weight,0)),wdd.inventory_item_id)) tare_wt_in_parent_uom,
6492: wdd.weight_uom_code,
6493: wdd.inventory_item_id,
6494: wdd.container_flag,
6495: nvl(wdd.line_direction, 'O') line_direction, -- LPN CONV. rv
6720: --{ UOM's are different
6721: IF l_detail_rec_tab(i).tare_wt_in_parent_uom <> 0 THEN
6722: --{
6723: l_new_tare_wt_in_parent_uom :=l_detail_rec_tab(i).tare_wt_in_parent_uom + (l_detail_rec_tab(i).tare_wt_in_parent_uom/l_total_tare_wt) * l_entity_tare_change;
6724: l_new_tare_wt := WSH_WV_UTILS.convert_uom(
6725: p_weight_uom_code,
6726: l_detail_rec_tab(i).weight_uom_code,
6727: l_new_tare_wt_in_parent_uom,
6728: l_detail_rec_tab(i).inventory_item_id);
6748: --{ UOM's are different
6749: IF l_detail_rec_tab(i).net_wt_in_parent_uom <> 0 THEN
6750: --{
6751: l_new_net_wt_in_parent_uom :=l_detail_rec_tab(i).net_wt_in_parent_uom + (l_detail_rec_tab(i).net_wt_in_parent_uom/l_total_net_wt) * l_entity_net_change;
6752: l_new_net_wt := WSH_WV_UTILS.convert_uom(
6753: p_weight_uom_code,
6754: l_detail_rec_tab(i).weight_uom_code,
6755: l_new_net_wt_in_parent_uom,
6756: l_detail_rec_tab(i).inventory_item_id);
7037: END IF;
7038: IF immediate_details_cont%ISOPEN THEN
7039: CLOSE immediate_details_cont;
7040: END IF;
7041: WSH_UTIL_CORE.default_handler('WSH_WV_UTILS.Prorate_weight_actual' );
7042: --
7043: -- Debug Statements
7044: --
7045: IF l_debug_on THEN
7048: END IF;
7049: --
7050: END Prorate_weight_actual;
7051:
7052: END WSH_WV_UTILS;