DBA Data[Home] [Help]

APPS.IEX_MERGE_PVT dependencies on IEX_DUNNINGS

Line 382: | Account merge procedure for the table, IEX_DUNNINGS

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.

Line 399: IEX_DUNNINGS.DUNNING_ID%TYPE

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

Line 404: IEX_DUNNINGS.DUNNING_OBJECT_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
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;

Line 413: /* this cursor is for IEX_DUNNINGS.OBJECT_ID column update if Object is IEX_ACCOUNT */

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

Line 418: FROM IEX_DUNNINGS yt, ra_customer_merges m

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

Line 425: /* this cursor is for IEX_DUNNINGS.DUNNING_OBJECT_ID column update if Object is 'BILL_TO' */

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

Line 430: FROM IEX_DUNNINGS yt, ra_customer_merges m

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

Line 515: 'IEX_DUNNINGS',

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),

Line 543: UPDATE IEX_DUNNINGS yt SET

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

Line 570: /* process IEX_DUNNINGS.DUNNING_OBJECT_ID where DUNNING_LEVEL = 'BILLTO' */

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

Line 575: IEX_DEBUG_PUB.logMessage('IEX_DUNNINGS.DUNNING_OBJECT_ID.TYPE=ACCOUNT END');

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

Line 624: 'IEX_DUNNINGS',

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),

Line 650: UPDATE IEX_DUNNINGS yt SET

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