[Home] [Help]
PACKAGE BODY: APPS.OKL_RCA_PVT_W
Source
1 package body okl_rca_pvt_w as
2 /* $Header: OKLIRCAB.pls 120.0 2007/11/19 10:31:58 rviriyal noship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy okl_rca_pvt.rca_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_DATE_TABLE
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_VARCHAR2_TABLE_500
20 , a17 JTF_VARCHAR2_TABLE_500
21 , a18 JTF_VARCHAR2_TABLE_500
22 , a19 JTF_VARCHAR2_TABLE_500
23 , a20 JTF_VARCHAR2_TABLE_500
24 , a21 JTF_VARCHAR2_TABLE_500
25 , a22 JTF_VARCHAR2_TABLE_500
26 , a23 JTF_VARCHAR2_TABLE_500
27 , a24 JTF_VARCHAR2_TABLE_500
28 , a25 JTF_VARCHAR2_TABLE_500
29 , a26 JTF_VARCHAR2_TABLE_500
30 , a27 JTF_VARCHAR2_TABLE_500
31 , a28 JTF_VARCHAR2_TABLE_500
32 , a29 JTF_VARCHAR2_TABLE_500
33 , a30 JTF_VARCHAR2_TABLE_500
34 , a31 JTF_NUMBER_TABLE
35 , a32 JTF_DATE_TABLE
36 , a33 JTF_NUMBER_TABLE
37 , a34 JTF_DATE_TABLE
38 , a35 JTF_NUMBER_TABLE
39 , a36 JTF_NUMBER_TABLE
40 , a37 JTF_NUMBER_TABLE
41 ) as
42 ddindx binary_integer; indx binary_integer;
43 begin
44 if a0 is not null and a0.count > 0 then
45 if a0.count > 0 then
46 indx := a0.first;
47 ddindx := 1;
48 while true loop
49 t(ddindx).id := a0(indx);
50 t(ddindx).rct_id_details := a1(indx);
51 t(ddindx).cnr_id := a2(indx);
52 t(ddindx).khr_id := a3(indx);
53 t(ddindx).lln_id := a4(indx);
54 t(ddindx).lsm_id := a5(indx);
55 t(ddindx).ile_id := a6(indx);
56 t(ddindx).line_number := a7(indx);
57 t(ddindx).object_version_number := a8(indx);
58 t(ddindx).amount := a9(indx);
59 t(ddindx).request_id := a10(indx);
60 t(ddindx).program_application_id := a11(indx);
61 t(ddindx).program_id := a12(indx);
62 t(ddindx).program_update_date := a13(indx);
63 t(ddindx).org_id := a14(indx);
64 t(ddindx).attribute_category := a15(indx);
65 t(ddindx).attribute1 := a16(indx);
66 t(ddindx).attribute2 := a17(indx);
67 t(ddindx).attribute3 := a18(indx);
68 t(ddindx).attribute4 := a19(indx);
69 t(ddindx).attribute5 := a20(indx);
70 t(ddindx).attribute6 := a21(indx);
71 t(ddindx).attribute7 := a22(indx);
72 t(ddindx).attribute8 := a23(indx);
73 t(ddindx).attribute9 := a24(indx);
74 t(ddindx).attribute10 := a25(indx);
75 t(ddindx).attribute11 := a26(indx);
76 t(ddindx).attribute12 := a27(indx);
77 t(ddindx).attribute13 := a28(indx);
78 t(ddindx).attribute14 := a29(indx);
79 t(ddindx).attribute15 := a30(indx);
80 t(ddindx).created_by := a31(indx);
81 t(ddindx).creation_date := a32(indx);
82 t(ddindx).last_updated_by := a33(indx);
83 t(ddindx).last_update_date := a34(indx);
84 t(ddindx).last_update_login := a35(indx);
85 t(ddindx).sty_id := a36(indx);
86 t(ddindx).ar_invoice_id := a37(indx);
87 ddindx := ddindx+1;
88 if a0.last =indx
89 then exit;
90 end if;
91 indx := a0.next(indx);
92 end loop;
93 end if;
94 end if;
95 end rosetta_table_copy_in_p2;
96 procedure rosetta_table_copy_out_p2(t okl_rca_pvt.rca_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
97 , a1 out nocopy JTF_NUMBER_TABLE
98 , a2 out nocopy JTF_NUMBER_TABLE
99 , a3 out nocopy JTF_NUMBER_TABLE
100 , a4 out nocopy JTF_NUMBER_TABLE
101 , a5 out nocopy JTF_NUMBER_TABLE
102 , a6 out nocopy JTF_NUMBER_TABLE
103 , a7 out nocopy JTF_NUMBER_TABLE
104 , a8 out nocopy JTF_NUMBER_TABLE
105 , a9 out nocopy JTF_NUMBER_TABLE
106 , a10 out nocopy JTF_NUMBER_TABLE
107 , a11 out nocopy JTF_NUMBER_TABLE
108 , a12 out nocopy JTF_NUMBER_TABLE
109 , a13 out nocopy JTF_DATE_TABLE
110 , a14 out nocopy JTF_NUMBER_TABLE
111 , a15 out nocopy JTF_VARCHAR2_TABLE_100
112 , a16 out nocopy JTF_VARCHAR2_TABLE_500
113 , a17 out nocopy JTF_VARCHAR2_TABLE_500
114 , a18 out nocopy JTF_VARCHAR2_TABLE_500
115 , a19 out nocopy JTF_VARCHAR2_TABLE_500
116 , a20 out nocopy JTF_VARCHAR2_TABLE_500
117 , a21 out nocopy JTF_VARCHAR2_TABLE_500
118 , a22 out nocopy JTF_VARCHAR2_TABLE_500
119 , a23 out nocopy JTF_VARCHAR2_TABLE_500
120 , a24 out nocopy JTF_VARCHAR2_TABLE_500
121 , a25 out nocopy JTF_VARCHAR2_TABLE_500
122 , a26 out nocopy JTF_VARCHAR2_TABLE_500
123 , a27 out nocopy JTF_VARCHAR2_TABLE_500
124 , a28 out nocopy JTF_VARCHAR2_TABLE_500
125 , a29 out nocopy JTF_VARCHAR2_TABLE_500
126 , a30 out nocopy JTF_VARCHAR2_TABLE_500
127 , a31 out nocopy JTF_NUMBER_TABLE
128 , a32 out nocopy JTF_DATE_TABLE
129 , a33 out nocopy JTF_NUMBER_TABLE
130 , a34 out nocopy JTF_DATE_TABLE
131 , a35 out nocopy JTF_NUMBER_TABLE
132 , a36 out nocopy JTF_NUMBER_TABLE
133 , a37 out nocopy JTF_NUMBER_TABLE
134 ) as
135 ddindx binary_integer; indx binary_integer;
136 begin
137 if t is null or t.count = 0 then
138 a0 := JTF_NUMBER_TABLE();
139 a1 := JTF_NUMBER_TABLE();
140 a2 := JTF_NUMBER_TABLE();
141 a3 := JTF_NUMBER_TABLE();
142 a4 := JTF_NUMBER_TABLE();
143 a5 := JTF_NUMBER_TABLE();
144 a6 := JTF_NUMBER_TABLE();
145 a7 := JTF_NUMBER_TABLE();
146 a8 := JTF_NUMBER_TABLE();
147 a9 := JTF_NUMBER_TABLE();
148 a10 := JTF_NUMBER_TABLE();
149 a11 := JTF_NUMBER_TABLE();
150 a12 := JTF_NUMBER_TABLE();
151 a13 := JTF_DATE_TABLE();
152 a14 := JTF_NUMBER_TABLE();
153 a15 := JTF_VARCHAR2_TABLE_100();
154 a16 := JTF_VARCHAR2_TABLE_500();
155 a17 := JTF_VARCHAR2_TABLE_500();
156 a18 := JTF_VARCHAR2_TABLE_500();
157 a19 := JTF_VARCHAR2_TABLE_500();
158 a20 := JTF_VARCHAR2_TABLE_500();
159 a21 := JTF_VARCHAR2_TABLE_500();
160 a22 := JTF_VARCHAR2_TABLE_500();
161 a23 := JTF_VARCHAR2_TABLE_500();
162 a24 := JTF_VARCHAR2_TABLE_500();
163 a25 := JTF_VARCHAR2_TABLE_500();
164 a26 := JTF_VARCHAR2_TABLE_500();
165 a27 := JTF_VARCHAR2_TABLE_500();
166 a28 := JTF_VARCHAR2_TABLE_500();
167 a29 := JTF_VARCHAR2_TABLE_500();
168 a30 := JTF_VARCHAR2_TABLE_500();
169 a31 := JTF_NUMBER_TABLE();
170 a32 := JTF_DATE_TABLE();
171 a33 := JTF_NUMBER_TABLE();
172 a34 := JTF_DATE_TABLE();
173 a35 := JTF_NUMBER_TABLE();
174 a36 := JTF_NUMBER_TABLE();
175 a37 := JTF_NUMBER_TABLE();
176 else
177 a0 := JTF_NUMBER_TABLE();
178 a1 := JTF_NUMBER_TABLE();
179 a2 := JTF_NUMBER_TABLE();
180 a3 := JTF_NUMBER_TABLE();
181 a4 := JTF_NUMBER_TABLE();
182 a5 := JTF_NUMBER_TABLE();
183 a6 := JTF_NUMBER_TABLE();
184 a7 := JTF_NUMBER_TABLE();
185 a8 := JTF_NUMBER_TABLE();
186 a9 := JTF_NUMBER_TABLE();
187 a10 := JTF_NUMBER_TABLE();
188 a11 := JTF_NUMBER_TABLE();
189 a12 := JTF_NUMBER_TABLE();
190 a13 := JTF_DATE_TABLE();
191 a14 := JTF_NUMBER_TABLE();
192 a15 := JTF_VARCHAR2_TABLE_100();
193 a16 := JTF_VARCHAR2_TABLE_500();
194 a17 := JTF_VARCHAR2_TABLE_500();
195 a18 := JTF_VARCHAR2_TABLE_500();
196 a19 := JTF_VARCHAR2_TABLE_500();
197 a20 := JTF_VARCHAR2_TABLE_500();
198 a21 := JTF_VARCHAR2_TABLE_500();
199 a22 := JTF_VARCHAR2_TABLE_500();
200 a23 := JTF_VARCHAR2_TABLE_500();
201 a24 := JTF_VARCHAR2_TABLE_500();
202 a25 := JTF_VARCHAR2_TABLE_500();
203 a26 := JTF_VARCHAR2_TABLE_500();
204 a27 := JTF_VARCHAR2_TABLE_500();
205 a28 := JTF_VARCHAR2_TABLE_500();
206 a29 := JTF_VARCHAR2_TABLE_500();
207 a30 := JTF_VARCHAR2_TABLE_500();
208 a31 := JTF_NUMBER_TABLE();
209 a32 := JTF_DATE_TABLE();
210 a33 := JTF_NUMBER_TABLE();
211 a34 := JTF_DATE_TABLE();
212 a35 := JTF_NUMBER_TABLE();
213 a36 := JTF_NUMBER_TABLE();
214 a37 := JTF_NUMBER_TABLE();
215 if t.count > 0 then
216 a0.extend(t.count);
217 a1.extend(t.count);
218 a2.extend(t.count);
219 a3.extend(t.count);
220 a4.extend(t.count);
221 a5.extend(t.count);
222 a6.extend(t.count);
223 a7.extend(t.count);
224 a8.extend(t.count);
225 a9.extend(t.count);
226 a10.extend(t.count);
227 a11.extend(t.count);
228 a12.extend(t.count);
229 a13.extend(t.count);
230 a14.extend(t.count);
231 a15.extend(t.count);
232 a16.extend(t.count);
233 a17.extend(t.count);
234 a18.extend(t.count);
235 a19.extend(t.count);
236 a20.extend(t.count);
237 a21.extend(t.count);
238 a22.extend(t.count);
239 a23.extend(t.count);
240 a24.extend(t.count);
241 a25.extend(t.count);
242 a26.extend(t.count);
243 a27.extend(t.count);
244 a28.extend(t.count);
245 a29.extend(t.count);
246 a30.extend(t.count);
247 a31.extend(t.count);
248 a32.extend(t.count);
249 a33.extend(t.count);
250 a34.extend(t.count);
251 a35.extend(t.count);
252 a36.extend(t.count);
253 a37.extend(t.count);
254 ddindx := t.first;
255 indx := 1;
256 while true loop
257 a0(indx) := t(ddindx).id;
258 a1(indx) := t(ddindx).rct_id_details;
259 a2(indx) := t(ddindx).cnr_id;
260 a3(indx) := t(ddindx).khr_id;
261 a4(indx) := t(ddindx).lln_id;
262 a5(indx) := t(ddindx).lsm_id;
263 a6(indx) := t(ddindx).ile_id;
264 a7(indx) := t(ddindx).line_number;
265 a8(indx) := t(ddindx).object_version_number;
266 a9(indx) := t(ddindx).amount;
267 a10(indx) := t(ddindx).request_id;
268 a11(indx) := t(ddindx).program_application_id;
269 a12(indx) := t(ddindx).program_id;
270 a13(indx) := t(ddindx).program_update_date;
271 a14(indx) := t(ddindx).org_id;
272 a15(indx) := t(ddindx).attribute_category;
273 a16(indx) := t(ddindx).attribute1;
274 a17(indx) := t(ddindx).attribute2;
275 a18(indx) := t(ddindx).attribute3;
276 a19(indx) := t(ddindx).attribute4;
277 a20(indx) := t(ddindx).attribute5;
278 a21(indx) := t(ddindx).attribute6;
279 a22(indx) := t(ddindx).attribute7;
280 a23(indx) := t(ddindx).attribute8;
281 a24(indx) := t(ddindx).attribute9;
282 a25(indx) := t(ddindx).attribute10;
283 a26(indx) := t(ddindx).attribute11;
284 a27(indx) := t(ddindx).attribute12;
285 a28(indx) := t(ddindx).attribute13;
286 a29(indx) := t(ddindx).attribute14;
287 a30(indx) := t(ddindx).attribute15;
288 a31(indx) := t(ddindx).created_by;
289 a32(indx) := t(ddindx).creation_date;
290 a33(indx) := t(ddindx).last_updated_by;
291 a34(indx) := t(ddindx).last_update_date;
292 a35(indx) := t(ddindx).last_update_login;
293 a36(indx) := t(ddindx).sty_id;
294 a37(indx) := t(ddindx).ar_invoice_id;
295 indx := indx+1;
296 if t.last =ddindx
297 then exit;
298 end if;
299 ddindx := t.next(ddindx);
300 end loop;
301 end if;
302 end if;
303 end rosetta_table_copy_out_p2;
304
305 procedure rosetta_table_copy_in_p5(t out nocopy okl_rca_pvt.okl_txl_rcpt_apps_tl_tbl_type, a0 JTF_NUMBER_TABLE
306 , a1 JTF_VARCHAR2_TABLE_100
307 , a2 JTF_VARCHAR2_TABLE_100
308 , a3 JTF_VARCHAR2_TABLE_100
309 , a4 JTF_VARCHAR2_TABLE_2000
310 , a5 JTF_NUMBER_TABLE
311 , a6 JTF_DATE_TABLE
312 , a7 JTF_NUMBER_TABLE
313 , a8 JTF_DATE_TABLE
314 , a9 JTF_NUMBER_TABLE
315 ) as
316 ddindx binary_integer; indx binary_integer;
317 begin
318 if a0 is not null and a0.count > 0 then
319 if a0.count > 0 then
320 indx := a0.first;
321 ddindx := 1;
322 while true loop
323 t(ddindx).id := a0(indx);
324 t(ddindx).language := a1(indx);
325 t(ddindx).source_lang := a2(indx);
326 t(ddindx).sfwt_flag := a3(indx);
327 t(ddindx).description := a4(indx);
328 t(ddindx).created_by := a5(indx);
329 t(ddindx).creation_date := a6(indx);
330 t(ddindx).last_updated_by := a7(indx);
331 t(ddindx).last_update_date := a8(indx);
332 t(ddindx).last_update_login := a9(indx);
333 ddindx := ddindx+1;
334 if a0.last =indx
335 then exit;
336 end if;
337 indx := a0.next(indx);
338 end loop;
339 end if;
340 end if;
341 end rosetta_table_copy_in_p5;
342 procedure rosetta_table_copy_out_p5(t okl_rca_pvt.okl_txl_rcpt_apps_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
343 , a1 out nocopy JTF_VARCHAR2_TABLE_100
344 , a2 out nocopy JTF_VARCHAR2_TABLE_100
345 , a3 out nocopy JTF_VARCHAR2_TABLE_100
346 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
347 , a5 out nocopy JTF_NUMBER_TABLE
348 , a6 out nocopy JTF_DATE_TABLE
349 , a7 out nocopy JTF_NUMBER_TABLE
350 , a8 out nocopy JTF_DATE_TABLE
351 , a9 out nocopy JTF_NUMBER_TABLE
352 ) as
353 ddindx binary_integer; indx binary_integer;
354 begin
355 if t is null or t.count = 0 then
356 a0 := JTF_NUMBER_TABLE();
357 a1 := JTF_VARCHAR2_TABLE_100();
358 a2 := JTF_VARCHAR2_TABLE_100();
359 a3 := JTF_VARCHAR2_TABLE_100();
360 a4 := JTF_VARCHAR2_TABLE_2000();
361 a5 := JTF_NUMBER_TABLE();
362 a6 := JTF_DATE_TABLE();
363 a7 := JTF_NUMBER_TABLE();
364 a8 := JTF_DATE_TABLE();
365 a9 := JTF_NUMBER_TABLE();
366 else
367 a0 := JTF_NUMBER_TABLE();
368 a1 := JTF_VARCHAR2_TABLE_100();
369 a2 := JTF_VARCHAR2_TABLE_100();
370 a3 := JTF_VARCHAR2_TABLE_100();
371 a4 := JTF_VARCHAR2_TABLE_2000();
372 a5 := JTF_NUMBER_TABLE();
373 a6 := JTF_DATE_TABLE();
374 a7 := JTF_NUMBER_TABLE();
375 a8 := JTF_DATE_TABLE();
376 a9 := JTF_NUMBER_TABLE();
377 if t.count > 0 then
378 a0.extend(t.count);
379 a1.extend(t.count);
380 a2.extend(t.count);
381 a3.extend(t.count);
382 a4.extend(t.count);
383 a5.extend(t.count);
384 a6.extend(t.count);
385 a7.extend(t.count);
386 a8.extend(t.count);
387 a9.extend(t.count);
388 ddindx := t.first;
389 indx := 1;
390 while true loop
391 a0(indx) := t(ddindx).id;
392 a1(indx) := t(ddindx).language;
393 a2(indx) := t(ddindx).source_lang;
394 a3(indx) := t(ddindx).sfwt_flag;
395 a4(indx) := t(ddindx).description;
396 a5(indx) := t(ddindx).created_by;
397 a6(indx) := t(ddindx).creation_date;
398 a7(indx) := t(ddindx).last_updated_by;
399 a8(indx) := t(ddindx).last_update_date;
400 a9(indx) := t(ddindx).last_update_login;
401 indx := indx+1;
402 if t.last =ddindx
403 then exit;
404 end if;
405 ddindx := t.next(ddindx);
406 end loop;
407 end if;
408 end if;
409 end rosetta_table_copy_out_p5;
410
411 procedure rosetta_table_copy_in_p8(t out nocopy okl_rca_pvt.rcav_tbl_type, a0 JTF_NUMBER_TABLE
412 , a1 JTF_NUMBER_TABLE
413 , a2 JTF_VARCHAR2_TABLE_100
414 , a3 JTF_NUMBER_TABLE
415 , a4 JTF_NUMBER_TABLE
416 , a5 JTF_NUMBER_TABLE
417 , a6 JTF_NUMBER_TABLE
418 , a7 JTF_NUMBER_TABLE
419 , a8 JTF_NUMBER_TABLE
420 , a9 JTF_NUMBER_TABLE
421 , a10 JTF_VARCHAR2_TABLE_2000
422 , a11 JTF_NUMBER_TABLE
423 , a12 JTF_VARCHAR2_TABLE_100
424 , a13 JTF_VARCHAR2_TABLE_500
425 , a14 JTF_VARCHAR2_TABLE_500
426 , a15 JTF_VARCHAR2_TABLE_500
427 , a16 JTF_VARCHAR2_TABLE_500
428 , a17 JTF_VARCHAR2_TABLE_500
429 , a18 JTF_VARCHAR2_TABLE_500
430 , a19 JTF_VARCHAR2_TABLE_500
431 , a20 JTF_VARCHAR2_TABLE_500
432 , a21 JTF_VARCHAR2_TABLE_500
433 , a22 JTF_VARCHAR2_TABLE_500
434 , a23 JTF_VARCHAR2_TABLE_500
435 , a24 JTF_VARCHAR2_TABLE_500
436 , a25 JTF_VARCHAR2_TABLE_500
437 , a26 JTF_VARCHAR2_TABLE_500
438 , a27 JTF_VARCHAR2_TABLE_500
439 , a28 JTF_NUMBER_TABLE
440 , a29 JTF_NUMBER_TABLE
441 , a30 JTF_NUMBER_TABLE
442 , a31 JTF_DATE_TABLE
443 , a32 JTF_NUMBER_TABLE
444 , a33 JTF_NUMBER_TABLE
445 , a34 JTF_DATE_TABLE
446 , a35 JTF_NUMBER_TABLE
447 , a36 JTF_DATE_TABLE
448 , a37 JTF_NUMBER_TABLE
449 , a38 JTF_NUMBER_TABLE
450 , a39 JTF_NUMBER_TABLE
451 ) as
452 ddindx binary_integer; indx binary_integer;
453 begin
454 if a0 is not null and a0.count > 0 then
455 if a0.count > 0 then
456 indx := a0.first;
457 ddindx := 1;
458 while true loop
459 t(ddindx).id := a0(indx);
460 t(ddindx).object_version_number := a1(indx);
461 t(ddindx).sfwt_flag := a2(indx);
462 t(ddindx).cnr_id := a3(indx);
463 t(ddindx).lln_id := a4(indx);
464 t(ddindx).lsm_id := a5(indx);
465 t(ddindx).khr_id := a6(indx);
466 t(ddindx).ile_id := a7(indx);
467 t(ddindx).rct_id_details := a8(indx);
468 t(ddindx).line_number := a9(indx);
469 t(ddindx).description := a10(indx);
470 t(ddindx).amount := a11(indx);
471 t(ddindx).attribute_category := a12(indx);
472 t(ddindx).attribute1 := a13(indx);
473 t(ddindx).attribute2 := a14(indx);
474 t(ddindx).attribute3 := a15(indx);
475 t(ddindx).attribute4 := a16(indx);
476 t(ddindx).attribute5 := a17(indx);
477 t(ddindx).attribute6 := a18(indx);
478 t(ddindx).attribute7 := a19(indx);
479 t(ddindx).attribute8 := a20(indx);
480 t(ddindx).attribute9 := a21(indx);
481 t(ddindx).attribute10 := a22(indx);
482 t(ddindx).attribute11 := a23(indx);
483 t(ddindx).attribute12 := a24(indx);
484 t(ddindx).attribute13 := a25(indx);
485 t(ddindx).attribute14 := a26(indx);
486 t(ddindx).attribute15 := a27(indx);
487 t(ddindx).request_id := a28(indx);
488 t(ddindx).program_application_id := a29(indx);
489 t(ddindx).program_id := a30(indx);
490 t(ddindx).program_update_date := a31(indx);
491 t(ddindx).org_id := a32(indx);
492 t(ddindx).created_by := a33(indx);
493 t(ddindx).creation_date := a34(indx);
494 t(ddindx).last_updated_by := a35(indx);
495 t(ddindx).last_update_date := a36(indx);
496 t(ddindx).last_update_login := a37(indx);
497 t(ddindx).sty_id := a38(indx);
498 t(ddindx).ar_invoice_id := a39(indx);
499 ddindx := ddindx+1;
500 if a0.last =indx
501 then exit;
502 end if;
503 indx := a0.next(indx);
504 end loop;
505 end if;
506 end if;
507 end rosetta_table_copy_in_p8;
508 procedure rosetta_table_copy_out_p8(t okl_rca_pvt.rcav_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
509 , a1 out nocopy JTF_NUMBER_TABLE
510 , a2 out nocopy JTF_VARCHAR2_TABLE_100
511 , a3 out nocopy JTF_NUMBER_TABLE
512 , a4 out nocopy JTF_NUMBER_TABLE
513 , a5 out nocopy JTF_NUMBER_TABLE
514 , a6 out nocopy JTF_NUMBER_TABLE
515 , a7 out nocopy JTF_NUMBER_TABLE
516 , a8 out nocopy JTF_NUMBER_TABLE
517 , a9 out nocopy JTF_NUMBER_TABLE
518 , a10 out nocopy JTF_VARCHAR2_TABLE_2000
519 , a11 out nocopy JTF_NUMBER_TABLE
520 , a12 out nocopy JTF_VARCHAR2_TABLE_100
521 , a13 out nocopy JTF_VARCHAR2_TABLE_500
522 , a14 out nocopy JTF_VARCHAR2_TABLE_500
523 , a15 out nocopy JTF_VARCHAR2_TABLE_500
524 , a16 out nocopy JTF_VARCHAR2_TABLE_500
525 , a17 out nocopy JTF_VARCHAR2_TABLE_500
526 , a18 out nocopy JTF_VARCHAR2_TABLE_500
527 , a19 out nocopy JTF_VARCHAR2_TABLE_500
528 , a20 out nocopy JTF_VARCHAR2_TABLE_500
529 , a21 out nocopy JTF_VARCHAR2_TABLE_500
530 , a22 out nocopy JTF_VARCHAR2_TABLE_500
531 , a23 out nocopy JTF_VARCHAR2_TABLE_500
532 , a24 out nocopy JTF_VARCHAR2_TABLE_500
533 , a25 out nocopy JTF_VARCHAR2_TABLE_500
534 , a26 out nocopy JTF_VARCHAR2_TABLE_500
535 , a27 out nocopy JTF_VARCHAR2_TABLE_500
536 , a28 out nocopy JTF_NUMBER_TABLE
537 , a29 out nocopy JTF_NUMBER_TABLE
538 , a30 out nocopy JTF_NUMBER_TABLE
539 , a31 out nocopy JTF_DATE_TABLE
540 , a32 out nocopy JTF_NUMBER_TABLE
541 , a33 out nocopy JTF_NUMBER_TABLE
542 , a34 out nocopy JTF_DATE_TABLE
543 , a35 out nocopy JTF_NUMBER_TABLE
544 , a36 out nocopy JTF_DATE_TABLE
545 , a37 out nocopy JTF_NUMBER_TABLE
546 , a38 out nocopy JTF_NUMBER_TABLE
547 , a39 out nocopy JTF_NUMBER_TABLE
548 ) as
549 ddindx binary_integer; indx binary_integer;
550 begin
551 if t is null or t.count = 0 then
552 a0 := JTF_NUMBER_TABLE();
553 a1 := JTF_NUMBER_TABLE();
554 a2 := JTF_VARCHAR2_TABLE_100();
555 a3 := JTF_NUMBER_TABLE();
556 a4 := JTF_NUMBER_TABLE();
557 a5 := JTF_NUMBER_TABLE();
558 a6 := JTF_NUMBER_TABLE();
559 a7 := JTF_NUMBER_TABLE();
560 a8 := JTF_NUMBER_TABLE();
561 a9 := JTF_NUMBER_TABLE();
562 a10 := JTF_VARCHAR2_TABLE_2000();
563 a11 := JTF_NUMBER_TABLE();
564 a12 := JTF_VARCHAR2_TABLE_100();
565 a13 := JTF_VARCHAR2_TABLE_500();
566 a14 := JTF_VARCHAR2_TABLE_500();
567 a15 := JTF_VARCHAR2_TABLE_500();
568 a16 := JTF_VARCHAR2_TABLE_500();
569 a17 := JTF_VARCHAR2_TABLE_500();
570 a18 := JTF_VARCHAR2_TABLE_500();
571 a19 := JTF_VARCHAR2_TABLE_500();
572 a20 := JTF_VARCHAR2_TABLE_500();
573 a21 := JTF_VARCHAR2_TABLE_500();
574 a22 := JTF_VARCHAR2_TABLE_500();
575 a23 := JTF_VARCHAR2_TABLE_500();
576 a24 := JTF_VARCHAR2_TABLE_500();
577 a25 := JTF_VARCHAR2_TABLE_500();
578 a26 := JTF_VARCHAR2_TABLE_500();
579 a27 := JTF_VARCHAR2_TABLE_500();
580 a28 := JTF_NUMBER_TABLE();
581 a29 := JTF_NUMBER_TABLE();
582 a30 := JTF_NUMBER_TABLE();
583 a31 := JTF_DATE_TABLE();
584 a32 := JTF_NUMBER_TABLE();
585 a33 := JTF_NUMBER_TABLE();
586 a34 := JTF_DATE_TABLE();
587 a35 := JTF_NUMBER_TABLE();
588 a36 := JTF_DATE_TABLE();
589 a37 := JTF_NUMBER_TABLE();
590 a38 := JTF_NUMBER_TABLE();
591 a39 := JTF_NUMBER_TABLE();
592 else
593 a0 := JTF_NUMBER_TABLE();
594 a1 := JTF_NUMBER_TABLE();
595 a2 := JTF_VARCHAR2_TABLE_100();
596 a3 := JTF_NUMBER_TABLE();
597 a4 := JTF_NUMBER_TABLE();
598 a5 := JTF_NUMBER_TABLE();
599 a6 := JTF_NUMBER_TABLE();
600 a7 := JTF_NUMBER_TABLE();
601 a8 := JTF_NUMBER_TABLE();
602 a9 := JTF_NUMBER_TABLE();
603 a10 := JTF_VARCHAR2_TABLE_2000();
604 a11 := JTF_NUMBER_TABLE();
605 a12 := JTF_VARCHAR2_TABLE_100();
606 a13 := JTF_VARCHAR2_TABLE_500();
607 a14 := JTF_VARCHAR2_TABLE_500();
608 a15 := JTF_VARCHAR2_TABLE_500();
609 a16 := JTF_VARCHAR2_TABLE_500();
610 a17 := JTF_VARCHAR2_TABLE_500();
611 a18 := JTF_VARCHAR2_TABLE_500();
612 a19 := JTF_VARCHAR2_TABLE_500();
613 a20 := JTF_VARCHAR2_TABLE_500();
614 a21 := JTF_VARCHAR2_TABLE_500();
615 a22 := JTF_VARCHAR2_TABLE_500();
616 a23 := JTF_VARCHAR2_TABLE_500();
617 a24 := JTF_VARCHAR2_TABLE_500();
618 a25 := JTF_VARCHAR2_TABLE_500();
619 a26 := JTF_VARCHAR2_TABLE_500();
620 a27 := JTF_VARCHAR2_TABLE_500();
621 a28 := JTF_NUMBER_TABLE();
622 a29 := JTF_NUMBER_TABLE();
623 a30 := JTF_NUMBER_TABLE();
624 a31 := JTF_DATE_TABLE();
625 a32 := JTF_NUMBER_TABLE();
626 a33 := JTF_NUMBER_TABLE();
627 a34 := JTF_DATE_TABLE();
628 a35 := JTF_NUMBER_TABLE();
629 a36 := JTF_DATE_TABLE();
630 a37 := JTF_NUMBER_TABLE();
631 a38 := JTF_NUMBER_TABLE();
632 a39 := JTF_NUMBER_TABLE();
633 if t.count > 0 then
634 a0.extend(t.count);
635 a1.extend(t.count);
636 a2.extend(t.count);
637 a3.extend(t.count);
638 a4.extend(t.count);
639 a5.extend(t.count);
640 a6.extend(t.count);
641 a7.extend(t.count);
642 a8.extend(t.count);
643 a9.extend(t.count);
644 a10.extend(t.count);
645 a11.extend(t.count);
646 a12.extend(t.count);
647 a13.extend(t.count);
648 a14.extend(t.count);
649 a15.extend(t.count);
650 a16.extend(t.count);
651 a17.extend(t.count);
652 a18.extend(t.count);
653 a19.extend(t.count);
654 a20.extend(t.count);
655 a21.extend(t.count);
656 a22.extend(t.count);
657 a23.extend(t.count);
658 a24.extend(t.count);
659 a25.extend(t.count);
660 a26.extend(t.count);
661 a27.extend(t.count);
662 a28.extend(t.count);
663 a29.extend(t.count);
664 a30.extend(t.count);
665 a31.extend(t.count);
666 a32.extend(t.count);
667 a33.extend(t.count);
668 a34.extend(t.count);
669 a35.extend(t.count);
670 a36.extend(t.count);
671 a37.extend(t.count);
672 a38.extend(t.count);
673 a39.extend(t.count);
674 ddindx := t.first;
675 indx := 1;
676 while true loop
677 a0(indx) := t(ddindx).id;
678 a1(indx) := t(ddindx).object_version_number;
679 a2(indx) := t(ddindx).sfwt_flag;
680 a3(indx) := t(ddindx).cnr_id;
681 a4(indx) := t(ddindx).lln_id;
682 a5(indx) := t(ddindx).lsm_id;
683 a6(indx) := t(ddindx).khr_id;
684 a7(indx) := t(ddindx).ile_id;
685 a8(indx) := t(ddindx).rct_id_details;
686 a9(indx) := t(ddindx).line_number;
687 a10(indx) := t(ddindx).description;
688 a11(indx) := t(ddindx).amount;
689 a12(indx) := t(ddindx).attribute_category;
690 a13(indx) := t(ddindx).attribute1;
691 a14(indx) := t(ddindx).attribute2;
692 a15(indx) := t(ddindx).attribute3;
693 a16(indx) := t(ddindx).attribute4;
694 a17(indx) := t(ddindx).attribute5;
695 a18(indx) := t(ddindx).attribute6;
696 a19(indx) := t(ddindx).attribute7;
697 a20(indx) := t(ddindx).attribute8;
698 a21(indx) := t(ddindx).attribute9;
699 a22(indx) := t(ddindx).attribute10;
700 a23(indx) := t(ddindx).attribute11;
701 a24(indx) := t(ddindx).attribute12;
702 a25(indx) := t(ddindx).attribute13;
703 a26(indx) := t(ddindx).attribute14;
704 a27(indx) := t(ddindx).attribute15;
705 a28(indx) := t(ddindx).request_id;
706 a29(indx) := t(ddindx).program_application_id;
707 a30(indx) := t(ddindx).program_id;
708 a31(indx) := t(ddindx).program_update_date;
709 a32(indx) := t(ddindx).org_id;
710 a33(indx) := t(ddindx).created_by;
711 a34(indx) := t(ddindx).creation_date;
712 a35(indx) := t(ddindx).last_updated_by;
713 a36(indx) := t(ddindx).last_update_date;
714 a37(indx) := t(ddindx).last_update_login;
715 a38(indx) := t(ddindx).sty_id;
716 a39(indx) := t(ddindx).ar_invoice_id;
717 indx := indx+1;
718 if t.last =ddindx
719 then exit;
720 end if;
721 ddindx := t.next(ddindx);
722 end loop;
723 end if;
724 end if;
725 end rosetta_table_copy_out_p8;
726
727 procedure insert_row(p_api_version NUMBER
728 , p_init_msg_list VARCHAR2
729 , x_return_status out nocopy VARCHAR2
730 , x_msg_count out nocopy NUMBER
731 , x_msg_data out nocopy VARCHAR2
732 , p5_a0 NUMBER
733 , p5_a1 NUMBER
734 , p5_a2 VARCHAR2
735 , p5_a3 NUMBER
736 , p5_a4 NUMBER
737 , p5_a5 NUMBER
738 , p5_a6 NUMBER
739 , p5_a7 NUMBER
740 , p5_a8 NUMBER
741 , p5_a9 NUMBER
742 , p5_a10 VARCHAR2
743 , p5_a11 NUMBER
744 , p5_a12 VARCHAR2
745 , p5_a13 VARCHAR2
746 , p5_a14 VARCHAR2
747 , p5_a15 VARCHAR2
748 , p5_a16 VARCHAR2
749 , p5_a17 VARCHAR2
750 , p5_a18 VARCHAR2
751 , p5_a19 VARCHAR2
752 , p5_a20 VARCHAR2
753 , p5_a21 VARCHAR2
754 , p5_a22 VARCHAR2
755 , p5_a23 VARCHAR2
756 , p5_a24 VARCHAR2
757 , p5_a25 VARCHAR2
758 , p5_a26 VARCHAR2
759 , p5_a27 VARCHAR2
760 , p5_a28 NUMBER
761 , p5_a29 NUMBER
762 , p5_a30 NUMBER
763 , p5_a31 DATE
764 , p5_a32 NUMBER
765 , p5_a33 NUMBER
766 , p5_a34 DATE
767 , p5_a35 NUMBER
768 , p5_a36 DATE
769 , p5_a37 NUMBER
770 , p5_a38 NUMBER
771 , p5_a39 NUMBER
772 , p6_a0 out nocopy NUMBER
773 , p6_a1 out nocopy NUMBER
774 , p6_a2 out nocopy VARCHAR2
775 , p6_a3 out nocopy NUMBER
776 , p6_a4 out nocopy NUMBER
777 , p6_a5 out nocopy NUMBER
778 , p6_a6 out nocopy NUMBER
779 , p6_a7 out nocopy NUMBER
780 , p6_a8 out nocopy NUMBER
781 , p6_a9 out nocopy NUMBER
782 , p6_a10 out nocopy VARCHAR2
783 , p6_a11 out nocopy NUMBER
784 , p6_a12 out nocopy VARCHAR2
785 , p6_a13 out nocopy VARCHAR2
786 , p6_a14 out nocopy VARCHAR2
787 , p6_a15 out nocopy VARCHAR2
788 , p6_a16 out nocopy VARCHAR2
789 , p6_a17 out nocopy VARCHAR2
790 , p6_a18 out nocopy VARCHAR2
791 , p6_a19 out nocopy VARCHAR2
792 , p6_a20 out nocopy VARCHAR2
793 , p6_a21 out nocopy VARCHAR2
794 , p6_a22 out nocopy VARCHAR2
795 , p6_a23 out nocopy VARCHAR2
796 , p6_a24 out nocopy VARCHAR2
797 , p6_a25 out nocopy VARCHAR2
798 , p6_a26 out nocopy VARCHAR2
799 , p6_a27 out nocopy VARCHAR2
800 , p6_a28 out nocopy NUMBER
801 , p6_a29 out nocopy NUMBER
802 , p6_a30 out nocopy NUMBER
803 , p6_a31 out nocopy DATE
804 , p6_a32 out nocopy NUMBER
805 , p6_a33 out nocopy NUMBER
806 , p6_a34 out nocopy DATE
807 , p6_a35 out nocopy NUMBER
808 , p6_a36 out nocopy DATE
809 , p6_a37 out nocopy NUMBER
810 , p6_a38 out nocopy NUMBER
811 , p6_a39 out nocopy NUMBER
812 )
813
814 as
815 ddp_rcav_rec okl_rca_pvt.rcav_rec_type;
816 ddx_rcav_rec okl_rca_pvt.rcav_rec_type;
817 ddindx binary_integer; indx binary_integer;
818 begin
819
820 -- copy data to the local IN or IN-OUT args, if any
821
822
823
824
825
826 ddp_rcav_rec.id := p5_a0;
827 ddp_rcav_rec.object_version_number := p5_a1;
828 ddp_rcav_rec.sfwt_flag := p5_a2;
829 ddp_rcav_rec.cnr_id := p5_a3;
830 ddp_rcav_rec.lln_id := p5_a4;
831 ddp_rcav_rec.lsm_id := p5_a5;
832 ddp_rcav_rec.khr_id := p5_a6;
833 ddp_rcav_rec.ile_id := p5_a7;
834 ddp_rcav_rec.rct_id_details := p5_a8;
835 ddp_rcav_rec.line_number := p5_a9;
836 ddp_rcav_rec.description := p5_a10;
837 ddp_rcav_rec.amount := p5_a11;
838 ddp_rcav_rec.attribute_category := p5_a12;
839 ddp_rcav_rec.attribute1 := p5_a13;
840 ddp_rcav_rec.attribute2 := p5_a14;
841 ddp_rcav_rec.attribute3 := p5_a15;
842 ddp_rcav_rec.attribute4 := p5_a16;
843 ddp_rcav_rec.attribute5 := p5_a17;
844 ddp_rcav_rec.attribute6 := p5_a18;
845 ddp_rcav_rec.attribute7 := p5_a19;
846 ddp_rcav_rec.attribute8 := p5_a20;
847 ddp_rcav_rec.attribute9 := p5_a21;
848 ddp_rcav_rec.attribute10 := p5_a22;
849 ddp_rcav_rec.attribute11 := p5_a23;
850 ddp_rcav_rec.attribute12 := p5_a24;
851 ddp_rcav_rec.attribute13 := p5_a25;
852 ddp_rcav_rec.attribute14 := p5_a26;
853 ddp_rcav_rec.attribute15 := p5_a27;
854 ddp_rcav_rec.request_id := p5_a28;
855 ddp_rcav_rec.program_application_id := p5_a29;
856 ddp_rcav_rec.program_id := p5_a30;
857 ddp_rcav_rec.program_update_date := p5_a31;
858 ddp_rcav_rec.org_id := p5_a32;
859 ddp_rcav_rec.created_by := p5_a33;
860 ddp_rcav_rec.creation_date := p5_a34;
861 ddp_rcav_rec.last_updated_by := p5_a35;
862 ddp_rcav_rec.last_update_date := p5_a36;
863 ddp_rcav_rec.last_update_login := p5_a37;
864 ddp_rcav_rec.sty_id := p5_a38;
865 ddp_rcav_rec.ar_invoice_id := p5_a39;
866
867
868 -- here's the delegated call to the old PL/SQL routine
869 okl_rca_pvt.insert_row(p_api_version,
870 p_init_msg_list,
871 x_return_status,
872 x_msg_count,
873 x_msg_data,
874 ddp_rcav_rec,
875 ddx_rcav_rec);
876
877 -- copy data back from the local variables to OUT or IN-OUT args, if any
878
879
880
881
882
883
884 p6_a0 := ddx_rcav_rec.id;
885 p6_a1 := ddx_rcav_rec.object_version_number;
886 p6_a2 := ddx_rcav_rec.sfwt_flag;
887 p6_a3 := ddx_rcav_rec.cnr_id;
888 p6_a4 := ddx_rcav_rec.lln_id;
889 p6_a5 := ddx_rcav_rec.lsm_id;
890 p6_a6 := ddx_rcav_rec.khr_id;
891 p6_a7 := ddx_rcav_rec.ile_id;
892 p6_a8 := ddx_rcav_rec.rct_id_details;
893 p6_a9 := ddx_rcav_rec.line_number;
894 p6_a10 := ddx_rcav_rec.description;
895 p6_a11 := ddx_rcav_rec.amount;
896 p6_a12 := ddx_rcav_rec.attribute_category;
897 p6_a13 := ddx_rcav_rec.attribute1;
898 p6_a14 := ddx_rcav_rec.attribute2;
899 p6_a15 := ddx_rcav_rec.attribute3;
900 p6_a16 := ddx_rcav_rec.attribute4;
901 p6_a17 := ddx_rcav_rec.attribute5;
902 p6_a18 := ddx_rcav_rec.attribute6;
903 p6_a19 := ddx_rcav_rec.attribute7;
904 p6_a20 := ddx_rcav_rec.attribute8;
905 p6_a21 := ddx_rcav_rec.attribute9;
906 p6_a22 := ddx_rcav_rec.attribute10;
907 p6_a23 := ddx_rcav_rec.attribute11;
908 p6_a24 := ddx_rcav_rec.attribute12;
909 p6_a25 := ddx_rcav_rec.attribute13;
910 p6_a26 := ddx_rcav_rec.attribute14;
911 p6_a27 := ddx_rcav_rec.attribute15;
912 p6_a28 := ddx_rcav_rec.request_id;
913 p6_a29 := ddx_rcav_rec.program_application_id;
914 p6_a30 := ddx_rcav_rec.program_id;
915 p6_a31 := ddx_rcav_rec.program_update_date;
916 p6_a32 := ddx_rcav_rec.org_id;
917 p6_a33 := ddx_rcav_rec.created_by;
918 p6_a34 := ddx_rcav_rec.creation_date;
919 p6_a35 := ddx_rcav_rec.last_updated_by;
920 p6_a36 := ddx_rcav_rec.last_update_date;
921 p6_a37 := ddx_rcav_rec.last_update_login;
922 p6_a38 := ddx_rcav_rec.sty_id;
923 p6_a39 := ddx_rcav_rec.ar_invoice_id;
924 end;
925
926 procedure insert_row(p_api_version NUMBER
927 , p_init_msg_list VARCHAR2
928 , x_return_status out nocopy VARCHAR2
929 , x_msg_count out nocopy NUMBER
930 , x_msg_data out nocopy VARCHAR2
931 , p5_a0 JTF_NUMBER_TABLE
932 , p5_a1 JTF_NUMBER_TABLE
933 , p5_a2 JTF_VARCHAR2_TABLE_100
934 , p5_a3 JTF_NUMBER_TABLE
935 , p5_a4 JTF_NUMBER_TABLE
936 , p5_a5 JTF_NUMBER_TABLE
937 , p5_a6 JTF_NUMBER_TABLE
938 , p5_a7 JTF_NUMBER_TABLE
939 , p5_a8 JTF_NUMBER_TABLE
940 , p5_a9 JTF_NUMBER_TABLE
941 , p5_a10 JTF_VARCHAR2_TABLE_2000
942 , p5_a11 JTF_NUMBER_TABLE
943 , p5_a12 JTF_VARCHAR2_TABLE_100
944 , p5_a13 JTF_VARCHAR2_TABLE_500
945 , p5_a14 JTF_VARCHAR2_TABLE_500
946 , p5_a15 JTF_VARCHAR2_TABLE_500
947 , p5_a16 JTF_VARCHAR2_TABLE_500
948 , p5_a17 JTF_VARCHAR2_TABLE_500
949 , p5_a18 JTF_VARCHAR2_TABLE_500
950 , p5_a19 JTF_VARCHAR2_TABLE_500
951 , p5_a20 JTF_VARCHAR2_TABLE_500
952 , p5_a21 JTF_VARCHAR2_TABLE_500
953 , p5_a22 JTF_VARCHAR2_TABLE_500
954 , p5_a23 JTF_VARCHAR2_TABLE_500
955 , p5_a24 JTF_VARCHAR2_TABLE_500
956 , p5_a25 JTF_VARCHAR2_TABLE_500
957 , p5_a26 JTF_VARCHAR2_TABLE_500
958 , p5_a27 JTF_VARCHAR2_TABLE_500
959 , p5_a28 JTF_NUMBER_TABLE
960 , p5_a29 JTF_NUMBER_TABLE
961 , p5_a30 JTF_NUMBER_TABLE
962 , p5_a31 JTF_DATE_TABLE
963 , p5_a32 JTF_NUMBER_TABLE
964 , p5_a33 JTF_NUMBER_TABLE
965 , p5_a34 JTF_DATE_TABLE
966 , p5_a35 JTF_NUMBER_TABLE
967 , p5_a36 JTF_DATE_TABLE
968 , p5_a37 JTF_NUMBER_TABLE
969 , p5_a38 JTF_NUMBER_TABLE
970 , p5_a39 JTF_NUMBER_TABLE
971 , p6_a0 out nocopy JTF_NUMBER_TABLE
972 , p6_a1 out nocopy JTF_NUMBER_TABLE
973 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
974 , p6_a3 out nocopy JTF_NUMBER_TABLE
975 , p6_a4 out nocopy JTF_NUMBER_TABLE
976 , p6_a5 out nocopy JTF_NUMBER_TABLE
977 , p6_a6 out nocopy JTF_NUMBER_TABLE
978 , p6_a7 out nocopy JTF_NUMBER_TABLE
979 , p6_a8 out nocopy JTF_NUMBER_TABLE
980 , p6_a9 out nocopy JTF_NUMBER_TABLE
981 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
982 , p6_a11 out nocopy JTF_NUMBER_TABLE
983 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
984 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
985 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
986 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
987 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
988 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
989 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
990 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
991 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
992 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
993 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
994 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
995 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
996 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
997 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
998 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
999 , p6_a28 out nocopy JTF_NUMBER_TABLE
1000 , p6_a29 out nocopy JTF_NUMBER_TABLE
1001 , p6_a30 out nocopy JTF_NUMBER_TABLE
1002 , p6_a31 out nocopy JTF_DATE_TABLE
1003 , p6_a32 out nocopy JTF_NUMBER_TABLE
1004 , p6_a33 out nocopy JTF_NUMBER_TABLE
1005 , p6_a34 out nocopy JTF_DATE_TABLE
1006 , p6_a35 out nocopy JTF_NUMBER_TABLE
1007 , p6_a36 out nocopy JTF_DATE_TABLE
1008 , p6_a37 out nocopy JTF_NUMBER_TABLE
1009 , p6_a38 out nocopy JTF_NUMBER_TABLE
1010 , p6_a39 out nocopy JTF_NUMBER_TABLE
1011 )
1012
1013 as
1014 ddp_rcav_tbl okl_rca_pvt.rcav_tbl_type;
1015 ddx_rcav_tbl okl_rca_pvt.rcav_tbl_type;
1016 ddindx binary_integer; indx binary_integer;
1017 begin
1018
1019 -- copy data to the local IN or IN-OUT args, if any
1020
1021
1022
1023
1024
1025 okl_rca_pvt_w.rosetta_table_copy_in_p8(ddp_rcav_tbl, p5_a0
1026 , p5_a1
1027 , p5_a2
1028 , p5_a3
1029 , p5_a4
1030 , p5_a5
1031 , p5_a6
1032 , p5_a7
1033 , p5_a8
1034 , p5_a9
1035 , p5_a10
1036 , p5_a11
1037 , p5_a12
1038 , p5_a13
1039 , p5_a14
1040 , p5_a15
1041 , p5_a16
1042 , p5_a17
1043 , p5_a18
1044 , p5_a19
1045 , p5_a20
1046 , p5_a21
1047 , p5_a22
1048 , p5_a23
1049 , p5_a24
1050 , p5_a25
1051 , p5_a26
1052 , p5_a27
1053 , p5_a28
1054 , p5_a29
1055 , p5_a30
1056 , p5_a31
1057 , p5_a32
1058 , p5_a33
1059 , p5_a34
1060 , p5_a35
1061 , p5_a36
1062 , p5_a37
1063 , p5_a38
1064 , p5_a39
1065 );
1066
1067
1068 -- here's the delegated call to the old PL/SQL routine
1069 okl_rca_pvt.insert_row(p_api_version,
1070 p_init_msg_list,
1071 x_return_status,
1072 x_msg_count,
1073 x_msg_data,
1074 ddp_rcav_tbl,
1075 ddx_rcav_tbl);
1076
1077 -- copy data back from the local variables to OUT or IN-OUT args, if any
1078
1079
1080
1081
1082
1083
1084 okl_rca_pvt_w.rosetta_table_copy_out_p8(ddx_rcav_tbl, p6_a0
1085 , p6_a1
1086 , p6_a2
1087 , p6_a3
1088 , p6_a4
1089 , p6_a5
1090 , p6_a6
1091 , p6_a7
1092 , p6_a8
1093 , p6_a9
1094 , p6_a10
1095 , p6_a11
1096 , p6_a12
1097 , p6_a13
1098 , p6_a14
1099 , p6_a15
1100 , p6_a16
1101 , p6_a17
1102 , p6_a18
1103 , p6_a19
1104 , p6_a20
1105 , p6_a21
1106 , p6_a22
1107 , p6_a23
1108 , p6_a24
1109 , p6_a25
1110 , p6_a26
1111 , p6_a27
1112 , p6_a28
1113 , p6_a29
1114 , p6_a30
1115 , p6_a31
1116 , p6_a32
1117 , p6_a33
1118 , p6_a34
1119 , p6_a35
1120 , p6_a36
1121 , p6_a37
1122 , p6_a38
1123 , p6_a39
1124 );
1125 end;
1126
1127 procedure lock_row(p_api_version NUMBER
1128 , p_init_msg_list VARCHAR2
1129 , x_return_status out nocopy VARCHAR2
1130 , x_msg_count out nocopy NUMBER
1131 , x_msg_data out nocopy VARCHAR2
1132 , p5_a0 NUMBER
1133 , p5_a1 NUMBER
1134 , p5_a2 VARCHAR2
1135 , p5_a3 NUMBER
1136 , p5_a4 NUMBER
1137 , p5_a5 NUMBER
1138 , p5_a6 NUMBER
1139 , p5_a7 NUMBER
1140 , p5_a8 NUMBER
1141 , p5_a9 NUMBER
1142 , p5_a10 VARCHAR2
1143 , p5_a11 NUMBER
1144 , p5_a12 VARCHAR2
1145 , p5_a13 VARCHAR2
1146 , p5_a14 VARCHAR2
1147 , p5_a15 VARCHAR2
1148 , p5_a16 VARCHAR2
1149 , p5_a17 VARCHAR2
1150 , p5_a18 VARCHAR2
1151 , p5_a19 VARCHAR2
1152 , p5_a20 VARCHAR2
1153 , p5_a21 VARCHAR2
1154 , p5_a22 VARCHAR2
1155 , p5_a23 VARCHAR2
1156 , p5_a24 VARCHAR2
1157 , p5_a25 VARCHAR2
1158 , p5_a26 VARCHAR2
1159 , p5_a27 VARCHAR2
1160 , p5_a28 NUMBER
1161 , p5_a29 NUMBER
1162 , p5_a30 NUMBER
1163 , p5_a31 DATE
1164 , p5_a32 NUMBER
1165 , p5_a33 NUMBER
1166 , p5_a34 DATE
1167 , p5_a35 NUMBER
1168 , p5_a36 DATE
1169 , p5_a37 NUMBER
1170 , p5_a38 NUMBER
1171 , p5_a39 NUMBER
1172 )
1173
1174 as
1175 ddp_rcav_rec okl_rca_pvt.rcav_rec_type;
1176 ddindx binary_integer; indx binary_integer;
1177 begin
1178
1179 -- copy data to the local IN or IN-OUT args, if any
1180
1181
1182
1183
1184
1185 ddp_rcav_rec.id := p5_a0;
1186 ddp_rcav_rec.object_version_number := p5_a1;
1187 ddp_rcav_rec.sfwt_flag := p5_a2;
1188 ddp_rcav_rec.cnr_id := p5_a3;
1189 ddp_rcav_rec.lln_id := p5_a4;
1190 ddp_rcav_rec.lsm_id := p5_a5;
1191 ddp_rcav_rec.khr_id := p5_a6;
1192 ddp_rcav_rec.ile_id := p5_a7;
1193 ddp_rcav_rec.rct_id_details := p5_a8;
1194 ddp_rcav_rec.line_number := p5_a9;
1195 ddp_rcav_rec.description := p5_a10;
1196 ddp_rcav_rec.amount := p5_a11;
1197 ddp_rcav_rec.attribute_category := p5_a12;
1198 ddp_rcav_rec.attribute1 := p5_a13;
1199 ddp_rcav_rec.attribute2 := p5_a14;
1200 ddp_rcav_rec.attribute3 := p5_a15;
1201 ddp_rcav_rec.attribute4 := p5_a16;
1202 ddp_rcav_rec.attribute5 := p5_a17;
1203 ddp_rcav_rec.attribute6 := p5_a18;
1204 ddp_rcav_rec.attribute7 := p5_a19;
1205 ddp_rcav_rec.attribute8 := p5_a20;
1206 ddp_rcav_rec.attribute9 := p5_a21;
1207 ddp_rcav_rec.attribute10 := p5_a22;
1208 ddp_rcav_rec.attribute11 := p5_a23;
1209 ddp_rcav_rec.attribute12 := p5_a24;
1210 ddp_rcav_rec.attribute13 := p5_a25;
1211 ddp_rcav_rec.attribute14 := p5_a26;
1212 ddp_rcav_rec.attribute15 := p5_a27;
1213 ddp_rcav_rec.request_id := p5_a28;
1214 ddp_rcav_rec.program_application_id := p5_a29;
1215 ddp_rcav_rec.program_id := p5_a30;
1216 ddp_rcav_rec.program_update_date := p5_a31;
1217 ddp_rcav_rec.org_id := p5_a32;
1218 ddp_rcav_rec.created_by := p5_a33;
1219 ddp_rcav_rec.creation_date := p5_a34;
1220 ddp_rcav_rec.last_updated_by := p5_a35;
1221 ddp_rcav_rec.last_update_date := p5_a36;
1222 ddp_rcav_rec.last_update_login := p5_a37;
1223 ddp_rcav_rec.sty_id := p5_a38;
1224 ddp_rcav_rec.ar_invoice_id := p5_a39;
1225
1226 -- here's the delegated call to the old PL/SQL routine
1227 okl_rca_pvt.lock_row(p_api_version,
1228 p_init_msg_list,
1229 x_return_status,
1230 x_msg_count,
1231 x_msg_data,
1232 ddp_rcav_rec);
1233
1234 -- copy data back from the local variables to OUT or IN-OUT args, if any
1235
1236
1237
1238
1239
1240 end;
1241
1242 procedure lock_row(p_api_version NUMBER
1243 , p_init_msg_list VARCHAR2
1244 , x_return_status out nocopy VARCHAR2
1245 , x_msg_count out nocopy NUMBER
1246 , x_msg_data out nocopy VARCHAR2
1247 , p5_a0 JTF_NUMBER_TABLE
1248 , p5_a1 JTF_NUMBER_TABLE
1249 , p5_a2 JTF_VARCHAR2_TABLE_100
1250 , p5_a3 JTF_NUMBER_TABLE
1251 , p5_a4 JTF_NUMBER_TABLE
1252 , p5_a5 JTF_NUMBER_TABLE
1253 , p5_a6 JTF_NUMBER_TABLE
1254 , p5_a7 JTF_NUMBER_TABLE
1255 , p5_a8 JTF_NUMBER_TABLE
1256 , p5_a9 JTF_NUMBER_TABLE
1257 , p5_a10 JTF_VARCHAR2_TABLE_2000
1258 , p5_a11 JTF_NUMBER_TABLE
1259 , p5_a12 JTF_VARCHAR2_TABLE_100
1260 , p5_a13 JTF_VARCHAR2_TABLE_500
1261 , p5_a14 JTF_VARCHAR2_TABLE_500
1262 , p5_a15 JTF_VARCHAR2_TABLE_500
1263 , p5_a16 JTF_VARCHAR2_TABLE_500
1264 , p5_a17 JTF_VARCHAR2_TABLE_500
1265 , p5_a18 JTF_VARCHAR2_TABLE_500
1266 , p5_a19 JTF_VARCHAR2_TABLE_500
1267 , p5_a20 JTF_VARCHAR2_TABLE_500
1268 , p5_a21 JTF_VARCHAR2_TABLE_500
1269 , p5_a22 JTF_VARCHAR2_TABLE_500
1270 , p5_a23 JTF_VARCHAR2_TABLE_500
1271 , p5_a24 JTF_VARCHAR2_TABLE_500
1272 , p5_a25 JTF_VARCHAR2_TABLE_500
1273 , p5_a26 JTF_VARCHAR2_TABLE_500
1274 , p5_a27 JTF_VARCHAR2_TABLE_500
1275 , p5_a28 JTF_NUMBER_TABLE
1276 , p5_a29 JTF_NUMBER_TABLE
1277 , p5_a30 JTF_NUMBER_TABLE
1278 , p5_a31 JTF_DATE_TABLE
1279 , p5_a32 JTF_NUMBER_TABLE
1280 , p5_a33 JTF_NUMBER_TABLE
1281 , p5_a34 JTF_DATE_TABLE
1282 , p5_a35 JTF_NUMBER_TABLE
1283 , p5_a36 JTF_DATE_TABLE
1284 , p5_a37 JTF_NUMBER_TABLE
1285 , p5_a38 JTF_NUMBER_TABLE
1286 , p5_a39 JTF_NUMBER_TABLE
1287 )
1288
1289 as
1290 ddp_rcav_tbl okl_rca_pvt.rcav_tbl_type;
1291 ddindx binary_integer; indx binary_integer;
1292 begin
1293
1294 -- copy data to the local IN or IN-OUT args, if any
1295
1296
1297
1298
1299
1300 okl_rca_pvt_w.rosetta_table_copy_in_p8(ddp_rcav_tbl, p5_a0
1301 , p5_a1
1302 , p5_a2
1303 , p5_a3
1304 , p5_a4
1305 , p5_a5
1306 , p5_a6
1307 , p5_a7
1308 , p5_a8
1309 , p5_a9
1310 , p5_a10
1311 , p5_a11
1312 , p5_a12
1313 , p5_a13
1314 , p5_a14
1315 , p5_a15
1316 , p5_a16
1317 , p5_a17
1318 , p5_a18
1319 , p5_a19
1320 , p5_a20
1321 , p5_a21
1322 , p5_a22
1323 , p5_a23
1324 , p5_a24
1325 , p5_a25
1326 , p5_a26
1327 , p5_a27
1328 , p5_a28
1329 , p5_a29
1330 , p5_a30
1331 , p5_a31
1332 , p5_a32
1333 , p5_a33
1334 , p5_a34
1335 , p5_a35
1336 , p5_a36
1337 , p5_a37
1338 , p5_a38
1339 , p5_a39
1340 );
1341
1342 -- here's the delegated call to the old PL/SQL routine
1343 okl_rca_pvt.lock_row(p_api_version,
1344 p_init_msg_list,
1345 x_return_status,
1346 x_msg_count,
1347 x_msg_data,
1348 ddp_rcav_tbl);
1349
1350 -- copy data back from the local variables to OUT or IN-OUT args, if any
1351
1352
1353
1354
1355
1356 end;
1357
1358 procedure update_row(p_api_version NUMBER
1359 , p_init_msg_list VARCHAR2
1360 , x_return_status out nocopy VARCHAR2
1361 , x_msg_count out nocopy NUMBER
1362 , x_msg_data out nocopy VARCHAR2
1363 , p5_a0 NUMBER
1364 , p5_a1 NUMBER
1365 , p5_a2 VARCHAR2
1366 , p5_a3 NUMBER
1367 , p5_a4 NUMBER
1368 , p5_a5 NUMBER
1369 , p5_a6 NUMBER
1370 , p5_a7 NUMBER
1371 , p5_a8 NUMBER
1372 , p5_a9 NUMBER
1373 , p5_a10 VARCHAR2
1374 , p5_a11 NUMBER
1375 , p5_a12 VARCHAR2
1376 , p5_a13 VARCHAR2
1377 , p5_a14 VARCHAR2
1378 , p5_a15 VARCHAR2
1379 , p5_a16 VARCHAR2
1380 , p5_a17 VARCHAR2
1381 , p5_a18 VARCHAR2
1382 , p5_a19 VARCHAR2
1383 , p5_a20 VARCHAR2
1384 , p5_a21 VARCHAR2
1385 , p5_a22 VARCHAR2
1386 , p5_a23 VARCHAR2
1387 , p5_a24 VARCHAR2
1388 , p5_a25 VARCHAR2
1389 , p5_a26 VARCHAR2
1390 , p5_a27 VARCHAR2
1391 , p5_a28 NUMBER
1392 , p5_a29 NUMBER
1393 , p5_a30 NUMBER
1394 , p5_a31 DATE
1395 , p5_a32 NUMBER
1396 , p5_a33 NUMBER
1397 , p5_a34 DATE
1398 , p5_a35 NUMBER
1399 , p5_a36 DATE
1400 , p5_a37 NUMBER
1401 , p5_a38 NUMBER
1402 , p5_a39 NUMBER
1403 , p6_a0 out nocopy NUMBER
1404 , p6_a1 out nocopy NUMBER
1405 , p6_a2 out nocopy VARCHAR2
1406 , p6_a3 out nocopy NUMBER
1407 , p6_a4 out nocopy NUMBER
1408 , p6_a5 out nocopy NUMBER
1409 , p6_a6 out nocopy NUMBER
1410 , p6_a7 out nocopy NUMBER
1411 , p6_a8 out nocopy NUMBER
1412 , p6_a9 out nocopy NUMBER
1413 , p6_a10 out nocopy VARCHAR2
1414 , p6_a11 out nocopy NUMBER
1415 , p6_a12 out nocopy VARCHAR2
1416 , p6_a13 out nocopy VARCHAR2
1417 , p6_a14 out nocopy VARCHAR2
1418 , p6_a15 out nocopy VARCHAR2
1419 , p6_a16 out nocopy VARCHAR2
1420 , p6_a17 out nocopy VARCHAR2
1421 , p6_a18 out nocopy VARCHAR2
1422 , p6_a19 out nocopy VARCHAR2
1423 , p6_a20 out nocopy VARCHAR2
1424 , p6_a21 out nocopy VARCHAR2
1425 , p6_a22 out nocopy VARCHAR2
1426 , p6_a23 out nocopy VARCHAR2
1427 , p6_a24 out nocopy VARCHAR2
1428 , p6_a25 out nocopy VARCHAR2
1429 , p6_a26 out nocopy VARCHAR2
1430 , p6_a27 out nocopy VARCHAR2
1431 , p6_a28 out nocopy NUMBER
1432 , p6_a29 out nocopy NUMBER
1433 , p6_a30 out nocopy NUMBER
1434 , p6_a31 out nocopy DATE
1435 , p6_a32 out nocopy NUMBER
1436 , p6_a33 out nocopy NUMBER
1437 , p6_a34 out nocopy DATE
1438 , p6_a35 out nocopy NUMBER
1439 , p6_a36 out nocopy DATE
1440 , p6_a37 out nocopy NUMBER
1441 , p6_a38 out nocopy NUMBER
1442 , p6_a39 out nocopy NUMBER
1443 )
1444
1445 as
1446 ddp_rcav_rec okl_rca_pvt.rcav_rec_type;
1447 ddx_rcav_rec okl_rca_pvt.rcav_rec_type;
1448 ddindx binary_integer; indx binary_integer;
1449 begin
1450
1451 -- copy data to the local IN or IN-OUT args, if any
1452
1453
1454
1455
1456
1457 ddp_rcav_rec.id := p5_a0;
1458 ddp_rcav_rec.object_version_number := p5_a1;
1459 ddp_rcav_rec.sfwt_flag := p5_a2;
1460 ddp_rcav_rec.cnr_id := p5_a3;
1461 ddp_rcav_rec.lln_id := p5_a4;
1462 ddp_rcav_rec.lsm_id := p5_a5;
1463 ddp_rcav_rec.khr_id := p5_a6;
1464 ddp_rcav_rec.ile_id := p5_a7;
1465 ddp_rcav_rec.rct_id_details := p5_a8;
1466 ddp_rcav_rec.line_number := p5_a9;
1467 ddp_rcav_rec.description := p5_a10;
1468 ddp_rcav_rec.amount := p5_a11;
1469 ddp_rcav_rec.attribute_category := p5_a12;
1470 ddp_rcav_rec.attribute1 := p5_a13;
1471 ddp_rcav_rec.attribute2 := p5_a14;
1472 ddp_rcav_rec.attribute3 := p5_a15;
1473 ddp_rcav_rec.attribute4 := p5_a16;
1474 ddp_rcav_rec.attribute5 := p5_a17;
1475 ddp_rcav_rec.attribute6 := p5_a18;
1476 ddp_rcav_rec.attribute7 := p5_a19;
1477 ddp_rcav_rec.attribute8 := p5_a20;
1478 ddp_rcav_rec.attribute9 := p5_a21;
1479 ddp_rcav_rec.attribute10 := p5_a22;
1480 ddp_rcav_rec.attribute11 := p5_a23;
1481 ddp_rcav_rec.attribute12 := p5_a24;
1482 ddp_rcav_rec.attribute13 := p5_a25;
1483 ddp_rcav_rec.attribute14 := p5_a26;
1484 ddp_rcav_rec.attribute15 := p5_a27;
1485 ddp_rcav_rec.request_id := p5_a28;
1486 ddp_rcav_rec.program_application_id := p5_a29;
1487 ddp_rcav_rec.program_id := p5_a30;
1488 ddp_rcav_rec.program_update_date := p5_a31;
1489 ddp_rcav_rec.org_id := p5_a32;
1490 ddp_rcav_rec.created_by := p5_a33;
1491 ddp_rcav_rec.creation_date := p5_a34;
1492 ddp_rcav_rec.last_updated_by := p5_a35;
1493 ddp_rcav_rec.last_update_date := p5_a36;
1494 ddp_rcav_rec.last_update_login := p5_a37;
1495 ddp_rcav_rec.sty_id := p5_a38;
1496 ddp_rcav_rec.ar_invoice_id := p5_a39;
1497
1498
1499 -- here's the delegated call to the old PL/SQL routine
1500 okl_rca_pvt.update_row(p_api_version,
1501 p_init_msg_list,
1502 x_return_status,
1503 x_msg_count,
1504 x_msg_data,
1505 ddp_rcav_rec,
1506 ddx_rcav_rec);
1507
1508 -- copy data back from the local variables to OUT or IN-OUT args, if any
1509
1510
1511
1512
1513
1514
1515 p6_a0 := ddx_rcav_rec.id;
1516 p6_a1 := ddx_rcav_rec.object_version_number;
1517 p6_a2 := ddx_rcav_rec.sfwt_flag;
1518 p6_a3 := ddx_rcav_rec.cnr_id;
1519 p6_a4 := ddx_rcav_rec.lln_id;
1520 p6_a5 := ddx_rcav_rec.lsm_id;
1521 p6_a6 := ddx_rcav_rec.khr_id;
1522 p6_a7 := ddx_rcav_rec.ile_id;
1523 p6_a8 := ddx_rcav_rec.rct_id_details;
1524 p6_a9 := ddx_rcav_rec.line_number;
1525 p6_a10 := ddx_rcav_rec.description;
1526 p6_a11 := ddx_rcav_rec.amount;
1527 p6_a12 := ddx_rcav_rec.attribute_category;
1528 p6_a13 := ddx_rcav_rec.attribute1;
1529 p6_a14 := ddx_rcav_rec.attribute2;
1530 p6_a15 := ddx_rcav_rec.attribute3;
1531 p6_a16 := ddx_rcav_rec.attribute4;
1532 p6_a17 := ddx_rcav_rec.attribute5;
1533 p6_a18 := ddx_rcav_rec.attribute6;
1534 p6_a19 := ddx_rcav_rec.attribute7;
1535 p6_a20 := ddx_rcav_rec.attribute8;
1536 p6_a21 := ddx_rcav_rec.attribute9;
1537 p6_a22 := ddx_rcav_rec.attribute10;
1538 p6_a23 := ddx_rcav_rec.attribute11;
1539 p6_a24 := ddx_rcav_rec.attribute12;
1540 p6_a25 := ddx_rcav_rec.attribute13;
1541 p6_a26 := ddx_rcav_rec.attribute14;
1542 p6_a27 := ddx_rcav_rec.attribute15;
1543 p6_a28 := ddx_rcav_rec.request_id;
1544 p6_a29 := ddx_rcav_rec.program_application_id;
1545 p6_a30 := ddx_rcav_rec.program_id;
1546 p6_a31 := ddx_rcav_rec.program_update_date;
1547 p6_a32 := ddx_rcav_rec.org_id;
1548 p6_a33 := ddx_rcav_rec.created_by;
1549 p6_a34 := ddx_rcav_rec.creation_date;
1550 p6_a35 := ddx_rcav_rec.last_updated_by;
1551 p6_a36 := ddx_rcav_rec.last_update_date;
1552 p6_a37 := ddx_rcav_rec.last_update_login;
1553 p6_a38 := ddx_rcav_rec.sty_id;
1554 p6_a39 := ddx_rcav_rec.ar_invoice_id;
1555 end;
1556
1557 procedure update_row(p_api_version NUMBER
1558 , p_init_msg_list VARCHAR2
1559 , x_return_status out nocopy VARCHAR2
1560 , x_msg_count out nocopy NUMBER
1561 , x_msg_data out nocopy VARCHAR2
1562 , p5_a0 JTF_NUMBER_TABLE
1563 , p5_a1 JTF_NUMBER_TABLE
1564 , p5_a2 JTF_VARCHAR2_TABLE_100
1565 , p5_a3 JTF_NUMBER_TABLE
1566 , p5_a4 JTF_NUMBER_TABLE
1567 , p5_a5 JTF_NUMBER_TABLE
1568 , p5_a6 JTF_NUMBER_TABLE
1569 , p5_a7 JTF_NUMBER_TABLE
1570 , p5_a8 JTF_NUMBER_TABLE
1571 , p5_a9 JTF_NUMBER_TABLE
1572 , p5_a10 JTF_VARCHAR2_TABLE_2000
1573 , p5_a11 JTF_NUMBER_TABLE
1574 , p5_a12 JTF_VARCHAR2_TABLE_100
1575 , p5_a13 JTF_VARCHAR2_TABLE_500
1576 , p5_a14 JTF_VARCHAR2_TABLE_500
1577 , p5_a15 JTF_VARCHAR2_TABLE_500
1578 , p5_a16 JTF_VARCHAR2_TABLE_500
1579 , p5_a17 JTF_VARCHAR2_TABLE_500
1580 , p5_a18 JTF_VARCHAR2_TABLE_500
1581 , p5_a19 JTF_VARCHAR2_TABLE_500
1582 , p5_a20 JTF_VARCHAR2_TABLE_500
1583 , p5_a21 JTF_VARCHAR2_TABLE_500
1584 , p5_a22 JTF_VARCHAR2_TABLE_500
1585 , p5_a23 JTF_VARCHAR2_TABLE_500
1586 , p5_a24 JTF_VARCHAR2_TABLE_500
1587 , p5_a25 JTF_VARCHAR2_TABLE_500
1588 , p5_a26 JTF_VARCHAR2_TABLE_500
1589 , p5_a27 JTF_VARCHAR2_TABLE_500
1590 , p5_a28 JTF_NUMBER_TABLE
1591 , p5_a29 JTF_NUMBER_TABLE
1592 , p5_a30 JTF_NUMBER_TABLE
1593 , p5_a31 JTF_DATE_TABLE
1594 , p5_a32 JTF_NUMBER_TABLE
1595 , p5_a33 JTF_NUMBER_TABLE
1596 , p5_a34 JTF_DATE_TABLE
1597 , p5_a35 JTF_NUMBER_TABLE
1598 , p5_a36 JTF_DATE_TABLE
1599 , p5_a37 JTF_NUMBER_TABLE
1600 , p5_a38 JTF_NUMBER_TABLE
1601 , p5_a39 JTF_NUMBER_TABLE
1602 , p6_a0 out nocopy JTF_NUMBER_TABLE
1603 , p6_a1 out nocopy JTF_NUMBER_TABLE
1604 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1605 , p6_a3 out nocopy JTF_NUMBER_TABLE
1606 , p6_a4 out nocopy JTF_NUMBER_TABLE
1607 , p6_a5 out nocopy JTF_NUMBER_TABLE
1608 , p6_a6 out nocopy JTF_NUMBER_TABLE
1609 , p6_a7 out nocopy JTF_NUMBER_TABLE
1610 , p6_a8 out nocopy JTF_NUMBER_TABLE
1611 , p6_a9 out nocopy JTF_NUMBER_TABLE
1612 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
1613 , p6_a11 out nocopy JTF_NUMBER_TABLE
1614 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1615 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1616 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1617 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1618 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1619 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1620 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1621 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1622 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1623 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1624 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1625 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1626 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1627 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1628 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1629 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1630 , p6_a28 out nocopy JTF_NUMBER_TABLE
1631 , p6_a29 out nocopy JTF_NUMBER_TABLE
1632 , p6_a30 out nocopy JTF_NUMBER_TABLE
1633 , p6_a31 out nocopy JTF_DATE_TABLE
1634 , p6_a32 out nocopy JTF_NUMBER_TABLE
1635 , p6_a33 out nocopy JTF_NUMBER_TABLE
1636 , p6_a34 out nocopy JTF_DATE_TABLE
1637 , p6_a35 out nocopy JTF_NUMBER_TABLE
1638 , p6_a36 out nocopy JTF_DATE_TABLE
1639 , p6_a37 out nocopy JTF_NUMBER_TABLE
1640 , p6_a38 out nocopy JTF_NUMBER_TABLE
1641 , p6_a39 out nocopy JTF_NUMBER_TABLE
1642 )
1643
1644 as
1645 ddp_rcav_tbl okl_rca_pvt.rcav_tbl_type;
1646 ddx_rcav_tbl okl_rca_pvt.rcav_tbl_type;
1647 ddindx binary_integer; indx binary_integer;
1648 begin
1649
1650 -- copy data to the local IN or IN-OUT args, if any
1651
1652
1653
1654
1655
1656 okl_rca_pvt_w.rosetta_table_copy_in_p8(ddp_rcav_tbl, p5_a0
1657 , p5_a1
1658 , p5_a2
1659 , p5_a3
1660 , p5_a4
1661 , p5_a5
1662 , p5_a6
1663 , p5_a7
1664 , p5_a8
1665 , p5_a9
1666 , p5_a10
1667 , p5_a11
1668 , p5_a12
1669 , p5_a13
1670 , p5_a14
1671 , p5_a15
1672 , p5_a16
1673 , p5_a17
1674 , p5_a18
1675 , p5_a19
1676 , p5_a20
1677 , p5_a21
1678 , p5_a22
1679 , p5_a23
1680 , p5_a24
1681 , p5_a25
1682 , p5_a26
1683 , p5_a27
1684 , p5_a28
1685 , p5_a29
1686 , p5_a30
1687 , p5_a31
1688 , p5_a32
1689 , p5_a33
1690 , p5_a34
1691 , p5_a35
1692 , p5_a36
1693 , p5_a37
1694 , p5_a38
1695 , p5_a39
1696 );
1697
1698
1699 -- here's the delegated call to the old PL/SQL routine
1700 okl_rca_pvt.update_row(p_api_version,
1701 p_init_msg_list,
1702 x_return_status,
1703 x_msg_count,
1704 x_msg_data,
1705 ddp_rcav_tbl,
1706 ddx_rcav_tbl);
1707
1708 -- copy data back from the local variables to OUT or IN-OUT args, if any
1709
1710
1711
1712
1713
1714
1715 okl_rca_pvt_w.rosetta_table_copy_out_p8(ddx_rcav_tbl, p6_a0
1716 , p6_a1
1717 , p6_a2
1718 , p6_a3
1719 , p6_a4
1720 , p6_a5
1721 , p6_a6
1722 , p6_a7
1723 , p6_a8
1724 , p6_a9
1725 , p6_a10
1726 , p6_a11
1727 , p6_a12
1728 , p6_a13
1729 , p6_a14
1730 , p6_a15
1731 , p6_a16
1732 , p6_a17
1733 , p6_a18
1734 , p6_a19
1735 , p6_a20
1736 , p6_a21
1737 , p6_a22
1738 , p6_a23
1739 , p6_a24
1740 , p6_a25
1741 , p6_a26
1742 , p6_a27
1743 , p6_a28
1744 , p6_a29
1745 , p6_a30
1746 , p6_a31
1747 , p6_a32
1748 , p6_a33
1749 , p6_a34
1750 , p6_a35
1751 , p6_a36
1752 , p6_a37
1753 , p6_a38
1754 , p6_a39
1755 );
1756 end;
1757
1758 procedure delete_row(p_api_version NUMBER
1759 , p_init_msg_list VARCHAR2
1760 , x_return_status out nocopy VARCHAR2
1761 , x_msg_count out nocopy NUMBER
1762 , x_msg_data out nocopy VARCHAR2
1763 , p5_a0 NUMBER
1764 , p5_a1 NUMBER
1765 , p5_a2 VARCHAR2
1766 , p5_a3 NUMBER
1767 , p5_a4 NUMBER
1768 , p5_a5 NUMBER
1769 , p5_a6 NUMBER
1770 , p5_a7 NUMBER
1771 , p5_a8 NUMBER
1772 , p5_a9 NUMBER
1773 , p5_a10 VARCHAR2
1774 , p5_a11 NUMBER
1775 , p5_a12 VARCHAR2
1776 , p5_a13 VARCHAR2
1777 , p5_a14 VARCHAR2
1778 , p5_a15 VARCHAR2
1779 , p5_a16 VARCHAR2
1780 , p5_a17 VARCHAR2
1781 , p5_a18 VARCHAR2
1782 , p5_a19 VARCHAR2
1783 , p5_a20 VARCHAR2
1784 , p5_a21 VARCHAR2
1785 , p5_a22 VARCHAR2
1786 , p5_a23 VARCHAR2
1787 , p5_a24 VARCHAR2
1788 , p5_a25 VARCHAR2
1789 , p5_a26 VARCHAR2
1790 , p5_a27 VARCHAR2
1791 , p5_a28 NUMBER
1792 , p5_a29 NUMBER
1793 , p5_a30 NUMBER
1794 , p5_a31 DATE
1795 , p5_a32 NUMBER
1796 , p5_a33 NUMBER
1797 , p5_a34 DATE
1798 , p5_a35 NUMBER
1799 , p5_a36 DATE
1800 , p5_a37 NUMBER
1801 , p5_a38 NUMBER
1802 , p5_a39 NUMBER
1803 )
1804
1805 as
1806 ddp_rcav_rec okl_rca_pvt.rcav_rec_type;
1807 ddindx binary_integer; indx binary_integer;
1808 begin
1809
1810 -- copy data to the local IN or IN-OUT args, if any
1811
1812
1813
1814
1815
1816 ddp_rcav_rec.id := p5_a0;
1817 ddp_rcav_rec.object_version_number := p5_a1;
1818 ddp_rcav_rec.sfwt_flag := p5_a2;
1819 ddp_rcav_rec.cnr_id := p5_a3;
1820 ddp_rcav_rec.lln_id := p5_a4;
1821 ddp_rcav_rec.lsm_id := p5_a5;
1822 ddp_rcav_rec.khr_id := p5_a6;
1823 ddp_rcav_rec.ile_id := p5_a7;
1824 ddp_rcav_rec.rct_id_details := p5_a8;
1825 ddp_rcav_rec.line_number := p5_a9;
1826 ddp_rcav_rec.description := p5_a10;
1827 ddp_rcav_rec.amount := p5_a11;
1828 ddp_rcav_rec.attribute_category := p5_a12;
1829 ddp_rcav_rec.attribute1 := p5_a13;
1830 ddp_rcav_rec.attribute2 := p5_a14;
1831 ddp_rcav_rec.attribute3 := p5_a15;
1832 ddp_rcav_rec.attribute4 := p5_a16;
1833 ddp_rcav_rec.attribute5 := p5_a17;
1834 ddp_rcav_rec.attribute6 := p5_a18;
1835 ddp_rcav_rec.attribute7 := p5_a19;
1836 ddp_rcav_rec.attribute8 := p5_a20;
1837 ddp_rcav_rec.attribute9 := p5_a21;
1838 ddp_rcav_rec.attribute10 := p5_a22;
1839 ddp_rcav_rec.attribute11 := p5_a23;
1840 ddp_rcav_rec.attribute12 := p5_a24;
1841 ddp_rcav_rec.attribute13 := p5_a25;
1842 ddp_rcav_rec.attribute14 := p5_a26;
1843 ddp_rcav_rec.attribute15 := p5_a27;
1844 ddp_rcav_rec.request_id := p5_a28;
1845 ddp_rcav_rec.program_application_id := p5_a29;
1846 ddp_rcav_rec.program_id := p5_a30;
1847 ddp_rcav_rec.program_update_date := p5_a31;
1848 ddp_rcav_rec.org_id := p5_a32;
1849 ddp_rcav_rec.created_by := p5_a33;
1850 ddp_rcav_rec.creation_date := p5_a34;
1851 ddp_rcav_rec.last_updated_by := p5_a35;
1852 ddp_rcav_rec.last_update_date := p5_a36;
1853 ddp_rcav_rec.last_update_login := p5_a37;
1854 ddp_rcav_rec.sty_id := p5_a38;
1855 ddp_rcav_rec.ar_invoice_id := p5_a39;
1856
1857 -- here's the delegated call to the old PL/SQL routine
1858 okl_rca_pvt.delete_row(p_api_version,
1859 p_init_msg_list,
1860 x_return_status,
1861 x_msg_count,
1862 x_msg_data,
1863 ddp_rcav_rec);
1864
1865 -- copy data back from the local variables to OUT or IN-OUT args, if any
1866
1867
1868
1869
1870
1871 end;
1872
1873 procedure delete_row(p_api_version NUMBER
1874 , p_init_msg_list VARCHAR2
1875 , x_return_status out nocopy VARCHAR2
1876 , x_msg_count out nocopy NUMBER
1877 , x_msg_data out nocopy VARCHAR2
1878 , p5_a0 JTF_NUMBER_TABLE
1879 , p5_a1 JTF_NUMBER_TABLE
1880 , p5_a2 JTF_VARCHAR2_TABLE_100
1881 , p5_a3 JTF_NUMBER_TABLE
1882 , p5_a4 JTF_NUMBER_TABLE
1883 , p5_a5 JTF_NUMBER_TABLE
1884 , p5_a6 JTF_NUMBER_TABLE
1885 , p5_a7 JTF_NUMBER_TABLE
1886 , p5_a8 JTF_NUMBER_TABLE
1887 , p5_a9 JTF_NUMBER_TABLE
1888 , p5_a10 JTF_VARCHAR2_TABLE_2000
1889 , p5_a11 JTF_NUMBER_TABLE
1890 , p5_a12 JTF_VARCHAR2_TABLE_100
1891 , p5_a13 JTF_VARCHAR2_TABLE_500
1892 , p5_a14 JTF_VARCHAR2_TABLE_500
1893 , p5_a15 JTF_VARCHAR2_TABLE_500
1894 , p5_a16 JTF_VARCHAR2_TABLE_500
1895 , p5_a17 JTF_VARCHAR2_TABLE_500
1896 , p5_a18 JTF_VARCHAR2_TABLE_500
1897 , p5_a19 JTF_VARCHAR2_TABLE_500
1898 , p5_a20 JTF_VARCHAR2_TABLE_500
1899 , p5_a21 JTF_VARCHAR2_TABLE_500
1900 , p5_a22 JTF_VARCHAR2_TABLE_500
1901 , p5_a23 JTF_VARCHAR2_TABLE_500
1902 , p5_a24 JTF_VARCHAR2_TABLE_500
1903 , p5_a25 JTF_VARCHAR2_TABLE_500
1904 , p5_a26 JTF_VARCHAR2_TABLE_500
1905 , p5_a27 JTF_VARCHAR2_TABLE_500
1906 , p5_a28 JTF_NUMBER_TABLE
1907 , p5_a29 JTF_NUMBER_TABLE
1908 , p5_a30 JTF_NUMBER_TABLE
1909 , p5_a31 JTF_DATE_TABLE
1910 , p5_a32 JTF_NUMBER_TABLE
1911 , p5_a33 JTF_NUMBER_TABLE
1912 , p5_a34 JTF_DATE_TABLE
1913 , p5_a35 JTF_NUMBER_TABLE
1914 , p5_a36 JTF_DATE_TABLE
1915 , p5_a37 JTF_NUMBER_TABLE
1916 , p5_a38 JTF_NUMBER_TABLE
1917 , p5_a39 JTF_NUMBER_TABLE
1918 )
1919
1920 as
1921 ddp_rcav_tbl okl_rca_pvt.rcav_tbl_type;
1922 ddindx binary_integer; indx binary_integer;
1923 begin
1924
1925 -- copy data to the local IN or IN-OUT args, if any
1926
1927
1928
1929
1930
1931 okl_rca_pvt_w.rosetta_table_copy_in_p8(ddp_rcav_tbl, p5_a0
1932 , p5_a1
1933 , p5_a2
1934 , p5_a3
1935 , p5_a4
1936 , p5_a5
1937 , p5_a6
1938 , p5_a7
1939 , p5_a8
1940 , p5_a9
1941 , p5_a10
1942 , p5_a11
1943 , p5_a12
1944 , p5_a13
1945 , p5_a14
1946 , p5_a15
1947 , p5_a16
1948 , p5_a17
1949 , p5_a18
1950 , p5_a19
1951 , p5_a20
1952 , p5_a21
1953 , p5_a22
1954 , p5_a23
1955 , p5_a24
1956 , p5_a25
1957 , p5_a26
1958 , p5_a27
1959 , p5_a28
1960 , p5_a29
1961 , p5_a30
1962 , p5_a31
1963 , p5_a32
1964 , p5_a33
1965 , p5_a34
1966 , p5_a35
1967 , p5_a36
1968 , p5_a37
1969 , p5_a38
1970 , p5_a39
1971 );
1972
1973 -- here's the delegated call to the old PL/SQL routine
1974 okl_rca_pvt.delete_row(p_api_version,
1975 p_init_msg_list,
1976 x_return_status,
1977 x_msg_count,
1978 x_msg_data,
1979 ddp_rcav_tbl);
1980
1981 -- copy data back from the local variables to OUT or IN-OUT args, if any
1982
1983
1984
1985
1986
1987 end;
1988
1989 procedure validate_row(p_api_version NUMBER
1990 , p_init_msg_list VARCHAR2
1991 , x_return_status out nocopy VARCHAR2
1992 , x_msg_count out nocopy NUMBER
1993 , x_msg_data out nocopy VARCHAR2
1994 , p5_a0 NUMBER
1995 , p5_a1 NUMBER
1996 , p5_a2 VARCHAR2
1997 , p5_a3 NUMBER
1998 , p5_a4 NUMBER
1999 , p5_a5 NUMBER
2000 , p5_a6 NUMBER
2001 , p5_a7 NUMBER
2002 , p5_a8 NUMBER
2003 , p5_a9 NUMBER
2004 , p5_a10 VARCHAR2
2005 , p5_a11 NUMBER
2006 , p5_a12 VARCHAR2
2007 , p5_a13 VARCHAR2
2008 , p5_a14 VARCHAR2
2009 , p5_a15 VARCHAR2
2010 , p5_a16 VARCHAR2
2011 , p5_a17 VARCHAR2
2012 , p5_a18 VARCHAR2
2013 , p5_a19 VARCHAR2
2014 , p5_a20 VARCHAR2
2015 , p5_a21 VARCHAR2
2016 , p5_a22 VARCHAR2
2017 , p5_a23 VARCHAR2
2018 , p5_a24 VARCHAR2
2019 , p5_a25 VARCHAR2
2020 , p5_a26 VARCHAR2
2021 , p5_a27 VARCHAR2
2022 , p5_a28 NUMBER
2023 , p5_a29 NUMBER
2024 , p5_a30 NUMBER
2025 , p5_a31 DATE
2026 , p5_a32 NUMBER
2027 , p5_a33 NUMBER
2028 , p5_a34 DATE
2029 , p5_a35 NUMBER
2030 , p5_a36 DATE
2031 , p5_a37 NUMBER
2032 , p5_a38 NUMBER
2033 , p5_a39 NUMBER
2034 )
2035
2036 as
2037 ddp_rcav_rec okl_rca_pvt.rcav_rec_type;
2038 ddindx binary_integer; indx binary_integer;
2039 begin
2040
2041 -- copy data to the local IN or IN-OUT args, if any
2042
2043
2044
2045
2046
2047 ddp_rcav_rec.id := p5_a0;
2048 ddp_rcav_rec.object_version_number := p5_a1;
2049 ddp_rcav_rec.sfwt_flag := p5_a2;
2050 ddp_rcav_rec.cnr_id := p5_a3;
2051 ddp_rcav_rec.lln_id := p5_a4;
2052 ddp_rcav_rec.lsm_id := p5_a5;
2053 ddp_rcav_rec.khr_id := p5_a6;
2054 ddp_rcav_rec.ile_id := p5_a7;
2055 ddp_rcav_rec.rct_id_details := p5_a8;
2056 ddp_rcav_rec.line_number := p5_a9;
2057 ddp_rcav_rec.description := p5_a10;
2058 ddp_rcav_rec.amount := p5_a11;
2059 ddp_rcav_rec.attribute_category := p5_a12;
2060 ddp_rcav_rec.attribute1 := p5_a13;
2061 ddp_rcav_rec.attribute2 := p5_a14;
2062 ddp_rcav_rec.attribute3 := p5_a15;
2063 ddp_rcav_rec.attribute4 := p5_a16;
2064 ddp_rcav_rec.attribute5 := p5_a17;
2065 ddp_rcav_rec.attribute6 := p5_a18;
2066 ddp_rcav_rec.attribute7 := p5_a19;
2067 ddp_rcav_rec.attribute8 := p5_a20;
2068 ddp_rcav_rec.attribute9 := p5_a21;
2069 ddp_rcav_rec.attribute10 := p5_a22;
2070 ddp_rcav_rec.attribute11 := p5_a23;
2071 ddp_rcav_rec.attribute12 := p5_a24;
2072 ddp_rcav_rec.attribute13 := p5_a25;
2073 ddp_rcav_rec.attribute14 := p5_a26;
2074 ddp_rcav_rec.attribute15 := p5_a27;
2075 ddp_rcav_rec.request_id := p5_a28;
2076 ddp_rcav_rec.program_application_id := p5_a29;
2077 ddp_rcav_rec.program_id := p5_a30;
2078 ddp_rcav_rec.program_update_date := p5_a31;
2079 ddp_rcav_rec.org_id := p5_a32;
2080 ddp_rcav_rec.created_by := p5_a33;
2081 ddp_rcav_rec.creation_date := p5_a34;
2082 ddp_rcav_rec.last_updated_by := p5_a35;
2083 ddp_rcav_rec.last_update_date := p5_a36;
2084 ddp_rcav_rec.last_update_login := p5_a37;
2085 ddp_rcav_rec.sty_id := p5_a38;
2086 ddp_rcav_rec.ar_invoice_id := p5_a39;
2087
2088 -- here's the delegated call to the old PL/SQL routine
2089 okl_rca_pvt.validate_row(p_api_version,
2090 p_init_msg_list,
2091 x_return_status,
2092 x_msg_count,
2093 x_msg_data,
2094 ddp_rcav_rec);
2095
2096 -- copy data back from the local variables to OUT or IN-OUT args, if any
2097
2098
2099
2100
2101
2102 end;
2103
2104 procedure validate_row(p_api_version NUMBER
2105 , p_init_msg_list VARCHAR2
2106 , x_return_status out nocopy VARCHAR2
2107 , x_msg_count out nocopy NUMBER
2108 , x_msg_data out nocopy VARCHAR2
2109 , p5_a0 JTF_NUMBER_TABLE
2110 , p5_a1 JTF_NUMBER_TABLE
2111 , p5_a2 JTF_VARCHAR2_TABLE_100
2112 , p5_a3 JTF_NUMBER_TABLE
2113 , p5_a4 JTF_NUMBER_TABLE
2114 , p5_a5 JTF_NUMBER_TABLE
2115 , p5_a6 JTF_NUMBER_TABLE
2116 , p5_a7 JTF_NUMBER_TABLE
2117 , p5_a8 JTF_NUMBER_TABLE
2118 , p5_a9 JTF_NUMBER_TABLE
2119 , p5_a10 JTF_VARCHAR2_TABLE_2000
2120 , p5_a11 JTF_NUMBER_TABLE
2121 , p5_a12 JTF_VARCHAR2_TABLE_100
2122 , p5_a13 JTF_VARCHAR2_TABLE_500
2123 , p5_a14 JTF_VARCHAR2_TABLE_500
2124 , p5_a15 JTF_VARCHAR2_TABLE_500
2125 , p5_a16 JTF_VARCHAR2_TABLE_500
2126 , p5_a17 JTF_VARCHAR2_TABLE_500
2127 , p5_a18 JTF_VARCHAR2_TABLE_500
2128 , p5_a19 JTF_VARCHAR2_TABLE_500
2129 , p5_a20 JTF_VARCHAR2_TABLE_500
2130 , p5_a21 JTF_VARCHAR2_TABLE_500
2131 , p5_a22 JTF_VARCHAR2_TABLE_500
2132 , p5_a23 JTF_VARCHAR2_TABLE_500
2133 , p5_a24 JTF_VARCHAR2_TABLE_500
2134 , p5_a25 JTF_VARCHAR2_TABLE_500
2135 , p5_a26 JTF_VARCHAR2_TABLE_500
2136 , p5_a27 JTF_VARCHAR2_TABLE_500
2137 , p5_a28 JTF_NUMBER_TABLE
2138 , p5_a29 JTF_NUMBER_TABLE
2139 , p5_a30 JTF_NUMBER_TABLE
2140 , p5_a31 JTF_DATE_TABLE
2141 , p5_a32 JTF_NUMBER_TABLE
2142 , p5_a33 JTF_NUMBER_TABLE
2143 , p5_a34 JTF_DATE_TABLE
2144 , p5_a35 JTF_NUMBER_TABLE
2145 , p5_a36 JTF_DATE_TABLE
2146 , p5_a37 JTF_NUMBER_TABLE
2147 , p5_a38 JTF_NUMBER_TABLE
2148 , p5_a39 JTF_NUMBER_TABLE
2149 )
2150
2151 as
2152 ddp_rcav_tbl okl_rca_pvt.rcav_tbl_type;
2153 ddindx binary_integer; indx binary_integer;
2154 begin
2155
2156 -- copy data to the local IN or IN-OUT args, if any
2157
2158
2159
2160
2161
2162 okl_rca_pvt_w.rosetta_table_copy_in_p8(ddp_rcav_tbl, p5_a0
2163 , p5_a1
2164 , p5_a2
2165 , p5_a3
2166 , p5_a4
2167 , p5_a5
2168 , p5_a6
2169 , p5_a7
2170 , p5_a8
2171 , p5_a9
2172 , p5_a10
2173 , p5_a11
2174 , p5_a12
2175 , p5_a13
2176 , p5_a14
2177 , p5_a15
2178 , p5_a16
2179 , p5_a17
2180 , p5_a18
2181 , p5_a19
2182 , p5_a20
2183 , p5_a21
2184 , p5_a22
2185 , p5_a23
2186 , p5_a24
2187 , p5_a25
2188 , p5_a26
2189 , p5_a27
2190 , p5_a28
2191 , p5_a29
2192 , p5_a30
2193 , p5_a31
2194 , p5_a32
2195 , p5_a33
2196 , p5_a34
2197 , p5_a35
2198 , p5_a36
2199 , p5_a37
2200 , p5_a38
2201 , p5_a39
2202 );
2203
2204 -- here's the delegated call to the old PL/SQL routine
2205 okl_rca_pvt.validate_row(p_api_version,
2206 p_init_msg_list,
2207 x_return_status,
2208 x_msg_count,
2209 x_msg_data,
2210 ddp_rcav_tbl);
2211
2212 -- copy data back from the local variables to OUT or IN-OUT args, if any
2213
2214
2215
2216
2217
2218 end;
2219
2220 end okl_rca_pvt_w;