[Home] [Help]
PACKAGE BODY: APPS.ARP_PROCESS_INVOICE
Source
1 PACKAGE BODY ARP_PROCESS_INVOICE AS
2 /* $Header: ARTEINVB.pls 115.5 2003/08/28 17:24:36 kmahajan ship $ */
3
4 /*===========================================================================+
5 | PROCEDURE |
6 | header_post_insert |
7 | |
8 | DESCRIPTION |
9 | Header post-insert logic for invoices |
10 | |
11 | SCOPE - PRIVATE |
12 | |
13 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
14 | dbms_sql.bind_variable |
15 | arp_util.debug |
16 | |
17 | ARGUMENTS : IN: |
18 | OUT: |
19 | RETURNS : NONE |
20 | |
21 | NOTES |
22 | |
23 | MODIFICATION HISTORY |
24 | 12-JUL-95 Martin Johnson Created |
25 | |
26 +===========================================================================*/
27
28 PROCEDURE header_post_insert (p_primary_salesrep_id IN
29 ra_customer_trx.primary_salesrep_id%type,
30 p_customer_trx_id IN
31 ra_customer_trx.customer_trx_id%type,
32 p_create_default_sc_flag IN varchar2 DEFAULT 'Y'
33 )
34
35 IS
36
37 l_srep_rec ra_cust_trx_line_salesreps%rowtype;
38 l_cust_trx_line_salesrep_id
39 ra_cust_trx_line_salesreps.cust_trx_line_salesrep_id%type;
40
41
42 BEGIN
43
44 arp_util.debug('arp_process_invoice.header_post_insert()+');
45
46 IF (p_primary_salesrep_id <> -3) AND
47 (p_primary_salesrep_id is not null) AND
48 (p_create_default_sc_flag = 'Y')
49 THEN
50
51 l_srep_rec.customer_trx_id := p_customer_trx_id;
52 l_srep_rec.salesrep_id := p_primary_salesrep_id;
53 -- kmahajan - 08/25/2003 - added line below for Sales Group project
54 l_srep_rec.revenue_salesgroup_id := arp_util.Get_Default_SalesGroup(p_primary_salesrep_id, p_customer_trx_id);
55 l_srep_rec.revenue_percent_split := 100;
56
57 arp_ctls_pkg.insert_p(l_srep_rec,
58 l_cust_trx_line_salesrep_id);
59 END IF;
60
61 arp_util.debug('arp_process_invoice.header_post_insert()-');
62
63 EXCEPTION
64 WHEN OTHERS THEN
65 arp_util.debug('EXCEPTION: arp_process_invoice.header_post_insert()');
66 RAISE;
67
68 END;
69
70 /*===========================================================================+
71 | PROCEDURE |
72 | tax_post_update |
73 | |
74 | DESCRIPTION |
75 | Tax post-update logic for invoices |
76 | |
77 | SCOPE - PRIVATE |
78 | |
79 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
80 | dbms_sql.bind_variable |
81 | arp_util.debug |
82 | |
83 | ARGUMENTS : IN: |
84 | OUT: |
85 | RETURNS : NONE |
86 | |
87 | NOTES |
88 | |
89 | MODIFICATION HISTORY |
90 | 12-JUL-95 Martin Johnson Created |
91 | |
92 +===========================================================================*/
93
94 PROCEDURE tax_post_update IS
95
96 BEGIN
97
98 arp_util.debug('arp_process_invoice.tax_post_update()+');
99
100 arp_util.debug('arp_process_invoice.tax_post_update()-');
101
102 EXCEPTION
103 WHEN OTHERS THEN
104 arp_util.debug('EXCEPTION: arp_process_invoice.tax_post_update()');
105 RAISE;
106
107 END;
108
109 /*===========================================================================+
110 | PROCEDURE |
111 | freight_post_update |
112 | |
113 | DESCRIPTION |
114 | Freight post-update logic for invoices |
115 | |
116 | SCOPE - PRIVATE |
117 | |
118 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
119 | dbms_sql.bind_variable |
120 | arp_util.debug |
121 | |
122 | ARGUMENTS : IN: |
123 | p_frt_rec |
124 | p_gl_date |
125 | p_frt_ccid |
126 | OUT: |
127 | p_status |
128 | RETURNS : NONE |
129 | |
130 | NOTES |
131 | |
132 | MODIFICATION HISTORY |
133 | 12-JUL-95 Martin Johnson Created |
134 | |
135 +===========================================================================*/
136
137 PROCEDURE freight_post_update(
138 p_frt_rec IN ra_customer_trx_lines%rowtype,
139 p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%type,
140 p_frt_ccid IN
141 ra_cust_trx_line_gl_dist.code_combination_id%type,
142 p_status OUT NOCOPY varchar2)
143 IS
144 l_ccid
145 ra_cust_trx_line_gl_dist.code_combination_id%type;
146 l_concat_segments varchar2(200);
147 l_num_failed_dist_rows number;
148 l_rows_processed number;
149 l_errorbuf varchar2(200);
150 l_result number;
151 BEGIN
152
153 arp_util.debug('arp_process_invoice.freight_post_update()+');
154
155 p_status := 'OK';
156
157 BEGIN
158 arp_auto_accounting.do_autoaccounting(
159 'U',
160 'FREIGHT',
161 p_frt_rec.customer_trx_id,
162 p_frt_rec.customer_trx_line_id,
163 null,
164 null,
165 p_gl_date,
166 null,
167 p_frt_rec.extended_amount,
168 p_frt_ccid,
169 null,
170 null,
171 null,
172 null,
173 null,
174 l_ccid,
175 l_concat_segments,
176 l_num_failed_dist_rows);
177 EXCEPTION
178 WHEN arp_auto_accounting.no_ccid THEN
179 p_status:= 'ARP_AUTO_ACCOUNTING.NO_CCID';
180
181 WHEN NO_DATA_FOUND THEN
182 null;
183 WHEN OTHERS THEN
184 RAISE;
185 END;
186
187
188 arp_util.debug('arp_process_invoice.freight_post_update()-');
189
190 EXCEPTION
191 WHEN OTHERS THEN
192 arp_util.debug('EXCEPTION: arp_process_invoice.freight_post_update()');
193 arp_util.debug('p_customer_trx_line_id : '||p_frt_rec.customer_trx_line_id);
194 arp_util.debug('p_frt_ccid : '||p_frt_ccid);
195 arp_util.debug('p_gl_date : '||p_gl_date);
196 RAISE;
197
198 END;
199
200
201 END ARP_PROCESS_INVOICE;