137: If a duplicate exists then do not transfer and return the id of the duplicate record as the Merged To Id.
138: */
139:
140: /* updating PRIMARY_BORROWER_ID column */
141: UPDATE LNS_LOAN_HEADERS_ALL
142: SET PRIMARY_BORROWER_ID = p_To_FK_id,
143: last_update_date = HZ_UTILITY_V2PUB.last_update_date,
144: last_updated_by = HZ_UTILITY_V2PUB.user_id,
145: last_update_login = HZ_UTILITY_V2PUB.last_update_login,
147: program_id = HZ_UTILITY_V2PUB.program_id
148: WHERE PRIMARY_BORROWER_ID = p_from_fk_id;
149:
150: /* updating CONTACT_PERS_PARTY_ID column */
151: UPDATE LNS_LOAN_HEADERS_ALL
152: SET CONTACT_PERS_PARTY_ID = p_To_FK_id,
153: last_update_date = HZ_UTILITY_V2PUB.last_update_date,
154: last_updated_by = HZ_UTILITY_V2PUB.user_id,
155: last_update_login = HZ_UTILITY_V2PUB.last_update_login,
157: program_id = HZ_UTILITY_V2PUB.program_id
158: WHERE CONTACT_PERS_PARTY_ID = p_from_fk_id;
159:
160: /* updating CONTACT_REL_PARTY_ID column */
161: UPDATE LNS_LOAN_HEADERS_ALL
162: SET CONTACT_REL_PARTY_ID = p_To_FK_id,
163: last_update_date = HZ_UTILITY_V2PUB.last_update_date,
164: last_updated_by = HZ_UTILITY_V2PUB.user_id,
165: last_update_login = HZ_UTILITY_V2PUB.last_update_login,
260: INDEX BY BINARY_INTEGER;
261: MERGE_HEADER_ID_LIST MERGE_HEADER_ID_LIST_TYPE;
262:
263: TYPE LOAN_ID_LIST_TYPE IS TABLE OF
264: LNS_LOAN_HEADERS.LOAN_ID%TYPE
265: INDEX BY BINARY_INTEGER;
266: PRIMARY_KEY_ID1_LIST LOAN_ID_LIST_TYPE;
267:
268: TYPE CUST_ACCOUNT_ID_LIST_TYPE IS TABLE OF
265: INDEX BY BINARY_INTEGER;
266: PRIMARY_KEY_ID1_LIST LOAN_ID_LIST_TYPE;
267:
268: TYPE CUST_ACCOUNT_ID_LIST_TYPE IS TABLE OF
269: LNS_LOAN_HEADERS.CUST_ACCOUNT_ID%TYPE
270: INDEX BY BINARY_INTEGER;
271:
272: TYPE CUST_ACCT_SITE_ID_LIST_TYPE IS TABLE OF
273: LNS_LOAN_HEADERS.BILL_TO_ACCT_SITE_ID%TYPE
269: LNS_LOAN_HEADERS.CUST_ACCOUNT_ID%TYPE
270: INDEX BY BINARY_INTEGER;
271:
272: TYPE CUST_ACCT_SITE_ID_LIST_TYPE IS TABLE OF
273: LNS_LOAN_HEADERS.BILL_TO_ACCT_SITE_ID%TYPE
274: INDEX BY BINARY_INTEGER;
275:
276: NUM_COL1_ORIG_LIST CUST_ACCOUNT_ID_LIST_TYPE;
277: NUM_COL1_NEW_LIST CUST_ACCOUNT_ID_LIST_TYPE;
282: CURSOR merged_records IS
283: SELECT distinct CUSTOMER_MERGE_HEADER_ID
284: ,LOAN_ID
285: ,CUST_ACCOUNT_ID
286: FROM LNS_LOAN_HEADERS yt, ra_customer_merges m
287: WHERE
288: (yt.CUST_ACCOUNT_ID = m.DUPLICATE_ID)
289: AND m.process_flag = 'N'
290: AND m.request_id = req_id
293: CURSOR merged_records2 IS
294: SELECT distinct CUSTOMER_MERGE_HEADER_ID
295: ,LOAN_ID
296: ,CUSTOMER_ADDRESS_ID
297: FROM LNS_LOAN_HEADERS yt, ra_customer_merges m
298: WHERE
299: (yt.BILL_TO_ACCT_SITE_ID = m.DUPLICATE_ADDRESS_ID)
300: AND m.process_flag = 'N'
301: AND m.request_id = req_id
317: NULL;
318: ELSE
319:
320: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
321: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','LNS_LOAN_HEADERS',FALSE);
322: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
323: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
324:
325:
367: LAST_UPDATE_DATE,
368: LAST_UPDATED_BY)
369: VALUES
370: (HZ_CUSTOMER_MERGE_LOG_s.nextval,
371: 'LNS_LOAN_HEADERS',
372: MERGE_HEADER_ID_LIST(I),
373: PRIMARY_KEY_ID1_LIST(I),
374: NUM_COL1_ORIG_LIST(I),
375: NUM_COL1_NEW_LIST(I),
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)
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)
393: , LAST_UPDATE_DATE=SYSDATE
394: , last_updated_by=arp_standard.profile.user_id
395: , last_update_login=arp_standard.profile.last_update_login
461: LAST_UPDATE_DATE,
462: LAST_UPDATED_BY)
463: VALUES
464: (HZ_CUSTOMER_MERGE_LOG_s.nextval,
465: 'LNS_LOAN_HEADERS',
466: MERGE_HEADER_ID_LIST(I),
467: PRIMARY_KEY_ID1_LIST(I),
468: NUM_COL2_ORIG_LIST(I),
469: NUM_COL2_NEW_LIST(I),
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)
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)
487: , LAST_UPDATE_DATE=SYSDATE
488: , last_updated_by=arp_standard.profile.user_id
489: , last_update_login=arp_standard.profile.last_update_login
536: LNS_PARTICIPANTS.CUST_ACCOUNT_ID%TYPE
537: INDEX BY BINARY_INTEGER;
538:
539: TYPE CUST_ACCT_SITE_ID_LIST_TYPE IS TABLE OF
540: LNS_LOAN_HEADERS.BILL_TO_ACCT_SITE_ID%TYPE
541: INDEX BY BINARY_INTEGER;
542:
543: NUM_COL1_ORIG_LIST CUST_ACCOUNT_ID_LIST_TYPE;
544: NUM_COL1_NEW_LIST CUST_ACCOUNT_ID_LIST_TYPE;
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
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)