1: PACKAGE BODY IEX_ROUTING_PVT AS
2: /* $Header: iexvroub.pls 120.0 2004/01/24 03:28:34 appldev noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IEX_ROUTING_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvroub.pls';
1: PACKAGE BODY IEX_ROUTING_PVT AS
2: /* $Header: iexvroub.pls 120.0 2004/01/24 03:28:34 appldev noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IEX_ROUTING_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvroub.pls';
6: G_APPL_ID NUMBER := FND_GLOBAL.Prog_Appl_Id;
7: G_LOGIN_ID NUMBER := FND_GLOBAL.Conc_Login_Id;
8: G_PROGRAM_ID NUMBER := FND_GLOBAL.Conc_Program_Id;
42:
43:
44: BEGIN
45: /* Standard start of API savepoint */
46: SAVEPOINT IEX_ROUTING_PVT;
47:
48: /* Standard call to check for call compatibility */
49: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
50: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
91: /* Standard call to get message count and if count is 1, get message info */
92: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
93: EXCEPTION
94: WHEN FND_API.G_EXC_ERROR THEN
95: ROLLBACK TO IEX_ROUTING_PVT;
96: x_return_status := FND_API.G_RET_STS_ERROR;
97: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
98: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
99: ROLLBACK TO IEX_ROUTING_PVT;
95: ROLLBACK TO IEX_ROUTING_PVT;
96: x_return_status := FND_API.G_RET_STS_ERROR;
97: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
98: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
99: ROLLBACK TO IEX_ROUTING_PVT;
100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
102: WHEN OTHERS THEN
103: ROLLBACK TO IEX_ROUTING_PVT;
99: ROLLBACK TO IEX_ROUTING_PVT;
100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
102: WHEN OTHERS THEN
103: ROLLBACK TO IEX_ROUTING_PVT;
104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
105: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
106: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
107: END IF;
133: and prof.cust_account_id = acct.cust_account_id;
134:
135: BEGIN
136: /* Standard start of API savepoint */
137: SAVEPOINT IEX_ROUTING_PVT;
138:
139: /* Standard call to check for call compatibility */
140: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: /* Standard call to get message count and if count is 1, get message info */
169: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
170: EXCEPTION
171: WHEN FND_API.G_EXC_ERROR THEN
172: ROLLBACK TO IEX_ROUTING_PVT;
173: x_return_status := FND_API.G_RET_STS_ERROR;
174: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: ROLLBACK TO IEX_ROUTING_PVT;
172: ROLLBACK TO IEX_ROUTING_PVT;
173: x_return_status := FND_API.G_RET_STS_ERROR;
174: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: ROLLBACK TO IEX_ROUTING_PVT;
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
179: WHEN OTHERS THEN
180: ROLLBACK TO IEX_ROUTING_PVT;
176: ROLLBACK TO IEX_ROUTING_PVT;
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
179: WHEN OTHERS THEN
180: ROLLBACK TO IEX_ROUTING_PVT;
181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
182: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
183: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
184: END IF;
185: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
186:
187: END getCollectors;
188:
189: END IEX_ROUTING_PVT;