378: |
379: | PROCEDURE
380: | DUNNING_MERGE
381: | DESCRIPTION :
382: | Account merge procedure for the table, IEX_DUNNINGS
383: |
384: | NOTES:
385: | ******* Please delete these lines after modifications *******
386: | This account merge procedure was NOT generated using a perl script.
395: INDEX BY BINARY_INTEGER;
396: MERGE_HEADER_ID_LIST MERGE_HEADER_ID_LIST_TYPE;
397:
398: TYPE DUNNING_ID_LIST_TYPE IS TABLE OF
399: IEX_DUNNINGS.DUNNING_ID%TYPE
400: INDEX BY BINARY_INTEGER;
401: PRIMARY_KEY_ID_LIST DUNNING_ID_LIST_TYPE;
402:
403: TYPE DUNNING_OBJECT_ID_LIST_TYPE IS TABLE OF
400: INDEX BY BINARY_INTEGER;
401: PRIMARY_KEY_ID_LIST DUNNING_ID_LIST_TYPE;
402:
403: TYPE DUNNING_OBJECT_ID_LIST_TYPE IS TABLE OF
404: IEX_DUNNINGS.DUNNING_OBJECT_ID%TYPE
405: INDEX BY BINARY_INTEGER;
406: NUM_COL1_ORIG_LIST DUNNING_OBJECT_ID_LIST_TYPE;
407: NUM_COL1_NEW_LIST DUNNING_OBJECT_ID_LIST_TYPE;
408: NUM_COL2_ORIG_LIST DUNNING_OBJECT_ID_LIST_TYPE;
409: NUM_COL2_NEW_LIST DUNNING_OBJECT_ID_LIST_TYPE;
410:
411: l_profile_val VARCHAR2(30);
412:
413: /* this cursor is for IEX_DUNNINGS.OBJECT_ID column update if Object is IEX_ACCOUNT */
414: CURSOR merged_records1 IS
415: SELECT distinct CUSTOMER_MERGE_HEADER_ID
416: ,DUNNING_ID
417: ,DUNNING_OBJECT_ID
414: CURSOR merged_records1 IS
415: SELECT distinct CUSTOMER_MERGE_HEADER_ID
416: ,DUNNING_ID
417: ,DUNNING_OBJECT_ID
418: FROM IEX_DUNNINGS yt, ra_customer_merges m
419: WHERE yt.DUNNING_OBJECT_ID = m.DUPLICATE_ID AND
420: m.process_flag = 'N' AND
421: m.request_id = req_id AND
422: m.set_number = set_num AND
421: m.request_id = req_id AND
422: m.set_number = set_num AND
423: yt.DUNNING_LEVEL = 'ACCOUNT';
424:
425: /* this cursor is for IEX_DUNNINGS.DUNNING_OBJECT_ID column update if Object is 'BILL_TO' */
426: CURSOR merged_records2 IS
427: SELECT distinct CUSTOMER_MERGE_HEADER_ID
428: ,DUNNING_ID
429: ,DUNNING_OBJECT_ID
426: CURSOR merged_records2 IS
427: SELECT distinct CUSTOMER_MERGE_HEADER_ID
428: ,DUNNING_ID
429: ,DUNNING_OBJECT_ID
430: FROM IEX_DUNNINGS yt, ra_customer_merges m
431: WHERE yt.DUNNING_OBJECT_ID = m.DUPLICATE_SITE_ID AND
432: m.process_flag = 'N' AND
433: m.request_id = req_id AND
434: m.set_number = set_num AND
511: LAST_UPDATE_DATE,
512: LAST_UPDATED_BY)
513: VALUES
514: (HZ_CUSTOMER_MERGE_LOG_s.nextval,
515: 'IEX_DUNNINGS',
516: MERGE_HEADER_ID_LIST(I),
517: PRIMARY_KEY_ID_LIST(I),
518: NUM_COL1_ORIG_LIST(I),
519: NUM_COL1_NEW_LIST(I),
539: FOR I in 1..MERGE_HEADER_ID_LIST.COUNT loop
540:
541: 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';
542: if l_acc_status_cnt = 0 then
543: UPDATE IEX_DUNNINGS yt SET
544: DUNNING_OBJECT_ID = NUM_COL1_NEW_LIST(I)
545: , LAST_UPDATE_DATE = SYSDATE
546: , last_updated_by = arp_standard.profile.user_id
547: , last_update_login = arp_standard.profile.last_update_login
566: arp_message.set_name('AR','AR_ROWS_UPDATED');
567: arp_message.set_token('NUM_ROWS',to_char(l_count));
568:
569:
570: /* process IEX_DUNNINGS.DUNNING_OBJECT_ID where DUNNING_LEVEL = 'BILLTO' */
571: MERGE_HEADER_ID_LIST.delete;
572: PRIMARY_KEY_ID_LIST.delete;
573: l_count := 0;
574: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
571: MERGE_HEADER_ID_LIST.delete;
572: PRIMARY_KEY_ID_LIST.delete;
573: l_count := 0;
574: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
575: IEX_DEBUG_PUB.logMessage('IEX_DUNNINGS.DUNNING_OBJECT_ID.TYPE=ACCOUNT END');
576:
577: END IF;
578: open merged_records2;
579: LOOP
620: LAST_UPDATE_DATE,
621: LAST_UPDATED_BY)
622: VALUES
623: (HZ_CUSTOMER_MERGE_LOG_s.nextval,
624: 'IEX_DUNNINGS',
625: MERGE_HEADER_ID_LIST(I),
626: PRIMARY_KEY_ID_LIST(I),
627: NUM_COL2_ORIG_LIST(I),
628: NUM_COL2_NEW_LIST(I),
646: FOR I in 1..MERGE_HEADER_ID_LIST.COUNT loop
647:
648: select count(site_use_id) into l_acc_status_cnt from hz_cust_site_uses_all where site_use_id = NUM_COL2_ORIG_LIST(I) and status = 'A';
649: if l_acc_status_cnt = 0 then
650: UPDATE IEX_DUNNINGS yt SET
651: DUNNING_OBJECT_ID = NUM_COL2_NEW_LIST(I)
652: , LAST_UPDATE_DATE = SYSDATE
653: , last_updated_by = arp_standard.profile.user_id
654: , last_update_login = arp_standard.profile.last_update_login