[Home] [Help]
157: |
158: | PROCEDURE
159: | CREDIT_REQUEST_ACCOUNT_MERGE
160: | DESCRIPTION :
161: | Account merge procedure for the table, AR_CMGT_CREDIT_REQUESTS
162:
163: |--------------------------------------------------------------*/
164:
165: PROCEDURE CREDIT_REQUEST_ACCOUNT_MERGE (
172: INDEX BY BINARY_INTEGER;
173: MERGE_HEADER_ID_LIST MERGE_HEADER_ID_LIST_TYPE;
174:
175: TYPE CREDIT_REQUEST_ID_LIST_TYPE IS TABLE OF
176: AR_CMGT_CREDIT_REQUESTS.CREDIT_REQUEST_ID%TYPE
177: INDEX BY BINARY_INTEGER;
178: PRIMARY_KEY_ID_LIST CREDIT_REQUEST_ID_LIST_TYPE;
179:
180: TYPE CUST_ACCOUNT_ID_LIST_TYPE IS TABLE OF
177: INDEX BY BINARY_INTEGER;
178: PRIMARY_KEY_ID_LIST CREDIT_REQUEST_ID_LIST_TYPE;
179:
180: TYPE CUST_ACCOUNT_ID_LIST_TYPE IS TABLE OF
181: AR_CMGT_CREDIT_REQUESTS.CUST_ACCOUNT_ID%TYPE
182: INDEX BY BINARY_INTEGER;
183: NUM_COL1_ORIG_LIST CUST_ACCOUNT_ID_LIST_TYPE;
184: NUM_COL1_NEW_LIST CUST_ACCOUNT_ID_LIST_TYPE;
185:
183: NUM_COL1_ORIG_LIST CUST_ACCOUNT_ID_LIST_TYPE;
184: NUM_COL1_NEW_LIST CUST_ACCOUNT_ID_LIST_TYPE;
185:
186: TYPE SITE_USE_ID_LIST_TYPE IS TABLE OF
187: AR_CMGT_CREDIT_REQUESTS.SITE_USE_ID%TYPE
188: INDEX BY BINARY_INTEGER;
189: NUM_COL2_ORIG_LIST SITE_USE_ID_LIST_TYPE;
190: NUM_COL2_NEW_LIST SITE_USE_ID_LIST_TYPE;
191:
194: SELECT distinct CUSTOMER_MERGE_HEADER_ID
195: ,CREDIT_REQUEST_ID
196: ,CUST_ACCOUNT_ID
197: ,SITE_USE_ID
198: FROM AR_CMGT_CREDIT_REQUESTS yt,
199: ra_customer_merges m
200: WHERE yt.cust_account_id = m.DUPLICATE_ID
201: AND DECODE( yt.site_use_id , -99, m.duplicate_site_id,
202: yt.site_use_id ) = m.duplicate_site_id
209: IF process_mode='LOCK' THEN
210: NULL;
211: ELSE
212: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
213: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','AR_CMGT_CREDIT_REQUESTS',FALSE);
214: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
215: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
216:
217: open merged_records;
250: LAST_UPDATE_LOGIN,
251: LAST_UPDATE_DATE,
252: LAST_UPDATED_BY
253: ) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
254: 'AR_CMGT_CREDIT_REQUESTS',
255: MERGE_HEADER_ID_LIST(I),
256: PRIMARY_KEY_ID_LIST(I),
257: NUM_COL1_ORIG_LIST(I),
258: NUM_COL1_NEW_LIST(I),
267: hz_utility_pub.LAST_UPDATED_BY
268: );
269:
270: END IF; FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
271: UPDATE AR_CMGT_CREDIT_REQUESTS yt SET
272: CUST_ACCOUNT_ID=NUM_COL1_NEW_LIST(I)
273: ,SITE_USE_ID=DECODE(SITE_USE_ID,-99,-99, NUM_COL2_NEW_LIST(I))
274: , LAST_UPDATE_DATE=SYSDATE
275: , last_updated_by=arp_standard.profile.user_id