[Home] [Help]
PACKAGE BODY: APPS.OZF_VENDORMERGE_GRP
Source
1 PACKAGE BODY OZF_VENDORMERGE_GRP AS
2 /* $Header: ozfvmrgb.pls 120.3 2005/09/12 06:15:31 sshivali noship $ */
3 G_PKG_NAME CONSTANT VARCHAR2(30):='OZF_VENDORMERGE_GRP';
4
5 -----------------------------------------------------------------------
6 -- PROCEDURE
7 -- Merge_Vendor
8 --
9 -- HISTORY
10 -- 07/30/2001 sshivali Created.
11 -----------------------------------------------------------------------
12 PROCEDURE Merge_Vendor
13 ( p_api_version IN NUMBER
14 ,p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE
15 ,p_commit IN VARCHAR2 default FND_API.G_FALSE
16 ,p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL
17 ,p_return_status OUT NOCOPY VARCHAR2
18 ,p_msg_count OUT NOCOPY NUMBER
19 ,p_msg_data OUT NOCOPY VARCHAR2
20 ,p_vendor_id IN NUMBER
21 ,p_dup_vendor_id IN NUMBER
22 ,p_vendor_site_id IN NUMBER
23 ,p_dup_vendor_site_id IN NUMBER
24 ,p_party_id IN NUMBER
25 ,p_dup_party_id IN NUMBER
26 ,p_party_site_id IN NUMBER
27 ,p_dup_party_site_id IN NUMBER
28 )
29 IS
30 l_api_name CONSTANT VARCHAR2(30) := 'MERGE_VENDOR';
31 l_api_version CONSTANT NUMBER := 1.0;
32 l_row_count NUMBER;
33 BEGIN
34 p_return_status := FND_API.G_RET_STS_SUCCESS;
35
36 IF NOT FND_API.Compatible_API_Call ( l_api_version,
37 p_api_version,
38 l_api_name,
39 G_PKG_NAME)
40 THEN
41 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
42 END IF;
43
44 -- Initialize API message list if necessary.
45 -- Initialize message list if p_init_msg_list is set to TRUE.
46 IF FND_API.to_Boolean( p_init_msg_list) THEN
47 FND_MSG_PUB.initialize;
48 END IF;
49
50 UPDATE OZF_CLAIMS_ALL
51 SET vendor_id = p_vendor_id,
52 vendor_site_id = p_vendor_site_id,
53 last_update_date = hz_utility_pub.last_update_date,
54 last_updated_by = hz_utility_pub.user_id,
55 last_update_login = hz_utility_pub.last_update_login,
56 program_application_id = hz_utility_pub.program_application_id,
57 program_id = hz_utility_pub.program_id,
58 program_update_date = sysdate
59 WHERE vendor_id = p_dup_vendor_id
60 AND vendor_site_id = p_dup_vendor_site_id;
61
62 -- Prepare message name
63 FND_MESSAGE.SET_NAME('OZF','OZF_VENDOR_MERGE');
64 IF SQL%FOUND THEN
65 p_return_status := FND_API.G_RET_STS_SUCCESS;
66 l_row_count := SQL%ROWCOUNT;
67 ELSE
68 l_row_count := 0;
69 END IF;
70
71 FND_MESSAGE.SET_TOKEN('ROWS_UPDATED',l_row_count);
72 FND_MESSAGE.SET_TOKEN('TABLE_NAME','OZF_CLAIMS_ALL');
73 -- Add message to API message list.
74 FND_MSG_PUB.Add;
75
76 -- Get message count and if 1, return message data.
77 FND_MSG_PUB.Count_And_Get
78 ( p_count => p_msg_count,
79 p_data => p_msg_data
80 );
81
82 IF p_dup_vendor_id <> p_vendor_id THEN
83 UPDATE OZF_CLAIMS_HISTORY_ALL
84 SET vendor_id = p_vendor_id,
85 vendor_site_id = p_vendor_site_id,
86 last_update_date = hz_utility_pub.last_update_date,
87 last_updated_by = hz_utility_pub.user_id,
88 last_update_login = hz_utility_pub.last_update_login,
89 program_application_id = hz_utility_pub.program_application_id,
90 program_id = hz_utility_pub.program_id,
91 program_update_date = sysdate
92 WHERE vendor_id = p_dup_vendor_id
93 AND vendor_site_id = p_dup_vendor_site_id;
94
95 -- Prepare message name
96 FND_MESSAGE.SET_NAME('OZF','OZF_VENDOR_MERGE');
97 IF SQL%FOUND THEN
98 p_return_status := FND_API.G_RET_STS_SUCCESS;
99 l_row_count := SQL%ROWCOUNT;
100 ELSE
101 l_row_count := 0;
102 END IF;
103
104 FND_MESSAGE.SET_TOKEN('ROWS_UPDATED',l_row_count);
105 FND_MESSAGE.SET_TOKEN('TABLE_NAME','OZF_CLAIMS_HISTORY_ALL');
106 -- Add message to API message list.
107 FND_MSG_PUB.Add;
108
109 -- Get message count and if 1, return message data.
110 FND_MSG_PUB.Count_And_Get
111 ( p_count => p_msg_count,
112 p_data => p_msg_data
113 );
114
115 UPDATE OZF_CLAIMS_INT_ALL
116 SET vendor_id = p_vendor_id,
117 vendor_site_id = p_vendor_site_id,
118 last_update_date = hz_utility_pub.last_update_date,
119 last_updated_by = hz_utility_pub.user_id,
120 last_update_login = hz_utility_pub.last_update_login,
121 program_application_id = hz_utility_pub.program_application_id,
122 program_id = hz_utility_pub.program_id,
123 program_update_date = sysdate
124 WHERE vendor_id = p_dup_vendor_id
125 AND vendor_site_id = p_dup_vendor_site_id;
126
127 -- Prepare message name
128 FND_MESSAGE.SET_NAME('OZF','OZF_VENDOR_MERGE');
129 IF SQL%FOUND THEN
130 p_return_status := FND_API.G_RET_STS_SUCCESS;
131 l_row_count := SQL%ROWCOUNT;
132 ELSE
133 l_row_count := 0;
134 END IF;
135
136 FND_MESSAGE.SET_TOKEN('ROWS_UPDATED',l_row_count);
137 FND_MESSAGE.SET_TOKEN('TABLE_NAME','OZF_CLAIMS_INT_ALL');
138 -- Add message to API message list.
139 FND_MSG_PUB.Add;
140
141 -- Get message count and if 1, return message data.
142 FND_MSG_PUB.Count_And_Get
143 ( p_count => p_msg_count,
144 p_data => p_msg_data
145 );
146
147 UPDATE OZF_CUST_TRD_PRFLS_ALL
148 SET vendor_id = p_vendor_id,
149 vendor_site_id = p_vendor_site_id,
150 last_update_date = hz_utility_pub.last_update_date,
151 last_updated_by = hz_utility_pub.user_id,
152 last_update_login = hz_utility_pub.last_update_login,
153 program_application_id = hz_utility_pub.program_application_id,
154 program_id = hz_utility_pub.program_id,
155 program_update_date = sysdate
156 WHERE vendor_id = p_dup_vendor_id
157 AND vendor_site_id = p_dup_vendor_site_id;
158
159 -- Prepare message name
160 FND_MESSAGE.SET_NAME('OZF','OZF_VENDOR_MERGE');
161 IF SQL%FOUND THEN
162 p_return_status := FND_API.G_RET_STS_SUCCESS;
163 l_row_count := SQL%ROWCOUNT;
164 ELSE
165 l_row_count := 0;
166 END IF;
167
168 FND_MESSAGE.SET_TOKEN('ROWS_UPDATED',l_row_count);
169 FND_MESSAGE.SET_TOKEN('TABLE_NAME','OZF_CUST_TRD_PRFLS_ALL');
170 -- Add message to API message list.
171 FND_MSG_PUB.Add;
172
173 -- Get message count and if 1, return message data.
174 FND_MSG_PUB.Count_And_Get
175 ( p_count => p_msg_count,
176 p_data => p_msg_data
177 );
178
179 END IF;
180
181 EXCEPTION
182 WHEN OTHERS THEN
183 ROLLBACK ;
184 p_return_status := FND_API.G_RET_STS_ERROR;
185 FND_MSG_PUB.Count_And_Get
186 ( p_count => p_msg_count,
187 p_data => p_msg_data
188 );
189
190 END Merge_Vendor;
191
192 END OZF_VENDORMERGE_GRP;