91: END IF;
92:
93: /* Initialize message list if p_init_msg_list is set to TRUE */
94: IF FND_API.to_Boolean( p_init_msg_list ) THEN
95: FND_MSG_PUB.initialize;
96: END IF;
97:
98: /* Initialize API return status to success */
99: x_return_status := FND_API.G_RET_STS_SUCCESS;
199: CLOSE Cur_fm_sec;
200: EXCEPTION
201: WHEN others then
202: ROLLBACK to Insert_FormulaHeader_PVT;
203: fnd_msg_pub.add_exc_msg('GMD_FORMULA_HEADER_PVT',
204: 'Insert_Formula_Header');
205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
206: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
207: IF (l_debug = 'Y') THEN
202: ROLLBACK to Insert_FormulaHeader_PVT;
203: fnd_msg_pub.add_exc_msg('GMD_FORMULA_HEADER_PVT',
204: 'Insert_Formula_Header');
205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
206: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
207: IF (l_debug = 'Y') THEN
208: gmd_debug.put_line(' In Formula Header Pvt - Formula Security OTHERS Exception ' ||
209: ' - ' || x_return_status);
210: END IF;
292: Commit;
293: END IF;
294:
295: /* Get the message count and information */
296: FND_MSG_PUB.Count_And_Get (
297: p_count => x_msg_count,
298: p_data => x_msg_data );
299:
300:
301: EXCEPTION
302: WHEN FND_API.G_EXC_ERROR THEN
303: ROLLBACK to Insert_FormulaHeader_PVT;
304: x_return_status := FND_API.G_RET_STS_ERROR;
305: FND_MSG_PUB.Count_And_Get (
306: p_count => x_msg_count,
307: p_data => x_msg_data );
308:
309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
308:
309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
310: ROLLBACK to Insert_FormulaHeader_PVT;
311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
312: FND_MSG_PUB.Count_And_Get (
313: p_count => x_msg_count,
314: p_data => x_msg_data );
315:
316: WHEN OTHERS THEN
314: p_data => x_msg_data );
315:
316: WHEN OTHERS THEN
317: ROLLBACK to Insert_FormulaHeader_PVT;
318: fnd_msg_pub.add_exc_msg ('GMD_FORMULA_HEADER_PVT', 'Insert_Formula_Header');
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: FND_MSG_PUB.Count_And_Get (
321: p_count => x_msg_count,
322: p_data => x_msg_data );
316: WHEN OTHERS THEN
317: ROLLBACK to Insert_FormulaHeader_PVT;
318: fnd_msg_pub.add_exc_msg ('GMD_FORMULA_HEADER_PVT', 'Insert_Formula_Header');
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: FND_MSG_PUB.Count_And_Get (
321: p_count => x_msg_count,
322: p_data => x_msg_data );
323: IF (l_debug = 'Y') THEN
324: gmd_debug.put_line(' In Formula Header Pvt - In OTHERS Exception Section '
373: END IF;
374:
375: /* Initialize message list if p_init_msg_list is set to TRUE */
376: IF FND_API.to_Boolean( p_init_msg_list ) THEN
377: FND_MSG_PUB.initialize;
378: END IF;
379:
380: /* Initialize API return status to success */
381: x_return_status := FND_API.G_RET_STS_SUCCESS;
454: Commit;
455: END IF;
456:
457: /* Get the message count and information */
458: FND_MSG_PUB.Count_And_Get (
459: p_count => x_msg_count,
460: p_data => x_msg_data );
461:
462: EXCEPTION
462: EXCEPTION
463: WHEN FND_API.G_EXC_ERROR THEN
464: ROLLBACK to Update_FormulaHeader_PVT;
465: x_return_status := FND_API.G_RET_STS_ERROR;
466: FND_MSG_PUB.Count_And_Get (
467: p_count => x_msg_count,
468: p_data => x_msg_data );
469: IF (l_debug = 'Y') THEN
470: gmd_debug.put_line(' In Formula Header Pvt - In Error Exception Section '
473: END IF;
474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
475: ROLLBACK to Update_FormulaHeader_PVT;
476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
477: FND_MSG_PUB.Count_And_Get (
478: p_count => x_msg_count,
479: p_data => x_msg_data );
480: IF (l_debug = 'Y') THEN
481: gmd_debug.put_line(' In Formula Header Pvt - In Unexpected Exception Section '
484: END IF;
485:
486: WHEN OTHERS THEN
487: ROLLBACK to Update_FormulaHeader_PVT;
488: fnd_msg_pub.add_exc_msg ('GMD_FORMULA_HEADER_PVT', 'Update_Formula_Header');
489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
490: FND_MSG_PUB.Count_And_Get (
491: p_count => x_msg_count,
492: p_data => x_msg_data );
486: WHEN OTHERS THEN
487: ROLLBACK to Update_FormulaHeader_PVT;
488: fnd_msg_pub.add_exc_msg ('GMD_FORMULA_HEADER_PVT', 'Update_Formula_Header');
489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
490: FND_MSG_PUB.Count_And_Get (
491: p_count => x_msg_count,
492: p_data => x_msg_data );
493: IF (l_debug = 'Y') THEN
494: gmd_debug.put_line(' In Formula Header Pvt - In Others Exception Section '