25: ) is
26: l_proc varchar2(72) := g_package||'merge_vendor';
27: begin
28: --
29: hr_utility.set_location('Entering:'|| l_proc, 10);
30: --
31: -- Issue a savepoint
32: --
33: savepoint per_merge_vendor;
40: set vendor_site_id=p_vendor_site_id
41: where vendor_site_id=p_dup_vendor_site_id;
42:
43: p_return_status := FND_API.G_RET_STS_SUCCESS;
44: hr_utility.set_location('Leaving:'|| l_proc, 20);
45:
46: exception when others then
47: rollback to per_merge_vendor;
48: FND_MSG_PUB.count_and_get(p_count => p_msg_count,
47: rollback to per_merge_vendor;
48: FND_MSG_PUB.count_and_get(p_count => p_msg_count,
49: p_data => p_msg_data);
50: p_return_status := FND_API.G_RET_STS_ERROR;
51: hr_utility.set_location('Leaving:'|| l_proc, 30);
52:
53:
54: end merge_vendor;
55: