[Home] [Help]
PACKAGE BODY: APPS.ARP_PROCESS_CREDIT_INS_COVER
Source
4 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
1 PACKAGE BODY ARP_PROCESS_CREDIT_INS_COVER AS
2 /* $Header: ARTCCMIB.pls 120.6 2005/06/03 19:20:24 jbeckett ship $ */
3
5
6 PROCEDURE insert_header_cover (
7 p_form_name IN varchar2,
8 p_form_version IN number,
9 p_batch_id IN ra_batches.batch_id%type,
10 p_trx_date IN ra_customer_trx.trx_date%type,
11 p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%type,
12 p_complete_flag IN ra_customer_trx.complete_flag%type,
13 p_prev_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
14 p_batch_source_id IN ra_batch_sources.batch_source_id%type,
15 p_cust_trx_type_id IN ra_cust_trx_types.cust_trx_type_id%type,
16 p_currency_code IN fnd_currencies.currency_code%type,
17 p_exchange_date IN ra_customer_trx.exchange_date%type,
18 p_exchange_rate_type IN ra_customer_trx.exchange_rate_type%type,
19 p_exchange_rate IN ra_customer_trx.exchange_rate%type,
20 p_invoicing_rule_id IN ra_customer_trx.invoicing_rule_id%type,
21 p_method_for_rules IN ra_customer_trx.credit_method_for_rules%type,
22 p_split_term_method IN
23 ra_customer_trx.credit_method_for_installments%type,
24 p_initial_customer_trx_id IN ra_customer_trx.initial_customer_trx_id%type,
25 p_primary_salesrep_id IN ra_customer_trx.primary_salesrep_id%type,
26 p_bill_to_customer_id IN ra_customer_trx.bill_to_customer_id%type,
27 p_bill_to_address_id IN ra_customer_trx.bill_to_address_id%type,
28 p_bill_to_site_use_id IN ra_customer_trx.bill_to_site_use_id%type,
29 p_bill_to_contact_id IN ra_customer_trx.bill_to_contact_id%type,
30 p_ship_to_customer_id IN ra_customer_trx.ship_to_customer_id%type,
31 p_ship_to_address_id IN ra_customer_trx.ship_to_address_id%type,
32 p_ship_to_site_use_id IN ra_customer_trx.ship_to_site_use_id%type,
33 p_ship_to_contact_id IN ra_customer_trx.ship_to_contact_id%type,
34 p_receipt_method_id IN ra_customer_trx.receipt_method_id%type,
35 p_paying_customer_id IN ra_customer_trx.paying_customer_id%type,
36 p_paying_site_use_id IN ra_customer_trx.paying_site_use_id%type,
37 p_customer_bank_account_id IN
38 ra_customer_trx.customer_bank_account_id%type,
39 p_printing_option IN ra_customer_trx.printing_option%type,
40 p_printing_last_printed IN ra_customer_trx.printing_last_printed%type,
41 p_printing_pending IN ra_customer_trx.printing_pending%type,
42 p_doc_sequence_value IN ra_customer_trx.doc_sequence_value%type,
43 p_doc_sequence_id IN ra_customer_trx.doc_sequence_id%type,
44 p_reason_code IN ra_customer_trx.reason_code%type,
45 p_customer_reference IN ra_customer_trx.customer_reference%type,
46 p_customer_reference_date IN ra_customer_trx.customer_reference_date%type,
47 p_internal_notes IN ra_customer_trx.internal_notes%type,
48 p_set_of_books_id IN ra_customer_trx.set_of_books_id%type,
49 p_created_from IN ra_customer_trx.created_from%type,
50 p_old_trx_number IN ra_customer_trx.old_trx_number%type,
51 p_attribute_category IN ra_customer_trx.attribute_category%type,
52 p_attribute1 IN ra_customer_trx.attribute1%type,
53 p_attribute2 IN ra_customer_trx.attribute2%type,
54 p_attribute3 IN ra_customer_trx.attribute3%type,
55 p_attribute4 IN ra_customer_trx.attribute4%type,
56 p_attribute5 IN ra_customer_trx.attribute5%type,
57 p_attribute6 IN ra_customer_trx.attribute6%type,
58 p_attribute7 IN ra_customer_trx.attribute7%type,
59 p_attribute8 IN ra_customer_trx.attribute8%type,
60 p_attribute9 IN ra_customer_trx.attribute9%type,
61 p_attribute10 IN ra_customer_trx.attribute10%type,
62 p_attribute11 IN ra_customer_trx.attribute11%type,
63 p_attribute12 IN ra_customer_trx.attribute12%type,
64 p_attribute13 IN ra_customer_trx.attribute13%type,
65 p_attribute14 IN ra_customer_trx.attribute14%type,
66 p_attribute15 IN ra_customer_trx.attribute15%type,
67 p_interface_header_context IN
68 ra_customer_trx.interface_header_context%type,
69 p_interface_header_attribute1 IN
70 ra_customer_trx.interface_header_attribute1%type,
71 p_interface_header_attribute2 IN
72 ra_customer_trx.interface_header_attribute2%type,
73 p_interface_header_attribute3 IN
77 p_interface_header_attribute5 IN
74 ra_customer_trx.interface_header_attribute3%type,
75 p_interface_header_attribute4 IN
76 ra_customer_trx.interface_header_attribute4%type,
78 ra_customer_trx.interface_header_attribute5%type,
79 p_interface_header_attribute6 IN
80 ra_customer_trx.interface_header_attribute6%type,
81 p_interface_header_attribute7 IN
82 ra_customer_trx.interface_header_attribute7%type,
83 p_interface_header_attribute8 IN
84 ra_customer_trx.interface_header_attribute8%type,
85 p_interface_header_attribute9 IN
86 ra_customer_trx.interface_header_attribute9%type,
87 p_interface_header_attribute10 IN
88 ra_customer_trx.interface_header_attribute10%type,
89 p_interface_header_attribute11 IN
90 ra_customer_trx.interface_header_attribute11%type,
91 p_interface_header_attribute12 IN
92 ra_customer_trx.interface_header_attribute12%type,
93 p_interface_header_attribute13 IN
94 ra_customer_trx.interface_header_attribute13%type,
95 p_interface_header_attribute14 IN
96 ra_customer_trx.interface_header_attribute14%type,
97 p_interface_header_attribute15 IN
98 ra_customer_trx.interface_header_attribute15%type,
99 p_default_ussgl_trx_code IN
100 ra_customer_trx.default_ussgl_transaction_code%type,
101 p_line_percent IN number,
102 p_freight_percent IN number,
103 p_line_amount IN ra_customer_trx_lines.extended_amount%type,
104 p_freight_amount IN ra_customer_trx_lines.extended_amount%type,
105 p_compute_tax IN varchar2,
106 p_comments IN ra_customer_trx.comments%type,
107 p_customer_trx_id OUT NOCOPY ra_customer_trx.customer_trx_id%type,
108 p_trx_number IN OUT NOCOPY ra_customer_trx.trx_number%type,
109 p_computed_tax_percent IN OUT NOCOPY number,
113 IS
110 p_computed_tax_amount IN OUT NOCOPY ra_customer_trx_lines.extended_amount%type,
111 p_status OUT NOCOPY varchar2,
112 p_submit_cm_dist IN varchar2 DEFAULT 'N')
114
115 l_cm_header ra_customer_trx%rowtype;
116 l_customer_trx_id ra_customer_trx.customer_trx_id%type;
117
118 BEGIN
119
123
120 IF PG_DEBUG in ('Y', 'C') THEN
121 arp_util.debug('arp_process_credit_cover.insert_header_cover()+');
122 END IF;
124 --
125 -- populate the record with the values passed
126 --
127 l_cm_header.batch_id := p_batch_id;
128 l_cm_header.trx_number := p_trx_number;
129 l_cm_header.trx_date := p_trx_date;
130 l_cm_header.complete_flag := p_complete_flag;
131 l_cm_header.previous_customer_trx_id := p_prev_customer_trx_id;
132 l_cm_header.batch_source_id := p_batch_source_id;
133 l_cm_header.cust_trx_type_id := p_cust_trx_type_id;
134 l_cm_header.invoice_currency_code := p_currency_code;
135 l_cm_header.exchange_date := p_exchange_date;
136 l_cm_header.exchange_rate_type := p_exchange_rate_type;
137 l_cm_header.exchange_rate := p_exchange_rate;
138 l_cm_header.credit_method_for_rules := p_method_for_rules;
139 l_cm_header.credit_method_for_installments := p_split_term_method;
140 l_cm_header.initial_customer_trx_id := p_initial_customer_trx_id;
141 l_cm_header.primary_salesrep_id := p_primary_salesrep_id;
142 l_cm_header.invoicing_rule_id := p_invoicing_rule_id;
143 l_cm_header.bill_to_customer_id := p_bill_to_customer_id;
144 l_cm_header.bill_to_address_id := p_bill_to_address_id;
145 l_cm_header.bill_to_site_use_id := p_bill_to_site_use_id;
146 l_cm_header.bill_to_contact_id := p_bill_to_contact_id;
147 l_cm_header.ship_to_customer_id := p_ship_to_customer_id;
148 l_cm_header.ship_to_address_id := p_ship_to_address_id;
149 l_cm_header.ship_to_site_use_id := p_ship_to_site_use_id;
150 l_cm_header.ship_to_contact_id := p_ship_to_contact_id;
151 l_cm_header.receipt_method_id := p_receipt_method_id;
152 l_cm_header.paying_customer_id := p_paying_customer_id;
153 l_cm_header.paying_site_use_id := p_paying_site_use_id;
154 l_cm_header.customer_bank_account_id := p_customer_bank_account_id;
155 l_cm_header.printing_option := p_printing_option;
156 l_cm_header.printing_last_printed := p_printing_last_printed;
157 l_cm_header.printing_pending := p_printing_pending;
158 l_cm_header.reason_code := p_reason_code;
159 l_cm_header.doc_sequence_value := p_doc_sequence_value;
160 l_cm_header.doc_sequence_id := p_doc_sequence_id;
161 l_cm_header.customer_reference := p_customer_reference;
162 l_cm_header.customer_reference_date := p_customer_reference_date;
163 l_cm_header.internal_notes := p_internal_notes;
164 l_cm_header.set_of_books_id := p_set_of_books_id;
165 l_cm_header.created_from := p_created_from;
166 l_cm_header.old_trx_number := p_old_trx_number;
167 l_cm_header.attribute_category := p_attribute_category;
168 l_cm_header.attribute1 := p_attribute1;
169 l_cm_header.attribute2 := p_attribute2;
170 l_cm_header.attribute3 := p_attribute3;
171 l_cm_header.attribute4 := p_attribute4;
172 l_cm_header.attribute5 := p_attribute5;
173 l_cm_header.attribute6 := p_attribute6;
174 l_cm_header.attribute7 := p_attribute7;
175 l_cm_header.attribute8 := p_attribute8;
176 l_cm_header.attribute9 := p_attribute9;
177 l_cm_header.attribute10 := p_attribute10;
178 l_cm_header.attribute11 := p_attribute11;
179 l_cm_header.attribute12 := p_attribute12;
180 l_cm_header.attribute13 := p_attribute13;
181 l_cm_header.attribute14 := p_attribute14;
182 l_cm_header.attribute15 := p_attribute15;
183 l_cm_header.interface_header_context := p_interface_header_context;
184 l_cm_header.interface_header_attribute1 := p_interface_header_attribute1;
185 l_cm_header.interface_header_attribute2 := p_interface_header_attribute2;
186 l_cm_header.interface_header_attribute3 := p_interface_header_attribute3;
187 l_cm_header.interface_header_attribute4 := p_interface_header_attribute4;
188 l_cm_header.interface_header_attribute5 := p_interface_header_attribute5;
189 l_cm_header.interface_header_attribute6 := p_interface_header_attribute6;
190 l_cm_header.interface_header_attribute7 := p_interface_header_attribute7;
191 l_cm_header.interface_header_attribute8 := p_interface_header_attribute8;
192 l_cm_header.interface_header_attribute9 := p_interface_header_attribute9;
193 l_cm_header.interface_header_attribute10 := p_interface_header_attribute10;
194 l_cm_header.interface_header_attribute11 := p_interface_header_attribute11;
195 l_cm_header.interface_header_attribute12 := p_interface_header_attribute12;
196 l_cm_header.interface_header_attribute13 := p_interface_header_attribute13;
197 l_cm_header.interface_header_attribute14 := p_interface_header_attribute14;
198 l_cm_header.interface_header_attribute15 := p_interface_header_attribute15;
199 l_cm_header.default_ussgl_transaction_code := p_default_ussgl_trx_code;
200
201 -- added status trx for Bug 609042
202 l_cm_header.status_trx := null;
203
204 l_cm_header.comments := p_comments;
205
206 -------------------------------------------------
207 -- BUG FIX 1021626. Please see also BUG 991356
208 -- Code added to Credit Transaction inherits the
209 -- Item Header Information
210 -------------------------------------------------
211
212 SELECT purchase_order,
213 purchase_order_revision,
214 purchase_order_date ,
215 territory_id, /* Bug-3852057 */
216 legal_entity_id /* R12 LE uptake */
217 INTO l_cm_header.purchase_order,
218 l_cm_header.purchase_order_revision,
219 l_cm_header.purchase_order_date,
220 l_cm_header.territory_id, /* Bug-3852057 */
221 l_cm_header.legal_entity_id /* R12 LE uptake */
222 FROM ra_customer_trx_all
223 WHERE customer_trx_id = p_prev_customer_trx_id;
224
225 --
226 -- call the entity handler
227 --
228
229 arp_process_credit.insert_header(
230 p_form_name,
231 p_form_version,
232 l_cm_header,
233 'CM',
237 p_prev_customer_trx_id,
234 p_gl_date,
235 p_primary_salesrep_id,
236 p_currency_code,
238 p_line_percent,
239 p_freight_percent,
240 p_line_amount,
241 p_freight_amount,
242 p_compute_tax,
243 p_trx_number,
244 l_customer_trx_id,
245 p_computed_tax_percent,
246 p_computed_tax_amount,
247 p_status,
248 p_submit_cm_dist);
249
250 p_customer_trx_id := l_customer_trx_id;
251
252 IF PG_DEBUG in ('Y', 'C') THEN
253 arp_util.debug('arp_process_credit_cover.insert_header_cover()-');
254 END IF;
255
256 EXCEPTION
257
258 WHEN OTHERS THEN
259 IF PG_DEBUG in ('Y', 'C') THEN
260 arp_util.debug('EXCEPTION : arp_process_credit_cover.insert_header_cover');
261 END IF;
262
263 RAISE;
264 END insert_header_cover;
265
266
267 END arp_process_credit_ins_cover;
268