161: where key = l_key;
162:
163: delete from po_session_gt where key = l_key;
164:
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166:
167: EXCEPTION
168: WHEN FND_API.G_EXC_ERROR THEN
169: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
164:
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166:
167: EXCEPTION
168: WHEN FND_API.G_EXC_ERROR THEN
169: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: WHEN OTHERS THEN
172: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
166:
167: EXCEPTION
168: WHEN FND_API.G_EXC_ERROR THEN
169: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: WHEN OTHERS THEN
172: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: WHEN OTHERS THEN
172: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175:
176: END derive_dependent_fields;
177:
178: -------------------------------------------------------------------------------
236: END IF;
237:
238: -- Standard call to check for call compatibility
239: l_progress := '010';
240: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243:
244: l_progress := '020';
237:
238: -- Standard call to check for call compatibility
239: l_progress := '010';
240: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243:
244: l_progress := '020';
245: -- Initialize Variables to call Req Status Check API
262: x_return_status => x_return_status,
263: x_msg_count => x_msg_count,
264: x_msg_data => x_msg_data);
265:
266: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
267: return;
268: END IF;
269:
270: l_progress := '040';
272: IF l_req_status_rec.updatable_flag(i) <> 'Y' THEN
273: -- The Req Header/Line is not updatable, Error out
274: FND_MESSAGE.set_name('PO', 'PO_CANT_CHANGE_REQ');
275: FND_MSG_PUB.add;
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
278: END LOOP;
279:
280: l_progress := '050';
286: x_return_status => x_return_status,
287: x_msg_count => x_msg_count,
288: x_msg_data => x_msg_data);
289:
290: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
291: return;
292: END IF;
293:
294: l_progress := '060';
333: x_return_status => l_return_status,
334: p_requisition_header_id => p_req_changes.req_header_id,
335: p_calling_program => 'REQ_CHANGE');
336:
337: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
338: FOR i IN 1..po_tax_interface_pvt.G_TAX_ERRORS_TBL.MESSAGE_TEXT.COUNT
339: LOOP
340: FND_MESSAGE.SET_NAME('PO','PO_CUSTOM_MSG');
341: FND_MESSAGE.SET_TOKEN('TRANSLATED_TOKEN',po_tax_interface_pvt.G_TAX_ERRORS_TBL.message_text(i));
342: FND_MSG_PUB.add;
343: END LOOP;
344: END IF;
345:
346: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
347: RAISE FND_API.G_EXC_ERROR;
348: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
343: END LOOP;
344: END IF;
345:
346: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
347: RAISE FND_API.G_EXC_ERROR;
348: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
351: --
344: END IF;
345:
346: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
347: RAISE FND_API.G_EXC_ERROR;
348: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
351: --
352:
345:
346: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
347: RAISE FND_API.G_EXC_ERROR;
348: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
351: --
352:
353: x_return_status := FND_API.G_RET_STS_SUCCESS;
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
351: --
352:
353: x_return_status := FND_API.G_RET_STS_SUCCESS;
354:
355: l_progress := '080';
356:
357: EXCEPTION
354:
355: l_progress := '080';
356:
357: EXCEPTION
358: WHEN FND_API.G_EXC_ERROR THEN
359: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
360: x_return_status := FND_API.G_RET_STS_ERROR;
361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
362: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
356:
357: EXCEPTION
358: WHEN FND_API.G_EXC_ERROR THEN
359: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
360: x_return_status := FND_API.G_RET_STS_ERROR;
361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
362: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364: WHEN OTHERS THEN
357: EXCEPTION
358: WHEN FND_API.G_EXC_ERROR THEN
359: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
360: x_return_status := FND_API.G_RET_STS_ERROR;
361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
362: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364: WHEN OTHERS THEN
365: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
359: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
360: x_return_status := FND_API.G_RET_STS_ERROR;
361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
362: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364: WHEN OTHERS THEN
365: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
366: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364: WHEN OTHERS THEN
365: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
366: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
368:
369: END update_requisition;
370:
371: END PO_REQ_DOCUMENT_UPDATE_PVT;