1 PACKAGE BODY OE_RMA_QUERY_RECEIVE as
2 /* $Header: oexrlqrb.pls 115.1 99/07/16 08:29:28 porting ship $ */
3
4 /*
5 ** Validate the warehouse given the item.
6 ** If not avlid, the return null.
7 */
8 PROCEDURE VALIDATE_WAREHOUSE (
9 p_warehouse_id IN OUT NUMBER,
10 p_inventory_item_id IN NUMBER
11 ) IS
12
13 X_SET_OF_BOOKS_ID NUMBER := FND_PROFILE.VALUE('SO_SET_OF_BOOKS_ID');
14
15 BEGIN
16
17 SELECT ORGANIZATION_ID
18 INTO P_WAREHOUSE_ID
19 FROM SO_ITEM_WAREHOUSES_V
20 WHERE ORGANIZATION_ID = P_WAREHOUSE_ID
21 AND INVENTORY_ITEM_ID = P_INVENTORY_ITEM_ID
22 AND NVL(RETURNABLE_FLAG, 'Y') = 'Y'
23 AND EXISTS
24 (SELECT 'SAME CHART OF ACCOUNTS'
25 FROM ORG_ORGANIZATION_DEFINITIONS ORGDEF1,
26 ORG_ORGANIZATION_DEFINITIONS ORGDEF2
27 WHERE ORGDEF1.SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID
28 AND ORGDEF2.ORGANIZATION_ID = SO_ITEM_WAREHOUSES_V.ORGANIZATION_ID
29 AND ORGDEF1.CHART_OF_ACCOUNTS_ID = ORGDEF2.CHART_OF_ACCOUNTS_ID);
30
31 RETURN;
32
33 EXCEPTION
34 WHEN NO_DATA_FOUND THEN
35 p_warehouse_id := NULL;
36 return;
37
38 END VALIDATE_WAREHOUSE;
39
40 END OE_RMA_QUERY_RECEIVE;