1059: --
1060: rlm_core_sv.dlog('Entering WSH_RLM_INTERFACE.Get_In_Transit_Qty');
1061: rlm_core_sv.dlog('Blanket Number = ' || p_blanket_number);
1062: --
1063: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1064: l_total_qty_in_transit := 0;
1065: --
1066: IF p_ship_from_org_id IS NULL THEN
1067: -- global_atp
1065: --
1066: IF p_ship_from_org_id IS NULL THEN
1067: -- global_atp
1068: l_ship_from_location_id := NULL;
1069: l_location_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1070: --
1071: rlm_core_sv.dlog('Intransit Calculation for ATP Item');
1072: ELSE
1073: --
1071: rlm_core_sv.dlog('Intransit Calculation for ATP Item');
1072: ELSE
1073: --
1074: IF l_debug_on THEN
1075: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1076: END IF;
1077: --
1078: wsh_util_core.get_location_id('ORG',p_ship_from_org_id,
1079: l_ship_from_location_id,
1074: IF l_debug_on THEN
1075: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1076: END IF;
1077: --
1078: wsh_util_core.get_location_id('ORG',p_ship_from_org_id,
1079: l_ship_from_location_id,
1080: l_location_status,
1081: FALSE);
1082: END IF;
1080: l_location_status,
1081: FALSE);
1082: END IF;
1083:
1084: IF (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1085: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
1086: AND (l_ship_from_location_id IS NULL) THEN
1087: x_in_transit_qty := 0 ;
1088: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1081: FALSE);
1082: END IF;
1083:
1084: IF (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1085: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
1086: AND (l_ship_from_location_id IS NULL) THEN
1087: x_in_transit_qty := 0 ;
1088: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1089: IF l_debug_on THEN
1084: IF (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1085: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
1086: AND (l_ship_from_location_id IS NULL) THEN
1087: x_in_transit_qty := 0 ;
1088: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1089: IF l_debug_on THEN
1090: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY',
1091: x_in_transit_qty);
1092: WSH_DEBUG_SV.pop(l_module_name);
1099:
1100: IF p_source_code = 'OE' THEN
1101: --
1102: IF l_debug_on THEN
1103: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1104: END IF;
1105: --
1106: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id,
1107: l_ship_to_location_id,
1102: IF l_debug_on THEN
1103: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1104: END IF;
1105: --
1106: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id,
1107: l_ship_to_location_id,
1108: l_location_status,
1109: FALSE);
1110: --
1107: l_ship_to_location_id,
1108: l_location_status,
1109: FALSE);
1110: --
1111: IF (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1112: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
1113: AND (l_ship_to_location_id IS NULL) THEN
1114: x_in_transit_qty := 0 ;
1115: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1108: l_location_status,
1109: FALSE);
1110: --
1111: IF (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1112: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
1113: AND (l_ship_to_location_id IS NULL) THEN
1114: x_in_transit_qty := 0 ;
1115: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1116: IF l_debug_on THEN
1111: IF (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1112: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
1113: AND (l_ship_to_location_id IS NULL) THEN
1114: x_in_transit_qty := 0 ;
1115: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1116: IF l_debug_on THEN
1117: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY', x_in_transit_qty);
1118: WSH_DEBUG_SV.pop(l_module_name);
1119: END IF;
1268: --
1269: EXCEPTION
1270:
1271: WHEN invalid_org THEN
1272: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1273: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_ORG');
1274: WSH_UTIL_CORE.add_message (x_return_status);
1275: --
1276: -- Debug Statements
1270:
1271: WHEN invalid_org THEN
1272: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1273: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_ORG');
1274: WSH_UTIL_CORE.add_message (x_return_status);
1275: --
1276: -- Debug Statements
1277: --
1278: IF l_debug_on THEN
1280: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ORG');
1281: END IF;
1282: --
1283: WHEN invalid_cust_site THEN
1284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1285: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_SITE');
1286: WSH_UTIL_CORE.add_message (x_return_status);
1287: --
1288: -- Debug Statements
1282: --
1283: WHEN invalid_cust_site THEN
1284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1285: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_SITE');
1286: WSH_UTIL_CORE.add_message (x_return_status);
1287: --
1288: -- Debug Statements
1289: --
1290: IF l_debug_on THEN
1292: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CUST_SITE');
1293: END IF;
1294: --
1295: WHEN others THEN
1296: wsh_util_core.default_handler('WSH_RLM_INTERFACE.Get_In_Transit_Qty');
1297: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1298:
1299: --
1300: -- Debug Statements
1293: END IF;
1294: --
1295: WHEN others THEN
1296: wsh_util_core.default_handler('WSH_RLM_INTERFACE.Get_In_Transit_Qty');
1297: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1298:
1299: --
1300: -- Debug Statements
1301: --