8: |
9: | PROCEDURE
10: | SCORE_HISTORY_MERGE
11: | DESCRIPTION :
12: | Account merge procedure for the table, IEX_SCORE_HISTORIES
13: |
14: | NOTES:
15: | ******* Please delete these lines after modifications *******
16: | This account merge procedure was NOT generated using a perl script.
29: INDEX BY BINARY_INTEGER;
30: MERGE_HEADER_ID_LIST MERGE_HEADER_ID_LIST_TYPE;
31:
32: TYPE SCORE_HISTORY_ID_LIST_TYPE IS TABLE OF
33: IEX_SCORE_HISTORIES.SCORE_HISTORY_ID%TYPE
34: INDEX BY BINARY_INTEGER;
35: PRIMARY_KEY_ID_LIST SCORE_HISTORY_ID_LIST_TYPE;
36:
37: TYPE SCORE_OBJECT_ID_LIST_TYPE IS TABLE OF
34: INDEX BY BINARY_INTEGER;
35: PRIMARY_KEY_ID_LIST SCORE_HISTORY_ID_LIST_TYPE;
36:
37: TYPE SCORE_OBJECT_ID_LIST_TYPE IS TABLE OF
38: IEX_SCORE_HISTORIES.SCORE_OBJECT_ID%TYPE
39: INDEX BY BINARY_INTEGER;
40: NUM_COL1_ORIG_LIST SCORE_OBJECT_ID_LIST_TYPE;
41: NUM_COL1_NEW_LIST SCORE_OBJECT_ID_LIST_TYPE;
42: NUM_COL2_ORIG_LIST SCORE_OBJECT_ID_LIST_TYPE;
49: CURSOR merged_records1 IS
50: SELECT distinct CUSTOMER_MERGE_HEADER_ID
51: ,SCORE_HISTORY_ID
52: ,SCORE_OBJECT_ID
53: FROM IEX_SCORE_HISTORIES yt, ra_customer_merges m
54: WHERE yt.SCORE_OBJECT_ID = m.DUPLICATE_ID AND
55: m.process_flag = 'N' AND
56: m.request_id = req_id AND
57: m.set_number = set_num AND
60: CURSOR merged_records2 IS
61: SELECT distinct CUSTOMER_MERGE_HEADER_ID
62: ,SCORE_HISTORY_ID
63: ,SCORE_OBJECT_ID
64: FROM IEX_SCORE_HISTORIES yt, ra_customer_merges m
65: WHERE yt.SCORE_OBJECT_ID = m.DUPLICATE_ADDRESS_ID AND
66: m.process_flag = 'N' AND
67: m.request_id = req_id AND
68: m.set_number = set_num AND
71: CURSOR merged_records3 IS
72: SELECT distinct CUSTOMER_MERGE_HEADER_ID
73: ,SCORE_HISTORY_ID
74: ,SCORE_OBJECT_ID
75: FROM IEX_SCORE_HISTORIES yt, ra_customer_merges m
76: WHERE yt.SCORE_OBJECT_ID = m.DUPLICATE_SITE_ID AND
77: m.process_flag = 'N' AND
78: m.request_id = req_id AND
79: m.set_number = set_num AND
92: IF process_mode='LOCK' THEN
93: NULL;
94: ELSE
95: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
96: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_SCORE_HISTORIES',FALSE);
97: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
98: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
99:
100: /* process IEX_SCORE_HISTORIES.SCORE_OBJECT_ID.OBJECT_CODE='IEX_ACCOUNT' */
96: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','IEX_SCORE_HISTORIES',FALSE);
97: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
98: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
99:
100: /* process IEX_SCORE_HISTORIES.SCORE_OBJECT_ID.OBJECT_CODE='IEX_ACCOUNT' */
101: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
102: IEX_DEBUG_PUB.logMessage('IEX_SCORE_HISTORIES.SCORE_OBJECT_ID.OBJECT_CODE=IEX_ACCOUNT');
103: END IF;
104: open merged_records1;
98: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
99:
100: /* process IEX_SCORE_HISTORIES.SCORE_OBJECT_ID.OBJECT_CODE='IEX_ACCOUNT' */
101: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
102: IEX_DEBUG_PUB.logMessage('IEX_SCORE_HISTORIES.SCORE_OBJECT_ID.OBJECT_CODE=IEX_ACCOUNT');
103: END IF;
104: open merged_records1;
105: LOOP
106: FETCH merged_records1 BULK COLLECT INTO
137: LAST_UPDATE_LOGIN,
138: LAST_UPDATE_DATE,
139: LAST_UPDATED_BY) VALUES
140: (HZ_CUSTOMER_MERGE_LOG_s.nextval,
141: 'IEX_SCORE_HISTORIES',
142: MERGE_HEADER_ID_LIST(I),
143: PRIMARY_KEY_ID_LIST(I),
144: NUM_COL1_ORIG_LIST(I),
145: NUM_COL1_NEW_LIST(I),
163:
164: select count(CUST_ACCOUNT_ID) into l_acc_status_cnt from hz_cust_accounts where CUST_ACCOUNT_ID = NUM_COL1_ORIG_LIST(I) and status = 'A';
165: if l_acc_status_cnt = 0 then
166:
167: UPDATE IEX_SCORE_HISTORIES yt SET
168: SCORE_OBJECT_ID = NUM_COL1_NEW_LIST(I)
169: , LAST_UPDATE_DATE = SYSDATE
170: , last_updated_by = arp_standard.profile.user_id
171: , last_update_login = arp_standard.profile.last_update_login
186: arp_message.set_name('AR','AR_ROWS_UPDATED');
187: arp_message.set_token('NUM_ROWS',to_char(l_count));
188:
189: <
190: /* process IEX_SCORE_HISTORIES.SCORE_OBJECT_ID where JTF_OBJECT_TYPE = 'IEX_ACCOUNT_SITE' */
191: MERGE_HEADER_ID_LIST.delete;
192: PRIMARY_KEY_ID_LIST.delete;
193: l_count := 0;
194: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
191: MERGE_HEADER_ID_LIST.delete;
192: PRIMARY_KEY_ID_LIST.delete;
193: l_count := 0;
194: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
195: IEX_DEBUG_PUB.logMessage('IEX_SCORE_HISTORIES.SCORE_OBJECT_ID.OBJECT_CODE=IEX_ACCOUNT_SITE');
196: END IF;
197: open merged_records2;
198: LOOP
199: FETCH merged_records2 BULK COLLECT INTO
231: LAST_UPDATE_LOGIN,
232: LAST_UPDATE_DATE,
233: LAST_UPDATED_BY) VALUES
234: (HZ_CUSTOMER_MERGE_LOG_s.nextval,
235: 'IEX_SCORE_HISTORIES',
236: MERGE_HEADER_ID_LIST(I),
237: PRIMARY_KEY_ID_LIST(I),
238: NUM_COL1_ORIG_LIST(I),
239: NUM_COL1_NEW_LIST(I),
256: FOR I in 1..MERGE_HEADER_ID_LIST.COUNT loop
257:
258: select count(CUST_ACCT_site_id) into l_acc_status_cnt from hz_cust_site_uses_all where cust_acct_site_id = NUM_COL2_ORIG_LIST(I) and status = 'A';
259: if l_acc_status_cnt = 0 then
260: UPDATE IEX_SCORE_HISTORIES yt SET
261: SCORE_OBJECT_ID = NUM_COL2_NEW_LIST(I)
262: , LAST_UPDATE_DATE = SYSDATE
263: , last_updated_by = arp_standard.profile.user_id
264: , last_update_login = arp_standard.profile.last_update_login
276: END IF;
277: END LOOP;
278:
279: <
280: /* process IEX_SCORE_HISTORIES.SCORE_OBJECT_ID where JTF_OBJECT_TYPE = 'IEX_BILLTO' */
281: MERGE_HEADER_ID_LIST.delete;
282: PRIMARY_KEY_ID_LIST.delete;
283: l_count := 0;
284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
281: MERGE_HEADER_ID_LIST.delete;
282: PRIMARY_KEY_ID_LIST.delete;
283: l_count := 0;
284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
285: IEX_DEBUG_PUB.logMessage('IEX_SCORE_HISTORIES.SCORE_OBJECT_ID.OBJECT_CODE=IEX_BILLTO');
286: END IF;
287: open merged_records3;
288: LOOP
289: FETCH merged_records1 BULK COLLECT INTO
320: LAST_UPDATE_LOGIN,
321: LAST_UPDATE_DATE,
322: LAST_UPDATED_BY) VALUES
323: (HZ_CUSTOMER_MERGE_LOG_s.nextval,
324: 'IEX_SCORE_HISTORIES',
325: MERGE_HEADER_ID_LIST(I),
326: PRIMARY_KEY_ID_LIST(I),
327: NUM_COL3_ORIG_LIST(I),
328: NUM_COL3_NEW_LIST(I),
345: FOR I in 1..MERGE_HEADER_ID_LIST.COUNT loop
346:
347: select count(site_use_id) into l_acc_status_cnt from hz_cust_site_uses_all where site_use_id = NUM_COL3_ORIG_LIST(I) and status = 'A';
348: if l_acc_status_cnt = 0 then
349: UPDATE IEX_SCORE_HISTORIES yt SET
350: SCORE_OBJECT_ID = NUM_COL3_NEW_LIST(I)
351: , LAST_UPDATE_DATE = SYSDATE
352: , last_updated_by = arp_standard.profile.user_id
353: , last_update_login = arp_standard.profile.last_update_login
1695: iex_cases_all_b
1696: iex_writeoffs
1697: iex_bankruptcies
1698: iex_litigations
1699: -- 02182002 add IEX_SCORE_HISTORIES
1700: IEX_STRATEGIES
1701: */
1702: UPDATE IEX_STRATEGIES
1703: SET JTF_OBJECT_ID = p_To_FK_ID,
1727: WHERE PARTY_ID = p_from_fk_id;
1728: -- End - 10/12/2005 - Andre Araujo - Need to update party_id also
1729:
1730:
1731: UPDATE IEX_SCORE_HISTORIES
1732: SET SCORE_OBJECT_ID = p_To_FK_ID,
1733: last_update_date = HZ_UTILITY_V2PUB.last_update_date,
1734: last_updated_by = HZ_UTILITY_V2PUB.user_id,
1735: last_update_login = HZ_UTILITY_V2PUB.last_update_login,