14: G_PKG_NAME CONSTANT VARCHAR2(30) := 'FLM_VendorMerge_GRP';
15:
16: PROCEDURE Merge_Vendor (
17: p_api_version IN NUMBER,
18: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
19: p_commit IN VARCHAR2 default FND_API.G_FALSE,
20: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,
21: p_return_status OUT NOCOPY VARCHAR2,
22: p_msg_count OUT NOCOPY NUMBER,
15:
16: PROCEDURE Merge_Vendor (
17: p_api_version IN NUMBER,
18: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
19: p_commit IN VARCHAR2 default FND_API.G_FALSE,
20: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,
21: p_return_status OUT NOCOPY VARCHAR2,
22: p_msg_count OUT NOCOPY NUMBER,
23: p_msg_data OUT NOCOPY VARCHAR2,
16: PROCEDURE Merge_Vendor (
17: p_api_version IN NUMBER,
18: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
19: p_commit IN VARCHAR2 default FND_API.G_FALSE,
20: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,
21: p_return_status OUT NOCOPY VARCHAR2,
22: p_msg_count OUT NOCOPY NUMBER,
23: p_msg_data OUT NOCOPY VARCHAR2,
24: p_vendor_id IN NUMBER,
34: l_api_name CONSTANT VARCHAR2(30) := 'Merge_Vendor';
35:
36: BEGIN
37:
38: if not FND_API.Compatible_API_Call
39: ( l_api_version,
40: p_api_version,
41: l_api_name,
42: G_PKG_NAME)
40: p_api_version,
41: l_api_name,
42: G_PKG_NAME)
43: then
44: raise FND_API.G_EXC_UNEXPECTED_ERROR;
45: end if;
46:
47: p_return_status := fnd_api.g_ret_sts_success;
48:
43: then
44: raise FND_API.G_EXC_UNEXPECTED_ERROR;
45: end if;
46:
47: p_return_status := fnd_api.g_ret_sts_success;
48:
49: update flm_kanban_summary
50: set supplier_id = p_vendor_id
51: where supplier_id = p_dup_vendor_id;
59: ( p_count => p_msg_count,
60: p_data => p_msg_data
61: );
62:
63: if (p_commit = FND_API.G_TRUE) then
64: commit;
65: end if;
66:
67: EXCEPTION
68: WHEN OTHERS THEN
69: fnd_message.set_name('AR', 'HZ_MERGE_SQL_ERROR');
70: fnd_message.set_token('ERROR', sqlerrm);
71: fnd_msg_pub.add;
72: p_return_status := fnd_api.g_ret_sts_unexp_error;
73:
74: END Merge_Vendor;
75:
76: END FLM_VendorMerge_GRP;