[Home] [Help]
50: END IF;
51:
52: -- Initialize message list.
53: IF fnd_api.to_boolean(p_init_msg_lst) THEN
54: fnd_msg_pub.initialize;
55: END IF;
56:
57: -- Bug 13731486
58: if (inv_cache.set_org_rec(p_status_rec.organization_id)) then
119: and secondary_inventory_name = l_status_rec.zone_code;
120:
121: ELSE
122: FND_MESSAGE.SET_NAME('INV', 'INV_STATUS_UPD_RESV_FAIL');
123: FND_MSG_PUB.ADD;
124: RAISE FND_API.G_EXC_ERROR;
125: END IF;
126:
127:
155: where organization_id = l_status_rec.organization_id
156: and inventory_location_id = l_status_rec.locator_id;
157: ELSE
158: FND_MESSAGE.SET_NAME('INV', 'INV_STATUS_UPD_RESV_FAIL');
159: FND_MSG_PUB.ADD;
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163: elsif p_object_type = 'O' THEN
193: and inventory_item_id = l_status_rec.inventory_item_id
194: and lot_number = l_status_rec.lot_number;
195: ELSE
196: FND_MESSAGE.SET_NAME('INV', 'INV_STATUS_UPD_RESV_FAIL');
197: FND_MSG_PUB.ADD;
198: RAISE FND_API.G_EXC_ERROR;
199: END IF;
200:
201: elsif p_object_type = 'S' THEN
241: serial_number <= l_status_rec.to_serial_number;
242: end if;
243: ELSE
244: FND_MESSAGE.SET_NAME('INV', 'INV_STATUS_UPD_RESV_FAIL');
245: FND_MSG_PUB.ADD;
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
248:
249: -- Start of changes for # 6633612---------------
295: and nvl(locator_id, -9999) = nvl(l_status_rec.locator_id, nvl(locator_id, -9999))
296: and nvl(lpn_id, -9999) = nvl(l_status_rec.lpn_id, -9999);
297: ELSE
298: FND_MESSAGE.SET_NAME('INV', 'INV_STATUS_UPD_RESV_FAIL');
299: FND_MSG_PUB.ADD;
300: RAISE FND_API.G_EXC_ERROR;
301: END IF;
302:
303: end if;
318: /*Bug#15939164 Added the below code to give a warning message when there exists no onhand to be updated*/
319: IF (p_object_type = 'H') THEN
320: --Dbms_Output.put_line ('before error');
321: FND_MESSAGE.SET_NAME('INV', 'INV_ZERO_ONHAND');
322: FND_MSG_PUB.ADD;
323: x_return_status := g_ret_sts_warning;
324: RETURN;
325: ELSE
326: RAISE No_Data_Found;
345:
346: WHEN FND_API.G_EXC_ERROR THEN
347:
348: -- Get message count and data
349: FND_MSG_PUB.Count_And_Get
350: ( p_count => x_msg_count
351: , p_data => x_msg_data
352: );
353: x_return_status := FND_API.G_RET_STS_ERROR;
350: ( p_count => x_msg_count
351: , p_data => x_msg_data
352: );
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: x_msg_data := FND_MSG_PUB.GET(X_MSG_COUNT, 'F');
355:
356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358:
356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358:
359: -- Get message count and data
360: FND_MSG_PUB.Count_And_Get
361: ( p_count => x_msg_count
362: , p_data => x_msg_data
363: );
364:
364:
365: WHEN OTHERS THEN
366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
367:
368: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
369: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
370: END IF;
371:
372: -- Get message count and data
365: WHEN OTHERS THEN
366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
367:
368: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
369: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
370: END IF;
371:
372: -- Get message count and data
373: FND_MSG_PUB.Count_And_Get
369: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
370: END IF;
371:
372: -- Get message count and data
373: FND_MSG_PUB.Count_And_Get
374: ( p_count => x_msg_count
375: , p_data => x_msg_data
376: );
377: END update_status;