[Home] [Help]
200:
201: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
202:
203: IF l_debug_on IS NULL THEN
204: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
205: END IF;
206:
207: IF l_debug_on THEN
208: WSH_DEBUG_SV.push(l_module_name);
204: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
205: END IF;
206:
207: IF l_debug_on THEN
208: WSH_DEBUG_SV.push(l_module_name);
209: END IF;
210:
211: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
212:
228: AND p_entity IN ('DLVY', 'DLVB', 'TRIP')
229: AND p_in_ids is not null AND p_in_ids.COUNT>0) THEN
230:
231: IF l_debug_on THEN
232: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
233: WSH_DEBUG_SV.log(l_module_name,'P_in_IDs.COUNT',p_in_ids.count);
234: WSH_DEBUG_SV.log(l_module_name,'p_action_code',p_action_code);
235: END IF;
236:
229: AND p_in_ids is not null AND p_in_ids.COUNT>0) THEN
230:
231: IF l_debug_on THEN
232: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
233: WSH_DEBUG_SV.log(l_module_name,'P_in_IDs.COUNT',p_in_ids.count);
234: WSH_DEBUG_SV.log(l_module_name,'p_action_code',p_action_code);
235: END IF;
236:
237: --if lower level entity is passed and higher level entity has different
230:
231: IF l_debug_on THEN
232: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
233: WSH_DEBUG_SV.log(l_module_name,'P_in_IDs.COUNT',p_in_ids.count);
234: WSH_DEBUG_SV.log(l_module_name,'p_action_code',p_action_code);
235: END IF;
236:
237: --if lower level entity is passed and higher level entity has different
238: --ignore for planning, error. same applies for TPW/manifesting carrier updates
283: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
284: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
285: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
286: IF l_debug_on THEN
287: WSH_DEBUG_SV.pop(l_module_name);
288: END IF;
289: RETURN;
290: END IF;
291: <
303:
304:
305: IF (nvl(l_wh_type, FND_API.G_MISS_CHAR) IN ('TPW','CMS')) THEN
306: IF l_debug_on THEN
307: WSH_DEBUG_SV.log(l_module_name,'Get_Warehouse_Type cur.organization_id,l_wh_type,l_return_status',cur.organization_id||l_wh_type||l_return_status);
308: END IF;
309:
310: FND_MESSAGE.SET_NAME('WSH','WSH_IGNORE_PLAN_TPW_ERROR');
311: FND_MESSAGE.SET_TOKEN('DEL_NAME',cur.delivery_name);
373:
374: -- LPN CONV. rv
375: --
376: IF l_debug_on THEN
377: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
378: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
379: END IF;
380: --
381: --
374: -- LPN CONV. rv
375: --
376: IF l_debug_on THEN
377: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
378: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
379: END IF;
380: --
381: --
382: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
389: --
390: -- Debug Statements
391: --
392: IF l_debug_on THEN
393: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
394: END IF;
395: --
396: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
397: (
399: x_return_status => l_return_status
400: );
401: --
402: IF l_debug_on THEN
403: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
404: END IF;
405: --
406: WSH_UTIL_CORE.API_POST_CALL
407: (
427: --
428: -- Debug Statements
429: --
430: IF l_debug_on THEN
431: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
432: END IF;
433: --
434: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
435: (
438: );
439:
440: --
441: IF l_debug_on THEN
442: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
443: END IF;
444: --
445: WSH_UTIL_CORE.API_POST_CALL
446: (
517: FOR i in l_tmp_del_ids.FIRST..l_tmp_del_ids.LAST LOOP
518: --{
519: --
520: IF l_debug_on THEN
521: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.TABLE_TO_RECORD',WSH_DEBUG_SV.C_PROC_LEVEL);
522: END IF;
523: --
524: WSH_NEW_DELIVERIES_PVT.TABLE_TO_RECORD(p_delivery_id => l_tmp_del_ids(i),
525: x_delivery_rec => l_delivery_info,
525: x_delivery_rec => l_delivery_info,
526: x_return_status => l_return_status);
527: --
528: IF l_debug_on THEN
529: wsh_debug_sv.log(l_module_name,'Return Status After Calling table_to_record ',l_return_status);
530: END IF;
531: --
532: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
533: rollback to before_update;
540: goto next_trip;
541: END IF;
542: --
543: IF l_debug_on THEN
544: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.CREATE_UPDATE_HASH',WSH_DEBUG_SV.C_PROC_LEVEL);
545: END IF;
546: --
547: WSH_DELIVERY_AUTOCREATE.CREATE_UPDATE_HASH(p_delivery_rec => l_delivery_info,
548: x_return_status => l_return_status);
547: WSH_DELIVERY_AUTOCREATE.CREATE_UPDATE_HASH(p_delivery_rec => l_delivery_info,
548: x_return_status => l_return_status);
549: --
550: IF l_debug_on THEN
551: wsh_debug_sv.log(l_module_name,'Return Status After Calling create_update_hash ',l_return_status);
552: END IF;
553: --
554: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
555: rollback to before_update;
562: goto next_trip;
563: END IF;
564: --
565: IF l_debug_on THEN
566: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
567: END IF;
568: --
569: WSH_NEW_DELIVERIES_PVT.UPDATE_DELIVERY( p_rowid => NULL,
570: p_delivery_info => l_delivery_info,
570: p_delivery_info => l_delivery_info,
571: x_return_status => l_return_status);
572: --
573: IF l_debug_on THEN
574: wsh_debug_sv.log(l_module_name,'Return Status After Calling update_delivery ',l_return_status);
575: END IF;
576: --
577: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
578: rollback to before_update;
591: END IF;
592:
593: -- OTM R12, glog proj
594: IF l_debug_on THEN
595: WSH_DEBUG_SV.log(l_module_name,'Gc3 Installed:',l_gc3_is_installed);
596: WSH_DEBUG_SV.log(l_module_name,'Ignore :',l_ignoreplan);
597: END IF;
598:
599: -- MDC Changes, Updating Trip tp_plan_name when it is set to
592:
593: -- OTM R12, glog proj
594: IF l_debug_on THEN
595: WSH_DEBUG_SV.log(l_module_name,'Gc3 Installed:',l_gc3_is_installed);
596: WSH_DEBUG_SV.log(l_module_name,'Ignore :',l_ignoreplan);
597: END IF;
598:
599: -- MDC Changes, Updating Trip tp_plan_name when it is set to
600: -- Ignore for Planning
604: l_tp_plan_name_update := 'N';
605: END IF;
606:
607: IF l_debug_on THEN
608: WSH_DEBUG_SV.log(l_module_name,'Tp Plan Name Update',l_tp_plan_name_update);
609: END IF;
610:
611: --update trips
612: -- OTM R12, glog proj, check the condition first and then update
651: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
652: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
653: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
654: IF l_debug_on THEN
655: WSH_DEBUG_SV.pop(l_module_name);
656: END IF;
657: RETURN;
658: ELSIF l_num_error>0 THEN
659: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
692:
693:
694: IF (nvl(l_wh_type, FND_API.G_MISS_CHAR) IN ('TPW','CMS')) THEN
695: IF l_debug_on THEN
696: WSH_DEBUG_SV.log(l_module_name,'Get_Warehouse_Type cur.organization_id,l_wh_type,l_return_status',cur.organization_id||l_wh_type||l_return_status);
697: END IF;
698:
699: FND_MESSAGE.SET_NAME('WSH','WSH_IGNORE_PLAN_TPW_ERROR');
700: FND_MESSAGE.SET_TOKEN('DEL_NAME',cur.delivery_name);
759: --
760: -- LPN CONV. rv
761: --
762: IF l_debug_on THEN
763: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
764: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
765: END IF;
766: --
767: --
760: -- LPN CONV. rv
761: --
762: IF l_debug_on THEN
763: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
764: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
765: END IF;
766: --
767: --
768: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
775: --
776: -- Debug Statements
777: --
778: IF l_debug_on THEN
779: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
780: END IF;
781: --
782: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
783: (
785: x_return_status => l_return_status
786: );
787: --
788: IF l_debug_on THEN
789: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
790: END IF;
791: --
792: WSH_UTIL_CORE.API_POST_CALL
793: (
813: --
814: -- Debug Statements
815: --
816: IF l_debug_on THEN
817: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
818: END IF;
819: --
820: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
821: (
824: );
825:
826: --
827: IF l_debug_on THEN
828: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
829: END IF;
830: --
831: WSH_UTIL_CORE.API_POST_CALL
832: (
852:
853: --update details
854: -- bug 6369687: While Ship Confirming with 'Backorder All', ignore_for_planning for Delivery Detail should not be set to 'Y'.
855: IF l_debug_on THEN
856: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERIES_GRP.G_ACTION',WSH_DELIVERIES_GRP.G_ACTION);
857: END IF;
858: IF NVL(WSH_DELIVERIES_GRP.G_ACTION,'UPDATE') <> 'CONFIRM' THEN
859: IF l_tmp_detail_ids is not null and l_tmp_detail_ids.COUNT>0 THEN
860: FORALL i in l_tmp_detail_ids.FIRST..l_tmp_detail_ids.LAST
901: x_delivery_rec => l_delivery_info,
902: x_return_status => l_return_status);
903:
904: IF l_debug_on THEN
905: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
906: END IF;
907:
908: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
909: WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
919: IF (l_ignoreplan = 'N') THEN--{
920: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(p_in_ids(i));
921:
922: IF l_debug_on THEN
923: WSH_DEBUG_SV.log(l_module_name,'Is Delivery Empty',l_is_delivery_empty);
924: END IF;
925: IF (l_is_delivery_empty = 'E') THEN
926: ROLLBACK to before_update;
927: l_num_error := l_num_error + 1;
928: GOTO next_del;
929: END IF;
930:
931: IF l_debug_on THEN
932: WSH_DEBUG_SV.log(l_module_name,'Delivery Tms_interface_flag',l_delivery_info.tms_interface_flag);
933: END IF;
934:
935: IF (nvl(l_delivery_info.tms_interface_flag,
936: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) =
974: END IF;
975: END IF;--}
976:
977: IF l_debug_on THEN
978: WSH_DEBUG_SV.log(l_module_name,'l_tms_update',l_tms_update);
979: END IF;
980:
981: -- have to call wms to check if deliveries being updated
982: -- are assigned to a trip being loaded
988:
989: --check delivery's current ignore for planning flag
990: IF (l_delivery_info.ignore_for_planning = 'Y') THEN--{
991: IF l_debug_on THEN
992: WSH_DEBUG_SV.logmsg(l_module_name,
993: 'Calling program unit WMS_SHIPPING_INTERFACE_GRP.PROCESS_DELIVERIES',
994: WSH_DEBUG_SV.C_PROC_LEVEL);
995: END IF;
996:
990: IF (l_delivery_info.ignore_for_planning = 'Y') THEN--{
991: IF l_debug_on THEN
992: WSH_DEBUG_SV.logmsg(l_module_name,
993: 'Calling program unit WMS_SHIPPING_INTERFACE_GRP.PROCESS_DELIVERIES',
994: WSH_DEBUG_SV.C_PROC_LEVEL);
995: END IF;
996:
997: WMS_SHIPPING_INTERFACE_GRP.process_deliveries(
998: p_api_version => 1.0,
1005: x_msg_count => l_msg_count,
1006: x_msg_data => l_msg_data);
1007:
1008: IF l_debug_on THEN
1009: WSH_DEBUG_SV.log(l_module_name,'Return Status after WMS API Call',l_return_status);
1010: WSH_DEBUG_SV.log(l_module_name,'Message Code',l_del_trip_tab(l_del_trip_tab.LAST).r_message_code);
1011: END IF;
1012:
1013: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1006: x_msg_data => l_msg_data);
1007:
1008: IF l_debug_on THEN
1009: WSH_DEBUG_SV.log(l_module_name,'Return Status after WMS API Call',l_return_status);
1010: WSH_DEBUG_SV.log(l_module_name,'Message Code',l_del_trip_tab(l_del_trip_tab.LAST).r_message_code);
1011: END IF;
1012:
1013: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1014: WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
1063: ELSE --Added for bug 7611042 .More than zero rows updated. So calling the API to update the hash string
1064: --{
1065: --
1066: IF l_debug_on THEN
1067: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.TABLE_TO_RECORD',WSH_DEBUG_SV.C_PROC_LEVEL);
1068: END IF;
1069: --
1070: WSH_NEW_DELIVERIES_PVT.TABLE_TO_RECORD(p_delivery_id => p_in_ids(i),
1071: x_delivery_rec => l_delivery_info,
1071: x_delivery_rec => l_delivery_info,
1072: x_return_status => l_return_status);
1073: --
1074: IF l_debug_on THEN
1075: wsh_debug_sv.log(l_module_name,'Return Status After Calling table_to_record ',l_return_status);
1076: END IF;
1077: --
1078: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1079: rollback to before_update;
1086: goto next_del;
1087: END IF;
1088: --
1089: IF l_debug_on THEN
1090: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.CREATE_UPDATE_HASH',WSH_DEBUG_SV.C_PROC_LEVEL);
1091: END IF;
1092: --
1093: WSH_DELIVERY_AUTOCREATE.CREATE_UPDATE_HASH(p_delivery_rec => l_delivery_info,
1094: x_return_status => l_return_status);
1093: WSH_DELIVERY_AUTOCREATE.CREATE_UPDATE_HASH(p_delivery_rec => l_delivery_info,
1094: x_return_status => l_return_status);
1095: --
1096: IF l_debug_on THEN
1097: wsh_debug_sv.log(l_module_name,'Return Status After Calling create_update_hash ',l_return_status);
1098: END IF;
1099: --
1100: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1101: rollback to before_update;
1108: goto next_del;
1109: END IF;
1110: --
1111: IF l_debug_on THEN
1112: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
1113: END IF;
1114: --
1115: WSH_NEW_DELIVERIES_PVT.UPDATE_DELIVERY( p_rowid => NULL,
1116: p_delivery_info => l_delivery_info,
1116: p_delivery_info => l_delivery_info,
1117: x_return_status => l_return_status);
1118: --
1119: IF l_debug_on THEN
1120: wsh_debug_sv.log(l_module_name,'Return Status After Calling update_delivery ',l_return_status);
1121: END IF;
1122: --
1123: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1124: rollback to before_update;
1137: IF (l_gc3_is_installed = 'Y'
1138: AND l_new_interface_flag_tab.COUNT > 0) THEN--{
1139:
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name,
1142: 'Calling program unit WSH_XC_UTIL.LOG_OTM_EXCEPTION',
1143: WSH_DEBUG_SV.C_PROC_LEVEL);
1144: END IF;
1145:
1139:
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name,
1142: 'Calling program unit WSH_XC_UTIL.LOG_OTM_EXCEPTION',
1143: WSH_DEBUG_SV.C_PROC_LEVEL);
1144: END IF;
1145:
1146: WSH_XC_UTIL.log_otm_exception(
1147: p_delivery_info_tab => l_delivery_info_tab,
1148: p_new_interface_flag_tab => l_new_interface_flag_tab,
1149: x_return_status => l_return_status);
1150:
1151: IF l_debug_on THEN
1152: WSH_DEBUG_SV.log(l_module_name,'Return Status after log_otm_exception',l_return_status);
1153: END IF;
1154:
1155: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1156: WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
1175: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
1176: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1177: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1178: IF l_debug_on THEN
1179: WSH_DEBUG_SV.pop(l_module_name);
1180: END IF;
1181: RETURN;
1182: ELSIF l_num_error>0 THEN
1183: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1212: OR (cur.source_code='WSH' and cur.container_flag='N'
1213: and l_gc3_is_installed = 'N' )
1214: THEN
1215: IF l_debug_on THEN
1216: WSH_DEBUG_SV.log(l_module_name,'Get_Warehouse_Type cur.organization_id,l_wh_type,l_return_status',cur.organization_id||l_wh_type||l_return_status);
1217: WSH_DEBUG_SV.log(l_module_name,'source_code, container_flag',cur.source_code||cur.container_flag);
1218: END IF;
1219:
1220: FND_MESSAGE.SET_NAME('WSH','WSH_IGNORE_PLAN_DETTPW_ERROR');
1213: and l_gc3_is_installed = 'N' )
1214: THEN
1215: IF l_debug_on THEN
1216: WSH_DEBUG_SV.log(l_module_name,'Get_Warehouse_Type cur.organization_id,l_wh_type,l_return_status',cur.organization_id||l_wh_type||l_return_status);
1217: WSH_DEBUG_SV.log(l_module_name,'source_code, container_flag',cur.source_code||cur.container_flag);
1218: END IF;
1219:
1220: FND_MESSAGE.SET_NAME('WSH','WSH_IGNORE_PLAN_DETTPW_ERROR');
1221: FND_MESSAGE.SET_TOKEN('DET_ID',p_in_ids(i));
1311: END LOOP;
1312: --
1313: --
1314: IF l_debug_on THEN
1315: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
1316: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
1317: END IF;
1318: --
1319: --
1312: --
1313: --
1314: IF l_debug_on THEN
1315: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
1316: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
1317: END IF;
1318: --
1319: --
1320: IF WSH_WMS_LPN_GRP.GK_WMS_UPD_GRP
1324: --
1325: -- Debug Statements
1326: --
1327: IF l_debug_on THEN
1328: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1329: END IF;
1330: --
1331: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
1332: (
1334: x_return_status => l_return_status
1335: );
1336: --
1337: IF l_debug_on THEN
1338: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
1339: END IF;
1340: --
1341: WSH_UTIL_CORE.API_POST_CALL
1342: (
1361: --
1362: -- Debug Statements
1363: --
1364: IF l_debug_on THEN
1365: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1366: END IF;
1367: --
1368: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
1369: (
1372: );
1373:
1374: --
1375: IF l_debug_on THEN
1376: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
1377: END IF;
1378: --
1379: WSH_UTIL_CORE.API_POST_CALL
1380: (
1447: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
1448: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1450: IF l_debug_on THEN
1451: WSH_DEBUG_SV.pop(l_module_name);
1452: END IF;
1453: RETURN;
1454: ELSIF l_num_error>0 THEN
1455: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1463:
1464: END IF; --tp_is_installed
1465:
1466: IF l_debug_on THEN
1467: WSH_DEBUG_SV.pop(l_module_name);
1468: END IF;
1469:
1470: EXCEPTION
1471: WHEN OTHERS THEN
1474: --
1475: -- Debug Statements
1476: --
1477: IF l_debug_on THEN
1478: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1479: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1480: END IF;
1481: --
1482: END change_ignoreplan_status;
1475: -- Debug Statements
1476: --
1477: IF l_debug_on THEN
1478: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1479: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1480: END IF;
1481: --
1482: END change_ignoreplan_status;
1483:
1559:
1560: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1561:
1562: IF l_debug_on IS NULL THEN
1563: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1564: END IF;
1565:
1566: IF l_debug_on THEN
1567: WSH_DEBUG_SV.push(l_module_name);
1563: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1564: END IF;
1565:
1566: IF l_debug_on THEN
1567: WSH_DEBUG_SV.push(l_module_name);
1568: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1569: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1570: END IF;
1571:
1564: END IF;
1565:
1566: IF l_debug_on THEN
1567: WSH_DEBUG_SV.push(l_module_name);
1568: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1569: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1570: END IF;
1571:
1572: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1565:
1566: IF l_debug_on THEN
1567: WSH_DEBUG_SV.push(l_module_name);
1568: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1569: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1570: END IF;
1571:
1572: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1573:
1584: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(del_cur.delivery_id));
1585: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1586: wsh_util_core.add_message(x_return_status);
1587: IF l_debug_on THEN
1588: WSH_DEBUG_SV.pop(l_module_name);
1589: END IF;
1590: RETURN;
1591: END IF;
1592:
1604: FND_MESSAGE.SET_TOKEN('NAME',wsh_new_deliveries_pvt.get_name(del_cur.delivery_id));
1605: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1606: wsh_util_core.add_message(x_return_status);
1607: IF l_debug_on THEN
1608: WSH_DEBUG_SV.pop(l_module_name);
1609: END IF;
1610: rollback to before_firm;
1611: RETURN;
1612: END IF;
1622: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1623: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1624: wsh_util_core.add_message(x_return_status);
1625: IF l_debug_on THEN
1626: WSH_DEBUG_SV.pop(l_module_name);
1627: END IF;
1628: RETURN;
1629: END IF;
1630:
1644: FND_MESSAGE.SET_TOKEN('NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1645: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1646: wsh_util_core.add_message(x_return_status);
1647: IF l_debug_on THEN
1648: WSH_DEBUG_SV.pop(l_module_name);
1649: END IF;
1650: rollback to before_firm;
1651: RETURN;
1652: END IF;
1660: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_entity_id));
1661: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1662: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1663: IF l_debug_on THEN
1664: WSH_DEBUG_SV.pop(l_module_name);
1665: END IF;
1666: rollback to before_firm;
1667: RETURN;
1668: ELSE
1675: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
1676: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1677: wsh_util_core.add_message(x_return_status);
1678: IF l_debug_on THEN
1679: WSH_DEBUG_SV.pop(l_module_name);
1680: END IF;
1681: rollback to before_firm;
1682: RETURN;
1683: END IF;
1704: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1705: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1706: wsh_util_core.add_message(x_return_status);
1707: IF l_debug_on THEN
1708: WSH_DEBUG_SV.pop(l_module_name);
1709: END IF;
1710: RETURN;
1711: END IF;
1712:
1724: FND_MESSAGE.SET_TOKEN('NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1725: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1726: wsh_util_core.add_message(x_return_status);
1727: IF l_debug_on THEN
1728: WSH_DEBUG_SV.pop(l_module_name);
1729: END IF;
1730: rollback to before_firm;
1731: RETURN;
1732: END IF;
1740: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1741: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1742: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1743: IF l_debug_on THEN
1744: WSH_DEBUG_SV.pop(l_module_name);
1745: END IF;
1746: rollback to before_firm;
1747: RETURN;
1748: ELSE
1756: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1757: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1758: wsh_util_core.add_message(x_return_status);
1759: IF l_debug_on THEN
1760: WSH_DEBUG_SV.pop(l_module_name);
1761: END IF;
1762: rollback to before_firm;
1763: RETURN;
1764: END IF;
1767:
1768: END IF;--p_entity
1769:
1770: IF l_debug_on THEN
1771: WSH_DEBUG_SV.pop(l_module_name);
1772: END IF;
1773: EXCEPTION
1774: WHEN OTHERS THEN
1775: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1778: --
1779: -- Debug Statements
1780: --
1781: IF l_debug_on THEN
1782: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1783: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1784: END IF;
1785: --
1786:
1779: -- Debug Statements
1780: --
1781: IF l_debug_on THEN
1782: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1783: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1784: END IF;
1785: --
1786:
1787: end firm_entity;
1856:
1857: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1858:
1859: IF l_debug_on IS NULL THEN
1860: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1861: END IF;
1862:
1863: IF l_debug_on THEN
1864: WSH_DEBUG_SV.push(l_module_name);
1860: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1861: END IF;
1862:
1863: IF l_debug_on THEN
1864: WSH_DEBUG_SV.push(l_module_name);
1865: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1866: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1867: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
1868: END IF;
1861: END IF;
1862:
1863: IF l_debug_on THEN
1864: WSH_DEBUG_SV.push(l_module_name);
1865: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1866: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1867: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
1868: END IF;
1869:
1862:
1863: IF l_debug_on THEN
1864: WSH_DEBUG_SV.push(l_module_name);
1865: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1866: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1867: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
1868: END IF;
1869:
1870: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1863: IF l_debug_on THEN
1864: WSH_DEBUG_SV.push(l_module_name);
1865: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1866: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1867: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
1868: END IF;
1869:
1870: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1871:
1893: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
1894: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1895: wsh_util_core.add_message(x_return_status);
1896: IF l_debug_on THEN
1897: WSH_DEBUG_SV.pop(l_module_name);
1898: END IF;
1899: rollback to before_unfirm;
1900: RETURN;
1901: END IF;
1922: FND_MESSAGE.SET_TOKEN('NAME',wsh_new_deliveries_pvt.get_name(del_cur.delivery_id));
1923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1924: wsh_util_core.add_message(x_return_status);
1925: IF l_debug_on THEN
1926: WSH_DEBUG_SV.pop(l_module_name);
1927: END IF;
1928: rollback to before_unfirm;
1929: RETURN;
1930: END IF;
1944: FND_MESSAGE.SET_TOKEN('NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1945: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1946: wsh_util_core.add_message(x_return_status);
1947: IF l_debug_on THEN
1948: WSH_DEBUG_SV.pop(l_module_name);
1949: END IF;
1950: rollback to before_unfirm;
1951: RETURN;
1952: END IF;
1966: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1967: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1968: wsh_util_core.add_message(x_return_status);
1969: IF l_debug_on THEN
1970: WSH_DEBUG_SV.pop(l_module_name);
1971: END IF;
1972: rollback to before_unfirm;
1973: RETURN;
1974: END IF;
1988: FND_MESSAGE.SET_TOKEN('NAME',wsh_trips_pvt.get_name(p_entity_id));
1989: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1990: wsh_util_core.add_message(x_return_status);
1991: IF l_debug_on THEN
1992: WSH_DEBUG_SV.pop(l_module_name);
1993: END IF;
1994: rollback to before_unfirm;
1995: RETURN;
1996: END IF;
1998:
1999: END IF;
2000:
2001: IF l_debug_on THEN
2002: WSH_DEBUG_SV.pop(l_module_name);
2003: END IF;
2004:
2005: EXCEPTION
2006: WHEN OTHERS THEN
2010: --
2011: -- Debug Statements
2012: --
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2015: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2016: END IF;
2017: --
2018:
2011: -- Debug Statements
2012: --
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2015: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2016: END IF;
2017: --
2018:
2019: end unfirm_entity;
2127: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2128: --
2129: IF l_debug_on IS NULL
2130: THEN
2131: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2132: END IF;
2133:
2134: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2135:
2135:
2136:
2137: --
2138: IF l_debug_on THEN
2139: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
2140: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
2141: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
2142: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
2143: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
2136:
2137: --
2138: IF l_debug_on THEN
2139: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
2140: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
2141: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
2142: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
2143: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
2144: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2137: --
2138: IF l_debug_on THEN
2139: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
2140: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
2141: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
2142: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
2143: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
2144: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2145: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2138: IF l_debug_on THEN
2139: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
2140: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
2141: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
2142: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
2143: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
2144: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2145: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2146: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2139: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
2140: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
2141: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
2142: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
2143: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
2144: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2145: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2146: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2147: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2140: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
2141: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
2142: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
2143: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
2144: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2145: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2146: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2147: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2148: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2141: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
2142: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
2143: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
2144: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2145: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2146: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2147: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2148: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2149: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2142: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
2143: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
2144: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2145: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2146: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2147: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2148: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2149: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2150: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
2143: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
2144: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2145: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2146: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2147: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2148: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2149: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2150: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
2151: END IF;
2144: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2145: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2146: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2147: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2148: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2149: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2150: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
2151: END IF;
2152:
2145: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2146: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2147: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2148: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2149: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2150: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
2151: END IF;
2152:
2153:
2146: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2147: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2148: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2149: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2150: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
2151: END IF;
2152:
2153:
2154: WSH_CUSTOM_PUB.calculate_tp_dates(
2160: x_latest_dropoff_date => l_latest_dropoff_date,
2161: x_modified => l_modified);
2162:
2163: IF l_debug_on THEN
2164: wsh_debug_sv.log (l_module_name,'l_modified', l_modified);
2165: END IF;
2166:
2167: IF l_modified='Y' THEN -- use results from customized call, go directly to end of procedure
2168: x_earliest_pickup_date := l_earliest_pickup_date;
2170: x_earliest_dropoff_date := l_earliest_dropoff_date;
2171: x_latest_dropoff_date := l_latest_dropoff_date;
2172:
2173: IF l_debug_on THEN
2174: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2175: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2176: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2177: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2178: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2171: x_latest_dropoff_date := l_latest_dropoff_date;
2172:
2173: IF l_debug_on THEN
2174: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2175: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2176: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2177: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2178: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2179: END IF;
2172:
2173: IF l_debug_on THEN
2174: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2175: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2176: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2177: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2178: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2179: END IF;
2180:
2173: IF l_debug_on THEN
2174: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2175: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2176: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2177: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2178: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2179: END IF;
2180:
2181: ELSE -- l_modified='N' - use our calculation
2174: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2175: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2176: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2177: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2178: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2179: END IF;
2180:
2181: ELSE -- l_modified='N' - use our calculation
2182:
2190: l_earliestprofile_EAD);
2191: END IF;
2192:
2193: IF l_debug_on THEN
2194: wsh_debug_sv.log (l_module_name,'G_LDD_profile', G_LDD_profile);
2195: wsh_debug_sv.log (l_module_name,'G_earliest_profile', G_earliest_profile);
2196: END IF;
2197:
2198: --Bug 3816115
2191: END IF;
2192:
2193: IF l_debug_on THEN
2194: wsh_debug_sv.log (l_module_name,'G_LDD_profile', G_LDD_profile);
2195: wsh_debug_sv.log (l_module_name,'G_earliest_profile', G_earliest_profile);
2196: END IF;
2197:
2198: --Bug 3816115
2199: IF G_lc_days_profile IS NULL THEN
2211: l_days_profile := 0;
2212: END IF;
2213: --
2214: IF l_debug_on THEN
2215: wsh_debug_sv.log(l_module_name, 'l_days_profile', l_days_profile);
2216: END IF;
2217: --
2218: -- Bug 4368984
2219: -- Populate lastest ship/delivery date
2221: G_populate_date_profile := NVL(FND_PROFILE.VALUE('WSH_POPULATE_LATEST_SHIP_DELIVERY_DATE'), 'N');
2222: END IF;
2223:
2224: IF l_debug_on THEN
2225: wsh_debug_sv.log (l_module_name,'G_populate_date_profile', G_populate_date_profile);
2226: END IF;
2227: --
2228:
2229: IF p_request_date_type IS NULL THEN
2336: l_demand_satisfaction_date := NULL;
2337: END IF;
2338:
2339: IF l_debug_on THEN
2340: wsh_debug_sv.log (l_module_name,'l_demand_staisfaction_date', l_demand_satisfaction_date);
2341: END IF ;
2342:
2343: IF l_request_date_type='SHIP' THEN
2344: --{
2515: END IF; --l_modified='Y'
2516:
2517: --
2518: IF l_debug_on THEN
2519: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2520: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2521: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2522: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2523: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2516:
2517: --
2518: IF l_debug_on THEN
2519: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2520: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2521: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2522: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2523: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2524: WSH_DEBUG_SV.pop(l_module_name);
2517: --
2518: IF l_debug_on THEN
2519: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2520: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2521: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2522: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2523: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2524: WSH_DEBUG_SV.pop(l_module_name);
2525: END IF;
2518: IF l_debug_on THEN
2519: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2520: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2521: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2522: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2523: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2524: WSH_DEBUG_SV.pop(l_module_name);
2525: END IF;
2526: --
2519: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2520: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2521: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2522: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2523: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2524: WSH_DEBUG_SV.pop(l_module_name);
2525: END IF;
2526: --
2527: EXCEPTION
2520: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2521: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2522: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2523: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2524: WSH_DEBUG_SV.pop(l_module_name);
2525: END IF;
2526: --
2527: EXCEPTION
2528: WHEN OTHERS THEN
2527: EXCEPTION
2528: WHEN OTHERS THEN
2529: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2530: IF l_debug_on THEN
2531: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2532: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2533: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2534: END IF;
2535: END calculate_tp_dates;
2528: WHEN OTHERS THEN
2529: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2530: IF l_debug_on THEN
2531: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2532: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2533: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2534: END IF;
2535: END calculate_tp_dates;
2536:
2529: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2530: IF l_debug_on THEN
2531: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2532: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2533: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2534: END IF;
2535: END calculate_tp_dates;
2536:
2537: /**
2591: BEGIN
2592: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2593: --
2594: IF l_debug_on IS NULL THEN
2595: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2596: END IF;
2597:
2598: IF l_debug_on THEN
2599: wsh_debug_sv.push(l_module_name);
2595: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2596: END IF;
2597:
2598: IF l_debug_on THEN
2599: wsh_debug_sv.push(l_module_name);
2600: wsh_debug_sv.log (l_module_name,'p_entity', p_entity);
2601: wsh_debug_sv.log (l_module_name,'p_entity_ids.count', p_entity_ids.count);
2602: END IF;
2603:
2596: END IF;
2597:
2598: IF l_debug_on THEN
2599: wsh_debug_sv.push(l_module_name);
2600: wsh_debug_sv.log (l_module_name,'p_entity', p_entity);
2601: wsh_debug_sv.log (l_module_name,'p_entity_ids.count', p_entity_ids.count);
2602: END IF;
2603:
2604: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2597:
2598: IF l_debug_on THEN
2599: wsh_debug_sv.push(l_module_name);
2600: wsh_debug_sv.log (l_module_name,'p_entity', p_entity);
2601: wsh_debug_sv.log (l_module_name,'p_entity_ids.count', p_entity_ids.count);
2602: END IF;
2603:
2604: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2605: --
2687:
2688: --
2689: --
2690: IF l_debug_on THEN
2691: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2692: WSH_DEBUG_SV.pop(l_module_name);
2693: END IF;
2694:
2695: EXCEPTION
2688: --
2689: --
2690: IF l_debug_on THEN
2691: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2692: WSH_DEBUG_SV.pop(l_module_name);
2693: END IF;
2694:
2695: EXCEPTION
2696: WHEN OTHERS THEN
2699: 'WSH_TP_RELEASE.calculate_cont_del_tpdates',
2700: l_module_name);
2701:
2702: IF l_debug_on THEN
2703: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2704: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2705: END IF;
2706: END calculate_cont_del_tpdates;
2707:
2700: l_module_name);
2701:
2702: IF l_debug_on THEN
2703: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2704: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2705: END IF;
2706: END calculate_cont_del_tpdates;
2707:
2708: /**
2810: --
2811: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2812: --
2813: IF l_debug_on IS NULL THEN
2814: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2815: END IF;
2816: --
2817: IF l_debug_on THEN
2818: WSH_DEBUG_SV.push(l_module_name);
2814: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2815: END IF;
2816: --
2817: IF l_debug_on THEN
2818: WSH_DEBUG_SV.push(l_module_name);
2819: END IF;
2820: --
2821: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2822: --
2834: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT;
2835: -- end of OTM R12, glog proj
2836:
2837: IF l_debug_on THEN
2838: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT. Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
2839: END IF;
2840: --
2841: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec_type,
2842: x_return_status);
2841: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec_type,
2842: x_return_status);
2843: --
2844: IF l_debug_on THEN
2845: WSH_DEBUG_SV.log(l_module_name, 'After calling Get_Global_Parameters',
2846: x_return_status );
2847: END IF;
2848: --
2849: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2856: l_del_date_calc_method := 'S';
2857: END IF;
2858: --
2859: IF l_debug_on THEN
2860: WSH_DEBUG_SV.logmsg(l_module_name, 'l_del_date_calc_method: ' || l_del_date_calc_method);
2861: END IF;
2862: --
2863: FOR i IN 1..l_del_ids.count LOOP
2864: --{
2896: l_min_detSch_date := NULL;
2897: END IF;
2898: --
2899: IF l_debug_on THEN
2900: wsh_debug_sv.log(l_module_name, 'l_earliest_mpickup_date',
2901: l_earliest_mpickup_date);
2902: wsh_debug_Sv.log(l_module_name, 'l_earliest_mdropoff_date',
2903: l_earliest_mdropoff_date);
2904: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2898: --
2899: IF l_debug_on THEN
2900: wsh_debug_sv.log(l_module_name, 'l_earliest_mpickup_date',
2901: l_earliest_mpickup_date);
2902: wsh_debug_Sv.log(l_module_name, 'l_earliest_mdropoff_date',
2903: l_earliest_mdropoff_date);
2904: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2905: l_latest_mpickup_date);
2906: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2900: wsh_debug_sv.log(l_module_name, 'l_earliest_mpickup_date',
2901: l_earliest_mpickup_date);
2902: wsh_debug_Sv.log(l_module_name, 'l_earliest_mdropoff_date',
2903: l_earliest_mdropoff_date);
2904: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2905: l_latest_mpickup_date);
2906: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2907: l_latest_mdropoff_date);
2908: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2902: wsh_debug_Sv.log(l_module_name, 'l_earliest_mdropoff_date',
2903: l_earliest_mdropoff_date);
2904: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2905: l_latest_mpickup_date);
2906: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2907: l_latest_mdropoff_date);
2908: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2909: l_min_detSch_date);
2910: wsh_debug_sv.log(l_module_name, 'l_min_detReq_date',
2904: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2905: l_latest_mpickup_date);
2906: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2907: l_latest_mdropoff_date);
2908: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2909: l_min_detSch_date);
2910: wsh_debug_sv.log(l_module_name, 'l_min_detReq_date',
2911: l_min_detReq_date);
2912: wsh_debug_sv.log(l_module_name, 'l_max_detSch_date',
2906: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2907: l_latest_mdropoff_date);
2908: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2909: l_min_detSch_date);
2910: wsh_debug_sv.log(l_module_name, 'l_min_detReq_date',
2911: l_min_detReq_date);
2912: wsh_debug_sv.log(l_module_name, 'l_max_detSch_date',
2913: l_max_detSch_date);
2914: END IF;
2908: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2909: l_min_detSch_date);
2910: wsh_debug_sv.log(l_module_name, 'l_min_detReq_date',
2911: l_min_detReq_date);
2912: wsh_debug_sv.log(l_module_name, 'l_max_detSch_date',
2913: l_max_detSch_date);
2914: END IF;
2915: --
2916: IF (l_latest_mpickup_date IS NOT NULL AND
2952: l_max_schedule_date, l_min_schedule_date,
2953: l_min_request_date, l_max_request_date;
2954: --
2955: IF l_debug_on THEN
2956: WSH_DEBUG_SV.log(l_module_name, 'l_max_schedule_date', l_max_schedule_date);
2957: WSH_DEBUG_SV.log(l_module_name, 'l_min_schedule_date', l_min_schedule_date);
2958: WSH_DEBUG_SV.log(l_module_name, 'l_min_request_date', l_min_request_date);
2959: WSH_DEBUG_SV.log(l_module_name, 'l_max_request_date', l_max_request_date);
2960: END IF;
2953: l_min_request_date, l_max_request_date;
2954: --
2955: IF l_debug_on THEN
2956: WSH_DEBUG_SV.log(l_module_name, 'l_max_schedule_date', l_max_schedule_date);
2957: WSH_DEBUG_SV.log(l_module_name, 'l_min_schedule_date', l_min_schedule_date);
2958: WSH_DEBUG_SV.log(l_module_name, 'l_min_request_date', l_min_request_date);
2959: WSH_DEBUG_SV.log(l_module_name, 'l_max_request_date', l_max_request_date);
2960: END IF;
2961: --
2954: --
2955: IF l_debug_on THEN
2956: WSH_DEBUG_SV.log(l_module_name, 'l_max_schedule_date', l_max_schedule_date);
2957: WSH_DEBUG_SV.log(l_module_name, 'l_min_schedule_date', l_min_schedule_date);
2958: WSH_DEBUG_SV.log(l_module_name, 'l_min_request_date', l_min_request_date);
2959: WSH_DEBUG_SV.log(l_module_name, 'l_max_request_date', l_max_request_date);
2960: END IF;
2961: --
2962: IF max_min_om_deltp_dates%FOUND THEN
2955: IF l_debug_on THEN
2956: WSH_DEBUG_SV.log(l_module_name, 'l_max_schedule_date', l_max_schedule_date);
2957: WSH_DEBUG_SV.log(l_module_name, 'l_min_schedule_date', l_min_schedule_date);
2958: WSH_DEBUG_SV.log(l_module_name, 'l_min_request_date', l_min_request_date);
2959: WSH_DEBUG_SV.log(l_module_name, 'l_max_request_date', l_max_request_date);
2960: END IF;
2961: --
2962: IF max_min_om_deltp_dates%FOUND THEN
2963: --{
3020: --
3021: END IF;
3022: --
3023: IF l_debug_on THEN
3024: WSH_DEBUG_SV.log(l_module_name, 'l_initial_mpickup_date', l_initial_mpickup_date );
3025: WSH_DEBUG_SV.log(l_module_name, 'l_ultimate_mdropoff_date', l_ultimate_mdropoff_date);
3026: WSH_DEBUG_SV.log(l_module_name, 'GC3_IS_INSTALLED', l_gc3_is_installed);
3027: END IF;
3028: --
3021: END IF;
3022: --
3023: IF l_debug_on THEN
3024: WSH_DEBUG_SV.log(l_module_name, 'l_initial_mpickup_date', l_initial_mpickup_date );
3025: WSH_DEBUG_SV.log(l_module_name, 'l_ultimate_mdropoff_date', l_ultimate_mdropoff_date);
3026: WSH_DEBUG_SV.log(l_module_name, 'GC3_IS_INSTALLED', l_gc3_is_installed);
3027: END IF;
3028: --
3029:
3022: --
3023: IF l_debug_on THEN
3024: WSH_DEBUG_SV.log(l_module_name, 'l_initial_mpickup_date', l_initial_mpickup_date );
3025: WSH_DEBUG_SV.log(l_module_name, 'l_ultimate_mdropoff_date', l_ultimate_mdropoff_date);
3026: WSH_DEBUG_SV.log(l_module_name, 'GC3_IS_INSTALLED', l_gc3_is_installed);
3027: END IF;
3028: --
3029:
3030: OPEN get_delivery_for_lock(l_delivery_id); -- BugFix 3570954
3031: FETCH get_delivery_for_lock INTO l_delivery_rec; -- BugFix 3570954
3032:
3033: --OTM R12, check for tms update
3034: IF l_debug_on THEN
3035: WSH_DEBUG_SV.log(l_module_name,'Ignore for Planning:',l_delivery_rec.ignore_for_planning);
3036: END IF;
3037: IF l_gc3_is_installed = 'Y' AND
3038: NVL(l_delivery_rec.ignore_for_planning, 'N') = 'N' THEN--{
3039:
3050: x_trip_info_rec => l_trip_info_rec,
3051: x_return_status => l_return_status);
3052:
3053: IF l_debug_on THEN
3054: WSH_DEBUG_SV.log(l_module_name, 'Return Status after WSH_DELIVERY_VALIDATIONS.get_trip_information', l_return_status);
3055: END IF;
3056:
3057: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3058: x_return_status := l_return_status;
3056:
3057: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3058: x_return_status := l_return_status;
3059: IF l_debug_on THEN
3060: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
3061: END IF;
3062: RAISE e_gc3_exception;
3063: END IF;
3064:
3077: x_delivery_rec => l_delivery_info,
3078: x_return_status => l_return_status);
3079:
3080: IF l_debug_on THEN
3081: WSH_DEBUG_SV.log(l_module_name, 'Return Status after WSH_DELIVERY_VALIDATIONS.get_delivery_information', l_return_status);
3082: END IF;
3083:
3084: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3085: x_return_status := l_return_status;
3083:
3084: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3085: x_return_status := l_return_status;
3086: IF l_debug_on THEN
3087: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
3088: END IF;
3089: RAISE e_gc3_exception;
3090: END IF;
3091:
3118: END IF; --}
3119: END IF; --}
3120:
3121: IF l_debug_on THEN
3122: WSH_DEBUG_SV.log(l_module_name,'l_tms_update flag', l_tms_update);
3123: END IF;
3124: --END OTM R12
3125:
3126: UPDATE WSH_NEW_DELIVERIES
3151: p_new_interface_flag_tab => l_new_interface_flag_tab,
3152: x_return_status => l_return_status);
3153:
3154: IF l_debug_on THEN
3155: WSH_DEBUG_SV.log(l_module_name,'l_return_status after log_otm_exception', l_return_status);
3156: END IF;
3157:
3158: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3159: x_return_status := l_return_status;
3157:
3158: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3159: x_return_status := l_return_status;
3160: IF l_debug_on THEN
3161: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
3162: END IF;
3163: RAISE e_gc3_exception;
3164: END IF;
3165: END IF;--}
3180: --}
3181: END LOOP;
3182: --
3183: IF l_debug_on THEN
3184: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3185: WSH_DEBUG_SV.pop(l_module_name);
3186: END IF;
3187: --
3188: EXCEPTION
3181: END LOOP;
3182: --
3183: IF l_debug_on THEN
3184: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3185: WSH_DEBUG_SV.pop(l_module_name);
3186: END IF;
3187: --
3188: EXCEPTION
3189: WHEN e_gc3_exception THEN
3207: -- The APIs which errored out would have set appropriate message
3208: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3209:
3210: IF l_debug_on THEN
3211: WSH_DEBUG_SV.logmsg(l_module_name,'Error Calculating TP Dates');
3212: WSH_DEBUG_SV.pop(l_module_name);
3213: END IF;
3214:
3215: WHEN lock_detected THEN -- BugFix 3570954
3208: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3209:
3210: IF l_debug_on THEN
3211: WSH_DEBUG_SV.logmsg(l_module_name,'Error Calculating TP Dates');
3212: WSH_DEBUG_SV.pop(l_module_name);
3213: END IF;
3214:
3215: WHEN lock_detected THEN -- BugFix 3570954
3216:
3235: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3236: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
3237:
3238: IF l_debug_on THEN
3239: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
3240: WSH_DEBUG_SV.pop(l_module_name);
3241: END IF;
3242:
3243: WHEN OTHERS THEN
3236: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
3237:
3238: IF l_debug_on THEN
3239: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
3240: WSH_DEBUG_SV.pop(l_module_name);
3241: END IF;
3242:
3243: WHEN OTHERS THEN
3244: -- OTM R12, glog proj, Close the cursors which are OPEN
3263: 'WSH_TP_RELEASE.calculate_del_tpdates',
3264: l_module_name);
3265:
3266: IF l_debug_on THEN
3267: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3268: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3269: END IF;
3270:
3271: END calculate_del_tpdates;
3264: l_module_name);
3265:
3266: IF l_debug_on THEN
3267: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3268: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3269: END IF;
3270:
3271: END calculate_del_tpdates;
3272:
3306: BEGIN
3307: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3308: --
3309: IF l_debug_on IS NULL THEN
3310: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3311: END IF;
3312:
3313: IF l_debug_on THEN
3314: WSH_DEBUG_SV.push(l_module_name);
3310: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3311: END IF;
3312:
3313: IF l_debug_on THEN
3314: WSH_DEBUG_SV.push(l_module_name);
3315: END IF;
3316:
3317: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3318: --
3320:
3321: FOR i IN 1..l_lpndetail_ids.count LOOP
3322: -- The Input Deilvery_Detail_Id
3323: IF l_debug_on THEN
3324: WSH_DEBUG_SV.log(l_module_name, 'Input Container', l_lpndetail_ids(i));
3325: END IF;
3326: calculate_lpn_tpdates(p_delivery_detail_id=> l_lpndetail_ids(i),
3327: x_updated_flag=> l_updated_flag,
3328: x_delivery_id => l_delivery_id,
3342: FOR j IN l_detail_tab.FIRST..l_detail_tab.LAST LOOP
3343: IF l_detail_tab(j) IS NOT NULL THEN
3344: -- Removed Container Flag check for bug 5234326
3345: IF l_debug_on THEN
3346: WSH_DEBUG_SV.log(l_module_name, 'Outer', l_detail_tab(j));
3347: END IF;
3348: calculate_lpn_tpdates(p_delivery_detail_id=> l_detail_tab(j),
3349: x_delivery_id => l_delivery_id,
3350: x_updated_flag=> l_updated_flag,
3368: END LOOP;
3369: --
3370: --
3371: IF l_debug_on THEN
3372: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3373: WSH_DEBUG_SV.pop(l_module_name);
3374: END IF;
3375:
3376: EXCEPTION
3369: --
3370: --
3371: IF l_debug_on THEN
3372: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3373: WSH_DEBUG_SV.pop(l_module_name);
3374: END IF;
3375:
3376: EXCEPTION
3377: WHEN OTHERS THEN
3380: 'WSH_TP_RELEASE.refresh_lpn_hierarchy_dates',
3381: l_module_name);
3382:
3383: IF l_debug_on THEN
3384: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3385: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3386: END IF;
3387:
3388: END refresh_lpn_hierarchy_dates;
3381: l_module_name);
3382:
3383: IF l_debug_on THEN
3384: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3385: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3386: END IF;
3387:
3388: END refresh_lpn_hierarchy_dates;
3389:
3429: BEGIN
3430: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3431: --
3432: IF l_debug_on IS NULL THEN
3433: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3434: END IF;
3435:
3436: IF l_debug_on THEN
3437: WSH_DEBUG_SV.push(l_module_name);
3433: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3434: END IF;
3435:
3436: IF l_debug_on THEN
3437: WSH_DEBUG_SV.push(l_module_name);
3438: END IF;
3439:
3440: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3441: --
3487:
3488:
3489: -- LPN CONV. rv
3490: IF l_debug_on THEN
3491: WSH_DEBUG_SV.log(l_module_name, 'l_cnt_flag', l_cnt_flag);
3492: WSH_DEBUG_SV.log(l_module_name, 'l_organization_id', l_organization_id);
3493: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
3494: END IF;
3495: --
3488:
3489: -- LPN CONV. rv
3490: IF l_debug_on THEN
3491: WSH_DEBUG_SV.log(l_module_name, 'l_cnt_flag', l_cnt_flag);
3492: WSH_DEBUG_SV.log(l_module_name, 'l_organization_id', l_organization_id);
3493: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
3494: END IF;
3495: --
3496: IF (l_cnt_flag = 'Y' and nvl(l_line_direction,'O') in ('O', 'IO'))
3489: -- LPN CONV. rv
3490: IF l_debug_on THEN
3491: WSH_DEBUG_SV.log(l_module_name, 'l_cnt_flag', l_cnt_flag);
3492: WSH_DEBUG_SV.log(l_module_name, 'l_organization_id', l_organization_id);
3493: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
3494: END IF;
3495: --
3496: IF (l_cnt_flag = 'Y' and nvl(l_line_direction,'O') in ('O', 'IO'))
3497: AND WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3510: --
3511: -- Debug Statements
3512: --
3513: IF l_debug_on THEN
3514: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
3515: END IF;
3516: --
3517: WSH_WMS_SYNC_TMP_PKG.MERGE
3518: (
3520: x_return_status => x_return_status
3521: );
3522:
3523: IF l_debug_on THEN
3524: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3525: END IF;
3526: --
3527: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3528: IF l_debug_on THEN
3525: END IF;
3526: --
3527: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3528: IF l_debug_on THEN
3529: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE');
3530: WSH_DEBUG_SV.pop(l_module_name);
3531: END IF;
3532: return;
3533: END IF;
3526: --
3527: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3528: IF l_debug_on THEN
3529: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE');
3530: WSH_DEBUG_SV.pop(l_module_name);
3531: END IF;
3532: return;
3533: END IF;
3534: --
3539: --
3540: -- LPN CONV. rv
3541: --
3542: IF l_debug_on THEN
3543: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3544: WSH_DEBUG_SV.pop(l_module_name);
3545: END IF;
3546:
3547: EXCEPTION
3540: -- LPN CONV. rv
3541: --
3542: IF l_debug_on THEN
3543: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3544: WSH_DEBUG_SV.pop(l_module_name);
3545: END IF;
3546:
3547: EXCEPTION
3548: WHEN OTHERS THEN
3551: 'WSH_TP_RELEASE.calculate_lpn_tpdates(delivery_id)',
3552: l_module_name);
3553:
3554: IF l_debug_on THEN
3555: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3557: END IF;
3558:
3559: END calculate_lpn_tpdates;
3552: l_module_name);
3553:
3554: IF l_debug_on THEN
3555: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3557: END IF;
3558:
3559: END calculate_lpn_tpdates;
3560:
3717:
3718: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3719: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3720: IF l_debug_on IS NULL THEN
3721: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3722: END IF;
3723:
3724: IF l_debug_on THEN
3725: WSH_DEBUG_SV.push(l_module_name);
3721: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3722: END IF;
3723:
3724: IF l_debug_on THEN
3725: WSH_DEBUG_SV.push(l_module_name);
3726: WSH_DEBUG_SV.log(l_module_name,'p_ignore_for_planning',p_ignore_for_planning);
3727: WSH_DEBUG_SV.log(l_module_name,'p_logexcep',p_logexcep);
3728: END IF;
3729:
3722: END IF;
3723:
3724: IF l_debug_on THEN
3725: WSH_DEBUG_SV.push(l_module_name);
3726: WSH_DEBUG_SV.log(l_module_name,'p_ignore_for_planning',p_ignore_for_planning);
3727: WSH_DEBUG_SV.log(l_module_name,'p_logexcep',p_logexcep);
3728: END IF;
3729:
3730: l_exception_name := 'WSH_SHPST_IGNRE_FR_PLNG';
3723:
3724: IF l_debug_on THEN
3725: WSH_DEBUG_SV.push(l_module_name);
3726: WSH_DEBUG_SV.log(l_module_name,'p_ignore_for_planning',p_ignore_for_planning);
3727: WSH_DEBUG_SV.log(l_module_name,'p_logexcep',p_logexcep);
3728: END IF;
3729:
3730: l_exception_name := 'WSH_SHPST_IGNRE_FR_PLNG';
3731: l_logging_entity := 'SHIPPER';
3731: l_logging_entity := 'SHIPPER';
3732: FOR j IN p_delivery_detail_ids.FIRST..p_delivery_detail_ids.LAST LOOP
3733: l_delivery_detail_id :=p_delivery_detail_ids(j);
3734: IF l_debug_on THEN
3735: WSH_DEBUG_SV.log(l_module_name,'l_delivery_detail_id',l_delivery_detail_id);
3736: END IF;
3737: OPEN c_check_ignore_for_planning(l_delivery_detail_id);
3738: FETCH c_check_ignore_for_planning INTO l_ignore_for_planning,l_location_id;
3739: IF c_check_ignore_for_planning%FOUND THEN
3739: IF c_check_ignore_for_planning%FOUND THEN
3740: IF p_logexcep THEN
3741: -- LOG EXCEPTION
3742: IF l_debug_on THEN
3743: WSH_DEBUG_SV.log(l_module_name,'Log exception l_location_id',l_location_id);
3744: END IF;
3745: IF l_location_id IS NOT NULL THEN
3746: FND_MESSAGE.SET_NAME('WSH','WSH_SHIPSET_IGNORE_FOR_PLANG');
3747: FND_MESSAGE.SET_TOKEN('ENTITY',l_delivery_detail_id);
3768: x_return_status := l_return_status;
3769: raise OTHERS;
3770: END IF;
3771: IF l_debug_on THEN
3772: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_ID',L_EXCEPTION_ID);
3773: WSH_DEBUG_SV.log(l_module_name,'x_return_status',l_return_status);
3774: END IF;
3775: ELSE
3776: IF l_debug_on THEN
3769: raise OTHERS;
3770: END IF;
3771: IF l_debug_on THEN
3772: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_ID',L_EXCEPTION_ID);
3773: WSH_DEBUG_SV.log(l_module_name,'x_return_status',l_return_status);
3774: END IF;
3775: ELSE
3776: IF l_debug_on THEN
3777: WSH_DEBUG_SV.log(l_module_name,'Log waring l_delivery_detail_id',l_delivery_detail_id);
3773: WSH_DEBUG_SV.log(l_module_name,'x_return_status',l_return_status);
3774: END IF;
3775: ELSE
3776: IF l_debug_on THEN
3777: WSH_DEBUG_SV.log(l_module_name,'Log waring l_delivery_detail_id',l_delivery_detail_id);
3778: END IF;
3779: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3780: FND_MESSAGE.SET_NAME('WSH','WSH_SHIPSET_IGNORE_FOR_PLANG');
3781: FND_MESSAGE.SET_TOKEN('ENTITY',l_delivery_detail_id);
3786: END LOOP;
3787: --
3788: --
3789: IF l_debug_on THEN
3790: WSH_DEBUG_SV.pop(l_module_name);
3791: END IF;
3792: EXCEPTION
3793: WHEN OTHERS THEN
3794: IF c_check_ignore_for_planning%ISOPEN THEN
3798: wsh_util_core.default_handler('WSH_TP_RELEASE.Check_Shipset_Ignoreflag');
3799: --
3800: --
3801: IF l_debug_on THEN
3802: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| x_return_status||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3803: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3804: END IF;
3805:
3806: END Check_Shipset_Ignoreflag;
3799: --
3800: --
3801: IF l_debug_on THEN
3802: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| x_return_status||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3803: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3804: END IF;
3805:
3806: END Check_Shipset_Ignoreflag;
3807: