1 PACKAGE BODY irc_vendormerge_grp AS
2 /* $Header: irvndmrg.pkb 120.1 2006/04/12 05:36:56 gganesan noship $ */
3 -- Package Variables
4 --
5 g_package varchar2(33) := ' IRC_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 irc_merge_vendor;
34
35 update irc_agency_vacancies
36 set agency_id=p_vendor_id
37 where agency_id=p_dup_vendor_id;
38
39 update irc_notification_preferences
40 set agency_id=p_vendor_id
41 where agency_id=p_dup_vendor_id;
42
43 update fnd_profile_option_values
44 set profile_option_value=to_char(p_vendor_id)
45 where profile_option_value=to_char(p_dup_vendor_id)
46 and profile_option_id=(select profile_option_id
47 from fnd_profile_options
48 where profile_option_name='IRC_AGENCY_NAME');
49
50 p_return_status := FND_API.G_RET_STS_SUCCESS;
51 hr_utility.set_location('Leaving:'|| l_proc, 20);
52
53 exception when others then
54 rollback to irc_merge_vendor;
55 FND_MSG_PUB.count_and_get(p_count => p_msg_count,
56 p_data => p_msg_data);
57 p_return_status := FND_API.G_RET_STS_ERROR;
58 hr_utility.set_location('Leaving:'|| l_proc, 30);
59
60
61 end merge_vendor;
62
63 --
64 END irc_vendormerge_grp;
|
|
|