[Home] [Help]
PACKAGE BODY: APPS.PER_VENDORMERGE_GRP
Source
1 PACKAGE BODY per_vendormerge_grp AS
2 /* $Header: pevndmrg.pkb 120.0 2006/03/31 05:28:15 bshukla noship $ */
3 -- Package Variables
4 --
5 g_package varchar2(33) := ' PER_VENDORMERGE_GRP.';
6 -- -- --------------------------------------------------------------------- *
7 -- Name : merge_vendor
8 -- --------------------------------------------------------------------- *
9 procedure merge_vendor
10 (p_api_version IN NUMBER
11 ,p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE
12 ,p_commit IN VARCHAR2 default FND_API.G_FALSE
13 ,p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL
14 ,p_return_status OUT NOCOPY VARCHAR2
15 ,p_msg_count OUT NOCOPY NUMBER
16 ,p_msg_data OUT NOCOPY VARCHAR2
17 ,p_vendor_id IN NUMBER
18 ,p_dup_vendor_id IN NUMBER
19 ,p_vendor_site_id IN NUMBER
20 ,p_dup_vendor_site_id IN NUMBER
21 ,p_party_id IN NUMBER
22 ,P_dup_party_id IN NUMBER
23 ,p_party_site_id IN NUMBER
24 ,p_dup_party_site_id IN NUMBER
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;
34
35 update per_all_assignments_f
36 set vendor_id=p_vendor_id
37 where vendor_id=p_dup_vendor_id;
38
39 update per_all_assignments_f
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,
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
56 --
57 END per_vendormerge_grp;