[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: (
518: END IF;
519:
520: -- OTM R12, glog proj
521: IF l_debug_on THEN
522: WSH_DEBUG_SV.log(l_module_name,'Gc3 Installed:',l_gc3_is_installed);
523: WSH_DEBUG_SV.log(l_module_name,'Ignore :',l_ignoreplan);
524: END IF;
525:
526: -- MDC Changes, Updating Trip tp_plan_name when it is set to
519:
520: -- OTM R12, glog proj
521: IF l_debug_on THEN
522: WSH_DEBUG_SV.log(l_module_name,'Gc3 Installed:',l_gc3_is_installed);
523: WSH_DEBUG_SV.log(l_module_name,'Ignore :',l_ignoreplan);
524: END IF;
525:
526: -- MDC Changes, Updating Trip tp_plan_name when it is set to
527: -- Ignore for Planning
531: l_tp_plan_name_update := 'N';
532: END IF;
533:
534: IF l_debug_on THEN
535: WSH_DEBUG_SV.log(l_module_name,'Tp Plan Name Update',l_tp_plan_name_update);
536: END IF;
537:
538: --update trips
539: -- OTM R12, glog proj, check the condition first and then update
578: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
579: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
580: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
581: IF l_debug_on THEN
582: WSH_DEBUG_SV.pop(l_module_name);
583: END IF;
584: RETURN;
585: ELSIF l_num_error>0 THEN
586: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
619:
620:
621: IF (nvl(l_wh_type, FND_API.G_MISS_CHAR) IN ('TPW','CMS')) THEN
622: IF l_debug_on THEN
623: 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);
624: END IF;
625:
626: FND_MESSAGE.SET_NAME('WSH','WSH_IGNORE_PLAN_TPW_ERROR');
627: FND_MESSAGE.SET_TOKEN('DEL_NAME',cur.delivery_name);
686: --
687: -- LPN CONV. rv
688: --
689: IF l_debug_on THEN
690: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
691: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
692: END IF;
693: --
694: --
687: -- LPN CONV. rv
688: --
689: IF l_debug_on THEN
690: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
691: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
692: END IF;
693: --
694: --
695: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
702: --
703: -- Debug Statements
704: --
705: IF l_debug_on THEN
706: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
707: END IF;
708: --
709: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
710: (
712: x_return_status => l_return_status
713: );
714: --
715: IF l_debug_on THEN
716: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
717: END IF;
718: --
719: WSH_UTIL_CORE.API_POST_CALL
720: (
740: --
741: -- Debug Statements
742: --
743: IF l_debug_on THEN
744: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
745: END IF;
746: --
747: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
748: (
751: );
752:
753: --
754: IF l_debug_on THEN
755: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
756: END IF;
757: --
758: WSH_UTIL_CORE.API_POST_CALL
759: (
779:
780: --update details
781: -- bug 6369687: While Ship Confirming with 'Backorder All', ignore_for_planning for Delivery Detail should not be set to 'Y'.
782: IF l_debug_on THEN
783: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERIES_GRP.G_ACTION',WSH_DELIVERIES_GRP.G_ACTION);
784: END IF;
785: IF NVL(WSH_DELIVERIES_GRP.G_ACTION,'UPDATE') <> 'CONFIRM' THEN
786: IF l_tmp_detail_ids is not null and l_tmp_detail_ids.COUNT>0 THEN
787: FORALL i in l_tmp_detail_ids.FIRST..l_tmp_detail_ids.LAST
828: x_delivery_rec => l_delivery_info,
829: x_return_status => l_return_status);
830:
831: IF l_debug_on THEN
832: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
833: END IF;
834:
835: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
836: WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
846: IF (l_ignoreplan = 'N') THEN--{
847: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(p_in_ids(i));
848:
849: IF l_debug_on THEN
850: WSH_DEBUG_SV.log(l_module_name,'Is Delivery Empty',l_is_delivery_empty);
851: END IF;
852: IF (l_is_delivery_empty = 'E') THEN
853: ROLLBACK to before_update;
854: l_num_error := l_num_error + 1;
855: GOTO next_del;
856: END IF;
857:
858: IF l_debug_on THEN
859: WSH_DEBUG_SV.log(l_module_name,'Delivery Tms_interface_flag',l_delivery_info.tms_interface_flag);
860: END IF;
861:
862: IF (nvl(l_delivery_info.tms_interface_flag,
863: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) =
901: END IF;
902: END IF;--}
903:
904: IF l_debug_on THEN
905: WSH_DEBUG_SV.log(l_module_name,'l_tms_update',l_tms_update);
906: END IF;
907:
908: -- have to call wms to check if deliveries being updated
909: -- are assigned to a trip being loaded
915:
916: --check delivery's current ignore for planning flag
917: IF (l_delivery_info.ignore_for_planning = 'Y') THEN--{
918: IF l_debug_on THEN
919: WSH_DEBUG_SV.logmsg(l_module_name,
920: 'Calling program unit WMS_SHIPPING_INTERFACE_GRP.PROCESS_DELIVERIES',
921: WSH_DEBUG_SV.C_PROC_LEVEL);
922: END IF;
923:
917: IF (l_delivery_info.ignore_for_planning = 'Y') THEN--{
918: IF l_debug_on THEN
919: WSH_DEBUG_SV.logmsg(l_module_name,
920: 'Calling program unit WMS_SHIPPING_INTERFACE_GRP.PROCESS_DELIVERIES',
921: WSH_DEBUG_SV.C_PROC_LEVEL);
922: END IF;
923:
924: WMS_SHIPPING_INTERFACE_GRP.process_deliveries(
925: p_api_version => 1.0,
932: x_msg_count => l_msg_count,
933: x_msg_data => l_msg_data);
934:
935: IF l_debug_on THEN
936: WSH_DEBUG_SV.log(l_module_name,'Return Status after WMS API Call',l_return_status);
937: WSH_DEBUG_SV.log(l_module_name,'Message Code',l_del_trip_tab(l_del_trip_tab.LAST).r_message_code);
938: END IF;
939:
940: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
933: x_msg_data => l_msg_data);
934:
935: IF l_debug_on THEN
936: WSH_DEBUG_SV.log(l_module_name,'Return Status after WMS API Call',l_return_status);
937: WSH_DEBUG_SV.log(l_module_name,'Message Code',l_del_trip_tab(l_del_trip_tab.LAST).r_message_code);
938: END IF;
939:
940: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
941: WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
992: IF (l_gc3_is_installed = 'Y'
993: AND l_new_interface_flag_tab.COUNT > 0) THEN--{
994:
995: IF l_debug_on THEN
996: WSH_DEBUG_SV.logmsg(l_module_name,
997: 'Calling program unit WSH_XC_UTIL.LOG_OTM_EXCEPTION',
998: WSH_DEBUG_SV.C_PROC_LEVEL);
999: END IF;
1000:
994:
995: IF l_debug_on THEN
996: WSH_DEBUG_SV.logmsg(l_module_name,
997: 'Calling program unit WSH_XC_UTIL.LOG_OTM_EXCEPTION',
998: WSH_DEBUG_SV.C_PROC_LEVEL);
999: END IF;
1000:
1001: WSH_XC_UTIL.log_otm_exception(
1002: p_delivery_info_tab => l_delivery_info_tab,
1003: p_new_interface_flag_tab => l_new_interface_flag_tab,
1004: x_return_status => l_return_status);
1005:
1006: IF l_debug_on THEN
1007: WSH_DEBUG_SV.log(l_module_name,'Return Status after log_otm_exception',l_return_status);
1008: END IF;
1009:
1010: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1011: WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
1030: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
1031: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1032: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1033: IF l_debug_on THEN
1034: WSH_DEBUG_SV.pop(l_module_name);
1035: END IF;
1036: RETURN;
1037: ELSIF l_num_error>0 THEN
1038: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1067: OR (cur.source_code='WSH' and cur.container_flag='N'
1068: and l_gc3_is_installed = 'N' )
1069: THEN
1070: IF l_debug_on THEN
1071: 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);
1072: WSH_DEBUG_SV.log(l_module_name,'source_code, container_flag',cur.source_code||cur.container_flag);
1073: END IF;
1074:
1075: FND_MESSAGE.SET_NAME('WSH','WSH_IGNORE_PLAN_DETTPW_ERROR');
1068: and l_gc3_is_installed = 'N' )
1069: THEN
1070: IF l_debug_on THEN
1071: 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);
1072: WSH_DEBUG_SV.log(l_module_name,'source_code, container_flag',cur.source_code||cur.container_flag);
1073: END IF;
1074:
1075: FND_MESSAGE.SET_NAME('WSH','WSH_IGNORE_PLAN_DETTPW_ERROR');
1076: FND_MESSAGE.SET_TOKEN('DET_ID',p_in_ids(i));
1166: END LOOP;
1167: --
1168: --
1169: IF l_debug_on THEN
1170: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
1171: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
1172: END IF;
1173: --
1174: --
1167: --
1168: --
1169: IF l_debug_on THEN
1170: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
1171: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
1172: END IF;
1173: --
1174: --
1175: IF WSH_WMS_LPN_GRP.GK_WMS_UPD_GRP
1179: --
1180: -- Debug Statements
1181: --
1182: IF l_debug_on THEN
1183: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1184: END IF;
1185: --
1186: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
1187: (
1189: x_return_status => l_return_status
1190: );
1191: --
1192: IF l_debug_on THEN
1193: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
1194: END IF;
1195: --
1196: WSH_UTIL_CORE.API_POST_CALL
1197: (
1216: --
1217: -- Debug Statements
1218: --
1219: IF l_debug_on THEN
1220: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
1221: END IF;
1222: --
1223: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
1224: (
1227: );
1228:
1229: --
1230: IF l_debug_on THEN
1231: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
1232: END IF;
1233: --
1234: WSH_UTIL_CORE.API_POST_CALL
1235: (
1302: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
1303: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1304: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.pop(l_module_name);
1307: END IF;
1308: RETURN;
1309: ELSIF l_num_error>0 THEN
1310: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1318:
1319: END IF; --tp_is_installed
1320:
1321: IF l_debug_on THEN
1322: WSH_DEBUG_SV.pop(l_module_name);
1323: END IF;
1324:
1325: EXCEPTION
1326: WHEN OTHERS THEN
1329: --
1330: -- Debug Statements
1331: --
1332: IF l_debug_on THEN
1333: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1334: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1335: END IF;
1336: --
1337: END change_ignoreplan_status;
1330: -- Debug Statements
1331: --
1332: IF l_debug_on THEN
1333: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1334: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1335: END IF;
1336: --
1337: END change_ignoreplan_status;
1338:
1414:
1415: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1416:
1417: IF l_debug_on IS NULL THEN
1418: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1419: END IF;
1420:
1421: IF l_debug_on THEN
1422: WSH_DEBUG_SV.push(l_module_name);
1418: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1419: END IF;
1420:
1421: IF l_debug_on THEN
1422: WSH_DEBUG_SV.push(l_module_name);
1423: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1424: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1425: END IF;
1426:
1419: END IF;
1420:
1421: IF l_debug_on THEN
1422: WSH_DEBUG_SV.push(l_module_name);
1423: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1424: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1425: END IF;
1426:
1427: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1420:
1421: IF l_debug_on THEN
1422: WSH_DEBUG_SV.push(l_module_name);
1423: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1424: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1425: END IF;
1426:
1427: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1428:
1439: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(del_cur.delivery_id));
1440: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1441: wsh_util_core.add_message(x_return_status);
1442: IF l_debug_on THEN
1443: WSH_DEBUG_SV.pop(l_module_name);
1444: END IF;
1445: RETURN;
1446: END IF;
1447:
1459: FND_MESSAGE.SET_TOKEN('NAME',wsh_new_deliveries_pvt.get_name(del_cur.delivery_id));
1460: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1461: wsh_util_core.add_message(x_return_status);
1462: IF l_debug_on THEN
1463: WSH_DEBUG_SV.pop(l_module_name);
1464: END IF;
1465: rollback to before_firm;
1466: RETURN;
1467: END IF;
1477: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1478: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1479: wsh_util_core.add_message(x_return_status);
1480: IF l_debug_on THEN
1481: WSH_DEBUG_SV.pop(l_module_name);
1482: END IF;
1483: RETURN;
1484: END IF;
1485:
1499: FND_MESSAGE.SET_TOKEN('NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1500: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1501: wsh_util_core.add_message(x_return_status);
1502: IF l_debug_on THEN
1503: WSH_DEBUG_SV.pop(l_module_name);
1504: END IF;
1505: rollback to before_firm;
1506: RETURN;
1507: END IF;
1515: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_entity_id));
1516: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1517: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.pop(l_module_name);
1520: END IF;
1521: rollback to before_firm;
1522: RETURN;
1523: ELSE
1530: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
1531: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1532: wsh_util_core.add_message(x_return_status);
1533: IF l_debug_on THEN
1534: WSH_DEBUG_SV.pop(l_module_name);
1535: END IF;
1536: rollback to before_firm;
1537: RETURN;
1538: END IF;
1559: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1560: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1561: wsh_util_core.add_message(x_return_status);
1562: IF l_debug_on THEN
1563: WSH_DEBUG_SV.pop(l_module_name);
1564: END IF;
1565: RETURN;
1566: END IF;
1567:
1579: FND_MESSAGE.SET_TOKEN('NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1580: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1581: wsh_util_core.add_message(x_return_status);
1582: IF l_debug_on THEN
1583: WSH_DEBUG_SV.pop(l_module_name);
1584: END IF;
1585: rollback to before_firm;
1586: RETURN;
1587: END IF;
1595: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1596: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1597: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1598: IF l_debug_on THEN
1599: WSH_DEBUG_SV.pop(l_module_name);
1600: END IF;
1601: rollback to before_firm;
1602: RETURN;
1603: ELSE
1611: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1612: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1613: wsh_util_core.add_message(x_return_status);
1614: IF l_debug_on THEN
1615: WSH_DEBUG_SV.pop(l_module_name);
1616: END IF;
1617: rollback to before_firm;
1618: RETURN;
1619: END IF;
1622:
1623: END IF;--p_entity
1624:
1625: IF l_debug_on THEN
1626: WSH_DEBUG_SV.pop(l_module_name);
1627: END IF;
1628: EXCEPTION
1629: WHEN OTHERS THEN
1630: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1633: --
1634: -- Debug Statements
1635: --
1636: IF l_debug_on THEN
1637: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1638: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1639: END IF;
1640: --
1641:
1634: -- Debug Statements
1635: --
1636: IF l_debug_on THEN
1637: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1638: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1639: END IF;
1640: --
1641:
1642: end firm_entity;
1711:
1712: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1713:
1714: IF l_debug_on IS NULL THEN
1715: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1716: END IF;
1717:
1718: IF l_debug_on THEN
1719: WSH_DEBUG_SV.push(l_module_name);
1715: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1716: END IF;
1717:
1718: IF l_debug_on THEN
1719: WSH_DEBUG_SV.push(l_module_name);
1720: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1721: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1722: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
1723: END IF;
1716: END IF;
1717:
1718: IF l_debug_on THEN
1719: WSH_DEBUG_SV.push(l_module_name);
1720: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1721: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1722: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
1723: END IF;
1724:
1717:
1718: IF l_debug_on THEN
1719: WSH_DEBUG_SV.push(l_module_name);
1720: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1721: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1722: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
1723: END IF;
1724:
1725: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1718: IF l_debug_on THEN
1719: WSH_DEBUG_SV.push(l_module_name);
1720: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
1721: WSH_DEBUG_SV.log(l_module_name,'p_entity_id',p_entity_id);
1722: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
1723: END IF;
1724:
1725: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1726:
1748: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
1749: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1750: wsh_util_core.add_message(x_return_status);
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.pop(l_module_name);
1753: END IF;
1754: rollback to before_unfirm;
1755: RETURN;
1756: END IF;
1777: FND_MESSAGE.SET_TOKEN('NAME',wsh_new_deliveries_pvt.get_name(del_cur.delivery_id));
1778: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1779: wsh_util_core.add_message(x_return_status);
1780: IF l_debug_on THEN
1781: WSH_DEBUG_SV.pop(l_module_name);
1782: END IF;
1783: rollback to before_unfirm;
1784: RETURN;
1785: END IF;
1799: FND_MESSAGE.SET_TOKEN('NAME',wsh_trips_pvt.get_name(l_trips_cur.trip_id));
1800: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1801: wsh_util_core.add_message(x_return_status);
1802: IF l_debug_on THEN
1803: WSH_DEBUG_SV.pop(l_module_name);
1804: END IF;
1805: rollback to before_unfirm;
1806: RETURN;
1807: END IF;
1821: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1822: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1823: wsh_util_core.add_message(x_return_status);
1824: IF l_debug_on THEN
1825: WSH_DEBUG_SV.pop(l_module_name);
1826: END IF;
1827: rollback to before_unfirm;
1828: RETURN;
1829: END IF;
1843: FND_MESSAGE.SET_TOKEN('NAME',wsh_trips_pvt.get_name(p_entity_id));
1844: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1845: wsh_util_core.add_message(x_return_status);
1846: IF l_debug_on THEN
1847: WSH_DEBUG_SV.pop(l_module_name);
1848: END IF;
1849: rollback to before_unfirm;
1850: RETURN;
1851: END IF;
1853:
1854: END IF;
1855:
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.pop(l_module_name);
1858: END IF;
1859:
1860: EXCEPTION
1861: WHEN OTHERS THEN
1865: --
1866: -- Debug Statements
1867: --
1868: IF l_debug_on THEN
1869: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1870: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1871: END IF;
1872: --
1873:
1866: -- Debug Statements
1867: --
1868: IF l_debug_on THEN
1869: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1870: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1871: END IF;
1872: --
1873:
1874: end unfirm_entity;
1982: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1983: --
1984: IF l_debug_on IS NULL
1985: THEN
1986: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1987: END IF;
1988:
1989: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1990:
1990:
1991:
1992: --
1993: IF l_debug_on THEN
1994: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
1995: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
1996: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
1997: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
1998: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
1991:
1992: --
1993: IF l_debug_on THEN
1994: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
1995: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
1996: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
1997: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
1998: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
1999: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
1992: --
1993: IF l_debug_on THEN
1994: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
1995: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
1996: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
1997: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
1998: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
1999: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2000: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
1993: IF l_debug_on THEN
1994: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
1995: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
1996: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
1997: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
1998: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
1999: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2000: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2001: wsh_debug_sv.log (l_module_name,'p_demand_staisfaction_date', p_demand_satisfaction_date);
1994: wsh_debug_sv.push(l_module_name, 'calculate_tp_dates');
1995: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
1996: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
1997: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
1998: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
1999: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2000: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2001: wsh_debug_sv.log (l_module_name,'p_demand_staisfaction_date', p_demand_satisfaction_date);
2002: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
1995: wsh_debug_sv.log (l_module_name,'p_request_date_type', p_request_date_type);
1996: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
1997: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
1998: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
1999: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2000: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2001: wsh_debug_sv.log (l_module_name,'p_demand_staisfaction_date', p_demand_satisfaction_date);
2002: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2003: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
1996: wsh_debug_sv.log (l_module_name,'p_latest_acceptable_date', p_latest_acceptable_date);
1997: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
1998: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
1999: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2000: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2001: wsh_debug_sv.log (l_module_name,'p_demand_staisfaction_date', p_demand_satisfaction_date);
2002: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2003: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2004: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
1997: wsh_debug_sv.log (l_module_name,'p_promise_date', p_promise_date);
1998: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
1999: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2000: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2001: wsh_debug_sv.log (l_module_name,'p_demand_staisfaction_date', p_demand_satisfaction_date);
2002: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2003: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2004: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2005: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
1998: wsh_debug_sv.log (l_module_name,'p_schedule_arrival_date',p_schedule_arrival_date);
1999: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2000: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2001: wsh_debug_sv.log (l_module_name,'p_demand_staisfaction_date', p_demand_satisfaction_date);
2002: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2003: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2004: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2005: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2006: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
1999: wsh_debug_sv.log (l_module_name,'p_schedule_ship_date',p_schedule_ship_date);
2000: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2001: wsh_debug_sv.log (l_module_name,'p_demand_staisfaction_date', p_demand_satisfaction_date);
2002: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2003: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2004: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2005: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2006: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
2007: END IF;
2000: wsh_debug_sv.log (l_module_name,'p_earliest_acceptable_date', p_earliest_acceptable_date);
2001: wsh_debug_sv.log (l_module_name,'p_demand_staisfaction_date', p_demand_satisfaction_date);
2002: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2003: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2004: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2005: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2006: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
2007: END IF;
2008:
2001: wsh_debug_sv.log (l_module_name,'p_demand_staisfaction_date', p_demand_satisfaction_date);
2002: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2003: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2004: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2005: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2006: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
2007: END IF;
2008:
2009:
2002: wsh_debug_sv.log (l_module_name,'p_source_line_id', p_source_line_id);
2003: wsh_debug_sv.log (l_module_name,'p_source_code', p_source_code);
2004: wsh_debug_sv.log (l_module_name,'p_organization_id', p_organization_id);
2005: wsh_debug_sv.log (l_module_name,'p_inventory_item_id', p_inventory_item_id);
2006: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CUSTOM_PUB.calculate_tp_dates',WSH_DEBUG_SV.C_PROC_LEVEL);
2007: END IF;
2008:
2009:
2010: WSH_CUSTOM_PUB.calculate_tp_dates(
2016: x_latest_dropoff_date => l_latest_dropoff_date,
2017: x_modified => l_modified);
2018:
2019: IF l_debug_on THEN
2020: wsh_debug_sv.log (l_module_name,'l_modified', l_modified);
2021: END IF;
2022:
2023: IF l_modified='Y' THEN -- use results from customized call, go directly to end of procedure
2024: x_earliest_pickup_date := l_earliest_pickup_date;
2026: x_earliest_dropoff_date := l_earliest_dropoff_date;
2027: x_latest_dropoff_date := l_latest_dropoff_date;
2028:
2029: IF l_debug_on THEN
2030: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2031: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2032: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2033: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2034: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2027: x_latest_dropoff_date := l_latest_dropoff_date;
2028:
2029: IF l_debug_on THEN
2030: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2031: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2032: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2033: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2034: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2035: END IF;
2028:
2029: IF l_debug_on THEN
2030: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2031: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2032: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2033: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2034: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2035: END IF;
2036:
2029: IF l_debug_on THEN
2030: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2031: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2032: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2033: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2034: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2035: END IF;
2036:
2037: ELSE -- l_modified='N' - use our calculation
2030: wsh_debug_sv.logmsg (l_module_name,'Results from customized call...');
2031: wsh_debug_sv.log (l_module_name,'l_earliest_pickup_date', l_earliest_pickup_date);
2032: wsh_debug_sv.log (l_module_name,'l_latest_pickup_date', l_latest_pickup_date);
2033: wsh_debug_sv.log (l_module_name,'l_earliest_dropoff_date', l_earliest_dropoff_date);
2034: wsh_debug_sv.log (l_module_name,'l_latest_dropoff_date', l_latest_dropoff_date);
2035: END IF;
2036:
2037: ELSE -- l_modified='N' - use our calculation
2038:
2046: l_earliestprofile_EAD);
2047: END IF;
2048:
2049: IF l_debug_on THEN
2050: wsh_debug_sv.log (l_module_name,'G_LDD_profile', G_LDD_profile);
2051: wsh_debug_sv.log (l_module_name,'G_earliest_profile', G_earliest_profile);
2052: END IF;
2053:
2054: --Bug 3816115
2047: END IF;
2048:
2049: IF l_debug_on THEN
2050: wsh_debug_sv.log (l_module_name,'G_LDD_profile', G_LDD_profile);
2051: wsh_debug_sv.log (l_module_name,'G_earliest_profile', G_earliest_profile);
2052: END IF;
2053:
2054: --Bug 3816115
2055: IF G_lc_days_profile IS NULL THEN
2067: l_days_profile := 0;
2068: END IF;
2069: --
2070: IF l_debug_on THEN
2071: wsh_debug_sv.log(l_module_name, 'l_days_profile', l_days_profile);
2072: END IF;
2073: --
2074: -- Bug 4368984
2075: -- Populate lastest ship/delivery date
2077: G_populate_date_profile := NVL(FND_PROFILE.VALUE('WSH_POPULATE_LATEST_SHIP_DELIVERY_DATE'), 'N');
2078: END IF;
2079:
2080: IF l_debug_on THEN
2081: wsh_debug_sv.log (l_module_name,'G_populate_date_profile', G_populate_date_profile);
2082: END IF;
2083: --
2084:
2085: IF p_request_date_type IS NULL THEN
2368: END IF; --l_modified='Y'
2369:
2370: --
2371: IF l_debug_on THEN
2372: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2373: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2374: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2375: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2376: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2369:
2370: --
2371: IF l_debug_on THEN
2372: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2373: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2374: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2375: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2376: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2377: WSH_DEBUG_SV.pop(l_module_name);
2370: --
2371: IF l_debug_on THEN
2372: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2373: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2374: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2375: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2376: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2377: WSH_DEBUG_SV.pop(l_module_name);
2378: END IF;
2371: IF l_debug_on THEN
2372: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2373: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2374: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2375: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2376: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2377: WSH_DEBUG_SV.pop(l_module_name);
2378: END IF;
2379: --
2372: wsh_debug_sv.log (l_module_name,'x_earliest_pickup_date', x_earliest_pickup_date);
2373: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2374: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2375: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2376: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2377: WSH_DEBUG_SV.pop(l_module_name);
2378: END IF;
2379: --
2380: EXCEPTION
2373: wsh_debug_sv.log (l_module_name,'x_latest_pickup_date', x_latest_pickup_date);
2374: wsh_debug_sv.log (l_module_name,'x_earliest_dropoff_date', x_earliest_dropoff_date);
2375: wsh_debug_sv.log (l_module_name,'x_latest_dropoff_date', x_latest_dropoff_date);
2376: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2377: WSH_DEBUG_SV.pop(l_module_name);
2378: END IF;
2379: --
2380: EXCEPTION
2381: WHEN OTHERS THEN
2380: EXCEPTION
2381: WHEN OTHERS THEN
2382: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2383: IF l_debug_on THEN
2384: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2385: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2386: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2387: END IF;
2388: END calculate_tp_dates;
2381: WHEN OTHERS THEN
2382: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2383: IF l_debug_on THEN
2384: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2385: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2386: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2387: END IF;
2388: END calculate_tp_dates;
2389:
2382: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2383: IF l_debug_on THEN
2384: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2385: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2386: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2387: END IF;
2388: END calculate_tp_dates;
2389:
2390: /**
2444: BEGIN
2445: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2446: --
2447: IF l_debug_on IS NULL THEN
2448: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2449: END IF;
2450:
2451: IF l_debug_on THEN
2452: wsh_debug_sv.push(l_module_name);
2448: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2449: END IF;
2450:
2451: IF l_debug_on THEN
2452: wsh_debug_sv.push(l_module_name);
2453: wsh_debug_sv.log (l_module_name,'p_entity', p_entity);
2454: wsh_debug_sv.log (l_module_name,'p_entity_ids.count', p_entity_ids.count);
2455: END IF;
2456:
2449: END IF;
2450:
2451: IF l_debug_on THEN
2452: wsh_debug_sv.push(l_module_name);
2453: wsh_debug_sv.log (l_module_name,'p_entity', p_entity);
2454: wsh_debug_sv.log (l_module_name,'p_entity_ids.count', p_entity_ids.count);
2455: END IF;
2456:
2457: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2450:
2451: IF l_debug_on THEN
2452: wsh_debug_sv.push(l_module_name);
2453: wsh_debug_sv.log (l_module_name,'p_entity', p_entity);
2454: wsh_debug_sv.log (l_module_name,'p_entity_ids.count', p_entity_ids.count);
2455: END IF;
2456:
2457: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2458: --
2540:
2541: --
2542: --
2543: IF l_debug_on THEN
2544: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2545: WSH_DEBUG_SV.pop(l_module_name);
2546: END IF;
2547:
2548: EXCEPTION
2541: --
2542: --
2543: IF l_debug_on THEN
2544: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2545: WSH_DEBUG_SV.pop(l_module_name);
2546: END IF;
2547:
2548: EXCEPTION
2549: WHEN OTHERS THEN
2552: 'WSH_TP_RELEASE.calculate_cont_del_tpdates',
2553: l_module_name);
2554:
2555: IF l_debug_on THEN
2556: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2558: END IF;
2559: END calculate_cont_del_tpdates;
2560:
2553: l_module_name);
2554:
2555: IF l_debug_on THEN
2556: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2558: END IF;
2559: END calculate_cont_del_tpdates;
2560:
2561: /**
2663: --
2664: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2665: --
2666: IF l_debug_on IS NULL THEN
2667: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2668: END IF;
2669: --
2670: IF l_debug_on THEN
2671: WSH_DEBUG_SV.push(l_module_name);
2667: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2668: END IF;
2669: --
2670: IF l_debug_on THEN
2671: WSH_DEBUG_SV.push(l_module_name);
2672: END IF;
2673: --
2674: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2675: --
2687: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT;
2688: -- end of OTM R12, glog proj
2689:
2690: IF l_debug_on THEN
2691: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT. Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
2692: END IF;
2693: --
2694: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec_type,
2695: x_return_status);
2694: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec_type,
2695: x_return_status);
2696: --
2697: IF l_debug_on THEN
2698: WSH_DEBUG_SV.log(l_module_name, 'After calling Get_Global_Parameters',
2699: x_return_status );
2700: END IF;
2701: --
2702: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2709: l_del_date_calc_method := 'S';
2710: END IF;
2711: --
2712: IF l_debug_on THEN
2713: WSH_DEBUG_SV.logmsg(l_module_name, 'l_del_date_calc_method: ' || l_del_date_calc_method);
2714: END IF;
2715: --
2716: FOR i IN 1..l_del_ids.count LOOP
2717: --{
2749: l_min_detSch_date := NULL;
2750: END IF;
2751: --
2752: IF l_debug_on THEN
2753: wsh_debug_sv.log(l_module_name, 'l_earliest_mpickup_date',
2754: l_earliest_mpickup_date);
2755: wsh_debug_Sv.log(l_module_name, 'l_earliest_mdropoff_date',
2756: l_earliest_mdropoff_date);
2757: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2751: --
2752: IF l_debug_on THEN
2753: wsh_debug_sv.log(l_module_name, 'l_earliest_mpickup_date',
2754: l_earliest_mpickup_date);
2755: wsh_debug_Sv.log(l_module_name, 'l_earliest_mdropoff_date',
2756: l_earliest_mdropoff_date);
2757: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2758: l_latest_mpickup_date);
2759: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2753: wsh_debug_sv.log(l_module_name, 'l_earliest_mpickup_date',
2754: l_earliest_mpickup_date);
2755: wsh_debug_Sv.log(l_module_name, 'l_earliest_mdropoff_date',
2756: l_earliest_mdropoff_date);
2757: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2758: l_latest_mpickup_date);
2759: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2760: l_latest_mdropoff_date);
2761: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2755: wsh_debug_Sv.log(l_module_name, 'l_earliest_mdropoff_date',
2756: l_earliest_mdropoff_date);
2757: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2758: l_latest_mpickup_date);
2759: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2760: l_latest_mdropoff_date);
2761: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2762: l_min_detSch_date);
2763: wsh_debug_sv.log(l_module_name, 'l_min_detReq_date',
2757: wsh_debug_sv.log(l_module_name, 'l_latest_mpickup_date',
2758: l_latest_mpickup_date);
2759: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2760: l_latest_mdropoff_date);
2761: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2762: l_min_detSch_date);
2763: wsh_debug_sv.log(l_module_name, 'l_min_detReq_date',
2764: l_min_detReq_date);
2765: wsh_debug_sv.log(l_module_name, 'l_max_detSch_date',
2759: wsh_debug_sv.log(l_module_name, 'l_latest_mdropoff_date',
2760: l_latest_mdropoff_date);
2761: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2762: l_min_detSch_date);
2763: wsh_debug_sv.log(l_module_name, 'l_min_detReq_date',
2764: l_min_detReq_date);
2765: wsh_debug_sv.log(l_module_name, 'l_max_detSch_date',
2766: l_max_detSch_date);
2767: END IF;
2761: wsh_debug_sv.log(l_module_name, 'l_min_detSch_date',
2762: l_min_detSch_date);
2763: wsh_debug_sv.log(l_module_name, 'l_min_detReq_date',
2764: l_min_detReq_date);
2765: wsh_debug_sv.log(l_module_name, 'l_max_detSch_date',
2766: l_max_detSch_date);
2767: END IF;
2768: --
2769: IF (l_latest_mpickup_date IS NOT NULL AND
2805: l_max_schedule_date, l_min_schedule_date,
2806: l_min_request_date, l_max_request_date;
2807: --
2808: IF l_debug_on THEN
2809: WSH_DEBUG_SV.log(l_module_name, 'l_max_schedule_date', l_max_schedule_date);
2810: WSH_DEBUG_SV.log(l_module_name, 'l_min_schedule_date', l_min_schedule_date);
2811: WSH_DEBUG_SV.log(l_module_name, 'l_min_request_date', l_min_request_date);
2812: WSH_DEBUG_SV.log(l_module_name, 'l_max_request_date', l_max_request_date);
2813: END IF;
2806: l_min_request_date, l_max_request_date;
2807: --
2808: IF l_debug_on THEN
2809: WSH_DEBUG_SV.log(l_module_name, 'l_max_schedule_date', l_max_schedule_date);
2810: WSH_DEBUG_SV.log(l_module_name, 'l_min_schedule_date', l_min_schedule_date);
2811: WSH_DEBUG_SV.log(l_module_name, 'l_min_request_date', l_min_request_date);
2812: WSH_DEBUG_SV.log(l_module_name, 'l_max_request_date', l_max_request_date);
2813: END IF;
2814: --
2807: --
2808: IF l_debug_on THEN
2809: WSH_DEBUG_SV.log(l_module_name, 'l_max_schedule_date', l_max_schedule_date);
2810: WSH_DEBUG_SV.log(l_module_name, 'l_min_schedule_date', l_min_schedule_date);
2811: WSH_DEBUG_SV.log(l_module_name, 'l_min_request_date', l_min_request_date);
2812: WSH_DEBUG_SV.log(l_module_name, 'l_max_request_date', l_max_request_date);
2813: END IF;
2814: --
2815: IF max_min_om_deltp_dates%FOUND THEN
2808: IF l_debug_on THEN
2809: WSH_DEBUG_SV.log(l_module_name, 'l_max_schedule_date', l_max_schedule_date);
2810: WSH_DEBUG_SV.log(l_module_name, 'l_min_schedule_date', l_min_schedule_date);
2811: WSH_DEBUG_SV.log(l_module_name, 'l_min_request_date', l_min_request_date);
2812: WSH_DEBUG_SV.log(l_module_name, 'l_max_request_date', l_max_request_date);
2813: END IF;
2814: --
2815: IF max_min_om_deltp_dates%FOUND THEN
2816: --{
2873: --
2874: END IF;
2875: --
2876: IF l_debug_on THEN
2877: WSH_DEBUG_SV.log(l_module_name, 'l_initial_mpickup_date', l_initial_mpickup_date );
2878: WSH_DEBUG_SV.log(l_module_name, 'l_ultimate_mdropoff_date', l_ultimate_mdropoff_date);
2879: WSH_DEBUG_SV.log(l_module_name, 'GC3_IS_INSTALLED', l_gc3_is_installed);
2880: END IF;
2881: --
2874: END IF;
2875: --
2876: IF l_debug_on THEN
2877: WSH_DEBUG_SV.log(l_module_name, 'l_initial_mpickup_date', l_initial_mpickup_date );
2878: WSH_DEBUG_SV.log(l_module_name, 'l_ultimate_mdropoff_date', l_ultimate_mdropoff_date);
2879: WSH_DEBUG_SV.log(l_module_name, 'GC3_IS_INSTALLED', l_gc3_is_installed);
2880: END IF;
2881: --
2882:
2875: --
2876: IF l_debug_on THEN
2877: WSH_DEBUG_SV.log(l_module_name, 'l_initial_mpickup_date', l_initial_mpickup_date );
2878: WSH_DEBUG_SV.log(l_module_name, 'l_ultimate_mdropoff_date', l_ultimate_mdropoff_date);
2879: WSH_DEBUG_SV.log(l_module_name, 'GC3_IS_INSTALLED', l_gc3_is_installed);
2880: END IF;
2881: --
2882:
2883: OPEN get_delivery_for_lock(l_delivery_id); -- BugFix 3570954
2884: FETCH get_delivery_for_lock INTO l_delivery_rec; -- BugFix 3570954
2885:
2886: --OTM R12, check for tms update
2887: IF l_debug_on THEN
2888: WSH_DEBUG_SV.log(l_module_name,'Ignore for Planning:',l_delivery_rec.ignore_for_planning);
2889: END IF;
2890: IF l_gc3_is_installed = 'Y' AND
2891: NVL(l_delivery_rec.ignore_for_planning, 'N') = 'N' THEN--{
2892:
2903: x_trip_info_rec => l_trip_info_rec,
2904: x_return_status => l_return_status);
2905:
2906: IF l_debug_on THEN
2907: WSH_DEBUG_SV.log(l_module_name, 'Return Status after WSH_DELIVERY_VALIDATIONS.get_trip_information', l_return_status);
2908: END IF;
2909:
2910: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2911: x_return_status := l_return_status;
2909:
2910: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2911: x_return_status := l_return_status;
2912: IF l_debug_on THEN
2913: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
2914: END IF;
2915: RAISE e_gc3_exception;
2916: END IF;
2917:
2930: x_delivery_rec => l_delivery_info,
2931: x_return_status => l_return_status);
2932:
2933: IF l_debug_on THEN
2934: WSH_DEBUG_SV.log(l_module_name, 'Return Status after WSH_DELIVERY_VALIDATIONS.get_delivery_information', l_return_status);
2935: END IF;
2936:
2937: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2938: x_return_status := l_return_status;
2936:
2937: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2938: x_return_status := l_return_status;
2939: IF l_debug_on THEN
2940: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
2941: END IF;
2942: RAISE e_gc3_exception;
2943: END IF;
2944:
2971: END IF; --}
2972: END IF; --}
2973:
2974: IF l_debug_on THEN
2975: WSH_DEBUG_SV.log(l_module_name,'l_tms_update flag', l_tms_update);
2976: END IF;
2977: --END OTM R12
2978:
2979: UPDATE WSH_NEW_DELIVERIES
3004: p_new_interface_flag_tab => l_new_interface_flag_tab,
3005: x_return_status => l_return_status);
3006:
3007: IF l_debug_on THEN
3008: WSH_DEBUG_SV.log(l_module_name,'l_return_status after log_otm_exception', l_return_status);
3009: END IF;
3010:
3011: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3012: x_return_status := l_return_status;
3010:
3011: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3012: x_return_status := l_return_status;
3013: IF l_debug_on THEN
3014: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
3015: END IF;
3016: RAISE e_gc3_exception;
3017: END IF;
3018: END IF;--}
3033: --}
3034: END LOOP;
3035: --
3036: IF l_debug_on THEN
3037: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3038: WSH_DEBUG_SV.pop(l_module_name);
3039: END IF;
3040: --
3041: EXCEPTION
3034: END LOOP;
3035: --
3036: IF l_debug_on THEN
3037: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3038: WSH_DEBUG_SV.pop(l_module_name);
3039: END IF;
3040: --
3041: EXCEPTION
3042: WHEN e_gc3_exception THEN
3060: -- The APIs which errored out would have set appropriate message
3061: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3062:
3063: IF l_debug_on THEN
3064: WSH_DEBUG_SV.logmsg(l_module_name,'Error Calculating TP Dates');
3065: WSH_DEBUG_SV.pop(l_module_name);
3066: END IF;
3067:
3068: WHEN lock_detected THEN -- BugFix 3570954
3061: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3062:
3063: IF l_debug_on THEN
3064: WSH_DEBUG_SV.logmsg(l_module_name,'Error Calculating TP Dates');
3065: WSH_DEBUG_SV.pop(l_module_name);
3066: END IF;
3067:
3068: WHEN lock_detected THEN -- BugFix 3570954
3069:
3088: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3089: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
3090:
3091: IF l_debug_on THEN
3092: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
3093: WSH_DEBUG_SV.pop(l_module_name);
3094: END IF;
3095:
3096: WHEN OTHERS THEN
3089: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
3090:
3091: IF l_debug_on THEN
3092: WSH_DEBUG_SV.log(l_module_name,'Cannot lock delivery for update',l_delivery_id);
3093: WSH_DEBUG_SV.pop(l_module_name);
3094: END IF;
3095:
3096: WHEN OTHERS THEN
3097: -- OTM R12, glog proj, Close the cursors which are OPEN
3116: 'WSH_TP_RELEASE.calculate_del_tpdates',
3117: l_module_name);
3118:
3119: IF l_debug_on THEN
3120: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3121: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3122: END IF;
3123:
3124: END calculate_del_tpdates;
3117: l_module_name);
3118:
3119: IF l_debug_on THEN
3120: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3121: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3122: END IF;
3123:
3124: END calculate_del_tpdates;
3125:
3159: BEGIN
3160: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3161: --
3162: IF l_debug_on IS NULL THEN
3163: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3164: END IF;
3165:
3166: IF l_debug_on THEN
3167: WSH_DEBUG_SV.push(l_module_name);
3163: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3164: END IF;
3165:
3166: IF l_debug_on THEN
3167: WSH_DEBUG_SV.push(l_module_name);
3168: END IF;
3169:
3170: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3171: --
3173:
3174: FOR i IN 1..l_lpndetail_ids.count LOOP
3175: -- The Input Deilvery_Detail_Id
3176: IF l_debug_on THEN
3177: WSH_DEBUG_SV.log(l_module_name, 'Input Container', l_lpndetail_ids(i));
3178: END IF;
3179: calculate_lpn_tpdates(p_delivery_detail_id=> l_lpndetail_ids(i),
3180: x_updated_flag=> l_updated_flag,
3181: x_delivery_id => l_delivery_id,
3195: FOR j IN l_detail_tab.FIRST..l_detail_tab.LAST LOOP
3196: IF l_detail_tab(j) IS NOT NULL THEN
3197: -- Removed Container Flag check for bug 5234326
3198: IF l_debug_on THEN
3199: WSH_DEBUG_SV.log(l_module_name, 'Outer', l_detail_tab(j));
3200: END IF;
3201: calculate_lpn_tpdates(p_delivery_detail_id=> l_detail_tab(j),
3202: x_delivery_id => l_delivery_id,
3203: x_updated_flag=> l_updated_flag,
3221: END LOOP;
3222: --
3223: --
3224: IF l_debug_on THEN
3225: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3226: WSH_DEBUG_SV.pop(l_module_name);
3227: END IF;
3228:
3229: EXCEPTION
3222: --
3223: --
3224: IF l_debug_on THEN
3225: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3226: WSH_DEBUG_SV.pop(l_module_name);
3227: END IF;
3228:
3229: EXCEPTION
3230: WHEN OTHERS THEN
3233: 'WSH_TP_RELEASE.refresh_lpn_hierarchy_dates',
3234: l_module_name);
3235:
3236: IF l_debug_on THEN
3237: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3238: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3239: END IF;
3240:
3241: END refresh_lpn_hierarchy_dates;
3234: l_module_name);
3235:
3236: IF l_debug_on THEN
3237: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3238: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3239: END IF;
3240:
3241: END refresh_lpn_hierarchy_dates;
3242:
3282: BEGIN
3283: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3284: --
3285: IF l_debug_on IS NULL THEN
3286: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3287: END IF;
3288:
3289: IF l_debug_on THEN
3290: WSH_DEBUG_SV.push(l_module_name);
3286: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3287: END IF;
3288:
3289: IF l_debug_on THEN
3290: WSH_DEBUG_SV.push(l_module_name);
3291: END IF;
3292:
3293: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3294: --
3340:
3341:
3342: -- LPN CONV. rv
3343: IF l_debug_on THEN
3344: WSH_DEBUG_SV.log(l_module_name, 'l_cnt_flag', l_cnt_flag);
3345: WSH_DEBUG_SV.log(l_module_name, 'l_organization_id', l_organization_id);
3346: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
3347: END IF;
3348: --
3341:
3342: -- LPN CONV. rv
3343: IF l_debug_on THEN
3344: WSH_DEBUG_SV.log(l_module_name, 'l_cnt_flag', l_cnt_flag);
3345: WSH_DEBUG_SV.log(l_module_name, 'l_organization_id', l_organization_id);
3346: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
3347: END IF;
3348: --
3349: IF (l_cnt_flag = 'Y' and nvl(l_line_direction,'O') in ('O', 'IO'))
3342: -- LPN CONV. rv
3343: IF l_debug_on THEN
3344: WSH_DEBUG_SV.log(l_module_name, 'l_cnt_flag', l_cnt_flag);
3345: WSH_DEBUG_SV.log(l_module_name, 'l_organization_id', l_organization_id);
3346: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
3347: END IF;
3348: --
3349: IF (l_cnt_flag = 'Y' and nvl(l_line_direction,'O') in ('O', 'IO'))
3350: AND WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3363: --
3364: -- Debug Statements
3365: --
3366: IF l_debug_on THEN
3367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
3368: END IF;
3369: --
3370: WSH_WMS_SYNC_TMP_PKG.MERGE
3371: (
3373: x_return_status => x_return_status
3374: );
3375:
3376: IF l_debug_on THEN
3377: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3378: END IF;
3379: --
3380: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3381: IF l_debug_on THEN
3378: END IF;
3379: --
3380: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3381: IF l_debug_on THEN
3382: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE');
3383: WSH_DEBUG_SV.pop(l_module_name);
3384: END IF;
3385: return;
3386: END IF;
3379: --
3380: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3381: IF l_debug_on THEN
3382: WSH_DEBUG_SV.logmsg(l_module_name,'Error occured in WSH_WMS_SYNC_TMP_PKG.MERGE');
3383: WSH_DEBUG_SV.pop(l_module_name);
3384: END IF;
3385: return;
3386: END IF;
3387: --
3392: --
3393: -- LPN CONV. rv
3394: --
3395: IF l_debug_on THEN
3396: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3397: WSH_DEBUG_SV.pop(l_module_name);
3398: END IF;
3399:
3400: EXCEPTION
3393: -- LPN CONV. rv
3394: --
3395: IF l_debug_on THEN
3396: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
3397: WSH_DEBUG_SV.pop(l_module_name);
3398: END IF;
3399:
3400: EXCEPTION
3401: WHEN OTHERS THEN
3404: 'WSH_TP_RELEASE.calculate_lpn_tpdates(delivery_id)',
3405: l_module_name);
3406:
3407: IF l_debug_on THEN
3408: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3409: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3410: END IF;
3411:
3412: END calculate_lpn_tpdates;
3405: l_module_name);
3406:
3407: IF l_debug_on THEN
3408: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3409: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3410: END IF;
3411:
3412: END calculate_lpn_tpdates;
3413:
3570:
3571: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3572: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3573: IF l_debug_on IS NULL THEN
3574: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3575: END IF;
3576:
3577: IF l_debug_on THEN
3578: WSH_DEBUG_SV.push(l_module_name);
3574: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3575: END IF;
3576:
3577: IF l_debug_on THEN
3578: WSH_DEBUG_SV.push(l_module_name);
3579: WSH_DEBUG_SV.log(l_module_name,'p_ignore_for_planning',p_ignore_for_planning);
3580: WSH_DEBUG_SV.log(l_module_name,'p_logexcep',p_logexcep);
3581: END IF;
3582:
3575: END IF;
3576:
3577: IF l_debug_on THEN
3578: WSH_DEBUG_SV.push(l_module_name);
3579: WSH_DEBUG_SV.log(l_module_name,'p_ignore_for_planning',p_ignore_for_planning);
3580: WSH_DEBUG_SV.log(l_module_name,'p_logexcep',p_logexcep);
3581: END IF;
3582:
3583: l_exception_name := 'WSH_SHPST_IGNRE_FR_PLNG';
3576:
3577: IF l_debug_on THEN
3578: WSH_DEBUG_SV.push(l_module_name);
3579: WSH_DEBUG_SV.log(l_module_name,'p_ignore_for_planning',p_ignore_for_planning);
3580: WSH_DEBUG_SV.log(l_module_name,'p_logexcep',p_logexcep);
3581: END IF;
3582:
3583: l_exception_name := 'WSH_SHPST_IGNRE_FR_PLNG';
3584: l_logging_entity := 'SHIPPER';
3584: l_logging_entity := 'SHIPPER';
3585: FOR j IN p_delivery_detail_ids.FIRST..p_delivery_detail_ids.LAST LOOP
3586: l_delivery_detail_id :=p_delivery_detail_ids(j);
3587: IF l_debug_on THEN
3588: WSH_DEBUG_SV.log(l_module_name,'l_delivery_detail_id',l_delivery_detail_id);
3589: END IF;
3590: OPEN c_check_ignore_for_planning(l_delivery_detail_id);
3591: FETCH c_check_ignore_for_planning INTO l_ignore_for_planning,l_location_id;
3592: IF c_check_ignore_for_planning%FOUND THEN
3592: IF c_check_ignore_for_planning%FOUND THEN
3593: IF p_logexcep THEN
3594: -- LOG EXCEPTION
3595: IF l_debug_on THEN
3596: WSH_DEBUG_SV.log(l_module_name,'Log exception l_location_id',l_location_id);
3597: END IF;
3598: IF l_location_id IS NOT NULL THEN
3599: FND_MESSAGE.SET_NAME('WSH','WSH_SHIPSET_IGNORE_FOR_PLANG');
3600: FND_MESSAGE.SET_TOKEN('ENTITY',l_delivery_detail_id);
3621: x_return_status := l_return_status;
3622: raise OTHERS;
3623: END IF;
3624: IF l_debug_on THEN
3625: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_ID',L_EXCEPTION_ID);
3626: WSH_DEBUG_SV.log(l_module_name,'x_return_status',l_return_status);
3627: END IF;
3628: ELSE
3629: IF l_debug_on THEN
3622: raise OTHERS;
3623: END IF;
3624: IF l_debug_on THEN
3625: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_ID',L_EXCEPTION_ID);
3626: WSH_DEBUG_SV.log(l_module_name,'x_return_status',l_return_status);
3627: END IF;
3628: ELSE
3629: IF l_debug_on THEN
3630: WSH_DEBUG_SV.log(l_module_name,'Log waring l_delivery_detail_id',l_delivery_detail_id);
3626: WSH_DEBUG_SV.log(l_module_name,'x_return_status',l_return_status);
3627: END IF;
3628: ELSE
3629: IF l_debug_on THEN
3630: WSH_DEBUG_SV.log(l_module_name,'Log waring l_delivery_detail_id',l_delivery_detail_id);
3631: END IF;
3632: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3633: FND_MESSAGE.SET_NAME('WSH','WSH_SHIPSET_IGNORE_FOR_PLANG');
3634: FND_MESSAGE.SET_TOKEN('ENTITY',l_delivery_detail_id);
3639: END LOOP;
3640: --
3641: --
3642: IF l_debug_on THEN
3643: WSH_DEBUG_SV.pop(l_module_name);
3644: END IF;
3645: EXCEPTION
3646: WHEN OTHERS THEN
3647: IF c_check_ignore_for_planning%ISOPEN THEN
3651: wsh_util_core.default_handler('WSH_TP_RELEASE.Check_Shipset_Ignoreflag');
3652: --
3653: --
3654: IF l_debug_on THEN
3655: 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);
3656: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3657: END IF;
3658:
3659: END Check_Shipset_Ignoreflag;
3652: --
3653: --
3654: IF l_debug_on THEN
3655: 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);
3656: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3657: END IF;
3658:
3659: END Check_Shipset_Ignoreflag;
3660: