65:
66: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
67: FND_MESSAGE.set_token('ERROR_TEXT', 'The input table ID parameters are not of same size !');
68: FND_MSG_PUB.Add;
69: RAISE FND_API.G_EXC_ERROR;
70: END IF;
71:
72: --Validate that a Requisition Header is specified for all indexes
73: l_progress := '020';
77: IF p_req_header_id(i) is null THEN
78: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
79: FND_MESSAGE.set_token('ERROR_TEXT', 'There is no Header specified at index ' || i);
80: FND_MSG_PUB.Add;
81: RAISE FND_API.G_EXC_ERROR;
82: END IF;
83:
84: END LOOP;
85:
84: END LOOP;
85:
86: l_progress := '030';
87:
88: x_return_status := FND_API.G_RET_STS_SUCCESS;
89:
90: EXCEPTION
91: WHEN FND_API.G_EXC_ERROR THEN
92: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
87:
88: x_return_status := FND_API.G_RET_STS_SUCCESS;
89:
90: EXCEPTION
91: WHEN FND_API.G_EXC_ERROR THEN
92: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
93: x_return_status := FND_API.G_RET_STS_ERROR;
94: WHEN OTHERS THEN
95: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
89:
90: EXCEPTION
91: WHEN FND_API.G_EXC_ERROR THEN
92: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
93: x_return_status := FND_API.G_RET_STS_ERROR;
94: WHEN OTHERS THEN
95: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
96: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
97: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93: x_return_status := FND_API.G_RET_STS_ERROR;
94: WHEN OTHERS THEN
95: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
96: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
97: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
98:
99: END validate_status_check_inputs;
100:
101: -------------------------------------------------------------------------------
136:
137: BEGIN
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;
142: END IF;
143:
144: --Validate Input Parameters
137: BEGIN
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;
142: END IF;
143:
144: --Validate Input Parameters
145: l_progress := '010';
171:
172: l_progress := '030';
173:
174: EXCEPTION
175: WHEN FND_API.G_EXC_ERROR THEN
176: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
173:
174: EXCEPTION
175: WHEN FND_API.G_EXC_ERROR THEN
176: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181: WHEN OTHERS THEN
174: EXCEPTION
175: WHEN FND_API.G_EXC_ERROR THEN
176: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181: WHEN OTHERS THEN
182: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
176: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181: WHEN OTHERS THEN
182: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
183: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181: WHEN OTHERS THEN
182: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
183: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185:
186: END req_status_check;
187:
188: -------------------------------------------------------------------------------
221:
222: BEGIN
223:
224: --Standard call to check for call compatibility
225: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
228:
229: --Call the overloaded procedure that takes in Table IDs after
222: BEGIN
223:
224: --Standard call to check for call compatibility
225: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
228:
229: --Call the overloaded procedure that takes in Table IDs after
230: -- creating size=1 Tables of IDs 1 with value of the scalar input IDs
243:
244: l_progress := '020';
245:
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
248: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
251: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
245:
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
248: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
251: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253: WHEN OTHERS THEN
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
248: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
251: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253: WHEN OTHERS THEN
254: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
248: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
251: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253: WHEN OTHERS THEN
254: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
255: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253: WHEN OTHERS THEN
254: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
255: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
257:
258: END req_status_check;
259:
260: