147: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
148: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
149: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
150: --
151: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CPL_MERGE_PARTY()+');
152:
153: x_return_status := FND_API.G_RET_STS_SUCCESS;
154:
155: --
193: if p_from_fk_id <> p_to_fk_id then
194: --
195: begin
196:
197: arp_message.set_name('AR','AR_UPDATING_TABLE');
198: arp_message.set_token('TABLE_NAME','OKC_K_PARTY_ROLES',FALSE);
199: fnd_file.put_line(fnd_file.log, 'Updating Table okc_k_party_roles_b');
200: --
201: --
194: --
195: begin
196:
197: arp_message.set_name('AR','AR_UPDATING_TABLE');
198: arp_message.set_token('TABLE_NAME','OKC_K_PARTY_ROLES',FALSE);
199: fnd_file.put_line(fnd_file.log, 'Updating Table okc_k_party_roles_b');
200: --
201: --
202: -- Fix for bug 4105272 Insert into okc_k_vers_numbers_h
249: --npalepu added on 10-feb-2006 for bug # 5005475
250: l_count := sql%rowcount;
251:
252: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
253: arp_message.set_name('AR','AR_ROWS_UPDATED');
254: arp_message.set_token('NUM_ROWS',to_char(l_count));
255:
256: OPEN l_get_cpl_ids_csr;
257: LOOP
250: l_count := sql%rowcount;
251:
252: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
253: arp_message.set_name('AR','AR_ROWS_UPDATED');
254: arp_message.set_token('NUM_ROWS',to_char(l_count));
255:
256: OPEN l_get_cpl_ids_csr;
257: LOOP
258: FETCH l_get_cpl_ids_csr BULK COLLECT INTO l_from_cpl_id, l_to_cpl_id LIMIT 1000;
273: WHERE cntc.cpl_id = l_from_cpl_id(i);
274:
275: l_count := sql%rowcount;
276: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
277: arp_message.set_name('AR','AR_ROWS_UPDATED');
278: arp_message.set_token('NUM_ROWS',to_char(l_count));
279:
280: fnd_file.put_line(fnd_file.log, 'Deleting Table OKC_K_PARTY_ROLES_TL');
281: -- Delete party_roles_tl table to handle related party merge Bug # 4529376
274:
275: l_count := sql%rowcount;
276: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
277: arp_message.set_name('AR','AR_ROWS_UPDATED');
278: arp_message.set_token('NUM_ROWS',to_char(l_count));
279:
280: fnd_file.put_line(fnd_file.log, 'Deleting Table OKC_K_PARTY_ROLES_TL');
281: -- Delete party_roles_tl table to handle related party merge Bug # 4529376
282:
355: --
356: l_count := sql%rowcount;
357:
358: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
359: arp_message.set_name('AR','AR_ROWS_UPDATED');
360: arp_message.set_token('NUM_ROWS',to_char(l_count));
361: --
362: exception
363: when OKC_API.G_EXCEPTION_ERROR THEN -- Bug 2949149
356: l_count := sql%rowcount;
357:
358: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
359: arp_message.set_name('AR','AR_ROWS_UPDATED');
360: arp_message.set_token('NUM_ROWS',to_char(l_count));
361: --
362: exception
363: when OKC_API.G_EXCEPTION_ERROR THEN -- Bug 2949149
364: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
360: arp_message.set_token('NUM_ROWS',to_char(l_count));
361: --
362: exception
363: when OKC_API.G_EXCEPTION_ERROR THEN -- Bug 2949149
364: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
365: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
366: x_return_status := FND_API.G_RET_STS_ERROR;
367: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN -- Bug 2949149
368: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
364: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
365: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
366: x_return_status := FND_API.G_RET_STS_ERROR;
367: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN -- Bug 2949149
368: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
369: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: when others then
372: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
368: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
369: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: when others then
372: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
373: --
374: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
375: 'OKC_K_PARTY_ROLES = ' ||l_object_user_code||'-'|| p_from_id));
376: --
412: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
413: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
414: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
415: --
416: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID1()+');
417:
418: x_return_status := FND_API.G_RET_STS_SUCCESS;
419:
420: --
458:
459: if p_from_fk_id <> p_to_fk_id then
460: begin
461: -- Rules ID1
462: arp_message.set_name('AR','AR_UPDATING_TABLE');
463: arp_message.set_token('TABLE_NAME','OKC_RULES_B.OBJECT1_ID1',FALSE);
464: fnd_file.put_line(fnd_file.log, 'Updating Table okc_rules_b');
465: --
466: UPDATE okc_rules_b rle
459: if p_from_fk_id <> p_to_fk_id then
460: begin
461: -- Rules ID1
462: arp_message.set_name('AR','AR_UPDATING_TABLE');
463: arp_message.set_token('TABLE_NAME','OKC_RULES_B.OBJECT1_ID1',FALSE);
464: fnd_file.put_line(fnd_file.log, 'Updating Table okc_rules_b');
465: --
466: UPDATE okc_rules_b rle
467: SET rle.object1_id1 = p_to_fk_id
480: --
481: l_count := sql%rowcount;
482:
483: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
484: arp_message.set_name('AR','AR_ROWS_UPDATED');
485: arp_message.set_token('NUM_ROWS',to_char(l_count));
486: --
487: --
488: exception
481: l_count := sql%rowcount;
482:
483: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
484: arp_message.set_name('AR','AR_ROWS_UPDATED');
485: arp_message.set_token('NUM_ROWS',to_char(l_count));
486: --
487: --
488: exception
489: when others then
486: --
487: --
488: exception
489: when others then
490: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
491: --
492: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
493: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
494: --
531: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
532: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
533: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
534: --
535: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID2()+');
536:
537: x_return_status := FND_API.G_RET_STS_SUCCESS;
538:
539: --
577:
578: if p_from_fk_id <> p_to_fk_id then
579: begin
580: -- Rules ID1
581: arp_message.set_name('AR','AR_UPDATING_TABLE');
582: arp_message.set_token('TABLE_NAME','OKC_RULES_B.OBJECT1_ID1',FALSE);
583: fnd_file.put_line(fnd_file.log, 'Updating Table okc_rules_b');
584: --
585: UPDATE okc_rules_b rle
578: if p_from_fk_id <> p_to_fk_id then
579: begin
580: -- Rules ID1
581: arp_message.set_name('AR','AR_UPDATING_TABLE');
582: arp_message.set_token('TABLE_NAME','OKC_RULES_B.OBJECT1_ID1',FALSE);
583: fnd_file.put_line(fnd_file.log, 'Updating Table okc_rules_b');
584: --
585: UPDATE okc_rules_b rle
586: SET rle.object2_id1 = p_to_fk_id
599: --
600: l_count := sql%rowcount;
601:
602: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
603: arp_message.set_name('AR','AR_ROWS_UPDATED');
604: arp_message.set_token('NUM_ROWS',to_char(l_count));
605: --
606: --
607: exception
600: l_count := sql%rowcount;
601:
602: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
603: arp_message.set_name('AR','AR_ROWS_UPDATED');
604: arp_message.set_token('NUM_ROWS',to_char(l_count));
605: --
606: --
607: exception
608: when others then
605: --
606: --
607: exception
608: when others then
609: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
610: --
611: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
612: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
613: --
649: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
650: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
651: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
652: --
653: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID3()+');
654:
655: x_return_status := FND_API.G_RET_STS_SUCCESS;
656: --
657: --
694:
695: if p_from_fk_id <> p_to_fk_id then
696: begin
697: -- Rules ID3
698: arp_message.set_name('AR','AR_UPDATING_TABLE');
699: arp_message.set_token('TABLE_NAME','OKC_RULES_B.OBJECT3_ID1',FALSE);
700: fnd_file.put_line(fnd_file.log, 'Updating Table okc_rules_b');
701: --
702: UPDATE okc_rules_b rle
695: if p_from_fk_id <> p_to_fk_id then
696: begin
697: -- Rules ID3
698: arp_message.set_name('AR','AR_UPDATING_TABLE');
699: arp_message.set_token('TABLE_NAME','OKC_RULES_B.OBJECT3_ID1',FALSE);
700: fnd_file.put_line(fnd_file.log, 'Updating Table okc_rules_b');
701: --
702: UPDATE okc_rules_b rle
703: SET rle.object3_id1 = p_to_fk_id
717: --
718: l_count := sql%rowcount;
719:
720: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
721: arp_message.set_name('AR','AR_ROWS_UPDATED');
722: arp_message.set_token('NUM_ROWS',to_char(l_count));
723: --
724: --
725: exception
718: l_count := sql%rowcount;
719:
720: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
721: arp_message.set_name('AR','AR_ROWS_UPDATED');
722: arp_message.set_token('NUM_ROWS',to_char(l_count));
723: --
724: --
725: exception
726: when others then
723: --
724: --
725: exception
726: when others then
727: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
728: --
729: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
730: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
731: --
766: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
767: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
768: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
769: --
770: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CIM_MERGE_PARTY()+');
771:
772: x_return_status := FND_API.G_RET_STS_SUCCESS;
773:
774: --
811: -- not transfer and return the id of the duplicate record as the Merged To Id
812:
813: if p_from_fk_id <> p_to_fk_id then
814: begin
815: arp_message.set_name('AR','AR_UPDATING_TABLE');
816: arp_message.set_token('TABLE_NAME','OKC_K_ITEMS',FALSE);
817: fnd_file.put_line(fnd_file.log, 'Updating Table okc_k_items');
818: --
819: --
812:
813: if p_from_fk_id <> p_to_fk_id then
814: begin
815: arp_message.set_name('AR','AR_UPDATING_TABLE');
816: arp_message.set_token('TABLE_NAME','OKC_K_ITEMS',FALSE);
817: fnd_file.put_line(fnd_file.log, 'Updating Table okc_k_items');
818: --
819: --
820: UPDATE okc_k_items cim
834: --
835: l_count := sql%rowcount;
836:
837: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
838: arp_message.set_name('AR','AR_ROWS_UPDATED');
839: arp_message.set_token('NUM_ROWS',to_char(l_count));
840: --
841: exception
842: when others then
835: l_count := sql%rowcount;
836:
837: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
838: arp_message.set_name('AR','AR_ROWS_UPDATED');
839: arp_message.set_token('NUM_ROWS',to_char(l_count));
840: --
841: exception
842: when others then
843: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
839: arp_message.set_token('NUM_ROWS',to_char(l_count));
840: --
841: exception
842: when others then
843: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
844: --
845: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
846: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
847: --
882: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
883: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
884: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
885: --
886: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CTC_MERGE_PARTY()+');
887:
888: x_return_status := FND_API.G_RET_STS_SUCCESS;
889:
890: --
925: -- not transfer and return the id of the duplicate record as the Merged To Id
926:
927: if p_from_fk_id <> p_to_fk_id then
928: begin
929: arp_message.set_name('AR','AR_UPDATING_TABLE');
930: arp_message.set_token('TABLE_NAME','OKC_CONTACTS',FALSE);
931: fnd_file.put_line(fnd_file.log, 'Updating Table okc_contacts');
932: --
933: --
926:
927: if p_from_fk_id <> p_to_fk_id then
928: begin
929: arp_message.set_name('AR','AR_UPDATING_TABLE');
930: arp_message.set_token('TABLE_NAME','OKC_CONTACTS',FALSE);
931: fnd_file.put_line(fnd_file.log, 'Updating Table okc_contacts');
932: --
933: --
934: UPDATE okc_contacts ctc
956: --
957: l_count := sql%rowcount;
958:
959: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
960: arp_message.set_name('AR','AR_ROWS_UPDATED');
961: arp_message.set_token('NUM_ROWS',to_char(l_count));
962: --
963: exception
964: when others then
957: l_count := sql%rowcount;
958:
959: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
960: arp_message.set_name('AR','AR_ROWS_UPDATED');
961: arp_message.set_token('NUM_ROWS',to_char(l_count));
962: --
963: exception
964: when others then
965: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
961: arp_message.set_token('NUM_ROWS',to_char(l_count));
962: --
963: exception
964: when others then
965: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
966: --
967: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
968: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
969: --