[Home] [Help]
109: If a duplicate exists then do not transfer and return the id of the duplicate record as the Merged To Id.
110: */
111:
112: /* updating HZ_PARTY_ID column */
113: UPDATE LNS_PARTICIPANTS
114: SET HZ_PARTY_ID = p_To_FK_id,
115: last_update_date = HZ_UTILITY_V2PUB.last_update_date,
116: last_updated_by = HZ_UTILITY_V2PUB.user_id,
117: last_update_login = HZ_UTILITY_V2PUB.last_update_login
117: last_update_login = HZ_UTILITY_V2PUB.last_update_login
118: WHERE HZ_PARTY_ID = p_from_fk_id;
119:
120: /* updating CONTACT_PERS_PARTY_ID column */
121: UPDATE LNS_PARTICIPANTS
122: SET CONTACT_PERS_PARTY_ID = p_To_FK_id,
123: last_update_date = HZ_UTILITY_V2PUB.last_update_date,
124: last_updated_by = HZ_UTILITY_V2PUB.user_id,
125: last_update_login = HZ_UTILITY_V2PUB.last_update_login
125: last_update_login = HZ_UTILITY_V2PUB.last_update_login
126: WHERE CONTACT_PERS_PARTY_ID = p_from_fk_id;
127:
128: /* updating CONTACT_REL_PARTY_ID column */
129: UPDATE LNS_PARTICIPANTS
130: SET CONTACT_REL_PARTY_ID = p_To_FK_id,
131: last_update_date = HZ_UTILITY_V2PUB.last_update_date,
132: last_updated_by = HZ_UTILITY_V2PUB.user_id,
133: last_update_login = HZ_UTILITY_V2PUB.last_update_login
285: INDEX BY BINARY_INTEGER;
286: MERGE_HEADER_ID_LIST MERGE_HEADER_ID_LIST_TYPE;
287:
288: TYPE PARTICIPANT_ID_LIST_TYPE IS TABLE OF
289: LNS_PARTICIPANTS.PARTICIPANT_ID%TYPE
290: INDEX BY BINARY_INTEGER;
291: PRIMARY_KEY_ID1_LIST PARTICIPANT_ID_LIST_TYPE;
292:
293: TYPE CUST_ACCOUNT_ID_LIST_TYPE IS TABLE OF
290: INDEX BY BINARY_INTEGER;
291: PRIMARY_KEY_ID1_LIST PARTICIPANT_ID_LIST_TYPE;
292:
293: TYPE CUST_ACCOUNT_ID_LIST_TYPE IS TABLE OF
294: LNS_PARTICIPANTS.CUST_ACCOUNT_ID%TYPE
295: INDEX BY BINARY_INTEGER;
296: NUM_COL1_ORIG_LIST CUST_ACCOUNT_ID_LIST_TYPE;
297: NUM_COL1_NEW_LIST CUST_ACCOUNT_ID_LIST_TYPE;
298:
300: CURSOR merged_records IS
301: SELECT distinct CUSTOMER_MERGE_HEADER_ID
302: ,PARTICIPANT_ID
303: ,CUST_ACCOUNT_ID
304: FROM LNS_PARTICIPANTS yt, ra_customer_merges m
305: WHERE (
306: yt.CUST_ACCOUNT_ID = m.DUPLICATE_ID
307: ) AND m.process_flag = 'N'
308: AND m.request_id = req_id
317:
318: ELSE
319:
320: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
321: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','LNS_PARTICIPANTS',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: open merged_records;
357: LAST_UPDATE_DATE,
358: LAST_UPDATED_BY
359: ) VALUES (
360: HZ_CUSTOMER_MERGE_LOG_s.nextval,
361: 'LNS_PARTICIPANTS',
362: MERGE_HEADER_ID_LIST(I),
363: PRIMARY_KEY_ID1_LIST(I),
364: NUM_COL1_ORIG_LIST(I),
365: NUM_COL1_NEW_LIST(I),
374:
375: END IF;
376:
377: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
378: UPDATE LNS_PARTICIPANTS yt SET
379: CUST_ACCOUNT_ID=NUM_COL1_NEW_LIST(I)
380: , LAST_UPDATE_DATE=SYSDATE
381: , last_updated_by=arp_standard.profile.user_id
382: , last_update_login=arp_standard.profile.last_update_login