7: |
8: | PROCEDURE
9: | MRP_FD
10: | DESCRIPTION :
11: | Account merge procedure for the table, MRP_FORECAST_DATES
12: |
13: | NOTES:
14: |
15: |--------------------------------------------------------------*/
24: INDEX BY BINARY_INTEGER;
25: MERGE_HEADER_ID_LIST MERGE_HEADER_ID_LIST_TYPE;
26:
27: TYPE TRANSACTION_ID_LIST_TYPE IS TABLE OF
28: MRP_FORECAST_DATES.TRANSACTION_ID%TYPE
29: INDEX BY BINARY_INTEGER;
30: PRIMARY_KEY_ID_LIST TRANSACTION_ID_LIST_TYPE;
31:
32: TYPE customer_id_LIST_TYPE IS TABLE OF
29: INDEX BY BINARY_INTEGER;
30: PRIMARY_KEY_ID_LIST TRANSACTION_ID_LIST_TYPE;
31:
32: TYPE customer_id_LIST_TYPE IS TABLE OF
33: MRP_FORECAST_DATES.customer_id%TYPE
34: INDEX BY BINARY_INTEGER;
35: NUM_COL1_ORIG_LIST customer_id_LIST_TYPE;
36: NUM_COL1_NEW_LIST customer_id_LIST_TYPE;
37:
35: NUM_COL1_ORIG_LIST customer_id_LIST_TYPE;
36: NUM_COL1_NEW_LIST customer_id_LIST_TYPE;
37:
38: TYPE ship_id_LIST_TYPE IS TABLE OF
39: MRP_FORECAST_DATES.ship_id%TYPE
40: INDEX BY BINARY_INTEGER;
41: NUM_COL2_ORIG_LIST ship_id_LIST_TYPE;
42: NUM_COL2_NEW_LIST ship_id_LIST_TYPE;
43:
41: NUM_COL2_ORIG_LIST ship_id_LIST_TYPE;
42: NUM_COL2_NEW_LIST ship_id_LIST_TYPE;
43:
44: TYPE bill_id_LIST_TYPE IS TABLE OF
45: MRP_FORECAST_DATES.bill_id%TYPE
46: INDEX BY BINARY_INTEGER;
47: NUM_COL3_ORIG_LIST bill_id_LIST_TYPE;
48: NUM_COL3_NEW_LIST bill_id_LIST_TYPE;
49:
53: ,yt.TRANSACTION_ID
54: ,yt.customer_id
55: ,yt.ship_id
56: ,yt.bill_id
57: FROM MRP_FORECAST_DATES yt, ra_customer_merges m
58: WHERE (
59: yt.customer_id = m.DUPLICATE_ID
60: OR yt.ship_id = m.DUPLICATE_SITE_ID
61: OR yt.bill_id = m.DUPLICATE_SITE_ID
69: IF process_mode='LOCK' THEN
70: NULL;
71: ELSE
72: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
73: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','MRP_FORECAST_DATES',FALSE);
74: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
75: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
76:
77: open merged_records;
115: LAST_UPDATE_LOGIN,
116: LAST_UPDATE_DATE,
117: LAST_UPDATED_BY
118: ) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
119: 'MRP_FORECAST_DATES',
120: MERGE_HEADER_ID_LIST(I),
121: PRIMARY_KEY_ID_LIST(I),
122: NUM_COL1_ORIG_LIST(I),
123: NUM_COL1_NEW_LIST(I),
135: );
136:
137: END IF;
138: FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
139: UPDATE MRP_FORECAST_DATES yt SET
140: customer_id=NUM_COL1_NEW_LIST(I)
141: ,ship_id=NUM_COL2_NEW_LIST(I)
142: ,bill_id=NUM_COL3_NEW_LIST(I)
143: , LAST_UPDATE_DATE=SYSDATE