[Home] [Help]
1381: wda.delivery_id = p_delv_id;
1382:
1383: CURSOR c_get_org_id ( p_delv_id NUMBER) IS
1384: SELECT organization_id
1385: FROM wsh_new_deliveries
1386: WHERE delivery_id=p_delv_id;
1387:
1388: l_org_id NUMBER;
1389: l_del_lines_count NUMBER;
1938:
1939:
1940: l_call_update VARCHAR2(1);
1941: l_return_status VARCHAR2(1);
1942: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
1943: l_is_delivery_empty VARCHAR2(1);
1944: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1945: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
1946: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1941: l_return_status VARCHAR2(1);
1942: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
1943: l_is_delivery_empty VARCHAR2(1);
1944: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1945: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
1946: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1947: l_num_warnings NUMBER;
1948: l_debug_on BOOLEAN;
1949: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.'||G_PACKAGE_NAME||'.'||'Post_Otm_Assign_Del_Detail';
1996: raise FND_API.G_EXC_ERROR;
1997: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1998: l_num_warnings := l_num_warnings + 1;
1999: END IF;
2000: l_tms_interface_flag := nvl(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT);
2001:
2002: END IF;
2003:
2004: IF l_debug_on THEN
2004: IF l_debug_on THEN
2005: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_WAS_EMPTY - L_TMS_INTERFACE_FLAG', l_tms_interface_flag);
2006: END IF;
2007:
2008: IF (l_tms_interface_flag = WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) THEN
2009: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
2010: ELSIF (l_tms_interface_flag in
2011: (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2012: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS)) THEN
2005: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_WAS_EMPTY - L_TMS_INTERFACE_FLAG', l_tms_interface_flag);
2006: END IF;
2007:
2008: IF (l_tms_interface_flag = WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) THEN
2009: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
2010: ELSIF (l_tms_interface_flag in
2011: (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2012: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS)) THEN
2013: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
2007:
2008: IF (l_tms_interface_flag = WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) THEN
2009: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
2010: ELSIF (l_tms_interface_flag in
2011: (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2012: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS)) THEN
2013: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
2014: ELSE
2015: l_call_update := 'N';
2008: IF (l_tms_interface_flag = WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) THEN
2009: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
2010: ELSIF (l_tms_interface_flag in
2011: (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2012: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS)) THEN
2013: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
2014: ELSE
2015: l_call_update := 'N';
2016: END IF;
2009: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
2010: ELSIF (l_tms_interface_flag in
2011: (WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2012: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS)) THEN
2013: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
2014: ELSE
2015: l_call_update := 'N';
2016: END IF;
2017: END IF;
2027: END IF;
2028: END IF;
2029:
2030: IF (l_call_update = 'Y') THEN
2031: WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG(
2032: p_delivery_id_tab => l_delivery_id_tab,
2033: p_tms_interface_flag_tab => l_interface_flag_tab,
2034: x_return_status => l_return_status);
2035:
2034: x_return_status => l_return_status);
2035:
2036: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
2039: END IF;
2040: raise FND_API.G_EXC_ERROR;
2041: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2042: l_num_warnings := l_num_warnings + 1;
2137:
2138: -- Bug 3715176
2139: CURSOR c_get_plan_flag (v_delivery_id NUMBER) IS
2140: SELECT nvl(planned_flag,'N')
2141: FROM wsh_new_deliveries
2142: WHERE delivery_id = v_delivery_id;
2143:
2144: CURSOR c_get_content_count(v_delivery_detail_id NUMBER) IS
2145: SELECT count(*)
2177: l_operation_type VARCHAR2(100);
2178: -- K LPN CONV. rv
2179:
2180: -- OTM R12 : update delivery
2181: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2182: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
2183: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
2184: l_tms_update VARCHAR2(1);
2185: l_trip_not_found VARCHAR2(1);
2178: -- K LPN CONV. rv
2179:
2180: -- OTM R12 : update delivery
2181: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2182: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
2183: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
2184: l_tms_update VARCHAR2(1);
2185: l_trip_not_found VARCHAR2(1);
2186: l_trip_info_rec WSH_DELIVERY_VALIDATIONS.trip_info_rec_type;
2183: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
2184: l_tms_update VARCHAR2(1);
2185: l_trip_not_found VARCHAR2(1);
2186: l_trip_info_rec WSH_DELIVERY_VALIDATIONS.trip_info_rec_type;
2187: l_tms_version_number WSH_NEW_DELIVERIES.TMS_VERSION_NUMBER%TYPE;
2188: l_gc3_is_installed VARCHAR2(1);
2189:
2190: -- End of OTM R12 : update delivery
2191:
2190: -- End of OTM R12 : update delivery
2191:
2192: -- OTM R12 : assign delivery detail
2193: l_delivery_was_empty BOOLEAN;
2194: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
2195: l_gross_weight1 WSH_NEW_DELIVERIES.GROSS_WEIGHT%TYPE;
2196: l_gross_weight2 WSH_NEW_DELIVERIES.GROSS_WEIGHT%TYPE;
2197: l_delivery_detail_ids WSH_GLBL_VAR_STRCT_GRP.NUM_TBL_TYPE;
2198: l_assign_update BOOLEAN;
2191:
2192: -- OTM R12 : assign delivery detail
2193: l_delivery_was_empty BOOLEAN;
2194: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
2195: l_gross_weight1 WSH_NEW_DELIVERIES.GROSS_WEIGHT%TYPE;
2196: l_gross_weight2 WSH_NEW_DELIVERIES.GROSS_WEIGHT%TYPE;
2197: l_delivery_detail_ids WSH_GLBL_VAR_STRCT_GRP.NUM_TBL_TYPE;
2198: l_assign_update BOOLEAN;
2199:
2192: -- OTM R12 : assign delivery detail
2193: l_delivery_was_empty BOOLEAN;
2194: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
2195: l_gross_weight1 WSH_NEW_DELIVERIES.GROSS_WEIGHT%TYPE;
2196: l_gross_weight2 WSH_NEW_DELIVERIES.GROSS_WEIGHT%TYPE;
2197: l_delivery_detail_ids WSH_GLBL_VAR_STRCT_GRP.NUM_TBL_TYPE;
2198: l_assign_update BOOLEAN;
2199:
2200: -- End of OTM R12 : assign delivery detail
2889: -- Lock the delivery before update.
2890:
2891: BEGIN
2892:
2893: wsh_new_deliveries_pvt.lock_dlvy_no_compare(p_delivery_id => l_del_id_for_container.delivery_id);
2894:
2895: EXCEPTION
2896:
2897: WHEN OTHERS THEN
2965: nvl(l_group_tab(l_group_index).carrier_id, -1)) <>
2966: nvl(l_delivery_info.carrier_id, -1)) THEN
2967:
2968: IF (l_delivery_info.tms_interface_flag NOT IN
2969: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
2970: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
2971: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2972: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
2973: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
2966: nvl(l_delivery_info.carrier_id, -1)) THEN
2967:
2968: IF (l_delivery_info.tms_interface_flag NOT IN
2969: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
2970: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
2971: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2972: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
2973: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
2974: l_tms_update := 'Y';
2967:
2968: IF (l_delivery_info.tms_interface_flag NOT IN
2969: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
2970: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
2971: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2972: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
2973: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
2974: l_tms_update := 'Y';
2975: l_delivery_info_tab(1) := l_delivery_info;
2968: IF (l_delivery_info.tms_interface_flag NOT IN
2969: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
2970: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
2971: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2972: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
2973: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
2974: l_tms_update := 'Y';
2975: l_delivery_info_tab(1) := l_delivery_info;
2976: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
2969: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
2970: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
2971: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
2972: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
2973: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
2974: l_tms_update := 'Y';
2975: l_delivery_info_tab(1) := l_delivery_info;
2976: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
2977: l_tms_version_number := nvl(l_delivery_info.tms_version_number, 1) + 1;
2972: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
2973: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
2974: l_tms_update := 'Y';
2975: l_delivery_info_tab(1) := l_delivery_info;
2976: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
2977: l_tms_version_number := nvl(l_delivery_info.tms_version_number, 1) + 1;
2978: END IF;
2979: END IF; -- checking the value differences
2980: END IF; -- IF ((l_trip_not_found = 'N' AND
2990: END IF;
2991:
2992: -- End of OTM R12 : update delivery
2993:
2994: UPDATE wsh_new_deliveries
2995: SET shipment_direction = l_del_id_for_detail.line_direction,
2996: service_level = NVL(service_level,l_group_tab(l_group_index).service_level),
2997: mode_of_transport = NVL(mode_of_transport, l_group_tab(l_group_index).mode_of_transport),
2998: carrier_id = NVL(carrier_id, l_group_tab(l_group_index).carrier_id),
2996: service_level = NVL(service_level,l_group_tab(l_group_index).service_level),
2997: mode_of_transport = NVL(mode_of_transport, l_group_tab(l_group_index).mode_of_transport),
2998: carrier_id = NVL(carrier_id, l_group_tab(l_group_index).carrier_id),
2999: -- OTM R12
3000: TMS_INTERFACE_FLAG = decode(l_tms_update, 'Y', l_new_interface_flag_tab(1), nvl(TMS_INTERFACE_FLAG, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT)),
3001: TMS_VERSION_NUMBER = decode(l_tms_update, 'Y', l_tms_version_number, nvl(tms_version_number, 1)),
3002: -- End of OTM R12
3003: last_update_date = SYSDATE,
3004: last_updated_by = FND_GLOBAL.USER_ID,
3087: IF (l_tms_update = 'Y') THEN
3088: l_tms_interface_flag := l_new_interface_flag_tab(1);
3089: ELSIF (l_trip_info_rec.status_code = 'OP' OR
3090: l_trip_not_found = 'Y') THEN
3091: l_tms_interface_flag := nvl(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT);
3092: ELSE
3093: l_tms_interface_flag := NULL;
3094: END IF;
3095:
4000: vendor_id, -- J-IB-NPARIKH
4001: party_id, -- J-IB-NPARIKH
4002: NVL(ignore_for_planning,'N') ignore_for_planning, --J TP Release ttrichy
4003: organization_id -- K LPN CONV. rv
4004: FROM wsh_new_deliveries
4005: WHERE delivery_id = p_delivery_id;
4006: l_del c_delivery%ROWTYPE;
4007:
4008: CURSOR c_detail(c_detail_id NUMBER) IS
4091: l_num_warnings NUMBER := 0;
4092: -- K LPN CONV. rv
4093:
4094: -- OTM R12 : update delivery
4095: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4096: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4097: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
4098: l_tms_update VARCHAR2(1);
4099: l_trip_not_found VARCHAR2(1);
4092: -- K LPN CONV. rv
4093:
4094: -- OTM R12 : update delivery
4095: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4096: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4097: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
4098: l_tms_update VARCHAR2(1);
4099: l_trip_not_found VARCHAR2(1);
4100: l_trip_info_rec WSH_DELIVERY_VALIDATIONS.trip_info_rec_type;
4097: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
4098: l_tms_update VARCHAR2(1);
4099: l_trip_not_found VARCHAR2(1);
4100: l_trip_info_rec WSH_DELIVERY_VALIDATIONS.trip_info_rec_type;
4101: l_tms_version_number WSH_NEW_DELIVERIES.TMS_VERSION_NUMBER%TYPE;
4102: l_gc3_is_installed VARCHAR2(1);
4103:
4104: -- End of OTM R12 : update delivery
4105:
4104: -- End of OTM R12 : update delivery
4105:
4106: -- OTM R12 : assign delivery detail
4107: l_delivery_was_empty BOOLEAN;
4108: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
4109: l_gross_weight1 WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE;
4110: l_gross_weight2 WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE;
4111: l_delivery_detail_ids WSH_GLBL_VAR_STRCT_GRP.NUM_TBL_TYPE;
4112: l_assign_update BOOLEAN;
4260: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4261: END IF;
4262: fnd_message.set_token('ENTITY1',nvl(wsh_container_utilities.get_cont_name(p_detail_id), p_detail_id));
4263: IF l_debug_on THEN
4264: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4265: END IF;
4266: fnd_message.set_token('ENTITY2',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4267: END IF;
4268: END LOOP;
4262: fnd_message.set_token('ENTITY1',nvl(wsh_container_utilities.get_cont_name(p_detail_id), p_detail_id));
4263: IF l_debug_on THEN
4264: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4265: END IF;
4266: fnd_message.set_token('ENTITY2',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4267: END IF;
4268: END LOOP;
4269:
4270: OPEN c_all_details_below;
4591: nvl(l_ship_method, '@@')) <>
4592: nvl(l_delivery_info.ship_method_code, '@@')) THEN
4593:
4594: IF (l_delivery_info.tms_interface_flag NOT IN
4595: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
4596: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
4597: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
4598: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
4599: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
4592: nvl(l_delivery_info.ship_method_code, '@@')) THEN
4593:
4594: IF (l_delivery_info.tms_interface_flag NOT IN
4595: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
4596: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
4597: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
4598: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
4599: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
4600: l_tms_update := 'Y';
4593:
4594: IF (l_delivery_info.tms_interface_flag NOT IN
4595: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
4596: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
4597: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
4598: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
4599: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
4600: l_tms_update := 'Y';
4601: l_delivery_info_tab(1) := l_delivery_info;
4594: IF (l_delivery_info.tms_interface_flag NOT IN
4595: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
4596: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
4597: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
4598: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
4599: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
4600: l_tms_update := 'Y';
4601: l_delivery_info_tab(1) := l_delivery_info;
4602: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
4595: (WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT,
4596: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED,
4597: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED,
4598: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
4599: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
4600: l_tms_update := 'Y';
4601: l_delivery_info_tab(1) := l_delivery_info;
4602: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
4603: l_tms_version_number := nvl(l_delivery_info.tms_version_number, 1) + 1;
4598: WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_IN_PROCESS,
4599: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED)) THEN
4600: l_tms_update := 'Y';
4601: l_delivery_info_tab(1) := l_delivery_info;
4602: l_new_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
4603: l_tms_version_number := nvl(l_delivery_info.tms_version_number, 1) + 1;
4604: END IF;
4605: END IF; -- checking the value differences
4606: END IF; -- IF ((l_trip_not_found = 'N' AND
4616: END IF;
4617:
4618: -- End of OTM R12 : update delivery
4619:
4620: UPDATE WSH_NEW_DELIVERIES
4621: SET MODE_OF_TRANSPORT = decode(mode_of_transport, NULL, l_mode_of_transport, mode_of_transport),
4622: SERVICE_LEVEL = decode(service_level, NULL, l_service_level, service_level),
4623: CARRIER_ID = decode(carrier_id, NULL, l_carrier_id, carrier_id),
4624: SHIP_METHOD_CODE = decode(ship_method_code, NULL, l_ship_method, ship_method_code),
4623: CARRIER_ID = decode(carrier_id, NULL, l_carrier_id, carrier_id),
4624: SHIP_METHOD_CODE = decode(ship_method_code, NULL, l_ship_method, ship_method_code),
4625: SHIPMENT_DIRECTION = l_detail.line_direction,
4626: -- OTM R12
4627: TMS_INTERFACE_FLAG = decode(l_tms_update, 'Y', l_new_interface_flag_tab(1), nvl(TMS_INTERFACE_FLAG, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT)),
4628: TMS_VERSION_NUMBER = decode(l_tms_update, 'Y', l_tms_version_number, nvl(tms_version_number, 1))
4629: -- End of OTM R12
4630: WHERE delivery_id = p_delivery_id;
4631:
4786: -- no code changes are needed for the following update
4787: -- since this routine is only for Inbound/drop-ship
4788: -- deliveries, OTM flow will never reach here
4789:
4790: UPDATE wsh_new_deliveries
4791: SET freight_terms_code = x_dlvy_freight_terms_code,
4792: last_update_date = SYSDATE,
4793: last_updated_by = FND_GLOBAL.USER_ID,
4794: last_update_login = FND_GLOBAL.LOGIN_ID
4886: IF (l_tms_update = 'Y') THEN
4887: l_tms_interface_flag := l_new_interface_flag_tab(1);
4888: ELSIF (l_trip_info_rec.status_code = 'OP' OR
4889: l_trip_not_found = 'Y') THEN
4890: l_tms_interface_flag := nvl(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT);
4891: ELSE
4892: l_tms_interface_flag := NULL;
4893: END IF;
4894:
5235:
5236: -- Bug 3715176
5237: CURSOR c_get_plan_flag (v_delivery_id NUMBER) IS
5238: SELECT nvl(planned_flag,'N')
5239: FROM wsh_new_deliveries
5240: WHERE delivery_id = v_delivery_id;
5241:
5242: CURSOR c_get_content_count(v_delivery_detail_id NUMBER) IS
5243: SELECT count(*)
5293: l_ignore_det_tab WSH_UTIL_CORE.Id_Tab_Type;
5294:
5295: -- OTM R12 : assign delivery detail
5296: l_delivery_was_empty BOOLEAN;
5297: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
5298: l_gross_weight1 WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE;
5299: l_gross_weight2 WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE;
5300: l_gc3_is_installed VARCHAR2(1);
5301: l_assign_update BOOLEAN;
6568: IS
6569: SELECT status_code, planned_flag,name,
6570: nvl(shipment_direction,'O') shipment_direction, -- J-IB-NPARIKH
6571: ignore_for_planning -- OTM R12 : unassign delivery detail
6572: FROM wsh_new_deliveries
6573: WHERE delivery_id = p_del_id;
6574:
6575: l_del1 c_delivery1%ROWTYPE;
6576:
7211: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7212: END IF;
7213: raise FND_API.G_EXC_ERROR;
7214: ELSIF (l_is_delivery_empty = 'Y') THEN
7215: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
7216: ELSIF (l_is_delivery_empty = 'N') THEN
7217: IF (l_gross_weight = 0) THEN
7218: -- do not update if assign/unassign 0/NULL weight line/LPN
7219: -- to nonempty delivery
7225: END IF;
7226: END IF;
7227:
7228: IF l_call_update = 'Y' THEN
7229: WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG(
7230: p_delivery_id_tab => l_delivery_id_tab,
7231: p_tms_interface_flag_tab => l_interface_flag_tab,
7232: x_return_status => l_return_status);
7233:
7233:
7234: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
7235: x_return_status := l_return_status;
7236: IF l_debug_on THEN
7237: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7238: WSH_DEBUG_SV.pop(l_module_name);
7239: END IF;
7240: RETURN;
7241: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7658:
7659: CURSOR c_multi_delivery(c_del_id number)
7660: IS
7661: SELECT *
7662: FROM wsh_new_deliveries
7663: WHERE delivery_id = c_del_id;
7664: l_multi_delivery c_multi_delivery%ROWTYPE;
7665:
7666: l_multi_cost_count number;
7686:
7687: Cursor c_empty_delivery ( p_del_id number) --Pick To POD WF : Raise PO Cancellation for empty Inbound delivery
7688: IS
7689: SELECT wnd.delivery_id, wnd.organization_id
7690: FROM wsh_new_deliveries wnd
7691: WHERE wnd.delivery_id = p_del_id and wnd.shipment_direction='I'
7692: and not exists ( SELECT wda.delivery_id
7693: FROM wsh_delivery_assignments_v wda
7694: WHERE wda.delivery_id =wnd.delivery_id );
8430:
8431: -- Bug 2276586
8432: SELECT delivery_id, freight_Terms_code -- J-IB-NPARIKH
8433: INTO l_delivery_id1, l_dlvy_freight_Terms_code
8434: FROM wsh_new_deliveries
8435: WHERE delivery_id = p_delivery_id
8436: FOR UPDATE NOWAIT;
8437:
8438: IF l_debug_on THEN
11708: --
11709: -- Check if the Parent Container is empty, if yes, recursivelly call this API
11710: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11711: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_UNASSIGN_DET_ERROR');
11712: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id)); -- Bug#3542095
11713: FND_MESSAGE.SET_TOKEN('DET_NAME',p_ids_tobe_unassigned(i));
11714: x_return_status := l_return_status;
11715: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
11716: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN