[Home] [Help]
PACKAGE BODY: APPS.AR_TRX_GLOBAL_PROCESS_HEADER
Source
1 PACKAGE BODY AR_TRX_GLOBAL_PROCESS_HEADER AS
2 /* $Header: ARINGTHB.pls 120.18.12010000.3 2010/01/28 09:58:10 aghoraka ship $ */
3
4 pg_debug VARCHAR2(1) := nvl(fnd_profile.value('AFLOG_ENABLED'),'N');
5
6 PROCEDURE INSERT_ROW (
7 p_trx_header_tbl IN AR_INVOICE_API_PUB.trx_header_tbl_type,
8 p_batch_source_rec IN AR_INVOICE_API_PUB.batch_source_rec_type,
9 x_errmsg OUT NOCOPY VARCHAR2,
10 x_return_status OUT NOCOPY VARCHAR2
11 ) IS
12 BEGIN
13
14 IF pg_debug = 'Y'
15 THEN
16 ar_invoice_utils.debug ('AR_TRX_GLOBAL_PROCESS_HEADER.INERT_ROW(+)');
17 END IF;
18
19
20
21
22 FOR i IN p_trx_header_tbl.FIRST .. p_trx_header_tbl.LAST
23 LOOP
24 arp_util.debug ( 'insert header ' || (p_trx_header_tbl(i).trx_header_id) );
25 arp_util.debug ( 'insert header PMT' || (p_trx_header_tbl(i).payment_trxn_extension_id) );
26
27 INSERT INTO ar_trx_header_gt (
28 trx_header_id,
29 customer_trx_id,
30 created_by,
31 creation_date,
32 created_from,
33 last_updated_by,
34 last_update_date,
35 last_update_login,
36 set_of_books_id,
37 org_id,
38 trx_number,
39 trx_date,
40 trx_currency,
41 reference_number,
42 trx_class,
43 batch_source_id,
44 cust_trx_type_id,
45 gl_date,
46 bill_to_customer_id,
47 bill_to_account_number,
48 bill_to_customer_name,
49 bill_to_location_id,
50 bill_to_contact_id,
51 bill_to_address_id,
52 bill_to_site_use_id,
53 ship_to_customer_id,
54 ship_to_account_number,
55 ship_to_customer_name,
56 ship_to_location_id,
57 ship_to_contact_id,
58 ship_to_address_id,
59 ship_to_site_use_id,
60 sold_to_customer_id,
61 sold_to_site_use_id,
62 sold_to_contact_id,
63 term_id,
64 primary_salesrep_id,
65 primary_salesrep_name,
66 exchange_rate_type,
67 exchange_date,
68 exchange_rate,
69 territory_id,
70 remit_to_address_id,
71 invoicing_rule_id,
72 shipment_id,
73 printing_option,
74 printing_count,
75 purchase_order,
76 purchase_order_revision,
77 purchase_order_date,
78 customer_reference,
79 customer_reference_date,
80 comments,
81 internal_notes,
82 finance_charges,
83 credit_method_for_rules,
84 credit_method_for_installments,
85 receipt_method_id,
86 related_customer_trx_id,
87 agreement_id,
88 ship_via,
89 ship_date_actual,
90 waybill_number,
91 fob_point,
92 customer_bank_account_id,
93 default_ussgl_trx_code_context,
94 default_ussgl_transaction_code,
95 recurred_from_trx_number,
96 status_trx,
97 paying_customer_id,
98 paying_site_use_id,
99 default_tax_exempt_flag,
100 mrc_exchange_rate_type,
101 mrc_exchange_date,
102 mrc_exchange_rate,
103 doc_sequence_id,
104 doc_sequence_value,
105 attribute_category,
106 attribute1,
107 attribute2,
108 attribute3,
109 attribute4,
110 attribute5,
111 attribute6,
112 attribute7,
113 attribute8,
114 attribute9,
115 attribute10,
116 attribute11,
117 attribute12,
118 attribute13,
119 attribute14,
120 attribute15,
121 global_attribute_category,
122 global_attribute1,
123 global_attribute2,
124 global_attribute3,
125 global_attribute4,
126 global_attribute5,
127 global_attribute6,
128 global_attribute7,
129 global_attribute8,
130 global_attribute9,
131 global_attribute10,
132 global_attribute11,
133 global_attribute12,
134 global_attribute13,
135 global_attribute14,
136 global_attribute15,
137 global_attribute16,
138 global_attribute17,
139 global_attribute18,
140 global_attribute19,
141 global_attribute20,
142 global_attribute21,
143 global_attribute22,
144 global_attribute23,
145 global_attribute24,
146 global_attribute25,
147 global_attribute26,
148 global_attribute27,
149 global_attribute28,
150 global_attribute29,
151 global_attribute30,
152 interface_header_context,
153 interface_header_attribute1,
154 interface_header_attribute2,
155 interface_header_attribute3,
156 interface_header_attribute4,
157 interface_header_attribute5,
158 interface_header_attribute6,
159 interface_header_attribute7,
160 interface_header_attribute8,
161 interface_header_attribute9,
162 interface_header_attribute10,
163 interface_header_attribute11,
164 interface_header_attribute12,
165 interface_header_attribute13,
166 interface_header_attribute14,
167 interface_header_attribute15,
168 legal_entity_id,
169 payment_trxn_extension_id,
170 billing_date,
171 interest_header_id,
172 late_charges_assessed,
173 batch_id,
174 request_id,
175 defaulted_gl_date_flag,
176
177 document_sub_type,
178 default_taxation_country,
179 mandate_last_trx_flag)
180 VALUES
181 (p_trx_header_tbl(i).trx_header_id,
182 ra_customer_trx_s.nextval,
183 fnd_global.user_id,
184 sysdate,
185 'AR_INVOICE_API', -- 5921925
186 fnd_global.user_id,
187 sysdate,
188 fnd_global.login_id,
189 arp_global.sysparam.set_of_books_id, -- 5921925
190 arp_global.sysparam.org_id, -- 5921925
191 p_trx_header_tbl(i).trx_number,
192 NVL(trunc(p_trx_header_tbl(i).trx_date),trunc(sysdate)),/*5921925,8963998*/
193 NVL(p_trx_header_tbl(i).trx_currency,
194 arp_global.functional_currency), -- 5921925
195 p_trx_header_tbl(i).reference_number,
196 p_trx_header_tbl(i).trx_class,
197 p_batch_source_rec.batch_source_id,
198 p_trx_header_tbl(i).cust_trx_type_id,
199 NVL(trunc(p_trx_header_tbl(i).gl_date),
200 p_batch_source_rec.default_date), -- 5921925
201 p_trx_header_tbl(i).bill_to_customer_id,
202 p_trx_header_tbl(i).bill_to_account_number,
203 p_trx_header_tbl(i).bill_to_customer_name,
204 null, -- p_trx_header_tbl(i).bill_to_location_id,
205 p_trx_header_tbl(i).bill_to_contact_id,
206 p_trx_header_tbl(i).bill_to_address_id,
207 p_trx_header_tbl(i).bill_to_site_use_id,
208 p_trx_header_tbl(i).ship_to_customer_id,
209 p_trx_header_tbl(i).ship_to_account_number,
210 p_trx_header_tbl(i).ship_to_customer_name,
211 null, -- p_trx_header_tbl(i).ship_to_location_id,
212 p_trx_header_tbl(i).ship_to_contact_id,
213 p_trx_header_tbl(i).ship_to_address_id,
214 p_trx_header_tbl(i).ship_to_site_use_id,
215 NVL(p_trx_header_tbl(i).sold_to_customer_id,
216 p_trx_header_tbl(i).bill_to_customer_id),
217 null, -- p_trx_header_tbl(i).sold_to_site_use_id,
218 null, -- p_trx_header_tbl(i).sold_to_contact_id,
219 p_trx_header_tbl(i).term_id,
220 p_trx_header_tbl(i).primary_salesrep_id,
221 p_trx_header_tbl(i).primary_salesrep_name,
222 p_trx_header_tbl(i).exchange_rate_type,
223 p_trx_header_tbl(i).exchange_date,
224 p_trx_header_tbl(i).exchange_rate,
225 p_trx_header_tbl(i).territory_id,
226 p_trx_header_tbl(i).remit_to_address_id,
227 p_trx_header_tbl(i).invoicing_rule_id,
228 null, -- p_trx_header_tbl(i).SHIPMENT_ID,
229 p_trx_header_tbl(i).PRINTING_OPTION,
230 null, -- p_trx_header_tbl(i).PRINTING_COUNT,
231 p_trx_header_tbl(i).PURCHASE_ORDER,
232 p_trx_header_tbl(i).PURCHASE_ORDER_REVISION,
233 p_trx_header_tbl(i).PURCHASE_ORDER_DATE,
234 null, -- p_trx_header_tbl(i).CUSTOMER_REFERENCE,
235 null, -- p_trx_header_tbl(i).CUSTOMER_REFERENCE_DATE,
236 p_trx_header_tbl(i).COMMENTS,
237 p_trx_header_tbl(i).INTERNAL_NOTES,
238 p_trx_header_tbl(i).FINANCE_CHARGES,
239 null, --p_trx_header_tbl(i).CREDIT_METHOD_FOR_RULES,
240 null, --p_trx_header_tbl(i).CREDIT_METHOD_FOR_INSTALLMENTS,
241 p_trx_header_tbl(i).RECEIPT_METHOD_ID,
242 p_trx_header_tbl(i).RELATED_CUSTOMER_TRX_ID,
243 p_trx_header_tbl(i).agreement_id,
244 p_trx_header_tbl(i).SHIP_VIA,
245 p_trx_header_tbl(i).SHIP_DATE_ACTUAL,
246 p_trx_header_tbl(i).WAYBILL_NUMBER,
247 p_trx_header_tbl(i).FOB_POINT,
248 p_trx_header_tbl(i).CUSTOMER_BANK_ACCOUNT_ID,
249 null, -- p_trx_header_tbl(i).DEFAULT_USSGL_TRX_CODE_CONTEXT,
250 p_trx_header_tbl(i).DEFAULT_USSGL_TRANSACTION_CODE,
251 null, -- p_trx_header_tbl(i).RECURRED_FROM_TRX_NUMBER,
252 p_trx_header_tbl(i).STATUS_TRX,
253 p_trx_header_tbl(i).PAYING_CUSTOMER_ID,
254 p_trx_header_tbl(i).PAYING_SITE_USE_ID,
255 p_trx_header_tbl(i).DEFAULT_TAX_EXEMPT_FLAG,
256 null, -- p_trx_header_tbl(i).MRC_EXCHANGE_RATE_TYPE,
257 null, -- p_trx_header_tbl(i).MRC_EXCHANGE_DATE,
258 null, -- p_trx_header_tbl(i).MRC_EXCHANGE_RATE,
259 null, -- p_trx_header_tbl(i).doc_sequence_id,
260 p_trx_header_tbl(i).doc_sequence_value,
261 p_trx_header_tbl(i).attribute_category,
262 p_trx_header_tbl(i).attribute1,
263 p_trx_header_tbl(i).attribute2,
264 p_trx_header_tbl(i).attribute3,
265 p_trx_header_tbl(i).attribute4,
266 p_trx_header_tbl(i).attribute5,
267 p_trx_header_tbl(i).attribute6,
268 p_trx_header_tbl(i).attribute7,
269 p_trx_header_tbl(i).attribute8,
270 p_trx_header_tbl(i).attribute9,
271 p_trx_header_tbl(i).attribute10,
272 p_trx_header_tbl(i).attribute11,
273 p_trx_header_tbl(i).attribute12,
274 p_trx_header_tbl(i).attribute13,
275 p_trx_header_tbl(i).attribute14,
276 p_trx_header_tbl(i).attribute15,
277 p_trx_header_tbl(i).global_attribute_category,
278 p_trx_header_tbl(i).global_attribute1,
279 p_trx_header_tbl(i).global_attribute2,
280 p_trx_header_tbl(i).global_attribute3,
281 p_trx_header_tbl(i).global_attribute4,
282 p_trx_header_tbl(i).global_attribute5,
283 p_trx_header_tbl(i).global_attribute6,
284 p_trx_header_tbl(i).global_attribute7,
285 p_trx_header_tbl(i).global_attribute8,
286 p_trx_header_tbl(i).global_attribute9,
287 p_trx_header_tbl(i).global_attribute10,
288 p_trx_header_tbl(i).global_attribute11,
289 p_trx_header_tbl(i).global_attribute12,
290 p_trx_header_tbl(i).global_attribute13,
291 p_trx_header_tbl(i).global_attribute14,
292 p_trx_header_tbl(i).global_attribute15,
293 p_trx_header_tbl(i).global_attribute16,
294 p_trx_header_tbl(i).global_attribute17,
295 p_trx_header_tbl(i).global_attribute18,
296 p_trx_header_tbl(i).global_attribute19,
297 p_trx_header_tbl(i).global_attribute20,
298 p_trx_header_tbl(i).global_attribute21,
299 p_trx_header_tbl(i).global_attribute22,
300 p_trx_header_tbl(i).global_attribute23,
301 p_trx_header_tbl(i).global_attribute24,
302 p_trx_header_tbl(i).global_attribute25,
303 p_trx_header_tbl(i).global_attribute26,
304 p_trx_header_tbl(i).global_attribute27,
305 p_trx_header_tbl(i).global_attribute28,
306 p_trx_header_tbl(i).global_attribute29,
307 p_trx_header_tbl(i).global_attribute30,
308 p_trx_header_tbl(i).interface_header_context,
309 p_trx_header_tbl(i).interface_header_attribute1,
310 p_trx_header_tbl(i).interface_header_attribute2,
311 p_trx_header_tbl(i).interface_header_attribute3,
312 p_trx_header_tbl(i).interface_header_attribute4,
313 p_trx_header_tbl(i).interface_header_attribute5,
314 p_trx_header_tbl(i).interface_header_attribute6,
315 p_trx_header_tbl(i).interface_header_attribute7,
316 p_trx_header_tbl(i).interface_header_attribute8,
317 p_trx_header_tbl(i).interface_header_attribute9,
318 p_trx_header_tbl(i).interface_header_attribute10,
319 p_trx_header_tbl(i).interface_header_attribute11,
320 p_trx_header_tbl(i).interface_header_attribute12,
321 p_trx_header_tbl(i).interface_header_attribute13,
322 p_trx_header_tbl(i).interface_header_attribute14,
323 p_trx_header_tbl(i).interface_header_attribute15,
324 p_trx_header_tbl(i).legal_entity_id,
325 p_trx_header_tbl(i).payment_trxn_extension_id,
326 p_trx_header_tbl(i).billing_date,
327 p_trx_header_tbl(i).interest_header_id,
328 p_trx_header_tbl(i).late_charges_assessed,
329 AR_INVOICE_TABLE_HANDLER.g_batch_id, -- 5921925
330 AR_INVOICE_TABLE_HANDLER.g_request_id, -- 5921925
331 DECODE(trunc(p_trx_header_tbl(i).gl_date),NULL, DECODE(p_batch_source_rec.default_date,NULL,'Y','N'),'N'),
332
333 p_trx_header_tbl(i).document_sub_type,
334 p_trx_header_tbl(i).default_taxation_country,
335 p_trx_header_tbl(i).mandate_last_trx_flag );
336
337 arp_util.debug ( 'insert header ' || (p_trx_header_tbl(i).trx_header_id) );
338 arp_util.debug ( 'insert header PMT' || (p_trx_header_tbl(i).payment_trxn_extension_id) );
339 END LOOP;
340
341
342
343
344 IF pg_debug = 'Y'
345 THEN
346 ar_invoice_utils.debug ('AR_TRX_GLOBAL_PROCESS_HEADER.INERT_ROW(-)');
347 END IF;
348 EXCEPTION
349 WHEN OTHERS THEN
350 x_errmsg := 'Error in AR_TRX_GLOBAL_PROCESS_HEADER.INERT_ROW '||
351 sqlerrm;
352 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353 RETURN;
354
355 END INSERT_ROW;
356
357 END AR_TRX_GLOBAL_PROCESS_HEADER;