[Home] [Help]
1: Package Body OKS_HZ_MERGE_PUB AS
2: /* $Header: OKSPMRGB.pls 120.0 2005/05/25 18:02:52 appldev noship $ */
3: --
4: -- Copyright (c) 2000 Oracle Corporation, Redwood Shores, CA, USA
5: -- All rights reserved.
4: -- Copyright (c) 2000 Oracle Corporation, Redwood Shores, CA, USA
5: -- All rights reserved.
6: --
7: -- Start of Comments
8: -- API Name :OKS_HZ_MERGE_PUB
9: -- Type :Public
10: -- Purpose :Manage customer and party merges
11: --
12: -- Modification History
80: )
81: FOR UPDATE NOWAIT;
82:
83: BEGIN
84: arp_message.set_line('OKS_HZ_MERGE_PUB.LOCK_TABLES()+');
85:
86: -- billing profiles
87: arp_message.set_name('AR','AR_LOCKING_TABLE');
88: arp_message.set_token('TABLE_NAME','OKS_BILLING_PROFILES_B',FALSE);
88: arp_message.set_token('TABLE_NAME','OKS_BILLING_PROFILES_B',FALSE);
89: open c_lock_bpe;
90: close c_lock_bpe;
91:
92: arp_message.set_line('OKS_HZ_MERGE_PUB.LOCK_TABLES()-');
93:
94: END; -- lock_tables
95:
96: --
273: l_count := SQL%ROWCOUNT;
274:
275: arp_message.set_name('AR','AR_ROWS_UPDATED');
276: arp_message.set_token('NUM_ROWS',to_char(l_count));
277: arp_message.set_line('OKS_HZ_MERGE_PUB.ACCOUNT_MERGE()-');CK old code*/
278: END; -- account_merge
279:
280: --
281: -- sub routine to merge account sites and site uses
583: l_no_data_found_excp EXCEPTION;
584: l_lock_excp EXCEPTION;
585:
586: BEGIN
587: arp_message.set_line('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT()+');
588:
589: --
590: -- check process mode. If LOCK, then just lock the tables
591: --
654: account_site_merge(req_id => req_id
655: ,set_number => set_number);
656: END IF; -- if customer ids the same
657:
658: arp_message.set_line('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT()-');
659:
660: EXCEPTION
661: WHEN l_merge_disallowed_excp THEN
662: -- arp_message.set_line('Billing Profile exists for duplicate party, merge cannot proceed');
660: EXCEPTION
661: WHEN l_merge_disallowed_excp THEN
662: -- arp_message.set_line('Billing Profile exists for duplicate party, merge cannot proceed');
663: arp_message.set_line('Cannot Merge Customer Accounts owned by different parties. Please run Party Merge first and then run Customer Merge');
664: arp_message.set_error('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT');
665: RAISE;
666: WHEN l_no_data_found_excp THEN
667: arp_message.set_line('No data found for merge information');
668: arp_message.set_error('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT');
664: arp_message.set_error('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT');
665: RAISE;
666: WHEN l_no_data_found_excp THEN
667: arp_message.set_line('No data found for merge information');
668: arp_message.set_error('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT');
669: RAISE;
670: WHEN l_lock_excp THEN -- normal exit after locking
671: arp_message.set_line('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT()-');
672: WHEN others THEN
667: arp_message.set_line('No data found for merge information');
668: arp_message.set_error('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT');
669: RAISE;
670: WHEN l_lock_excp THEN -- normal exit after locking
671: arp_message.set_line('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT()-');
672: WHEN others THEN
673: l_error_msg := substr(SQLERRM,1,70);
674: arp_message.set_error('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT', l_error_msg);
675: RAISE;
670: WHEN l_lock_excp THEN -- normal exit after locking
671: arp_message.set_line('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT()-');
672: WHEN others THEN
673: l_error_msg := substr(SQLERRM,1,70);
674: arp_message.set_error('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT', l_error_msg);
675: RAISE;
676: END; -- merge_account
677:
678: END; -- Package Body OKS_HZ_MERGE_PUB
674: arp_message.set_error('OKS_HZ_MERGE_PUB.MERGE_ACCOUNT', l_error_msg);
675: RAISE;
676: END; -- merge_account
677:
678: END; -- Package Body OKS_HZ_MERGE_PUB