1 PACKAGE AR_GTA_CONC_PROG AUTHID CURRENT_USER AS
2 ----$Header: ARGCCPGS.pls 120.0.12010000.3 2010/01/19 07:11:23 choli noship $
3 --+===========================================================================+
4 --| Copyright (c) 2005 Oracle Corporation |
5 --| Redwood Shores, California, USA |
6 --| All rights reserved. |
7 --+===========================================================================+
8 --| |
9 --| FILENAME : |
10 --| ARCCPGS.pls |
11 --| |
12 --| DESCRIPTION: |
13 --| This package is the a collection of procedures which |
14 --| called by concurrent programs |
15 --| |
16 --| |
17 --| HISTORY: |
18 --| 20-APR-2005: Jim Zheng Create |
19 --| 08-MAY-2005: Qiang Li |
20 --| 20-MAY-2005: Jogen Hu add Import_GT_invoices |
21 --| Transfer_Invoices_to_GT |
22 --| Transfer_Trxs_from_workbench |
23 --| 13-Jun-2005: Donghai Wang add procedure Discrepancy_Report |
24 --| and Item_Export |
25 --| 01-Jul-2005: Jim Zheng Update after code review, |
26 --| chang parameter type. |
27 --| 28-Sep-2005: Jogen Hu change Transfer_Invoices_to_GT |
28 --| 18-Oct-2005: Donghai Wang Update 'Transrfer_Invoices_To_GT' |
29 --| procedure to adjust order of |
30 --| paramerts |
31 --| 30-Nov-2005: Qiang Li change set_of_books_id to ledger_id in |
32 --| purge program |
33 --| 18-Jun-2007: Yanping Wang Modify g_module_prefix to use small case|
34 --| of ar |
35 --| 20-Jul-2009: Yao Zhang Add procedure Consolidate_Invoices |
36 --| 25-Jul-2009: Allen Yang Add procedure Run_Consolidation_Mapping |
37 --| 08-Aug-2009: Yao Zhang Fix bug#8770356, add parameter org_id to |
38 --| procedure consolidate_invoices |
39 --| 16-Aug-2009: Allen Yang Add procedures Populate_Invoice_Type |
40 --| and Populate_Invoice_Type_Header to |
41 --| do data migration from 12.0 to 12.1.X |
42 --+===========================================================================+
43
44 --Declare global variable for package name
45 g_module_prefix VARCHAR2(100) := 'ar.plsql.AR_GTA_CONC_PROC';
46
47 --==========================================================================
48 -- PROCEDURE NAME:
49 --
50 -- Transfer_AR_Transactions Public
51 --
52 -- DESCRIPTION:
53 --
54 -- This procedure is the main program for transfer program.
55 --
56 -- PARAMETERS:
57 -- In: p_transfer_id Transfer rule id
58 -- p_customer_num_from Customer number from
59 -- p_customer_num_to Customer number to
60 -- p_customer_name_from Customer name from
61 -- p_customer_name_to Customer name to
62 -- p_gl_period GL period
63 -- p_gl_date_from GL date from
64 -- p_gl_date_to GL date to
65 -- p_trx_batch_from Batch number from
66 -- p_trx_batch_to Batch number to
67 -- p_trx_number_from Trx number from
68 -- p_trx_number_to Trx number to
69 -- p_trx_date_from Trx date from
70 -- p_trx_date_to Trx date to
71 -- p_doc_num_from Doc number from
72 -- p_doc_num_to Doc number to
73 -- Out: errbuf
74 -- retcode
75 --
76 -- DESIGN REFERENCES:
77 -- GTA-TRANSFER-PROGRAM-TD.doc
78 --
79 -- CHANGE HISTORY:
80 --
81 -- 05-MAY-2005: Jim.Zheng Created
82 --
83 --===========================================================================
84 PROCEDURE transfer_ar_transactions
85 (errbuf OUT NOCOPY VARCHAR2
86 ,retcode OUT NOCOPY VARCHAR2
87 ,p_transfer_id IN VARCHAR2
88 ,p_customer_num_from IN VARCHAR2
89 ,p_customer_num_to IN VARCHAR2
90 ,p_customer_name_from IN VARCHAR2
91 ,p_customer_name_to IN VARCHAR2
92 ,p_gl_period IN VARCHAR2
93 ,p_gl_date_from IN VARCHAR2
94 ,p_gl_date_to IN VARCHAR2
95 ,p_trx_batch_from IN VARCHAR2
96 ,p_trx_batch_to IN VARCHAR2
97 ,p_trx_number_from IN VARCHAR2
98 ,p_trx_number_to IN VARCHAR2
99 ,p_trx_date_from IN VARCHAR2
100 ,p_trx_date_to IN VARCHAR2
101 ,p_doc_num_from IN NUMBER
102 ,p_doc_num_to IN NUMBER
103 );
104
105 --==========================================================================
106 -- PROCEDURE NAME:
107 --
108 -- Purge_Invoice Public
109 --
110 -- DESCRIPTION:
111 --
112 -- This procedure is the main program for purge program,
113 -- it search eligible records in GTA invoice tables first,
114 -- if find any, then invoke corresponding table handlers to
115 -- remove these records from db.
116 --
117 -- PARAMETERS:
118 -- In: p_set_of_books_id Accounting book identifier
119 -- p_customer_name Customer name
120 -- p_gl_date_from GL date low range
121 -- p_gl_date_to GL date high range
122 --
123 -- Out: errbuf
124 -- retcode
125 --
126 -- DESIGN REFERENCES:
127 -- GTA-PURGE-PROGRAM-TD.doc
128 --
129 -- CHANGE HISTORY:
130 --
131 -- 8-MAY-2005: Qiang Li Created.
132 -- 30-Nov-2005: Qiang Li change set_of_books_id to ledger_id
133 --
134 --===========================================================================
135 PROCEDURE purge_invoice
136 (errbuf OUT NOCOPY VARCHAR2
137 ,retcode OUT NOCOPY VARCHAR2
138 ,p_ledger_id IN NUMBER
139 ,p_customer_name IN VARCHAR2
140 ,p_gl_date_from IN VARCHAR2
141 ,p_gl_date_to IN VARCHAR2
142 );
143
144 --==========================================================================
145 -- PROCEDURE NAME:
146 --
147 -- Run_AR_GT_Mapping Public
148 --
149 -- DESCRIPTION:
150 --
151 -- This Concurrent program Generate Mapping Report Data
152 --
153 -- PARAMETERS:
154 -- In: p_fp_tax_reg_num First Party Tax Registration Number
155 -- p_trx_source Transaction source,GT or AR
156 -- P_Customer_Id Customer id
157 -- p_gt_inv_num_from GT Invoice Number low range
158 -- p_gt_inv_num_to GT Invoice Number high range
159 -- p_gt_inv_date_from GT Invoice Date low range
160 -- p_gt_inv_date_to GT Invoice Date high range
161 -- p_ar_inv_num_from AR Invoice Number low range
162 -- p_ar_inv_num_to AR Invoice Number high range
163 -- p_ar_inv_date_from AR Invoice Date low range
164 -- p_ar_inv_date_to AR Invoice Date high range
165 --
166 -- Out: errbuf
167 -- retcode
168 --
169 -- DESIGN REFERENCES:
170 -- GTA_REPORTS_TD.doc
171 --
172 -- CHANGE HISTORY:
173 --
174 -- 8-MAY-2005: Qiang Li Created.
175 -- 27-Sep-2005:Qiang Li Add a new parameter fp_tax_reg_number.
176 --
177 --===========================================================================
178 PROCEDURE run_ar_gt_mapping
179 (errbuf OUT NOCOPY VARCHAR2
180 ,retcode OUT NOCOPY VARCHAR2
181 ,p_fp_tax_reg_num IN VARCHAR2
182 ,p_trx_source IN NUMBER
183 ,p_customer_id IN VARCHAR2
184 ,p_gt_inv_num_from IN VARCHAR2
185 ,p_gt_inv_num_to IN VARCHAR2
186 ,p_gt_inv_date_from IN VARCHAR2
187 ,p_gt_inv_date_to IN VARCHAR2
188 ,p_ar_inv_num_from IN VARCHAR2
189 ,p_ar_inv_num_to IN VARCHAR2
190 ,p_ar_inv_date_from IN VARCHAR2
191 ,p_ar_inv_date_to IN VARCHAR2
192 );
193
194 --==========================================================================
195 -- PROCEDURE NAME:
196 --
197 -- Import_GT_Invoices Public
198 --
199 -- DESCRIPTION:
200 --
201 -- This procedure is program of SRS concurrent for import
202 -- flat file exported from Golden Tax system
203 --
204 -- PARAMETERS:
205 -- In:
206 --
207 -- Out: errbuf
208 -- retcode
209 --
210 -- DESIGN REFERENCES:
211 -- GTA-Txt-Interface-TD.doc
212 --
213 -- CHANGE HISTORY:
214 --
215 -- 20-MAY-2005: Jogen Hu Created
216 --
217 --===========================================================================
218 PROCEDURE import_gt_invoices
219 (errbuf OUT NOCOPY VARCHAR2
220 ,retcode OUT NOCOPY VARCHAR2
221 );
222
223 --==========================================================================
224 -- PROCEDURE NAME:
225 --
226 -- Transfer_Invoices_to_GT Public
227 --
228 -- DESCRIPTION:
229 --
230 -- This procedure is a SRS concurrent program which exports GTA
231 -- invoices to the flat file Its output will be printed on concurrent
232 -- output and will be save as flat file by users.
233 --
234 -- PARAMETERS:
235 -- In: p_regeneration IN VARCHAR2
236 -- p_new_batch_dummy IN VARCHAR2
237 -- p_regeneration_dummy IN VARCHAR2
238 -- p_fp_tax_reg_num IN VARCHAR2
239 -- p_transfer_rule_id IN NUMBER
240 -- p_batch_number IN VARCHAR2
241 -- p_customer_id_from_number IN NUMBER
242 -- p_customer_id_from_name IN NUMBER
243 -- p_cust_id_from_taxpayer IN NUMBER
244 -- p_ar_trx_num_from IN VARCHAR2
245 -- p_ar_trx_num_to IN VARCHAR2
246 -- p_ar_trx_date_from IN VARCHAR2
247 -- p_ar_trx_date_to IN VARCHAR2
248 -- p_ar_trx_gl_date_from IN VARCHAR2
249 -- p_ar_trx_gl_date_to IN VARCHAR2
250 -- p_ar_trx_batch_from IN VARCHAR2
251 -- p_ar_trx_batch_to IN VARCHAR2
252 -- p_trx_class IN VARCHAR2
253 -- p_batch_id IN VARCHAR2
254 -- p_invoice_type IN VARCHAR2
255 --
256 -- Out: errbuf
257 -- retcode
258 --
259 -- DESIGN REFERENCES:
260 -- GTA-Txt-Interface-TD.doc
261 --
262 -- CHANGE HISTORY:
263 --
264 -- 20-MAY-2005: Jogen Hu Created
265 -- 28-Sep-2005: Jogen Hu add a parameter
266 -- p_fp_tax_reg_num IN VARCHAR2
267 -- 18-Oct-2005: Donghai Wang move the parameter 'p_fp_tax_reg_num'
268 -- behind the parameter 'p_regeneration_dummy'
269 --===========================================================================
270 PROCEDURE transfer_invoices_to_gt
271 (errbuf OUT NOCOPY VARCHAR2
272 ,retcode OUT NOCOPY VARCHAR2
273 ,p_regeneration IN VARCHAR2
274 ,p_new_batch_dummy IN VARCHAR2
275 ,p_regeneration_dummy IN VARCHAR2
276 ,p_fp_tax_reg_num IN VARCHAR2
277 ,p_transfer_rule_id IN NUMBER
278 ,p_batch_number IN VARCHAR2
279 ,p_customer_id_from_number IN NUMBER
280 ,p_customer_id_from_name IN NUMBER
281 ,p_cust_id_from_taxpayer IN NUMBER
282 ,p_ar_trx_num_from IN VARCHAR2
283 ,p_ar_trx_num_to IN VARCHAR2
284 ,p_ar_trx_date_from IN VARCHAR2
285 ,p_ar_trx_date_to IN VARCHAR2
286 ,p_ar_trx_gl_date_from IN VARCHAR2
287 ,p_ar_trx_gl_date_to IN VARCHAR2
288 ,p_ar_trx_batch_from IN VARCHAR2
289 ,p_ar_trx_batch_to IN VARCHAR2
290 ,p_trx_class IN VARCHAR2
291 ,p_batch_id IN VARCHAR2
292 ,p_invoice_type IN VARCHAR2
293 );
294
295 --==========================================================================
296 -- PROCEDURE NAME:
297 --
298 -- Export_Invoices_from_Workbench Public
299 --
300 -- DESCRIPTION:
301 --
302 -- This procedure is a SRS concurrent program which exports VAT
303 -- invoices from GTA to flat file and is invoked in workbench
304 --
305 -- PARAMETERS:
306 -- In: p_org_id IN NUMBER
307 -- p_generator_ID IN NUMBER
308 -- p_batch_number IN VARCHAR2
309 --
310 -- Out: errbuf
311 -- retcode
312 --
313 -- DESIGN REFERENCES:
314 -- GTA-Txt-Interface-TD.doc
315 --
316 -- CHANGE HISTORY:
317 --
318 -- 20-MAY-2005: Jogen Hu Created
319 --
320 --==========================================================================
321 PROCEDURE transfer_trxs_from_workbench
322 (errbuf OUT NOCOPY VARCHAR2
323 ,retcode OUT NOCOPY VARCHAR2
324 ,p_org_id IN NUMBER
325 ,p_generator_id IN NUMBER
326 ,p_batch_number IN VARCHAR2
327 );
328
329 --==========================================================================
330 -- PROCEDURE NAME:
331 --
332 -- Discrepancy_Report Public
333 --
334 -- DESCRIPTION:
335 --
336 -- This procedure is called by concurren program 'Golden Tax
337 -- Discrepancy Report' to generte discrepancy report.
338 --
339 -- PARAMETERS:
340 -- In: p_gta_batch_num_from GTA invoice batch number low range
341 -- p_gta_batch_num_to GTA invoice batch number high range
342 -- p_ar_transaction_type AR transaction type
343 -- p_cust_num_from Customer number low range
344 -- p_cust_num_to Customer number high range
345 -- p_cust_name_id Identifier of customer
346 -- p_gl_period GL period name
347 -- p_gl_date_from GL date low range
348 -- p_gl_date_to GL date high range
349 -- p_ar_trx_batch_from AR transaction batch name low range
350 -- p_ar_trx_batch_to AR transaction batch name high range
351 -- P_ar_trx_num_from AR transaction number low range
352 -- P_ar_trx_num_to AR transaction number high range
353 -- p_ar_trx_date_from AR transaction date low range
354 -- p_ar_trx_date_to AR transaction date high range
355 -- p_ar_doc_num_from AR document sequnce number low range
356 -- p_ar_doc_num_to AR document sequnce number high range
357 -- p_original_curr_code Original currency code
358 -- p_primary_sales Identifier of primary salesperson
359 --
360 -- Out: errbuf
361 -- retcode
362 --
363 -- DESIGN REFERENCES:
364 -- GTA_REPORTS_TD.doc
365 --
366 -- CHANGE HISTORY:
367 --
368 -- 13-Jun-2005: Donghai Wang Created
369 --
370 --==========================================================================
371 PROCEDURE discrepancy_report
372 (errbuf OUT NOCOPY VARCHAR2
373 ,retcode OUT NOCOPY VARCHAR2
374 ,p_gta_batch_num_from IN VARCHAR2
375 ,p_gta_batch_num_to IN VARCHAR2
376 ,p_ar_transaction_type IN NUMBER
377 ,p_cust_num_from IN VARCHAR2
378 ,p_cust_num_to IN VARCHAR2
379 ,p_cust_name_id IN NUMBER
380 ,p_gl_period IN VARCHAR2
381 ,p_gl_date_from IN VARCHAR2
382 ,p_gl_date_to IN VARCHAR2
383 ,p_ar_trx_batch_from IN VARCHAR2
384 ,p_ar_trx_batch_to IN VARCHAR2
385 ,p_ar_trx_num_from IN VARCHAR2
386 ,p_ar_trx_num_to IN VARCHAR2
387 ,p_ar_trx_date_from IN VARCHAR2
388 ,p_ar_trx_date_to IN VARCHAR2
389 ,p_ar_doc_num_from IN VARCHAR2
390 ,p_ar_doc_num_to IN VARCHAR2
391 ,p_original_curr_code IN VARCHAR2
392 ,p_primary_sales IN NUMBER
393 );
394
395 --==========================================================================
396 -- PROCEDURE NAME:
397 --
398 -- Item_Export Public
399 --
400 -- DESCRIPTION:
401 --
402 -- This procedure is to export item information to a flat file
403 --
404 -- PARAMETERS:
408 -- p_category_set_id Identifier of item category set
405 -- In: p_master_org_id Identifier of INV master organization
406 -- p_item_num_from Item number low range
407 -- p_item_num_to Item number high range
409 -- p_category_structure_id Structure id of item category
410 -- p_item_category_from Item category low range
411 -- p_item_category_to Item category high range
412 -- p_item_name_source Source to deciede where item name is gotten
413 -- p_dummy Dummy parameter
414 -- p_cross_reference_type Cross reference
415 -- p_item_status Status of an item
416 -- p_creation_date_from Item creation date low range
417 -- p_creation_date_to Item creation date high range
418 --
419 -- Out: errbuf
420 -- retcode
421 --
422 -- DESIGN REFERENCES:
423 -- GTA-Txt-Interface-TD.doc
424 --
425 -- CHANGE HISTORY:
426 --
427 -- 13-Jun-2005: Donghai Wang Created
428 --
429 --==========================================================================
430 PROCEDURE item_export
431 (errbuf OUT NOCOPY VARCHAR2
432 ,retcode OUT NOCOPY VARCHAR2
433 ,p_master_org_id IN NUMBER
434 ,p_item_num_from IN VARCHAR2
435 ,p_item_num_to IN VARCHAR2
436 ,p_category_set_id IN NUMBER
437 ,p_category_structure_id IN NUMBER
438 ,p_item_category_from IN VARCHAR2
439 ,p_item_category_to IN VARCHAR2
440 ,p_item_name_source IN VARCHAR2
441 ,p_dummy IN VARCHAR2
442 ,p_cross_reference_type IN VARCHAR2
443 ,p_item_status IN VARCHAR2
444 ,p_creation_date_from IN VARCHAR2
445 ,p_creation_date_to IN VARCHAR2
446 );
447
448 --==========================================================================
449 -- PROCEDURE NAME:
450 --
451 -- Transfer_Customers_To_GT Public
452 --
453 -- DESCRIPTION:
454 --
455 -- This procedure convert AR customers information into a flat file
456 --
457 -- PARAMETERS:
458 -- In: p_customer_num_from IN VARCHAR2
459 -- p_customer_num_to IN VARCHAR2
460 -- p_customer_name_from IN VARCHAR2
461 -- p_customer_name_to IN VARCHAR2
462 -- p_taxpayee_id IN VARCHAR2
463 -- p_creation_date_from IN VARCHAR2
464 -- p_creation_date_to IN VARCHAR2
465 --
466 -- Out: errbuf
467 -- retcode
468 --
469 -- DESIGN REFERENCES:
470 -- GTA-Txt-Interface-TD.doc
471 --
472 -- CHANGE HISTORY:
473 --
474 -- 20-MAY-2005: Jim.Zheng Created.
475 -- 26_Jun-005 Jim Zheng update , chanage the Date parameter to Varchar2
476 --==========================================================================
477 PROCEDURE transfer_customers_to_gt
478 (errbuf OUT NOCOPY VARCHAR2
479 ,retcode OUT NOCOPY VARCHAR2
480 ,p_customer_num_from IN VARCHAR2
481 ,p_customer_num_to IN VARCHAR2
482 ,p_customer_name_from IN VARCHAR2
483 ,p_customer_name_to IN VARCHAR2
484 --,p_taxpayee_id IN VARCHAR2
485 ,p_creation_date_from IN VARCHAR2
486 ,p_creation_date_to IN VARCHAR2
487 );
488 --=============================================================================
489 -- PROCEDURE NAME:
490 -- Consolidate_Invoices
491 -- TYPE:
492 -- PUBLIC
493 --
494 -- DESCRIPTION: This is the entrance procedure to merge invoice.
495 --
496 -- PARAMETERS:
497 -- p_same_pri_same_dis IN VARCHAR2 same price and same discoout
498 -- p_same_pri_diff_dis IN VARCHAR2 same price with different discount
499 -- p_diff_pri IN VARCHAR2 different price
500 -- p_sales_list_flag IN VARCHAR2 salese_list_flag
501 -- p_consolidation_id IN NUMBER consolidation id
502 --
503 -- HISTORY:
504 -- 30-Jun-2009 : Yao Zhang Create
505 -- 08-Aug-2009 : Yao Zhang modified for bug#8770356
506 --=============================================================================
507 PROCEDURE Consolidate_Invoices
508 (errbuf OUT NOCOPY VARCHAR2
509 ,retcode OUT NOCOPY VARCHAR2
510 ,p_consolidation_id IN NUMBER
511 ,p_same_pri_same_dis IN VARCHAR2
512 ,p_same_pri_diff_dis IN VARCHAR2
513 ,p_diff_pri IN VARCHAR2
514 ,p_sales_list_flag IN VARCHAR2
515 ,p_org_id IN NUMBER --Yao Zhang add for bug#8770356
516 );
517
518 --=============================================================================
519 -- PROCEDURE NAME:
520 -- Run_Consolidation_Mapping
521 -- TYPE:
522 -- PUBLIC
523 --
524 -- DESCRIPTION: This is the entrance procedure for invoice consolidation
525 -- mapping report.
526 --
527 -- PARAMETERS:
528 -- IN : p_gl_period GL period
529 -- p_customer_num_from customer number from
530 -- p_customer_num_to customer number to
531 -- p_customer_name_from customer name from
532 -- p_customer_name_to customer name to
533 -- p_consol_trx_num_from consolidated invoice number from
534 -- p_consol_trx_num_to consolidated invoice number to
535 -- p_invoice_type invoice type
536 --
537 -- HISTORY:
538 -- 25-Jul-2009 : Allen Yang Created
542 ,retcode OUT NOCOPY VARCHAR2
539 --=============================================================================
540 PROCEDURE Run_Consolidation_Mapping
541 (errbuf OUT NOCOPY VARCHAR2
543 ,p_gl_period IN VARCHAR2
544 ,p_customer_num_from IN VARCHAR2
545 ,p_customer_num_to IN VARCHAR2
546 ,p_customer_name_from IN VARCHAR2
547 ,p_customer_name_to IN VARCHAR2
548 ,p_consol_trx_num_from IN VARCHAR2
549 ,p_consol_trx_num_to IN VARCHAR2
550 ,p_invoice_type IN VARCHAR2
551 );
552
553 --==========================================================================
554 -- PROCEDURE NAME:
555 --
556 -- Populate_Invoice_Type Public
557 --
558 -- DESCRIPTION:
559 --
560 -- In R12.1.1, there were 2 sql files need be manually run to migrate the
561 -- setup and transaction data from GTA 12.0 to GTA 12.1.
562 -- In R12.1.2, we convert this two sql into concurrent programs which
563 -- can be run by user from UI.
564 -- This procedure is to populate data to INVOICE_TYPE column for
565 -- Transfer Rule and System Option tables.
566 --
567 -- PARAMETERS:
568 -- In:
569 --
570 -- Out: errbuf
571 -- retcode
572 --
573 -- DESIGN REFERENCES:
574 -- GTA_12.1.2_Technical_Design.doc
575 --
576 -- CHANGE HISTORY:
577 --
578 -- 16-Aug-2009: Allen Yang Created
579 --
580 --===========================================================================
581 PROCEDURE Populate_Invoice_Type
582 (errbuf OUT NOCOPY VARCHAR2
583 ,retcode OUT NOCOPY VARCHAR2
584 );
585
586 --==========================================================================
587 -- PROCEDURE NAME:
588 --
589 -- Populate_Invoice_Type_Header Public
590 --
591 -- DESCRIPTION:
592 --
593 -- In R12.1.1, there were 2 sql files need be manually run to migrate the
594 -- setup and transaction data from GTA 12.0 to GTA 12.1.
595 -- In R12.1.2, we convert this two sql into concurrent programs which
596 -- can be run by user from UI.
597 -- This procedure is to populate data to INVOICE_TYPE column for
598 -- GTA Invoice Header table.
599 -- PARAMETERS:
600 -- In:
601 --
602 -- Out: errbuf
603 -- retcode
604 --
605 -- DESIGN REFERENCES:
606 -- GTA_12.1.2_Technical_Design.doc
607 --
608 -- CHANGE HISTORY:
609 --
610 -- 16-Aug-2009: Allen Yang Created
611 --
612 --===========================================================================
613 PROCEDURE Populate_Invoice_Type_Header
614 (errbuf OUT NOCOPY VARCHAR2
615 ,retcode OUT NOCOPY VARCHAR2
616 );
617
618 END AR_GTA_CONC_PROG;