1: PACKAGE BODY csp_cmerge_bb7 AS
2: /* $Header: cscm107b.pls 115.1 99/07/16 08:48:04 porting s $ */
3:
4: /* ----------------- Local Procedures ----------------------------------------*/
5:
36:
37: IF ( process_mode = 'LOCK' ) Then
38: arp_message.set_name('AR', 'AR_LOCKING_TABLE');
39: arp_message.set_token('TABLE_NAME', 'CS_REPAIRS',FALSE );
40: message_text := 'The locking is done in block CSP_CMERGE_BB7';
41: arp_message.set_line(message_text);
42: ELSE
43: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
44: arp_message.set_token('TABLE_NAME', 'CS_REPAIRS',FALSE );
41: arp_message.set_line(message_text);
42: ELSE
43: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
44: arp_message.set_token('TABLE_NAME', 'CS_REPAIRS',FALSE );
45: message_text := 'The merge is done in block CSP_CMERGE_BB7';
46: arp_message.set_line(message_text);
47: END IF;
48:
49: /* merge the CS_REPAIRS table update the customer_id */
156: raise;
157:
158: END CS_MERGE_CUSTOMER_ID;
159:
160: END CSP_CMERGE_BB7;