1 PACKAGE BODY inv_user_cost_group AS
2 /* $Header: INVCGSTB.pls 120.0 2005/05/25 05:19:17 appldev noship $*/
3 PROCEDURE GET_CG_FOR_NEG_ONHAND(x_return_status OUT NOCOPY VARCHAR2,
4 x_msg_count OUT NOCOPY NUMBER,
5 x_msg_data OUT NOCOPY VARCHAR2,
6 x_cost_group_id OUT NOCOPY NUMBER,
7 p_organization_id IN NUMBER,
8 p_inventory_item_id IN NUMBER,
9 p_subinventory_code IN VARCHAR2,
10 p_locator_id IN NUMBER,
11 p_revision IN VARCHAR2,
12 p_lot_number IN VARCHAR2,
13 p_serial_number IN VARCHAR2,
14 p_transaction_action_id IN NUMBER)
15 IS
16 BEGIN
17 --Fill in the user logic here
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_cost_group_id := NULL;
20
21 EXCEPTION
22 WHEN OTHERS THEN
23 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24 x_cost_group_id := NULL;
25 IF fnd_msg_pub.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
26 THEN
27 FND_MSG_PUB.Add_Exc_Msg ('inv_user_cost_group','determine_costgroup');
28 END IF;
29 END GET_CG_FOR_NEG_ONHAND;
30 END inv_user_cost_group;