1: PACKAGE BODY qa_VendorMerge_grp AS
2: /* $Header: qavendb.pls 120.0 2005/10/31 16:29:31 bso noship $ */
3:
4:
5: g_pkg_name CONSTANT VARCHAR2(30) := 'QA_VENDORMERGE_GRP';
1: PACKAGE BODY qa_VendorMerge_grp AS
2: /* $Header: qavendb.pls 120.0 2005/10/31 16:29:31 bso noship $ */
3:
4:
5: g_pkg_name CONSTANT VARCHAR2(30) := 'QA_VENDORMERGE_GRP';
6:
7:
8: --
9: -- Helper procedure to perform the actual updates to the
57:
58: BEGIN
59:
60: -- Standard Start of API savepoint
61: SAVEPOINT qa_VendorMerge_grp;
62:
63: -- Standard call to check for call compatibility.
64: IF NOT fnd_api.compatible_API_call(l_api_version, nvl(p_api_version,
65: 1.0), l_api_name, g_pkg_name) THEN
87: p_return_status := fnd_api.G_RET_STS_SUCCESS;
88:
89: EXCEPTION
90: WHEN fnd_api.G_EXC_ERROR THEN
91: ROLLBACK TO qa_VendorMerge_grp;
92: p_return_status := fnd_api.G_RET_STS_ERROR;
93: fnd_msg_pub.count_and_get(
94: p_count => p_msg_count,
95: p_data => p_msg_data);
94: p_count => p_msg_count,
95: p_data => p_msg_data);
96:
97: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
98: ROLLBACK TO qa_VendorMerge_grp;
99: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
100: fnd_msg_pub.count_and_get(
101: p_count => p_msg_count,
102: p_data => p_msg_data);
101: p_count => p_msg_count,
102: p_data => p_msg_data);
103:
104: WHEN OTHERS THEN
105: ROLLBACK TO qa_VendorMerge_grp;
106: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
107: fnd_msg_pub.count_and_get(
108: p_count => p_msg_count,
109: p_data => p_msg_data);
117: END IF;
118:
119: END merge_vendor;
120:
121: END qa_VendorMerge_grp;