DBA Data[Home] [Help]

APPS.OKC_HZ_MERGE_PUB dependencies on OKC_HZ_MERGE_PUB

Line 1: Package Body OKC_HZ_MERGE_PUB AS

1: Package Body OKC_HZ_MERGE_PUB AS
2: /* $Header: OKCPMRGB.pls 120.0.12010000.2 2008/10/24 08:01:31 ssreekum ship $ */
3: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4: --
5: -- Copyright (c) 2000 Oracle Corporation, Redwood Shores, CA, USA

Line 9: -- API Name :OKC_HZ_MERGE_PUB

5: -- Copyright (c) 2000 Oracle Corporation, Redwood Shores, CA, USA
6: -- All rights reserved.
7: --
8: -- Start of Comments
9: -- API Name :OKC_HZ_MERGE_PUB
10: -- Type :Public
11: -- Purpose :Manage customer and party merges
12: --
13: -- Modification History

Line 185: arp_message.set_line('OKC_HZ_MERGE_PUB.LOCK_TABLES()+');

181: )
182: FOR UPDATE NOWAIT;
183:
184: BEGIN
185: arp_message.set_line('OKC_HZ_MERGE_PUB.LOCK_TABLES()+');
186:
187: -- party roles for accounts
188: arp_message.set_name('AR','AR_LOCKING_TABLE');
189: arp_message.set_token('TABLE_NAME','OKC_K_PARTY_ROLES_B',FALSE);

Line 252: arp_message.set_line('OKC_HZ_MERGE_PUB.LOCK_TABLES()-');

248: arp_message.set_line('Locking for site uses');
249: open c_lock_cim(c_c_site_use);
250: close c_lock_cim;
251:
252: arp_message.set_line('OKC_HZ_MERGE_PUB.LOCK_TABLES()-');
253: EXCEPTION
254: WHEN TIMEOUT_ON_RESOURCE THEN
255: arp_message.set_line('Could not obtain lock for records');
256: raise;

Line 398: arp_message.set_line('OKC_HZ_MERGE_PUB.PARTY_MERGE()+');

394: l_log_party_id NUMBER;
395:
396: l_merge_not_allowed_excp EXCEPTION;
397: BEGIN
398: arp_message.set_line('OKC_HZ_MERGE_PUB.PARTY_MERGE()+');
399: arp_message.set_line('At the begining of Party Merge procedure');
400:
401: --
402: -- initialize the status to check whether any contract has more than one

Line 554: arp_message.set_line('OKC_HZ_MERGE_PUB.PARTY_MERGE()-');

550: END LOOP; -- cursor c_cpr
551: CLOSE c_cpr;
552:
553: arp_message.set_line('At the end of Party Merge procedure');
554: arp_message.set_line('OKC_HZ_MERGE_PUB.PARTY_MERGE()-');
555:
556: EXCEPTION
557: WHEN l_merge_not_allowed_excp THEN
558: arp_message.set_line('Contract exists for duplicate party with more than one account, merge cannot proceed');

Line 560: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT');

556: EXCEPTION
557: WHEN l_merge_not_allowed_excp THEN
558: arp_message.set_line('Contract exists for duplicate party with more than one account, merge cannot proceed');
559: arp_message.set_line('Please update the above mentioned contracts and run customer merge again');
560: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT');
561: RAISE;
562:
563: WHEN others THEN
564: l_error_msg := substr(SQLERRM,1,70);

Line 565: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT', l_error_msg);

561: RAISE;
562:
563: WHEN others THEN
564: l_error_msg := substr(SQLERRM,1,70);
565: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT', l_error_msg);
566: RAISE;
567:
568: END; -- party_merge
569:

Line 581: arp_message.set_line('OKC_HZ_MERGE_PUB.ACCOUNT_MERGE()+');

577:
578: l_count NUMBER;
579:
580: BEGIN
581: arp_message.set_line('OKC_HZ_MERGE_PUB.ACCOUNT_MERGE()+');
582:
583: -- contract party roles
584: -- Insert into log table
585: IF l_profile_val IS NOT NULL AND l_profile_val = 'Y' THEN

Line 1177: arp_message.set_line('OKC_HZ_MERGE_PUB.ACCOUNT_MERGE()-');

1173: l_count := sql%rowcount;
1174: arp_message.set_name('AR','AR_ROWS_UPDATED');
1175: arp_message.set_token('NUM_ROWS',to_char(l_count));
1176:
1177: arp_message.set_line('OKC_HZ_MERGE_PUB.ACCOUNT_MERGE()-');
1178:
1179:
1180: END; -- account_merge
1181:

Line 1192: arp_message.set_line('OKC_HZ_MERGE_PUB.ACCOUNT_SITE_MERGE()+');

1188:
1189: l_count NUMBER;
1190:
1191: BEGIN
1192: arp_message.set_line('OKC_HZ_MERGE_PUB.ACCOUNT_SITE_MERGE()+');
1193: arp_message.set_line('Updating account sites');
1194: --
1195: -- Account Sites come first, then site uses
1196: --

Line 2268: arp_message.set_line('OKC_HZ_MERGE_PUB.ACCOUNT_SITE_MERGE()-');

2264: l_count := sql%rowcount;
2265: arp_message.set_name('AR','AR_ROWS_UPDATED');
2266: arp_message.set_token('NUM_ROWS',to_char(l_count));
2267:
2268: arp_message.set_line('OKC_HZ_MERGE_PUB.ACCOUNT_SITE_MERGE()-');
2269:
2270:
2271: END; -- account_site_merge
2272:

Line 2360: arp_message.set_line('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT()+');

2356: l_no_data_found_excp EXCEPTION;
2357: l_lock_excp EXCEPTION;
2358:
2359: BEGIN
2360: arp_message.set_line('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT()+');
2361:
2362: --
2363: -- check process mode. If LOCK, then just lock the tables
2364: --

Line 2450: arp_message.set_line('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT()-');

2446: account_site_merge(req_id => req_id
2447: ,set_number => set_number);
2448: END IF; -- if customer ids the same
2449:
2450: arp_message.set_line('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT()-');
2451:
2452: EXCEPTION
2453: WHEN l_merge_disallowed_excp THEN
2454: arp_message.set_line('Contract exists for duplicate party, merge cannot proceed');

Line 2455: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT');

2451:
2452: EXCEPTION
2453: WHEN l_merge_disallowed_excp THEN
2454: arp_message.set_line('Contract exists for duplicate party, merge cannot proceed');
2455: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT');
2456: RAISE;
2457: WHEN l_no_data_found_excp THEN
2458: arp_message.set_line('No data found for merge information');
2459: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT');

Line 2459: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT');

2455: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT');
2456: RAISE;
2457: WHEN l_no_data_found_excp THEN
2458: arp_message.set_line('No data found for merge information');
2459: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT');
2460: RAISE;
2461: WHEN l_lock_excp THEN -- normal exit after locking
2462: arp_message.set_line('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT()-');
2463: WHEN others THEN

Line 2462: arp_message.set_line('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT()-');

2458: arp_message.set_line('No data found for merge information');
2459: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT');
2460: RAISE;
2461: WHEN l_lock_excp THEN -- normal exit after locking
2462: arp_message.set_line('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT()-');
2463: WHEN others THEN
2464: l_error_msg := substr(SQLERRM,1,70);
2465: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT', l_error_msg);
2466: RAISE;

Line 2465: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT', l_error_msg);

2461: WHEN l_lock_excp THEN -- normal exit after locking
2462: arp_message.set_line('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT()-');
2463: WHEN others THEN
2464: l_error_msg := substr(SQLERRM,1,70);
2465: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT', l_error_msg);
2466: RAISE;
2467: END; -- merge_account
2468:
2469: END; -- Package Body OKC_HZ_MERGE_PUB

Line 2469: END; -- Package Body OKC_HZ_MERGE_PUB

2465: arp_message.set_error('OKC_HZ_MERGE_PUB.MERGE_ACCOUNT', l_error_msg);
2466: RAISE;
2467: END; -- merge_account
2468:
2469: END; -- Package Body OKC_HZ_MERGE_PUB