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