[Home] [Help]
PACKAGE BODY: APPS.OKL_PROCESS_SALES_TAX_PVT_W
Source
1 package body okl_process_sales_tax_pvt_w as
2 /* $Header: OKLEPSTB.pls 120.2 2007/07/13 01:20:47 rravikir noship $ */
3 procedure rosetta_table_copy_in_p73(t out nocopy okl_process_sales_tax_pvt.tax_sources_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_VARCHAR2_TABLE_200
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_VARCHAR2_TABLE_200
18 , a15 JTF_DATE_TABLE
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_NUMBER_TABLE
21 , a18 JTF_VARCHAR2_TABLE_300
22 , a19 JTF_VARCHAR2_TABLE_100
23 , a20 JTF_NUMBER_TABLE
24 , a21 JTF_NUMBER_TABLE
25 , a22 JTF_NUMBER_TABLE
26 , a23 JTF_NUMBER_TABLE
27 , a24 JTF_DATE_TABLE
28 , a25 JTF_VARCHAR2_TABLE_100
29 , a26 JTF_VARCHAR2_TABLE_500
30 , a27 JTF_VARCHAR2_TABLE_500
31 , a28 JTF_VARCHAR2_TABLE_500
32 , a29 JTF_VARCHAR2_TABLE_500
33 , a30 JTF_VARCHAR2_TABLE_500
34 , a31 JTF_VARCHAR2_TABLE_500
35 , a32 JTF_VARCHAR2_TABLE_500
36 , a33 JTF_VARCHAR2_TABLE_500
37 , a34 JTF_VARCHAR2_TABLE_500
38 , a35 JTF_VARCHAR2_TABLE_500
39 , a36 JTF_VARCHAR2_TABLE_500
40 , a37 JTF_VARCHAR2_TABLE_500
41 , a38 JTF_VARCHAR2_TABLE_500
42 , a39 JTF_VARCHAR2_TABLE_500
43 , a40 JTF_VARCHAR2_TABLE_500
44 , a41 JTF_NUMBER_TABLE
45 , a42 JTF_DATE_TABLE
46 , a43 JTF_NUMBER_TABLE
47 , a44 JTF_DATE_TABLE
48 , a45 JTF_NUMBER_TABLE
49 , a46 JTF_NUMBER_TABLE
50 , a47 JTF_NUMBER_TABLE
51 , a48 JTF_NUMBER_TABLE
52 , a49 JTF_NUMBER_TABLE
53 , a50 JTF_DATE_TABLE
54 , a51 JTF_NUMBER_TABLE
55 , a52 JTF_VARCHAR2_TABLE_100
56 , a53 JTF_VARCHAR2_TABLE_100
57 , a54 JTF_NUMBER_TABLE
58 , a55 JTF_NUMBER_TABLE
59 , a56 JTF_NUMBER_TABLE
60 , a57 JTF_VARCHAR2_TABLE_300
61 , a58 JTF_NUMBER_TABLE
62 , a59 JTF_VARCHAR2_TABLE_300
63 , a60 JTF_VARCHAR2_TABLE_300
64 , a61 JTF_VARCHAR2_TABLE_300
65 , a62 JTF_NUMBER_TABLE
66 , a63 JTF_NUMBER_TABLE
67 , a64 JTF_VARCHAR2_TABLE_100
68 , a65 JTF_DATE_TABLE
69 , a66 JTF_NUMBER_TABLE
70 , a67 JTF_VARCHAR2_TABLE_300
71 , a68 JTF_NUMBER_TABLE
72 , a69 JTF_NUMBER_TABLE
73 , a70 JTF_NUMBER_TABLE
74 , a71 JTF_NUMBER_TABLE
75 , a72 JTF_NUMBER_TABLE
76 , a73 JTF_NUMBER_TABLE
77 , a74 JTF_NUMBER_TABLE
78 , a75 JTF_VARCHAR2_TABLE_100
79 , a76 JTF_VARCHAR2_TABLE_200
80 , a77 JTF_VARCHAR2_TABLE_100
81 , a78 JTF_VARCHAR2_TABLE_100
82 , a79 JTF_DATE_TABLE
83 , a80 JTF_VARCHAR2_TABLE_100
84 , a81 JTF_NUMBER_TABLE
85 , a82 JTF_NUMBER_TABLE
86 ) as
87 ddindx binary_integer; indx binary_integer;
88 begin
89 if a0 is not null and a0.count > 0 then
90 if a0.count > 0 then
91 indx := a0.first;
92 ddindx := 1;
93 while true loop
94 t(ddindx).id := a0(indx);
95 t(ddindx).khr_id := a1(indx);
96 t(ddindx).kle_id := a2(indx);
97 t(ddindx).line_name := a3(indx);
98 t(ddindx).trx_id := a4(indx);
99 t(ddindx).trx_line_id := a5(indx);
100 t(ddindx).entity_code := a6(indx);
101 t(ddindx).event_class_code := a7(indx);
102 t(ddindx).trx_level_type := a8(indx);
103 t(ddindx).adjusted_doc_entity_code := a9(indx);
104 t(ddindx).adjusted_doc_event_class_code := a10(indx);
105 t(ddindx).adjusted_doc_trx_id := a11(indx);
106 t(ddindx).adjusted_doc_trx_line_id := a12(indx);
107 t(ddindx).adjusted_doc_trx_level_type := a13(indx);
108 t(ddindx).adjusted_doc_number := a14(indx);
109 t(ddindx).adjusted_doc_date := a15(indx);
110 t(ddindx).tax_call_type_code := a16(indx);
111 t(ddindx).sty_id := a17(indx);
112 t(ddindx).trx_business_category := a18(indx);
113 t(ddindx).tax_line_status_code := a19(indx);
114 t(ddindx).sel_id := a20(indx);
115 t(ddindx).program_id := a21(indx);
116 t(ddindx).request_id := a22(indx);
117 t(ddindx).program_application_id := a23(indx);
118 t(ddindx).program_update_date := a24(indx);
119 t(ddindx).attribute_category := a25(indx);
120 t(ddindx).attribute1 := a26(indx);
121 t(ddindx).attribute2 := a27(indx);
122 t(ddindx).attribute3 := a28(indx);
123 t(ddindx).attribute4 := a29(indx);
124 t(ddindx).attribute5 := a30(indx);
125 t(ddindx).attribute6 := a31(indx);
126 t(ddindx).attribute7 := a32(indx);
127 t(ddindx).attribute8 := a33(indx);
128 t(ddindx).attribute9 := a34(indx);
129 t(ddindx).attribute10 := a35(indx);
130 t(ddindx).attribute11 := a36(indx);
131 t(ddindx).attribute12 := a37(indx);
132 t(ddindx).attribute13 := a38(indx);
133 t(ddindx).attribute14 := a39(indx);
134 t(ddindx).attribute15 := a40(indx);
135 t(ddindx).created_by := a41(indx);
136 t(ddindx).creation_date := a42(indx);
137 t(ddindx).last_updated_by := a43(indx);
138 t(ddindx).last_update_date := a44(indx);
139 t(ddindx).last_update_login := a45(indx);
140 t(ddindx).object_version_number := a46(indx);
141 t(ddindx).application_id := a47(indx);
142 t(ddindx).assessable_value := a48(indx);
143 t(ddindx).bill_to_cust_acct_id := a49(indx);
144 t(ddindx).currency_conversion_date := a50(indx);
145 t(ddindx).currency_conversion_rate := a51(indx);
146 t(ddindx).currency_conversion_type := a52(indx);
147 t(ddindx).default_taxation_country := a53(indx);
148 t(ddindx).inventory_item_id := a54(indx);
149 t(ddindx).legal_entity_id := a55(indx);
150 t(ddindx).line_amt := a56(indx);
151 t(ddindx).line_intended_use := a57(indx);
152 t(ddindx).org_id := a58(indx);
153 t(ddindx).product_category := a59(indx);
154 t(ddindx).product_fisc_classification := a60(indx);
155 t(ddindx).product_type := a61(indx);
156 t(ddindx).ship_to_location_id := a62(indx);
157 t(ddindx).total_tax := a63(indx);
158 t(ddindx).trx_currency_code := a64(indx);
159 t(ddindx).trx_date := a65(indx);
160 t(ddindx).try_id := a66(indx);
161 t(ddindx).user_defined_fisc_class := a67(indx);
162 t(ddindx).ship_to_party_site_id := a68(indx);
163 t(ddindx).ship_to_party_id := a69(indx);
164 t(ddindx).bill_to_party_site_id := a70(indx);
165 t(ddindx).bill_to_location_id := a71(indx);
166 t(ddindx).bill_to_party_id := a72(indx);
167 t(ddindx).ship_to_cust_acct_site_use_id := a73(indx);
168 t(ddindx).bill_to_cust_acct_site_use_id := a74(indx);
169 t(ddindx).tax_classification_code := a75(indx);
170 t(ddindx).asset_number := a76(indx);
171 t(ddindx).reported_yn := a77(indx);
172 t(ddindx).tax_reporting_flag := a78(indx);
173 t(ddindx).provnl_tax_determination_date := a79(indx);
174 t(ddindx).alc_serialized_yn := a80(indx);
175 t(ddindx).alc_serialized_total_tax := a81(indx);
176 t(ddindx).alc_serialized_total_line_amt := a82(indx);
177 ddindx := ddindx+1;
178 if a0.last =indx
179 then exit;
180 end if;
181 indx := a0.next(indx);
182 end loop;
183 end if;
184 end if;
185 end rosetta_table_copy_in_p73;
186 procedure rosetta_table_copy_out_p73(t okl_process_sales_tax_pvt.tax_sources_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
187 , a1 out nocopy JTF_NUMBER_TABLE
188 , a2 out nocopy JTF_NUMBER_TABLE
189 , a3 out nocopy JTF_VARCHAR2_TABLE_200
190 , a4 out nocopy JTF_NUMBER_TABLE
191 , a5 out nocopy JTF_NUMBER_TABLE
192 , a6 out nocopy JTF_VARCHAR2_TABLE_100
193 , a7 out nocopy JTF_VARCHAR2_TABLE_100
194 , a8 out nocopy JTF_VARCHAR2_TABLE_100
195 , a9 out nocopy JTF_VARCHAR2_TABLE_100
196 , a10 out nocopy JTF_VARCHAR2_TABLE_100
197 , a11 out nocopy JTF_NUMBER_TABLE
198 , a12 out nocopy JTF_NUMBER_TABLE
199 , a13 out nocopy JTF_VARCHAR2_TABLE_100
200 , a14 out nocopy JTF_VARCHAR2_TABLE_200
201 , a15 out nocopy JTF_DATE_TABLE
202 , a16 out nocopy JTF_VARCHAR2_TABLE_100
203 , a17 out nocopy JTF_NUMBER_TABLE
204 , a18 out nocopy JTF_VARCHAR2_TABLE_300
205 , a19 out nocopy JTF_VARCHAR2_TABLE_100
206 , a20 out nocopy JTF_NUMBER_TABLE
207 , a21 out nocopy JTF_NUMBER_TABLE
208 , a22 out nocopy JTF_NUMBER_TABLE
209 , a23 out nocopy JTF_NUMBER_TABLE
210 , a24 out nocopy JTF_DATE_TABLE
211 , a25 out nocopy JTF_VARCHAR2_TABLE_100
212 , a26 out nocopy JTF_VARCHAR2_TABLE_500
213 , a27 out nocopy JTF_VARCHAR2_TABLE_500
214 , a28 out nocopy JTF_VARCHAR2_TABLE_500
215 , a29 out nocopy JTF_VARCHAR2_TABLE_500
216 , a30 out nocopy JTF_VARCHAR2_TABLE_500
217 , a31 out nocopy JTF_VARCHAR2_TABLE_500
218 , a32 out nocopy JTF_VARCHAR2_TABLE_500
219 , a33 out nocopy JTF_VARCHAR2_TABLE_500
220 , a34 out nocopy JTF_VARCHAR2_TABLE_500
221 , a35 out nocopy JTF_VARCHAR2_TABLE_500
222 , a36 out nocopy JTF_VARCHAR2_TABLE_500
223 , a37 out nocopy JTF_VARCHAR2_TABLE_500
224 , a38 out nocopy JTF_VARCHAR2_TABLE_500
225 , a39 out nocopy JTF_VARCHAR2_TABLE_500
226 , a40 out nocopy JTF_VARCHAR2_TABLE_500
227 , a41 out nocopy JTF_NUMBER_TABLE
228 , a42 out nocopy JTF_DATE_TABLE
229 , a43 out nocopy JTF_NUMBER_TABLE
230 , a44 out nocopy JTF_DATE_TABLE
231 , a45 out nocopy JTF_NUMBER_TABLE
232 , a46 out nocopy JTF_NUMBER_TABLE
233 , a47 out nocopy JTF_NUMBER_TABLE
234 , a48 out nocopy JTF_NUMBER_TABLE
235 , a49 out nocopy JTF_NUMBER_TABLE
236 , a50 out nocopy JTF_DATE_TABLE
237 , a51 out nocopy JTF_NUMBER_TABLE
238 , a52 out nocopy JTF_VARCHAR2_TABLE_100
239 , a53 out nocopy JTF_VARCHAR2_TABLE_100
240 , a54 out nocopy JTF_NUMBER_TABLE
241 , a55 out nocopy JTF_NUMBER_TABLE
242 , a56 out nocopy JTF_NUMBER_TABLE
243 , a57 out nocopy JTF_VARCHAR2_TABLE_300
244 , a58 out nocopy JTF_NUMBER_TABLE
245 , a59 out nocopy JTF_VARCHAR2_TABLE_300
246 , a60 out nocopy JTF_VARCHAR2_TABLE_300
247 , a61 out nocopy JTF_VARCHAR2_TABLE_300
248 , a62 out nocopy JTF_NUMBER_TABLE
249 , a63 out nocopy JTF_NUMBER_TABLE
250 , a64 out nocopy JTF_VARCHAR2_TABLE_100
251 , a65 out nocopy JTF_DATE_TABLE
252 , a66 out nocopy JTF_NUMBER_TABLE
253 , a67 out nocopy JTF_VARCHAR2_TABLE_300
254 , a68 out nocopy JTF_NUMBER_TABLE
255 , a69 out nocopy JTF_NUMBER_TABLE
256 , a70 out nocopy JTF_NUMBER_TABLE
257 , a71 out nocopy JTF_NUMBER_TABLE
258 , a72 out nocopy JTF_NUMBER_TABLE
259 , a73 out nocopy JTF_NUMBER_TABLE
260 , a74 out nocopy JTF_NUMBER_TABLE
261 , a75 out nocopy JTF_VARCHAR2_TABLE_100
262 , a76 out nocopy JTF_VARCHAR2_TABLE_200
263 , a77 out nocopy JTF_VARCHAR2_TABLE_100
264 , a78 out nocopy JTF_VARCHAR2_TABLE_100
265 , a79 out nocopy JTF_DATE_TABLE
266 , a80 out nocopy JTF_VARCHAR2_TABLE_100
267 , a81 out nocopy JTF_NUMBER_TABLE
268 , a82 out nocopy JTF_NUMBER_TABLE
269 ) as
270 ddindx binary_integer; indx binary_integer;
271 begin
272 if t is null or t.count = 0 then
273 a0 := JTF_NUMBER_TABLE();
274 a1 := JTF_NUMBER_TABLE();
275 a2 := JTF_NUMBER_TABLE();
276 a3 := JTF_VARCHAR2_TABLE_200();
277 a4 := JTF_NUMBER_TABLE();
278 a5 := JTF_NUMBER_TABLE();
279 a6 := JTF_VARCHAR2_TABLE_100();
280 a7 := JTF_VARCHAR2_TABLE_100();
281 a8 := JTF_VARCHAR2_TABLE_100();
282 a9 := JTF_VARCHAR2_TABLE_100();
283 a10 := JTF_VARCHAR2_TABLE_100();
284 a11 := JTF_NUMBER_TABLE();
285 a12 := JTF_NUMBER_TABLE();
286 a13 := JTF_VARCHAR2_TABLE_100();
287 a14 := JTF_VARCHAR2_TABLE_200();
288 a15 := JTF_DATE_TABLE();
289 a16 := JTF_VARCHAR2_TABLE_100();
290 a17 := JTF_NUMBER_TABLE();
291 a18 := JTF_VARCHAR2_TABLE_300();
292 a19 := JTF_VARCHAR2_TABLE_100();
293 a20 := JTF_NUMBER_TABLE();
294 a21 := JTF_NUMBER_TABLE();
295 a22 := JTF_NUMBER_TABLE();
296 a23 := JTF_NUMBER_TABLE();
297 a24 := JTF_DATE_TABLE();
298 a25 := JTF_VARCHAR2_TABLE_100();
299 a26 := JTF_VARCHAR2_TABLE_500();
300 a27 := JTF_VARCHAR2_TABLE_500();
301 a28 := JTF_VARCHAR2_TABLE_500();
302 a29 := JTF_VARCHAR2_TABLE_500();
303 a30 := JTF_VARCHAR2_TABLE_500();
304 a31 := JTF_VARCHAR2_TABLE_500();
305 a32 := JTF_VARCHAR2_TABLE_500();
306 a33 := JTF_VARCHAR2_TABLE_500();
307 a34 := JTF_VARCHAR2_TABLE_500();
308 a35 := JTF_VARCHAR2_TABLE_500();
309 a36 := JTF_VARCHAR2_TABLE_500();
310 a37 := JTF_VARCHAR2_TABLE_500();
311 a38 := JTF_VARCHAR2_TABLE_500();
312 a39 := JTF_VARCHAR2_TABLE_500();
313 a40 := JTF_VARCHAR2_TABLE_500();
314 a41 := JTF_NUMBER_TABLE();
315 a42 := JTF_DATE_TABLE();
316 a43 := JTF_NUMBER_TABLE();
317 a44 := JTF_DATE_TABLE();
318 a45 := JTF_NUMBER_TABLE();
319 a46 := JTF_NUMBER_TABLE();
320 a47 := JTF_NUMBER_TABLE();
321 a48 := JTF_NUMBER_TABLE();
322 a49 := JTF_NUMBER_TABLE();
323 a50 := JTF_DATE_TABLE();
324 a51 := JTF_NUMBER_TABLE();
325 a52 := JTF_VARCHAR2_TABLE_100();
326 a53 := JTF_VARCHAR2_TABLE_100();
327 a54 := JTF_NUMBER_TABLE();
328 a55 := JTF_NUMBER_TABLE();
329 a56 := JTF_NUMBER_TABLE();
330 a57 := JTF_VARCHAR2_TABLE_300();
331 a58 := JTF_NUMBER_TABLE();
332 a59 := JTF_VARCHAR2_TABLE_300();
333 a60 := JTF_VARCHAR2_TABLE_300();
334 a61 := JTF_VARCHAR2_TABLE_300();
335 a62 := JTF_NUMBER_TABLE();
336 a63 := JTF_NUMBER_TABLE();
337 a64 := JTF_VARCHAR2_TABLE_100();
338 a65 := JTF_DATE_TABLE();
339 a66 := JTF_NUMBER_TABLE();
340 a67 := JTF_VARCHAR2_TABLE_300();
341 a68 := JTF_NUMBER_TABLE();
342 a69 := JTF_NUMBER_TABLE();
343 a70 := JTF_NUMBER_TABLE();
344 a71 := JTF_NUMBER_TABLE();
345 a72 := JTF_NUMBER_TABLE();
346 a73 := JTF_NUMBER_TABLE();
347 a74 := JTF_NUMBER_TABLE();
348 a75 := JTF_VARCHAR2_TABLE_100();
349 a76 := JTF_VARCHAR2_TABLE_200();
350 a77 := JTF_VARCHAR2_TABLE_100();
351 a78 := JTF_VARCHAR2_TABLE_100();
352 a79 := JTF_DATE_TABLE();
353 a80 := JTF_VARCHAR2_TABLE_100();
354 a81 := JTF_NUMBER_TABLE();
355 a82 := JTF_NUMBER_TABLE();
356 else
357 a0 := JTF_NUMBER_TABLE();
358 a1 := JTF_NUMBER_TABLE();
359 a2 := JTF_NUMBER_TABLE();
360 a3 := JTF_VARCHAR2_TABLE_200();
361 a4 := JTF_NUMBER_TABLE();
362 a5 := JTF_NUMBER_TABLE();
363 a6 := JTF_VARCHAR2_TABLE_100();
364 a7 := JTF_VARCHAR2_TABLE_100();
365 a8 := JTF_VARCHAR2_TABLE_100();
366 a9 := JTF_VARCHAR2_TABLE_100();
367 a10 := JTF_VARCHAR2_TABLE_100();
368 a11 := JTF_NUMBER_TABLE();
369 a12 := JTF_NUMBER_TABLE();
370 a13 := JTF_VARCHAR2_TABLE_100();
371 a14 := JTF_VARCHAR2_TABLE_200();
372 a15 := JTF_DATE_TABLE();
373 a16 := JTF_VARCHAR2_TABLE_100();
374 a17 := JTF_NUMBER_TABLE();
375 a18 := JTF_VARCHAR2_TABLE_300();
376 a19 := JTF_VARCHAR2_TABLE_100();
377 a20 := JTF_NUMBER_TABLE();
378 a21 := JTF_NUMBER_TABLE();
379 a22 := JTF_NUMBER_TABLE();
380 a23 := JTF_NUMBER_TABLE();
381 a24 := JTF_DATE_TABLE();
382 a25 := JTF_VARCHAR2_TABLE_100();
383 a26 := JTF_VARCHAR2_TABLE_500();
384 a27 := JTF_VARCHAR2_TABLE_500();
385 a28 := JTF_VARCHAR2_TABLE_500();
386 a29 := JTF_VARCHAR2_TABLE_500();
387 a30 := JTF_VARCHAR2_TABLE_500();
388 a31 := JTF_VARCHAR2_TABLE_500();
389 a32 := JTF_VARCHAR2_TABLE_500();
390 a33 := JTF_VARCHAR2_TABLE_500();
391 a34 := JTF_VARCHAR2_TABLE_500();
392 a35 := JTF_VARCHAR2_TABLE_500();
393 a36 := JTF_VARCHAR2_TABLE_500();
394 a37 := JTF_VARCHAR2_TABLE_500();
395 a38 := JTF_VARCHAR2_TABLE_500();
396 a39 := JTF_VARCHAR2_TABLE_500();
397 a40 := JTF_VARCHAR2_TABLE_500();
398 a41 := JTF_NUMBER_TABLE();
399 a42 := JTF_DATE_TABLE();
400 a43 := JTF_NUMBER_TABLE();
401 a44 := JTF_DATE_TABLE();
402 a45 := JTF_NUMBER_TABLE();
403 a46 := JTF_NUMBER_TABLE();
404 a47 := JTF_NUMBER_TABLE();
405 a48 := JTF_NUMBER_TABLE();
406 a49 := JTF_NUMBER_TABLE();
407 a50 := JTF_DATE_TABLE();
408 a51 := JTF_NUMBER_TABLE();
409 a52 := JTF_VARCHAR2_TABLE_100();
410 a53 := JTF_VARCHAR2_TABLE_100();
411 a54 := JTF_NUMBER_TABLE();
412 a55 := JTF_NUMBER_TABLE();
413 a56 := JTF_NUMBER_TABLE();
414 a57 := JTF_VARCHAR2_TABLE_300();
415 a58 := JTF_NUMBER_TABLE();
416 a59 := JTF_VARCHAR2_TABLE_300();
417 a60 := JTF_VARCHAR2_TABLE_300();
418 a61 := JTF_VARCHAR2_TABLE_300();
419 a62 := JTF_NUMBER_TABLE();
420 a63 := JTF_NUMBER_TABLE();
421 a64 := JTF_VARCHAR2_TABLE_100();
422 a65 := JTF_DATE_TABLE();
423 a66 := JTF_NUMBER_TABLE();
424 a67 := JTF_VARCHAR2_TABLE_300();
425 a68 := JTF_NUMBER_TABLE();
426 a69 := JTF_NUMBER_TABLE();
427 a70 := JTF_NUMBER_TABLE();
428 a71 := JTF_NUMBER_TABLE();
429 a72 := JTF_NUMBER_TABLE();
430 a73 := JTF_NUMBER_TABLE();
431 a74 := JTF_NUMBER_TABLE();
432 a75 := JTF_VARCHAR2_TABLE_100();
433 a76 := JTF_VARCHAR2_TABLE_200();
434 a77 := JTF_VARCHAR2_TABLE_100();
435 a78 := JTF_VARCHAR2_TABLE_100();
436 a79 := JTF_DATE_TABLE();
437 a80 := JTF_VARCHAR2_TABLE_100();
438 a81 := JTF_NUMBER_TABLE();
439 a82 := JTF_NUMBER_TABLE();
440 if t.count > 0 then
441 a0.extend(t.count);
442 a1.extend(t.count);
443 a2.extend(t.count);
444 a3.extend(t.count);
445 a4.extend(t.count);
446 a5.extend(t.count);
447 a6.extend(t.count);
448 a7.extend(t.count);
449 a8.extend(t.count);
450 a9.extend(t.count);
451 a10.extend(t.count);
452 a11.extend(t.count);
453 a12.extend(t.count);
454 a13.extend(t.count);
455 a14.extend(t.count);
456 a15.extend(t.count);
457 a16.extend(t.count);
458 a17.extend(t.count);
459 a18.extend(t.count);
460 a19.extend(t.count);
461 a20.extend(t.count);
462 a21.extend(t.count);
463 a22.extend(t.count);
464 a23.extend(t.count);
465 a24.extend(t.count);
466 a25.extend(t.count);
467 a26.extend(t.count);
468 a27.extend(t.count);
469 a28.extend(t.count);
470 a29.extend(t.count);
471 a30.extend(t.count);
472 a31.extend(t.count);
473 a32.extend(t.count);
474 a33.extend(t.count);
475 a34.extend(t.count);
476 a35.extend(t.count);
477 a36.extend(t.count);
478 a37.extend(t.count);
479 a38.extend(t.count);
480 a39.extend(t.count);
481 a40.extend(t.count);
482 a41.extend(t.count);
483 a42.extend(t.count);
484 a43.extend(t.count);
485 a44.extend(t.count);
486 a45.extend(t.count);
487 a46.extend(t.count);
488 a47.extend(t.count);
489 a48.extend(t.count);
490 a49.extend(t.count);
491 a50.extend(t.count);
492 a51.extend(t.count);
493 a52.extend(t.count);
494 a53.extend(t.count);
495 a54.extend(t.count);
496 a55.extend(t.count);
497 a56.extend(t.count);
498 a57.extend(t.count);
499 a58.extend(t.count);
500 a59.extend(t.count);
501 a60.extend(t.count);
502 a61.extend(t.count);
503 a62.extend(t.count);
504 a63.extend(t.count);
505 a64.extend(t.count);
506 a65.extend(t.count);
507 a66.extend(t.count);
508 a67.extend(t.count);
509 a68.extend(t.count);
510 a69.extend(t.count);
511 a70.extend(t.count);
512 a71.extend(t.count);
513 a72.extend(t.count);
514 a73.extend(t.count);
515 a74.extend(t.count);
516 a75.extend(t.count);
517 a76.extend(t.count);
518 a77.extend(t.count);
519 a78.extend(t.count);
520 a79.extend(t.count);
521 a80.extend(t.count);
522 a81.extend(t.count);
523 a82.extend(t.count);
524 ddindx := t.first;
525 indx := 1;
526 while true loop
527 a0(indx) := t(ddindx).id;
528 a1(indx) := t(ddindx).khr_id;
529 a2(indx) := t(ddindx).kle_id;
530 a3(indx) := t(ddindx).line_name;
531 a4(indx) := t(ddindx).trx_id;
532 a5(indx) := t(ddindx).trx_line_id;
533 a6(indx) := t(ddindx).entity_code;
534 a7(indx) := t(ddindx).event_class_code;
535 a8(indx) := t(ddindx).trx_level_type;
536 a9(indx) := t(ddindx).adjusted_doc_entity_code;
537 a10(indx) := t(ddindx).adjusted_doc_event_class_code;
538 a11(indx) := t(ddindx).adjusted_doc_trx_id;
539 a12(indx) := t(ddindx).adjusted_doc_trx_line_id;
540 a13(indx) := t(ddindx).adjusted_doc_trx_level_type;
541 a14(indx) := t(ddindx).adjusted_doc_number;
542 a15(indx) := t(ddindx).adjusted_doc_date;
543 a16(indx) := t(ddindx).tax_call_type_code;
544 a17(indx) := t(ddindx).sty_id;
545 a18(indx) := t(ddindx).trx_business_category;
546 a19(indx) := t(ddindx).tax_line_status_code;
547 a20(indx) := t(ddindx).sel_id;
548 a21(indx) := t(ddindx).program_id;
549 a22(indx) := t(ddindx).request_id;
550 a23(indx) := t(ddindx).program_application_id;
551 a24(indx) := t(ddindx).program_update_date;
552 a25(indx) := t(ddindx).attribute_category;
553 a26(indx) := t(ddindx).attribute1;
554 a27(indx) := t(ddindx).attribute2;
555 a28(indx) := t(ddindx).attribute3;
556 a29(indx) := t(ddindx).attribute4;
557 a30(indx) := t(ddindx).attribute5;
558 a31(indx) := t(ddindx).attribute6;
559 a32(indx) := t(ddindx).attribute7;
560 a33(indx) := t(ddindx).attribute8;
561 a34(indx) := t(ddindx).attribute9;
562 a35(indx) := t(ddindx).attribute10;
563 a36(indx) := t(ddindx).attribute11;
564 a37(indx) := t(ddindx).attribute12;
565 a38(indx) := t(ddindx).attribute13;
566 a39(indx) := t(ddindx).attribute14;
567 a40(indx) := t(ddindx).attribute15;
568 a41(indx) := t(ddindx).created_by;
569 a42(indx) := t(ddindx).creation_date;
570 a43(indx) := t(ddindx).last_updated_by;
571 a44(indx) := t(ddindx).last_update_date;
572 a45(indx) := t(ddindx).last_update_login;
573 a46(indx) := t(ddindx).object_version_number;
574 a47(indx) := t(ddindx).application_id;
575 a48(indx) := t(ddindx).assessable_value;
576 a49(indx) := t(ddindx).bill_to_cust_acct_id;
577 a50(indx) := t(ddindx).currency_conversion_date;
578 a51(indx) := t(ddindx).currency_conversion_rate;
579 a52(indx) := t(ddindx).currency_conversion_type;
580 a53(indx) := t(ddindx).default_taxation_country;
581 a54(indx) := t(ddindx).inventory_item_id;
582 a55(indx) := t(ddindx).legal_entity_id;
583 a56(indx) := t(ddindx).line_amt;
584 a57(indx) := t(ddindx).line_intended_use;
585 a58(indx) := t(ddindx).org_id;
586 a59(indx) := t(ddindx).product_category;
587 a60(indx) := t(ddindx).product_fisc_classification;
588 a61(indx) := t(ddindx).product_type;
589 a62(indx) := t(ddindx).ship_to_location_id;
590 a63(indx) := t(ddindx).total_tax;
591 a64(indx) := t(ddindx).trx_currency_code;
592 a65(indx) := t(ddindx).trx_date;
593 a66(indx) := t(ddindx).try_id;
594 a67(indx) := t(ddindx).user_defined_fisc_class;
595 a68(indx) := t(ddindx).ship_to_party_site_id;
596 a69(indx) := t(ddindx).ship_to_party_id;
597 a70(indx) := t(ddindx).bill_to_party_site_id;
598 a71(indx) := t(ddindx).bill_to_location_id;
599 a72(indx) := t(ddindx).bill_to_party_id;
600 a73(indx) := t(ddindx).ship_to_cust_acct_site_use_id;
601 a74(indx) := t(ddindx).bill_to_cust_acct_site_use_id;
602 a75(indx) := t(ddindx).tax_classification_code;
603 a76(indx) := t(ddindx).asset_number;
604 a77(indx) := t(ddindx).reported_yn;
605 a78(indx) := t(ddindx).tax_reporting_flag;
606 a79(indx) := t(ddindx).provnl_tax_determination_date;
607 a80(indx) := t(ddindx).alc_serialized_yn;
608 a81(indx) := t(ddindx).alc_serialized_total_tax;
609 a82(indx) := t(ddindx).alc_serialized_total_line_amt;
610 indx := indx+1;
611 if t.last =ddindx
612 then exit;
613 end if;
614 ddindx := t.next(ddindx);
615 end loop;
616 end if;
617 end if;
618 end rosetta_table_copy_out_p73;
619
620 procedure rosetta_table_copy_in_p76(t out nocopy okl_process_sales_tax_pvt.tax_lines_tbl_type, a0 JTF_NUMBER_TABLE
621 , a1 JTF_NUMBER_TABLE
622 , a2 JTF_DATE_TABLE
623 , a3 JTF_NUMBER_TABLE
624 , a4 JTF_VARCHAR2_TABLE_200
625 , a5 JTF_NUMBER_TABLE
626 , a6 JTF_NUMBER_TABLE
627 , a7 JTF_NUMBER_TABLE
628 , a8 JTF_NUMBER_TABLE
629 , a9 JTF_VARCHAR2_TABLE_100
630 , a10 JTF_VARCHAR2_TABLE_100
631 , a11 JTF_NUMBER_TABLE
632 , a12 JTF_NUMBER_TABLE
633 , a13 JTF_NUMBER_TABLE
634 , a14 JTF_DATE_TABLE
635 , a15 JTF_VARCHAR2_TABLE_100
636 , a16 JTF_VARCHAR2_TABLE_500
637 , a17 JTF_VARCHAR2_TABLE_500
638 , a18 JTF_VARCHAR2_TABLE_500
639 , a19 JTF_VARCHAR2_TABLE_500
640 , a20 JTF_VARCHAR2_TABLE_500
641 , a21 JTF_VARCHAR2_TABLE_500
642 , a22 JTF_VARCHAR2_TABLE_500
643 , a23 JTF_VARCHAR2_TABLE_500
644 , a24 JTF_VARCHAR2_TABLE_500
645 , a25 JTF_VARCHAR2_TABLE_500
646 , a26 JTF_VARCHAR2_TABLE_500
647 , a27 JTF_VARCHAR2_TABLE_500
648 , a28 JTF_VARCHAR2_TABLE_500
649 , a29 JTF_VARCHAR2_TABLE_500
650 , a30 JTF_VARCHAR2_TABLE_500
651 , a31 JTF_NUMBER_TABLE
652 , a32 JTF_DATE_TABLE
653 , a33 JTF_NUMBER_TABLE
654 , a34 JTF_DATE_TABLE
655 , a35 JTF_NUMBER_TABLE
656 , a36 JTF_NUMBER_TABLE
657 , a37 JTF_DATE_TABLE
658 , a38 JTF_NUMBER_TABLE
659 , a39 JTF_NUMBER_TABLE
660 , a40 JTF_NUMBER_TABLE
661 , a41 JTF_VARCHAR2_TABLE_100
662 , a42 JTF_VARCHAR2_TABLE_100
663 , a43 JTF_VARCHAR2_TABLE_100
664 , a44 JTF_NUMBER_TABLE
665 , a45 JTF_NUMBER_TABLE
666 , a46 JTF_VARCHAR2_TABLE_100
667 , a47 JTF_NUMBER_TABLE
668 , a48 JTF_NUMBER_TABLE
669 , a49 JTF_NUMBER_TABLE
670 , a50 JTF_VARCHAR2_TABLE_100
671 , a51 JTF_NUMBER_TABLE
672 , a52 JTF_VARCHAR2_TABLE_100
673 , a53 JTF_NUMBER_TABLE
674 , a54 JTF_VARCHAR2_TABLE_100
675 , a55 JTF_NUMBER_TABLE
676 , a56 JTF_NUMBER_TABLE
677 , a57 JTF_VARCHAR2_TABLE_200
678 , a58 JTF_DATE_TABLE
679 , a59 JTF_NUMBER_TABLE
680 , a60 JTF_VARCHAR2_TABLE_100
681 , a61 JTF_VARCHAR2_TABLE_100
682 , a62 JTF_VARCHAR2_TABLE_100
683 , a63 JTF_NUMBER_TABLE
684 , a64 JTF_VARCHAR2_TABLE_100
685 , a65 JTF_NUMBER_TABLE
686 , a66 JTF_NUMBER_TABLE
687 , a67 JTF_VARCHAR2_TABLE_100
688 , a68 JTF_NUMBER_TABLE
689 , a69 JTF_DATE_TABLE
690 , a70 JTF_DATE_TABLE
691 , a71 JTF_NUMBER_TABLE
692 , a72 JTF_NUMBER_TABLE
693 ) as
694 ddindx binary_integer; indx binary_integer;
695 begin
696 if a0 is not null and a0.count > 0 then
697 if a0.count > 0 then
698 indx := a0.first;
699 ddindx := 1;
700 while true loop
701 t(ddindx).id := a0(indx);
702 t(ddindx).txs_id := a1(indx);
703 t(ddindx).tax_determine_date := a2(indx);
704 t(ddindx).tax_rate_id := a3(indx);
705 t(ddindx).tax_rate_code := a4(indx);
706 t(ddindx).taxable_amt := a5(indx);
707 t(ddindx).tax_exemption_id := a6(indx);
708 t(ddindx).tax_rate := a7(indx);
709 t(ddindx).tax_amt := a8(indx);
710 t(ddindx).billed_yn := a9(indx);
711 t(ddindx).tax_call_type_code := a10(indx);
712 t(ddindx).program_id := a11(indx);
713 t(ddindx).request_id := a12(indx);
714 t(ddindx).program_application_id := a13(indx);
715 t(ddindx).program_update_date := a14(indx);
716 t(ddindx).attribute_category := a15(indx);
717 t(ddindx).attribute1 := a16(indx);
718 t(ddindx).attribute2 := a17(indx);
719 t(ddindx).attribute3 := a18(indx);
720 t(ddindx).attribute4 := a19(indx);
721 t(ddindx).attribute5 := a20(indx);
722 t(ddindx).attribute6 := a21(indx);
723 t(ddindx).attribute7 := a22(indx);
724 t(ddindx).attribute8 := a23(indx);
725 t(ddindx).attribute9 := a24(indx);
726 t(ddindx).attribute10 := a25(indx);
727 t(ddindx).attribute11 := a26(indx);
728 t(ddindx).attribute12 := a27(indx);
729 t(ddindx).attribute13 := a28(indx);
730 t(ddindx).attribute14 := a29(indx);
731 t(ddindx).attribute15 := a30(indx);
732 t(ddindx).created_by := a31(indx);
733 t(ddindx).creation_date := a32(indx);
734 t(ddindx).last_updated_by := a33(indx);
735 t(ddindx).last_update_date := a34(indx);
736 t(ddindx).last_update_login := a35(indx);
737 t(ddindx).object_version_number := a36(indx);
738 t(ddindx).tax_date := a37(indx);
739 t(ddindx).line_amt := a38(indx);
740 t(ddindx).internal_organization_id := a39(indx);
741 t(ddindx).application_id := a40(indx);
742 t(ddindx).entity_code := a41(indx);
743 t(ddindx).event_class_code := a42(indx);
744 t(ddindx).event_type_code := a43(indx);
745 t(ddindx).trx_id := a44(indx);
746 t(ddindx).trx_line_id := a45(indx);
747 t(ddindx).trx_level_type := a46(indx);
748 t(ddindx).trx_line_number := a47(indx);
749 t(ddindx).tax_line_number := a48(indx);
750 t(ddindx).tax_regime_id := a49(indx);
751 t(ddindx).tax_regime_code := a50(indx);
752 t(ddindx).tax_id := a51(indx);
753 t(ddindx).tax := a52(indx);
754 t(ddindx).tax_status_id := a53(indx);
755 t(ddindx).tax_status_code := a54(indx);
756 t(ddindx).tax_apportionment_line_number := a55(indx);
757 t(ddindx).legal_entity_id := a56(indx);
758 t(ddindx).trx_number := a57(indx);
759 t(ddindx).trx_date := a58(indx);
760 t(ddindx).tax_jurisdiction_id := a59(indx);
761 t(ddindx).tax_jurisdiction_code := a60(indx);
762 t(ddindx).tax_type_code := a61(indx);
763 t(ddindx).tax_currency_code := a62(indx);
764 t(ddindx).taxable_amt_tax_curr := a63(indx);
765 t(ddindx).trx_currency_code := a64(indx);
766 t(ddindx).minimum_accountable_unit := a65(indx);
767 t(ddindx).precision := a66(indx);
768 t(ddindx).currency_conversion_type := a67(indx);
769 t(ddindx).currency_conversion_rate := a68(indx);
770 t(ddindx).currency_conversion_date := a69(indx);
771 t(ddindx).tax_determination_date := a70(indx);
772 t(ddindx).taxable_amount := a71(indx);
773 t(ddindx).tax_amount := a72(indx);
774 ddindx := ddindx+1;
775 if a0.last =indx
776 then exit;
777 end if;
778 indx := a0.next(indx);
779 end loop;
780 end if;
781 end if;
782 end rosetta_table_copy_in_p76;
783 procedure rosetta_table_copy_out_p76(t okl_process_sales_tax_pvt.tax_lines_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
784 , a1 out nocopy JTF_NUMBER_TABLE
785 , a2 out nocopy JTF_DATE_TABLE
786 , a3 out nocopy JTF_NUMBER_TABLE
787 , a4 out nocopy JTF_VARCHAR2_TABLE_200
788 , a5 out nocopy JTF_NUMBER_TABLE
789 , a6 out nocopy JTF_NUMBER_TABLE
790 , a7 out nocopy JTF_NUMBER_TABLE
791 , a8 out nocopy JTF_NUMBER_TABLE
792 , a9 out nocopy JTF_VARCHAR2_TABLE_100
793 , a10 out nocopy JTF_VARCHAR2_TABLE_100
794 , a11 out nocopy JTF_NUMBER_TABLE
795 , a12 out nocopy JTF_NUMBER_TABLE
796 , a13 out nocopy JTF_NUMBER_TABLE
797 , a14 out nocopy JTF_DATE_TABLE
798 , a15 out nocopy JTF_VARCHAR2_TABLE_100
799 , a16 out nocopy JTF_VARCHAR2_TABLE_500
800 , a17 out nocopy JTF_VARCHAR2_TABLE_500
801 , a18 out nocopy JTF_VARCHAR2_TABLE_500
802 , a19 out nocopy JTF_VARCHAR2_TABLE_500
803 , a20 out nocopy JTF_VARCHAR2_TABLE_500
804 , a21 out nocopy JTF_VARCHAR2_TABLE_500
805 , a22 out nocopy JTF_VARCHAR2_TABLE_500
806 , a23 out nocopy JTF_VARCHAR2_TABLE_500
807 , a24 out nocopy JTF_VARCHAR2_TABLE_500
808 , a25 out nocopy JTF_VARCHAR2_TABLE_500
809 , a26 out nocopy JTF_VARCHAR2_TABLE_500
810 , a27 out nocopy JTF_VARCHAR2_TABLE_500
811 , a28 out nocopy JTF_VARCHAR2_TABLE_500
812 , a29 out nocopy JTF_VARCHAR2_TABLE_500
813 , a30 out nocopy JTF_VARCHAR2_TABLE_500
814 , a31 out nocopy JTF_NUMBER_TABLE
815 , a32 out nocopy JTF_DATE_TABLE
816 , a33 out nocopy JTF_NUMBER_TABLE
817 , a34 out nocopy JTF_DATE_TABLE
818 , a35 out nocopy JTF_NUMBER_TABLE
819 , a36 out nocopy JTF_NUMBER_TABLE
820 , a37 out nocopy JTF_DATE_TABLE
821 , a38 out nocopy JTF_NUMBER_TABLE
822 , a39 out nocopy JTF_NUMBER_TABLE
823 , a40 out nocopy JTF_NUMBER_TABLE
824 , a41 out nocopy JTF_VARCHAR2_TABLE_100
825 , a42 out nocopy JTF_VARCHAR2_TABLE_100
826 , a43 out nocopy JTF_VARCHAR2_TABLE_100
827 , a44 out nocopy JTF_NUMBER_TABLE
828 , a45 out nocopy JTF_NUMBER_TABLE
829 , a46 out nocopy JTF_VARCHAR2_TABLE_100
830 , a47 out nocopy JTF_NUMBER_TABLE
831 , a48 out nocopy JTF_NUMBER_TABLE
832 , a49 out nocopy JTF_NUMBER_TABLE
833 , a50 out nocopy JTF_VARCHAR2_TABLE_100
834 , a51 out nocopy JTF_NUMBER_TABLE
835 , a52 out nocopy JTF_VARCHAR2_TABLE_100
836 , a53 out nocopy JTF_NUMBER_TABLE
837 , a54 out nocopy JTF_VARCHAR2_TABLE_100
838 , a55 out nocopy JTF_NUMBER_TABLE
839 , a56 out nocopy JTF_NUMBER_TABLE
840 , a57 out nocopy JTF_VARCHAR2_TABLE_200
841 , a58 out nocopy JTF_DATE_TABLE
842 , a59 out nocopy JTF_NUMBER_TABLE
843 , a60 out nocopy JTF_VARCHAR2_TABLE_100
844 , a61 out nocopy JTF_VARCHAR2_TABLE_100
845 , a62 out nocopy JTF_VARCHAR2_TABLE_100
846 , a63 out nocopy JTF_NUMBER_TABLE
847 , a64 out nocopy JTF_VARCHAR2_TABLE_100
848 , a65 out nocopy JTF_NUMBER_TABLE
849 , a66 out nocopy JTF_NUMBER_TABLE
850 , a67 out nocopy JTF_VARCHAR2_TABLE_100
851 , a68 out nocopy JTF_NUMBER_TABLE
852 , a69 out nocopy JTF_DATE_TABLE
853 , a70 out nocopy JTF_DATE_TABLE
854 , a71 out nocopy JTF_NUMBER_TABLE
855 , a72 out nocopy JTF_NUMBER_TABLE
856 ) as
857 ddindx binary_integer; indx binary_integer;
858 begin
859 if t is null or t.count = 0 then
860 a0 := JTF_NUMBER_TABLE();
861 a1 := JTF_NUMBER_TABLE();
862 a2 := JTF_DATE_TABLE();
863 a3 := JTF_NUMBER_TABLE();
864 a4 := JTF_VARCHAR2_TABLE_200();
865 a5 := JTF_NUMBER_TABLE();
866 a6 := JTF_NUMBER_TABLE();
867 a7 := JTF_NUMBER_TABLE();
868 a8 := JTF_NUMBER_TABLE();
869 a9 := JTF_VARCHAR2_TABLE_100();
870 a10 := JTF_VARCHAR2_TABLE_100();
871 a11 := JTF_NUMBER_TABLE();
872 a12 := JTF_NUMBER_TABLE();
873 a13 := JTF_NUMBER_TABLE();
874 a14 := JTF_DATE_TABLE();
875 a15 := JTF_VARCHAR2_TABLE_100();
876 a16 := JTF_VARCHAR2_TABLE_500();
877 a17 := JTF_VARCHAR2_TABLE_500();
878 a18 := JTF_VARCHAR2_TABLE_500();
879 a19 := JTF_VARCHAR2_TABLE_500();
880 a20 := JTF_VARCHAR2_TABLE_500();
881 a21 := JTF_VARCHAR2_TABLE_500();
882 a22 := JTF_VARCHAR2_TABLE_500();
883 a23 := JTF_VARCHAR2_TABLE_500();
884 a24 := JTF_VARCHAR2_TABLE_500();
885 a25 := JTF_VARCHAR2_TABLE_500();
886 a26 := JTF_VARCHAR2_TABLE_500();
887 a27 := JTF_VARCHAR2_TABLE_500();
888 a28 := JTF_VARCHAR2_TABLE_500();
889 a29 := JTF_VARCHAR2_TABLE_500();
890 a30 := JTF_VARCHAR2_TABLE_500();
891 a31 := JTF_NUMBER_TABLE();
892 a32 := JTF_DATE_TABLE();
893 a33 := JTF_NUMBER_TABLE();
894 a34 := JTF_DATE_TABLE();
895 a35 := JTF_NUMBER_TABLE();
896 a36 := JTF_NUMBER_TABLE();
897 a37 := JTF_DATE_TABLE();
898 a38 := JTF_NUMBER_TABLE();
899 a39 := JTF_NUMBER_TABLE();
900 a40 := JTF_NUMBER_TABLE();
901 a41 := JTF_VARCHAR2_TABLE_100();
902 a42 := JTF_VARCHAR2_TABLE_100();
903 a43 := JTF_VARCHAR2_TABLE_100();
904 a44 := JTF_NUMBER_TABLE();
905 a45 := JTF_NUMBER_TABLE();
906 a46 := JTF_VARCHAR2_TABLE_100();
907 a47 := JTF_NUMBER_TABLE();
908 a48 := JTF_NUMBER_TABLE();
909 a49 := JTF_NUMBER_TABLE();
910 a50 := JTF_VARCHAR2_TABLE_100();
911 a51 := JTF_NUMBER_TABLE();
912 a52 := JTF_VARCHAR2_TABLE_100();
913 a53 := JTF_NUMBER_TABLE();
914 a54 := JTF_VARCHAR2_TABLE_100();
915 a55 := JTF_NUMBER_TABLE();
916 a56 := JTF_NUMBER_TABLE();
917 a57 := JTF_VARCHAR2_TABLE_200();
918 a58 := JTF_DATE_TABLE();
919 a59 := JTF_NUMBER_TABLE();
920 a60 := JTF_VARCHAR2_TABLE_100();
921 a61 := JTF_VARCHAR2_TABLE_100();
922 a62 := JTF_VARCHAR2_TABLE_100();
923 a63 := JTF_NUMBER_TABLE();
924 a64 := JTF_VARCHAR2_TABLE_100();
925 a65 := JTF_NUMBER_TABLE();
926 a66 := JTF_NUMBER_TABLE();
927 a67 := JTF_VARCHAR2_TABLE_100();
928 a68 := JTF_NUMBER_TABLE();
929 a69 := JTF_DATE_TABLE();
930 a70 := JTF_DATE_TABLE();
931 a71 := JTF_NUMBER_TABLE();
932 a72 := JTF_NUMBER_TABLE();
933 else
934 a0 := JTF_NUMBER_TABLE();
935 a1 := JTF_NUMBER_TABLE();
936 a2 := JTF_DATE_TABLE();
937 a3 := JTF_NUMBER_TABLE();
938 a4 := JTF_VARCHAR2_TABLE_200();
939 a5 := JTF_NUMBER_TABLE();
940 a6 := JTF_NUMBER_TABLE();
941 a7 := JTF_NUMBER_TABLE();
942 a8 := JTF_NUMBER_TABLE();
943 a9 := JTF_VARCHAR2_TABLE_100();
944 a10 := JTF_VARCHAR2_TABLE_100();
945 a11 := JTF_NUMBER_TABLE();
946 a12 := JTF_NUMBER_TABLE();
947 a13 := JTF_NUMBER_TABLE();
948 a14 := JTF_DATE_TABLE();
949 a15 := JTF_VARCHAR2_TABLE_100();
950 a16 := JTF_VARCHAR2_TABLE_500();
951 a17 := JTF_VARCHAR2_TABLE_500();
952 a18 := JTF_VARCHAR2_TABLE_500();
953 a19 := JTF_VARCHAR2_TABLE_500();
954 a20 := JTF_VARCHAR2_TABLE_500();
955 a21 := JTF_VARCHAR2_TABLE_500();
956 a22 := JTF_VARCHAR2_TABLE_500();
957 a23 := JTF_VARCHAR2_TABLE_500();
958 a24 := JTF_VARCHAR2_TABLE_500();
959 a25 := JTF_VARCHAR2_TABLE_500();
960 a26 := JTF_VARCHAR2_TABLE_500();
961 a27 := JTF_VARCHAR2_TABLE_500();
962 a28 := JTF_VARCHAR2_TABLE_500();
963 a29 := JTF_VARCHAR2_TABLE_500();
964 a30 := JTF_VARCHAR2_TABLE_500();
965 a31 := JTF_NUMBER_TABLE();
966 a32 := JTF_DATE_TABLE();
967 a33 := JTF_NUMBER_TABLE();
968 a34 := JTF_DATE_TABLE();
969 a35 := JTF_NUMBER_TABLE();
970 a36 := JTF_NUMBER_TABLE();
971 a37 := JTF_DATE_TABLE();
972 a38 := JTF_NUMBER_TABLE();
973 a39 := JTF_NUMBER_TABLE();
974 a40 := JTF_NUMBER_TABLE();
975 a41 := JTF_VARCHAR2_TABLE_100();
976 a42 := JTF_VARCHAR2_TABLE_100();
977 a43 := JTF_VARCHAR2_TABLE_100();
978 a44 := JTF_NUMBER_TABLE();
979 a45 := JTF_NUMBER_TABLE();
980 a46 := JTF_VARCHAR2_TABLE_100();
981 a47 := JTF_NUMBER_TABLE();
982 a48 := JTF_NUMBER_TABLE();
983 a49 := JTF_NUMBER_TABLE();
984 a50 := JTF_VARCHAR2_TABLE_100();
985 a51 := JTF_NUMBER_TABLE();
986 a52 := JTF_VARCHAR2_TABLE_100();
987 a53 := JTF_NUMBER_TABLE();
988 a54 := JTF_VARCHAR2_TABLE_100();
989 a55 := JTF_NUMBER_TABLE();
990 a56 := JTF_NUMBER_TABLE();
991 a57 := JTF_VARCHAR2_TABLE_200();
992 a58 := JTF_DATE_TABLE();
993 a59 := JTF_NUMBER_TABLE();
994 a60 := JTF_VARCHAR2_TABLE_100();
995 a61 := JTF_VARCHAR2_TABLE_100();
996 a62 := JTF_VARCHAR2_TABLE_100();
997 a63 := JTF_NUMBER_TABLE();
998 a64 := JTF_VARCHAR2_TABLE_100();
999 a65 := JTF_NUMBER_TABLE();
1000 a66 := JTF_NUMBER_TABLE();
1001 a67 := JTF_VARCHAR2_TABLE_100();
1002 a68 := JTF_NUMBER_TABLE();
1003 a69 := JTF_DATE_TABLE();
1004 a70 := JTF_DATE_TABLE();
1005 a71 := JTF_NUMBER_TABLE();
1006 a72 := JTF_NUMBER_TABLE();
1007 if t.count > 0 then
1008 a0.extend(t.count);
1009 a1.extend(t.count);
1010 a2.extend(t.count);
1011 a3.extend(t.count);
1012 a4.extend(t.count);
1013 a5.extend(t.count);
1014 a6.extend(t.count);
1015 a7.extend(t.count);
1016 a8.extend(t.count);
1017 a9.extend(t.count);
1018 a10.extend(t.count);
1019 a11.extend(t.count);
1020 a12.extend(t.count);
1021 a13.extend(t.count);
1022 a14.extend(t.count);
1023 a15.extend(t.count);
1024 a16.extend(t.count);
1025 a17.extend(t.count);
1026 a18.extend(t.count);
1027 a19.extend(t.count);
1028 a20.extend(t.count);
1029 a21.extend(t.count);
1030 a22.extend(t.count);
1031 a23.extend(t.count);
1032 a24.extend(t.count);
1033 a25.extend(t.count);
1034 a26.extend(t.count);
1035 a27.extend(t.count);
1036 a28.extend(t.count);
1037 a29.extend(t.count);
1038 a30.extend(t.count);
1039 a31.extend(t.count);
1040 a32.extend(t.count);
1041 a33.extend(t.count);
1042 a34.extend(t.count);
1043 a35.extend(t.count);
1044 a36.extend(t.count);
1045 a37.extend(t.count);
1046 a38.extend(t.count);
1047 a39.extend(t.count);
1048 a40.extend(t.count);
1049 a41.extend(t.count);
1050 a42.extend(t.count);
1051 a43.extend(t.count);
1052 a44.extend(t.count);
1053 a45.extend(t.count);
1054 a46.extend(t.count);
1055 a47.extend(t.count);
1056 a48.extend(t.count);
1057 a49.extend(t.count);
1058 a50.extend(t.count);
1059 a51.extend(t.count);
1060 a52.extend(t.count);
1061 a53.extend(t.count);
1062 a54.extend(t.count);
1063 a55.extend(t.count);
1064 a56.extend(t.count);
1065 a57.extend(t.count);
1066 a58.extend(t.count);
1067 a59.extend(t.count);
1068 a60.extend(t.count);
1069 a61.extend(t.count);
1070 a62.extend(t.count);
1071 a63.extend(t.count);
1072 a64.extend(t.count);
1073 a65.extend(t.count);
1074 a66.extend(t.count);
1075 a67.extend(t.count);
1076 a68.extend(t.count);
1077 a69.extend(t.count);
1078 a70.extend(t.count);
1079 a71.extend(t.count);
1080 a72.extend(t.count);
1081 ddindx := t.first;
1082 indx := 1;
1083 while true loop
1084 a0(indx) := t(ddindx).id;
1085 a1(indx) := t(ddindx).txs_id;
1086 a2(indx) := t(ddindx).tax_determine_date;
1087 a3(indx) := t(ddindx).tax_rate_id;
1088 a4(indx) := t(ddindx).tax_rate_code;
1089 a5(indx) := t(ddindx).taxable_amt;
1090 a6(indx) := t(ddindx).tax_exemption_id;
1091 a7(indx) := t(ddindx).tax_rate;
1092 a8(indx) := t(ddindx).tax_amt;
1093 a9(indx) := t(ddindx).billed_yn;
1094 a10(indx) := t(ddindx).tax_call_type_code;
1095 a11(indx) := t(ddindx).program_id;
1096 a12(indx) := t(ddindx).request_id;
1097 a13(indx) := t(ddindx).program_application_id;
1098 a14(indx) := t(ddindx).program_update_date;
1099 a15(indx) := t(ddindx).attribute_category;
1100 a16(indx) := t(ddindx).attribute1;
1101 a17(indx) := t(ddindx).attribute2;
1102 a18(indx) := t(ddindx).attribute3;
1103 a19(indx) := t(ddindx).attribute4;
1104 a20(indx) := t(ddindx).attribute5;
1105 a21(indx) := t(ddindx).attribute6;
1106 a22(indx) := t(ddindx).attribute7;
1107 a23(indx) := t(ddindx).attribute8;
1108 a24(indx) := t(ddindx).attribute9;
1109 a25(indx) := t(ddindx).attribute10;
1110 a26(indx) := t(ddindx).attribute11;
1111 a27(indx) := t(ddindx).attribute12;
1112 a28(indx) := t(ddindx).attribute13;
1113 a29(indx) := t(ddindx).attribute14;
1114 a30(indx) := t(ddindx).attribute15;
1115 a31(indx) := t(ddindx).created_by;
1116 a32(indx) := t(ddindx).creation_date;
1117 a33(indx) := t(ddindx).last_updated_by;
1118 a34(indx) := t(ddindx).last_update_date;
1119 a35(indx) := t(ddindx).last_update_login;
1120 a36(indx) := t(ddindx).object_version_number;
1121 a37(indx) := t(ddindx).tax_date;
1122 a38(indx) := t(ddindx).line_amt;
1123 a39(indx) := t(ddindx).internal_organization_id;
1124 a40(indx) := t(ddindx).application_id;
1125 a41(indx) := t(ddindx).entity_code;
1126 a42(indx) := t(ddindx).event_class_code;
1127 a43(indx) := t(ddindx).event_type_code;
1128 a44(indx) := t(ddindx).trx_id;
1129 a45(indx) := t(ddindx).trx_line_id;
1130 a46(indx) := t(ddindx).trx_level_type;
1131 a47(indx) := t(ddindx).trx_line_number;
1132 a48(indx) := t(ddindx).tax_line_number;
1133 a49(indx) := t(ddindx).tax_regime_id;
1134 a50(indx) := t(ddindx).tax_regime_code;
1135 a51(indx) := t(ddindx).tax_id;
1136 a52(indx) := t(ddindx).tax;
1137 a53(indx) := t(ddindx).tax_status_id;
1138 a54(indx) := t(ddindx).tax_status_code;
1139 a55(indx) := t(ddindx).tax_apportionment_line_number;
1140 a56(indx) := t(ddindx).legal_entity_id;
1141 a57(indx) := t(ddindx).trx_number;
1142 a58(indx) := t(ddindx).trx_date;
1143 a59(indx) := t(ddindx).tax_jurisdiction_id;
1144 a60(indx) := t(ddindx).tax_jurisdiction_code;
1145 a61(indx) := t(ddindx).tax_type_code;
1146 a62(indx) := t(ddindx).tax_currency_code;
1147 a63(indx) := t(ddindx).taxable_amt_tax_curr;
1148 a64(indx) := t(ddindx).trx_currency_code;
1149 a65(indx) := t(ddindx).minimum_accountable_unit;
1150 a66(indx) := t(ddindx).precision;
1151 a67(indx) := t(ddindx).currency_conversion_type;
1152 a68(indx) := t(ddindx).currency_conversion_rate;
1153 a69(indx) := t(ddindx).currency_conversion_date;
1154 a70(indx) := t(ddindx).tax_determination_date;
1155 a71(indx) := t(ddindx).taxable_amount;
1156 a72(indx) := t(ddindx).tax_amount;
1157 indx := indx+1;
1158 if t.last =ddindx
1159 then exit;
1160 end if;
1161 ddindx := t.next(ddindx);
1162 end loop;
1163 end if;
1164 end if;
1165 end rosetta_table_copy_out_p76;
1166
1167 procedure rosetta_table_copy_in_p80(t out nocopy okl_process_sales_tax_pvt.sty_id_tbl_type, a0 JTF_NUMBER_TABLE
1168 , a1 JTF_VARCHAR2_TABLE_200
1169 , a2 JTF_VARCHAR2_TABLE_100
1170 ) as
1171 ddindx binary_integer; indx binary_integer;
1172 begin
1173 if a0 is not null and a0.count > 0 then
1174 if a0.count > 0 then
1175 indx := a0.first;
1176 ddindx := 1;
1177 while true loop
1178 t(ddindx).sty_id := a0(indx);
1179 t(ddindx).sty_code := a1(indx);
1180 t(ddindx).sty_purpose := a2(indx);
1181 ddindx := ddindx+1;
1182 if a0.last =indx
1183 then exit;
1184 end if;
1185 indx := a0.next(indx);
1186 end loop;
1187 end if;
1188 end if;
1189 end rosetta_table_copy_in_p80;
1190 procedure rosetta_table_copy_out_p80(t okl_process_sales_tax_pvt.sty_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1191 , a1 out nocopy JTF_VARCHAR2_TABLE_200
1192 , a2 out nocopy JTF_VARCHAR2_TABLE_100
1193 ) as
1194 ddindx binary_integer; indx binary_integer;
1195 begin
1196 if t is null or t.count = 0 then
1197 a0 := JTF_NUMBER_TABLE();
1198 a1 := JTF_VARCHAR2_TABLE_200();
1199 a2 := JTF_VARCHAR2_TABLE_100();
1200 else
1201 a0 := JTF_NUMBER_TABLE();
1202 a1 := JTF_VARCHAR2_TABLE_200();
1203 a2 := JTF_VARCHAR2_TABLE_100();
1204 if t.count > 0 then
1205 a0.extend(t.count);
1206 a1.extend(t.count);
1207 a2.extend(t.count);
1208 ddindx := t.first;
1209 indx := 1;
1210 while true loop
1211 a0(indx) := t(ddindx).sty_id;
1212 a1(indx) := t(ddindx).sty_code;
1213 a2(indx) := t(ddindx).sty_purpose;
1214 indx := indx+1;
1215 if t.last =ddindx
1216 then exit;
1217 end if;
1218 ddindx := t.next(ddindx);
1219 end loop;
1220 end if;
1221 end if;
1222 end rosetta_table_copy_out_p80;
1223
1224 procedure rosetta_table_copy_in_p81(t out nocopy okl_process_sales_tax_pvt.prev_tx_src_tbl_type, a0 JTF_NUMBER_TABLE
1225 , a1 JTF_NUMBER_TABLE
1226 , a2 JTF_NUMBER_TABLE
1227 , a3 JTF_VARCHAR2_TABLE_100
1228 , a4 JTF_VARCHAR2_TABLE_100
1229 ) as
1230 ddindx binary_integer; indx binary_integer;
1231 begin
1232 if a0 is not null and a0.count > 0 then
1233 if a0.count > 0 then
1234 indx := a0.first;
1235 ddindx := 1;
1236 while true loop
1237 t(ddindx).id := a0(indx);
1238 t(ddindx).org_id := a1(indx);
1239 t(ddindx).application_id := a2(indx);
1240 t(ddindx).entity_code := a3(indx);
1241 t(ddindx).event_class_code := a4(indx);
1242 ddindx := ddindx+1;
1243 if a0.last =indx
1244 then exit;
1245 end if;
1246 indx := a0.next(indx);
1247 end loop;
1248 end if;
1249 end if;
1250 end rosetta_table_copy_in_p81;
1251 procedure rosetta_table_copy_out_p81(t okl_process_sales_tax_pvt.prev_tx_src_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1252 , a1 out nocopy JTF_NUMBER_TABLE
1253 , a2 out nocopy JTF_NUMBER_TABLE
1254 , a3 out nocopy JTF_VARCHAR2_TABLE_100
1255 , a4 out nocopy JTF_VARCHAR2_TABLE_100
1256 ) as
1257 ddindx binary_integer; indx binary_integer;
1258 begin
1259 if t is null or t.count = 0 then
1260 a0 := JTF_NUMBER_TABLE();
1261 a1 := JTF_NUMBER_TABLE();
1262 a2 := JTF_NUMBER_TABLE();
1263 a3 := JTF_VARCHAR2_TABLE_100();
1264 a4 := JTF_VARCHAR2_TABLE_100();
1265 else
1266 a0 := JTF_NUMBER_TABLE();
1267 a1 := JTF_NUMBER_TABLE();
1268 a2 := JTF_NUMBER_TABLE();
1269 a3 := JTF_VARCHAR2_TABLE_100();
1270 a4 := JTF_VARCHAR2_TABLE_100();
1271 if t.count > 0 then
1272 a0.extend(t.count);
1273 a1.extend(t.count);
1274 a2.extend(t.count);
1275 a3.extend(t.count);
1276 a4.extend(t.count);
1277 ddindx := t.first;
1278 indx := 1;
1279 while true loop
1280 a0(indx) := t(ddindx).id;
1281 a1(indx) := t(ddindx).org_id;
1282 a2(indx) := t(ddindx).application_id;
1283 a3(indx) := t(ddindx).entity_code;
1284 a4(indx) := t(ddindx).event_class_code;
1285 indx := indx+1;
1286 if t.last =ddindx
1287 then exit;
1288 end if;
1289 ddindx := t.next(ddindx);
1290 end loop;
1291 end if;
1292 end if;
1293 end rosetta_table_copy_out_p81;
1294
1295 procedure rosetta_table_copy_in_p83(t out nocopy okl_process_sales_tax_pvt.asset_level_det_tbl_type, a0 JTF_NUMBER_TABLE
1296 , a1 JTF_VARCHAR2_TABLE_200
1297 , a2 JTF_VARCHAR2_TABLE_100
1298 , a3 JTF_VARCHAR2_TABLE_100
1299 , a4 JTF_VARCHAR2_TABLE_100
1300 , a5 JTF_VARCHAR2_TABLE_100
1301 , a6 JTF_NUMBER_TABLE
1302 , a7 JTF_NUMBER_TABLE
1303 , a8 JTF_NUMBER_TABLE
1304 , a9 JTF_NUMBER_TABLE
1305 , a10 JTF_NUMBER_TABLE
1306 , a11 JTF_VARCHAR2_TABLE_100
1307 , a12 JTF_NUMBER_TABLE
1308 , a13 JTF_NUMBER_TABLE
1309 , a14 JTF_NUMBER_TABLE
1310 , a15 JTF_NUMBER_TABLE
1311 , a16 JTF_NUMBER_TABLE
1312 , a17 JTF_NUMBER_TABLE
1313 , a18 JTF_NUMBER_TABLE
1314 , a19 JTF_NUMBER_TABLE
1315 , a20 JTF_NUMBER_TABLE
1316 , a21 JTF_NUMBER_TABLE
1317 , a22 JTF_NUMBER_TABLE
1318 ) as
1319 ddindx binary_integer; indx binary_integer;
1320 begin
1321 if a0 is not null and a0.count > 0 then
1322 if a0.count > 0 then
1323 indx := a0.first;
1324 ddindx := 1;
1325 while true loop
1326 t(ddindx).fin_asset_id := a0(indx);
1327 t(ddindx).asset_number := a1(indx);
1328 t(ddindx).transfer_of_title := a2(indx);
1329 t(ddindx).sale_lease_back := a3(indx);
1330 t(ddindx).purchase_of_lease := a4(indx);
1331 t(ddindx).usage_of_equipment := a5(indx);
1332 t(ddindx).vendor_site_id := a6(indx);
1333 t(ddindx).age_of_equipment := a7(indx);
1334 t(ddindx).inv_item_id := a8(indx);
1335 t(ddindx).inv_org_id := a9(indx);
1336 t(ddindx).ship_to_site_use_id := a10(indx);
1337 t(ddindx).asset_pymnt_exist := a11(indx);
1338 t(ddindx).bill_to_party_site_id := a12(indx);
1339 t(ddindx).bill_to_location_id := a13(indx);
1340 t(ddindx).bill_to_party_id := a14(indx);
1341 t(ddindx).bill_to_site_use_id := a15(indx);
1342 t(ddindx).ship_to_party_site_id := a16(indx);
1343 t(ddindx).ship_to_location_id := a17(indx);
1344 t(ddindx).ship_to_party_id := a18(indx);
1345 t(ddindx).sty_id := a19(indx);
1346 t(ddindx).amount := a20(indx);
1347 t(ddindx).try_id := a21(indx);
1348 t(ddindx).trx_line_id := a22(indx);
1349 ddindx := ddindx+1;
1350 if a0.last =indx
1351 then exit;
1352 end if;
1353 indx := a0.next(indx);
1354 end loop;
1355 end if;
1356 end if;
1357 end rosetta_table_copy_in_p83;
1358 procedure rosetta_table_copy_out_p83(t okl_process_sales_tax_pvt.asset_level_det_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1359 , a1 out nocopy JTF_VARCHAR2_TABLE_200
1360 , a2 out nocopy JTF_VARCHAR2_TABLE_100
1361 , a3 out nocopy JTF_VARCHAR2_TABLE_100
1362 , a4 out nocopy JTF_VARCHAR2_TABLE_100
1363 , a5 out nocopy JTF_VARCHAR2_TABLE_100
1364 , a6 out nocopy JTF_NUMBER_TABLE
1365 , a7 out nocopy JTF_NUMBER_TABLE
1366 , a8 out nocopy JTF_NUMBER_TABLE
1367 , a9 out nocopy JTF_NUMBER_TABLE
1368 , a10 out nocopy JTF_NUMBER_TABLE
1369 , a11 out nocopy JTF_VARCHAR2_TABLE_100
1370 , a12 out nocopy JTF_NUMBER_TABLE
1371 , a13 out nocopy JTF_NUMBER_TABLE
1372 , a14 out nocopy JTF_NUMBER_TABLE
1373 , a15 out nocopy JTF_NUMBER_TABLE
1374 , a16 out nocopy JTF_NUMBER_TABLE
1375 , a17 out nocopy JTF_NUMBER_TABLE
1376 , a18 out nocopy JTF_NUMBER_TABLE
1377 , a19 out nocopy JTF_NUMBER_TABLE
1378 , a20 out nocopy JTF_NUMBER_TABLE
1379 , a21 out nocopy JTF_NUMBER_TABLE
1380 , a22 out nocopy JTF_NUMBER_TABLE
1381 ) as
1382 ddindx binary_integer; indx binary_integer;
1383 begin
1384 if t is null or t.count = 0 then
1385 a0 := JTF_NUMBER_TABLE();
1386 a1 := JTF_VARCHAR2_TABLE_200();
1387 a2 := JTF_VARCHAR2_TABLE_100();
1388 a3 := JTF_VARCHAR2_TABLE_100();
1389 a4 := JTF_VARCHAR2_TABLE_100();
1390 a5 := JTF_VARCHAR2_TABLE_100();
1391 a6 := JTF_NUMBER_TABLE();
1392 a7 := JTF_NUMBER_TABLE();
1393 a8 := JTF_NUMBER_TABLE();
1394 a9 := JTF_NUMBER_TABLE();
1395 a10 := JTF_NUMBER_TABLE();
1396 a11 := JTF_VARCHAR2_TABLE_100();
1397 a12 := JTF_NUMBER_TABLE();
1398 a13 := JTF_NUMBER_TABLE();
1399 a14 := JTF_NUMBER_TABLE();
1400 a15 := JTF_NUMBER_TABLE();
1401 a16 := JTF_NUMBER_TABLE();
1402 a17 := JTF_NUMBER_TABLE();
1403 a18 := JTF_NUMBER_TABLE();
1404 a19 := JTF_NUMBER_TABLE();
1405 a20 := JTF_NUMBER_TABLE();
1406 a21 := JTF_NUMBER_TABLE();
1407 a22 := JTF_NUMBER_TABLE();
1408 else
1409 a0 := JTF_NUMBER_TABLE();
1410 a1 := JTF_VARCHAR2_TABLE_200();
1411 a2 := JTF_VARCHAR2_TABLE_100();
1412 a3 := JTF_VARCHAR2_TABLE_100();
1413 a4 := JTF_VARCHAR2_TABLE_100();
1414 a5 := JTF_VARCHAR2_TABLE_100();
1415 a6 := JTF_NUMBER_TABLE();
1416 a7 := JTF_NUMBER_TABLE();
1417 a8 := JTF_NUMBER_TABLE();
1418 a9 := JTF_NUMBER_TABLE();
1419 a10 := JTF_NUMBER_TABLE();
1420 a11 := JTF_VARCHAR2_TABLE_100();
1421 a12 := JTF_NUMBER_TABLE();
1422 a13 := JTF_NUMBER_TABLE();
1423 a14 := JTF_NUMBER_TABLE();
1424 a15 := JTF_NUMBER_TABLE();
1425 a16 := JTF_NUMBER_TABLE();
1426 a17 := JTF_NUMBER_TABLE();
1427 a18 := JTF_NUMBER_TABLE();
1428 a19 := JTF_NUMBER_TABLE();
1429 a20 := JTF_NUMBER_TABLE();
1430 a21 := JTF_NUMBER_TABLE();
1431 a22 := JTF_NUMBER_TABLE();
1432 if t.count > 0 then
1433 a0.extend(t.count);
1434 a1.extend(t.count);
1435 a2.extend(t.count);
1436 a3.extend(t.count);
1437 a4.extend(t.count);
1438 a5.extend(t.count);
1439 a6.extend(t.count);
1440 a7.extend(t.count);
1441 a8.extend(t.count);
1442 a9.extend(t.count);
1443 a10.extend(t.count);
1444 a11.extend(t.count);
1445 a12.extend(t.count);
1446 a13.extend(t.count);
1447 a14.extend(t.count);
1448 a15.extend(t.count);
1449 a16.extend(t.count);
1450 a17.extend(t.count);
1451 a18.extend(t.count);
1452 a19.extend(t.count);
1453 a20.extend(t.count);
1454 a21.extend(t.count);
1455 a22.extend(t.count);
1456 ddindx := t.first;
1457 indx := 1;
1458 while true loop
1459 a0(indx) := t(ddindx).fin_asset_id;
1460 a1(indx) := t(ddindx).asset_number;
1461 a2(indx) := t(ddindx).transfer_of_title;
1462 a3(indx) := t(ddindx).sale_lease_back;
1463 a4(indx) := t(ddindx).purchase_of_lease;
1464 a5(indx) := t(ddindx).usage_of_equipment;
1465 a6(indx) := t(ddindx).vendor_site_id;
1466 a7(indx) := t(ddindx).age_of_equipment;
1467 a8(indx) := t(ddindx).inv_item_id;
1468 a9(indx) := t(ddindx).inv_org_id;
1469 a10(indx) := t(ddindx).ship_to_site_use_id;
1470 a11(indx) := t(ddindx).asset_pymnt_exist;
1471 a12(indx) := t(ddindx).bill_to_party_site_id;
1472 a13(indx) := t(ddindx).bill_to_location_id;
1473 a14(indx) := t(ddindx).bill_to_party_id;
1474 a15(indx) := t(ddindx).bill_to_site_use_id;
1475 a16(indx) := t(ddindx).ship_to_party_site_id;
1476 a17(indx) := t(ddindx).ship_to_location_id;
1477 a18(indx) := t(ddindx).ship_to_party_id;
1478 a19(indx) := t(ddindx).sty_id;
1479 a20(indx) := t(ddindx).amount;
1480 a21(indx) := t(ddindx).try_id;
1481 a22(indx) := t(ddindx).trx_line_id;
1482 indx := indx+1;
1483 if t.last =ddindx
1484 then exit;
1485 end if;
1486 ddindx := t.next(ddindx);
1487 end loop;
1488 end if;
1489 end if;
1490 end rosetta_table_copy_out_p83;
1491
1492 procedure get_billing_stream_types(p_api_version NUMBER
1493 , p_init_msg_list VARCHAR2
1494 , x_return_status out nocopy VARCHAR2
1495 , x_msg_count out nocopy NUMBER
1496 , x_msg_data out nocopy VARCHAR2
1497 , p_org_id NUMBER
1498 , p_sty_code VARCHAR2
1499 , p7_a0 out nocopy JTF_NUMBER_TABLE
1500 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_200
1501 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
1502 )
1503
1504 as
1505 ddx_sty_id_tbl okl_process_sales_tax_pvt.sty_id_tbl_type;
1506 ddindx binary_integer; indx binary_integer;
1507 begin
1508
1509 -- copy data to the local IN or IN-OUT args, if any
1510
1511
1512
1513
1514
1515
1516
1517
1518 -- here's the delegated call to the old PL/SQL routine
1519 okl_process_sales_tax_pvt.get_billing_stream_types(p_api_version,
1520 p_init_msg_list,
1521 x_return_status,
1522 x_msg_count,
1523 x_msg_data,
1524 p_org_id,
1525 p_sty_code,
1526 ddx_sty_id_tbl);
1527
1528 -- copy data back from the local variables to OUT or IN-OUT args, if any
1529
1530
1531
1532
1533
1534
1535
1536 okl_process_sales_tax_pvt_w.rosetta_table_copy_out_p80(ddx_sty_id_tbl, p7_a0
1537 , p7_a1
1538 , p7_a2
1539 );
1540 end;
1541
1542 procedure get_tax_determinants(p_api_version NUMBER
1543 , p_init_msg_list VARCHAR2
1544 , x_return_status out nocopy VARCHAR2
1545 , x_msg_count out nocopy NUMBER
1546 , x_msg_data out nocopy VARCHAR2
1547 , p_source_trx_id NUMBER
1548 , p_source_trx_name VARCHAR2
1549 , p_source_table VARCHAR2
1550 , p8_a0 out nocopy VARCHAR2
1551 , p8_a1 out nocopy VARCHAR2
1552 , p8_a2 out nocopy VARCHAR2
1553 , p8_a3 out nocopy VARCHAR2
1554 , p8_a4 out nocopy VARCHAR2
1555 , p8_a5 out nocopy VARCHAR2
1556 , p8_a6 out nocopy NUMBER
1557 , p8_a7 out nocopy VARCHAR2
1558 , p8_a8 out nocopy VARCHAR2
1559 )
1560
1561 as
1562 ddx_tax_det_rec okl_process_sales_tax_pvt.tax_det_rec_type;
1563 ddindx binary_integer; indx binary_integer;
1564 begin
1565
1566 -- copy data to the local IN or IN-OUT args, if any
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576 -- here's the delegated call to the old PL/SQL routine
1577 okl_process_sales_tax_pvt.get_tax_determinants(p_api_version,
1578 p_init_msg_list,
1579 x_return_status,
1580 x_msg_count,
1581 x_msg_data,
1582 p_source_trx_id,
1583 p_source_trx_name,
1584 p_source_table,
1585 ddx_tax_det_rec);
1586
1587 -- copy data back from the local variables to OUT or IN-OUT args, if any
1588
1589
1590
1591
1592
1593
1594
1595
1596 p8_a0 := ddx_tax_det_rec.x_tax_code;
1597 p8_a1 := ddx_tax_det_rec.x_trx_business_category;
1598 p8_a2 := ddx_tax_det_rec.x_product_category;
1599 p8_a3 := ddx_tax_det_rec.x_product_type;
1600 p8_a4 := ddx_tax_det_rec.x_line_intended_use;
1601 p8_a5 := ddx_tax_det_rec.x_user_defined_fisc_class;
1602 p8_a6 := ddx_tax_det_rec.x_assessable_value;
1603 p8_a7 := ddx_tax_det_rec.x_default_taxation_country;
1604 p8_a8 := ddx_tax_det_rec.x_upstream_trx_reported_flag;
1605 end;
1606
1607 end okl_process_sales_tax_pvt_w;