29: l_error varchar2(2000);
30: MERGE_NOT_ALLOWED EXCEPTION;
31:
32: BEGIN
33: arp_message.set_line( 'ARP_EXCHANGE_MERGE.cust_merge()+' );
34:
35: IF (process_mode = 'LOCK') then
36:
37: /*
35: IF (process_mode = 'LOCK') then
36:
37: /*
38: * No locking is necessary, as no updates will be done locally.
39: * arp_message.set_name( 'AR', 'AR_LOCKING_TABLE');
40: * arp_message.set_token( 'TABLE_NAME', 'tablename', FALSE );
41: * OPEN C1;
42: * CLOSE C1;
43: *
36:
37: /*
38: * No locking is necessary, as no updates will be done locally.
39: * arp_message.set_name( 'AR', 'AR_LOCKING_TABLE');
40: * arp_message.set_token( 'TABLE_NAME', 'tablename', FALSE );
41: * OPEN C1;
42: * CLOSE C1;
43: *
44: */
72: raise MERGE_NOT_ALLOWED;
73: END IF;
74: END IF;
75:
76: arp_message.set_line( 'ARP_EXCHANGE_MERGE.CUST_MERGE()-' );
77:
78:
79: EXCEPTION
80: WHEN MERGE_NOT_ALLOWED THEN
77:
78:
79: EXCEPTION
80: WHEN MERGE_NOT_ALLOWED THEN
81: arp_message.set_name('AR','HZ_EXCHANGE_MERGE_DISALLOWED');
82: arp_message.set_error( 'ARP_EXCHANGE_MERGE.CUST_MERGE');
83: raise;
84: when others then
85: raise;
78:
79: EXCEPTION
80: WHEN MERGE_NOT_ALLOWED THEN
81: arp_message.set_name('AR','HZ_EXCHANGE_MERGE_DISALLOWED');
82: arp_message.set_error( 'ARP_EXCHANGE_MERGE.CUST_MERGE');
83: raise;
84: when others then
85: raise;
86:
91:
92: PROCEDURE CMERGE (req_id NUMBER, set_num NUMBER, process_mode VARCHAR2) is
93: BEGIN
94:
95: arp_message.set_line( 'ARP_EXCHANGE_MERGE.CMERGE()+' );
96:
97: cust_merge( req_id, set_num, process_mode );
98:
99: arp_message.set_line( 'ARP_EXCHANGE_MERGE.CMERGE()-' );
95: arp_message.set_line( 'ARP_EXCHANGE_MERGE.CMERGE()+' );
96:
97: cust_merge( req_id, set_num, process_mode );
98:
99: arp_message.set_line( 'ARP_EXCHANGE_MERGE.CMERGE()-' );
100:
101: EXCEPTION
102: when others then
103: raise;