163: WHEN NO_DATA_FOUND THEN
164: DPP_UTILITY_PVT.debug_message('Invalid User');
165: RAISE FND_API.G_EXC_ERROR;
166: WHEN OTHERS THEN
167: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
168: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
169: fnd_message.set_token('ERRNO', sqlcode);
170: fnd_message.set_token('REASON', sqlerrm);
171: FND_MSG_PUB.add;
164: DPP_UTILITY_PVT.debug_message('Invalid User');
165: RAISE FND_API.G_EXC_ERROR;
166: WHEN OTHERS THEN
167: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
168: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
169: fnd_message.set_token('ERRNO', sqlcode);
170: fnd_message.set_token('REASON', sqlerrm);
171: FND_MSG_PUB.add;
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
165: RAISE FND_API.G_EXC_ERROR;
166: WHEN OTHERS THEN
167: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
168: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
169: fnd_message.set_token('ERRNO', sqlcode);
170: fnd_message.set_token('REASON', sqlerrm);
171: FND_MSG_PUB.add;
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: END;
166: WHEN OTHERS THEN
167: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
168: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
169: fnd_message.set_token('ERRNO', sqlcode);
170: fnd_message.set_token('REASON', sqlerrm);
171: FND_MSG_PUB.add;
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: END;
174: --Getting a valid Price Protection Responsibility at the User Level Profile Options
239: EXCEPTION
240: WHEN NO_DATA_FOUND THEN
241: l_responsibility_id := -1;
242: WHEN OTHERS THEN
243: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
244: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
245: fnd_message.set_token('ERRNO', sqlcode);
246: fnd_message.set_token('REASON', sqlerrm);
247: FND_MSG_PUB.add;
240: WHEN NO_DATA_FOUND THEN
241: l_responsibility_id := -1;
242: WHEN OTHERS THEN
243: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
244: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
245: fnd_message.set_token('ERRNO', sqlcode);
246: fnd_message.set_token('REASON', sqlerrm);
247: FND_MSG_PUB.add;
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
241: l_responsibility_id := -1;
242: WHEN OTHERS THEN
243: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
244: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
245: fnd_message.set_token('ERRNO', sqlcode);
246: fnd_message.set_token('REASON', sqlerrm);
247: FND_MSG_PUB.add;
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END;
242: WHEN OTHERS THEN
243: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
244: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
245: fnd_message.set_token('ERRNO', sqlcode);
246: fnd_message.set_token('REASON', sqlerrm);
247: FND_MSG_PUB.add;
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END;
250: WHEN OTHERS THEN
247: FND_MSG_PUB.add;
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END;
250: WHEN OTHERS THEN
251: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
252: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
253: fnd_message.set_token('ERRNO', sqlcode);
254: fnd_message.set_token('REASON', sqlerrm);
255: FND_MSG_PUB.add;
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END;
250: WHEN OTHERS THEN
251: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
252: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
253: fnd_message.set_token('ERRNO', sqlcode);
254: fnd_message.set_token('REASON', sqlerrm);
255: FND_MSG_PUB.add;
256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END;
250: WHEN OTHERS THEN
251: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
252: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
253: fnd_message.set_token('ERRNO', sqlcode);
254: fnd_message.set_token('REASON', sqlerrm);
255: FND_MSG_PUB.add;
256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
257: END;
250: WHEN OTHERS THEN
251: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
252: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
253: fnd_message.set_token('ERRNO', sqlcode);
254: fnd_message.set_token('REASON', sqlerrm);
255: FND_MSG_PUB.add;
256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
257: END;
258: --Getting a valid Price Protection Responsibility at the Responsibility Level Profile Options
323: EXCEPTION
324: WHEN NO_DATA_FOUND THEN
325: l_responsibility_id := -1;
326: WHEN OTHERS THEN
327: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
328: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
329: fnd_message.set_token('ERRNO', sqlcode);
330: fnd_message.set_token('REASON', sqlerrm);
331: FND_MSG_PUB.add;
324: WHEN NO_DATA_FOUND THEN
325: l_responsibility_id := -1;
326: WHEN OTHERS THEN
327: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
328: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
329: fnd_message.set_token('ERRNO', sqlcode);
330: fnd_message.set_token('REASON', sqlerrm);
331: FND_MSG_PUB.add;
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
325: l_responsibility_id := -1;
326: WHEN OTHERS THEN
327: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
328: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
329: fnd_message.set_token('ERRNO', sqlcode);
330: fnd_message.set_token('REASON', sqlerrm);
331: FND_MSG_PUB.add;
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: END;
326: WHEN OTHERS THEN
327: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
328: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
329: fnd_message.set_token('ERRNO', sqlcode);
330: fnd_message.set_token('REASON', sqlerrm);
331: FND_MSG_PUB.add;
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: END;
334: WHEN OTHERS THEN
331: FND_MSG_PUB.add;
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: END;
334: WHEN OTHERS THEN
335: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
336: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
337: fnd_message.set_token('ERRNO', sqlcode);
338: fnd_message.set_token('REASON', sqlerrm);
339: FND_MSG_PUB.add;
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: END;
334: WHEN OTHERS THEN
335: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
336: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
337: fnd_message.set_token('ERRNO', sqlcode);
338: fnd_message.set_token('REASON', sqlerrm);
339: FND_MSG_PUB.add;
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: END;
334: WHEN OTHERS THEN
335: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
336: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
337: fnd_message.set_token('ERRNO', sqlcode);
338: fnd_message.set_token('REASON', sqlerrm);
339: FND_MSG_PUB.add;
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
341: END;
334: WHEN OTHERS THEN
335: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
336: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
337: fnd_message.set_token('ERRNO', sqlcode);
338: fnd_message.set_token('REASON', sqlerrm);
339: FND_MSG_PUB.add;
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
341: END;
342: END IF;
408: EXCEPTION
409: WHEN NO_DATA_FOUND THEN
410: l_responsibility_id := -1;
411: WHEN OTHERS THEN
412: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
413: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
414: fnd_message.set_token('ERRNO', sqlcode);
415: fnd_message.set_token('REASON', sqlerrm);
416: FND_MSG_PUB.add;
409: WHEN NO_DATA_FOUND THEN
410: l_responsibility_id := -1;
411: WHEN OTHERS THEN
412: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
413: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
414: fnd_message.set_token('ERRNO', sqlcode);
415: fnd_message.set_token('REASON', sqlerrm);
416: FND_MSG_PUB.add;
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: l_responsibility_id := -1;
411: WHEN OTHERS THEN
412: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
413: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
414: fnd_message.set_token('ERRNO', sqlcode);
415: fnd_message.set_token('REASON', sqlerrm);
416: FND_MSG_PUB.add;
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: END;
411: WHEN OTHERS THEN
412: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
413: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
414: fnd_message.set_token('ERRNO', sqlcode);
415: fnd_message.set_token('REASON', sqlerrm);
416: FND_MSG_PUB.add;
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: END;
419: WHEN OTHERS THEN
416: FND_MSG_PUB.add;
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: END;
419: WHEN OTHERS THEN
420: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
421: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
422: fnd_message.set_token('ERRNO', sqlcode);
423: fnd_message.set_token('REASON', sqlerrm);
424: FND_MSG_PUB.add;
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: END;
419: WHEN OTHERS THEN
420: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
421: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
422: fnd_message.set_token('ERRNO', sqlcode);
423: fnd_message.set_token('REASON', sqlerrm);
424: FND_MSG_PUB.add;
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: END;
419: WHEN OTHERS THEN
420: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
421: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
422: fnd_message.set_token('ERRNO', sqlcode);
423: fnd_message.set_token('REASON', sqlerrm);
424: FND_MSG_PUB.add;
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END;
419: WHEN OTHERS THEN
420: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
421: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
422: fnd_message.set_token('ERRNO', sqlcode);
423: fnd_message.set_token('REASON', sqlerrm);
424: FND_MSG_PUB.add;
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END;
427: END IF;
493: EXCEPTION
494: WHEN NO_DATA_FOUND THEN
495: l_responsibility_id := -1;
496: WHEN OTHERS THEN
497: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
498: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
499: fnd_message.set_token('ERRNO', sqlcode);
500: fnd_message.set_token('REASON', sqlerrm);
501: FND_MSG_PUB.add;
494: WHEN NO_DATA_FOUND THEN
495: l_responsibility_id := -1;
496: WHEN OTHERS THEN
497: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
498: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
499: fnd_message.set_token('ERRNO', sqlcode);
500: fnd_message.set_token('REASON', sqlerrm);
501: FND_MSG_PUB.add;
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: l_responsibility_id := -1;
496: WHEN OTHERS THEN
497: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
498: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
499: fnd_message.set_token('ERRNO', sqlcode);
500: fnd_message.set_token('REASON', sqlerrm);
501: FND_MSG_PUB.add;
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END;
496: WHEN OTHERS THEN
497: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
498: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
499: fnd_message.set_token('ERRNO', sqlcode);
500: fnd_message.set_token('REASON', sqlerrm);
501: FND_MSG_PUB.add;
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END;
504: WHEN OTHERS THEN
501: FND_MSG_PUB.add;
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END;
504: WHEN OTHERS THEN
505: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
506: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END;
504: WHEN OTHERS THEN
505: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
506: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END;
504: WHEN OTHERS THEN
505: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
506: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
511: END;
504: WHEN OTHERS THEN
505: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
506: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT');
507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
511: END;
512: END IF;
511: END;
512: END IF;
513: --Check if the responsibility id s -1
514: IF l_responsibility_id = -1 THEN
515: FND_MESSAGE.set_name('DPP', 'DPP_INVALID_RESP');
516: FND_MESSAGE.set_token('USER', l_user_name);
517: FND_MSG_PUB.add;
518: IF g_debug THEN
519: DPP_UTILITY_PVT.debug_message('Price Protection responsibility not available for Last updated user'||l_user_name);
512: END IF;
513: --Check if the responsibility id s -1
514: IF l_responsibility_id = -1 THEN
515: FND_MESSAGE.set_name('DPP', 'DPP_INVALID_RESP');
516: FND_MESSAGE.set_token('USER', l_user_name);
517: FND_MSG_PUB.add;
518: IF g_debug THEN
519: DPP_UTILITY_PVT.debug_message('Price Protection responsibility not available for Last updated user'||l_user_name);
520: END IF;
679: dbms_xmlquery.closeContext(l_queryCtx);
680: EXCEPTION
681: WHEN OTHERS THEN
682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
683: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
684: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT.Update_PurchasePrice-XML Generation');
685: fnd_message.set_token('ERRNO', sqlcode);
686: fnd_message.set_token('REASON', sqlerrm);
687: FND_MSG_PUB.add;
680: EXCEPTION
681: WHEN OTHERS THEN
682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
683: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
684: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT.Update_PurchasePrice-XML Generation');
685: fnd_message.set_token('ERRNO', sqlcode);
686: fnd_message.set_token('REASON', sqlerrm);
687: FND_MSG_PUB.add;
688: END;
681: WHEN OTHERS THEN
682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
683: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
684: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT.Update_PurchasePrice-XML Generation');
685: fnd_message.set_token('ERRNO', sqlcode);
686: fnd_message.set_token('REASON', sqlerrm);
687: FND_MSG_PUB.add;
688: END;
689:
682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
683: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
684: fnd_message.set_token('ROUTINE', 'DPP_PURCHASEPRICE_PVT.Update_PurchasePrice-XML Generation');
685: fnd_message.set_token('ERRNO', sqlcode);
686: fnd_message.set_token('REASON', sqlerrm);
687: FND_MSG_PUB.add;
688: END;
689:
690: l_exe_update_rec.Transaction_Header_ID := l_item_price_rec.Transaction_Header_ID;
764:
765: WHEN OTHERS THEN
766: ROLLBACK TO UPDATE_PURCHASEPRICE_PVT;
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
769: fnd_message.set_token('ROUTINE', l_full_name);
770: fnd_message.set_token('ERRNO', sqlcode);
771: fnd_message.set_token('REASON', sqlerrm);
772: FND_MSG_PUB.add;
765: WHEN OTHERS THEN
766: ROLLBACK TO UPDATE_PURCHASEPRICE_PVT;
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
769: fnd_message.set_token('ROUTINE', l_full_name);
770: fnd_message.set_token('ERRNO', sqlcode);
771: fnd_message.set_token('REASON', sqlerrm);
772: FND_MSG_PUB.add;
773: -- Standard call to get message count and if count=1, get the message
766: ROLLBACK TO UPDATE_PURCHASEPRICE_PVT;
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
769: fnd_message.set_token('ROUTINE', l_full_name);
770: fnd_message.set_token('ERRNO', sqlcode);
771: fnd_message.set_token('REASON', sqlerrm);
772: FND_MSG_PUB.add;
773: -- Standard call to get message count and if count=1, get the message
774: FND_MSG_PUB.Count_And_Get (
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
769: fnd_message.set_token('ROUTINE', l_full_name);
770: fnd_message.set_token('ERRNO', sqlcode);
771: fnd_message.set_token('REASON', sqlerrm);
772: FND_MSG_PUB.add;
773: -- Standard call to get message count and if count=1, get the message
774: FND_MSG_PUB.Count_And_Get (
775: p_encoded => FND_API.G_FALSE,
1100: IF l_po_notify_item_tbl(i).inventory_item_id IS NULL THEN
1101: IF g_debug THEN
1102: DPP_Utility_PVT.debug_message('Inventory Item ID cannot be NULL');
1103: END IF;
1104: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1105: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1106: FND_MSG_PUB.add;
1107: -- Initializing Nested Table
1108: IF NOT l_po_details_tbl.EXISTS(1) THEN
1101: IF g_debug THEN
1102: DPP_Utility_PVT.debug_message('Inventory Item ID cannot be NULL');
1103: END IF;
1104: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1105: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1106: FND_MSG_PUB.add;
1107: -- Initializing Nested Table
1108: IF NOT l_po_details_tbl.EXISTS(1) THEN
1109: l_po_details_tbl(1).Document_Number := NULL;
1176: END IF;
1177:
1178: WHEN OTHERS THEN
1179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1180: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1181: fnd_message.set_token('ROUTINE', l_full_name);
1182: fnd_message.set_token('ERRNO', sqlcode);
1183: fnd_message.set_token('REASON', sqlerrm);
1184: FND_MSG_PUB.add;
1177:
1178: WHEN OTHERS THEN
1179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1180: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1181: fnd_message.set_token('ROUTINE', l_full_name);
1182: fnd_message.set_token('ERRNO', sqlcode);
1183: fnd_message.set_token('REASON', sqlerrm);
1184: FND_MSG_PUB.add;
1185: -- Standard call to get message count and if count=1, get the message
1178: WHEN OTHERS THEN
1179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1180: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1181: fnd_message.set_token('ROUTINE', l_full_name);
1182: fnd_message.set_token('ERRNO', sqlcode);
1183: fnd_message.set_token('REASON', sqlerrm);
1184: FND_MSG_PUB.add;
1185: -- Standard call to get message count and if count=1, get the message
1186: FND_MSG_PUB.Count_And_Get (
1179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1180: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1181: fnd_message.set_token('ROUTINE', l_full_name);
1182: fnd_message.set_token('ERRNO', sqlcode);
1183: fnd_message.set_token('REASON', sqlerrm);
1184: FND_MSG_PUB.add;
1185: -- Standard call to get message count and if count=1, get the message
1186: FND_MSG_PUB.Count_And_Get (
1187: p_encoded => FND_API.G_FALSE,