[Home] [Help]
257: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
258: --
259: IF l_debug_on IS NULL
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: --
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: --
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
278: WSH_DEBUG_SV.pop(l_module_name);
279: END IF;
280: --
281: Return;
282: end if;
303: --
304: -- Debug Statements
305: --
306: IF l_debug_on THEN
307: WSH_DEBUG_SV.log(l_module_name,'x_weight_uom_code',x_weight_uom_code);
308: WSH_DEBUG_SV.log(l_module_name,'x_volume_uom_code',x_volume_uom_code);
309: WSH_DEBUG_SV.pop(l_module_name);
310: END IF;
311: --
304: -- Debug Statements
305: --
306: IF l_debug_on THEN
307: WSH_DEBUG_SV.log(l_module_name,'x_weight_uom_code',x_weight_uom_code);
308: WSH_DEBUG_SV.log(l_module_name,'x_volume_uom_code',x_volume_uom_code);
309: WSH_DEBUG_SV.pop(l_module_name);
310: END IF;
311: --
312: EXCEPTION
305: --
306: IF l_debug_on THEN
307: WSH_DEBUG_SV.log(l_module_name,'x_weight_uom_code',x_weight_uom_code);
308: WSH_DEBUG_SV.log(l_module_name,'x_volume_uom_code',x_volume_uom_code);
309: WSH_DEBUG_SV.pop(l_module_name);
310: END IF;
311: --
312: EXCEPTION
313: WHEN Others THEN
317: --
318: -- Debug Statements
319: --
320: IF l_debug_on THEN
321: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
322: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
323: END IF;
324: --
325: END get_default_uoms;
318: -- Debug Statements
319: --
320: IF l_debug_on THEN
321: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
322: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
323: END IF;
324: --
325: END get_default_uoms;
326:
449: BEGIN
450:
451: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
452: IF l_debug_on IS NULL THEN
453: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
454: END IF;
455: IF l_debug_on THEN
456: WSH_DEBUG_SV.push(l_module_name);
457: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
452: IF l_debug_on IS NULL THEN
453: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
454: END IF;
455: IF l_debug_on THEN
456: WSH_DEBUG_SV.push(l_module_name);
457: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
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;
453: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
454: END IF;
455: IF l_debug_on THEN
456: WSH_DEBUG_SV.push(l_module_name);
457: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
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:
454: END IF;
455: IF l_debug_on THEN
456: WSH_DEBUG_SV.push(l_module_name);
457: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
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;
455: IF l_debug_on THEN
456: WSH_DEBUG_SV.push(l_module_name);
457: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
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:
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;
489: return;
490: END IF;
491: CLOSE get_detail_wv;
498: END IF;
499: END IF;
500:
501: IF l_debug_on THEN
502: WSH_DEBUG_SV.logmsg(l_module_name,'Item Id '||l_inventory_item_id||' Org '||l_organization_id||' Wt Code '||l_dd_wt_code||' Vol Code '||l_dd_vol_code||' Qty '||l_qty);
503: WSH_DEBUG_SV.logmsg(l_module_name,'Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume||' U Wt '||l_unit_wt||' U Vol '||l_unit_vol||' Frozen '||l_wv_frozen_flag);
504: END IF;
505:
506: -- Return the original W/V if the W/V is manually entered and p_calc_wv_if_frozen is 'N'
499: END IF;
500:
501: IF l_debug_on THEN
502: WSH_DEBUG_SV.logmsg(l_module_name,'Item Id '||l_inventory_item_id||' Org '||l_organization_id||' Wt Code '||l_dd_wt_code||' Vol Code '||l_dd_vol_code||' Qty '||l_qty);
503: WSH_DEBUG_SV.logmsg(l_module_name,'Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume||' U Wt '||l_unit_wt||' U Vol '||l_unit_vol||' Frozen '||l_wv_frozen_flag);
504: END IF;
505:
506: -- Return the original W/V if the W/V is manually entered and p_calc_wv_if_frozen is 'N'
507: IF p_calc_wv_if_frozen = 'N' and l_wv_frozen_flag ='Y' THEN
507: IF p_calc_wv_if_frozen = 'N' and l_wv_frozen_flag ='Y' THEN
508: x_net_weight := l_net_weight;
509: x_volume := l_volume;
510: IF l_debug_on THEN
511: WSH_DEBUG_SV.logmsg(l_module_name,'Detail weights are Frozen. Skipping W/V calculation');
512: WSH_DEBUG_SV.pop(l_module_name);
513: END IF;
514: RETURN;
515: END IF;
508: x_net_weight := l_net_weight;
509: x_volume := l_volume;
510: IF l_debug_on THEN
511: WSH_DEBUG_SV.logmsg(l_module_name,'Detail weights are Frozen. Skipping W/V calculation');
512: WSH_DEBUG_SV.pop(l_module_name);
513: END IF;
514: RETURN;
515: END IF;
516:
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;
554: return;
555: END IF;
556: CLOSE Item_Net_Wt_Vol;
584: --
585: -- Debug Statements
586: --
587: IF l_debug_on THEN
588: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
589: END IF;
590: --
591:
592: WSH_WMS_SYNC_TMP_PKG.MERGE
595: x_return_status => l_return_status
596: );
597:
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: --
603: --
604: x_return_status := l_return_status;
605: --
606: IF l_debug_on THEN
607: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
608: WSH_DEBUG_SV.pop(l_module_name);
609: END IF;
610: --
611: RETURN;
604: x_return_status := l_return_status;
605: --
606: IF l_debug_on THEN
607: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
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
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);
639: END IF;
640: return;
641: END IF;
642:
651: p_entity_type => 'DELIVERY_DETAIL',
652: p_entity_ids => l_detail_tab,
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;
673: NVL(l_dd_vol_code, NVL(l_item_vol_code, '@@')))) THEN
674: G_DELIVERY_TMS_IMPACT := 'Y';
675:
676: IF l_debug_on THEN
677: WSH_DEBUG_SV.log(l_module_name,'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
678: END IF;
679: END IF;
680: -- End of OTM R12 : packing ECO
681: END IF; -- p_update_flag
693: END IF;
694: -- LPN CONV. rv
695:
696: IF l_debug_on THEN
697: WSH_DEBUG_SV.log(l_module_name,'x_net_weight '||x_net_weight||' x_volume '||x_volume||' x_return_status '||x_return_status);
698: WSH_DEBUG_SV.pop(l_module_name);
699: END IF;
700:
701: EXCEPTION
694: -- LPN CONV. rv
695:
696: IF l_debug_on THEN
697: WSH_DEBUG_SV.log(l_module_name,'x_net_weight '||x_net_weight||' x_volume '||x_volume||' x_return_status '||x_return_status);
698: WSH_DEBUG_SV.pop(l_module_name);
699: END IF;
700:
701: EXCEPTION
702:
708: --
709: -- Debug Statements
710: --
711: IF l_debug_on THEN
712: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
713: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
714: END IF;
715:
716:
709: -- Debug Statements
710: --
711: IF l_debug_on THEN
712: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
713: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
714: END IF;
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');
724: END IF;
725:
726: END Detail_Weight_Volume;
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;
725:
726: END Detail_Weight_Volume;
727:
872: BEGIN
873:
874: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
875: IF l_debug_on IS NULL THEN
876: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
877: END IF;
878:
879: IF l_debug_on THEN
880: WSH_DEBUG_SV.push(l_module_name);
876: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
877: END IF;
878:
879: IF l_debug_on THEN
880: WSH_DEBUG_SV.push(l_module_name);
881: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
882: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
883: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
884: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
877: END IF;
878:
879: IF l_debug_on THEN
880: WSH_DEBUG_SV.push(l_module_name);
881: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
882: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
883: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
884: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
885: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
878:
879: IF l_debug_on THEN
880: WSH_DEBUG_SV.push(l_module_name);
881: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
882: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
883: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
884: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
885: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
886: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
879: IF l_debug_on THEN
880: WSH_DEBUG_SV.push(l_module_name);
881: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
882: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
883: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
884: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
885: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
886: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
887: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
880: WSH_DEBUG_SV.push(l_module_name);
881: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
882: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
883: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
884: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
885: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
886: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
887: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
888: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
881: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
882: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
883: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
884: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
885: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
886: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
887: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
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);
882: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
883: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
884: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
885: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
886: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
887: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
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);
883: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
884: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
885: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
886: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
887: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
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;
884: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
885: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
886: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
887: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
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;
885: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
886: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
887: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
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;
886: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
887: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
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;
931: FOR UPDATE NOWAIT;
932: EXCEPTION
933: WHEN record_locked THEN
934: IF l_debug_on THEN
935: WSH_DEBUG_SV.logmsg(l_module_name,'Error: '||p_entity_type||' Id '||p_entity_id||'could not be locked');
936: END IF;
937: raise e_abort;
938: END;
939:
938: END;
939:
940:
941: IF l_debug_on THEN
942: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' has Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume||' Wt-Uom '||l_wt_uom_code||' Vol-Uom '||l_vol_uom_code ||' Status '||l_status_code||' Frozen '||l_frozen_flag);
943: END IF;
944:
945: IF (NVL(l_shipment_type_flag, ' ') = 'O' AND NVL(l_status_code , ' ') in ('IT','CL'))
946: OR (l_frozen_flag = 'Y' and p_stop_type NOT IN ('PICKUP','DROPOFF')) THEN
944:
945: IF (NVL(l_shipment_type_flag, ' ') = 'O' AND NVL(l_status_code , ' ') in ('IT','CL'))
946: OR (l_frozen_flag = 'Y' and p_stop_type NOT IN ('PICKUP','DROPOFF')) THEN
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
949: WSH_DEBUG_SV.pop(l_module_name);
950: END IF;
951:
952: return;
945: IF (NVL(l_shipment_type_flag, ' ') = 'O' AND NVL(l_status_code , ' ') in ('IT','CL'))
946: OR (l_frozen_flag = 'Y' and p_stop_type NOT IN ('PICKUP','DROPOFF')) THEN
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
949: WSH_DEBUG_SV.pop(l_module_name);
950: END IF;
951:
952: return;
953: END IF;
967: l_org_vol := p_volume;
968: END IF;
969:
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.logmsg(l_module_name,'Parameter Values after UOM conversions are Gross '||l_org_gross_wt||' Net '||l_org_net_wt||' Vol '||l_org_vol);
972: END IF;
973:
974: -- Sum up the input W/V and Stop's original W/V
975: IF NOT (l_gross_weight IS NULL and l_org_gross_wt IS NULL) THEN
1013: END IF;
1014:
1015: -- Calculate Stop fill%
1016: IF l_debug_on THEN
1017: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Stop_Fill_Percent',WSH_DEBUG_SV.C_PROC_LEVEL);
1018: END IF;
1019: WSH_TRIPS_ACTIONS.Calc_Stop_Fill_Percent(
1020: p_stop_id => p_entity_id,
1021: p_gross_weight => l_gross_weight,
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;
1031: RETURN;
1032: END IF;
1033:
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;
1041: WSH_TRIPS_ACTIONS.Fte_Load_Tender(
1042: p_stop_id => p_entity_id,
1043: p_gross_weight => l_gross_weight,
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;
1054: RETURN;
1055: END IF;
1056:
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
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
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: (
1088: END IF;
1089:
1090: -- Update the new W/V on the stop
1091: IF l_debug_on THEN
1092: WSH_DEBUG_SV.logmsg(l_module_name,'Updating '||p_entity_id||' with Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
1093: WSH_DEBUG_SV.logmsg(l_module_name,'l_frozen_flag '||l_frozen_flag||'p_stop_type '||p_stop_type);
1094: END IF;
1095: --R12 MDC
1096: --Included update for new wt/vol columns
1089:
1090: -- Update the new W/V on the stop
1091: IF l_debug_on THEN
1092: WSH_DEBUG_SV.logmsg(l_module_name,'Updating '||p_entity_id||' with Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
1093: WSH_DEBUG_SV.logmsg(l_module_name,'l_frozen_flag '||l_frozen_flag||'p_stop_type '||p_stop_type);
1094: END IF;
1095: --R12 MDC
1096: --Included update for new wt/vol columns
1097: IF p_stop_type = 'DROPOFF' THEN
1166: FOR UPDATE NOWAIT;
1167: EXCEPTION
1168: WHEN NO_DATA_FOUND THEN
1169: IF l_debug_on THEN
1170: WSH_DEBUG_SV.logmsg(l_module_name, p_entity_type||' Id '||p_entity_id||'has wv_frozen_flag Y');
1171: END IF;
1172: l_frozen_flag := 'Y';
1173: WHEN record_locked THEN
1174: IF l_debug_on THEN
1171: END IF;
1172: l_frozen_flag := 'Y';
1173: WHEN record_locked THEN
1174: IF l_debug_on THEN
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;
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
1185: raise e_abort;
1186: END;
1185: raise e_abort;
1186: END;
1187:
1188: IF l_debug_on THEN
1189: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' has Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume||' Wt-Uom '||l_wt_uom_code||' Vol-Uom '||l_vol_uom_code||' Status '||l_status_code||' Frozen '||l_frozen_flag);
1190: END IF;
1191:
1192: IF (NVL(l_shipment_direction, ' ') in ('O','IO') AND NVL(l_status_code, ' ') IN ('IT','CL','SR')) OR l_frozen_flag = 'Y' THEN
1193: IF l_debug_on THEN
1190: END IF;
1191:
1192: IF (NVL(l_shipment_direction, ' ') in ('O','IO') AND NVL(l_status_code, ' ') IN ('IT','CL','SR')) OR l_frozen_flag = 'Y' THEN
1193: IF l_debug_on THEN
1194: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
1195: WSH_DEBUG_SV.pop(l_module_name);
1196: END IF;
1197:
1198: return;
1191:
1192: IF (NVL(l_shipment_direction, ' ') in ('O','IO') AND NVL(l_status_code, ' ') IN ('IT','CL','SR')) OR l_frozen_flag = 'Y' THEN
1193: IF l_debug_on THEN
1194: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
1195: WSH_DEBUG_SV.pop(l_module_name);
1196: END IF;
1197:
1198: return;
1199: END IF;
1213: l_org_vol := p_volume;
1214: END IF;
1215:
1216: IF l_debug_on THEN
1217: WSH_DEBUG_SV.logmsg(l_module_name,'Parameter Values after UOM conversions are Gross '||l_org_gross_wt||' Net '||l_org_net_wt||' Vol '||l_org_vol);
1218: END IF;
1219:
1220: -- -- Sum up the input W/V and Delivery's original W/V
1221: IF NOT (l_gross_weight IS NULL and l_org_gross_wt IS NULL) THEN
1227: IF NOT (l_volume IS NULL and l_org_vol IS NULL) THEN
1228: l_volume := GREATEST(nvl(l_volume,0) + nvl(l_org_vol,0),0);
1229: END IF;
1230: IF l_debug_on THEN
1231: WSH_DEBUG_SV.logmsg(l_module_name,'Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
1232: END IF;
1233: IF (nvl(l_gross_weight,0) < nvl(l_net_weight,0)) THEN
1234: -- raise e_wt_mismatch;
1235: l_gross_weight := l_net_weight;
1236: END IF;
1237:
1238: -- Update the new W/V on the delivery
1239: IF l_debug_on THEN
1240: WSH_DEBUG_SV.logmsg(l_module_name,'Updating '||p_entity_id||' with Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
1241: END IF;
1242: update wsh_new_deliveries
1243: set gross_weight = l_gross_weight,
1244: net_weight = l_net_weight,
1252: --
1253:
1254: FOR crec in trip_info LOOP
1255: IF l_debug_on THEN
1256: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Trip '||crec.trip_id||' Pickup '||crec.pick_up_stop_id||' Drop off '||crec.drop_off_stop_id);
1257: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Trip '||crec.trip_id|| 'parent_delivery_leg'||crec.parent_delivery_leg_id);
1258: END IF;
1259:
1260: IF (crec.parent_delivery_leg_id is not NULL) THEN
1253:
1254: FOR crec in trip_info LOOP
1255: IF l_debug_on THEN
1256: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Trip '||crec.trip_id||' Pickup '||crec.pick_up_stop_id||' Drop off '||crec.drop_off_stop_id);
1257: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Trip '||crec.trip_id|| 'parent_delivery_leg'||crec.parent_delivery_leg_id);
1258: END IF;
1259:
1260: IF (crec.parent_delivery_leg_id is not NULL) THEN
1261:
1265: -- parent LPN and Delivery. Parent delivery and trip/stops will get updated
1266: -- when the parent LPN's weight volume gets updated.
1267:
1268: IF l_debug_on THEN
1269: WSH_DEBUG_SV.logmsg(l_module_name,'Parent Delivery Leg '||crec.parent_delivery_leg_id);
1270: END IF;
1271: OPEN c_consol_delivery(crec.parent_delivery_leg_id);
1272: FETCH c_consol_delivery INTO l_parent_delivery_id;
1273: CLOSE c_consol_delivery;
1272: FETCH c_consol_delivery INTO l_parent_delivery_id;
1273: CLOSE c_consol_delivery;
1274:
1275: IF l_debug_on THEN
1276: WSH_DEBUG_SV.logmsg(l_module_name,'Parent Delivery '||l_parent_delivery_id);
1277: END IF;
1278:
1279: Adjust_parent_WV(
1280: p_entity_type => 'DELIVERY',
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;
1295: END IF;
1296:
1298: -- Update the stop wt/vol
1299:
1300: FOR crec1 in c_stops(crec.trip_id, crec.pick_up_stop_id, crec.drop_off_stop_id) LOOP
1301: IF l_debug_on THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Stop '||crec1.stop_id);
1303: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1304: END IF;
1305:
1306: Adjust_parent_WV(
1299:
1300: FOR crec1 in c_stops(crec.trip_id, crec.pick_up_stop_id, crec.drop_off_stop_id) LOOP
1301: IF l_debug_on THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Stop '||crec1.stop_id);
1303: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1304: END IF;
1305:
1306: Adjust_parent_WV(
1307: p_entity_type => 'STOP',
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;
1322: END IF;
1323: END LOOP;
1369: FOR UPDATE NOWAIT;
1370: EXCEPTION
1371: WHEN NO_DATA_FOUND THEN
1372: IF l_debug_on THEN
1373: WSH_DEBUG_SV.logmsg(l_module_name,'Error: '||p_entity_type||' Id '||p_entity_id||'doesn not exist');
1374: END IF;
1375: raise e_abort;
1376: WHEN record_locked THEN
1377: IF l_debug_on THEN
1374: END IF;
1375: raise e_abort;
1376: WHEN record_locked THEN
1377: IF l_debug_on THEN
1378: WSH_DEBUG_SV.logmsg(l_module_name,'Error: '||p_entity_type||' Id '||p_entity_id||'could not be locked');
1379: END IF;
1380: raise e_abort;
1381: END;
1382:
1389: END IF;
1390:
1391:
1392: IF l_debug_on THEN
1393: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' has Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume||' Fill-Vol '||l_filled_volume||' Wt-Uom '||l_wt_uom_code||' Vol-Uom '||l_vol_uom_code||' Frozen '||l_frozen_flag);
1394: END IF;
1395:
1396: IF l_frozen_flag = 'Y' THEN
1397: IF l_debug_on THEN
1394: END IF;
1395:
1396: IF l_frozen_flag = 'Y' THEN
1397: IF l_debug_on THEN
1398: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
1399: WSH_DEBUG_SV.pop(l_module_name);
1400: END IF;
1401: return;
1402: END IF;
1395:
1396: IF l_frozen_flag = 'Y' THEN
1397: IF l_debug_on THEN
1398: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
1399: WSH_DEBUG_SV.pop(l_module_name);
1400: END IF;
1401: return;
1402: END IF;
1403:
1418: l_org_fill_vol := p_filled_volume;
1419: END IF;
1420:
1421: IF l_debug_on THEN
1422: WSH_DEBUG_SV.logmsg(l_module_name,'Parameter Values after UOM conversions are Gross '||l_org_gross_wt||' Net '||l_org_net_wt||' Vol '||l_org_vol);
1423: END IF;
1424:
1425: -- Sum up the input W/V and DD's original W/V
1426: IF NOT (l_gross_weight IS NULL and l_org_gross_wt IS NULL) THEN
1444: END IF;
1445:
1446: -- Call update_container_wt_vol to update new W/V on container
1447: IF l_debug_on THEN
1448: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit UPDATE_CONTAINER_WT_VOL',WSH_DEBUG_SV.C_PROC_LEVEL);
1449: END IF;
1450: update_container_wt_vol(
1451: p_container_instance_id => p_entity_id,
1452: p_gross_weight => l_gross_weight,
1467: IF ((l_container_id IS NOT NULL)) THEN
1468: --lpn conv
1469:
1470: IF l_debug_on THEN
1471: WSH_DEBUG_SV.log(l_module_name,'l_wms_org',l_wms_org);
1472: END IF;
1473: IF l_wms_org = 'Y' THEN --{
1474:
1475: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1481: END IF;
1482:
1483: ELSE --}{
1484: IF l_debug_on THEN
1485: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' '||p_entity_id||' has parent container '||l_container_id);
1486: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1487: END IF;
1488:
1489: Adjust_parent_WV(
1482:
1483: ELSE --}{
1484: IF l_debug_on THEN
1485: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' '||p_entity_id||' has parent container '||l_container_id);
1486: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1487: END IF;
1488:
1489: Adjust_parent_WV(
1490: p_entity_type => 'CONTAINER',
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;
1506: END IF;
1507: END IF; --}
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;
1528: END IF;
1529:
1535: -- consol LPN since the wt/vols to the consol delivery will be propagated
1536: -- through the child delivery.
1537:
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' '||p_entity_id||' is in delivery '||l_delivery_id);
1540: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1541: END IF;
1542:
1543:
1536: -- through the child delivery.
1537:
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' '||p_entity_id||' is in delivery '||l_delivery_id);
1540: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1541: END IF;
1542:
1543:
1544: Adjust_parent_WV(
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;
1559: END IF;
1560:
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);
1570: END IF;
1571:
1572: EXCEPTION
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);
1570: END IF;
1571:
1572: EXCEPTION
1573: WHEN e_wt_vol_fail THEN
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;
1582:
1583: WHEN e_abort THEN
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;
1582:
1583: WHEN e_abort THEN
1584: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
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:
1589: WHEN e_wt_mismatch THEN
1590: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
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
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);
1604: END IF;
1605:
1606: WHEN Others THEN
1607: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Adjust_parent_WV');
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');
1613: END IF;
1614: End Adjust_parent_WV;
1615:
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');
1613: END IF;
1614: End Adjust_parent_WV;
1615:
1616: -- J: W/V Changes
1747: BEGIN
1748:
1749: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1750: IF l_debug_on IS NULL THEN
1751: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1752: END IF;
1753:
1754: IF l_debug_on THEN
1755: WSH_DEBUG_SV.push(l_module_name);
1751: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1752: END IF;
1753:
1754: IF l_debug_on THEN
1755: WSH_DEBUG_SV.push(l_module_name);
1756: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1757: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1758: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
1759: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1752: END IF;
1753:
1754: IF l_debug_on THEN
1755: WSH_DEBUG_SV.push(l_module_name);
1756: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1757: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1758: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
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);
1753:
1754: IF l_debug_on THEN
1755: WSH_DEBUG_SV.push(l_module_name);
1756: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1757: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1758: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
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);
1754: IF l_debug_on THEN
1755: WSH_DEBUG_SV.push(l_module_name);
1756: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1757: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1758: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
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;
1755: WSH_DEBUG_SV.push(l_module_name);
1756: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1757: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1758: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
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;
1756: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1757: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1758: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
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:
1757: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1758: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
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
1782:
1783: -- For Container
1784: IF ((l_parent_container_id IS NOT NULL)) THEN
1785: IF l_debug_on THEN
1786: WSH_DEBUG_SV.logmsg(l_module_name,'The parent container id is '||l_parent_container_id);
1787: END IF;
1788:
1789: --lpn conv
1790: IF l_container_flag IN ('Y', 'C') AND l_line_direction IN ('O', 'IO') THEN
1795: FETCH c_get_item_id INTO l_item_id;
1796: CLOSE c_get_item_id;
1797:
1798: IF l_debug_on THEN
1799: WSH_DEBUG_SV.log(l_module_name,'l_item_id',l_item_id);
1800: END IF;
1801:
1802: IF c_wms_code_present = 'Y'
1803: AND l_update_wms_org = 'Y' THEN --{
1825: OPEN C2(l_parent_container_id);
1826: FETCH C2 INTO l_dummy_id;
1827: IF C2%NOTFOUND THEN
1828: IF l_debug_on THEN
1829: WSH_DEBUG_SV.logmsg(l_module_name,'Container will become empty without this dd');
1830: END IF;
1831: l_cont_empty := TRUE;
1832: END IF;
1833: CLOSE C2;
1848: l_tmp_fill_vol;
1849: CLOSE C4;
1850:
1851: IF l_debug_on THEN
1852: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_Container_Wt_Vol',WSH_DEBUG_SV.C_PROC_LEVEL);
1853: END IF;
1854: WSH_WV_UTILS.update_container_wt_vol(
1855: p_container_instance_id => l_parent_container_id,
1856: p_gross_weight => l_tmp_unit_wt,
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;
1868: RETURN;
1869: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1870: l_num_warnings := l_num_warnings + 1;
1870: l_num_warnings := l_num_warnings + 1;
1871: END IF;
1872:
1873: IF l_debug_on THEN
1874: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1875: END IF;
1876:
1877: DD_WV_Post_Process(
1878: p_delivery_detail_id => l_parent_container_id,
1884:
1885: ELSE -- NOT l_cont_empty
1886: -- Call Adjust_parent_WV to adjust W/V
1887: IF l_debug_on THEN
1888: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1889: END IF;
1890: Adjust_parent_WV(
1891: p_entity_type => 'CONTAINER',
1892: p_entity_id => l_parent_container_id,
1921: END IF; --}
1922: -- For Delivery
1923: ELSIF (l_delivery_id IS NOT NULL) THEN
1924: IF l_debug_on THEN
1925: WSH_DEBUG_SV.log(l_module_name,'The Delivery id is '||l_delivery_id);
1926: END IF;
1927:
1928: -- Check if delivery becomes empty without delivery detail
1929: l_del_empty := FALSE;
1931: OPEN C3(l_delivery_id);
1932: FETCH C3 INTO l_dummy_id;
1933: IF C3%NOTFOUND THEN
1934: IF l_debug_on THEN
1935: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery will become empty without this dd');
1936: END IF;
1937: l_del_empty := TRUE;
1938: END IF;
1939: CLOSE C3;
1962:
1963: CLOSE C5;
1964:
1965: IF l_debug_on THEN
1966: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Del_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1967: END IF;
1968:
1969: Del_WV_Post_Process(
1970: p_delivery_id => l_delivery_id,
1976: ELSE -- NOT l_del_empty
1977:
1978: -- Call Adjust_parent_WV to adjust W/V
1979: IF l_debug_on THEN
1980: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1981: END IF;
1982: IF (l_container_flag = 'Y') OR ((l_container_flag = 'C')
1983: AND (NVL(g_consol_lpn, 0) <> p_delivery_detail_id)) THEN
1984: Adjust_parent_WV(
2012: x_return_status := l_return_status;
2013: ELSE
2014: x_return_status := l_return_status;
2015: IF l_debug_on THEN
2016: WSH_DEBUG_SV.logmsg(l_module_name,'API returned '||l_return_status);
2017: END IF;
2018: raise e_abort;
2019: END IF;
2020: END IF;
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);
2028: WSH_DEBUG_SV.pop(l_module_name);
2029: END IF;
2030:
2031: EXCEPTION
2024: END IF;
2025:
2026: IF l_debug_on THEN
2027: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
2028: WSH_DEBUG_SV.pop(l_module_name);
2029: END IF;
2030:
2031: EXCEPTION
2032:
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;
2041:
2042: WHEN e_abort THEN
2043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
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:
2048: WHEN Others THEN
2049: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DD_WV_POST_PROCESS');
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');
2055: END IF;
2056:
2057: END 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');
2055: END IF;
2056:
2057: END DD_WV_Post_Process;
2058:
2181: BEGIN
2182:
2183: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2184: IF l_debug_on IS NULL THEN
2185: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2186: END IF;
2187:
2188: IF l_debug_on THEN
2189: WSH_DEBUG_SV.push(l_module_name);
2185: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2186: END IF;
2187:
2188: IF l_debug_on THEN
2189: WSH_DEBUG_SV.push(l_module_name);
2190: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2191: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2192: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
2193: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2186: END IF;
2187:
2188: IF l_debug_on THEN
2189: WSH_DEBUG_SV.push(l_module_name);
2190: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2191: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2192: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
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);
2187:
2188: IF l_debug_on THEN
2189: WSH_DEBUG_SV.push(l_module_name);
2190: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2191: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2192: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
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);
2188: IF l_debug_on THEN
2189: WSH_DEBUG_SV.push(l_module_name);
2190: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2191: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2192: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
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;
2189: WSH_DEBUG_SV.push(l_module_name);
2190: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2191: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2192: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
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;
2190: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2191: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2192: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
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:
2191: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2192: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
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
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;
2223: return;
2224: END;
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;
2223: return;
2224: END;
2225:
2225:
2226: -- If delivery status is 'IT','CL','SR' and shipment direction is 'O','IO' then Post processing is not allowed
2227: IF l_shipment_direction in ('O','IO') AND l_status_code IN ('IT','CL','SR') THEN
2228: IF l_debug_on THEN
2229: WSH_DEBUG_SV.logmsg(l_module_name,'Status Code is '||l_status_code||'. Post Processing is not allowed');
2230: WSH_DEBUG_SV.pop(l_module_name);
2231: END IF;
2232: return;
2233: END IF;
2226: -- If delivery status is 'IT','CL','SR' and shipment direction is 'O','IO' then Post processing is not allowed
2227: IF l_shipment_direction in ('O','IO') AND l_status_code IN ('IT','CL','SR') THEN
2228: IF l_debug_on THEN
2229: WSH_DEBUG_SV.logmsg(l_module_name,'Status Code is '||l_status_code||'. Post Processing is not allowed');
2230: WSH_DEBUG_SV.pop(l_module_name);
2231: END IF;
2232: return;
2233: END IF;
2234:
2235: -- for all trips assigned to the delivery leg/delivery
2236: FOR crec in trip_info LOOP
2237:
2238: IF l_debug_on THEN
2239: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Trip '||crec.trip_id||' Pickup '||crec.pick_up_stop_id||' Drop off '||crec.drop_off_stop_id);
2240: END IF;
2241:
2242: -- if p_check_for_empty is 'Y' and if the trip will become empty without delivery
2243: -- then set W/V to null for all stops in this trip
2248: IF C1%NOTFOUND THEN
2249: l_trip_empty := TRUE;
2250:
2251: IF l_debug_on THEN
2252: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||crec.trip_id||' will become empty without this delivery');
2253: END IF;
2254:
2255: --R12 MDC
2256: --Included update for new wt/vol columns
2279: --R12 MDC
2280: l_stop_type := NULL;
2281:
2282: IF l_debug_on THEN
2283: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Stop '||crec1.stop_id);
2284: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
2285: END IF;
2286:
2287: OPEN c_check_pickup(crec1.stop_id);
2280: l_stop_type := NULL;
2281:
2282: IF l_debug_on THEN
2283: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Stop '||crec1.stop_id);
2284: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
2285: END IF;
2286:
2287: OPEN c_check_pickup(crec1.stop_id);
2288: FETCH c_check_pickup INTO l_dummy;
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;
2324: END IF;
2325: ELSIF crec.parent_delivery_leg_id IS NULL THEN
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;
2344: END IF;
2345: END IF;
2354:
2355: l_del_tab(1) := p_delivery_id;
2356:
2357: IF l_debug_on THEN
2358: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
2359: END IF;
2360: --
2361: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2362: p_entity_type => 'DELIVERY',
2368:
2369: END IF;
2370:
2371: IF l_debug_on THEN
2372: WSH_DEBUG_SV.pop(l_module_name);
2373: END IF;
2374:
2375: EXCEPTION
2376:
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:
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');
2396: END IF;
2397:
2398: WHEN Others THEN
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');
2396: END IF;
2397:
2398: WHEN Others THEN
2399: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DEL_WV_POST_PROCESS');
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');
2405: END IF;
2406:
2407: END 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');
2405: END IF;
2406:
2407: END DEL_WV_Post_Process;
2408:
2458:
2459: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2460: IF l_debug_on IS NULL
2461: THEN
2462: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2463: END IF;
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.push(l_module_name);
2466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2461: THEN
2462: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2463: END IF;
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.push(l_module_name);
2466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
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);
2462: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2463: END IF;
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.push(l_module_name);
2466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
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;
2463: END IF;
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.push(l_module_name);
2466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
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;
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.push(l_module_name);
2466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
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:
2465: WSH_DEBUG_SV.push(l_module_name);
2466: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
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
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;
2495: return;
2496: END;
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;
2495: return;
2496: END;
2497:
2498: IF (P_CALC_WV_IF_FROZEN = 'N' AND l_frozen_flag = 'Y') THEN
2499: x_net_weight := l_org_net_wt;
2500: x_volume := l_org_vol;
2501: IF l_debug_on THEN
2502: WSH_DEBUG_SV.logmsg(l_module_name,'WV calculation not allowed on '||p_delivery_detail_id||'. Returning existing W/V');
2503: WSH_DEBUG_SV.pop(l_module_name);
2504: END IF;
2505: return;
2506: END IF;
2499: x_net_weight := l_org_net_wt;
2500: x_volume := l_org_vol;
2501: IF l_debug_on THEN
2502: WSH_DEBUG_SV.logmsg(l_module_name,'WV calculation not allowed on '||p_delivery_detail_id||'. Returning existing W/V');
2503: WSH_DEBUG_SV.pop(l_module_name);
2504: END IF;
2505: return;
2506: END IF;
2507:
2505: return;
2506: END IF;
2507:
2508: IF l_debug_on THEN
2509: WSH_DEBUG_SV.logmsg(l_module_name,'DD original wts are Gross '||l_org_gross_wt||' Net '||l_org_net_wt||' Vol '||l_org_vol);
2510: END IF;
2511:
2512: -- Call Detail_Weight_Volume API
2513: IF l_debug_on THEN
2510: END IF;
2511:
2512: -- Call Detail_Weight_Volume API
2513: IF l_debug_on THEN
2514: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
2515: END IF;
2516:
2517: Detail_Weight_Volume(
2518: p_delivery_detail_id => p_delivery_detail_id,
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);
2530: END IF;
2531: return;
2532: END IF;
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);
2530: END IF;
2531: return;
2532: END IF;
2533:
2538: (NVL(x_net_weight,0) <> NVL(l_org_net_wt,0)) OR
2539: (NVL(x_volume,0) <> NVL(l_org_vol,0))
2540: )) THEN
2541: IF l_debug_on THEN
2542: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
2543: END IF;
2544:
2545: DD_WV_Post_Process(
2546: p_delivery_detail_id => p_delivery_detail_id,
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);
2557: END IF;
2558: return;
2559: END IF;
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);
2557: END IF;
2558: return;
2559: END IF;
2560: END IF;
2559: END IF;
2560: END IF;
2561:
2562: IF l_debug_on THEN
2563: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
2564: WSH_DEBUG_SV.pop(l_module_name);
2565: END IF;
2566:
2567: EXCEPTION
2560: END IF;
2561:
2562: IF l_debug_on THEN
2563: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
2564: WSH_DEBUG_SV.pop(l_module_name);
2565: END IF;
2566:
2567: EXCEPTION
2568:
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:
2575: WHEN Others THEN
2576: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Detail_Weight_Volume');
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');
2582: END IF;
2583:
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');
2582: END IF;
2583:
2584: END Detail_Weight_Volume;
2585:
2651:
2652: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2653: IF l_debug_on IS NULL
2654: THEN
2655: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2656: END IF;
2657:
2658: IF l_debug_on THEN
2659: WSH_DEBUG_SV.push(l_module_name);
2655: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2656: END IF;
2657:
2658: IF l_debug_on THEN
2659: WSH_DEBUG_SV.push(l_module_name);
2660: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2661: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2662: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2663: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2656: END IF;
2657:
2658: IF l_debug_on THEN
2659: WSH_DEBUG_SV.push(l_module_name);
2660: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2661: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2662: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2663: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2664: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2657:
2658: IF l_debug_on THEN
2659: WSH_DEBUG_SV.push(l_module_name);
2660: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2661: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2662: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2663: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2664: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2665: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2658: IF l_debug_on THEN
2659: WSH_DEBUG_SV.push(l_module_name);
2660: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2661: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2662: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2663: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2664: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2665: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2666: END IF;
2659: WSH_DEBUG_SV.push(l_module_name);
2660: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2661: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2662: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2663: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2664: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2665: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2666: END IF;
2667:
2660: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2661: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2662: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2663: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2664: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2665: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2666: END IF;
2667:
2668: OPEN c_get_detail_wv;
2661: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2662: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2663: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2664: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2665: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2666: END IF;
2667:
2668: OPEN c_get_detail_wv;
2669: FETCH c_get_detail_wv
2674: l_container_flag,
2675: l_line_direction, -- LPN CONV. rv
2676: l_organization_id; -- LPN CONV. rv
2677: IF l_debug_on THEN
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;
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);
2687: END IF;
2688: return;
2689: END IF;
2690: CLOSE c_get_detail_wv;
2690: CLOSE c_get_detail_wv;
2691:
2692: -- K LPN CONV. rv
2693: IF l_debug_on THEN
2694: WSH_DEBUG_SV.log(l_module_name,'line direction', l_line_direction);
2695: WSH_DEBUG_SV.log(l_module_name,'Organization Id', l_organization_id);
2696: END IF;
2697: --
2698: l_wms_org := wsh_util_validate.check_wms_org(l_organization_id);
2691:
2692: -- K LPN CONV. rv
2693: IF l_debug_on THEN
2694: WSH_DEBUG_SV.log(l_module_name,'line direction', l_line_direction);
2695: WSH_DEBUG_SV.log(l_module_name,'Organization Id', l_organization_id);
2696: END IF;
2697: --
2698: l_wms_org := wsh_util_validate.check_wms_org(l_organization_id);
2699: --
2713: --
2714: -- Debug Statements
2715: --
2716: IF l_debug_on THEN
2717: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
2718: END IF;
2719: --
2720: WSH_WMS_SYNC_TMP_PKG.MERGE
2721: (
2723: x_return_status => l_return_status
2724: );
2725:
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: --
2731: --
2732: x_return_status := l_return_status;
2733: --
2734: IF l_debug_on THEN
2735: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
2736: WSH_DEBUG_SV.pop(l_module_name);
2737: END IF;
2738: --
2739: RETURN;
2732: x_return_status := l_return_status;
2733: --
2734: IF l_debug_on THEN
2735: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
2736: WSH_DEBUG_SV.pop(l_module_name);
2737: END IF;
2738: --
2739: RETURN;
2740: --
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);
2770: END IF;
2771: return;
2772: END IF;
2773:
2778:
2779: l_details_marked.delete;
2780: l_details_marked(1) := p_container_instance_id;
2781: IF l_debug_on THEN
2782: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
2783: END IF;
2784:
2785: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2786: p_entity_type => 'DELIVERY_DETAIL',
2794:
2795: IF p_fill_pc_flag = 'Y' THEN
2796:
2797: IF l_debug_on THEN
2798: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CALC_CONT_FILL_PC',WSH_DEBUG_SV.C_PROC_LEVEL);
2799: END IF;
2800:
2801: WSH_TPA_CONTAINER_PKG.Calc_Cont_Fill_Pc (
2802: p_container_instance_id,
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;
2813: END IF;
2814:
2822: NVL(l_gross_weight, -1) <> NVL(p_gross_weight, -1) OR
2823: NVL(l_volume, -1) <> NVL(p_volume, -1))) THEN
2824: G_DELIVERY_TMS_IMPACT := 'Y';
2825: IF l_debug_on THEN
2826: WSH_DEBUG_SV.log(l_module_name,'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
2827: END IF;
2828: END IF;
2829: -- End of OTM R12 : packing ECO
2830:
2840: END IF;
2841: -- LPN CONV. rv
2842:
2843: IF l_debug_on THEN
2844: WSH_DEBUG_SV.pop(l_module_name);
2845: END IF;
2846:
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;
2856:
2857: WHEN others THEN
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;
2856:
2857: WHEN others THEN
2858: IF l_debug_on THEN
2855: END IF;
2856:
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:
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');
2867: END IF;
2868:
2869: END 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');
2867: END IF;
2868:
2869: END update_container_wt_vol;
2870:
3053: --{
3054: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3055: IF l_debug_on IS NULL
3056: THEN
3057: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3058: END IF;
3059:
3060: IF l_debug_on THEN
3061: WSH_DEBUG_SV.push(l_module_name);
3057: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3058: END IF;
3059:
3060: IF l_debug_on THEN
3061: WSH_DEBUG_SV.push(l_module_name);
3062: --
3063: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3064: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3065: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
3059:
3060: IF l_debug_on THEN
3061: WSH_DEBUG_SV.push(l_module_name);
3062: --
3063: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3064: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3065: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
3066: WSH_DEBUG_SV.log(l_module_name,'P_FILLPCFLAG',P_FILLPCFLAG);
3067: WSH_DEBUG_SV.log(l_module_name,'P_MASTERWEIGHTUOMCODE',P_MASTERWEIGHTUOMCODE);
3060: IF l_debug_on THEN
3061: WSH_DEBUG_SV.push(l_module_name);
3062: --
3063: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3064: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3065: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
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);
3061: WSH_DEBUG_SV.push(l_module_name);
3062: --
3063: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3064: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3065: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
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;
3062: --
3063: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3064: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3065: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
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;
3063: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3064: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3065: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
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:
3064: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3065: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
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
3076: --{
3077: BEGIN
3078:
3079: IF l_debug_on THEN
3080: WSH_DEBUG_SV.logmsg(l_module_name,'Processing DD '||immediateChildren_rec.delivery_detail_id);
3081: END IF;
3082:
3083: -- Get the container info
3084: OPEN childInfo_cur ( immediateChildren_rec.delivery_detail_id );
3109: l_masterInvItemId := childInfo_rec.inventory_item_id;
3110:
3111: IF (childInfo_rec.wv_frozen_flag = 'Y' AND p_calcWVIfFrozen = 'N') THEN
3112: IF l_debug_on THEN
3113: WSH_DEBUG_SV.logmsg(l_module_name,'wv_frozen_flag is Y. Skipping the W/V calculation for this container');
3114: END IF;
3115: l_grossWeight := childInfo_rec.gross_weight;
3116: l_netWeight := childInfo_rec.net_weight;
3117: l_volume := childInfo_rec.volume;
3120: END IF;
3121:
3122: -- Get the shipping parameters of container organization
3123: IF l_debug_on THEN
3124: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
3125: END IF;
3126:
3127: WSH_SHIPPING_PARAMS_PVT.Get(
3128: p_organization_id => childInfo_rec.organization_id,
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');
3137: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
3138: wsh_util_core.get_org_name(childInfo_rec.organization_id));
3146: l_dd_netWt := l_dd_grossWt;
3147: l_dd_vol :=NVL(( childInfo_rec.unit_volume * childInfo_rec.qty),childInfo_rec.volume); --BUG#12709261
3148:
3149: IF l_debug_on THEN
3150: WSH_DEBUG_SV.logmsg(l_module_name,'l_dd_grossWt '||l_dd_grossWt||' l_dd_netWt '||l_dd_netWt||' l_dd_vol '||l_dd_vol);
3151: END IF;
3152:
3153: -- Convert the W/V if UOMs differ
3154: IF ((l_dd_vol > 0) AND (childInfo_rec.volume_uom_code <> l_masterVolumeUomCode)) THEN
3152:
3153: -- Convert the W/V if UOMs differ
3154: IF ((l_dd_vol > 0) AND (childInfo_rec.volume_uom_code <> l_masterVolumeUomCode)) THEN
3155: IF l_debug_on THEN
3156: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3157: END IF;
3158: l_line_volume := WSH_WV_UTILS.convert_uom(
3159: childInfo_rec.volume_uom_code,
3160: l_masterVolumeUomCode,
3169: END IF;
3170:
3171: IF ((l_dd_grossWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3172: IF l_debug_on THEN
3173: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3174: END IF;
3175: l_line_grossWeight := WSH_WV_UTILS.convert_uom(
3176: childInfo_rec.weight_uom_code,
3177: l_masterWeightUomCode,
3184: END IF;
3185:
3186: IF ((l_dd_netWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3187: IF l_debug_on THEN
3188: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3189: END IF;
3190: l_line_netWeight := WSH_WV_UTILS.convert_uom(
3191: childInfo_rec.weight_uom_code,
3192: l_masterWeightUomCode,
3198: l_line_netWeight_orig := l_line_netWeight;
3199: END IF;
3200:
3201: IF l_debug_on THEN
3202: WSH_DEBUG_SV.logmsg(l_module_name,'l_line_grossWeight '||l_line_grossWeight||' l_line_netWeight '||l_line_netWeight||' l_line_volume '||l_line_volume);
3203: WSH_DEBUG_SV.logmsg(l_module_name,'l_line_grossWeight_orig '||l_line_grossWeight_orig||' l_line_netWeight_orig '||l_line_netWeight_orig||' l_line_volume_orig '||l_line_volume_orig);
3204: END IF;
3205:
3206: -- Raise warning if delivery detail has null W/V depending on percent_fill_basis_flag
3199: END IF;
3200:
3201: IF l_debug_on THEN
3202: WSH_DEBUG_SV.logmsg(l_module_name,'l_line_grossWeight '||l_line_grossWeight||' l_line_netWeight '||l_line_netWeight||' l_line_volume '||l_line_volume);
3203: WSH_DEBUG_SV.logmsg(l_module_name,'l_line_grossWeight_orig '||l_line_grossWeight_orig||' l_line_netWeight_orig '||l_line_netWeight_orig||' l_line_volume_orig '||l_line_volume_orig);
3204: END IF;
3205:
3206: -- Raise warning if delivery detail has null W/V depending on percent_fill_basis_flag
3207: IF (childInfo_rec.container_flag = 'N') THEN
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);
3217: END IF;
3218: END IF;
3219: END IF;
3220:
3252: l_line_contFillPc := NULL;
3253: --
3254: --
3255: IF l_debug_on THEN
3256: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Container_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
3257: END IF;
3258: Container_Weight_Volume
3259: (
3260: p_containerInstanceId => childInfo_rec.delivery_detail_id,
3300: (NOT (p_calcWVIfFrozen = 'N' and childInfo_rec.wv_frozen_flag = 'Y')) AND
3301: ((NVL(l_line_grossWeight_orig,-99) <> NVL(childInfo_rec.gross_weight,-99)) OR
3302: (NVL(l_line_volume_orig,-99) <> NVL(childInfo_rec.volume,-99)))) THEN
3303: IF l_debug_on THEN
3304: WSH_DEBUG_SV.logmsg(l_module_name,'Update W/V for DD '||childInfo_rec.delivery_detail_id);
3305: END IF;
3306: -- LPN CONV. rv
3307: -- no call reqd. because this update is for non-container lines
3308: UPDATE wsh_delivery_details
3330: l_details_marked.delete;
3331: l_details_marked(1) := childInfo_rec.delivery_detail_id;
3332:
3333: IF l_debug_on THEN
3334: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
3335: END IF;
3336:
3337: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3338: p_entity_type => 'DELIVERY_DETAIL',
3356: NVL(l_line_grossWeight_orig,-99) <>
3357: NVL(childInfo_rec.net_weight,-99)) THEN
3358: G_DELIVERY_TMS_IMPACT := 'Y';
3359: IF l_debug_on THEN
3360: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id', childInfo_rec.delivery_detail_id);
3361: WSH_DEBUG_SV.log(l_module_name,'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
3362: END IF;
3363: END IF;
3364: -- End of OTM R12 : packing ECO
3357: NVL(childInfo_rec.net_weight,-99)) THEN
3358: G_DELIVERY_TMS_IMPACT := 'Y';
3359: IF l_debug_on THEN
3360: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id', childInfo_rec.delivery_detail_id);
3361: WSH_DEBUG_SV.log(l_module_name,'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
3362: END IF;
3363: END IF;
3364: -- End of OTM R12 : packing ECO
3365: END IF;
3380: --}
3381: END IF;
3382:
3383: IF l_debug_on THEN
3384: WSH_DEBUG_SV.logmsg(l_module_name,'After this iteration LEVEL '||immediateChildren_rec.LEVEL||
3385: ' l_grossWeight '||l_grossWeight||' l_netWeight '||l_netWeight||
3386: ' l_volume '||l_volume||' l_filledVolume '||l_filledVolume);
3387: END IF;
3388: --
3396: IF l_volume = 0 THEN
3397: l_volume := l_filledVolume;
3398: END IF;
3399: IF l_debug_on THEN
3400: WSH_DEBUG_SV.logmsg(l_module_name,'After LOOP l_grossWeight '||l_grossWeight||' l_netWeight '||l_netWeight||
3401: ' l_volume '||l_volume||' l_filledVolume '||l_filledVolume);
3402: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_container_Wt_Vol',WSH_DEBUG_SV.C_PROC_LEVEL);
3403: END IF;
3404:
3398: END IF;
3399: IF l_debug_on THEN
3400: WSH_DEBUG_SV.logmsg(l_module_name,'After LOOP l_grossWeight '||l_grossWeight||' l_netWeight '||l_netWeight||
3401: ' l_volume '||l_volume||' l_filledVolume '||l_filledVolume);
3402: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_container_Wt_Vol',WSH_DEBUG_SV.C_PROC_LEVEL);
3403: END IF;
3404:
3405: -- IF p_overrideFlag is 'Y' then call update_container_wt_vol to update W/V
3406: IF (p_overrideFlag = 'Y') THEN
3429:
3430: <
3431:
3432: IF l_debug_on THEN
3433: WSH_DEBUG_SV.logmsg(l_module_name,'p_masterWeightUomCode '||p_masterWeightUomCode||' l_masterWeightUomCode '||l_masterWeightUomCode||' l_masterInvItemId '||l_masterInvItemId);
3434: END IF;
3435:
3436: -- Convert the calculated W/V to p_masterWeightUomCode,p_masterVolumeUomCode UOMs
3437: IF p_masterWeightUomCode <> l_masterWeightUomCode THEN
3435:
3436: -- Convert the calculated W/V to p_masterWeightUomCode,p_masterVolumeUomCode UOMs
3437: IF p_masterWeightUomCode <> l_masterWeightUomCode THEN
3438: IF l_debug_on THEN
3439: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3440: END IF;
3441: x_grossWeight := WSH_WV_UTILS.convert_uom(
3442: l_masterWeightUomCode,
3443: p_masterWeightUomCode,
3443: p_masterWeightUomCode,
3444: l_grossWeight,
3445: l_masterInvItemId);
3446: IF l_debug_on THEN
3447: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3448: END IF;
3449: x_netWeight := WSH_WV_UTILS.convert_uom(
3450: l_masterWeightUomCode,
3451: p_masterWeightUomCode,
3457: END IF;
3458:
3459: IF p_masterVolumeUomCode <> l_masterVolumeUomCode THEN
3460: IF l_debug_on THEN
3461: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3462: END IF;
3463: x_volume := WSH_WV_UTILS.convert_uom(
3464: l_masterVolumeUomCode,
3465: p_masterVolumeUomCode,
3465: p_masterVolumeUomCode,
3466: l_volume,
3467: l_masterInvItemId);
3468: IF l_debug_on THEN
3469: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3470: END IF;
3471: x_filledVolume := WSH_WV_UTILS.convert_uom(
3472: l_masterVolumeUomCode,
3473: p_masterVolumeUomCode,
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||
3489: ' x_volume '||x_volume||' x_filledVolume '||x_filledVolume||
3490: ' x_contFillPc '||x_contFillPc||' x_returnStatus '||x_returnStatus);
3491: END IF;
3492: --}
3490: ' x_contFillPc '||x_contFillPc||' x_returnStatus '||x_returnStatus);
3491: END IF;
3492: --}
3493: IF l_debug_on THEN
3494: WSH_DEBUG_SV.pop(l_module_name);
3495: END IF;
3496: --
3497: EXCEPTION
3498: WHEN mark_reprice_error then
3502: --
3503: -- Debug Statements
3504: --
3505: IF l_debug_on THEN
3506: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3507: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3508: END IF;
3509: --
3510: WHEN e_invalid_detail THEN
3503: -- Debug Statements
3504: --
3505: IF l_debug_on THEN
3506: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
3513: --
3514: -- Debug Statements
3515: --
3516: IF l_debug_on THEN
3517: WSH_DEBUG_SV.logmsg(l_module_name,'E_INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_INVALID_DETAIL');
3519: END IF;
3520: --
3521: WHEN e_wt_vol_fail THEN
3514: -- Debug Statements
3515: --
3516: IF l_debug_on THEN
3517: WSH_DEBUG_SV.logmsg(l_module_name,'E_INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_INVALID_DETAIL');
3519: END IF;
3520: --
3521: WHEN e_wt_vol_fail THEN
3522: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
3526: --
3527: -- Debug Statements
3528: --
3529: IF l_debug_on THEN
3530: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3531: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
3532: END IF;
3533: --
3534: WHEN e_abort THEN
3527: -- Debug Statements
3528: --
3529: IF l_debug_on THEN
3530: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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');
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');
3547: --
3548: -- Debug Statements
3549: --
3550: IF l_debug_on THEN
3551: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3553: END IF;
3554: --
3555: END Container_Weight_Volume;
3548: -- Debug Statements
3549: --
3550: IF l_debug_on THEN
3551: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3553: END IF;
3554: --
3555: END Container_Weight_Volume;
3556:
3608: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3609: --
3610: IF l_debug_on IS NULL
3611: THEN
3612: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3613: END IF;
3614: --
3615: IF l_debug_on THEN
3616: WSH_DEBUG_SV.push(l_module_name);
3612: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3613: END IF;
3614: --
3615: IF l_debug_on THEN
3616: WSH_DEBUG_SV.push(l_module_name);
3617: --
3618: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3619: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3620: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3614: --
3615: IF l_debug_on THEN
3616: WSH_DEBUG_SV.push(l_module_name);
3617: --
3618: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3619: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3620: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3621: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3622: END IF;
3615: IF l_debug_on THEN
3616: WSH_DEBUG_SV.push(l_module_name);
3617: --
3618: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3619: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3620: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3621: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3622: END IF;
3623: --
3616: WSH_DEBUG_SV.push(l_module_name);
3617: --
3618: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3619: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3620: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3621: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3622: END IF;
3623: --
3624: Container_Weight_Volume
3617: --
3618: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3619: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3620: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3621: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3622: END IF;
3623: --
3624: Container_Weight_Volume
3625: (
3644: --
3645: -- Debug Statements
3646: --
3647: IF l_debug_on THEN
3648: WSH_DEBUG_SV.pop(l_module_name);
3649: END IF;
3650: --
3651: END Container_Weight_Volume;
3652:
3714:
3715: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3716: IF l_debug_on IS NULL
3717: THEN
3718: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3719: END IF;
3720: IF l_debug_on THEN
3721: WSH_DEBUG_SV.push(l_module_name);
3722: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3717: THEN
3718: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3719: END IF;
3720: IF l_debug_on THEN
3721: WSH_DEBUG_SV.push(l_module_name);
3722: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3723: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
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);
3718: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3719: END IF;
3720: IF l_debug_on THEN
3721: WSH_DEBUG_SV.push(l_module_name);
3722: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3723: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
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);
3719: END IF;
3720: IF l_debug_on THEN
3721: WSH_DEBUG_SV.push(l_module_name);
3722: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3723: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
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;
3720: IF l_debug_on THEN
3721: WSH_DEBUG_SV.push(l_module_name);
3722: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3723: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
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;
3721: WSH_DEBUG_SV.push(l_module_name);
3722: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3723: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
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:
3722: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3723: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
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
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;
3756: END;
3757:
3764: END IF;
3765: END IF;
3766:
3767: IF l_debug_on THEN
3768: WSH_DEBUG_SV.logmsg(l_module_name,'DD original wts are Gross '||l_org_gross_wt||' Net '||l_org_net_wt||' Vol '||l_org_vol||' Frozen '||l_frozen_flag);
3769: END IF;
3770:
3771: IF (P_CALC_WV_IF_FROZEN = 'N' AND l_frozen_flag = 'Y') THEN
3772: x_gross_weight := l_org_gross_wt;
3774: x_volume := l_org_vol;
3775: x_cont_fill_pc := l_org_fill_pc;
3776:
3777: IF l_debug_on THEN
3778: WSH_DEBUG_SV.log(l_module_name,'WV calculation not allowed on '||p_container_instance_id||'. Returning existing W/V');
3779: WSH_DEBUG_SV.pop(l_module_name);
3780: END IF;
3781: return;
3782: END IF;
3775: x_cont_fill_pc := l_org_fill_pc;
3776:
3777: IF l_debug_on THEN
3778: WSH_DEBUG_SV.log(l_module_name,'WV calculation not allowed on '||p_container_instance_id||'. Returning existing W/V');
3779: WSH_DEBUG_SV.pop(l_module_name);
3780: END IF;
3781: return;
3782: END IF;
3783:
3781: return;
3782: END IF;
3783:
3784: IF l_debug_on THEN
3785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.container_weight_volume',WSH_DEBUG_SV.C_PROC_LEVEL);
3786: END IF;
3787:
3788: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume to calculate W/V
3789: WSH_TPA_CONTAINER_PKG.container_weight_volume (
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);
3805: END IF;
3806: return;
3807: END IF;
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);
3805: END IF;
3806: return;
3807: END IF;
3808:
3812: ( (NVL(x_gross_weight,0) <> NVL(l_org_gross_wt,0)) OR
3813: (NVL(x_net_weight,0) <> NVL(l_org_net_wt,0)) OR
3814: (NVL(x_volume,0) <> NVL(l_org_vol,0)))) THEN
3815: IF l_debug_on THEN
3816: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
3817: END IF;
3818:
3819: DD_WV_Post_Process(
3820: p_delivery_detail_id => p_container_instance_id,
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);
3831: END IF;
3832: return;
3833: END IF;
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);
3831: END IF;
3832: return;
3833: END IF;
3834: END IF;
3833: END IF;
3834: END IF;
3835:
3836: IF l_debug_on THEN
3837: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
3838: WSH_DEBUG_SV.pop(l_module_name);
3839: END IF;
3840:
3841: EXCEPTION
3834: END IF;
3835:
3836: IF l_debug_on THEN
3837: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
3838: 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)
3848: ;
3849: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3850: END IF;
3851:
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: ;
3849: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3850: END IF;
3851:
3852: END Container_Weight_Volume;
3853:
3927:
3928: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3929: IF l_debug_on IS NULL
3930: THEN
3931: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3932: END IF;
3933: IF l_debug_on THEN
3934: WSH_DEBUG_SV.push(l_module_name);
3935: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3930: THEN
3931: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3932: END IF;
3933: IF l_debug_on THEN
3934: WSH_DEBUG_SV.push(l_module_name);
3935: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3936: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3937: END IF;
3938:
3931: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3932: END IF;
3933: IF l_debug_on THEN
3934: WSH_DEBUG_SV.push(l_module_name);
3935: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3936: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3937: END IF;
3938:
3939: IF (p_detail_rows.count = 0) THEN
3932: END IF;
3933: IF l_debug_on THEN
3934: WSH_DEBUG_SV.push(l_module_name);
3935: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3936: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3937: END IF;
3938:
3939: IF (p_detail_rows.count = 0) THEN
3940: raise others;
3958: END IF;
3959: CLOSE c_get_delivery_info;
3960:
3961: IF l_debug_on THEN
3962: WSH_DEBUG_SV.log(l_module_name, 'G_RESET_WV', WSH_WV_UTILS.G_RESET_WV);
3963: WSH_DEBUG_SV.log(l_module_name,'l_delivery_id', l_delivery_id);
3964: END IF;
3965:
3966: -- need to check for update only if delivery is include for planning and
3959: CLOSE c_get_delivery_info;
3960:
3961: IF l_debug_on THEN
3962: WSH_DEBUG_SV.log(l_module_name, 'G_RESET_WV', WSH_WV_UTILS.G_RESET_WV);
3963: WSH_DEBUG_SV.log(l_module_name,'l_delivery_id', l_delivery_id);
3964: END IF;
3965:
3966: -- need to check for update only if delivery is include for planning and
3967: -- tms_interface_flag is in CP UP AW AR state, which will be set to UR
3981:
3982: IF l_flag in ('Y', 'C') THEN
3983:
3984: IF l_debug_on THEN
3985: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
3986: END IF;
3987: --
3988: Container_Weight_Volume (
3989: p_container_instance_id => p_detail_rows(i),
3999:
4000: ELSE
4001:
4002: IF l_debug_on THEN
4003: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
4004: END IF;
4005: --
4006: Detail_Weight_Volume(
4007: p_delivery_detail_id => p_detail_rows(i),
4031: l_count := l_count + 1;
4032: l_delivery_id_tab(l_count) := l_delivery_id;
4033: l_interface_flag_tab(l_count) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
4034: IF l_debug_on THEN
4035: WSH_DEBUG_SV.log(l_module_name, 'l_count', l_count);
4036: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(l_count));
4037: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(l_count));
4038: END IF;
4039: END IF;
4032: l_delivery_id_tab(l_count) := l_delivery_id;
4033: l_interface_flag_tab(l_count) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
4034: IF l_debug_on THEN
4035: WSH_DEBUG_SV.log(l_module_name, 'l_count', l_count);
4036: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(l_count));
4037: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(l_count));
4038: END IF;
4039: END IF;
4040:
4033: l_interface_flag_tab(l_count) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
4034: IF l_debug_on THEN
4035: WSH_DEBUG_SV.log(l_module_name, 'l_count', l_count);
4036: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(l_count));
4037: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(l_count));
4038: END IF;
4039: END IF;
4040:
4041: --resetting the flag back to default after done with current detail
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');
4063: END IF;
4064: RETURN;
4065: END IF;
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');
4063: END IF;
4064: RETURN;
4065: END IF;
4066: END IF;
4088:
4089: END IF;
4090:
4091: IF l_debug_on THEN
4092: WSH_DEBUG_SV.pop(l_module_name);
4093: END IF;
4094:
4095: EXCEPTION
4096: WHEN others THEN
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');
4108: END IF;
4109:
4110: END 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');
4108: END IF;
4109:
4110: END Detail_Weight_Volume;
4111:
4194: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4195: --
4196: IF l_debug_on IS NULL
4197: THEN
4198: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4199: END IF;
4200: --
4201: IF l_debug_on THEN
4202: WSH_DEBUG_SV.push(l_module_name);
4198: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4199: END IF;
4200: --
4201: IF l_debug_on THEN
4202: WSH_DEBUG_SV.push(l_module_name);
4203: --
4204: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4205: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
4206: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4200: --
4201: IF l_debug_on THEN
4202: WSH_DEBUG_SV.push(l_module_name);
4203: --
4204: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4205: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
4206: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4207: END IF;
4208: --
4201: IF l_debug_on THEN
4202: WSH_DEBUG_SV.push(l_module_name);
4203: --
4204: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4205: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
4206: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4207: END IF;
4208: --
4209: OPEN Get_Cont_Info (p_container_instance_id);
4202: WSH_DEBUG_SV.push(l_module_name);
4203: --
4204: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4205: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
4206: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4207: END IF;
4208: --
4209: OPEN Get_Cont_Info (p_container_instance_id);
4210:
4232: --
4233: -- Debug Statements
4234: --
4235: IF l_debug_on THEN
4236: WSH_DEBUG_SV.pop(l_module_name);
4237: END IF;
4238: --
4239: return;
4240: END IF;
4241:
4242: CLOSE Get_Cont_Info;
4243:
4244: IF l_debug_on THEN
4245: WSH_DEBUG_SV.log(l_module_name,'Cont flag'||l_cont_flag);
4246: END IF;
4247: --
4248: -- Bug 3562797 jckwok
4249: -- Code to get fill percent basis moved up here because we want to check whether
4261: --
4262: -- Debug Statements
4263: --
4264: IF l_debug_on THEN
4265: WSH_DEBUG_SV.pop(l_module_name);
4266: END IF;
4267: --
4268: return;
4269: END IF;
4272: --
4273: -- Debug Statements
4274: --
4275: IF l_debug_on THEN
4276: WSH_DEBUG_SV.log(l_module_name,'fill pc basis',l_fill_pc_basis);
4277: END IF;
4278: --
4279: -- If the Shipping Parameter Fill Basis is set to None, then simply return sucess and log a message.
4280: --
4284: -- Debug Statements
4285: --
4286: IF l_debug_on THEN
4287: IF l_debug_on THEN
4288: WSH_DEBUG_SV.logmsg(l_module_name, 'Fill PC is not calculated because Fill Percent Basis flag is set to None');
4289: END IF;
4290: WSH_DEBUG_SV.pop(l_module_name);
4291: END IF;
4292: --
4286: IF l_debug_on THEN
4287: IF l_debug_on THEN
4288: WSH_DEBUG_SV.logmsg(l_module_name, 'Fill PC is not calculated because Fill Percent Basis flag is set to None');
4289: END IF;
4290: WSH_DEBUG_SV.pop(l_module_name);
4291: END IF;
4292: --
4293: return;
4294: END IF;
4299: --
4300: -- Debug Statements
4301: --
4302: IF l_debug_on THEN
4303: WSH_DEBUG_SV.pop(l_module_name);
4304: END IF;
4305: --
4306: return;
4307: END IF;
4306: return;
4307: END IF;
4308:
4309: IF l_debug_on THEN
4310: WSH_DEBUG_SV.log(l_module_name,'Cont item '||l_cont_item_id);
4311: END IF;
4312: /* wms change: Return Null if LPN is grouping */
4313: IF (l_cont_item_id IS NULL) THEN
4314: x_return_status := NULL;
4315: --
4316: -- Debug Statements
4317: --
4318: IF l_debug_on THEN
4319: WSH_DEBUG_SV.pop(l_module_name);
4320: END IF;
4321: --
4322: return;
4323: END IF;
4338: END IF;
4339: END IF;
4340:
4341: IF l_debug_on THEN
4342: WSH_DEBUG_SV.log(l_module_name,'Fill pc basis --'||l_fill_pc_basis);
4343: END IF;
4344:
4345: IF l_fill_pc_basis = 'W' THEN
4346: IF l_debug_on THEN
4343: END IF;
4344:
4345: IF l_fill_pc_basis = 'W' THEN
4346: IF l_debug_on THEN
4347: WSH_DEBUG_SV.log(l_module_name,'max load --'||l_cont_max_load);
4348: WSH_DEBUG_SV.log(l_module_name,'gross wt --'||l_cont_gross_wt);
4349: WSH_DEBUG_SV.log(l_module_name,'net wt --'||l_cont_net_wt);
4350: WSH_DEBUG_SV.log(l_module_name,'Unit wt --'||l_cont_unit_wt);
4351: END IF;
4344:
4345: IF l_fill_pc_basis = 'W' THEN
4346: IF l_debug_on THEN
4347: WSH_DEBUG_SV.log(l_module_name,'max load --'||l_cont_max_load);
4348: WSH_DEBUG_SV.log(l_module_name,'gross wt --'||l_cont_gross_wt);
4349: WSH_DEBUG_SV.log(l_module_name,'net wt --'||l_cont_net_wt);
4350: WSH_DEBUG_SV.log(l_module_name,'Unit wt --'||l_cont_unit_wt);
4351: END IF;
4352: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4345: IF l_fill_pc_basis = 'W' THEN
4346: IF l_debug_on THEN
4347: WSH_DEBUG_SV.log(l_module_name,'max load --'||l_cont_max_load);
4348: WSH_DEBUG_SV.log(l_module_name,'gross wt --'||l_cont_gross_wt);
4349: WSH_DEBUG_SV.log(l_module_name,'net wt --'||l_cont_net_wt);
4350: WSH_DEBUG_SV.log(l_module_name,'Unit wt --'||l_cont_unit_wt);
4351: END IF;
4352: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4353: ELSIF l_fill_pc_basis = 'V' THEN
4346: IF l_debug_on THEN
4347: WSH_DEBUG_SV.log(l_module_name,'max load --'||l_cont_max_load);
4348: WSH_DEBUG_SV.log(l_module_name,'gross wt --'||l_cont_gross_wt);
4349: WSH_DEBUG_SV.log(l_module_name,'net wt --'||l_cont_net_wt);
4350: WSH_DEBUG_SV.log(l_module_name,'Unit wt --'||l_cont_unit_wt);
4351: END IF;
4352: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4353: ELSIF l_fill_pc_basis = 'V' THEN
4354: IF l_debug_on THEN
4351: END IF;
4352: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4353: ELSIF l_fill_pc_basis = 'V' THEN
4354: IF l_debug_on THEN
4355: WSH_DEBUG_SV.log(l_module_name,'max vol --'||l_cont_max_vol);
4356: WSH_DEBUG_SV.log(l_module_name,'volume --'||l_cont_vol);
4357: END IF;
4358: l_cont_fill_pc := l_cont_vol/l_cont_max_vol;
4359: ELSIF l_fill_pc_basis = 'Q' THEN
4352: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4353: ELSIF l_fill_pc_basis = 'V' THEN
4354: IF l_debug_on THEN
4355: WSH_DEBUG_SV.log(l_module_name,'max vol --'||l_cont_max_vol);
4356: WSH_DEBUG_SV.log(l_module_name,'volume --'||l_cont_vol);
4357: END IF;
4358: l_cont_fill_pc := l_cont_vol/l_cont_max_vol;
4359: ELSIF l_fill_pc_basis = 'Q' THEN
4360:
4370: --
4371: -- Debug Statements
4372: --
4373: IF l_debug_on THEN
4374: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.ESTIMATE_DETAIL_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4375: END IF;
4376: --
4377: WSH_TPA_CONTAINER_PKG.Estimate_Detail_Containers (
4378: p_container_instance_id,
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;
4408: --
4409: -- Debug Statements
4410: --
4411: IF l_debug_on THEN
4412: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.ESTIMATE_MASTER_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4413: END IF;
4414: --
4415: WSH_TPA_CONTAINER_PKG.Estimate_Master_Containers (
4416: dlvb.delivery_detail_id,
4425: --
4426: -- Debug Statements
4427: --
4428: IF l_debug_on THEN
4429: WSH_DEBUG_SV.pop(l_module_name);
4430: END IF;
4431: --
4432: return;
4433: END IF;
4445: --
4446: -- Debug Statements
4447: --
4448: IF l_debug_on THEN
4449: WSH_DEBUG_SV.pop(l_module_name);
4450: END IF;
4451: --
4452: return;
4453:
4458: -- partially filled containers.
4459: x_fill_percent := ROUND((100*l_cont_fill_pc),6);
4460:
4461: IF l_debug_on THEN
4462: WSH_DEBUG_SV.log(l_module_name,'Fill pc--'||x_fill_percent);
4463: END IF;
4464: -- dbms_output.put_line('fill percent is ' || x_fill_percent);
4465:
4466: -- J: W/V Changes
4467: IF p_update_flag = 'Y' THEN
4468:
4469: -- K LPN CONV. rv
4470: IF l_debug_on THEN
4471: WSH_DEBUG_SV.log(l_module_name,'line direction', l_line_direction);
4472: WSH_DEBUG_SV.log(l_module_name,'Organization Id', l_organization_id);
4473: END IF;
4474: --
4475: l_wms_org := wsh_util_validate.check_wms_org(l_organization_id);
4468:
4469: -- K LPN CONV. rv
4470: IF l_debug_on THEN
4471: WSH_DEBUG_SV.log(l_module_name,'line direction', l_line_direction);
4472: WSH_DEBUG_SV.log(l_module_name,'Organization Id', l_organization_id);
4473: END IF;
4474: --
4475: l_wms_org := wsh_util_validate.check_wms_org(l_organization_id);
4476: --
4490: --
4491: -- Debug Statements
4492: --
4493: IF l_debug_on THEN
4494: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
4495: END IF;
4496: --
4497: WSH_WMS_SYNC_TMP_PKG.MERGE
4498: (
4500: x_return_status => l_return_status
4501: );
4502:
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: --
4508: --
4509: x_return_status := l_return_status;
4510: --
4511: IF l_debug_on THEN
4512: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
4513: WSH_DEBUG_SV.pop(l_module_name);
4514: END IF;
4515: --
4516: RETURN;
4509: x_return_status := l_return_status;
4510: --
4511: IF l_debug_on THEN
4512: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
4513: WSH_DEBUG_SV.pop(l_module_name);
4514: END IF;
4515: --
4516: RETURN;
4517: --
4534: --
4535: -- Debug Statements
4536: --
4537: IF l_debug_on THEN
4538: WSH_DEBUG_SV.pop(l_module_name);
4539: END IF;
4540: --
4541: return;
4542: END IF;
4557: --
4558: -- Debug Statements
4559: --
4560: IF l_debug_on THEN
4561: WSH_DEBUG_SV.pop(l_module_name);
4562: END IF;
4563: --
4564: EXCEPTION
4565: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
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');
4577: --
4578: -- Debug Statements
4579: --
4580: IF l_debug_on THEN
4581: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4582: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4583: END IF;
4584: --
4585: END Calc_Cont_Fill_Pc;
4578: -- Debug Statements
4579: --
4580: IF l_debug_on THEN
4581: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4582: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4583: END IF;
4584: --
4585: END Calc_Cont_Fill_Pc;
4586:
4625: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4626: --
4627: IF l_debug_on IS NULL
4628: THEN
4629: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4630: END IF;
4631: --
4632: IF l_debug_on THEN
4633: WSH_DEBUG_SV.push(l_module_name);
4629: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4630: END IF;
4631: --
4632: IF l_debug_on THEN
4633: WSH_DEBUG_SV.push(l_module_name);
4634: --
4635: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4636: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4637: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4631: --
4632: IF l_debug_on THEN
4633: WSH_DEBUG_SV.push(l_module_name);
4634: --
4635: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4636: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4637: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4638: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4639: END IF;
4632: IF l_debug_on THEN
4633: WSH_DEBUG_SV.push(l_module_name);
4634: --
4635: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4636: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4637: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4638: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4639: END IF;
4640: --
4633: WSH_DEBUG_SV.push(l_module_name);
4634: --
4635: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4636: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4637: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4638: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4639: END IF;
4640: --
4641: IF p_container_instance_id IS NOT NULL THEN
4634: --
4635: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4636: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4637: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4638: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4639: END IF;
4640: --
4641: IF p_container_instance_id IS NOT NULL THEN
4642:
4651: --
4652: -- Debug Statements
4653: --
4654: IF l_debug_on THEN
4655: WSH_DEBUG_SV.pop(l_module_name);
4656: END IF;
4657: --
4658: return;
4659: END IF;
4667: --
4668: -- Debug Statements
4669: --
4670: IF l_debug_on THEN
4671: WSH_DEBUG_SV.pop(l_module_name);
4672: END IF;
4673: --
4674: return;
4675:
4686: --
4687: -- Debug Statements
4688: --
4689: IF l_debug_on THEN
4690: WSH_DEBUG_SV.pop(l_module_name);
4691: END IF;
4692: --
4693: return;
4694: END IF;
4698: --
4699: -- Debug Statements
4700: --
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
4703: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4704: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4705: END IF;
4706: --
4699: -- Debug Statements
4700: --
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
4703: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4704: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4705: END IF;
4706: --
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));
4700: --
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
4703: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4704: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4705: END IF;
4706: --
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:
4712: --
4713: -- Debug Statements
4714: --
4715: IF l_debug_on THEN
4716: WSH_DEBUG_SV.pop(l_module_name);
4717: END IF;
4718: --
4719: EXCEPTION
4720:
4725: --
4726: -- Debug Statements
4727: --
4728: IF l_debug_on THEN
4729: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4730: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4731: END IF;
4732: --
4733: END Container_Tare_Weight_Self;
4726: -- Debug Statements
4727: --
4728: IF l_debug_on THEN
4729: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4730: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4731: END IF;
4732: --
4733: END Container_Tare_Weight_Self;
4734:
4783: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4784: --
4785: IF l_debug_on IS NULL
4786: THEN
4787: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4788: END IF;
4789: --
4790: IF l_debug_on THEN
4791: WSH_DEBUG_SV.push(l_module_name);
4787: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4788: END IF;
4789: --
4790: IF l_debug_on THEN
4791: WSH_DEBUG_SV.push(l_module_name);
4792: --
4793: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4794: END IF;
4795: --
4789: --
4790: IF l_debug_on THEN
4791: WSH_DEBUG_SV.push(l_module_name);
4792: --
4793: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4794: END IF;
4795: --
4796: IF p_container_instance_id IS NOT NULL
4797: THEN
4812: --
4813: -- Debug Statements
4814: --
4815: IF l_debug_on THEN
4816: WSH_DEBUG_SV.pop(l_module_name);
4817: END IF;
4818: --
4819: return;
4820: END IF;
4825: --
4826: -- Debug Statements
4827: --
4828: IF l_debug_on THEN
4829: WSH_DEBUG_SV.pop(l_module_name);
4830: END IF;
4831: --
4832: return;
4833: END IF;
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;
4851: return;
4852: END IF;
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;
4851: return;
4852: END IF;
4853:
4854: --
4855: -- Debug Statements
4856: --
4857: IF l_debug_on THEN
4858: WSH_DEBUG_SV.log(l_module_name,'fill pc basis', l_param_info.percent_fill_basis_flag);
4859: END IF;
4860: --
4861: -- If the Shipping Parameter Fill Basis is set to None, then simply return success and log a message.
4862: --
4866: --
4867: -- Debug Statements
4868: --
4869: IF l_debug_on THEN
4870: WSH_DEBUG_SV.pop(l_module_name);
4871: END IF;
4872: --
4873: return;
4874: END IF;
4894: --
4895: -- Debug Statements
4896: --
4897: IF l_debug_on THEN
4898: WSH_DEBUG_SV.pop(l_module_name);
4899: END IF;
4900: --
4901: EXCEPTION
4902: WHEN Others THEN
4906: --
4907: -- Debug Statements
4908: --
4909: IF l_debug_on THEN
4910: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4911: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4912: END IF;
4913: --
4914: END Check_Fill_Pc;
4907: -- Debug Statements
4908: --
4909: IF l_debug_on THEN
4910: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4911: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4912: END IF;
4913: --
4914: END Check_Fill_Pc;
4915:
5099: BEGIN
5100:
5101: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5102: IF l_debug_on IS NULL THEN
5103: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5104: END IF;
5105:
5106: IF l_debug_on THEN
5107: WSH_DEBUG_SV.push(l_module_name);
5103: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5104: END IF;
5105:
5106: IF l_debug_on THEN
5107: WSH_DEBUG_SV.push(l_module_name);
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;
5104: END IF;
5105:
5106: IF l_debug_on THEN
5107: WSH_DEBUG_SV.push(l_module_name);
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;
5105:
5106: IF l_debug_on THEN
5107: WSH_DEBUG_SV.push(l_module_name);
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:
5106: IF l_debug_on THEN
5107: WSH_DEBUG_SV.push(l_module_name);
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
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;
5136: RETURN;
5137: END IF;
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;
5136: RETURN;
5137: END IF;
5138: CLOSE del_uoms;
5137: END IF;
5138: CLOSE del_uoms;
5139:
5140: IF l_debug_on THEN
5141: WSH_DEBUG_SV.log(l_module_name,'Delivery original wts are Gross '||l_del_gross_wt||' Net '||l_del_net_wt||' Vol '||l_del_vol||' Frozen '||l_wv_frozen_flag);
5142: WSH_DEBUG_SV.log(l_module_name,'Org '||l_organization_id||' Wt Code '||l_weight_uom_code||' Vol Code '||l_volume_uom_code);
5143: WSH_DEBUG_SV.log(l_module_name, 'Ignore_for_planning '||l_ignore_for_planning);
5144: WSH_DEBUG_SV.log(l_module_name, 'tms_interface_flag '||l_tms_interface_flag);
5145: END IF;
5138: CLOSE del_uoms;
5139:
5140: IF l_debug_on THEN
5141: WSH_DEBUG_SV.log(l_module_name,'Delivery original wts are Gross '||l_del_gross_wt||' Net '||l_del_net_wt||' Vol '||l_del_vol||' Frozen '||l_wv_frozen_flag);
5142: WSH_DEBUG_SV.log(l_module_name,'Org '||l_organization_id||' Wt Code '||l_weight_uom_code||' Vol Code '||l_volume_uom_code);
5143: WSH_DEBUG_SV.log(l_module_name, 'Ignore_for_planning '||l_ignore_for_planning);
5144: WSH_DEBUG_SV.log(l_module_name, 'tms_interface_flag '||l_tms_interface_flag);
5145: END IF;
5146:
5139:
5140: IF l_debug_on THEN
5141: WSH_DEBUG_SV.log(l_module_name,'Delivery original wts are Gross '||l_del_gross_wt||' Net '||l_del_net_wt||' Vol '||l_del_vol||' Frozen '||l_wv_frozen_flag);
5142: WSH_DEBUG_SV.log(l_module_name,'Org '||l_organization_id||' Wt Code '||l_weight_uom_code||' Vol Code '||l_volume_uom_code);
5143: WSH_DEBUG_SV.log(l_module_name, 'Ignore_for_planning '||l_ignore_for_planning);
5144: WSH_DEBUG_SV.log(l_module_name, 'tms_interface_flag '||l_tms_interface_flag);
5145: END IF;
5146:
5147: IF p_calc_wv_if_frozen = 'N' AND l_wv_frozen_flag = 'Y' THEN
5140: IF l_debug_on THEN
5141: WSH_DEBUG_SV.log(l_module_name,'Delivery original wts are Gross '||l_del_gross_wt||' Net '||l_del_net_wt||' Vol '||l_del_vol||' Frozen '||l_wv_frozen_flag);
5142: WSH_DEBUG_SV.log(l_module_name,'Org '||l_organization_id||' Wt Code '||l_weight_uom_code||' Vol Code '||l_volume_uom_code);
5143: WSH_DEBUG_SV.log(l_module_name, 'Ignore_for_planning '||l_ignore_for_planning);
5144: WSH_DEBUG_SV.log(l_module_name, 'tms_interface_flag '||l_tms_interface_flag);
5145: END IF;
5146:
5147: IF p_calc_wv_if_frozen = 'N' AND l_wv_frozen_flag = 'Y' THEN
5148: x_gross_weight := l_del_gross_wt;
5148: x_gross_weight := l_del_gross_wt;
5149: x_net_weight := l_del_net_wt;
5150: x_volume := l_del_vol;
5151: IF l_debug_on THEN
5152: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery W/V is frozen. Returning');
5153: WSH_DEBUG_SV.pop(l_module_name);
5154: END IF;
5155: RETURN;
5156: END IF;
5149: x_net_weight := l_del_net_wt;
5150: x_volume := l_del_vol;
5151: IF l_debug_on THEN
5152: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery W/V is frozen. Returning');
5153: WSH_DEBUG_SV.pop(l_module_name);
5154: END IF;
5155: RETURN;
5156: END IF;
5157:
5156: END IF;
5157:
5158: -- Get the Shipping parameters of DD's organization
5159: IF l_debug_on THEN
5160: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
5161: END IF;
5162:
5163: WSH_SHIPPING_PARAMS_PVT.Get(
5164: p_organization_id => l_organization_id,
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');
5173: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5174: wsh_util_core.get_org_name(l_organization_id));
5194: G_DELIVERY_TMS_IMPACT := 'N';
5195: END IF;
5196:
5197: IF l_debug_on THEN
5198: WSH_DEBUG_SV.log(l_module_name, 'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
5199: END IF;
5200: -- End of OTM R12 : packing ECO
5201:
5202:
5211: l_net_weight := NULL;
5212: l_volume := NULL;
5213:
5214: IF l_debug_on THEN
5215: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Delivery '||del.del_id);
5216: END IF;
5217:
5218: -- Call Delivery WV API to calculate delivery W/V
5219: IF l_debug_on THEN
5216: END IF;
5217:
5218: -- Call Delivery WV API to calculate delivery W/V
5219: IF l_debug_on THEN
5220: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5221: END IF;
5222:
5223: Delivery_Weight_Volume(
5224: p_delivery_id => del.del_id,
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;
5238: END IF;
5239:
5241: -- Convert the W/V if UOMs differ and then accumulate W/V
5242: IF (del.wt_uom <> l_weight_uom_code) THEN
5243: IF (l_gross_weight > 0) THEN
5244: IF l_debug_on THEN
5245: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5246: END IF;
5247: child_del_gross_weight := NVL(child_del_gross_weight,0) +
5248: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_gross_weight);
5249: ELSIF (l_gross_weight = 0) THEN
5247: child_del_gross_weight := NVL(child_del_gross_weight,0) +
5248: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_gross_weight);
5249: ELSIF (l_gross_weight = 0) THEN
5250: IF l_debug_on THEN
5251: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_gross_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5252: END IF;
5253: child_del_gross_weight := NVL(child_del_gross_weight,0) + l_gross_weight;
5254: END IF;
5255:
5254: END IF;
5255:
5256: IF (l_net_weight > 0) THEN
5257: IF l_debug_on THEN
5258: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5259: END IF;
5260: child_del_net_weight := NVL(child_del_net_weight,0) +
5261: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_net_weight);
5262: ELSIF (l_net_weight = 0) THEN
5260: child_del_net_weight := NVL(child_del_net_weight,0) +
5261: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_net_weight);
5262: ELSIF (l_net_weight = 0) THEN
5263: IF l_debug_on THEN
5264: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_net_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5265: END IF;
5266: child_del_net_weight := NVL(child_del_net_weight,0) + l_net_weight;
5267: END IF;
5268: ELSE
5276:
5277: IF (del.vol_uom <> l_volume_uom_code) THEN
5278: IF (l_volume > 0) THEN
5279: IF l_debug_on THEN
5280: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5281: END IF;
5282: child_del_volume := NVL(child_del_volume,0) +
5283: WSH_WV_UTILS.convert_uom(del.vol_uom, l_volume_uom_code, l_volume);
5284: ELSIF (l_volume = 0) THEN
5282: child_del_volume := NVL(child_del_volume,0) +
5283: WSH_WV_UTILS.convert_uom(del.vol_uom, l_volume_uom_code, l_volume);
5284: ELSIF (l_volume = 0) THEN
5285: IF l_debug_on THEN
5286: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5287: END IF;
5288: child_del_volume := NVL(child_del_volume,0) + l_volume;
5289: END IF;
5290: ELSE
5293: END IF;
5294: END IF;
5295:
5296: IF l_debug_on THEN
5297: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5299: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5300: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5301: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5294: END IF;
5295:
5296: IF l_debug_on THEN
5297: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5299: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5300: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5301: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5302: END IF;
5295:
5296: IF l_debug_on THEN
5297: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5299: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5300: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5301: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5302: END IF;
5303: END LOOP;
5296: IF l_debug_on THEN
5297: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5299: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5300: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5301: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5302: END IF;
5303: END LOOP;
5304:
5297: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5299: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5300: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5301: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5302: END IF;
5303: END LOOP;
5304:
5305: IF l_debug_on THEN
5302: END IF;
5303: END LOOP;
5304:
5305: IF l_debug_on THEN
5306: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5307: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5308: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5309: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5310: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5303: END LOOP;
5304:
5305: IF l_debug_on THEN
5306: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5307: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5308: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5309: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5310: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5311: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5304:
5305: IF l_debug_on THEN
5306: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5307: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5308: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5309: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5310: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5311: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5312: END IF;
5305: IF l_debug_on THEN
5306: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5307: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5308: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5309: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5310: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5311: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5312: END IF;
5313:
5306: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5307: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5308: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5309: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5310: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5311: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5312: END IF;
5313:
5314:
5307: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5308: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5309: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5310: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5311: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5312: END IF;
5313:
5314:
5315: -- K: MDC: We need to calculate the empty tare weight of the consol LPNs.
5327: l_cont_net_weight := NULL;
5328: l_cont_volume := NULL;
5329:
5330: IF l_debug_on THEN
5331: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Cont '||lpn.delivery_detail_id);
5332: END IF;
5333:
5334: /**
5335: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume API to calculate Container W/V
5333:
5334: /**
5335: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume API to calculate Container W/V
5336: IF l_debug_on THEN
5337: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5338: END IF;
5339: Container_Weight_Volume (
5340: p_container_instance_id => lpn.delivery_detail_id,
5341: p_override_flag => p_update_flag,
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;
5356: END IF;
5357: **/
5363: -- Convert the W/V if UOMs differ and then accumulate W/V
5364: IF (lpn.wt_uom <> l_weight_uom_code) THEN
5365: IF (l_cont_gross_weight > 0) THEN
5366: IF l_debug_on THEN
5367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5368: END IF;
5369: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) +
5370: WSH_WV_UTILS.convert_uom(lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, lpn.inventory_item_id);
5371: ELSIF (l_cont_gross_weight = 0) THEN
5369: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) +
5370: WSH_WV_UTILS.convert_uom(lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, lpn.inventory_item_id);
5371: ELSIF (l_cont_gross_weight = 0) THEN
5372: IF l_debug_on THEN
5373: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_gross_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5374: END IF;
5375: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) + l_cont_gross_weight;
5376: END IF;
5377: ELSE
5380: END IF;
5381: END IF;
5382:
5383: IF l_debug_on THEN
5384: WSH_DEBUG_SV.logmsg(l_module_name,'Accumulated Net '||consol_lpn_net_weight);
5385: END IF;
5386:
5387: END LOOP;
5388:
5388:
5389: -- MDC: Get the total gross weight of the consol LPN, calculate its empty tare weight
5390:
5391: IF l_debug_on THEN
5392: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5393: END IF;
5394:
5395: l_cont_gross_weight := NULL;
5396: l_cont_net_weight := NULL;
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;
5416: END IF;
5417:
5416: END IF;
5417:
5418: IF (consol_lpn.wt_uom <> l_weight_uom_code) THEN
5419: IF l_debug_on THEN
5420: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5421: END IF;
5422: IF (l_cont_gross_weight > 0) THEN
5423: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0) +
5424: WSH_WV_UTILS.convert_uom(consol_lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, consol_lpn.inventory_item_id);
5430: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0) + l_cont_gross_weight;
5431: END IF;
5432: END IF;
5433: IF l_debug_on THEN
5434: WSH_DEBUG_SV.logmsg(l_module_name,'Accumulated Gross '||consol_lpn_gross_weight);
5435: END IF;
5436:
5437: consol_lpn_tare_weight := consol_lpn_tare_weight + (consol_lpn_gross_weight - consol_lpn_net_weight);
5438:
5438:
5439: IF (consol_lpn.vol_uom <> l_volume_uom_code) THEN
5440: IF (l_cont_volume > 0) THEN
5441: IF l_debug_on THEN
5442: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5443: END IF;
5444: consol_lpn_volume := NVL(consol_lpn_volume,0) +
5445: WSH_WV_UTILS.convert_uom(consol_lpn.vol_uom, l_volume_uom_code, l_cont_volume);
5446: ELSIF (consol_lpn.vol = 0) THEN
5444: consol_lpn_volume := NVL(consol_lpn_volume,0) +
5445: WSH_WV_UTILS.convert_uom(consol_lpn.vol_uom, l_volume_uom_code, l_cont_volume);
5446: ELSIF (consol_lpn.vol = 0) THEN
5447: IF l_debug_on THEN
5448: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5449: END IF;
5450: consol_lpn_volume := NVL(consol_lpn_volume,0);
5451: END IF;
5452: ELSE
5455: END IF;
5456: END IF;
5457:
5458: IF l_debug_on THEN
5459: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5460: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5456: END IF;
5457:
5458: IF l_debug_on THEN
5459: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5460: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5464: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5457:
5458: IF l_debug_on THEN
5459: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5460: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5464: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5465: END IF;
5458: IF l_debug_on THEN
5459: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5460: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5464: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5465: END IF;
5466:
5459: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5460: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5464: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5465: END IF;
5466:
5467: END LOOP;
5460: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5464: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5465: END IF;
5466:
5467: END LOOP;
5468:
5469: -- Since the sum net weights of the child deliveries would already include the
5470: -- net weights of the consol LPNs we need to add up only the tare weight of the
5471: -- consol LPN to the gross weight of the consol delivery.
5472: IF l_debug_on THEN
5473: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5474: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5475: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5476: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5477: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5470: -- net weights of the consol LPNs we need to add up only the tare weight of the
5471: -- consol LPN to the gross weight of the consol delivery.
5472: IF l_debug_on THEN
5473: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5474: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5475: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5476: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5477: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5478: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5471: -- consol LPN to the gross weight of the consol delivery.
5472: IF l_debug_on THEN
5473: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5474: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5475: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5476: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5477: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5478: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5479: END IF;
5472: IF l_debug_on THEN
5473: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5474: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5475: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5476: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5477: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5478: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5479: END IF;
5480:
5473: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5474: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5475: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5476: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5477: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5478: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5479: END IF;
5480:
5481: x_net_weight := child_del_net_weight;
5474: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5475: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5476: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5477: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5478: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5479: END IF;
5480:
5481: x_net_weight := child_del_net_weight;
5482: x_gross_weight := child_del_gross_weight + NVL(consol_lpn_tare_weight, 0);
5481: x_net_weight := child_del_net_weight;
5482: x_gross_weight := child_del_gross_weight + NVL(consol_lpn_tare_weight, 0);
5483: x_volume := NVL(consol_lpn_volume,child_del_volume);
5484: IF l_debug_on THEN
5485: WSH_DEBUG_SV.logmsg(l_module_name,'After accumulating all child_del items: Gross '||child_del_gross_weight||' Net '||child_del_net_weight||' Vol '||child_del_volume);
5486: WSH_DEBUG_SV.logmsg(l_module_name,'calculated wt/vol for consol delivery');
5487: END IF;
5488:
5489: ELSE -- IF l_delivery_type = 'STANDARD' THEN
5482: x_gross_weight := child_del_gross_weight + NVL(consol_lpn_tare_weight, 0);
5483: x_volume := NVL(consol_lpn_volume,child_del_volume);
5484: IF l_debug_on THEN
5485: WSH_DEBUG_SV.logmsg(l_module_name,'After accumulating all child_del items: Gross '||child_del_gross_weight||' Net '||child_del_net_weight||' Vol '||child_del_volume);
5486: WSH_DEBUG_SV.logmsg(l_module_name,'calculated wt/vol for consol delivery');
5487: END IF;
5488:
5489: ELSE -- IF l_delivery_type = 'STANDARD' THEN
5490:
5495: l_net_weight := NULL;
5496: l_volume := NULL;
5497:
5498: IF l_debug_on THEN
5499: WSH_DEBUG_SV.logmsg(l_module_name,'Processing DD '||dt.dd_id);
5500: END IF;
5501:
5502: -- Call detail_weight_volume API to calculate detail W/V
5503: IF l_debug_on THEN
5500: END IF;
5501:
5502: -- Call detail_weight_volume API to calculate detail W/V
5503: IF l_debug_on THEN
5504: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5505: END IF;
5506:
5507: WSH_WV_UTILS.detail_weight_volume(
5508: p_delivery_detail_id => dt.dd_id,
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;
5520: END IF;
5521: l_gross_weight := l_net_weight;
5532: -- Convert the W/V if UOMs differ and then accumulate W/V
5533: IF (dt.wt_uom <> l_weight_uom_code) THEN
5534: IF (l_gross_weight > 0) THEN
5535: IF l_debug_on THEN
5536: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5537: END IF;
5538: loose_gross_weight := NVL(loose_gross_weight,0) +
5539: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_gross_weight, dt.inventory_item_id);
5540: ELSIF (l_gross_weight = 0) THEN
5538: loose_gross_weight := NVL(loose_gross_weight,0) +
5539: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_gross_weight, dt.inventory_item_id);
5540: ELSIF (l_gross_weight = 0) THEN
5541: IF l_debug_on THEN
5542: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_gross_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5543: END IF;
5544: loose_gross_weight := NVL(loose_gross_weight,0) + l_gross_weight;
5545: END IF;
5546:
5545: END IF;
5546:
5547: IF (l_net_weight > 0) THEN
5548: IF l_debug_on THEN
5549: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5550: END IF;
5551: loose_net_weight := NVL(loose_net_weight,0) +
5552: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_net_weight, dt.inventory_item_id);
5553: ELSIF (l_net_weight = 0) THEN
5551: loose_net_weight := NVL(loose_net_weight,0) +
5552: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_net_weight, dt.inventory_item_id);
5553: ELSIF (l_net_weight = 0) THEN
5554: IF l_debug_on THEN
5555: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_net_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5556: END IF;
5557: loose_net_weight := NVL(loose_net_weight,0) + l_net_weight;
5558: END IF;
5559: ELSE
5567:
5568: IF (dt.vol_uom <> l_volume_uom_code) THEN
5569: IF (l_volume > 0) THEN
5570: IF l_debug_on THEN
5571: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5572: END IF;
5573: loose_volume := NVL(loose_volume,0) +
5574: WSH_WV_UTILS.convert_uom(dt.vol_uom, l_volume_uom_code, l_volume, dt.inventory_item_id);
5575: ELSIF (l_volume = 0) THEN
5573: loose_volume := NVL(loose_volume,0) +
5574: WSH_WV_UTILS.convert_uom(dt.vol_uom, l_volume_uom_code, l_volume, dt.inventory_item_id);
5575: ELSIF (l_volume = 0) THEN
5576: IF l_debug_on THEN
5577: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5578: END IF;
5579: loose_volume := NVL(loose_volume,0) + l_volume;
5580: END IF;
5581: ELSE
5584: END IF;
5585: END IF;
5586:
5587: IF l_debug_on THEN
5588: WSH_DEBUG_SV.logmsg(l_module_name,'Accumulated Gross '||loose_gross_weight||' Net '||loose_net_weight||' Vol '||loose_volume);
5589: END IF;
5590: END LOOP;
5591:
5592: x_net_weight := loose_net_weight;
5592: x_net_weight := loose_net_weight;
5593: x_gross_weight := loose_gross_weight;
5594: x_volume := loose_volume;
5595: IF l_debug_on THEN
5596: WSH_DEBUG_SV.logmsg(l_module_name,'After accumulating all loose items: Gross '||loose_gross_weight||' Net '||loose_net_weight||' Vol '||loose_volume);
5597: END IF;
5598:
5599: -- For all containers in delivery
5600: FOR wci IN del_containers LOOP
5603: l_cont_net_weight := NULL;
5604: l_cont_volume := NULL;
5605:
5606: IF l_debug_on THEN
5607: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Cont '||wci.c_id);
5608: END IF;
5609:
5610: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume API to calculate Container W/V
5611: IF l_debug_on THEN
5608: END IF;
5609:
5610: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume API to calculate Container W/V
5611: IF l_debug_on THEN
5612: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5613: END IF;
5614:
5615: Container_Weight_Volume (
5616: p_container_instance_id => wci.c_id,
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;
5632: END IF;
5633:
5634: -- Convert the W/V if UOMs differ and then accumulate W/V
5635: IF (wci.wt_uom <> l_weight_uom_code) THEN
5636: IF (l_cont_gross_weight > 0) THEN
5637: IF l_debug_on THEN
5638: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5639: END IF;
5640: x_gross_weight := NVL(x_gross_weight,0) +
5641: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_gross_weight, wci.inventory_item_id);
5642: ELSIF (l_cont_gross_weight = 0) THEN
5640: x_gross_weight := NVL(x_gross_weight,0) +
5641: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_gross_weight, wci.inventory_item_id);
5642: ELSIF (l_cont_gross_weight = 0) THEN
5643: IF l_debug_on THEN
5644: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_gross_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5645: END IF;
5646: x_gross_weight := NVL(x_gross_weight,0) + l_cont_gross_weight;
5647: END IF;
5648:
5647: END IF;
5648:
5649: IF (l_cont_net_weight > 0) THEN
5650: IF l_debug_on THEN
5651: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5652: END IF;
5653: x_net_weight := NVL(x_net_weight,0) +
5654: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_net_weight, wci.inventory_item_id);
5655: ELSIF (l_cont_net_weight = 0) THEN
5653: x_net_weight := NVL(x_net_weight,0) +
5654: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_net_weight, wci.inventory_item_id);
5655: ELSIF (l_cont_net_weight = 0) THEN
5656: IF l_debug_on THEN
5657: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_net_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5658: END IF;
5659: x_net_weight := NVL(x_net_weight,0) + l_cont_net_weight;
5660: END IF;
5661: ELSE
5669:
5670: IF (wci.vol_uom <> l_volume_uom_code) THEN
5671: IF (l_cont_volume > 0) THEN
5672: IF l_debug_on THEN
5673: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5674: END IF;
5675: x_volume := NVL(x_volume,0) +
5676: WSH_WV_UTILS.convert_uom(wci.vol_uom, l_volume_uom_code, l_cont_volume, wci.inventory_item_id);
5677: ELSIF (l_cont_volume = 0) THEN
5675: x_volume := NVL(x_volume,0) +
5676: WSH_WV_UTILS.convert_uom(wci.vol_uom, l_volume_uom_code, l_cont_volume, wci.inventory_item_id);
5677: ELSIF (l_cont_volume = 0) THEN
5678: IF l_debug_on THEN
5679: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5680: END IF;
5681: x_volume := NVL(x_volume,0) + l_cont_volume;
5682: END IF;
5683: ELSE
5686: END IF;
5687: END IF;
5688:
5689: IF l_debug_on THEN
5690: WSH_DEBUG_SV.logmsg(l_module_name,'Accumulated Gross '||x_gross_weight||' Net '||x_net_weight||' Vol '||x_volume);
5691: END IF;
5692:
5693: END LOOP;
5694:
5696:
5697: -- If p_update_flag is 'Y' then update the delivery with the calculated W/V
5698: IF (p_update_flag = 'Y') THEN
5699: IF l_debug_on THEN
5700: WSH_DEBUG_SV.logmsg(l_module_name,'Updating Del '||p_delivery_id||' With Gross '||x_gross_weight||' Net '||x_net_weight||' Vol '||x_volume);
5701: END IF;
5702:
5703: UPDATE wsh_new_deliveries
5704: SET net_weight = x_net_weight,
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;
5719: END IF;
5720:
5733: l_ignore_for_planning = 'N') THEN
5734: l_delivery_id_tab(1) := p_delivery_id;
5735: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
5736: IF l_debug_on THEN
5737: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
5738: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
5739: END IF;
5740:
5741: WSH_NEW_DELIVERIES_PVT.update_tms_interface_flag(
5734: l_delivery_id_tab(1) := p_delivery_id;
5735: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
5736: IF l_debug_on THEN
5737: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
5738: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
5739: END IF;
5740:
5741: WSH_NEW_DELIVERIES_PVT.update_tms_interface_flag(
5742: p_delivery_id_tab => l_delivery_id_tab,
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');
5752: END IF;
5753: RETURN;
5754: END IF;
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');
5752: END IF;
5753: RETURN;
5754: END IF;
5755: END IF;
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);
5773: WSH_DEBUG_SV.pop(l_module_name);
5774: END IF;
5775:
5776: EXCEPTION
5769: END IF;
5770:
5771: IF l_debug_on THEN
5772: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
5773: WSH_DEBUG_SV.pop(l_module_name);
5774: END IF;
5775:
5776: EXCEPTION
5777: WHEN e_abort THEN
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:
5783: WHEN Others THEN
5784: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
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');
5790: END IF;
5791:
5792: END 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');
5790: END IF;
5791:
5792: END delivery_weight_volume;
5793:
5847:
5848: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5849: IF l_debug_on IS NULL
5850: THEN
5851: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5852: END IF;
5853: IF l_debug_on THEN
5854: WSH_DEBUG_SV.push(l_module_name);
5855: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5850: THEN
5851: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5852: END IF;
5853: IF l_debug_on THEN
5854: WSH_DEBUG_SV.push(l_module_name);
5855: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
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);
5851: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5852: END IF;
5853: IF l_debug_on THEN
5854: WSH_DEBUG_SV.push(l_module_name);
5855: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
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;
5852: END IF;
5853: IF l_debug_on THEN
5854: WSH_DEBUG_SV.push(l_module_name);
5855: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
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;
5853: IF l_debug_on THEN
5854: WSH_DEBUG_SV.push(l_module_name);
5855: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
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:
5854: WSH_DEBUG_SV.push(l_module_name);
5855: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
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
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;
5890: return;
5891: END;
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;
5890: return;
5891: END;
5892:
5897: x_net_weight := l_org_net_wt;
5898: x_volume := l_org_vol;
5899:
5900: IF l_debug_on THEN
5901: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Status is '||l_status_code||' Frozen Flag '||l_wv_frozen_flag||'. Returning delivery weights');
5902: WSH_DEBUG_SV.pop(l_module_name);
5903: END IF;
5904:
5905: RETURN;
5898: x_volume := l_org_vol;
5899:
5900: IF l_debug_on THEN
5901: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Status is '||l_status_code||' Frozen Flag '||l_wv_frozen_flag||'. Returning delivery weights');
5902: WSH_DEBUG_SV.pop(l_module_name);
5903: END IF;
5904:
5905: RETURN;
5906: END IF;
5906: END IF;
5907:
5908:
5909: IF l_debug_on THEN
5910: WSH_DEBUG_SV.logmsg(l_module_name,'Del original wts are Gross '||l_org_gross_wt||' Net '||l_org_net_wt||' Vol '||l_org_vol);
5911: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Delivery_weight_volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5912: END IF;
5913: -- Call Delivery_Weight_Volume API
5914: Delivery_weight_volume (
5907:
5908:
5909: IF l_debug_on THEN
5910: WSH_DEBUG_SV.logmsg(l_module_name,'Del original wts are Gross '||l_org_gross_wt||' Net '||l_org_net_wt||' Vol '||l_org_vol);
5911: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Delivery_weight_volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5912: END IF;
5913: -- Call Delivery_Weight_Volume API
5914: Delivery_weight_volume (
5915: p_delivery_id => p_delivery_id,
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);
5928: END IF;
5929: return;
5930: END IF;
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);
5928: END IF;
5929: return;
5930: END IF;
5931:
5936: (NVL(x_net_weight,0) <> NVL(l_org_net_wt,0)) OR
5937: (NVL(x_volume,0) <> NVL(l_org_vol,0)))) THEN
5938:
5939: IF l_debug_on THEN
5940: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Del_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
5941: END IF;
5942:
5943: Del_WV_Post_Process(
5944: p_delivery_id => p_delivery_id,
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);
5955: END IF;
5956: return;
5957: END IF;
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);
5955: END IF;
5956: return;
5957: END IF;
5958: END IF;
5957: END IF;
5958: END IF;
5959:
5960: IF l_debug_on THEN
5961: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
5962: WSH_DEBUG_SV.pop(l_module_name);
5963: END IF;
5964:
5965: EXCEPTION
5958: END IF;
5959:
5960: IF l_debug_on THEN
5961: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
5962: 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);
5972: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5973: END IF;
5974:
5975: END 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');
5973: END IF;
5974:
5975: END Delivery_Weight_Volume;
5976:
6024:
6025: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6026: IF l_debug_on IS NULL
6027: THEN
6028: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6029: END IF;
6030: IF l_debug_on THEN
6031: WSH_DEBUG_SV.push(l_module_name);
6032: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
6027: THEN
6028: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6029: END IF;
6030: IF l_debug_on THEN
6031: WSH_DEBUG_SV.push(l_module_name);
6032: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
6033: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
6034: END IF;
6035:
6028: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6029: END IF;
6030: IF l_debug_on THEN
6031: WSH_DEBUG_SV.push(l_module_name);
6032: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
6033: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
6034: END IF;
6035:
6036: IF (p_del_rows.count = 0) THEN
6029: END IF;
6030: IF l_debug_on THEN
6031: WSH_DEBUG_SV.push(l_module_name);
6032: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
6033: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
6034: END IF;
6035:
6036: IF (p_del_rows.count = 0) THEN
6037: raise others;
6039:
6040: FOR i IN 1..p_del_rows.count LOOP
6041:
6042: IF l_debug_on THEN
6043: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Delivery_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
6044: END IF;
6045:
6046: Delivery_Weight_Volume(
6047: p_delivery_id => p_del_rows(i),
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;
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);
6089:
6090: END IF;
6091:
6092: IF l_debug_on THEN
6093: WSH_DEBUG_SV.pop(l_module_name);
6094: END IF;
6095:
6096: EXCEPTION
6097: WHEN others THEN
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');
6105: END IF;
6106:
6107: END 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');
6105: END IF;
6106:
6107: END Delivery_Weight_Volume;
6108:
6153: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6154: --
6155: IF l_debug_on IS NULL
6156: THEN
6157: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6158: END IF;
6159:
6160: IF l_debug_on THEN
6161: WSH_DEBUG_SV.push(l_module_name);
6157: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6158: END IF;
6159:
6160: IF l_debug_on THEN
6161: WSH_DEBUG_SV.push(l_module_name);
6162: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6163: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6164: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6165: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6158: END IF;
6159:
6160: IF l_debug_on THEN
6161: WSH_DEBUG_SV.push(l_module_name);
6162: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6163: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6164: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6165: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6166: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6159:
6160: IF l_debug_on THEN
6161: WSH_DEBUG_SV.push(l_module_name);
6162: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6163: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6164: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6165: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6166: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6167: --Modified as part of bug 16672352 fix(incorrect value for p_uom1 being printed)
6160: IF l_debug_on THEN
6161: WSH_DEBUG_SV.push(l_module_name);
6162: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6163: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6164: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6165: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6166: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6167: --Modified as part of bug 16672352 fix(incorrect value for p_uom1 being printed)
6168: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_uom1);
6161: WSH_DEBUG_SV.push(l_module_name);
6162: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6163: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6164: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6165: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6166: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6167: --Modified as part of bug 16672352 fix(incorrect value for p_uom1 being printed)
6168: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_uom1);
6169: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6162: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6163: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6164: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6165: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6166: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6167: --Modified as part of bug 16672352 fix(incorrect value for p_uom1 being printed)
6168: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_uom1);
6169: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6170: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6164: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6165: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6166: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6167: --Modified as part of bug 16672352 fix(incorrect value for p_uom1 being printed)
6168: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_uom1);
6169: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6170: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6171: -- muom
6172: WSH_DEBUG_SV.log(l_module_name,'p_split_check',p_split_check);
6165: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6166: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6167: --Modified as part of bug 16672352 fix(incorrect value for p_uom1 being printed)
6168: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_uom1);
6169: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6170: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6171: -- muom
6172: WSH_DEBUG_SV.log(l_module_name,'p_split_check',p_split_check);
6173: END IF;
6166: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6167: --Modified as part of bug 16672352 fix(incorrect value for p_uom1 being printed)
6168: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_uom1);
6169: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6170: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6171: -- muom
6172: WSH_DEBUG_SV.log(l_module_name,'p_split_check',p_split_check);
6173: END IF;
6174:
6168: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_uom1);
6169: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6170: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6171: -- muom
6172: WSH_DEBUG_SV.log(l_module_name,'p_split_check',p_split_check);
6173: END IF;
6174:
6175:
6176: result := INV_CONVERT.within_deviation(
6193: ELSE
6194: result := 0;
6195: END IF;
6196: IF l_debug_on THEN
6197: WSH_DEBUG_SV.logmsg(l_module_name,'result is '||result);
6198: END IF;
6199:
6200: RETURN result;
6201:
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');
6210: END IF;
6211: END within_deviation;
6212:
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');
6210: END IF;
6211: END within_deviation;
6212:
6213: --OTM R12, creating wrapper for prorate_weight_actual so we only update delivery tms flag once
6281: --
6282: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6283: --
6284: IF l_debug_on IS NULL THEN
6285: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6286: END IF;
6287: --
6288: --
6289: -- Debug Statements
6289: -- Debug Statements
6290: --
6291: IF l_debug_on THEN
6292:
6293: wsh_debug_sv.push(l_module_name);
6294: --
6295: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6296: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6297: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6291: IF l_debug_on THEN
6292:
6293: wsh_debug_sv.push(l_module_name);
6294: --
6295: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6296: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6297: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6298: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6299: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6292:
6293: wsh_debug_sv.push(l_module_name);
6294: --
6295: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6296: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6297: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6298: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6299: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6300: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6293: wsh_debug_sv.push(l_module_name);
6294: --
6295: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6296: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6297: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6298: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6299: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6300: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6301: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6294: --
6295: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6296: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6297: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6298: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6299: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6300: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
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);
6295: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6296: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6297: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6298: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6299: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6300: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
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;
6296: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6297: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6298: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6299: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6300: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
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:
6297: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6298: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6299: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6300: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
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;
6298: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6299: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6300: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
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:
6311: END IF;
6312:
6313: --first call real prorate procedure to prorate the delivery/container
6314: IF l_debug_on THEN
6315: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit prorate_weight_actual',WSH_DEBUG_SV.C_PROC_LEVEL);
6316: END IF;
6317:
6318: prorate_weight_actual(
6319: p_entity_type => p_entity_type,
6326: x_return_status => l_return_status,
6327: p_call_level => p_call_level);
6328:
6329: IF l_debug_on THEN
6330: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from prorate_weight_actual: ' || l_return_status);
6331: END IF;
6332:
6333: x_return_status := l_return_status;
6334:
6369: l_delivery_id_tab(1) := l_delivery_id;
6370: l_interface_flag_tab(1) := 'UR';
6371:
6372: IF l_debug_on THEN
6373: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
6374: END IF;
6375:
6376: WSH_NEW_DELIVERIES_PVT.update_tms_interface_flag(
6377: p_delivery_id_tab => l_delivery_id_tab,
6378: p_tms_interface_flag_tab => l_interface_flag_tab,
6379: x_return_status => l_return_status);
6380:
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;
6394: --
6395: -- Debug Statements
6396: --
6397: IF l_debug_on THEN
6398: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
6399: WSH_DEBUG_SV.pop(l_module_name);
6400: END IF;
6401: --
6402: EXCEPTION
6395: -- Debug Statements
6396: --
6397: IF l_debug_on THEN
6398: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
6399: WSH_DEBUG_SV.pop(l_module_name);
6400: END IF;
6401: --
6402: EXCEPTION
6403: WHEN api_return_fail THEN
6402: EXCEPTION
6403: WHEN api_return_fail THEN
6404: x_return_status := l_return_status;
6405: IF l_debug_on THEN
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;
6403: WHEN api_return_fail THEN
6404: x_return_status := l_return_status;
6405: IF l_debug_on THEN
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:
6421: --
6422: -- Debug Statements
6423: --
6424: IF l_debug_on THEN
6425: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6426: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6427: END IF;
6428: --
6429: END Prorate_weight;
6422: -- Debug Statements
6423: --
6424: IF l_debug_on THEN
6425: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6426: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6427: END IF;
6428: --
6429: END Prorate_weight;
6430:
6573: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6574: --
6575: IF l_debug_on IS NULL THEN
6576: --{
6577: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6578: --}
6579: END IF;
6580: --
6581: --
6582: -- Debug Statements
6583: --
6584: IF l_debug_on THEN
6585: --{
6586: wsh_debug_sv.push(l_module_name);
6587: --
6588: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6589: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6590: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6584: IF l_debug_on THEN
6585: --{
6586: wsh_debug_sv.push(l_module_name);
6587: --
6588: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6589: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6590: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6591: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6592: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6585: --{
6586: wsh_debug_sv.push(l_module_name);
6587: --
6588: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6589: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6590: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6591: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6592: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6593: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6586: wsh_debug_sv.push(l_module_name);
6587: --
6588: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6589: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6590: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6591: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6592: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6593: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6594: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6587: --
6588: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6589: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6590: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6591: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6592: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6593: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6594: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6595: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6588: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6589: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6590: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6591: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6592: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6593: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6594: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6595: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6596: --}
6589: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6590: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6591: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6592: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6593: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6594: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6595: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6596: --}
6597: END IF;
6590: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6591: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6592: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6593: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6594: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6595: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6596: --}
6597: END IF;
6598:
6591: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6592: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6593: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6594: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
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;
6604:
6605:
6606: --
6607: IF l_debug_on THEN
6608: WSH_DEBUG_SV.logmsg(l_module_name,'Change in Net: '||l_entity_net_change||', Change in Tare: '||l_entity_tare_change);
6609: END IF;
6610: --
6611: -- Do proration only when there is a change in tare/net.
6612: IF l_entity_tare_change <> 0 OR l_entity_net_change <> 0 THEN
6620: -- Calculating the total Net and Tare Weight of all immediate delivery lines which are
6621: -- required later to find out the proportional weight.
6622: --
6623: IF l_debug_on THEN
6624: WSH_DEBUG_SV.logmsg(l_module_name,'Calculating the total Net and Tare Weight of all immediate delivery lines');
6625: END IF;
6626: --
6627: LOOP
6628: --{ Looping thru' all immediate children for the delivery/container
6648: CLOSE immediate_details_cont;
6649: END IF;
6650: --
6651: IF l_debug_on THEN
6652: WSH_DEBUG_SV.logmsg(l_module_name,'Total Tare Weight: '||l_total_tare_wt||', Total Net Weight: ' ||l_total_net_wt);
6653: END IF;
6654: --
6655: IF ( l_total_net_wt = 0 AND l_total_tare_wt = 0 ) THEN
6656: --{
6655: IF ( l_total_net_wt = 0 AND l_total_tare_wt = 0 ) THEN
6656: --{
6657: --
6658: IF l_debug_on THEN
6659: WSH_DEBUG_SV.logmsg(l_module_name,'There is no proration required as the total Tare and Net weights are zero, ');
6660: END IF;
6661: --
6662: RETURN;
6663: --}
6667:
6668: IF p_call_level IS NULL THEN --{
6669: --bmso call out for WMS to flush all the record prior to prorating.
6670: IF l_debug_on THEN
6671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
6672: END IF;
6673: --
6674: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
6675: (
6678: x_out_rec => l_lpn_out_sync_comm_rec
6679: );
6680: --
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: (
6708: --
6709: -- Debug Statements
6710: --
6711: IF l_debug_on THEN
6712: WSH_DEBUG_SV.log(l_module_name,'********* Processing the Delivery Detail Id:',l_detail_rec_tab(i).delivery_detail_id);
6713: WSH_DEBUG_SV.logmsg(l_module_name, 'Current Wts are, Gross '||l_detail_rec_tab(i).gross_wt|| ' Net '||l_detail_rec_tab(i).net_wt||' Tare '||l_detail_rec_tab(i).tare_wt|| ' Weight UOM '||l_detail_rec_tab(i).weight_uom_code);
6714: END IF;
6715: --
6716: -- Calculate the change in Tare Weight
6709: -- Debug Statements
6710: --
6711: IF l_debug_on THEN
6712: WSH_DEBUG_SV.log(l_module_name,'********* Processing the Delivery Detail Id:',l_detail_rec_tab(i).delivery_detail_id);
6713: WSH_DEBUG_SV.logmsg(l_module_name, 'Current Wts are, Gross '||l_detail_rec_tab(i).gross_wt|| ' Net '||l_detail_rec_tab(i).net_wt||' Tare '||l_detail_rec_tab(i).tare_wt|| ' Weight UOM '||l_detail_rec_tab(i).weight_uom_code);
6714: END IF;
6715: --
6716: -- Calculate the change in Tare Weight
6717: IF ( l_entity_tare_change <> 0 ) THEN
6785: l_new_gross_wt := l_new_net_wt;
6786: END IF;
6787: --
6788: IF l_debug_on THEN
6789: WSH_DEBUG_SV.logmsg(l_module_name,'New Weights are, Gross ' || l_new_gross_wt ||' Net '||l_new_net_wt ||' Tare '||l_new_tare_wt);
6790: END IF;
6791: --
6792: -- Cache the new weights of the Containers to pass them to recursive call
6793: -- If immediate child of the Delivery is a Container, cache it to call the prorate api recursively
6810: -- can be a consol. LPN.
6811: l_wms_org := wsh_util_validate.check_wms_org(l_detail_rec_tab(i).organization_id);
6812: --
6813: IF l_debug_on THEN
6814: WSH_DEBUG_SV.log(l_module_name,'l_wms_org value is', l_wms_org);
6815: END IF;
6816: --
6817: IF(l_wms_org = 'Y'
6818: AND l_detail_rec_tab(i).line_direction in ('O', 'IO')
6847:
6848: -- LPN CONV. rv
6849: --
6850: IF l_debug_on THEN
6851: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
6852: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
6853: END IF;
6854: --
6855: --
6848: -- LPN CONV. rv
6849: --
6850: IF l_debug_on THEN
6851: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
6852: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
6853: END IF;
6854: --
6855: --
6856: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
6863: --
6864: -- Debug Statements
6865: --
6866: IF l_debug_on THEN
6867: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
6868: END IF;
6869: --
6870: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
6871: (
6873: x_return_status => l_return_status
6874: );
6875: --
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: (
6891: --
6892: -- Debug Statements
6893: --
6894: IF l_debug_on THEN
6895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
6896: END IF;
6897: --
6898: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
6899: (
6902: );
6903:
6904: --
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: (
6921: -- Update all effected delivery details with resultant gross
6922: -- and net weight. Also update wv_frozen_flag to 'Y' for all.
6923: --
6924: IF l_debug_on THEN
6925: WSH_DEBUG_SV.logmsg(l_module_name,'Updating the Weights of Delivery Details');
6926: END IF;
6927: --
6928: FORALL i IN 1..l_dd_upd_tbl.COUNT
6929: UPDATE wsh_delivery_details
6942: LOOP
6943: --{
6944: --
6945: IF l_debug_on THEN
6946: WSH_DEBUG_SV.logmsg(l_module_name,'Calling the Prorate API recursively for the Containers');
6947: END IF;
6948: --
6949: Prorate_weight_actual(
6950: p_entity_type => 'CONTAINER',
6959:
6960: x_return_status := l_return_status;
6961:
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,
6984: WSH_WMS_LPN_GRP.g_update_to_containers := 'N';
6985: WSH_WMS_LPN_GRP.g_call_group_api := 'N' ;
6986: --call the new API
6987: IF l_debug_on THEN
6988: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_PRORATED_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
6989: END IF;
6990: WSH_LPN_SYNC_COMM_PKG.SYNC_PRORATED_LPNS_TO_WMS
6991: (
6992: p_in_rec => l_lpn_in_sync_comm_rec,
6994: x_out_rec => l_lpn_out_sync_comm_rec
6995: );
6996:
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: (
7022: --
7023: -- Debug Statements
7024: --
7025: IF l_debug_on THEN
7026: WSH_DEBUG_SV.pop(l_module_name);
7027: END IF;
7028: --
7029: EXCEPTION
7030: WHEN OTHERS THEN
7042: --
7043: -- Debug Statements
7044: --
7045: IF l_debug_on THEN
7046: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7047: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7048: END IF;
7049: --
7050: END Prorate_weight_actual;
7043: -- Debug Statements
7044: --
7045: IF l_debug_on THEN
7046: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7047: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7048: END IF;
7049: --
7050: END Prorate_weight_actual;
7051: