DBA Data[Home] [Help]

APPS.IEX_MERGE_PVT dependencies on IEX_DUNNINGS

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

351: |
352: | PROCEDURE
353: | DUNNING_MERGE
354: | DESCRIPTION :
355: | Account merge procedure for the table, IEX_DUNNINGS
356: |
357: | NOTES:
358: | ******* Please delete these lines after modifications *******
359: | This account merge procedure was NOT generated using a perl script.

Line 372: IEX_DUNNINGS.DUNNING_ID%TYPE

368: INDEX BY BINARY_INTEGER;
369: MERGE_HEADER_ID_LIST MERGE_HEADER_ID_LIST_TYPE;
370:
371: TYPE DUNNING_ID_LIST_TYPE IS TABLE OF
372: IEX_DUNNINGS.DUNNING_ID%TYPE
373: INDEX BY BINARY_INTEGER;
374: PRIMARY_KEY_ID_LIST DUNNING_ID_LIST_TYPE;
375:
376: TYPE DUNNING_OBJECT_ID_LIST_TYPE IS TABLE OF

Line 377: IEX_DUNNINGS.DUNNING_OBJECT_ID%TYPE

373: INDEX BY BINARY_INTEGER;
374: PRIMARY_KEY_ID_LIST DUNNING_ID_LIST_TYPE;
375:
376: TYPE DUNNING_OBJECT_ID_LIST_TYPE IS TABLE OF
377: IEX_DUNNINGS.DUNNING_OBJECT_ID%TYPE
378: INDEX BY BINARY_INTEGER;
379: NUM_COL1_ORIG_LIST DUNNING_OBJECT_ID_LIST_TYPE;
380: NUM_COL1_NEW_LIST DUNNING_OBJECT_ID_LIST_TYPE;
381: NUM_COL2_ORIG_LIST DUNNING_OBJECT_ID_LIST_TYPE;

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

382: NUM_COL2_NEW_LIST DUNNING_OBJECT_ID_LIST_TYPE;
383:
384: l_profile_val VARCHAR2(30);
385:
386: /* this cursor is for IEX_DUNNINGS.OBJECT_ID column update if Object is IEX_ACCOUNT */
387: CURSOR merged_records1 IS
388: SELECT distinct CUSTOMER_MERGE_HEADER_ID
389: ,DUNNING_ID
390: ,DUNNING_OBJECT_ID

Line 391: FROM IEX_DUNNINGS yt, ra_customer_merges m

387: CURSOR merged_records1 IS
388: SELECT distinct CUSTOMER_MERGE_HEADER_ID
389: ,DUNNING_ID
390: ,DUNNING_OBJECT_ID
391: FROM IEX_DUNNINGS yt, ra_customer_merges m
392: WHERE yt.DUNNING_OBJECT_ID = m.DUPLICATE_ID AND
393: m.process_flag = 'N' AND
394: m.request_id = req_id AND
395: m.set_number = set_num AND

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

394: m.request_id = req_id AND
395: m.set_number = set_num AND
396: yt.DUNNING_LEVEL = 'ACCOUNT';
397:
398: /* this cursor is for IEX_DUNNINGS.DUNNING_OBJECT_ID column update if Object is 'BILL_TO' */
399: CURSOR merged_records2 IS
400: SELECT distinct CUSTOMER_MERGE_HEADER_ID
401: ,DUNNING_ID
402: ,DUNNING_OBJECT_ID

Line 403: FROM IEX_DUNNINGS yt, ra_customer_merges m

399: CURSOR merged_records2 IS
400: SELECT distinct CUSTOMER_MERGE_HEADER_ID
401: ,DUNNING_ID
402: ,DUNNING_OBJECT_ID
403: FROM IEX_DUNNINGS yt, ra_customer_merges m
404: WHERE yt.DUNNING_OBJECT_ID = m.DUPLICATE_SITE_ID AND
405: m.process_flag = 'N' AND
406: m.request_id = req_id AND
407: m.set_number = set_num AND

Line 470: 'IEX_DUNNINGS',

466: LAST_UPDATE_DATE,
467: LAST_UPDATED_BY)
468: VALUES
469: (HZ_CUSTOMER_MERGE_LOG_s.nextval,
470: 'IEX_DUNNINGS',
471: MERGE_HEADER_ID_LIST(I),
472: PRIMARY_KEY_ID_LIST(I),
473: NUM_COL1_ORIG_LIST(I),
474: NUM_COL1_NEW_LIST(I),

Line 490: UPDATE IEX_DUNNINGS yt SET

486: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
487: IEX_DEBUG_PUB.logMessage('Merging ' || MERGE_HEADER_ID_LIST.COUNT || ' Records');
488: END IF;
489: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
490: UPDATE IEX_DUNNINGS yt SET
491: DUNNING_OBJECT_ID = NUM_COL1_NEW_LIST(I)
492: , LAST_UPDATE_DATE = SYSDATE
493: , last_updated_by = arp_standard.profile.user_id
494: , last_update_login = arp_standard.profile.last_update_login

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

506: arp_message.set_name('AR','AR_ROWS_UPDATED');
507: arp_message.set_token('NUM_ROWS',to_char(l_count));
508:
509: <>
510: /* process IEX_DUNNINGS.DUNNING_OBJECT_ID where DUNNING_LEVEL = 'BILLTO' */
511: MERGE_HEADER_ID_LIST.delete;
512: PRIMARY_KEY_ID_LIST.delete;
513: l_count := 0;
514: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

511: MERGE_HEADER_ID_LIST.delete;
512: PRIMARY_KEY_ID_LIST.delete;
513: l_count := 0;
514: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
515: IEX_DEBUG_PUB.logMessage('IEX_DUNNINGS.DUNNING_OBJECT_ID.TYPE=ACCOUNT');
516: END IF;
517: open merged_records2;
518: LOOP
519: FETCH merged_records2 BULK COLLECT INTO

Line 557: 'IEX_DUNNINGS',

553: LAST_UPDATE_DATE,
554: LAST_UPDATED_BY)
555: VALUES
556: (HZ_CUSTOMER_MERGE_LOG_s.nextval,
557: 'IEX_DUNNINGS',
558: MERGE_HEADER_ID_LIST(I),
559: PRIMARY_KEY_ID_LIST(I),
560: NUM_COL2_ORIG_LIST(I),
561: NUM_COL2_NEW_LIST(I),

Line 577: UPDATE IEX_DUNNINGS yt SET

573: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
574: IEX_DEBUG_PUB.logMessage('Merging ' || MERGE_HEADER_ID_LIST.COUNT || ' Records');
575: END IF;
576: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
577: UPDATE IEX_DUNNINGS yt SET
578: DUNNING_OBJECT_ID = NUM_COL2_NEW_LIST(I)
579: , LAST_UPDATE_DATE = SYSDATE
580: , last_updated_by = arp_standard.profile.user_id
581: , last_update_login = arp_standard.profile.last_update_login