32: from_cust_id NUMBER;
33: Veto_Reason varchar2(300) := 'During account merge an old customer ID is found in QA_RESULTS table. The table is used to store archival info of test data. The customer name can be used for auditing purpose and cannot be deleted';
34:
35: BEGIN
36: arp_message.set_line('QA_CUSTOMER.MERGE()+');
37:
38: IF process_mode = 'LOCK' THEN
39: null; -- no update will be allowed later
40: ELSE
54: veto_reason => Veto_Reason
55: );
56: ELSE
57: CLOSE c;
58: arp_message.set_name('AR', 'AR_ROWS_UPDATED');
59: arp_message.set_token('NUM_ROWS', '0');
60: END IF;
61: END IF;
62: arp_message.set_line('QA_CUSTOMER.MERGE()-');
55: );
56: ELSE
57: CLOSE c;
58: arp_message.set_name('AR', 'AR_ROWS_UPDATED');
59: arp_message.set_token('NUM_ROWS', '0');
60: END IF;
61: END IF;
62: arp_message.set_line('QA_CUSTOMER.MERGE()-');
63:
58: arp_message.set_name('AR', 'AR_ROWS_UPDATED');
59: arp_message.set_token('NUM_ROWS', '0');
60: END IF;
61: END IF;
62: arp_message.set_line('QA_CUSTOMER.MERGE()-');
63:
64: EXCEPTION
65: /*
66: WHEN MERGE_NOT_ALLOWED THEN
63:
64: EXCEPTION
65: /*
66: WHEN MERGE_NOT_ALLOWED THEN
67: arp_message.set_error('QA_CUSTOMER.MERGE');
68: */
69: WHEN OTHERS THEN
70: arp_message.set_error('QA_CUSTOMER.MERGE');
71: RAISE;
66: WHEN MERGE_NOT_ALLOWED THEN
67: arp_message.set_error('QA_CUSTOMER.MERGE');
68: */
69: WHEN OTHERS THEN
70: arp_message.set_error('QA_CUSTOMER.MERGE');
71: RAISE;
72: END merge;
73:
74: END qa_customer;