1 PACKAGE BODY OZF_PARTY_MERGE_PVT AS
2 /* $Header: ozfvprmb.pls 120.2 2006/07/07 00:44:44 mkothari ship $ */
3 -----------------------------------------------------------------------
4 G_PKG_NAME CONSTANT VARCHAR2(30):='OZF_PARTY_MERGE_PVT';
5
6
7 FUNCTION check_party_exists(p_party_id IN number)
8 RETURN varchar2
9 IS
10 l_trade_profile_id number;
11 l_return_flag varchar2(30);
12
13 CURSOR get_party_data(p_party_id in number) IS
14 select trade_profile_id
15 from ozf_cust_trd_prfls_all
16 where party_id = p_party_id
17 and cust_account_id is null;
18
19 BEGIN
20 OPEN get_party_data(p_party_id);
21 FETCH get_party_data INTO l_trade_profile_id;
22 CLOSE get_party_data;
23
24 IF l_trade_profile_id is null THEN
25 l_return_flag := 'FALSE';
26 ELSE
27 l_return_flag := 'TRUE';
28 END IF;
29
30 RETURN l_return_flag;
31
32 END check_party_exists;
33
34 -----------------------------------------------------------------------
35 -- PROCEDURE
36 -- Trade_Profile_Party_Merge
37 --
38 -- HISTORY
39 -- 07/30/2001 mgudivak Created.
40 -----------------------------------------------------------------------
41 PROCEDURE Trade_Profile_Party_Merge
42 ( p_entity_name IN VARCHAR2
43 ,p_from_id IN NUMBER
44 ,p_to_id IN OUT NOCOPY NUMBER
45 ,p_from_fk_id IN NUMBER
46 ,p_to_fk_id IN NUMBER
47 ,p_parent_entity_name IN VARCHAR2
48 ,p_batch_id IN NUMBER
49 ,p_batch_party_id IN NUMBER
50 ,x_return_status IN OUT NOCOPY VARCHAR2
51 ) is
52 l_api_name CONSTANT VARCHAR2(30) := 'Trade_Profile_Party_Merge';
53 l_api_version_number CONSTANT NUMBER := 1.0;
54 l_merge_reason_code VARCHAR2(30);
55
56 l_to_party_exists varchar2(20);
57 BEGIN
58
59 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.TRADE_PROFILE_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
60
61 x_return_status := FND_API.G_RET_STS_SUCCESS;
62
63 select merge_reason_code into l_merge_reason_code
64 from HZ_MERGE_BATCH
65 where batch_id = p_batch_id;
66
67 -- ***************************************************************************
68 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
69 -- needs to be done. Set Merged To Id is same as Merged From Id and return
70 -- ***************************************************************************
71 if p_from_fk_id = p_to_fk_id then
72 p_to_id := p_from_id;
73 return;
74 end if;
75
76
77 IF p_from_fk_id <> p_to_fk_id THEN
78 BEGIN
79 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
80
81 l_to_party_exists := check_party_exists(p_to_fk_id);
82
83 IF l_to_party_exists = 'FALSE' THEN
84 -- update the from party profile to to_party
85 UPDATE OZF_CUST_TRD_PRFLS_ALL
86 SET party_id = p_to_fk_id,
87 last_update_date = hz_utility_pub.last_update_date,
88 last_updated_by = hz_utility_pub.user_id,
89 last_update_login = hz_utility_pub.last_update_login,
90 program_application_id = hz_utility_pub.program_application_id,
91 program_id = hz_utility_pub.program_id,
92 program_update_date = sysdate
93 where party_id = p_from_fk_id;
94 ELSIF l_to_party_exists = 'TRUE' THEN
95 -- delete the from party profile since to_party profile exists
96 DELETE FROM OZF_CUST_TRD_PRFLS_ALL
97 WHERE party_id = p_from_fk_id
98 AND cust_account_id is null;
99 END IF;
100
101 END IF;
102 EXCEPTION
103 WHEN OTHERS THEN
104 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
105 x_return_status := FND_API.G_RET_STS_ERROR;
106 raise;
107 END;
108 END IF;
109
110 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.TRADE_PROFILE_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
111
112 END Trade_Profile_Party_Merge;
113
114 -----------------------------------------------------------------------
115 -- PROCEDURE
116 -- Claim_Broker_Merge
117 --
118 -- HISTORY
119 -- 07/30/2001 mgudivak Created.
120 -----------------------------------------------------------------------
121 PROCEDURE Claim_Broker_Merge
122 ( p_entity_name IN VARCHAR2
123 ,p_from_id IN NUMBER
124 ,p_to_id IN OUT NOCOPY NUMBER
125 ,p_from_fk_id IN NUMBER
126 ,p_to_fk_id IN NUMBER
127 ,p_parent_entity_name IN VARCHAR2
128 ,p_batch_id IN NUMBER
129 ,p_batch_party_id IN NUMBER
130 ,x_return_status IN OUT NOCOPY VARCHAR2
131 ) is
132 l_api_name CONSTANT VARCHAR2(30) := 'Claim_Broker_Merge';
133 l_api_version_number CONSTANT NUMBER := 1.0;
134 l_merge_reason_code VARCHAR2(30);
135
136 BEGIN
137
138 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_BROKER_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
139
140 x_return_status := FND_API.G_RET_STS_SUCCESS;
141
142 select merge_reason_code into l_merge_reason_code
143 from HZ_MERGE_BATCH
144 where batch_id = p_batch_id;
145
146 -- ***************************************************************************
147 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
148 -- needs to be done. Set Merged To Id is same as Merged From Id and return
149 -- ***************************************************************************
150 if p_from_fk_id = p_to_fk_id then
151 p_to_id := p_from_id;
152 return;
153 end if;
154
155
156 IF p_from_fk_id <> p_to_fk_id THEN
157 BEGIN
158 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
159
160 UPDATE OZF_CLAIMS_ALL
161 SET broker_id = p_to_fk_id,
162 last_update_date = hz_utility_pub.last_update_date,
163 last_updated_by = hz_utility_pub.user_id,
164 last_update_login = hz_utility_pub.last_update_login,
165 program_application_id = hz_utility_pub.program_application_id,
166 program_id = hz_utility_pub.program_id,
167 program_update_date = sysdate
168 where broker_id = p_from_fk_id;
169
170 END IF;
171 EXCEPTION
172 WHEN OTHERS THEN
173 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
174 x_return_status := FND_API.G_RET_STS_ERROR;
175 raise;
176 END;
177 END IF;
178
179 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_BROKER_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
180
181 END Claim_Broker_Merge;
182
183 -----------------------------------------------------------------------
184 -- PROCEDURE
185 -- Claim_Contact_Merge
186 --
187 -- HISTORY
188 -- 07/30/2001 mgudivak Created.
189 -----------------------------------------------------------------------
190 PROCEDURE Claim_Contact_Merge
191 ( p_entity_name IN VARCHAR2
192 ,p_from_id IN NUMBER
193 ,p_to_id IN OUT NOCOPY NUMBER
194 ,p_from_fk_id IN NUMBER
195 ,p_to_fk_id IN NUMBER
196 ,p_parent_entity_name IN VARCHAR2
197 ,p_batch_id IN NUMBER
198 ,p_batch_party_id IN NUMBER
199 ,x_return_status IN OUT NOCOPY VARCHAR2
200 ) is
201 l_api_name CONSTANT VARCHAR2(30) := 'Claim_Contact_Merge';
202 l_api_version_number CONSTANT NUMBER := 1.0;
203 l_merge_reason_code VARCHAR2(30);
204
205 BEGIN
206
207 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_CONTACT_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
208
209 x_return_status := FND_API.G_RET_STS_SUCCESS;
210
211 select merge_reason_code into l_merge_reason_code
212 from HZ_MERGE_BATCH
213 where batch_id = p_batch_id;
214
215 -- ***************************************************************************
216 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
217 -- needs to be done. Set Merged To Id is same as Merged From Id and return
218 -- ***************************************************************************
219 if p_from_fk_id = p_to_fk_id then
220 p_to_id := p_from_id;
221 return;
222 end if;
223
224
225 IF p_from_fk_id <> p_to_fk_id THEN
226 BEGIN
227 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
228
229 UPDATE OZF_CLAIMS_ALL
230 SET contact_id = p_to_fk_id,
231 last_update_date = hz_utility_pub.last_update_date,
232 last_updated_by = hz_utility_pub.user_id,
233 last_update_login = hz_utility_pub.last_update_login,
234 program_application_id = hz_utility_pub.program_application_id,
235 program_id = hz_utility_pub.program_id,
236 program_update_date = sysdate
237 where contact_id = p_from_fk_id;
238
239 END IF;
240 EXCEPTION
241 WHEN OTHERS THEN
242 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
243 x_return_status := FND_API.G_RET_STS_ERROR;
244 raise;
245 END;
246 END IF;
247
248 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_CONTACT_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
249
250 END Claim_Contact_Merge;
251
252
253 -----------------------------------------------------------------------
254 -- PROCEDURE
255 -- Claim_History_Broker_Merge
256 --
257 -- HISTORY
258 -- 07/30/2001 mgudivak Created.
259 -----------------------------------------------------------------------
260 PROCEDURE Claim_History_Broker_Merge
261 ( p_entity_name IN VARCHAR2
262 ,p_from_id IN NUMBER
263 ,p_to_id IN OUT NOCOPY NUMBER
264 ,p_from_fk_id IN NUMBER
265 ,p_to_fk_id IN NUMBER
266 ,p_parent_entity_name IN VARCHAR2
267 ,p_batch_id IN NUMBER
268 ,p_batch_party_id IN NUMBER
269 ,x_return_status IN OUT NOCOPY VARCHAR2
270 ) is
271 l_api_name CONSTANT VARCHAR2(30) := 'Claim_History_Broker_Merge';
272 l_api_version_number CONSTANT NUMBER := 1.0;
273 l_merge_reason_code VARCHAR2(30);
274
275 BEGIN
276
277 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_HISTORY_BROKER_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
278
279 x_return_status := FND_API.G_RET_STS_SUCCESS;
280
281 select merge_reason_code into l_merge_reason_code
282 from HZ_MERGE_BATCH
283 where batch_id = p_batch_id;
284
285 -- ***************************************************************************
286 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
287 -- needs to be done. Set Merged To Id is same as Merged From Id and return
288 -- ***************************************************************************
289 if p_from_fk_id = p_to_fk_id then
290 p_to_id := p_from_id;
291 return;
292 end if;
293
294
295 IF p_from_fk_id <> p_to_fk_id THEN
296 BEGIN
297 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
298
299 UPDATE OZF_CLAIMS_HISTORY_ALL
300 SET broker_id = p_to_fk_id,
301 last_update_date = hz_utility_pub.last_update_date,
302 last_updated_by = hz_utility_pub.user_id,
303 last_update_login = hz_utility_pub.last_update_login,
304 program_application_id = hz_utility_pub.program_application_id,
305 program_id = hz_utility_pub.program_id,
306 program_update_date = sysdate
307 where broker_id = p_from_fk_id;
308
309 END IF;
310 EXCEPTION
311 WHEN OTHERS THEN
312 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
313 x_return_status := FND_API.G_RET_STS_ERROR;
314 raise;
315 END;
316 END IF;
317
318 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_HISTORY_BROKER_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
319
320 END Claim_History_Broker_Merge;
321
322
323 -----------------------------------------------------------------------
324 -- PROCEDURE
325 -- Claim_History_Contact_Merge
326 --
327 -- HISTORY
328 -- 07/30/2001 mgudivak Created.
329 -----------------------------------------------------------------------
330 PROCEDURE Claim_History_Contact_Merge
331 ( p_entity_name IN VARCHAR2
332 ,p_from_id IN NUMBER
333 ,p_to_id IN OUT NOCOPY NUMBER
334 ,p_from_fk_id IN NUMBER
335 ,p_to_fk_id IN NUMBER
336 ,p_parent_entity_name IN VARCHAR2
337 ,p_batch_id IN NUMBER
338 ,p_batch_party_id IN NUMBER
339 ,x_return_status IN OUT NOCOPY VARCHAR2
340 ) is
341 l_api_name CONSTANT VARCHAR2(30) := 'Claim_History_Contact_Merge';
342 l_api_version_number CONSTANT NUMBER := 1.0;
343 l_merge_reason_code VARCHAR2(30);
344
345 BEGIN
346
347 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_HISTORY_CONTACT_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
348
349 x_return_status := FND_API.G_RET_STS_SUCCESS;
350
351 select merge_reason_code into l_merge_reason_code
352 from HZ_MERGE_BATCH
353 where batch_id = p_batch_id;
354
355 -- ***************************************************************************
356 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
357 -- needs to be done. Set Merged To Id is same as Merged From Id and return
358 -- ***************************************************************************
359 if p_from_fk_id = p_to_fk_id then
360 p_to_id := p_from_id;
361 return;
362 end if;
363
364
365 IF p_from_fk_id <> p_to_fk_id THEN
366 BEGIN
367 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
368
369 UPDATE OZF_CLAIMS_HISTORY_ALL
370 SET contact_id = p_to_fk_id,
371 last_update_date = hz_utility_pub.last_update_date,
372 last_updated_by = hz_utility_pub.user_id,
373 last_update_login = hz_utility_pub.last_update_login,
374 program_application_id = hz_utility_pub.program_application_id,
375 program_id = hz_utility_pub.program_id,
376 program_update_date = sysdate
377 where contact_id = p_from_fk_id;
378
379 END IF;
380 EXCEPTION
381 WHEN OTHERS THEN
382 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
383 x_return_status := FND_API.G_RET_STS_ERROR;
384 raise;
385 END;
386 END IF;
387
391
388 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_HISTORY_CONTACT_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
389
390 END Claim_History_Contact_Merge;
392 -----------------------------------------------------------------------
393 -- PROCEDURE
394 -- Budget_Party_Merge
395 --
396 -- HISTORY
397 -- 07/30/2001 mgudivak Created.
398 -----------------------------------------------------------------------
399 PROCEDURE Budget_Party_Merge
400 ( p_entity_name IN VARCHAR2
401 ,p_from_id IN NUMBER
402 ,p_to_id IN OUT NOCOPY NUMBER
403 ,p_from_fk_id IN NUMBER
404 ,p_to_fk_id IN NUMBER
405 ,p_parent_entity_name IN VARCHAR2
406 ,p_batch_id IN NUMBER
407 ,p_batch_party_id IN NUMBER
408 ,x_return_status IN OUT NOCOPY VARCHAR2
409 ) is
410 l_api_name CONSTANT VARCHAR2(30) := 'Budget_Party_Merge';
411 l_api_version_number CONSTANT NUMBER := 1.0;
412 l_merge_reason_code VARCHAR2(30);
413
414 BEGIN
415
416 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.BUDGET_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
417
418 x_return_status := FND_API.G_RET_STS_SUCCESS;
419
420 select merge_reason_code into l_merge_reason_code
421 from HZ_MERGE_BATCH
422 where batch_id = p_batch_id;
423
424 -- ***************************************************************************
425 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
426 -- needs to be done. Set Merged To Id is same as Merged From Id and return
427 -- ***************************************************************************
428 if p_from_fk_id = p_to_fk_id then
429 p_to_id := p_from_id;
430 return;
431 end if;
432
433
434 IF p_from_fk_id <> p_to_fk_id THEN
435 BEGIN
436 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
437
438 UPDATE OZF_ACT_BUDGETS
439 SET budget_source_id = p_to_fk_id,
440 last_update_date = hz_utility_pub.last_update_date,
441 last_updated_by = hz_utility_pub.user_id,
442 last_update_login = hz_utility_pub.last_update_login
443 -- ,program_application_id = hz_utility_pub.program_application_id,
444 -- program_id = hz_utility_pub.program_id,
445 -- program_update_date = sysdate
446 where budget_source_id = p_from_fk_id
447 and budget_source_type = 'PTNR' ;
448
449 END IF;
450 EXCEPTION
451 WHEN OTHERS THEN
452 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
453 x_return_status := FND_API.G_RET_STS_ERROR;
454 raise;
455 END;
456 END IF;
457
458 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.BUDGET_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
459
460 END Budget_Party_Merge;
461
462 -----------------------------------------------------------------------
463 -- PROCEDURE
464 -- Budget_Vendor_Merge
465 --
466 -- HISTORY
467 -- 07/30/2001 mgudivak Created.
468 -----------------------------------------------------------------------
469 PROCEDURE Budget_Vendor_Merge
470 ( p_entity_name IN VARCHAR2
471 ,p_from_id IN NUMBER
472 ,p_to_id IN OUT NOCOPY NUMBER
473 ,p_from_fk_id IN NUMBER
474 ,p_to_fk_id IN NUMBER
475 ,p_parent_entity_name IN VARCHAR2
476 ,p_batch_id IN NUMBER
477 ,p_batch_party_id IN NUMBER
478 ,x_return_status IN OUT NOCOPY VARCHAR2
479 ) is
480 l_api_name CONSTANT VARCHAR2(30) := 'Budget_Vendor_Merge';
481 l_api_version_number CONSTANT NUMBER := 1.0;
482 l_merge_reason_code VARCHAR2(30);
483
484 BEGIN
485
486 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.BUDGET_VENDOR_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
487
488 x_return_status := FND_API.G_RET_STS_SUCCESS;
489
490 select merge_reason_code into l_merge_reason_code
491 from HZ_MERGE_BATCH
492 where batch_id = p_batch_id;
493
494 -- ***************************************************************************
495 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
496 -- needs to be done. Set Merged To Id is same as Merged From Id and return
497 -- ***************************************************************************
498 if p_from_fk_id = p_to_fk_id then
499 p_to_id := p_from_id;
500 return;
501 end if;
502
503
504 IF p_from_fk_id <> p_to_fk_id THEN
505 BEGIN
506 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
507
508 UPDATE OZF_ACT_BUDGETS
509 SET vendor_id = p_to_fk_id,
510 last_update_date = hz_utility_pub.last_update_date,
511 last_updated_by = hz_utility_pub.user_id,
512 last_update_login = hz_utility_pub.last_update_login
516 where vendor_id = p_from_fk_id;
513 -- ,program_application_id = hz_utility_pub.program_application_id,
514 -- program_id = hz_utility_pub.program_id,
515 -- program_update_date = sysdate
517
518 END IF;
519 EXCEPTION
520 WHEN OTHERS THEN
521 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
522 x_return_status := FND_API.G_RET_STS_ERROR;
523 raise;
524 END;
525 END IF;
526
527 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.BUDGET_VENDOR_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
528
529 END Budget_Vendor_Merge;
530
531 PROCEDURE Offer_Buy_Group_Party_Merge
532 ( p_entity_name IN VARCHAR2
533 ,p_from_id IN NUMBER
534 ,p_to_id IN OUT NOCOPY NUMBER
535 ,p_from_fk_id IN NUMBER
536 ,p_to_fk_id IN NUMBER
537 ,p_parent_entity_name IN VARCHAR2
538 ,p_batch_id IN NUMBER
539 ,p_batch_party_id IN NUMBER
540 ,x_return_status IN OUT NOCOPY VARCHAR2
541 ) is
542 l_api_name CONSTANT VARCHAR2(30) := 'Offer_Buy_Group_Party_Merge';
543 l_api_version_number CONSTANT NUMBER := 1.0;
544 l_merge_reason_code VARCHAR2(30);
545
546 BEGIN
547
548 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.OFFER_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
549
550 x_return_status := FND_API.G_RET_STS_SUCCESS;
551
552 select merge_reason_code into l_merge_reason_code
553 from HZ_MERGE_BATCH
554 where batch_id = p_batch_id;
555
556 -- ***************************************************************************
557 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
558 -- needs to be done. Set Merged To Id is same as Merged From Id and return
559 -- ***************************************************************************
560 if p_from_fk_id = p_to_fk_id then
561 p_to_id := p_from_id;
562 return;
563 end if;
564
565
566 IF p_from_fk_id <> p_to_fk_id THEN
567 BEGIN
568 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
569
570 UPDATE OZF_OFFERS
571 SET BUYING_GROUP_CONTACT_ID = p_to_fk_id,
572 last_update_date = hz_utility_pub.last_update_date,
573 last_updated_by = hz_utility_pub.user_id,
574 last_update_login = hz_utility_pub.last_update_login
575 where BUYING_GROUP_CONTACT_ID = p_from_fk_id;
576
577 END IF;
578 EXCEPTION
579 WHEN OTHERS THEN
580 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
581 x_return_status := FND_API.G_RET_STS_ERROR;
582 raise;
583 END;
584 END IF;
585
586 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.OFFER_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
587
588 END Offer_Buy_Group_Party_Merge;
589
590
591
592
593 -----------------------------------------------------------------------
594 -- PROCEDURE
595 -- Offer_Denorm_Party_Merge
596 --
597 -- HISTORY
598 -- 14-APR-2003 julou Created.
599 -----------------------------------------------------------------------
600 PROCEDURE Offer_Denorm_Party_Merge
601 ( p_entity_name IN VARCHAR2
602 ,p_from_id IN NUMBER
603 ,p_to_id IN OUT NOCOPY NUMBER
604 ,p_from_fk_id IN NUMBER
605 ,p_to_fk_id IN NUMBER
606 ,p_parent_entity_name IN VARCHAR2
607 ,p_batch_id IN NUMBER
608 ,p_batch_party_id IN NUMBER
609 ,x_return_status IN OUT NOCOPY VARCHAR2
610 ) IS
611 l_api_name CONSTANT VARCHAR2(30) := 'Offer_Denorm_Party_Merge';
612 l_api_version_number CONSTANT NUMBER := 1.0;
613 l_merge_reason_code VARCHAR2(30);
614 /*
615 CURSOR c_object_id IS
616 SELECT object_id
617 FROM ozf_activity_customers
618 WHERE party_id = p_from_fk_id;
619
620 CURSOR c_is_duplicate(l_list_header_id NUMBER, l_party_id NUMBER) IS
621 SELECT 'Y'
622 FROM OZF_offer_parties
623 WHERE qp_list_header_id = l_list_header_id
624 AND party_id = l_party_id;
625
626 l_is_duplicate VARCHAR2(10);
627 */
628 BEGIN
629
630 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.OFFER_DENORM_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
631
632 x_return_status := FND_API.G_RET_STS_SUCCESS;
633
634 SELECT merge_reason_code INTO l_merge_reason_code
635 FROM HZ_MERGE_BATCH
636 WHERE batch_id = p_batch_id;
637
638 IF l_merge_reason_code = 'DUPLICATE' THEN
639 -- ***************************************************************************
640 -- if reason code is duplicate then allow the party merge to happen without
641 -- any validations.
642 -- ***************************************************************************
643 null;
644 ELSE
648 null;
645 -- ***************************************************************************
646 -- if there are any validations to be done, include it in this section
647 -- ***************************************************************************
649 END IF;
650
651 -- ***************************************************************************
652 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
653 -- needs to be done. Set Merged To Id is same as Merged From Id and return
654 -- ***************************************************************************
655 if p_from_fk_id = p_to_fk_id then
656 p_to_id := p_from_id;
657 return;
658 end if;
659
660 -- ***************************************************************************
661 -- If the parent has changed(ie. Parent is getting merged) then transfer the
662 -- dependent record to the new parent. Before transferring check if a similar
663 -- dependent record exists on the new parent. If a duplicate exists then do
664 -- not transfer and return the id of the duplicate record as the Merged To Id
665 -- ***************************************************************************
666
667 -- ***************************************************************************
668 -- Add your own logic if you need to take care of the following cases
669 -- Check the if record duplicate if change party_id from merge-from
670 -- to merge-to id. E.g. : in AS_ACCESSES_ALL, if you have the following
671 -- situation
672 --
673 -- customer_id address_id contact_id
674 -- =========== ========== ==========
675 -- 1200 1100
676 -- 1300 1400
677 --
678 -- if p_from_fk_id = 1200, p_to_fk_id = 1300 for customer_id
679 -- p_from_fk_id = 1100, p_to_fk_id = 1400 for address_id
680 -- therefore, if changing 1200 to 1300 (customer_id)
681 -- and 1100 to 1400 (address_id), then it will cause unique
682 -- key violation assume that all other fields are the same
683 -- So, please check if you need to check for record duplication
684 -- ***************************************************************************
685
686 IF p_from_fk_id <> p_to_fk_id THEN
687 BEGIN
688 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
689 /* FOR l_object_id IN c_object_id LOOP
690 l_is_duplicate := NULL;
691
692 OPEN c_is_duplicate(l_list_header_id.qp_list_header_id, p_to_fk_id);
693 FETCH c_is_duplicate INTO l_is_duplicate;
694 CLOSE c_is_duplicate;
695
696 IF l_is_duplicate = 'Y' THEN
697 DELETE FROM OZF_offer_parties
698 WHERE qp_list_header_id = l_list_header_id.qp_list_header_id
699 AND party_id = p_from_fk_id;
700 ELSE*/
701 UPDATE ozf_activity_customers
702 SET party_id = p_to_fk_id
703 ,last_update_date = hz_utility_pub.last_update_date
704 ,last_updated_by = hz_utility_pub.user_id
705 ,last_update_login = hz_utility_pub.last_update_login
706 WHERE party_id = p_from_fk_id;
707 -- END IF;
708
709 -- END LOOP;
710 END IF;
711 EXCEPTION
712 WHEN OTHERS THEN
713 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
714 x_return_status := FND_API.G_RET_STS_ERROR;
715 raise;
716 END;
717 END IF;
718
719 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.OFFER_DENORM_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
720
721 END Offer_Denorm_Party_Merge;
722
723
724 -----------------------------------------------------------------------
725 -- PROCEDURE
726 -- Claim_Line_Party_Merge
727 --
728 -- HISTORY
729 -- 04/23/2004 samaresh Created.
730 -----------------------------------------------------------------------
731 PROCEDURE Claim_Line_Party_Merge
732 ( p_entity_name IN VARCHAR2
733 ,p_from_id IN NUMBER
734 ,p_to_id IN OUT NOCOPY NUMBER
735 ,p_from_fk_id IN NUMBER
736 ,p_to_fk_id IN NUMBER
737 ,p_parent_entity_name IN VARCHAR2
738 ,p_batch_id IN NUMBER
739 ,p_batch_party_id IN NUMBER
740 ,x_return_status IN OUT NOCOPY VARCHAR2
741 ) is
742 l_api_name CONSTANT VARCHAR2(30) := 'Claim_Line_Party_Merge';
743 l_api_version_number CONSTANT NUMBER := 1.0;
744 l_merge_reason_code VARCHAR2(30);
745
746 BEGIN
747
748 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_LINE_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
749
750 x_return_status := FND_API.G_RET_STS_SUCCESS;
751
752 select merge_reason_code into l_merge_reason_code
753 from HZ_MERGE_BATCH
754 where batch_id = p_batch_id;
755
756 -- ***************************************************************************
757 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
758 -- needs to be done. Set Merged To Id is same as Merged From Id and return
759 -- ***************************************************************************
763 end if;
760 if p_from_fk_id = p_to_fk_id then
761 p_to_id := p_from_id;
762 return;
764
765
766 IF p_from_fk_id <> p_to_fk_id THEN
767 BEGIN
768 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
769
770 UPDATE OZF_CLAIM_LINES_ALL
771 SET buy_group_party_id = p_to_fk_id,
772 last_update_date = hz_utility_pub.last_update_date,
773 last_updated_by = hz_utility_pub.user_id,
774 last_update_login = hz_utility_pub.last_update_login,
775 program_application_id = hz_utility_pub.program_application_id,
776 program_id = hz_utility_pub.program_id,
777 program_update_date = sysdate
778 where buy_group_party_id = p_from_fk_id;
779
780 END IF;
781 EXCEPTION
782 WHEN OTHERS THEN
783 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
784 x_return_status := FND_API.G_RET_STS_ERROR;
785 raise;
786 END;
787 END IF;
788
789 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_LINE_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
790
791 END Claim_Line_Party_Merge;
792
793 -----------------------------------------------------------------------
794 -- PROCEDURE
795 -- Claim_Line_Hist_Party_Merge
796 --
797 -- HISTORY
798 -- 04/23/2004 samaresh Created.
799 -----------------------------------------------------------------------
800 PROCEDURE Claim_Line_Hist_Party_Merge
801 ( p_entity_name IN VARCHAR2
802 ,p_from_id IN NUMBER
803 ,p_to_id IN OUT NOCOPY NUMBER
804 ,p_from_fk_id IN NUMBER
805 ,p_to_fk_id IN NUMBER
806 ,p_parent_entity_name IN VARCHAR2
807 ,p_batch_id IN NUMBER
808 ,p_batch_party_id IN NUMBER
809 ,x_return_status IN OUT NOCOPY VARCHAR2
810 ) IS
811 l_api_name CONSTANT VARCHAR2(30) := 'Claim_Line_Hist_Party_Merge';
812 l_api_version_number CONSTANT NUMBER := 1.0;
813 l_merge_reason_code VARCHAR2(30);
814
815 BEGIN
816
817 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_LINE_HIST_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
818
819 x_return_status := FND_API.G_RET_STS_SUCCESS;
820
821 SELECT merge_reason_code INTO l_merge_reason_code
822 FROM HZ_MERGE_BATCH
823 WHERE batch_id = p_batch_id;
824
825 -- ***************************************************************************
826 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
827 -- needs to be done. Set Merged To Id is same as Merged From Id and return
828 -- ***************************************************************************
829 if p_from_fk_id = p_to_fk_id then
830 p_to_id := p_from_id;
831 return;
832 end if;
833
834
835 IF p_from_fk_id <> p_to_fk_id THEN
836 BEGIN
837 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
838
839 UPDATE OZF_CLAIM_LINES_HIST_ALL
840 SET buy_group_party_id = p_to_fk_id,
841 last_update_date = hz_utility_pub.last_update_date,
842 last_updated_by = hz_utility_pub.user_id,
843 last_update_login = hz_utility_pub.last_update_login,
844 program_application_id = hz_utility_pub.program_application_id,
845 program_id = hz_utility_pub.program_id,
846 program_update_date = sysdate
847 where buy_group_party_id = p_from_fk_id;
848
849 END IF;
850 EXCEPTION
851 WHEN OTHERS THEN
852 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
853 x_return_status := FND_API.G_RET_STS_ERROR;
854 raise;
855 END;
856 END IF;
857
858 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CLAIM_LINE_HIST_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
859
860 END Claim_Line_Hist_Party_Merge;
861
862 -----------------------------------------------------------------------
863 -- PROCEDURE
864 -- Claim_Line_Hist_Party_Merge
865 --
866 -- HISTORY
867 -- 04/23/2004 samaresh Created.
868 -----------------------------------------------------------------------
869 PROCEDURE Code_Conversion_Party_Merge
870 ( p_entity_name IN VARCHAR2
871 ,p_from_id IN NUMBER
872 ,p_to_id IN OUT NOCOPY NUMBER
873 ,p_from_fk_id IN NUMBER
874 ,p_to_fk_id IN NUMBER
875 ,p_parent_entity_name IN VARCHAR2
876 ,p_batch_id IN NUMBER
877 ,p_batch_party_id IN NUMBER
878 ,x_return_status IN OUT NOCOPY VARCHAR2
879 ) IS
880 l_api_name CONSTANT VARCHAR2(30) := 'Code_Conversion_Party_Merge';
881 l_api_version_number CONSTANT NUMBER := 1.0;
882 l_merge_reason_code VARCHAR2(30);
883
884 BEGIN
885
886 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CODE_CONVERSION_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
887
888 x_return_status := FND_API.G_RET_STS_SUCCESS;
889
890 SELECT merge_reason_code INTO l_merge_reason_code
891 FROM HZ_MERGE_BATCH
895 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
892 WHERE batch_id = p_batch_id;
893
894 -- ***************************************************************************
896 -- needs to be done. Set Merged To Id is same as Merged From Id and return
897 -- ***************************************************************************
898 if p_from_fk_id = p_to_fk_id then
899 p_to_id := p_from_id;
900 return;
901 end if;
902
903 IF p_from_fk_id <> p_to_fk_id THEN
904 BEGIN
905 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
906
907 UPDATE ozf_code_conversions_all
908 SET party_id = p_to_fk_id,
909 last_update_date = hz_utility_pub.last_update_date,
910 last_updated_by = hz_utility_pub.user_id,
911 last_update_login = hz_utility_pub.last_update_login
912 where party_id = p_from_fk_id;
913
914 END IF;
915 EXCEPTION
916 WHEN OTHERS THEN
917 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
918 x_return_status := FND_API.G_RET_STS_ERROR;
919 raise;
920 END;
921 END IF;
922
923
924 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.CODE_CONVERSION_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
925
926 END Code_Conversion_Party_Merge;
927
928 -----------------------------------------------------------------------
929 -- PROCEDURE
930 -- Resale_Batch_Prtn_Merge
931 --
932 -- HISTORY
933 -- 04/23/2004 samaresh Created.
934 -----------------------------------------------------------------------
935 PROCEDURE Resale_Batch_Prtn_Merge
936 ( p_entity_name IN VARCHAR2
937 ,p_from_id IN NUMBER
938 ,p_to_id IN OUT NOCOPY NUMBER
939 ,p_from_fk_id IN NUMBER
940 ,p_to_fk_id IN NUMBER
941 ,p_parent_entity_name IN VARCHAR2
942 ,p_batch_id IN NUMBER
943 ,p_batch_party_id IN NUMBER
944 ,x_return_status IN OUT NOCOPY VARCHAR2
945 ) IS
946 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Batch_Prtn_Merge';
947 l_api_version_number CONSTANT NUMBER := 1.0;
948 l_merge_reason_code VARCHAR2(30);
949
950 BEGIN
951
952 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_BATCH_PRTN_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
953
954 x_return_status := FND_API.G_RET_STS_SUCCESS;
955
956 SELECT merge_reason_code INTO l_merge_reason_code
957 FROM HZ_MERGE_BATCH
958 WHERE batch_id = p_batch_id;
959
960 -- ***************************************************************************
961 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
962 -- needs to be done. Set Merged To Id is same as Merged From Id and return
963 -- ***************************************************************************
964 if p_from_fk_id = p_to_fk_id then
965 p_to_id := p_from_id;
966 return;
967 end if;
968
969 IF p_from_fk_id <> p_to_fk_id THEN
970 BEGIN
971 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
972
973 UPDATE ozf_resale_batches_all
974 SET partner_party_id = p_to_fk_id,
975 last_update_date = hz_utility_pub.last_update_date,
976 last_updated_by = hz_utility_pub.user_id,
977 last_update_login = hz_utility_pub.last_update_login,
978 program_application_id = hz_utility_pub.program_application_id,
979 program_id = hz_utility_pub.program_id,
980 program_update_date = sysdate
981 where partner_party_id = p_from_fk_id;
982
983 END IF;
984 EXCEPTION
985 WHEN OTHERS THEN
986 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
987 x_return_status := FND_API.G_RET_STS_ERROR;
988 raise;
989 END;
990 END IF;
991
992
993 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_BATCH_PRTN_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
994
995 END Resale_Batch_Prtn_Merge;
996
997 -----------------------------------------------------------------------
998 -- PROCEDURE
999 -- Resale_Batch_Prtn_Cnt_Merge
1000 --
1001 -- HISTORY
1002 -- 04/23/2004 samaresh Created.
1003 -----------------------------------------------------------------------
1004 PROCEDURE Resale_Batch_Prtn_Cnt_Merge
1005 ( p_entity_name IN VARCHAR2
1006 ,p_from_id IN NUMBER
1007 ,p_to_id IN OUT NOCOPY NUMBER
1008 ,p_from_fk_id IN NUMBER
1009 ,p_to_fk_id IN NUMBER
1010 ,p_parent_entity_name IN VARCHAR2
1011 ,p_batch_id IN NUMBER
1012 ,p_batch_party_id IN NUMBER
1013 ,x_return_status IN OUT NOCOPY VARCHAR2
1014 ) IS
1015 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Batch_Prtn_Cnt_Merge';
1016 l_api_version_number CONSTANT NUMBER := 1.0;
1017 l_merge_reason_code VARCHAR2(30);
1018
1019 BEGIN
1020
1024
1021 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_BATCH_PRTN_CNT_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1022
1023 x_return_status := FND_API.G_RET_STS_SUCCESS;
1025 SELECT merge_reason_code INTO l_merge_reason_code
1026 FROM HZ_MERGE_BATCH
1027 WHERE batch_id = p_batch_id;
1028
1029 -- ***************************************************************************
1030 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1031 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1032 -- ***************************************************************************
1033 if p_from_fk_id = p_to_fk_id then
1034 p_to_id := p_from_id;
1035 return;
1036 end if;
1037
1038 IF p_from_fk_id <> p_to_fk_id THEN
1039 BEGIN
1040 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1041
1042 UPDATE ozf_resale_batches_all
1043 SET partner_contact_party_id = p_to_fk_id,
1044 last_update_date = hz_utility_pub.last_update_date,
1045 last_updated_by = hz_utility_pub.user_id,
1046 last_update_login = hz_utility_pub.last_update_login,
1047 program_application_id = hz_utility_pub.program_application_id,
1048 program_id = hz_utility_pub.program_id,
1049 program_update_date = sysdate
1050 where partner_contact_party_id = p_from_fk_id;
1051
1052 END IF;
1053 EXCEPTION
1054 WHEN OTHERS THEN
1055 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1056 x_return_status := FND_API.G_RET_STS_ERROR;
1057 raise;
1058 END;
1059 END IF;
1060
1061
1062 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_BATCH_PRTN_CNT_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1063
1064 END Resale_Batch_Prtn_Cnt_Merge;
1065
1066 -----------------------------------------------------------------------
1067 -- PROCEDURE
1068 -- Resale_Int_Ship_Frm_Cnt_Mge
1069 --
1070 -- HISTORY
1071 -- 04/23/2004 samaresh Created.
1072 -----------------------------------------------------------------------
1073 PROCEDURE Resale_Int_Ship_Frm_Cnt_Mge
1074 ( p_entity_name IN VARCHAR2
1075 ,p_from_id IN NUMBER
1076 ,p_to_id IN OUT NOCOPY NUMBER
1077 ,p_from_fk_id IN NUMBER
1078 ,p_to_fk_id IN NUMBER
1079 ,p_parent_entity_name IN VARCHAR2
1080 ,p_batch_id IN NUMBER
1081 ,p_batch_party_id IN NUMBER
1082 ,x_return_status IN OUT NOCOPY VARCHAR2
1083 ) IS
1084 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Int_Ship_Frm_Cnt_Mge';
1085 l_api_version_number CONSTANT NUMBER := 1.0;
1086 l_merge_reason_code VARCHAR2(30);
1087
1088 BEGIN
1089
1090 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_SHIP_FRM_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1091
1092 x_return_status := FND_API.G_RET_STS_SUCCESS;
1093
1094 SELECT merge_reason_code INTO l_merge_reason_code
1095 FROM HZ_MERGE_BATCH
1096 WHERE batch_id = p_batch_id;
1097
1098 -- ***************************************************************************
1099 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1100 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1101 -- ***************************************************************************
1102 if p_from_fk_id = p_to_fk_id then
1103 p_to_id := p_from_id;
1104 return;
1105 end if;
1106
1107 IF p_from_fk_id <> p_to_fk_id THEN
1108 BEGIN
1109 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1110
1111 UPDATE ozf_resale_lines_int_all
1112 SET ship_from_contact_party_id = p_to_fk_id,
1113 last_update_date = hz_utility_pub.last_update_date,
1114 last_updated_by = hz_utility_pub.user_id,
1115 last_update_login = hz_utility_pub.last_update_login,
1116 program_application_id = hz_utility_pub.program_application_id,
1117 program_id = hz_utility_pub.program_id,
1118 program_update_date = sysdate
1119 where ship_from_contact_party_id = p_from_fk_id;
1120
1121 END IF;
1122 EXCEPTION
1123 WHEN OTHERS THEN
1124 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1125 x_return_status := FND_API.G_RET_STS_ERROR;
1126 raise;
1127 END;
1128 END IF;
1129
1130
1131 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_SHIP_FRM_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1132
1133 END Resale_Int_Ship_Frm_Cnt_Mge;
1134
1135 -----------------------------------------------------------------------
1136 -- PROCEDURE
1137 -- Resale_Int_Sold_Frm_Cnt_Mge
1138 --
1139 -- HISTORY
1140 -- 04/23/2004 samaresh Created.
1141 -----------------------------------------------------------------------
1142 PROCEDURE Resale_Int_Sold_Frm_Cnt_Mge
1143 ( p_entity_name IN VARCHAR2
1144 ,p_from_id IN NUMBER
1145 ,p_to_id IN OUT NOCOPY NUMBER
1149 ,p_batch_id IN NUMBER
1146 ,p_from_fk_id IN NUMBER
1147 ,p_to_fk_id IN NUMBER
1148 ,p_parent_entity_name IN VARCHAR2
1150 ,p_batch_party_id IN NUMBER
1151 ,x_return_status IN OUT NOCOPY VARCHAR2
1152 ) IS
1153 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Int_Sold_Frm_Cnt_Mge';
1154 l_api_version_number CONSTANT NUMBER := 1.0;
1155 l_merge_reason_code VARCHAR2(30);
1156
1157 BEGIN
1158
1159 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_SOLD_FRM_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1160
1161 x_return_status := FND_API.G_RET_STS_SUCCESS;
1162
1163 SELECT merge_reason_code INTO l_merge_reason_code
1164 FROM HZ_MERGE_BATCH
1165 WHERE batch_id = p_batch_id;
1166
1167 -- ***************************************************************************
1168 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1169 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1170 -- ***************************************************************************
1171 if p_from_fk_id = p_to_fk_id then
1172 p_to_id := p_from_id;
1173 return;
1174 end if;
1175
1176 IF p_from_fk_id <> p_to_fk_id THEN
1177 BEGIN
1178 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1179
1180 UPDATE ozf_resale_lines_int_all
1181 SET sold_from_contact_party_id = p_to_fk_id,
1182 last_update_date = hz_utility_pub.last_update_date,
1183 last_updated_by = hz_utility_pub.user_id,
1184 last_update_login = hz_utility_pub.last_update_login,
1185 program_application_id = hz_utility_pub.program_application_id,
1186 program_id = hz_utility_pub.program_id,
1187 program_update_date = sysdate
1188 where sold_from_contact_party_id = p_from_fk_id;
1189
1190 END IF;
1191 EXCEPTION
1192 WHEN OTHERS THEN
1193 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1194 x_return_status := FND_API.G_RET_STS_ERROR;
1195 raise;
1196 END;
1197 END IF;
1198
1199
1200 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_SOLD_FRM_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1201
1202 END Resale_Int_Sold_Frm_Cnt_Mge;
1203
1204
1205 -----------------------------------------------------------------------
1206 -- PROCEDURE
1207 -- Resale_Int_Bill_To_Merge
1208 --
1209 -- HISTORY
1210 -- 04/23/2004 samaresh Created.
1211 -----------------------------------------------------------------------
1212 PROCEDURE Resale_Int_Bill_To_Merge
1213 ( p_entity_name IN VARCHAR2
1214 ,p_from_id IN NUMBER
1215 ,p_to_id IN OUT NOCOPY NUMBER
1216 ,p_from_fk_id IN NUMBER
1217 ,p_to_fk_id IN NUMBER
1218 ,p_parent_entity_name IN VARCHAR2
1219 ,p_batch_id IN NUMBER
1220 ,p_batch_party_id IN NUMBER
1221 ,x_return_status IN OUT NOCOPY VARCHAR2
1222 ) IS
1223 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Int_Bill_To_Merge';
1224 l_api_version_number CONSTANT NUMBER := 1.0;
1225 l_merge_reason_code VARCHAR2(30);
1226
1227 BEGIN
1228
1229 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_BILL_TO_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1230
1231 x_return_status := FND_API.G_RET_STS_SUCCESS;
1232
1233 SELECT merge_reason_code INTO l_merge_reason_code
1234 FROM HZ_MERGE_BATCH
1235 WHERE batch_id = p_batch_id;
1236
1237 -- ***************************************************************************
1238 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1239 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1240 -- ***************************************************************************
1241 if p_from_fk_id = p_to_fk_id then
1242 p_to_id := p_from_id;
1243 return;
1244 end if;
1245
1246 IF p_from_fk_id <> p_to_fk_id THEN
1247 BEGIN
1248 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1249
1250 UPDATE ozf_resale_lines_int_all
1251 SET bill_to_party_id = p_to_fk_id,
1252 last_update_date = hz_utility_pub.last_update_date,
1253 last_updated_by = hz_utility_pub.user_id,
1254 last_update_login = hz_utility_pub.last_update_login,
1255 program_application_id = hz_utility_pub.program_application_id,
1256 program_id = hz_utility_pub.program_id,
1257 program_update_date = sysdate
1258 where bill_to_party_id = p_from_fk_id;
1259
1260 END IF;
1261 EXCEPTION
1262 WHEN OTHERS THEN
1263 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1264 x_return_status := FND_API.G_RET_STS_ERROR;
1265 raise;
1266 END;
1267 END IF;
1268
1269
1273
1270 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_BILL_TO_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1271
1272 END Resale_Int_Bill_To_Merge;
1274
1275 -----------------------------------------------------------------------
1276 -- PROCEDURE
1277 -- Resale_Int_Bill_To_Cnt_Mge
1278 --
1279 -- HISTORY
1280 -- 04/23/2004 samaresh Created.
1281 -----------------------------------------------------------------------
1282 PROCEDURE Resale_Int_Bill_To_Cnt_Mge
1283 ( p_entity_name IN VARCHAR2
1284 ,p_from_id IN NUMBER
1285 ,p_to_id IN OUT NOCOPY NUMBER
1286 ,p_from_fk_id IN NUMBER
1287 ,p_to_fk_id IN NUMBER
1288 ,p_parent_entity_name IN VARCHAR2
1289 ,p_batch_id IN NUMBER
1290 ,p_batch_party_id IN NUMBER
1291 ,x_return_status IN OUT NOCOPY VARCHAR2
1292 ) IS
1293 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Int_Bill_To_Cnt_Mge';
1294 l_api_version_number CONSTANT NUMBER := 1.0;
1295 l_merge_reason_code VARCHAR2(30);
1296
1297 BEGIN
1298
1299 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_BILL_TO_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1300
1301 x_return_status := FND_API.G_RET_STS_SUCCESS;
1302
1303 SELECT merge_reason_code INTO l_merge_reason_code
1304 FROM HZ_MERGE_BATCH
1305 WHERE batch_id = p_batch_id;
1306
1307 -- ***************************************************************************
1308 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1309 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1310 -- ***************************************************************************
1311 if p_from_fk_id = p_to_fk_id then
1312 p_to_id := p_from_id;
1313 return;
1314 end if;
1315
1316 IF p_from_fk_id <> p_to_fk_id THEN
1317 BEGIN
1318 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1319
1320 UPDATE ozf_resale_lines_int_all
1321 SET bill_to_contact_party_id = p_to_fk_id,
1322 last_update_date = hz_utility_pub.last_update_date,
1323 last_updated_by = hz_utility_pub.user_id,
1324 last_update_login = hz_utility_pub.last_update_login,
1325 program_application_id = hz_utility_pub.program_application_id,
1326 program_id = hz_utility_pub.program_id,
1327 program_update_date = sysdate
1328 where bill_to_contact_party_id = p_from_fk_id;
1329
1330 END IF;
1331 EXCEPTION
1332 WHEN OTHERS THEN
1333 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1334 x_return_status := FND_API.G_RET_STS_ERROR;
1335 raise;
1336 END;
1337 END IF;
1338
1339
1340 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_BILL_TO_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1341
1342 END Resale_Int_Bill_To_Cnt_Mge;
1343
1344 -----------------------------------------------------------------------
1345 -- PROCEDURE
1346 -- Resale_Int_Ship_To_Merge
1347 --
1348 -- HISTORY
1349 -- 07/18/2005 slkrishn Created.
1350 -----------------------------------------------------------------------
1351 PROCEDURE Resale_Int_Ship_To_Merge
1352 ( p_entity_name IN VARCHAR2
1353 ,p_from_id IN NUMBER
1354 ,p_to_id IN OUT NOCOPY NUMBER
1355 ,p_from_fk_id IN NUMBER
1356 ,p_to_fk_id IN NUMBER
1357 ,p_parent_entity_name IN VARCHAR2
1358 ,p_batch_id IN NUMBER
1359 ,p_batch_party_id IN NUMBER
1360 ,x_return_status IN OUT NOCOPY VARCHAR2
1361 ) IS
1362 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Int_Ship_To_Merge';
1363 l_api_version_number CONSTANT NUMBER := 1.0;
1364 l_merge_reason_code VARCHAR2(30);
1365
1366 BEGIN
1367
1368 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_SHIP_TO_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1369
1370 x_return_status := FND_API.G_RET_STS_SUCCESS;
1371
1372 SELECT merge_reason_code INTO l_merge_reason_code
1373 FROM HZ_MERGE_BATCH
1374 WHERE batch_id = p_batch_id;
1375
1376 -- ***************************************************************************
1377 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1378 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1379 -- ***************************************************************************
1380 if p_from_fk_id = p_to_fk_id then
1381 p_to_id := p_from_id;
1382 return;
1383 end if;
1384
1385 IF p_from_fk_id <> p_to_fk_id THEN
1386 BEGIN
1387 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1388
1389 UPDATE ozf_resale_lines_int_all
1390 SET ship_to_party_id = p_to_fk_id,
1391 last_update_date = hz_utility_pub.last_update_date,
1392 last_updated_by = hz_utility_pub.user_id,
1393 last_update_login = hz_utility_pub.last_update_login,
1394 program_application_id = hz_utility_pub.program_application_id,
1398
1395 program_id = hz_utility_pub.program_id,
1396 program_update_date = sysdate
1397 where ship_to_party_id = p_from_fk_id;
1399 END IF;
1400 EXCEPTION
1401 WHEN OTHERS THEN
1402 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1403 x_return_status := FND_API.G_RET_STS_ERROR;
1404 raise;
1405 END;
1406 END IF;
1407
1408
1409 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_SHIP_TO_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1410
1411 END Resale_Int_Ship_To_Merge;
1412
1413
1414 -----------------------------------------------------------------------
1415 -- PROCEDURE
1416 -- Resale_Int_Ship_To_Cnt_Mge
1417 --
1418 -- HISTORY
1419 -- 04/23/2004 samaresh Created.
1420 -----------------------------------------------------------------------
1421 PROCEDURE Resale_Int_Ship_To_Cnt_Mge
1422 ( p_entity_name IN VARCHAR2
1423 ,p_from_id IN NUMBER
1424 ,p_to_id IN OUT NOCOPY NUMBER
1425 ,p_from_fk_id IN NUMBER
1426 ,p_to_fk_id IN NUMBER
1427 ,p_parent_entity_name IN VARCHAR2
1428 ,p_batch_id IN NUMBER
1429 ,p_batch_party_id IN NUMBER
1430 ,x_return_status IN OUT NOCOPY VARCHAR2
1431 ) IS
1432 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Int_Ship_To_Cnt_Mge';
1433 l_api_version_number CONSTANT NUMBER := 1.0;
1434 l_merge_reason_code VARCHAR2(30);
1435
1436 BEGIN
1437
1438 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_BILL_TO_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1439
1440 x_return_status := FND_API.G_RET_STS_SUCCESS;
1441
1442 SELECT merge_reason_code INTO l_merge_reason_code
1443 FROM HZ_MERGE_BATCH
1444 WHERE batch_id = p_batch_id;
1445
1446 -- ***************************************************************************
1447 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1448 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1449 -- ***************************************************************************
1450 if p_from_fk_id = p_to_fk_id then
1451 p_to_id := p_from_id;
1452 return;
1453 end if;
1454
1455 IF p_from_fk_id <> p_to_fk_id THEN
1456 BEGIN
1457 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1458
1459 UPDATE ozf_resale_lines_int_all
1460 SET ship_to_contact_party_id = p_to_fk_id,
1461 last_update_date = hz_utility_pub.last_update_date,
1462 last_updated_by = hz_utility_pub.user_id,
1463 last_update_login = hz_utility_pub.last_update_login,
1464 program_application_id = hz_utility_pub.program_application_id,
1465 program_id = hz_utility_pub.program_id,
1466 program_update_date = sysdate
1467 where ship_to_contact_party_id = p_from_fk_id;
1468
1469 END IF;
1470 EXCEPTION
1471 WHEN OTHERS THEN
1472 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1473 x_return_status := FND_API.G_RET_STS_ERROR;
1474 raise;
1475 END;
1476 END IF;
1477
1478
1479 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_SHIP_TO_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1480
1481 END Resale_Int_Ship_To_Cnt_Mge;
1482
1483 -----------------------------------------------------------------------
1484 -- PROCEDURE
1485 -- Resale_Int_End_Cust_Merge
1486 --
1487 -- HISTORY
1488 -- 04/23/2004 samaresh Created.
1489 -----------------------------------------------------------------------
1490 PROCEDURE Resale_Int_End_Cust_Merge
1491 ( p_entity_name IN VARCHAR2
1492 ,p_from_id IN NUMBER
1493 ,p_to_id IN OUT NOCOPY NUMBER
1494 ,p_from_fk_id IN NUMBER
1495 ,p_to_fk_id IN NUMBER
1496 ,p_parent_entity_name IN VARCHAR2
1497 ,p_batch_id IN NUMBER
1498 ,p_batch_party_id IN NUMBER
1499 ,x_return_status IN OUT NOCOPY VARCHAR2
1500 ) IS
1501 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Int_End_Cust_Merge';
1502 l_api_version_number CONSTANT NUMBER := 1.0;
1503 l_merge_reason_code VARCHAR2(30);
1504
1505 BEGIN
1506
1507 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_BILL_TO_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1508
1509 x_return_status := FND_API.G_RET_STS_SUCCESS;
1510
1511 SELECT merge_reason_code INTO l_merge_reason_code
1512 FROM HZ_MERGE_BATCH
1513 WHERE batch_id = p_batch_id;
1514
1515 -- ***************************************************************************
1516 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1517 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1518 -- ***************************************************************************
1519 if p_from_fk_id = p_to_fk_id then
1520 p_to_id := p_from_id;
1521 return;
1525 BEGIN
1522 end if;
1523
1524 IF p_from_fk_id <> p_to_fk_id THEN
1526 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1527
1528 UPDATE ozf_resale_lines_int_all
1529 SET end_cust_party_id = p_to_fk_id,
1530 last_update_date = hz_utility_pub.last_update_date,
1531 last_updated_by = hz_utility_pub.user_id,
1532 last_update_login = hz_utility_pub.last_update_login,
1533 program_application_id = hz_utility_pub.program_application_id,
1534 program_id = hz_utility_pub.program_id,
1535 program_update_date = sysdate
1536 where end_cust_party_id = p_from_fk_id;
1537
1538 END IF;
1539 EXCEPTION
1540 WHEN OTHERS THEN
1541 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1542 x_return_status := FND_API.G_RET_STS_ERROR;
1543 raise;
1544 END;
1545 END IF;
1546
1547
1548 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_END_CUST_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1549
1550 END Resale_Int_End_Cust_Merge;
1551
1552 -----------------------------------------------------------------------
1553 -- PROCEDURE
1554 -- Resale_Int_End_Cust_Cnt_Mge
1555 --
1556 -- HISTORY
1557 -- 04/23/2004 samaresh Created.
1558 -----------------------------------------------------------------------
1559 PROCEDURE Resale_Int_End_Cust_Cnt_Mge
1560 ( p_entity_name IN VARCHAR2
1561 ,p_from_id IN NUMBER
1562 ,p_to_id IN OUT NOCOPY NUMBER
1563 ,p_from_fk_id IN NUMBER
1564 ,p_to_fk_id IN NUMBER
1565 ,p_parent_entity_name IN VARCHAR2
1566 ,p_batch_id IN NUMBER
1567 ,p_batch_party_id IN NUMBER
1568 ,x_return_status IN OUT NOCOPY VARCHAR2
1569 ) IS
1570 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Int_End_Cust_Cnt_Mge';
1571 l_api_version_number CONSTANT NUMBER := 1.0;
1572 l_merge_reason_code VARCHAR2(30);
1573
1574 BEGIN
1575
1576 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_BILL_TO_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1577
1578 x_return_status := FND_API.G_RET_STS_SUCCESS;
1579
1580 SELECT merge_reason_code INTO l_merge_reason_code
1581 FROM HZ_MERGE_BATCH
1582 WHERE batch_id = p_batch_id;
1583
1584 -- ***************************************************************************
1585 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1586 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1587 -- ***************************************************************************
1588 if p_from_fk_id = p_to_fk_id then
1589 p_to_id := p_from_id;
1590 return;
1591 end if;
1592
1593 IF p_from_fk_id <> p_to_fk_id THEN
1594 BEGIN
1595 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1596
1597 UPDATE ozf_resale_lines_int_all
1598 SET end_cust_contact_party_id = p_to_fk_id,
1599 last_update_date = hz_utility_pub.last_update_date,
1600 last_updated_by = hz_utility_pub.user_id,
1601 last_update_login = hz_utility_pub.last_update_login,
1602 program_application_id = hz_utility_pub.program_application_id,
1603 program_id = hz_utility_pub.program_id,
1604 program_update_date = sysdate
1605 where end_cust_contact_party_id = p_from_fk_id;
1606
1607 END IF;
1608 EXCEPTION
1609 WHEN OTHERS THEN
1610 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1611 x_return_status := FND_API.G_RET_STS_ERROR;
1612 raise;
1613 END;
1614 END IF;
1615
1616
1617 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_INT_END_CUST_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1618
1619 END Resale_Int_End_Cust_Cnt_Mge;
1620
1621 -----------------------------------------------------------------------
1622 -- PROCEDURE
1623 -- Resale_Int_Bill_To_Merge
1624 --
1625 -- HISTORY
1626 -- 04/23/2004 samaresh Created.
1627 -----------------------------------------------------------------------
1628 PROCEDURE Resale_Head_Bill_To_Merge
1629 ( p_entity_name IN VARCHAR2
1630 ,p_from_id IN NUMBER
1631 ,p_to_id IN OUT NOCOPY NUMBER
1632 ,p_from_fk_id IN NUMBER
1633 ,p_to_fk_id IN NUMBER
1634 ,p_parent_entity_name IN VARCHAR2
1635 ,p_batch_id IN NUMBER
1636 ,p_batch_party_id IN NUMBER
1637 ,x_return_status IN OUT NOCOPY VARCHAR2
1638 ) IS
1639 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Head_Bill_To_Merge';
1640 l_api_version_number CONSTANT NUMBER := 1.0;
1641 l_merge_reason_code VARCHAR2(30);
1642
1643 BEGIN
1644
1645 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_HEAD_BILL_TO_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1646
1647 x_return_status := FND_API.G_RET_STS_SUCCESS;
1648
1649 SELECT merge_reason_code INTO l_merge_reason_code
1650 FROM HZ_MERGE_BATCH
1651 WHERE batch_id = p_batch_id;
1652
1656 -- ***************************************************************************
1653 -- ***************************************************************************
1654 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1655 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1657 if p_from_fk_id = p_to_fk_id then
1658 p_to_id := p_from_id;
1659 return;
1660 end if;
1661
1662 IF p_from_fk_id <> p_to_fk_id THEN
1663 BEGIN
1664 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1665
1666 UPDATE ozf_resale_headers_all
1667 SET bill_to_party_id = p_to_fk_id,
1668 last_update_date = hz_utility_pub.last_update_date,
1669 last_updated_by = hz_utility_pub.user_id,
1670 last_update_login = hz_utility_pub.last_update_login,
1671 program_application_id = hz_utility_pub.program_application_id,
1672 program_id = hz_utility_pub.program_id,
1673 program_update_date = sysdate
1674 where bill_to_party_id = p_from_fk_id;
1675
1676 END IF;
1677 EXCEPTION
1678 WHEN OTHERS THEN
1679 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1680 x_return_status := FND_API.G_RET_STS_ERROR;
1681 raise;
1682 END;
1683 END IF;
1684
1685
1686 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_HEAD_BILL_TO_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1687
1688 END Resale_Head_Bill_To_Merge;
1689
1690 -----------------------------------------------------------------------
1691 -- PROCEDURE
1692 -- Resale_Head_Bill_To_Cnt_Mge
1693 --
1694 -- HISTORY
1695 -- 04/23/2004 samaresh Created.
1696 -----------------------------------------------------------------------
1697 PROCEDURE Resale_Head_Bill_To_Cnt_Mge
1698 ( p_entity_name IN VARCHAR2
1699 ,p_from_id IN NUMBER
1700 ,p_to_id IN OUT NOCOPY NUMBER
1701 ,p_from_fk_id IN NUMBER
1702 ,p_to_fk_id IN NUMBER
1703 ,p_parent_entity_name IN VARCHAR2
1704 ,p_batch_id IN NUMBER
1705 ,p_batch_party_id IN NUMBER
1706 ,x_return_status IN OUT NOCOPY VARCHAR2
1707 ) IS
1708 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Head_Bill_To_Cnt_Mge';
1709 l_api_version_number CONSTANT NUMBER := 1.0;
1710 l_merge_reason_code VARCHAR2(30);
1711
1712 BEGIN
1713
1714 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_HEAD_BILL_TO_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1715
1716 x_return_status := FND_API.G_RET_STS_SUCCESS;
1717
1718 SELECT merge_reason_code INTO l_merge_reason_code
1719 FROM HZ_MERGE_BATCH
1720 WHERE batch_id = p_batch_id;
1721
1722 -- ***************************************************************************
1723 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1724 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1725 -- ***************************************************************************
1726 if p_from_fk_id = p_to_fk_id then
1727 p_to_id := p_from_id;
1728 return;
1729 end if;
1730
1731 IF p_from_fk_id <> p_to_fk_id THEN
1732 BEGIN
1733 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1734
1735 UPDATE ozf_resale_headers_all
1736 SET bill_to_contact_party_id = p_to_fk_id,
1737 last_update_date = hz_utility_pub.last_update_date,
1738 last_updated_by = hz_utility_pub.user_id,
1739 last_update_login = hz_utility_pub.last_update_login,
1740 program_application_id = hz_utility_pub.program_application_id,
1741 program_id = hz_utility_pub.program_id,
1742 program_update_date = sysdate
1743 where bill_to_contact_party_id = p_from_fk_id;
1744
1745 END IF;
1746 EXCEPTION
1747 WHEN OTHERS THEN
1748 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1749 x_return_status := FND_API.G_RET_STS_ERROR;
1750 raise;
1751 END;
1752 END IF;
1753
1754
1755 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_HEAD_BILL_TO_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1756
1757 END Resale_Head_Bill_To_Cnt_Mge;
1758
1759 -----------------------------------------------------------------------
1760 -- PROCEDURE
1761 -- Resale_Head_Ship_To_Merge
1762 --
1763 -- HISTORY
1764 -- 04/23/2004 samaresh Created.
1765 -----------------------------------------------------------------------
1766 PROCEDURE Resale_Head_Ship_To_Merge
1767 ( p_entity_name IN VARCHAR2
1768 ,p_from_id IN NUMBER
1769 ,p_to_id IN OUT NOCOPY NUMBER
1770 ,p_from_fk_id IN NUMBER
1771 ,p_to_fk_id IN NUMBER
1772 ,p_parent_entity_name IN VARCHAR2
1773 ,p_batch_id IN NUMBER
1774 ,p_batch_party_id IN NUMBER
1775 ,x_return_status IN OUT NOCOPY VARCHAR2
1776 ) IS
1777 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Head_Ship_To_Merge';
1778 l_api_version_number CONSTANT NUMBER := 1.0;
1782
1779 l_merge_reason_code VARCHAR2(30);
1780
1781 BEGIN
1783 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_HEAD_SHIP_TO_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1784
1785 x_return_status := FND_API.G_RET_STS_SUCCESS;
1786
1787 SELECT merge_reason_code INTO l_merge_reason_code
1788 FROM HZ_MERGE_BATCH
1789 WHERE batch_id = p_batch_id;
1790
1791 -- ***************************************************************************
1792 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1793 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1794 -- ***************************************************************************
1795 if p_from_fk_id = p_to_fk_id then
1796 p_to_id := p_from_id;
1797 return;
1798 end if;
1799
1800 IF p_from_fk_id <> p_to_fk_id THEN
1801 BEGIN
1802 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1803
1804 UPDATE ozf_resale_headers_all
1805 SET ship_to_party_id = p_to_fk_id,
1806 last_update_date = hz_utility_pub.last_update_date,
1807 last_updated_by = hz_utility_pub.user_id,
1808 last_update_login = hz_utility_pub.last_update_login,
1809 program_application_id = hz_utility_pub.program_application_id,
1810 program_id = hz_utility_pub.program_id,
1811 program_update_date = sysdate
1812 where ship_to_party_id = p_from_fk_id;
1813
1814 END IF;
1815 EXCEPTION
1816 WHEN OTHERS THEN
1817 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1818 x_return_status := FND_API.G_RET_STS_ERROR;
1819 raise;
1820 END;
1821 END IF;
1822
1823
1824 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_HEAD_SHIP_TO_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1825
1826 END Resale_Head_Ship_To_Merge;
1827
1828 -----------------------------------------------------------------------
1829 -- PROCEDURE
1830 -- Resale_Head_Ship_To_Cnt_Mge
1831 --
1832 -- HISTORY
1833 -- 04/23/2004 samaresh Created.
1834 -----------------------------------------------------------------------
1835 PROCEDURE Resale_Head_Ship_To_Cnt_Mge
1836 ( p_entity_name IN VARCHAR2
1837 ,p_from_id IN NUMBER
1838 ,p_to_id IN OUT NOCOPY NUMBER
1839 ,p_from_fk_id IN NUMBER
1840 ,p_to_fk_id IN NUMBER
1841 ,p_parent_entity_name IN VARCHAR2
1842 ,p_batch_id IN NUMBER
1843 ,p_batch_party_id IN NUMBER
1844 ,x_return_status IN OUT NOCOPY VARCHAR2
1845 ) IS
1846 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Head_Ship_To_Cnt_Mge';
1847 l_api_version_number CONSTANT NUMBER := 1.0;
1848 l_merge_reason_code VARCHAR2(30);
1849
1850 BEGIN
1851
1852 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_HEAD_SHIP_TO_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1853
1854 x_return_status := FND_API.G_RET_STS_SUCCESS;
1855
1856 SELECT merge_reason_code INTO l_merge_reason_code
1857 FROM HZ_MERGE_BATCH
1858 WHERE batch_id = p_batch_id;
1859
1860 -- ***************************************************************************
1861 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1862 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1863 -- ***************************************************************************
1864 if p_from_fk_id = p_to_fk_id then
1865 p_to_id := p_from_id;
1866 return;
1867 end if;
1868
1869 IF p_from_fk_id <> p_to_fk_id THEN
1870 BEGIN
1871 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1872
1873 UPDATE ozf_resale_headers_all
1874 SET ship_to_contact_party_id = p_to_fk_id,
1875 last_update_date = hz_utility_pub.last_update_date,
1876 last_updated_by = hz_utility_pub.user_id,
1877 last_update_login = hz_utility_pub.last_update_login,
1878 program_application_id = hz_utility_pub.program_application_id,
1879 program_id = hz_utility_pub.program_id,
1880 program_update_date = sysdate
1881 where ship_to_contact_party_id = p_from_fk_id;
1882
1883 END IF;
1884 EXCEPTION
1885 WHEN OTHERS THEN
1886 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1887 x_return_status := FND_API.G_RET_STS_ERROR;
1888 raise;
1889 END;
1890 END IF;
1891
1892
1893 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_HEAD_SHIP_TO_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1894
1895 END Resale_Head_Ship_To_Cnt_Mge;
1896
1897 -----------------------------------------------------------------------
1898 -- PROCEDURE
1899 -- Resale_Line_Ship_Frm_Cnt_Mge
1900 --
1901 -- HISTORY
1902 -- 04/23/2004 samaresh Created.
1903 -----------------------------------------------------------------------
1904 PROCEDURE Resale_Line_Ship_Frm_Cnt_Mge
1905 ( p_entity_name IN VARCHAR2
1909 ,p_to_fk_id IN NUMBER
1906 ,p_from_id IN NUMBER
1907 ,p_to_id IN OUT NOCOPY NUMBER
1908 ,p_from_fk_id IN NUMBER
1910 ,p_parent_entity_name IN VARCHAR2
1911 ,p_batch_id IN NUMBER
1912 ,p_batch_party_id IN NUMBER
1913 ,x_return_status IN OUT NOCOPY VARCHAR2
1914 ) IS
1915 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Line_Ship_Frm_Cnt_Mge';
1916 l_api_version_number CONSTANT NUMBER := 1.0;
1917 l_merge_reason_code VARCHAR2(30);
1918
1919 BEGIN
1920
1921 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_SHIP_FRM_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1922
1923 x_return_status := FND_API.G_RET_STS_SUCCESS;
1924
1925 SELECT merge_reason_code INTO l_merge_reason_code
1926 FROM HZ_MERGE_BATCH
1927 WHERE batch_id = p_batch_id;
1928
1929 -- ***************************************************************************
1930 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
1931 -- needs to be done. Set Merged To Id is same as Merged From Id and return
1932 -- ***************************************************************************
1933 if p_from_fk_id = p_to_fk_id then
1934 p_to_id := p_from_id;
1935 return;
1936 end if;
1937
1938 IF p_from_fk_id <> p_to_fk_id THEN
1939 BEGIN
1940 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
1941
1942 UPDATE ozf_resale_lines_all
1943 SET ship_from_contact_party_id = p_to_fk_id,
1944 last_update_date = hz_utility_pub.last_update_date,
1945 last_updated_by = hz_utility_pub.user_id,
1946 last_update_login = hz_utility_pub.last_update_login,
1947 program_application_id = hz_utility_pub.program_application_id,
1948 program_id = hz_utility_pub.program_id,
1949 program_update_date = sysdate
1950 where ship_from_contact_party_id = p_from_fk_id;
1951
1952 END IF;
1953 EXCEPTION
1954 WHEN OTHERS THEN
1955 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
1956 x_return_status := FND_API.G_RET_STS_ERROR;
1957 raise;
1958 END;
1959 END IF;
1960
1961
1962 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_SHIP_FRM_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1963
1964 END Resale_Line_Ship_Frm_Cnt_Mge;
1965
1966 -----------------------------------------------------------------------
1967 -- PROCEDURE
1968 -- Resale_Line_Sold_Frm_Cnt_Mge
1969 --
1970 -- HISTORY
1971 -- 04/23/2004 samaresh Created.
1972 -----------------------------------------------------------------------
1973 PROCEDURE Resale_Line_Sold_Frm_Cnt_Mge
1974 ( p_entity_name IN VARCHAR2
1975 ,p_from_id IN NUMBER
1976 ,p_to_id IN OUT NOCOPY NUMBER
1977 ,p_from_fk_id IN NUMBER
1978 ,p_to_fk_id IN NUMBER
1979 ,p_parent_entity_name IN VARCHAR2
1980 ,p_batch_id IN NUMBER
1981 ,p_batch_party_id IN NUMBER
1982 ,x_return_status IN OUT NOCOPY VARCHAR2
1983 ) IS
1984 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Line_Sold_Frm_Cnt_Mge';
1985 l_api_version_number CONSTANT NUMBER := 1.0;
1986 l_merge_reason_code VARCHAR2(30);
1987
1988 BEGIN
1989
1990 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_SOLD_FRM_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
1991
1992 x_return_status := FND_API.G_RET_STS_SUCCESS;
1993
1994 SELECT merge_reason_code INTO l_merge_reason_code
1995 FROM HZ_MERGE_BATCH
1996 WHERE batch_id = p_batch_id;
1997
1998 -- ***************************************************************************
1999 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2000 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2001 -- ***************************************************************************
2002 if p_from_fk_id = p_to_fk_id then
2003 p_to_id := p_from_id;
2004 return;
2005 end if;
2006
2007 IF p_from_fk_id <> p_to_fk_id THEN
2008 BEGIN
2009 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2010
2011 UPDATE ozf_resale_lines_all
2012 SET sold_from_contact_party_id = p_to_fk_id,
2013 last_update_date = hz_utility_pub.last_update_date,
2014 last_updated_by = hz_utility_pub.user_id,
2015 last_update_login = hz_utility_pub.last_update_login,
2016 program_application_id = hz_utility_pub.program_application_id,
2017 program_id = hz_utility_pub.program_id,
2018 program_update_date = sysdate
2019 where sold_from_contact_party_id = p_from_fk_id;
2020
2021 END IF;
2022 EXCEPTION
2023 WHEN OTHERS THEN
2024 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2025 x_return_status := FND_API.G_RET_STS_ERROR;
2026 raise;
2027 END;
2028 END IF;
2029
2030
2034
2031 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_SOLD_FRM_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2032
2033 END Resale_Line_Sold_Frm_Cnt_Mge;
2035 -----------------------------------------------------------------------
2036 -- PROCEDURE
2037 -- Resale_Line_Bill_To_Merge
2038 --
2039 -- HISTORY
2040 -- 04/23/2004 samaresh Created.
2041 -----------------------------------------------------------------------
2042 PROCEDURE Resale_Line_Bill_To_Merge
2043 ( p_entity_name IN VARCHAR2
2044 ,p_from_id IN NUMBER
2045 ,p_to_id IN OUT NOCOPY NUMBER
2046 ,p_from_fk_id IN NUMBER
2047 ,p_to_fk_id IN NUMBER
2048 ,p_parent_entity_name IN VARCHAR2
2049 ,p_batch_id IN NUMBER
2050 ,p_batch_party_id IN NUMBER
2051 ,x_return_status IN OUT NOCOPY VARCHAR2
2052 ) IS
2053 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Line_Bill_To_Merge';
2054 l_api_version_number CONSTANT NUMBER := 1.0;
2055 l_merge_reason_code VARCHAR2(30);
2056
2057 BEGIN
2058
2059 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_BILL_TO_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2060
2061 x_return_status := FND_API.G_RET_STS_SUCCESS;
2062
2063 SELECT merge_reason_code INTO l_merge_reason_code
2064 FROM HZ_MERGE_BATCH
2065 WHERE batch_id = p_batch_id;
2066
2067 -- ***************************************************************************
2068 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2069 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2070 -- ***************************************************************************
2071 if p_from_fk_id = p_to_fk_id then
2072 p_to_id := p_from_id;
2073 return;
2074 end if;
2075
2076 IF p_from_fk_id <> p_to_fk_id THEN
2077 BEGIN
2078 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2079
2080 UPDATE ozf_resale_lines_all
2081 SET bill_to_party_id = p_to_fk_id,
2082 last_update_date = hz_utility_pub.last_update_date,
2083 last_updated_by = hz_utility_pub.user_id,
2084 last_update_login = hz_utility_pub.last_update_login,
2085 program_application_id = hz_utility_pub.program_application_id,
2086 program_id = hz_utility_pub.program_id,
2087 program_update_date = sysdate
2088 where bill_to_party_id = p_from_fk_id;
2089
2090 END IF;
2091 EXCEPTION
2092 WHEN OTHERS THEN
2093 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2094 x_return_status := FND_API.G_RET_STS_ERROR;
2095 raise;
2096 END;
2097 END IF;
2098
2099
2100 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_BILL_TO_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2101
2102 END Resale_Line_Bill_To_Merge;
2103
2104
2105 -----------------------------------------------------------------------
2106 -- PROCEDURE
2107 -- Resale_Line_Bill_To_Cnt_Mge
2108 --
2109 -- HISTORY
2110 -- 04/23/2004 samaresh Created.
2111 -----------------------------------------------------------------------
2112 PROCEDURE Resale_Line_Bill_To_Cnt_Mge
2113 ( p_entity_name IN VARCHAR2
2114 ,p_from_id IN NUMBER
2115 ,p_to_id IN OUT NOCOPY NUMBER
2116 ,p_from_fk_id IN NUMBER
2117 ,p_to_fk_id IN NUMBER
2118 ,p_parent_entity_name IN VARCHAR2
2119 ,p_batch_id IN NUMBER
2120 ,p_batch_party_id IN NUMBER
2121 ,x_return_status IN OUT NOCOPY VARCHAR2
2122 ) IS
2123 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Line_Bill_To_Cnt_Mge';
2124 l_api_version_number CONSTANT NUMBER := 1.0;
2125 l_merge_reason_code VARCHAR2(30);
2126
2127 BEGIN
2128
2129 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_BILL_TO_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2130
2131 x_return_status := FND_API.G_RET_STS_SUCCESS;
2132
2133 SELECT merge_reason_code INTO l_merge_reason_code
2134 FROM HZ_MERGE_BATCH
2135 WHERE batch_id = p_batch_id;
2136
2137 -- ***************************************************************************
2138 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2139 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2140 -- ***************************************************************************
2141 if p_from_fk_id = p_to_fk_id then
2142 p_to_id := p_from_id;
2143 return;
2144 end if;
2145
2146 IF p_from_fk_id <> p_to_fk_id THEN
2147 BEGIN
2148 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2149
2150 UPDATE ozf_resale_lines_all
2151 SET bill_to_contact_party_id = p_to_fk_id,
2152 last_update_date = hz_utility_pub.last_update_date,
2153 last_updated_by = hz_utility_pub.user_id,
2154 last_update_login = hz_utility_pub.last_update_login,
2155 program_application_id = hz_utility_pub.program_application_id,
2156 program_id = hz_utility_pub.program_id,
2160 END IF;
2157 program_update_date = sysdate
2158 where bill_to_contact_party_id = p_from_fk_id;
2159
2161 EXCEPTION
2162 WHEN OTHERS THEN
2163 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2164 x_return_status := FND_API.G_RET_STS_ERROR;
2165 raise;
2166 END;
2167 END IF;
2168
2169
2170 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_BILL_TO_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2171
2172 END Resale_Line_Bill_To_Cnt_Mge;
2173
2174
2175 -----------------------------------------------------------------------
2176 -- PROCEDURE
2177 -- Resale_Line_Ship_To_Merge
2178 --
2179 -- HISTORY
2180 -- 04/23/2004 samaresh Created.
2181 -----------------------------------------------------------------------
2182 PROCEDURE Resale_Line_Ship_To_Merge
2183 ( p_entity_name IN VARCHAR2
2184 ,p_from_id IN NUMBER
2185 ,p_to_id IN OUT NOCOPY NUMBER
2186 ,p_from_fk_id IN NUMBER
2187 ,p_to_fk_id IN NUMBER
2188 ,p_parent_entity_name IN VARCHAR2
2189 ,p_batch_id IN NUMBER
2190 ,p_batch_party_id IN NUMBER
2191 ,x_return_status IN OUT NOCOPY VARCHAR2
2192 ) IS
2193 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Line_Ship_To_Merge';
2194 l_api_version_number CONSTANT NUMBER := 1.0;
2195 l_merge_reason_code VARCHAR2(30);
2196
2197 BEGIN
2198
2199 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_SHIP_TO_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2200
2201 x_return_status := FND_API.G_RET_STS_SUCCESS;
2202
2203 SELECT merge_reason_code INTO l_merge_reason_code
2204 FROM HZ_MERGE_BATCH
2205 WHERE batch_id = p_batch_id;
2206
2207 -- ***************************************************************************
2208 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2209 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2210 -- ***************************************************************************
2211 if p_from_fk_id = p_to_fk_id then
2212 p_to_id := p_from_id;
2213 return;
2214 end if;
2215
2216 IF p_from_fk_id <> p_to_fk_id THEN
2217 BEGIN
2218 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2219
2220 UPDATE ozf_resale_lines_all
2221 SET ship_to_party_id = p_to_fk_id,
2222 last_update_date = hz_utility_pub.last_update_date,
2223 last_updated_by = hz_utility_pub.user_id,
2224 last_update_login = hz_utility_pub.last_update_login,
2225 program_application_id = hz_utility_pub.program_application_id,
2226 program_id = hz_utility_pub.program_id,
2227 program_update_date = sysdate
2228 where ship_to_party_id = p_from_fk_id;
2229
2230 END IF;
2231 EXCEPTION
2232 WHEN OTHERS THEN
2233 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2234 x_return_status := FND_API.G_RET_STS_ERROR;
2235 raise;
2236 END;
2237 END IF;
2238
2239
2240 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_SHIP_TO_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2241
2242 END Resale_Line_Ship_To_Merge;
2243
2244
2245 -----------------------------------------------------------------------
2246 -- PROCEDURE
2247 -- Resale_Line_Ship_To_Cnt_Mge
2248 --
2249 -- HISTORY
2250 -- 04/23/2004 samaresh Created.
2251 -----------------------------------------------------------------------
2252 PROCEDURE Resale_Line_Ship_To_Cnt_Mge
2253 ( p_entity_name IN VARCHAR2
2254 ,p_from_id IN NUMBER
2255 ,p_to_id IN OUT NOCOPY NUMBER
2256 ,p_from_fk_id IN NUMBER
2257 ,p_to_fk_id IN NUMBER
2258 ,p_parent_entity_name IN VARCHAR2
2259 ,p_batch_id IN NUMBER
2260 ,p_batch_party_id IN NUMBER
2261 ,x_return_status IN OUT NOCOPY VARCHAR2
2262 ) IS
2263 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Line_Ship_To_Cnt_Mge';
2264 l_api_version_number CONSTANT NUMBER := 1.0;
2265 l_merge_reason_code VARCHAR2(30);
2266
2267 BEGIN
2268
2269 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_SHIP_TO_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2270
2271 x_return_status := FND_API.G_RET_STS_SUCCESS;
2272
2273 SELECT merge_reason_code INTO l_merge_reason_code
2274 FROM HZ_MERGE_BATCH
2275 WHERE batch_id = p_batch_id;
2276
2277 -- ***************************************************************************
2278 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2279 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2280 -- ***************************************************************************
2281 if p_from_fk_id = p_to_fk_id then
2282 p_to_id := p_from_id;
2283 return;
2284 end if;
2285
2286 IF p_from_fk_id <> p_to_fk_id THEN
2287 BEGIN
2288 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2289
2293 last_updated_by = hz_utility_pub.user_id,
2290 UPDATE ozf_resale_lines_all
2291 SET ship_to_contact_party_id = p_to_fk_id,
2292 last_update_date = hz_utility_pub.last_update_date,
2294 last_update_login = hz_utility_pub.last_update_login,
2295 program_application_id = hz_utility_pub.program_application_id,
2296 program_id = hz_utility_pub.program_id,
2297 program_update_date = sysdate
2298 where ship_to_contact_party_id = p_from_fk_id;
2299
2300 END IF;
2301 EXCEPTION
2302 WHEN OTHERS THEN
2303 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2304 x_return_status := FND_API.G_RET_STS_ERROR;
2305 raise;
2306 END;
2307 END IF;
2308
2309
2310 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_SHIP_TO_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2311
2312 END Resale_Line_Ship_To_Cnt_Mge;
2313
2314 -----------------------------------------------------------------------
2315 -- PROCEDURE
2316 -- Resale_Line_End_Cust_Merge
2317 --
2318 -- HISTORY
2319 -- 04/23/2004 samaresh Created.
2320 -----------------------------------------------------------------------
2321 PROCEDURE Resale_Line_End_Cust_Merge
2322 ( p_entity_name IN VARCHAR2
2323 ,p_from_id IN NUMBER
2324 ,p_to_id IN OUT NOCOPY NUMBER
2325 ,p_from_fk_id IN NUMBER
2326 ,p_to_fk_id IN NUMBER
2327 ,p_parent_entity_name IN VARCHAR2
2328 ,p_batch_id IN NUMBER
2329 ,p_batch_party_id IN NUMBER
2330 ,x_return_status IN OUT NOCOPY VARCHAR2
2331 ) IS
2332 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Line_End_Cust_Merge';
2333 l_api_version_number CONSTANT NUMBER := 1.0;
2334 l_merge_reason_code VARCHAR2(30);
2335
2336 BEGIN
2337
2338 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_END_CUST_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2339
2340 x_return_status := FND_API.G_RET_STS_SUCCESS;
2341
2342 SELECT merge_reason_code INTO l_merge_reason_code
2343 FROM HZ_MERGE_BATCH
2344 WHERE batch_id = p_batch_id;
2345
2346 -- ***************************************************************************
2347 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2348 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2349 -- ***************************************************************************
2350 if p_from_fk_id = p_to_fk_id then
2351 p_to_id := p_from_id;
2352 return;
2353 end if;
2354
2355 IF p_from_fk_id <> p_to_fk_id THEN
2356 BEGIN
2357 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2358
2359 UPDATE ozf_resale_lines_all
2360 SET end_cust_party_id = p_to_fk_id,
2361 last_update_date = hz_utility_pub.last_update_date,
2362 last_updated_by = hz_utility_pub.user_id,
2363 last_update_login = hz_utility_pub.last_update_login,
2364 program_application_id = hz_utility_pub.program_application_id,
2365 program_id = hz_utility_pub.program_id,
2366 program_update_date = sysdate
2367 where end_cust_party_id = p_from_fk_id;
2368
2369 END IF;
2370 EXCEPTION
2371 WHEN OTHERS THEN
2372 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2373 x_return_status := FND_API.G_RET_STS_ERROR;
2374 raise;
2375 END;
2376 END IF;
2377
2378
2379 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_END_CUST_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2380
2381 END Resale_Line_End_Cust_Merge;
2382 -----------------------------------------------------------------------
2383 -- PROCEDURE
2384 -- Resale_Line_End_Cust_Cnt_Mge
2385 --
2386 -- HISTORY
2387 -- 04/23/2004 samaresh Created.
2388 -----------------------------------------------------------------------
2389 PROCEDURE Resale_Line_End_Cust_Cnt_Mge
2390 ( p_entity_name IN VARCHAR2
2391 ,p_from_id IN NUMBER
2392 ,p_to_id IN OUT NOCOPY NUMBER
2393 ,p_from_fk_id IN NUMBER
2394 ,p_to_fk_id IN NUMBER
2395 ,p_parent_entity_name IN VARCHAR2
2396 ,p_batch_id IN NUMBER
2397 ,p_batch_party_id IN NUMBER
2398 ,x_return_status IN OUT NOCOPY VARCHAR2
2399 ) IS
2400 l_api_name CONSTANT VARCHAR2(30) := 'Resale_Line_End_Cust_Cnt_Mge';
2401 l_api_version_number CONSTANT NUMBER := 1.0;
2402 l_merge_reason_code VARCHAR2(30);
2403
2404 BEGIN
2405
2406 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_END_CUST_CNT_MGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2407
2408 x_return_status := FND_API.G_RET_STS_SUCCESS;
2409
2410 SELECT merge_reason_code INTO l_merge_reason_code
2411 FROM HZ_MERGE_BATCH
2412 WHERE batch_id = p_batch_id;
2413
2414 -- ***************************************************************************
2418 if p_from_fk_id = p_to_fk_id then
2415 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2416 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2417 -- ***************************************************************************
2419 p_to_id := p_from_id;
2420 return;
2421 end if;
2422
2423 IF p_from_fk_id <> p_to_fk_id THEN
2424 BEGIN
2425 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2426
2427 UPDATE ozf_resale_lines_all
2428 SET end_cust_contact_party_id = p_to_fk_id,
2429 last_update_date = hz_utility_pub.last_update_date,
2430 last_updated_by = hz_utility_pub.user_id,
2431 last_update_login = hz_utility_pub.last_update_login,
2432 program_application_id = hz_utility_pub.program_application_id,
2433 program_id = hz_utility_pub.program_id,
2434 program_update_date = sysdate
2435 where end_cust_contact_party_id = p_from_fk_id;
2436
2437 END IF;
2438 EXCEPTION
2439 WHEN OTHERS THEN
2440 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2441 x_return_status := FND_API.G_RET_STS_ERROR;
2442 raise;
2443 END;
2444 END IF;
2445
2446
2447 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.RESALE_LINE_END_CUST_CNT_MGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2448
2449 END Resale_Line_End_Cust_Cnt_Mge;
2450
2451 -----------------------------------------------------------------------
2452 -- PROCEDURE
2453 -- Request_Head_End_Cust_Merge
2454 --
2455 -- HISTORY
2456 -- 04/23/2004 samaresh Created.
2457 -----------------------------------------------------------------------
2458 PROCEDURE Request_Head_End_Cust_Merge
2459 ( p_entity_name IN VARCHAR2
2460 ,p_from_id IN NUMBER
2461 ,p_to_id IN OUT NOCOPY NUMBER
2462 ,p_from_fk_id IN NUMBER
2463 ,p_to_fk_id IN NUMBER
2464 ,p_parent_entity_name IN VARCHAR2
2465 ,p_batch_id IN NUMBER
2466 ,p_batch_party_id IN NUMBER
2467 ,x_return_status IN OUT NOCOPY VARCHAR2
2468 ) IS
2469 l_api_name CONSTANT VARCHAR2(30) := 'Request_Head_End_Cust_Merge';
2470 l_api_version_number CONSTANT NUMBER := 1.0;
2471 l_merge_reason_code VARCHAR2(30);
2472
2473 BEGIN
2474
2475 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.REQUEST_HEAD_END_CUST_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2476
2477 x_return_status := FND_API.G_RET_STS_SUCCESS;
2478
2479 SELECT merge_reason_code INTO l_merge_reason_code
2480 FROM HZ_MERGE_BATCH
2481 WHERE batch_id = p_batch_id;
2482
2483 -- ***************************************************************************
2484 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2485 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2486 -- ***************************************************************************
2487 if p_from_fk_id = p_to_fk_id then
2488 p_to_id := p_from_id;
2489 return;
2490 end if;
2491
2492 IF p_from_fk_id <> p_to_fk_id THEN
2493 BEGIN
2494 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2495
2496 UPDATE ozf_request_headers_all_b
2497 SET end_cust_party_id = p_to_fk_id,
2498 last_update_date = hz_utility_pub.last_update_date,
2499 last_updated_by = hz_utility_pub.user_id,
2500 last_update_login = hz_utility_pub.last_update_login,
2501 program_application_id = hz_utility_pub.program_application_id,
2502 program_id = hz_utility_pub.program_id,
2503 program_update_date = sysdate
2504 where end_cust_party_id = p_from_fk_id;
2505
2506 END IF;
2507 EXCEPTION
2508 WHEN OTHERS THEN
2509 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2510 x_return_status := FND_API.G_RET_STS_ERROR;
2511 raise;
2512 END;
2513 END IF;
2514
2515
2516 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.REQUEST_HEAD_END_CUST_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2517
2518 END Request_Head_End_Cust_Merge;
2519
2520 -----------------------------------------------------------------------
2521 -- PROCEDURE
2522 -- Request_Head_Reseller_Merge
2523 --
2524 -- HISTORY
2525 -- 04/23/2004 samaresh Created.
2526 -----------------------------------------------------------------------
2527 PROCEDURE Request_Head_Reseller_Merge
2528 ( p_entity_name IN VARCHAR2
2529 ,p_from_id IN NUMBER
2530 ,p_to_id IN OUT NOCOPY NUMBER
2531 ,p_from_fk_id IN NUMBER
2532 ,p_to_fk_id IN NUMBER
2533 ,p_parent_entity_name IN VARCHAR2
2534 ,p_batch_id IN NUMBER
2535 ,p_batch_party_id IN NUMBER
2536 ,x_return_status IN OUT NOCOPY VARCHAR2
2537 ) IS
2538 l_api_name CONSTANT VARCHAR2(30) := 'Request_Head_Reseller_Merge';
2539 l_api_version_number CONSTANT NUMBER := 1.0;
2540 l_merge_reason_code VARCHAR2(30);
2541
2542 BEGIN
2546 x_return_status := FND_API.G_RET_STS_SUCCESS;
2543
2544 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.REQUEST_HEAD_RESELLER_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2545
2547
2548 SELECT merge_reason_code INTO l_merge_reason_code
2549 FROM HZ_MERGE_BATCH
2550 WHERE batch_id = p_batch_id;
2551
2552 -- ***************************************************************************
2553 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2554 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2555 -- ***************************************************************************
2556 if p_from_fk_id = p_to_fk_id then
2557 p_to_id := p_from_id;
2558 return;
2559 end if;
2560
2561 IF p_from_fk_id <> p_to_fk_id THEN
2562 BEGIN
2563 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2564
2565 UPDATE ozf_request_headers_all_b
2566 SET reseller_party_id = p_to_fk_id,
2567 last_update_date = hz_utility_pub.last_update_date,
2568 last_updated_by = hz_utility_pub.user_id,
2569 last_update_login = hz_utility_pub.last_update_login,
2570 program_application_id = hz_utility_pub.program_application_id,
2571 program_id = hz_utility_pub.program_id,
2572 program_update_date = sysdate
2573 where reseller_party_id = p_from_fk_id;
2574
2575 END IF;
2576 EXCEPTION
2577 WHEN OTHERS THEN
2578 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2579 x_return_status := FND_API.G_RET_STS_ERROR;
2580 raise;
2581 END;
2582 END IF;
2583
2584
2585 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.REQUEST_HEAD_RESELLER_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2586
2587 END Request_Head_Reseller_Merge;
2588
2589 -----------------------------------------------------------------------
2590 -- PROCEDURE
2591 -- Acct_Alloc_Parent_Party_Merge
2592 --
2593 -- HISTORY
2594 -- 04/23/2004 samaresh Created.
2595 -----------------------------------------------------------------------
2596 PROCEDURE Acct_Alloc_Parent_Party_Merge
2597 ( p_entity_name IN VARCHAR2
2598 ,p_from_id IN NUMBER
2599 ,p_to_id IN OUT NOCOPY NUMBER
2600 ,p_from_fk_id IN NUMBER
2601 ,p_to_fk_id IN NUMBER
2602 ,p_parent_entity_name IN VARCHAR2
2603 ,p_batch_id IN NUMBER
2604 ,p_batch_party_id IN NUMBER
2605 ,x_return_status IN OUT NOCOPY VARCHAR2
2606 ) IS
2607 l_api_name CONSTANT VARCHAR2(30) := 'Acct_Alloc_Parent_Party_Merge';
2608 l_api_version_number CONSTANT NUMBER := 1.0;
2609 l_merge_reason_code VARCHAR2(30);
2610
2611 BEGIN
2612
2613 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.ACCT_ALLOC_PARENT_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2614
2615 x_return_status := FND_API.G_RET_STS_SUCCESS;
2616
2617 SELECT merge_reason_code INTO l_merge_reason_code
2618 FROM HZ_MERGE_BATCH
2619 WHERE batch_id = p_batch_id;
2620
2621 -- ***************************************************************************
2622 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2623 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2624 -- ***************************************************************************
2625 if p_from_fk_id = p_to_fk_id then
2626 p_to_id := p_from_id;
2627 return;
2628 end if;
2629
2630 IF p_from_fk_id <> p_to_fk_id THEN
2631 BEGIN
2632 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2633
2634 UPDATE ozf_account_allocations
2635 SET parent_party_id = p_to_fk_id,
2636 last_update_date = hz_utility_pub.last_update_date,
2637 last_updated_by = hz_utility_pub.user_id,
2638 last_update_login = hz_utility_pub.last_update_login
2639 where parent_party_id = p_from_fk_id;
2640
2641 END IF;
2642 EXCEPTION
2643 WHEN OTHERS THEN
2644 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2645 x_return_status := FND_API.G_RET_STS_ERROR;
2646 raise;
2647 END;
2648 END IF;
2649
2650
2651 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.ACCT_ALLOC_PARENT_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2652
2653 END Acct_Alloc_Parent_Party_Merge;
2654
2655 -----------------------------------------------------------------------
2656 -- PROCEDURE
2657 -- Acct_Alloc_Rollup_Party_Merge
2658 --
2659 -- HISTORY
2660 -- 04/23/2004 samaresh Created.
2661 -----------------------------------------------------------------------
2662 PROCEDURE Acct_Alloc_Rollup_Party_Merge
2663 ( p_entity_name IN VARCHAR2
2664 ,p_from_id IN NUMBER
2665 ,p_to_id IN OUT NOCOPY NUMBER
2666 ,p_from_fk_id IN NUMBER
2667 ,p_to_fk_id IN NUMBER
2668 ,p_parent_entity_name IN VARCHAR2
2669 ,p_batch_id IN NUMBER
2670 ,p_batch_party_id IN NUMBER
2671 ,x_return_status IN OUT NOCOPY VARCHAR2
2672 ) IS
2676
2673 l_api_name CONSTANT VARCHAR2(30) := 'Acct_Alloc_Rollup_Party_Merge';
2674 l_api_version_number CONSTANT NUMBER := 1.0;
2675 l_merge_reason_code VARCHAR2(30);
2677 BEGIN
2678
2679 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.ACCT_ALLOC_ROLLUP_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2680
2681 x_return_status := FND_API.G_RET_STS_SUCCESS;
2682
2683 SELECT merge_reason_code INTO l_merge_reason_code
2684 FROM HZ_MERGE_BATCH
2685 WHERE batch_id = p_batch_id;
2686
2687 -- ***************************************************************************
2688 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2689 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2690 -- ***************************************************************************
2691 if p_from_fk_id = p_to_fk_id then
2692 p_to_id := p_from_id;
2693 return;
2694 end if;
2695
2696 IF p_from_fk_id <> p_to_fk_id THEN
2697 BEGIN
2698 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2699
2700 UPDATE ozf_account_allocations
2701 SET rollup_party_id = p_to_fk_id,
2702 last_update_date = hz_utility_pub.last_update_date,
2703 last_updated_by = hz_utility_pub.user_id,
2704 last_update_login = hz_utility_pub.last_update_login
2705 where rollup_party_id = p_from_fk_id;
2706
2707 END IF;
2708 EXCEPTION
2709 WHEN OTHERS THEN
2710 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2711 x_return_status := FND_API.G_RET_STS_ERROR;
2712 raise;
2713 END;
2714 END IF;
2715
2716
2717 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.ACCT_ALLOC_ROLLUP_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2718
2719 END Acct_Alloc_Rollup_Party_Merge;
2720
2721 -----------------------------------------------------------------------
2722 -- PROCEDURE
2723 -- Offer_Autopay_Party_Merge
2724 --
2725 -- HISTORY
2726 -- 04/23/2004 samaresh Created.
2727 -----------------------------------------------------------------------
2728
2729 PROCEDURE Offer_Autopay_Party_Merge
2730 ( p_entity_name IN VARCHAR2
2731 ,p_from_id IN NUMBER
2732 ,p_to_id IN OUT NOCOPY NUMBER
2733 ,p_from_fk_id IN NUMBER
2734 ,p_to_fk_id IN NUMBER
2735 ,p_parent_entity_name IN VARCHAR2
2736 ,p_batch_id IN NUMBER
2737 ,p_batch_party_id IN NUMBER
2738 ,x_return_status IN OUT NOCOPY VARCHAR2
2739 ) is
2740 l_api_name CONSTANT VARCHAR2(30) := 'Offer_Autopay_Party_Merge';
2741 l_api_version_number CONSTANT NUMBER := 1.0;
2742 l_merge_reason_code VARCHAR2(30);
2743
2744 BEGIN
2745
2746 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.OFFER_AUTOPAY_PARTY_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2747
2748 x_return_status := FND_API.G_RET_STS_SUCCESS;
2749
2750 select merge_reason_code into l_merge_reason_code
2751 from HZ_MERGE_BATCH
2752 where batch_id = p_batch_id;
2753
2754 -- ***************************************************************************
2755 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2756 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2757 -- ***************************************************************************
2758 if p_from_fk_id = p_to_fk_id then
2759 p_to_id := p_from_id;
2760 return;
2761 end if;
2762
2763
2764 IF p_from_fk_id <> p_to_fk_id THEN
2765 BEGIN
2766 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2767
2768 UPDATE OZF_OFFERS
2769 SET autopay_party_id = p_to_fk_id,
2770 last_update_date = hz_utility_pub.last_update_date,
2771 last_updated_by = hz_utility_pub.user_id,
2772 last_update_login = hz_utility_pub.last_update_login
2773 where autopay_party_id = p_from_fk_id;
2774
2775 END IF;
2776 EXCEPTION
2777 WHEN OTHERS THEN
2778 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2779 x_return_status := FND_API.G_RET_STS_ERROR;
2780 raise;
2781 END;
2782 END IF;
2783
2784 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.OFFER_AUTOPAY_PARTY_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2785
2786 END Offer_Autopay_Party_Merge;
2787
2788
2789 -----------------------------------------------------------------------
2790 -- PROCEDURE
2791 -- Request_Head_Partner_Merge
2792 --
2793 -- HISTORY
2794 -- 04/23/2004 samaresh Created.
2795 -----------------------------------------------------------------------
2796 PROCEDURE Request_Head_Partner_Merge
2797 ( p_entity_name IN VARCHAR2
2798 ,p_from_id IN NUMBER
2799 ,p_to_id IN OUT NOCOPY NUMBER
2800 ,p_from_fk_id IN NUMBER
2801 ,p_to_fk_id IN NUMBER
2802 ,p_parent_entity_name IN VARCHAR2
2803 ,p_batch_id IN NUMBER
2804 ,p_batch_party_id IN NUMBER
2805 ,x_return_status IN OUT NOCOPY VARCHAR2
2806 ) IS
2807 l_api_name CONSTANT VARCHAR2(30) := 'Request_Head_Partner_Merge';
2808 l_api_version_number CONSTANT NUMBER := 1.0;
2809 l_merge_reason_code VARCHAR2(30);
2810
2811 BEGIN
2812
2813 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.REQUEST_HEAD_PARTNER_MERGE start : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2814
2815 x_return_status := FND_API.G_RET_STS_SUCCESS;
2816
2817 SELECT merge_reason_code INTO l_merge_reason_code
2818 FROM HZ_MERGE_BATCH
2819 WHERE batch_id = p_batch_id;
2820
2821 -- ***************************************************************************
2822 -- If the parent has NOT changed (ie. Parent getting transferred) then nothing
2823 -- needs to be done. Set Merged To Id is same as Merged From Id and return
2824 -- ***************************************************************************
2825 if p_from_fk_id = p_to_fk_id then
2826 p_to_id := p_from_id;
2827 return;
2828 end if;
2829
2830 IF p_from_fk_id <> p_to_fk_id THEN
2831 BEGIN
2832 IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
2833
2834 UPDATE ozf_request_headers_all_b
2835 SET partner_id = p_to_fk_id,
2836 last_update_date = hz_utility_pub.last_update_date,
2837 last_updated_by = hz_utility_pub.user_id,
2838 last_update_login = hz_utility_pub.last_update_login,
2839 program_application_id = hz_utility_pub.program_application_id,
2840 program_id = hz_utility_pub.program_id,
2841 program_update_date = sysdate
2842 where partner_id = p_from_fk_id;
2843
2844 END IF;
2845 EXCEPTION
2846 WHEN OTHERS THEN
2847 arp_message.set_line(g_pkg_name || '.' || l_api_name || ': ' || sqlerrm);
2848 x_return_status := FND_API.G_RET_STS_ERROR;
2849 raise;
2850 END;
2851 END IF;
2852
2853
2854 FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_PARTY_MERGE_PKG.REQUEST_HEAD_PARTNER_MERGE end : '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
2855
2856 END Request_Head_Partner_Merge;
2857
2858
2859 END OZF_PARTY_MERGE_PVT;
[Home] [Help]