10: G_REQUEST_ID NUMBER := FND_GLOBAL.Conc_Request_Id;
11:
12: PROCEDURE Get_Invoices(
13: P_API_VERSION IN NUMBER,
14: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
15: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
16: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17: X_RETURN_STATUS OUT VARCHAR2,
18: X_MSG_COUNT OUT NUMBER,
11:
12: PROCEDURE Get_Invoices(
13: P_API_VERSION IN NUMBER,
14: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
15: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
16: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17: X_RETURN_STATUS OUT VARCHAR2,
18: X_MSG_COUNT OUT NUMBER,
19: X_MSG_DATA OUT VARCHAR2,
12: PROCEDURE Get_Invoices(
13: P_API_VERSION IN NUMBER,
14: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
15: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
16: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17: X_RETURN_STATUS OUT VARCHAR2,
18: X_MSG_COUNT OUT NUMBER,
19: X_MSG_DATA OUT VARCHAR2,
20: P_TRANSACTION_IDS IN VARCHAR2,
67: -- Standard start of API savepoint
68: SAVEPOINT Get_Invoices_PVT;
69:
70: -- Standard call to check for call compatibility
71: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: END IF;
74:
75: -- Initialize message list if p_init_msg_list is set to TRUE
68: SAVEPOINT Get_Invoices_PVT;
69:
70: -- Standard call to check for call compatibility
71: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: END IF;
74:
75: -- Initialize message list if p_init_msg_list is set to TRUE
76: IF FND_API.To_Boolean(p_init_msg_list) THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: END IF;
74:
75: -- Initialize message list if p_init_msg_list is set to TRUE
76: IF FND_API.To_Boolean(p_init_msg_list) THEN
77: FND_MSG_PUB.initialize;
78: END IF;
79:
80: -- Implementation of User Hooks
88: x_return_status => l_return_status,
89: x_msg_count => l_msg_count,
90: x_msg_data => l_msg_data,
91: p_transaction_ids => l_trx_id_cond);
92: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
93: RAISE FND_API.G_EXC_ERROR;
94: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
89: x_msg_count => l_msg_count,
90: x_msg_data => l_msg_data,
91: p_transaction_ids => l_trx_id_cond);
92: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
93: RAISE FND_API.G_EXC_ERROR;
94: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97: END IF;
90: x_msg_data => l_msg_data,
91: p_transaction_ids => l_trx_id_cond);
92: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
93: RAISE FND_API.G_EXC_ERROR;
94: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97: END IF;
98:
91: p_transaction_ids => l_trx_id_cond);
92: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
93: RAISE FND_API.G_EXC_ERROR;
94: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97: END IF;
98:
99:
103: x_return_status => l_return_status,
104: x_msg_count => l_msg_count,
105: x_msg_data => l_msg_data,
106: p_transaction_ids => l_trx_id_cond);
107: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
108: RAISE FND_API.G_EXC_ERROR;
109: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;
104: x_msg_count => l_msg_count,
105: x_msg_data => l_msg_data,
106: p_transaction_ids => l_trx_id_cond);
107: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
108: RAISE FND_API.G_EXC_ERROR;
109: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;
112: END IF;
105: x_msg_data => l_msg_data,
106: p_transaction_ids => l_trx_id_cond);
107: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
108: RAISE FND_API.G_EXC_ERROR;
109: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;
112: END IF;
113:
106: p_transaction_ids => l_trx_id_cond);
107: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
108: RAISE FND_API.G_EXC_ERROR;
109: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;
112: END IF;
113:
114: -- Initialize API return status to success
111: END IF;
112: END IF;
113:
114: -- Initialize API return status to success
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116:
117: -- API body begin
118:
119: l_select_cl := 'SELECT customer_trx_id, '
243: x_return_status => l_return_status,
244: x_msg_count => l_msg_count,
245: x_msg_data => l_msg_data,
246: p_transaction_ids => l_trx_id_cond);
247: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
248: RAISE FND_API.G_EXC_ERROR;
249: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
244: x_msg_count => l_msg_count,
245: x_msg_data => l_msg_data,
246: p_transaction_ids => l_trx_id_cond);
247: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
248: RAISE FND_API.G_EXC_ERROR;
249: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
252: END IF;
245: x_msg_data => l_msg_data,
246: p_transaction_ids => l_trx_id_cond);
247: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
248: RAISE FND_API.G_EXC_ERROR;
249: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
252: END IF;
253:
246: p_transaction_ids => l_trx_id_cond);
247: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
248: RAISE FND_API.G_EXC_ERROR;
249: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
252: END IF;
253:
254: -- Standard check of p_commit
251: END IF;
252: END IF;
253:
254: -- Standard check of p_commit
255: IF FND_API.To_Boolean(p_commit) THEN
256: COMMIT WORK;
257: END IF;
258:
259: -- Standard call to get message count and if count is 1, get message info
259: -- Standard call to get message count and if count is 1, get message info
260: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
261:
262: EXCEPTION
263: WHEN FND_API.G_EXC_ERROR THEN
264: ROLLBACK TO Get_Invoices_PVT;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
267:
261:
262: EXCEPTION
263: WHEN FND_API.G_EXC_ERROR THEN
264: ROLLBACK TO Get_Invoices_PVT;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO Get_Invoices_PVT;
264: ROLLBACK TO Get_Invoices_PVT;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO Get_Invoices_PVT;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
272:
266: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO Get_Invoices_PVT;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
272:
273: WHEN OTHERS THEN
274: ROLLBACK TO Get_Invoices_PVT;
271: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
272:
273: WHEN OTHERS THEN
274: ROLLBACK TO Get_Invoices_PVT;
275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
276: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
277: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
278: END IF;
279: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);