15: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_VendorMerge_GRP';
16:
17: PROCEDURE Merge_Vendor (
18: p_api_version IN NUMBER,
19: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
20: p_commit IN VARCHAR2 default FND_API.G_FALSE,
21: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,
22: p_return_status OUT NOCOPY VARCHAR2,
23: p_msg_count OUT NOCOPY NUMBER,
16:
17: PROCEDURE Merge_Vendor (
18: p_api_version IN NUMBER,
19: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
20: p_commit IN VARCHAR2 default FND_API.G_FALSE,
21: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,
22: p_return_status OUT NOCOPY VARCHAR2,
23: p_msg_count OUT NOCOPY NUMBER,
24: p_msg_data OUT NOCOPY VARCHAR2,
17: PROCEDURE Merge_Vendor (
18: p_api_version IN NUMBER,
19: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
20: p_commit IN VARCHAR2 default FND_API.G_FALSE,
21: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,
22: p_return_status OUT NOCOPY VARCHAR2,
23: p_msg_count OUT NOCOPY NUMBER,
24: p_msg_data OUT NOCOPY VARCHAR2,
25: p_vendor_id IN NUMBER,
35: l_api_name CONSTANT VARCHAR2(30) := 'Merge_Vendor';
36:
37: BEGIN
38:
39: if not FND_API.Compatible_API_Call
40: ( l_api_version,
41: p_api_version,
42: l_api_name,
43: G_PKG_NAME)
41: p_api_version,
42: l_api_name,
43: G_PKG_NAME)
44: then
45: raise FND_API.G_EXC_UNEXPECTED_ERROR;
46: end if;
47:
48: p_return_status := fnd_api.g_ret_sts_success;
49:
44: then
45: raise FND_API.G_EXC_UNEXPECTED_ERROR;
46: end if;
47:
48: p_return_status := fnd_api.g_ret_sts_success;
49:
50: /*
51: ** Following tables have reference to vendor and are candidates for
52: ** vendor merge:
109: ( p_count => p_msg_count,
110: p_data => p_msg_data
111: );
112:
113: if (p_commit = FND_API.G_TRUE) then
114: commit;
115: end if;
116:
117: EXCEPTION
118: WHEN OTHERS THEN
119: fnd_message.set_name('AR', 'HZ_MERGE_SQL_ERROR');
120: fnd_message.set_token('ERROR', sqlerrm);
121: fnd_msg_pub.add;
122: p_return_status := fnd_api.g_ret_sts_unexp_error;
123:
124: END Merge_Vendor;
125:
126: END INV_VendorMerge_GRP;