1: PACKAGE BODY qa_results_pub AS
2: /* $Header: qltpresb.plb 120.3.12010000.2 2008/11/12 11:49:41 rvalsan ship $ */
3:
4:
5: g_pkg_name CONSTANT VARCHAR2(30):= 'qa_results_pub';
1: PACKAGE BODY qa_results_pub AS
2: /* $Header: qltpresb.plb 120.3.12010000.2 2008/11/12 11:49:41 rvalsan ship $ */
3:
4:
5: g_pkg_name CONSTANT VARCHAR2(30):= 'qa_results_pub';
6: g_message_table mesg_table;
7:
8: -- Start of comments
9: --
495: BEGIN
496:
497: -- Standard Start of API savepoint
498:
499: SAVEPOINT commit_qa_results_pub;
500:
501: -- Standard call to check for call compatibility.
502: IF NOT FND_API.Compatible_API_Call (l_api_version,
503: p_api_version,
527:
528: EXCEPTION
529:
530: WHEN FND_API.G_EXC_ERROR THEN
531: ROLLBACK TO commit_qa_results_pub;
532: x_return_status := FND_API.G_RET_STS_ERROR ;
533: FND_MSG_PUB.Count_And_Get
534: (p_count => x_msg_count,
535: p_data => x_msg_data
535: p_data => x_msg_data
536: );
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: ROLLBACK TO qa_results_pub;
540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
541: FND_MSG_PUB.Count_And_Get
542: (p_count => x_msg_count,
543: p_data => x_msg_data
543: p_data => x_msg_data
544: );
545:
546: WHEN OTHERS THEN
547: ROLLBACK TO commit_qa_results_pub;
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
550: FND_MSG_PUB.Add_Exc_Msg
551: (G_PKG_NAME,
562: BEGIN
563:
564: populate_message_table;
565:
566: END qa_results_pub;
567: