89:
90: IF process_mode='LOCK' THEN
91: NULL;
92: ELSE
93: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
94: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_SCORE_HISTORIES',FALSE);
95: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
96: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
97:
90: IF process_mode='LOCK' THEN
91: NULL;
92: ELSE
93: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
94: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_SCORE_HISTORIES',FALSE);
95: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
96: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
97:
98: /* process IEX_SCORE_HISTORIES.SCORE_OBJECT_ID.OBJECT_CODE='IEX_ACCOUNT' */
171: goto iex_score_account_site;
172: END IF;
173: END LOOP;
174:
175: arp_message.set_name('AR','AR_ROWS_UPDATED');
176: arp_message.set_token('NUM_ROWS',to_char(l_count));
177:
178: <
179: /* process IEX_SCORE_HISTORIES.SCORE_OBJECT_ID where JTF_OBJECT_TYPE = 'IEX_ACCOUNT_SITE' */
172: END IF;
173: END LOOP;
174:
175: arp_message.set_name('AR','AR_ROWS_UPDATED');
176: arp_message.set_token('NUM_ROWS',to_char(l_count));
177:
178: <
179: /* process IEX_SCORE_HISTORIES.SCORE_OBJECT_ID where JTF_OBJECT_TYPE = 'IEX_ACCOUNT_SITE' */
180: MERGE_HEADER_ID_LIST.delete;
337: EXIT;
338: END IF;
339: END LOOP;
340:
341: arp_message.set_name('AR','AR_ROWS_UPDATED');
342: arp_message.set_token('NUM_ROWS',to_char(l_count));
343: END IF;
344: EXCEPTION
345: WHEN OTHERS THEN
338: END IF;
339: END LOOP;
340:
341: arp_message.set_name('AR','AR_ROWS_UPDATED');
342: arp_message.set_token('NUM_ROWS',to_char(l_count));
343: END IF;
344: EXCEPTION
345: WHEN OTHERS THEN
346: arp_message.set_line('SCORE_HISTORY_MERGE');
342: arp_message.set_token('NUM_ROWS',to_char(l_count));
343: END IF;
344: EXCEPTION
345: WHEN OTHERS THEN
346: arp_message.set_line('SCORE_HISTORY_MERGE');
347: RAISE;
348: END SCORE_HISTORY_MERGE;
349:
350: /*-------------------------------------------------------------
417: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
418: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.DUNNING_MERGE BEGIN');
419: END IF;
420:
421: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
422: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_DUNNING',FALSE);
423: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
424: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
425:
418: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.DUNNING_MERGE BEGIN');
419: END IF;
420:
421: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
422: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_DUNNING',FALSE);
423: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
424: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
425:
426: /* process IEX_STRATEGIES.CUST_ACCOUNT_ID */
502: goto iex_account;
503: END IF;
504: END LOOP;
505:
506: arp_message.set_name('AR','AR_ROWS_UPDATED');
507: arp_message.set_token('NUM_ROWS',to_char(l_count));
508:
509: <
510: /* process IEX_DUNNINGS.DUNNING_OBJECT_ID where DUNNING_LEVEL = 'BILLTO' */
503: END IF;
504: END LOOP;
505:
506: arp_message.set_name('AR','AR_ROWS_UPDATED');
507: arp_message.set_token('NUM_ROWS',to_char(l_count));
508:
509: <
510: /* process IEX_DUNNINGS.DUNNING_OBJECT_ID where DUNNING_LEVEL = 'BILLTO' */
511: MERGE_HEADER_ID_LIST.delete;
589: EXIT;
590: END IF;
591: END LOOP;
592:
593: arp_message.set_name('AR','AR_ROWS_UPDATED');
594: arp_message.set_token('NUM_ROWS',to_char(l_count));
595: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
596: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.DUNNNING_MERGE END');
597: END IF;
590: END IF;
591: END LOOP;
592:
593: arp_message.set_name('AR','AR_ROWS_UPDATED');
594: arp_message.set_token('NUM_ROWS',to_char(l_count));
595: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
596: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.DUNNNING_MERGE END');
597: END IF;
598:
598:
599: END IF;
600: EXCEPTION
601: WHEN OTHERS THEN
602: arp_message.set_line( 'DUNNNING_MERGE');
603: RAISE;
604: END DUNNING_MERGE;
605:
606: /*-------------------------------------------------------------
709: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
710: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.STRATEGY_MERGE BEGIN');
711: END IF;
712:
713: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
714: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_STRATEGIES',FALSE);
715: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
716: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
717:
710: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.STRATEGY_MERGE BEGIN');
711: END IF;
712:
713: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
714: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_STRATEGIES',FALSE);
715: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
716: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
717:
718: /* process IEX_STRATEGIES.CUST_ACCOUNT_ID */
793: goto iex_account;
794: END IF;
795: END LOOP;
796:
797: arp_message.set_name('AR','AR_ROWS_UPDATED');
798: arp_message.set_token('NUM_ROWS',to_char(l_count));
799:
800: <
801: /* process IEX_STRATEGIES.JTF_OBJECT_ID where JTF_OBJECT_TYPE = 'IEX_ACCOUNT' */
794: END IF;
795: END LOOP;
796:
797: arp_message.set_name('AR','AR_ROWS_UPDATED');
798: arp_message.set_token('NUM_ROWS',to_char(l_count));
799:
800: <
801: /* process IEX_STRATEGIES.JTF_OBJECT_ID where JTF_OBJECT_TYPE = 'IEX_ACCOUNT' */
802: MERGE_HEADER_ID_LIST.delete;
889: goto iex_billto;
890: END IF;
891: END LOOP;
892:
893: arp_message.set_name('AR','AR_ROWS_UPDATED');
894: arp_message.set_token('NUM_ROWS',to_char(l_count));
895:
896: <
897:
890: END IF;
891: END LOOP;
892:
893: arp_message.set_name('AR','AR_ROWS_UPDATED');
894: arp_message.set_token('NUM_ROWS',to_char(l_count));
895:
896: <
897:
898: /* process IEX_STRATEGIES.JTF_OBJECT_ID where JTF_OBJECT_TYPE = 'IEX_BILLTO' */
990: EXIT;
991: END IF;
992: END LOOP;
993:
994: arp_message.set_name('AR','AR_ROWS_UPDATED');
995: arp_message.set_token('NUM_ROWS',to_char(l_count));
996:
997: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
998: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.STRATEGY_MERGE END');
991: END IF;
992: END LOOP;
993:
994: arp_message.set_name('AR','AR_ROWS_UPDATED');
995: arp_message.set_token('NUM_ROWS',to_char(l_count));
996:
997: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
998: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.STRATEGY_MERGE END');
999: END IF;
1000:
1001: END IF;
1002: EXCEPTION
1003: WHEN OTHERS THEN
1004: arp_message.set_line( 'STRATEGY_MERGE');
1005: RAISE;
1006: END STRATEGY_MERGE;
1007:
1008:
1042: BEGIN
1043: IF process_mode='LOCK' THEN
1044: NULL;
1045: ELSE
1046: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
1047: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_PROMISE_DETAILS',FALSE);
1048: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
1049: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
1050:
1043: IF process_mode='LOCK' THEN
1044: NULL;
1045: ELSE
1046: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
1047: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_PROMISE_DETAILS',FALSE);
1048: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
1049: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
1050:
1051: open merged_records;
1116: EXIT;
1117: END IF;
1118: END LOOP;
1119:
1120: arp_message.set_name('AR','AR_ROWS_UPDATED');
1121: arp_message.set_token('NUM_ROWS',to_char(l_count));
1122: END IF;
1123: EXCEPTION
1124: WHEN OTHERS THEN
1117: END IF;
1118: END LOOP;
1119:
1120: arp_message.set_name('AR','AR_ROWS_UPDATED');
1121: arp_message.set_token('NUM_ROWS',to_char(l_count));
1122: END IF;
1123: EXCEPTION
1124: WHEN OTHERS THEN
1125: arp_message.set_line( 'PROMISE_MERGE');
1121: arp_message.set_token('NUM_ROWS',to_char(l_count));
1122: END IF;
1123: EXCEPTION
1124: WHEN OTHERS THEN
1125: arp_message.set_line( 'PROMISE_MERGE');
1126: RAISE;
1127: END PROMISE_MERGE;
1128:
1129: PROCEDURE DELINQUENCY_MERGE (
1215:
1216: IF process_mode='LOCK' THEN
1217: NULL;
1218: ELSE
1219: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
1220: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_DELINQUENCIES',FALSE);
1221: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
1222: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
1223:
1216: IF process_mode='LOCK' THEN
1217: NULL;
1218: ELSE
1219: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
1220: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_DELINQUENCIES',FALSE);
1221: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
1222: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
1223:
1224: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1327: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1328: IEX_DEBUG_PUB.logMessage('Total processed ' || l_count || ' ACCOUNT records');
1329: END IF;
1330:
1331: arp_message.set_name('AR','AR_ROWS_UPDATED');
1332: arp_message.set_token('NUM_ROWS',to_char(l_count));
1333:
1334: <
1335: /* merging CUSTOMER_SITE_USE_ID */
1328: IEX_DEBUG_PUB.logMessage('Total processed ' || l_count || ' ACCOUNT records');
1329: END IF;
1330:
1331: arp_message.set_name('AR','AR_ROWS_UPDATED');
1332: arp_message.set_token('NUM_ROWS',to_char(l_count));
1333:
1334: <
1335: /* merging CUSTOMER_SITE_USE_ID */
1336:
1439: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1440: IEX_DEBUG_PUB.logMessage('Total processed ' || l_count || ' CUSTOMER_SITE_USE_ID records');
1441: END IF;
1442:
1443: arp_message.set_name('AR','AR_ROWS_UPDATED');
1444: arp_message.set_token('NUM_ROWS',to_char(l_count));
1445:
1446: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1447: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.DELINQUENCY_MERGE END');
1440: IEX_DEBUG_PUB.logMessage('Total processed ' || l_count || ' CUSTOMER_SITE_USE_ID records');
1441: END IF;
1442:
1443: arp_message.set_name('AR','AR_ROWS_UPDATED');
1444: arp_message.set_token('NUM_ROWS',to_char(l_count));
1445:
1446: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1447: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.DELINQUENCY_MERGE END');
1448: END IF;
1452: WHEN OTHERS THEN
1453: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1454: IEX_DEBUG_PUB.logMessage('In IEX_MERGE_PVT.DELINQUENCY_MERGE exception');
1455: END IF;
1456: arp_message.set_line('DELINQUENCY_MERGE');
1457: RAISE;
1458: END DELINQUENCY_MERGE;
1459:
1460: PROCEDURE MERGE_DELINQUENCY_PARTIES(p_entity_name IN VARCHAR2,
1910: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1911: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT.CASE_CONTACT_MERGE EXCEPTION:');
1912: IEX_DEBUG_PUB.logMessage('IEX_MERGE_PVT' || '.' || l_api_name || ': ' || sqlerrm);
1913: END IF;
1914: arp_message.set_line('IEX_MERGE_PVT' || '.' || l_api_name || ': ' || sqlerrm);
1915: x_return_status := FND_API.G_RET_STS_ERROR;
1916: raise;
1917: END;
1918: END IF;