[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:
260: THEN
261: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
262: END IF;
263: --
264: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS; --Bug 8369407
265: --
266: IF l_debug_on THEN
267: WSH_DEBUG_SV.push(l_module_name);
268: --
269: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
270: END IF;
271: --
272: if ( p_organization_id is NULL ) Then
273: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
274: --
275: -- Debug Statements
276: --
277: IF l_debug_on THEN
310: END IF;
311: --
312: EXCEPTION
313: WHEN Others THEN
314: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.GET_DEFAULT_UOMS');
315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
316:
317: --
318: -- Debug Statements
311: --
312: EXCEPTION
313: WHEN Others THEN
314: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.GET_DEFAULT_UOMS');
315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
316:
317: --
318: -- Debug Statements
319: --
434: l_item_unit_wt NUMBER;
435: l_item_unit_vol NUMBER;
436: l_frozen_flag VARCHAR2(1);
437: l_return_status VARCHAR2(1);
438: l_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
439: --lpn conv
440: l_container_flag VARCHAR2(10);
441: l_wms_org VARCHAR2(10) := 'N';
442: -- LPN CONV. rv
458: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
459: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
460: END IF;
461:
462: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
463:
464: -- Get the original W/V of the delivery detail
465: OPEN get_detail_wv (p_delivery_detail_id);
466: FETCH get_detail_wv
480: l_line_direction; -- LPN CONV. rv
481: IF get_detail_wv%NOTFOUND THEN
482: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_INVALID_DETAIL');
483: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
484: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
485: CLOSE get_detail_wv;
486: IF l_debug_on THEN
487: WSH_DEBUG_SV.pop(l_module_name);
488: END IF;
545:
546: IF Item_Net_Wt_Vol%NOTFOUND THEN
547: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_INVALID_DETAIL');
548: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
549: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
550: CLOSE Item_Net_Wt_Vol;
551: IF l_debug_on THEN
552: WSH_DEBUG_SV.pop(l_module_name);
553: END IF;
598: IF l_debug_on THEN
599: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
600: END IF;
601: --
602: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
603: --
604: x_return_status := l_return_status;
605: --
606: IF l_debug_on THEN
608: WSH_DEBUG_SV.pop(l_module_name);
609: END IF;
610: --
611: RETURN;
612: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
613: l_num_warnings := l_num_warnings + 1;
614: END IF;
615: --}
616: END IF;
630: last_update_login = FND_GLOBAL.login_id
631: WHERE delivery_detail_id = p_delivery_detail_id;
632:
633: IF SQL%NOTFOUND THEN
634: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
635: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
636: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
637: IF l_debug_on THEN
638: WSH_DEBUG_SV.pop(l_module_name);
653: x_return_status => l_return_status);
654: IF l_debug_on THEN
655: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required l_return_status',l_return_status);
656: END IF;
657: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
658: raise mark_reprice_error;
659: END IF;
660: END IF;
661: -- end of bug 3711017
681: END IF; -- p_update_flag
682:
683:
684: -- LPN CONV. rv
685: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
686: --
687: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
688: --
689: ELSE
683:
684: -- LPN CONV. rv
685: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
686: --
687: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
688: --
689: ELSE
690: --
691: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
687: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
688: --
689: ELSE
690: --
691: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
692: --
693: END IF;
694: -- LPN CONV. rv
695:
703: WHEN mark_reprice_error then
704:
705: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
706: x_return_status := l_return_status;
707: WSH_UTIL_CORE.add_message (x_return_status);
708: --
709: -- Debug Statements
710: --
711: IF l_debug_on THEN
715:
716:
717: WHEN others THEN
718:
719: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
720: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
721: IF l_debug_on THEN
722: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
723: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
716:
717: WHEN others THEN
718:
719: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
720: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
721: IF l_debug_on THEN
722: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
723: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
724: END IF;
888: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
889: WSH_DEBUG_SV.log(l_module_name,'p_inv_item_id',p_inv_item_id);
890: WSH_DEBUG_SV.log(l_module_name,'p_stop_type',p_stop_type);
891: END IF;
892: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
893: l_num_errors := 0;
894: l_num_warnings := 0;
895:
896: -- Check if the values of input W/V are > 0
1022: p_volume => l_volume,
1023: x_stop_fill_percent => l_fill_percent,
1024: x_return_status => l_return_status);
1025:
1026: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1027: x_return_status := l_return_status;
1028: IF l_debug_on THEN
1029: WSH_DEBUG_SV.pop(l_module_name);
1030: END IF;
1030: END IF;
1031: RETURN;
1032: END IF;
1033:
1034: IF WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y' THEN
1035: --Bugfix 4070732
1036: IF WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API THEN --{
1037:
1038: IF l_debug_on THEN
1032: END IF;
1033:
1034: IF WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y' THEN
1035: --Bugfix 4070732
1036: IF WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API THEN --{
1037:
1038: IF l_debug_on THEN
1039: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Fte_Load_Tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1040: END IF;
1045: p_volume => l_volume,
1046: p_fill_percent => l_fill_percent,
1047: x_return_status => l_return_status);
1048:
1049: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1050: x_return_status := l_return_status;
1051: IF l_debug_on THEN
1052: WSH_DEBUG_SV.pop(l_module_name);
1053: END IF;
1056:
1057: ELSE --{ }
1058:
1059: IF l_debug_on THEN
1060: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1061: END IF;
1062:
1063: l_entity_id := p_entity_id;
1064: wsh_util_core.get_cached_value
1060: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1061: END IF;
1062:
1063: l_entity_id := p_entity_id;
1064: wsh_util_core.get_cached_value
1065: (
1066: p_cache_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_CACHE,
1067: p_cache_ext_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_EXT_CACHE,
1068: p_key => l_entity_id,
1062:
1063: l_entity_id := p_entity_id;
1064: wsh_util_core.get_cached_value
1065: (
1066: p_cache_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_CACHE,
1067: p_cache_ext_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_EXT_CACHE,
1068: p_key => l_entity_id,
1069: p_value => l_entity_id,
1070: p_action => 'PUT',
1063: l_entity_id := p_entity_id;
1064: wsh_util_core.get_cached_value
1065: (
1066: p_cache_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_CACHE,
1067: p_cache_ext_tbl => WSH_UTIL_CORE.G_STOP_IDS_STOP_IDS_EXT_CACHE,
1068: p_key => l_entity_id,
1069: p_value => l_entity_id,
1070: p_action => 'PUT',
1071: x_return_status => l_return_status
1072: );
1073:
1074: IF l_debug_on THEN
1075: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1076: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1077: END IF;
1078:
1079: wsh_util_core.api_post_call
1080: (
1075: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1076: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1077: END IF;
1078:
1079: wsh_util_core.api_post_call
1080: (
1081: p_return_status => l_return_status,
1082: x_num_warnings => l_num_warnings,
1083: x_num_errors => l_num_errors
1175: WSH_DEBUG_SV.logmsg(l_module_name,'Error: '||p_entity_type||' Id '||p_entity_id||' could not be locked');
1176: END IF;
1177: --Bug8513181
1178: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PERFORMED');
1179: x_return_status := wsh_util_core.g_ret_sts_error;
1180: wsh_util_core.add_message(x_return_status,l_module_name);
1181: IF l_debug_on THEN
1182: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PERFORMED');
1183: END IF;
1176: END IF;
1177: --Bug8513181
1178: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PERFORMED');
1179: x_return_status := wsh_util_core.g_ret_sts_error;
1180: wsh_util_core.add_message(x_return_status,l_module_name);
1181: IF l_debug_on THEN
1182: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PERFORMED');
1183: END IF;
1184: --Bug8513181
1286: p_vol_uom_code => p_vol_uom_code,
1287: p_inv_item_id => NULL,
1288: x_return_status => l_return_status);
1289:
1290: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for delivery '||l_parent_delivery_id);
1293: END IF;
1294: raise e_abort;
1313: p_vol_uom_code => p_vol_uom_code,
1314: p_inv_item_id => null,
1315: x_return_status => l_return_status);
1316:
1317: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1318: IF l_debug_on THEN
1319: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Stop '||crec1.stop_id);
1320: END IF;
1321: raise e_abort;
1456: p_fill_pc_flag => 'Y',
1457: x_cont_fill_pc => l_cont_fill_pc,
1458: x_return_status => l_return_status);
1459:
1460: IF l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1461: RAISE e_wt_vol_fail;
1462: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1463: l_num_warnings := l_num_warnings + 1;
1464: END IF;
1458: x_return_status => l_return_status);
1459:
1460: IF l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1461: RAISE e_wt_vol_fail;
1462: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1463: l_num_warnings := l_num_warnings + 1;
1464: END IF;
1465:
1466: -- Call Adjust_parent_WV recursively to adjust W/V on parent container/delivery, if any
1497: p_vol_uom_code => p_vol_uom_code,
1498: p_inv_item_id => l_inv_item_id,
1499: x_return_status => l_return_status);
1500:
1501: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1502: IF l_debug_on THEN
1503: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Container '||l_container_id);
1504: END IF;
1505: raise e_abort;
1519: p_wt_uom_code => p_wt_uom_code,
1520: p_vol_uom_code => p_vol_uom_code,
1521: p_inv_item_id => l_inv_item_id,
1522: x_return_status => l_return_status);
1523: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1524: IF l_debug_on THEN
1525: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Delivery '||l_delivery_id);
1526: END IF;
1527: raise e_abort;
1550: p_wt_uom_code => p_wt_uom_code,
1551: p_vol_uom_code => p_vol_uom_code,
1552: p_inv_item_id => l_inv_item_id,
1553: x_return_status => l_return_status);
1554: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1555: IF l_debug_on THEN
1556: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Delivery '||l_delivery_id);
1557: END IF;
1558: raise e_abort;
1561: END IF;
1562: END IF;
1563: --END IF;
1564: IF l_num_warnings > 0 THEN
1565: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1566: END IF;
1567: IF l_debug_on THEN
1568: WSH_DEBUG_SV.log(l_module_name,'x_return_status '||x_return_status);
1569: WSH_DEBUG_SV.pop(l_module_name);
1572: EXCEPTION
1573: WHEN e_wt_vol_fail THEN
1574: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
1575: FND_MESSAGE.Set_Token('LPN', p_entity_id);
1576: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1577: WSH_UTIL_CORE.add_message (x_return_status);
1578: IF l_debug_on THEN
1579: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
1573: WHEN e_wt_vol_fail THEN
1574: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
1575: FND_MESSAGE.Set_Token('LPN', p_entity_id);
1576: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1577: WSH_UTIL_CORE.add_message (x_return_status);
1578: IF l_debug_on THEN
1579: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
1581: END IF;
1580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
1581: END IF;
1582:
1583: WHEN e_abort THEN
1584: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1585: IF l_debug_on THEN
1586: WSH_DEBUG_SV.pop(l_module_name);
1587: END IF;
1588:
1586: WSH_DEBUG_SV.pop(l_module_name);
1587: END IF;
1588:
1589: WHEN e_wt_mismatch THEN
1590: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1591:
1592: IF l_debug_on THEN
1593: WSH_DEBUG_SV.logmsg(l_module_name,'Error: Adjusted Net Weight is greater than Adjusted Gross Weight');
1594: WSH_DEBUG_SV.pop(l_module_name);
1595: END IF;
1596:
1597: WHEN lock_detected THEN -- BugFix 3570954
1598: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
1599: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
1600: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1601:
1602: IF l_debug_on THEN
1603: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
1596:
1597: WHEN lock_detected THEN -- BugFix 3570954
1598: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
1599: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
1600: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1601:
1602: IF l_debug_on THEN
1603: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
1604: END IF;
1603: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
1604: END IF;
1605:
1606: WHEN Others THEN
1607: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Adjust_parent_WV');
1608: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1609:
1610: IF l_debug_on THEN
1611: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1604: END IF;
1605:
1606: WHEN Others THEN
1607: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Adjust_parent_WV');
1608: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1609:
1610: IF l_debug_on THEN
1611: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1612: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1759: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1760: WSH_DEBUG_SV.log(l_module_name,'p_diff_fill_volume',p_diff_fill_volume);
1761: WSH_DEBUG_SV.log(l_module_name,'p_check_for_empty',p_check_for_empty);
1762: END IF;
1763: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1764:
1765: -- Get the delivery detail information
1766: OPEN C1;
1767: FETCH C1
1809: p_fill_pc_basis => NULL,
1810: x_fill_percent => l_cont_fill_pc,
1811: x_return_status => l_return_status
1812: );
1813: wsh_util_core.api_post_call
1814: (
1815: p_return_status => l_return_status,
1816: x_num_warnings => l_num_warnings,
1817: x_num_errors => l_num_errors
1859: p_filled_volume => null,
1860: p_fill_pc_flag => 'Y',
1861: x_cont_fill_pc => l_tmp_fill_pc,
1862: x_return_status => l_return_status);
1863: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1864: x_return_status := l_return_status;
1865: IF l_debug_on THEN
1866: WSH_DEBUG_SV.pop(l_module_name);
1867: END IF;
1865: IF l_debug_on THEN
1866: WSH_DEBUG_SV.pop(l_module_name);
1867: END IF;
1868: RETURN;
1869: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1870: l_num_warnings := l_num_warnings + 1;
1871: END IF;
1872:
1873: IF l_debug_on THEN
2006: g_consol_lpn := NULL;
2007:
2008: END IF;
2009: END IF;
2010: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2011: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2012: x_return_status := l_return_status;
2013: ELSE
2014: x_return_status := l_return_status;
2007:
2008: END IF;
2009: END IF;
2010: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2011: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2012: x_return_status := l_return_status;
2013: ELSE
2014: x_return_status := l_return_status;
2015: IF l_debug_on THEN
2019: END IF;
2020: END IF;
2021:
2022: IF l_num_warnings > 0 THEN
2023: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2024: END IF;
2025:
2026: IF l_debug_on THEN
2027: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
2031: EXCEPTION
2032:
2033: WHEN lock_detected THEN -- BugFix 3570954
2034: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
2035: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2036: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2037:
2038: IF l_debug_on THEN
2039: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
2032:
2033: WHEN lock_detected THEN -- BugFix 3570954
2034: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
2035: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2036: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2037:
2038: IF l_debug_on THEN
2039: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
2040: END IF;
2039: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
2040: END IF;
2041:
2042: WHEN e_abort THEN
2043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2044: IF l_debug_on THEN
2045: WSH_DEBUG_SV.pop(l_module_name);
2046: END IF;
2047:
2045: WSH_DEBUG_SV.pop(l_module_name);
2046: END IF;
2047:
2048: WHEN Others THEN
2049: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DD_WV_POST_PROCESS');
2050: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2051:
2052: IF l_debug_on THEN
2053: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2046: END IF;
2047:
2048: WHEN Others THEN
2049: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DD_WV_POST_PROCESS');
2050: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2051:
2052: IF l_debug_on THEN
2053: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2054: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2171: l_dummy NUMBER;
2172: l_trip_empty BOOLEAN;
2173: l_parent_delivery_id NUMBER;
2174: l_debug_on BOOLEAN;
2175: l_del_tab wsh_util_core.id_tab_type;
2176: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DEL_WV_POST_PROCESS';
2177:
2178: e_abort exception;
2179: mark_reprice_error exception;
2193: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2194: WSH_DEBUG_SV.log(l_module_name,'P_LEG_ID',p_leg_id);
2195: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_FOR_EMPTY',P_CHECK_FOR_EMPTY);
2196: END IF;
2197: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2198:
2199: -- Get the delivery information
2200: BEGIN
2201: SELECT weight_uom_code,
2214: EXCEPTION
2215: WHEN NO_DATA_FOUND THEN
2216: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DELIVERY');
2217: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
2218: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
2219: IF l_debug_on THEN
2220: WSH_DEBUG_SV.log(l_module_name,'Delivery '||p_delivery_id||' not found');
2221: WSH_DEBUG_SV.pop(l_module_name);
2222: END IF;
2315: p_vol_uom_code => l_vol_uom_code,
2316: p_inv_item_id => null,
2317: x_return_status => l_return_status);
2318:
2319: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2320: IF l_debug_on THEN
2321: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV returned '||l_return_status);
2322: END IF;
2323: raise e_abort;
2335: p_inv_item_id => null,
2336: x_return_status => l_return_status,
2337: p_stop_type => l_stop_type);
2338:
2339: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2340: IF l_debug_on THEN
2341: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV returned '||l_return_status);
2342: END IF;
2343: raise e_abort;
2361: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2362: p_entity_type => 'DELIVERY',
2363: p_entity_ids => l_del_tab,
2364: x_return_status => l_return_status);
2365: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2366: raise mark_reprice_error;
2367: END IF;
2368:
2369: END IF;
2375: EXCEPTION
2376:
2377: WHEN lock_detected THEN -- BugFix 3570954
2378: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
2379: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2380: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2381:
2382: WHEN e_abort THEN
2383: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2376:
2377: WHEN lock_detected THEN -- BugFix 3570954
2378: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
2379: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2380: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2381:
2382: WHEN e_abort THEN
2383: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2384: IF l_debug_on THEN
2379: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2380: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2381:
2382: WHEN e_abort THEN
2383: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2384: IF l_debug_on THEN
2385: WSH_DEBUG_SV.pop(l_module_name);
2386: END IF;
2387:
2387:
2388: WHEN mark_reprice_error then
2389: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2390: x_return_status := l_return_status;
2391: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2392: --
2393: IF l_debug_on THEN
2394: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2395: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2395: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2396: END IF;
2397:
2398: WHEN Others THEN
2399: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DEL_WV_POST_PROCESS');
2400: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2401:
2402: IF l_debug_on THEN
2403: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2396: END IF;
2397:
2398: WHEN Others THEN
2399: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DEL_WV_POST_PROCESS');
2400: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2401:
2402: IF l_debug_on THEN
2403: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2404: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2467: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
2468: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
2469: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',p_CALC_WV_IF_FROZEN);
2470: END IF;
2471: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2472:
2473: -- Get the DD info
2474: BEGIN
2475: SELECT gross_weight,
2486: EXCEPTION
2487: WHEN NO_DATA_FOUND THEN
2488: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
2489: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2490: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2491: IF l_debug_on THEN
2492: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_delivery_detail_id||' not found');
2493: WSH_DEBUG_SV.pop(l_module_name);
2494: END IF;
2521: x_net_weight => x_net_weight,
2522: x_volume => x_volume,
2523: x_return_status => l_return_status);
2524:
2525: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2526: x_return_status := l_return_status;
2527: IF l_debug_on THEN
2528: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
2529: WSH_DEBUG_SV.pop(l_module_name);
2548: p_diff_net_wt => NVL(x_net_weight,0) - NVL(l_org_net_wt,0),
2549: p_diff_fill_volume => NVL(x_volume,0) - NVL(l_org_vol,0),
2550: x_return_status => l_return_status);
2551:
2552: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2553: x_return_status := l_return_status;
2554: IF l_debug_on THEN
2555: WSH_DEBUG_SV.logmsg(l_module_name,'DD_WV_Post_Process returned '||l_return_status);
2556: WSH_DEBUG_SV.pop(l_module_name);
2566:
2567: EXCEPTION
2568:
2569: WHEN e_abort THEN
2570: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2571: IF l_debug_on THEN
2572: WSH_DEBUG_SV.pop(l_module_name);
2573: END IF;
2574:
2572: WSH_DEBUG_SV.pop(l_module_name);
2573: END IF;
2574:
2575: WHEN Others THEN
2576: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Detail_Weight_Volume');
2577: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2578: IF l_debug_on THEN
2579: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
2580: ;
2573: END IF;
2574:
2575: WHEN Others THEN
2576: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Detail_Weight_Volume');
2577: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2578: IF l_debug_on THEN
2579: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
2580: ;
2581: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2596: x_cont_fill_pc OUT NOCOPY NUMBER,
2597: x_return_status OUT NOCOPY VARCHAR2) IS
2598:
2599: BEGIN
2600: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2601:
2602: END Add_Container_Wt_Vol;
2603:
2604: -- J: W/V Changes
2631: l_gross_weight NUMBER := 0;
2632: l_volume NUMBER := 0;
2633: l_filled_volume NUMBER := 0;
2634: l_container_flag VARCHAR2(1):='N';
2635: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
2636: l_return_status VARCHAR2(1);
2637:
2638: mark_reprice_error EXCEPTION;
2639: -- LPN CONV. rv
2678: 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);
2679: END IF;
2680: IF c_get_detail_wv%NOTFOUND THEN
2681: CLOSE c_get_detail_wv;
2682: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2683: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2684:
2685: IF l_debug_on THEN
2686: WSH_DEBUG_SV.pop(l_module_name);
2726: IF l_debug_on THEN
2727: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2728: END IF;
2729: --
2730: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2731: --
2732: x_return_status := l_return_status;
2733: --
2734: IF l_debug_on THEN
2737: END IF;
2738: --
2739: RETURN;
2740: --
2741: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2742: --
2743: l_num_warnings := l_num_warnings + 1;
2744: --
2745: END IF;
2761: last_update_login = FND_GLOBAL.login_id
2762: WHERE delivery_detail_id = p_container_instance_id;
2763:
2764: IF SQL%NOTFOUND THEN
2765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2766: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2767:
2768: IF l_debug_on THEN
2769: WSH_DEBUG_SV.pop(l_module_name);
2785: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2786: p_entity_type => 'DELIVERY_DETAIL',
2787: p_entity_ids => l_details_marked,
2788: x_return_status => l_return_status);
2789: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2790: raise mark_reprice_error;
2791: END IF;
2792:
2793: END IF;
2804: NULL,
2805: x_cont_fill_pc,
2806: x_return_status);
2807:
2808: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2809: IF l_debug_on THEN
2810: WSH_DEBUG_SV.pop(l_module_name);
2811: END IF;
2812: return;
2828: END IF;
2829: -- End of OTM R12 : packing ECO
2830:
2831: -- LPN CONV. rv
2832: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2833: --
2834: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2835: --
2836: ELSE
2830:
2831: -- LPN CONV. rv
2832: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2833: --
2834: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2835: --
2836: ELSE
2837: --
2838: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2834: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2835: --
2836: ELSE
2837: --
2838: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2839: --
2840: END IF;
2841: -- LPN CONV. rv
2842:
2847: EXCEPTION
2848: WHEN mark_reprice_error then
2849: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2850: x_return_status := l_return_status;
2851: WSH_UTIL_CORE.add_message (x_return_status);
2852: IF l_debug_on THEN
2853: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2854: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2855: END IF;
2857: WHEN others THEN
2858: IF l_debug_on THEN
2859: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: OTHERS ' || SQLERRM );
2860: END IF;
2861: wsh_util_core.default_handler('WSH_WV_UTIL.update_container_wt_vol');
2862: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2863:
2864: IF l_debug_on THEN
2865: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2858: IF l_debug_on THEN
2859: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: OTHERS ' || SQLERRM );
2860: END IF;
2861: wsh_util_core.default_handler('WSH_WV_UTIL.update_container_wt_vol');
2862: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2863:
2864: IF l_debug_on THEN
2865: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2866: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3031: --
3032: childInfo_rec childInfo_cur%ROWTYPE;
3033: --}
3034:
3035: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
3036:
3037: l_return_status VARCHAR2(1);
3038: l_err_container NUMBER;
3039: mark_reprice_error EXCEPTION;
3066: WSH_DEBUG_SV.log(l_module_name,'P_FILLPCFLAG',P_FILLPCFLAG);
3067: WSH_DEBUG_SV.log(l_module_name,'P_MASTERWEIGHTUOMCODE',P_MASTERWEIGHTUOMCODE);
3068: WSH_DEBUG_SV.log(l_module_name,'P_MASTERVOLUMEUOMCODE',P_MASTERVOLUMEUOMCODE);
3069: END IF;
3070: l_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3071:
3072: -- For parent container and all its immediate contents
3073: FOR immediateChildren_rec
3074: IN immediateChildren_cur ( p_containerInstanceId )
3128: p_organization_id => childInfo_rec.organization_id,
3129: x_param_info => l_param_info,
3130: x_return_status => l_return_status);
3131:
3132: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3133: IF l_debug_on THEN
3134: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
3135: END IF;
3136: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
3134: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
3135: END IF;
3136: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
3137: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
3138: wsh_util_core.get_org_name(childInfo_rec.organization_id));
3139: wsh_util_core.add_message(l_return_status,l_module_name);
3140: raise e_abort;
3141: END IF;
3142:
3135: END IF;
3136: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
3137: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
3138: wsh_util_core.get_org_name(childInfo_rec.organization_id));
3139: wsh_util_core.add_message(l_return_status,l_module_name);
3140: raise e_abort;
3141: END IF;
3142:
3143: END IF;
3208: IF (l_param_info.percent_fill_basis_flag = 'W' AND l_line_grossWeight IS NULL) OR
3209: (l_param_info.percent_fill_basis_flag = 'V' AND l_line_volume IS NULL) THEN
3210: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WEIGHT_VOLUME');
3211: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',childInfo_rec.delivery_detail_id);
3212: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
3213: l_num_warnings := l_num_warnings + 1;
3214:
3215: IF l_debug_on THEN
3216: WSH_DEBUG_SV.logmsg(l_module_name,'Raising WSH_NULL_WEIGHT_VOLUME Warning for Dd '||immediateChildren_rec.delivery_detail_id);
3271: p_masterVolumeUomCode => l_masterVolumeUomCode
3272: );
3273: --
3274: --
3275: IF l_returnStatus NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)
3276: THEN
3277: l_err_container := childInfo_rec.delivery_detail_id;
3278: RAISE e_wt_vol_fail;
3279: ELSIF l_returnStatus = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3275: IF l_returnStatus NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)
3276: THEN
3277: l_err_container := childInfo_rec.delivery_detail_id;
3278: RAISE e_wt_vol_fail;
3279: ELSIF l_returnStatus = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3280: l_num_warnings := l_num_warnings + 1;
3281: END IF;
3282: --
3283: --}
3337: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3338: p_entity_type => 'DELIVERY_DETAIL',
3339: p_entity_ids => l_details_marked,
3340: x_return_status => l_return_status);
3341: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3342: raise mark_reprice_error;
3343: END IF;
3344:
3345: -- OTM R12 : packing ECO
3415: p_unit_volume => l_unit_vol,
3416: x_cont_fill_pc => x_contFillPc,
3417: x_return_status => l_returnStatus);
3418:
3419: IF l_returnStatus NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)
3420: THEN
3421: l_err_container := p_containerInstanceId;
3422: RAISE e_wt_vol_fail;
3423: ELSIF l_returnStatus = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3419: IF l_returnStatus NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)
3420: THEN
3421: l_err_container := p_containerInstanceId;
3422: RAISE e_wt_vol_fail;
3423: ELSIF l_returnStatus = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3424: l_num_warnings := l_num_warnings + 1;
3425: END IF;
3426:
3427: END IF;
3478: x_filledVolume := l_filledVolume;
3479: END IF;
3480: --
3481: IF l_num_warnings > 0 THEN
3482: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
3483: ELSE
3484: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3485: END IF;
3486:
3480: --
3481: IF l_num_warnings > 0 THEN
3482: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
3483: ELSE
3484: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3485: END IF;
3486:
3487: IF l_debug_on THEN
3488: WSH_DEBUG_SV.logmsg(l_module_name,'x_grossWeight '||x_grossWeight||' x_netWeight '||x_netWeight||
3497: EXCEPTION
3498: WHEN mark_reprice_error then
3499: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
3500: x_returnStatus := l_return_status;
3501: WSH_UTIL_CORE.add_message (x_returnStatus);
3502: --
3503: -- Debug Statements
3504: --
3505: IF l_debug_on THEN
3507: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3508: END IF;
3509: --
3510: WHEN e_invalid_detail THEN
3511: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3512: WSH_UTIL_CORE.add_message (x_returnStatus);
3513: --
3514: -- Debug Statements
3515: --
3508: END IF;
3509: --
3510: WHEN e_invalid_detail THEN
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
3520: --
3521: WHEN e_wt_vol_fail THEN
3522: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
3523: FND_MESSAGE.Set_Token('LPN', l_err_container);
3524: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3525: WSH_UTIL_CORE.add_message (x_returnStatus);
3526: --
3527: -- Debug Statements
3528: --
3521: WHEN e_wt_vol_fail THEN
3522: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
3523: FND_MESSAGE.Set_Token('LPN', l_err_container);
3524: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3525: WSH_UTIL_CORE.add_message (x_returnStatus);
3526: --
3527: -- Debug Statements
3528: --
3529: IF l_debug_on THEN
3531: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
3532: END IF;
3533: --
3534: WHEN e_abort THEN
3535: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3536: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3537: --
3538: -- Debug Statements
3539: --
3532: END IF;
3533: --
3534: WHEN e_abort THEN
3535: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3536: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3537: --
3538: -- Debug Statements
3539: --
3540: IF l_debug_on THEN
3541: WSH_DEBUG_SV.pop(l_module_name);
3542: END IF;
3543:
3544: WHEN Others THEN
3545: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3546: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3547: --
3548: -- Debug Statements
3549: --
3542: END IF;
3543:
3544: WHEN Others THEN
3545: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3546: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3547: --
3548: -- Debug Statements
3549: --
3550: IF l_debug_on THEN
3637: /*
3638: EXCEPTION
3639:
3640: WHEN Others THEN
3641: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3642: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3643: */
3644: --
3645: -- Debug Statements
3638: EXCEPTION
3639:
3640: WHEN Others THEN
3641: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3642: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3643: */
3644: --
3645: -- Debug Statements
3646: --
3724: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3725: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
3726: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3727: END IF;
3728: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3729:
3730: -- Get the container info
3731: BEGIN
3732: SELECT gross_weight,
3747: EXCEPTION
3748: WHEN NO_DATA_FOUND THEN
3749: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_INVALID_DETAIL');
3750: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_container_instance_id);
3751: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3752: IF l_debug_on THEN
3753: WSH_DEBUG_SV.pop(l_module_name);
3754: END IF;
3755: return;
3796: x_volume => x_volume,
3797: x_cont_fill_pc => x_cont_fill_pc,
3798: x_return_status => l_return_status);
3799:
3800: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3801: x_return_status := l_return_status;
3802: IF l_debug_on THEN
3803: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TPA_CONTAINER_PKG.container_weight_volume returned '||l_return_status);
3804: WSH_DEBUG_SV.pop(l_module_name);
3822: p_diff_net_wt => NVL(x_net_weight,0) - NVL(l_org_net_wt,0),
3823: p_diff_fill_volume => NVL(x_volume,0) - NVL(l_org_vol,0),
3824: x_return_status => l_return_status);
3825:
3826: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3827: x_return_status := l_return_status;
3828: IF l_debug_on THEN
3829: WSH_DEBUG_SV.logmsg(l_module_name,'DD_WV_Post_Process returned '||l_return_status);
3830: WSH_DEBUG_SV.pop(l_module_name);
3839: END IF;
3840:
3841: EXCEPTION
3842: WHEN Others THEN
3843: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3844: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3845:
3846: IF l_debug_on THEN
3847: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
3840:
3841: EXCEPTION
3842: WHEN Others THEN
3843: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3844: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3845:
3846: IF l_debug_on THEN
3847: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
3848: ;
3868: -- (WSH_DELIVERY_DETAILS_GRP.Delivery_Detail_Action),
3869: -- so the logic of checking G_RESET_WV is here.
3870: -- Parameters :
3871: -- IN:
3872: -- p_detail_rows IN wsh_util_core.id_tab_type REQUIRED
3873: -- p_update_flag IN VARCHAR2
3874: -- 'Y' if the detail needs to be updated with the calculated W/V
3875: -- p_calc_wv_if_frozen IN VARCHAR2
3876: -- 'Y' if manual W/V can be overriden
3880: -- Version : 1.0
3881: -- End of comments
3882:
3883: PROCEDURE Detail_Weight_Volume(
3884: p_detail_rows IN wsh_util_core.id_tab_type,
3885: p_override_flag IN VARCHAR2,
3886: p_calc_wv_if_frozen IN VARCHAR2 DEFAULT 'Y',
3887: x_return_status OUT NOCOPY VARCHAR2) IS
3888:
3904: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED)
3905: AND NVL(wnd.ignore_for_planning, 'N') = 'N';
3906:
3907: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
3908: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
3909: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
3910: l_count NUMBER;
3911: l_return_status VARCHAR2(1);
3912: -- End of OTM R12 : packing ECO
3905: AND NVL(wnd.ignore_for_planning, 'N') = 'N';
3906:
3907: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
3908: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
3909: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
3910: l_count NUMBER;
3911: l_return_status VARCHAR2(1);
3912: -- End of OTM R12 : packing ECO
3913:
4013: x_return_status => x_return_status);
4014:
4015: END IF; -- l_flag = 'Y'
4016:
4017: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4018: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_ERROR');
4019: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_rows(i));
4020: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4021: wsh_util_core.add_message(x_return_status);
4016:
4017: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4018: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_ERROR');
4019: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_rows(i));
4020: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4021: wsh_util_core.add_message(x_return_status);
4022: l_num_error := l_num_error + 1;
4023: END IF;
4024:
4017: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4018: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_ERROR');
4019: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_rows(i));
4020: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4021: wsh_util_core.add_message(x_return_status);
4022: l_num_error := l_num_error + 1;
4023: END IF;
4024:
4025: -- OTM R12 : packing ECO
4053: p_delivery_id_tab => l_delivery_id_tab,
4054: p_tms_interface_flag_tab => l_interface_flag_tab,
4055: x_return_status => l_return_status);
4056:
4057: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
4058: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4059: x_return_status := l_return_status;
4060: IF l_debug_on THEN
4061: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
4054: p_tms_interface_flag_tab => l_interface_flag_tab,
4055: x_return_status => l_return_status);
4056:
4057: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
4058: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4059: x_return_status := l_return_status;
4060: IF l_debug_on THEN
4061: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
4062: WSH_DEBUG_SV.pop(l_module_name, 'UPDATE_TMS_INTERFACE_FLAG ERROR');
4074: FND_MESSAGE.SET_TOKEN('NUM_ERROR',l_num_error);
4075: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',p_detail_rows.count - l_num_error);
4076:
4077: IF (p_detail_rows.count = l_num_error) THEN
4078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4079: ELSE
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4081: END IF;
4082:
4076:
4077: IF (p_detail_rows.count = l_num_error) THEN
4078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4079: ELSE
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4081: END IF;
4082:
4083: wsh_util_core.add_message(x_return_status);
4084:
4079: ELSE
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4081: END IF;
4082:
4083: wsh_util_core.add_message(x_return_status);
4084:
4085: ELSE
4086: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4087: END IF;
4082:
4083: wsh_util_core.add_message(x_return_status);
4084:
4085: ELSE
4086: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4087: END IF;
4088:
4089: END IF;
4090:
4098: IF (c_get_delivery_info%ISOPEN) THEN
4099: CLOSE c_get_delivery_info;
4100: END IF;
4101: -- End of OTM R12 : packing ECO
4102: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
4103: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4104:
4105: IF l_debug_on THEN
4106: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4099: CLOSE c_get_delivery_info;
4100: END IF;
4101: -- End of OTM R12 : packing ECO
4102: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
4103: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4104:
4105: IF l_debug_on THEN
4106: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4107: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4227:
4228: IF Get_Cont_Info%NOTFOUND THEN
4229: CLOSE Get_Cont_Info;
4230: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
4231: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4232: --
4233: -- Debug Statements
4234: --
4235: IF l_debug_on THEN
4256: FETCH Get_Fill_Basis INTO l_fill_pc_basis;
4257: IF Get_Fill_Basis%NOTFOUND THEN
4258: CLOSE Get_Fill_Basis;
4259: FND_MESSAGE.SET_NAME('WSH','WSH_FILL_BASIS_UNDEFINED');
4260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4261: --
4262: -- Debug Statements
4263: --
4264: IF l_debug_on THEN
4278: --
4279: -- If the Shipping Parameter Fill Basis is set to None, then simply return sucess and log a message.
4280: --
4281: IF (l_fill_pc_basis = 'N') THEN
4282: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4283: --
4284: -- Debug Statements
4285: --
4286: IF l_debug_on THEN
4294: END IF;
4295: -- end of bug 3562797 changes
4296:
4297: IF (nvl(l_cont_flag,'N') = 'N') THEN
4298: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4299: --
4300: -- Debug Statements
4301: --
4302: IF l_debug_on THEN
4325: IF l_fill_pc_basis = 'W' THEN
4326: IF nvl(l_cont_max_load, 0 ) <= 0 THEN
4327: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4328: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4329: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
4330: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4331: END IF;
4332: ELSIF l_fill_pc_basis = 'V' THEN
4333: IF nvl(l_cont_max_vol, 0 ) <= 0 THEN
4326: IF nvl(l_cont_max_load, 0 ) <= 0 THEN
4327: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4328: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4329: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
4330: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4331: END IF;
4332: ELSIF l_fill_pc_basis = 'V' THEN
4333: IF nvl(l_cont_max_vol, 0 ) <= 0 THEN
4334: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4332: ELSIF l_fill_pc_basis = 'V' THEN
4333: IF nvl(l_cont_max_vol, 0 ) <= 0 THEN
4334: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4335: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4336: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
4337: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4338: END IF;
4339: END IF;
4340:
4333: IF nvl(l_cont_max_vol, 0 ) <= 0 THEN
4334: FND_MESSAGE.SET_NAME('WSH', 'WSH_CONT_FILL_PC_ERROR');
4335: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4336: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
4337: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4338: END IF;
4339: END IF;
4340:
4341: IF l_debug_on THEN
4381: l_cont_org_id,
4382: l_cont_qty,
4383: x_return_status);
4384:
4385: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4386: -- dbms_output.put_line('error in estimating detail cont');
4387: --
4388: -- Debug Statements
4389: --
4390: IF l_debug_on THEN
4391: WSH_DEBUG_SV.pop(l_module_name);
4392: END IF;
4393: --
4394: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4395: return;
4396: END IF;
4397:
4398: l_cont_fill_pc := l_cont_fill_pc + l_cont_qty;
4419: l_cont_org_id,
4420: l_cont_qty,
4421: x_return_status);
4422:
4423: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4424: -- dbms_output.put_line('error in estimating master cont');
4425: --
4426: -- Debug Statements
4427: --
4440:
4441: ELSE
4442:
4443: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_FILL_BASIS');
4444: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4445: --
4446: -- Debug Statements
4447: --
4448: IF l_debug_on THEN
4503: IF l_debug_on THEN
4504: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
4505: END IF;
4506: --
4507: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4508: --
4509: x_return_status := l_return_status;
4510: --
4511: IF l_debug_on THEN
4514: END IF;
4515: --
4516: RETURN;
4517: --
4518: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4519: --
4520: l_num_warnings := l_num_warnings + 1;
4521: --
4522: END IF;
4529:
4530: IF SQL%NOTFOUND THEN
4531: -- dbms_output.put_line('unexp error while updating fill percent');
4532: FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
4533: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4534: --
4535: -- Debug Statements
4536: --
4537: IF l_debug_on THEN
4542: END IF;
4543: END IF;
4544:
4545: -- LPN CONV. rv
4546: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4547: --
4548: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4549: --
4550: ELSE
4544:
4545: -- LPN CONV. rv
4546: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4547: --
4548: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4549: --
4550: ELSE
4551: --
4552: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4548: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4549: --
4550: ELSE
4551: --
4552: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4553: --
4554: END IF;
4555: -- LPN CONV. rv
4556:
4561: WSH_DEBUG_SV.pop(l_module_name);
4562: END IF;
4563: --
4564: EXCEPTION
4565: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4566: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4567: --
4568: IF l_debug_on THEN
4569: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4562: END IF;
4563: --
4564: EXCEPTION
4565: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4566: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4567: --
4568: IF l_debug_on THEN
4569: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4565: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4566: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4567: --
4568: IF l_debug_on THEN
4569: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4571: END IF;
4572: --
4573: WHEN Others THEN
4566: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4567: --
4568: IF l_debug_on THEN
4569: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4571: END IF;
4572: --
4573: WHEN Others THEN
4574: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CALC_CONT_FILL_PC');
4570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4571: END IF;
4572: --
4573: WHEN Others THEN
4574: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CALC_CONT_FILL_PC');
4575: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4576:
4577: --
4578: -- Debug Statements
4571: END IF;
4572: --
4573: WHEN Others THEN
4574: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CALC_CONT_FILL_PC');
4575: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4576:
4577: --
4578: -- Debug Statements
4579: --
4646:
4647: IF Get_Cont_Info%NOTFOUND THEN
4648: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
4649: CLOSE Get_Cont_Info;
4650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4651: --
4652: -- Debug Statements
4653: --
4654: IF l_debug_on THEN
4662:
4663: ELSIF p_cont_item_id IS NULL OR p_organization_id IS NULL THEN
4664:
4665: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CONT_OR_ORG');
4666: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4667: --
4668: -- Debug Statements
4669: --
4670: IF l_debug_on THEN
4681:
4682: IF Get_Unit_Weight%NOTFOUND THEN
4683: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_ITEM');
4684: CLOSE Get_Unit_Weight;
4685: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4686: --
4687: -- Debug Statements
4688: --
4689: IF l_debug_on THEN
4705: END IF;
4706: --
4707: x_cont_tare_wt := WSH_WV_UTILS.Convert_Uom(l_wt_uom, nvl(p_wt_uom,l_cont_wt_uom),l_cont_unit_wt,nvl(p_cont_item_id, l_cont_item_id));
4708:
4709: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4710:
4711:
4712: --
4713: -- Debug Statements
4718: --
4719: EXCEPTION
4720:
4721: WHEN Others THEN
4722: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_TARE_WEIGHT_SELF');
4723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4724:
4725: --
4726: -- Debug Statements
4719: EXCEPTION
4720:
4721: WHEN Others THEN
4722: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_TARE_WEIGHT_SELF');
4723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4724:
4725: --
4726: -- Debug Statements
4727: --
4805: l_organization_id;
4806:
4807: IF Get_Cont_Info%NOTFOUND THEN
4808: CLOSE Get_Cont_Info;
4809: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4810: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
4811: WSH_UTIL_CORE.Add_Message (x_return_status);
4812: --
4813: -- Debug Statements
4807: IF Get_Cont_Info%NOTFOUND THEN
4808: CLOSE Get_Cont_Info;
4809: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4810: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
4811: WSH_UTIL_CORE.Add_Message (x_return_status);
4812: --
4813: -- Debug Statements
4814: --
4815: IF l_debug_on THEN
4820: END IF;
4821:
4822: /* wms change: if groupin is LPN , always return success */
4823: IF (l_cont_item_id IS NULL) THEN
4824: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4825: --
4826: -- Debug Statements
4827: --
4828: IF l_debug_on THEN
4838: WSH_SHIPPING_PARAMS_PVT.Get(
4839: p_organization_id => l_organization_id,
4840: x_param_info => l_param_info,
4841: x_return_status => x_return_status);
4842: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4843: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
4844: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
4845: wsh_util_core.get_org_name(l_organization_id));
4846: wsh_util_core.add_message(x_return_status,l_module_name);
4841: x_return_status => x_return_status);
4842: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4843: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
4844: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
4845: wsh_util_core.get_org_name(l_organization_id));
4846: wsh_util_core.add_message(x_return_status,l_module_name);
4847: IF l_debug_on THEN
4848: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||x_return_status);
4849: WSH_DEBUG_SV.pop(l_module_name);
4842: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4843: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
4844: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
4845: wsh_util_core.get_org_name(l_organization_id));
4846: wsh_util_core.add_message(x_return_status,l_module_name);
4847: IF l_debug_on THEN
4848: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||x_return_status);
4849: WSH_DEBUG_SV.pop(l_module_name);
4850: END IF;
4860: --
4861: -- If the Shipping Parameter Fill Basis is set to None, then simply return success and log a message.
4862: --
4863: IF (l_param_info.percent_fill_basis_flag = 'N') THEN
4864: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4865: x_fill_status := 'S';
4866: --
4867: -- Debug Statements
4868: --
4888: --{
4889: x_fill_status := 'S';
4890: --}
4891: END IF;
4892: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4893:
4894: --
4895: -- Debug Statements
4896: --
4899: END IF;
4900: --
4901: EXCEPTION
4902: WHEN Others THEN
4903: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CHECK_FILL_PC');
4904: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4905:
4906: --
4907: -- Debug Statements
4900: --
4901: EXCEPTION
4902: WHEN Others THEN
4903: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CHECK_FILL_PC');
4904: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4905:
4906: --
4907: -- Debug Statements
4908: --
5091:
5092: -- OTM R12 : packing ECO
5093: l_ignore_for_planning WSH_NEW_DELIVERIES.IGNORE_FOR_PLANNING%TYPE;
5094: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
5095: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
5096: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
5097: -- End of OTM R12 : packing ECO
5098:
5099: BEGIN
5092: -- OTM R12 : packing ECO
5093: l_ignore_for_planning WSH_NEW_DELIVERIES.IGNORE_FOR_PLANNING%TYPE;
5094: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
5095: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
5096: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
5097: -- End of OTM R12 : packing ECO
5098:
5099: BEGIN
5100:
5108: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5109: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5110: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5111: END IF;
5112: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5113:
5114: -- Get the delivery info
5115: OPEN del_uoms;
5116: FETCH del_uoms
5127: IF (del_uoms%NOTFOUND) THEN
5128: CLOSE del_uoms;
5129: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DELIVERY');
5130: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
5131: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
5132: IF l_debug_on THEN
5133: WSH_DEBUG_SV.log(l_module_name,'Delivery '||p_delivery_id||' not found');
5134: WSH_DEBUG_SV.pop(l_module_name);
5135: END IF;
5164: p_organization_id => l_organization_id,
5165: x_param_info => l_param_info,
5166: x_return_status => l_return_status);
5167:
5168: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5169: IF l_debug_on THEN
5170: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
5171: END IF;
5172: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
5170: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
5171: END IF;
5172: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
5173: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5174: wsh_util_core.get_org_name(l_organization_id));
5175: wsh_util_core.add_message(l_return_status,l_module_name);
5176: raise e_abort;
5177: END IF;
5178:
5171: END IF;
5172: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
5173: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5174: wsh_util_core.get_org_name(l_organization_id));
5175: wsh_util_core.add_message(l_return_status,l_module_name);
5176: raise e_abort;
5177: END IF;
5178:
5179:
5229: x_volume => l_volume,
5230: x_return_status => x_return_status);
5231:
5232:
5233: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5234: IF l_debug_on THEN
5235: WSH_DEBUG_SV.pop(l_module_name);
5236: END IF;
5237: RETURN;
5347: x_volume => l_cont_volume,
5348: x_cont_fill_pc => l_cont_fill_pc,
5349: x_return_status => x_return_status);
5350:
5351: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5352: IF l_debug_on THEN
5353: WSH_DEBUG_SV.pop(l_module_name);
5354: END IF;
5355: RETURN;
5407: x_volume => l_cont_volume,
5408: x_cont_fill_pc => l_cont_fill_pc,
5409: x_return_status => x_return_status);
5410:
5411: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5412: IF l_debug_on THEN
5413: WSH_DEBUG_SV.pop(l_module_name);
5414: END IF;
5415: RETURN;
5511: x_net_weight => l_net_weight,
5512: x_volume => l_volume,
5513: x_return_status => x_return_status);
5514:
5515: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5516: IF l_debug_on THEN
5517: WSH_DEBUG_SV.pop(l_module_name);
5518: END IF;
5519: RETURN;
5524: IF (l_param_info.percent_fill_basis_flag = 'W' AND l_net_weight IS NULL) OR
5525: (l_param_info.percent_fill_basis_flag = 'V' AND l_volume IS NULL) THEN
5526: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WEIGHT_VOLUME');
5527: FND_MESSAGE.SET_TOKEN('DELIVERY_DETAIL',dt.dd_id);
5528: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
5529: l_num_warnings := l_num_warnings + 1;
5530: END IF;
5531:
5532: -- Convert the W/V if UOMs differ and then accumulate W/V
5623: x_volume => l_cont_volume,
5624: x_cont_fill_pc => l_cont_fill_pc,
5625: x_return_status => x_return_status);
5626:
5627: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5628: IF l_debug_on THEN
5629: WSH_DEBUG_SV.pop(l_module_name);
5630: END IF;
5631: RETURN;
5710: last_update_login = FND_GLOBAL.login_id
5711: WHERE delivery_id = p_delivery_id;
5712:
5713: IF (SQL%NOTFOUND) THEN
5714: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5715: IF l_debug_on THEN
5716: WSH_DEBUG_SV.pop(l_module_name);
5717: END IF;
5718: RETURN;
5742: p_delivery_id_tab => l_delivery_id_tab,
5743: p_tms_interface_flag_tab => l_interface_flag_tab,
5744: x_return_status => l_return_status);
5745:
5746: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5747: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5748: x_return_status := l_return_status;
5749: IF l_debug_on THEN
5750: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
5743: p_tms_interface_flag_tab => l_interface_flag_tab,
5744: x_return_status => l_return_status);
5745:
5746: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5747: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5748: x_return_status := l_return_status;
5749: IF l_debug_on THEN
5750: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
5751: WSH_DEBUG_SV.pop(l_module_name, 'UPDATE_TMS_INTERFACE_FLAG ERROR');
5762: -- End of OTM R12 : packing ECO
5763:
5764:
5765: IF l_num_warnings > 0 THEN
5766: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5767: ELSE
5768: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5769: END IF;
5770:
5764:
5765: IF l_num_warnings > 0 THEN
5766: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5767: ELSE
5768: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5769: END IF;
5770:
5771: IF l_debug_on THEN
5772: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
5774: END IF;
5775:
5776: EXCEPTION
5777: WHEN e_abort THEN
5778: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5779: IF l_debug_on THEN
5780: WSH_DEBUG_SV.pop(l_module_name);
5781: END IF;
5782:
5780: WSH_DEBUG_SV.pop(l_module_name);
5781: END IF;
5782:
5783: WHEN Others THEN
5784: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5785: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5786:
5787: IF l_debug_on THEN
5788: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5781: END IF;
5782:
5783: WHEN Others THEN
5784: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5785: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5786:
5787: IF l_debug_on THEN
5788: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5789: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5856: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5857: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
5858: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5859: END IF;
5860: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5861:
5862: -- Get the delivery info
5863: BEGIN
5864: SELECT gross_weight,
5881: EXCEPTION
5882: WHEN NO_DATA_FOUND THEN
5883: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DELIVERY');
5884: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
5885: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
5886: IF l_debug_on THEN
5887: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery '||p_delivery_id||' not found');
5888: WSH_DEBUG_SV.pop(l_module_name);
5889: END IF;
5919: x_net_weight => x_net_weight,
5920: x_volume => x_volume,
5921: x_return_status => l_return_status);
5922:
5923: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5924: x_return_status := l_return_status;
5925: IF l_debug_on THEN
5926: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery_weight_volume returned '||l_return_status);
5927: WSH_DEBUG_SV.pop(l_module_name);
5946: p_diff_net_wt => NVL(x_net_weight,0) - NVL(l_org_net_wt,0),
5947: p_diff_volume => NVL(x_volume,0) - NVL(l_org_vol,0),
5948: x_return_status => l_return_status);
5949:
5950: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5951: x_return_status := l_return_status;
5952: IF l_debug_on THEN
5953: WSH_DEBUG_SV.logmsg(l_module_name,'Del_WV_Post_Process returned '||l_return_status);
5954: WSH_DEBUG_SV.pop(l_module_name);
5963: END IF;
5964:
5965: EXCEPTION
5966: WHEN Others THEN
5967: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5968: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5969:
5970: IF l_debug_on THEN
5971: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5964:
5965: EXCEPTION
5966: WHEN Others THEN
5967: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5968: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5969:
5970: IF l_debug_on THEN
5971: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5972: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6004: -- Version : 1.0
6005: -- End of comments
6006:
6007: PROCEDURE Delivery_Weight_Volume(
6008: p_del_rows IN wsh_util_core.id_tab_type,
6009: p_update_flag IN VARCHAR2,
6010: p_calc_wv_if_frozen IN VARCHAR2,
6011: x_return_status OUT NOCOPY VARCHAR2) IS
6012:
6052: x_net_weight => l_net_weight,
6053: x_volume => l_volume,
6054: x_return_status => x_return_status);
6055:
6056: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6057: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_WT_VOL_ERROR');
6058: IF l_debug_on THEN
6059: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6060: END IF;
6058: IF l_debug_on THEN
6059: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6060: END IF;
6061: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6062: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6063: wsh_util_core.add_message(x_return_status);
6064: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
6065: l_num_error := l_num_error + 1;
6066: END IF;
6059: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6060: END IF;
6061: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6062: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6063: wsh_util_core.add_message(x_return_status);
6064: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
6065: l_num_error := l_num_error + 1;
6066: END IF;
6067:
6075: FND_MESSAGE.SET_TOKEN('NUM_ERROR',l_num_error);
6076: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',p_del_rows.count - l_num_error);
6077:
6078: IF (p_del_rows.count = l_num_error) THEN
6079: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6080: ELSE
6081: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6082: END IF;
6083:
6077:
6078: IF (p_del_rows.count = l_num_error) THEN
6079: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6080: ELSE
6081: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6082: END IF;
6083:
6084: wsh_util_core.add_message(x_return_status);
6085:
6080: ELSE
6081: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6082: END IF;
6083:
6084: wsh_util_core.add_message(x_return_status);
6085:
6086: ELSE
6087: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6088: END IF;
6083:
6084: wsh_util_core.add_message(x_return_status);
6085:
6086: ELSE
6087: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6088: END IF;
6089:
6090: END IF;
6091:
6095:
6096: EXCEPTION
6097: WHEN others THEN
6098:
6099: wsh_util_core.default_handler ('WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME');
6100: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6101:
6102: IF l_debug_on THEN
6103: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6096: EXCEPTION
6097: WHEN others THEN
6098:
6099: wsh_util_core.default_handler ('WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME');
6100: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6101:
6102: IF l_debug_on THEN
6103: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6104: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6201:
6202:
6203: EXCEPTION
6204: WHEN others THEN
6205: wsh_util_core.default_handler ('WSH_WV_UTILS.within_deviation');
6206:
6207: IF l_debug_on THEN
6208: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6209: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6262: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
6263: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED);
6264:
6265: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
6266: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6267: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6268: l_gc3_is_installed VARCHAR2(1);
6269: l_weight_uom_code WSH_NEW_DELIVERIES.WEIGHT_UOM_CODE%TYPE;
6270: api_return_fail EXCEPTION;
6263: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED);
6264:
6265: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
6266: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6267: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6268: l_gc3_is_installed VARCHAR2(1);
6269: l_weight_uom_code WSH_NEW_DELIVERIES.WEIGHT_UOM_CODE%TYPE;
6270: api_return_fail EXCEPTION;
6271:
6301: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6302: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6303: END IF;
6304:
6305: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6306:
6307: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6308:
6309: IF l_gc3_is_installed IS NULL THEN
6303: END IF;
6304:
6305: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6306:
6307: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6308:
6309: IF l_gc3_is_installed IS NULL THEN
6310: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
6311: END IF;
6306:
6307: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6308:
6309: IF l_gc3_is_installed IS NULL THEN
6310: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
6311: END IF;
6312:
6313: --first call real prorate procedure to prorate the delivery/container
6314: IF l_debug_on THEN
6331: END IF;
6332:
6333: x_return_status := l_return_status;
6334:
6335: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6336: RAISE api_return_fail;
6337: END IF;
6338:
6339: --after prorate, details are changed, so check if the weights have changed
6381: IF l_debug_on THEN
6382: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG: ' || l_return_status);
6383: END IF;
6384:
6385: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6386: RAISE api_return_fail;
6387: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6388: x_return_status := l_return_status;
6389: END IF;
6383: END IF;
6384:
6385: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6386: RAISE api_return_fail;
6387: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6388: x_return_status := l_return_status;
6389: END IF;
6390:
6391: END IF; -- delivery id not null
6406: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
6407: WSH_DEBUG_SV.pop(l_module_name);
6408: END IF;
6409: WHEN OTHERS THEN
6410: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6411:
6412: IF (c_get_delivery_info_del%ISOPEN) THEN
6413: CLOSE c_get_delivery_info_del;
6414: END IF;
6416: IF (c_get_delivery_info_cont%ISOPEN) THEN
6417: CLOSE c_get_delivery_info_cont;
6418: END IF;
6419:
6420: WSH_UTIL_CORE.default_handler('WSH_WV_UTILS.Prorate_weight' );
6421: --
6422: -- Debug Statements
6423: --
6424: IF l_debug_on THEN
6519: TYPE immediate_detail_rec_tab IS TABLE OF immediate_details_del%ROWTYPE INDEX BY binary_integer;
6520: l_detail_rec_tab immediate_detail_rec_tab;
6521:
6522: -- Following variables are used to store the immediate container/delivery lines' info
6523: l_dd_upd_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores all immediate child delivery detail ids'
6524: l_dd_upd_net_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Net weights(in entity's UOM) of all immediate children
6525: l_dd_upd_gross_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Tare weights(in entity's UOM) of all immediate children
6526: --
6527:
6520: l_detail_rec_tab immediate_detail_rec_tab;
6521:
6522: -- Following variables are used to store the immediate container/delivery lines' info
6523: l_dd_upd_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores all immediate child delivery detail ids'
6524: l_dd_upd_net_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Net weights(in entity's UOM) of all immediate children
6525: l_dd_upd_gross_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Tare weights(in entity's UOM) of all immediate children
6526: --
6527:
6528: l_new_tare_wt NUMBER := 0;
6521:
6522: -- Following variables are used to store the immediate container/delivery lines' info
6523: l_dd_upd_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores all immediate child delivery detail ids'
6524: l_dd_upd_net_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Net weights(in entity's UOM) of all immediate children
6525: l_dd_upd_gross_wt_tbl WSH_UTIL_CORE.Id_Tab_Type; -- Stores Tare weights(in entity's UOM) of all immediate children
6526: --
6527:
6528: l_new_tare_wt NUMBER := 0;
6529: l_new_gross_wt NUMBER := 0;
6595: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6596: --}
6597: END IF;
6598:
6599: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6600:
6601: -- Find the change in net and tare wts
6602: 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) );
6603: l_entity_net_change := nvl(p_new_net_wt,0) - nvl(p_old_net_wt,0);
6681: IF l_debug_on THEN
6682: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
6683: END IF;
6684:
6685: WSH_UTIL_CORE.API_POST_CALL
6686: (
6687: p_return_status => l_return_status,
6688: x_num_warnings => l_num_warnings,
6689: x_num_errors => l_num_errors
6876: IF l_debug_on THEN
6877: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
6878: END IF;
6879: --
6880: WSH_UTIL_CORE.API_POST_CALL
6881: (
6882: p_return_status => l_return_status,
6883: x_num_warnings => l_num_warnings,
6884: x_num_errors => l_num_errors
6905: IF l_debug_on THEN
6906: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
6907: END IF;
6908: --
6909: WSH_UTIL_CORE.API_POST_CALL
6910: (
6911: p_return_status => l_return_status,
6912: x_num_warnings => l_num_warnings,
6913: x_num_errors => l_num_errors
6962: IF l_debug_on THEN
6963: wsh_debug_sv.log(l_module_name,'Return Status After Calling Prorate_weight_actual',l_return_status);
6964: END IF;
6965: --
6966: wsh_util_core.api_post_call(
6967: p_return_status => l_return_status,
6968: x_num_warnings => l_num_warnings,
6969: x_num_errors => l_num_errors,
6970: p_raise_error_flag => TRUE );
6997: IF l_debug_on THEN
6998: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_PRORATED_LPNS_TO_WMS', l_return_status);
6999: END IF;
7000:
7001: WSH_UTIL_CORE.API_POST_CALL
7002: (
7003: p_return_status => l_return_status,
7004: x_num_warnings => l_num_warnings,
7005: x_num_errors => l_num_errors
7010: END IF; --}
7011:
7012: IF l_num_errors > 0
7013: THEN
7014: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7015: ELSIF l_num_warnings > 0
7016: THEN
7017: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7018: ELSE
7013: THEN
7014: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7015: ELSIF l_num_warnings > 0
7016: THEN
7017: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7018: ELSE
7019: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7020: END IF;
7021:
7015: ELSIF l_num_warnings > 0
7016: THEN
7017: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7018: ELSE
7019: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7020: END IF;
7021:
7022: --
7023: -- Debug Statements
7037: END IF;
7038: IF immediate_details_cont%ISOPEN THEN
7039: CLOSE immediate_details_cont;
7040: END IF;
7041: WSH_UTIL_CORE.default_handler('WSH_WV_UTILS.Prorate_weight_actual' );
7042: --
7043: -- Debug Statements
7044: --
7045: IF l_debug_on THEN