PACKAGE BODY: APPS.INV_USER_COST_GROUP

Source

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;