1: package body ARP_CMERGE as
2: /* $Header: ARPLARMB.pls 115.5 2003/07/02 11:43:30 hyoshiha ship $ */
3:
4: procedure MERGE (req_id NUMBER, set_num NUMBER, process_mode VARCHAR2) is
5:
34:
35: EXCEPTION
36: WHEN DRAFT_CBI THEN
37: arp_message.set_name('AR','AR_CUST_SITE_DRAFT_CBI') ;
38: arp_message.set_error('ARP_CMERGE_ARCON.AR_CIN') ;
39: raise;
40:
41: end MERGE_VALIDATION;
42:
41: end MERGE_VALIDATION;
42:
43: begin
44:
45: arp_message.set_line( 'ARP_CMERGE.MERGE()+' );
46:
47: merge_validation(req_id , set_num );
48:
49: arp_cmerge_aratc.merge(req_id, set_num, process_mode);
45: arp_message.set_line( 'ARP_CMERGE.MERGE()+' );
46:
47: merge_validation(req_id , set_num );
48:
49: arp_cmerge_aratc.merge(req_id, set_num, process_mode);
50: arp_cmerge_arcol.merge(req_id, set_num, process_mode);
51: arp_cmerge_ardun.merge(req_id, set_num, process_mode);
52: arp_cmerge_artax.merge(req_id, set_num, process_mode);
53: arp_cmerge_arcon.merge(req_id, set_num, process_mode);
46:
47: merge_validation(req_id , set_num );
48:
49: arp_cmerge_aratc.merge(req_id, set_num, process_mode);
50: arp_cmerge_arcol.merge(req_id, set_num, process_mode);
51: arp_cmerge_ardun.merge(req_id, set_num, process_mode);
52: arp_cmerge_artax.merge(req_id, set_num, process_mode);
53: arp_cmerge_arcon.merge(req_id, set_num, process_mode);
54: arp_cmerge_artrx.merge(req_id, set_num, process_mode);
47: merge_validation(req_id , set_num );
48:
49: arp_cmerge_aratc.merge(req_id, set_num, process_mode);
50: arp_cmerge_arcol.merge(req_id, set_num, process_mode);
51: arp_cmerge_ardun.merge(req_id, set_num, process_mode);
52: arp_cmerge_artax.merge(req_id, set_num, process_mode);
53: arp_cmerge_arcon.merge(req_id, set_num, process_mode);
54: arp_cmerge_artrx.merge(req_id, set_num, process_mode);
55:
48:
49: arp_cmerge_aratc.merge(req_id, set_num, process_mode);
50: arp_cmerge_arcol.merge(req_id, set_num, process_mode);
51: arp_cmerge_ardun.merge(req_id, set_num, process_mode);
52: arp_cmerge_artax.merge(req_id, set_num, process_mode);
53: arp_cmerge_arcon.merge(req_id, set_num, process_mode);
54: arp_cmerge_artrx.merge(req_id, set_num, process_mode);
55:
56: arp_message.set_line( 'ARP_CMERGE.MERGE()-' );
49: arp_cmerge_aratc.merge(req_id, set_num, process_mode);
50: arp_cmerge_arcol.merge(req_id, set_num, process_mode);
51: arp_cmerge_ardun.merge(req_id, set_num, process_mode);
52: arp_cmerge_artax.merge(req_id, set_num, process_mode);
53: arp_cmerge_arcon.merge(req_id, set_num, process_mode);
54: arp_cmerge_artrx.merge(req_id, set_num, process_mode);
55:
56: arp_message.set_line( 'ARP_CMERGE.MERGE()-' );
57:
50: arp_cmerge_arcol.merge(req_id, set_num, process_mode);
51: arp_cmerge_ardun.merge(req_id, set_num, process_mode);
52: arp_cmerge_artax.merge(req_id, set_num, process_mode);
53: arp_cmerge_arcon.merge(req_id, set_num, process_mode);
54: arp_cmerge_artrx.merge(req_id, set_num, process_mode);
55:
56: arp_message.set_line( 'ARP_CMERGE.MERGE()-' );
57:
58: EXCEPTION
52: arp_cmerge_artax.merge(req_id, set_num, process_mode);
53: arp_cmerge_arcon.merge(req_id, set_num, process_mode);
54: arp_cmerge_artrx.merge(req_id, set_num, process_mode);
55:
56: arp_message.set_line( 'ARP_CMERGE.MERGE()-' );
57:
58: EXCEPTION
59: when others then
60: raise;
59: when others then
60: raise;
61: end MERGE;
62:
63: end ARP_CMERGE;