155: others EXCEPTION;
156: l_batch_size NUMBER:=10000;
157:
158: --OTM R12, glog proj
159: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.DELIVERY_ATTR_TBL_TYPE;
160: l_delivery_info WSH_NEW_DELIVERIES_PVT.DELIVERY_REC_TYPE;
161: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
162: l_new_version_number_tab WSH_UTIL_CORE.ID_TAB_TYPE;
163: l_temp NUMBER;
156: l_batch_size NUMBER:=10000;
157:
158: --OTM R12, glog proj
159: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.DELIVERY_ATTR_TBL_TYPE;
160: l_delivery_info WSH_NEW_DELIVERIES_PVT.DELIVERY_REC_TYPE;
161: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
162: l_new_version_number_tab WSH_UTIL_CORE.ID_TAB_TYPE;
163: l_temp NUMBER;
164: l_msg_count NUMBER;
218: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
219: END IF;
220: -- Initialize these as they are used in UPDATE statement and in cases where
221: -- these are not actually populated
222: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT;
223: l_new_version_number_tab(1) := 1;
224: -- end of OTM R12, glog proj
225:
226: IF ((WSH_UTIL_CORE.TP_IS_INSTALLED = 'Y' OR
330: and l_det_cur.container_flag='N'
331: AND l_gc3_is_installed = 'N' THEN -- OTM R12
332: --do not allow lines in thrid party instance to be set to include for planning
333: FND_MESSAGE.SET_NAME('WSH','WSH_IGNORE_PLAN_TPW_ERROR');
334: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_del_cur.delivery_id));
335: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
336: l_num_error:=l_num_error+1;
337: GOTO next_trip;
338: ELSE
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,
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,
526: x_return_status => l_return_status);
527: --
528: IF l_debug_on THEN
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,
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,
571: x_return_status => l_return_status);
572: --
573: IF l_debug_on THEN
720: and l_det_cur.container_flag='N'
721: and l_gc3_is_installed = 'N' THEN -- OTM R12
722: --do not allow lines in thrid party instance to be set to include for planning
723: FND_MESSAGE.SET_NAME('WSH','WSH_IGNORE_PLAN_TPW_ERROR');
724: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_del_cur.delivery_id));
725: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
726: l_num_error:=l_num_error+1;
727: GOTO next_del;
728: ELSE
867: ROLLBACK to before_update;
868: FND_MESSAGE.SET_NAME('WSH','WSH_IGNOREPLAN_UPDATE_ERROR');
869: l_entity := FND_MESSAGE.GET_STRING('WSH','WSH_DELIVERY');
870: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
871: FND_MESSAGE.SET_TOKEN('NAME',wsh_new_deliveries_pvt.get_name(p_in_ids(i)));
872: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
873: l_num_error:=l_num_error+1;
874: GOTO next_del;
875: END IF;
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) =
937: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT
938: AND l_is_delivery_empty = 'N') THEN--{
939: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
940: l_new_version_number_tab(1) :=
933: END IF;
934:
935: IF (nvl(l_delivery_info.tms_interface_flag,
936: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) =
937: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT
938: AND l_is_delivery_empty = 'N') THEN--{
939: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
940: l_new_version_number_tab(1) :=
941: nvl(l_delivery_info.tms_version_number, 1) + 1;
935: IF (nvl(l_delivery_info.tms_interface_flag,
936: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) =
937: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT
938: AND l_is_delivery_empty = 'N') THEN--{
939: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
940: l_new_version_number_tab(1) :=
941: nvl(l_delivery_info.tms_version_number, 1) + 1;
942: ELSIF
943: ((nvl(l_delivery_info.tms_interface_flag,
940: l_new_version_number_tab(1) :=
941: nvl(l_delivery_info.tms_version_number, 1) + 1;
942: ELSIF
943: ((nvl(l_delivery_info.tms_interface_flag,
944: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT)
945: IN (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
946: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS))
947: AND l_is_delivery_empty = 'N') THEN
948: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
941: nvl(l_delivery_info.tms_version_number, 1) + 1;
942: ELSIF
943: ((nvl(l_delivery_info.tms_interface_flag,
944: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT)
945: IN (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
946: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS))
947: AND l_is_delivery_empty = 'N') THEN
948: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
949: l_new_version_number_tab(1) :=
942: ELSIF
943: ((nvl(l_delivery_info.tms_interface_flag,
944: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT)
945: IN (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
946: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS))
947: AND l_is_delivery_empty = 'N') THEN
948: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
949: l_new_version_number_tab(1) :=
950: nvl(l_delivery_info.tms_version_number, 1) + 1;
944: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT)
945: IN (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
946: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS))
947: AND l_is_delivery_empty = 'N') THEN
948: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
949: l_new_version_number_tab(1) :=
950: nvl(l_delivery_info.tms_version_number, 1) + 1;
951: ELSE
952: l_tms_update := 'N';
953: END IF;--}
954: ELSIF (l_ignoreplan = 'Y') THEN--} {
955:
956: IF (nvl(l_delivery_info.tms_interface_flag,
957: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
958: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
959: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED,
960: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
961: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
954: ELSIF (l_ignoreplan = 'Y') THEN--} {
955:
956: IF (nvl(l_delivery_info.tms_interface_flag,
957: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
958: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
959: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED,
960: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
961: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
962: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED)) THEN
955:
956: IF (nvl(l_delivery_info.tms_interface_flag,
957: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
958: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
959: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED,
960: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
961: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
962: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED)) THEN
963: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
956: IF (nvl(l_delivery_info.tms_interface_flag,
957: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
958: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
959: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED,
960: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
961: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
962: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED)) THEN
963: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
964: l_new_version_number_tab(1) :=
957: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
958: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
959: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED,
960: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
961: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
962: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED)) THEN
963: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
964: l_new_version_number_tab(1) :=
965: nvl(l_delivery_info.tms_version_number, 1) + 1;
958: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
959: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED,
960: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
961: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
962: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED)) THEN
963: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
964: l_new_version_number_tab(1) :=
965: nvl(l_delivery_info.tms_version_number, 1) + 1;
966: ELSIF (nvl(l_delivery_info.tms_interface_flag,
959: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED,
960: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
961: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
962: WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED)) THEN
963: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
964: l_new_version_number_tab(1) :=
965: nvl(l_delivery_info.tms_version_number, 1) + 1;
966: ELSIF (nvl(l_delivery_info.tms_interface_flag,
967: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) =
963: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
964: l_new_version_number_tab(1) :=
965: nvl(l_delivery_info.tms_version_number, 1) + 1;
966: ELSIF (nvl(l_delivery_info.tms_interface_flag,
967: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) =
968: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED)) THEN
969: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT;
970: l_new_version_number_tab(1) :=
971: nvl(l_delivery_info.tms_version_number, 1);
964: l_new_version_number_tab(1) :=
965: nvl(l_delivery_info.tms_version_number, 1) + 1;
966: ELSIF (nvl(l_delivery_info.tms_interface_flag,
967: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) =
968: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED)) THEN
969: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT;
970: l_new_version_number_tab(1) :=
971: nvl(l_delivery_info.tms_version_number, 1);
972: ELSE
965: nvl(l_delivery_info.tms_version_number, 1) + 1;
966: ELSIF (nvl(l_delivery_info.tms_interface_flag,
967: WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) =
968: (WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED)) THEN
969: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT;
970: l_new_version_number_tab(1) :=
971: nvl(l_delivery_info.tms_version_number, 1);
972: ELSE
973: l_tms_update := 'N';
1055: ROLLBACK to before_update;
1056: FND_MESSAGE.SET_NAME('WSH','WSH_IGNOREPLAN_UPDATE_ERROR');
1057: l_entity := FND_MESSAGE.GET_STRING('WSH','WSH_DELIVERY');
1058: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
1059: FND_MESSAGE.SET_TOKEN('NAME',wsh_new_deliveries_pvt.get_name(p_in_ids(i)));
1060: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1061: l_num_error:=l_num_error+1;
1062: goto next_del;
1063: ELSE --Added for bug 7611042 .More than zero rows updated. So calling the API to update the hash string
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,
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,
1072: x_return_status => l_return_status);
1073: --
1074: IF l_debug_on THEN
1079: rollback to before_update;
1080: FND_MESSAGE.SET_NAME('WSH','WSH_IGNOREPLAN_UPDATE_ERROR');
1081: l_entity := FND_MESSAGE.GET_STRING('WSH','WSH_DELIVERY');
1082: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
1083: FND_MESSAGE.SET_TOKEN('NAME',wsh_new_deliveries_pvt.get_name(p_in_ids(i)));
1084: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1085: l_num_error:=l_num_error+1;
1086: goto next_del;
1087: END IF;
1101: rollback to before_update;
1102: FND_MESSAGE.SET_NAME('WSH','WSH_IGNOREPLAN_UPDATE_ERROR');
1103: l_entity := FND_MESSAGE.GET_STRING('WSH','WSH_DELIVERY');
1104: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
1105: FND_MESSAGE.SET_TOKEN('NAME',wsh_new_deliveries_pvt.get_name(p_in_ids(i)));
1106: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1107: l_num_error:=l_num_error+1;
1108: goto next_del;
1109: END IF;
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,
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,
1117: x_return_status => l_return_status);
1118: --
1119: IF l_debug_on THEN
1124: rollback to before_update;
1125: FND_MESSAGE.SET_NAME('WSH','WSH_IGNOREPLAN_UPDATE_ERROR');
1126: l_entity := FND_MESSAGE.GET_STRING('WSH','WSH_DELIVERY');
1127: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
1128: FND_MESSAGE.SET_TOKEN('NAME',wsh_new_deliveries_pvt.get_name(p_in_ids(i)));
1129: wsh_util_core.add_message(WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
1130: l_num_error:=l_num_error+1;
1131: goto next_del;
1132: END IF;
1580: x_return_status => x_return_status);
1581: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1582: rollback to before_firm;
1583: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_CANNOT_FIRM');
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);
1600: IF (SQL%NOTFOUND) THEN
1601: FND_MESSAGE.SET_NAME('WSH','WSH_FIRM_UPDATE_ERROR');
1602: l_entity := FND_MESSAGE.GET_STRING('WSH','WSH_DELIVERY');
1603: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
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);
1736:
1737: --if l_plannedflag is null, no trip is associated => delivery can't be firmed
1738: IF l_plannedflag IS null THEN
1739: FND_MESSAGE.SET_NAME('WSH','WSH_FIRM_DELIVERY_ERROR');
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);
1918: IF (SQL%NOTFOUND) THEN
1919: FND_MESSAGE.SET_NAME('WSH','WSH_FIRM_UPDATE_ERROR');
1920: l_entity := FND_MESSAGE.GET_STRING('WSH','WSH_DELIVERY');
1921: FND_MESSAGE.SET_TOKEN('ENTITY',l_entity);
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);
2791:
2792: l_global_param_rec_type WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
2793:
2794: --OTM R12, glog proj
2795: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2796: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
2797: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
2798: l_tms_update VARCHAR2(1);
2799: l_trip_not_found VARCHAR2(1);
2792: l_global_param_rec_type WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
2793:
2794: --OTM R12, glog proj
2795: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2796: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
2797: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
2798: l_tms_update VARCHAR2(1);
2799: l_trip_not_found VARCHAR2(1);
2800: l_trip_info_rec WSH_DELIVERY_VALIDATIONS.trip_info_rec_type;
2830: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
2831: END IF;
2832: -- Initialize these as they are used in UPDATE statement and in cases where
2833: -- these are not actually populated
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);
3099: nvl(l_delivery_info.EARLIEST_DROPOFF_DATE, fnd_api.g_miss_date) <> nvl(l_earliest_mdropoff_date, fnd_api.g_miss_date) OR
3100: nvl(l_delivery_info.LATEST_DROPOFF_DATE, fnd_api.g_miss_date) <> nvl(l_latest_mdropoff_date, fnd_api.g_miss_date)
3101: ) THEN--{
3102:
3103: IF (NVL(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
3104: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
3105: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
3106: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
3107: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
3100: nvl(l_delivery_info.LATEST_DROPOFF_DATE, fnd_api.g_miss_date) <> nvl(l_latest_mdropoff_date, fnd_api.g_miss_date)
3101: ) THEN--{
3102:
3103: IF (NVL(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
3104: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
3105: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
3106: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
3107: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
3108: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
3101: ) THEN--{
3102:
3103: IF (NVL(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
3104: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
3105: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
3106: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
3107: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
3108: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
3109: l_tms_update := 'N';
3102:
3103: IF (NVL(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
3104: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
3105: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
3106: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
3107: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
3108: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
3109: l_tms_update := 'N';
3110: ELSE
3103: IF (NVL(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) IN
3104: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
3105: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
3106: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
3107: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
3108: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
3109: l_tms_update := 'N';
3110: ELSE
3111: l_tms_update := 'Y';
3104: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
3105: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
3106: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
3107: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
3108: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
3109: l_tms_update := 'N';
3110: ELSE
3111: l_tms_update := 'Y';
3112: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
3108: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
3109: l_tms_update := 'N';
3110: ELSE
3111: l_tms_update := 'Y';
3112: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
3113: l_tms_version_number := NVL(l_delivery_info.tms_version_number, 1) + 1;
3114: END IF;
3115: ELSE
3116: l_tms_update := 'N';
3132: ultimate_dropoff_date = l_ultimate_mdropoff_date,
3133: --OTM R12, glog proj
3134: TMS_INTERFACE_FLAG = DECODE(l_tms_update,
3135: 'Y', l_new_interface_flag_tab(1),
3136: NVL(TMS_INTERFACE_FLAG, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT)),
3137: TMS_VERSION_NUMBER = DECODE(l_tms_update,
3138: 'Y', l_tms_version_number,
3139: NVL(tms_version_number, 1)),
3140: --