DBA Data[Home] [Help]

PACKAGE BODY: APPS.CN_ADJ_DISP_PUB_W

Source


1 package body cn_adj_disp_pub_w as
2   /* $Header: cnwadjb.pls 115.8 2002/11/25 23:27:26 mblum ship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   procedure rosetta_table_copy_in_p1(t out nocopy cn_adj_disp_pub.adj_tbl_type, a0 JTF_VARCHAR2_TABLE_100
14     , a1 JTF_DATE_TABLE
15     , a2 JTF_NUMBER_TABLE
16     , a3 JTF_DATE_TABLE
17     , a4 JTF_DATE_TABLE
18     , a5 JTF_DATE_TABLE
19     , a6 JTF_VARCHAR2_TABLE_100
20     , a7 JTF_VARCHAR2_TABLE_100
21     , a8 JTF_VARCHAR2_TABLE_100
22     , a9 JTF_DATE_TABLE
23     , a10 JTF_VARCHAR2_TABLE_100
24     , a11 JTF_VARCHAR2_TABLE_100
25     , a12 JTF_NUMBER_TABLE
26     , a13 JTF_NUMBER_TABLE
27     , a14 JTF_VARCHAR2_TABLE_300
28     , a15 JTF_VARCHAR2_TABLE_300
29     , a16 JTF_VARCHAR2_TABLE_300
30     , a17 JTF_VARCHAR2_TABLE_300
31     , a18 JTF_VARCHAR2_TABLE_300
32     , a19 JTF_VARCHAR2_TABLE_300
33     , a20 JTF_VARCHAR2_TABLE_300
34     , a21 JTF_VARCHAR2_TABLE_300
35     , a22 JTF_VARCHAR2_TABLE_300
36     , a23 JTF_VARCHAR2_TABLE_300
37     , a24 JTF_VARCHAR2_TABLE_300
38     , a25 JTF_VARCHAR2_TABLE_300
39     , a26 JTF_VARCHAR2_TABLE_300
40     , a27 JTF_VARCHAR2_TABLE_300
41     , a28 JTF_VARCHAR2_TABLE_300
42     , a29 JTF_VARCHAR2_TABLE_300
43     , a30 JTF_VARCHAR2_TABLE_300
44     , a31 JTF_VARCHAR2_TABLE_300
45     , a32 JTF_VARCHAR2_TABLE_300
46     , a33 JTF_VARCHAR2_TABLE_300
47     , a34 JTF_VARCHAR2_TABLE_300
48     , a35 JTF_VARCHAR2_TABLE_300
49     , a36 JTF_VARCHAR2_TABLE_300
50     , a37 JTF_VARCHAR2_TABLE_300
51     , a38 JTF_VARCHAR2_TABLE_300
52     , a39 JTF_VARCHAR2_TABLE_300
53     , a40 JTF_VARCHAR2_TABLE_300
54     , a41 JTF_VARCHAR2_TABLE_300
55     , a42 JTF_VARCHAR2_TABLE_300
56     , a43 JTF_VARCHAR2_TABLE_300
57     , a44 JTF_VARCHAR2_TABLE_300
58     , a45 JTF_VARCHAR2_TABLE_300
59     , a46 JTF_VARCHAR2_TABLE_300
60     , a47 JTF_VARCHAR2_TABLE_300
61     , a48 JTF_VARCHAR2_TABLE_300
62     , a49 JTF_VARCHAR2_TABLE_300
63     , a50 JTF_VARCHAR2_TABLE_300
64     , a51 JTF_VARCHAR2_TABLE_300
65     , a52 JTF_VARCHAR2_TABLE_300
66     , a53 JTF_VARCHAR2_TABLE_300
67     , a54 JTF_VARCHAR2_TABLE_300
68     , a55 JTF_VARCHAR2_TABLE_300
69     , a56 JTF_VARCHAR2_TABLE_300
70     , a57 JTF_VARCHAR2_TABLE_300
71     , a58 JTF_VARCHAR2_TABLE_300
72     , a59 JTF_VARCHAR2_TABLE_300
73     , a60 JTF_VARCHAR2_TABLE_300
74     , a61 JTF_VARCHAR2_TABLE_300
75     , a62 JTF_VARCHAR2_TABLE_300
76     , a63 JTF_VARCHAR2_TABLE_300
77     , a64 JTF_VARCHAR2_TABLE_300
78     , a65 JTF_VARCHAR2_TABLE_300
79     , a66 JTF_VARCHAR2_TABLE_300
80     , a67 JTF_VARCHAR2_TABLE_300
81     , a68 JTF_VARCHAR2_TABLE_300
82     , a69 JTF_VARCHAR2_TABLE_300
83     , a70 JTF_VARCHAR2_TABLE_300
84     , a71 JTF_VARCHAR2_TABLE_300
85     , a72 JTF_VARCHAR2_TABLE_300
86     , a73 JTF_VARCHAR2_TABLE_300
87     , a74 JTF_VARCHAR2_TABLE_300
88     , a75 JTF_VARCHAR2_TABLE_300
89     , a76 JTF_VARCHAR2_TABLE_300
90     , a77 JTF_VARCHAR2_TABLE_300
91     , a78 JTF_VARCHAR2_TABLE_300
92     , a79 JTF_VARCHAR2_TABLE_300
93     , a80 JTF_VARCHAR2_TABLE_300
94     , a81 JTF_VARCHAR2_TABLE_300
95     , a82 JTF_VARCHAR2_TABLE_300
96     , a83 JTF_VARCHAR2_TABLE_300
97     , a84 JTF_VARCHAR2_TABLE_300
98     , a85 JTF_VARCHAR2_TABLE_300
99     , a86 JTF_VARCHAR2_TABLE_300
100     , a87 JTF_VARCHAR2_TABLE_300
101     , a88 JTF_VARCHAR2_TABLE_300
102     , a89 JTF_VARCHAR2_TABLE_300
103     , a90 JTF_VARCHAR2_TABLE_300
104     , a91 JTF_VARCHAR2_TABLE_300
105     , a92 JTF_VARCHAR2_TABLE_300
106     , a93 JTF_VARCHAR2_TABLE_300
107     , a94 JTF_VARCHAR2_TABLE_300
108     , a95 JTF_VARCHAR2_TABLE_300
109     , a96 JTF_VARCHAR2_TABLE_300
110     , a97 JTF_VARCHAR2_TABLE_300
111     , a98 JTF_VARCHAR2_TABLE_300
112     , a99 JTF_VARCHAR2_TABLE_300
113     , a100 JTF_VARCHAR2_TABLE_300
114     , a101 JTF_VARCHAR2_TABLE_300
115     , a102 JTF_VARCHAR2_TABLE_300
116     , a103 JTF_VARCHAR2_TABLE_300
117     , a104 JTF_VARCHAR2_TABLE_300
118     , a105 JTF_VARCHAR2_TABLE_300
119     , a106 JTF_VARCHAR2_TABLE_300
120     , a107 JTF_VARCHAR2_TABLE_300
121     , a108 JTF_VARCHAR2_TABLE_300
122     , a109 JTF_VARCHAR2_TABLE_300
123     , a110 JTF_VARCHAR2_TABLE_300
124     , a111 JTF_VARCHAR2_TABLE_300
125     , a112 JTF_VARCHAR2_TABLE_300
126     , a113 JTF_VARCHAR2_TABLE_300
127     , a114 JTF_NUMBER_TABLE
128     , a115 JTF_VARCHAR2_TABLE_100
129     , a116 JTF_VARCHAR2_TABLE_100
130     , a117 JTF_NUMBER_TABLE
131     , a118 JTF_NUMBER_TABLE
132     , a119 JTF_NUMBER_TABLE
133     , a120 JTF_NUMBER_TABLE
134     , a121 JTF_DATE_TABLE
135     , a122 JTF_VARCHAR2_TABLE_1800
136     , a123 JTF_VARCHAR2_TABLE_100
137     , a124 JTF_VARCHAR2_TABLE_100
138     , a125 JTF_NUMBER_TABLE
139     , a126 JTF_VARCHAR2_TABLE_100
140     , a127 JTF_NUMBER_TABLE
141     , a128 JTF_VARCHAR2_TABLE_100
142     ) as
143     ddindx binary_integer; indx binary_integer;
144   begin
145   if a0 is not null and a0.count > 0 then
146       if a0.count > 0 then
147         indx := a0.first;
148         ddindx := 1;
149         while true loop
150           t(ddindx).invoice_number := a0(indx);
151           t(ddindx).invoice_date := rosetta_g_miss_date_in_map(a1(indx));
152           t(ddindx).order_number := a2(indx);
153           t(ddindx).order_date := rosetta_g_miss_date_in_map(a3(indx));
154           t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
155           t(ddindx).processed_date := rosetta_g_miss_date_in_map(a5(indx));
156           t(ddindx).trx_type_disp := a6(indx);
157           t(ddindx).adjust_status_disp := a7(indx);
158           t(ddindx).adjusted_by := a8(indx);
159           t(ddindx).adjust_date := rosetta_g_miss_date_in_map(a9(indx));
160           t(ddindx).calc_status_disp := a10(indx);
161           t(ddindx).currency_code := a11(indx);
162           t(ddindx).sales_credit := a12(indx);
163           t(ddindx).commission := a13(indx);
164           t(ddindx).attribute1 := a14(indx);
165           t(ddindx).attribute2 := a15(indx);
166           t(ddindx).attribute3 := a16(indx);
167           t(ddindx).attribute4 := a17(indx);
168           t(ddindx).attribute5 := a18(indx);
169           t(ddindx).attribute6 := a19(indx);
170           t(ddindx).attribute7 := a20(indx);
171           t(ddindx).attribute8 := a21(indx);
172           t(ddindx).attribute9 := a22(indx);
173           t(ddindx).attribute10 := a23(indx);
174           t(ddindx).attribute11 := a24(indx);
175           t(ddindx).attribute12 := a25(indx);
176           t(ddindx).attribute13 := a26(indx);
177           t(ddindx).attribute14 := a27(indx);
178           t(ddindx).attribute15 := a28(indx);
179           t(ddindx).attribute16 := a29(indx);
180           t(ddindx).attribute17 := a30(indx);
181           t(ddindx).attribute18 := a31(indx);
182           t(ddindx).attribute19 := a32(indx);
183           t(ddindx).attribute20 := a33(indx);
184           t(ddindx).attribute21 := a34(indx);
185           t(ddindx).attribute22 := a35(indx);
186           t(ddindx).attribute23 := a36(indx);
187           t(ddindx).attribute24 := a37(indx);
188           t(ddindx).attribute25 := a38(indx);
189           t(ddindx).attribute26 := a39(indx);
190           t(ddindx).attribute27 := a40(indx);
191           t(ddindx).attribute28 := a41(indx);
192           t(ddindx).attribute29 := a42(indx);
193           t(ddindx).attribute30 := a43(indx);
194           t(ddindx).attribute31 := a44(indx);
195           t(ddindx).attribute32 := a45(indx);
196           t(ddindx).attribute33 := a46(indx);
197           t(ddindx).attribute34 := a47(indx);
198           t(ddindx).attribute35 := a48(indx);
199           t(ddindx).attribute36 := a49(indx);
200           t(ddindx).attribute37 := a50(indx);
201           t(ddindx).attribute38 := a51(indx);
202           t(ddindx).attribute39 := a52(indx);
203           t(ddindx).attribute40 := a53(indx);
204           t(ddindx).attribute41 := a54(indx);
205           t(ddindx).attribute42 := a55(indx);
206           t(ddindx).attribute43 := a56(indx);
207           t(ddindx).attribute44 := a57(indx);
208           t(ddindx).attribute45 := a58(indx);
209           t(ddindx).attribute46 := a59(indx);
210           t(ddindx).attribute47 := a60(indx);
211           t(ddindx).attribute48 := a61(indx);
212           t(ddindx).attribute49 := a62(indx);
213           t(ddindx).attribute50 := a63(indx);
214           t(ddindx).attribute51 := a64(indx);
215           t(ddindx).attribute52 := a65(indx);
216           t(ddindx).attribute53 := a66(indx);
217           t(ddindx).attribute54 := a67(indx);
218           t(ddindx).attribute55 := a68(indx);
219           t(ddindx).attribute56 := a69(indx);
220           t(ddindx).attribute57 := a70(indx);
221           t(ddindx).attribute58 := a71(indx);
222           t(ddindx).attribute59 := a72(indx);
223           t(ddindx).attribute60 := a73(indx);
224           t(ddindx).attribute61 := a74(indx);
225           t(ddindx).attribute62 := a75(indx);
226           t(ddindx).attribute63 := a76(indx);
227           t(ddindx).attribute64 := a77(indx);
228           t(ddindx).attribute65 := a78(indx);
229           t(ddindx).attribute66 := a79(indx);
230           t(ddindx).attribute67 := a80(indx);
231           t(ddindx).attribute68 := a81(indx);
232           t(ddindx).attribute69 := a82(indx);
233           t(ddindx).attribute70 := a83(indx);
234           t(ddindx).attribute71 := a84(indx);
235           t(ddindx).attribute72 := a85(indx);
236           t(ddindx).attribute73 := a86(indx);
237           t(ddindx).attribute74 := a87(indx);
238           t(ddindx).attribute75 := a88(indx);
239           t(ddindx).attribute76 := a89(indx);
240           t(ddindx).attribute77 := a90(indx);
241           t(ddindx).attribute78 := a91(indx);
242           t(ddindx).attribute79 := a92(indx);
243           t(ddindx).attribute80 := a93(indx);
244           t(ddindx).attribute81 := a94(indx);
245           t(ddindx).attribute82 := a95(indx);
246           t(ddindx).attribute83 := a96(indx);
247           t(ddindx).attribute84 := a97(indx);
248           t(ddindx).attribute85 := a98(indx);
249           t(ddindx).attribute86 := a99(indx);
250           t(ddindx).attribute87 := a100(indx);
251           t(ddindx).attribute88 := a101(indx);
252           t(ddindx).attribute89 := a102(indx);
253           t(ddindx).attribute90 := a103(indx);
254           t(ddindx).attribute91 := a104(indx);
255           t(ddindx).attribute92 := a105(indx);
256           t(ddindx).attribute93 := a106(indx);
257           t(ddindx).attribute94 := a107(indx);
258           t(ddindx).attribute95 := a108(indx);
259           t(ddindx).attribute96 := a109(indx);
260           t(ddindx).attribute97 := a110(indx);
261           t(ddindx).attribute98 := a111(indx);
262           t(ddindx).attribute99 := a112(indx);
263           t(ddindx).attribute100 := a113(indx);
264           t(ddindx).customer_id := a114(indx);
265           t(ddindx).customer_name := a115(indx);
266           t(ddindx).customer_number := a116(indx);
267           t(ddindx).bill_to_address_id := a117(indx);
268           t(ddindx).ship_to_address_id := a118(indx);
269           t(ddindx).bill_to_contact_id := a119(indx);
270           t(ddindx).ship_to_contact_id := a120(indx);
271           t(ddindx).rollup_date := rosetta_g_miss_date_in_map(a121(indx));
272           t(ddindx).comments := a122(indx);
273           t(ddindx).reason_code := a123(indx);
274           t(ddindx).reason := a124(indx);
275           t(ddindx).quota_id := a125(indx);
276           t(ddindx).quota_name := a126(indx);
277           t(ddindx).revenue_class_id := a127(indx);
278           t(ddindx).revenue_class_name := a128(indx);
279           ddindx := ddindx+1;
280           if a0.last =indx
281             then exit;
282           end if;
283           indx := a0.next(indx);
284         end loop;
285       end if;
286    end if;
287   end rosetta_table_copy_in_p1;
288   procedure rosetta_table_copy_out_p1(t cn_adj_disp_pub.adj_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
289     , a1 out nocopy JTF_DATE_TABLE
290     , a2 out nocopy JTF_NUMBER_TABLE
291     , a3 out nocopy JTF_DATE_TABLE
292     , a4 out nocopy JTF_DATE_TABLE
293     , a5 out nocopy JTF_DATE_TABLE
294     , a6 out nocopy JTF_VARCHAR2_TABLE_100
295     , a7 out nocopy JTF_VARCHAR2_TABLE_100
296     , a8 out nocopy JTF_VARCHAR2_TABLE_100
297     , a9 out nocopy JTF_DATE_TABLE
298     , a10 out nocopy JTF_VARCHAR2_TABLE_100
299     , a11 out nocopy JTF_VARCHAR2_TABLE_100
300     , a12 out nocopy JTF_NUMBER_TABLE
301     , a13 out nocopy JTF_NUMBER_TABLE
302     , a14 out nocopy JTF_VARCHAR2_TABLE_300
303     , a15 out nocopy JTF_VARCHAR2_TABLE_300
304     , a16 out nocopy JTF_VARCHAR2_TABLE_300
305     , a17 out nocopy JTF_VARCHAR2_TABLE_300
306     , a18 out nocopy JTF_VARCHAR2_TABLE_300
307     , a19 out nocopy JTF_VARCHAR2_TABLE_300
308     , a20 out nocopy JTF_VARCHAR2_TABLE_300
309     , a21 out nocopy JTF_VARCHAR2_TABLE_300
310     , a22 out nocopy JTF_VARCHAR2_TABLE_300
311     , a23 out nocopy JTF_VARCHAR2_TABLE_300
312     , a24 out nocopy JTF_VARCHAR2_TABLE_300
313     , a25 out nocopy JTF_VARCHAR2_TABLE_300
314     , a26 out nocopy JTF_VARCHAR2_TABLE_300
315     , a27 out nocopy JTF_VARCHAR2_TABLE_300
316     , a28 out nocopy JTF_VARCHAR2_TABLE_300
317     , a29 out nocopy JTF_VARCHAR2_TABLE_300
318     , a30 out nocopy JTF_VARCHAR2_TABLE_300
319     , a31 out nocopy JTF_VARCHAR2_TABLE_300
320     , a32 out nocopy JTF_VARCHAR2_TABLE_300
321     , a33 out nocopy JTF_VARCHAR2_TABLE_300
322     , a34 out nocopy JTF_VARCHAR2_TABLE_300
323     , a35 out nocopy JTF_VARCHAR2_TABLE_300
324     , a36 out nocopy JTF_VARCHAR2_TABLE_300
325     , a37 out nocopy JTF_VARCHAR2_TABLE_300
326     , a38 out nocopy JTF_VARCHAR2_TABLE_300
327     , a39 out nocopy JTF_VARCHAR2_TABLE_300
328     , a40 out nocopy JTF_VARCHAR2_TABLE_300
329     , a41 out nocopy JTF_VARCHAR2_TABLE_300
330     , a42 out nocopy JTF_VARCHAR2_TABLE_300
331     , a43 out nocopy JTF_VARCHAR2_TABLE_300
332     , a44 out nocopy JTF_VARCHAR2_TABLE_300
333     , a45 out nocopy JTF_VARCHAR2_TABLE_300
334     , a46 out nocopy JTF_VARCHAR2_TABLE_300
335     , a47 out nocopy JTF_VARCHAR2_TABLE_300
336     , a48 out nocopy JTF_VARCHAR2_TABLE_300
337     , a49 out nocopy JTF_VARCHAR2_TABLE_300
338     , a50 out nocopy JTF_VARCHAR2_TABLE_300
339     , a51 out nocopy JTF_VARCHAR2_TABLE_300
340     , a52 out nocopy JTF_VARCHAR2_TABLE_300
341     , a53 out nocopy JTF_VARCHAR2_TABLE_300
342     , a54 out nocopy JTF_VARCHAR2_TABLE_300
343     , a55 out nocopy JTF_VARCHAR2_TABLE_300
344     , a56 out nocopy JTF_VARCHAR2_TABLE_300
345     , a57 out nocopy JTF_VARCHAR2_TABLE_300
346     , a58 out nocopy JTF_VARCHAR2_TABLE_300
347     , a59 out nocopy JTF_VARCHAR2_TABLE_300
348     , a60 out nocopy JTF_VARCHAR2_TABLE_300
349     , a61 out nocopy JTF_VARCHAR2_TABLE_300
350     , a62 out nocopy JTF_VARCHAR2_TABLE_300
351     , a63 out nocopy JTF_VARCHAR2_TABLE_300
352     , a64 out nocopy JTF_VARCHAR2_TABLE_300
353     , a65 out nocopy JTF_VARCHAR2_TABLE_300
354     , a66 out nocopy JTF_VARCHAR2_TABLE_300
355     , a67 out nocopy JTF_VARCHAR2_TABLE_300
356     , a68 out nocopy JTF_VARCHAR2_TABLE_300
357     , a69 out nocopy JTF_VARCHAR2_TABLE_300
358     , a70 out nocopy JTF_VARCHAR2_TABLE_300
359     , a71 out nocopy JTF_VARCHAR2_TABLE_300
360     , a72 out nocopy JTF_VARCHAR2_TABLE_300
361     , a73 out nocopy JTF_VARCHAR2_TABLE_300
362     , a74 out nocopy JTF_VARCHAR2_TABLE_300
366     , a78 out nocopy JTF_VARCHAR2_TABLE_300
363     , a75 out nocopy JTF_VARCHAR2_TABLE_300
364     , a76 out nocopy JTF_VARCHAR2_TABLE_300
365     , a77 out nocopy JTF_VARCHAR2_TABLE_300
367     , a79 out nocopy JTF_VARCHAR2_TABLE_300
368     , a80 out nocopy JTF_VARCHAR2_TABLE_300
369     , a81 out nocopy JTF_VARCHAR2_TABLE_300
370     , a82 out nocopy JTF_VARCHAR2_TABLE_300
371     , a83 out nocopy JTF_VARCHAR2_TABLE_300
372     , a84 out nocopy JTF_VARCHAR2_TABLE_300
373     , a85 out nocopy JTF_VARCHAR2_TABLE_300
374     , a86 out nocopy JTF_VARCHAR2_TABLE_300
375     , a87 out nocopy JTF_VARCHAR2_TABLE_300
376     , a88 out nocopy JTF_VARCHAR2_TABLE_300
377     , a89 out nocopy JTF_VARCHAR2_TABLE_300
378     , a90 out nocopy JTF_VARCHAR2_TABLE_300
379     , a91 out nocopy JTF_VARCHAR2_TABLE_300
380     , a92 out nocopy JTF_VARCHAR2_TABLE_300
381     , a93 out nocopy JTF_VARCHAR2_TABLE_300
382     , a94 out nocopy JTF_VARCHAR2_TABLE_300
383     , a95 out nocopy JTF_VARCHAR2_TABLE_300
384     , a96 out nocopy JTF_VARCHAR2_TABLE_300
385     , a97 out nocopy JTF_VARCHAR2_TABLE_300
386     , a98 out nocopy JTF_VARCHAR2_TABLE_300
387     , a99 out nocopy JTF_VARCHAR2_TABLE_300
388     , a100 out nocopy JTF_VARCHAR2_TABLE_300
389     , a101 out nocopy JTF_VARCHAR2_TABLE_300
390     , a102 out nocopy JTF_VARCHAR2_TABLE_300
391     , a103 out nocopy JTF_VARCHAR2_TABLE_300
392     , a104 out nocopy JTF_VARCHAR2_TABLE_300
393     , a105 out nocopy JTF_VARCHAR2_TABLE_300
394     , a106 out nocopy JTF_VARCHAR2_TABLE_300
395     , a107 out nocopy JTF_VARCHAR2_TABLE_300
396     , a108 out nocopy JTF_VARCHAR2_TABLE_300
397     , a109 out nocopy JTF_VARCHAR2_TABLE_300
398     , a110 out nocopy JTF_VARCHAR2_TABLE_300
399     , a111 out nocopy JTF_VARCHAR2_TABLE_300
400     , a112 out nocopy JTF_VARCHAR2_TABLE_300
401     , a113 out nocopy JTF_VARCHAR2_TABLE_300
402     , a114 out nocopy JTF_NUMBER_TABLE
403     , a115 out nocopy JTF_VARCHAR2_TABLE_100
404     , a116 out nocopy JTF_VARCHAR2_TABLE_100
405     , a117 out nocopy JTF_NUMBER_TABLE
406     , a118 out nocopy JTF_NUMBER_TABLE
407     , a119 out nocopy JTF_NUMBER_TABLE
408     , a120 out nocopy JTF_NUMBER_TABLE
409     , a121 out nocopy JTF_DATE_TABLE
410     , a122 out nocopy JTF_VARCHAR2_TABLE_1800
411     , a123 out nocopy JTF_VARCHAR2_TABLE_100
412     , a124 out nocopy JTF_VARCHAR2_TABLE_100
413     , a125 out nocopy JTF_NUMBER_TABLE
414     , a126 out nocopy JTF_VARCHAR2_TABLE_100
415     , a127 out nocopy JTF_NUMBER_TABLE
416     , a128 out nocopy JTF_VARCHAR2_TABLE_100
417     ) as
418     ddindx binary_integer; indx binary_integer;
419   begin
420   if t is null or t.count = 0 then
421     a0 := JTF_VARCHAR2_TABLE_100();
422     a1 := JTF_DATE_TABLE();
423     a2 := JTF_NUMBER_TABLE();
424     a3 := JTF_DATE_TABLE();
425     a4 := JTF_DATE_TABLE();
426     a5 := JTF_DATE_TABLE();
427     a6 := JTF_VARCHAR2_TABLE_100();
428     a7 := JTF_VARCHAR2_TABLE_100();
429     a8 := JTF_VARCHAR2_TABLE_100();
430     a9 := JTF_DATE_TABLE();
431     a10 := JTF_VARCHAR2_TABLE_100();
432     a11 := JTF_VARCHAR2_TABLE_100();
433     a12 := JTF_NUMBER_TABLE();
434     a13 := JTF_NUMBER_TABLE();
435     a14 := JTF_VARCHAR2_TABLE_300();
436     a15 := JTF_VARCHAR2_TABLE_300();
437     a16 := JTF_VARCHAR2_TABLE_300();
438     a17 := JTF_VARCHAR2_TABLE_300();
439     a18 := JTF_VARCHAR2_TABLE_300();
440     a19 := JTF_VARCHAR2_TABLE_300();
441     a20 := JTF_VARCHAR2_TABLE_300();
442     a21 := JTF_VARCHAR2_TABLE_300();
443     a22 := JTF_VARCHAR2_TABLE_300();
444     a23 := JTF_VARCHAR2_TABLE_300();
445     a24 := JTF_VARCHAR2_TABLE_300();
446     a25 := JTF_VARCHAR2_TABLE_300();
447     a26 := JTF_VARCHAR2_TABLE_300();
448     a27 := JTF_VARCHAR2_TABLE_300();
449     a28 := JTF_VARCHAR2_TABLE_300();
450     a29 := JTF_VARCHAR2_TABLE_300();
451     a30 := JTF_VARCHAR2_TABLE_300();
452     a31 := JTF_VARCHAR2_TABLE_300();
453     a32 := JTF_VARCHAR2_TABLE_300();
454     a33 := JTF_VARCHAR2_TABLE_300();
455     a34 := JTF_VARCHAR2_TABLE_300();
456     a35 := JTF_VARCHAR2_TABLE_300();
457     a36 := JTF_VARCHAR2_TABLE_300();
458     a37 := JTF_VARCHAR2_TABLE_300();
459     a38 := JTF_VARCHAR2_TABLE_300();
460     a39 := JTF_VARCHAR2_TABLE_300();
461     a40 := JTF_VARCHAR2_TABLE_300();
462     a41 := JTF_VARCHAR2_TABLE_300();
463     a42 := JTF_VARCHAR2_TABLE_300();
464     a43 := JTF_VARCHAR2_TABLE_300();
465     a44 := JTF_VARCHAR2_TABLE_300();
466     a45 := JTF_VARCHAR2_TABLE_300();
467     a46 := JTF_VARCHAR2_TABLE_300();
468     a47 := JTF_VARCHAR2_TABLE_300();
469     a48 := JTF_VARCHAR2_TABLE_300();
470     a49 := JTF_VARCHAR2_TABLE_300();
471     a50 := JTF_VARCHAR2_TABLE_300();
472     a51 := JTF_VARCHAR2_TABLE_300();
473     a52 := JTF_VARCHAR2_TABLE_300();
474     a53 := JTF_VARCHAR2_TABLE_300();
475     a54 := JTF_VARCHAR2_TABLE_300();
476     a55 := JTF_VARCHAR2_TABLE_300();
477     a56 := JTF_VARCHAR2_TABLE_300();
478     a57 := JTF_VARCHAR2_TABLE_300();
479     a58 := JTF_VARCHAR2_TABLE_300();
480     a59 := JTF_VARCHAR2_TABLE_300();
481     a60 := JTF_VARCHAR2_TABLE_300();
482     a61 := JTF_VARCHAR2_TABLE_300();
483     a62 := JTF_VARCHAR2_TABLE_300();
484     a63 := JTF_VARCHAR2_TABLE_300();
485     a64 := JTF_VARCHAR2_TABLE_300();
486     a65 := JTF_VARCHAR2_TABLE_300();
490     a69 := JTF_VARCHAR2_TABLE_300();
487     a66 := JTF_VARCHAR2_TABLE_300();
488     a67 := JTF_VARCHAR2_TABLE_300();
489     a68 := JTF_VARCHAR2_TABLE_300();
491     a70 := JTF_VARCHAR2_TABLE_300();
492     a71 := JTF_VARCHAR2_TABLE_300();
493     a72 := JTF_VARCHAR2_TABLE_300();
494     a73 := JTF_VARCHAR2_TABLE_300();
495     a74 := JTF_VARCHAR2_TABLE_300();
496     a75 := JTF_VARCHAR2_TABLE_300();
497     a76 := JTF_VARCHAR2_TABLE_300();
498     a77 := JTF_VARCHAR2_TABLE_300();
499     a78 := JTF_VARCHAR2_TABLE_300();
500     a79 := JTF_VARCHAR2_TABLE_300();
501     a80 := JTF_VARCHAR2_TABLE_300();
502     a81 := JTF_VARCHAR2_TABLE_300();
503     a82 := JTF_VARCHAR2_TABLE_300();
504     a83 := JTF_VARCHAR2_TABLE_300();
505     a84 := JTF_VARCHAR2_TABLE_300();
506     a85 := JTF_VARCHAR2_TABLE_300();
507     a86 := JTF_VARCHAR2_TABLE_300();
508     a87 := JTF_VARCHAR2_TABLE_300();
509     a88 := JTF_VARCHAR2_TABLE_300();
510     a89 := JTF_VARCHAR2_TABLE_300();
511     a90 := JTF_VARCHAR2_TABLE_300();
512     a91 := JTF_VARCHAR2_TABLE_300();
513     a92 := JTF_VARCHAR2_TABLE_300();
514     a93 := JTF_VARCHAR2_TABLE_300();
515     a94 := JTF_VARCHAR2_TABLE_300();
516     a95 := JTF_VARCHAR2_TABLE_300();
517     a96 := JTF_VARCHAR2_TABLE_300();
518     a97 := JTF_VARCHAR2_TABLE_300();
519     a98 := JTF_VARCHAR2_TABLE_300();
520     a99 := JTF_VARCHAR2_TABLE_300();
521     a100 := JTF_VARCHAR2_TABLE_300();
522     a101 := JTF_VARCHAR2_TABLE_300();
523     a102 := JTF_VARCHAR2_TABLE_300();
524     a103 := JTF_VARCHAR2_TABLE_300();
525     a104 := JTF_VARCHAR2_TABLE_300();
526     a105 := JTF_VARCHAR2_TABLE_300();
527     a106 := JTF_VARCHAR2_TABLE_300();
528     a107 := JTF_VARCHAR2_TABLE_300();
529     a108 := JTF_VARCHAR2_TABLE_300();
530     a109 := JTF_VARCHAR2_TABLE_300();
531     a110 := JTF_VARCHAR2_TABLE_300();
532     a111 := JTF_VARCHAR2_TABLE_300();
533     a112 := JTF_VARCHAR2_TABLE_300();
534     a113 := JTF_VARCHAR2_TABLE_300();
535     a114 := JTF_NUMBER_TABLE();
536     a115 := JTF_VARCHAR2_TABLE_100();
537     a116 := JTF_VARCHAR2_TABLE_100();
538     a117 := JTF_NUMBER_TABLE();
539     a118 := JTF_NUMBER_TABLE();
540     a119 := JTF_NUMBER_TABLE();
541     a120 := JTF_NUMBER_TABLE();
542     a121 := JTF_DATE_TABLE();
543     a122 := JTF_VARCHAR2_TABLE_1800();
544     a123 := JTF_VARCHAR2_TABLE_100();
545     a124 := JTF_VARCHAR2_TABLE_100();
546     a125 := JTF_NUMBER_TABLE();
547     a126 := JTF_VARCHAR2_TABLE_100();
548     a127 := JTF_NUMBER_TABLE();
549     a128 := JTF_VARCHAR2_TABLE_100();
550   else
551       a0 := JTF_VARCHAR2_TABLE_100();
552       a1 := JTF_DATE_TABLE();
553       a2 := JTF_NUMBER_TABLE();
554       a3 := JTF_DATE_TABLE();
555       a4 := JTF_DATE_TABLE();
556       a5 := JTF_DATE_TABLE();
557       a6 := JTF_VARCHAR2_TABLE_100();
558       a7 := JTF_VARCHAR2_TABLE_100();
559       a8 := JTF_VARCHAR2_TABLE_100();
560       a9 := JTF_DATE_TABLE();
561       a10 := JTF_VARCHAR2_TABLE_100();
562       a11 := JTF_VARCHAR2_TABLE_100();
563       a12 := JTF_NUMBER_TABLE();
564       a13 := JTF_NUMBER_TABLE();
565       a14 := JTF_VARCHAR2_TABLE_300();
566       a15 := JTF_VARCHAR2_TABLE_300();
567       a16 := JTF_VARCHAR2_TABLE_300();
568       a17 := JTF_VARCHAR2_TABLE_300();
569       a18 := JTF_VARCHAR2_TABLE_300();
570       a19 := JTF_VARCHAR2_TABLE_300();
571       a20 := JTF_VARCHAR2_TABLE_300();
572       a21 := JTF_VARCHAR2_TABLE_300();
573       a22 := JTF_VARCHAR2_TABLE_300();
574       a23 := JTF_VARCHAR2_TABLE_300();
575       a24 := JTF_VARCHAR2_TABLE_300();
576       a25 := JTF_VARCHAR2_TABLE_300();
577       a26 := JTF_VARCHAR2_TABLE_300();
578       a27 := JTF_VARCHAR2_TABLE_300();
579       a28 := JTF_VARCHAR2_TABLE_300();
580       a29 := JTF_VARCHAR2_TABLE_300();
581       a30 := JTF_VARCHAR2_TABLE_300();
582       a31 := JTF_VARCHAR2_TABLE_300();
583       a32 := JTF_VARCHAR2_TABLE_300();
584       a33 := JTF_VARCHAR2_TABLE_300();
585       a34 := JTF_VARCHAR2_TABLE_300();
586       a35 := JTF_VARCHAR2_TABLE_300();
587       a36 := JTF_VARCHAR2_TABLE_300();
588       a37 := JTF_VARCHAR2_TABLE_300();
589       a38 := JTF_VARCHAR2_TABLE_300();
590       a39 := JTF_VARCHAR2_TABLE_300();
591       a40 := JTF_VARCHAR2_TABLE_300();
592       a41 := JTF_VARCHAR2_TABLE_300();
593       a42 := JTF_VARCHAR2_TABLE_300();
594       a43 := JTF_VARCHAR2_TABLE_300();
595       a44 := JTF_VARCHAR2_TABLE_300();
596       a45 := JTF_VARCHAR2_TABLE_300();
597       a46 := JTF_VARCHAR2_TABLE_300();
598       a47 := JTF_VARCHAR2_TABLE_300();
599       a48 := JTF_VARCHAR2_TABLE_300();
600       a49 := JTF_VARCHAR2_TABLE_300();
601       a50 := JTF_VARCHAR2_TABLE_300();
602       a51 := JTF_VARCHAR2_TABLE_300();
603       a52 := JTF_VARCHAR2_TABLE_300();
604       a53 := JTF_VARCHAR2_TABLE_300();
605       a54 := JTF_VARCHAR2_TABLE_300();
606       a55 := JTF_VARCHAR2_TABLE_300();
607       a56 := JTF_VARCHAR2_TABLE_300();
608       a57 := JTF_VARCHAR2_TABLE_300();
609       a58 := JTF_VARCHAR2_TABLE_300();
610       a59 := JTF_VARCHAR2_TABLE_300();
611       a60 := JTF_VARCHAR2_TABLE_300();
612       a61 := JTF_VARCHAR2_TABLE_300();
613       a62 := JTF_VARCHAR2_TABLE_300();
614       a63 := JTF_VARCHAR2_TABLE_300();
615       a64 := JTF_VARCHAR2_TABLE_300();
619       a68 := JTF_VARCHAR2_TABLE_300();
616       a65 := JTF_VARCHAR2_TABLE_300();
617       a66 := JTF_VARCHAR2_TABLE_300();
618       a67 := JTF_VARCHAR2_TABLE_300();
620       a69 := JTF_VARCHAR2_TABLE_300();
621       a70 := JTF_VARCHAR2_TABLE_300();
622       a71 := JTF_VARCHAR2_TABLE_300();
623       a72 := JTF_VARCHAR2_TABLE_300();
624       a73 := JTF_VARCHAR2_TABLE_300();
625       a74 := JTF_VARCHAR2_TABLE_300();
626       a75 := JTF_VARCHAR2_TABLE_300();
627       a76 := JTF_VARCHAR2_TABLE_300();
628       a77 := JTF_VARCHAR2_TABLE_300();
629       a78 := JTF_VARCHAR2_TABLE_300();
630       a79 := JTF_VARCHAR2_TABLE_300();
631       a80 := JTF_VARCHAR2_TABLE_300();
632       a81 := JTF_VARCHAR2_TABLE_300();
633       a82 := JTF_VARCHAR2_TABLE_300();
634       a83 := JTF_VARCHAR2_TABLE_300();
635       a84 := JTF_VARCHAR2_TABLE_300();
636       a85 := JTF_VARCHAR2_TABLE_300();
637       a86 := JTF_VARCHAR2_TABLE_300();
638       a87 := JTF_VARCHAR2_TABLE_300();
639       a88 := JTF_VARCHAR2_TABLE_300();
640       a89 := JTF_VARCHAR2_TABLE_300();
641       a90 := JTF_VARCHAR2_TABLE_300();
642       a91 := JTF_VARCHAR2_TABLE_300();
643       a92 := JTF_VARCHAR2_TABLE_300();
644       a93 := JTF_VARCHAR2_TABLE_300();
645       a94 := JTF_VARCHAR2_TABLE_300();
646       a95 := JTF_VARCHAR2_TABLE_300();
647       a96 := JTF_VARCHAR2_TABLE_300();
648       a97 := JTF_VARCHAR2_TABLE_300();
649       a98 := JTF_VARCHAR2_TABLE_300();
650       a99 := JTF_VARCHAR2_TABLE_300();
651       a100 := JTF_VARCHAR2_TABLE_300();
652       a101 := JTF_VARCHAR2_TABLE_300();
653       a102 := JTF_VARCHAR2_TABLE_300();
654       a103 := JTF_VARCHAR2_TABLE_300();
655       a104 := JTF_VARCHAR2_TABLE_300();
656       a105 := JTF_VARCHAR2_TABLE_300();
657       a106 := JTF_VARCHAR2_TABLE_300();
658       a107 := JTF_VARCHAR2_TABLE_300();
659       a108 := JTF_VARCHAR2_TABLE_300();
660       a109 := JTF_VARCHAR2_TABLE_300();
661       a110 := JTF_VARCHAR2_TABLE_300();
662       a111 := JTF_VARCHAR2_TABLE_300();
663       a112 := JTF_VARCHAR2_TABLE_300();
664       a113 := JTF_VARCHAR2_TABLE_300();
665       a114 := JTF_NUMBER_TABLE();
666       a115 := JTF_VARCHAR2_TABLE_100();
667       a116 := JTF_VARCHAR2_TABLE_100();
668       a117 := JTF_NUMBER_TABLE();
669       a118 := JTF_NUMBER_TABLE();
670       a119 := JTF_NUMBER_TABLE();
671       a120 := JTF_NUMBER_TABLE();
672       a121 := JTF_DATE_TABLE();
673       a122 := JTF_VARCHAR2_TABLE_1800();
674       a123 := JTF_VARCHAR2_TABLE_100();
675       a124 := JTF_VARCHAR2_TABLE_100();
676       a125 := JTF_NUMBER_TABLE();
677       a126 := JTF_VARCHAR2_TABLE_100();
678       a127 := JTF_NUMBER_TABLE();
679       a128 := JTF_VARCHAR2_TABLE_100();
680       if t.count > 0 then
681         a0.extend(t.count);
682         a1.extend(t.count);
683         a2.extend(t.count);
684         a3.extend(t.count);
685         a4.extend(t.count);
686         a5.extend(t.count);
687         a6.extend(t.count);
688         a7.extend(t.count);
689         a8.extend(t.count);
690         a9.extend(t.count);
691         a10.extend(t.count);
692         a11.extend(t.count);
693         a12.extend(t.count);
694         a13.extend(t.count);
695         a14.extend(t.count);
696         a15.extend(t.count);
697         a16.extend(t.count);
698         a17.extend(t.count);
699         a18.extend(t.count);
700         a19.extend(t.count);
701         a20.extend(t.count);
702         a21.extend(t.count);
703         a22.extend(t.count);
704         a23.extend(t.count);
705         a24.extend(t.count);
706         a25.extend(t.count);
707         a26.extend(t.count);
708         a27.extend(t.count);
709         a28.extend(t.count);
710         a29.extend(t.count);
711         a30.extend(t.count);
712         a31.extend(t.count);
713         a32.extend(t.count);
714         a33.extend(t.count);
715         a34.extend(t.count);
716         a35.extend(t.count);
717         a36.extend(t.count);
718         a37.extend(t.count);
719         a38.extend(t.count);
720         a39.extend(t.count);
721         a40.extend(t.count);
722         a41.extend(t.count);
723         a42.extend(t.count);
724         a43.extend(t.count);
725         a44.extend(t.count);
726         a45.extend(t.count);
727         a46.extend(t.count);
728         a47.extend(t.count);
729         a48.extend(t.count);
730         a49.extend(t.count);
731         a50.extend(t.count);
732         a51.extend(t.count);
733         a52.extend(t.count);
734         a53.extend(t.count);
735         a54.extend(t.count);
736         a55.extend(t.count);
737         a56.extend(t.count);
738         a57.extend(t.count);
739         a58.extend(t.count);
740         a59.extend(t.count);
741         a60.extend(t.count);
742         a61.extend(t.count);
743         a62.extend(t.count);
744         a63.extend(t.count);
745         a64.extend(t.count);
746         a65.extend(t.count);
747         a66.extend(t.count);
748         a67.extend(t.count);
749         a68.extend(t.count);
750         a69.extend(t.count);
751         a70.extend(t.count);
752         a71.extend(t.count);
753         a72.extend(t.count);
754         a73.extend(t.count);
758         a77.extend(t.count);
755         a74.extend(t.count);
756         a75.extend(t.count);
757         a76.extend(t.count);
759         a78.extend(t.count);
760         a79.extend(t.count);
761         a80.extend(t.count);
762         a81.extend(t.count);
763         a82.extend(t.count);
764         a83.extend(t.count);
765         a84.extend(t.count);
766         a85.extend(t.count);
767         a86.extend(t.count);
768         a87.extend(t.count);
769         a88.extend(t.count);
770         a89.extend(t.count);
771         a90.extend(t.count);
772         a91.extend(t.count);
773         a92.extend(t.count);
774         a93.extend(t.count);
775         a94.extend(t.count);
776         a95.extend(t.count);
777         a96.extend(t.count);
778         a97.extend(t.count);
779         a98.extend(t.count);
780         a99.extend(t.count);
781         a100.extend(t.count);
782         a101.extend(t.count);
783         a102.extend(t.count);
784         a103.extend(t.count);
785         a104.extend(t.count);
786         a105.extend(t.count);
787         a106.extend(t.count);
788         a107.extend(t.count);
789         a108.extend(t.count);
790         a109.extend(t.count);
791         a110.extend(t.count);
792         a111.extend(t.count);
793         a112.extend(t.count);
794         a113.extend(t.count);
795         a114.extend(t.count);
796         a115.extend(t.count);
797         a116.extend(t.count);
798         a117.extend(t.count);
799         a118.extend(t.count);
800         a119.extend(t.count);
801         a120.extend(t.count);
802         a121.extend(t.count);
803         a122.extend(t.count);
804         a123.extend(t.count);
805         a124.extend(t.count);
806         a125.extend(t.count);
807         a126.extend(t.count);
808         a127.extend(t.count);
809         a128.extend(t.count);
810         ddindx := t.first;
811         indx := 1;
812         while true loop
813           a0(indx) := t(ddindx).invoice_number;
814           a1(indx) := t(ddindx).invoice_date;
815           a2(indx) := t(ddindx).order_number;
816           a3(indx) := t(ddindx).order_date;
817           a4(indx) := t(ddindx).creation_date;
818           a5(indx) := t(ddindx).processed_date;
819           a6(indx) := t(ddindx).trx_type_disp;
820           a7(indx) := t(ddindx).adjust_status_disp;
821           a8(indx) := t(ddindx).adjusted_by;
822           a9(indx) := t(ddindx).adjust_date;
823           a10(indx) := t(ddindx).calc_status_disp;
824           a11(indx) := t(ddindx).currency_code;
825           a12(indx) := t(ddindx).sales_credit;
826           a13(indx) := t(ddindx).commission;
827           a14(indx) := t(ddindx).attribute1;
828           a15(indx) := t(ddindx).attribute2;
829           a16(indx) := t(ddindx).attribute3;
830           a17(indx) := t(ddindx).attribute4;
831           a18(indx) := t(ddindx).attribute5;
832           a19(indx) := t(ddindx).attribute6;
833           a20(indx) := t(ddindx).attribute7;
834           a21(indx) := t(ddindx).attribute8;
835           a22(indx) := t(ddindx).attribute9;
836           a23(indx) := t(ddindx).attribute10;
837           a24(indx) := t(ddindx).attribute11;
838           a25(indx) := t(ddindx).attribute12;
839           a26(indx) := t(ddindx).attribute13;
840           a27(indx) := t(ddindx).attribute14;
841           a28(indx) := t(ddindx).attribute15;
842           a29(indx) := t(ddindx).attribute16;
843           a30(indx) := t(ddindx).attribute17;
844           a31(indx) := t(ddindx).attribute18;
845           a32(indx) := t(ddindx).attribute19;
846           a33(indx) := t(ddindx).attribute20;
847           a34(indx) := t(ddindx).attribute21;
848           a35(indx) := t(ddindx).attribute22;
849           a36(indx) := t(ddindx).attribute23;
850           a37(indx) := t(ddindx).attribute24;
851           a38(indx) := t(ddindx).attribute25;
852           a39(indx) := t(ddindx).attribute26;
853           a40(indx) := t(ddindx).attribute27;
854           a41(indx) := t(ddindx).attribute28;
855           a42(indx) := t(ddindx).attribute29;
856           a43(indx) := t(ddindx).attribute30;
857           a44(indx) := t(ddindx).attribute31;
858           a45(indx) := t(ddindx).attribute32;
859           a46(indx) := t(ddindx).attribute33;
860           a47(indx) := t(ddindx).attribute34;
861           a48(indx) := t(ddindx).attribute35;
862           a49(indx) := t(ddindx).attribute36;
863           a50(indx) := t(ddindx).attribute37;
864           a51(indx) := t(ddindx).attribute38;
865           a52(indx) := t(ddindx).attribute39;
866           a53(indx) := t(ddindx).attribute40;
867           a54(indx) := t(ddindx).attribute41;
868           a55(indx) := t(ddindx).attribute42;
869           a56(indx) := t(ddindx).attribute43;
870           a57(indx) := t(ddindx).attribute44;
871           a58(indx) := t(ddindx).attribute45;
872           a59(indx) := t(ddindx).attribute46;
873           a60(indx) := t(ddindx).attribute47;
874           a61(indx) := t(ddindx).attribute48;
875           a62(indx) := t(ddindx).attribute49;
876           a63(indx) := t(ddindx).attribute50;
877           a64(indx) := t(ddindx).attribute51;
878           a65(indx) := t(ddindx).attribute52;
879           a66(indx) := t(ddindx).attribute53;
880           a67(indx) := t(ddindx).attribute54;
884           a71(indx) := t(ddindx).attribute58;
881           a68(indx) := t(ddindx).attribute55;
882           a69(indx) := t(ddindx).attribute56;
883           a70(indx) := t(ddindx).attribute57;
885           a72(indx) := t(ddindx).attribute59;
886           a73(indx) := t(ddindx).attribute60;
887           a74(indx) := t(ddindx).attribute61;
888           a75(indx) := t(ddindx).attribute62;
889           a76(indx) := t(ddindx).attribute63;
890           a77(indx) := t(ddindx).attribute64;
891           a78(indx) := t(ddindx).attribute65;
892           a79(indx) := t(ddindx).attribute66;
893           a80(indx) := t(ddindx).attribute67;
894           a81(indx) := t(ddindx).attribute68;
895           a82(indx) := t(ddindx).attribute69;
896           a83(indx) := t(ddindx).attribute70;
897           a84(indx) := t(ddindx).attribute71;
898           a85(indx) := t(ddindx).attribute72;
899           a86(indx) := t(ddindx).attribute73;
900           a87(indx) := t(ddindx).attribute74;
901           a88(indx) := t(ddindx).attribute75;
902           a89(indx) := t(ddindx).attribute76;
903           a90(indx) := t(ddindx).attribute77;
904           a91(indx) := t(ddindx).attribute78;
905           a92(indx) := t(ddindx).attribute79;
906           a93(indx) := t(ddindx).attribute80;
907           a94(indx) := t(ddindx).attribute81;
908           a95(indx) := t(ddindx).attribute82;
909           a96(indx) := t(ddindx).attribute83;
910           a97(indx) := t(ddindx).attribute84;
911           a98(indx) := t(ddindx).attribute85;
912           a99(indx) := t(ddindx).attribute86;
913           a100(indx) := t(ddindx).attribute87;
914           a101(indx) := t(ddindx).attribute88;
915           a102(indx) := t(ddindx).attribute89;
916           a103(indx) := t(ddindx).attribute90;
917           a104(indx) := t(ddindx).attribute91;
918           a105(indx) := t(ddindx).attribute92;
919           a106(indx) := t(ddindx).attribute93;
920           a107(indx) := t(ddindx).attribute94;
921           a108(indx) := t(ddindx).attribute95;
922           a109(indx) := t(ddindx).attribute96;
923           a110(indx) := t(ddindx).attribute97;
924           a111(indx) := t(ddindx).attribute98;
925           a112(indx) := t(ddindx).attribute99;
926           a113(indx) := t(ddindx).attribute100;
927           a114(indx) := t(ddindx).customer_id;
928           a115(indx) := t(ddindx).customer_name;
929           a116(indx) := t(ddindx).customer_number;
930           a117(indx) := t(ddindx).bill_to_address_id;
931           a118(indx) := t(ddindx).ship_to_address_id;
932           a119(indx) := t(ddindx).bill_to_contact_id;
933           a120(indx) := t(ddindx).ship_to_contact_id;
934           a121(indx) := t(ddindx).rollup_date;
935           a122(indx) := t(ddindx).comments;
936           a123(indx) := t(ddindx).reason_code;
937           a124(indx) := t(ddindx).reason;
938           a125(indx) := t(ddindx).quota_id;
939           a126(indx) := t(ddindx).quota_name;
940           a127(indx) := t(ddindx).revenue_class_id;
941           a128(indx) := t(ddindx).revenue_class_name;
942           indx := indx+1;
943           if t.last =ddindx
944             then exit;
945           end if;
946           ddindx := t.next(ddindx);
947         end loop;
948       end if;
949    end if;
950   end rosetta_table_copy_out_p1;
951 
952   procedure get_adj(p_api_version  NUMBER
953     , p_init_msg_list  VARCHAR2
954     , p_validation_level  VARCHAR2
955     , x_return_status out nocopy  VARCHAR2
956     , x_msg_count out nocopy  NUMBER
957     , x_msg_data out nocopy  VARCHAR2
958     , x_loading_status out nocopy  VARCHAR2
959     , p_salesrep_id  NUMBER
960     , p_pr_date_from  date
961     , p_pr_date_to  date
962     , p_invoice_num  VARCHAR2
963     , p_order_num  NUMBER
964     , p_calc_status  VARCHAR2
965     , p_adjust_status  VARCHAR2
966     , p_adjust_date  date
967     , p_trx_type  VARCHAR2
968     , p_date_pattern  date
969     , p_start_record  NUMBER
970     , p_increment_count  NUMBER
971     , p_curr_code  VARCHAR2
972     , p20_a0 out nocopy JTF_VARCHAR2_TABLE_100
973     , p20_a1 out nocopy JTF_DATE_TABLE
974     , p20_a2 out nocopy JTF_NUMBER_TABLE
975     , p20_a3 out nocopy JTF_DATE_TABLE
976     , p20_a4 out nocopy JTF_DATE_TABLE
977     , p20_a5 out nocopy JTF_DATE_TABLE
978     , p20_a6 out nocopy JTF_VARCHAR2_TABLE_100
979     , p20_a7 out nocopy JTF_VARCHAR2_TABLE_100
980     , p20_a8 out nocopy JTF_VARCHAR2_TABLE_100
981     , p20_a9 out nocopy JTF_DATE_TABLE
982     , p20_a10 out nocopy JTF_VARCHAR2_TABLE_100
983     , p20_a11 out nocopy JTF_VARCHAR2_TABLE_100
984     , p20_a12 out nocopy JTF_NUMBER_TABLE
985     , p20_a13 out nocopy JTF_NUMBER_TABLE
986     , p20_a14 out nocopy JTF_VARCHAR2_TABLE_300
987     , p20_a15 out nocopy JTF_VARCHAR2_TABLE_300
988     , p20_a16 out nocopy JTF_VARCHAR2_TABLE_300
989     , p20_a17 out nocopy JTF_VARCHAR2_TABLE_300
990     , p20_a18 out nocopy JTF_VARCHAR2_TABLE_300
991     , p20_a19 out nocopy JTF_VARCHAR2_TABLE_300
992     , p20_a20 out nocopy JTF_VARCHAR2_TABLE_300
993     , p20_a21 out nocopy JTF_VARCHAR2_TABLE_300
994     , p20_a22 out nocopy JTF_VARCHAR2_TABLE_300
995     , p20_a23 out nocopy JTF_VARCHAR2_TABLE_300
996     , p20_a24 out nocopy JTF_VARCHAR2_TABLE_300
997     , p20_a25 out nocopy JTF_VARCHAR2_TABLE_300
998     , p20_a26 out nocopy JTF_VARCHAR2_TABLE_300
999     , p20_a27 out nocopy JTF_VARCHAR2_TABLE_300
1003     , p20_a31 out nocopy JTF_VARCHAR2_TABLE_300
1000     , p20_a28 out nocopy JTF_VARCHAR2_TABLE_300
1001     , p20_a29 out nocopy JTF_VARCHAR2_TABLE_300
1002     , p20_a30 out nocopy JTF_VARCHAR2_TABLE_300
1004     , p20_a32 out nocopy JTF_VARCHAR2_TABLE_300
1005     , p20_a33 out nocopy JTF_VARCHAR2_TABLE_300
1006     , p20_a34 out nocopy JTF_VARCHAR2_TABLE_300
1007     , p20_a35 out nocopy JTF_VARCHAR2_TABLE_300
1008     , p20_a36 out nocopy JTF_VARCHAR2_TABLE_300
1009     , p20_a37 out nocopy JTF_VARCHAR2_TABLE_300
1010     , p20_a38 out nocopy JTF_VARCHAR2_TABLE_300
1011     , p20_a39 out nocopy JTF_VARCHAR2_TABLE_300
1012     , p20_a40 out nocopy JTF_VARCHAR2_TABLE_300
1013     , p20_a41 out nocopy JTF_VARCHAR2_TABLE_300
1014     , p20_a42 out nocopy JTF_VARCHAR2_TABLE_300
1015     , p20_a43 out nocopy JTF_VARCHAR2_TABLE_300
1016     , p20_a44 out nocopy JTF_VARCHAR2_TABLE_300
1017     , p20_a45 out nocopy JTF_VARCHAR2_TABLE_300
1018     , p20_a46 out nocopy JTF_VARCHAR2_TABLE_300
1019     , p20_a47 out nocopy JTF_VARCHAR2_TABLE_300
1020     , p20_a48 out nocopy JTF_VARCHAR2_TABLE_300
1021     , p20_a49 out nocopy JTF_VARCHAR2_TABLE_300
1022     , p20_a50 out nocopy JTF_VARCHAR2_TABLE_300
1023     , p20_a51 out nocopy JTF_VARCHAR2_TABLE_300
1024     , p20_a52 out nocopy JTF_VARCHAR2_TABLE_300
1025     , p20_a53 out nocopy JTF_VARCHAR2_TABLE_300
1026     , p20_a54 out nocopy JTF_VARCHAR2_TABLE_300
1027     , p20_a55 out nocopy JTF_VARCHAR2_TABLE_300
1028     , p20_a56 out nocopy JTF_VARCHAR2_TABLE_300
1029     , p20_a57 out nocopy JTF_VARCHAR2_TABLE_300
1030     , p20_a58 out nocopy JTF_VARCHAR2_TABLE_300
1031     , p20_a59 out nocopy JTF_VARCHAR2_TABLE_300
1032     , p20_a60 out nocopy JTF_VARCHAR2_TABLE_300
1033     , p20_a61 out nocopy JTF_VARCHAR2_TABLE_300
1034     , p20_a62 out nocopy JTF_VARCHAR2_TABLE_300
1035     , p20_a63 out nocopy JTF_VARCHAR2_TABLE_300
1036     , p20_a64 out nocopy JTF_VARCHAR2_TABLE_300
1037     , p20_a65 out nocopy JTF_VARCHAR2_TABLE_300
1038     , p20_a66 out nocopy JTF_VARCHAR2_TABLE_300
1039     , p20_a67 out nocopy JTF_VARCHAR2_TABLE_300
1040     , p20_a68 out nocopy JTF_VARCHAR2_TABLE_300
1041     , p20_a69 out nocopy JTF_VARCHAR2_TABLE_300
1042     , p20_a70 out nocopy JTF_VARCHAR2_TABLE_300
1043     , p20_a71 out nocopy JTF_VARCHAR2_TABLE_300
1044     , p20_a72 out nocopy JTF_VARCHAR2_TABLE_300
1045     , p20_a73 out nocopy JTF_VARCHAR2_TABLE_300
1046     , p20_a74 out nocopy JTF_VARCHAR2_TABLE_300
1047     , p20_a75 out nocopy JTF_VARCHAR2_TABLE_300
1048     , p20_a76 out nocopy JTF_VARCHAR2_TABLE_300
1049     , p20_a77 out nocopy JTF_VARCHAR2_TABLE_300
1050     , p20_a78 out nocopy JTF_VARCHAR2_TABLE_300
1051     , p20_a79 out nocopy JTF_VARCHAR2_TABLE_300
1052     , p20_a80 out nocopy JTF_VARCHAR2_TABLE_300
1053     , p20_a81 out nocopy JTF_VARCHAR2_TABLE_300
1054     , p20_a82 out nocopy JTF_VARCHAR2_TABLE_300
1055     , p20_a83 out nocopy JTF_VARCHAR2_TABLE_300
1056     , p20_a84 out nocopy JTF_VARCHAR2_TABLE_300
1057     , p20_a85 out nocopy JTF_VARCHAR2_TABLE_300
1058     , p20_a86 out nocopy JTF_VARCHAR2_TABLE_300
1059     , p20_a87 out nocopy JTF_VARCHAR2_TABLE_300
1060     , p20_a88 out nocopy JTF_VARCHAR2_TABLE_300
1061     , p20_a89 out nocopy JTF_VARCHAR2_TABLE_300
1062     , p20_a90 out nocopy JTF_VARCHAR2_TABLE_300
1063     , p20_a91 out nocopy JTF_VARCHAR2_TABLE_300
1064     , p20_a92 out nocopy JTF_VARCHAR2_TABLE_300
1065     , p20_a93 out nocopy JTF_VARCHAR2_TABLE_300
1066     , p20_a94 out nocopy JTF_VARCHAR2_TABLE_300
1067     , p20_a95 out nocopy JTF_VARCHAR2_TABLE_300
1068     , p20_a96 out nocopy JTF_VARCHAR2_TABLE_300
1069     , p20_a97 out nocopy JTF_VARCHAR2_TABLE_300
1070     , p20_a98 out nocopy JTF_VARCHAR2_TABLE_300
1071     , p20_a99 out nocopy JTF_VARCHAR2_TABLE_300
1072     , p20_a100 out nocopy JTF_VARCHAR2_TABLE_300
1073     , p20_a101 out nocopy JTF_VARCHAR2_TABLE_300
1074     , p20_a102 out nocopy JTF_VARCHAR2_TABLE_300
1075     , p20_a103 out nocopy JTF_VARCHAR2_TABLE_300
1076     , p20_a104 out nocopy JTF_VARCHAR2_TABLE_300
1077     , p20_a105 out nocopy JTF_VARCHAR2_TABLE_300
1078     , p20_a106 out nocopy JTF_VARCHAR2_TABLE_300
1079     , p20_a107 out nocopy JTF_VARCHAR2_TABLE_300
1080     , p20_a108 out nocopy JTF_VARCHAR2_TABLE_300
1081     , p20_a109 out nocopy JTF_VARCHAR2_TABLE_300
1082     , p20_a110 out nocopy JTF_VARCHAR2_TABLE_300
1083     , p20_a111 out nocopy JTF_VARCHAR2_TABLE_300
1084     , p20_a112 out nocopy JTF_VARCHAR2_TABLE_300
1085     , p20_a113 out nocopy JTF_VARCHAR2_TABLE_300
1086     , p20_a114 out nocopy JTF_NUMBER_TABLE
1087     , p20_a115 out nocopy JTF_VARCHAR2_TABLE_100
1088     , p20_a116 out nocopy JTF_VARCHAR2_TABLE_100
1089     , p20_a117 out nocopy JTF_NUMBER_TABLE
1090     , p20_a118 out nocopy JTF_NUMBER_TABLE
1091     , p20_a119 out nocopy JTF_NUMBER_TABLE
1092     , p20_a120 out nocopy JTF_NUMBER_TABLE
1093     , p20_a121 out nocopy JTF_DATE_TABLE
1094     , p20_a122 out nocopy JTF_VARCHAR2_TABLE_1800
1095     , p20_a123 out nocopy JTF_VARCHAR2_TABLE_100
1096     , p20_a124 out nocopy JTF_VARCHAR2_TABLE_100
1097     , p20_a125 out nocopy JTF_NUMBER_TABLE
1098     , p20_a126 out nocopy JTF_VARCHAR2_TABLE_100
1099     , p20_a127 out nocopy JTF_NUMBER_TABLE
1100     , p20_a128 out nocopy JTF_VARCHAR2_TABLE_100
1101     , x_adj_count out nocopy  NUMBER
1102     , x_total_sales_credit out nocopy  NUMBER
1103     , x_total_commission out nocopy  NUMBER
1104     , x_conv_status out nocopy  VARCHAR2
1105   )
1106 
1107   as
1108     ddp_pr_date_from date;
1109     ddp_pr_date_to date;
1113     ddindx binary_integer; indx binary_integer;
1110     ddp_adjust_date date;
1111     ddp_date_pattern date;
1112     ddx_adj_tbl cn_adj_disp_pub.adj_tbl_type;
1114   begin
1115 
1116     -- copy data to the local IN or IN-OUT args, if any
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125     ddp_pr_date_from := rosetta_g_miss_date_in_map(p_pr_date_from);
1126 
1127     ddp_pr_date_to := rosetta_g_miss_date_in_map(p_pr_date_to);
1128 
1129 
1130 
1131 
1132 
1133     ddp_adjust_date := rosetta_g_miss_date_in_map(p_adjust_date);
1134 
1135 
1136     ddp_date_pattern := rosetta_g_miss_date_in_map(p_date_pattern);
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146     -- here's the delegated call to the old PL/SQL routine
1147     cn_adj_disp_pub.get_adj(p_api_version,
1148       p_init_msg_list,
1149       p_validation_level,
1150       x_return_status,
1151       x_msg_count,
1152       x_msg_data,
1153       x_loading_status,
1154       p_salesrep_id,
1155       ddp_pr_date_from,
1156       ddp_pr_date_to,
1157       p_invoice_num,
1158       p_order_num,
1159       p_calc_status,
1160       p_adjust_status,
1161       ddp_adjust_date,
1162       p_trx_type,
1163       ddp_date_pattern,
1164       p_start_record,
1165       p_increment_count,
1166       p_curr_code,
1167       ddx_adj_tbl,
1168       x_adj_count,
1169       x_total_sales_credit,
1170       x_total_commission,
1171       x_conv_status);
1172 
1173     -- copy data back from the local variables to OUT or IN-OUT args, if any
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194     cn_adj_disp_pub_w.rosetta_table_copy_out_p1(ddx_adj_tbl, p20_a0
1195       , p20_a1
1196       , p20_a2
1197       , p20_a3
1198       , p20_a4
1199       , p20_a5
1200       , p20_a6
1201       , p20_a7
1202       , p20_a8
1203       , p20_a9
1204       , p20_a10
1205       , p20_a11
1206       , p20_a12
1207       , p20_a13
1208       , p20_a14
1209       , p20_a15
1210       , p20_a16
1211       , p20_a17
1212       , p20_a18
1213       , p20_a19
1214       , p20_a20
1215       , p20_a21
1216       , p20_a22
1217       , p20_a23
1218       , p20_a24
1219       , p20_a25
1220       , p20_a26
1221       , p20_a27
1222       , p20_a28
1223       , p20_a29
1224       , p20_a30
1225       , p20_a31
1226       , p20_a32
1227       , p20_a33
1228       , p20_a34
1229       , p20_a35
1230       , p20_a36
1231       , p20_a37
1232       , p20_a38
1233       , p20_a39
1234       , p20_a40
1235       , p20_a41
1236       , p20_a42
1237       , p20_a43
1238       , p20_a44
1239       , p20_a45
1240       , p20_a46
1241       , p20_a47
1242       , p20_a48
1243       , p20_a49
1244       , p20_a50
1245       , p20_a51
1246       , p20_a52
1247       , p20_a53
1248       , p20_a54
1249       , p20_a55
1250       , p20_a56
1251       , p20_a57
1252       , p20_a58
1253       , p20_a59
1254       , p20_a60
1255       , p20_a61
1256       , p20_a62
1257       , p20_a63
1258       , p20_a64
1259       , p20_a65
1260       , p20_a66
1261       , p20_a67
1262       , p20_a68
1263       , p20_a69
1264       , p20_a70
1265       , p20_a71
1266       , p20_a72
1267       , p20_a73
1268       , p20_a74
1269       , p20_a75
1270       , p20_a76
1271       , p20_a77
1272       , p20_a78
1273       , p20_a79
1274       , p20_a80
1275       , p20_a81
1276       , p20_a82
1277       , p20_a83
1278       , p20_a84
1279       , p20_a85
1280       , p20_a86
1281       , p20_a87
1282       , p20_a88
1283       , p20_a89
1284       , p20_a90
1285       , p20_a91
1286       , p20_a92
1287       , p20_a93
1288       , p20_a94
1289       , p20_a95
1290       , p20_a96
1291       , p20_a97
1292       , p20_a98
1293       , p20_a99
1294       , p20_a100
1295       , p20_a101
1296       , p20_a102
1297       , p20_a103
1298       , p20_a104
1299       , p20_a105
1300       , p20_a106
1301       , p20_a107
1302       , p20_a108
1303       , p20_a109
1304       , p20_a110
1305       , p20_a111
1306       , p20_a112
1307       , p20_a113
1308       , p20_a114
1309       , p20_a115
1310       , p20_a116
1311       , p20_a117
1312       , p20_a118
1313       , p20_a119
1314       , p20_a120
1315       , p20_a121
1316       , p20_a122
1317       , p20_a123
1318       , p20_a124
1319       , p20_a125
1320       , p20_a126
1321       , p20_a127
1322       , p20_a128
1323       );
1324 
1325 
1326 
1327 
1328   end;
1329 
1330 end cn_adj_disp_pub_w;