42: IS
43: BEGIN
44: if (p_msg_level >= G_MSG_LEVEL) then
45:
46: FND_LOG.STRING(p_msg_level, G_PKG_NAME, p_msg);
47: if FND_GLOBAL.Conc_Request_Id is not null then
48: fnd_file.put_line(FND_FILE.LOG, p_msg);
49: end if;
50:
51: end if;
52:
53: EXCEPTION
54: WHEN OTHERS THEN
55: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: ' || sqlerrm);
56: END;
57:
58:
59: /*========================================================================
89: l_api_name CONSTANT VARCHAR2(30) := 'INIT';
90: l_org_status varchar2(1);
91: BEGIN
92:
93: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
94:
95: /* getting msg logging info */
96: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
97: G_MSG_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
93: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
94:
95: /* getting msg logging info */
96: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
97: G_MSG_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
98:
99: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
101:
95: /* getting msg logging info */
96: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
97: G_MSG_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
98:
99: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
101:
102: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
103:
96: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
97: G_MSG_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
98:
99: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
101:
102: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
103:
104: END;
98:
99: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
100: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
101:
102: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
103:
104: END;
105:
106:
306: l_api_name CONSTANT VARCHAR2(30) := 'MERGE_LOAN_HEADERS_ACC';
307:
308: BEGIN
309:
310: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
311: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
312: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
313: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
314: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
307:
308: BEGIN
309:
310: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
311: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
312: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
313: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
314: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
315:
308: BEGIN
309:
310: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
311: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
312: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
313: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
314: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
315:
316: IF process_mode='LOCK' THEN
309:
310: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
311: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
312: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
313: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
314: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
315:
316: IF process_mode='LOCK' THEN
317: NULL;
310: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
311: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
312: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
313: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
314: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
315:
316: IF process_mode='LOCK' THEN
317: NULL;
318: ELSE
322: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
323: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
324:
325:
326: LogMessage(FND_LOG.LEVEL_STATEMENT,'Searching for ACCOUNT records...');
327:
328: /* merging cust_account_id */
329: open merged_records;
330: LOOP
337: l_last_fetch := TRUE;
338: END IF;
339:
340: IF MERGE_HEADER_ID_LIST.COUNT = 0 and l_last_fetch then
341: LogMessage(FND_LOG.LEVEL_STATEMENT,'Exiting fetch');
342: exit;
343: END IF;
344:
345: LogMessage(FND_LOG.LEVEL_PROCEDURE,'Fetched ' || MERGE_HEADER_ID_LIST.COUNT || ' records');
341: LogMessage(FND_LOG.LEVEL_STATEMENT,'Exiting fetch');
342: exit;
343: END IF;
344:
345: LogMessage(FND_LOG.LEVEL_PROCEDURE,'Fetched ' || MERGE_HEADER_ID_LIST.COUNT || ' records');
346:
347: FOR I in 1..MERGE_HEADER_ID_LIST.COUNT LOOP
348: NUM_COL1_NEW_LIST(I) := HZ_ACCT_MERGE_UTIL.GETDUP_ACCOUNT(NUM_COL1_ORIG_LIST(I));
349: END LOOP;
348: NUM_COL1_NEW_LIST(I) := HZ_ACCT_MERGE_UTIL.GETDUP_ACCOUNT(NUM_COL1_ORIG_LIST(I));
349: END LOOP;
350:
351: IF l_profile_val IS NOT NULL AND l_profile_val = 'Y' THEN
352: LogMessage(FND_LOG.LEVEL_STATEMENT,'Inserting into HZ_CUSTOMER_MERGE_LOG...');
353:
354: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
355: INSERT INTO HZ_CUSTOMER_MERGE_LOG (
356: MERGE_LOG_ID,
382: hz_utility_pub.LAST_UPDATED_BY);
383:
384: END IF;
385:
386: LogMessage(FND_LOG.LEVEL_STATEMENT,'Insertion Completed');
387:
388: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updating LNS_LOAN_HEADERS Table ...');
389:
390: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
384: END IF;
385:
386: LogMessage(FND_LOG.LEVEL_STATEMENT,'Insertion Completed');
387:
388: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updating LNS_LOAN_HEADERS Table ...');
389:
390: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
391: UPDATE LNS_LOAN_HEADERS yt SET
392: CUST_ACCOUNT_ID=NUM_COL1_NEW_LIST(I)
398: WHERE LOAN_ID=PRIMARY_KEY_ID1_LIST(I);
399:
400: l_count := l_count + SQL%ROWCOUNT;
401:
402: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updation Completed');
403:
404: IF l_last_fetch THEN
405: EXIT;
406: END IF;
405: EXIT;
406: END IF;
407:
408: END LOOP;
409: LogMessage(FND_LOG.LEVEL_STATEMENT,'Total processed ' || l_count || ' ACCOUNT records');
410: arp_message.set_name('AR','AR_ROWS_UPDATED');
411: arp_message.set_token('NUM_ROWS',to_char(l_count));
412:
413: <
417: PRIMARY_KEY_ID1_LIST.delete;
418: l_count := 0;
419: l_last_fetch := FALSE;
420:
421: LogMessage(FND_LOG.LEVEL_STATEMENT,'Searching for CUST_ACCT_SITE_ID records...');
422:
423: open merged_records2;
424: LOOP
425: FETCH merged_records2 BULK COLLECT INTO
426: MERGE_HEADER_ID_LIST
427: , PRIMARY_KEY_ID1_LIST
428: , NUM_COL2_ORIG_LIST;
429:
430: LogMessage(FND_LOG.LEVEL_STATEMENT,'Fetched ' || MERGE_HEADER_ID_LIST.COUNT || ' records');
431:
432: IF merged_records2%NOTFOUND THEN
433: l_last_fetch := TRUE;
434: END IF;
433: l_last_fetch := TRUE;
434: END IF;
435:
436: IF MERGE_HEADER_ID_LIST.COUNT = 0 and l_last_fetch then
437: LogMessage(FND_LOG.LEVEL_STATEMENT,'Exiting fetch of CustActSites');
438: exit;
439: END IF;
440:
441: FOR I in 1..MERGE_HEADER_ID_LIST.COUNT LOOP
442: NUM_COL2_NEW_LIST(I) := HZ_ACCT_MERGE_UTIL.GETDUP_SITE(NUM_COL2_ORIG_LIST(I));
443: END LOOP;
444:
445: IF l_profile_val IS NOT NULL AND l_profile_val = 'Y' THEN
446: LogMessage(FND_LOG.LEVEL_STATEMENT,'Inserting CustActSites into HZ_CUSTOMER_MERGE_LOG...');
447:
448: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
449: INSERT INTO HZ_CUSTOMER_MERGE_LOG (
450: MERGE_LOG_ID,
476: hz_utility_pub.LAST_UPDATED_BY);
477:
478: END IF;
479:
480: LogMessage(FND_LOG.LEVEL_STATEMENT,'Insertion of custAcctSites Completed');
481:
482: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updating custAcctSites in LNS_LOAN_HEADERS Table ...');
483:
484: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
478: END IF;
479:
480: LogMessage(FND_LOG.LEVEL_STATEMENT,'Insertion of custAcctSites Completed');
481:
482: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updating custAcctSites in LNS_LOAN_HEADERS Table ...');
483:
484: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
485: UPDATE LNS_LOAN_HEADERS yt SET
486: BILL_TO_ACCT_SITE_ID=NUM_COL2_NEW_LIST(I)
492: WHERE LOAN_ID=PRIMARY_KEY_ID1_LIST(I);
493:
494: l_count := l_count + SQL%ROWCOUNT;
495:
496: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updation of custAcctSites Completed');
497:
498: IF l_last_fetch THEN
499: EXIT;
500: END IF;
499: EXIT;
500: END IF;
501:
502: END LOOP;
503: LogMessage(FND_LOG.LEVEL_STATEMENT,'Total processed ' || l_count || ' CUST_ACCT_SITES records');
504: arp_message.set_name('AR','AR_ROWS_UPDATED');
505: arp_message.set_token('NUM_ROWS',to_char(l_count));
506:
507: END IF;
505: arp_message.set_token('NUM_ROWS',to_char(l_count));
506:
507: END IF;
508:
509: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' END -');
510:
511: EXCEPTION
512: WHEN OTHERS THEN
513: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' EXCEPTION');
509: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' END -');
510:
511: EXCEPTION
512: WHEN OTHERS THEN
513: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' EXCEPTION');
514: arp_message.set_line( 'MERGE_LOAN_HEADERS_ACC');
515: RAISE;
516: END MERGE_LOAN_HEADERS_ACC;
517:
573: l_api_name CONSTANT VARCHAR2(30) := 'MERGE_PARTICIPANTS_ACC';
574:
575: BEGIN
576:
577: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
578: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
579: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
580: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
581: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
574:
575: BEGIN
576:
577: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
578: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
579: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
580: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
581: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
582:
575: BEGIN
576:
577: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
578: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
579: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
580: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
581: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
582:
583: IF process_mode='LOCK' THEN
576:
577: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
578: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
579: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
580: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
581: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
582:
583: IF process_mode='LOCK' THEN
584: NULL;
577: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' BEGIN +');
578: LogMessage(FND_LOG.LEVEL_STATEMENT,'Input parameters:');
579: LogMessage(FND_LOG.LEVEL_STATEMENT,'req_id = ' || req_id);
580: LogMessage(FND_LOG.LEVEL_STATEMENT,'set_num = ' || set_num);
581: LogMessage(FND_LOG.LEVEL_STATEMENT,'process_mode = ' || process_mode );
582:
583: IF process_mode='LOCK' THEN
584: NULL;
585:
589: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','LNS_PARTICIPANTS',FALSE);
590: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
591: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
592:
593: LogMessage(FND_LOG.LEVEL_STATEMENT,'Searching for ACCOUNT records...');
594:
595: open merged_records;
596: LOOP
597: FETCH merged_records BULK COLLECT INTO
602: IF merged_records%NOTFOUND THEN
603: l_last_fetch := TRUE;
604: END IF;
605: IF MERGE_HEADER_ID_LIST.COUNT = 0 and l_last_fetch then
606: LogMessage(FND_LOG.LEVEL_STATEMENT,'Exiting fetch');
607: exit;
608: END IF;
609:
610: LogMessage(FND_LOG.LEVEL_PROCEDURE,'Fetched ' || MERGE_HEADER_ID_LIST.COUNT || ' records');
606: LogMessage(FND_LOG.LEVEL_STATEMENT,'Exiting fetch');
607: exit;
608: END IF;
609:
610: LogMessage(FND_LOG.LEVEL_PROCEDURE,'Fetched ' || MERGE_HEADER_ID_LIST.COUNT || ' records');
611:
612: FOR I in 1..MERGE_HEADER_ID_LIST.COUNT LOOP
613: NUM_COL1_NEW_LIST(I) := HZ_ACCT_MERGE_UTIL.GETDUP_ACCOUNT(NUM_COL1_ORIG_LIST(I));
614: END LOOP;
613: NUM_COL1_NEW_LIST(I) := HZ_ACCT_MERGE_UTIL.GETDUP_ACCOUNT(NUM_COL1_ORIG_LIST(I));
614: END LOOP;
615:
616: IF l_profile_val IS NOT NULL AND l_profile_val = 'Y' THEN
617: LogMessage(FND_LOG.LEVEL_STATEMENT,'Inserting into HZ_CUSTOMER_MERGE_LOG...');
618:
619: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
620: INSERT INTO HZ_CUSTOMER_MERGE_LOG (
621: MERGE_LOG_ID,
648: );
649:
650: END IF;
651:
652: LogMessage(FND_LOG.LEVEL_STATEMENT,'Insertion Completed');
653:
654: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updating LNS_LOAN_HEADERS Table ...');
655:
656:
650: END IF;
651:
652: LogMessage(FND_LOG.LEVEL_STATEMENT,'Insertion Completed');
653:
654: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updating LNS_LOAN_HEADERS Table ...');
655:
656:
657: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
658: UPDATE LNS_PARTICIPANTS yt SET
663: WHERE PARTICIPANT_ID=PRIMARY_KEY_ID1_LIST(I);
664:
665: l_count := l_count + SQL%ROWCOUNT;
666:
667: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updation Completed');
668:
669: IF l_last_fetch THEN
670: EXIT;
671: END IF;
670: EXIT;
671: END IF;
672:
673: END LOOP;
674: LogMessage(FND_LOG.LEVEL_STATEMENT,'Total processed ' || l_count || ' ACCOUNT records');
675: arp_message.set_name('AR','AR_ROWS_UPDATED');
676: arp_message.set_token('NUM_ROWS',to_char(l_count));
677:
678:
683: PRIMARY_KEY_ID1_LIST.delete;
684: l_count := 0;
685: l_last_fetch := FALSE;
686:
687: LogMessage(FND_LOG.LEVEL_STATEMENT,'Searching for CUST_ACCT_SITE_ID records...');
688:
689: open merged_records2;
690: LOOP
691: FETCH merged_records2 BULK COLLECT INTO
692: MERGE_HEADER_ID_LIST
693: , PRIMARY_KEY_ID1_LIST
694: , NUM_COL2_ORIG_LIST;
695:
696: LogMessage(FND_LOG.LEVEL_STATEMENT,'Fetched ' || MERGE_HEADER_ID_LIST.COUNT || ' records');
697:
698: IF merged_records2%NOTFOUND THEN
699: l_last_fetch := TRUE;
700: END IF;
699: l_last_fetch := TRUE;
700: END IF;
701:
702: IF MERGE_HEADER_ID_LIST.COUNT = 0 and l_last_fetch then
703: LogMessage(FND_LOG.LEVEL_STATEMENT,'Exiting fetch of CustActSites');
704: exit;
705: END IF;
706:
707: FOR I in 1..MERGE_HEADER_ID_LIST.COUNT LOOP
708: NUM_COL2_NEW_LIST(I) := HZ_ACCT_MERGE_UTIL.GETDUP_SITE(NUM_COL2_ORIG_LIST(I));
709: END LOOP;
710:
711: IF l_profile_val IS NOT NULL AND l_profile_val = 'Y' THEN
712: LogMessage(FND_LOG.LEVEL_STATEMENT,'Inserting CustActSites into HZ_CUSTOMER_MERGE_LOG...');
713:
714: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
715: INSERT INTO HZ_CUSTOMER_MERGE_LOG (
716: MERGE_LOG_ID,
742: hz_utility_pub.LAST_UPDATED_BY);
743:
744: END IF;
745:
746: LogMessage(FND_LOG.LEVEL_STATEMENT,'Insertion of custAcctSites Completed');
747:
748: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updating custAcctSites in LNS_LOAN_HEADERS Table ...');
749:
750: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
744: END IF;
745:
746: LogMessage(FND_LOG.LEVEL_STATEMENT,'Insertion of custAcctSites Completed');
747:
748: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updating custAcctSites in LNS_LOAN_HEADERS Table ...');
749:
750: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
751: UPDATE LNS_PARTICIPANTS yt SET
752: BILL_TO_ACCT_SITE_ID=NUM_COL2_NEW_LIST(I)
756: WHERE PARTICIPANT_ID=PRIMARY_KEY_ID1_LIST(I);
757:
758: l_count := l_count + SQL%ROWCOUNT;
759:
760: LogMessage(FND_LOG.LEVEL_STATEMENT,'Updation of custAcctSites Completed');
761:
762: IF l_last_fetch THEN
763: EXIT;
764: END IF;
763: EXIT;
764: END IF;
765:
766: END LOOP;
767: LogMessage(FND_LOG.LEVEL_STATEMENT,'Total processed ' || l_count || ' CUST_ACCT_SITES records');
768: arp_message.set_name('AR','AR_ROWS_UPDATED');
769: arp_message.set_token('NUM_ROWS',to_char(l_count));
770:
771: END IF;
769: arp_message.set_token('NUM_ROWS',to_char(l_count));
770:
771: END IF;
772:
773: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' END -');
774:
775: EXCEPTION
776: WHEN OTHERS THEN
777: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' EXCEPTION');
773: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' END -');
774:
775: EXCEPTION
776: WHEN OTHERS THEN
777: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' EXCEPTION');
778: arp_message.set_line( 'MERGE_PARTICIPANTS_ACC');
779: RAISE;
780: END MERGE_PARTICIPANTS_ACC;
781: