[Home] [Help]
PACKAGE BODY: APPS.OKL_AEL_PVT_W
Source
1 package body okl_ael_pvt_w as
2 /* $Header: OKLIAELB.pls 120.2 2005/12/02 12:58:22 dkagrawa noship $ */
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 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out nocopy okl_ael_pvt.ael_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_DATE_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_NUMBER_TABLE
39 , a17 JTF_VARCHAR2_TABLE_800
40 , a18 JTF_VARCHAR2_TABLE_800
41 , a19 JTF_VARCHAR2_TABLE_800
42 , a20 JTF_VARCHAR2_TABLE_800
43 , a21 JTF_VARCHAR2_TABLE_800
44 , a22 JTF_VARCHAR2_TABLE_800
45 , a23 JTF_VARCHAR2_TABLE_800
46 , a24 JTF_VARCHAR2_TABLE_800
47 , a25 JTF_VARCHAR2_TABLE_800
48 , a26 JTF_VARCHAR2_TABLE_800
49 , a27 JTF_VARCHAR2_TABLE_800
50 , a28 JTF_NUMBER_TABLE
51 , a29 JTF_NUMBER_TABLE
52 , a30 JTF_NUMBER_TABLE
53 , a31 JTF_VARCHAR2_TABLE_100
54 , a32 JTF_NUMBER_TABLE
55 , a33 JTF_VARCHAR2_TABLE_100
56 , a34 JTF_VARCHAR2_TABLE_100
57 , a35 JTF_NUMBER_TABLE
58 , a36 JTF_NUMBER_TABLE
59 , a37 JTF_NUMBER_TABLE
60 , a38 JTF_NUMBER_TABLE
61 , a39 JTF_NUMBER_TABLE
62 , a40 JTF_VARCHAR2_TABLE_100
63 , a41 JTF_NUMBER_TABLE
64 , a42 JTF_VARCHAR2_TABLE_100
65 , a43 JTF_NUMBER_TABLE
66 , a44 JTF_NUMBER_TABLE
67 , a45 JTF_NUMBER_TABLE
68 , a46 JTF_NUMBER_TABLE
69 , a47 JTF_DATE_TABLE
70 , a48 JTF_NUMBER_TABLE
71 , a49 JTF_NUMBER_TABLE
72 , a50 JTF_DATE_TABLE
73 , a51 JTF_NUMBER_TABLE
74 , a52 JTF_DATE_TABLE
75 , a53 JTF_NUMBER_TABLE
76 , a54 JTF_NUMBER_TABLE
77 , a55 JTF_NUMBER_TABLE
78 , a56 JTF_NUMBER_TABLE
79 ) as
80 ddindx binary_integer; indx binary_integer;
81 begin
82 if a0 is not null and a0.count > 0 then
83 if a0.count > 0 then
84 indx := a0.first;
85 ddindx := 1;
86 while true loop
87 t(ddindx).ae_line_id := rosetta_g_miss_num_map(a0(indx));
88 t(ddindx).code_combination_id := rosetta_g_miss_num_map(a1(indx));
89 t(ddindx).ae_header_id := rosetta_g_miss_num_map(a2(indx));
90 t(ddindx).currency_conversion_type := a3(indx);
91 t(ddindx).org_id := rosetta_g_miss_num_map(a4(indx));
92 t(ddindx).ae_line_number := rosetta_g_miss_num_map(a5(indx));
93 t(ddindx).ae_line_type_code := a6(indx);
94 t(ddindx).source_table := a7(indx);
95 t(ddindx).source_id := rosetta_g_miss_num_map(a8(indx));
96 t(ddindx).object_version_number := rosetta_g_miss_num_map(a9(indx));
97 t(ddindx).currency_code := a10(indx);
98 t(ddindx).currency_conversion_date := rosetta_g_miss_date_in_map(a11(indx));
99 t(ddindx).currency_conversion_rate := rosetta_g_miss_num_map(a12(indx));
100 t(ddindx).entered_dr := rosetta_g_miss_num_map(a13(indx));
101 t(ddindx).entered_cr := rosetta_g_miss_num_map(a14(indx));
102 t(ddindx).accounted_dr := rosetta_g_miss_num_map(a15(indx));
103 t(ddindx).accounted_cr := rosetta_g_miss_num_map(a16(indx));
104 t(ddindx).reference1 := a17(indx);
105 t(ddindx).reference2 := a18(indx);
106 t(ddindx).reference3 := a19(indx);
107 t(ddindx).reference4 := a20(indx);
108 t(ddindx).reference5 := a21(indx);
109 t(ddindx).reference6 := a22(indx);
110 t(ddindx).reference7 := a23(indx);
111 t(ddindx).reference8 := a24(indx);
112 t(ddindx).reference9 := a25(indx);
113 t(ddindx).reference10 := a26(indx);
114 t(ddindx).description := a27(indx);
115 t(ddindx).third_party_id := rosetta_g_miss_num_map(a28(indx));
116 t(ddindx).third_party_sub_id := rosetta_g_miss_num_map(a29(indx));
117 t(ddindx).stat_amount := rosetta_g_miss_num_map(a30(indx));
118 t(ddindx).ussgl_transaction_code := a31(indx);
119 t(ddindx).subledger_doc_sequence_id := rosetta_g_miss_num_map(a32(indx));
120 t(ddindx).accounting_error_code := a33(indx);
121 t(ddindx).gl_transfer_error_code := a34(indx);
122 t(ddindx).gl_sl_link_id := rosetta_g_miss_num_map(a35(indx));
123 t(ddindx).taxable_entered_dr := rosetta_g_miss_num_map(a36(indx));
124 t(ddindx).taxable_entered_cr := rosetta_g_miss_num_map(a37(indx));
125 t(ddindx).taxable_accounted_dr := rosetta_g_miss_num_map(a38(indx));
126 t(ddindx).taxable_accounted_cr := rosetta_g_miss_num_map(a39(indx));
127 t(ddindx).applied_from_trx_hdr_table := a40(indx);
128 t(ddindx).applied_from_trx_hdr_id := rosetta_g_miss_num_map(a41(indx));
129 t(ddindx).applied_to_trx_hdr_table := a42(indx);
130 t(ddindx).applied_to_trx_hdr_id := rosetta_g_miss_num_map(a43(indx));
131 t(ddindx).tax_link_id := rosetta_g_miss_num_map(a44(indx));
132 t(ddindx).program_id := rosetta_g_miss_num_map(a45(indx));
133 t(ddindx).program_application_id := rosetta_g_miss_num_map(a46(indx));
134 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a47(indx));
135 t(ddindx).request_id := rosetta_g_miss_num_map(a48(indx));
136 t(ddindx).created_by := rosetta_g_miss_num_map(a49(indx));
137 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a50(indx));
138 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a51(indx));
139 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a52(indx));
140 t(ddindx).last_update_login := rosetta_g_miss_num_map(a53(indx));
141 t(ddindx).account_overlay_source_id := rosetta_g_miss_num_map(a54(indx));
142 t(ddindx).subledger_doc_sequence_value := rosetta_g_miss_num_map(a55(indx));
143 t(ddindx).tax_code_id := rosetta_g_miss_num_map(a56(indx));
144 ddindx := ddindx+1;
145 if a0.last =indx
146 then exit;
147 end if;
148 indx := a0.next(indx);
149 end loop;
150 end if;
151 end if;
152 end rosetta_table_copy_in_p2;
153 procedure rosetta_table_copy_out_p2(t okl_ael_pvt.ael_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
154 , a1 out nocopy JTF_NUMBER_TABLE
155 , a2 out nocopy JTF_NUMBER_TABLE
156 , a3 out nocopy JTF_VARCHAR2_TABLE_100
157 , a4 out nocopy JTF_NUMBER_TABLE
158 , a5 out nocopy JTF_NUMBER_TABLE
159 , a6 out nocopy JTF_VARCHAR2_TABLE_100
160 , a7 out nocopy JTF_VARCHAR2_TABLE_100
161 , a8 out nocopy JTF_NUMBER_TABLE
162 , a9 out nocopy JTF_NUMBER_TABLE
163 , a10 out nocopy JTF_VARCHAR2_TABLE_100
164 , a11 out nocopy JTF_DATE_TABLE
165 , a12 out nocopy JTF_NUMBER_TABLE
166 , a13 out nocopy JTF_NUMBER_TABLE
167 , a14 out nocopy JTF_NUMBER_TABLE
168 , a15 out nocopy JTF_NUMBER_TABLE
169 , a16 out nocopy JTF_NUMBER_TABLE
170 , a17 out nocopy JTF_VARCHAR2_TABLE_800
171 , a18 out nocopy JTF_VARCHAR2_TABLE_800
172 , a19 out nocopy JTF_VARCHAR2_TABLE_800
173 , a20 out nocopy JTF_VARCHAR2_TABLE_800
174 , a21 out nocopy JTF_VARCHAR2_TABLE_800
175 , a22 out nocopy JTF_VARCHAR2_TABLE_800
176 , a23 out nocopy JTF_VARCHAR2_TABLE_800
177 , a24 out nocopy JTF_VARCHAR2_TABLE_800
178 , a25 out nocopy JTF_VARCHAR2_TABLE_800
179 , a26 out nocopy JTF_VARCHAR2_TABLE_800
180 , a27 out nocopy JTF_VARCHAR2_TABLE_800
181 , a28 out nocopy JTF_NUMBER_TABLE
182 , a29 out nocopy JTF_NUMBER_TABLE
183 , a30 out nocopy JTF_NUMBER_TABLE
184 , a31 out nocopy JTF_VARCHAR2_TABLE_100
185 , a32 out nocopy JTF_NUMBER_TABLE
186 , a33 out nocopy JTF_VARCHAR2_TABLE_100
187 , a34 out nocopy JTF_VARCHAR2_TABLE_100
188 , a35 out nocopy JTF_NUMBER_TABLE
189 , a36 out nocopy JTF_NUMBER_TABLE
190 , a37 out nocopy JTF_NUMBER_TABLE
191 , a38 out nocopy JTF_NUMBER_TABLE
192 , a39 out nocopy JTF_NUMBER_TABLE
193 , a40 out nocopy JTF_VARCHAR2_TABLE_100
194 , a41 out nocopy JTF_NUMBER_TABLE
195 , a42 out nocopy JTF_VARCHAR2_TABLE_100
196 , a43 out nocopy JTF_NUMBER_TABLE
197 , a44 out nocopy JTF_NUMBER_TABLE
198 , a45 out nocopy JTF_NUMBER_TABLE
199 , a46 out nocopy JTF_NUMBER_TABLE
200 , a47 out nocopy JTF_DATE_TABLE
201 , a48 out nocopy JTF_NUMBER_TABLE
202 , a49 out nocopy JTF_NUMBER_TABLE
203 , a50 out nocopy JTF_DATE_TABLE
204 , a51 out nocopy JTF_NUMBER_TABLE
205 , a52 out nocopy JTF_DATE_TABLE
206 , a53 out nocopy JTF_NUMBER_TABLE
207 , a54 out nocopy JTF_NUMBER_TABLE
208 , a55 out nocopy JTF_NUMBER_TABLE
209 , a56 out nocopy JTF_NUMBER_TABLE
210 ) as
211 ddindx binary_integer; indx binary_integer;
212 begin
213 if t is null or t.count = 0 then
214 a0 := JTF_NUMBER_TABLE();
215 a1 := JTF_NUMBER_TABLE();
216 a2 := JTF_NUMBER_TABLE();
217 a3 := JTF_VARCHAR2_TABLE_100();
218 a4 := JTF_NUMBER_TABLE();
219 a5 := JTF_NUMBER_TABLE();
220 a6 := JTF_VARCHAR2_TABLE_100();
221 a7 := JTF_VARCHAR2_TABLE_100();
222 a8 := JTF_NUMBER_TABLE();
223 a9 := JTF_NUMBER_TABLE();
224 a10 := JTF_VARCHAR2_TABLE_100();
225 a11 := JTF_DATE_TABLE();
226 a12 := JTF_NUMBER_TABLE();
227 a13 := JTF_NUMBER_TABLE();
228 a14 := JTF_NUMBER_TABLE();
229 a15 := JTF_NUMBER_TABLE();
230 a16 := JTF_NUMBER_TABLE();
231 a17 := JTF_VARCHAR2_TABLE_800();
232 a18 := JTF_VARCHAR2_TABLE_800();
233 a19 := JTF_VARCHAR2_TABLE_800();
234 a20 := JTF_VARCHAR2_TABLE_800();
235 a21 := JTF_VARCHAR2_TABLE_800();
236 a22 := JTF_VARCHAR2_TABLE_800();
237 a23 := JTF_VARCHAR2_TABLE_800();
238 a24 := JTF_VARCHAR2_TABLE_800();
239 a25 := JTF_VARCHAR2_TABLE_800();
240 a26 := JTF_VARCHAR2_TABLE_800();
241 a27 := JTF_VARCHAR2_TABLE_800();
242 a28 := JTF_NUMBER_TABLE();
243 a29 := JTF_NUMBER_TABLE();
244 a30 := JTF_NUMBER_TABLE();
245 a31 := JTF_VARCHAR2_TABLE_100();
246 a32 := JTF_NUMBER_TABLE();
247 a33 := JTF_VARCHAR2_TABLE_100();
248 a34 := JTF_VARCHAR2_TABLE_100();
249 a35 := JTF_NUMBER_TABLE();
250 a36 := JTF_NUMBER_TABLE();
251 a37 := JTF_NUMBER_TABLE();
252 a38 := JTF_NUMBER_TABLE();
253 a39 := JTF_NUMBER_TABLE();
254 a40 := JTF_VARCHAR2_TABLE_100();
255 a41 := JTF_NUMBER_TABLE();
256 a42 := JTF_VARCHAR2_TABLE_100();
257 a43 := JTF_NUMBER_TABLE();
258 a44 := JTF_NUMBER_TABLE();
259 a45 := JTF_NUMBER_TABLE();
260 a46 := JTF_NUMBER_TABLE();
261 a47 := JTF_DATE_TABLE();
262 a48 := JTF_NUMBER_TABLE();
263 a49 := JTF_NUMBER_TABLE();
264 a50 := JTF_DATE_TABLE();
265 a51 := JTF_NUMBER_TABLE();
266 a52 := JTF_DATE_TABLE();
267 a53 := JTF_NUMBER_TABLE();
268 a54 := JTF_NUMBER_TABLE();
269 a55 := JTF_NUMBER_TABLE();
270 a56 := JTF_NUMBER_TABLE();
271 else
272 a0 := JTF_NUMBER_TABLE();
273 a1 := JTF_NUMBER_TABLE();
274 a2 := JTF_NUMBER_TABLE();
275 a3 := JTF_VARCHAR2_TABLE_100();
276 a4 := JTF_NUMBER_TABLE();
277 a5 := JTF_NUMBER_TABLE();
278 a6 := JTF_VARCHAR2_TABLE_100();
279 a7 := JTF_VARCHAR2_TABLE_100();
280 a8 := JTF_NUMBER_TABLE();
281 a9 := JTF_NUMBER_TABLE();
282 a10 := JTF_VARCHAR2_TABLE_100();
283 a11 := JTF_DATE_TABLE();
284 a12 := JTF_NUMBER_TABLE();
285 a13 := JTF_NUMBER_TABLE();
286 a14 := JTF_NUMBER_TABLE();
287 a15 := JTF_NUMBER_TABLE();
288 a16 := JTF_NUMBER_TABLE();
289 a17 := JTF_VARCHAR2_TABLE_800();
290 a18 := JTF_VARCHAR2_TABLE_800();
291 a19 := JTF_VARCHAR2_TABLE_800();
292 a20 := JTF_VARCHAR2_TABLE_800();
293 a21 := JTF_VARCHAR2_TABLE_800();
294 a22 := JTF_VARCHAR2_TABLE_800();
295 a23 := JTF_VARCHAR2_TABLE_800();
296 a24 := JTF_VARCHAR2_TABLE_800();
297 a25 := JTF_VARCHAR2_TABLE_800();
298 a26 := JTF_VARCHAR2_TABLE_800();
299 a27 := JTF_VARCHAR2_TABLE_800();
300 a28 := JTF_NUMBER_TABLE();
301 a29 := JTF_NUMBER_TABLE();
302 a30 := JTF_NUMBER_TABLE();
303 a31 := JTF_VARCHAR2_TABLE_100();
304 a32 := JTF_NUMBER_TABLE();
305 a33 := JTF_VARCHAR2_TABLE_100();
306 a34 := JTF_VARCHAR2_TABLE_100();
307 a35 := JTF_NUMBER_TABLE();
308 a36 := JTF_NUMBER_TABLE();
309 a37 := JTF_NUMBER_TABLE();
310 a38 := JTF_NUMBER_TABLE();
311 a39 := JTF_NUMBER_TABLE();
312 a40 := JTF_VARCHAR2_TABLE_100();
313 a41 := JTF_NUMBER_TABLE();
314 a42 := JTF_VARCHAR2_TABLE_100();
315 a43 := JTF_NUMBER_TABLE();
316 a44 := JTF_NUMBER_TABLE();
317 a45 := JTF_NUMBER_TABLE();
318 a46 := JTF_NUMBER_TABLE();
319 a47 := JTF_DATE_TABLE();
320 a48 := JTF_NUMBER_TABLE();
321 a49 := JTF_NUMBER_TABLE();
322 a50 := JTF_DATE_TABLE();
323 a51 := JTF_NUMBER_TABLE();
324 a52 := JTF_DATE_TABLE();
325 a53 := JTF_NUMBER_TABLE();
326 a54 := JTF_NUMBER_TABLE();
327 a55 := JTF_NUMBER_TABLE();
328 a56 := JTF_NUMBER_TABLE();
329 if t.count > 0 then
330 a0.extend(t.count);
331 a1.extend(t.count);
332 a2.extend(t.count);
333 a3.extend(t.count);
334 a4.extend(t.count);
335 a5.extend(t.count);
336 a6.extend(t.count);
337 a7.extend(t.count);
338 a8.extend(t.count);
339 a9.extend(t.count);
340 a10.extend(t.count);
341 a11.extend(t.count);
342 a12.extend(t.count);
343 a13.extend(t.count);
344 a14.extend(t.count);
345 a15.extend(t.count);
346 a16.extend(t.count);
347 a17.extend(t.count);
348 a18.extend(t.count);
349 a19.extend(t.count);
350 a20.extend(t.count);
351 a21.extend(t.count);
352 a22.extend(t.count);
353 a23.extend(t.count);
354 a24.extend(t.count);
355 a25.extend(t.count);
356 a26.extend(t.count);
357 a27.extend(t.count);
358 a28.extend(t.count);
359 a29.extend(t.count);
360 a30.extend(t.count);
361 a31.extend(t.count);
362 a32.extend(t.count);
363 a33.extend(t.count);
364 a34.extend(t.count);
365 a35.extend(t.count);
366 a36.extend(t.count);
367 a37.extend(t.count);
368 a38.extend(t.count);
369 a39.extend(t.count);
370 a40.extend(t.count);
371 a41.extend(t.count);
372 a42.extend(t.count);
373 a43.extend(t.count);
374 a44.extend(t.count);
375 a45.extend(t.count);
376 a46.extend(t.count);
377 a47.extend(t.count);
378 a48.extend(t.count);
379 a49.extend(t.count);
380 a50.extend(t.count);
381 a51.extend(t.count);
382 a52.extend(t.count);
383 a53.extend(t.count);
384 a54.extend(t.count);
385 a55.extend(t.count);
386 a56.extend(t.count);
387 ddindx := t.first;
388 indx := 1;
389 while true loop
390 a0(indx) := rosetta_g_miss_num_map(t(ddindx).ae_line_id);
391 a1(indx) := rosetta_g_miss_num_map(t(ddindx).code_combination_id);
392 a2(indx) := rosetta_g_miss_num_map(t(ddindx).ae_header_id);
393 a3(indx) := t(ddindx).currency_conversion_type;
394 a4(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
395 a5(indx) := rosetta_g_miss_num_map(t(ddindx).ae_line_number);
396 a6(indx) := t(ddindx).ae_line_type_code;
397 a7(indx) := t(ddindx).source_table;
398 a8(indx) := rosetta_g_miss_num_map(t(ddindx).source_id);
399 a9(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
400 a10(indx) := t(ddindx).currency_code;
401 a11(indx) := t(ddindx).currency_conversion_date;
402 a12(indx) := rosetta_g_miss_num_map(t(ddindx).currency_conversion_rate);
403 a13(indx) := rosetta_g_miss_num_map(t(ddindx).entered_dr);
404 a14(indx) := rosetta_g_miss_num_map(t(ddindx).entered_cr);
405 a15(indx) := rosetta_g_miss_num_map(t(ddindx).accounted_dr);
406 a16(indx) := rosetta_g_miss_num_map(t(ddindx).accounted_cr);
407 a17(indx) := t(ddindx).reference1;
408 a18(indx) := t(ddindx).reference2;
409 a19(indx) := t(ddindx).reference3;
410 a20(indx) := t(ddindx).reference4;
411 a21(indx) := t(ddindx).reference5;
412 a22(indx) := t(ddindx).reference6;
413 a23(indx) := t(ddindx).reference7;
414 a24(indx) := t(ddindx).reference8;
415 a25(indx) := t(ddindx).reference9;
416 a26(indx) := t(ddindx).reference10;
417 a27(indx) := t(ddindx).description;
418 a28(indx) := rosetta_g_miss_num_map(t(ddindx).third_party_id);
419 a29(indx) := rosetta_g_miss_num_map(t(ddindx).third_party_sub_id);
420 a30(indx) := rosetta_g_miss_num_map(t(ddindx).stat_amount);
421 a31(indx) := t(ddindx).ussgl_transaction_code;
422 a32(indx) := rosetta_g_miss_num_map(t(ddindx).subledger_doc_sequence_id);
423 a33(indx) := t(ddindx).accounting_error_code;
424 a34(indx) := t(ddindx).gl_transfer_error_code;
425 a35(indx) := rosetta_g_miss_num_map(t(ddindx).gl_sl_link_id);
426 a36(indx) := rosetta_g_miss_num_map(t(ddindx).taxable_entered_dr);
427 a37(indx) := rosetta_g_miss_num_map(t(ddindx).taxable_entered_cr);
428 a38(indx) := rosetta_g_miss_num_map(t(ddindx).taxable_accounted_dr);
429 a39(indx) := rosetta_g_miss_num_map(t(ddindx).taxable_accounted_cr);
430 a40(indx) := t(ddindx).applied_from_trx_hdr_table;
431 a41(indx) := rosetta_g_miss_num_map(t(ddindx).applied_from_trx_hdr_id);
432 a42(indx) := t(ddindx).applied_to_trx_hdr_table;
433 a43(indx) := rosetta_g_miss_num_map(t(ddindx).applied_to_trx_hdr_id);
434 a44(indx) := rosetta_g_miss_num_map(t(ddindx).tax_link_id);
435 a45(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
436 a46(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
437 a47(indx) := t(ddindx).program_update_date;
438 a48(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
439 a49(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
440 a50(indx) := t(ddindx).creation_date;
441 a51(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
442 a52(indx) := t(ddindx).last_update_date;
443 a53(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
444 a54(indx) := rosetta_g_miss_num_map(t(ddindx).account_overlay_source_id);
445 a55(indx) := rosetta_g_miss_num_map(t(ddindx).subledger_doc_sequence_value);
446 a56(indx) := rosetta_g_miss_num_map(t(ddindx).tax_code_id);
447 indx := indx+1;
448 if t.last =ddindx
449 then exit;
450 end if;
451 ddindx := t.next(ddindx);
452 end loop;
453 end if;
454 end if;
455 end rosetta_table_copy_out_p2;
456
457 procedure rosetta_table_copy_in_p5(t out nocopy okl_ael_pvt.aelv_tbl_type, a0 JTF_NUMBER_TABLE
458 , a1 JTF_NUMBER_TABLE
459 , a2 JTF_NUMBER_TABLE
460 , a3 JTF_VARCHAR2_TABLE_100
461 , a4 JTF_NUMBER_TABLE
462 , a5 JTF_NUMBER_TABLE
463 , a6 JTF_NUMBER_TABLE
464 , a7 JTF_VARCHAR2_TABLE_100
465 , a8 JTF_DATE_TABLE
466 , a9 JTF_NUMBER_TABLE
467 , a10 JTF_NUMBER_TABLE
468 , a11 JTF_NUMBER_TABLE
469 , a12 JTF_NUMBER_TABLE
470 , a13 JTF_NUMBER_TABLE
471 , a14 JTF_VARCHAR2_TABLE_100
472 , a15 JTF_NUMBER_TABLE
473 , a16 JTF_VARCHAR2_TABLE_800
474 , a17 JTF_VARCHAR2_TABLE_800
475 , a18 JTF_VARCHAR2_TABLE_800
476 , a19 JTF_VARCHAR2_TABLE_800
477 , a20 JTF_VARCHAR2_TABLE_800
478 , a21 JTF_VARCHAR2_TABLE_800
479 , a22 JTF_VARCHAR2_TABLE_800
480 , a23 JTF_VARCHAR2_TABLE_800
481 , a24 JTF_VARCHAR2_TABLE_800
482 , a25 JTF_VARCHAR2_TABLE_800
483 , a26 JTF_VARCHAR2_TABLE_800
484 , a27 JTF_NUMBER_TABLE
485 , a28 JTF_NUMBER_TABLE
486 , a29 JTF_NUMBER_TABLE
487 , a30 JTF_VARCHAR2_TABLE_100
488 , a31 JTF_NUMBER_TABLE
489 , a32 JTF_VARCHAR2_TABLE_100
490 , a33 JTF_VARCHAR2_TABLE_100
491 , a34 JTF_NUMBER_TABLE
492 , a35 JTF_NUMBER_TABLE
493 , a36 JTF_NUMBER_TABLE
494 , a37 JTF_NUMBER_TABLE
495 , a38 JTF_NUMBER_TABLE
496 , a39 JTF_VARCHAR2_TABLE_100
497 , a40 JTF_NUMBER_TABLE
498 , a41 JTF_VARCHAR2_TABLE_100
499 , a42 JTF_NUMBER_TABLE
500 , a43 JTF_NUMBER_TABLE
501 , a44 JTF_VARCHAR2_TABLE_100
502 , a45 JTF_NUMBER_TABLE
503 , a46 JTF_NUMBER_TABLE
504 , a47 JTF_DATE_TABLE
505 , a48 JTF_NUMBER_TABLE
506 , a49 JTF_NUMBER_TABLE
507 , a50 JTF_NUMBER_TABLE
508 , a51 JTF_DATE_TABLE
509 , a52 JTF_NUMBER_TABLE
510 , a53 JTF_DATE_TABLE
511 , a54 JTF_NUMBER_TABLE
512 , a55 JTF_NUMBER_TABLE
513 , a56 JTF_NUMBER_TABLE
514 , a57 JTF_NUMBER_TABLE
515 ) as
516 ddindx binary_integer; indx binary_integer;
517 begin
518 if a0 is not null and a0.count > 0 then
519 if a0.count > 0 then
520 indx := a0.first;
521 ddindx := 1;
522 while true loop
523 t(ddindx).ae_line_id := rosetta_g_miss_num_map(a0(indx));
524 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
525 t(ddindx).ae_header_id := rosetta_g_miss_num_map(a2(indx));
526 t(ddindx).currency_conversion_type := a3(indx);
527 t(ddindx).code_combination_id := rosetta_g_miss_num_map(a4(indx));
528 t(ddindx).org_id := rosetta_g_miss_num_map(a5(indx));
529 t(ddindx).ae_line_number := rosetta_g_miss_num_map(a6(indx));
530 t(ddindx).ae_line_type_code := a7(indx);
531 t(ddindx).currency_conversion_date := rosetta_g_miss_date_in_map(a8(indx));
532 t(ddindx).currency_conversion_rate := rosetta_g_miss_num_map(a9(indx));
533 t(ddindx).entered_dr := rosetta_g_miss_num_map(a10(indx));
534 t(ddindx).entered_cr := rosetta_g_miss_num_map(a11(indx));
535 t(ddindx).accounted_dr := rosetta_g_miss_num_map(a12(indx));
536 t(ddindx).accounted_cr := rosetta_g_miss_num_map(a13(indx));
537 t(ddindx).source_table := a14(indx);
538 t(ddindx).source_id := rosetta_g_miss_num_map(a15(indx));
539 t(ddindx).reference1 := a16(indx);
540 t(ddindx).reference2 := a17(indx);
541 t(ddindx).reference3 := a18(indx);
542 t(ddindx).reference4 := a19(indx);
543 t(ddindx).reference5 := a20(indx);
544 t(ddindx).reference6 := a21(indx);
545 t(ddindx).reference7 := a22(indx);
546 t(ddindx).reference8 := a23(indx);
547 t(ddindx).reference9 := a24(indx);
548 t(ddindx).reference10 := a25(indx);
549 t(ddindx).description := a26(indx);
550 t(ddindx).third_party_id := rosetta_g_miss_num_map(a27(indx));
551 t(ddindx).third_party_sub_id := rosetta_g_miss_num_map(a28(indx));
552 t(ddindx).stat_amount := rosetta_g_miss_num_map(a29(indx));
553 t(ddindx).ussgl_transaction_code := a30(indx);
554 t(ddindx).subledger_doc_sequence_id := rosetta_g_miss_num_map(a31(indx));
555 t(ddindx).accounting_error_code := a32(indx);
556 t(ddindx).gl_transfer_error_code := a33(indx);
557 t(ddindx).gl_sl_link_id := rosetta_g_miss_num_map(a34(indx));
558 t(ddindx).taxable_entered_dr := rosetta_g_miss_num_map(a35(indx));
559 t(ddindx).taxable_entered_cr := rosetta_g_miss_num_map(a36(indx));
560 t(ddindx).taxable_accounted_dr := rosetta_g_miss_num_map(a37(indx));
561 t(ddindx).taxable_accounted_cr := rosetta_g_miss_num_map(a38(indx));
562 t(ddindx).applied_from_trx_hdr_table := a39(indx);
563 t(ddindx).applied_from_trx_hdr_id := rosetta_g_miss_num_map(a40(indx));
564 t(ddindx).applied_to_trx_hdr_table := a41(indx);
565 t(ddindx).applied_to_trx_hdr_id := rosetta_g_miss_num_map(a42(indx));
566 t(ddindx).tax_link_id := rosetta_g_miss_num_map(a43(indx));
567 t(ddindx).currency_code := a44(indx);
568 t(ddindx).program_id := rosetta_g_miss_num_map(a45(indx));
569 t(ddindx).program_application_id := rosetta_g_miss_num_map(a46(indx));
570 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a47(indx));
571 t(ddindx).request_id := rosetta_g_miss_num_map(a48(indx));
572 t(ddindx).aeh_tbl_index := rosetta_g_miss_num_map(a49(indx));
573 t(ddindx).created_by := rosetta_g_miss_num_map(a50(indx));
574 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a51(indx));
575 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a52(indx));
576 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a53(indx));
577 t(ddindx).last_update_login := rosetta_g_miss_num_map(a54(indx));
578 t(ddindx).account_overlay_source_id := rosetta_g_miss_num_map(a55(indx));
579 t(ddindx).subledger_doc_sequence_value := rosetta_g_miss_num_map(a56(indx));
580 t(ddindx).tax_code_id := rosetta_g_miss_num_map(a57(indx));
581 ddindx := ddindx+1;
582 if a0.last =indx
583 then exit;
584 end if;
585 indx := a0.next(indx);
586 end loop;
587 end if;
588 end if;
589 end rosetta_table_copy_in_p5;
590 procedure rosetta_table_copy_out_p5(t okl_ael_pvt.aelv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
591 , a1 out nocopy JTF_NUMBER_TABLE
592 , a2 out nocopy JTF_NUMBER_TABLE
593 , a3 out nocopy JTF_VARCHAR2_TABLE_100
594 , a4 out nocopy JTF_NUMBER_TABLE
595 , a5 out nocopy JTF_NUMBER_TABLE
596 , a6 out nocopy JTF_NUMBER_TABLE
597 , a7 out nocopy JTF_VARCHAR2_TABLE_100
598 , a8 out nocopy JTF_DATE_TABLE
599 , a9 out nocopy JTF_NUMBER_TABLE
600 , a10 out nocopy JTF_NUMBER_TABLE
601 , a11 out nocopy JTF_NUMBER_TABLE
602 , a12 out nocopy JTF_NUMBER_TABLE
603 , a13 out nocopy JTF_NUMBER_TABLE
604 , a14 out nocopy JTF_VARCHAR2_TABLE_100
605 , a15 out nocopy JTF_NUMBER_TABLE
606 , a16 out nocopy JTF_VARCHAR2_TABLE_800
607 , a17 out nocopy JTF_VARCHAR2_TABLE_800
608 , a18 out nocopy JTF_VARCHAR2_TABLE_800
609 , a19 out nocopy JTF_VARCHAR2_TABLE_800
610 , a20 out nocopy JTF_VARCHAR2_TABLE_800
611 , a21 out nocopy JTF_VARCHAR2_TABLE_800
612 , a22 out nocopy JTF_VARCHAR2_TABLE_800
613 , a23 out nocopy JTF_VARCHAR2_TABLE_800
614 , a24 out nocopy JTF_VARCHAR2_TABLE_800
615 , a25 out nocopy JTF_VARCHAR2_TABLE_800
616 , a26 out nocopy JTF_VARCHAR2_TABLE_800
617 , a27 out nocopy JTF_NUMBER_TABLE
618 , a28 out nocopy JTF_NUMBER_TABLE
619 , a29 out nocopy JTF_NUMBER_TABLE
620 , a30 out nocopy JTF_VARCHAR2_TABLE_100
621 , a31 out nocopy JTF_NUMBER_TABLE
622 , a32 out nocopy JTF_VARCHAR2_TABLE_100
623 , a33 out nocopy JTF_VARCHAR2_TABLE_100
624 , a34 out nocopy JTF_NUMBER_TABLE
625 , a35 out nocopy JTF_NUMBER_TABLE
626 , a36 out nocopy JTF_NUMBER_TABLE
627 , a37 out nocopy JTF_NUMBER_TABLE
628 , a38 out nocopy JTF_NUMBER_TABLE
629 , a39 out nocopy JTF_VARCHAR2_TABLE_100
630 , a40 out nocopy JTF_NUMBER_TABLE
631 , a41 out nocopy JTF_VARCHAR2_TABLE_100
632 , a42 out nocopy JTF_NUMBER_TABLE
633 , a43 out nocopy JTF_NUMBER_TABLE
634 , a44 out nocopy JTF_VARCHAR2_TABLE_100
635 , a45 out nocopy JTF_NUMBER_TABLE
636 , a46 out nocopy JTF_NUMBER_TABLE
637 , a47 out nocopy JTF_DATE_TABLE
638 , a48 out nocopy JTF_NUMBER_TABLE
639 , a49 out nocopy JTF_NUMBER_TABLE
640 , a50 out nocopy JTF_NUMBER_TABLE
641 , a51 out nocopy JTF_DATE_TABLE
642 , a52 out nocopy JTF_NUMBER_TABLE
643 , a53 out nocopy JTF_DATE_TABLE
644 , a54 out nocopy JTF_NUMBER_TABLE
645 , a55 out nocopy JTF_NUMBER_TABLE
646 , a56 out nocopy JTF_NUMBER_TABLE
647 , a57 out nocopy JTF_NUMBER_TABLE
648 ) as
649 ddindx binary_integer; indx binary_integer;
650 begin
651 if t is null or t.count = 0 then
652 a0 := JTF_NUMBER_TABLE();
653 a1 := JTF_NUMBER_TABLE();
654 a2 := JTF_NUMBER_TABLE();
655 a3 := JTF_VARCHAR2_TABLE_100();
656 a4 := JTF_NUMBER_TABLE();
657 a5 := JTF_NUMBER_TABLE();
658 a6 := JTF_NUMBER_TABLE();
659 a7 := JTF_VARCHAR2_TABLE_100();
660 a8 := JTF_DATE_TABLE();
661 a9 := JTF_NUMBER_TABLE();
662 a10 := JTF_NUMBER_TABLE();
663 a11 := JTF_NUMBER_TABLE();
664 a12 := JTF_NUMBER_TABLE();
665 a13 := JTF_NUMBER_TABLE();
666 a14 := JTF_VARCHAR2_TABLE_100();
667 a15 := JTF_NUMBER_TABLE();
668 a16 := JTF_VARCHAR2_TABLE_800();
669 a17 := JTF_VARCHAR2_TABLE_800();
670 a18 := JTF_VARCHAR2_TABLE_800();
671 a19 := JTF_VARCHAR2_TABLE_800();
672 a20 := JTF_VARCHAR2_TABLE_800();
673 a21 := JTF_VARCHAR2_TABLE_800();
674 a22 := JTF_VARCHAR2_TABLE_800();
675 a23 := JTF_VARCHAR2_TABLE_800();
676 a24 := JTF_VARCHAR2_TABLE_800();
677 a25 := JTF_VARCHAR2_TABLE_800();
678 a26 := JTF_VARCHAR2_TABLE_800();
679 a27 := JTF_NUMBER_TABLE();
680 a28 := JTF_NUMBER_TABLE();
681 a29 := JTF_NUMBER_TABLE();
682 a30 := JTF_VARCHAR2_TABLE_100();
683 a31 := JTF_NUMBER_TABLE();
684 a32 := JTF_VARCHAR2_TABLE_100();
685 a33 := JTF_VARCHAR2_TABLE_100();
686 a34 := JTF_NUMBER_TABLE();
687 a35 := JTF_NUMBER_TABLE();
688 a36 := JTF_NUMBER_TABLE();
689 a37 := JTF_NUMBER_TABLE();
690 a38 := JTF_NUMBER_TABLE();
691 a39 := JTF_VARCHAR2_TABLE_100();
692 a40 := JTF_NUMBER_TABLE();
693 a41 := JTF_VARCHAR2_TABLE_100();
694 a42 := JTF_NUMBER_TABLE();
695 a43 := JTF_NUMBER_TABLE();
696 a44 := JTF_VARCHAR2_TABLE_100();
697 a45 := JTF_NUMBER_TABLE();
698 a46 := JTF_NUMBER_TABLE();
699 a47 := JTF_DATE_TABLE();
700 a48 := JTF_NUMBER_TABLE();
701 a49 := JTF_NUMBER_TABLE();
702 a50 := JTF_NUMBER_TABLE();
703 a51 := JTF_DATE_TABLE();
704 a52 := JTF_NUMBER_TABLE();
705 a53 := JTF_DATE_TABLE();
706 a54 := JTF_NUMBER_TABLE();
707 a55 := JTF_NUMBER_TABLE();
708 a56 := JTF_NUMBER_TABLE();
709 a57 := JTF_NUMBER_TABLE();
710 else
711 a0 := JTF_NUMBER_TABLE();
712 a1 := JTF_NUMBER_TABLE();
713 a2 := JTF_NUMBER_TABLE();
714 a3 := JTF_VARCHAR2_TABLE_100();
715 a4 := JTF_NUMBER_TABLE();
716 a5 := JTF_NUMBER_TABLE();
717 a6 := JTF_NUMBER_TABLE();
718 a7 := JTF_VARCHAR2_TABLE_100();
719 a8 := JTF_DATE_TABLE();
720 a9 := JTF_NUMBER_TABLE();
721 a10 := JTF_NUMBER_TABLE();
722 a11 := JTF_NUMBER_TABLE();
723 a12 := JTF_NUMBER_TABLE();
724 a13 := JTF_NUMBER_TABLE();
725 a14 := JTF_VARCHAR2_TABLE_100();
726 a15 := JTF_NUMBER_TABLE();
727 a16 := JTF_VARCHAR2_TABLE_800();
728 a17 := JTF_VARCHAR2_TABLE_800();
729 a18 := JTF_VARCHAR2_TABLE_800();
730 a19 := JTF_VARCHAR2_TABLE_800();
731 a20 := JTF_VARCHAR2_TABLE_800();
732 a21 := JTF_VARCHAR2_TABLE_800();
733 a22 := JTF_VARCHAR2_TABLE_800();
734 a23 := JTF_VARCHAR2_TABLE_800();
735 a24 := JTF_VARCHAR2_TABLE_800();
736 a25 := JTF_VARCHAR2_TABLE_800();
737 a26 := JTF_VARCHAR2_TABLE_800();
738 a27 := JTF_NUMBER_TABLE();
739 a28 := JTF_NUMBER_TABLE();
740 a29 := JTF_NUMBER_TABLE();
741 a30 := JTF_VARCHAR2_TABLE_100();
742 a31 := JTF_NUMBER_TABLE();
743 a32 := JTF_VARCHAR2_TABLE_100();
744 a33 := JTF_VARCHAR2_TABLE_100();
745 a34 := JTF_NUMBER_TABLE();
746 a35 := JTF_NUMBER_TABLE();
747 a36 := JTF_NUMBER_TABLE();
748 a37 := JTF_NUMBER_TABLE();
749 a38 := JTF_NUMBER_TABLE();
750 a39 := JTF_VARCHAR2_TABLE_100();
751 a40 := JTF_NUMBER_TABLE();
752 a41 := JTF_VARCHAR2_TABLE_100();
753 a42 := JTF_NUMBER_TABLE();
754 a43 := JTF_NUMBER_TABLE();
755 a44 := JTF_VARCHAR2_TABLE_100();
756 a45 := JTF_NUMBER_TABLE();
757 a46 := JTF_NUMBER_TABLE();
758 a47 := JTF_DATE_TABLE();
759 a48 := JTF_NUMBER_TABLE();
760 a49 := JTF_NUMBER_TABLE();
761 a50 := JTF_NUMBER_TABLE();
762 a51 := JTF_DATE_TABLE();
763 a52 := JTF_NUMBER_TABLE();
764 a53 := JTF_DATE_TABLE();
765 a54 := JTF_NUMBER_TABLE();
766 a55 := JTF_NUMBER_TABLE();
767 a56 := JTF_NUMBER_TABLE();
768 a57 := JTF_NUMBER_TABLE();
769 if t.count > 0 then
770 a0.extend(t.count);
771 a1.extend(t.count);
772 a2.extend(t.count);
773 a3.extend(t.count);
774 a4.extend(t.count);
775 a5.extend(t.count);
776 a6.extend(t.count);
777 a7.extend(t.count);
778 a8.extend(t.count);
779 a9.extend(t.count);
780 a10.extend(t.count);
781 a11.extend(t.count);
782 a12.extend(t.count);
783 a13.extend(t.count);
784 a14.extend(t.count);
785 a15.extend(t.count);
786 a16.extend(t.count);
787 a17.extend(t.count);
788 a18.extend(t.count);
789 a19.extend(t.count);
790 a20.extend(t.count);
791 a21.extend(t.count);
792 a22.extend(t.count);
793 a23.extend(t.count);
794 a24.extend(t.count);
795 a25.extend(t.count);
796 a26.extend(t.count);
797 a27.extend(t.count);
798 a28.extend(t.count);
799 a29.extend(t.count);
800 a30.extend(t.count);
801 a31.extend(t.count);
802 a32.extend(t.count);
803 a33.extend(t.count);
804 a34.extend(t.count);
805 a35.extend(t.count);
806 a36.extend(t.count);
807 a37.extend(t.count);
808 a38.extend(t.count);
809 a39.extend(t.count);
810 a40.extend(t.count);
811 a41.extend(t.count);
812 a42.extend(t.count);
813 a43.extend(t.count);
814 a44.extend(t.count);
815 a45.extend(t.count);
816 a46.extend(t.count);
817 a47.extend(t.count);
818 a48.extend(t.count);
819 a49.extend(t.count);
820 a50.extend(t.count);
821 a51.extend(t.count);
822 a52.extend(t.count);
823 a53.extend(t.count);
824 a54.extend(t.count);
825 a55.extend(t.count);
826 a56.extend(t.count);
827 a57.extend(t.count);
828 ddindx := t.first;
829 indx := 1;
830 while true loop
831 a0(indx) := rosetta_g_miss_num_map(t(ddindx).ae_line_id);
832 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
833 a2(indx) := rosetta_g_miss_num_map(t(ddindx).ae_header_id);
834 a3(indx) := t(ddindx).currency_conversion_type;
835 a4(indx) := rosetta_g_miss_num_map(t(ddindx).code_combination_id);
836 a5(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
837 a6(indx) := rosetta_g_miss_num_map(t(ddindx).ae_line_number);
838 a7(indx) := t(ddindx).ae_line_type_code;
839 a8(indx) := t(ddindx).currency_conversion_date;
840 a9(indx) := rosetta_g_miss_num_map(t(ddindx).currency_conversion_rate);
841 a10(indx) := rosetta_g_miss_num_map(t(ddindx).entered_dr);
842 a11(indx) := rosetta_g_miss_num_map(t(ddindx).entered_cr);
843 a12(indx) := rosetta_g_miss_num_map(t(ddindx).accounted_dr);
844 a13(indx) := rosetta_g_miss_num_map(t(ddindx).accounted_cr);
845 a14(indx) := t(ddindx).source_table;
846 a15(indx) := rosetta_g_miss_num_map(t(ddindx).source_id);
847 a16(indx) := t(ddindx).reference1;
848 a17(indx) := t(ddindx).reference2;
849 a18(indx) := t(ddindx).reference3;
850 a19(indx) := t(ddindx).reference4;
851 a20(indx) := t(ddindx).reference5;
852 a21(indx) := t(ddindx).reference6;
853 a22(indx) := t(ddindx).reference7;
854 a23(indx) := t(ddindx).reference8;
855 a24(indx) := t(ddindx).reference9;
856 a25(indx) := t(ddindx).reference10;
857 a26(indx) := t(ddindx).description;
858 a27(indx) := rosetta_g_miss_num_map(t(ddindx).third_party_id);
859 a28(indx) := rosetta_g_miss_num_map(t(ddindx).third_party_sub_id);
860 a29(indx) := rosetta_g_miss_num_map(t(ddindx).stat_amount);
861 a30(indx) := t(ddindx).ussgl_transaction_code;
862 a31(indx) := rosetta_g_miss_num_map(t(ddindx).subledger_doc_sequence_id);
863 a32(indx) := t(ddindx).accounting_error_code;
864 a33(indx) := t(ddindx).gl_transfer_error_code;
865 a34(indx) := rosetta_g_miss_num_map(t(ddindx).gl_sl_link_id);
866 a35(indx) := rosetta_g_miss_num_map(t(ddindx).taxable_entered_dr);
867 a36(indx) := rosetta_g_miss_num_map(t(ddindx).taxable_entered_cr);
868 a37(indx) := rosetta_g_miss_num_map(t(ddindx).taxable_accounted_dr);
869 a38(indx) := rosetta_g_miss_num_map(t(ddindx).taxable_accounted_cr);
870 a39(indx) := t(ddindx).applied_from_trx_hdr_table;
871 a40(indx) := rosetta_g_miss_num_map(t(ddindx).applied_from_trx_hdr_id);
872 a41(indx) := t(ddindx).applied_to_trx_hdr_table;
873 a42(indx) := rosetta_g_miss_num_map(t(ddindx).applied_to_trx_hdr_id);
874 a43(indx) := rosetta_g_miss_num_map(t(ddindx).tax_link_id);
875 a44(indx) := t(ddindx).currency_code;
876 a45(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
877 a46(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
878 a47(indx) := t(ddindx).program_update_date;
879 a48(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
880 a49(indx) := rosetta_g_miss_num_map(t(ddindx).aeh_tbl_index);
881 a50(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
882 a51(indx) := t(ddindx).creation_date;
883 a52(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
884 a53(indx) := t(ddindx).last_update_date;
885 a54(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
886 a55(indx) := rosetta_g_miss_num_map(t(ddindx).account_overlay_source_id);
887 a56(indx) := rosetta_g_miss_num_map(t(ddindx).subledger_doc_sequence_value);
888 a57(indx) := rosetta_g_miss_num_map(t(ddindx).tax_code_id);
889 indx := indx+1;
890 if t.last =ddindx
891 then exit;
892 end if;
893 ddindx := t.next(ddindx);
894 end loop;
895 end if;
896 end if;
897 end rosetta_table_copy_out_p5;
898
899 procedure rosetta_table_copy_in_p6(t out nocopy okl_ael_pvt.ae_line_id_typ, a0 JTF_NUMBER_TABLE) as
900 ddindx binary_integer; indx binary_integer;
901 begin
902 if a0 is not null and a0.count > 0 then
903 if a0.count > 0 then
904 indx := a0.first;
905 ddindx := 1;
906 while true loop
907 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
908 ddindx := ddindx+1;
909 if a0.last =indx
910 then exit;
911 end if;
912 indx := a0.next(indx);
913 end loop;
914 end if;
915 end if;
916 end rosetta_table_copy_in_p6;
917 procedure rosetta_table_copy_out_p6(t okl_ael_pvt.ae_line_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
918 ddindx binary_integer; indx binary_integer;
919 begin
920 if t is null or t.count = 0 then
921 a0 := JTF_NUMBER_TABLE();
922 else
923 a0 := JTF_NUMBER_TABLE();
924 if t.count > 0 then
925 a0.extend(t.count);
926 ddindx := t.first;
927 indx := 1;
928 while true loop
929 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
930 indx := indx+1;
931 if t.last =ddindx
932 then exit;
933 end if;
934 ddindx := t.next(ddindx);
935 end loop;
936 end if;
937 end if;
938 end rosetta_table_copy_out_p6;
939
940 procedure rosetta_table_copy_in_p7(t out nocopy okl_ael_pvt.account_overlay_source_id_typ, a0 JTF_NUMBER_TABLE) as
941 ddindx binary_integer; indx binary_integer;
942 begin
943 if a0 is not null and a0.count > 0 then
944 if a0.count > 0 then
945 indx := a0.first;
946 ddindx := 1;
947 while true loop
948 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
949 ddindx := ddindx+1;
950 if a0.last =indx
951 then exit;
952 end if;
953 indx := a0.next(indx);
954 end loop;
955 end if;
956 end if;
957 end rosetta_table_copy_in_p7;
958 procedure rosetta_table_copy_out_p7(t okl_ael_pvt.account_overlay_source_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
959 ddindx binary_integer; indx binary_integer;
960 begin
961 if t is null or t.count = 0 then
962 a0 := JTF_NUMBER_TABLE();
963 else
964 a0 := JTF_NUMBER_TABLE();
965 if t.count > 0 then
966 a0.extend(t.count);
967 ddindx := t.first;
968 indx := 1;
969 while true loop
970 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
971 indx := indx+1;
972 if t.last =ddindx
973 then exit;
974 end if;
975 ddindx := t.next(ddindx);
976 end loop;
977 end if;
978 end if;
979 end rosetta_table_copy_out_p7;
980
981 procedure rosetta_table_copy_in_p8(t out nocopy okl_ael_pvt.subledger_doc_seq_value_typ, a0 JTF_NUMBER_TABLE) as
982 ddindx binary_integer; indx binary_integer;
983 begin
984 if a0 is not null and a0.count > 0 then
985 if a0.count > 0 then
986 indx := a0.first;
987 ddindx := 1;
988 while true loop
989 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
990 ddindx := ddindx+1;
991 if a0.last =indx
992 then exit;
993 end if;
994 indx := a0.next(indx);
995 end loop;
996 end if;
997 end if;
998 end rosetta_table_copy_in_p8;
999 procedure rosetta_table_copy_out_p8(t okl_ael_pvt.subledger_doc_seq_value_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1000 ddindx binary_integer; indx binary_integer;
1001 begin
1002 if t is null or t.count = 0 then
1003 a0 := JTF_NUMBER_TABLE();
1004 else
1005 a0 := JTF_NUMBER_TABLE();
1006 if t.count > 0 then
1007 a0.extend(t.count);
1008 ddindx := t.first;
1009 indx := 1;
1010 while true loop
1011 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1012 indx := indx+1;
1013 if t.last =ddindx
1014 then exit;
1015 end if;
1016 ddindx := t.next(ddindx);
1017 end loop;
1018 end if;
1019 end if;
1020 end rosetta_table_copy_out_p8;
1021
1022 procedure rosetta_table_copy_in_p9(t out nocopy okl_ael_pvt.tax_code_id_typ, a0 JTF_NUMBER_TABLE) as
1023 ddindx binary_integer; indx binary_integer;
1024 begin
1025 if a0 is not null and a0.count > 0 then
1026 if a0.count > 0 then
1027 indx := a0.first;
1028 ddindx := 1;
1029 while true loop
1030 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1031 ddindx := ddindx+1;
1032 if a0.last =indx
1033 then exit;
1034 end if;
1035 indx := a0.next(indx);
1036 end loop;
1037 end if;
1038 end if;
1039 end rosetta_table_copy_in_p9;
1040 procedure rosetta_table_copy_out_p9(t okl_ael_pvt.tax_code_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1041 ddindx binary_integer; indx binary_integer;
1042 begin
1043 if t is null or t.count = 0 then
1044 a0 := JTF_NUMBER_TABLE();
1045 else
1046 a0 := JTF_NUMBER_TABLE();
1047 if t.count > 0 then
1048 a0.extend(t.count);
1049 ddindx := t.first;
1050 indx := 1;
1051 while true loop
1052 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1053 indx := indx+1;
1054 if t.last =ddindx
1055 then exit;
1056 end if;
1057 ddindx := t.next(ddindx);
1058 end loop;
1059 end if;
1060 end if;
1061 end rosetta_table_copy_out_p9;
1062
1063 procedure rosetta_table_copy_in_p10(t out nocopy okl_ael_pvt.ae_line_number_typ, a0 JTF_NUMBER_TABLE) as
1064 ddindx binary_integer; indx binary_integer;
1065 begin
1066 if a0 is not null and a0.count > 0 then
1067 if a0.count > 0 then
1068 indx := a0.first;
1069 ddindx := 1;
1070 while true loop
1071 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1072 ddindx := ddindx+1;
1073 if a0.last =indx
1074 then exit;
1075 end if;
1076 indx := a0.next(indx);
1077 end loop;
1078 end if;
1079 end if;
1080 end rosetta_table_copy_in_p10;
1081 procedure rosetta_table_copy_out_p10(t okl_ael_pvt.ae_line_number_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1082 ddindx binary_integer; indx binary_integer;
1083 begin
1084 if t is null or t.count = 0 then
1085 a0 := JTF_NUMBER_TABLE();
1086 else
1087 a0 := JTF_NUMBER_TABLE();
1088 if t.count > 0 then
1089 a0.extend(t.count);
1090 ddindx := t.first;
1091 indx := 1;
1092 while true loop
1093 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1094 indx := indx+1;
1095 if t.last =ddindx
1096 then exit;
1097 end if;
1098 ddindx := t.next(ddindx);
1099 end loop;
1100 end if;
1101 end if;
1102 end rosetta_table_copy_out_p10;
1103
1104 procedure rosetta_table_copy_in_p11(t out nocopy okl_ael_pvt.code_combination_id_typ, a0 JTF_NUMBER_TABLE) as
1105 ddindx binary_integer; indx binary_integer;
1106 begin
1107 if a0 is not null and a0.count > 0 then
1108 if a0.count > 0 then
1109 indx := a0.first;
1110 ddindx := 1;
1111 while true loop
1112 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1113 ddindx := ddindx+1;
1114 if a0.last =indx
1115 then exit;
1116 end if;
1117 indx := a0.next(indx);
1118 end loop;
1119 end if;
1120 end if;
1121 end rosetta_table_copy_in_p11;
1122 procedure rosetta_table_copy_out_p11(t okl_ael_pvt.code_combination_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1123 ddindx binary_integer; indx binary_integer;
1124 begin
1125 if t is null or t.count = 0 then
1126 a0 := JTF_NUMBER_TABLE();
1127 else
1128 a0 := JTF_NUMBER_TABLE();
1129 if t.count > 0 then
1130 a0.extend(t.count);
1131 ddindx := t.first;
1132 indx := 1;
1133 while true loop
1134 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1135 indx := indx+1;
1136 if t.last =ddindx
1137 then exit;
1138 end if;
1139 ddindx := t.next(ddindx);
1140 end loop;
1141 end if;
1142 end if;
1143 end rosetta_table_copy_out_p11;
1144
1145 procedure rosetta_table_copy_in_p12(t out nocopy okl_ael_pvt.ae_header_id_typ, a0 JTF_NUMBER_TABLE) as
1146 ddindx binary_integer; indx binary_integer;
1147 begin
1148 if a0 is not null and a0.count > 0 then
1149 if a0.count > 0 then
1150 indx := a0.first;
1151 ddindx := 1;
1152 while true loop
1153 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1154 ddindx := ddindx+1;
1155 if a0.last =indx
1156 then exit;
1157 end if;
1158 indx := a0.next(indx);
1159 end loop;
1160 end if;
1161 end if;
1162 end rosetta_table_copy_in_p12;
1163 procedure rosetta_table_copy_out_p12(t okl_ael_pvt.ae_header_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1164 ddindx binary_integer; indx binary_integer;
1165 begin
1166 if t is null or t.count = 0 then
1167 a0 := JTF_NUMBER_TABLE();
1168 else
1169 a0 := JTF_NUMBER_TABLE();
1170 if t.count > 0 then
1171 a0.extend(t.count);
1172 ddindx := t.first;
1173 indx := 1;
1174 while true loop
1175 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1176 indx := indx+1;
1177 if t.last =ddindx
1178 then exit;
1179 end if;
1180 ddindx := t.next(ddindx);
1181 end loop;
1182 end if;
1183 end if;
1184 end rosetta_table_copy_out_p12;
1185
1186 procedure rosetta_table_copy_in_p13(t out nocopy okl_ael_pvt.currency_conversion_type_typ, a0 JTF_VARCHAR2_TABLE_100) as
1187 ddindx binary_integer; indx binary_integer;
1188 begin
1189 if a0 is not null and a0.count > 0 then
1190 if a0.count > 0 then
1191 indx := a0.first;
1192 ddindx := 1;
1193 while true loop
1194 t(ddindx) := a0(indx);
1195 ddindx := ddindx+1;
1196 if a0.last =indx
1197 then exit;
1198 end if;
1199 indx := a0.next(indx);
1200 end loop;
1201 end if;
1202 end if;
1203 end rosetta_table_copy_in_p13;
1204 procedure rosetta_table_copy_out_p13(t okl_ael_pvt.currency_conversion_type_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1205 ddindx binary_integer; indx binary_integer;
1206 begin
1207 if t is null or t.count = 0 then
1208 a0 := JTF_VARCHAR2_TABLE_100();
1209 else
1210 a0 := JTF_VARCHAR2_TABLE_100();
1211 if t.count > 0 then
1212 a0.extend(t.count);
1213 ddindx := t.first;
1214 indx := 1;
1215 while true loop
1216 a0(indx) := t(ddindx);
1217 indx := indx+1;
1218 if t.last =ddindx
1219 then exit;
1220 end if;
1221 ddindx := t.next(ddindx);
1222 end loop;
1223 end if;
1224 end if;
1225 end rosetta_table_copy_out_p13;
1226
1227 procedure rosetta_table_copy_in_p14(t out nocopy okl_ael_pvt.ae_line_type_code_typ, a0 JTF_VARCHAR2_TABLE_100) as
1228 ddindx binary_integer; indx binary_integer;
1229 begin
1230 if a0 is not null and a0.count > 0 then
1231 if a0.count > 0 then
1232 indx := a0.first;
1233 ddindx := 1;
1234 while true loop
1235 t(ddindx) := a0(indx);
1236 ddindx := ddindx+1;
1237 if a0.last =indx
1238 then exit;
1239 end if;
1240 indx := a0.next(indx);
1241 end loop;
1242 end if;
1243 end if;
1244 end rosetta_table_copy_in_p14;
1245 procedure rosetta_table_copy_out_p14(t okl_ael_pvt.ae_line_type_code_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1246 ddindx binary_integer; indx binary_integer;
1247 begin
1248 if t is null or t.count = 0 then
1249 a0 := JTF_VARCHAR2_TABLE_100();
1250 else
1251 a0 := JTF_VARCHAR2_TABLE_100();
1252 if t.count > 0 then
1253 a0.extend(t.count);
1254 ddindx := t.first;
1255 indx := 1;
1256 while true loop
1257 a0(indx) := t(ddindx);
1258 indx := indx+1;
1259 if t.last =ddindx
1260 then exit;
1261 end if;
1262 ddindx := t.next(ddindx);
1263 end loop;
1264 end if;
1265 end if;
1266 end rosetta_table_copy_out_p14;
1267
1268 procedure rosetta_table_copy_in_p15(t out nocopy okl_ael_pvt.source_table_typ, a0 JTF_VARCHAR2_TABLE_100) as
1269 ddindx binary_integer; indx binary_integer;
1270 begin
1271 if a0 is not null and a0.count > 0 then
1272 if a0.count > 0 then
1273 indx := a0.first;
1274 ddindx := 1;
1275 while true loop
1276 t(ddindx) := a0(indx);
1277 ddindx := ddindx+1;
1278 if a0.last =indx
1279 then exit;
1280 end if;
1281 indx := a0.next(indx);
1282 end loop;
1283 end if;
1284 end if;
1285 end rosetta_table_copy_in_p15;
1286 procedure rosetta_table_copy_out_p15(t okl_ael_pvt.source_table_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1287 ddindx binary_integer; indx binary_integer;
1288 begin
1289 if t is null or t.count = 0 then
1290 a0 := JTF_VARCHAR2_TABLE_100();
1291 else
1292 a0 := JTF_VARCHAR2_TABLE_100();
1293 if t.count > 0 then
1294 a0.extend(t.count);
1295 ddindx := t.first;
1296 indx := 1;
1297 while true loop
1298 a0(indx) := t(ddindx);
1299 indx := indx+1;
1300 if t.last =ddindx
1301 then exit;
1302 end if;
1303 ddindx := t.next(ddindx);
1304 end loop;
1305 end if;
1306 end if;
1307 end rosetta_table_copy_out_p15;
1308
1309 procedure rosetta_table_copy_in_p16(t out nocopy okl_ael_pvt.source_id_typ, a0 JTF_NUMBER_TABLE) as
1310 ddindx binary_integer; indx binary_integer;
1311 begin
1312 if a0 is not null and a0.count > 0 then
1313 if a0.count > 0 then
1314 indx := a0.first;
1315 ddindx := 1;
1316 while true loop
1317 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1318 ddindx := ddindx+1;
1319 if a0.last =indx
1320 then exit;
1321 end if;
1322 indx := a0.next(indx);
1323 end loop;
1324 end if;
1325 end if;
1326 end rosetta_table_copy_in_p16;
1327 procedure rosetta_table_copy_out_p16(t okl_ael_pvt.source_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1328 ddindx binary_integer; indx binary_integer;
1329 begin
1330 if t is null or t.count = 0 then
1331 a0 := JTF_NUMBER_TABLE();
1332 else
1333 a0 := JTF_NUMBER_TABLE();
1334 if t.count > 0 then
1335 a0.extend(t.count);
1336 ddindx := t.first;
1337 indx := 1;
1338 while true loop
1339 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1340 indx := indx+1;
1341 if t.last =ddindx
1342 then exit;
1343 end if;
1344 ddindx := t.next(ddindx);
1345 end loop;
1346 end if;
1347 end if;
1348 end rosetta_table_copy_out_p16;
1349
1350 procedure rosetta_table_copy_in_p17(t out nocopy okl_ael_pvt.object_version_number_typ, a0 JTF_NUMBER_TABLE) as
1351 ddindx binary_integer; indx binary_integer;
1352 begin
1353 if a0 is not null and a0.count > 0 then
1354 if a0.count > 0 then
1355 indx := a0.first;
1356 ddindx := 1;
1357 while true loop
1358 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1359 ddindx := ddindx+1;
1360 if a0.last =indx
1361 then exit;
1362 end if;
1363 indx := a0.next(indx);
1364 end loop;
1365 end if;
1366 end if;
1367 end rosetta_table_copy_in_p17;
1368 procedure rosetta_table_copy_out_p17(t okl_ael_pvt.object_version_number_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1369 ddindx binary_integer; indx binary_integer;
1370 begin
1371 if t is null or t.count = 0 then
1372 a0 := JTF_NUMBER_TABLE();
1373 else
1374 a0 := JTF_NUMBER_TABLE();
1375 if t.count > 0 then
1376 a0.extend(t.count);
1377 ddindx := t.first;
1378 indx := 1;
1379 while true loop
1380 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1381 indx := indx+1;
1382 if t.last =ddindx
1383 then exit;
1384 end if;
1385 ddindx := t.next(ddindx);
1386 end loop;
1387 end if;
1388 end if;
1389 end rosetta_table_copy_out_p17;
1390
1391 procedure rosetta_table_copy_in_p18(t out nocopy okl_ael_pvt.currency_code_typ, a0 JTF_VARCHAR2_TABLE_100) as
1392 ddindx binary_integer; indx binary_integer;
1393 begin
1394 if a0 is not null and a0.count > 0 then
1395 if a0.count > 0 then
1396 indx := a0.first;
1397 ddindx := 1;
1398 while true loop
1399 t(ddindx) := a0(indx);
1400 ddindx := ddindx+1;
1401 if a0.last =indx
1402 then exit;
1403 end if;
1404 indx := a0.next(indx);
1405 end loop;
1406 end if;
1407 end if;
1408 end rosetta_table_copy_in_p18;
1409 procedure rosetta_table_copy_out_p18(t okl_ael_pvt.currency_code_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1410 ddindx binary_integer; indx binary_integer;
1411 begin
1412 if t is null or t.count = 0 then
1413 a0 := JTF_VARCHAR2_TABLE_100();
1414 else
1415 a0 := JTF_VARCHAR2_TABLE_100();
1416 if t.count > 0 then
1417 a0.extend(t.count);
1418 ddindx := t.first;
1419 indx := 1;
1420 while true loop
1421 a0(indx) := t(ddindx);
1422 indx := indx+1;
1423 if t.last =ddindx
1424 then exit;
1425 end if;
1426 ddindx := t.next(ddindx);
1427 end loop;
1428 end if;
1429 end if;
1430 end rosetta_table_copy_out_p18;
1431
1432 procedure rosetta_table_copy_in_p19(t out nocopy okl_ael_pvt.currency_conversion_date_typ, a0 JTF_DATE_TABLE) as
1433 ddindx binary_integer; indx binary_integer;
1434 begin
1435 if a0 is not null and a0.count > 0 then
1436 if a0.count > 0 then
1437 indx := a0.first;
1438 ddindx := 1;
1439 while true loop
1440 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
1441 ddindx := ddindx+1;
1442 if a0.last =indx
1443 then exit;
1444 end if;
1445 indx := a0.next(indx);
1446 end loop;
1447 end if;
1448 end if;
1449 end rosetta_table_copy_in_p19;
1450 procedure rosetta_table_copy_out_p19(t okl_ael_pvt.currency_conversion_date_typ, a0 out nocopy JTF_DATE_TABLE) as
1451 ddindx binary_integer; indx binary_integer;
1452 begin
1453 if t is null or t.count = 0 then
1454 a0 := JTF_DATE_TABLE();
1455 else
1456 a0 := JTF_DATE_TABLE();
1457 if t.count > 0 then
1458 a0.extend(t.count);
1459 ddindx := t.first;
1460 indx := 1;
1461 while true loop
1462 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
1463 indx := indx+1;
1464 if t.last =ddindx
1465 then exit;
1466 end if;
1467 ddindx := t.next(ddindx);
1468 end loop;
1469 end if;
1470 end if;
1471 end rosetta_table_copy_out_p19;
1472
1473 procedure rosetta_table_copy_in_p20(t out nocopy okl_ael_pvt.currency_conversion_rate_typ, a0 JTF_NUMBER_TABLE) as
1474 ddindx binary_integer; indx binary_integer;
1475 begin
1476 if a0 is not null and a0.count > 0 then
1477 if a0.count > 0 then
1478 indx := a0.first;
1479 ddindx := 1;
1480 while true loop
1481 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1482 ddindx := ddindx+1;
1483 if a0.last =indx
1484 then exit;
1485 end if;
1486 indx := a0.next(indx);
1487 end loop;
1488 end if;
1489 end if;
1490 end rosetta_table_copy_in_p20;
1491 procedure rosetta_table_copy_out_p20(t okl_ael_pvt.currency_conversion_rate_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1492 ddindx binary_integer; indx binary_integer;
1493 begin
1494 if t is null or t.count = 0 then
1495 a0 := JTF_NUMBER_TABLE();
1496 else
1497 a0 := JTF_NUMBER_TABLE();
1498 if t.count > 0 then
1499 a0.extend(t.count);
1500 ddindx := t.first;
1501 indx := 1;
1502 while true loop
1503 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1504 indx := indx+1;
1505 if t.last =ddindx
1506 then exit;
1507 end if;
1508 ddindx := t.next(ddindx);
1509 end loop;
1510 end if;
1511 end if;
1512 end rosetta_table_copy_out_p20;
1513
1514 procedure rosetta_table_copy_in_p21(t out nocopy okl_ael_pvt.entered_dr_typ, a0 JTF_NUMBER_TABLE) as
1515 ddindx binary_integer; indx binary_integer;
1516 begin
1517 if a0 is not null and a0.count > 0 then
1518 if a0.count > 0 then
1519 indx := a0.first;
1520 ddindx := 1;
1521 while true loop
1522 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1523 ddindx := ddindx+1;
1524 if a0.last =indx
1525 then exit;
1526 end if;
1527 indx := a0.next(indx);
1528 end loop;
1529 end if;
1530 end if;
1531 end rosetta_table_copy_in_p21;
1532 procedure rosetta_table_copy_out_p21(t okl_ael_pvt.entered_dr_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1533 ddindx binary_integer; indx binary_integer;
1534 begin
1535 if t is null or t.count = 0 then
1536 a0 := JTF_NUMBER_TABLE();
1537 else
1538 a0 := JTF_NUMBER_TABLE();
1539 if t.count > 0 then
1540 a0.extend(t.count);
1541 ddindx := t.first;
1542 indx := 1;
1543 while true loop
1544 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1545 indx := indx+1;
1546 if t.last =ddindx
1547 then exit;
1548 end if;
1549 ddindx := t.next(ddindx);
1550 end loop;
1551 end if;
1552 end if;
1553 end rosetta_table_copy_out_p21;
1554
1555 procedure rosetta_table_copy_in_p22(t out nocopy okl_ael_pvt.entered_cr_typ, a0 JTF_NUMBER_TABLE) as
1556 ddindx binary_integer; indx binary_integer;
1557 begin
1558 if a0 is not null and a0.count > 0 then
1559 if a0.count > 0 then
1560 indx := a0.first;
1561 ddindx := 1;
1562 while true loop
1563 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1564 ddindx := ddindx+1;
1565 if a0.last =indx
1566 then exit;
1567 end if;
1568 indx := a0.next(indx);
1569 end loop;
1570 end if;
1571 end if;
1572 end rosetta_table_copy_in_p22;
1573 procedure rosetta_table_copy_out_p22(t okl_ael_pvt.entered_cr_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1574 ddindx binary_integer; indx binary_integer;
1575 begin
1576 if t is null or t.count = 0 then
1577 a0 := JTF_NUMBER_TABLE();
1578 else
1579 a0 := JTF_NUMBER_TABLE();
1580 if t.count > 0 then
1581 a0.extend(t.count);
1582 ddindx := t.first;
1583 indx := 1;
1584 while true loop
1585 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1586 indx := indx+1;
1587 if t.last =ddindx
1588 then exit;
1589 end if;
1590 ddindx := t.next(ddindx);
1591 end loop;
1592 end if;
1593 end if;
1594 end rosetta_table_copy_out_p22;
1595
1596 procedure rosetta_table_copy_in_p23(t out nocopy okl_ael_pvt.accounted_dr_typ, a0 JTF_NUMBER_TABLE) as
1597 ddindx binary_integer; indx binary_integer;
1598 begin
1599 if a0 is not null and a0.count > 0 then
1600 if a0.count > 0 then
1601 indx := a0.first;
1602 ddindx := 1;
1603 while true loop
1604 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1605 ddindx := ddindx+1;
1606 if a0.last =indx
1607 then exit;
1608 end if;
1609 indx := a0.next(indx);
1610 end loop;
1611 end if;
1612 end if;
1613 end rosetta_table_copy_in_p23;
1614 procedure rosetta_table_copy_out_p23(t okl_ael_pvt.accounted_dr_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1615 ddindx binary_integer; indx binary_integer;
1616 begin
1617 if t is null or t.count = 0 then
1618 a0 := JTF_NUMBER_TABLE();
1619 else
1620 a0 := JTF_NUMBER_TABLE();
1621 if t.count > 0 then
1622 a0.extend(t.count);
1623 ddindx := t.first;
1624 indx := 1;
1625 while true loop
1626 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1627 indx := indx+1;
1628 if t.last =ddindx
1629 then exit;
1630 end if;
1631 ddindx := t.next(ddindx);
1632 end loop;
1633 end if;
1634 end if;
1635 end rosetta_table_copy_out_p23;
1636
1637 procedure rosetta_table_copy_in_p24(t out nocopy okl_ael_pvt.accounted_cr_typ, a0 JTF_NUMBER_TABLE) as
1638 ddindx binary_integer; indx binary_integer;
1639 begin
1640 if a0 is not null and a0.count > 0 then
1641 if a0.count > 0 then
1642 indx := a0.first;
1643 ddindx := 1;
1644 while true loop
1645 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1646 ddindx := ddindx+1;
1647 if a0.last =indx
1648 then exit;
1649 end if;
1650 indx := a0.next(indx);
1651 end loop;
1652 end if;
1653 end if;
1654 end rosetta_table_copy_in_p24;
1655 procedure rosetta_table_copy_out_p24(t okl_ael_pvt.accounted_cr_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1656 ddindx binary_integer; indx binary_integer;
1657 begin
1658 if t is null or t.count = 0 then
1659 a0 := JTF_NUMBER_TABLE();
1660 else
1661 a0 := JTF_NUMBER_TABLE();
1662 if t.count > 0 then
1663 a0.extend(t.count);
1664 ddindx := t.first;
1665 indx := 1;
1666 while true loop
1667 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1668 indx := indx+1;
1669 if t.last =ddindx
1670 then exit;
1671 end if;
1672 ddindx := t.next(ddindx);
1673 end loop;
1674 end if;
1675 end if;
1676 end rosetta_table_copy_out_p24;
1677
1678 procedure rosetta_table_copy_in_p25(t out nocopy okl_ael_pvt.reference1_typ, a0 JTF_VARCHAR2_TABLE_800) as
1679 ddindx binary_integer; indx binary_integer;
1680 begin
1681 if a0 is not null and a0.count > 0 then
1682 if a0.count > 0 then
1683 indx := a0.first;
1684 ddindx := 1;
1685 while true loop
1686 t(ddindx) := a0(indx);
1687 ddindx := ddindx+1;
1688 if a0.last =indx
1689 then exit;
1690 end if;
1691 indx := a0.next(indx);
1692 end loop;
1693 end if;
1694 end if;
1695 end rosetta_table_copy_in_p25;
1696 procedure rosetta_table_copy_out_p25(t okl_ael_pvt.reference1_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
1697 ddindx binary_integer; indx binary_integer;
1698 begin
1699 if t is null or t.count = 0 then
1700 a0 := JTF_VARCHAR2_TABLE_800();
1701 else
1702 a0 := JTF_VARCHAR2_TABLE_800();
1703 if t.count > 0 then
1704 a0.extend(t.count);
1705 ddindx := t.first;
1706 indx := 1;
1707 while true loop
1708 a0(indx) := t(ddindx);
1709 indx := indx+1;
1710 if t.last =ddindx
1711 then exit;
1712 end if;
1713 ddindx := t.next(ddindx);
1714 end loop;
1715 end if;
1716 end if;
1717 end rosetta_table_copy_out_p25;
1718
1719 procedure rosetta_table_copy_in_p26(t out nocopy okl_ael_pvt.reference2_typ, a0 JTF_VARCHAR2_TABLE_800) as
1720 ddindx binary_integer; indx binary_integer;
1721 begin
1722 if a0 is not null and a0.count > 0 then
1723 if a0.count > 0 then
1724 indx := a0.first;
1725 ddindx := 1;
1726 while true loop
1727 t(ddindx) := a0(indx);
1728 ddindx := ddindx+1;
1729 if a0.last =indx
1730 then exit;
1731 end if;
1732 indx := a0.next(indx);
1733 end loop;
1734 end if;
1735 end if;
1736 end rosetta_table_copy_in_p26;
1737 procedure rosetta_table_copy_out_p26(t okl_ael_pvt.reference2_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
1738 ddindx binary_integer; indx binary_integer;
1739 begin
1740 if t is null or t.count = 0 then
1741 a0 := JTF_VARCHAR2_TABLE_800();
1742 else
1743 a0 := JTF_VARCHAR2_TABLE_800();
1744 if t.count > 0 then
1745 a0.extend(t.count);
1746 ddindx := t.first;
1747 indx := 1;
1748 while true loop
1749 a0(indx) := t(ddindx);
1750 indx := indx+1;
1751 if t.last =ddindx
1752 then exit;
1753 end if;
1754 ddindx := t.next(ddindx);
1755 end loop;
1756 end if;
1757 end if;
1758 end rosetta_table_copy_out_p26;
1759
1760 procedure rosetta_table_copy_in_p27(t out nocopy okl_ael_pvt.reference3_typ, a0 JTF_VARCHAR2_TABLE_800) as
1761 ddindx binary_integer; indx binary_integer;
1762 begin
1763 if a0 is not null and a0.count > 0 then
1764 if a0.count > 0 then
1765 indx := a0.first;
1766 ddindx := 1;
1767 while true loop
1768 t(ddindx) := a0(indx);
1769 ddindx := ddindx+1;
1770 if a0.last =indx
1771 then exit;
1772 end if;
1773 indx := a0.next(indx);
1774 end loop;
1775 end if;
1776 end if;
1777 end rosetta_table_copy_in_p27;
1778 procedure rosetta_table_copy_out_p27(t okl_ael_pvt.reference3_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
1779 ddindx binary_integer; indx binary_integer;
1780 begin
1781 if t is null or t.count = 0 then
1782 a0 := JTF_VARCHAR2_TABLE_800();
1783 else
1784 a0 := JTF_VARCHAR2_TABLE_800();
1785 if t.count > 0 then
1786 a0.extend(t.count);
1787 ddindx := t.first;
1788 indx := 1;
1789 while true loop
1790 a0(indx) := t(ddindx);
1791 indx := indx+1;
1792 if t.last =ddindx
1793 then exit;
1794 end if;
1795 ddindx := t.next(ddindx);
1796 end loop;
1797 end if;
1798 end if;
1799 end rosetta_table_copy_out_p27;
1800
1801 procedure rosetta_table_copy_in_p28(t out nocopy okl_ael_pvt.reference4_typ, a0 JTF_VARCHAR2_TABLE_800) as
1802 ddindx binary_integer; indx binary_integer;
1803 begin
1804 if a0 is not null and a0.count > 0 then
1805 if a0.count > 0 then
1806 indx := a0.first;
1807 ddindx := 1;
1808 while true loop
1809 t(ddindx) := a0(indx);
1810 ddindx := ddindx+1;
1811 if a0.last =indx
1812 then exit;
1813 end if;
1814 indx := a0.next(indx);
1815 end loop;
1816 end if;
1817 end if;
1818 end rosetta_table_copy_in_p28;
1819 procedure rosetta_table_copy_out_p28(t okl_ael_pvt.reference4_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
1820 ddindx binary_integer; indx binary_integer;
1821 begin
1822 if t is null or t.count = 0 then
1823 a0 := JTF_VARCHAR2_TABLE_800();
1824 else
1825 a0 := JTF_VARCHAR2_TABLE_800();
1826 if t.count > 0 then
1827 a0.extend(t.count);
1828 ddindx := t.first;
1829 indx := 1;
1830 while true loop
1831 a0(indx) := t(ddindx);
1832 indx := indx+1;
1833 if t.last =ddindx
1834 then exit;
1835 end if;
1836 ddindx := t.next(ddindx);
1837 end loop;
1838 end if;
1839 end if;
1840 end rosetta_table_copy_out_p28;
1841
1842 procedure rosetta_table_copy_in_p29(t out nocopy okl_ael_pvt.reference5_typ, a0 JTF_VARCHAR2_TABLE_800) as
1843 ddindx binary_integer; indx binary_integer;
1844 begin
1845 if a0 is not null and a0.count > 0 then
1846 if a0.count > 0 then
1847 indx := a0.first;
1848 ddindx := 1;
1849 while true loop
1850 t(ddindx) := a0(indx);
1851 ddindx := ddindx+1;
1852 if a0.last =indx
1853 then exit;
1854 end if;
1855 indx := a0.next(indx);
1856 end loop;
1857 end if;
1858 end if;
1859 end rosetta_table_copy_in_p29;
1860 procedure rosetta_table_copy_out_p29(t okl_ael_pvt.reference5_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
1861 ddindx binary_integer; indx binary_integer;
1862 begin
1863 if t is null or t.count = 0 then
1864 a0 := JTF_VARCHAR2_TABLE_800();
1865 else
1866 a0 := JTF_VARCHAR2_TABLE_800();
1867 if t.count > 0 then
1868 a0.extend(t.count);
1869 ddindx := t.first;
1870 indx := 1;
1871 while true loop
1872 a0(indx) := t(ddindx);
1873 indx := indx+1;
1874 if t.last =ddindx
1875 then exit;
1876 end if;
1877 ddindx := t.next(ddindx);
1878 end loop;
1879 end if;
1880 end if;
1881 end rosetta_table_copy_out_p29;
1882
1883 procedure rosetta_table_copy_in_p30(t out nocopy okl_ael_pvt.reference6_typ, a0 JTF_VARCHAR2_TABLE_800) as
1884 ddindx binary_integer; indx binary_integer;
1885 begin
1886 if a0 is not null and a0.count > 0 then
1887 if a0.count > 0 then
1888 indx := a0.first;
1889 ddindx := 1;
1890 while true loop
1891 t(ddindx) := a0(indx);
1892 ddindx := ddindx+1;
1893 if a0.last =indx
1894 then exit;
1895 end if;
1896 indx := a0.next(indx);
1897 end loop;
1898 end if;
1899 end if;
1900 end rosetta_table_copy_in_p30;
1901 procedure rosetta_table_copy_out_p30(t okl_ael_pvt.reference6_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
1902 ddindx binary_integer; indx binary_integer;
1903 begin
1904 if t is null or t.count = 0 then
1905 a0 := JTF_VARCHAR2_TABLE_800();
1906 else
1907 a0 := JTF_VARCHAR2_TABLE_800();
1908 if t.count > 0 then
1909 a0.extend(t.count);
1910 ddindx := t.first;
1911 indx := 1;
1912 while true loop
1913 a0(indx) := t(ddindx);
1914 indx := indx+1;
1915 if t.last =ddindx
1916 then exit;
1917 end if;
1918 ddindx := t.next(ddindx);
1919 end loop;
1920 end if;
1921 end if;
1922 end rosetta_table_copy_out_p30;
1923
1924 procedure rosetta_table_copy_in_p31(t out nocopy okl_ael_pvt.reference7_typ, a0 JTF_VARCHAR2_TABLE_800) as
1925 ddindx binary_integer; indx binary_integer;
1926 begin
1927 if a0 is not null and a0.count > 0 then
1928 if a0.count > 0 then
1929 indx := a0.first;
1930 ddindx := 1;
1931 while true loop
1932 t(ddindx) := a0(indx);
1933 ddindx := ddindx+1;
1934 if a0.last =indx
1935 then exit;
1936 end if;
1937 indx := a0.next(indx);
1938 end loop;
1939 end if;
1940 end if;
1941 end rosetta_table_copy_in_p31;
1942 procedure rosetta_table_copy_out_p31(t okl_ael_pvt.reference7_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
1943 ddindx binary_integer; indx binary_integer;
1944 begin
1945 if t is null or t.count = 0 then
1946 a0 := JTF_VARCHAR2_TABLE_800();
1947 else
1948 a0 := JTF_VARCHAR2_TABLE_800();
1949 if t.count > 0 then
1950 a0.extend(t.count);
1951 ddindx := t.first;
1952 indx := 1;
1953 while true loop
1954 a0(indx) := t(ddindx);
1955 indx := indx+1;
1956 if t.last =ddindx
1957 then exit;
1958 end if;
1959 ddindx := t.next(ddindx);
1960 end loop;
1961 end if;
1962 end if;
1963 end rosetta_table_copy_out_p31;
1964
1965 procedure rosetta_table_copy_in_p32(t out nocopy okl_ael_pvt.reference8_typ, a0 JTF_VARCHAR2_TABLE_800) as
1966 ddindx binary_integer; indx binary_integer;
1967 begin
1968 if a0 is not null and a0.count > 0 then
1969 if a0.count > 0 then
1970 indx := a0.first;
1971 ddindx := 1;
1972 while true loop
1973 t(ddindx) := a0(indx);
1974 ddindx := ddindx+1;
1975 if a0.last =indx
1976 then exit;
1977 end if;
1978 indx := a0.next(indx);
1979 end loop;
1980 end if;
1981 end if;
1982 end rosetta_table_copy_in_p32;
1983 procedure rosetta_table_copy_out_p32(t okl_ael_pvt.reference8_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
1984 ddindx binary_integer; indx binary_integer;
1985 begin
1986 if t is null or t.count = 0 then
1987 a0 := JTF_VARCHAR2_TABLE_800();
1988 else
1989 a0 := JTF_VARCHAR2_TABLE_800();
1990 if t.count > 0 then
1991 a0.extend(t.count);
1992 ddindx := t.first;
1993 indx := 1;
1994 while true loop
1995 a0(indx) := t(ddindx);
1996 indx := indx+1;
1997 if t.last =ddindx
1998 then exit;
1999 end if;
2000 ddindx := t.next(ddindx);
2001 end loop;
2002 end if;
2003 end if;
2004 end rosetta_table_copy_out_p32;
2005
2006 procedure rosetta_table_copy_in_p33(t out nocopy okl_ael_pvt.reference9_typ, a0 JTF_VARCHAR2_TABLE_800) as
2007 ddindx binary_integer; indx binary_integer;
2008 begin
2009 if a0 is not null and a0.count > 0 then
2010 if a0.count > 0 then
2011 indx := a0.first;
2012 ddindx := 1;
2013 while true loop
2014 t(ddindx) := a0(indx);
2015 ddindx := ddindx+1;
2016 if a0.last =indx
2017 then exit;
2018 end if;
2019 indx := a0.next(indx);
2020 end loop;
2021 end if;
2022 end if;
2023 end rosetta_table_copy_in_p33;
2024 procedure rosetta_table_copy_out_p33(t okl_ael_pvt.reference9_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
2025 ddindx binary_integer; indx binary_integer;
2026 begin
2027 if t is null or t.count = 0 then
2028 a0 := JTF_VARCHAR2_TABLE_800();
2029 else
2030 a0 := JTF_VARCHAR2_TABLE_800();
2031 if t.count > 0 then
2032 a0.extend(t.count);
2033 ddindx := t.first;
2034 indx := 1;
2035 while true loop
2036 a0(indx) := t(ddindx);
2037 indx := indx+1;
2038 if t.last =ddindx
2039 then exit;
2040 end if;
2041 ddindx := t.next(ddindx);
2042 end loop;
2043 end if;
2044 end if;
2045 end rosetta_table_copy_out_p33;
2046
2047 procedure rosetta_table_copy_in_p34(t out nocopy okl_ael_pvt.reference10_typ, a0 JTF_VARCHAR2_TABLE_800) as
2048 ddindx binary_integer; indx binary_integer;
2049 begin
2050 if a0 is not null and a0.count > 0 then
2051 if a0.count > 0 then
2052 indx := a0.first;
2053 ddindx := 1;
2054 while true loop
2055 t(ddindx) := a0(indx);
2056 ddindx := ddindx+1;
2057 if a0.last =indx
2058 then exit;
2059 end if;
2060 indx := a0.next(indx);
2061 end loop;
2062 end if;
2063 end if;
2064 end rosetta_table_copy_in_p34;
2065 procedure rosetta_table_copy_out_p34(t okl_ael_pvt.reference10_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
2066 ddindx binary_integer; indx binary_integer;
2067 begin
2068 if t is null or t.count = 0 then
2069 a0 := JTF_VARCHAR2_TABLE_800();
2070 else
2071 a0 := JTF_VARCHAR2_TABLE_800();
2072 if t.count > 0 then
2073 a0.extend(t.count);
2074 ddindx := t.first;
2075 indx := 1;
2076 while true loop
2077 a0(indx) := t(ddindx);
2078 indx := indx+1;
2079 if t.last =ddindx
2080 then exit;
2081 end if;
2082 ddindx := t.next(ddindx);
2083 end loop;
2084 end if;
2085 end if;
2086 end rosetta_table_copy_out_p34;
2087
2088 procedure rosetta_table_copy_in_p35(t out nocopy okl_ael_pvt.description_typ, a0 JTF_VARCHAR2_TABLE_800) as
2089 ddindx binary_integer; indx binary_integer;
2090 begin
2091 if a0 is not null and a0.count > 0 then
2092 if a0.count > 0 then
2093 indx := a0.first;
2094 ddindx := 1;
2095 while true loop
2096 t(ddindx) := a0(indx);
2097 ddindx := ddindx+1;
2098 if a0.last =indx
2099 then exit;
2100 end if;
2101 indx := a0.next(indx);
2102 end loop;
2103 end if;
2104 end if;
2105 end rosetta_table_copy_in_p35;
2106 procedure rosetta_table_copy_out_p35(t okl_ael_pvt.description_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
2107 ddindx binary_integer; indx binary_integer;
2108 begin
2109 if t is null or t.count = 0 then
2110 a0 := JTF_VARCHAR2_TABLE_800();
2111 else
2112 a0 := JTF_VARCHAR2_TABLE_800();
2113 if t.count > 0 then
2114 a0.extend(t.count);
2115 ddindx := t.first;
2116 indx := 1;
2117 while true loop
2118 a0(indx) := t(ddindx);
2119 indx := indx+1;
2120 if t.last =ddindx
2121 then exit;
2122 end if;
2123 ddindx := t.next(ddindx);
2124 end loop;
2125 end if;
2126 end if;
2127 end rosetta_table_copy_out_p35;
2128
2129 procedure rosetta_table_copy_in_p36(t out nocopy okl_ael_pvt.third_party_id_typ, a0 JTF_NUMBER_TABLE) as
2130 ddindx binary_integer; indx binary_integer;
2131 begin
2132 if a0 is not null and a0.count > 0 then
2133 if a0.count > 0 then
2134 indx := a0.first;
2135 ddindx := 1;
2136 while true loop
2137 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2138 ddindx := ddindx+1;
2139 if a0.last =indx
2140 then exit;
2141 end if;
2142 indx := a0.next(indx);
2143 end loop;
2144 end if;
2145 end if;
2146 end rosetta_table_copy_in_p36;
2147 procedure rosetta_table_copy_out_p36(t okl_ael_pvt.third_party_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2148 ddindx binary_integer; indx binary_integer;
2149 begin
2150 if t is null or t.count = 0 then
2151 a0 := JTF_NUMBER_TABLE();
2152 else
2153 a0 := JTF_NUMBER_TABLE();
2154 if t.count > 0 then
2155 a0.extend(t.count);
2156 ddindx := t.first;
2157 indx := 1;
2158 while true loop
2159 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2160 indx := indx+1;
2161 if t.last =ddindx
2162 then exit;
2163 end if;
2164 ddindx := t.next(ddindx);
2165 end loop;
2166 end if;
2167 end if;
2168 end rosetta_table_copy_out_p36;
2169
2170 procedure rosetta_table_copy_in_p37(t out nocopy okl_ael_pvt.third_party_sub_id_typ, a0 JTF_NUMBER_TABLE) as
2171 ddindx binary_integer; indx binary_integer;
2172 begin
2173 if a0 is not null and a0.count > 0 then
2174 if a0.count > 0 then
2175 indx := a0.first;
2176 ddindx := 1;
2177 while true loop
2178 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2179 ddindx := ddindx+1;
2180 if a0.last =indx
2181 then exit;
2182 end if;
2183 indx := a0.next(indx);
2184 end loop;
2185 end if;
2186 end if;
2187 end rosetta_table_copy_in_p37;
2188 procedure rosetta_table_copy_out_p37(t okl_ael_pvt.third_party_sub_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2189 ddindx binary_integer; indx binary_integer;
2190 begin
2191 if t is null or t.count = 0 then
2192 a0 := JTF_NUMBER_TABLE();
2193 else
2194 a0 := JTF_NUMBER_TABLE();
2195 if t.count > 0 then
2196 a0.extend(t.count);
2197 ddindx := t.first;
2198 indx := 1;
2199 while true loop
2200 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2201 indx := indx+1;
2202 if t.last =ddindx
2203 then exit;
2204 end if;
2205 ddindx := t.next(ddindx);
2206 end loop;
2207 end if;
2208 end if;
2209 end rosetta_table_copy_out_p37;
2210
2211 procedure rosetta_table_copy_in_p38(t out nocopy okl_ael_pvt.stat_amount_typ, a0 JTF_NUMBER_TABLE) as
2212 ddindx binary_integer; indx binary_integer;
2213 begin
2214 if a0 is not null and a0.count > 0 then
2215 if a0.count > 0 then
2216 indx := a0.first;
2217 ddindx := 1;
2218 while true loop
2219 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2220 ddindx := ddindx+1;
2221 if a0.last =indx
2222 then exit;
2223 end if;
2224 indx := a0.next(indx);
2225 end loop;
2226 end if;
2227 end if;
2228 end rosetta_table_copy_in_p38;
2229 procedure rosetta_table_copy_out_p38(t okl_ael_pvt.stat_amount_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2230 ddindx binary_integer; indx binary_integer;
2231 begin
2232 if t is null or t.count = 0 then
2233 a0 := JTF_NUMBER_TABLE();
2234 else
2235 a0 := JTF_NUMBER_TABLE();
2236 if t.count > 0 then
2237 a0.extend(t.count);
2238 ddindx := t.first;
2239 indx := 1;
2240 while true loop
2241 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2242 indx := indx+1;
2243 if t.last =ddindx
2244 then exit;
2245 end if;
2246 ddindx := t.next(ddindx);
2247 end loop;
2248 end if;
2249 end if;
2250 end rosetta_table_copy_out_p38;
2251
2252 procedure rosetta_table_copy_in_p39(t out nocopy okl_ael_pvt.ussgl_transaction_code_typ, a0 JTF_VARCHAR2_TABLE_100) as
2253 ddindx binary_integer; indx binary_integer;
2254 begin
2255 if a0 is not null and a0.count > 0 then
2256 if a0.count > 0 then
2257 indx := a0.first;
2258 ddindx := 1;
2259 while true loop
2260 t(ddindx) := a0(indx);
2261 ddindx := ddindx+1;
2262 if a0.last =indx
2263 then exit;
2264 end if;
2265 indx := a0.next(indx);
2266 end loop;
2267 end if;
2268 end if;
2269 end rosetta_table_copy_in_p39;
2270 procedure rosetta_table_copy_out_p39(t okl_ael_pvt.ussgl_transaction_code_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
2271 ddindx binary_integer; indx binary_integer;
2272 begin
2273 if t is null or t.count = 0 then
2274 a0 := JTF_VARCHAR2_TABLE_100();
2275 else
2276 a0 := JTF_VARCHAR2_TABLE_100();
2277 if t.count > 0 then
2278 a0.extend(t.count);
2279 ddindx := t.first;
2280 indx := 1;
2281 while true loop
2282 a0(indx) := t(ddindx);
2283 indx := indx+1;
2284 if t.last =ddindx
2285 then exit;
2286 end if;
2287 ddindx := t.next(ddindx);
2288 end loop;
2289 end if;
2290 end if;
2291 end rosetta_table_copy_out_p39;
2292
2293 procedure rosetta_table_copy_in_p40(t out nocopy okl_ael_pvt.subledger_doc_sequence_id_typ, a0 JTF_NUMBER_TABLE) as
2294 ddindx binary_integer; indx binary_integer;
2295 begin
2296 if a0 is not null and a0.count > 0 then
2297 if a0.count > 0 then
2298 indx := a0.first;
2299 ddindx := 1;
2300 while true loop
2301 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2302 ddindx := ddindx+1;
2303 if a0.last =indx
2304 then exit;
2305 end if;
2306 indx := a0.next(indx);
2307 end loop;
2308 end if;
2309 end if;
2310 end rosetta_table_copy_in_p40;
2311 procedure rosetta_table_copy_out_p40(t okl_ael_pvt.subledger_doc_sequence_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2312 ddindx binary_integer; indx binary_integer;
2313 begin
2314 if t is null or t.count = 0 then
2315 a0 := JTF_NUMBER_TABLE();
2316 else
2317 a0 := JTF_NUMBER_TABLE();
2318 if t.count > 0 then
2319 a0.extend(t.count);
2320 ddindx := t.first;
2321 indx := 1;
2322 while true loop
2323 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2324 indx := indx+1;
2325 if t.last =ddindx
2326 then exit;
2327 end if;
2328 ddindx := t.next(ddindx);
2329 end loop;
2330 end if;
2331 end if;
2332 end rosetta_table_copy_out_p40;
2333
2334 procedure rosetta_table_copy_in_p41(t out nocopy okl_ael_pvt.accounting_error_code_typ, a0 JTF_VARCHAR2_TABLE_100) as
2335 ddindx binary_integer; indx binary_integer;
2336 begin
2337 if a0 is not null and a0.count > 0 then
2338 if a0.count > 0 then
2339 indx := a0.first;
2340 ddindx := 1;
2341 while true loop
2342 t(ddindx) := a0(indx);
2343 ddindx := ddindx+1;
2344 if a0.last =indx
2345 then exit;
2346 end if;
2347 indx := a0.next(indx);
2348 end loop;
2349 end if;
2350 end if;
2351 end rosetta_table_copy_in_p41;
2352 procedure rosetta_table_copy_out_p41(t okl_ael_pvt.accounting_error_code_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
2353 ddindx binary_integer; indx binary_integer;
2354 begin
2355 if t is null or t.count = 0 then
2356 a0 := JTF_VARCHAR2_TABLE_100();
2357 else
2358 a0 := JTF_VARCHAR2_TABLE_100();
2359 if t.count > 0 then
2360 a0.extend(t.count);
2361 ddindx := t.first;
2362 indx := 1;
2363 while true loop
2364 a0(indx) := t(ddindx);
2365 indx := indx+1;
2366 if t.last =ddindx
2367 then exit;
2368 end if;
2369 ddindx := t.next(ddindx);
2370 end loop;
2371 end if;
2372 end if;
2373 end rosetta_table_copy_out_p41;
2374
2375 procedure rosetta_table_copy_in_p42(t out nocopy okl_ael_pvt.gl_transfer_error_code_typ, a0 JTF_VARCHAR2_TABLE_100) as
2376 ddindx binary_integer; indx binary_integer;
2377 begin
2378 if a0 is not null and a0.count > 0 then
2379 if a0.count > 0 then
2380 indx := a0.first;
2381 ddindx := 1;
2382 while true loop
2383 t(ddindx) := a0(indx);
2384 ddindx := ddindx+1;
2385 if a0.last =indx
2386 then exit;
2387 end if;
2388 indx := a0.next(indx);
2389 end loop;
2390 end if;
2391 end if;
2392 end rosetta_table_copy_in_p42;
2393 procedure rosetta_table_copy_out_p42(t okl_ael_pvt.gl_transfer_error_code_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
2394 ddindx binary_integer; indx binary_integer;
2395 begin
2396 if t is null or t.count = 0 then
2397 a0 := JTF_VARCHAR2_TABLE_100();
2398 else
2399 a0 := JTF_VARCHAR2_TABLE_100();
2400 if t.count > 0 then
2401 a0.extend(t.count);
2402 ddindx := t.first;
2403 indx := 1;
2404 while true loop
2405 a0(indx) := t(ddindx);
2406 indx := indx+1;
2407 if t.last =ddindx
2408 then exit;
2409 end if;
2410 ddindx := t.next(ddindx);
2411 end loop;
2412 end if;
2413 end if;
2414 end rosetta_table_copy_out_p42;
2415
2416 procedure rosetta_table_copy_in_p43(t out nocopy okl_ael_pvt.gl_sl_link_id_typ, a0 JTF_NUMBER_TABLE) as
2417 ddindx binary_integer; indx binary_integer;
2418 begin
2419 if a0 is not null and a0.count > 0 then
2420 if a0.count > 0 then
2421 indx := a0.first;
2422 ddindx := 1;
2423 while true loop
2424 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2425 ddindx := ddindx+1;
2426 if a0.last =indx
2427 then exit;
2428 end if;
2429 indx := a0.next(indx);
2430 end loop;
2431 end if;
2432 end if;
2433 end rosetta_table_copy_in_p43;
2434 procedure rosetta_table_copy_out_p43(t okl_ael_pvt.gl_sl_link_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2435 ddindx binary_integer; indx binary_integer;
2436 begin
2437 if t is null or t.count = 0 then
2438 a0 := JTF_NUMBER_TABLE();
2439 else
2440 a0 := JTF_NUMBER_TABLE();
2441 if t.count > 0 then
2442 a0.extend(t.count);
2443 ddindx := t.first;
2444 indx := 1;
2445 while true loop
2446 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2447 indx := indx+1;
2448 if t.last =ddindx
2449 then exit;
2450 end if;
2451 ddindx := t.next(ddindx);
2452 end loop;
2453 end if;
2454 end if;
2455 end rosetta_table_copy_out_p43;
2456
2457 procedure rosetta_table_copy_in_p44(t out nocopy okl_ael_pvt.taxable_entered_dr_typ, a0 JTF_NUMBER_TABLE) as
2458 ddindx binary_integer; indx binary_integer;
2459 begin
2460 if a0 is not null and a0.count > 0 then
2461 if a0.count > 0 then
2462 indx := a0.first;
2463 ddindx := 1;
2464 while true loop
2465 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2466 ddindx := ddindx+1;
2467 if a0.last =indx
2468 then exit;
2469 end if;
2470 indx := a0.next(indx);
2471 end loop;
2472 end if;
2473 end if;
2474 end rosetta_table_copy_in_p44;
2475 procedure rosetta_table_copy_out_p44(t okl_ael_pvt.taxable_entered_dr_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2476 ddindx binary_integer; indx binary_integer;
2477 begin
2478 if t is null or t.count = 0 then
2479 a0 := JTF_NUMBER_TABLE();
2480 else
2481 a0 := JTF_NUMBER_TABLE();
2482 if t.count > 0 then
2483 a0.extend(t.count);
2484 ddindx := t.first;
2485 indx := 1;
2486 while true loop
2487 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2488 indx := indx+1;
2489 if t.last =ddindx
2490 then exit;
2491 end if;
2492 ddindx := t.next(ddindx);
2493 end loop;
2494 end if;
2495 end if;
2496 end rosetta_table_copy_out_p44;
2497
2498 procedure rosetta_table_copy_in_p45(t out nocopy okl_ael_pvt.taxable_entered_cr_typ, a0 JTF_NUMBER_TABLE) as
2499 ddindx binary_integer; indx binary_integer;
2500 begin
2501 if a0 is not null and a0.count > 0 then
2502 if a0.count > 0 then
2503 indx := a0.first;
2504 ddindx := 1;
2505 while true loop
2506 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2507 ddindx := ddindx+1;
2508 if a0.last =indx
2509 then exit;
2510 end if;
2511 indx := a0.next(indx);
2512 end loop;
2513 end if;
2514 end if;
2515 end rosetta_table_copy_in_p45;
2516 procedure rosetta_table_copy_out_p45(t okl_ael_pvt.taxable_entered_cr_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2517 ddindx binary_integer; indx binary_integer;
2518 begin
2519 if t is null or t.count = 0 then
2520 a0 := JTF_NUMBER_TABLE();
2521 else
2522 a0 := JTF_NUMBER_TABLE();
2523 if t.count > 0 then
2524 a0.extend(t.count);
2525 ddindx := t.first;
2526 indx := 1;
2527 while true loop
2528 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2529 indx := indx+1;
2530 if t.last =ddindx
2531 then exit;
2532 end if;
2533 ddindx := t.next(ddindx);
2534 end loop;
2535 end if;
2536 end if;
2537 end rosetta_table_copy_out_p45;
2538
2539 procedure rosetta_table_copy_in_p46(t out nocopy okl_ael_pvt.taxable_accounted_dr_typ, a0 JTF_NUMBER_TABLE) as
2540 ddindx binary_integer; indx binary_integer;
2541 begin
2542 if a0 is not null and a0.count > 0 then
2543 if a0.count > 0 then
2544 indx := a0.first;
2545 ddindx := 1;
2546 while true loop
2547 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2548 ddindx := ddindx+1;
2549 if a0.last =indx
2550 then exit;
2551 end if;
2552 indx := a0.next(indx);
2553 end loop;
2554 end if;
2555 end if;
2556 end rosetta_table_copy_in_p46;
2557 procedure rosetta_table_copy_out_p46(t okl_ael_pvt.taxable_accounted_dr_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2558 ddindx binary_integer; indx binary_integer;
2559 begin
2560 if t is null or t.count = 0 then
2561 a0 := JTF_NUMBER_TABLE();
2562 else
2563 a0 := JTF_NUMBER_TABLE();
2564 if t.count > 0 then
2565 a0.extend(t.count);
2566 ddindx := t.first;
2567 indx := 1;
2568 while true loop
2569 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2570 indx := indx+1;
2571 if t.last =ddindx
2572 then exit;
2573 end if;
2574 ddindx := t.next(ddindx);
2575 end loop;
2576 end if;
2577 end if;
2578 end rosetta_table_copy_out_p46;
2579
2580 procedure rosetta_table_copy_in_p47(t out nocopy okl_ael_pvt.taxable_accounted_cr_typ, a0 JTF_NUMBER_TABLE) as
2581 ddindx binary_integer; indx binary_integer;
2582 begin
2583 if a0 is not null and a0.count > 0 then
2584 if a0.count > 0 then
2585 indx := a0.first;
2586 ddindx := 1;
2587 while true loop
2588 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2589 ddindx := ddindx+1;
2590 if a0.last =indx
2591 then exit;
2592 end if;
2593 indx := a0.next(indx);
2594 end loop;
2595 end if;
2596 end if;
2597 end rosetta_table_copy_in_p47;
2598 procedure rosetta_table_copy_out_p47(t okl_ael_pvt.taxable_accounted_cr_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2599 ddindx binary_integer; indx binary_integer;
2600 begin
2601 if t is null or t.count = 0 then
2602 a0 := JTF_NUMBER_TABLE();
2603 else
2604 a0 := JTF_NUMBER_TABLE();
2605 if t.count > 0 then
2606 a0.extend(t.count);
2607 ddindx := t.first;
2608 indx := 1;
2609 while true loop
2610 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2611 indx := indx+1;
2612 if t.last =ddindx
2613 then exit;
2614 end if;
2615 ddindx := t.next(ddindx);
2616 end loop;
2617 end if;
2618 end if;
2619 end rosetta_table_copy_out_p47;
2620
2621 procedure rosetta_table_copy_in_p48(t out nocopy okl_ael_pvt.applied_from_trx_hdr_tab_typ, a0 JTF_VARCHAR2_TABLE_100) as
2622 ddindx binary_integer; indx binary_integer;
2623 begin
2624 if a0 is not null and a0.count > 0 then
2625 if a0.count > 0 then
2626 indx := a0.first;
2627 ddindx := 1;
2628 while true loop
2629 t(ddindx) := a0(indx);
2630 ddindx := ddindx+1;
2631 if a0.last =indx
2632 then exit;
2633 end if;
2634 indx := a0.next(indx);
2635 end loop;
2636 end if;
2637 end if;
2638 end rosetta_table_copy_in_p48;
2639 procedure rosetta_table_copy_out_p48(t okl_ael_pvt.applied_from_trx_hdr_tab_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
2640 ddindx binary_integer; indx binary_integer;
2641 begin
2642 if t is null or t.count = 0 then
2643 a0 := JTF_VARCHAR2_TABLE_100();
2644 else
2645 a0 := JTF_VARCHAR2_TABLE_100();
2646 if t.count > 0 then
2647 a0.extend(t.count);
2648 ddindx := t.first;
2649 indx := 1;
2650 while true loop
2651 a0(indx) := t(ddindx);
2652 indx := indx+1;
2653 if t.last =ddindx
2654 then exit;
2655 end if;
2656 ddindx := t.next(ddindx);
2657 end loop;
2658 end if;
2659 end if;
2660 end rosetta_table_copy_out_p48;
2661
2662 procedure rosetta_table_copy_in_p49(t out nocopy okl_ael_pvt.applied_from_trx_hdr_id_typ, a0 JTF_NUMBER_TABLE) as
2663 ddindx binary_integer; indx binary_integer;
2664 begin
2665 if a0 is not null and a0.count > 0 then
2666 if a0.count > 0 then
2667 indx := a0.first;
2668 ddindx := 1;
2669 while true loop
2670 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2671 ddindx := ddindx+1;
2672 if a0.last =indx
2673 then exit;
2674 end if;
2675 indx := a0.next(indx);
2676 end loop;
2677 end if;
2678 end if;
2679 end rosetta_table_copy_in_p49;
2680 procedure rosetta_table_copy_out_p49(t okl_ael_pvt.applied_from_trx_hdr_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2681 ddindx binary_integer; indx binary_integer;
2682 begin
2683 if t is null or t.count = 0 then
2684 a0 := JTF_NUMBER_TABLE();
2685 else
2686 a0 := JTF_NUMBER_TABLE();
2687 if t.count > 0 then
2688 a0.extend(t.count);
2689 ddindx := t.first;
2690 indx := 1;
2691 while true loop
2692 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2693 indx := indx+1;
2694 if t.last =ddindx
2695 then exit;
2696 end if;
2697 ddindx := t.next(ddindx);
2698 end loop;
2699 end if;
2700 end if;
2701 end rosetta_table_copy_out_p49;
2702
2703 procedure rosetta_table_copy_in_p50(t out nocopy okl_ael_pvt.applied_to_trx_hdr_table_typ, a0 JTF_VARCHAR2_TABLE_100) as
2704 ddindx binary_integer; indx binary_integer;
2705 begin
2706 if a0 is not null and a0.count > 0 then
2707 if a0.count > 0 then
2708 indx := a0.first;
2709 ddindx := 1;
2710 while true loop
2711 t(ddindx) := a0(indx);
2712 ddindx := ddindx+1;
2713 if a0.last =indx
2714 then exit;
2715 end if;
2716 indx := a0.next(indx);
2717 end loop;
2718 end if;
2719 end if;
2720 end rosetta_table_copy_in_p50;
2721 procedure rosetta_table_copy_out_p50(t okl_ael_pvt.applied_to_trx_hdr_table_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
2722 ddindx binary_integer; indx binary_integer;
2723 begin
2724 if t is null or t.count = 0 then
2725 a0 := JTF_VARCHAR2_TABLE_100();
2726 else
2727 a0 := JTF_VARCHAR2_TABLE_100();
2728 if t.count > 0 then
2729 a0.extend(t.count);
2730 ddindx := t.first;
2731 indx := 1;
2732 while true loop
2733 a0(indx) := t(ddindx);
2734 indx := indx+1;
2735 if t.last =ddindx
2736 then exit;
2737 end if;
2738 ddindx := t.next(ddindx);
2739 end loop;
2740 end if;
2741 end if;
2742 end rosetta_table_copy_out_p50;
2743
2744 procedure rosetta_table_copy_in_p51(t out nocopy okl_ael_pvt.applied_to_trx_hdr_id_typ, a0 JTF_NUMBER_TABLE) as
2745 ddindx binary_integer; indx binary_integer;
2746 begin
2747 if a0 is not null and a0.count > 0 then
2748 if a0.count > 0 then
2749 indx := a0.first;
2750 ddindx := 1;
2751 while true loop
2752 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2753 ddindx := ddindx+1;
2754 if a0.last =indx
2755 then exit;
2756 end if;
2757 indx := a0.next(indx);
2758 end loop;
2759 end if;
2760 end if;
2761 end rosetta_table_copy_in_p51;
2762 procedure rosetta_table_copy_out_p51(t okl_ael_pvt.applied_to_trx_hdr_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2763 ddindx binary_integer; indx binary_integer;
2764 begin
2765 if t is null or t.count = 0 then
2766 a0 := JTF_NUMBER_TABLE();
2767 else
2768 a0 := JTF_NUMBER_TABLE();
2769 if t.count > 0 then
2770 a0.extend(t.count);
2771 ddindx := t.first;
2772 indx := 1;
2773 while true loop
2774 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2775 indx := indx+1;
2776 if t.last =ddindx
2777 then exit;
2778 end if;
2779 ddindx := t.next(ddindx);
2780 end loop;
2781 end if;
2782 end if;
2783 end rosetta_table_copy_out_p51;
2784
2785 procedure rosetta_table_copy_in_p52(t out nocopy okl_ael_pvt.tax_link_id_typ, a0 JTF_NUMBER_TABLE) as
2786 ddindx binary_integer; indx binary_integer;
2787 begin
2788 if a0 is not null and a0.count > 0 then
2789 if a0.count > 0 then
2790 indx := a0.first;
2791 ddindx := 1;
2792 while true loop
2793 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2794 ddindx := ddindx+1;
2795 if a0.last =indx
2796 then exit;
2797 end if;
2798 indx := a0.next(indx);
2799 end loop;
2800 end if;
2801 end if;
2802 end rosetta_table_copy_in_p52;
2803 procedure rosetta_table_copy_out_p52(t okl_ael_pvt.tax_link_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2804 ddindx binary_integer; indx binary_integer;
2805 begin
2806 if t is null or t.count = 0 then
2807 a0 := JTF_NUMBER_TABLE();
2808 else
2809 a0 := JTF_NUMBER_TABLE();
2810 if t.count > 0 then
2811 a0.extend(t.count);
2812 ddindx := t.first;
2813 indx := 1;
2814 while true loop
2815 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2816 indx := indx+1;
2817 if t.last =ddindx
2818 then exit;
2819 end if;
2820 ddindx := t.next(ddindx);
2821 end loop;
2822 end if;
2823 end if;
2824 end rosetta_table_copy_out_p52;
2825
2826 procedure rosetta_table_copy_in_p53(t out nocopy okl_ael_pvt.org_id_typ, a0 JTF_NUMBER_TABLE) as
2827 ddindx binary_integer; indx binary_integer;
2828 begin
2829 if a0 is not null and a0.count > 0 then
2830 if a0.count > 0 then
2831 indx := a0.first;
2832 ddindx := 1;
2833 while true loop
2834 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2835 ddindx := ddindx+1;
2836 if a0.last =indx
2837 then exit;
2838 end if;
2839 indx := a0.next(indx);
2840 end loop;
2841 end if;
2842 end if;
2843 end rosetta_table_copy_in_p53;
2844 procedure rosetta_table_copy_out_p53(t okl_ael_pvt.org_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2845 ddindx binary_integer; indx binary_integer;
2846 begin
2847 if t is null or t.count = 0 then
2848 a0 := JTF_NUMBER_TABLE();
2849 else
2850 a0 := JTF_NUMBER_TABLE();
2851 if t.count > 0 then
2852 a0.extend(t.count);
2853 ddindx := t.first;
2854 indx := 1;
2855 while true loop
2856 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2857 indx := indx+1;
2858 if t.last =ddindx
2859 then exit;
2860 end if;
2861 ddindx := t.next(ddindx);
2862 end loop;
2863 end if;
2864 end if;
2865 end rosetta_table_copy_out_p53;
2866
2867 procedure rosetta_table_copy_in_p54(t out nocopy okl_ael_pvt.program_id_typ, a0 JTF_NUMBER_TABLE) as
2868 ddindx binary_integer; indx binary_integer;
2869 begin
2870 if a0 is not null and a0.count > 0 then
2871 if a0.count > 0 then
2872 indx := a0.first;
2873 ddindx := 1;
2874 while true loop
2875 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2876 ddindx := ddindx+1;
2877 if a0.last =indx
2878 then exit;
2879 end if;
2880 indx := a0.next(indx);
2881 end loop;
2882 end if;
2883 end if;
2884 end rosetta_table_copy_in_p54;
2885 procedure rosetta_table_copy_out_p54(t okl_ael_pvt.program_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2886 ddindx binary_integer; indx binary_integer;
2887 begin
2888 if t is null or t.count = 0 then
2889 a0 := JTF_NUMBER_TABLE();
2890 else
2891 a0 := JTF_NUMBER_TABLE();
2892 if t.count > 0 then
2893 a0.extend(t.count);
2894 ddindx := t.first;
2895 indx := 1;
2896 while true loop
2897 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2898 indx := indx+1;
2899 if t.last =ddindx
2900 then exit;
2901 end if;
2902 ddindx := t.next(ddindx);
2903 end loop;
2904 end if;
2905 end if;
2906 end rosetta_table_copy_out_p54;
2907
2908 procedure rosetta_table_copy_in_p55(t out nocopy okl_ael_pvt.program_application_id_typ, a0 JTF_NUMBER_TABLE) as
2909 ddindx binary_integer; indx binary_integer;
2910 begin
2911 if a0 is not null and a0.count > 0 then
2912 if a0.count > 0 then
2913 indx := a0.first;
2914 ddindx := 1;
2915 while true loop
2916 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2917 ddindx := ddindx+1;
2918 if a0.last =indx
2919 then exit;
2920 end if;
2921 indx := a0.next(indx);
2922 end loop;
2923 end if;
2924 end if;
2925 end rosetta_table_copy_in_p55;
2926 procedure rosetta_table_copy_out_p55(t okl_ael_pvt.program_application_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
2927 ddindx binary_integer; indx binary_integer;
2928 begin
2929 if t is null or t.count = 0 then
2930 a0 := JTF_NUMBER_TABLE();
2931 else
2932 a0 := JTF_NUMBER_TABLE();
2933 if t.count > 0 then
2934 a0.extend(t.count);
2935 ddindx := t.first;
2936 indx := 1;
2937 while true loop
2938 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
2939 indx := indx+1;
2940 if t.last =ddindx
2941 then exit;
2942 end if;
2943 ddindx := t.next(ddindx);
2944 end loop;
2945 end if;
2946 end if;
2947 end rosetta_table_copy_out_p55;
2948
2949 procedure rosetta_table_copy_in_p56(t out nocopy okl_ael_pvt.program_update_date_typ, a0 JTF_DATE_TABLE) as
2950 ddindx binary_integer; indx binary_integer;
2951 begin
2952 if a0 is not null and a0.count > 0 then
2953 if a0.count > 0 then
2954 indx := a0.first;
2955 ddindx := 1;
2956 while true loop
2957 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
2958 ddindx := ddindx+1;
2959 if a0.last =indx
2960 then exit;
2961 end if;
2962 indx := a0.next(indx);
2963 end loop;
2964 end if;
2965 end if;
2966 end rosetta_table_copy_in_p56;
2967 procedure rosetta_table_copy_out_p56(t okl_ael_pvt.program_update_date_typ, a0 out nocopy JTF_DATE_TABLE) as
2968 ddindx binary_integer; indx binary_integer;
2969 begin
2970 if t is null or t.count = 0 then
2971 a0 := JTF_DATE_TABLE();
2972 else
2973 a0 := JTF_DATE_TABLE();
2974 if t.count > 0 then
2975 a0.extend(t.count);
2976 ddindx := t.first;
2977 indx := 1;
2978 while true loop
2979 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
2980 indx := indx+1;
2981 if t.last =ddindx
2982 then exit;
2983 end if;
2984 ddindx := t.next(ddindx);
2985 end loop;
2986 end if;
2987 end if;
2988 end rosetta_table_copy_out_p56;
2989
2990 procedure rosetta_table_copy_in_p57(t out nocopy okl_ael_pvt.request_id_typ, a0 JTF_NUMBER_TABLE) as
2991 ddindx binary_integer; indx binary_integer;
2992 begin
2993 if a0 is not null and a0.count > 0 then
2994 if a0.count > 0 then
2995 indx := a0.first;
2996 ddindx := 1;
2997 while true loop
2998 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
2999 ddindx := ddindx+1;
3000 if a0.last =indx
3001 then exit;
3002 end if;
3003 indx := a0.next(indx);
3004 end loop;
3005 end if;
3006 end if;
3007 end rosetta_table_copy_in_p57;
3008 procedure rosetta_table_copy_out_p57(t okl_ael_pvt.request_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
3009 ddindx binary_integer; indx binary_integer;
3010 begin
3011 if t is null or t.count = 0 then
3012 a0 := JTF_NUMBER_TABLE();
3013 else
3014 a0 := JTF_NUMBER_TABLE();
3015 if t.count > 0 then
3016 a0.extend(t.count);
3017 ddindx := t.first;
3018 indx := 1;
3019 while true loop
3020 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
3021 indx := indx+1;
3022 if t.last =ddindx
3023 then exit;
3024 end if;
3025 ddindx := t.next(ddindx);
3026 end loop;
3027 end if;
3028 end if;
3029 end rosetta_table_copy_out_p57;
3030
3031 procedure rosetta_table_copy_in_p58(t out nocopy okl_ael_pvt.created_by_typ, a0 JTF_NUMBER_TABLE) as
3032 ddindx binary_integer; indx binary_integer;
3033 begin
3034 if a0 is not null and a0.count > 0 then
3035 if a0.count > 0 then
3036 indx := a0.first;
3037 ddindx := 1;
3038 while true loop
3039 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
3040 ddindx := ddindx+1;
3041 if a0.last =indx
3042 then exit;
3043 end if;
3044 indx := a0.next(indx);
3045 end loop;
3046 end if;
3047 end if;
3048 end rosetta_table_copy_in_p58;
3049 procedure rosetta_table_copy_out_p58(t okl_ael_pvt.created_by_typ, a0 out nocopy JTF_NUMBER_TABLE) as
3050 ddindx binary_integer; indx binary_integer;
3051 begin
3052 if t is null or t.count = 0 then
3053 a0 := JTF_NUMBER_TABLE();
3054 else
3055 a0 := JTF_NUMBER_TABLE();
3056 if t.count > 0 then
3057 a0.extend(t.count);
3058 ddindx := t.first;
3059 indx := 1;
3060 while true loop
3061 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
3062 indx := indx+1;
3063 if t.last =ddindx
3064 then exit;
3065 end if;
3066 ddindx := t.next(ddindx);
3067 end loop;
3068 end if;
3069 end if;
3070 end rosetta_table_copy_out_p58;
3071
3072 procedure rosetta_table_copy_in_p59(t out nocopy okl_ael_pvt.creation_date_typ, a0 JTF_DATE_TABLE) as
3073 ddindx binary_integer; indx binary_integer;
3074 begin
3075 if a0 is not null and a0.count > 0 then
3076 if a0.count > 0 then
3077 indx := a0.first;
3078 ddindx := 1;
3079 while true loop
3080 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
3081 ddindx := ddindx+1;
3082 if a0.last =indx
3083 then exit;
3084 end if;
3085 indx := a0.next(indx);
3086 end loop;
3087 end if;
3088 end if;
3089 end rosetta_table_copy_in_p59;
3090 procedure rosetta_table_copy_out_p59(t okl_ael_pvt.creation_date_typ, a0 out nocopy JTF_DATE_TABLE) as
3091 ddindx binary_integer; indx binary_integer;
3092 begin
3093 if t is null or t.count = 0 then
3094 a0 := JTF_DATE_TABLE();
3095 else
3096 a0 := JTF_DATE_TABLE();
3097 if t.count > 0 then
3098 a0.extend(t.count);
3099 ddindx := t.first;
3100 indx := 1;
3101 while true loop
3102 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
3103 indx := indx+1;
3104 if t.last =ddindx
3105 then exit;
3106 end if;
3107 ddindx := t.next(ddindx);
3108 end loop;
3109 end if;
3110 end if;
3111 end rosetta_table_copy_out_p59;
3112
3113 procedure rosetta_table_copy_in_p60(t out nocopy okl_ael_pvt.last_updated_by_typ, a0 JTF_NUMBER_TABLE) as
3114 ddindx binary_integer; indx binary_integer;
3115 begin
3116 if a0 is not null and a0.count > 0 then
3117 if a0.count > 0 then
3118 indx := a0.first;
3119 ddindx := 1;
3120 while true loop
3121 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
3122 ddindx := ddindx+1;
3123 if a0.last =indx
3124 then exit;
3125 end if;
3126 indx := a0.next(indx);
3127 end loop;
3128 end if;
3129 end if;
3130 end rosetta_table_copy_in_p60;
3131 procedure rosetta_table_copy_out_p60(t okl_ael_pvt.last_updated_by_typ, a0 out nocopy JTF_NUMBER_TABLE) as
3132 ddindx binary_integer; indx binary_integer;
3133 begin
3134 if t is null or t.count = 0 then
3135 a0 := JTF_NUMBER_TABLE();
3136 else
3137 a0 := JTF_NUMBER_TABLE();
3138 if t.count > 0 then
3139 a0.extend(t.count);
3140 ddindx := t.first;
3141 indx := 1;
3142 while true loop
3143 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
3144 indx := indx+1;
3145 if t.last =ddindx
3146 then exit;
3147 end if;
3148 ddindx := t.next(ddindx);
3149 end loop;
3150 end if;
3151 end if;
3152 end rosetta_table_copy_out_p60;
3153
3154 procedure rosetta_table_copy_in_p61(t out nocopy okl_ael_pvt.last_update_date_typ, a0 JTF_DATE_TABLE) as
3155 ddindx binary_integer; indx binary_integer;
3156 begin
3157 if a0 is not null and a0.count > 0 then
3158 if a0.count > 0 then
3159 indx := a0.first;
3160 ddindx := 1;
3161 while true loop
3162 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
3163 ddindx := ddindx+1;
3164 if a0.last =indx
3165 then exit;
3166 end if;
3167 indx := a0.next(indx);
3168 end loop;
3169 end if;
3170 end if;
3171 end rosetta_table_copy_in_p61;
3172 procedure rosetta_table_copy_out_p61(t okl_ael_pvt.last_update_date_typ, a0 out nocopy JTF_DATE_TABLE) as
3173 ddindx binary_integer; indx binary_integer;
3174 begin
3175 if t is null or t.count = 0 then
3176 a0 := JTF_DATE_TABLE();
3177 else
3178 a0 := JTF_DATE_TABLE();
3179 if t.count > 0 then
3180 a0.extend(t.count);
3181 ddindx := t.first;
3182 indx := 1;
3183 while true loop
3184 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
3185 indx := indx+1;
3186 if t.last =ddindx
3187 then exit;
3188 end if;
3189 ddindx := t.next(ddindx);
3190 end loop;
3191 end if;
3192 end if;
3193 end rosetta_table_copy_out_p61;
3194
3195 procedure rosetta_table_copy_in_p62(t out nocopy okl_ael_pvt.last_update_login_typ, a0 JTF_NUMBER_TABLE) as
3196 ddindx binary_integer; indx binary_integer;
3197 begin
3198 if a0 is not null and a0.count > 0 then
3199 if a0.count > 0 then
3200 indx := a0.first;
3201 ddindx := 1;
3202 while true loop
3203 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
3204 ddindx := ddindx+1;
3205 if a0.last =indx
3206 then exit;
3207 end if;
3208 indx := a0.next(indx);
3209 end loop;
3210 end if;
3211 end if;
3212 end rosetta_table_copy_in_p62;
3213 procedure rosetta_table_copy_out_p62(t okl_ael_pvt.last_update_login_typ, a0 out nocopy JTF_NUMBER_TABLE) as
3214 ddindx binary_integer; indx binary_integer;
3215 begin
3216 if t is null or t.count = 0 then
3217 a0 := JTF_NUMBER_TABLE();
3218 else
3219 a0 := JTF_NUMBER_TABLE();
3220 if t.count > 0 then
3221 a0.extend(t.count);
3222 ddindx := t.first;
3223 indx := 1;
3224 while true loop
3225 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
3226 indx := indx+1;
3227 if t.last =ddindx
3228 then exit;
3229 end if;
3230 ddindx := t.next(ddindx);
3231 end loop;
3232 end if;
3233 end if;
3234 end rosetta_table_copy_out_p62;
3235
3236 procedure insert_row(p_api_version NUMBER
3237 , p_init_msg_list VARCHAR2
3238 , x_return_status out nocopy VARCHAR2
3239 , x_msg_count out nocopy NUMBER
3240 , x_msg_data out nocopy VARCHAR2
3241 , p6_a0 out nocopy NUMBER
3242 , p6_a1 out nocopy NUMBER
3243 , p6_a2 out nocopy NUMBER
3244 , p6_a3 out nocopy VARCHAR2
3245 , p6_a4 out nocopy NUMBER
3246 , p6_a5 out nocopy NUMBER
3247 , p6_a6 out nocopy NUMBER
3248 , p6_a7 out nocopy VARCHAR2
3249 , p6_a8 out nocopy DATE
3250 , p6_a9 out nocopy NUMBER
3251 , p6_a10 out nocopy NUMBER
3252 , p6_a11 out nocopy NUMBER
3253 , p6_a12 out nocopy NUMBER
3254 , p6_a13 out nocopy NUMBER
3255 , p6_a14 out nocopy VARCHAR2
3256 , p6_a15 out nocopy NUMBER
3257 , p6_a16 out nocopy VARCHAR2
3258 , p6_a17 out nocopy VARCHAR2
3259 , p6_a18 out nocopy VARCHAR2
3260 , p6_a19 out nocopy VARCHAR2
3261 , p6_a20 out nocopy VARCHAR2
3262 , p6_a21 out nocopy VARCHAR2
3263 , p6_a22 out nocopy VARCHAR2
3264 , p6_a23 out nocopy VARCHAR2
3265 , p6_a24 out nocopy VARCHAR2
3266 , p6_a25 out nocopy VARCHAR2
3267 , p6_a26 out nocopy VARCHAR2
3268 , p6_a27 out nocopy NUMBER
3269 , p6_a28 out nocopy NUMBER
3270 , p6_a29 out nocopy NUMBER
3271 , p6_a30 out nocopy VARCHAR2
3272 , p6_a31 out nocopy NUMBER
3273 , p6_a32 out nocopy VARCHAR2
3274 , p6_a33 out nocopy VARCHAR2
3275 , p6_a34 out nocopy NUMBER
3276 , p6_a35 out nocopy NUMBER
3277 , p6_a36 out nocopy NUMBER
3278 , p6_a37 out nocopy NUMBER
3279 , p6_a38 out nocopy NUMBER
3280 , p6_a39 out nocopy VARCHAR2
3281 , p6_a40 out nocopy NUMBER
3282 , p6_a41 out nocopy VARCHAR2
3283 , p6_a42 out nocopy NUMBER
3284 , p6_a43 out nocopy NUMBER
3285 , p6_a44 out nocopy VARCHAR2
3286 , p6_a45 out nocopy NUMBER
3287 , p6_a46 out nocopy NUMBER
3288 , p6_a47 out nocopy DATE
3289 , p6_a48 out nocopy NUMBER
3290 , p6_a49 out nocopy NUMBER
3291 , p6_a50 out nocopy NUMBER
3292 , p6_a51 out nocopy DATE
3293 , p6_a52 out nocopy NUMBER
3294 , p6_a53 out nocopy DATE
3295 , p6_a54 out nocopy NUMBER
3296 , p6_a55 out nocopy NUMBER
3297 , p6_a56 out nocopy NUMBER
3298 , p6_a57 out nocopy NUMBER
3299 , p5_a0 NUMBER := 0-1962.0724
3300 , p5_a1 NUMBER := 0-1962.0724
3301 , p5_a2 NUMBER := 0-1962.0724
3302 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
3303 , p5_a4 NUMBER := 0-1962.0724
3304 , p5_a5 NUMBER := 0-1962.0724
3305 , p5_a6 NUMBER := 0-1962.0724
3306 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
3307 , p5_a8 DATE := fnd_api.g_miss_date
3308 , p5_a9 NUMBER := 0-1962.0724
3309 , p5_a10 NUMBER := 0-1962.0724
3310 , p5_a11 NUMBER := 0-1962.0724
3311 , p5_a12 NUMBER := 0-1962.0724
3312 , p5_a13 NUMBER := 0-1962.0724
3313 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
3314 , p5_a15 NUMBER := 0-1962.0724
3315 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
3316 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
3317 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
3318 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
3319 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
3320 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
3321 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
3322 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
3323 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
3324 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
3325 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
3326 , p5_a27 NUMBER := 0-1962.0724
3327 , p5_a28 NUMBER := 0-1962.0724
3328 , p5_a29 NUMBER := 0-1962.0724
3329 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
3330 , p5_a31 NUMBER := 0-1962.0724
3331 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
3332 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
3333 , p5_a34 NUMBER := 0-1962.0724
3334 , p5_a35 NUMBER := 0-1962.0724
3335 , p5_a36 NUMBER := 0-1962.0724
3336 , p5_a37 NUMBER := 0-1962.0724
3337 , p5_a38 NUMBER := 0-1962.0724
3338 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
3339 , p5_a40 NUMBER := 0-1962.0724
3340 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
3341 , p5_a42 NUMBER := 0-1962.0724
3342 , p5_a43 NUMBER := 0-1962.0724
3343 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
3344 , p5_a45 NUMBER := 0-1962.0724
3345 , p5_a46 NUMBER := 0-1962.0724
3346 , p5_a47 DATE := fnd_api.g_miss_date
3347 , p5_a48 NUMBER := 0-1962.0724
3348 , p5_a49 NUMBER := 0-1962.0724
3349 , p5_a50 NUMBER := 0-1962.0724
3350 , p5_a51 DATE := fnd_api.g_miss_date
3351 , p5_a52 NUMBER := 0-1962.0724
3352 , p5_a53 DATE := fnd_api.g_miss_date
3353 , p5_a54 NUMBER := 0-1962.0724
3354 , p5_a55 NUMBER := 0-1962.0724
3355 , p5_a56 NUMBER := 0-1962.0724
3356 , p5_a57 NUMBER := 0-1962.0724
3357 )
3358
3359 as
3360 ddp_aelv_rec okl_ael_pvt.aelv_rec_type;
3361 ddx_aelv_rec okl_ael_pvt.aelv_rec_type;
3362 ddindx binary_integer; indx binary_integer;
3363 begin
3364
3365 -- copy data to the local IN or IN-OUT args, if any
3366
3367
3368
3369
3370
3371 ddp_aelv_rec.ae_line_id := rosetta_g_miss_num_map(p5_a0);
3372 ddp_aelv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
3373 ddp_aelv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a2);
3374 ddp_aelv_rec.currency_conversion_type := p5_a3;
3375 ddp_aelv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a4);
3376 ddp_aelv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
3377 ddp_aelv_rec.ae_line_number := rosetta_g_miss_num_map(p5_a6);
3378 ddp_aelv_rec.ae_line_type_code := p5_a7;
3379 ddp_aelv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a8);
3380 ddp_aelv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a9);
3381 ddp_aelv_rec.entered_dr := rosetta_g_miss_num_map(p5_a10);
3382 ddp_aelv_rec.entered_cr := rosetta_g_miss_num_map(p5_a11);
3383 ddp_aelv_rec.accounted_dr := rosetta_g_miss_num_map(p5_a12);
3384 ddp_aelv_rec.accounted_cr := rosetta_g_miss_num_map(p5_a13);
3385 ddp_aelv_rec.source_table := p5_a14;
3386 ddp_aelv_rec.source_id := rosetta_g_miss_num_map(p5_a15);
3387 ddp_aelv_rec.reference1 := p5_a16;
3388 ddp_aelv_rec.reference2 := p5_a17;
3389 ddp_aelv_rec.reference3 := p5_a18;
3390 ddp_aelv_rec.reference4 := p5_a19;
3391 ddp_aelv_rec.reference5 := p5_a20;
3392 ddp_aelv_rec.reference6 := p5_a21;
3393 ddp_aelv_rec.reference7 := p5_a22;
3394 ddp_aelv_rec.reference8 := p5_a23;
3395 ddp_aelv_rec.reference9 := p5_a24;
3396 ddp_aelv_rec.reference10 := p5_a25;
3397 ddp_aelv_rec.description := p5_a26;
3398 ddp_aelv_rec.third_party_id := rosetta_g_miss_num_map(p5_a27);
3399 ddp_aelv_rec.third_party_sub_id := rosetta_g_miss_num_map(p5_a28);
3400 ddp_aelv_rec.stat_amount := rosetta_g_miss_num_map(p5_a29);
3401 ddp_aelv_rec.ussgl_transaction_code := p5_a30;
3402 ddp_aelv_rec.subledger_doc_sequence_id := rosetta_g_miss_num_map(p5_a31);
3403 ddp_aelv_rec.accounting_error_code := p5_a32;
3404 ddp_aelv_rec.gl_transfer_error_code := p5_a33;
3405 ddp_aelv_rec.gl_sl_link_id := rosetta_g_miss_num_map(p5_a34);
3406 ddp_aelv_rec.taxable_entered_dr := rosetta_g_miss_num_map(p5_a35);
3407 ddp_aelv_rec.taxable_entered_cr := rosetta_g_miss_num_map(p5_a36);
3408 ddp_aelv_rec.taxable_accounted_dr := rosetta_g_miss_num_map(p5_a37);
3409 ddp_aelv_rec.taxable_accounted_cr := rosetta_g_miss_num_map(p5_a38);
3410 ddp_aelv_rec.applied_from_trx_hdr_table := p5_a39;
3411 ddp_aelv_rec.applied_from_trx_hdr_id := rosetta_g_miss_num_map(p5_a40);
3412 ddp_aelv_rec.applied_to_trx_hdr_table := p5_a41;
3413 ddp_aelv_rec.applied_to_trx_hdr_id := rosetta_g_miss_num_map(p5_a42);
3414 ddp_aelv_rec.tax_link_id := rosetta_g_miss_num_map(p5_a43);
3415 ddp_aelv_rec.currency_code := p5_a44;
3416 ddp_aelv_rec.program_id := rosetta_g_miss_num_map(p5_a45);
3417 ddp_aelv_rec.program_application_id := rosetta_g_miss_num_map(p5_a46);
3418 ddp_aelv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a47);
3419 ddp_aelv_rec.request_id := rosetta_g_miss_num_map(p5_a48);
3420 ddp_aelv_rec.aeh_tbl_index := rosetta_g_miss_num_map(p5_a49);
3421 ddp_aelv_rec.created_by := rosetta_g_miss_num_map(p5_a50);
3422 ddp_aelv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a51);
3423 ddp_aelv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a52);
3424 ddp_aelv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a53);
3425 ddp_aelv_rec.last_update_login := rosetta_g_miss_num_map(p5_a54);
3426 ddp_aelv_rec.account_overlay_source_id := rosetta_g_miss_num_map(p5_a55);
3427 ddp_aelv_rec.subledger_doc_sequence_value := rosetta_g_miss_num_map(p5_a56);
3428 ddp_aelv_rec.tax_code_id := rosetta_g_miss_num_map(p5_a57);
3429
3430
3431 -- here's the delegated call to the old PL/SQL routine
3432 okl_ael_pvt.insert_row(p_api_version,
3433 p_init_msg_list,
3434 x_return_status,
3435 x_msg_count,
3436 x_msg_data,
3437 ddp_aelv_rec,
3438 ddx_aelv_rec);
3439
3440 -- copy data back from the local variables to OUT or IN-OUT args, if any
3441
3442
3443
3444
3445
3446
3447 p6_a0 := rosetta_g_miss_num_map(ddx_aelv_rec.ae_line_id);
3448 p6_a1 := rosetta_g_miss_num_map(ddx_aelv_rec.object_version_number);
3449 p6_a2 := rosetta_g_miss_num_map(ddx_aelv_rec.ae_header_id);
3450 p6_a3 := ddx_aelv_rec.currency_conversion_type;
3451 p6_a4 := rosetta_g_miss_num_map(ddx_aelv_rec.code_combination_id);
3452 p6_a5 := rosetta_g_miss_num_map(ddx_aelv_rec.org_id);
3453 p6_a6 := rosetta_g_miss_num_map(ddx_aelv_rec.ae_line_number);
3454 p6_a7 := ddx_aelv_rec.ae_line_type_code;
3455 p6_a8 := ddx_aelv_rec.currency_conversion_date;
3456 p6_a9 := rosetta_g_miss_num_map(ddx_aelv_rec.currency_conversion_rate);
3457 p6_a10 := rosetta_g_miss_num_map(ddx_aelv_rec.entered_dr);
3458 p6_a11 := rosetta_g_miss_num_map(ddx_aelv_rec.entered_cr);
3459 p6_a12 := rosetta_g_miss_num_map(ddx_aelv_rec.accounted_dr);
3460 p6_a13 := rosetta_g_miss_num_map(ddx_aelv_rec.accounted_cr);
3461 p6_a14 := ddx_aelv_rec.source_table;
3462 p6_a15 := rosetta_g_miss_num_map(ddx_aelv_rec.source_id);
3463 p6_a16 := ddx_aelv_rec.reference1;
3464 p6_a17 := ddx_aelv_rec.reference2;
3465 p6_a18 := ddx_aelv_rec.reference3;
3466 p6_a19 := ddx_aelv_rec.reference4;
3467 p6_a20 := ddx_aelv_rec.reference5;
3468 p6_a21 := ddx_aelv_rec.reference6;
3469 p6_a22 := ddx_aelv_rec.reference7;
3470 p6_a23 := ddx_aelv_rec.reference8;
3471 p6_a24 := ddx_aelv_rec.reference9;
3472 p6_a25 := ddx_aelv_rec.reference10;
3473 p6_a26 := ddx_aelv_rec.description;
3474 p6_a27 := rosetta_g_miss_num_map(ddx_aelv_rec.third_party_id);
3475 p6_a28 := rosetta_g_miss_num_map(ddx_aelv_rec.third_party_sub_id);
3476 p6_a29 := rosetta_g_miss_num_map(ddx_aelv_rec.stat_amount);
3477 p6_a30 := ddx_aelv_rec.ussgl_transaction_code;
3478 p6_a31 := rosetta_g_miss_num_map(ddx_aelv_rec.subledger_doc_sequence_id);
3479 p6_a32 := ddx_aelv_rec.accounting_error_code;
3480 p6_a33 := ddx_aelv_rec.gl_transfer_error_code;
3481 p6_a34 := rosetta_g_miss_num_map(ddx_aelv_rec.gl_sl_link_id);
3482 p6_a35 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_entered_dr);
3483 p6_a36 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_entered_cr);
3484 p6_a37 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_accounted_dr);
3485 p6_a38 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_accounted_cr);
3486 p6_a39 := ddx_aelv_rec.applied_from_trx_hdr_table;
3487 p6_a40 := rosetta_g_miss_num_map(ddx_aelv_rec.applied_from_trx_hdr_id);
3488 p6_a41 := ddx_aelv_rec.applied_to_trx_hdr_table;
3489 p6_a42 := rosetta_g_miss_num_map(ddx_aelv_rec.applied_to_trx_hdr_id);
3490 p6_a43 := rosetta_g_miss_num_map(ddx_aelv_rec.tax_link_id);
3491 p6_a44 := ddx_aelv_rec.currency_code;
3492 p6_a45 := rosetta_g_miss_num_map(ddx_aelv_rec.program_id);
3493 p6_a46 := rosetta_g_miss_num_map(ddx_aelv_rec.program_application_id);
3494 p6_a47 := ddx_aelv_rec.program_update_date;
3495 p6_a48 := rosetta_g_miss_num_map(ddx_aelv_rec.request_id);
3496 p6_a49 := rosetta_g_miss_num_map(ddx_aelv_rec.aeh_tbl_index);
3497 p6_a50 := rosetta_g_miss_num_map(ddx_aelv_rec.created_by);
3498 p6_a51 := ddx_aelv_rec.creation_date;
3499 p6_a52 := rosetta_g_miss_num_map(ddx_aelv_rec.last_updated_by);
3500 p6_a53 := ddx_aelv_rec.last_update_date;
3501 p6_a54 := rosetta_g_miss_num_map(ddx_aelv_rec.last_update_login);
3502 p6_a55 := rosetta_g_miss_num_map(ddx_aelv_rec.account_overlay_source_id);
3503 p6_a56 := rosetta_g_miss_num_map(ddx_aelv_rec.subledger_doc_sequence_value);
3504 p6_a57 := rosetta_g_miss_num_map(ddx_aelv_rec.tax_code_id);
3505 end;
3506
3507 procedure insert_row(p_api_version NUMBER
3508 , p_init_msg_list VARCHAR2
3509 , x_return_status out nocopy VARCHAR2
3510 , x_msg_count out nocopy NUMBER
3511 , x_msg_data out nocopy VARCHAR2
3512 , p5_a0 JTF_NUMBER_TABLE
3513 , p5_a1 JTF_NUMBER_TABLE
3514 , p5_a2 JTF_NUMBER_TABLE
3515 , p5_a3 JTF_VARCHAR2_TABLE_100
3516 , p5_a4 JTF_NUMBER_TABLE
3517 , p5_a5 JTF_NUMBER_TABLE
3518 , p5_a6 JTF_NUMBER_TABLE
3519 , p5_a7 JTF_VARCHAR2_TABLE_100
3520 , p5_a8 JTF_DATE_TABLE
3521 , p5_a9 JTF_NUMBER_TABLE
3522 , p5_a10 JTF_NUMBER_TABLE
3523 , p5_a11 JTF_NUMBER_TABLE
3524 , p5_a12 JTF_NUMBER_TABLE
3525 , p5_a13 JTF_NUMBER_TABLE
3526 , p5_a14 JTF_VARCHAR2_TABLE_100
3527 , p5_a15 JTF_NUMBER_TABLE
3528 , p5_a16 JTF_VARCHAR2_TABLE_800
3529 , p5_a17 JTF_VARCHAR2_TABLE_800
3530 , p5_a18 JTF_VARCHAR2_TABLE_800
3531 , p5_a19 JTF_VARCHAR2_TABLE_800
3532 , p5_a20 JTF_VARCHAR2_TABLE_800
3533 , p5_a21 JTF_VARCHAR2_TABLE_800
3534 , p5_a22 JTF_VARCHAR2_TABLE_800
3535 , p5_a23 JTF_VARCHAR2_TABLE_800
3536 , p5_a24 JTF_VARCHAR2_TABLE_800
3537 , p5_a25 JTF_VARCHAR2_TABLE_800
3538 , p5_a26 JTF_VARCHAR2_TABLE_800
3539 , p5_a27 JTF_NUMBER_TABLE
3540 , p5_a28 JTF_NUMBER_TABLE
3541 , p5_a29 JTF_NUMBER_TABLE
3542 , p5_a30 JTF_VARCHAR2_TABLE_100
3543 , p5_a31 JTF_NUMBER_TABLE
3544 , p5_a32 JTF_VARCHAR2_TABLE_100
3545 , p5_a33 JTF_VARCHAR2_TABLE_100
3546 , p5_a34 JTF_NUMBER_TABLE
3547 , p5_a35 JTF_NUMBER_TABLE
3548 , p5_a36 JTF_NUMBER_TABLE
3549 , p5_a37 JTF_NUMBER_TABLE
3550 , p5_a38 JTF_NUMBER_TABLE
3551 , p5_a39 JTF_VARCHAR2_TABLE_100
3552 , p5_a40 JTF_NUMBER_TABLE
3553 , p5_a41 JTF_VARCHAR2_TABLE_100
3554 , p5_a42 JTF_NUMBER_TABLE
3555 , p5_a43 JTF_NUMBER_TABLE
3556 , p5_a44 JTF_VARCHAR2_TABLE_100
3557 , p5_a45 JTF_NUMBER_TABLE
3558 , p5_a46 JTF_NUMBER_TABLE
3559 , p5_a47 JTF_DATE_TABLE
3560 , p5_a48 JTF_NUMBER_TABLE
3561 , p5_a49 JTF_NUMBER_TABLE
3562 , p5_a50 JTF_NUMBER_TABLE
3563 , p5_a51 JTF_DATE_TABLE
3564 , p5_a52 JTF_NUMBER_TABLE
3565 , p5_a53 JTF_DATE_TABLE
3566 , p5_a54 JTF_NUMBER_TABLE
3567 , p5_a55 JTF_NUMBER_TABLE
3568 , p5_a56 JTF_NUMBER_TABLE
3569 , p5_a57 JTF_NUMBER_TABLE
3570 , p6_a0 out nocopy JTF_NUMBER_TABLE
3571 , p6_a1 out nocopy JTF_NUMBER_TABLE
3572 , p6_a2 out nocopy JTF_NUMBER_TABLE
3573 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
3574 , p6_a4 out nocopy JTF_NUMBER_TABLE
3575 , p6_a5 out nocopy JTF_NUMBER_TABLE
3576 , p6_a6 out nocopy JTF_NUMBER_TABLE
3577 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
3578 , p6_a8 out nocopy JTF_DATE_TABLE
3579 , p6_a9 out nocopy JTF_NUMBER_TABLE
3580 , p6_a10 out nocopy JTF_NUMBER_TABLE
3581 , p6_a11 out nocopy JTF_NUMBER_TABLE
3582 , p6_a12 out nocopy JTF_NUMBER_TABLE
3583 , p6_a13 out nocopy JTF_NUMBER_TABLE
3584 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
3585 , p6_a15 out nocopy JTF_NUMBER_TABLE
3586 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_800
3587 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_800
3588 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_800
3589 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_800
3590 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_800
3591 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_800
3592 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_800
3593 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_800
3594 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_800
3595 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_800
3596 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_800
3597 , p6_a27 out nocopy JTF_NUMBER_TABLE
3598 , p6_a28 out nocopy JTF_NUMBER_TABLE
3599 , p6_a29 out nocopy JTF_NUMBER_TABLE
3600 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
3601 , p6_a31 out nocopy JTF_NUMBER_TABLE
3602 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_100
3603 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_100
3604 , p6_a34 out nocopy JTF_NUMBER_TABLE
3605 , p6_a35 out nocopy JTF_NUMBER_TABLE
3606 , p6_a36 out nocopy JTF_NUMBER_TABLE
3607 , p6_a37 out nocopy JTF_NUMBER_TABLE
3608 , p6_a38 out nocopy JTF_NUMBER_TABLE
3609 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_100
3610 , p6_a40 out nocopy JTF_NUMBER_TABLE
3611 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
3612 , p6_a42 out nocopy JTF_NUMBER_TABLE
3613 , p6_a43 out nocopy JTF_NUMBER_TABLE
3614 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_100
3615 , p6_a45 out nocopy JTF_NUMBER_TABLE
3616 , p6_a46 out nocopy JTF_NUMBER_TABLE
3617 , p6_a47 out nocopy JTF_DATE_TABLE
3618 , p6_a48 out nocopy JTF_NUMBER_TABLE
3619 , p6_a49 out nocopy JTF_NUMBER_TABLE
3620 , p6_a50 out nocopy JTF_NUMBER_TABLE
3621 , p6_a51 out nocopy JTF_DATE_TABLE
3622 , p6_a52 out nocopy JTF_NUMBER_TABLE
3623 , p6_a53 out nocopy JTF_DATE_TABLE
3624 , p6_a54 out nocopy JTF_NUMBER_TABLE
3625 , p6_a55 out nocopy JTF_NUMBER_TABLE
3626 , p6_a56 out nocopy JTF_NUMBER_TABLE
3627 , p6_a57 out nocopy JTF_NUMBER_TABLE
3628 )
3629
3630 as
3631 ddp_aelv_tbl okl_ael_pvt.aelv_tbl_type;
3632 ddx_aelv_tbl okl_ael_pvt.aelv_tbl_type;
3633 ddindx binary_integer; indx binary_integer;
3634 begin
3635
3636 -- copy data to the local IN or IN-OUT args, if any
3637
3638
3639
3640
3641
3642 okl_ael_pvt_w.rosetta_table_copy_in_p5(ddp_aelv_tbl, p5_a0
3643 , p5_a1
3644 , p5_a2
3645 , p5_a3
3646 , p5_a4
3647 , p5_a5
3648 , p5_a6
3649 , p5_a7
3650 , p5_a8
3651 , p5_a9
3652 , p5_a10
3653 , p5_a11
3654 , p5_a12
3655 , p5_a13
3656 , p5_a14
3657 , p5_a15
3658 , p5_a16
3659 , p5_a17
3660 , p5_a18
3661 , p5_a19
3662 , p5_a20
3663 , p5_a21
3664 , p5_a22
3665 , p5_a23
3666 , p5_a24
3667 , p5_a25
3668 , p5_a26
3669 , p5_a27
3670 , p5_a28
3671 , p5_a29
3672 , p5_a30
3673 , p5_a31
3674 , p5_a32
3675 , p5_a33
3676 , p5_a34
3677 , p5_a35
3678 , p5_a36
3679 , p5_a37
3680 , p5_a38
3681 , p5_a39
3682 , p5_a40
3683 , p5_a41
3684 , p5_a42
3685 , p5_a43
3686 , p5_a44
3687 , p5_a45
3688 , p5_a46
3689 , p5_a47
3690 , p5_a48
3691 , p5_a49
3692 , p5_a50
3693 , p5_a51
3694 , p5_a52
3695 , p5_a53
3696 , p5_a54
3697 , p5_a55
3698 , p5_a56
3699 , p5_a57
3700 );
3701
3702
3703 -- here's the delegated call to the old PL/SQL routine
3704 okl_ael_pvt.insert_row(p_api_version,
3705 p_init_msg_list,
3706 x_return_status,
3707 x_msg_count,
3708 x_msg_data,
3709 ddp_aelv_tbl,
3710 ddx_aelv_tbl);
3711
3712 -- copy data back from the local variables to OUT or IN-OUT args, if any
3713
3714
3715
3716
3717
3718
3719 okl_ael_pvt_w.rosetta_table_copy_out_p5(ddx_aelv_tbl, p6_a0
3720 , p6_a1
3721 , p6_a2
3722 , p6_a3
3723 , p6_a4
3724 , p6_a5
3725 , p6_a6
3726 , p6_a7
3727 , p6_a8
3728 , p6_a9
3729 , p6_a10
3730 , p6_a11
3731 , p6_a12
3732 , p6_a13
3733 , p6_a14
3734 , p6_a15
3735 , p6_a16
3736 , p6_a17
3737 , p6_a18
3738 , p6_a19
3739 , p6_a20
3740 , p6_a21
3741 , p6_a22
3742 , p6_a23
3743 , p6_a24
3744 , p6_a25
3745 , p6_a26
3746 , p6_a27
3747 , p6_a28
3748 , p6_a29
3749 , p6_a30
3750 , p6_a31
3751 , p6_a32
3752 , p6_a33
3753 , p6_a34
3754 , p6_a35
3755 , p6_a36
3756 , p6_a37
3757 , p6_a38
3758 , p6_a39
3759 , p6_a40
3760 , p6_a41
3761 , p6_a42
3762 , p6_a43
3763 , p6_a44
3764 , p6_a45
3765 , p6_a46
3766 , p6_a47
3767 , p6_a48
3768 , p6_a49
3769 , p6_a50
3770 , p6_a51
3771 , p6_a52
3772 , p6_a53
3773 , p6_a54
3774 , p6_a55
3775 , p6_a56
3776 , p6_a57
3777 );
3778 end;
3779
3780 procedure insert_row_perf(p_api_version NUMBER
3781 , p_init_msg_list VARCHAR2
3782 , x_return_status out nocopy VARCHAR2
3783 , x_msg_count out nocopy NUMBER
3784 , x_msg_data out nocopy VARCHAR2
3785 , p5_a0 JTF_NUMBER_TABLE
3786 , p5_a1 JTF_NUMBER_TABLE
3787 , p5_a2 JTF_NUMBER_TABLE
3788 , p5_a3 JTF_VARCHAR2_TABLE_100
3789 , p5_a4 JTF_NUMBER_TABLE
3790 , p5_a5 JTF_NUMBER_TABLE
3791 , p5_a6 JTF_NUMBER_TABLE
3792 , p5_a7 JTF_VARCHAR2_TABLE_100
3793 , p5_a8 JTF_DATE_TABLE
3794 , p5_a9 JTF_NUMBER_TABLE
3795 , p5_a10 JTF_NUMBER_TABLE
3796 , p5_a11 JTF_NUMBER_TABLE
3797 , p5_a12 JTF_NUMBER_TABLE
3798 , p5_a13 JTF_NUMBER_TABLE
3799 , p5_a14 JTF_VARCHAR2_TABLE_100
3800 , p5_a15 JTF_NUMBER_TABLE
3801 , p5_a16 JTF_VARCHAR2_TABLE_800
3802 , p5_a17 JTF_VARCHAR2_TABLE_800
3803 , p5_a18 JTF_VARCHAR2_TABLE_800
3804 , p5_a19 JTF_VARCHAR2_TABLE_800
3805 , p5_a20 JTF_VARCHAR2_TABLE_800
3806 , p5_a21 JTF_VARCHAR2_TABLE_800
3807 , p5_a22 JTF_VARCHAR2_TABLE_800
3808 , p5_a23 JTF_VARCHAR2_TABLE_800
3809 , p5_a24 JTF_VARCHAR2_TABLE_800
3810 , p5_a25 JTF_VARCHAR2_TABLE_800
3811 , p5_a26 JTF_VARCHAR2_TABLE_800
3812 , p5_a27 JTF_NUMBER_TABLE
3813 , p5_a28 JTF_NUMBER_TABLE
3814 , p5_a29 JTF_NUMBER_TABLE
3815 , p5_a30 JTF_VARCHAR2_TABLE_100
3816 , p5_a31 JTF_NUMBER_TABLE
3817 , p5_a32 JTF_VARCHAR2_TABLE_100
3818 , p5_a33 JTF_VARCHAR2_TABLE_100
3819 , p5_a34 JTF_NUMBER_TABLE
3820 , p5_a35 JTF_NUMBER_TABLE
3821 , p5_a36 JTF_NUMBER_TABLE
3822 , p5_a37 JTF_NUMBER_TABLE
3823 , p5_a38 JTF_NUMBER_TABLE
3824 , p5_a39 JTF_VARCHAR2_TABLE_100
3825 , p5_a40 JTF_NUMBER_TABLE
3826 , p5_a41 JTF_VARCHAR2_TABLE_100
3827 , p5_a42 JTF_NUMBER_TABLE
3828 , p5_a43 JTF_NUMBER_TABLE
3829 , p5_a44 JTF_VARCHAR2_TABLE_100
3830 , p5_a45 JTF_NUMBER_TABLE
3831 , p5_a46 JTF_NUMBER_TABLE
3832 , p5_a47 JTF_DATE_TABLE
3833 , p5_a48 JTF_NUMBER_TABLE
3834 , p5_a49 JTF_NUMBER_TABLE
3835 , p5_a50 JTF_NUMBER_TABLE
3836 , p5_a51 JTF_DATE_TABLE
3837 , p5_a52 JTF_NUMBER_TABLE
3838 , p5_a53 JTF_DATE_TABLE
3839 , p5_a54 JTF_NUMBER_TABLE
3840 , p5_a55 JTF_NUMBER_TABLE
3841 , p5_a56 JTF_NUMBER_TABLE
3842 , p5_a57 JTF_NUMBER_TABLE
3843 , p6_a0 out nocopy JTF_NUMBER_TABLE
3844 , p6_a1 out nocopy JTF_NUMBER_TABLE
3845 , p6_a2 out nocopy JTF_NUMBER_TABLE
3846 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
3847 , p6_a4 out nocopy JTF_NUMBER_TABLE
3848 , p6_a5 out nocopy JTF_NUMBER_TABLE
3849 , p6_a6 out nocopy JTF_NUMBER_TABLE
3850 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
3851 , p6_a8 out nocopy JTF_DATE_TABLE
3852 , p6_a9 out nocopy JTF_NUMBER_TABLE
3853 , p6_a10 out nocopy JTF_NUMBER_TABLE
3854 , p6_a11 out nocopy JTF_NUMBER_TABLE
3855 , p6_a12 out nocopy JTF_NUMBER_TABLE
3856 , p6_a13 out nocopy JTF_NUMBER_TABLE
3857 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
3858 , p6_a15 out nocopy JTF_NUMBER_TABLE
3859 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_800
3860 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_800
3861 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_800
3862 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_800
3863 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_800
3864 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_800
3865 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_800
3866 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_800
3867 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_800
3868 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_800
3869 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_800
3870 , p6_a27 out nocopy JTF_NUMBER_TABLE
3871 , p6_a28 out nocopy JTF_NUMBER_TABLE
3872 , p6_a29 out nocopy JTF_NUMBER_TABLE
3873 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
3874 , p6_a31 out nocopy JTF_NUMBER_TABLE
3875 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_100
3876 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_100
3877 , p6_a34 out nocopy JTF_NUMBER_TABLE
3878 , p6_a35 out nocopy JTF_NUMBER_TABLE
3879 , p6_a36 out nocopy JTF_NUMBER_TABLE
3880 , p6_a37 out nocopy JTF_NUMBER_TABLE
3881 , p6_a38 out nocopy JTF_NUMBER_TABLE
3882 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_100
3883 , p6_a40 out nocopy JTF_NUMBER_TABLE
3884 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
3885 , p6_a42 out nocopy JTF_NUMBER_TABLE
3886 , p6_a43 out nocopy JTF_NUMBER_TABLE
3887 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_100
3888 , p6_a45 out nocopy JTF_NUMBER_TABLE
3889 , p6_a46 out nocopy JTF_NUMBER_TABLE
3890 , p6_a47 out nocopy JTF_DATE_TABLE
3891 , p6_a48 out nocopy JTF_NUMBER_TABLE
3892 , p6_a49 out nocopy JTF_NUMBER_TABLE
3893 , p6_a50 out nocopy JTF_NUMBER_TABLE
3894 , p6_a51 out nocopy JTF_DATE_TABLE
3895 , p6_a52 out nocopy JTF_NUMBER_TABLE
3896 , p6_a53 out nocopy JTF_DATE_TABLE
3897 , p6_a54 out nocopy JTF_NUMBER_TABLE
3898 , p6_a55 out nocopy JTF_NUMBER_TABLE
3899 , p6_a56 out nocopy JTF_NUMBER_TABLE
3900 , p6_a57 out nocopy JTF_NUMBER_TABLE
3901 )
3902
3903 as
3904 ddp_aelv_tbl okl_ael_pvt.aelv_tbl_type;
3905 ddx_aelv_tbl okl_ael_pvt.aelv_tbl_type;
3906 ddindx binary_integer; indx binary_integer;
3907 begin
3908
3909 -- copy data to the local IN or IN-OUT args, if any
3910
3911
3912
3913
3914
3915 okl_ael_pvt_w.rosetta_table_copy_in_p5(ddp_aelv_tbl, p5_a0
3916 , p5_a1
3917 , p5_a2
3918 , p5_a3
3919 , p5_a4
3920 , p5_a5
3921 , p5_a6
3922 , p5_a7
3923 , p5_a8
3924 , p5_a9
3925 , p5_a10
3926 , p5_a11
3927 , p5_a12
3928 , p5_a13
3929 , p5_a14
3930 , p5_a15
3931 , p5_a16
3932 , p5_a17
3933 , p5_a18
3934 , p5_a19
3935 , p5_a20
3936 , p5_a21
3937 , p5_a22
3938 , p5_a23
3939 , p5_a24
3940 , p5_a25
3941 , p5_a26
3942 , p5_a27
3943 , p5_a28
3944 , p5_a29
3945 , p5_a30
3946 , p5_a31
3947 , p5_a32
3948 , p5_a33
3949 , p5_a34
3950 , p5_a35
3951 , p5_a36
3952 , p5_a37
3953 , p5_a38
3954 , p5_a39
3955 , p5_a40
3956 , p5_a41
3957 , p5_a42
3958 , p5_a43
3959 , p5_a44
3960 , p5_a45
3961 , p5_a46
3962 , p5_a47
3963 , p5_a48
3964 , p5_a49
3965 , p5_a50
3966 , p5_a51
3967 , p5_a52
3968 , p5_a53
3969 , p5_a54
3970 , p5_a55
3971 , p5_a56
3972 , p5_a57
3973 );
3974
3975
3976 -- here's the delegated call to the old PL/SQL routine
3977 okl_ael_pvt.insert_row_perf(p_api_version,
3978 p_init_msg_list,
3979 x_return_status,
3980 x_msg_count,
3981 x_msg_data,
3982 ddp_aelv_tbl,
3983 ddx_aelv_tbl);
3984
3985 -- copy data back from the local variables to OUT or IN-OUT args, if any
3986
3987
3988
3989
3990
3991
3992 okl_ael_pvt_w.rosetta_table_copy_out_p5(ddx_aelv_tbl, p6_a0
3993 , p6_a1
3994 , p6_a2
3995 , p6_a3
3996 , p6_a4
3997 , p6_a5
3998 , p6_a6
3999 , p6_a7
4000 , p6_a8
4001 , p6_a9
4002 , p6_a10
4003 , p6_a11
4004 , p6_a12
4005 , p6_a13
4006 , p6_a14
4007 , p6_a15
4008 , p6_a16
4009 , p6_a17
4010 , p6_a18
4011 , p6_a19
4012 , p6_a20
4013 , p6_a21
4014 , p6_a22
4015 , p6_a23
4016 , p6_a24
4017 , p6_a25
4018 , p6_a26
4019 , p6_a27
4020 , p6_a28
4021 , p6_a29
4022 , p6_a30
4023 , p6_a31
4024 , p6_a32
4025 , p6_a33
4026 , p6_a34
4027 , p6_a35
4028 , p6_a36
4029 , p6_a37
4030 , p6_a38
4031 , p6_a39
4032 , p6_a40
4033 , p6_a41
4034 , p6_a42
4035 , p6_a43
4036 , p6_a44
4037 , p6_a45
4038 , p6_a46
4039 , p6_a47
4040 , p6_a48
4041 , p6_a49
4042 , p6_a50
4043 , p6_a51
4044 , p6_a52
4045 , p6_a53
4046 , p6_a54
4047 , p6_a55
4048 , p6_a56
4049 , p6_a57
4050 );
4051 end;
4052
4053 procedure lock_row(p_api_version NUMBER
4054 , p_init_msg_list VARCHAR2
4055 , x_return_status out nocopy VARCHAR2
4056 , x_msg_count out nocopy NUMBER
4057 , x_msg_data out nocopy VARCHAR2
4058 , p5_a0 NUMBER := 0-1962.0724
4059 , p5_a1 NUMBER := 0-1962.0724
4060 , p5_a2 NUMBER := 0-1962.0724
4061 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
4062 , p5_a4 NUMBER := 0-1962.0724
4063 , p5_a5 NUMBER := 0-1962.0724
4064 , p5_a6 NUMBER := 0-1962.0724
4065 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
4066 , p5_a8 DATE := fnd_api.g_miss_date
4067 , p5_a9 NUMBER := 0-1962.0724
4068 , p5_a10 NUMBER := 0-1962.0724
4069 , p5_a11 NUMBER := 0-1962.0724
4070 , p5_a12 NUMBER := 0-1962.0724
4071 , p5_a13 NUMBER := 0-1962.0724
4072 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
4073 , p5_a15 NUMBER := 0-1962.0724
4074 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
4075 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
4076 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
4077 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
4078 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
4079 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
4080 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
4081 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
4082 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
4083 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
4084 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
4085 , p5_a27 NUMBER := 0-1962.0724
4086 , p5_a28 NUMBER := 0-1962.0724
4087 , p5_a29 NUMBER := 0-1962.0724
4088 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
4089 , p5_a31 NUMBER := 0-1962.0724
4090 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
4091 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
4092 , p5_a34 NUMBER := 0-1962.0724
4093 , p5_a35 NUMBER := 0-1962.0724
4094 , p5_a36 NUMBER := 0-1962.0724
4095 , p5_a37 NUMBER := 0-1962.0724
4096 , p5_a38 NUMBER := 0-1962.0724
4097 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
4098 , p5_a40 NUMBER := 0-1962.0724
4099 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
4100 , p5_a42 NUMBER := 0-1962.0724
4101 , p5_a43 NUMBER := 0-1962.0724
4102 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
4103 , p5_a45 NUMBER := 0-1962.0724
4104 , p5_a46 NUMBER := 0-1962.0724
4105 , p5_a47 DATE := fnd_api.g_miss_date
4106 , p5_a48 NUMBER := 0-1962.0724
4107 , p5_a49 NUMBER := 0-1962.0724
4108 , p5_a50 NUMBER := 0-1962.0724
4109 , p5_a51 DATE := fnd_api.g_miss_date
4110 , p5_a52 NUMBER := 0-1962.0724
4111 , p5_a53 DATE := fnd_api.g_miss_date
4112 , p5_a54 NUMBER := 0-1962.0724
4113 , p5_a55 NUMBER := 0-1962.0724
4114 , p5_a56 NUMBER := 0-1962.0724
4115 , p5_a57 NUMBER := 0-1962.0724
4116 )
4117
4118 as
4119 ddp_aelv_rec okl_ael_pvt.aelv_rec_type;
4120 ddindx binary_integer; indx binary_integer;
4121 begin
4122
4123 -- copy data to the local IN or IN-OUT args, if any
4124
4125
4126
4127
4128
4129 ddp_aelv_rec.ae_line_id := rosetta_g_miss_num_map(p5_a0);
4130 ddp_aelv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
4131 ddp_aelv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a2);
4132 ddp_aelv_rec.currency_conversion_type := p5_a3;
4133 ddp_aelv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a4);
4134 ddp_aelv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
4135 ddp_aelv_rec.ae_line_number := rosetta_g_miss_num_map(p5_a6);
4136 ddp_aelv_rec.ae_line_type_code := p5_a7;
4137 ddp_aelv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a8);
4138 ddp_aelv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a9);
4139 ddp_aelv_rec.entered_dr := rosetta_g_miss_num_map(p5_a10);
4140 ddp_aelv_rec.entered_cr := rosetta_g_miss_num_map(p5_a11);
4141 ddp_aelv_rec.accounted_dr := rosetta_g_miss_num_map(p5_a12);
4142 ddp_aelv_rec.accounted_cr := rosetta_g_miss_num_map(p5_a13);
4143 ddp_aelv_rec.source_table := p5_a14;
4144 ddp_aelv_rec.source_id := rosetta_g_miss_num_map(p5_a15);
4145 ddp_aelv_rec.reference1 := p5_a16;
4146 ddp_aelv_rec.reference2 := p5_a17;
4147 ddp_aelv_rec.reference3 := p5_a18;
4148 ddp_aelv_rec.reference4 := p5_a19;
4149 ddp_aelv_rec.reference5 := p5_a20;
4150 ddp_aelv_rec.reference6 := p5_a21;
4151 ddp_aelv_rec.reference7 := p5_a22;
4152 ddp_aelv_rec.reference8 := p5_a23;
4153 ddp_aelv_rec.reference9 := p5_a24;
4154 ddp_aelv_rec.reference10 := p5_a25;
4155 ddp_aelv_rec.description := p5_a26;
4156 ddp_aelv_rec.third_party_id := rosetta_g_miss_num_map(p5_a27);
4157 ddp_aelv_rec.third_party_sub_id := rosetta_g_miss_num_map(p5_a28);
4158 ddp_aelv_rec.stat_amount := rosetta_g_miss_num_map(p5_a29);
4159 ddp_aelv_rec.ussgl_transaction_code := p5_a30;
4160 ddp_aelv_rec.subledger_doc_sequence_id := rosetta_g_miss_num_map(p5_a31);
4161 ddp_aelv_rec.accounting_error_code := p5_a32;
4162 ddp_aelv_rec.gl_transfer_error_code := p5_a33;
4163 ddp_aelv_rec.gl_sl_link_id := rosetta_g_miss_num_map(p5_a34);
4164 ddp_aelv_rec.taxable_entered_dr := rosetta_g_miss_num_map(p5_a35);
4165 ddp_aelv_rec.taxable_entered_cr := rosetta_g_miss_num_map(p5_a36);
4166 ddp_aelv_rec.taxable_accounted_dr := rosetta_g_miss_num_map(p5_a37);
4167 ddp_aelv_rec.taxable_accounted_cr := rosetta_g_miss_num_map(p5_a38);
4168 ddp_aelv_rec.applied_from_trx_hdr_table := p5_a39;
4169 ddp_aelv_rec.applied_from_trx_hdr_id := rosetta_g_miss_num_map(p5_a40);
4170 ddp_aelv_rec.applied_to_trx_hdr_table := p5_a41;
4171 ddp_aelv_rec.applied_to_trx_hdr_id := rosetta_g_miss_num_map(p5_a42);
4172 ddp_aelv_rec.tax_link_id := rosetta_g_miss_num_map(p5_a43);
4173 ddp_aelv_rec.currency_code := p5_a44;
4174 ddp_aelv_rec.program_id := rosetta_g_miss_num_map(p5_a45);
4175 ddp_aelv_rec.program_application_id := rosetta_g_miss_num_map(p5_a46);
4176 ddp_aelv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a47);
4177 ddp_aelv_rec.request_id := rosetta_g_miss_num_map(p5_a48);
4178 ddp_aelv_rec.aeh_tbl_index := rosetta_g_miss_num_map(p5_a49);
4179 ddp_aelv_rec.created_by := rosetta_g_miss_num_map(p5_a50);
4180 ddp_aelv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a51);
4181 ddp_aelv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a52);
4182 ddp_aelv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a53);
4183 ddp_aelv_rec.last_update_login := rosetta_g_miss_num_map(p5_a54);
4184 ddp_aelv_rec.account_overlay_source_id := rosetta_g_miss_num_map(p5_a55);
4185 ddp_aelv_rec.subledger_doc_sequence_value := rosetta_g_miss_num_map(p5_a56);
4186 ddp_aelv_rec.tax_code_id := rosetta_g_miss_num_map(p5_a57);
4187
4188 -- here's the delegated call to the old PL/SQL routine
4189 okl_ael_pvt.lock_row(p_api_version,
4190 p_init_msg_list,
4191 x_return_status,
4192 x_msg_count,
4193 x_msg_data,
4194 ddp_aelv_rec);
4195
4196 -- copy data back from the local variables to OUT or IN-OUT args, if any
4197
4198
4199
4200
4201
4202 end;
4203
4204 procedure lock_row(p_api_version NUMBER
4205 , p_init_msg_list VARCHAR2
4206 , x_return_status out nocopy VARCHAR2
4207 , x_msg_count out nocopy NUMBER
4208 , x_msg_data out nocopy VARCHAR2
4209 , p5_a0 JTF_NUMBER_TABLE
4210 , p5_a1 JTF_NUMBER_TABLE
4211 , p5_a2 JTF_NUMBER_TABLE
4212 , p5_a3 JTF_VARCHAR2_TABLE_100
4213 , p5_a4 JTF_NUMBER_TABLE
4214 , p5_a5 JTF_NUMBER_TABLE
4215 , p5_a6 JTF_NUMBER_TABLE
4216 , p5_a7 JTF_VARCHAR2_TABLE_100
4217 , p5_a8 JTF_DATE_TABLE
4218 , p5_a9 JTF_NUMBER_TABLE
4219 , p5_a10 JTF_NUMBER_TABLE
4220 , p5_a11 JTF_NUMBER_TABLE
4221 , p5_a12 JTF_NUMBER_TABLE
4222 , p5_a13 JTF_NUMBER_TABLE
4223 , p5_a14 JTF_VARCHAR2_TABLE_100
4224 , p5_a15 JTF_NUMBER_TABLE
4225 , p5_a16 JTF_VARCHAR2_TABLE_800
4226 , p5_a17 JTF_VARCHAR2_TABLE_800
4227 , p5_a18 JTF_VARCHAR2_TABLE_800
4228 , p5_a19 JTF_VARCHAR2_TABLE_800
4229 , p5_a20 JTF_VARCHAR2_TABLE_800
4230 , p5_a21 JTF_VARCHAR2_TABLE_800
4231 , p5_a22 JTF_VARCHAR2_TABLE_800
4232 , p5_a23 JTF_VARCHAR2_TABLE_800
4233 , p5_a24 JTF_VARCHAR2_TABLE_800
4234 , p5_a25 JTF_VARCHAR2_TABLE_800
4235 , p5_a26 JTF_VARCHAR2_TABLE_800
4236 , p5_a27 JTF_NUMBER_TABLE
4237 , p5_a28 JTF_NUMBER_TABLE
4238 , p5_a29 JTF_NUMBER_TABLE
4239 , p5_a30 JTF_VARCHAR2_TABLE_100
4240 , p5_a31 JTF_NUMBER_TABLE
4241 , p5_a32 JTF_VARCHAR2_TABLE_100
4242 , p5_a33 JTF_VARCHAR2_TABLE_100
4243 , p5_a34 JTF_NUMBER_TABLE
4244 , p5_a35 JTF_NUMBER_TABLE
4245 , p5_a36 JTF_NUMBER_TABLE
4246 , p5_a37 JTF_NUMBER_TABLE
4247 , p5_a38 JTF_NUMBER_TABLE
4248 , p5_a39 JTF_VARCHAR2_TABLE_100
4249 , p5_a40 JTF_NUMBER_TABLE
4250 , p5_a41 JTF_VARCHAR2_TABLE_100
4251 , p5_a42 JTF_NUMBER_TABLE
4252 , p5_a43 JTF_NUMBER_TABLE
4253 , p5_a44 JTF_VARCHAR2_TABLE_100
4254 , p5_a45 JTF_NUMBER_TABLE
4255 , p5_a46 JTF_NUMBER_TABLE
4256 , p5_a47 JTF_DATE_TABLE
4257 , p5_a48 JTF_NUMBER_TABLE
4258 , p5_a49 JTF_NUMBER_TABLE
4259 , p5_a50 JTF_NUMBER_TABLE
4260 , p5_a51 JTF_DATE_TABLE
4261 , p5_a52 JTF_NUMBER_TABLE
4262 , p5_a53 JTF_DATE_TABLE
4263 , p5_a54 JTF_NUMBER_TABLE
4264 , p5_a55 JTF_NUMBER_TABLE
4265 , p5_a56 JTF_NUMBER_TABLE
4266 , p5_a57 JTF_NUMBER_TABLE
4267 )
4268
4269 as
4270 ddp_aelv_tbl okl_ael_pvt.aelv_tbl_type;
4271 ddindx binary_integer; indx binary_integer;
4272 begin
4273
4274 -- copy data to the local IN or IN-OUT args, if any
4275
4276
4277
4278
4279
4280 okl_ael_pvt_w.rosetta_table_copy_in_p5(ddp_aelv_tbl, p5_a0
4281 , p5_a1
4282 , p5_a2
4283 , p5_a3
4284 , p5_a4
4285 , p5_a5
4286 , p5_a6
4287 , p5_a7
4288 , p5_a8
4289 , p5_a9
4290 , p5_a10
4291 , p5_a11
4292 , p5_a12
4293 , p5_a13
4294 , p5_a14
4295 , p5_a15
4296 , p5_a16
4297 , p5_a17
4298 , p5_a18
4299 , p5_a19
4300 , p5_a20
4301 , p5_a21
4302 , p5_a22
4303 , p5_a23
4304 , p5_a24
4305 , p5_a25
4306 , p5_a26
4307 , p5_a27
4308 , p5_a28
4309 , p5_a29
4310 , p5_a30
4311 , p5_a31
4312 , p5_a32
4313 , p5_a33
4314 , p5_a34
4315 , p5_a35
4316 , p5_a36
4317 , p5_a37
4318 , p5_a38
4319 , p5_a39
4320 , p5_a40
4321 , p5_a41
4322 , p5_a42
4323 , p5_a43
4324 , p5_a44
4325 , p5_a45
4326 , p5_a46
4327 , p5_a47
4328 , p5_a48
4329 , p5_a49
4330 , p5_a50
4331 , p5_a51
4332 , p5_a52
4333 , p5_a53
4334 , p5_a54
4335 , p5_a55
4336 , p5_a56
4337 , p5_a57
4338 );
4339
4340 -- here's the delegated call to the old PL/SQL routine
4341 okl_ael_pvt.lock_row(p_api_version,
4342 p_init_msg_list,
4343 x_return_status,
4344 x_msg_count,
4345 x_msg_data,
4346 ddp_aelv_tbl);
4347
4348 -- copy data back from the local variables to OUT or IN-OUT args, if any
4349
4350
4351
4352
4353
4354 end;
4355
4356 procedure update_row(p_api_version NUMBER
4357 , p_init_msg_list VARCHAR2
4358 , x_return_status out nocopy VARCHAR2
4359 , x_msg_count out nocopy NUMBER
4360 , x_msg_data out nocopy VARCHAR2
4361 , p6_a0 out nocopy NUMBER
4362 , p6_a1 out nocopy NUMBER
4363 , p6_a2 out nocopy NUMBER
4364 , p6_a3 out nocopy VARCHAR2
4365 , p6_a4 out nocopy NUMBER
4366 , p6_a5 out nocopy NUMBER
4367 , p6_a6 out nocopy NUMBER
4368 , p6_a7 out nocopy VARCHAR2
4369 , p6_a8 out nocopy DATE
4370 , p6_a9 out nocopy NUMBER
4371 , p6_a10 out nocopy NUMBER
4372 , p6_a11 out nocopy NUMBER
4373 , p6_a12 out nocopy NUMBER
4374 , p6_a13 out nocopy NUMBER
4375 , p6_a14 out nocopy VARCHAR2
4376 , p6_a15 out nocopy NUMBER
4377 , p6_a16 out nocopy VARCHAR2
4378 , p6_a17 out nocopy VARCHAR2
4379 , p6_a18 out nocopy VARCHAR2
4380 , p6_a19 out nocopy VARCHAR2
4381 , p6_a20 out nocopy VARCHAR2
4382 , p6_a21 out nocopy VARCHAR2
4383 , p6_a22 out nocopy VARCHAR2
4384 , p6_a23 out nocopy VARCHAR2
4385 , p6_a24 out nocopy VARCHAR2
4386 , p6_a25 out nocopy VARCHAR2
4387 , p6_a26 out nocopy VARCHAR2
4388 , p6_a27 out nocopy NUMBER
4389 , p6_a28 out nocopy NUMBER
4390 , p6_a29 out nocopy NUMBER
4391 , p6_a30 out nocopy VARCHAR2
4392 , p6_a31 out nocopy NUMBER
4393 , p6_a32 out nocopy VARCHAR2
4394 , p6_a33 out nocopy VARCHAR2
4395 , p6_a34 out nocopy NUMBER
4396 , p6_a35 out nocopy NUMBER
4397 , p6_a36 out nocopy NUMBER
4398 , p6_a37 out nocopy NUMBER
4399 , p6_a38 out nocopy NUMBER
4400 , p6_a39 out nocopy VARCHAR2
4401 , p6_a40 out nocopy NUMBER
4402 , p6_a41 out nocopy VARCHAR2
4403 , p6_a42 out nocopy NUMBER
4404 , p6_a43 out nocopy NUMBER
4405 , p6_a44 out nocopy VARCHAR2
4406 , p6_a45 out nocopy NUMBER
4407 , p6_a46 out nocopy NUMBER
4408 , p6_a47 out nocopy DATE
4409 , p6_a48 out nocopy NUMBER
4410 , p6_a49 out nocopy NUMBER
4411 , p6_a50 out nocopy NUMBER
4412 , p6_a51 out nocopy DATE
4413 , p6_a52 out nocopy NUMBER
4414 , p6_a53 out nocopy DATE
4415 , p6_a54 out nocopy NUMBER
4416 , p6_a55 out nocopy NUMBER
4417 , p6_a56 out nocopy NUMBER
4418 , p6_a57 out nocopy NUMBER
4419 , p5_a0 NUMBER := 0-1962.0724
4420 , p5_a1 NUMBER := 0-1962.0724
4421 , p5_a2 NUMBER := 0-1962.0724
4422 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
4423 , p5_a4 NUMBER := 0-1962.0724
4424 , p5_a5 NUMBER := 0-1962.0724
4425 , p5_a6 NUMBER := 0-1962.0724
4426 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
4427 , p5_a8 DATE := fnd_api.g_miss_date
4428 , p5_a9 NUMBER := 0-1962.0724
4429 , p5_a10 NUMBER := 0-1962.0724
4430 , p5_a11 NUMBER := 0-1962.0724
4431 , p5_a12 NUMBER := 0-1962.0724
4432 , p5_a13 NUMBER := 0-1962.0724
4433 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
4434 , p5_a15 NUMBER := 0-1962.0724
4435 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
4436 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
4437 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
4438 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
4439 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
4440 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
4441 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
4442 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
4443 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
4444 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
4445 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
4446 , p5_a27 NUMBER := 0-1962.0724
4447 , p5_a28 NUMBER := 0-1962.0724
4448 , p5_a29 NUMBER := 0-1962.0724
4449 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
4450 , p5_a31 NUMBER := 0-1962.0724
4451 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
4452 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
4453 , p5_a34 NUMBER := 0-1962.0724
4454 , p5_a35 NUMBER := 0-1962.0724
4455 , p5_a36 NUMBER := 0-1962.0724
4456 , p5_a37 NUMBER := 0-1962.0724
4457 , p5_a38 NUMBER := 0-1962.0724
4458 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
4459 , p5_a40 NUMBER := 0-1962.0724
4460 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
4461 , p5_a42 NUMBER := 0-1962.0724
4462 , p5_a43 NUMBER := 0-1962.0724
4463 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
4464 , p5_a45 NUMBER := 0-1962.0724
4465 , p5_a46 NUMBER := 0-1962.0724
4466 , p5_a47 DATE := fnd_api.g_miss_date
4467 , p5_a48 NUMBER := 0-1962.0724
4468 , p5_a49 NUMBER := 0-1962.0724
4469 , p5_a50 NUMBER := 0-1962.0724
4470 , p5_a51 DATE := fnd_api.g_miss_date
4471 , p5_a52 NUMBER := 0-1962.0724
4472 , p5_a53 DATE := fnd_api.g_miss_date
4473 , p5_a54 NUMBER := 0-1962.0724
4474 , p5_a55 NUMBER := 0-1962.0724
4475 , p5_a56 NUMBER := 0-1962.0724
4476 , p5_a57 NUMBER := 0-1962.0724
4477 )
4478
4479 as
4480 ddp_aelv_rec okl_ael_pvt.aelv_rec_type;
4481 ddx_aelv_rec okl_ael_pvt.aelv_rec_type;
4482 ddindx binary_integer; indx binary_integer;
4483 begin
4484
4485 -- copy data to the local IN or IN-OUT args, if any
4486
4487
4488
4489
4490
4491 ddp_aelv_rec.ae_line_id := rosetta_g_miss_num_map(p5_a0);
4492 ddp_aelv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
4493 ddp_aelv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a2);
4494 ddp_aelv_rec.currency_conversion_type := p5_a3;
4495 ddp_aelv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a4);
4496 ddp_aelv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
4497 ddp_aelv_rec.ae_line_number := rosetta_g_miss_num_map(p5_a6);
4498 ddp_aelv_rec.ae_line_type_code := p5_a7;
4499 ddp_aelv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a8);
4500 ddp_aelv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a9);
4501 ddp_aelv_rec.entered_dr := rosetta_g_miss_num_map(p5_a10);
4502 ddp_aelv_rec.entered_cr := rosetta_g_miss_num_map(p5_a11);
4503 ddp_aelv_rec.accounted_dr := rosetta_g_miss_num_map(p5_a12);
4504 ddp_aelv_rec.accounted_cr := rosetta_g_miss_num_map(p5_a13);
4505 ddp_aelv_rec.source_table := p5_a14;
4506 ddp_aelv_rec.source_id := rosetta_g_miss_num_map(p5_a15);
4507 ddp_aelv_rec.reference1 := p5_a16;
4508 ddp_aelv_rec.reference2 := p5_a17;
4509 ddp_aelv_rec.reference3 := p5_a18;
4510 ddp_aelv_rec.reference4 := p5_a19;
4511 ddp_aelv_rec.reference5 := p5_a20;
4512 ddp_aelv_rec.reference6 := p5_a21;
4513 ddp_aelv_rec.reference7 := p5_a22;
4514 ddp_aelv_rec.reference8 := p5_a23;
4515 ddp_aelv_rec.reference9 := p5_a24;
4516 ddp_aelv_rec.reference10 := p5_a25;
4517 ddp_aelv_rec.description := p5_a26;
4518 ddp_aelv_rec.third_party_id := rosetta_g_miss_num_map(p5_a27);
4519 ddp_aelv_rec.third_party_sub_id := rosetta_g_miss_num_map(p5_a28);
4520 ddp_aelv_rec.stat_amount := rosetta_g_miss_num_map(p5_a29);
4521 ddp_aelv_rec.ussgl_transaction_code := p5_a30;
4522 ddp_aelv_rec.subledger_doc_sequence_id := rosetta_g_miss_num_map(p5_a31);
4523 ddp_aelv_rec.accounting_error_code := p5_a32;
4524 ddp_aelv_rec.gl_transfer_error_code := p5_a33;
4525 ddp_aelv_rec.gl_sl_link_id := rosetta_g_miss_num_map(p5_a34);
4526 ddp_aelv_rec.taxable_entered_dr := rosetta_g_miss_num_map(p5_a35);
4527 ddp_aelv_rec.taxable_entered_cr := rosetta_g_miss_num_map(p5_a36);
4528 ddp_aelv_rec.taxable_accounted_dr := rosetta_g_miss_num_map(p5_a37);
4529 ddp_aelv_rec.taxable_accounted_cr := rosetta_g_miss_num_map(p5_a38);
4530 ddp_aelv_rec.applied_from_trx_hdr_table := p5_a39;
4531 ddp_aelv_rec.applied_from_trx_hdr_id := rosetta_g_miss_num_map(p5_a40);
4532 ddp_aelv_rec.applied_to_trx_hdr_table := p5_a41;
4533 ddp_aelv_rec.applied_to_trx_hdr_id := rosetta_g_miss_num_map(p5_a42);
4534 ddp_aelv_rec.tax_link_id := rosetta_g_miss_num_map(p5_a43);
4535 ddp_aelv_rec.currency_code := p5_a44;
4536 ddp_aelv_rec.program_id := rosetta_g_miss_num_map(p5_a45);
4537 ddp_aelv_rec.program_application_id := rosetta_g_miss_num_map(p5_a46);
4538 ddp_aelv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a47);
4539 ddp_aelv_rec.request_id := rosetta_g_miss_num_map(p5_a48);
4540 ddp_aelv_rec.aeh_tbl_index := rosetta_g_miss_num_map(p5_a49);
4541 ddp_aelv_rec.created_by := rosetta_g_miss_num_map(p5_a50);
4542 ddp_aelv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a51);
4543 ddp_aelv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a52);
4544 ddp_aelv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a53);
4545 ddp_aelv_rec.last_update_login := rosetta_g_miss_num_map(p5_a54);
4546 ddp_aelv_rec.account_overlay_source_id := rosetta_g_miss_num_map(p5_a55);
4547 ddp_aelv_rec.subledger_doc_sequence_value := rosetta_g_miss_num_map(p5_a56);
4548 ddp_aelv_rec.tax_code_id := rosetta_g_miss_num_map(p5_a57);
4549
4550
4551 -- here's the delegated call to the old PL/SQL routine
4552 okl_ael_pvt.update_row(p_api_version,
4553 p_init_msg_list,
4554 x_return_status,
4555 x_msg_count,
4556 x_msg_data,
4557 ddp_aelv_rec,
4558 ddx_aelv_rec);
4559
4560 -- copy data back from the local variables to OUT or IN-OUT args, if any
4561
4562
4563
4564
4565
4566
4567 p6_a0 := rosetta_g_miss_num_map(ddx_aelv_rec.ae_line_id);
4568 p6_a1 := rosetta_g_miss_num_map(ddx_aelv_rec.object_version_number);
4569 p6_a2 := rosetta_g_miss_num_map(ddx_aelv_rec.ae_header_id);
4570 p6_a3 := ddx_aelv_rec.currency_conversion_type;
4571 p6_a4 := rosetta_g_miss_num_map(ddx_aelv_rec.code_combination_id);
4572 p6_a5 := rosetta_g_miss_num_map(ddx_aelv_rec.org_id);
4573 p6_a6 := rosetta_g_miss_num_map(ddx_aelv_rec.ae_line_number);
4574 p6_a7 := ddx_aelv_rec.ae_line_type_code;
4575 p6_a8 := ddx_aelv_rec.currency_conversion_date;
4576 p6_a9 := rosetta_g_miss_num_map(ddx_aelv_rec.currency_conversion_rate);
4577 p6_a10 := rosetta_g_miss_num_map(ddx_aelv_rec.entered_dr);
4578 p6_a11 := rosetta_g_miss_num_map(ddx_aelv_rec.entered_cr);
4579 p6_a12 := rosetta_g_miss_num_map(ddx_aelv_rec.accounted_dr);
4580 p6_a13 := rosetta_g_miss_num_map(ddx_aelv_rec.accounted_cr);
4581 p6_a14 := ddx_aelv_rec.source_table;
4582 p6_a15 := rosetta_g_miss_num_map(ddx_aelv_rec.source_id);
4583 p6_a16 := ddx_aelv_rec.reference1;
4584 p6_a17 := ddx_aelv_rec.reference2;
4585 p6_a18 := ddx_aelv_rec.reference3;
4586 p6_a19 := ddx_aelv_rec.reference4;
4587 p6_a20 := ddx_aelv_rec.reference5;
4588 p6_a21 := ddx_aelv_rec.reference6;
4589 p6_a22 := ddx_aelv_rec.reference7;
4590 p6_a23 := ddx_aelv_rec.reference8;
4591 p6_a24 := ddx_aelv_rec.reference9;
4592 p6_a25 := ddx_aelv_rec.reference10;
4593 p6_a26 := ddx_aelv_rec.description;
4594 p6_a27 := rosetta_g_miss_num_map(ddx_aelv_rec.third_party_id);
4595 p6_a28 := rosetta_g_miss_num_map(ddx_aelv_rec.third_party_sub_id);
4596 p6_a29 := rosetta_g_miss_num_map(ddx_aelv_rec.stat_amount);
4597 p6_a30 := ddx_aelv_rec.ussgl_transaction_code;
4598 p6_a31 := rosetta_g_miss_num_map(ddx_aelv_rec.subledger_doc_sequence_id);
4599 p6_a32 := ddx_aelv_rec.accounting_error_code;
4600 p6_a33 := ddx_aelv_rec.gl_transfer_error_code;
4601 p6_a34 := rosetta_g_miss_num_map(ddx_aelv_rec.gl_sl_link_id);
4602 p6_a35 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_entered_dr);
4603 p6_a36 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_entered_cr);
4604 p6_a37 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_accounted_dr);
4605 p6_a38 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_accounted_cr);
4606 p6_a39 := ddx_aelv_rec.applied_from_trx_hdr_table;
4607 p6_a40 := rosetta_g_miss_num_map(ddx_aelv_rec.applied_from_trx_hdr_id);
4608 p6_a41 := ddx_aelv_rec.applied_to_trx_hdr_table;
4609 p6_a42 := rosetta_g_miss_num_map(ddx_aelv_rec.applied_to_trx_hdr_id);
4610 p6_a43 := rosetta_g_miss_num_map(ddx_aelv_rec.tax_link_id);
4611 p6_a44 := ddx_aelv_rec.currency_code;
4612 p6_a45 := rosetta_g_miss_num_map(ddx_aelv_rec.program_id);
4613 p6_a46 := rosetta_g_miss_num_map(ddx_aelv_rec.program_application_id);
4614 p6_a47 := ddx_aelv_rec.program_update_date;
4615 p6_a48 := rosetta_g_miss_num_map(ddx_aelv_rec.request_id);
4616 p6_a49 := rosetta_g_miss_num_map(ddx_aelv_rec.aeh_tbl_index);
4617 p6_a50 := rosetta_g_miss_num_map(ddx_aelv_rec.created_by);
4618 p6_a51 := ddx_aelv_rec.creation_date;
4619 p6_a52 := rosetta_g_miss_num_map(ddx_aelv_rec.last_updated_by);
4620 p6_a53 := ddx_aelv_rec.last_update_date;
4621 p6_a54 := rosetta_g_miss_num_map(ddx_aelv_rec.last_update_login);
4622 p6_a55 := rosetta_g_miss_num_map(ddx_aelv_rec.account_overlay_source_id);
4623 p6_a56 := rosetta_g_miss_num_map(ddx_aelv_rec.subledger_doc_sequence_value);
4624 p6_a57 := rosetta_g_miss_num_map(ddx_aelv_rec.tax_code_id);
4625 end;
4626
4627 procedure update_row(p_api_version NUMBER
4628 , p_init_msg_list VARCHAR2
4629 , x_return_status out nocopy VARCHAR2
4630 , x_msg_count out nocopy NUMBER
4631 , x_msg_data out nocopy VARCHAR2
4632 , p5_a0 JTF_NUMBER_TABLE
4633 , p5_a1 JTF_NUMBER_TABLE
4634 , p5_a2 JTF_NUMBER_TABLE
4635 , p5_a3 JTF_VARCHAR2_TABLE_100
4636 , p5_a4 JTF_NUMBER_TABLE
4637 , p5_a5 JTF_NUMBER_TABLE
4638 , p5_a6 JTF_NUMBER_TABLE
4639 , p5_a7 JTF_VARCHAR2_TABLE_100
4640 , p5_a8 JTF_DATE_TABLE
4641 , p5_a9 JTF_NUMBER_TABLE
4642 , p5_a10 JTF_NUMBER_TABLE
4643 , p5_a11 JTF_NUMBER_TABLE
4644 , p5_a12 JTF_NUMBER_TABLE
4645 , p5_a13 JTF_NUMBER_TABLE
4646 , p5_a14 JTF_VARCHAR2_TABLE_100
4647 , p5_a15 JTF_NUMBER_TABLE
4648 , p5_a16 JTF_VARCHAR2_TABLE_800
4649 , p5_a17 JTF_VARCHAR2_TABLE_800
4650 , p5_a18 JTF_VARCHAR2_TABLE_800
4651 , p5_a19 JTF_VARCHAR2_TABLE_800
4652 , p5_a20 JTF_VARCHAR2_TABLE_800
4653 , p5_a21 JTF_VARCHAR2_TABLE_800
4654 , p5_a22 JTF_VARCHAR2_TABLE_800
4655 , p5_a23 JTF_VARCHAR2_TABLE_800
4656 , p5_a24 JTF_VARCHAR2_TABLE_800
4657 , p5_a25 JTF_VARCHAR2_TABLE_800
4658 , p5_a26 JTF_VARCHAR2_TABLE_800
4659 , p5_a27 JTF_NUMBER_TABLE
4660 , p5_a28 JTF_NUMBER_TABLE
4661 , p5_a29 JTF_NUMBER_TABLE
4662 , p5_a30 JTF_VARCHAR2_TABLE_100
4663 , p5_a31 JTF_NUMBER_TABLE
4664 , p5_a32 JTF_VARCHAR2_TABLE_100
4665 , p5_a33 JTF_VARCHAR2_TABLE_100
4666 , p5_a34 JTF_NUMBER_TABLE
4667 , p5_a35 JTF_NUMBER_TABLE
4668 , p5_a36 JTF_NUMBER_TABLE
4669 , p5_a37 JTF_NUMBER_TABLE
4670 , p5_a38 JTF_NUMBER_TABLE
4671 , p5_a39 JTF_VARCHAR2_TABLE_100
4672 , p5_a40 JTF_NUMBER_TABLE
4673 , p5_a41 JTF_VARCHAR2_TABLE_100
4674 , p5_a42 JTF_NUMBER_TABLE
4675 , p5_a43 JTF_NUMBER_TABLE
4676 , p5_a44 JTF_VARCHAR2_TABLE_100
4677 , p5_a45 JTF_NUMBER_TABLE
4678 , p5_a46 JTF_NUMBER_TABLE
4679 , p5_a47 JTF_DATE_TABLE
4680 , p5_a48 JTF_NUMBER_TABLE
4681 , p5_a49 JTF_NUMBER_TABLE
4682 , p5_a50 JTF_NUMBER_TABLE
4683 , p5_a51 JTF_DATE_TABLE
4684 , p5_a52 JTF_NUMBER_TABLE
4685 , p5_a53 JTF_DATE_TABLE
4686 , p5_a54 JTF_NUMBER_TABLE
4687 , p5_a55 JTF_NUMBER_TABLE
4688 , p5_a56 JTF_NUMBER_TABLE
4689 , p5_a57 JTF_NUMBER_TABLE
4690 , p6_a0 out nocopy JTF_NUMBER_TABLE
4691 , p6_a1 out nocopy JTF_NUMBER_TABLE
4692 , p6_a2 out nocopy JTF_NUMBER_TABLE
4693 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
4694 , p6_a4 out nocopy JTF_NUMBER_TABLE
4695 , p6_a5 out nocopy JTF_NUMBER_TABLE
4696 , p6_a6 out nocopy JTF_NUMBER_TABLE
4697 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
4698 , p6_a8 out nocopy JTF_DATE_TABLE
4699 , p6_a9 out nocopy JTF_NUMBER_TABLE
4700 , p6_a10 out nocopy JTF_NUMBER_TABLE
4701 , p6_a11 out nocopy JTF_NUMBER_TABLE
4702 , p6_a12 out nocopy JTF_NUMBER_TABLE
4703 , p6_a13 out nocopy JTF_NUMBER_TABLE
4704 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
4705 , p6_a15 out nocopy JTF_NUMBER_TABLE
4706 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_800
4707 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_800
4708 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_800
4709 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_800
4710 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_800
4711 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_800
4712 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_800
4713 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_800
4714 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_800
4715 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_800
4716 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_800
4717 , p6_a27 out nocopy JTF_NUMBER_TABLE
4718 , p6_a28 out nocopy JTF_NUMBER_TABLE
4719 , p6_a29 out nocopy JTF_NUMBER_TABLE
4720 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
4721 , p6_a31 out nocopy JTF_NUMBER_TABLE
4722 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_100
4723 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_100
4724 , p6_a34 out nocopy JTF_NUMBER_TABLE
4725 , p6_a35 out nocopy JTF_NUMBER_TABLE
4726 , p6_a36 out nocopy JTF_NUMBER_TABLE
4727 , p6_a37 out nocopy JTF_NUMBER_TABLE
4728 , p6_a38 out nocopy JTF_NUMBER_TABLE
4729 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_100
4730 , p6_a40 out nocopy JTF_NUMBER_TABLE
4731 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
4732 , p6_a42 out nocopy JTF_NUMBER_TABLE
4733 , p6_a43 out nocopy JTF_NUMBER_TABLE
4734 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_100
4735 , p6_a45 out nocopy JTF_NUMBER_TABLE
4736 , p6_a46 out nocopy JTF_NUMBER_TABLE
4737 , p6_a47 out nocopy JTF_DATE_TABLE
4738 , p6_a48 out nocopy JTF_NUMBER_TABLE
4739 , p6_a49 out nocopy JTF_NUMBER_TABLE
4740 , p6_a50 out nocopy JTF_NUMBER_TABLE
4741 , p6_a51 out nocopy JTF_DATE_TABLE
4742 , p6_a52 out nocopy JTF_NUMBER_TABLE
4743 , p6_a53 out nocopy JTF_DATE_TABLE
4744 , p6_a54 out nocopy JTF_NUMBER_TABLE
4745 , p6_a55 out nocopy JTF_NUMBER_TABLE
4746 , p6_a56 out nocopy JTF_NUMBER_TABLE
4747 , p6_a57 out nocopy JTF_NUMBER_TABLE
4748 )
4749
4750 as
4751 ddp_aelv_tbl okl_ael_pvt.aelv_tbl_type;
4752 ddx_aelv_tbl okl_ael_pvt.aelv_tbl_type;
4753 ddindx binary_integer; indx binary_integer;
4754 begin
4755
4756 -- copy data to the local IN or IN-OUT args, if any
4757
4758
4759
4760
4761
4762 okl_ael_pvt_w.rosetta_table_copy_in_p5(ddp_aelv_tbl, p5_a0
4763 , p5_a1
4764 , p5_a2
4765 , p5_a3
4766 , p5_a4
4767 , p5_a5
4768 , p5_a6
4769 , p5_a7
4770 , p5_a8
4771 , p5_a9
4772 , p5_a10
4773 , p5_a11
4774 , p5_a12
4775 , p5_a13
4776 , p5_a14
4777 , p5_a15
4778 , p5_a16
4779 , p5_a17
4780 , p5_a18
4781 , p5_a19
4782 , p5_a20
4783 , p5_a21
4784 , p5_a22
4785 , p5_a23
4786 , p5_a24
4787 , p5_a25
4788 , p5_a26
4789 , p5_a27
4790 , p5_a28
4791 , p5_a29
4792 , p5_a30
4793 , p5_a31
4794 , p5_a32
4795 , p5_a33
4796 , p5_a34
4797 , p5_a35
4798 , p5_a36
4799 , p5_a37
4800 , p5_a38
4801 , p5_a39
4802 , p5_a40
4803 , p5_a41
4804 , p5_a42
4805 , p5_a43
4806 , p5_a44
4807 , p5_a45
4808 , p5_a46
4809 , p5_a47
4810 , p5_a48
4811 , p5_a49
4812 , p5_a50
4813 , p5_a51
4814 , p5_a52
4815 , p5_a53
4816 , p5_a54
4817 , p5_a55
4818 , p5_a56
4819 , p5_a57
4820 );
4821
4822
4823 -- here's the delegated call to the old PL/SQL routine
4824 okl_ael_pvt.update_row(p_api_version,
4825 p_init_msg_list,
4826 x_return_status,
4827 x_msg_count,
4828 x_msg_data,
4829 ddp_aelv_tbl,
4830 ddx_aelv_tbl);
4831
4832 -- copy data back from the local variables to OUT or IN-OUT args, if any
4833
4834
4835
4836
4837
4838
4839 okl_ael_pvt_w.rosetta_table_copy_out_p5(ddx_aelv_tbl, p6_a0
4840 , p6_a1
4841 , p6_a2
4842 , p6_a3
4843 , p6_a4
4844 , p6_a5
4845 , p6_a6
4846 , p6_a7
4847 , p6_a8
4848 , p6_a9
4849 , p6_a10
4850 , p6_a11
4851 , p6_a12
4852 , p6_a13
4853 , p6_a14
4854 , p6_a15
4855 , p6_a16
4856 , p6_a17
4857 , p6_a18
4858 , p6_a19
4859 , p6_a20
4860 , p6_a21
4861 , p6_a22
4862 , p6_a23
4863 , p6_a24
4864 , p6_a25
4865 , p6_a26
4866 , p6_a27
4867 , p6_a28
4868 , p6_a29
4869 , p6_a30
4870 , p6_a31
4871 , p6_a32
4872 , p6_a33
4873 , p6_a34
4874 , p6_a35
4875 , p6_a36
4876 , p6_a37
4877 , p6_a38
4878 , p6_a39
4879 , p6_a40
4880 , p6_a41
4881 , p6_a42
4882 , p6_a43
4883 , p6_a44
4884 , p6_a45
4885 , p6_a46
4886 , p6_a47
4887 , p6_a48
4888 , p6_a49
4889 , p6_a50
4890 , p6_a51
4891 , p6_a52
4892 , p6_a53
4893 , p6_a54
4894 , p6_a55
4895 , p6_a56
4896 , p6_a57
4897 );
4898 end;
4899
4900 procedure delete_row(p_api_version NUMBER
4901 , p_init_msg_list VARCHAR2
4902 , x_return_status out nocopy VARCHAR2
4903 , x_msg_count out nocopy NUMBER
4904 , x_msg_data out nocopy VARCHAR2
4905 , p5_a0 NUMBER := 0-1962.0724
4906 , p5_a1 NUMBER := 0-1962.0724
4907 , p5_a2 NUMBER := 0-1962.0724
4908 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
4909 , p5_a4 NUMBER := 0-1962.0724
4910 , p5_a5 NUMBER := 0-1962.0724
4911 , p5_a6 NUMBER := 0-1962.0724
4912 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
4913 , p5_a8 DATE := fnd_api.g_miss_date
4914 , p5_a9 NUMBER := 0-1962.0724
4915 , p5_a10 NUMBER := 0-1962.0724
4916 , p5_a11 NUMBER := 0-1962.0724
4917 , p5_a12 NUMBER := 0-1962.0724
4918 , p5_a13 NUMBER := 0-1962.0724
4919 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
4920 , p5_a15 NUMBER := 0-1962.0724
4921 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
4922 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
4923 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
4924 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
4925 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
4926 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
4927 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
4928 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
4929 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
4930 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
4931 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
4932 , p5_a27 NUMBER := 0-1962.0724
4933 , p5_a28 NUMBER := 0-1962.0724
4934 , p5_a29 NUMBER := 0-1962.0724
4935 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
4936 , p5_a31 NUMBER := 0-1962.0724
4937 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
4938 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
4939 , p5_a34 NUMBER := 0-1962.0724
4940 , p5_a35 NUMBER := 0-1962.0724
4941 , p5_a36 NUMBER := 0-1962.0724
4942 , p5_a37 NUMBER := 0-1962.0724
4943 , p5_a38 NUMBER := 0-1962.0724
4944 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
4945 , p5_a40 NUMBER := 0-1962.0724
4946 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
4947 , p5_a42 NUMBER := 0-1962.0724
4948 , p5_a43 NUMBER := 0-1962.0724
4949 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
4950 , p5_a45 NUMBER := 0-1962.0724
4951 , p5_a46 NUMBER := 0-1962.0724
4952 , p5_a47 DATE := fnd_api.g_miss_date
4953 , p5_a48 NUMBER := 0-1962.0724
4954 , p5_a49 NUMBER := 0-1962.0724
4955 , p5_a50 NUMBER := 0-1962.0724
4956 , p5_a51 DATE := fnd_api.g_miss_date
4957 , p5_a52 NUMBER := 0-1962.0724
4958 , p5_a53 DATE := fnd_api.g_miss_date
4959 , p5_a54 NUMBER := 0-1962.0724
4960 , p5_a55 NUMBER := 0-1962.0724
4961 , p5_a56 NUMBER := 0-1962.0724
4962 , p5_a57 NUMBER := 0-1962.0724
4963 )
4964
4965 as
4966 ddp_aelv_rec okl_ael_pvt.aelv_rec_type;
4967 ddindx binary_integer; indx binary_integer;
4968 begin
4969
4970 -- copy data to the local IN or IN-OUT args, if any
4971
4972
4973
4974
4975
4976 ddp_aelv_rec.ae_line_id := rosetta_g_miss_num_map(p5_a0);
4977 ddp_aelv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
4978 ddp_aelv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a2);
4979 ddp_aelv_rec.currency_conversion_type := p5_a3;
4980 ddp_aelv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a4);
4981 ddp_aelv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
4982 ddp_aelv_rec.ae_line_number := rosetta_g_miss_num_map(p5_a6);
4983 ddp_aelv_rec.ae_line_type_code := p5_a7;
4984 ddp_aelv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a8);
4985 ddp_aelv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a9);
4986 ddp_aelv_rec.entered_dr := rosetta_g_miss_num_map(p5_a10);
4987 ddp_aelv_rec.entered_cr := rosetta_g_miss_num_map(p5_a11);
4988 ddp_aelv_rec.accounted_dr := rosetta_g_miss_num_map(p5_a12);
4989 ddp_aelv_rec.accounted_cr := rosetta_g_miss_num_map(p5_a13);
4990 ddp_aelv_rec.source_table := p5_a14;
4991 ddp_aelv_rec.source_id := rosetta_g_miss_num_map(p5_a15);
4992 ddp_aelv_rec.reference1 := p5_a16;
4993 ddp_aelv_rec.reference2 := p5_a17;
4994 ddp_aelv_rec.reference3 := p5_a18;
4995 ddp_aelv_rec.reference4 := p5_a19;
4996 ddp_aelv_rec.reference5 := p5_a20;
4997 ddp_aelv_rec.reference6 := p5_a21;
4998 ddp_aelv_rec.reference7 := p5_a22;
4999 ddp_aelv_rec.reference8 := p5_a23;
5000 ddp_aelv_rec.reference9 := p5_a24;
5001 ddp_aelv_rec.reference10 := p5_a25;
5002 ddp_aelv_rec.description := p5_a26;
5003 ddp_aelv_rec.third_party_id := rosetta_g_miss_num_map(p5_a27);
5004 ddp_aelv_rec.third_party_sub_id := rosetta_g_miss_num_map(p5_a28);
5005 ddp_aelv_rec.stat_amount := rosetta_g_miss_num_map(p5_a29);
5006 ddp_aelv_rec.ussgl_transaction_code := p5_a30;
5007 ddp_aelv_rec.subledger_doc_sequence_id := rosetta_g_miss_num_map(p5_a31);
5008 ddp_aelv_rec.accounting_error_code := p5_a32;
5009 ddp_aelv_rec.gl_transfer_error_code := p5_a33;
5010 ddp_aelv_rec.gl_sl_link_id := rosetta_g_miss_num_map(p5_a34);
5011 ddp_aelv_rec.taxable_entered_dr := rosetta_g_miss_num_map(p5_a35);
5012 ddp_aelv_rec.taxable_entered_cr := rosetta_g_miss_num_map(p5_a36);
5013 ddp_aelv_rec.taxable_accounted_dr := rosetta_g_miss_num_map(p5_a37);
5014 ddp_aelv_rec.taxable_accounted_cr := rosetta_g_miss_num_map(p5_a38);
5015 ddp_aelv_rec.applied_from_trx_hdr_table := p5_a39;
5016 ddp_aelv_rec.applied_from_trx_hdr_id := rosetta_g_miss_num_map(p5_a40);
5017 ddp_aelv_rec.applied_to_trx_hdr_table := p5_a41;
5018 ddp_aelv_rec.applied_to_trx_hdr_id := rosetta_g_miss_num_map(p5_a42);
5019 ddp_aelv_rec.tax_link_id := rosetta_g_miss_num_map(p5_a43);
5020 ddp_aelv_rec.currency_code := p5_a44;
5021 ddp_aelv_rec.program_id := rosetta_g_miss_num_map(p5_a45);
5022 ddp_aelv_rec.program_application_id := rosetta_g_miss_num_map(p5_a46);
5023 ddp_aelv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a47);
5024 ddp_aelv_rec.request_id := rosetta_g_miss_num_map(p5_a48);
5025 ddp_aelv_rec.aeh_tbl_index := rosetta_g_miss_num_map(p5_a49);
5026 ddp_aelv_rec.created_by := rosetta_g_miss_num_map(p5_a50);
5027 ddp_aelv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a51);
5028 ddp_aelv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a52);
5029 ddp_aelv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a53);
5030 ddp_aelv_rec.last_update_login := rosetta_g_miss_num_map(p5_a54);
5031 ddp_aelv_rec.account_overlay_source_id := rosetta_g_miss_num_map(p5_a55);
5032 ddp_aelv_rec.subledger_doc_sequence_value := rosetta_g_miss_num_map(p5_a56);
5033 ddp_aelv_rec.tax_code_id := rosetta_g_miss_num_map(p5_a57);
5034
5035 -- here's the delegated call to the old PL/SQL routine
5036 okl_ael_pvt.delete_row(p_api_version,
5037 p_init_msg_list,
5038 x_return_status,
5039 x_msg_count,
5040 x_msg_data,
5041 ddp_aelv_rec);
5042
5043 -- copy data back from the local variables to OUT or IN-OUT args, if any
5044
5045
5046
5047
5048
5049 end;
5050
5051 procedure delete_row(p_api_version NUMBER
5052 , p_init_msg_list VARCHAR2
5053 , x_return_status out nocopy VARCHAR2
5054 , x_msg_count out nocopy NUMBER
5055 , x_msg_data out nocopy VARCHAR2
5056 , p5_a0 JTF_NUMBER_TABLE
5057 , p5_a1 JTF_NUMBER_TABLE
5058 , p5_a2 JTF_NUMBER_TABLE
5059 , p5_a3 JTF_VARCHAR2_TABLE_100
5060 , p5_a4 JTF_NUMBER_TABLE
5061 , p5_a5 JTF_NUMBER_TABLE
5062 , p5_a6 JTF_NUMBER_TABLE
5063 , p5_a7 JTF_VARCHAR2_TABLE_100
5064 , p5_a8 JTF_DATE_TABLE
5065 , p5_a9 JTF_NUMBER_TABLE
5066 , p5_a10 JTF_NUMBER_TABLE
5067 , p5_a11 JTF_NUMBER_TABLE
5068 , p5_a12 JTF_NUMBER_TABLE
5069 , p5_a13 JTF_NUMBER_TABLE
5070 , p5_a14 JTF_VARCHAR2_TABLE_100
5071 , p5_a15 JTF_NUMBER_TABLE
5072 , p5_a16 JTF_VARCHAR2_TABLE_800
5073 , p5_a17 JTF_VARCHAR2_TABLE_800
5074 , p5_a18 JTF_VARCHAR2_TABLE_800
5075 , p5_a19 JTF_VARCHAR2_TABLE_800
5076 , p5_a20 JTF_VARCHAR2_TABLE_800
5077 , p5_a21 JTF_VARCHAR2_TABLE_800
5078 , p5_a22 JTF_VARCHAR2_TABLE_800
5079 , p5_a23 JTF_VARCHAR2_TABLE_800
5080 , p5_a24 JTF_VARCHAR2_TABLE_800
5081 , p5_a25 JTF_VARCHAR2_TABLE_800
5082 , p5_a26 JTF_VARCHAR2_TABLE_800
5083 , p5_a27 JTF_NUMBER_TABLE
5084 , p5_a28 JTF_NUMBER_TABLE
5085 , p5_a29 JTF_NUMBER_TABLE
5086 , p5_a30 JTF_VARCHAR2_TABLE_100
5087 , p5_a31 JTF_NUMBER_TABLE
5088 , p5_a32 JTF_VARCHAR2_TABLE_100
5089 , p5_a33 JTF_VARCHAR2_TABLE_100
5090 , p5_a34 JTF_NUMBER_TABLE
5091 , p5_a35 JTF_NUMBER_TABLE
5092 , p5_a36 JTF_NUMBER_TABLE
5093 , p5_a37 JTF_NUMBER_TABLE
5094 , p5_a38 JTF_NUMBER_TABLE
5095 , p5_a39 JTF_VARCHAR2_TABLE_100
5096 , p5_a40 JTF_NUMBER_TABLE
5097 , p5_a41 JTF_VARCHAR2_TABLE_100
5098 , p5_a42 JTF_NUMBER_TABLE
5099 , p5_a43 JTF_NUMBER_TABLE
5100 , p5_a44 JTF_VARCHAR2_TABLE_100
5101 , p5_a45 JTF_NUMBER_TABLE
5102 , p5_a46 JTF_NUMBER_TABLE
5103 , p5_a47 JTF_DATE_TABLE
5104 , p5_a48 JTF_NUMBER_TABLE
5105 , p5_a49 JTF_NUMBER_TABLE
5106 , p5_a50 JTF_NUMBER_TABLE
5107 , p5_a51 JTF_DATE_TABLE
5108 , p5_a52 JTF_NUMBER_TABLE
5109 , p5_a53 JTF_DATE_TABLE
5110 , p5_a54 JTF_NUMBER_TABLE
5111 , p5_a55 JTF_NUMBER_TABLE
5112 , p5_a56 JTF_NUMBER_TABLE
5113 , p5_a57 JTF_NUMBER_TABLE
5114 )
5115
5116 as
5117 ddp_aelv_tbl okl_ael_pvt.aelv_tbl_type;
5118 ddindx binary_integer; indx binary_integer;
5119 begin
5120
5121 -- copy data to the local IN or IN-OUT args, if any
5122
5123
5124
5125
5126
5127 okl_ael_pvt_w.rosetta_table_copy_in_p5(ddp_aelv_tbl, p5_a0
5128 , p5_a1
5129 , p5_a2
5130 , p5_a3
5131 , p5_a4
5132 , p5_a5
5133 , p5_a6
5134 , p5_a7
5135 , p5_a8
5136 , p5_a9
5137 , p5_a10
5138 , p5_a11
5139 , p5_a12
5140 , p5_a13
5141 , p5_a14
5142 , p5_a15
5143 , p5_a16
5144 , p5_a17
5145 , p5_a18
5146 , p5_a19
5147 , p5_a20
5148 , p5_a21
5149 , p5_a22
5150 , p5_a23
5151 , p5_a24
5152 , p5_a25
5153 , p5_a26
5154 , p5_a27
5155 , p5_a28
5156 , p5_a29
5157 , p5_a30
5158 , p5_a31
5159 , p5_a32
5160 , p5_a33
5161 , p5_a34
5162 , p5_a35
5163 , p5_a36
5164 , p5_a37
5165 , p5_a38
5166 , p5_a39
5167 , p5_a40
5168 , p5_a41
5169 , p5_a42
5170 , p5_a43
5171 , p5_a44
5172 , p5_a45
5173 , p5_a46
5174 , p5_a47
5175 , p5_a48
5176 , p5_a49
5177 , p5_a50
5178 , p5_a51
5179 , p5_a52
5180 , p5_a53
5181 , p5_a54
5182 , p5_a55
5183 , p5_a56
5184 , p5_a57
5185 );
5186
5187 -- here's the delegated call to the old PL/SQL routine
5188 okl_ael_pvt.delete_row(p_api_version,
5189 p_init_msg_list,
5190 x_return_status,
5191 x_msg_count,
5192 x_msg_data,
5193 ddp_aelv_tbl);
5194
5195 -- copy data back from the local variables to OUT or IN-OUT args, if any
5196
5197
5198
5199
5200
5201 end;
5202
5203 procedure validate_row(p_api_version NUMBER
5204 , p_init_msg_list VARCHAR2
5205 , x_return_status out nocopy VARCHAR2
5206 , x_msg_count out nocopy NUMBER
5207 , x_msg_data out nocopy VARCHAR2
5208 , p5_a0 NUMBER := 0-1962.0724
5209 , p5_a1 NUMBER := 0-1962.0724
5210 , p5_a2 NUMBER := 0-1962.0724
5211 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
5212 , p5_a4 NUMBER := 0-1962.0724
5213 , p5_a5 NUMBER := 0-1962.0724
5214 , p5_a6 NUMBER := 0-1962.0724
5215 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
5216 , p5_a8 DATE := fnd_api.g_miss_date
5217 , p5_a9 NUMBER := 0-1962.0724
5218 , p5_a10 NUMBER := 0-1962.0724
5219 , p5_a11 NUMBER := 0-1962.0724
5220 , p5_a12 NUMBER := 0-1962.0724
5221 , p5_a13 NUMBER := 0-1962.0724
5222 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
5223 , p5_a15 NUMBER := 0-1962.0724
5224 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
5225 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
5226 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
5227 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
5228 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
5229 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
5230 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
5231 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
5232 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
5233 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
5234 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
5235 , p5_a27 NUMBER := 0-1962.0724
5236 , p5_a28 NUMBER := 0-1962.0724
5237 , p5_a29 NUMBER := 0-1962.0724
5238 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
5239 , p5_a31 NUMBER := 0-1962.0724
5240 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
5241 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
5242 , p5_a34 NUMBER := 0-1962.0724
5243 , p5_a35 NUMBER := 0-1962.0724
5244 , p5_a36 NUMBER := 0-1962.0724
5245 , p5_a37 NUMBER := 0-1962.0724
5246 , p5_a38 NUMBER := 0-1962.0724
5247 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
5248 , p5_a40 NUMBER := 0-1962.0724
5249 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
5250 , p5_a42 NUMBER := 0-1962.0724
5251 , p5_a43 NUMBER := 0-1962.0724
5252 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
5253 , p5_a45 NUMBER := 0-1962.0724
5254 , p5_a46 NUMBER := 0-1962.0724
5255 , p5_a47 DATE := fnd_api.g_miss_date
5256 , p5_a48 NUMBER := 0-1962.0724
5257 , p5_a49 NUMBER := 0-1962.0724
5258 , p5_a50 NUMBER := 0-1962.0724
5259 , p5_a51 DATE := fnd_api.g_miss_date
5260 , p5_a52 NUMBER := 0-1962.0724
5261 , p5_a53 DATE := fnd_api.g_miss_date
5262 , p5_a54 NUMBER := 0-1962.0724
5263 , p5_a55 NUMBER := 0-1962.0724
5264 , p5_a56 NUMBER := 0-1962.0724
5265 , p5_a57 NUMBER := 0-1962.0724
5266 )
5267
5268 as
5269 ddp_aelv_rec okl_ael_pvt.aelv_rec_type;
5270 ddindx binary_integer; indx binary_integer;
5271 begin
5272
5273 -- copy data to the local IN or IN-OUT args, if any
5274
5275
5276
5277
5278
5279 ddp_aelv_rec.ae_line_id := rosetta_g_miss_num_map(p5_a0);
5280 ddp_aelv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
5281 ddp_aelv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a2);
5282 ddp_aelv_rec.currency_conversion_type := p5_a3;
5283 ddp_aelv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a4);
5284 ddp_aelv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
5285 ddp_aelv_rec.ae_line_number := rosetta_g_miss_num_map(p5_a6);
5286 ddp_aelv_rec.ae_line_type_code := p5_a7;
5287 ddp_aelv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a8);
5288 ddp_aelv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a9);
5289 ddp_aelv_rec.entered_dr := rosetta_g_miss_num_map(p5_a10);
5290 ddp_aelv_rec.entered_cr := rosetta_g_miss_num_map(p5_a11);
5291 ddp_aelv_rec.accounted_dr := rosetta_g_miss_num_map(p5_a12);
5292 ddp_aelv_rec.accounted_cr := rosetta_g_miss_num_map(p5_a13);
5293 ddp_aelv_rec.source_table := p5_a14;
5294 ddp_aelv_rec.source_id := rosetta_g_miss_num_map(p5_a15);
5295 ddp_aelv_rec.reference1 := p5_a16;
5296 ddp_aelv_rec.reference2 := p5_a17;
5297 ddp_aelv_rec.reference3 := p5_a18;
5298 ddp_aelv_rec.reference4 := p5_a19;
5299 ddp_aelv_rec.reference5 := p5_a20;
5300 ddp_aelv_rec.reference6 := p5_a21;
5301 ddp_aelv_rec.reference7 := p5_a22;
5302 ddp_aelv_rec.reference8 := p5_a23;
5303 ddp_aelv_rec.reference9 := p5_a24;
5304 ddp_aelv_rec.reference10 := p5_a25;
5305 ddp_aelv_rec.description := p5_a26;
5306 ddp_aelv_rec.third_party_id := rosetta_g_miss_num_map(p5_a27);
5307 ddp_aelv_rec.third_party_sub_id := rosetta_g_miss_num_map(p5_a28);
5308 ddp_aelv_rec.stat_amount := rosetta_g_miss_num_map(p5_a29);
5309 ddp_aelv_rec.ussgl_transaction_code := p5_a30;
5310 ddp_aelv_rec.subledger_doc_sequence_id := rosetta_g_miss_num_map(p5_a31);
5311 ddp_aelv_rec.accounting_error_code := p5_a32;
5312 ddp_aelv_rec.gl_transfer_error_code := p5_a33;
5313 ddp_aelv_rec.gl_sl_link_id := rosetta_g_miss_num_map(p5_a34);
5314 ddp_aelv_rec.taxable_entered_dr := rosetta_g_miss_num_map(p5_a35);
5315 ddp_aelv_rec.taxable_entered_cr := rosetta_g_miss_num_map(p5_a36);
5316 ddp_aelv_rec.taxable_accounted_dr := rosetta_g_miss_num_map(p5_a37);
5317 ddp_aelv_rec.taxable_accounted_cr := rosetta_g_miss_num_map(p5_a38);
5318 ddp_aelv_rec.applied_from_trx_hdr_table := p5_a39;
5319 ddp_aelv_rec.applied_from_trx_hdr_id := rosetta_g_miss_num_map(p5_a40);
5320 ddp_aelv_rec.applied_to_trx_hdr_table := p5_a41;
5321 ddp_aelv_rec.applied_to_trx_hdr_id := rosetta_g_miss_num_map(p5_a42);
5322 ddp_aelv_rec.tax_link_id := rosetta_g_miss_num_map(p5_a43);
5323 ddp_aelv_rec.currency_code := p5_a44;
5324 ddp_aelv_rec.program_id := rosetta_g_miss_num_map(p5_a45);
5325 ddp_aelv_rec.program_application_id := rosetta_g_miss_num_map(p5_a46);
5326 ddp_aelv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a47);
5327 ddp_aelv_rec.request_id := rosetta_g_miss_num_map(p5_a48);
5328 ddp_aelv_rec.aeh_tbl_index := rosetta_g_miss_num_map(p5_a49);
5329 ddp_aelv_rec.created_by := rosetta_g_miss_num_map(p5_a50);
5330 ddp_aelv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a51);
5331 ddp_aelv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a52);
5332 ddp_aelv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a53);
5333 ddp_aelv_rec.last_update_login := rosetta_g_miss_num_map(p5_a54);
5334 ddp_aelv_rec.account_overlay_source_id := rosetta_g_miss_num_map(p5_a55);
5335 ddp_aelv_rec.subledger_doc_sequence_value := rosetta_g_miss_num_map(p5_a56);
5336 ddp_aelv_rec.tax_code_id := rosetta_g_miss_num_map(p5_a57);
5337
5338 -- here's the delegated call to the old PL/SQL routine
5339 okl_ael_pvt.validate_row(p_api_version,
5340 p_init_msg_list,
5341 x_return_status,
5342 x_msg_count,
5343 x_msg_data,
5344 ddp_aelv_rec);
5345
5346 -- copy data back from the local variables to OUT or IN-OUT args, if any
5347
5348
5349
5350
5351
5352 end;
5353
5354 procedure validate_row(p_api_version NUMBER
5355 , p_init_msg_list VARCHAR2
5356 , x_return_status out nocopy VARCHAR2
5357 , x_msg_count out nocopy NUMBER
5358 , x_msg_data out nocopy VARCHAR2
5359 , p5_a0 JTF_NUMBER_TABLE
5360 , p5_a1 JTF_NUMBER_TABLE
5361 , p5_a2 JTF_NUMBER_TABLE
5362 , p5_a3 JTF_VARCHAR2_TABLE_100
5363 , p5_a4 JTF_NUMBER_TABLE
5364 , p5_a5 JTF_NUMBER_TABLE
5365 , p5_a6 JTF_NUMBER_TABLE
5366 , p5_a7 JTF_VARCHAR2_TABLE_100
5367 , p5_a8 JTF_DATE_TABLE
5368 , p5_a9 JTF_NUMBER_TABLE
5369 , p5_a10 JTF_NUMBER_TABLE
5370 , p5_a11 JTF_NUMBER_TABLE
5371 , p5_a12 JTF_NUMBER_TABLE
5372 , p5_a13 JTF_NUMBER_TABLE
5373 , p5_a14 JTF_VARCHAR2_TABLE_100
5374 , p5_a15 JTF_NUMBER_TABLE
5375 , p5_a16 JTF_VARCHAR2_TABLE_800
5376 , p5_a17 JTF_VARCHAR2_TABLE_800
5377 , p5_a18 JTF_VARCHAR2_TABLE_800
5378 , p5_a19 JTF_VARCHAR2_TABLE_800
5379 , p5_a20 JTF_VARCHAR2_TABLE_800
5380 , p5_a21 JTF_VARCHAR2_TABLE_800
5381 , p5_a22 JTF_VARCHAR2_TABLE_800
5382 , p5_a23 JTF_VARCHAR2_TABLE_800
5383 , p5_a24 JTF_VARCHAR2_TABLE_800
5384 , p5_a25 JTF_VARCHAR2_TABLE_800
5385 , p5_a26 JTF_VARCHAR2_TABLE_800
5386 , p5_a27 JTF_NUMBER_TABLE
5387 , p5_a28 JTF_NUMBER_TABLE
5388 , p5_a29 JTF_NUMBER_TABLE
5389 , p5_a30 JTF_VARCHAR2_TABLE_100
5390 , p5_a31 JTF_NUMBER_TABLE
5391 , p5_a32 JTF_VARCHAR2_TABLE_100
5392 , p5_a33 JTF_VARCHAR2_TABLE_100
5393 , p5_a34 JTF_NUMBER_TABLE
5394 , p5_a35 JTF_NUMBER_TABLE
5395 , p5_a36 JTF_NUMBER_TABLE
5396 , p5_a37 JTF_NUMBER_TABLE
5397 , p5_a38 JTF_NUMBER_TABLE
5398 , p5_a39 JTF_VARCHAR2_TABLE_100
5399 , p5_a40 JTF_NUMBER_TABLE
5400 , p5_a41 JTF_VARCHAR2_TABLE_100
5401 , p5_a42 JTF_NUMBER_TABLE
5402 , p5_a43 JTF_NUMBER_TABLE
5403 , p5_a44 JTF_VARCHAR2_TABLE_100
5404 , p5_a45 JTF_NUMBER_TABLE
5405 , p5_a46 JTF_NUMBER_TABLE
5406 , p5_a47 JTF_DATE_TABLE
5407 , p5_a48 JTF_NUMBER_TABLE
5408 , p5_a49 JTF_NUMBER_TABLE
5409 , p5_a50 JTF_NUMBER_TABLE
5410 , p5_a51 JTF_DATE_TABLE
5411 , p5_a52 JTF_NUMBER_TABLE
5412 , p5_a53 JTF_DATE_TABLE
5413 , p5_a54 JTF_NUMBER_TABLE
5414 , p5_a55 JTF_NUMBER_TABLE
5415 , p5_a56 JTF_NUMBER_TABLE
5416 , p5_a57 JTF_NUMBER_TABLE
5417 )
5418
5419 as
5420 ddp_aelv_tbl okl_ael_pvt.aelv_tbl_type;
5421 ddindx binary_integer; indx binary_integer;
5422 begin
5423
5424 -- copy data to the local IN or IN-OUT args, if any
5425
5426
5427
5428
5429
5430 okl_ael_pvt_w.rosetta_table_copy_in_p5(ddp_aelv_tbl, p5_a0
5431 , p5_a1
5432 , p5_a2
5433 , p5_a3
5434 , p5_a4
5435 , p5_a5
5436 , p5_a6
5437 , p5_a7
5438 , p5_a8
5439 , p5_a9
5440 , p5_a10
5441 , p5_a11
5442 , p5_a12
5443 , p5_a13
5444 , p5_a14
5445 , p5_a15
5446 , p5_a16
5447 , p5_a17
5448 , p5_a18
5449 , p5_a19
5450 , p5_a20
5451 , p5_a21
5452 , p5_a22
5453 , p5_a23
5454 , p5_a24
5455 , p5_a25
5456 , p5_a26
5457 , p5_a27
5458 , p5_a28
5459 , p5_a29
5460 , p5_a30
5461 , p5_a31
5462 , p5_a32
5463 , p5_a33
5464 , p5_a34
5465 , p5_a35
5466 , p5_a36
5467 , p5_a37
5468 , p5_a38
5469 , p5_a39
5470 , p5_a40
5471 , p5_a41
5472 , p5_a42
5473 , p5_a43
5474 , p5_a44
5475 , p5_a45
5476 , p5_a46
5477 , p5_a47
5478 , p5_a48
5479 , p5_a49
5480 , p5_a50
5481 , p5_a51
5482 , p5_a52
5483 , p5_a53
5484 , p5_a54
5485 , p5_a55
5486 , p5_a56
5487 , p5_a57
5488 );
5489
5490 -- here's the delegated call to the old PL/SQL routine
5491 okl_ael_pvt.validate_row(p_api_version,
5492 p_init_msg_list,
5493 x_return_status,
5494 x_msg_count,
5495 x_msg_data,
5496 ddp_aelv_tbl);
5497
5498 -- copy data back from the local variables to OUT or IN-OUT args, if any
5499
5500
5501
5502
5503
5504 end;
5505
5506 end okl_ael_pvt_w;