[Home] [Help]
256: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
257: --
258: IF l_debug_on IS NULL
259: THEN
260: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
261: END IF;
262: --
263: IF l_debug_on THEN
264: WSH_DEBUG_SV.push(l_module_name);
260: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
261: END IF;
262: --
263: IF l_debug_on THEN
264: WSH_DEBUG_SV.push(l_module_name);
265: --
266: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
267: END IF;
268: --
262: --
263: IF l_debug_on THEN
264: WSH_DEBUG_SV.push(l_module_name);
265: --
266: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
267: END IF;
268: --
269: if ( p_organization_id is NULL ) Then
270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
271: --
272: -- Debug Statements
273: --
274: IF l_debug_on THEN
275: WSH_DEBUG_SV.pop(l_module_name);
276: END IF;
277: --
278: Return;
279: end if;
300: --
301: -- Debug Statements
302: --
303: IF l_debug_on THEN
304: WSH_DEBUG_SV.pop(l_module_name);
305: END IF;
306: --
307: EXCEPTION
308: WHEN Others THEN
312: --
313: -- Debug Statements
314: --
315: IF l_debug_on THEN
316: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
317: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
318: END IF;
319: --
320: END get_default_uoms;
313: -- Debug Statements
314: --
315: IF l_debug_on THEN
316: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
317: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
318: END IF;
319: --
320: END get_default_uoms;
321:
444: BEGIN
445:
446: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
447: IF l_debug_on IS NULL THEN
448: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
449: END IF;
450: IF l_debug_on THEN
451: WSH_DEBUG_SV.push(l_module_name);
452: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
447: IF l_debug_on IS NULL THEN
448: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
449: END IF;
450: IF l_debug_on THEN
451: WSH_DEBUG_SV.push(l_module_name);
452: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
454: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
455: END IF;
448: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
449: END IF;
450: IF l_debug_on THEN
451: WSH_DEBUG_SV.push(l_module_name);
452: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
454: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
455: END IF;
456:
449: END IF;
450: IF l_debug_on THEN
451: WSH_DEBUG_SV.push(l_module_name);
452: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
454: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
455: END IF;
456:
457: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
450: IF l_debug_on THEN
451: WSH_DEBUG_SV.push(l_module_name);
452: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
454: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
455: END IF;
456:
457: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
458:
478: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
479: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
480: CLOSE get_detail_wv;
481: IF l_debug_on THEN
482: WSH_DEBUG_SV.pop(l_module_name);
483: END IF;
484: return;
485: END IF;
486: CLOSE get_detail_wv;
493: END IF;
494: END IF;
495:
496: IF l_debug_on THEN
497: 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);
498: 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);
499: END IF;
500:
501: -- Return the original W/V if the W/V is manually entered and p_calc_wv_if_frozen is 'N'
494: END IF;
495:
496: IF l_debug_on THEN
497: 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);
498: 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);
499: END IF;
500:
501: -- Return the original W/V if the W/V is manually entered and p_calc_wv_if_frozen is 'N'
502: IF p_calc_wv_if_frozen = 'N' and l_wv_frozen_flag ='Y' THEN
502: IF p_calc_wv_if_frozen = 'N' and l_wv_frozen_flag ='Y' THEN
503: x_net_weight := l_net_weight;
504: x_volume := l_volume;
505: IF l_debug_on THEN
506: WSH_DEBUG_SV.logmsg(l_module_name,'Detail weights are Frozen. Skipping W/V calculation');
507: WSH_DEBUG_SV.pop(l_module_name);
508: END IF;
509: RETURN;
510: END IF;
503: x_net_weight := l_net_weight;
504: x_volume := l_volume;
505: IF l_debug_on THEN
506: WSH_DEBUG_SV.logmsg(l_module_name,'Detail weights are Frozen. Skipping W/V calculation');
507: WSH_DEBUG_SV.pop(l_module_name);
508: END IF;
509: RETURN;
510: END IF;
511:
543: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
545: CLOSE Item_Net_Wt_Vol;
546: IF l_debug_on THEN
547: WSH_DEBUG_SV.pop(l_module_name);
548: END IF;
549: return;
550: END IF;
551: CLOSE Item_Net_Wt_Vol;
579: --
580: -- Debug Statements
581: --
582: IF l_debug_on THEN
583: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
584: END IF;
585: --
586:
587: WSH_WMS_SYNC_TMP_PKG.MERGE
590: x_return_status => l_return_status
591: );
592:
593: IF l_debug_on THEN
594: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
595: END IF;
596: --
597: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
598: --
598: --
599: x_return_status := l_return_status;
600: --
601: IF l_debug_on THEN
602: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
603: WSH_DEBUG_SV.pop(l_module_name);
604: END IF;
605: --
606: RETURN;
599: x_return_status := l_return_status;
600: --
601: IF l_debug_on THEN
602: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
603: WSH_DEBUG_SV.pop(l_module_name);
604: END IF;
605: --
606: RETURN;
607: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
629: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
630: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
631: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
632: IF l_debug_on THEN
633: WSH_DEBUG_SV.pop(l_module_name);
634: END IF;
635: return;
636: END IF;
637:
646: p_entity_type => 'DELIVERY_DETAIL',
647: p_entity_ids => l_detail_tab,
648: x_return_status => l_return_status);
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required l_return_status',l_return_status);
651: END IF;
652: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
653: raise mark_reprice_error;
654: END IF;
668: NVL(l_dd_vol_code, NVL(l_item_vol_code, '@@')))) THEN
669: G_DELIVERY_TMS_IMPACT := 'Y';
670:
671: IF l_debug_on THEN
672: WSH_DEBUG_SV.log(l_module_name,'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
673: END IF;
674: END IF;
675: -- End of OTM R12 : packing ECO
676: END IF; -- p_update_flag
688: END IF;
689: -- LPN CONV. rv
690:
691: IF l_debug_on THEN
692: WSH_DEBUG_SV.log(l_module_name,'x_net_weight '||x_net_weight||' x_volume '||x_volume||' x_return_status '||x_return_status);
693: WSH_DEBUG_SV.pop(l_module_name);
694: END IF;
695:
696: EXCEPTION
689: -- LPN CONV. rv
690:
691: IF l_debug_on THEN
692: WSH_DEBUG_SV.log(l_module_name,'x_net_weight '||x_net_weight||' x_volume '||x_volume||' x_return_status '||x_return_status);
693: WSH_DEBUG_SV.pop(l_module_name);
694: END IF;
695:
696: EXCEPTION
697:
703: --
704: -- Debug Statements
705: --
706: IF l_debug_on THEN
707: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
708: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
709: END IF;
710:
711:
704: -- Debug Statements
705: --
706: IF l_debug_on THEN
707: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
708: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
709: END IF;
710:
711:
712: WHEN others THEN
713:
714: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
715: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
716: IF l_debug_on THEN
717: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
718: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
719: END IF;
720:
721: END Detail_Weight_Volume;
714: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
715: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
716: IF l_debug_on THEN
717: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
718: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
719: END IF;
720:
721: END Detail_Weight_Volume;
722:
867: BEGIN
868:
869: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
870: IF l_debug_on IS NULL THEN
871: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
872: END IF;
873:
874: IF l_debug_on THEN
875: WSH_DEBUG_SV.push(l_module_name);
871: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
872: END IF;
873:
874: IF l_debug_on THEN
875: WSH_DEBUG_SV.push(l_module_name);
876: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
877: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
878: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
879: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
872: END IF;
873:
874: IF l_debug_on THEN
875: WSH_DEBUG_SV.push(l_module_name);
876: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
877: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
878: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
879: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
880: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
873:
874: IF l_debug_on THEN
875: WSH_DEBUG_SV.push(l_module_name);
876: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
877: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
878: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
879: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
880: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
881: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
874: IF l_debug_on THEN
875: WSH_DEBUG_SV.push(l_module_name);
876: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
877: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
878: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
879: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
880: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
881: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
882: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
875: WSH_DEBUG_SV.push(l_module_name);
876: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
877: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
878: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
879: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
880: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
881: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
882: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
883: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
876: WSH_DEBUG_SV.log(l_module_name,'p_entity_type',p_entity_type);
877: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
878: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
879: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
880: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
881: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
882: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
883: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
884: WSH_DEBUG_SV.log(l_module_name,'p_inv_item_id',p_inv_item_id);
877: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
878: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
879: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
880: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
881: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
882: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
883: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
884: WSH_DEBUG_SV.log(l_module_name,'p_inv_item_id',p_inv_item_id);
885: WSH_DEBUG_SV.log(l_module_name,'p_stop_type',p_stop_type);
878: WSH_DEBUG_SV.log(l_module_name,'p_gross_weight',p_gross_weight);
879: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
880: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
881: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
882: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
883: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
884: WSH_DEBUG_SV.log(l_module_name,'p_inv_item_id',p_inv_item_id);
885: WSH_DEBUG_SV.log(l_module_name,'p_stop_type',p_stop_type);
886: END IF;
879: WSH_DEBUG_SV.log(l_module_name,'p_net_weight',p_net_weight);
880: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
881: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
882: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
883: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
884: WSH_DEBUG_SV.log(l_module_name,'p_inv_item_id',p_inv_item_id);
885: WSH_DEBUG_SV.log(l_module_name,'p_stop_type',p_stop_type);
886: END IF;
887: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
880: WSH_DEBUG_SV.log(l_module_name,'p_volume',p_volume);
881: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
882: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
883: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
884: WSH_DEBUG_SV.log(l_module_name,'p_inv_item_id',p_inv_item_id);
885: WSH_DEBUG_SV.log(l_module_name,'p_stop_type',p_stop_type);
886: END IF;
887: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
888: l_num_errors := 0;
881: WSH_DEBUG_SV.log(l_module_name,'p_filled_volume',p_filled_volume);
882: WSH_DEBUG_SV.log(l_module_name,'p_wt_uom_code',p_wt_uom_code);
883: WSH_DEBUG_SV.log(l_module_name,'p_vol_uom_code',p_vol_uom_code);
884: WSH_DEBUG_SV.log(l_module_name,'p_inv_item_id',p_inv_item_id);
885: WSH_DEBUG_SV.log(l_module_name,'p_stop_type',p_stop_type);
886: END IF;
887: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
888: l_num_errors := 0;
889: l_num_warnings := 0;
926: FOR UPDATE NOWAIT;
927: EXCEPTION
928: WHEN record_locked THEN
929: IF l_debug_on THEN
930: WSH_DEBUG_SV.logmsg(l_module_name,'Error: '||p_entity_type||' Id '||p_entity_id||'could not be locked');
931: END IF;
932: raise e_abort;
933: END;
934:
933: END;
934:
935:
936: IF l_debug_on THEN
937: 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);
938: END IF;
939:
940: IF (NVL(l_shipment_type_flag, ' ') = 'O' AND NVL(l_status_code , ' ') in ('IT','CL'))
941: OR (l_frozen_flag = 'Y' and p_stop_type NOT IN ('PICKUP','DROPOFF')) THEN
939:
940: IF (NVL(l_shipment_type_flag, ' ') = 'O' AND NVL(l_status_code , ' ') in ('IT','CL'))
941: OR (l_frozen_flag = 'Y' and p_stop_type NOT IN ('PICKUP','DROPOFF')) THEN
942: IF l_debug_on THEN
943: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
944: WSH_DEBUG_SV.pop(l_module_name);
945: END IF;
946:
947: return;
940: IF (NVL(l_shipment_type_flag, ' ') = 'O' AND NVL(l_status_code , ' ') in ('IT','CL'))
941: OR (l_frozen_flag = 'Y' and p_stop_type NOT IN ('PICKUP','DROPOFF')) THEN
942: IF l_debug_on THEN
943: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
944: WSH_DEBUG_SV.pop(l_module_name);
945: END IF;
946:
947: return;
948: END IF;
962: l_org_vol := p_volume;
963: END IF;
964:
965: IF l_debug_on THEN
966: 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);
967: END IF;
968:
969: -- Sum up the input W/V and Stop's original W/V
970: IF NOT (l_gross_weight IS NULL and l_org_gross_wt IS NULL) THEN
1008: END IF;
1009:
1010: -- Calculate Stop fill%
1011: IF l_debug_on THEN
1012: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Stop_Fill_Percent',WSH_DEBUG_SV.C_PROC_LEVEL);
1013: END IF;
1014: WSH_TRIPS_ACTIONS.Calc_Stop_Fill_Percent(
1015: p_stop_id => p_entity_id,
1016: p_gross_weight => l_gross_weight,
1020:
1021: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1022: x_return_status := l_return_status;
1023: IF l_debug_on THEN
1024: WSH_DEBUG_SV.pop(l_module_name);
1025: END IF;
1026: RETURN;
1027: END IF;
1028:
1030: --Bugfix 4070732
1031: IF WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API THEN --{
1032:
1033: IF l_debug_on THEN
1034: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Fte_Load_Tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1035: END IF;
1036: WSH_TRIPS_ACTIONS.Fte_Load_Tender(
1037: p_stop_id => p_entity_id,
1038: p_gross_weight => l_gross_weight,
1043:
1044: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1045: x_return_status := l_return_status;
1046: IF l_debug_on THEN
1047: WSH_DEBUG_SV.pop(l_module_name);
1048: END IF;
1049: RETURN;
1050: END IF;
1051:
1051:
1052: ELSE --{ }
1053:
1054: IF l_debug_on THEN
1055: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1056: END IF;
1057:
1058: l_entity_id := p_entity_id;
1059: wsh_util_core.get_cached_value
1066: x_return_status => l_return_status
1067: );
1068:
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1071: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1072: END IF;
1073:
1074: wsh_util_core.api_post_call
1067: );
1068:
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1071: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1072: END IF;
1073:
1074: wsh_util_core.api_post_call
1075: (
1083: END IF;
1084:
1085: -- Update the new W/V on the stop
1086: IF l_debug_on THEN
1087: WSH_DEBUG_SV.logmsg(l_module_name,'Updating '||p_entity_id||' with Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
1088: WSH_DEBUG_SV.logmsg(l_module_name,'l_frozen_flag '||l_frozen_flag||'p_stop_type '||p_stop_type);
1089: END IF;
1090: --R12 MDC
1091: --Included update for new wt/vol columns
1084:
1085: -- Update the new W/V on the stop
1086: IF l_debug_on THEN
1087: WSH_DEBUG_SV.logmsg(l_module_name,'Updating '||p_entity_id||' with Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
1088: WSH_DEBUG_SV.logmsg(l_module_name,'l_frozen_flag '||l_frozen_flag||'p_stop_type '||p_stop_type);
1089: END IF;
1090: --R12 MDC
1091: --Included update for new wt/vol columns
1092: IF p_stop_type = 'DROPOFF' THEN
1161: FOR UPDATE NOWAIT;
1162: EXCEPTION
1163: WHEN NO_DATA_FOUND THEN
1164: IF l_debug_on THEN
1165: WSH_DEBUG_SV.logmsg(l_module_name, p_entity_type||' Id '||p_entity_id||'has wv_frozen_flag Y');
1166: END IF;
1167: l_frozen_flag := 'Y';
1168: WHEN record_locked THEN
1169: IF l_debug_on THEN
1166: END IF;
1167: l_frozen_flag := 'Y';
1168: WHEN record_locked THEN
1169: IF l_debug_on THEN
1170: WSH_DEBUG_SV.logmsg(l_module_name,'Error: '||p_entity_type||' Id '||p_entity_id||'could not be locked');
1171: END IF;
1172: raise e_abort;
1173: END;
1174:
1172: raise e_abort;
1173: END;
1174:
1175: IF l_debug_on THEN
1176: 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);
1177: END IF;
1178:
1179: IF (NVL(l_shipment_direction, ' ') in ('O','IO') AND NVL(l_status_code, ' ') IN ('IT','CL','SR')) OR l_frozen_flag = 'Y' THEN
1180: IF l_debug_on THEN
1177: END IF;
1178:
1179: IF (NVL(l_shipment_direction, ' ') in ('O','IO') AND NVL(l_status_code, ' ') IN ('IT','CL','SR')) OR l_frozen_flag = 'Y' THEN
1180: IF l_debug_on THEN
1181: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
1182: WSH_DEBUG_SV.pop(l_module_name);
1183: END IF;
1184:
1185: return;
1178:
1179: IF (NVL(l_shipment_direction, ' ') in ('O','IO') AND NVL(l_status_code, ' ') IN ('IT','CL','SR')) OR l_frozen_flag = 'Y' THEN
1180: IF l_debug_on THEN
1181: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
1182: WSH_DEBUG_SV.pop(l_module_name);
1183: END IF;
1184:
1185: return;
1186: END IF;
1200: l_org_vol := p_volume;
1201: END IF;
1202:
1203: IF l_debug_on THEN
1204: 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);
1205: END IF;
1206:
1207: -- -- Sum up the input W/V and Delivery's original W/V
1208: IF NOT (l_gross_weight IS NULL and l_org_gross_wt IS NULL) THEN
1214: IF NOT (l_volume IS NULL and l_org_vol IS NULL) THEN
1215: l_volume := GREATEST(nvl(l_volume,0) + nvl(l_org_vol,0),0);
1216: END IF;
1217: IF l_debug_on THEN
1218: WSH_DEBUG_SV.logmsg(l_module_name,'Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
1219: END IF;
1220: IF (nvl(l_gross_weight,0) < nvl(l_net_weight,0)) THEN
1221: -- raise e_wt_mismatch;
1222: l_gross_weight := l_net_weight;
1223: END IF;
1224:
1225: -- Update the new W/V on the delivery
1226: IF l_debug_on THEN
1227: WSH_DEBUG_SV.logmsg(l_module_name,'Updating '||p_entity_id||' with Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
1228: END IF;
1229: update wsh_new_deliveries
1230: set gross_weight = l_gross_weight,
1231: net_weight = l_net_weight,
1239: --
1240:
1241: FOR crec in trip_info LOOP
1242: IF l_debug_on THEN
1243: 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);
1244: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Trip '||crec.trip_id|| 'parent_delivery_leg'||crec.parent_delivery_leg_id);
1245: END IF;
1246:
1247: IF (crec.parent_delivery_leg_id is not NULL) THEN
1240:
1241: FOR crec in trip_info LOOP
1242: IF l_debug_on THEN
1243: 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);
1244: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Trip '||crec.trip_id|| 'parent_delivery_leg'||crec.parent_delivery_leg_id);
1245: END IF;
1246:
1247: IF (crec.parent_delivery_leg_id is not NULL) THEN
1248:
1252: -- parent LPN and Delivery. Parent delivery and trip/stops will get updated
1253: -- when the parent LPN's weight volume gets updated.
1254:
1255: IF l_debug_on THEN
1256: WSH_DEBUG_SV.logmsg(l_module_name,'Parent Delivery Leg '||crec.parent_delivery_leg_id);
1257: END IF;
1258: OPEN c_consol_delivery(crec.parent_delivery_leg_id);
1259: FETCH c_consol_delivery INTO l_parent_delivery_id;
1260: CLOSE c_consol_delivery;
1259: FETCH c_consol_delivery INTO l_parent_delivery_id;
1260: CLOSE c_consol_delivery;
1261:
1262: IF l_debug_on THEN
1263: WSH_DEBUG_SV.logmsg(l_module_name,'Parent Delivery '||l_parent_delivery_id);
1264: END IF;
1265:
1266: Adjust_parent_WV(
1267: p_entity_type => 'DELIVERY',
1275: x_return_status => l_return_status);
1276:
1277: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1278: IF l_debug_on THEN
1279: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for delivery '||l_parent_delivery_id);
1280: END IF;
1281: raise e_abort;
1282: END IF;
1283:
1285: -- Update the stop wt/vol
1286:
1287: FOR crec1 in c_stops(crec.trip_id, crec.pick_up_stop_id, crec.drop_off_stop_id) LOOP
1288: IF l_debug_on THEN
1289: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Stop '||crec1.stop_id);
1290: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1291: END IF;
1292:
1293: Adjust_parent_WV(
1286:
1287: FOR crec1 in c_stops(crec.trip_id, crec.pick_up_stop_id, crec.drop_off_stop_id) LOOP
1288: IF l_debug_on THEN
1289: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Stop '||crec1.stop_id);
1290: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1291: END IF;
1292:
1293: Adjust_parent_WV(
1294: p_entity_type => 'STOP',
1302: x_return_status => l_return_status);
1303:
1304: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Stop '||crec1.stop_id);
1307: END IF;
1308: raise e_abort;
1309: END IF;
1310: END LOOP;
1356: FOR UPDATE NOWAIT;
1357: EXCEPTION
1358: WHEN NO_DATA_FOUND THEN
1359: IF l_debug_on THEN
1360: WSH_DEBUG_SV.logmsg(l_module_name,'Error: '||p_entity_type||' Id '||p_entity_id||'doesn not exist');
1361: END IF;
1362: raise e_abort;
1363: WHEN record_locked THEN
1364: IF l_debug_on THEN
1361: END IF;
1362: raise e_abort;
1363: WHEN record_locked THEN
1364: IF l_debug_on THEN
1365: WSH_DEBUG_SV.logmsg(l_module_name,'Error: '||p_entity_type||' Id '||p_entity_id||'could not be locked');
1366: END IF;
1367: raise e_abort;
1368: END;
1369:
1376: END IF;
1377:
1378:
1379: IF l_debug_on THEN
1380: 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);
1381: END IF;
1382:
1383: IF l_frozen_flag = 'Y' THEN
1384: IF l_debug_on THEN
1381: END IF;
1382:
1383: IF l_frozen_flag = 'Y' THEN
1384: IF l_debug_on THEN
1385: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
1386: WSH_DEBUG_SV.pop(l_module_name);
1387: END IF;
1388: return;
1389: END IF;
1382:
1383: IF l_frozen_flag = 'Y' THEN
1384: IF l_debug_on THEN
1385: WSH_DEBUG_SV.logmsg(l_module_name,'W/V propogation not allowed');
1386: WSH_DEBUG_SV.pop(l_module_name);
1387: END IF;
1388: return;
1389: END IF;
1390:
1405: l_org_fill_vol := p_filled_volume;
1406: END IF;
1407:
1408: IF l_debug_on THEN
1409: 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);
1410: END IF;
1411:
1412: -- Sum up the input W/V and DD's original W/V
1413: IF NOT (l_gross_weight IS NULL and l_org_gross_wt IS NULL) THEN
1431: END IF;
1432:
1433: -- Call update_container_wt_vol to update new W/V on container
1434: IF l_debug_on THEN
1435: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit UPDATE_CONTAINER_WT_VOL',WSH_DEBUG_SV.C_PROC_LEVEL);
1436: END IF;
1437: update_container_wt_vol(
1438: p_container_instance_id => p_entity_id,
1439: p_gross_weight => l_gross_weight,
1454: IF ((l_container_id IS NOT NULL)) THEN
1455: --lpn conv
1456:
1457: IF l_debug_on THEN
1458: WSH_DEBUG_SV.log(l_module_name,'l_wms_org',l_wms_org);
1459: END IF;
1460: IF l_wms_org = 'Y' THEN --{
1461:
1462: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1468: END IF;
1469:
1470: ELSE --}{
1471: IF l_debug_on THEN
1472: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' '||p_entity_id||' has parent container '||l_container_id);
1473: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1474: END IF;
1475:
1476: Adjust_parent_WV(
1469:
1470: ELSE --}{
1471: IF l_debug_on THEN
1472: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' '||p_entity_id||' has parent container '||l_container_id);
1473: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1474: END IF;
1475:
1476: Adjust_parent_WV(
1477: p_entity_type => 'CONTAINER',
1486: x_return_status => l_return_status);
1487:
1488: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Container '||l_container_id);
1491: END IF;
1492: raise e_abort;
1493: END IF;
1494: END IF; --}
1508: p_inv_item_id => l_inv_item_id,
1509: x_return_status => l_return_status);
1510: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1511: IF l_debug_on THEN
1512: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Delivery '||l_delivery_id);
1513: END IF;
1514: raise e_abort;
1515: END IF;
1516:
1522: -- consol LPN since the wt/vols to the consol delivery will be propagated
1523: -- through the child delivery.
1524:
1525: IF l_debug_on THEN
1526: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' '||p_entity_id||' is in delivery '||l_delivery_id);
1527: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1528: END IF;
1529:
1530:
1523: -- through the child delivery.
1524:
1525: IF l_debug_on THEN
1526: WSH_DEBUG_SV.logmsg(l_module_name,p_entity_type||' '||p_entity_id||' is in delivery '||l_delivery_id);
1527: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1528: END IF;
1529:
1530:
1531: Adjust_parent_WV(
1539: p_inv_item_id => l_inv_item_id,
1540: x_return_status => l_return_status);
1541: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1542: IF l_debug_on THEN
1543: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV has returned Error for Delivery '||l_delivery_id);
1544: END IF;
1545: raise e_abort;
1546: END IF;
1547:
1551: IF l_num_warnings > 0 THEN
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1553: END IF;
1554: IF l_debug_on THEN
1555: WSH_DEBUG_SV.log(l_module_name,'x_return_status '||x_return_status);
1556: WSH_DEBUG_SV.pop(l_module_name);
1557: END IF;
1558:
1559: EXCEPTION
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1553: END IF;
1554: IF l_debug_on THEN
1555: WSH_DEBUG_SV.log(l_module_name,'x_return_status '||x_return_status);
1556: WSH_DEBUG_SV.pop(l_module_name);
1557: END IF;
1558:
1559: EXCEPTION
1560: WHEN e_wt_vol_fail THEN
1562: FND_MESSAGE.Set_Token('LPN', p_entity_id);
1563: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1564: WSH_UTIL_CORE.add_message (x_return_status);
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
1568: END IF;
1569:
1570: WHEN e_abort THEN
1563: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1564: WSH_UTIL_CORE.add_message (x_return_status);
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
1568: END IF;
1569:
1570: WHEN e_abort THEN
1571: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1569:
1570: WHEN e_abort THEN
1571: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1572: IF l_debug_on THEN
1573: WSH_DEBUG_SV.pop(l_module_name);
1574: END IF;
1575:
1576: WHEN e_wt_mismatch THEN
1577: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1576: WHEN e_wt_mismatch THEN
1577: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1578:
1579: IF l_debug_on THEN
1580: WSH_DEBUG_SV.logmsg(l_module_name,'Error: Adjusted Net Weight is greater than Adjusted Gross Weight');
1581: WSH_DEBUG_SV.pop(l_module_name);
1582: END IF;
1583:
1584: WHEN lock_detected THEN -- BugFix 3570954
1577: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1578:
1579: IF l_debug_on THEN
1580: WSH_DEBUG_SV.logmsg(l_module_name,'Error: Adjusted Net Weight is greater than Adjusted Gross Weight');
1581: WSH_DEBUG_SV.pop(l_module_name);
1582: END IF;
1583:
1584: WHEN lock_detected THEN -- BugFix 3570954
1585: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
1586: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
1587: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1588:
1589: IF l_debug_on THEN
1590: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
1591: END IF;
1592:
1593: WHEN Others THEN
1594: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Adjust_parent_WV');
1594: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Adjust_parent_WV');
1595: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1596:
1597: IF l_debug_on THEN
1598: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1600: END IF;
1601: End Adjust_parent_WV;
1602:
1595: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1596:
1597: IF l_debug_on THEN
1598: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1600: END IF;
1601: End Adjust_parent_WV;
1602:
1603: -- J: W/V Changes
1734: BEGIN
1735:
1736: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1737: IF l_debug_on IS NULL THEN
1738: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1739: END IF;
1740:
1741: IF l_debug_on THEN
1742: WSH_DEBUG_SV.push(l_module_name);
1738: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1739: END IF;
1740:
1741: IF l_debug_on THEN
1742: WSH_DEBUG_SV.push(l_module_name);
1743: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1744: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1745: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
1746: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1739: END IF;
1740:
1741: IF l_debug_on THEN
1742: WSH_DEBUG_SV.push(l_module_name);
1743: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1744: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1745: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
1746: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1747: WSH_DEBUG_SV.log(l_module_name,'p_diff_fill_volume',p_diff_fill_volume);
1740:
1741: IF l_debug_on THEN
1742: WSH_DEBUG_SV.push(l_module_name);
1743: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1744: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1745: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
1746: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1747: WSH_DEBUG_SV.log(l_module_name,'p_diff_fill_volume',p_diff_fill_volume);
1748: WSH_DEBUG_SV.log(l_module_name,'p_check_for_empty',p_check_for_empty);
1741: IF l_debug_on THEN
1742: WSH_DEBUG_SV.push(l_module_name);
1743: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1744: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1745: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
1746: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1747: WSH_DEBUG_SV.log(l_module_name,'p_diff_fill_volume',p_diff_fill_volume);
1748: WSH_DEBUG_SV.log(l_module_name,'p_check_for_empty',p_check_for_empty);
1749: END IF;
1742: WSH_DEBUG_SV.push(l_module_name);
1743: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1744: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1745: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
1746: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1747: WSH_DEBUG_SV.log(l_module_name,'p_diff_fill_volume',p_diff_fill_volume);
1748: WSH_DEBUG_SV.log(l_module_name,'p_check_for_empty',p_check_for_empty);
1749: END IF;
1750: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1743: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_id',p_delivery_detail_id);
1744: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1745: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
1746: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1747: WSH_DEBUG_SV.log(l_module_name,'p_diff_fill_volume',p_diff_fill_volume);
1748: WSH_DEBUG_SV.log(l_module_name,'p_check_for_empty',p_check_for_empty);
1749: END IF;
1750: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1751:
1744: WSH_DEBUG_SV.log(l_module_name,'p_diff_gross_wt',p_diff_gross_wt);
1745: WSH_DEBUG_SV.log(l_module_name,'p_diff_net_wt',p_diff_net_wt);
1746: WSH_DEBUG_SV.log(l_module_name,'p_diff_volume',p_diff_volume);
1747: WSH_DEBUG_SV.log(l_module_name,'p_diff_fill_volume',p_diff_fill_volume);
1748: WSH_DEBUG_SV.log(l_module_name,'p_check_for_empty',p_check_for_empty);
1749: END IF;
1750: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1751:
1752: -- Get the delivery detail information
1769:
1770: -- For Container
1771: IF ((l_parent_container_id IS NOT NULL)) THEN
1772: IF l_debug_on THEN
1773: WSH_DEBUG_SV.logmsg(l_module_name,'The parent container id is '||l_parent_container_id);
1774: END IF;
1775:
1776: --lpn conv
1777: IF l_container_flag IN ('Y', 'C') AND l_line_direction IN ('O', 'IO') THEN
1782: FETCH c_get_item_id INTO l_item_id;
1783: CLOSE c_get_item_id;
1784:
1785: IF l_debug_on THEN
1786: WSH_DEBUG_SV.log(l_module_name,'l_item_id',l_item_id);
1787: END IF;
1788:
1789: IF c_wms_code_present = 'Y'
1790: AND l_update_wms_org = 'Y' THEN --{
1812: OPEN C2(l_parent_container_id);
1813: FETCH C2 INTO l_dummy_id;
1814: IF C2%NOTFOUND THEN
1815: IF l_debug_on THEN
1816: WSH_DEBUG_SV.logmsg(l_module_name,'Container will become empty without this dd');
1817: END IF;
1818: l_cont_empty := TRUE;
1819: END IF;
1820: CLOSE C2;
1835: l_tmp_fill_vol;
1836: CLOSE C4;
1837:
1838: IF l_debug_on THEN
1839: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_Container_Wt_Vol',WSH_DEBUG_SV.C_PROC_LEVEL);
1840: END IF;
1841: WSH_WV_UTILS.update_container_wt_vol(
1842: p_container_instance_id => l_parent_container_id,
1843: p_gross_weight => l_tmp_unit_wt,
1849: x_return_status => l_return_status);
1850: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1851: x_return_status := l_return_status;
1852: IF l_debug_on THEN
1853: WSH_DEBUG_SV.pop(l_module_name);
1854: END IF;
1855: RETURN;
1856: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1857: l_num_warnings := l_num_warnings + 1;
1857: l_num_warnings := l_num_warnings + 1;
1858: END IF;
1859:
1860: IF l_debug_on THEN
1861: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1862: END IF;
1863:
1864: DD_WV_Post_Process(
1865: p_delivery_detail_id => l_parent_container_id,
1871:
1872: ELSE -- NOT l_cont_empty
1873: -- Call Adjust_parent_WV to adjust W/V
1874: IF l_debug_on THEN
1875: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1876: END IF;
1877: Adjust_parent_WV(
1878: p_entity_type => 'CONTAINER',
1879: p_entity_id => l_parent_container_id,
1908: END IF; --}
1909: -- For Delivery
1910: ELSIF (l_delivery_id IS NOT NULL) THEN
1911: IF l_debug_on THEN
1912: WSH_DEBUG_SV.log(l_module_name,'The Delivery id is '||l_delivery_id);
1913: END IF;
1914:
1915: -- Check if delivery becomes empty without delivery detail
1916: l_del_empty := FALSE;
1918: OPEN C3(l_delivery_id);
1919: FETCH C3 INTO l_dummy_id;
1920: IF C3%NOTFOUND THEN
1921: IF l_debug_on THEN
1922: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery will become empty without this dd');
1923: END IF;
1924: l_del_empty := TRUE;
1925: END IF;
1926: CLOSE C3;
1949:
1950: CLOSE C5;
1951:
1952: IF l_debug_on THEN
1953: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Del_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1954: END IF;
1955:
1956: Del_WV_Post_Process(
1957: p_delivery_id => l_delivery_id,
1963: ELSE -- NOT l_del_empty
1964:
1965: -- Call Adjust_parent_WV to adjust W/V
1966: IF l_debug_on THEN
1967: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
1968: END IF;
1969: IF (l_container_flag = 'Y') OR ((l_container_flag = 'C')
1970: AND (NVL(g_consol_lpn, 0) <> p_delivery_detail_id)) THEN
1971: Adjust_parent_WV(
1999: x_return_status := l_return_status;
2000: ELSE
2001: x_return_status := l_return_status;
2002: IF l_debug_on THEN
2003: WSH_DEBUG_SV.logmsg(l_module_name,'API returned '||l_return_status);
2004: END IF;
2005: raise e_abort;
2006: END IF;
2007: END IF;
2010: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2011: END IF;
2012:
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
2015: WSH_DEBUG_SV.pop(l_module_name);
2016: END IF;
2017:
2018: EXCEPTION
2011: END IF;
2012:
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
2015: WSH_DEBUG_SV.pop(l_module_name);
2016: END IF;
2017:
2018: EXCEPTION
2019:
2022: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2023: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
2024:
2025: IF l_debug_on THEN
2026: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
2027: END IF;
2028:
2029: WHEN e_abort THEN
2030: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2028:
2029: WHEN e_abort THEN
2030: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2031: IF l_debug_on THEN
2032: WSH_DEBUG_SV.pop(l_module_name);
2033: END IF;
2034:
2035: WHEN Others THEN
2036: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DD_WV_POST_PROCESS');
2036: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DD_WV_POST_PROCESS');
2037: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2038:
2039: IF l_debug_on THEN
2040: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2041: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2042: END IF;
2043:
2044: END DD_WV_Post_Process;
2037: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2038:
2039: IF l_debug_on THEN
2040: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2041: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2042: END IF;
2043:
2044: END DD_WV_Post_Process;
2045:
2168: BEGIN
2169:
2170: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2171: IF l_debug_on IS NULL THEN
2172: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2173: END IF;
2174:
2175: IF l_debug_on THEN
2176: WSH_DEBUG_SV.push(l_module_name);
2172: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2173: END IF;
2174:
2175: IF l_debug_on THEN
2176: WSH_DEBUG_SV.push(l_module_name);
2177: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2178: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2179: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
2180: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2173: END IF;
2174:
2175: IF l_debug_on THEN
2176: WSH_DEBUG_SV.push(l_module_name);
2177: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2178: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2179: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
2180: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2181: WSH_DEBUG_SV.log(l_module_name,'P_LEG_ID',p_leg_id);
2174:
2175: IF l_debug_on THEN
2176: WSH_DEBUG_SV.push(l_module_name);
2177: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2178: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2179: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
2180: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2181: WSH_DEBUG_SV.log(l_module_name,'P_LEG_ID',p_leg_id);
2182: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_FOR_EMPTY',P_CHECK_FOR_EMPTY);
2175: IF l_debug_on THEN
2176: WSH_DEBUG_SV.push(l_module_name);
2177: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2178: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2179: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
2180: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2181: WSH_DEBUG_SV.log(l_module_name,'P_LEG_ID',p_leg_id);
2182: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_FOR_EMPTY',P_CHECK_FOR_EMPTY);
2183: END IF;
2176: WSH_DEBUG_SV.push(l_module_name);
2177: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2178: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2179: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
2180: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2181: WSH_DEBUG_SV.log(l_module_name,'P_LEG_ID',p_leg_id);
2182: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_FOR_EMPTY',P_CHECK_FOR_EMPTY);
2183: END IF;
2184: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2177: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',p_delivery_id);
2178: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2179: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
2180: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2181: WSH_DEBUG_SV.log(l_module_name,'P_LEG_ID',p_leg_id);
2182: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_FOR_EMPTY',P_CHECK_FOR_EMPTY);
2183: END IF;
2184: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2185:
2178: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_GROSS_WT',p_diff_gross_wt);
2179: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_NET_WT',p_diff_net_wt);
2180: WSH_DEBUG_SV.log(l_module_name,'P_DIFF_VOLUME',p_diff_volume);
2181: WSH_DEBUG_SV.log(l_module_name,'P_LEG_ID',p_leg_id);
2182: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_FOR_EMPTY',P_CHECK_FOR_EMPTY);
2183: END IF;
2184: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2185:
2186: -- Get the delivery information
2203: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DELIVERY');
2204: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
2205: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
2206: IF l_debug_on THEN
2207: WSH_DEBUG_SV.log(l_module_name,'Delivery '||p_delivery_id||' not found');
2208: WSH_DEBUG_SV.pop(l_module_name);
2209: END IF;
2210: return;
2211: END;
2204: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
2205: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
2206: IF l_debug_on THEN
2207: WSH_DEBUG_SV.log(l_module_name,'Delivery '||p_delivery_id||' not found');
2208: WSH_DEBUG_SV.pop(l_module_name);
2209: END IF;
2210: return;
2211: END;
2212:
2212:
2213: -- If delivery status is 'IT','CL','SR' and shipment direction is 'O','IO' then Post processing is not allowed
2214: IF l_shipment_direction in ('O','IO') AND l_status_code IN ('IT','CL','SR') THEN
2215: IF l_debug_on THEN
2216: WSH_DEBUG_SV.logmsg(l_module_name,'Status Code is '||l_status_code||'. Post Processing is not allowed');
2217: WSH_DEBUG_SV.pop(l_module_name);
2218: END IF;
2219: return;
2220: END IF;
2213: -- If delivery status is 'IT','CL','SR' and shipment direction is 'O','IO' then Post processing is not allowed
2214: IF l_shipment_direction in ('O','IO') AND l_status_code IN ('IT','CL','SR') THEN
2215: IF l_debug_on THEN
2216: WSH_DEBUG_SV.logmsg(l_module_name,'Status Code is '||l_status_code||'. Post Processing is not allowed');
2217: WSH_DEBUG_SV.pop(l_module_name);
2218: END IF;
2219: return;
2220: END IF;
2221:
2222: -- for all trips assigned to the delivery leg/delivery
2223: FOR crec in trip_info LOOP
2224:
2225: IF l_debug_on THEN
2226: 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);
2227: END IF;
2228:
2229: -- if p_check_for_empty is 'Y' and if the trip will become empty without delivery
2230: -- then set W/V to null for all stops in this trip
2235: IF C1%NOTFOUND THEN
2236: l_trip_empty := TRUE;
2237:
2238: IF l_debug_on THEN
2239: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||crec.trip_id||' will become empty without this delivery');
2240: END IF;
2241:
2242: --R12 MDC
2243: --Included update for new wt/vol columns
2266: --R12 MDC
2267: l_stop_type := NULL;
2268:
2269: IF l_debug_on THEN
2270: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Stop '||crec1.stop_id);
2271: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
2272: END IF;
2273:
2274: OPEN c_check_pickup(crec1.stop_id);
2267: l_stop_type := NULL;
2268:
2269: IF l_debug_on THEN
2270: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Stop '||crec1.stop_id);
2271: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Adjust_parent_WV',WSH_DEBUG_SV.C_PROC_LEVEL);
2272: END IF;
2273:
2274: OPEN c_check_pickup(crec1.stop_id);
2275: FETCH c_check_pickup INTO l_dummy;
2304: x_return_status => l_return_status);
2305:
2306: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV returned '||l_return_status);
2309: END IF;
2310: raise e_abort;
2311: END IF;
2312: ELSIF crec.parent_delivery_leg_id IS NULL THEN
2324: p_stop_type => l_stop_type);
2325:
2326: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2327: IF l_debug_on THEN
2328: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_parent_WV returned '||l_return_status);
2329: END IF;
2330: raise e_abort;
2331: END IF;
2332: END IF;
2341:
2342: l_del_tab(1) := p_delivery_id;
2343:
2344: IF l_debug_on THEN
2345: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
2346: END IF;
2347: --
2348: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2349: p_entity_type => 'DELIVERY',
2355:
2356: END IF;
2357:
2358: IF l_debug_on THEN
2359: WSH_DEBUG_SV.pop(l_module_name);
2360: END IF;
2361:
2362: EXCEPTION
2363:
2368:
2369: WHEN e_abort THEN
2370: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2371: IF l_debug_on THEN
2372: WSH_DEBUG_SV.pop(l_module_name);
2373: END IF;
2374:
2375: WHEN mark_reprice_error then
2376: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2377: x_return_status := l_return_status;
2378: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2379: --
2380: IF l_debug_on THEN
2381: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2382: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2383: END IF;
2384:
2385: WHEN Others THEN
2378: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2379: --
2380: IF l_debug_on THEN
2381: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2382: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2383: END IF;
2384:
2385: WHEN Others THEN
2386: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DEL_WV_POST_PROCESS');
2386: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.DEL_WV_POST_PROCESS');
2387: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2388:
2389: IF l_debug_on THEN
2390: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2391: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2392: END IF;
2393:
2394: END DEL_WV_Post_Process;
2387: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2388:
2389: IF l_debug_on THEN
2390: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2391: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2392: END IF;
2393:
2394: END DEL_WV_Post_Process;
2395:
2445:
2446: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2447: IF l_debug_on IS NULL
2448: THEN
2449: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2450: END IF;
2451: IF l_debug_on THEN
2452: WSH_DEBUG_SV.push(l_module_name);
2453: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2448: THEN
2449: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2450: END IF;
2451: IF l_debug_on THEN
2452: WSH_DEBUG_SV.push(l_module_name);
2453: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2454: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
2455: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
2456: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',p_CALC_WV_IF_FROZEN);
2449: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2450: END IF;
2451: IF l_debug_on THEN
2452: WSH_DEBUG_SV.push(l_module_name);
2453: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2454: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
2455: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
2456: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',p_CALC_WV_IF_FROZEN);
2457: END IF;
2450: END IF;
2451: IF l_debug_on THEN
2452: WSH_DEBUG_SV.push(l_module_name);
2453: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2454: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
2455: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
2456: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',p_CALC_WV_IF_FROZEN);
2457: END IF;
2458: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2451: IF l_debug_on THEN
2452: WSH_DEBUG_SV.push(l_module_name);
2453: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2454: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
2455: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
2456: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',p_CALC_WV_IF_FROZEN);
2457: END IF;
2458: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2459:
2452: WSH_DEBUG_SV.push(l_module_name);
2453: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2454: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
2455: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
2456: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',p_CALC_WV_IF_FROZEN);
2457: END IF;
2458: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2459:
2460: -- Get the DD info
2475: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
2476: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2477: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2478: IF l_debug_on THEN
2479: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_delivery_detail_id||' not found');
2480: WSH_DEBUG_SV.pop(l_module_name);
2481: END IF;
2482: return;
2483: END;
2476: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2477: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2478: IF l_debug_on THEN
2479: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_delivery_detail_id||' not found');
2480: WSH_DEBUG_SV.pop(l_module_name);
2481: END IF;
2482: return;
2483: END;
2484:
2485: IF (P_CALC_WV_IF_FROZEN = 'N' AND l_frozen_flag = 'Y') THEN
2486: x_net_weight := l_org_net_wt;
2487: x_volume := l_org_vol;
2488: IF l_debug_on THEN
2489: WSH_DEBUG_SV.logmsg(l_module_name,'WV calculation not allowed on '||p_delivery_detail_id||'. Returning existing W/V');
2490: WSH_DEBUG_SV.pop(l_module_name);
2491: END IF;
2492: return;
2493: END IF;
2486: x_net_weight := l_org_net_wt;
2487: x_volume := l_org_vol;
2488: IF l_debug_on THEN
2489: WSH_DEBUG_SV.logmsg(l_module_name,'WV calculation not allowed on '||p_delivery_detail_id||'. Returning existing W/V');
2490: WSH_DEBUG_SV.pop(l_module_name);
2491: END IF;
2492: return;
2493: END IF;
2494:
2492: return;
2493: END IF;
2494:
2495: IF l_debug_on THEN
2496: 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);
2497: END IF;
2498:
2499: -- Call Detail_Weight_Volume API
2500: IF l_debug_on THEN
2497: END IF;
2498:
2499: -- Call Detail_Weight_Volume API
2500: IF l_debug_on THEN
2501: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
2502: END IF;
2503:
2504: Detail_Weight_Volume(
2505: p_delivery_detail_id => p_delivery_detail_id,
2511:
2512: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2513: x_return_status := l_return_status;
2514: IF l_debug_on THEN
2515: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
2516: WSH_DEBUG_SV.pop(l_module_name);
2517: END IF;
2518: return;
2519: END IF;
2512: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2513: x_return_status := l_return_status;
2514: IF l_debug_on THEN
2515: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
2516: WSH_DEBUG_SV.pop(l_module_name);
2517: END IF;
2518: return;
2519: END IF;
2520:
2525: (NVL(x_net_weight,0) <> NVL(l_org_net_wt,0)) OR
2526: (NVL(x_volume,0) <> NVL(l_org_vol,0))
2527: )) THEN
2528: IF l_debug_on THEN
2529: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
2530: END IF;
2531:
2532: DD_WV_Post_Process(
2533: p_delivery_detail_id => p_delivery_detail_id,
2538:
2539: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2540: x_return_status := l_return_status;
2541: IF l_debug_on THEN
2542: WSH_DEBUG_SV.logmsg(l_module_name,'DD_WV_Post_Process returned '||l_return_status);
2543: WSH_DEBUG_SV.pop(l_module_name);
2544: END IF;
2545: return;
2546: END IF;
2539: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2540: x_return_status := l_return_status;
2541: IF l_debug_on THEN
2542: WSH_DEBUG_SV.logmsg(l_module_name,'DD_WV_Post_Process returned '||l_return_status);
2543: WSH_DEBUG_SV.pop(l_module_name);
2544: END IF;
2545: return;
2546: END IF;
2547: END IF;
2546: END IF;
2547: END IF;
2548:
2549: IF l_debug_on THEN
2550: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
2551: WSH_DEBUG_SV.pop(l_module_name);
2552: END IF;
2553:
2554: EXCEPTION
2547: END IF;
2548:
2549: IF l_debug_on THEN
2550: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
2551: WSH_DEBUG_SV.pop(l_module_name);
2552: END IF;
2553:
2554: EXCEPTION
2555:
2555:
2556: WHEN e_abort THEN
2557: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2558: IF l_debug_on THEN
2559: WSH_DEBUG_SV.pop(l_module_name);
2560: END IF;
2561:
2562: WHEN Others THEN
2563: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Detail_Weight_Volume');
2562: WHEN Others THEN
2563: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.Detail_Weight_Volume');
2564: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2565: IF l_debug_on THEN
2566: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
2567: ;
2568: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2569: END IF;
2570:
2564: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2565: IF l_debug_on THEN
2566: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
2567: ;
2568: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2569: END IF;
2570:
2571: END Detail_Weight_Volume;
2572:
2638:
2639: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2640: IF l_debug_on IS NULL
2641: THEN
2642: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2643: END IF;
2644:
2645: IF l_debug_on THEN
2646: WSH_DEBUG_SV.push(l_module_name);
2642: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2643: END IF;
2644:
2645: IF l_debug_on THEN
2646: WSH_DEBUG_SV.push(l_module_name);
2647: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2648: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2649: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2650: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2643: END IF;
2644:
2645: IF l_debug_on THEN
2646: WSH_DEBUG_SV.push(l_module_name);
2647: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2648: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2649: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2650: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2651: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2644:
2645: IF l_debug_on THEN
2646: WSH_DEBUG_SV.push(l_module_name);
2647: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2648: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2649: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2650: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2651: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2652: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2645: IF l_debug_on THEN
2646: WSH_DEBUG_SV.push(l_module_name);
2647: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2648: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2649: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2650: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2651: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2652: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2653: END IF;
2646: WSH_DEBUG_SV.push(l_module_name);
2647: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2648: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2649: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2650: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2651: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2652: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2653: END IF;
2654:
2647: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
2648: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2649: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2650: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2651: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2652: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2653: END IF;
2654:
2655: OPEN c_get_detail_wv;
2648: WSH_DEBUG_SV.log(l_module_name,'P_GROSS_WEIGHT',P_GROSS_WEIGHT);
2649: WSH_DEBUG_SV.log(l_module_name,'P_NET_WEIGHT',P_NET_WEIGHT);
2650: WSH_DEBUG_SV.log(l_module_name,'P_VOLUME',P_VOLUME);
2651: WSH_DEBUG_SV.log(l_module_name,'P_FILLED_VOLUME',P_FILLED_VOLUME);
2652: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
2653: END IF;
2654:
2655: OPEN c_get_detail_wv;
2656: FETCH c_get_detail_wv
2661: l_container_flag,
2662: l_line_direction, -- LPN CONV. rv
2663: l_organization_id; -- LPN CONV. rv
2664: IF l_debug_on THEN
2665: WSH_DEBUG_SV.log(l_module_name,'Original l_net_weight '||l_net_weight||' l_gross_weight '||l_gross_weight||' l_volume '||l_volume||' l_filled_volume '||l_filled_volume||' l_container_flag '||l_container_flag);
2666: END IF;
2667: IF c_get_detail_wv%NOTFOUND THEN
2668: CLOSE c_get_detail_wv;
2669: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2669: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2670: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2671:
2672: IF l_debug_on THEN
2673: WSH_DEBUG_SV.pop(l_module_name);
2674: END IF;
2675: return;
2676: END IF;
2677: CLOSE c_get_detail_wv;
2677: CLOSE c_get_detail_wv;
2678:
2679: -- K LPN CONV. rv
2680: IF l_debug_on THEN
2681: WSH_DEBUG_SV.log(l_module_name,'line direction', l_line_direction);
2682: WSH_DEBUG_SV.log(l_module_name,'Organization Id', l_organization_id);
2683: END IF;
2684: --
2685: l_wms_org := wsh_util_validate.check_wms_org(l_organization_id);
2678:
2679: -- K LPN CONV. rv
2680: IF l_debug_on THEN
2681: WSH_DEBUG_SV.log(l_module_name,'line direction', l_line_direction);
2682: WSH_DEBUG_SV.log(l_module_name,'Organization Id', l_organization_id);
2683: END IF;
2684: --
2685: l_wms_org := wsh_util_validate.check_wms_org(l_organization_id);
2686: --
2700: --
2701: -- Debug Statements
2702: --
2703: IF l_debug_on THEN
2704: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
2705: END IF;
2706: --
2707: WSH_WMS_SYNC_TMP_PKG.MERGE
2708: (
2710: x_return_status => l_return_status
2711: );
2712:
2713: IF l_debug_on THEN
2714: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
2715: END IF;
2716: --
2717: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2718: --
2718: --
2719: x_return_status := l_return_status;
2720: --
2721: IF l_debug_on THEN
2722: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
2723: WSH_DEBUG_SV.pop(l_module_name);
2724: END IF;
2725: --
2726: RETURN;
2719: x_return_status := l_return_status;
2720: --
2721: IF l_debug_on THEN
2722: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
2723: WSH_DEBUG_SV.pop(l_module_name);
2724: END IF;
2725: --
2726: RETURN;
2727: --
2752: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2753: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
2754:
2755: IF l_debug_on THEN
2756: WSH_DEBUG_SV.pop(l_module_name);
2757: END IF;
2758: return;
2759: END IF;
2760:
2765:
2766: l_details_marked.delete;
2767: l_details_marked(1) := p_container_instance_id;
2768: IF l_debug_on THEN
2769: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
2770: END IF;
2771:
2772: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2773: p_entity_type => 'DELIVERY_DETAIL',
2781:
2782: IF p_fill_pc_flag = 'Y' THEN
2783:
2784: IF l_debug_on THEN
2785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CALC_CONT_FILL_PC',WSH_DEBUG_SV.C_PROC_LEVEL);
2786: END IF;
2787:
2788: WSH_TPA_CONTAINER_PKG.Calc_Cont_Fill_Pc (
2789: p_container_instance_id,
2793: x_return_status);
2794:
2795: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2796: IF l_debug_on THEN
2797: WSH_DEBUG_SV.pop(l_module_name);
2798: END IF;
2799: return;
2800: END IF;
2801:
2809: NVL(l_gross_weight, -1) <> NVL(p_gross_weight, -1) OR
2810: NVL(l_volume, -1) <> NVL(p_volume, -1))) THEN
2811: G_DELIVERY_TMS_IMPACT := 'Y';
2812: IF l_debug_on THEN
2813: WSH_DEBUG_SV.log(l_module_name,'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
2814: END IF;
2815: END IF;
2816: -- End of OTM R12 : packing ECO
2817:
2827: END IF;
2828: -- LPN CONV. rv
2829:
2830: IF l_debug_on THEN
2831: WSH_DEBUG_SV.pop(l_module_name);
2832: END IF;
2833:
2834: EXCEPTION
2835: WHEN mark_reprice_error then
2836: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2837: x_return_status := l_return_status;
2838: WSH_UTIL_CORE.add_message (x_return_status);
2839: IF l_debug_on THEN
2840: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2841: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2842: END IF;
2843:
2844: WHEN others THEN
2837: x_return_status := l_return_status;
2838: WSH_UTIL_CORE.add_message (x_return_status);
2839: IF l_debug_on THEN
2840: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2841: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2842: END IF;
2843:
2844: WHEN others THEN
2845: IF l_debug_on THEN
2842: END IF;
2843:
2844: WHEN others THEN
2845: IF l_debug_on THEN
2846: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: OTHERS ' || SQLERRM );
2847: END IF;
2848: wsh_util_core.default_handler('WSH_WV_UTIL.update_container_wt_vol');
2849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2850:
2848: wsh_util_core.default_handler('WSH_WV_UTIL.update_container_wt_vol');
2849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2850:
2851: IF l_debug_on THEN
2852: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2854: END IF;
2855:
2856: END update_container_wt_vol;
2849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2850:
2851: IF l_debug_on THEN
2852: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2854: END IF;
2855:
2856: END update_container_wt_vol;
2857:
3040: --{
3041: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3042: IF l_debug_on IS NULL
3043: THEN
3044: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3045: END IF;
3046:
3047: IF l_debug_on THEN
3048: WSH_DEBUG_SV.push(l_module_name);
3044: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3045: END IF;
3046:
3047: IF l_debug_on THEN
3048: WSH_DEBUG_SV.push(l_module_name);
3049: --
3050: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3051: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3052: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
3046:
3047: IF l_debug_on THEN
3048: WSH_DEBUG_SV.push(l_module_name);
3049: --
3050: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3051: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3052: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
3053: WSH_DEBUG_SV.log(l_module_name,'P_FILLPCFLAG',P_FILLPCFLAG);
3054: WSH_DEBUG_SV.log(l_module_name,'P_MASTERWEIGHTUOMCODE',P_MASTERWEIGHTUOMCODE);
3047: IF l_debug_on THEN
3048: WSH_DEBUG_SV.push(l_module_name);
3049: --
3050: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3051: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3052: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
3053: WSH_DEBUG_SV.log(l_module_name,'P_FILLPCFLAG',P_FILLPCFLAG);
3054: WSH_DEBUG_SV.log(l_module_name,'P_MASTERWEIGHTUOMCODE',P_MASTERWEIGHTUOMCODE);
3055: WSH_DEBUG_SV.log(l_module_name,'P_MASTERVOLUMEUOMCODE',P_MASTERVOLUMEUOMCODE);
3048: WSH_DEBUG_SV.push(l_module_name);
3049: --
3050: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3051: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3052: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
3053: WSH_DEBUG_SV.log(l_module_name,'P_FILLPCFLAG',P_FILLPCFLAG);
3054: WSH_DEBUG_SV.log(l_module_name,'P_MASTERWEIGHTUOMCODE',P_MASTERWEIGHTUOMCODE);
3055: WSH_DEBUG_SV.log(l_module_name,'P_MASTERVOLUMEUOMCODE',P_MASTERVOLUMEUOMCODE);
3056: END IF;
3049: --
3050: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3051: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3052: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
3053: WSH_DEBUG_SV.log(l_module_name,'P_FILLPCFLAG',P_FILLPCFLAG);
3054: WSH_DEBUG_SV.log(l_module_name,'P_MASTERWEIGHTUOMCODE',P_MASTERWEIGHTUOMCODE);
3055: WSH_DEBUG_SV.log(l_module_name,'P_MASTERVOLUMEUOMCODE',P_MASTERVOLUMEUOMCODE);
3056: END IF;
3057: l_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3050: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINERINSTANCEID',P_CONTAINERINSTANCEID);
3051: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3052: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
3053: WSH_DEBUG_SV.log(l_module_name,'P_FILLPCFLAG',P_FILLPCFLAG);
3054: WSH_DEBUG_SV.log(l_module_name,'P_MASTERWEIGHTUOMCODE',P_MASTERWEIGHTUOMCODE);
3055: WSH_DEBUG_SV.log(l_module_name,'P_MASTERVOLUMEUOMCODE',P_MASTERVOLUMEUOMCODE);
3056: END IF;
3057: l_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3058:
3051: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDEFLAG',P_OVERRIDEFLAG);
3052: WSH_DEBUG_SV.log(l_module_name,'P_CALCWVIFFROZEN',P_CALCWVIFFROZEN);
3053: WSH_DEBUG_SV.log(l_module_name,'P_FILLPCFLAG',P_FILLPCFLAG);
3054: WSH_DEBUG_SV.log(l_module_name,'P_MASTERWEIGHTUOMCODE',P_MASTERWEIGHTUOMCODE);
3055: WSH_DEBUG_SV.log(l_module_name,'P_MASTERVOLUMEUOMCODE',P_MASTERVOLUMEUOMCODE);
3056: END IF;
3057: l_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3058:
3059: -- For parent container and all its immediate contents
3063: --{
3064: BEGIN
3065:
3066: IF l_debug_on THEN
3067: WSH_DEBUG_SV.logmsg(l_module_name,'Processing DD '||immediateChildren_rec.delivery_detail_id);
3068: END IF;
3069:
3070: -- Get the container info
3071: OPEN childInfo_cur ( immediateChildren_rec.delivery_detail_id );
3096: l_masterInvItemId := childInfo_rec.inventory_item_id;
3097:
3098: IF (childInfo_rec.wv_frozen_flag = 'Y' AND p_calcWVIfFrozen = 'N') THEN
3099: IF l_debug_on THEN
3100: WSH_DEBUG_SV.logmsg(l_module_name,'wv_frozen_flag is Y. Skipping the W/V calculation for this container');
3101: END IF;
3102: l_grossWeight := childInfo_rec.gross_weight;
3103: l_netWeight := childInfo_rec.net_weight;
3104: l_volume := childInfo_rec.volume;
3107: END IF;
3108:
3109: -- Get the shipping parameters of container organization
3110: IF l_debug_on THEN
3111: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
3112: END IF;
3113:
3114: WSH_SHIPPING_PARAMS_PVT.Get(
3115: p_organization_id => childInfo_rec.organization_id,
3117: x_return_status => l_return_status);
3118:
3119: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3120: IF l_debug_on THEN
3121: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
3122: END IF;
3123: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
3124: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
3125: wsh_util_core.get_org_name(childInfo_rec.organization_id));
3133: l_dd_netWt := l_dd_grossWt;
3134: l_dd_vol := childInfo_rec.unit_volume * childInfo_rec.qty;
3135:
3136: IF l_debug_on THEN
3137: 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);
3138: END IF;
3139:
3140: -- Convert the W/V if UOMs differ
3141: IF ((l_dd_vol > 0) AND (childInfo_rec.volume_uom_code <> l_masterVolumeUomCode)) THEN
3139:
3140: -- Convert the W/V if UOMs differ
3141: IF ((l_dd_vol > 0) AND (childInfo_rec.volume_uom_code <> l_masterVolumeUomCode)) THEN
3142: IF l_debug_on THEN
3143: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3144: END IF;
3145: l_line_volume := WSH_WV_UTILS.convert_uom(
3146: childInfo_rec.volume_uom_code,
3147: l_masterVolumeUomCode,
3156: END IF;
3157:
3158: IF ((l_dd_grossWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3159: IF l_debug_on THEN
3160: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3161: END IF;
3162: l_line_grossWeight := WSH_WV_UTILS.convert_uom(
3163: childInfo_rec.weight_uom_code,
3164: l_masterWeightUomCode,
3171: END IF;
3172:
3173: IF ((l_dd_netWt > 0) AND (childInfo_rec.weight_uom_code <> l_masterWeightUomCode)) THEN
3174: IF l_debug_on THEN
3175: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3176: END IF;
3177: l_line_netWeight := WSH_WV_UTILS.convert_uom(
3178: childInfo_rec.weight_uom_code,
3179: l_masterWeightUomCode,
3185: l_line_netWeight_orig := l_line_netWeight;
3186: END IF;
3187:
3188: IF l_debug_on THEN
3189: 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);
3190: 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);
3191: END IF;
3192:
3193: -- Raise warning if delivery detail has null W/V depending on percent_fill_basis_flag
3186: END IF;
3187:
3188: IF l_debug_on THEN
3189: 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);
3190: 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);
3191: END IF;
3192:
3193: -- Raise warning if delivery detail has null W/V depending on percent_fill_basis_flag
3194: IF (childInfo_rec.container_flag = 'N') THEN
3199: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
3200: l_num_warnings := l_num_warnings + 1;
3201:
3202: IF l_debug_on THEN
3203: WSH_DEBUG_SV.logmsg(l_module_name,'Raising WSH_NULL_WEIGHT_VOLUME Warning for Dd '||immediateChildren_rec.delivery_detail_id);
3204: END IF;
3205: END IF;
3206: END IF;
3207:
3239: l_line_contFillPc := NULL;
3240: --
3241: --
3242: IF l_debug_on THEN
3243: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Container_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
3244: END IF;
3245: Container_Weight_Volume
3246: (
3247: p_containerInstanceId => childInfo_rec.delivery_detail_id,
3287: (NOT (p_calcWVIfFrozen = 'N' and childInfo_rec.wv_frozen_flag = 'Y')) AND
3288: ((NVL(l_line_grossWeight_orig,-99) <> NVL(childInfo_rec.gross_weight,-99)) OR
3289: (NVL(l_line_volume_orig,-99) <> NVL(childInfo_rec.volume,-99)))) THEN
3290: IF l_debug_on THEN
3291: WSH_DEBUG_SV.logmsg(l_module_name,'Update W/V for DD '||childInfo_rec.delivery_detail_id);
3292: END IF;
3293: -- LPN CONV. rv
3294: -- no call reqd. because this update is for non-container lines
3295: UPDATE wsh_delivery_details
3317: l_details_marked.delete;
3318: l_details_marked(1) := childInfo_rec.delivery_detail_id;
3319:
3320: IF l_debug_on THEN
3321: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
3322: END IF;
3323:
3324: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3325: p_entity_type => 'DELIVERY_DETAIL',
3343: NVL(l_line_grossWeight_orig,-99) <>
3344: NVL(childInfo_rec.net_weight,-99)) THEN
3345: G_DELIVERY_TMS_IMPACT := 'Y';
3346: IF l_debug_on THEN
3347: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id', childInfo_rec.delivery_detail_id);
3348: WSH_DEBUG_SV.log(l_module_name,'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
3349: END IF;
3350: END IF;
3351: -- End of OTM R12 : packing ECO
3344: NVL(childInfo_rec.net_weight,-99)) THEN
3345: G_DELIVERY_TMS_IMPACT := 'Y';
3346: IF l_debug_on THEN
3347: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id', childInfo_rec.delivery_detail_id);
3348: WSH_DEBUG_SV.log(l_module_name,'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
3349: END IF;
3350: END IF;
3351: -- End of OTM R12 : packing ECO
3352: END IF;
3367: --}
3368: END IF;
3369:
3370: IF l_debug_on THEN
3371: WSH_DEBUG_SV.logmsg(l_module_name,'After this iteration LEVEL '||immediateChildren_rec.LEVEL||
3372: ' l_grossWeight '||l_grossWeight||' l_netWeight '||l_netWeight||
3373: ' l_volume '||l_volume||' l_filledVolume '||l_filledVolume);
3374: END IF;
3375: --
3383: IF l_volume = 0 THEN
3384: l_volume := l_filledVolume;
3385: END IF;
3386: IF l_debug_on THEN
3387: WSH_DEBUG_SV.logmsg(l_module_name,'After LOOP l_grossWeight '||l_grossWeight||' l_netWeight '||l_netWeight||
3388: ' l_volume '||l_volume||' l_filledVolume '||l_filledVolume);
3389: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_container_Wt_Vol',WSH_DEBUG_SV.C_PROC_LEVEL);
3390: END IF;
3391:
3385: END IF;
3386: IF l_debug_on THEN
3387: WSH_DEBUG_SV.logmsg(l_module_name,'After LOOP l_grossWeight '||l_grossWeight||' l_netWeight '||l_netWeight||
3388: ' l_volume '||l_volume||' l_filledVolume '||l_filledVolume);
3389: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Update_container_Wt_Vol',WSH_DEBUG_SV.C_PROC_LEVEL);
3390: END IF;
3391:
3392: -- IF p_overrideFlag is 'Y' then call update_container_wt_vol to update W/V
3393: IF (p_overrideFlag = 'Y') THEN
3416:
3417: <
3418:
3419: IF l_debug_on THEN
3420: WSH_DEBUG_SV.logmsg(l_module_name,'p_masterWeightUomCode '||p_masterWeightUomCode||' l_masterWeightUomCode '||l_masterWeightUomCode||' l_masterInvItemId '||l_masterInvItemId);
3421: END IF;
3422:
3423: -- Convert the calculated W/V to p_masterWeightUomCode,p_masterVolumeUomCode UOMs
3424: IF p_masterWeightUomCode <> l_masterWeightUomCode THEN
3422:
3423: -- Convert the calculated W/V to p_masterWeightUomCode,p_masterVolumeUomCode UOMs
3424: IF p_masterWeightUomCode <> l_masterWeightUomCode THEN
3425: IF l_debug_on THEN
3426: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3427: END IF;
3428: x_grossWeight := WSH_WV_UTILS.convert_uom(
3429: l_masterWeightUomCode,
3430: p_masterWeightUomCode,
3430: p_masterWeightUomCode,
3431: l_grossWeight,
3432: l_masterInvItemId);
3433: IF l_debug_on THEN
3434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3435: END IF;
3436: x_netWeight := WSH_WV_UTILS.convert_uom(
3437: l_masterWeightUomCode,
3438: p_masterWeightUomCode,
3444: END IF;
3445:
3446: IF p_masterVolumeUomCode <> l_masterVolumeUomCode THEN
3447: IF l_debug_on THEN
3448: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3449: END IF;
3450: x_volume := WSH_WV_UTILS.convert_uom(
3451: l_masterVolumeUomCode,
3452: p_masterVolumeUomCode,
3452: p_masterVolumeUomCode,
3453: l_volume,
3454: l_masterInvItemId);
3455: IF l_debug_on THEN
3456: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
3457: END IF;
3458: x_filledVolume := WSH_WV_UTILS.convert_uom(
3459: l_masterVolumeUomCode,
3460: p_masterVolumeUomCode,
3471: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3472: END IF;
3473:
3474: IF l_debug_on THEN
3475: WSH_DEBUG_SV.logmsg(l_module_name,'x_grossWeight '||x_grossWeight||' x_netWeight '||x_netWeight||
3476: ' x_volume '||x_volume||' x_filledVolume '||x_filledVolume||
3477: ' x_contFillPc '||x_contFillPc||' x_returnStatus '||x_returnStatus);
3478: END IF;
3479: --}
3477: ' x_contFillPc '||x_contFillPc||' x_returnStatus '||x_returnStatus);
3478: END IF;
3479: --}
3480: IF l_debug_on THEN
3481: WSH_DEBUG_SV.pop(l_module_name);
3482: END IF;
3483: --
3484: EXCEPTION
3485: WHEN mark_reprice_error then
3489: --
3490: -- Debug Statements
3491: --
3492: IF l_debug_on THEN
3493: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3494: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3495: END IF;
3496: --
3497: WHEN e_invalid_detail THEN
3490: -- Debug Statements
3491: --
3492: IF l_debug_on THEN
3493: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3494: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3495: END IF;
3496: --
3497: WHEN e_invalid_detail THEN
3498: x_returnStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
3500: --
3501: -- Debug Statements
3502: --
3503: IF l_debug_on THEN
3504: WSH_DEBUG_SV.logmsg(l_module_name,'E_INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3505: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_INVALID_DETAIL');
3506: END IF;
3507: --
3508: WHEN e_wt_vol_fail THEN
3501: -- Debug Statements
3502: --
3503: IF l_debug_on THEN
3504: WSH_DEBUG_SV.logmsg(l_module_name,'E_INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3505: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_INVALID_DETAIL');
3506: END IF;
3507: --
3508: WHEN e_wt_vol_fail THEN
3509: FND_MESSAGE.Set_Name('WSH','WSH_UPDATE_WTVOL_FAIL');
3513: --
3514: -- Debug Statements
3515: --
3516: IF l_debug_on THEN
3517: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
3519: END IF;
3520: --
3521: WHEN e_abort THEN
3514: -- Debug Statements
3515: --
3516: IF l_debug_on THEN
3517: WSH_DEBUG_SV.logmsg(l_module_name,'E_WT_VOL_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
3519: END IF;
3520: --
3521: WHEN e_abort THEN
3522: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3524: --
3525: -- Debug Statements
3526: --
3527: IF l_debug_on THEN
3528: WSH_DEBUG_SV.pop(l_module_name);
3529: END IF;
3530:
3531: WHEN Others THEN
3532: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3534: --
3535: -- Debug Statements
3536: --
3537: IF l_debug_on THEN
3538: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3540: END IF;
3541: --
3542: END Container_Weight_Volume;
3535: -- Debug Statements
3536: --
3537: IF l_debug_on THEN
3538: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3540: END IF;
3541: --
3542: END Container_Weight_Volume;
3543:
3595: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3596: --
3597: IF l_debug_on IS NULL
3598: THEN
3599: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3600: END IF;
3601: --
3602: IF l_debug_on THEN
3603: WSH_DEBUG_SV.push(l_module_name);
3599: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3600: END IF;
3601: --
3602: IF l_debug_on THEN
3603: WSH_DEBUG_SV.push(l_module_name);
3604: --
3605: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3606: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3607: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3601: --
3602: IF l_debug_on THEN
3603: WSH_DEBUG_SV.push(l_module_name);
3604: --
3605: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3606: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3607: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3608: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3609: END IF;
3602: IF l_debug_on THEN
3603: WSH_DEBUG_SV.push(l_module_name);
3604: --
3605: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3606: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3607: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3608: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3609: END IF;
3610: --
3603: WSH_DEBUG_SV.push(l_module_name);
3604: --
3605: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3606: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3607: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3608: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3609: END IF;
3610: --
3611: Container_Weight_Volume
3604: --
3605: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3606: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3607: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3608: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3609: END IF;
3610: --
3611: Container_Weight_Volume
3612: (
3631: --
3632: -- Debug Statements
3633: --
3634: IF l_debug_on THEN
3635: WSH_DEBUG_SV.pop(l_module_name);
3636: END IF;
3637: --
3638: END Container_Weight_Volume;
3639:
3701:
3702: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3703: IF l_debug_on IS NULL
3704: THEN
3705: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3706: END IF;
3707: IF l_debug_on THEN
3708: WSH_DEBUG_SV.push(l_module_name);
3709: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3704: THEN
3705: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3706: END IF;
3707: IF l_debug_on THEN
3708: WSH_DEBUG_SV.push(l_module_name);
3709: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3710: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3711: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3712: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
3705: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3706: END IF;
3707: IF l_debug_on THEN
3708: WSH_DEBUG_SV.push(l_module_name);
3709: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3710: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3711: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3712: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
3713: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3706: END IF;
3707: IF l_debug_on THEN
3708: WSH_DEBUG_SV.push(l_module_name);
3709: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3710: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3711: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3712: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
3713: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3714: END IF;
3707: IF l_debug_on THEN
3708: WSH_DEBUG_SV.push(l_module_name);
3709: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3710: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3711: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3712: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
3713: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3714: END IF;
3715: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3708: WSH_DEBUG_SV.push(l_module_name);
3709: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3710: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3711: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3712: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
3713: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3714: END IF;
3715: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3716:
3709: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3710: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3711: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_FLAG',P_FILL_PC_FLAG);
3712: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
3713: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3714: END IF;
3715: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3716:
3717: -- Get the container info
3736: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_INVALID_DETAIL');
3737: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_container_instance_id);
3738: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3739: IF l_debug_on THEN
3740: WSH_DEBUG_SV.pop(l_module_name);
3741: END IF;
3742: return;
3743: END;
3744:
3751: END IF;
3752: END IF;
3753:
3754: IF l_debug_on THEN
3755: 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);
3756: END IF;
3757:
3758: IF (P_CALC_WV_IF_FROZEN = 'N' AND l_frozen_flag = 'Y') THEN
3759: x_gross_weight := l_org_gross_wt;
3761: x_volume := l_org_vol;
3762: x_cont_fill_pc := l_org_fill_pc;
3763:
3764: IF l_debug_on THEN
3765: WSH_DEBUG_SV.log(l_module_name,'WV calculation not allowed on '||p_container_instance_id||'. Returning existing W/V');
3766: WSH_DEBUG_SV.pop(l_module_name);
3767: END IF;
3768: return;
3769: END IF;
3762: x_cont_fill_pc := l_org_fill_pc;
3763:
3764: IF l_debug_on THEN
3765: WSH_DEBUG_SV.log(l_module_name,'WV calculation not allowed on '||p_container_instance_id||'. Returning existing W/V');
3766: WSH_DEBUG_SV.pop(l_module_name);
3767: END IF;
3768: return;
3769: END IF;
3770:
3768: return;
3769: END IF;
3770:
3771: IF l_debug_on THEN
3772: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.container_weight_volume',WSH_DEBUG_SV.C_PROC_LEVEL);
3773: END IF;
3774:
3775: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume to calculate W/V
3776: WSH_TPA_CONTAINER_PKG.container_weight_volume (
3786:
3787: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3788: x_return_status := l_return_status;
3789: IF l_debug_on THEN
3790: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TPA_CONTAINER_PKG.container_weight_volume returned '||l_return_status);
3791: WSH_DEBUG_SV.pop(l_module_name);
3792: END IF;
3793: return;
3794: END IF;
3787: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3788: x_return_status := l_return_status;
3789: IF l_debug_on THEN
3790: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TPA_CONTAINER_PKG.container_weight_volume returned '||l_return_status);
3791: WSH_DEBUG_SV.pop(l_module_name);
3792: END IF;
3793: return;
3794: END IF;
3795:
3799: ( (NVL(x_gross_weight,0) <> NVL(l_org_gross_wt,0)) OR
3800: (NVL(x_net_weight,0) <> NVL(l_org_net_wt,0)) OR
3801: (NVL(x_volume,0) <> NVL(l_org_vol,0)))) THEN
3802: IF l_debug_on THEN
3803: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
3804: END IF;
3805:
3806: DD_WV_Post_Process(
3807: p_delivery_detail_id => p_container_instance_id,
3812:
3813: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3814: x_return_status := l_return_status;
3815: IF l_debug_on THEN
3816: WSH_DEBUG_SV.logmsg(l_module_name,'DD_WV_Post_Process returned '||l_return_status);
3817: WSH_DEBUG_SV.pop(l_module_name);
3818: END IF;
3819: return;
3820: END IF;
3813: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3814: x_return_status := l_return_status;
3815: IF l_debug_on THEN
3816: WSH_DEBUG_SV.logmsg(l_module_name,'DD_WV_Post_Process returned '||l_return_status);
3817: WSH_DEBUG_SV.pop(l_module_name);
3818: END IF;
3819: return;
3820: END IF;
3821: END IF;
3820: END IF;
3821: END IF;
3822:
3823: IF l_debug_on THEN
3824: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
3825: WSH_DEBUG_SV.pop(l_module_name);
3826: END IF;
3827:
3828: EXCEPTION
3821: END IF;
3822:
3823: IF l_debug_on THEN
3824: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
3825: WSH_DEBUG_SV.pop(l_module_name);
3826: END IF;
3827:
3828: EXCEPTION
3829: WHEN Others THEN
3830: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CONTAINER_WEIGHT_VOLUME');
3831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3832:
3833: IF l_debug_on THEN
3834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
3835: ;
3836: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3837: END IF;
3838:
3832:
3833: IF l_debug_on THEN
3834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL)
3835: ;
3836: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3837: END IF;
3838:
3839: END Container_Weight_Volume;
3840:
3914:
3915: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3916: IF l_debug_on IS NULL
3917: THEN
3918: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3919: END IF;
3920: IF l_debug_on THEN
3921: WSH_DEBUG_SV.push(l_module_name);
3922: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3917: THEN
3918: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3919: END IF;
3920: IF l_debug_on THEN
3921: WSH_DEBUG_SV.push(l_module_name);
3922: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3923: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3924: END IF;
3925:
3918: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3919: END IF;
3920: IF l_debug_on THEN
3921: WSH_DEBUG_SV.push(l_module_name);
3922: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3923: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3924: END IF;
3925:
3926: IF (p_detail_rows.count = 0) THEN
3919: END IF;
3920: IF l_debug_on THEN
3921: WSH_DEBUG_SV.push(l_module_name);
3922: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
3923: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
3924: END IF;
3925:
3926: IF (p_detail_rows.count = 0) THEN
3927: raise others;
3945: END IF;
3946: CLOSE c_get_delivery_info;
3947:
3948: IF l_debug_on THEN
3949: WSH_DEBUG_SV.log(l_module_name, 'G_RESET_WV', WSH_WV_UTILS.G_RESET_WV);
3950: WSH_DEBUG_SV.log(l_module_name,'l_delivery_id', l_delivery_id);
3951: END IF;
3952:
3953: -- need to check for update only if delivery is include for planning and
3946: CLOSE c_get_delivery_info;
3947:
3948: IF l_debug_on THEN
3949: WSH_DEBUG_SV.log(l_module_name, 'G_RESET_WV', WSH_WV_UTILS.G_RESET_WV);
3950: WSH_DEBUG_SV.log(l_module_name,'l_delivery_id', l_delivery_id);
3951: END IF;
3952:
3953: -- need to check for update only if delivery is include for planning and
3954: -- tms_interface_flag is in CP UP AW AR state, which will be set to UR
3968:
3969: IF l_flag in ('Y', 'C') THEN
3970:
3971: IF l_debug_on THEN
3972: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
3973: END IF;
3974: --
3975: Container_Weight_Volume (
3976: p_container_instance_id => p_detail_rows(i),
3986:
3987: ELSE
3988:
3989: IF l_debug_on THEN
3990: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
3991: END IF;
3992: --
3993: Detail_Weight_Volume(
3994: p_delivery_detail_id => p_detail_rows(i),
4018: l_count := l_count + 1;
4019: l_delivery_id_tab(l_count) := l_delivery_id;
4020: l_interface_flag_tab(l_count) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
4021: IF l_debug_on THEN
4022: WSH_DEBUG_SV.log(l_module_name, 'l_count', l_count);
4023: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(l_count));
4024: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(l_count));
4025: END IF;
4026: END IF;
4019: l_delivery_id_tab(l_count) := l_delivery_id;
4020: l_interface_flag_tab(l_count) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
4021: IF l_debug_on THEN
4022: WSH_DEBUG_SV.log(l_module_name, 'l_count', l_count);
4023: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(l_count));
4024: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(l_count));
4025: END IF;
4026: END IF;
4027:
4020: l_interface_flag_tab(l_count) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
4021: IF l_debug_on THEN
4022: WSH_DEBUG_SV.log(l_module_name, 'l_count', l_count);
4023: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(l_count));
4024: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(l_count));
4025: END IF;
4026: END IF;
4027:
4028: --resetting the flag back to default after done with current detail
4044: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
4045: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4046: x_return_status := l_return_status;
4047: IF l_debug_on THEN
4048: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
4049: WSH_DEBUG_SV.pop(l_module_name, 'UPDATE_TMS_INTERFACE_FLAG ERROR');
4050: END IF;
4051: RETURN;
4052: END IF;
4045: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4046: x_return_status := l_return_status;
4047: IF l_debug_on THEN
4048: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
4049: WSH_DEBUG_SV.pop(l_module_name, 'UPDATE_TMS_INTERFACE_FLAG ERROR');
4050: END IF;
4051: RETURN;
4052: END IF;
4053: END IF;
4075:
4076: END IF;
4077:
4078: IF l_debug_on THEN
4079: WSH_DEBUG_SV.pop(l_module_name);
4080: END IF;
4081:
4082: EXCEPTION
4083: WHEN others THEN
4089: wsh_util_core.default_handler ('WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME');
4090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4091:
4092: IF l_debug_on THEN
4093: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4095: END IF;
4096:
4097: END Detail_Weight_Volume;
4090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4091:
4092: IF l_debug_on THEN
4093: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4095: END IF;
4096:
4097: END Detail_Weight_Volume;
4098:
4181: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4182: --
4183: IF l_debug_on IS NULL
4184: THEN
4185: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4186: END IF;
4187: --
4188: IF l_debug_on THEN
4189: WSH_DEBUG_SV.push(l_module_name);
4185: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4186: END IF;
4187: --
4188: IF l_debug_on THEN
4189: WSH_DEBUG_SV.push(l_module_name);
4190: --
4191: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4192: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
4193: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4187: --
4188: IF l_debug_on THEN
4189: WSH_DEBUG_SV.push(l_module_name);
4190: --
4191: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4192: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
4193: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4194: END IF;
4195: --
4188: IF l_debug_on THEN
4189: WSH_DEBUG_SV.push(l_module_name);
4190: --
4191: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4192: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
4193: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4194: END IF;
4195: --
4196: OPEN Get_Cont_Info (p_container_instance_id);
4189: WSH_DEBUG_SV.push(l_module_name);
4190: --
4191: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4192: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
4193: WSH_DEBUG_SV.log(l_module_name,'P_FILL_PC_BASIS',P_FILL_PC_BASIS);
4194: END IF;
4195: --
4196: OPEN Get_Cont_Info (p_container_instance_id);
4197:
4219: --
4220: -- Debug Statements
4221: --
4222: IF l_debug_on THEN
4223: WSH_DEBUG_SV.pop(l_module_name);
4224: END IF;
4225: --
4226: return;
4227: END IF;
4228:
4229: CLOSE Get_Cont_Info;
4230:
4231: IF l_debug_on THEN
4232: WSH_DEBUG_SV.log(l_module_name,'Cont flag'||l_cont_flag);
4233: END IF;
4234: --
4235: -- Bug 3562797 jckwok
4236: -- Code to get fill percent basis moved up here because we want to check whether
4248: --
4249: -- Debug Statements
4250: --
4251: IF l_debug_on THEN
4252: WSH_DEBUG_SV.pop(l_module_name);
4253: END IF;
4254: --
4255: return;
4256: END IF;
4259: --
4260: -- Debug Statements
4261: --
4262: IF l_debug_on THEN
4263: WSH_DEBUG_SV.log(l_module_name,'fill pc basis',l_fill_pc_basis);
4264: END IF;
4265: --
4266: -- If the Shipping Parameter Fill Basis is set to None, then simply return sucess and log a message.
4267: --
4271: -- Debug Statements
4272: --
4273: IF l_debug_on THEN
4274: IF l_debug_on THEN
4275: WSH_DEBUG_SV.logmsg(l_module_name, 'Fill PC is not calculated because Fill Percent Basis flag is set to None');
4276: END IF;
4277: WSH_DEBUG_SV.pop(l_module_name);
4278: END IF;
4279: --
4273: IF l_debug_on THEN
4274: IF l_debug_on THEN
4275: WSH_DEBUG_SV.logmsg(l_module_name, 'Fill PC is not calculated because Fill Percent Basis flag is set to None');
4276: END IF;
4277: WSH_DEBUG_SV.pop(l_module_name);
4278: END IF;
4279: --
4280: return;
4281: END IF;
4286: --
4287: -- Debug Statements
4288: --
4289: IF l_debug_on THEN
4290: WSH_DEBUG_SV.pop(l_module_name);
4291: END IF;
4292: --
4293: return;
4294: END IF;
4293: return;
4294: END IF;
4295:
4296: IF l_debug_on THEN
4297: WSH_DEBUG_SV.log(l_module_name,'Cont item '||l_cont_item_id);
4298: END IF;
4299: /* wms change: Return Null if LPN is grouping */
4300: IF (l_cont_item_id IS NULL) THEN
4301: x_return_status := NULL;
4302: --
4303: -- Debug Statements
4304: --
4305: IF l_debug_on THEN
4306: WSH_DEBUG_SV.pop(l_module_name);
4307: END IF;
4308: --
4309: return;
4310: END IF;
4325: END IF;
4326: END IF;
4327:
4328: IF l_debug_on THEN
4329: WSH_DEBUG_SV.log(l_module_name,'Fill pc basis --'||l_fill_pc_basis);
4330: END IF;
4331:
4332: IF l_fill_pc_basis = 'W' THEN
4333: IF l_debug_on THEN
4330: END IF;
4331:
4332: IF l_fill_pc_basis = 'W' THEN
4333: IF l_debug_on THEN
4334: WSH_DEBUG_SV.log(l_module_name,'max load --'||l_cont_max_load);
4335: WSH_DEBUG_SV.log(l_module_name,'gross wt --'||l_cont_gross_wt);
4336: WSH_DEBUG_SV.log(l_module_name,'net wt --'||l_cont_net_wt);
4337: WSH_DEBUG_SV.log(l_module_name,'Unit wt --'||l_cont_unit_wt);
4338: END IF;
4331:
4332: IF l_fill_pc_basis = 'W' THEN
4333: IF l_debug_on THEN
4334: WSH_DEBUG_SV.log(l_module_name,'max load --'||l_cont_max_load);
4335: WSH_DEBUG_SV.log(l_module_name,'gross wt --'||l_cont_gross_wt);
4336: WSH_DEBUG_SV.log(l_module_name,'net wt --'||l_cont_net_wt);
4337: WSH_DEBUG_SV.log(l_module_name,'Unit wt --'||l_cont_unit_wt);
4338: END IF;
4339: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4332: IF l_fill_pc_basis = 'W' THEN
4333: IF l_debug_on THEN
4334: WSH_DEBUG_SV.log(l_module_name,'max load --'||l_cont_max_load);
4335: WSH_DEBUG_SV.log(l_module_name,'gross wt --'||l_cont_gross_wt);
4336: WSH_DEBUG_SV.log(l_module_name,'net wt --'||l_cont_net_wt);
4337: WSH_DEBUG_SV.log(l_module_name,'Unit wt --'||l_cont_unit_wt);
4338: END IF;
4339: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4340: ELSIF l_fill_pc_basis = 'V' THEN
4333: IF l_debug_on THEN
4334: WSH_DEBUG_SV.log(l_module_name,'max load --'||l_cont_max_load);
4335: WSH_DEBUG_SV.log(l_module_name,'gross wt --'||l_cont_gross_wt);
4336: WSH_DEBUG_SV.log(l_module_name,'net wt --'||l_cont_net_wt);
4337: WSH_DEBUG_SV.log(l_module_name,'Unit wt --'||l_cont_unit_wt);
4338: END IF;
4339: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4340: ELSIF l_fill_pc_basis = 'V' THEN
4341: IF l_debug_on THEN
4338: END IF;
4339: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4340: ELSIF l_fill_pc_basis = 'V' THEN
4341: IF l_debug_on THEN
4342: WSH_DEBUG_SV.log(l_module_name,'max vol --'||l_cont_max_vol);
4343: WSH_DEBUG_SV.log(l_module_name,'volume --'||l_cont_vol);
4344: END IF;
4345: l_cont_fill_pc := l_cont_vol/l_cont_max_vol;
4346: ELSIF l_fill_pc_basis = 'Q' THEN
4339: l_cont_fill_pc := (l_cont_gross_wt - l_cont_unit_wt)/l_cont_max_load;
4340: ELSIF l_fill_pc_basis = 'V' THEN
4341: IF l_debug_on THEN
4342: WSH_DEBUG_SV.log(l_module_name,'max vol --'||l_cont_max_vol);
4343: WSH_DEBUG_SV.log(l_module_name,'volume --'||l_cont_vol);
4344: END IF;
4345: l_cont_fill_pc := l_cont_vol/l_cont_max_vol;
4346: ELSIF l_fill_pc_basis = 'Q' THEN
4347:
4357: --
4358: -- Debug Statements
4359: --
4360: IF l_debug_on THEN
4361: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.ESTIMATE_DETAIL_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4362: END IF;
4363: --
4364: WSH_TPA_CONTAINER_PKG.Estimate_Detail_Containers (
4365: p_container_instance_id,
4374: --
4375: -- Debug Statements
4376: --
4377: IF l_debug_on THEN
4378: WSH_DEBUG_SV.pop(l_module_name);
4379: END IF;
4380: --
4381: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4382: return;
4395: --
4396: -- Debug Statements
4397: --
4398: IF l_debug_on THEN
4399: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.ESTIMATE_MASTER_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
4400: END IF;
4401: --
4402: WSH_TPA_CONTAINER_PKG.Estimate_Master_Containers (
4403: dlvb.delivery_detail_id,
4412: --
4413: -- Debug Statements
4414: --
4415: IF l_debug_on THEN
4416: WSH_DEBUG_SV.pop(l_module_name);
4417: END IF;
4418: --
4419: return;
4420: END IF;
4432: --
4433: -- Debug Statements
4434: --
4435: IF l_debug_on THEN
4436: WSH_DEBUG_SV.pop(l_module_name);
4437: END IF;
4438: --
4439: return;
4440:
4445: -- partially filled containers.
4446: x_fill_percent := ROUND((100*l_cont_fill_pc),6);
4447:
4448: IF l_debug_on THEN
4449: WSH_DEBUG_SV.log(l_module_name,'Fill pc--'||x_fill_percent);
4450: END IF;
4451: -- dbms_output.put_line('fill percent is ' || x_fill_percent);
4452:
4453: -- J: W/V Changes
4454: IF p_update_flag = 'Y' THEN
4455:
4456: -- K LPN CONV. rv
4457: IF l_debug_on THEN
4458: WSH_DEBUG_SV.log(l_module_name,'line direction', l_line_direction);
4459: WSH_DEBUG_SV.log(l_module_name,'Organization Id', l_organization_id);
4460: END IF;
4461: --
4462: l_wms_org := wsh_util_validate.check_wms_org(l_organization_id);
4455:
4456: -- K LPN CONV. rv
4457: IF l_debug_on THEN
4458: WSH_DEBUG_SV.log(l_module_name,'line direction', l_line_direction);
4459: WSH_DEBUG_SV.log(l_module_name,'Organization Id', l_organization_id);
4460: END IF;
4461: --
4462: l_wms_org := wsh_util_validate.check_wms_org(l_organization_id);
4463: --
4477: --
4478: -- Debug Statements
4479: --
4480: IF l_debug_on THEN
4481: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
4482: END IF;
4483: --
4484: WSH_WMS_SYNC_TMP_PKG.MERGE
4485: (
4487: x_return_status => l_return_status
4488: );
4489:
4490: IF l_debug_on THEN
4491: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_WMS_SYNC_TMP_PKG.MERGE',l_return_status);
4492: END IF;
4493: --
4494: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4495: --
4495: --
4496: x_return_status := l_return_status;
4497: --
4498: IF l_debug_on THEN
4499: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
4500: WSH_DEBUG_SV.pop(l_module_name);
4501: END IF;
4502: --
4503: RETURN;
4496: x_return_status := l_return_status;
4497: --
4498: IF l_debug_on THEN
4499: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE completed with an error');
4500: WSH_DEBUG_SV.pop(l_module_name);
4501: END IF;
4502: --
4503: RETURN;
4504: --
4521: --
4522: -- Debug Statements
4523: --
4524: IF l_debug_on THEN
4525: WSH_DEBUG_SV.pop(l_module_name);
4526: END IF;
4527: --
4528: return;
4529: END IF;
4544: --
4545: -- Debug Statements
4546: --
4547: IF l_debug_on THEN
4548: WSH_DEBUG_SV.pop(l_module_name);
4549: END IF;
4550: --
4551: EXCEPTION
4552: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4552: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4553: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4554: --
4555: IF l_debug_on THEN
4556: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4558: END IF;
4559: --
4560: WHEN Others THEN
4553: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4554: --
4555: IF l_debug_on THEN
4556: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4558: END IF;
4559: --
4560: WHEN Others THEN
4561: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.CALC_CONT_FILL_PC');
4564: --
4565: -- Debug Statements
4566: --
4567: IF l_debug_on THEN
4568: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4569: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4570: END IF;
4571: --
4572: END Calc_Cont_Fill_Pc;
4565: -- Debug Statements
4566: --
4567: IF l_debug_on THEN
4568: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4569: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4570: END IF;
4571: --
4572: END Calc_Cont_Fill_Pc;
4573:
4612: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4613: --
4614: IF l_debug_on IS NULL
4615: THEN
4616: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4617: END IF;
4618: --
4619: IF l_debug_on THEN
4620: WSH_DEBUG_SV.push(l_module_name);
4616: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4617: END IF;
4618: --
4619: IF l_debug_on THEN
4620: WSH_DEBUG_SV.push(l_module_name);
4621: --
4622: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4623: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4624: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4618: --
4619: IF l_debug_on THEN
4620: WSH_DEBUG_SV.push(l_module_name);
4621: --
4622: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4623: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4624: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4625: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4626: END IF;
4619: IF l_debug_on THEN
4620: WSH_DEBUG_SV.push(l_module_name);
4621: --
4622: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4623: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4624: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4625: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4626: END IF;
4627: --
4620: WSH_DEBUG_SV.push(l_module_name);
4621: --
4622: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4623: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4624: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4625: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4626: END IF;
4627: --
4628: IF p_container_instance_id IS NOT NULL THEN
4621: --
4622: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4623: WSH_DEBUG_SV.log(l_module_name,'P_CONT_ITEM_ID',P_CONT_ITEM_ID);
4624: WSH_DEBUG_SV.log(l_module_name,'P_WT_UOM',P_WT_UOM);
4625: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4626: END IF;
4627: --
4628: IF p_container_instance_id IS NOT NULL THEN
4629:
4638: --
4639: -- Debug Statements
4640: --
4641: IF l_debug_on THEN
4642: WSH_DEBUG_SV.pop(l_module_name);
4643: END IF;
4644: --
4645: return;
4646: END IF;
4654: --
4655: -- Debug Statements
4656: --
4657: IF l_debug_on THEN
4658: WSH_DEBUG_SV.pop(l_module_name);
4659: END IF;
4660: --
4661: return;
4662:
4673: --
4674: -- Debug Statements
4675: --
4676: IF l_debug_on THEN
4677: WSH_DEBUG_SV.pop(l_module_name);
4678: END IF;
4679: --
4680: return;
4681: END IF;
4685: --
4686: -- Debug Statements
4687: --
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
4690: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4691: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4692: END IF;
4693: --
4686: -- Debug Statements
4687: --
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
4690: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4691: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4692: END IF;
4693: --
4694: x_cont_tare_wt := WSH_WV_UTILS.Convert_Uom(l_wt_uom, nvl(p_wt_uom,l_cont_wt_uom),l_cont_unit_wt,nvl(p_cont_item_id, l_cont_item_id));
4687: --
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
4690: WSH_DEBUG_SV.log(l_module_name,'wt uom'||l_wt_uom);
4691: WSH_DEBUG_SV.log(l_module_name,'cont unit wt'||l_cont_unit_wt);
4692: END IF;
4693: --
4694: x_cont_tare_wt := WSH_WV_UTILS.Convert_Uom(l_wt_uom, nvl(p_wt_uom,l_cont_wt_uom),l_cont_unit_wt,nvl(p_cont_item_id, l_cont_item_id));
4695:
4699: --
4700: -- Debug Statements
4701: --
4702: IF l_debug_on THEN
4703: WSH_DEBUG_SV.pop(l_module_name);
4704: END IF;
4705: --
4706: EXCEPTION
4707:
4712: --
4713: -- Debug Statements
4714: --
4715: IF l_debug_on THEN
4716: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4717: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4718: END IF;
4719: --
4720: END Container_Tare_Weight_Self;
4713: -- Debug Statements
4714: --
4715: IF l_debug_on THEN
4716: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4717: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4718: END IF;
4719: --
4720: END Container_Tare_Weight_Self;
4721:
4770: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4771: --
4772: IF l_debug_on IS NULL
4773: THEN
4774: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4775: END IF;
4776: --
4777: IF l_debug_on THEN
4778: WSH_DEBUG_SV.push(l_module_name);
4774: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4775: END IF;
4776: --
4777: IF l_debug_on THEN
4778: WSH_DEBUG_SV.push(l_module_name);
4779: --
4780: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4781: END IF;
4782: --
4776: --
4777: IF l_debug_on THEN
4778: WSH_DEBUG_SV.push(l_module_name);
4779: --
4780: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
4781: END IF;
4782: --
4783: IF p_container_instance_id IS NOT NULL
4784: THEN
4799: --
4800: -- Debug Statements
4801: --
4802: IF l_debug_on THEN
4803: WSH_DEBUG_SV.pop(l_module_name);
4804: END IF;
4805: --
4806: return;
4807: END IF;
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;
4831: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
4832: wsh_util_core.get_org_name(l_organization_id));
4833: wsh_util_core.add_message(x_return_status,l_module_name);
4834: IF l_debug_on THEN
4835: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||x_return_status);
4836: WSH_DEBUG_SV.pop(l_module_name);
4837: END IF;
4838: return;
4839: END IF;
4832: wsh_util_core.get_org_name(l_organization_id));
4833: wsh_util_core.add_message(x_return_status,l_module_name);
4834: IF l_debug_on THEN
4835: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||x_return_status);
4836: WSH_DEBUG_SV.pop(l_module_name);
4837: END IF;
4838: return;
4839: END IF;
4840:
4841: --
4842: -- Debug Statements
4843: --
4844: IF l_debug_on THEN
4845: WSH_DEBUG_SV.log(l_module_name,'fill pc basis', l_param_info.percent_fill_basis_flag);
4846: END IF;
4847: --
4848: -- If the Shipping Parameter Fill Basis is set to None, then simply return success and log a message.
4849: --
4853: --
4854: -- Debug Statements
4855: --
4856: IF l_debug_on THEN
4857: WSH_DEBUG_SV.pop(l_module_name);
4858: END IF;
4859: --
4860: return;
4861: END IF;
4881: --
4882: -- Debug Statements
4883: --
4884: IF l_debug_on THEN
4885: WSH_DEBUG_SV.pop(l_module_name);
4886: END IF;
4887: --
4888: EXCEPTION
4889: WHEN Others THEN
4893: --
4894: -- Debug Statements
4895: --
4896: IF l_debug_on THEN
4897: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4898: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4899: END IF;
4900: --
4901: END Check_Fill_Pc;
4894: -- Debug Statements
4895: --
4896: IF l_debug_on THEN
4897: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4898: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4899: END IF;
4900: --
4901: END Check_Fill_Pc;
4902:
5086: BEGIN
5087:
5088: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5089: IF l_debug_on IS NULL THEN
5090: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5091: END IF;
5092:
5093: IF l_debug_on THEN
5094: WSH_DEBUG_SV.push(l_module_name);
5090: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5091: END IF;
5092:
5093: IF l_debug_on THEN
5094: WSH_DEBUG_SV.push(l_module_name);
5095: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5096: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5097: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5098: END IF;
5091: END IF;
5092:
5093: IF l_debug_on THEN
5094: WSH_DEBUG_SV.push(l_module_name);
5095: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5096: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5097: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5098: END IF;
5099: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5092:
5093: IF l_debug_on THEN
5094: WSH_DEBUG_SV.push(l_module_name);
5095: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5096: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5097: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5098: END IF;
5099: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5100:
5093: IF l_debug_on THEN
5094: WSH_DEBUG_SV.push(l_module_name);
5095: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5096: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5097: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5098: END IF;
5099: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5100:
5101: -- Get the delivery info
5116: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DELIVERY');
5117: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
5118: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
5119: IF l_debug_on THEN
5120: WSH_DEBUG_SV.log(l_module_name,'Delivery '||p_delivery_id||' not found');
5121: WSH_DEBUG_SV.pop(l_module_name);
5122: END IF;
5123: RETURN;
5124: END IF;
5117: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
5118: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
5119: IF l_debug_on THEN
5120: WSH_DEBUG_SV.log(l_module_name,'Delivery '||p_delivery_id||' not found');
5121: WSH_DEBUG_SV.pop(l_module_name);
5122: END IF;
5123: RETURN;
5124: END IF;
5125: CLOSE del_uoms;
5124: END IF;
5125: CLOSE del_uoms;
5126:
5127: IF l_debug_on THEN
5128: 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);
5129: WSH_DEBUG_SV.log(l_module_name,'Org '||l_organization_id||' Wt Code '||l_weight_uom_code||' Vol Code '||l_volume_uom_code);
5130: WSH_DEBUG_SV.log(l_module_name, 'Ignore_for_planning '||l_ignore_for_planning);
5131: WSH_DEBUG_SV.log(l_module_name, 'tms_interface_flag '||l_tms_interface_flag);
5132: END IF;
5125: CLOSE del_uoms;
5126:
5127: IF l_debug_on THEN
5128: 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);
5129: WSH_DEBUG_SV.log(l_module_name,'Org '||l_organization_id||' Wt Code '||l_weight_uom_code||' Vol Code '||l_volume_uom_code);
5130: WSH_DEBUG_SV.log(l_module_name, 'Ignore_for_planning '||l_ignore_for_planning);
5131: WSH_DEBUG_SV.log(l_module_name, 'tms_interface_flag '||l_tms_interface_flag);
5132: END IF;
5133:
5126:
5127: IF l_debug_on THEN
5128: 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);
5129: WSH_DEBUG_SV.log(l_module_name,'Org '||l_organization_id||' Wt Code '||l_weight_uom_code||' Vol Code '||l_volume_uom_code);
5130: WSH_DEBUG_SV.log(l_module_name, 'Ignore_for_planning '||l_ignore_for_planning);
5131: WSH_DEBUG_SV.log(l_module_name, 'tms_interface_flag '||l_tms_interface_flag);
5132: END IF;
5133:
5134: IF p_calc_wv_if_frozen = 'N' AND l_wv_frozen_flag = 'Y' THEN
5127: IF l_debug_on THEN
5128: 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);
5129: WSH_DEBUG_SV.log(l_module_name,'Org '||l_organization_id||' Wt Code '||l_weight_uom_code||' Vol Code '||l_volume_uom_code);
5130: WSH_DEBUG_SV.log(l_module_name, 'Ignore_for_planning '||l_ignore_for_planning);
5131: WSH_DEBUG_SV.log(l_module_name, 'tms_interface_flag '||l_tms_interface_flag);
5132: END IF;
5133:
5134: IF p_calc_wv_if_frozen = 'N' AND l_wv_frozen_flag = 'Y' THEN
5135: x_gross_weight := l_del_gross_wt;
5135: x_gross_weight := l_del_gross_wt;
5136: x_net_weight := l_del_net_wt;
5137: x_volume := l_del_vol;
5138: IF l_debug_on THEN
5139: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery W/V is frozen. Returning');
5140: WSH_DEBUG_SV.pop(l_module_name);
5141: END IF;
5142: RETURN;
5143: END IF;
5136: x_net_weight := l_del_net_wt;
5137: x_volume := l_del_vol;
5138: IF l_debug_on THEN
5139: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery W/V is frozen. Returning');
5140: WSH_DEBUG_SV.pop(l_module_name);
5141: END IF;
5142: RETURN;
5143: END IF;
5144:
5143: END IF;
5144:
5145: -- Get the Shipping parameters of DD's organization
5146: IF l_debug_on THEN
5147: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
5148: END IF;
5149:
5150: WSH_SHIPPING_PARAMS_PVT.Get(
5151: p_organization_id => l_organization_id,
5153: x_return_status => l_return_status);
5154:
5155: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5156: IF l_debug_on THEN
5157: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
5158: END IF;
5159: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
5160: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5161: wsh_util_core.get_org_name(l_organization_id));
5181: G_DELIVERY_TMS_IMPACT := 'N';
5182: END IF;
5183:
5184: IF l_debug_on THEN
5185: WSH_DEBUG_SV.log(l_module_name, 'G_DELIVERY_TMS_IMPACT', G_DELIVERY_TMS_IMPACT);
5186: END IF;
5187: -- End of OTM R12 : packing ECO
5188:
5189:
5198: l_net_weight := NULL;
5199: l_volume := NULL;
5200:
5201: IF l_debug_on THEN
5202: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Delivery '||del.del_id);
5203: END IF;
5204:
5205: -- Call Delivery WV API to calculate delivery W/V
5206: IF l_debug_on THEN
5203: END IF;
5204:
5205: -- Call Delivery WV API to calculate delivery W/V
5206: IF l_debug_on THEN
5207: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5208: END IF;
5209:
5210: Delivery_Weight_Volume(
5211: p_delivery_id => del.del_id,
5218:
5219:
5220: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5221: IF l_debug_on THEN
5222: WSH_DEBUG_SV.pop(l_module_name);
5223: END IF;
5224: RETURN;
5225: END IF;
5226:
5228: -- Convert the W/V if UOMs differ and then accumulate W/V
5229: IF (del.wt_uom <> l_weight_uom_code) THEN
5230: IF (l_gross_weight > 0) THEN
5231: IF l_debug_on THEN
5232: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5233: END IF;
5234: child_del_gross_weight := NVL(child_del_gross_weight,0) +
5235: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_gross_weight);
5236: ELSIF (l_gross_weight = 0) THEN
5234: child_del_gross_weight := NVL(child_del_gross_weight,0) +
5235: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_gross_weight);
5236: ELSIF (l_gross_weight = 0) THEN
5237: IF l_debug_on THEN
5238: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_gross_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5239: END IF;
5240: child_del_gross_weight := NVL(child_del_gross_weight,0) + l_gross_weight;
5241: END IF;
5242:
5241: END IF;
5242:
5243: IF (l_net_weight > 0) THEN
5244: IF l_debug_on THEN
5245: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5246: END IF;
5247: child_del_net_weight := NVL(child_del_net_weight,0) +
5248: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_net_weight);
5249: ELSIF (l_net_weight = 0) THEN
5247: child_del_net_weight := NVL(child_del_net_weight,0) +
5248: WSH_WV_UTILS.convert_uom(del.wt_uom, l_weight_uom_code, l_net_weight);
5249: ELSIF (l_net_weight = 0) THEN
5250: IF l_debug_on THEN
5251: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_net_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5252: END IF;
5253: child_del_net_weight := NVL(child_del_net_weight,0) + l_net_weight;
5254: END IF;
5255: ELSE
5263:
5264: IF (del.vol_uom <> l_volume_uom_code) THEN
5265: IF (l_volume > 0) THEN
5266: IF l_debug_on THEN
5267: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5268: END IF;
5269: child_del_volume := NVL(child_del_volume,0) +
5270: WSH_WV_UTILS.convert_uom(del.vol_uom, l_volume_uom_code, l_volume);
5271: ELSIF (l_volume = 0) THEN
5269: child_del_volume := NVL(child_del_volume,0) +
5270: WSH_WV_UTILS.convert_uom(del.vol_uom, l_volume_uom_code, l_volume);
5271: ELSIF (l_volume = 0) THEN
5272: IF l_debug_on THEN
5273: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5274: END IF;
5275: child_del_volume := NVL(child_del_volume,0) + l_volume;
5276: END IF;
5277: ELSE
5280: END IF;
5281: END IF;
5282:
5283: IF l_debug_on THEN
5284: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5285: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5286: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5287: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5288: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5281: END IF;
5282:
5283: IF l_debug_on THEN
5284: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5285: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5286: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5287: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5288: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5289: END IF;
5282:
5283: IF l_debug_on THEN
5284: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5285: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5286: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5287: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5288: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5289: END IF;
5290: END LOOP;
5283: IF l_debug_on THEN
5284: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5285: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5286: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5287: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5288: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5289: END IF;
5290: END LOOP;
5291:
5284: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5285: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5286: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5287: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5288: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5289: END IF;
5290: END LOOP;
5291:
5292: IF l_debug_on THEN
5289: END IF;
5290: END LOOP;
5291:
5292: IF l_debug_on THEN
5293: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5294: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5295: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5296: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5297: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5290: END LOOP;
5291:
5292: IF l_debug_on THEN
5293: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5294: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5295: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5296: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5297: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5291:
5292: IF l_debug_on THEN
5293: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5294: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5295: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5296: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5297: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5299: END IF;
5292: IF l_debug_on THEN
5293: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5294: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5295: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5296: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5297: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5299: END IF;
5300:
5293: WSH_DEBUG_SV.log(l_module_name,'after loop for child dels');
5294: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5295: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5296: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5297: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5299: END IF;
5300:
5301:
5294: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5295: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5296: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5297: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5298: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5299: END IF;
5300:
5301:
5302: -- K: MDC: We need to calculate the empty tare weight of the consol LPNs.
5314: l_cont_net_weight := NULL;
5315: l_cont_volume := NULL;
5316:
5317: IF l_debug_on THEN
5318: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Cont '||lpn.delivery_detail_id);
5319: END IF;
5320:
5321: /**
5322: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume API to calculate Container W/V
5320:
5321: /**
5322: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume API to calculate Container W/V
5323: IF l_debug_on THEN
5324: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5325: END IF;
5326: Container_Weight_Volume (
5327: p_container_instance_id => lpn.delivery_detail_id,
5328: p_override_flag => p_update_flag,
5336: x_return_status => x_return_status);
5337:
5338: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5339: IF l_debug_on THEN
5340: WSH_DEBUG_SV.pop(l_module_name);
5341: END IF;
5342: RETURN;
5343: END IF;
5344: **/
5350: -- Convert the W/V if UOMs differ and then accumulate W/V
5351: IF (lpn.wt_uom <> l_weight_uom_code) THEN
5352: IF (l_cont_gross_weight > 0) THEN
5353: IF l_debug_on THEN
5354: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5355: END IF;
5356: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) +
5357: WSH_WV_UTILS.convert_uom(lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, lpn.inventory_item_id);
5358: ELSIF (l_cont_gross_weight = 0) THEN
5356: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) +
5357: WSH_WV_UTILS.convert_uom(lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, lpn.inventory_item_id);
5358: ELSIF (l_cont_gross_weight = 0) THEN
5359: IF l_debug_on THEN
5360: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_gross_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5361: END IF;
5362: consol_lpn_net_weight := NVL(consol_lpn_net_weight,0) + l_cont_gross_weight;
5363: END IF;
5364: ELSE
5367: END IF;
5368: END IF;
5369:
5370: IF l_debug_on THEN
5371: WSH_DEBUG_SV.logmsg(l_module_name,'Accumulated Net '||consol_lpn_net_weight);
5372: END IF;
5373:
5374: END LOOP;
5375:
5375:
5376: -- MDC: Get the total gross weight of the consol LPN, calculate its empty tare weight
5377:
5378: IF l_debug_on THEN
5379: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5380: END IF;
5381:
5382: l_cont_gross_weight := NULL;
5383: l_cont_net_weight := NULL;
5396: x_return_status => x_return_status);
5397:
5398: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5399: IF l_debug_on THEN
5400: WSH_DEBUG_SV.pop(l_module_name);
5401: END IF;
5402: RETURN;
5403: END IF;
5404:
5403: END IF;
5404:
5405: IF (consol_lpn.wt_uom <> l_weight_uom_code) THEN
5406: IF l_debug_on THEN
5407: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5408: END IF;
5409: IF (l_cont_gross_weight > 0) THEN
5410: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0) +
5411: WSH_WV_UTILS.convert_uom(consol_lpn.wt_uom, l_weight_uom_code, l_cont_gross_weight, consol_lpn.inventory_item_id);
5417: consol_lpn_gross_weight := NVL(consol_lpn_gross_weight,0) + l_cont_gross_weight;
5418: END IF;
5419: END IF;
5420: IF l_debug_on THEN
5421: WSH_DEBUG_SV.logmsg(l_module_name,'Accumulated Gross '||consol_lpn_gross_weight);
5422: END IF;
5423:
5424: consol_lpn_tare_weight := consol_lpn_tare_weight + (consol_lpn_gross_weight - consol_lpn_net_weight);
5425:
5425:
5426: IF (consol_lpn.vol_uom <> l_volume_uom_code) THEN
5427: IF (l_cont_volume > 0) THEN
5428: IF l_debug_on THEN
5429: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5430: END IF;
5431: consol_lpn_volume := NVL(consol_lpn_volume,0) +
5432: WSH_WV_UTILS.convert_uom(consol_lpn.vol_uom, l_volume_uom_code, l_cont_volume);
5433: ELSIF (consol_lpn.vol = 0) THEN
5431: consol_lpn_volume := NVL(consol_lpn_volume,0) +
5432: WSH_WV_UTILS.convert_uom(consol_lpn.vol_uom, l_volume_uom_code, l_cont_volume);
5433: ELSIF (consol_lpn.vol = 0) THEN
5434: IF l_debug_on THEN
5435: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5436: END IF;
5437: consol_lpn_volume := NVL(consol_lpn_volume,0);
5438: END IF;
5439: ELSE
5442: END IF;
5443: END IF;
5444:
5445: IF l_debug_on THEN
5446: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5447: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5448: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5449: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5450: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5443: END IF;
5444:
5445: IF l_debug_on THEN
5446: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5447: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5448: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5449: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5450: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5451: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5444:
5445: IF l_debug_on THEN
5446: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5447: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5448: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5449: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5450: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5451: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5452: END IF;
5445: IF l_debug_on THEN
5446: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5447: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5448: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5449: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5450: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5451: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5452: END IF;
5453:
5446: WSH_DEBUG_SV.log(l_module_name,'inside consol lpn loop');
5447: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5448: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5449: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5450: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5451: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5452: END IF;
5453:
5454: END LOOP;
5447: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5448: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5449: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5450: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5451: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5452: END IF;
5453:
5454: END LOOP;
5455:
5456: -- Since the sum net weights of the child deliveries would already include the
5457: -- net weights of the consol LPNs we need to add up only the tare weight of the
5458: -- consol LPN to the gross weight of the consol delivery.
5459: IF l_debug_on THEN
5460: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5464: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5457: -- net weights of the consol LPNs we need to add up only the tare weight of the
5458: -- consol LPN to the gross weight of the consol delivery.
5459: IF l_debug_on THEN
5460: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5464: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5465: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5458: -- consol LPN to the gross weight of the consol delivery.
5459: IF l_debug_on THEN
5460: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5464: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5465: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5466: END IF;
5459: IF l_debug_on THEN
5460: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5464: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5465: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5466: END IF;
5467:
5460: WSH_DEBUG_SV.log(l_module_name,'after consol lpn loop');
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5464: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5465: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5466: END IF;
5467:
5468: x_net_weight := child_del_net_weight;
5461: WSH_DEBUG_SV.log(l_module_name,'child_del_net_weight',child_del_net_weight);
5462: WSH_DEBUG_SV.log(l_module_name,'child_del_gross_weight',child_del_gross_weight);
5463: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_tare_weight',consol_lpn_tare_weight);
5464: WSH_DEBUG_SV.log(l_module_name,'consol_lpn_volume',consol_lpn_volume);
5465: WSH_DEBUG_SV.log(l_module_name,'child_del_volume',child_del_volume);
5466: END IF;
5467:
5468: x_net_weight := child_del_net_weight;
5469: x_gross_weight := child_del_gross_weight + NVL(consol_lpn_tare_weight, 0);
5468: x_net_weight := child_del_net_weight;
5469: x_gross_weight := child_del_gross_weight + NVL(consol_lpn_tare_weight, 0);
5470: x_volume := NVL(consol_lpn_volume,child_del_volume);
5471: IF l_debug_on THEN
5472: 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);
5473: WSH_DEBUG_SV.logmsg(l_module_name,'calculated wt/vol for consol delivery');
5474: END IF;
5475:
5476: ELSE -- IF l_delivery_type = 'STANDARD' THEN
5469: x_gross_weight := child_del_gross_weight + NVL(consol_lpn_tare_weight, 0);
5470: x_volume := NVL(consol_lpn_volume,child_del_volume);
5471: IF l_debug_on THEN
5472: 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);
5473: WSH_DEBUG_SV.logmsg(l_module_name,'calculated wt/vol for consol delivery');
5474: END IF;
5475:
5476: ELSE -- IF l_delivery_type = 'STANDARD' THEN
5477:
5482: l_net_weight := NULL;
5483: l_volume := NULL;
5484:
5485: IF l_debug_on THEN
5486: WSH_DEBUG_SV.logmsg(l_module_name,'Processing DD '||dt.dd_id);
5487: END IF;
5488:
5489: -- Call detail_weight_volume API to calculate detail W/V
5490: IF l_debug_on THEN
5487: END IF;
5488:
5489: -- Call detail_weight_volume API to calculate detail W/V
5490: IF l_debug_on THEN
5491: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5492: END IF;
5493:
5494: WSH_WV_UTILS.detail_weight_volume(
5495: p_delivery_detail_id => dt.dd_id,
5500: x_return_status => x_return_status);
5501:
5502: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5503: IF l_debug_on THEN
5504: WSH_DEBUG_SV.pop(l_module_name);
5505: END IF;
5506: RETURN;
5507: END IF;
5508: l_gross_weight := l_net_weight;
5519: -- Convert the W/V if UOMs differ and then accumulate W/V
5520: IF (dt.wt_uom <> l_weight_uom_code) THEN
5521: IF (l_gross_weight > 0) THEN
5522: IF l_debug_on THEN
5523: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5524: END IF;
5525: loose_gross_weight := NVL(loose_gross_weight,0) +
5526: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_gross_weight, dt.inventory_item_id);
5527: ELSIF (l_gross_weight = 0) THEN
5525: loose_gross_weight := NVL(loose_gross_weight,0) +
5526: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_gross_weight, dt.inventory_item_id);
5527: ELSIF (l_gross_weight = 0) THEN
5528: IF l_debug_on THEN
5529: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_gross_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5530: END IF;
5531: loose_gross_weight := NVL(loose_gross_weight,0) + l_gross_weight;
5532: END IF;
5533:
5532: END IF;
5533:
5534: IF (l_net_weight > 0) THEN
5535: IF l_debug_on THEN
5536: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5537: END IF;
5538: loose_net_weight := NVL(loose_net_weight,0) +
5539: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_net_weight, dt.inventory_item_id);
5540: ELSIF (l_net_weight = 0) THEN
5538: loose_net_weight := NVL(loose_net_weight,0) +
5539: WSH_WV_UTILS.convert_uom(dt.wt_uom, l_weight_uom_code, l_net_weight, dt.inventory_item_id);
5540: ELSIF (l_net_weight = 0) THEN
5541: IF l_debug_on THEN
5542: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_net_wt=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5543: END IF;
5544: loose_net_weight := NVL(loose_net_weight,0) + l_net_weight;
5545: END IF;
5546: ELSE
5554:
5555: IF (dt.vol_uom <> l_volume_uom_code) THEN
5556: IF (l_volume > 0) THEN
5557: IF l_debug_on THEN
5558: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5559: END IF;
5560: loose_volume := NVL(loose_volume,0) +
5561: WSH_WV_UTILS.convert_uom(dt.vol_uom, l_volume_uom_code, l_volume, dt.inventory_item_id);
5562: ELSIF (l_volume = 0) THEN
5560: loose_volume := NVL(loose_volume,0) +
5561: WSH_WV_UTILS.convert_uom(dt.vol_uom, l_volume_uom_code, l_volume, dt.inventory_item_id);
5562: ELSIF (l_volume = 0) THEN
5563: IF l_debug_on THEN
5564: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5565: END IF;
5566: loose_volume := NVL(loose_volume,0) + l_volume;
5567: END IF;
5568: ELSE
5571: END IF;
5572: END IF;
5573:
5574: IF l_debug_on THEN
5575: WSH_DEBUG_SV.logmsg(l_module_name,'Accumulated Gross '||loose_gross_weight||' Net '||loose_net_weight||' Vol '||loose_volume);
5576: END IF;
5577: END LOOP;
5578:
5579: x_net_weight := loose_net_weight;
5579: x_net_weight := loose_net_weight;
5580: x_gross_weight := loose_gross_weight;
5581: x_volume := loose_volume;
5582: IF l_debug_on THEN
5583: WSH_DEBUG_SV.logmsg(l_module_name,'After accumulating all loose items: Gross '||loose_gross_weight||' Net '||loose_net_weight||' Vol '||loose_volume);
5584: END IF;
5585:
5586: -- For all containers in delivery
5587: FOR wci IN del_containers LOOP
5590: l_cont_net_weight := NULL;
5591: l_cont_volume := NULL;
5592:
5593: IF l_debug_on THEN
5594: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Cont '||wci.c_id);
5595: END IF;
5596:
5597: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume API to calculate Container W/V
5598: IF l_debug_on THEN
5595: END IF;
5596:
5597: -- Call WSH_TPA_CONTAINER_PKG.container_weight_volume API to calculate Container W/V
5598: IF l_debug_on THEN
5599: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CONTAINER_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
5600: END IF;
5601:
5602: Container_Weight_Volume (
5603: p_container_instance_id => wci.c_id,
5612: x_return_status => x_return_status);
5613:
5614: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5615: IF l_debug_on THEN
5616: WSH_DEBUG_SV.pop(l_module_name);
5617: END IF;
5618: RETURN;
5619: END IF;
5620:
5621: -- Convert the W/V if UOMs differ and then accumulate W/V
5622: IF (wci.wt_uom <> l_weight_uom_code) THEN
5623: IF (l_cont_gross_weight > 0) THEN
5624: IF l_debug_on THEN
5625: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Gross',WSH_DEBUG_SV.C_PROC_LEVEL);
5626: END IF;
5627: x_gross_weight := NVL(x_gross_weight,0) +
5628: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_gross_weight, wci.inventory_item_id);
5629: ELSIF (l_cont_gross_weight = 0) THEN
5627: x_gross_weight := NVL(x_gross_weight,0) +
5628: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_gross_weight, wci.inventory_item_id);
5629: ELSIF (l_cont_gross_weight = 0) THEN
5630: IF l_debug_on THEN
5631: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_gross_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5632: END IF;
5633: x_gross_weight := NVL(x_gross_weight,0) + l_cont_gross_weight;
5634: END IF;
5635:
5634: END IF;
5635:
5636: IF (l_cont_net_weight > 0) THEN
5637: IF l_debug_on THEN
5638: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Net',WSH_DEBUG_SV.C_PROC_LEVEL);
5639: END IF;
5640: x_net_weight := NVL(x_net_weight,0) +
5641: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_net_weight, wci.inventory_item_id);
5642: ELSIF (l_cont_net_weight = 0) THEN
5640: x_net_weight := NVL(x_net_weight,0) +
5641: WSH_WV_UTILS.convert_uom(wci.wt_uom, l_weight_uom_code, l_cont_net_weight, wci.inventory_item_id);
5642: ELSIF (l_cont_net_weight = 0) THEN
5643: IF l_debug_on THEN
5644: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_net_weight=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5645: END IF;
5646: x_net_weight := NVL(x_net_weight,0) + l_cont_net_weight;
5647: END IF;
5648: ELSE
5656:
5657: IF (wci.vol_uom <> l_volume_uom_code) THEN
5658: IF (l_cont_volume > 0) THEN
5659: IF l_debug_on THEN
5660: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM for converting Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5661: END IF;
5662: x_volume := NVL(x_volume,0) +
5663: WSH_WV_UTILS.convert_uom(wci.vol_uom, l_volume_uom_code, l_cont_volume, wci.inventory_item_id);
5664: ELSIF (l_cont_volume = 0) THEN
5662: x_volume := NVL(x_volume,0) +
5663: WSH_WV_UTILS.convert_uom(wci.vol_uom, l_volume_uom_code, l_cont_volume, wci.inventory_item_id);
5664: ELSIF (l_cont_volume = 0) THEN
5665: IF l_debug_on THEN
5666: WSH_DEBUG_SV.logmsg(l_module_name,'adding l_cont_volume=0',WSH_DEBUG_SV.C_PROC_LEVEL);
5667: END IF;
5668: x_volume := NVL(x_volume,0) + l_cont_volume;
5669: END IF;
5670: ELSE
5673: END IF;
5674: END IF;
5675:
5676: IF l_debug_on THEN
5677: WSH_DEBUG_SV.logmsg(l_module_name,'Accumulated Gross '||x_gross_weight||' Net '||x_net_weight||' Vol '||x_volume);
5678: END IF;
5679:
5680: END LOOP;
5681:
5683:
5684: -- If p_update_flag is 'Y' then update the delivery with the calculated W/V
5685: IF (p_update_flag = 'Y') THEN
5686: IF l_debug_on THEN
5687: WSH_DEBUG_SV.logmsg(l_module_name,'Updating Del '||p_delivery_id||' With Gross '||x_gross_weight||' Net '||x_net_weight||' Vol '||x_volume);
5688: END IF;
5689:
5690: UPDATE wsh_new_deliveries
5691: SET net_weight = x_net_weight,
5699:
5700: IF (SQL%NOTFOUND) THEN
5701: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5702: IF l_debug_on THEN
5703: WSH_DEBUG_SV.pop(l_module_name);
5704: END IF;
5705: RETURN;
5706: END IF;
5707:
5720: l_ignore_for_planning = 'N') THEN
5721: l_delivery_id_tab(1) := p_delivery_id;
5722: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
5723: IF l_debug_on THEN
5724: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
5725: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
5726: END IF;
5727:
5728: WSH_NEW_DELIVERIES_PVT.update_tms_interface_flag(
5721: l_delivery_id_tab(1) := p_delivery_id;
5722: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
5723: IF l_debug_on THEN
5724: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
5725: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
5726: END IF;
5727:
5728: WSH_NEW_DELIVERIES_PVT.update_tms_interface_flag(
5729: p_delivery_id_tab => l_delivery_id_tab,
5733: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5734: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5735: x_return_status := l_return_status;
5736: IF l_debug_on THEN
5737: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
5738: WSH_DEBUG_SV.pop(l_module_name, 'UPDATE_TMS_INTERFACE_FLAG ERROR');
5739: END IF;
5740: RETURN;
5741: END IF;
5734: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5735: x_return_status := l_return_status;
5736: IF l_debug_on THEN
5737: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
5738: WSH_DEBUG_SV.pop(l_module_name, 'UPDATE_TMS_INTERFACE_FLAG ERROR');
5739: END IF;
5740: RETURN;
5741: END IF;
5742: END IF;
5755: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5756: END IF;
5757:
5758: IF l_debug_on THEN
5759: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
5760: WSH_DEBUG_SV.pop(l_module_name);
5761: END IF;
5762:
5763: EXCEPTION
5756: END IF;
5757:
5758: IF l_debug_on THEN
5759: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
5760: WSH_DEBUG_SV.pop(l_module_name);
5761: END IF;
5762:
5763: EXCEPTION
5764: WHEN e_abort THEN
5763: EXCEPTION
5764: WHEN e_abort THEN
5765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5766: IF l_debug_on THEN
5767: WSH_DEBUG_SV.pop(l_module_name);
5768: END IF;
5769:
5770: WHEN Others THEN
5771: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5771: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5773:
5774: IF l_debug_on THEN
5775: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5776: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5777: END IF;
5778:
5779: END delivery_weight_volume;
5772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5773:
5774: IF l_debug_on THEN
5775: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5776: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5777: END IF;
5778:
5779: END delivery_weight_volume;
5780:
5834:
5835: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5836: IF l_debug_on IS NULL
5837: THEN
5838: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5839: END IF;
5840: IF l_debug_on THEN
5841: WSH_DEBUG_SV.push(l_module_name);
5842: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5837: THEN
5838: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5839: END IF;
5840: IF l_debug_on THEN
5841: WSH_DEBUG_SV.push(l_module_name);
5842: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5843: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5844: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
5845: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5838: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5839: END IF;
5840: IF l_debug_on THEN
5841: WSH_DEBUG_SV.push(l_module_name);
5842: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5843: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5844: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
5845: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5846: END IF;
5839: END IF;
5840: IF l_debug_on THEN
5841: WSH_DEBUG_SV.push(l_module_name);
5842: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5843: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5844: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
5845: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5846: END IF;
5847: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5840: IF l_debug_on THEN
5841: WSH_DEBUG_SV.push(l_module_name);
5842: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5843: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5844: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
5845: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5846: END IF;
5847: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5848:
5841: WSH_DEBUG_SV.push(l_module_name);
5842: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5843: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
5844: WSH_DEBUG_SV.log(l_module_name,'P_POST_PROCESS_FLAG',P_POST_PROCESS_FLAG);
5845: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
5846: END IF;
5847: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5848:
5849: -- Get the delivery info
5870: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DELIVERY');
5871: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
5872: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
5873: IF l_debug_on THEN
5874: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery '||p_delivery_id||' not found');
5875: WSH_DEBUG_SV.pop(l_module_name);
5876: END IF;
5877: return;
5878: END;
5871: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
5872: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
5873: IF l_debug_on THEN
5874: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery '||p_delivery_id||' not found');
5875: WSH_DEBUG_SV.pop(l_module_name);
5876: END IF;
5877: return;
5878: END;
5879:
5884: x_net_weight := l_org_net_wt;
5885: x_volume := l_org_vol;
5886:
5887: IF l_debug_on THEN
5888: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Status is '||l_status_code||' Frozen Flag '||l_wv_frozen_flag||'. Returning delivery weights');
5889: WSH_DEBUG_SV.pop(l_module_name);
5890: END IF;
5891:
5892: RETURN;
5885: x_volume := l_org_vol;
5886:
5887: IF l_debug_on THEN
5888: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Status is '||l_status_code||' Frozen Flag '||l_wv_frozen_flag||'. Returning delivery weights');
5889: WSH_DEBUG_SV.pop(l_module_name);
5890: END IF;
5891:
5892: RETURN;
5893: END IF;
5893: END IF;
5894:
5895:
5896: IF l_debug_on THEN
5897: 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);
5898: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Delivery_weight_volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5899: END IF;
5900: -- Call Delivery_Weight_Volume API
5901: Delivery_weight_volume (
5894:
5895:
5896: IF l_debug_on THEN
5897: 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);
5898: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Delivery_weight_volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5899: END IF;
5900: -- Call Delivery_Weight_Volume API
5901: Delivery_weight_volume (
5902: p_delivery_id => p_delivery_id,
5909:
5910: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5911: x_return_status := l_return_status;
5912: IF l_debug_on THEN
5913: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery_weight_volume returned '||l_return_status);
5914: WSH_DEBUG_SV.pop(l_module_name);
5915: END IF;
5916: return;
5917: END IF;
5910: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5911: x_return_status := l_return_status;
5912: IF l_debug_on THEN
5913: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery_weight_volume returned '||l_return_status);
5914: WSH_DEBUG_SV.pop(l_module_name);
5915: END IF;
5916: return;
5917: END IF;
5918:
5923: (NVL(x_net_weight,0) <> NVL(l_org_net_wt,0)) OR
5924: (NVL(x_volume,0) <> NVL(l_org_vol,0)))) THEN
5925:
5926: IF l_debug_on THEN
5927: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Del_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
5928: END IF;
5929:
5930: Del_WV_Post_Process(
5931: p_delivery_id => p_delivery_id,
5936:
5937: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5938: x_return_status := l_return_status;
5939: IF l_debug_on THEN
5940: WSH_DEBUG_SV.logmsg(l_module_name,'Del_WV_Post_Process returned '||l_return_status);
5941: WSH_DEBUG_SV.pop(l_module_name);
5942: END IF;
5943: return;
5944: END IF;
5937: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5938: x_return_status := l_return_status;
5939: IF l_debug_on THEN
5940: WSH_DEBUG_SV.logmsg(l_module_name,'Del_WV_Post_Process returned '||l_return_status);
5941: WSH_DEBUG_SV.pop(l_module_name);
5942: END IF;
5943: return;
5944: END IF;
5945: END IF;
5944: END IF;
5945: END IF;
5946:
5947: IF l_debug_on THEN
5948: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
5949: WSH_DEBUG_SV.pop(l_module_name);
5950: END IF;
5951:
5952: EXCEPTION
5945: END IF;
5946:
5947: IF l_debug_on THEN
5948: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
5949: WSH_DEBUG_SV.pop(l_module_name);
5950: END IF;
5951:
5952: EXCEPTION
5953: WHEN Others THEN
5954: WSH_UTIL_CORE.Default_Handler ('WSH_WV_UTILS.delivery_weight_volume');
5955: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5956:
5957: IF l_debug_on THEN
5958: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5959: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5960: END IF;
5961:
5962: END Delivery_Weight_Volume;
5955: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5956:
5957: IF l_debug_on THEN
5958: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5959: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5960: END IF;
5961:
5962: END Delivery_Weight_Volume;
5963:
6011:
6012: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6013: IF l_debug_on IS NULL
6014: THEN
6015: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6016: END IF;
6017: IF l_debug_on THEN
6018: WSH_DEBUG_SV.push(l_module_name);
6019: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
6014: THEN
6015: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6016: END IF;
6017: IF l_debug_on THEN
6018: WSH_DEBUG_SV.push(l_module_name);
6019: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
6020: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
6021: END IF;
6022:
6015: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6016: END IF;
6017: IF l_debug_on THEN
6018: WSH_DEBUG_SV.push(l_module_name);
6019: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
6020: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
6021: END IF;
6022:
6023: IF (p_del_rows.count = 0) THEN
6016: END IF;
6017: IF l_debug_on THEN
6018: WSH_DEBUG_SV.push(l_module_name);
6019: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
6020: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
6021: END IF;
6022:
6023: IF (p_del_rows.count = 0) THEN
6024: raise others;
6026:
6027: FOR i IN 1..p_del_rows.count LOOP
6028:
6029: IF l_debug_on THEN
6030: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Delivery_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
6031: END IF;
6032:
6033: Delivery_Weight_Volume(
6034: p_delivery_id => p_del_rows(i),
6042:
6043: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6044: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_WT_VOL_ERROR');
6045: IF l_debug_on THEN
6046: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6047: END IF;
6048: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6050: wsh_util_core.add_message(x_return_status);
6076:
6077: END IF;
6078:
6079: IF l_debug_on THEN
6080: WSH_DEBUG_SV.pop(l_module_name);
6081: END IF;
6082:
6083: EXCEPTION
6084: WHEN others THEN
6086: wsh_util_core.default_handler ('WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME');
6087: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6088:
6089: IF l_debug_on THEN
6090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6092: END IF;
6093:
6094: END Delivery_Weight_Volume;
6087: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6088:
6089: IF l_debug_on THEN
6090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6092: END IF;
6093:
6094: END Delivery_Weight_Volume;
6095:
6131: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6132: --
6133: IF l_debug_on IS NULL
6134: THEN
6135: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6136: END IF;
6137:
6138: IF l_debug_on THEN
6139: WSH_DEBUG_SV.push(l_module_name);
6135: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6136: END IF;
6137:
6138: IF l_debug_on THEN
6139: WSH_DEBUG_SV.push(l_module_name);
6140: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6141: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6142: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6143: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6136: END IF;
6137:
6138: IF l_debug_on THEN
6139: WSH_DEBUG_SV.push(l_module_name);
6140: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6141: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6142: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6143: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6144: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6137:
6138: IF l_debug_on THEN
6139: WSH_DEBUG_SV.push(l_module_name);
6140: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6141: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6142: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6143: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6144: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6145: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_lot_number);
6138: IF l_debug_on THEN
6139: WSH_DEBUG_SV.push(l_module_name);
6140: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6141: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6142: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6143: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6144: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6145: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_lot_number);
6146: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6139: WSH_DEBUG_SV.push(l_module_name);
6140: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6141: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6142: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6143: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6144: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6145: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_lot_number);
6146: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6147: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6140: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
6141: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6142: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6143: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6144: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6145: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_lot_number);
6146: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6147: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6148: END IF;
6141: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
6142: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6143: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6144: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6145: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_lot_number);
6146: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6147: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6148: END IF;
6149:
6142: WSH_DEBUG_SV.log(l_module_name,'p_lot_number',p_lot_number);
6143: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6144: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6145: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_lot_number);
6146: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6147: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6148: END IF;
6149:
6150:
6143: WSH_DEBUG_SV.log(l_module_name,'p_quantity',p_quantity);
6144: WSH_DEBUG_SV.log(l_module_name,'p_quantity2',p_quantity2);
6145: WSH_DEBUG_SV.log(l_module_name,'p_uom1',p_lot_number);
6146: WSH_DEBUG_SV.log(l_module_name,'p_uom2',p_uom2);
6147: WSH_DEBUG_SV.log(l_module_name,'p_precision',p_precision);
6148: END IF;
6149:
6150:
6151: result := INV_CONVERT.within_deviation(
6172: WHEN others THEN
6173: wsh_util_core.default_handler ('WSH_WV_UTILS.within_deviation');
6174:
6175: IF l_debug_on THEN
6176: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6177: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6178: END IF;
6179: END within_deviation;
6180:
6173: wsh_util_core.default_handler ('WSH_WV_UTILS.within_deviation');
6174:
6175: IF l_debug_on THEN
6176: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6177: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6178: END IF;
6179: END within_deviation;
6180:
6181: --OTM R12, creating wrapper for prorate_weight_actual so we only update delivery tms flag once
6249: --
6250: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6251: --
6252: IF l_debug_on IS NULL THEN
6253: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6254: END IF;
6255: --
6256: --
6257: -- Debug Statements
6257: -- Debug Statements
6258: --
6259: IF l_debug_on THEN
6260:
6261: wsh_debug_sv.push(l_module_name);
6262: --
6263: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6264: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6265: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6259: IF l_debug_on THEN
6260:
6261: wsh_debug_sv.push(l_module_name);
6262: --
6263: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6264: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6265: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6266: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6267: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6260:
6261: wsh_debug_sv.push(l_module_name);
6262: --
6263: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6264: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6265: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6266: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6267: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6268: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6261: wsh_debug_sv.push(l_module_name);
6262: --
6263: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6264: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6265: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6266: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6267: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6268: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6269: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6262: --
6263: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6264: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6265: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6266: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6267: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6268: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6269: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6270: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6263: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6264: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6265: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6266: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6267: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6268: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6269: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6270: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6271: END IF;
6264: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6265: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6266: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6267: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6268: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6269: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6270: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6271: END IF;
6272:
6265: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6266: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6267: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6268: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6269: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6270: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6271: END IF;
6272:
6273: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6266: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6267: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6268: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6269: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6270: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6271: END IF;
6272:
6273: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6274:
6279: END IF;
6280:
6281: --first call real prorate procedure to prorate the delivery/container
6282: IF l_debug_on THEN
6283: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit prorate_weight_actual',WSH_DEBUG_SV.C_PROC_LEVEL);
6284: END IF;
6285:
6286: prorate_weight_actual(
6287: p_entity_type => p_entity_type,
6294: x_return_status => l_return_status,
6295: p_call_level => p_call_level);
6296:
6297: IF l_debug_on THEN
6298: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from prorate_weight_actual: ' || l_return_status);
6299: END IF;
6300:
6301: x_return_status := l_return_status;
6302:
6337: l_delivery_id_tab(1) := l_delivery_id;
6338: l_interface_flag_tab(1) := 'UR';
6339:
6340: IF l_debug_on THEN
6341: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
6342: END IF;
6343:
6344: WSH_NEW_DELIVERIES_PVT.update_tms_interface_flag(
6345: p_delivery_id_tab => l_delivery_id_tab,
6346: p_tms_interface_flag_tab => l_interface_flag_tab,
6347: x_return_status => l_return_status);
6348:
6349: IF l_debug_on THEN
6350: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG: ' || l_return_status);
6351: END IF;
6352:
6353: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6354: RAISE api_return_fail;
6362: --
6363: -- Debug Statements
6364: --
6365: IF l_debug_on THEN
6366: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
6367: WSH_DEBUG_SV.pop(l_module_name);
6368: END IF;
6369: --
6370: EXCEPTION
6363: -- Debug Statements
6364: --
6365: IF l_debug_on THEN
6366: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
6367: WSH_DEBUG_SV.pop(l_module_name);
6368: END IF;
6369: --
6370: EXCEPTION
6371: WHEN api_return_fail THEN
6370: EXCEPTION
6371: WHEN api_return_fail THEN
6372: x_return_status := l_return_status;
6373: IF l_debug_on THEN
6374: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
6375: WSH_DEBUG_SV.pop(l_module_name);
6376: END IF;
6377: WHEN OTHERS THEN
6378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6371: WHEN api_return_fail THEN
6372: x_return_status := l_return_status;
6373: IF l_debug_on THEN
6374: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
6375: WSH_DEBUG_SV.pop(l_module_name);
6376: END IF;
6377: WHEN OTHERS THEN
6378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6379:
6389: --
6390: -- Debug Statements
6391: --
6392: IF l_debug_on THEN
6393: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6394: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6395: END IF;
6396: --
6397: END Prorate_weight;
6390: -- Debug Statements
6391: --
6392: IF l_debug_on THEN
6393: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6394: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6395: END IF;
6396: --
6397: END Prorate_weight;
6398:
6541: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6542: --
6543: IF l_debug_on IS NULL THEN
6544: --{
6545: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6546: --}
6547: END IF;
6548: --
6549: --
6550: -- Debug Statements
6551: --
6552: IF l_debug_on THEN
6553: --{
6554: wsh_debug_sv.push(l_module_name);
6555: --
6556: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6557: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6558: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6552: IF l_debug_on THEN
6553: --{
6554: wsh_debug_sv.push(l_module_name);
6555: --
6556: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6557: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6558: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6559: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6560: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6553: --{
6554: wsh_debug_sv.push(l_module_name);
6555: --
6556: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6557: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6558: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6559: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6560: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6561: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6554: wsh_debug_sv.push(l_module_name);
6555: --
6556: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6557: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6558: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6559: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6560: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6561: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6562: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6555: --
6556: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6557: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6558: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6559: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6560: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6561: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6562: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6563: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6556: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_TYPE', p_entity_type);
6557: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6558: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6559: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6560: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6561: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6562: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6563: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6564: --}
6557: wsh_debug_sv.LOG(l_module_name, 'P_ENTITY_ID', p_entity_id );
6558: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6559: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6560: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6561: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6562: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6563: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6564: --}
6565: END IF;
6558: wsh_debug_sv.LOG(l_module_name, 'P_OLD_GROSS_WT',p_old_gross_wt );
6559: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6560: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6561: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6562: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6563: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6564: --}
6565: END IF;
6566:
6559: wsh_debug_sv.LOG(l_module_name, 'P_NEW_GROSS_WT', p_new_gross_wt);
6560: wsh_debug_sv.LOG(l_module_name, 'P_OLD_NET_WT',p_old_net_wt );
6561: wsh_debug_sv.LOG(l_module_name, 'P_NEW_NET_WT', p_new_net_wt);
6562: wsh_debug_sv.LOG(l_module_name, 'P_WEIGHT_UOM_CODE', p_weight_uom_code);
6563: wsh_debug_sv.LOG(l_module_name, 'p_call_level', p_call_level);
6564: --}
6565: END IF;
6566:
6567: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6572:
6573:
6574: --
6575: IF l_debug_on THEN
6576: WSH_DEBUG_SV.logmsg(l_module_name,'Change in Net: '||l_entity_net_change||', Change in Tare: '||l_entity_tare_change);
6577: END IF;
6578: --
6579: -- Do proration only when there is a change in tare/net.
6580: IF l_entity_tare_change <> 0 OR l_entity_net_change <> 0 THEN
6588: -- Calculating the total Net and Tare Weight of all immediate delivery lines which are
6589: -- required later to find out the proportional weight.
6590: --
6591: IF l_debug_on THEN
6592: WSH_DEBUG_SV.logmsg(l_module_name,'Calculating the total Net and Tare Weight of all immediate delivery lines');
6593: END IF;
6594: --
6595: LOOP
6596: --{ Looping thru' all immediate children for the delivery/container
6616: CLOSE immediate_details_cont;
6617: END IF;
6618: --
6619: IF l_debug_on THEN
6620: WSH_DEBUG_SV.logmsg(l_module_name,'Total Tare Weight: '||l_total_tare_wt||', Total Net Weight: ' ||l_total_net_wt);
6621: END IF;
6622: --
6623: IF ( l_total_net_wt = 0 AND l_total_tare_wt = 0 ) THEN
6624: --{
6623: IF ( l_total_net_wt = 0 AND l_total_tare_wt = 0 ) THEN
6624: --{
6625: --
6626: IF l_debug_on THEN
6627: WSH_DEBUG_SV.logmsg(l_module_name,'There is no proration required as the total Tare and Net weights are zero, ');
6628: END IF;
6629: --
6630: RETURN;
6631: --}
6635:
6636: IF p_call_level IS NULL THEN --{
6637: --bmso call out for WMS to flush all the record prior to prorating.
6638: IF l_debug_on THEN
6639: 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);
6640: END IF;
6641: --
6642: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
6643: (
6646: x_out_rec => l_lpn_out_sync_comm_rec
6647: );
6648: --
6649: IF l_debug_on THEN
6650: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
6651: END IF;
6652:
6653: WSH_UTIL_CORE.API_POST_CALL
6654: (
6676: --
6677: -- Debug Statements
6678: --
6679: IF l_debug_on THEN
6680: WSH_DEBUG_SV.log(l_module_name,'********* Processing the Delivery Detail Id:',l_detail_rec_tab(i).delivery_detail_id);
6681: 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);
6682: END IF;
6683: --
6684: -- Calculate the change in Tare Weight
6677: -- Debug Statements
6678: --
6679: IF l_debug_on THEN
6680: WSH_DEBUG_SV.log(l_module_name,'********* Processing the Delivery Detail Id:',l_detail_rec_tab(i).delivery_detail_id);
6681: 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);
6682: END IF;
6683: --
6684: -- Calculate the change in Tare Weight
6685: IF ( l_entity_tare_change <> 0 ) THEN
6753: l_new_gross_wt := l_new_net_wt;
6754: END IF;
6755: --
6756: IF l_debug_on THEN
6757: 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);
6758: END IF;
6759: --
6760: -- Cache the new weights of the Containers to pass them to recursive call
6761: -- If immediate child of the Delivery is a Container, cache it to call the prorate api recursively
6778: -- can be a consol. LPN.
6779: l_wms_org := wsh_util_validate.check_wms_org(l_detail_rec_tab(i).organization_id);
6780: --
6781: IF l_debug_on THEN
6782: WSH_DEBUG_SV.log(l_module_name,'l_wms_org value is', l_wms_org);
6783: END IF;
6784: --
6785: IF(l_wms_org = 'Y'
6786: AND l_detail_rec_tab(i).line_direction in ('O', 'IO')
6815:
6816: -- LPN CONV. rv
6817: --
6818: IF l_debug_on THEN
6819: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
6820: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
6821: END IF;
6822: --
6823: --
6816: -- LPN CONV. rv
6817: --
6818: IF l_debug_on THEN
6819: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
6820: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
6821: END IF;
6822: --
6823: --
6824: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
6831: --
6832: -- Debug Statements
6833: --
6834: IF l_debug_on THEN
6835: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
6836: END IF;
6837: --
6838: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
6839: (
6841: x_return_status => l_return_status
6842: );
6843: --
6844: IF l_debug_on THEN
6845: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
6846: END IF;
6847: --
6848: WSH_UTIL_CORE.API_POST_CALL
6849: (
6859: --
6860: -- Debug Statements
6861: --
6862: IF l_debug_on THEN
6863: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
6864: END IF;
6865: --
6866: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
6867: (
6870: );
6871:
6872: --
6873: IF l_debug_on THEN
6874: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
6875: END IF;
6876: --
6877: WSH_UTIL_CORE.API_POST_CALL
6878: (
6889: -- Update all effected delivery details with resultant gross
6890: -- and net weight. Also update wv_frozen_flag to 'Y' for all.
6891: --
6892: IF l_debug_on THEN
6893: WSH_DEBUG_SV.logmsg(l_module_name,'Updating the Weights of Delivery Details');
6894: END IF;
6895: --
6896: FORALL i IN 1..l_dd_upd_tbl.COUNT
6897: UPDATE wsh_delivery_details
6910: LOOP
6911: --{
6912: --
6913: IF l_debug_on THEN
6914: WSH_DEBUG_SV.logmsg(l_module_name,'Calling the Prorate API recursively for the Containers');
6915: END IF;
6916: --
6917: Prorate_weight_actual(
6918: p_entity_type => 'CONTAINER',
6927:
6928: x_return_status := l_return_status;
6929:
6930: IF l_debug_on THEN
6931: wsh_debug_sv.log(l_module_name,'Return Status After Calling Prorate_weight_actual',l_return_status);
6932: END IF;
6933: --
6934: wsh_util_core.api_post_call(
6935: p_return_status => l_return_status,
6952: WSH_WMS_LPN_GRP.g_update_to_containers := 'N';
6953: WSH_WMS_LPN_GRP.g_call_group_api := 'N' ;
6954: --call the new API
6955: IF l_debug_on THEN
6956: 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);
6957: END IF;
6958: WSH_LPN_SYNC_COMM_PKG.SYNC_PRORATED_LPNS_TO_WMS
6959: (
6960: p_in_rec => l_lpn_in_sync_comm_rec,
6962: x_out_rec => l_lpn_out_sync_comm_rec
6963: );
6964:
6965: IF l_debug_on THEN
6966: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_PRORATED_LPNS_TO_WMS', l_return_status);
6967: END IF;
6968:
6969: WSH_UTIL_CORE.API_POST_CALL
6970: (
6990: --
6991: -- Debug Statements
6992: --
6993: IF l_debug_on THEN
6994: WSH_DEBUG_SV.pop(l_module_name);
6995: END IF;
6996: --
6997: EXCEPTION
6998: WHEN OTHERS THEN
7010: --
7011: -- Debug Statements
7012: --
7013: IF l_debug_on THEN
7014: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7015: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7016: END IF;
7017: --
7018: END Prorate_weight_actual;
7011: -- Debug Statements
7012: --
7013: IF l_debug_on THEN
7014: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7015: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7016: END IF;
7017: --
7018: END Prorate_weight_actual;
7019: