1061: l_delivery_id_tab(1) := old_delivery_detail_rec.delivery_id;
1062:
1063: -- calculate the interface flag to be updated
1064: IF old_delivery_detail_rec.tms_interface_flag IN
1065: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
1066: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
1067: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
1068: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
1069: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
1062:
1063: -- calculate the interface flag to be updated
1064: IF old_delivery_detail_rec.tms_interface_flag IN
1065: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
1066: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
1067: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
1068: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
1069: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
1070: IF l_debug_on THEN
1063: -- calculate the interface flag to be updated
1064: IF old_delivery_detail_rec.tms_interface_flag IN
1065: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
1066: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
1067: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
1068: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
1069: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
1070: IF l_debug_on THEN
1071: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
1064: IF old_delivery_detail_rec.tms_interface_flag IN
1065: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
1066: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
1067: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
1068: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
1069: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
1070: IF l_debug_on THEN
1071: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
1072: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
1065: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
1066: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
1067: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
1068: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
1069: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
1070: IF l_debug_on THEN
1071: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
1072: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
1073: END IF;
1076: END IF;
1077:
1078:
1079: IF (l_call_update = 'Y') THEN
1080: WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG(
1081: p_delivery_id_tab => l_delivery_id_tab,
1082: p_tms_interface_flag_tab => l_interface_flag_tab,
1083: x_return_status => l_return_status);
1084:
1084:
1085: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1086: x_return_status := l_return_status;
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
1089: WSH_DEBUG_SV.pop(l_module_name);
1090: END IF;
1091: RETURN;
1092: END IF;
3048: l_delivery_id_tab(1) := l_delivery_id;
3049:
3050: --calculate the interface flag to be updated
3051: IF l_tms_interface_flag IN
3052: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
3053: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
3054: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
3055: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
3056: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
3049:
3050: --calculate the interface flag to be updated
3051: IF l_tms_interface_flag IN
3052: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
3053: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
3054: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
3055: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
3056: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
3057: ELSE
3050: --calculate the interface flag to be updated
3051: IF l_tms_interface_flag IN
3052: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
3053: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
3054: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
3055: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
3056: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
3057: ELSE
3058: l_call_update := 'N';
3051: IF l_tms_interface_flag IN
3052: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
3053: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
3054: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
3055: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
3056: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
3057: ELSE
3058: l_call_update := 'N';
3059: END IF;
3052: (WSH_NEW_DELIVERIES_PVT.C_TMS_ANSWER_RECEIVED,
3053: WSH_NEW_DELIVERIES_PVT.C_TMS_AWAITING_ANSWER,
3054: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
3055: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
3056: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
3057: ELSE
3058: l_call_update := 'N';
3059: END IF;
3060:
3058: l_call_update := 'N';
3059: END IF;
3060:
3061: IF (l_call_update = 'Y') THEN
3062: WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG(
3063: p_delivery_id_tab => l_delivery_id_tab,
3064: p_tms_interface_flag_tab => l_interface_flag_tab,
3065: x_return_status => l_return_status);
3066: