[Home] [Help]
1: PACKAGE BODY WSH_WV_UTILS as
2: /* $Header: WSHWVUTB.pls 120.23.12010000.2 2008/08/04 12:34:13 suppal ship $ */
3:
4:
5: --
2: /* $Header: WSHWVUTB.pls 120.23.12010000.2 2008/08/04 12:34:13 suppal 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:
305: END IF;
306: --
307: EXCEPTION
308: WHEN Others THEN
309: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.GET_DEFAULT_UOMS');
310: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
311:
312: --
313: -- Debug Statements
710:
711:
712: WHEN others THEN
713:
714: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
715: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
716: IF l_debug_on THEN
717: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
718: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1590: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
1591: END IF;
1592:
1593: WHEN Others THEN
1594: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Adjust_parent_WV');
1595: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1596:
1597: IF l_debug_on THEN
1598: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1837:
1838: IF l_debug_on THEN
1839: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_Container_Wt_Vol',WSH_DEBUG_SV.C_PROC_LEVEL);
1840: END IF;
1841: WSH_WV_UTILS.update_container_wt_vol(
1842: p_container_instance_id => l_parent_container_id,
1843: p_gross_weight => l_tmp_unit_wt,
1844: p_net_weight => null,
1845: p_volume => l_tmp_unit_vol,
1857: l_num_warnings := l_num_warnings + 1;
1858: END IF;
1859:
1860: IF l_debug_on THEN
1861: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1862: END IF;
1863:
1864: DD_WV_Post_Process(
1865: p_delivery_detail_id => l_parent_container_id,
1871:
1872: ELSE -- NOT l_cont_empty
1873: -- Call Adjust_parent_WV to adjust W/V
1874: IF l_debug_on THEN
1875: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1876: END IF;
1877: Adjust_parent_WV(
1878: p_entity_type => 'CONTAINER',
1879: p_entity_id => l_parent_container_id,
1949:
1950: CLOSE C5;
1951:
1952: IF l_debug_on THEN
1953: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Del_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1954: END IF;
1955:
1956: Del_WV_Post_Process(
1957: p_delivery_id => l_delivery_id,
1963: ELSE -- NOT l_del_empty
1964:
1965: -- Call Adjust_parent_WV to adjust W/V
1966: IF l_debug_on THEN
1967: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1968: END IF;
1969: IF (l_container_flag = 'Y') OR ((l_container_flag = 'C')
1970: AND (NVL(g_consol_lpn, 0) <> p_delivery_detail_id)) THEN
1971: Adjust_parent_WV(
2032: WSH_DEBUG_SV.pop(l_module_name);
2033: END IF;
2034:
2035: WHEN Others THEN
2036: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DD_WV_POST_PROCESS');
2037: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2038:
2039: IF l_debug_on THEN
2040: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2382: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2383: END IF;
2384:
2385: WHEN Others THEN
2386: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DEL_WV_POST_PROCESS');
2387: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2388:
2389: IF l_debug_on THEN
2390: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2559: WSH_DEBUG_SV.pop(l_module_name);
2560: END IF;
2561:
2562: WHEN Others THEN
2563: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Detail_Weight_Volume');
2564: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2565: IF l_debug_on THEN
2566: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
2567: ;
3002: wdd.volume_uom_code,
3003: wdd.organization_id ,
3004: nvl(wdd.unit_weight,msi.unit_weight) unit_weight,
3005: nvl(wdd.unit_volume,msi.unit_volume) unit_volume,
3006: WSH_WV_UTILS.convert_uom
3007: (
3008: wdd.requested_quantity_uom,
3009: nvl(msi.primary_uom_code,wdd.requested_quantity_uom), --Bug7165744
3010: nvl(wdd.received_quantity, nvl(wdd.shipped_quantity, NVL(wdd.picked_quantity, wdd.requested_quantity))),
3139:
3140: -- Convert the W/V if UOMs differ
3141: IF ((l_dd_vol > 0) AND (childInfo_rec.volume_uom_code <> l_masterVolumeUomCode)) THEN
3142: IF l_debug_on THEN
3143: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3144: END IF;
3145: l_line_volume := WSH_WV_UTILS.convert_uom(
3146: childInfo_rec.volume_uom_code,
3147: l_masterVolumeUomCode,
3141: IF ((l_dd_vol > 0) AND (childInfo_rec.volume_uom_code <> l_masterVolumeUomCode)) THEN
3142: IF l_debug_on THEN
3143: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3144: END IF;
3145: l_line_volume := WSH_WV_UTILS.convert_uom(
3146: childInfo_rec.volume_uom_code,
3147: l_masterVolumeUomCode,
3148: l_dd_vol,
3149: childInfo_rec.inventory_item_id);
3156: END IF;
3157:
3158: IF ((l_dd_grossWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3159: IF l_debug_on THEN
3160: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3161: END IF;
3162: l_line_grossWeight := WSH_WV_UTILS.convert_uom(
3163: childInfo_rec.weight_uom_code,
3164: l_masterWeightUomCode,
3158: IF ((l_dd_grossWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3159: IF l_debug_on THEN
3160: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3161: END IF;
3162: l_line_grossWeight := WSH_WV_UTILS.convert_uom(
3163: childInfo_rec.weight_uom_code,
3164: l_masterWeightUomCode,
3165: l_dd_grossWt,
3166: childInfo_rec.inventory_item_id);
3171: END IF;
3172:
3173: IF ((l_dd_netWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3174: IF l_debug_on THEN
3175: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3176: END IF;
3177: l_line_netWeight := WSH_WV_UTILS.convert_uom(
3178: childInfo_rec.weight_uom_code,
3179: l_masterWeightUomCode,
3173: IF ((l_dd_netWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3174: IF l_debug_on THEN
3175: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3176: END IF;
3177: l_line_netWeight := WSH_WV_UTILS.convert_uom(
3178: childInfo_rec.weight_uom_code,
3179: l_masterWeightUomCode,
3180: l_dd_netWt,
3181: childInfo_rec.inventory_item_id);
3422:
3423: -- Convert the calculated W/V to p_masterWeightUomCode,p_masterVolumeUomCode UOMs
3424: IF p_masterWeightUomCode <> l_masterWeightUomCode THEN
3425: IF l_debug_on THEN
3426: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3427: END IF;
3428: x_grossWeight := WSH_WV_UTILS.convert_uom(
3429: l_masterWeightUomCode,
3430: p_masterWeightUomCode,
3424: IF p_masterWeightUomCode <> l_masterWeightUomCode THEN
3425: IF l_debug_on THEN
3426: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3427: END IF;
3428: x_grossWeight := WSH_WV_UTILS.convert_uom(
3429: l_masterWeightUomCode,
3430: p_masterWeightUomCode,
3431: l_grossWeight,
3432: l_masterInvItemId);
3430: p_masterWeightUomCode,
3431: l_grossWeight,
3432: l_masterInvItemId);
3433: IF l_debug_on THEN
3434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3435: END IF;
3436: x_netWeight := WSH_WV_UTILS.convert_uom(
3437: l_masterWeightUomCode,
3438: p_masterWeightUomCode,
3432: l_masterInvItemId);
3433: IF l_debug_on THEN
3434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3435: END IF;
3436: x_netWeight := WSH_WV_UTILS.convert_uom(
3437: l_masterWeightUomCode,
3438: p_masterWeightUomCode,
3439: l_netWeight,
3440: l_masterInvItemId);
3444: END IF;
3445:
3446: IF p_masterVolumeUomCode <> l_masterVolumeUomCode THEN
3447: IF l_debug_on THEN
3448: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3449: END IF;
3450: x_volume := WSH_WV_UTILS.convert_uom(
3451: l_masterVolumeUomCode,
3452: p_masterVolumeUomCode,
3446: IF p_masterVolumeUomCode <> l_masterVolumeUomCode THEN
3447: IF l_debug_on THEN
3448: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3449: END IF;
3450: x_volume := WSH_WV_UTILS.convert_uom(
3451: l_masterVolumeUomCode,
3452: p_masterVolumeUomCode,
3453: l_volume,
3454: l_masterInvItemId);
3452: p_masterVolumeUomCode,
3453: l_volume,
3454: l_masterInvItemId);
3455: IF l_debug_on THEN
3456: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3457: END IF;
3458: x_filledVolume := WSH_WV_UTILS.convert_uom(
3459: l_masterVolumeUomCode,
3460: p_masterVolumeUomCode,
3454: l_masterInvItemId);
3455: IF l_debug_on THEN
3456: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3457: END IF;
3458: x_filledVolume := WSH_WV_UTILS.convert_uom(
3459: l_masterVolumeUomCode,
3460: p_masterVolumeUomCode,
3461: l_filledVolume,
3462: l_masterInvItemId);
3518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
3519: END IF;
3520: --
3521: WHEN e_abort THEN
3522: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3523: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3524: --
3525: -- Debug Statements
3526: --
3528: WSH_DEBUG_SV.pop(l_module_name);
3529: END IF;
3530:
3531: WHEN Others THEN
3532: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3533: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3534: --
3535: -- Debug Statements
3536: --
3624: /*
3625: EXCEPTION
3626:
3627: WHEN Others THEN
3628: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3629: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3630: */
3631: --
3632: -- Debug Statements
3826: END IF;
3827:
3828: EXCEPTION
3829: WHEN Others THEN
3830: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3832:
3833: IF l_debug_on THEN
3834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
3934: FOR i IN 1..p_detail_rows.count LOOP
3935:
3936: -- OTM R12 : packing ECO
3937: -- for each detail in the loop, enable the check for delivery update
3938: IF (WSH_WV_UTILS.G_RESET_WV = 'Y') THEN
3939:
3940: OPEN c_get_delivery_info(p_detail_rows(i));
3941: FETCH c_get_delivery_info INTO l_delivery_id;
3942:
3945: END IF;
3946: CLOSE c_get_delivery_info;
3947:
3948: IF l_debug_on THEN
3949: WSH_DEBUG_SV.log(l_module_name, 'G_RESET_WV', WSH_WV_UTILS.G_RESET_WV);
3950: WSH_DEBUG_SV.log(l_module_name,'l_delivery_id', l_delivery_id);
3951: END IF;
3952:
3953: -- need to check for update only if delivery is include for planning and
3986:
3987: ELSE
3988:
3989: IF l_debug_on THEN
3990: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
3991: END IF;
3992: --
3993: Detail_Weight_Volume(
3994: p_delivery_detail_id => p_detail_rows(i),
4010: END IF;
4011:
4012: -- OTM R12 : packing ECO
4013: -- for the given delivery_id, G_DELIVERY_TMS_IMPACT is changed from N to Y
4014: IF (WSH_WV_UTILS.G_RESET_WV ='Y' AND
4015: G_DELIVERY_TMS_IMPACT = 'Y' AND
4016: l_delivery_id IS NOT NULL) THEN
4017:
4018: l_count := l_count + 1;
4085: IF (c_get_delivery_info%ISOPEN) THEN
4086: CLOSE c_get_delivery_info;
4087: END IF;
4088: -- End of OTM R12 : packing ECO
4089: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
4090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4091:
4092: IF l_debug_on THEN
4093: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4558: END IF;
4559: --
4560: WHEN Others THEN
4561: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CALC_CONT_FILL_PC');
4562: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4563:
4564: --
4565: -- Debug Statements
4685: --
4686: -- Debug Statements
4687: --
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
4690: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4691: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4692: END IF;
4693: --
4690: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4691: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4692: END IF;
4693: --
4694: 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));
4695:
4696: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4697:
4698:
4705: --
4706: EXCEPTION
4707:
4708: WHEN Others THEN
4709: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_TARE_WEIGHT_SELF');
4710: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4711:
4712: --
4713: -- Debug Statements
4886: END IF;
4887: --
4888: EXCEPTION
4889: WHEN Others THEN
4890: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CHECK_FILL_PC');
4891: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4892:
4893: --
4894: -- Debug Statements
5168:
5169: -- for the delivery, enable the check for delivery update
5170: -- need to check for update only if delivery is include for planning and
5171: -- tms_interface_flag is in CP UP AW AR state, which will be set to UR
5172: IF (WSH_WV_UTILS.G_RESET_WV ='Y' AND
5173: l_ignore_for_planning = 'N' AND
5174: l_tms_interface_flag IN
5175: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
5176: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
5203: END IF;
5204:
5205: -- Call Delivery WV API to calculate delivery W/V
5206: IF l_debug_on THEN
5207: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5208: END IF;
5209:
5210: Delivery_Weight_Volume(
5211: p_delivery_id => del.del_id,
5228: -- Convert the W/V if UOMs differ and then accumulate W/V
5229: IF (del.wt_uom <> l_weight_uom_code) THEN
5230: IF (l_gross_weight > 0) THEN
5231: IF l_debug_on THEN
5232: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5233: END IF;
5234: child_del_gross_weight := NVL(child_del_gross_weight,0) +
5235: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_gross_weight);
5236: ELSIF (l_gross_weight = 0) THEN
5231: IF l_debug_on THEN
5232: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5233: END IF;
5234: child_del_gross_weight := NVL(child_del_gross_weight,0) +
5235: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_gross_weight);
5236: ELSIF (l_gross_weight = 0) THEN
5237: IF l_debug_on THEN
5238: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_gross_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5239: END IF;
5241: END IF;
5242:
5243: IF (l_net_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 Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5246: END IF;
5247: child_del_net_weight := NVL(child_del_net_weight,0) +
5248: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_net_weight);
5249: ELSIF (l_net_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 Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5246: END IF;
5247: child_del_net_weight := NVL(child_del_net_weight,0) +
5248: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_net_weight);
5249: ELSIF (l_net_weight = 0) THEN
5250: IF l_debug_on THEN
5251: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_net_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5252: END IF;
5263:
5264: IF (del.vol_uom <> l_volume_uom_code) THEN
5265: IF (l_volume > 0) THEN
5266: IF l_debug_on THEN
5267: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5268: END IF;
5269: child_del_volume := NVL(child_del_volume,0) +
5270: WSH_WV_UTILS.convert_uom(del.vol_uom, l_volume_uom_code, l_volume);
5271: ELSIF (l_volume = 0) THEN
5266: IF l_debug_on THEN
5267: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5268: END IF;
5269: child_del_volume := NVL(child_del_volume,0) +
5270: WSH_WV_UTILS.convert_uom(del.vol_uom, l_volume_uom_code, l_volume);
5271: ELSIF (l_volume = 0) THEN
5272: IF l_debug_on THEN
5273: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5274: END IF;
5350: -- Convert the W/V if UOMs differ and then accumulate W/V
5351: IF (lpn.wt_uom <> l_weight_uom_code) THEN
5352: IF (l_cont_gross_weight > 0) THEN
5353: IF l_debug_on THEN
5354: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5355: END IF;
5356: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) +
5357: WSH_WV_UTILS.convert_uom(lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, lpn.inventory_item_id);
5358: ELSIF (l_cont_gross_weight = 0) THEN
5353: IF l_debug_on THEN
5354: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5355: END IF;
5356: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) +
5357: WSH_WV_UTILS.convert_uom(lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, lpn.inventory_item_id);
5358: ELSIF (l_cont_gross_weight = 0) THEN
5359: IF l_debug_on THEN
5360: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_gross_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5361: END IF;
5403: END IF;
5404:
5405: IF (consol_lpn.wt_uom <> l_weight_uom_code) THEN
5406: IF l_debug_on THEN
5407: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5408: END IF;
5409: IF (l_cont_gross_weight > 0) THEN
5410: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0) +
5411: WSH_WV_UTILS.convert_uom(consol_lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, consol_lpn.inventory_item_id);
5407: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5408: END IF;
5409: IF (l_cont_gross_weight > 0) THEN
5410: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0) +
5411: WSH_WV_UTILS.convert_uom(consol_lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, consol_lpn.inventory_item_id);
5412: ELSE
5413: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0);
5414: END IF;
5415: ELSE
5425:
5426: IF (consol_lpn.vol_uom <> l_volume_uom_code) THEN
5427: IF (l_cont_volume > 0) THEN
5428: IF l_debug_on THEN
5429: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5430: END IF;
5431: consol_lpn_volume := NVL(consol_lpn_volume,0) +
5432: WSH_WV_UTILS.convert_uom(consol_lpn.vol_uom, l_volume_uom_code, l_cont_volume);
5433: ELSIF (consol_lpn.vol = 0) THEN
5428: IF l_debug_on THEN
5429: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5430: END IF;
5431: consol_lpn_volume := NVL(consol_lpn_volume,0) +
5432: WSH_WV_UTILS.convert_uom(consol_lpn.vol_uom, l_volume_uom_code, l_cont_volume);
5433: ELSIF (consol_lpn.vol = 0) THEN
5434: IF l_debug_on THEN
5435: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5436: END IF;
5487: END IF;
5488:
5489: -- Call detail_weight_volume API to calculate detail W/V
5490: IF l_debug_on THEN
5491: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5492: END IF;
5493:
5494: WSH_WV_UTILS.detail_weight_volume(
5495: p_delivery_detail_id => dt.dd_id,
5490: IF l_debug_on THEN
5491: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5492: END IF;
5493:
5494: WSH_WV_UTILS.detail_weight_volume(
5495: p_delivery_detail_id => dt.dd_id,
5496: p_update_flag => p_update_flag,
5497: p_calc_wv_if_frozen => p_calc_wv_if_frozen,
5498: x_net_weight => l_net_weight,
5519: -- Convert the W/V if UOMs differ and then accumulate W/V
5520: IF (dt.wt_uom <> l_weight_uom_code) THEN
5521: IF (l_gross_weight > 0) THEN
5522: IF l_debug_on THEN
5523: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5524: END IF;
5525: loose_gross_weight := NVL(loose_gross_weight,0) +
5526: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_gross_weight, dt.inventory_item_id);
5527: ELSIF (l_gross_weight = 0) THEN
5522: IF l_debug_on THEN
5523: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5524: END IF;
5525: loose_gross_weight := NVL(loose_gross_weight,0) +
5526: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_gross_weight, dt.inventory_item_id);
5527: ELSIF (l_gross_weight = 0) THEN
5528: IF l_debug_on THEN
5529: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_gross_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5530: END IF;
5532: END IF;
5533:
5534: IF (l_net_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 Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5537: END IF;
5538: loose_net_weight := NVL(loose_net_weight,0) +
5539: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_net_weight, dt.inventory_item_id);
5540: ELSIF (l_net_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 Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5537: END IF;
5538: loose_net_weight := NVL(loose_net_weight,0) +
5539: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_net_weight, dt.inventory_item_id);
5540: ELSIF (l_net_weight = 0) THEN
5541: IF l_debug_on THEN
5542: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_net_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5543: END IF;
5554:
5555: IF (dt.vol_uom <> l_volume_uom_code) THEN
5556: IF (l_volume > 0) THEN
5557: IF l_debug_on THEN
5558: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5559: END IF;
5560: loose_volume := NVL(loose_volume,0) +
5561: WSH_WV_UTILS.convert_uom(dt.vol_uom, l_volume_uom_code, l_volume, dt.inventory_item_id);
5562: ELSIF (l_volume = 0) THEN
5557: IF l_debug_on THEN
5558: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5559: END IF;
5560: loose_volume := NVL(loose_volume,0) +
5561: WSH_WV_UTILS.convert_uom(dt.vol_uom, l_volume_uom_code, l_volume, dt.inventory_item_id);
5562: ELSIF (l_volume = 0) THEN
5563: IF l_debug_on THEN
5564: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5565: END IF;
5621: -- Convert the W/V if UOMs differ and then accumulate W/V
5622: IF (wci.wt_uom <> l_weight_uom_code) THEN
5623: IF (l_cont_gross_weight > 0) THEN
5624: IF l_debug_on THEN
5625: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5626: END IF;
5627: x_gross_weight := NVL(x_gross_weight,0) +
5628: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_gross_weight, wci.inventory_item_id);
5629: ELSIF (l_cont_gross_weight = 0) THEN
5624: IF l_debug_on THEN
5625: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5626: END IF;
5627: x_gross_weight := NVL(x_gross_weight,0) +
5628: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_gross_weight, wci.inventory_item_id);
5629: ELSIF (l_cont_gross_weight = 0) THEN
5630: IF l_debug_on THEN
5631: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_gross_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5632: END IF;
5634: END IF;
5635:
5636: IF (l_cont_net_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 Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5639: END IF;
5640: x_net_weight := NVL(x_net_weight,0) +
5641: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_net_weight, wci.inventory_item_id);
5642: ELSIF (l_cont_net_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 Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5639: END IF;
5640: x_net_weight := NVL(x_net_weight,0) +
5641: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_net_weight, wci.inventory_item_id);
5642: ELSIF (l_cont_net_weight = 0) THEN
5643: IF l_debug_on THEN
5644: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_net_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5645: END IF;
5656:
5657: IF (wci.vol_uom <> l_volume_uom_code) THEN
5658: IF (l_cont_volume > 0) THEN
5659: IF l_debug_on THEN
5660: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5661: END IF;
5662: x_volume := NVL(x_volume,0) +
5663: WSH_WV_UTILS.convert_uom(wci.vol_uom, l_volume_uom_code, l_cont_volume, wci.inventory_item_id);
5664: ELSIF (l_cont_volume = 0) THEN
5659: IF l_debug_on THEN
5660: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5661: END IF;
5662: x_volume := NVL(x_volume,0) +
5663: WSH_WV_UTILS.convert_uom(wci.vol_uom, l_volume_uom_code, l_cont_volume, wci.inventory_item_id);
5664: ELSIF (l_cont_volume = 0) THEN
5665: IF l_debug_on THEN
5666: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5667: END IF;
5709:
5710:
5711: -- OTM R12 : packing ECO
5712: -- for the given delivery_id, G_DELIVERY_TMS_IMPACT is changed from N to Y
5713: IF (WSH_WV_UTILS.G_RESET_WV ='Y' AND
5714: G_DELIVERY_TMS_IMPACT = 'Y' AND
5715: l_tms_interface_flag IN (
5716: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
5717: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
5767: WSH_DEBUG_SV.pop(l_module_name);
5768: END IF;
5769:
5770: WHEN Others THEN
5771: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5773:
5774: IF l_debug_on THEN
5775: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5950: END IF;
5951:
5952: EXCEPTION
5953: WHEN Others THEN
5954: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5955: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5956:
5957: IF l_debug_on THEN
5958: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6082:
6083: EXCEPTION
6084: WHEN others THEN
6085:
6086: wsh_util_core.default_handler ('WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME');
6087: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6088:
6089: IF l_debug_on THEN
6090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6169:
6170:
6171: EXCEPTION
6172: WHEN others THEN
6173: wsh_util_core.default_handler ('WSH_WV_UTILS.within_deviation');
6174:
6175: IF l_debug_on THEN
6176: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6177: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6384: IF (c_get_delivery_info_cont%ISOPEN) THEN
6385: CLOSE c_get_delivery_info_cont;
6386: END IF;
6387:
6388: WSH_UTIL_CORE.default_handler('WSH_WV_UTILS.Prorate_weight' );
6389: --
6390: -- Debug Statements
6391: --
6392: IF l_debug_on THEN
6433: SELECT wdd.delivery_detail_id,
6434: nvl(wdd.net_weight,0) net_wt,
6435: nvl(wdd.gross_weight,0) gross_wt,
6436: nvl(wdd.gross_weight,0) - nvl(wdd.net_weight,0) tare_wt,
6437: 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,
6438: 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,
6439: wdd.weight_uom_code,
6440: wdd.inventory_item_id,
6441: wdd.container_flag,
6434: nvl(wdd.net_weight,0) net_wt,
6435: nvl(wdd.gross_weight,0) gross_wt,
6436: nvl(wdd.gross_weight,0) - nvl(wdd.net_weight,0) tare_wt,
6437: 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,
6438: 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,
6439: wdd.weight_uom_code,
6440: wdd.inventory_item_id,
6441: wdd.container_flag,
6442: nvl(wdd.line_direction, 'O') line_direction, -- LPN CONV. rv
6454: SELECT wdd.delivery_detail_id,
6455: nvl(wdd.net_weight,0) net_wt,
6456: nvl(wdd.gross_weight,0) gross_wt,
6457: nvl(wdd.gross_weight,0) - nvl(wdd.net_weight,0) tare_wt,
6458: 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,
6459: 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,
6460: wdd.weight_uom_code,
6461: wdd.inventory_item_id,
6462: wdd.container_flag,
6455: nvl(wdd.net_weight,0) net_wt,
6456: nvl(wdd.gross_weight,0) gross_wt,
6457: nvl(wdd.gross_weight,0) - nvl(wdd.net_weight,0) tare_wt,
6458: 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,
6459: 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,
6460: wdd.weight_uom_code,
6461: wdd.inventory_item_id,
6462: wdd.container_flag,
6463: nvl(wdd.line_direction, 'O') line_direction, -- LPN CONV. rv
6688: --{ UOM's are different
6689: IF l_detail_rec_tab(i).tare_wt_in_parent_uom <> 0 THEN
6690: --{
6691: 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;
6692: l_new_tare_wt := WSH_WV_UTILS.convert_uom(
6693: p_weight_uom_code,
6694: l_detail_rec_tab(i).weight_uom_code,
6695: l_new_tare_wt_in_parent_uom,
6696: l_detail_rec_tab(i).inventory_item_id);
6716: --{ UOM's are different
6717: IF l_detail_rec_tab(i).net_wt_in_parent_uom <> 0 THEN
6718: --{
6719: 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;
6720: l_new_net_wt := WSH_WV_UTILS.convert_uom(
6721: p_weight_uom_code,
6722: l_detail_rec_tab(i).weight_uom_code,
6723: l_new_net_wt_in_parent_uom,
6724: l_detail_rec_tab(i).inventory_item_id);
7005: END IF;
7006: IF immediate_details_cont%ISOPEN THEN
7007: CLOSE immediate_details_cont;
7008: END IF;
7009: WSH_UTIL_CORE.default_handler('WSH_WV_UTILS.Prorate_weight_actual' );
7010: --
7011: -- Debug Statements
7012: --
7013: IF l_debug_on THEN
7016: END IF;
7017: --
7018: END Prorate_weight_actual;
7019:
7020: END WSH_WV_UTILS;