PACKAGE BODY: APPS.ECX_VENDORMERGE_GRP

Source

1 package body ECX_VENDORMERGE_GRP as
2 /* $Header: ECXPVMRB.pls 120.2 2006/09/25 23:11:50 sbastida noship $ */
3 
4 procedure merge_vendor (
5     p_api_version		 IN	       NUMBER,
6     p_init_msg_list 	 IN	       VARCHAR2 default FND_API.G_FALSE,
7     p_commit		 IN	       VARCHAR2 default FND_API.G_FALSE,
8     p_validation_level	 IN	       NUMBER	default FND_API.G_VALID_LEVEL_FULL,
9     p_return_status 	 OUT  NOCOPY   VARCHAR2,
10     p_msg_count		 OUT  NOCOPY   NUMBER,
11     p_msg_data		 OUT  NOCOPY   VARCHAR2,
12     p_vendor_id		 IN	       NUMBER,
13     p_dup_vendor_id 	 IN	       NUMBER,
14     p_vendor_site_id	 IN	       NUMBER,
15     p_dup_vendor_site_id	 IN	       NUMBER,
16     p_party_id		 IN	       NUMBER,
17     P_dup_party_id		 IN	       NUMBER,
18     p_party_site_id 	 IN	       NUMBER,
19     p_dup_party_site_id	 IN	       NUMBER
20 ) is
21 begin
22 
23     p_return_status := FND_API.G_RET_STS_SUCCESS;
24 
25     -- check if parent didn't change
26     if (p_dup_party_id = p_party_id and p_dup_party_site_id = p_party_site_id) then
27        return;
28     end if;
29 
30     -- update ECX_TP_HEADERS for the merge
31 
32     UPDATE ECX_TP_HEADERS
33     set party_id = p_party_id,
34         party_site_id = p_party_site_id,
35         last_updated_by = hz_utility_pub.user_id,
36         last_update_login = hz_utility_pub.last_update_login
37     where party_id = p_dup_party_id
38       and party_site_id = p_dup_party_site_id;
39 
40     -- update ECX_DOCLOGS for the merge
41 
42     UPDATE ECX_DOCLOGS
43     set partyid = to_char(p_party_id),
44         party_site_id = to_char(p_party_site_id)
45     where partyid = to_char(p_dup_party_id)
46       and party_site_id = to_char(p_dup_party_site_id);
47 
48     -- update ECX_OUTBOUND_LOGS for the merge
49 
50     UPDATE ECX_OUTBOUND_LOGS
51     set party_id = to_char(p_party_id),
52         party_site_id = to_char(p_party_site_id)
53     where party_id = to_char(p_dup_party_id)
54       and party_site_id = to_char(p_dup_party_site_id);
55 
56     -- update ECX_OUTTRIG_LOGS for the merge
57 
58 /*  BUG:5553250
59     UPDATE ECX_OUTTRIG_LOGS
60     set party_id = to_char(p_party_id),
61         party_site_id = to_char(p_party_site_id)
62     where party_id = to_char(p_dup_party_id)
63       and party_site_id = to_char(p_dup_party_site_id);*/
64 
65 exception
66    when others then
67      p_msg_count := nvl(p_msg_count,0) + 1;
68      p_msg_data :=  'SQLCODE: '|| SQLCODE ||' SQLERRM: '|| SQLERRM ||'*';
69      p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70 
71 end merge_vendor;
72 
73 end;