[Home] [Help]
141: --
142: BEGIN
143: --
144: --
145: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
146: IF quantity is NULL THEN
147: result := NULL;
148: ELSE
149: IF from_uom = to_uom THEN
200:
201: if result = -99999 then
202: fnd_profile.get('WSH_IGNORE_WT_VOL',l_ignore_wtvol);
203: IF NVL(l_ignore_wtvol,'Y') = 'N' THEN
204: x_return_status := wsh_util_core.g_ret_sts_error;
205: FND_MESSAGE.SET_NAME('WSH','WSH_UNDEF_UOM_CONVERSION');
206: FND_MESSAGE.SET_TOKEN('FROM_UOM',from_uom);
207: FND_MESSAGE.SET_TOKEN('TO_UOM',to_uom);
208: WSH_UTIL_CORE.add_message (x_return_status);
204: x_return_status := wsh_util_core.g_ret_sts_error;
205: FND_MESSAGE.SET_NAME('WSH','WSH_UNDEF_UOM_CONVERSION');
206: FND_MESSAGE.SET_TOKEN('FROM_UOM',from_uom);
207: FND_MESSAGE.SET_TOKEN('TO_UOM',to_uom);
208: WSH_UTIL_CORE.add_message (x_return_status);
209: END IF;
210: result := 0;
211: end if;
212: END IF;
216: RETURN result;
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;
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:
266: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
267: END IF;
268: --
269: if ( p_organization_id is NULL ) Then
270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
271: --
272: -- Debug Statements
273: --
274: IF l_debug_on THEN
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
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
314: --
429: l_item_unit_wt NUMBER;
430: l_item_unit_vol NUMBER;
431: l_frozen_flag VARCHAR2(1);
432: l_return_status VARCHAR2(1);
433: l_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
434: --lpn conv
435: l_container_flag VARCHAR2(10);
436: l_wms_org VARCHAR2(10) := 'N';
437: -- LPN CONV. rv
453: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
454: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
455: END IF;
456:
457: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
458:
459: -- Get the original W/V of the delivery detail
460: OPEN get_detail_wv (p_delivery_detail_id);
461: FETCH get_detail_wv
475: l_line_direction; -- LPN CONV. rv
476: IF get_detail_wv%NOTFOUND THEN
477: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_INVALID_DETAIL');
478: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
479: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
480: CLOSE get_detail_wv;
481: IF l_debug_on THEN
482: WSH_DEBUG_SV.pop(l_module_name);
483: END IF;
540:
541: IF Item_Net_Wt_Vol%NOTFOUND THEN
542: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_INVALID_DETAIL');
543: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
545: CLOSE Item_Net_Wt_Vol;
546: IF l_debug_on THEN
547: WSH_DEBUG_SV.pop(l_module_name);
548: END IF;
593: IF l_debug_on THEN
594: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
595: END IF;
596: --
597: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
598: --
599: x_return_status := l_return_status;
600: --
601: IF l_debug_on THEN
603: WSH_DEBUG_SV.pop(l_module_name);
604: END IF;
605: --
606: RETURN;
607: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
608: l_num_warnings := l_num_warnings + 1;
609: END IF;
610: --}
611: END IF;
625: last_update_login = FND_GLOBAL.login_id
626: WHERE delivery_detail_id = p_delivery_detail_id;
627:
628: IF SQL%NOTFOUND THEN
629: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
630: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
631: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
632: IF l_debug_on THEN
633: WSH_DEBUG_SV.pop(l_module_name);
648: x_return_status => l_return_status);
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required l_return_status',l_return_status);
651: END IF;
652: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
653: raise mark_reprice_error;
654: END IF;
655: END IF;
656: -- end of bug 3711017
676: END IF; -- p_update_flag
677:
678:
679: -- LPN CONV. rv
680: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
681: --
682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
683: --
684: ELSE
678:
679: -- LPN CONV. rv
680: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
681: --
682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
683: --
684: ELSE
685: --
686: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
683: --
684: ELSE
685: --
686: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
687: --
688: END IF;
689: -- LPN CONV. rv
690:
698: WHEN mark_reprice_error then
699:
700: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
701: x_return_status := l_return_status;
702: WSH_UTIL_CORE.add_message (x_return_status);
703: --
704: -- Debug Statements
705: --
706: IF l_debug_on THEN
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');
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');
719: END IF;
883: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
884: WSH_DEBUG_SV.log(l_module_name,'p_inv_item_id',p_inv_item_id);
885: WSH_DEBUG_SV.log(l_module_name,'p_stop_type',p_stop_type);
886: END IF;
887: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
888: l_num_errors := 0;
889: l_num_warnings := 0;
890:
891: -- Check if the values of input W/V are > 0
1017: p_volume => l_volume,
1018: x_stop_fill_percent => l_fill_percent,
1019: x_return_status => l_return_status);
1020:
1021: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1022: x_return_status := l_return_status;
1023: IF l_debug_on THEN
1024: WSH_DEBUG_SV.pop(l_module_name);
1025: END IF;
1025: END IF;
1026: RETURN;
1027: END IF;
1028:
1029: IF WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y' THEN
1030: --Bugfix 4070732
1031: IF WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API THEN --{
1032:
1033: IF l_debug_on THEN
1027: END IF;
1028:
1029: IF WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y' THEN
1030: --Bugfix 4070732
1031: IF WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API THEN --{
1032:
1033: IF l_debug_on THEN
1034: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Fte_Load_Tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1035: END IF;
1040: p_volume => l_volume,
1041: p_fill_percent => l_fill_percent,
1042: x_return_status => l_return_status);
1043:
1044: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1045: x_return_status := l_return_status;
1046: IF l_debug_on THEN
1047: WSH_DEBUG_SV.pop(l_module_name);
1048: END IF;
1051:
1052: ELSE --{ }
1053:
1054: IF l_debug_on THEN
1055: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1056: END IF;
1057:
1058: l_entity_id := p_entity_id;
1059: wsh_util_core.get_cached_value
1055: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1056: END IF;
1057:
1058: l_entity_id := p_entity_id;
1059: wsh_util_core.get_cached_value
1060: (
1061: p_cache_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_CACHE,
1062: p_cache_ext_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_EXT_CACHE,
1063: p_key => l_entity_id,
1057:
1058: l_entity_id := p_entity_id;
1059: wsh_util_core.get_cached_value
1060: (
1061: p_cache_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_CACHE,
1062: p_cache_ext_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_EXT_CACHE,
1063: p_key => l_entity_id,
1064: p_value => l_entity_id,
1065: p_action => 'PUT',
1058: l_entity_id := p_entity_id;
1059: wsh_util_core.get_cached_value
1060: (
1061: p_cache_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_CACHE,
1062: p_cache_ext_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_EXT_CACHE,
1063: p_key => l_entity_id,
1064: p_value => l_entity_id,
1065: p_action => 'PUT',
1066: x_return_status => l_return_status
1067: );
1068:
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1071: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1072: END IF;
1073:
1074: wsh_util_core.api_post_call
1075: (
1070: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1071: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1072: END IF;
1073:
1074: wsh_util_core.api_post_call
1075: (
1076: p_return_status => l_return_status,
1077: x_num_warnings => l_num_warnings,
1078: x_num_errors => l_num_errors
1273: p_vol_uom_code => p_vol_uom_code,
1274: p_inv_item_id => NULL,
1275: x_return_status => l_return_status);
1276:
1277: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1278: IF l_debug_on THEN
1279: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for delivery '||l_parent_delivery_id);
1280: END IF;
1281: raise e_abort;
1300: p_vol_uom_code => p_vol_uom_code,
1301: p_inv_item_id => null,
1302: x_return_status => l_return_status);
1303:
1304: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Stop '||crec1.stop_id);
1307: END IF;
1308: raise e_abort;
1443: p_fill_pc_flag => 'Y',
1444: x_cont_fill_pc => l_cont_fill_pc,
1445: x_return_status => l_return_status);
1446:
1447: IF l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1448: RAISE e_wt_vol_fail;
1449: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1450: l_num_warnings := l_num_warnings + 1;
1451: END IF;
1445: x_return_status => l_return_status);
1446:
1447: IF l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1448: RAISE e_wt_vol_fail;
1449: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1450: l_num_warnings := l_num_warnings + 1;
1451: END IF;
1452:
1453: -- Call Adjust_parent_WV recursively to adjust W/V on parent container/delivery, if any
1484: p_vol_uom_code => p_vol_uom_code,
1485: p_inv_item_id => l_inv_item_id,
1486: x_return_status => l_return_status);
1487:
1488: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Container '||l_container_id);
1491: END IF;
1492: raise e_abort;
1506: p_wt_uom_code => p_wt_uom_code,
1507: p_vol_uom_code => p_vol_uom_code,
1508: p_inv_item_id => l_inv_item_id,
1509: x_return_status => l_return_status);
1510: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1511: IF l_debug_on THEN
1512: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Delivery '||l_delivery_id);
1513: END IF;
1514: raise e_abort;
1537: p_wt_uom_code => p_wt_uom_code,
1538: p_vol_uom_code => p_vol_uom_code,
1539: p_inv_item_id => l_inv_item_id,
1540: x_return_status => l_return_status);
1541: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1542: IF l_debug_on THEN
1543: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Delivery '||l_delivery_id);
1544: END IF;
1545: raise e_abort;
1548: END IF;
1549: END IF;
1550: --END IF;
1551: IF l_num_warnings > 0 THEN
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1553: END IF;
1554: IF l_debug_on THEN
1555: WSH_DEBUG_SV.log(l_module_name,'x_return_status '||x_return_status);
1556: WSH_DEBUG_SV.pop(l_module_name);
1559: EXCEPTION
1560: WHEN e_wt_vol_fail THEN
1561: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
1562: FND_MESSAGE.Set_Token('LPN', p_entity_id);
1563: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1564: WSH_UTIL_CORE.add_message (x_return_status);
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
1560: WHEN e_wt_vol_fail THEN
1561: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
1562: FND_MESSAGE.Set_Token('LPN', p_entity_id);
1563: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1564: WSH_UTIL_CORE.add_message (x_return_status);
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
1568: END IF;
1567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
1568: END IF;
1569:
1570: WHEN e_abort THEN
1571: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1572: IF l_debug_on THEN
1573: WSH_DEBUG_SV.pop(l_module_name);
1574: END IF;
1575:
1573: WSH_DEBUG_SV.pop(l_module_name);
1574: END IF;
1575:
1576: WHEN e_wt_mismatch THEN
1577: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1578:
1579: IF l_debug_on THEN
1580: WSH_DEBUG_SV.logmsg(l_module_name,'Error: Adjusted Net Weight is greater than Adjusted Gross Weight');
1581: WSH_DEBUG_SV.pop(l_module_name);
1582: END IF;
1583:
1584: WHEN lock_detected THEN -- BugFix 3570954
1585: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
1586: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
1587: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1588:
1589: IF l_debug_on THEN
1590: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
1583:
1584: WHEN lock_detected THEN -- BugFix 3570954
1585: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
1586: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
1587: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1588:
1589: IF l_debug_on THEN
1590: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
1591: END IF;
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);
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);
1599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1746: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1747: WSH_DEBUG_SV.log(l_module_name,'p_diff_fill_volume',p_diff_fill_volume);
1748: WSH_DEBUG_SV.log(l_module_name,'p_check_for_empty',p_check_for_empty);
1749: END IF;
1750: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1751:
1752: -- Get the delivery detail information
1753: OPEN C1;
1754: FETCH C1
1796: p_fill_pc_basis => NULL,
1797: x_fill_percent => l_cont_fill_pc,
1798: x_return_status => l_return_status
1799: );
1800: wsh_util_core.api_post_call
1801: (
1802: p_return_status => l_return_status,
1803: x_num_warnings => l_num_warnings,
1804: x_num_errors => l_num_errors
1846: p_filled_volume => null,
1847: p_fill_pc_flag => 'Y',
1848: x_cont_fill_pc => l_tmp_fill_pc,
1849: x_return_status => l_return_status);
1850: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1851: x_return_status := l_return_status;
1852: IF l_debug_on THEN
1853: WSH_DEBUG_SV.pop(l_module_name);
1854: END IF;
1852: IF l_debug_on THEN
1853: WSH_DEBUG_SV.pop(l_module_name);
1854: END IF;
1855: RETURN;
1856: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1857: l_num_warnings := l_num_warnings + 1;
1858: END IF;
1859:
1860: IF l_debug_on THEN
1993: g_consol_lpn := NULL;
1994:
1995: END IF;
1996: END IF;
1997: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1998: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1999: x_return_status := l_return_status;
2000: ELSE
2001: x_return_status := l_return_status;
1994:
1995: END IF;
1996: END IF;
1997: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1998: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1999: x_return_status := l_return_status;
2000: ELSE
2001: x_return_status := l_return_status;
2002: IF l_debug_on THEN
2006: END IF;
2007: END IF;
2008:
2009: IF l_num_warnings > 0 THEN
2010: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2011: END IF;
2012:
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
2018: EXCEPTION
2019:
2020: WHEN lock_detected THEN -- BugFix 3570954
2021: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
2022: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2023: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2024:
2025: IF l_debug_on THEN
2026: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
2019:
2020: WHEN lock_detected THEN -- BugFix 3570954
2021: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
2022: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2023: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2024:
2025: IF l_debug_on THEN
2026: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
2027: END IF;
2026: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
2027: END IF;
2028:
2029: WHEN e_abort THEN
2030: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2031: IF l_debug_on THEN
2032: WSH_DEBUG_SV.pop(l_module_name);
2033: END IF;
2034:
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);
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);
2041: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2158: l_dummy NUMBER;
2159: l_trip_empty BOOLEAN;
2160: l_parent_delivery_id NUMBER;
2161: l_debug_on BOOLEAN;
2162: l_del_tab wsh_util_core.id_tab_type;
2163: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DEL_WV_POST_PROCESS';
2164:
2165: e_abort exception;
2166: mark_reprice_error exception;
2180: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2181: WSH_DEBUG_SV.log(l_module_name,'P_LEG_ID',p_leg_id);
2182: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_FOR_EMPTY',P_CHECK_FOR_EMPTY);
2183: END IF;
2184: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2185:
2186: -- Get the delivery information
2187: BEGIN
2188: SELECT weight_uom_code,
2201: EXCEPTION
2202: WHEN NO_DATA_FOUND THEN
2203: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DELIVERY');
2204: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
2205: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
2206: IF l_debug_on THEN
2207: WSH_DEBUG_SV.log(l_module_name,'Delivery '||p_delivery_id||' not found');
2208: WSH_DEBUG_SV.pop(l_module_name);
2209: END IF;
2302: p_vol_uom_code => l_vol_uom_code,
2303: p_inv_item_id => null,
2304: x_return_status => l_return_status);
2305:
2306: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV returned '||l_return_status);
2309: END IF;
2310: raise e_abort;
2322: p_inv_item_id => null,
2323: x_return_status => l_return_status,
2324: p_stop_type => l_stop_type);
2325:
2326: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2327: IF l_debug_on THEN
2328: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV returned '||l_return_status);
2329: END IF;
2330: raise e_abort;
2348: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2349: p_entity_type => 'DELIVERY',
2350: p_entity_ids => l_del_tab,
2351: x_return_status => l_return_status);
2352: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2353: raise mark_reprice_error;
2354: END IF;
2355:
2356: END IF;
2362: EXCEPTION
2363:
2364: WHEN lock_detected THEN -- BugFix 3570954
2365: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
2366: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2367: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2368:
2369: WHEN e_abort THEN
2370: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2363:
2364: WHEN lock_detected THEN -- BugFix 3570954
2365: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
2366: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2367: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2368:
2369: WHEN e_abort THEN
2370: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2371: IF l_debug_on THEN
2366: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2367: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2368:
2369: WHEN e_abort THEN
2370: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2371: IF l_debug_on THEN
2372: WSH_DEBUG_SV.pop(l_module_name);
2373: END IF;
2374:
2374:
2375: WHEN mark_reprice_error then
2376: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2377: x_return_status := l_return_status;
2378: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2379: --
2380: IF l_debug_on THEN
2381: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2382: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
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);
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);
2391: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2454: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
2455: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
2456: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',p_CALC_WV_IF_FROZEN);
2457: END IF;
2458: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2459:
2460: -- Get the DD info
2461: BEGIN
2462: SELECT gross_weight,
2473: EXCEPTION
2474: WHEN NO_DATA_FOUND THEN
2475: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
2476: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2477: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2478: IF l_debug_on THEN
2479: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_delivery_detail_id||' not found');
2480: WSH_DEBUG_SV.pop(l_module_name);
2481: END IF;
2508: x_net_weight => x_net_weight,
2509: x_volume => x_volume,
2510: x_return_status => l_return_status);
2511:
2512: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2513: x_return_status := l_return_status;
2514: IF l_debug_on THEN
2515: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
2516: WSH_DEBUG_SV.pop(l_module_name);
2535: p_diff_net_wt => NVL(x_net_weight,0) - NVL(l_org_net_wt,0),
2536: p_diff_fill_volume => NVL(x_volume,0) - NVL(l_org_vol,0),
2537: x_return_status => l_return_status);
2538:
2539: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2540: x_return_status := l_return_status;
2541: IF l_debug_on THEN
2542: WSH_DEBUG_SV.logmsg(l_module_name,'DD_WV_Post_Process returned '||l_return_status);
2543: WSH_DEBUG_SV.pop(l_module_name);
2553:
2554: EXCEPTION
2555:
2556: WHEN e_abort THEN
2557: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2558: IF l_debug_on THEN
2559: WSH_DEBUG_SV.pop(l_module_name);
2560: END IF;
2561:
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: ;
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: ;
2568: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2583: x_cont_fill_pc OUT NOCOPY NUMBER,
2584: x_return_status OUT NOCOPY VARCHAR2) IS
2585:
2586: BEGIN
2587: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2588:
2589: END Add_Container_Wt_Vol;
2590:
2591: -- J: W/V Changes
2618: l_gross_weight NUMBER := 0;
2619: l_volume NUMBER := 0;
2620: l_filled_volume NUMBER := 0;
2621: l_container_flag VARCHAR2(1):='N';
2622: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
2623: l_return_status VARCHAR2(1);
2624:
2625: mark_reprice_error EXCEPTION;
2626: -- LPN CONV. rv
2665: WSH_DEBUG_SV.log(l_module_name,'Original l_net_weight '||l_net_weight||' l_gross_weight '||l_gross_weight||' l_volume '||l_volume||' l_filled_volume '||l_filled_volume||' l_container_flag '||l_container_flag);
2666: END IF;
2667: IF c_get_detail_wv%NOTFOUND THEN
2668: CLOSE c_get_detail_wv;
2669: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2670: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2671:
2672: IF l_debug_on THEN
2673: WSH_DEBUG_SV.pop(l_module_name);
2713: IF l_debug_on THEN
2714: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2715: END IF;
2716: --
2717: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2718: --
2719: x_return_status := l_return_status;
2720: --
2721: IF l_debug_on THEN
2724: END IF;
2725: --
2726: RETURN;
2727: --
2728: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2729: --
2730: l_num_warnings := l_num_warnings + 1;
2731: --
2732: END IF;
2748: last_update_login = FND_GLOBAL.login_id
2749: WHERE delivery_detail_id = p_container_instance_id;
2750:
2751: IF SQL%NOTFOUND THEN
2752: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2753: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2754:
2755: IF l_debug_on THEN
2756: WSH_DEBUG_SV.pop(l_module_name);
2772: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2773: p_entity_type => 'DELIVERY_DETAIL',
2774: p_entity_ids => l_details_marked,
2775: x_return_status => l_return_status);
2776: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2777: raise mark_reprice_error;
2778: END IF;
2779:
2780: END IF;
2791: NULL,
2792: x_cont_fill_pc,
2793: x_return_status);
2794:
2795: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2796: IF l_debug_on THEN
2797: WSH_DEBUG_SV.pop(l_module_name);
2798: END IF;
2799: return;
2815: END IF;
2816: -- End of OTM R12 : packing ECO
2817:
2818: -- LPN CONV. rv
2819: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2820: --
2821: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2822: --
2823: ELSE
2817:
2818: -- LPN CONV. rv
2819: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2820: --
2821: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2822: --
2823: ELSE
2824: --
2825: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2821: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2822: --
2823: ELSE
2824: --
2825: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2826: --
2827: END IF;
2828: -- LPN CONV. rv
2829:
2834: EXCEPTION
2835: WHEN mark_reprice_error then
2836: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2837: x_return_status := l_return_status;
2838: WSH_UTIL_CORE.add_message (x_return_status);
2839: IF l_debug_on THEN
2840: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2841: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2842: END IF;
2844: WHEN others THEN
2845: IF l_debug_on THEN
2846: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: OTHERS ' || SQLERRM );
2847: END IF;
2848: wsh_util_core.default_handler('WSH_WV_UTIL.update_container_wt_vol');
2849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2850:
2851: IF l_debug_on THEN
2852: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2845: IF l_debug_on THEN
2846: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: OTHERS ' || SQLERRM );
2847: END IF;
2848: wsh_util_core.default_handler('WSH_WV_UTIL.update_container_wt_vol');
2849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2850:
2851: IF l_debug_on THEN
2852: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3018: --
3019: childInfo_rec childInfo_cur%ROWTYPE;
3020: --}
3021:
3022: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
3023:
3024: l_return_status VARCHAR2(1);
3025: l_err_container NUMBER;
3026: mark_reprice_error EXCEPTION;
3053: WSH_DEBUG_SV.log(l_module_name,'P_FILLPCFLAG',P_FILLPCFLAG);
3054: WSH_DEBUG_SV.log(l_module_name,'P_MASTERWEIGHTUOMCODE',P_MASTERWEIGHTUOMCODE);
3055: WSH_DEBUG_SV.log(l_module_name,'P_MASTERVOLUMEUOMCODE',P_MASTERVOLUMEUOMCODE);
3056: END IF;
3057: l_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3058:
3059: -- For parent container and all its immediate contents
3060: FOR immediateChildren_rec
3061: IN immediateChildren_cur ( p_containerInstanceId )
3115: p_organization_id => childInfo_rec.organization_id,
3116: x_param_info => l_param_info,
3117: x_return_status => l_return_status);
3118:
3119: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3120: IF l_debug_on THEN
3121: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
3122: END IF;
3123: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
3121: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
3122: END IF;
3123: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
3124: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
3125: wsh_util_core.get_org_name(childInfo_rec.organization_id));
3126: wsh_util_core.add_message(l_return_status,l_module_name);
3127: raise e_abort;
3128: END IF;
3129:
3122: END IF;
3123: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
3124: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
3125: wsh_util_core.get_org_name(childInfo_rec.organization_id));
3126: wsh_util_core.add_message(l_return_status,l_module_name);
3127: raise e_abort;
3128: END IF;
3129:
3130: END IF;
3195: IF (l_param_info.percent_fill_basis_flag = 'W' AND l_line_grossWeight IS NULL) OR
3196: (l_param_info.percent_fill_basis_flag = 'V' AND l_line_volume IS NULL) THEN
3197: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WEIGHT_VOLUME');
3198: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',childInfo_rec.delivery_detail_id);
3199: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
3200: l_num_warnings := l_num_warnings + 1;
3201:
3202: IF l_debug_on THEN
3203: WSH_DEBUG_SV.logmsg(l_module_name,'Raising WSH_NULL_WEIGHT_VOLUME Warning for Dd '||immediateChildren_rec.delivery_detail_id);
3258: p_masterVolumeUomCode => l_masterVolumeUomCode
3259: );
3260: --
3261: --
3262: IF l_returnStatus NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)
3263: THEN
3264: l_err_container := childInfo_rec.delivery_detail_id;
3265: RAISE e_wt_vol_fail;
3266: ELSIF l_returnStatus = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3262: IF l_returnStatus NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)
3263: THEN
3264: l_err_container := childInfo_rec.delivery_detail_id;
3265: RAISE e_wt_vol_fail;
3266: ELSIF l_returnStatus = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3267: l_num_warnings := l_num_warnings + 1;
3268: END IF;
3269: --
3270: --}
3324: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3325: p_entity_type => 'DELIVERY_DETAIL',
3326: p_entity_ids => l_details_marked,
3327: x_return_status => l_return_status);
3328: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3329: raise mark_reprice_error;
3330: END IF;
3331:
3332: -- OTM R12 : packing ECO
3402: p_unit_volume => l_unit_vol,
3403: x_cont_fill_pc => x_contFillPc,
3404: x_return_status => l_returnStatus);
3405:
3406: IF l_returnStatus NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)
3407: THEN
3408: l_err_container := p_containerInstanceId;
3409: RAISE e_wt_vol_fail;
3410: ELSIF l_returnStatus = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3406: IF l_returnStatus NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)
3407: THEN
3408: l_err_container := p_containerInstanceId;
3409: RAISE e_wt_vol_fail;
3410: ELSIF l_returnStatus = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3411: l_num_warnings := l_num_warnings + 1;
3412: END IF;
3413:
3414: END IF;
3465: x_filledVolume := l_filledVolume;
3466: END IF;
3467: --
3468: IF l_num_warnings > 0 THEN
3469: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
3470: ELSE
3471: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3472: END IF;
3473:
3467: --
3468: IF l_num_warnings > 0 THEN
3469: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
3470: ELSE
3471: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3472: END IF;
3473:
3474: IF l_debug_on THEN
3475: WSH_DEBUG_SV.logmsg(l_module_name,'x_grossWeight '||x_grossWeight||' x_netWeight '||x_netWeight||
3484: EXCEPTION
3485: WHEN mark_reprice_error then
3486: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
3487: x_returnStatus := l_return_status;
3488: WSH_UTIL_CORE.add_message (x_returnStatus);
3489: --
3490: -- Debug Statements
3491: --
3492: IF l_debug_on THEN
3494: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3495: END IF;
3496: --
3497: WHEN e_invalid_detail THEN
3498: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3499: WSH_UTIL_CORE.add_message (x_returnStatus);
3500: --
3501: -- Debug Statements
3502: --
3495: END IF;
3496: --
3497: WHEN e_invalid_detail THEN
3498: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3499: WSH_UTIL_CORE.add_message (x_returnStatus);
3500: --
3501: -- Debug Statements
3502: --
3503: IF l_debug_on THEN
3507: --
3508: WHEN e_wt_vol_fail THEN
3509: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
3510: FND_MESSAGE.Set_Token('LPN', l_err_container);
3511: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3512: WSH_UTIL_CORE.add_message (x_returnStatus);
3513: --
3514: -- Debug Statements
3515: --
3508: WHEN e_wt_vol_fail THEN
3509: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
3510: FND_MESSAGE.Set_Token('LPN', l_err_container);
3511: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3512: WSH_UTIL_CORE.add_message (x_returnStatus);
3513: --
3514: -- Debug Statements
3515: --
3516: IF l_debug_on THEN
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: --
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: --
3527: IF l_debug_on THEN
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: --
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: --
3537: IF l_debug_on THEN
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
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
3633: --
3711: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3712: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
3713: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3714: END IF;
3715: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3716:
3717: -- Get the container info
3718: BEGIN
3719: SELECT gross_weight,
3734: EXCEPTION
3735: WHEN NO_DATA_FOUND THEN
3736: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_INVALID_DETAIL');
3737: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_container_instance_id);
3738: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3739: IF l_debug_on THEN
3740: WSH_DEBUG_SV.pop(l_module_name);
3741: END IF;
3742: return;
3783: x_volume => x_volume,
3784: x_cont_fill_pc => x_cont_fill_pc,
3785: x_return_status => l_return_status);
3786:
3787: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3788: x_return_status := l_return_status;
3789: IF l_debug_on THEN
3790: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TPA_CONTAINER_PKG.container_weight_volume returned '||l_return_status);
3791: WSH_DEBUG_SV.pop(l_module_name);
3809: p_diff_net_wt => NVL(x_net_weight,0) - NVL(l_org_net_wt,0),
3810: p_diff_fill_volume => NVL(x_volume,0) - NVL(l_org_vol,0),
3811: x_return_status => l_return_status);
3812:
3813: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3814: x_return_status := l_return_status;
3815: IF l_debug_on THEN
3816: WSH_DEBUG_SV.logmsg(l_module_name,'DD_WV_Post_Process returned '||l_return_status);
3817: WSH_DEBUG_SV.pop(l_module_name);
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)
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)
3835: ;
3855: -- (WSH_DELIVERY_DETAILS_GRP.Delivery_Detail_Action),
3856: -- so the logic of checking G_RESET_WV is here.
3857: -- Parameters :
3858: -- IN:
3859: -- p_detail_rows IN wsh_util_core.id_tab_type REQUIRED
3860: -- p_update_flag IN VARCHAR2
3861: -- 'Y' if the detail needs to be updated with the calculated W/V
3862: -- p_calc_wv_if_frozen IN VARCHAR2
3863: -- 'Y' if manual W/V can be overriden
3867: -- Version : 1.0
3868: -- End of comments
3869:
3870: PROCEDURE Detail_Weight_Volume(
3871: p_detail_rows IN wsh_util_core.id_tab_type,
3872: p_override_flag IN VARCHAR2,
3873: p_calc_wv_if_frozen IN VARCHAR2 DEFAULT 'Y',
3874: x_return_status OUT NOCOPY VARCHAR2) IS
3875:
3891: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED)
3892: AND NVL(wnd.ignore_for_planning, 'N') = 'N';
3893:
3894: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
3895: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
3896: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
3897: l_count NUMBER;
3898: l_return_status VARCHAR2(1);
3899: -- End of OTM R12 : packing ECO
3892: AND NVL(wnd.ignore_for_planning, 'N') = 'N';
3893:
3894: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
3895: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
3896: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
3897: l_count NUMBER;
3898: l_return_status VARCHAR2(1);
3899: -- End of OTM R12 : packing ECO
3900:
4000: x_return_status => x_return_status);
4001:
4002: END IF; -- l_flag = 'Y'
4003:
4004: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4005: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_ERROR');
4006: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_rows(i));
4007: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4008: wsh_util_core.add_message(x_return_status);
4003:
4004: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4005: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_ERROR');
4006: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_rows(i));
4007: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4008: wsh_util_core.add_message(x_return_status);
4009: l_num_error := l_num_error + 1;
4010: END IF;
4011:
4004: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4005: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_ERROR');
4006: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_rows(i));
4007: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4008: wsh_util_core.add_message(x_return_status);
4009: l_num_error := l_num_error + 1;
4010: END IF;
4011:
4012: -- OTM R12 : packing ECO
4040: p_delivery_id_tab => l_delivery_id_tab,
4041: p_tms_interface_flag_tab => l_interface_flag_tab,
4042: x_return_status => l_return_status);
4043:
4044: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
4045: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4046: x_return_status := l_return_status;
4047: IF l_debug_on THEN
4048: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
4041: p_tms_interface_flag_tab => l_interface_flag_tab,
4042: x_return_status => l_return_status);
4043:
4044: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
4045: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4046: x_return_status := l_return_status;
4047: IF l_debug_on THEN
4048: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
4049: WSH_DEBUG_SV.pop(l_module_name, 'UPDATE_TMS_INTERFACE_FLAG ERROR');
4061: FND_MESSAGE.SET_TOKEN('NUM_ERROR',l_num_error);
4062: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',p_detail_rows.count - l_num_error);
4063:
4064: IF (p_detail_rows.count = l_num_error) THEN
4065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4066: ELSE
4067: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4068: END IF;
4069:
4063:
4064: IF (p_detail_rows.count = l_num_error) THEN
4065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4066: ELSE
4067: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4068: END IF;
4069:
4070: wsh_util_core.add_message(x_return_status);
4071:
4066: ELSE
4067: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4068: END IF;
4069:
4070: wsh_util_core.add_message(x_return_status);
4071:
4072: ELSE
4073: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4074: END IF;
4069:
4070: wsh_util_core.add_message(x_return_status);
4071:
4072: ELSE
4073: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4074: END IF;
4075:
4076: END IF;
4077:
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);
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);
4094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4214:
4215: IF Get_Cont_Info%NOTFOUND THEN
4216: CLOSE Get_Cont_Info;
4217: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
4218: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4219: --
4220: -- Debug Statements
4221: --
4222: IF l_debug_on THEN
4243: FETCH Get_Fill_Basis INTO l_fill_pc_basis;
4244: IF Get_Fill_Basis%NOTFOUND THEN
4245: CLOSE Get_Fill_Basis;
4246: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_UNDEFINED');
4247: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4248: --
4249: -- Debug Statements
4250: --
4251: IF l_debug_on THEN
4265: --
4266: -- If the Shipping Parameter Fill Basis is set to None, then simply return sucess and log a message.
4267: --
4268: IF (l_fill_pc_basis = 'N') THEN
4269: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4270: --
4271: -- Debug Statements
4272: --
4273: IF l_debug_on THEN
4281: END IF;
4282: -- end of bug 3562797 changes
4283:
4284: IF (nvl(l_cont_flag,'N') = 'N') THEN
4285: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4286: --
4287: -- Debug Statements
4288: --
4289: IF l_debug_on THEN
4312: IF l_fill_pc_basis = 'W' THEN
4313: IF nvl(l_cont_max_load, 0 ) <= 0 THEN
4314: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4315: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4316: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
4317: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4318: END IF;
4319: ELSIF l_fill_pc_basis = 'V' THEN
4320: IF nvl(l_cont_max_vol, 0 ) <= 0 THEN
4313: IF nvl(l_cont_max_load, 0 ) <= 0 THEN
4314: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4315: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4316: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
4317: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4318: END IF;
4319: ELSIF l_fill_pc_basis = 'V' THEN
4320: IF nvl(l_cont_max_vol, 0 ) <= 0 THEN
4321: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4319: ELSIF l_fill_pc_basis = 'V' THEN
4320: IF nvl(l_cont_max_vol, 0 ) <= 0 THEN
4321: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4322: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4323: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
4324: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4325: END IF;
4326: END IF;
4327:
4320: IF nvl(l_cont_max_vol, 0 ) <= 0 THEN
4321: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4322: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4323: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
4324: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4325: END IF;
4326: END IF;
4327:
4328: IF l_debug_on THEN
4368: l_cont_org_id,
4369: l_cont_qty,
4370: x_return_status);
4371:
4372: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4373: -- dbms_output.put_line('error in estimating detail cont');
4374: --
4375: -- Debug Statements
4376: --
4377: IF l_debug_on THEN
4378: WSH_DEBUG_SV.pop(l_module_name);
4379: END IF;
4380: --
4381: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4382: return;
4383: END IF;
4384:
4385: l_cont_fill_pc := l_cont_fill_pc + l_cont_qty;
4406: l_cont_org_id,
4407: l_cont_qty,
4408: x_return_status);
4409:
4410: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4411: -- dbms_output.put_line('error in estimating master cont');
4412: --
4413: -- Debug Statements
4414: --
4427:
4428: ELSE
4429:
4430: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_FILL_BASIS');
4431: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4432: --
4433: -- Debug Statements
4434: --
4435: IF l_debug_on THEN
4490: IF l_debug_on THEN
4491: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
4492: END IF;
4493: --
4494: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4495: --
4496: x_return_status := l_return_status;
4497: --
4498: IF l_debug_on THEN
4501: END IF;
4502: --
4503: RETURN;
4504: --
4505: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4506: --
4507: l_num_warnings := l_num_warnings + 1;
4508: --
4509: END IF;
4516:
4517: IF SQL%NOTFOUND THEN
4518: -- dbms_output.put_line('unexp error while updating fill percent');
4519: FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
4520: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4521: --
4522: -- Debug Statements
4523: --
4524: IF l_debug_on THEN
4529: END IF;
4530: END IF;
4531:
4532: -- LPN CONV. rv
4533: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4534: --
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4536: --
4537: ELSE
4531:
4532: -- LPN CONV. rv
4533: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4534: --
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4536: --
4537: ELSE
4538: --
4539: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4536: --
4537: ELSE
4538: --
4539: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4540: --
4541: END IF;
4542: -- LPN CONV. rv
4543:
4548: WSH_DEBUG_SV.pop(l_module_name);
4549: END IF;
4550: --
4551: EXCEPTION
4552: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4553: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4554: --
4555: IF l_debug_on THEN
4556: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4549: END IF;
4550: --
4551: EXCEPTION
4552: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4553: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4554: --
4555: IF l_debug_on THEN
4556: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4552: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4553: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4554: --
4555: IF l_debug_on THEN
4556: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4558: END IF;
4559: --
4560: WHEN Others THEN
4553: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4554: --
4555: IF l_debug_on THEN
4556: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_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');
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
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
4566: --
4633:
4634: IF Get_Cont_Info%NOTFOUND THEN
4635: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
4636: CLOSE Get_Cont_Info;
4637: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4638: --
4639: -- Debug Statements
4640: --
4641: IF l_debug_on THEN
4649:
4650: ELSIF p_cont_item_id IS NULL OR p_organization_id IS NULL THEN
4651:
4652: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CONT_OR_ORG');
4653: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4654: --
4655: -- Debug Statements
4656: --
4657: IF l_debug_on THEN
4668:
4669: IF Get_Unit_Weight%NOTFOUND THEN
4670: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_ITEM');
4671: CLOSE Get_Unit_Weight;
4672: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4673: --
4674: -- Debug Statements
4675: --
4676: IF l_debug_on THEN
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:
4699: --
4700: -- Debug Statements
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
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
4714: --
4792: l_organization_id;
4793:
4794: IF Get_Cont_Info%NOTFOUND THEN
4795: CLOSE Get_Cont_Info;
4796: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4797: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
4798: WSH_UTIL_CORE.Add_Message (x_return_status);
4799: --
4800: -- Debug Statements
4794: IF Get_Cont_Info%NOTFOUND THEN
4795: CLOSE Get_Cont_Info;
4796: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4797: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
4798: WSH_UTIL_CORE.Add_Message (x_return_status);
4799: --
4800: -- Debug Statements
4801: --
4802: IF l_debug_on THEN
4807: END IF;
4808:
4809: /* wms change: if groupin is LPN , always return success */
4810: IF (l_cont_item_id IS NULL) THEN
4811: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4812: --
4813: -- Debug Statements
4814: --
4815: IF l_debug_on THEN
4825: WSH_SHIPPING_PARAMS_PVT.Get(
4826: p_organization_id => l_organization_id,
4827: x_param_info => l_param_info,
4828: x_return_status => x_return_status);
4829: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4830: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
4831: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
4832: wsh_util_core.get_org_name(l_organization_id));
4833: wsh_util_core.add_message(x_return_status,l_module_name);
4828: x_return_status => x_return_status);
4829: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4830: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
4831: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
4832: wsh_util_core.get_org_name(l_organization_id));
4833: wsh_util_core.add_message(x_return_status,l_module_name);
4834: IF l_debug_on THEN
4835: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||x_return_status);
4836: WSH_DEBUG_SV.pop(l_module_name);
4829: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4830: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
4831: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
4832: wsh_util_core.get_org_name(l_organization_id));
4833: wsh_util_core.add_message(x_return_status,l_module_name);
4834: IF l_debug_on THEN
4835: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||x_return_status);
4836: WSH_DEBUG_SV.pop(l_module_name);
4837: END IF;
4847: --
4848: -- If the Shipping Parameter Fill Basis is set to None, then simply return success and log a message.
4849: --
4850: IF (l_param_info.percent_fill_basis_flag = 'N') THEN
4851: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4852: x_fill_status := 'S';
4853: --
4854: -- Debug Statements
4855: --
4875: --{
4876: x_fill_status := 'S';
4877: --}
4878: END IF;
4879: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4880:
4881: --
4882: -- Debug Statements
4883: --
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
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
4895: --
5078:
5079: -- OTM R12 : packing ECO
5080: l_ignore_for_planning WSH_NEW_DELIVERIES.IGNORE_FOR_PLANNING%TYPE;
5081: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
5082: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
5083: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
5084: -- End of OTM R12 : packing ECO
5085:
5086: BEGIN
5079: -- OTM R12 : packing ECO
5080: l_ignore_for_planning WSH_NEW_DELIVERIES.IGNORE_FOR_PLANNING%TYPE;
5081: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
5082: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
5083: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
5084: -- End of OTM R12 : packing ECO
5085:
5086: BEGIN
5087:
5095: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5096: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5097: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5098: END IF;
5099: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5100:
5101: -- Get the delivery info
5102: OPEN del_uoms;
5103: FETCH del_uoms
5114: IF (del_uoms%NOTFOUND) THEN
5115: CLOSE del_uoms;
5116: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DELIVERY');
5117: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
5118: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
5119: IF l_debug_on THEN
5120: WSH_DEBUG_SV.log(l_module_name,'Delivery '||p_delivery_id||' not found');
5121: WSH_DEBUG_SV.pop(l_module_name);
5122: END IF;
5151: p_organization_id => l_organization_id,
5152: x_param_info => l_param_info,
5153: x_return_status => l_return_status);
5154:
5155: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5156: IF l_debug_on THEN
5157: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
5158: END IF;
5159: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
5157: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
5158: END IF;
5159: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
5160: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5161: wsh_util_core.get_org_name(l_organization_id));
5162: wsh_util_core.add_message(l_return_status,l_module_name);
5163: raise e_abort;
5164: END IF;
5165:
5158: END IF;
5159: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
5160: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5161: wsh_util_core.get_org_name(l_organization_id));
5162: wsh_util_core.add_message(l_return_status,l_module_name);
5163: raise e_abort;
5164: END IF;
5165:
5166:
5216: x_volume => l_volume,
5217: x_return_status => x_return_status);
5218:
5219:
5220: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5221: IF l_debug_on THEN
5222: WSH_DEBUG_SV.pop(l_module_name);
5223: END IF;
5224: RETURN;
5334: x_volume => l_cont_volume,
5335: x_cont_fill_pc => l_cont_fill_pc,
5336: x_return_status => x_return_status);
5337:
5338: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5339: IF l_debug_on THEN
5340: WSH_DEBUG_SV.pop(l_module_name);
5341: END IF;
5342: RETURN;
5394: x_volume => l_cont_volume,
5395: x_cont_fill_pc => l_cont_fill_pc,
5396: x_return_status => x_return_status);
5397:
5398: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5399: IF l_debug_on THEN
5400: WSH_DEBUG_SV.pop(l_module_name);
5401: END IF;
5402: RETURN;
5498: x_net_weight => l_net_weight,
5499: x_volume => l_volume,
5500: x_return_status => x_return_status);
5501:
5502: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5503: IF l_debug_on THEN
5504: WSH_DEBUG_SV.pop(l_module_name);
5505: END IF;
5506: RETURN;
5511: IF (l_param_info.percent_fill_basis_flag = 'W' AND l_net_weight IS NULL) OR
5512: (l_param_info.percent_fill_basis_flag = 'V' AND l_volume IS NULL) THEN
5513: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WEIGHT_VOLUME');
5514: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',dt.dd_id);
5515: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
5516: l_num_warnings := l_num_warnings + 1;
5517: END IF;
5518:
5519: -- Convert the W/V if UOMs differ and then accumulate W/V
5610: x_volume => l_cont_volume,
5611: x_cont_fill_pc => l_cont_fill_pc,
5612: x_return_status => x_return_status);
5613:
5614: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5615: IF l_debug_on THEN
5616: WSH_DEBUG_SV.pop(l_module_name);
5617: END IF;
5618: RETURN;
5697: last_update_login = FND_GLOBAL.login_id
5698: WHERE delivery_id = p_delivery_id;
5699:
5700: IF (SQL%NOTFOUND) THEN
5701: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5702: IF l_debug_on THEN
5703: WSH_DEBUG_SV.pop(l_module_name);
5704: END IF;
5705: RETURN;
5729: p_delivery_id_tab => l_delivery_id_tab,
5730: p_tms_interface_flag_tab => l_interface_flag_tab,
5731: x_return_status => l_return_status);
5732:
5733: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5734: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5735: x_return_status := l_return_status;
5736: IF l_debug_on THEN
5737: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
5730: p_tms_interface_flag_tab => l_interface_flag_tab,
5731: x_return_status => l_return_status);
5732:
5733: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5734: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5735: x_return_status := l_return_status;
5736: IF l_debug_on THEN
5737: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
5738: WSH_DEBUG_SV.pop(l_module_name, 'UPDATE_TMS_INTERFACE_FLAG ERROR');
5749: -- End of OTM R12 : packing ECO
5750:
5751:
5752: IF l_num_warnings > 0 THEN
5753: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5754: ELSE
5755: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5756: END IF;
5757:
5751:
5752: IF l_num_warnings > 0 THEN
5753: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5754: ELSE
5755: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5756: END IF;
5757:
5758: IF l_debug_on THEN
5759: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
5761: END IF;
5762:
5763: EXCEPTION
5764: WHEN e_abort THEN
5765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5766: IF l_debug_on THEN
5767: WSH_DEBUG_SV.pop(l_module_name);
5768: END IF;
5769:
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);
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);
5776: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5843: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5844: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
5845: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5846: END IF;
5847: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5848:
5849: -- Get the delivery info
5850: BEGIN
5851: SELECT gross_weight,
5868: EXCEPTION
5869: WHEN NO_DATA_FOUND THEN
5870: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DELIVERY');
5871: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
5872: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
5873: IF l_debug_on THEN
5874: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery '||p_delivery_id||' not found');
5875: WSH_DEBUG_SV.pop(l_module_name);
5876: END IF;
5906: x_net_weight => x_net_weight,
5907: x_volume => x_volume,
5908: x_return_status => l_return_status);
5909:
5910: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5911: x_return_status := l_return_status;
5912: IF l_debug_on THEN
5913: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery_weight_volume returned '||l_return_status);
5914: WSH_DEBUG_SV.pop(l_module_name);
5933: p_diff_net_wt => NVL(x_net_weight,0) - NVL(l_org_net_wt,0),
5934: p_diff_volume => NVL(x_volume,0) - NVL(l_org_vol,0),
5935: x_return_status => l_return_status);
5936:
5937: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5938: x_return_status := l_return_status;
5939: IF l_debug_on THEN
5940: WSH_DEBUG_SV.logmsg(l_module_name,'Del_WV_Post_Process returned '||l_return_status);
5941: WSH_DEBUG_SV.pop(l_module_name);
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);
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);
5959: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5991: -- Version : 1.0
5992: -- End of comments
5993:
5994: PROCEDURE Delivery_Weight_Volume(
5995: p_del_rows IN wsh_util_core.id_tab_type,
5996: p_update_flag IN VARCHAR2,
5997: p_calc_wv_if_frozen IN VARCHAR2,
5998: x_return_status OUT NOCOPY VARCHAR2) IS
5999:
6039: x_net_weight => l_net_weight,
6040: x_volume => l_volume,
6041: x_return_status => x_return_status);
6042:
6043: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6044: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_WT_VOL_ERROR');
6045: IF l_debug_on THEN
6046: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6047: END IF;
6045: IF l_debug_on THEN
6046: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6047: END IF;
6048: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6050: wsh_util_core.add_message(x_return_status);
6051: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
6052: l_num_error := l_num_error + 1;
6053: END IF;
6046: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6047: END IF;
6048: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6050: wsh_util_core.add_message(x_return_status);
6051: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
6052: l_num_error := l_num_error + 1;
6053: END IF;
6054:
6062: FND_MESSAGE.SET_TOKEN('NUM_ERROR',l_num_error);
6063: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',p_del_rows.count - l_num_error);
6064:
6065: IF (p_del_rows.count = l_num_error) THEN
6066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6067: ELSE
6068: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6069: END IF;
6070:
6064:
6065: IF (p_del_rows.count = l_num_error) THEN
6066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6067: ELSE
6068: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6069: END IF;
6070:
6071: wsh_util_core.add_message(x_return_status);
6072:
6067: ELSE
6068: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6069: END IF;
6070:
6071: wsh_util_core.add_message(x_return_status);
6072:
6073: ELSE
6074: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6075: END IF;
6070:
6071: wsh_util_core.add_message(x_return_status);
6072:
6073: ELSE
6074: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6075: END IF;
6076:
6077: END IF;
6078:
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);
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);
6091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
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');
6230: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
6231: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED);
6232:
6233: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
6234: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6235: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6236: l_gc3_is_installed VARCHAR2(1);
6237: l_weight_uom_code WSH_NEW_DELIVERIES.WEIGHT_UOM_CODE%TYPE;
6238: api_return_fail EXCEPTION;
6231: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED);
6232:
6233: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
6234: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6235: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6236: l_gc3_is_installed VARCHAR2(1);
6237: l_weight_uom_code WSH_NEW_DELIVERIES.WEIGHT_UOM_CODE%TYPE;
6238: api_return_fail EXCEPTION;
6239:
6269: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6270: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6271: END IF;
6272:
6273: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6274:
6275: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6276:
6277: IF l_gc3_is_installed IS NULL THEN
6271: END IF;
6272:
6273: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6274:
6275: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6276:
6277: IF l_gc3_is_installed IS NULL THEN
6278: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
6279: END IF;
6274:
6275: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6276:
6277: IF l_gc3_is_installed IS NULL THEN
6278: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
6279: END IF;
6280:
6281: --first call real prorate procedure to prorate the delivery/container
6282: IF l_debug_on THEN
6299: END IF;
6300:
6301: x_return_status := l_return_status;
6302:
6303: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6304: RAISE api_return_fail;
6305: END IF;
6306:
6307: --after prorate, details are changed, so check if the weights have changed
6349: IF l_debug_on THEN
6350: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG: ' || l_return_status);
6351: END IF;
6352:
6353: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6354: RAISE api_return_fail;
6355: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6356: x_return_status := l_return_status;
6357: END IF;
6351: END IF;
6352:
6353: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6354: RAISE api_return_fail;
6355: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6356: x_return_status := l_return_status;
6357: END IF;
6358:
6359: END IF; -- delivery id not null
6374: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
6375: WSH_DEBUG_SV.pop(l_module_name);
6376: END IF;
6377: WHEN OTHERS THEN
6378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6379:
6380: IF (c_get_delivery_info_del%ISOPEN) THEN
6381: CLOSE c_get_delivery_info_del;
6382: END IF;
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
6487: TYPE immediate_detail_rec_tab IS TABLE OF immediate_details_del%ROWTYPE INDEX BY binary_integer;
6488: l_detail_rec_tab immediate_detail_rec_tab;
6489:
6490: -- Following variables are used to store the immediate container/delivery lines' info
6491: l_dd_upd_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores all immediate child delivery detail ids'
6492: l_dd_upd_net_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Net weights(in entity's UOM) of all immediate children
6493: l_dd_upd_gross_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Tare weights(in entity's UOM) of all immediate children
6494: --
6495:
6488: l_detail_rec_tab immediate_detail_rec_tab;
6489:
6490: -- Following variables are used to store the immediate container/delivery lines' info
6491: l_dd_upd_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores all immediate child delivery detail ids'
6492: l_dd_upd_net_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Net weights(in entity's UOM) of all immediate children
6493: l_dd_upd_gross_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Tare weights(in entity's UOM) of all immediate children
6494: --
6495:
6496: l_new_tare_wt NUMBER := 0;
6489:
6490: -- Following variables are used to store the immediate container/delivery lines' info
6491: l_dd_upd_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores all immediate child delivery detail ids'
6492: l_dd_upd_net_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Net weights(in entity's UOM) of all immediate children
6493: l_dd_upd_gross_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Tare weights(in entity's UOM) of all immediate children
6494: --
6495:
6496: l_new_tare_wt NUMBER := 0;
6497: l_new_gross_wt NUMBER := 0;
6563: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6564: --}
6565: END IF;
6566:
6567: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6568:
6569: -- Find the change in net and tare wts
6570: l_entity_tare_change := ( nvl(p_new_gross_wt,0) - nvl(p_new_net_wt,0) ) - ( nvl(p_old_gross_wt,0) - nvl(p_old_net_wt,0) );
6571: l_entity_net_change := nvl(p_new_net_wt,0) - nvl(p_old_net_wt,0);
6649: IF l_debug_on THEN
6650: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
6651: END IF;
6652:
6653: WSH_UTIL_CORE.API_POST_CALL
6654: (
6655: p_return_status => l_return_status,
6656: x_num_warnings => l_num_warnings,
6657: x_num_errors => l_num_errors
6844: IF l_debug_on THEN
6845: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
6846: END IF;
6847: --
6848: WSH_UTIL_CORE.API_POST_CALL
6849: (
6850: p_return_status => l_return_status,
6851: x_num_warnings => l_num_warnings,
6852: x_num_errors => l_num_errors
6873: IF l_debug_on THEN
6874: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
6875: END IF;
6876: --
6877: WSH_UTIL_CORE.API_POST_CALL
6878: (
6879: p_return_status => l_return_status,
6880: x_num_warnings => l_num_warnings,
6881: x_num_errors => l_num_errors
6930: IF l_debug_on THEN
6931: wsh_debug_sv.log(l_module_name,'Return Status After Calling Prorate_weight_actual',l_return_status);
6932: END IF;
6933: --
6934: wsh_util_core.api_post_call(
6935: p_return_status => l_return_status,
6936: x_num_warnings => l_num_warnings,
6937: x_num_errors => l_num_errors,
6938: p_raise_error_flag => TRUE );
6965: IF l_debug_on THEN
6966: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_PRORATED_LPNS_TO_WMS', l_return_status);
6967: END IF;
6968:
6969: WSH_UTIL_CORE.API_POST_CALL
6970: (
6971: p_return_status => l_return_status,
6972: x_num_warnings => l_num_warnings,
6973: x_num_errors => l_num_errors
6978: END IF; --}
6979:
6980: IF l_num_errors > 0
6981: THEN
6982: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6983: ELSIF l_num_warnings > 0
6984: THEN
6985: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6986: ELSE
6981: THEN
6982: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6983: ELSIF l_num_warnings > 0
6984: THEN
6985: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6986: ELSE
6987: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6988: END IF;
6989:
6983: ELSIF l_num_warnings > 0
6984: THEN
6985: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6986: ELSE
6987: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6988: END IF;
6989:
6990: --
6991: -- Debug Statements
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