[Home] [Help]
PACKAGE BODY: APPS.OKL_LRF_PVT_W
Source
1 package body okl_lrf_pvt_w as
2 /* $Header: OKLILRFB.pls 120.1 2005/07/05 12:28:54 asawanka noship $ */
3 procedure rosetta_table_copy_in_p28(t out nocopy okl_lrf_pvt.lrfv_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_DATE_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_DATE_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_VARCHAR2_TABLE_500
17 , a14 JTF_VARCHAR2_TABLE_500
18 , a15 JTF_VARCHAR2_TABLE_500
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_100
32 , a29 JTF_NUMBER_TABLE
33 ) as
34 ddindx binary_integer; indx binary_integer;
35 begin
36 if a0 is not null and a0.count > 0 then
37 if a0.count > 0 then
38 indx := a0.first;
39 ddindx := 1;
40 while true loop
41 t(ddindx).id := a0(indx);
42 t(ddindx).object_version_number := a1(indx);
43 t(ddindx).lrt_id := a2(indx);
44 t(ddindx).term_in_months := a3(indx);
45 t(ddindx).residual_value_percent := a4(indx);
46 t(ddindx).interest_rate := a5(indx);
47 t(ddindx).lease_rate_factor := a6(indx);
48 t(ddindx).created_by := a7(indx);
49 t(ddindx).creation_date := a8(indx);
50 t(ddindx).last_updated_by := a9(indx);
51 t(ddindx).last_update_date := a10(indx);
52 t(ddindx).last_update_login := a11(indx);
53 t(ddindx).attribute_category := a12(indx);
54 t(ddindx).attribute1 := a13(indx);
55 t(ddindx).attribute2 := a14(indx);
56 t(ddindx).attribute3 := a15(indx);
57 t(ddindx).attribute4 := a16(indx);
58 t(ddindx).attribute5 := a17(indx);
59 t(ddindx).attribute6 := a18(indx);
60 t(ddindx).attribute7 := a19(indx);
61 t(ddindx).attribute8 := a20(indx);
62 t(ddindx).attribute9 := a21(indx);
63 t(ddindx).attribute10 := a22(indx);
64 t(ddindx).attribute11 := a23(indx);
65 t(ddindx).attribute12 := a24(indx);
66 t(ddindx).attribute13 := a25(indx);
67 t(ddindx).attribute14 := a26(indx);
68 t(ddindx).attribute15 := a27(indx);
69 t(ddindx).is_new_flag := a28(indx);
70 t(ddindx).rate_set_version_id := a29(indx);
71 ddindx := ddindx+1;
72 if a0.last =indx
73 then exit;
74 end if;
75 indx := a0.next(indx);
76 end loop;
77 end if;
78 end if;
79 end rosetta_table_copy_in_p28;
80 procedure rosetta_table_copy_out_p28(t okl_lrf_pvt.lrfv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
81 , a1 out nocopy JTF_NUMBER_TABLE
82 , a2 out nocopy JTF_NUMBER_TABLE
83 , a3 out nocopy JTF_NUMBER_TABLE
84 , a4 out nocopy JTF_NUMBER_TABLE
85 , a5 out nocopy JTF_NUMBER_TABLE
86 , a6 out nocopy JTF_NUMBER_TABLE
87 , a7 out nocopy JTF_NUMBER_TABLE
88 , a8 out nocopy JTF_DATE_TABLE
89 , a9 out nocopy JTF_NUMBER_TABLE
90 , a10 out nocopy JTF_DATE_TABLE
91 , a11 out nocopy JTF_NUMBER_TABLE
92 , a12 out nocopy JTF_VARCHAR2_TABLE_100
93 , a13 out nocopy JTF_VARCHAR2_TABLE_500
94 , a14 out nocopy JTF_VARCHAR2_TABLE_500
95 , a15 out nocopy JTF_VARCHAR2_TABLE_500
96 , a16 out nocopy JTF_VARCHAR2_TABLE_500
97 , a17 out nocopy JTF_VARCHAR2_TABLE_500
98 , a18 out nocopy JTF_VARCHAR2_TABLE_500
99 , a19 out nocopy JTF_VARCHAR2_TABLE_500
100 , a20 out nocopy JTF_VARCHAR2_TABLE_500
101 , a21 out nocopy JTF_VARCHAR2_TABLE_500
102 , a22 out nocopy JTF_VARCHAR2_TABLE_500
103 , a23 out nocopy JTF_VARCHAR2_TABLE_500
104 , a24 out nocopy JTF_VARCHAR2_TABLE_500
105 , a25 out nocopy JTF_VARCHAR2_TABLE_500
106 , a26 out nocopy JTF_VARCHAR2_TABLE_500
107 , a27 out nocopy JTF_VARCHAR2_TABLE_500
108 , a28 out nocopy JTF_VARCHAR2_TABLE_100
109 , a29 out nocopy JTF_NUMBER_TABLE
110 ) as
111 ddindx binary_integer; indx binary_integer;
112 begin
113 if t is null or t.count = 0 then
114 a0 := JTF_NUMBER_TABLE();
115 a1 := JTF_NUMBER_TABLE();
116 a2 := JTF_NUMBER_TABLE();
117 a3 := JTF_NUMBER_TABLE();
118 a4 := JTF_NUMBER_TABLE();
119 a5 := JTF_NUMBER_TABLE();
120 a6 := JTF_NUMBER_TABLE();
121 a7 := JTF_NUMBER_TABLE();
122 a8 := JTF_DATE_TABLE();
123 a9 := JTF_NUMBER_TABLE();
124 a10 := JTF_DATE_TABLE();
125 a11 := JTF_NUMBER_TABLE();
126 a12 := JTF_VARCHAR2_TABLE_100();
127 a13 := JTF_VARCHAR2_TABLE_500();
128 a14 := JTF_VARCHAR2_TABLE_500();
129 a15 := JTF_VARCHAR2_TABLE_500();
130 a16 := JTF_VARCHAR2_TABLE_500();
131 a17 := JTF_VARCHAR2_TABLE_500();
132 a18 := JTF_VARCHAR2_TABLE_500();
133 a19 := JTF_VARCHAR2_TABLE_500();
134 a20 := JTF_VARCHAR2_TABLE_500();
135 a21 := JTF_VARCHAR2_TABLE_500();
136 a22 := JTF_VARCHAR2_TABLE_500();
137 a23 := JTF_VARCHAR2_TABLE_500();
138 a24 := JTF_VARCHAR2_TABLE_500();
139 a25 := JTF_VARCHAR2_TABLE_500();
140 a26 := JTF_VARCHAR2_TABLE_500();
141 a27 := JTF_VARCHAR2_TABLE_500();
142 a28 := JTF_VARCHAR2_TABLE_100();
143 a29 := JTF_NUMBER_TABLE();
144 else
145 a0 := JTF_NUMBER_TABLE();
146 a1 := JTF_NUMBER_TABLE();
147 a2 := JTF_NUMBER_TABLE();
148 a3 := JTF_NUMBER_TABLE();
149 a4 := JTF_NUMBER_TABLE();
150 a5 := JTF_NUMBER_TABLE();
151 a6 := JTF_NUMBER_TABLE();
152 a7 := JTF_NUMBER_TABLE();
153 a8 := JTF_DATE_TABLE();
154 a9 := JTF_NUMBER_TABLE();
155 a10 := JTF_DATE_TABLE();
156 a11 := JTF_NUMBER_TABLE();
157 a12 := JTF_VARCHAR2_TABLE_100();
158 a13 := JTF_VARCHAR2_TABLE_500();
159 a14 := JTF_VARCHAR2_TABLE_500();
160 a15 := JTF_VARCHAR2_TABLE_500();
161 a16 := JTF_VARCHAR2_TABLE_500();
162 a17 := JTF_VARCHAR2_TABLE_500();
163 a18 := JTF_VARCHAR2_TABLE_500();
164 a19 := JTF_VARCHAR2_TABLE_500();
165 a20 := JTF_VARCHAR2_TABLE_500();
166 a21 := JTF_VARCHAR2_TABLE_500();
167 a22 := JTF_VARCHAR2_TABLE_500();
168 a23 := JTF_VARCHAR2_TABLE_500();
169 a24 := JTF_VARCHAR2_TABLE_500();
170 a25 := JTF_VARCHAR2_TABLE_500();
171 a26 := JTF_VARCHAR2_TABLE_500();
172 a27 := JTF_VARCHAR2_TABLE_500();
173 a28 := JTF_VARCHAR2_TABLE_100();
174 a29 := JTF_NUMBER_TABLE();
175 if t.count > 0 then
176 a0.extend(t.count);
177 a1.extend(t.count);
178 a2.extend(t.count);
179 a3.extend(t.count);
180 a4.extend(t.count);
181 a5.extend(t.count);
182 a6.extend(t.count);
183 a7.extend(t.count);
184 a8.extend(t.count);
185 a9.extend(t.count);
186 a10.extend(t.count);
187 a11.extend(t.count);
188 a12.extend(t.count);
189 a13.extend(t.count);
190 a14.extend(t.count);
191 a15.extend(t.count);
192 a16.extend(t.count);
193 a17.extend(t.count);
194 a18.extend(t.count);
195 a19.extend(t.count);
196 a20.extend(t.count);
197 a21.extend(t.count);
198 a22.extend(t.count);
199 a23.extend(t.count);
200 a24.extend(t.count);
201 a25.extend(t.count);
202 a26.extend(t.count);
203 a27.extend(t.count);
204 a28.extend(t.count);
205 a29.extend(t.count);
206 ddindx := t.first;
207 indx := 1;
208 while true loop
209 a0(indx) := t(ddindx).id;
210 a1(indx) := t(ddindx).object_version_number;
211 a2(indx) := t(ddindx).lrt_id;
212 a3(indx) := t(ddindx).term_in_months;
213 a4(indx) := t(ddindx).residual_value_percent;
214 a5(indx) := t(ddindx).interest_rate;
215 a6(indx) := t(ddindx).lease_rate_factor;
216 a7(indx) := t(ddindx).created_by;
217 a8(indx) := t(ddindx).creation_date;
218 a9(indx) := t(ddindx).last_updated_by;
219 a10(indx) := t(ddindx).last_update_date;
220 a11(indx) := t(ddindx).last_update_login;
221 a12(indx) := t(ddindx).attribute_category;
222 a13(indx) := t(ddindx).attribute1;
223 a14(indx) := t(ddindx).attribute2;
224 a15(indx) := t(ddindx).attribute3;
225 a16(indx) := t(ddindx).attribute4;
226 a17(indx) := t(ddindx).attribute5;
227 a18(indx) := t(ddindx).attribute6;
228 a19(indx) := t(ddindx).attribute7;
229 a20(indx) := t(ddindx).attribute8;
230 a21(indx) := t(ddindx).attribute9;
231 a22(indx) := t(ddindx).attribute10;
232 a23(indx) := t(ddindx).attribute11;
233 a24(indx) := t(ddindx).attribute12;
234 a25(indx) := t(ddindx).attribute13;
235 a26(indx) := t(ddindx).attribute14;
236 a27(indx) := t(ddindx).attribute15;
237 a28(indx) := t(ddindx).is_new_flag;
238 a29(indx) := t(ddindx).rate_set_version_id;
239 indx := indx+1;
240 if t.last =ddindx
241 then exit;
242 end if;
243 ddindx := t.next(ddindx);
244 end loop;
245 end if;
246 end if;
247 end rosetta_table_copy_out_p28;
248
249 procedure rosetta_table_copy_in_p31(t out nocopy okl_lrf_pvt.lrf_tbl_type, a0 JTF_NUMBER_TABLE
250 , a1 JTF_NUMBER_TABLE
251 , a2 JTF_NUMBER_TABLE
252 , a3 JTF_NUMBER_TABLE
253 , a4 JTF_NUMBER_TABLE
254 , a5 JTF_NUMBER_TABLE
255 , a6 JTF_NUMBER_TABLE
256 , a7 JTF_NUMBER_TABLE
257 , a8 JTF_DATE_TABLE
258 , a9 JTF_NUMBER_TABLE
259 , a10 JTF_DATE_TABLE
260 , a11 JTF_NUMBER_TABLE
261 , a12 JTF_VARCHAR2_TABLE_100
262 , a13 JTF_VARCHAR2_TABLE_500
263 , a14 JTF_VARCHAR2_TABLE_500
264 , a15 JTF_VARCHAR2_TABLE_500
265 , a16 JTF_VARCHAR2_TABLE_500
266 , a17 JTF_VARCHAR2_TABLE_500
267 , a18 JTF_VARCHAR2_TABLE_500
268 , a19 JTF_VARCHAR2_TABLE_500
269 , a20 JTF_VARCHAR2_TABLE_500
270 , a21 JTF_VARCHAR2_TABLE_500
271 , a22 JTF_VARCHAR2_TABLE_500
272 , a23 JTF_VARCHAR2_TABLE_500
273 , a24 JTF_VARCHAR2_TABLE_500
274 , a25 JTF_VARCHAR2_TABLE_500
275 , a26 JTF_VARCHAR2_TABLE_500
276 , a27 JTF_VARCHAR2_TABLE_500
277 , a28 JTF_VARCHAR2_TABLE_100
278 , a29 JTF_NUMBER_TABLE
279 ) as
280 ddindx binary_integer; indx binary_integer;
281 begin
282 if a0 is not null and a0.count > 0 then
283 if a0.count > 0 then
284 indx := a0.first;
285 ddindx := 1;
286 while true loop
287 t(ddindx).id := a0(indx);
288 t(ddindx).object_version_number := a1(indx);
289 t(ddindx).lrt_id := a2(indx);
290 t(ddindx).term_in_months := a3(indx);
291 t(ddindx).residual_value_percent := a4(indx);
292 t(ddindx).interest_rate := a5(indx);
293 t(ddindx).lease_rate_factor := a6(indx);
294 t(ddindx).created_by := a7(indx);
295 t(ddindx).creation_date := a8(indx);
296 t(ddindx).last_updated_by := a9(indx);
297 t(ddindx).last_update_date := a10(indx);
298 t(ddindx).last_update_login := a11(indx);
299 t(ddindx).attribute_category := a12(indx);
300 t(ddindx).attribute1 := a13(indx);
301 t(ddindx).attribute2 := a14(indx);
302 t(ddindx).attribute3 := a15(indx);
303 t(ddindx).attribute4 := a16(indx);
304 t(ddindx).attribute5 := a17(indx);
305 t(ddindx).attribute6 := a18(indx);
306 t(ddindx).attribute7 := a19(indx);
307 t(ddindx).attribute8 := a20(indx);
308 t(ddindx).attribute9 := a21(indx);
309 t(ddindx).attribute10 := a22(indx);
310 t(ddindx).attribute11 := a23(indx);
311 t(ddindx).attribute12 := a24(indx);
312 t(ddindx).attribute13 := a25(indx);
313 t(ddindx).attribute14 := a26(indx);
314 t(ddindx).attribute15 := a27(indx);
315 t(ddindx).is_new_flag := a28(indx);
316 t(ddindx).rate_set_version_id := a29(indx);
317 ddindx := ddindx+1;
318 if a0.last =indx
319 then exit;
320 end if;
321 indx := a0.next(indx);
322 end loop;
323 end if;
324 end if;
325 end rosetta_table_copy_in_p31;
326 procedure rosetta_table_copy_out_p31(t okl_lrf_pvt.lrf_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
327 , a1 out nocopy JTF_NUMBER_TABLE
328 , a2 out nocopy JTF_NUMBER_TABLE
329 , a3 out nocopy JTF_NUMBER_TABLE
330 , a4 out nocopy JTF_NUMBER_TABLE
331 , a5 out nocopy JTF_NUMBER_TABLE
332 , a6 out nocopy JTF_NUMBER_TABLE
333 , a7 out nocopy JTF_NUMBER_TABLE
334 , a8 out nocopy JTF_DATE_TABLE
335 , a9 out nocopy JTF_NUMBER_TABLE
336 , a10 out nocopy JTF_DATE_TABLE
337 , a11 out nocopy JTF_NUMBER_TABLE
338 , a12 out nocopy JTF_VARCHAR2_TABLE_100
339 , a13 out nocopy JTF_VARCHAR2_TABLE_500
340 , a14 out nocopy JTF_VARCHAR2_TABLE_500
341 , a15 out nocopy JTF_VARCHAR2_TABLE_500
342 , a16 out nocopy JTF_VARCHAR2_TABLE_500
343 , a17 out nocopy JTF_VARCHAR2_TABLE_500
344 , a18 out nocopy JTF_VARCHAR2_TABLE_500
345 , a19 out nocopy JTF_VARCHAR2_TABLE_500
346 , a20 out nocopy JTF_VARCHAR2_TABLE_500
347 , a21 out nocopy JTF_VARCHAR2_TABLE_500
348 , a22 out nocopy JTF_VARCHAR2_TABLE_500
349 , a23 out nocopy JTF_VARCHAR2_TABLE_500
350 , a24 out nocopy JTF_VARCHAR2_TABLE_500
351 , a25 out nocopy JTF_VARCHAR2_TABLE_500
352 , a26 out nocopy JTF_VARCHAR2_TABLE_500
353 , a27 out nocopy JTF_VARCHAR2_TABLE_500
354 , a28 out nocopy JTF_VARCHAR2_TABLE_100
355 , a29 out nocopy JTF_NUMBER_TABLE
356 ) as
357 ddindx binary_integer; indx binary_integer;
358 begin
359 if t is null or t.count = 0 then
360 a0 := JTF_NUMBER_TABLE();
361 a1 := JTF_NUMBER_TABLE();
362 a2 := JTF_NUMBER_TABLE();
363 a3 := JTF_NUMBER_TABLE();
364 a4 := JTF_NUMBER_TABLE();
365 a5 := JTF_NUMBER_TABLE();
366 a6 := JTF_NUMBER_TABLE();
367 a7 := JTF_NUMBER_TABLE();
368 a8 := JTF_DATE_TABLE();
369 a9 := JTF_NUMBER_TABLE();
370 a10 := JTF_DATE_TABLE();
371 a11 := JTF_NUMBER_TABLE();
372 a12 := JTF_VARCHAR2_TABLE_100();
373 a13 := JTF_VARCHAR2_TABLE_500();
374 a14 := JTF_VARCHAR2_TABLE_500();
375 a15 := JTF_VARCHAR2_TABLE_500();
376 a16 := JTF_VARCHAR2_TABLE_500();
377 a17 := JTF_VARCHAR2_TABLE_500();
378 a18 := JTF_VARCHAR2_TABLE_500();
379 a19 := JTF_VARCHAR2_TABLE_500();
380 a20 := JTF_VARCHAR2_TABLE_500();
381 a21 := JTF_VARCHAR2_TABLE_500();
382 a22 := JTF_VARCHAR2_TABLE_500();
383 a23 := JTF_VARCHAR2_TABLE_500();
384 a24 := JTF_VARCHAR2_TABLE_500();
385 a25 := JTF_VARCHAR2_TABLE_500();
386 a26 := JTF_VARCHAR2_TABLE_500();
387 a27 := JTF_VARCHAR2_TABLE_500();
388 a28 := JTF_VARCHAR2_TABLE_100();
389 a29 := JTF_NUMBER_TABLE();
390 else
391 a0 := JTF_NUMBER_TABLE();
392 a1 := JTF_NUMBER_TABLE();
393 a2 := JTF_NUMBER_TABLE();
394 a3 := JTF_NUMBER_TABLE();
395 a4 := JTF_NUMBER_TABLE();
396 a5 := JTF_NUMBER_TABLE();
397 a6 := JTF_NUMBER_TABLE();
398 a7 := JTF_NUMBER_TABLE();
399 a8 := JTF_DATE_TABLE();
400 a9 := JTF_NUMBER_TABLE();
401 a10 := JTF_DATE_TABLE();
402 a11 := JTF_NUMBER_TABLE();
403 a12 := JTF_VARCHAR2_TABLE_100();
404 a13 := JTF_VARCHAR2_TABLE_500();
405 a14 := JTF_VARCHAR2_TABLE_500();
406 a15 := JTF_VARCHAR2_TABLE_500();
407 a16 := JTF_VARCHAR2_TABLE_500();
408 a17 := JTF_VARCHAR2_TABLE_500();
409 a18 := JTF_VARCHAR2_TABLE_500();
410 a19 := JTF_VARCHAR2_TABLE_500();
411 a20 := JTF_VARCHAR2_TABLE_500();
412 a21 := JTF_VARCHAR2_TABLE_500();
413 a22 := JTF_VARCHAR2_TABLE_500();
414 a23 := JTF_VARCHAR2_TABLE_500();
415 a24 := JTF_VARCHAR2_TABLE_500();
416 a25 := JTF_VARCHAR2_TABLE_500();
417 a26 := JTF_VARCHAR2_TABLE_500();
418 a27 := JTF_VARCHAR2_TABLE_500();
419 a28 := JTF_VARCHAR2_TABLE_100();
420 a29 := JTF_NUMBER_TABLE();
421 if t.count > 0 then
422 a0.extend(t.count);
423 a1.extend(t.count);
424 a2.extend(t.count);
425 a3.extend(t.count);
426 a4.extend(t.count);
427 a5.extend(t.count);
428 a6.extend(t.count);
429 a7.extend(t.count);
430 a8.extend(t.count);
431 a9.extend(t.count);
432 a10.extend(t.count);
433 a11.extend(t.count);
434 a12.extend(t.count);
435 a13.extend(t.count);
436 a14.extend(t.count);
437 a15.extend(t.count);
438 a16.extend(t.count);
439 a17.extend(t.count);
440 a18.extend(t.count);
441 a19.extend(t.count);
442 a20.extend(t.count);
443 a21.extend(t.count);
444 a22.extend(t.count);
445 a23.extend(t.count);
446 a24.extend(t.count);
447 a25.extend(t.count);
448 a26.extend(t.count);
449 a27.extend(t.count);
450 a28.extend(t.count);
451 a29.extend(t.count);
452 ddindx := t.first;
453 indx := 1;
454 while true loop
455 a0(indx) := t(ddindx).id;
456 a1(indx) := t(ddindx).object_version_number;
457 a2(indx) := t(ddindx).lrt_id;
458 a3(indx) := t(ddindx).term_in_months;
459 a4(indx) := t(ddindx).residual_value_percent;
460 a5(indx) := t(ddindx).interest_rate;
461 a6(indx) := t(ddindx).lease_rate_factor;
462 a7(indx) := t(ddindx).created_by;
463 a8(indx) := t(ddindx).creation_date;
464 a9(indx) := t(ddindx).last_updated_by;
465 a10(indx) := t(ddindx).last_update_date;
466 a11(indx) := t(ddindx).last_update_login;
467 a12(indx) := t(ddindx).attribute_category;
468 a13(indx) := t(ddindx).attribute1;
469 a14(indx) := t(ddindx).attribute2;
470 a15(indx) := t(ddindx).attribute3;
471 a16(indx) := t(ddindx).attribute4;
472 a17(indx) := t(ddindx).attribute5;
473 a18(indx) := t(ddindx).attribute6;
474 a19(indx) := t(ddindx).attribute7;
475 a20(indx) := t(ddindx).attribute8;
476 a21(indx) := t(ddindx).attribute9;
477 a22(indx) := t(ddindx).attribute10;
478 a23(indx) := t(ddindx).attribute11;
479 a24(indx) := t(ddindx).attribute12;
480 a25(indx) := t(ddindx).attribute13;
481 a26(indx) := t(ddindx).attribute14;
482 a27(indx) := t(ddindx).attribute15;
483 a28(indx) := t(ddindx).is_new_flag;
484 a29(indx) := t(ddindx).rate_set_version_id;
485 indx := indx+1;
486 if t.last =ddindx
487 then exit;
488 end if;
489 ddindx := t.next(ddindx);
490 end loop;
491 end if;
492 end if;
493 end rosetta_table_copy_out_p31;
494
495 procedure insert_row(p_api_version NUMBER
496 , p_init_msg_list VARCHAR2
497 , x_return_status out nocopy VARCHAR2
498 , x_msg_count out nocopy NUMBER
499 , x_msg_data out nocopy VARCHAR2
500 , p5_a0 NUMBER
501 , p5_a1 NUMBER
502 , p5_a2 NUMBER
503 , p5_a3 NUMBER
504 , p5_a4 NUMBER
505 , p5_a5 NUMBER
506 , p5_a6 NUMBER
507 , p5_a7 NUMBER
508 , p5_a8 DATE
509 , p5_a9 NUMBER
510 , p5_a10 DATE
511 , p5_a11 NUMBER
512 , p5_a12 VARCHAR2
513 , p5_a13 VARCHAR2
514 , p5_a14 VARCHAR2
515 , p5_a15 VARCHAR2
516 , p5_a16 VARCHAR2
517 , p5_a17 VARCHAR2
518 , p5_a18 VARCHAR2
519 , p5_a19 VARCHAR2
520 , p5_a20 VARCHAR2
521 , p5_a21 VARCHAR2
522 , p5_a22 VARCHAR2
523 , p5_a23 VARCHAR2
524 , p5_a24 VARCHAR2
525 , p5_a25 VARCHAR2
526 , p5_a26 VARCHAR2
527 , p5_a27 VARCHAR2
528 , p5_a28 VARCHAR2
529 , p5_a29 NUMBER
530 , p6_a0 out nocopy NUMBER
531 , p6_a1 out nocopy NUMBER
532 , p6_a2 out nocopy NUMBER
533 , p6_a3 out nocopy NUMBER
534 , p6_a4 out nocopy NUMBER
535 , p6_a5 out nocopy NUMBER
536 , p6_a6 out nocopy NUMBER
537 , p6_a7 out nocopy NUMBER
538 , p6_a8 out nocopy DATE
539 , p6_a9 out nocopy NUMBER
540 , p6_a10 out nocopy DATE
541 , p6_a11 out nocopy NUMBER
542 , p6_a12 out nocopy VARCHAR2
543 , p6_a13 out nocopy VARCHAR2
544 , p6_a14 out nocopy VARCHAR2
545 , p6_a15 out nocopy VARCHAR2
546 , p6_a16 out nocopy VARCHAR2
547 , p6_a17 out nocopy VARCHAR2
548 , p6_a18 out nocopy VARCHAR2
549 , p6_a19 out nocopy VARCHAR2
550 , p6_a20 out nocopy VARCHAR2
551 , p6_a21 out nocopy VARCHAR2
552 , p6_a22 out nocopy VARCHAR2
553 , p6_a23 out nocopy VARCHAR2
554 , p6_a24 out nocopy VARCHAR2
555 , p6_a25 out nocopy VARCHAR2
556 , p6_a26 out nocopy VARCHAR2
557 , p6_a27 out nocopy VARCHAR2
558 , p6_a28 out nocopy VARCHAR2
559 , p6_a29 out nocopy NUMBER
560 )
561
562 as
563 ddp_lrfv_rec okl_lrf_pvt.lrfv_rec_type;
564 ddx_lrfv_rec okl_lrf_pvt.lrfv_rec_type;
565 ddindx binary_integer; indx binary_integer;
566 begin
567
568 -- copy data to the local IN or IN-OUT args, if any
569
570
571
572
573
574 ddp_lrfv_rec.id := p5_a0;
575 ddp_lrfv_rec.object_version_number := p5_a1;
576 ddp_lrfv_rec.lrt_id := p5_a2;
577 ddp_lrfv_rec.term_in_months := p5_a3;
578 ddp_lrfv_rec.residual_value_percent := p5_a4;
579 ddp_lrfv_rec.interest_rate := p5_a5;
580 ddp_lrfv_rec.lease_rate_factor := p5_a6;
581 ddp_lrfv_rec.created_by := p5_a7;
582 ddp_lrfv_rec.creation_date := p5_a8;
583 ddp_lrfv_rec.last_updated_by := p5_a9;
584 ddp_lrfv_rec.last_update_date := p5_a10;
585 ddp_lrfv_rec.last_update_login := p5_a11;
586 ddp_lrfv_rec.attribute_category := p5_a12;
587 ddp_lrfv_rec.attribute1 := p5_a13;
588 ddp_lrfv_rec.attribute2 := p5_a14;
589 ddp_lrfv_rec.attribute3 := p5_a15;
590 ddp_lrfv_rec.attribute4 := p5_a16;
591 ddp_lrfv_rec.attribute5 := p5_a17;
592 ddp_lrfv_rec.attribute6 := p5_a18;
593 ddp_lrfv_rec.attribute7 := p5_a19;
594 ddp_lrfv_rec.attribute8 := p5_a20;
595 ddp_lrfv_rec.attribute9 := p5_a21;
596 ddp_lrfv_rec.attribute10 := p5_a22;
597 ddp_lrfv_rec.attribute11 := p5_a23;
598 ddp_lrfv_rec.attribute12 := p5_a24;
599 ddp_lrfv_rec.attribute13 := p5_a25;
600 ddp_lrfv_rec.attribute14 := p5_a26;
601 ddp_lrfv_rec.attribute15 := p5_a27;
602 ddp_lrfv_rec.is_new_flag := p5_a28;
603 ddp_lrfv_rec.rate_set_version_id := p5_a29;
604
605
606 -- here's the delegated call to the old PL/SQL routine
607 okl_lrf_pvt.insert_row(p_api_version,
608 p_init_msg_list,
609 x_return_status,
610 x_msg_count,
611 x_msg_data,
612 ddp_lrfv_rec,
613 ddx_lrfv_rec);
614
615 -- copy data back from the local variables to OUT or IN-OUT args, if any
616
617
618
619
620
621
622 p6_a0 := ddx_lrfv_rec.id;
623 p6_a1 := ddx_lrfv_rec.object_version_number;
624 p6_a2 := ddx_lrfv_rec.lrt_id;
625 p6_a3 := ddx_lrfv_rec.term_in_months;
626 p6_a4 := ddx_lrfv_rec.residual_value_percent;
627 p6_a5 := ddx_lrfv_rec.interest_rate;
628 p6_a6 := ddx_lrfv_rec.lease_rate_factor;
629 p6_a7 := ddx_lrfv_rec.created_by;
630 p6_a8 := ddx_lrfv_rec.creation_date;
631 p6_a9 := ddx_lrfv_rec.last_updated_by;
632 p6_a10 := ddx_lrfv_rec.last_update_date;
633 p6_a11 := ddx_lrfv_rec.last_update_login;
634 p6_a12 := ddx_lrfv_rec.attribute_category;
635 p6_a13 := ddx_lrfv_rec.attribute1;
636 p6_a14 := ddx_lrfv_rec.attribute2;
637 p6_a15 := ddx_lrfv_rec.attribute3;
638 p6_a16 := ddx_lrfv_rec.attribute4;
639 p6_a17 := ddx_lrfv_rec.attribute5;
640 p6_a18 := ddx_lrfv_rec.attribute6;
641 p6_a19 := ddx_lrfv_rec.attribute7;
642 p6_a20 := ddx_lrfv_rec.attribute8;
643 p6_a21 := ddx_lrfv_rec.attribute9;
644 p6_a22 := ddx_lrfv_rec.attribute10;
645 p6_a23 := ddx_lrfv_rec.attribute11;
646 p6_a24 := ddx_lrfv_rec.attribute12;
647 p6_a25 := ddx_lrfv_rec.attribute13;
648 p6_a26 := ddx_lrfv_rec.attribute14;
649 p6_a27 := ddx_lrfv_rec.attribute15;
650 p6_a28 := ddx_lrfv_rec.is_new_flag;
651 p6_a29 := ddx_lrfv_rec.rate_set_version_id;
652 end;
653
654 procedure insert_row(p_api_version NUMBER
655 , p_init_msg_list VARCHAR2
656 , x_return_status out nocopy VARCHAR2
657 , x_msg_count out nocopy NUMBER
658 , x_msg_data out nocopy VARCHAR2
659 , p5_a0 JTF_NUMBER_TABLE
660 , p5_a1 JTF_NUMBER_TABLE
661 , p5_a2 JTF_NUMBER_TABLE
662 , p5_a3 JTF_NUMBER_TABLE
663 , p5_a4 JTF_NUMBER_TABLE
664 , p5_a5 JTF_NUMBER_TABLE
665 , p5_a6 JTF_NUMBER_TABLE
666 , p5_a7 JTF_NUMBER_TABLE
667 , p5_a8 JTF_DATE_TABLE
668 , p5_a9 JTF_NUMBER_TABLE
669 , p5_a10 JTF_DATE_TABLE
670 , p5_a11 JTF_NUMBER_TABLE
671 , p5_a12 JTF_VARCHAR2_TABLE_100
672 , p5_a13 JTF_VARCHAR2_TABLE_500
673 , p5_a14 JTF_VARCHAR2_TABLE_500
674 , p5_a15 JTF_VARCHAR2_TABLE_500
675 , p5_a16 JTF_VARCHAR2_TABLE_500
676 , p5_a17 JTF_VARCHAR2_TABLE_500
677 , p5_a18 JTF_VARCHAR2_TABLE_500
678 , p5_a19 JTF_VARCHAR2_TABLE_500
679 , p5_a20 JTF_VARCHAR2_TABLE_500
680 , p5_a21 JTF_VARCHAR2_TABLE_500
681 , p5_a22 JTF_VARCHAR2_TABLE_500
682 , p5_a23 JTF_VARCHAR2_TABLE_500
683 , p5_a24 JTF_VARCHAR2_TABLE_500
684 , p5_a25 JTF_VARCHAR2_TABLE_500
685 , p5_a26 JTF_VARCHAR2_TABLE_500
686 , p5_a27 JTF_VARCHAR2_TABLE_500
687 , p5_a28 JTF_VARCHAR2_TABLE_100
688 , p5_a29 JTF_NUMBER_TABLE
689 , p6_a0 out nocopy JTF_NUMBER_TABLE
690 , p6_a1 out nocopy JTF_NUMBER_TABLE
691 , p6_a2 out nocopy JTF_NUMBER_TABLE
692 , p6_a3 out nocopy JTF_NUMBER_TABLE
693 , p6_a4 out nocopy JTF_NUMBER_TABLE
694 , p6_a5 out nocopy JTF_NUMBER_TABLE
695 , p6_a6 out nocopy JTF_NUMBER_TABLE
696 , p6_a7 out nocopy JTF_NUMBER_TABLE
697 , p6_a8 out nocopy JTF_DATE_TABLE
698 , p6_a9 out nocopy JTF_NUMBER_TABLE
699 , p6_a10 out nocopy JTF_DATE_TABLE
700 , p6_a11 out nocopy JTF_NUMBER_TABLE
701 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
702 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
703 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
704 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
705 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
706 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
707 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
708 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
709 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
710 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
711 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
712 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
713 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
714 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
715 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
716 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
717 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_100
718 , p6_a29 out nocopy JTF_NUMBER_TABLE
719 )
720
721 as
722 ddp_lrfv_tbl okl_lrf_pvt.lrfv_tbl_type;
723 ddx_lrfv_tbl okl_lrf_pvt.lrfv_tbl_type;
724 ddindx binary_integer; indx binary_integer;
725 begin
726
727 -- copy data to the local IN or IN-OUT args, if any
728
729
730
731
732
733 okl_lrf_pvt_w.rosetta_table_copy_in_p28(ddp_lrfv_tbl, p5_a0
734 , p5_a1
735 , p5_a2
736 , p5_a3
737 , p5_a4
738 , p5_a5
739 , p5_a6
740 , p5_a7
741 , p5_a8
742 , p5_a9
743 , p5_a10
744 , p5_a11
745 , p5_a12
746 , p5_a13
747 , p5_a14
748 , p5_a15
749 , p5_a16
750 , p5_a17
751 , p5_a18
752 , p5_a19
753 , p5_a20
754 , p5_a21
755 , p5_a22
756 , p5_a23
757 , p5_a24
758 , p5_a25
759 , p5_a26
760 , p5_a27
761 , p5_a28
762 , p5_a29
763 );
764
765
766 -- here's the delegated call to the old PL/SQL routine
767 okl_lrf_pvt.insert_row(p_api_version,
768 p_init_msg_list,
769 x_return_status,
770 x_msg_count,
771 x_msg_data,
772 ddp_lrfv_tbl,
773 ddx_lrfv_tbl);
774
775 -- copy data back from the local variables to OUT or IN-OUT args, if any
776
777
778
779
780
781
782 okl_lrf_pvt_w.rosetta_table_copy_out_p28(ddx_lrfv_tbl, p6_a0
783 , p6_a1
784 , p6_a2
785 , p6_a3
786 , p6_a4
787 , p6_a5
788 , p6_a6
789 , p6_a7
790 , p6_a8
791 , p6_a9
792 , p6_a10
793 , p6_a11
794 , p6_a12
795 , p6_a13
796 , p6_a14
797 , p6_a15
798 , p6_a16
799 , p6_a17
800 , p6_a18
801 , p6_a19
802 , p6_a20
803 , p6_a21
804 , p6_a22
805 , p6_a23
806 , p6_a24
807 , p6_a25
808 , p6_a26
809 , p6_a27
810 , p6_a28
811 , p6_a29
812 );
813 end;
814
815 procedure lock_row(p_api_version NUMBER
816 , p_init_msg_list VARCHAR2
817 , x_return_status out nocopy VARCHAR2
818 , x_msg_count out nocopy NUMBER
819 , x_msg_data out nocopy VARCHAR2
820 , p5_a0 NUMBER
821 , p5_a1 NUMBER
822 , p5_a2 NUMBER
823 , p5_a3 NUMBER
824 , p5_a4 NUMBER
825 , p5_a5 NUMBER
826 , p5_a6 NUMBER
827 , p5_a7 NUMBER
828 , p5_a8 DATE
829 , p5_a9 NUMBER
830 , p5_a10 DATE
831 , p5_a11 NUMBER
832 , p5_a12 VARCHAR2
833 , p5_a13 VARCHAR2
834 , p5_a14 VARCHAR2
835 , p5_a15 VARCHAR2
836 , p5_a16 VARCHAR2
837 , p5_a17 VARCHAR2
838 , p5_a18 VARCHAR2
839 , p5_a19 VARCHAR2
840 , p5_a20 VARCHAR2
841 , p5_a21 VARCHAR2
842 , p5_a22 VARCHAR2
843 , p5_a23 VARCHAR2
844 , p5_a24 VARCHAR2
845 , p5_a25 VARCHAR2
846 , p5_a26 VARCHAR2
847 , p5_a27 VARCHAR2
848 , p5_a28 VARCHAR2
849 , p5_a29 NUMBER
850 )
851
852 as
853 ddp_lrfv_rec okl_lrf_pvt.lrfv_rec_type;
854 ddindx binary_integer; indx binary_integer;
855 begin
856
857 -- copy data to the local IN or IN-OUT args, if any
858
859
860
861
862
863 ddp_lrfv_rec.id := p5_a0;
864 ddp_lrfv_rec.object_version_number := p5_a1;
865 ddp_lrfv_rec.lrt_id := p5_a2;
866 ddp_lrfv_rec.term_in_months := p5_a3;
867 ddp_lrfv_rec.residual_value_percent := p5_a4;
868 ddp_lrfv_rec.interest_rate := p5_a5;
869 ddp_lrfv_rec.lease_rate_factor := p5_a6;
870 ddp_lrfv_rec.created_by := p5_a7;
871 ddp_lrfv_rec.creation_date := p5_a8;
872 ddp_lrfv_rec.last_updated_by := p5_a9;
873 ddp_lrfv_rec.last_update_date := p5_a10;
874 ddp_lrfv_rec.last_update_login := p5_a11;
875 ddp_lrfv_rec.attribute_category := p5_a12;
876 ddp_lrfv_rec.attribute1 := p5_a13;
877 ddp_lrfv_rec.attribute2 := p5_a14;
878 ddp_lrfv_rec.attribute3 := p5_a15;
879 ddp_lrfv_rec.attribute4 := p5_a16;
880 ddp_lrfv_rec.attribute5 := p5_a17;
881 ddp_lrfv_rec.attribute6 := p5_a18;
882 ddp_lrfv_rec.attribute7 := p5_a19;
883 ddp_lrfv_rec.attribute8 := p5_a20;
884 ddp_lrfv_rec.attribute9 := p5_a21;
885 ddp_lrfv_rec.attribute10 := p5_a22;
886 ddp_lrfv_rec.attribute11 := p5_a23;
887 ddp_lrfv_rec.attribute12 := p5_a24;
888 ddp_lrfv_rec.attribute13 := p5_a25;
889 ddp_lrfv_rec.attribute14 := p5_a26;
890 ddp_lrfv_rec.attribute15 := p5_a27;
891 ddp_lrfv_rec.is_new_flag := p5_a28;
892 ddp_lrfv_rec.rate_set_version_id := p5_a29;
893
894 -- here's the delegated call to the old PL/SQL routine
895 okl_lrf_pvt.lock_row(p_api_version,
896 p_init_msg_list,
897 x_return_status,
898 x_msg_count,
899 x_msg_data,
900 ddp_lrfv_rec);
901
902 -- copy data back from the local variables to OUT or IN-OUT args, if any
903
904
905
906
907
908 end;
909
910 procedure lock_row(p_api_version NUMBER
911 , p_init_msg_list VARCHAR2
912 , x_return_status out nocopy VARCHAR2
913 , x_msg_count out nocopy NUMBER
914 , x_msg_data out nocopy VARCHAR2
915 , p5_a0 JTF_NUMBER_TABLE
916 , p5_a1 JTF_NUMBER_TABLE
917 , p5_a2 JTF_NUMBER_TABLE
918 , p5_a3 JTF_NUMBER_TABLE
919 , p5_a4 JTF_NUMBER_TABLE
920 , p5_a5 JTF_NUMBER_TABLE
921 , p5_a6 JTF_NUMBER_TABLE
922 , p5_a7 JTF_NUMBER_TABLE
923 , p5_a8 JTF_DATE_TABLE
924 , p5_a9 JTF_NUMBER_TABLE
925 , p5_a10 JTF_DATE_TABLE
926 , p5_a11 JTF_NUMBER_TABLE
927 , p5_a12 JTF_VARCHAR2_TABLE_100
928 , p5_a13 JTF_VARCHAR2_TABLE_500
929 , p5_a14 JTF_VARCHAR2_TABLE_500
930 , p5_a15 JTF_VARCHAR2_TABLE_500
931 , p5_a16 JTF_VARCHAR2_TABLE_500
932 , p5_a17 JTF_VARCHAR2_TABLE_500
933 , p5_a18 JTF_VARCHAR2_TABLE_500
934 , p5_a19 JTF_VARCHAR2_TABLE_500
935 , p5_a20 JTF_VARCHAR2_TABLE_500
936 , p5_a21 JTF_VARCHAR2_TABLE_500
937 , p5_a22 JTF_VARCHAR2_TABLE_500
938 , p5_a23 JTF_VARCHAR2_TABLE_500
939 , p5_a24 JTF_VARCHAR2_TABLE_500
940 , p5_a25 JTF_VARCHAR2_TABLE_500
941 , p5_a26 JTF_VARCHAR2_TABLE_500
942 , p5_a27 JTF_VARCHAR2_TABLE_500
943 , p5_a28 JTF_VARCHAR2_TABLE_100
944 , p5_a29 JTF_NUMBER_TABLE
945 )
946
947 as
948 ddp_lrfv_tbl okl_lrf_pvt.lrfv_tbl_type;
949 ddindx binary_integer; indx binary_integer;
950 begin
951
952 -- copy data to the local IN or IN-OUT args, if any
953
954
955
956
957
958 okl_lrf_pvt_w.rosetta_table_copy_in_p28(ddp_lrfv_tbl, p5_a0
959 , p5_a1
960 , p5_a2
961 , p5_a3
962 , p5_a4
963 , p5_a5
964 , p5_a6
965 , p5_a7
966 , p5_a8
967 , p5_a9
968 , p5_a10
969 , p5_a11
970 , p5_a12
971 , p5_a13
972 , p5_a14
973 , p5_a15
974 , p5_a16
975 , p5_a17
976 , p5_a18
977 , p5_a19
978 , p5_a20
979 , p5_a21
980 , p5_a22
981 , p5_a23
982 , p5_a24
983 , p5_a25
984 , p5_a26
985 , p5_a27
986 , p5_a28
987 , p5_a29
988 );
989
990 -- here's the delegated call to the old PL/SQL routine
991 okl_lrf_pvt.lock_row(p_api_version,
992 p_init_msg_list,
993 x_return_status,
994 x_msg_count,
995 x_msg_data,
996 ddp_lrfv_tbl);
997
998 -- copy data back from the local variables to OUT or IN-OUT args, if any
999
1000
1001
1002
1003
1004 end;
1005
1006 procedure update_row(p_api_version NUMBER
1007 , p_init_msg_list VARCHAR2
1008 , x_return_status out nocopy VARCHAR2
1009 , x_msg_count out nocopy NUMBER
1010 , x_msg_data out nocopy VARCHAR2
1011 , p5_a0 NUMBER
1012 , p5_a1 NUMBER
1013 , p5_a2 NUMBER
1014 , p5_a3 NUMBER
1015 , p5_a4 NUMBER
1016 , p5_a5 NUMBER
1017 , p5_a6 NUMBER
1018 , p5_a7 NUMBER
1019 , p5_a8 DATE
1020 , p5_a9 NUMBER
1021 , p5_a10 DATE
1022 , p5_a11 NUMBER
1023 , p5_a12 VARCHAR2
1024 , p5_a13 VARCHAR2
1025 , p5_a14 VARCHAR2
1026 , p5_a15 VARCHAR2
1027 , p5_a16 VARCHAR2
1028 , p5_a17 VARCHAR2
1029 , p5_a18 VARCHAR2
1030 , p5_a19 VARCHAR2
1031 , p5_a20 VARCHAR2
1032 , p5_a21 VARCHAR2
1033 , p5_a22 VARCHAR2
1034 , p5_a23 VARCHAR2
1035 , p5_a24 VARCHAR2
1036 , p5_a25 VARCHAR2
1037 , p5_a26 VARCHAR2
1038 , p5_a27 VARCHAR2
1039 , p5_a28 VARCHAR2
1040 , p5_a29 NUMBER
1041 , p6_a0 out nocopy NUMBER
1042 , p6_a1 out nocopy NUMBER
1043 , p6_a2 out nocopy NUMBER
1044 , p6_a3 out nocopy NUMBER
1045 , p6_a4 out nocopy NUMBER
1046 , p6_a5 out nocopy NUMBER
1047 , p6_a6 out nocopy NUMBER
1048 , p6_a7 out nocopy NUMBER
1049 , p6_a8 out nocopy DATE
1050 , p6_a9 out nocopy NUMBER
1051 , p6_a10 out nocopy DATE
1052 , p6_a11 out nocopy NUMBER
1053 , p6_a12 out nocopy VARCHAR2
1054 , p6_a13 out nocopy VARCHAR2
1055 , p6_a14 out nocopy VARCHAR2
1056 , p6_a15 out nocopy VARCHAR2
1057 , p6_a16 out nocopy VARCHAR2
1058 , p6_a17 out nocopy VARCHAR2
1059 , p6_a18 out nocopy VARCHAR2
1060 , p6_a19 out nocopy VARCHAR2
1061 , p6_a20 out nocopy VARCHAR2
1062 , p6_a21 out nocopy VARCHAR2
1063 , p6_a22 out nocopy VARCHAR2
1064 , p6_a23 out nocopy VARCHAR2
1065 , p6_a24 out nocopy VARCHAR2
1066 , p6_a25 out nocopy VARCHAR2
1067 , p6_a26 out nocopy VARCHAR2
1068 , p6_a27 out nocopy VARCHAR2
1069 , p6_a28 out nocopy VARCHAR2
1070 , p6_a29 out nocopy NUMBER
1071 )
1072
1073 as
1074 ddp_lrfv_rec okl_lrf_pvt.lrfv_rec_type;
1075 ddx_lrfv_rec okl_lrf_pvt.lrfv_rec_type;
1076 ddindx binary_integer; indx binary_integer;
1077 begin
1078
1079 -- copy data to the local IN or IN-OUT args, if any
1080
1081
1082
1083
1084
1085 ddp_lrfv_rec.id := p5_a0;
1086 ddp_lrfv_rec.object_version_number := p5_a1;
1087 ddp_lrfv_rec.lrt_id := p5_a2;
1088 ddp_lrfv_rec.term_in_months := p5_a3;
1089 ddp_lrfv_rec.residual_value_percent := p5_a4;
1090 ddp_lrfv_rec.interest_rate := p5_a5;
1091 ddp_lrfv_rec.lease_rate_factor := p5_a6;
1092 ddp_lrfv_rec.created_by := p5_a7;
1093 ddp_lrfv_rec.creation_date := p5_a8;
1094 ddp_lrfv_rec.last_updated_by := p5_a9;
1095 ddp_lrfv_rec.last_update_date := p5_a10;
1096 ddp_lrfv_rec.last_update_login := p5_a11;
1097 ddp_lrfv_rec.attribute_category := p5_a12;
1098 ddp_lrfv_rec.attribute1 := p5_a13;
1099 ddp_lrfv_rec.attribute2 := p5_a14;
1100 ddp_lrfv_rec.attribute3 := p5_a15;
1101 ddp_lrfv_rec.attribute4 := p5_a16;
1102 ddp_lrfv_rec.attribute5 := p5_a17;
1103 ddp_lrfv_rec.attribute6 := p5_a18;
1104 ddp_lrfv_rec.attribute7 := p5_a19;
1105 ddp_lrfv_rec.attribute8 := p5_a20;
1106 ddp_lrfv_rec.attribute9 := p5_a21;
1107 ddp_lrfv_rec.attribute10 := p5_a22;
1108 ddp_lrfv_rec.attribute11 := p5_a23;
1109 ddp_lrfv_rec.attribute12 := p5_a24;
1110 ddp_lrfv_rec.attribute13 := p5_a25;
1111 ddp_lrfv_rec.attribute14 := p5_a26;
1112 ddp_lrfv_rec.attribute15 := p5_a27;
1113 ddp_lrfv_rec.is_new_flag := p5_a28;
1114 ddp_lrfv_rec.rate_set_version_id := p5_a29;
1115
1116
1117 -- here's the delegated call to the old PL/SQL routine
1118 okl_lrf_pvt.update_row(p_api_version,
1119 p_init_msg_list,
1120 x_return_status,
1121 x_msg_count,
1122 x_msg_data,
1123 ddp_lrfv_rec,
1124 ddx_lrfv_rec);
1125
1126 -- copy data back from the local variables to OUT or IN-OUT args, if any
1127
1128
1129
1130
1131
1132
1133 p6_a0 := ddx_lrfv_rec.id;
1134 p6_a1 := ddx_lrfv_rec.object_version_number;
1135 p6_a2 := ddx_lrfv_rec.lrt_id;
1136 p6_a3 := ddx_lrfv_rec.term_in_months;
1137 p6_a4 := ddx_lrfv_rec.residual_value_percent;
1138 p6_a5 := ddx_lrfv_rec.interest_rate;
1139 p6_a6 := ddx_lrfv_rec.lease_rate_factor;
1140 p6_a7 := ddx_lrfv_rec.created_by;
1141 p6_a8 := ddx_lrfv_rec.creation_date;
1142 p6_a9 := ddx_lrfv_rec.last_updated_by;
1143 p6_a10 := ddx_lrfv_rec.last_update_date;
1144 p6_a11 := ddx_lrfv_rec.last_update_login;
1145 p6_a12 := ddx_lrfv_rec.attribute_category;
1146 p6_a13 := ddx_lrfv_rec.attribute1;
1147 p6_a14 := ddx_lrfv_rec.attribute2;
1148 p6_a15 := ddx_lrfv_rec.attribute3;
1149 p6_a16 := ddx_lrfv_rec.attribute4;
1150 p6_a17 := ddx_lrfv_rec.attribute5;
1151 p6_a18 := ddx_lrfv_rec.attribute6;
1152 p6_a19 := ddx_lrfv_rec.attribute7;
1153 p6_a20 := ddx_lrfv_rec.attribute8;
1154 p6_a21 := ddx_lrfv_rec.attribute9;
1155 p6_a22 := ddx_lrfv_rec.attribute10;
1156 p6_a23 := ddx_lrfv_rec.attribute11;
1157 p6_a24 := ddx_lrfv_rec.attribute12;
1158 p6_a25 := ddx_lrfv_rec.attribute13;
1159 p6_a26 := ddx_lrfv_rec.attribute14;
1160 p6_a27 := ddx_lrfv_rec.attribute15;
1161 p6_a28 := ddx_lrfv_rec.is_new_flag;
1162 p6_a29 := ddx_lrfv_rec.rate_set_version_id;
1163 end;
1164
1165 procedure update_row(p_api_version NUMBER
1166 , p_init_msg_list VARCHAR2
1167 , x_return_status out nocopy VARCHAR2
1168 , x_msg_count out nocopy NUMBER
1169 , x_msg_data out nocopy VARCHAR2
1170 , p5_a0 JTF_NUMBER_TABLE
1171 , p5_a1 JTF_NUMBER_TABLE
1172 , p5_a2 JTF_NUMBER_TABLE
1173 , p5_a3 JTF_NUMBER_TABLE
1174 , p5_a4 JTF_NUMBER_TABLE
1175 , p5_a5 JTF_NUMBER_TABLE
1176 , p5_a6 JTF_NUMBER_TABLE
1177 , p5_a7 JTF_NUMBER_TABLE
1178 , p5_a8 JTF_DATE_TABLE
1179 , p5_a9 JTF_NUMBER_TABLE
1180 , p5_a10 JTF_DATE_TABLE
1181 , p5_a11 JTF_NUMBER_TABLE
1182 , p5_a12 JTF_VARCHAR2_TABLE_100
1183 , p5_a13 JTF_VARCHAR2_TABLE_500
1184 , p5_a14 JTF_VARCHAR2_TABLE_500
1185 , p5_a15 JTF_VARCHAR2_TABLE_500
1186 , p5_a16 JTF_VARCHAR2_TABLE_500
1187 , p5_a17 JTF_VARCHAR2_TABLE_500
1188 , p5_a18 JTF_VARCHAR2_TABLE_500
1189 , p5_a19 JTF_VARCHAR2_TABLE_500
1190 , p5_a20 JTF_VARCHAR2_TABLE_500
1191 , p5_a21 JTF_VARCHAR2_TABLE_500
1192 , p5_a22 JTF_VARCHAR2_TABLE_500
1193 , p5_a23 JTF_VARCHAR2_TABLE_500
1194 , p5_a24 JTF_VARCHAR2_TABLE_500
1195 , p5_a25 JTF_VARCHAR2_TABLE_500
1196 , p5_a26 JTF_VARCHAR2_TABLE_500
1197 , p5_a27 JTF_VARCHAR2_TABLE_500
1198 , p5_a28 JTF_VARCHAR2_TABLE_100
1199 , p5_a29 JTF_NUMBER_TABLE
1200 , p6_a0 out nocopy JTF_NUMBER_TABLE
1201 , p6_a1 out nocopy JTF_NUMBER_TABLE
1202 , p6_a2 out nocopy JTF_NUMBER_TABLE
1203 , p6_a3 out nocopy JTF_NUMBER_TABLE
1204 , p6_a4 out nocopy JTF_NUMBER_TABLE
1205 , p6_a5 out nocopy JTF_NUMBER_TABLE
1206 , p6_a6 out nocopy JTF_NUMBER_TABLE
1207 , p6_a7 out nocopy JTF_NUMBER_TABLE
1208 , p6_a8 out nocopy JTF_DATE_TABLE
1209 , p6_a9 out nocopy JTF_NUMBER_TABLE
1210 , p6_a10 out nocopy JTF_DATE_TABLE
1211 , p6_a11 out nocopy JTF_NUMBER_TABLE
1212 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1213 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1214 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1215 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1216 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1217 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1218 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1219 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1220 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1221 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1222 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1223 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1224 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1225 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1226 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1227 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1228 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_100
1229 , p6_a29 out nocopy JTF_NUMBER_TABLE
1230 )
1231
1232 as
1233 ddp_lrfv_tbl okl_lrf_pvt.lrfv_tbl_type;
1234 ddx_lrfv_tbl okl_lrf_pvt.lrfv_tbl_type;
1235 ddindx binary_integer; indx binary_integer;
1236 begin
1237
1238 -- copy data to the local IN or IN-OUT args, if any
1239
1240
1241
1242
1243
1244 okl_lrf_pvt_w.rosetta_table_copy_in_p28(ddp_lrfv_tbl, p5_a0
1245 , p5_a1
1246 , p5_a2
1247 , p5_a3
1248 , p5_a4
1249 , p5_a5
1250 , p5_a6
1251 , p5_a7
1252 , p5_a8
1253 , p5_a9
1254 , p5_a10
1255 , p5_a11
1256 , p5_a12
1257 , p5_a13
1258 , p5_a14
1259 , p5_a15
1260 , p5_a16
1261 , p5_a17
1262 , p5_a18
1263 , p5_a19
1264 , p5_a20
1265 , p5_a21
1266 , p5_a22
1267 , p5_a23
1268 , p5_a24
1269 , p5_a25
1270 , p5_a26
1271 , p5_a27
1272 , p5_a28
1273 , p5_a29
1274 );
1275
1276
1277 -- here's the delegated call to the old PL/SQL routine
1278 okl_lrf_pvt.update_row(p_api_version,
1279 p_init_msg_list,
1280 x_return_status,
1281 x_msg_count,
1282 x_msg_data,
1283 ddp_lrfv_tbl,
1284 ddx_lrfv_tbl);
1285
1286 -- copy data back from the local variables to OUT or IN-OUT args, if any
1287
1288
1289
1290
1291
1292
1293 okl_lrf_pvt_w.rosetta_table_copy_out_p28(ddx_lrfv_tbl, p6_a0
1294 , p6_a1
1295 , p6_a2
1296 , p6_a3
1297 , p6_a4
1298 , p6_a5
1299 , p6_a6
1300 , p6_a7
1301 , p6_a8
1302 , p6_a9
1303 , p6_a10
1304 , p6_a11
1305 , p6_a12
1306 , p6_a13
1307 , p6_a14
1308 , p6_a15
1309 , p6_a16
1310 , p6_a17
1311 , p6_a18
1312 , p6_a19
1313 , p6_a20
1314 , p6_a21
1315 , p6_a22
1316 , p6_a23
1317 , p6_a24
1318 , p6_a25
1319 , p6_a26
1320 , p6_a27
1321 , p6_a28
1322 , p6_a29
1323 );
1324 end;
1325
1326 procedure delete_row(p_api_version NUMBER
1327 , p_init_msg_list VARCHAR2
1328 , x_return_status out nocopy VARCHAR2
1329 , x_msg_count out nocopy NUMBER
1330 , x_msg_data out nocopy VARCHAR2
1331 , p5_a0 NUMBER
1332 , p5_a1 NUMBER
1333 , p5_a2 NUMBER
1334 , p5_a3 NUMBER
1335 , p5_a4 NUMBER
1336 , p5_a5 NUMBER
1337 , p5_a6 NUMBER
1338 , p5_a7 NUMBER
1339 , p5_a8 DATE
1340 , p5_a9 NUMBER
1341 , p5_a10 DATE
1342 , p5_a11 NUMBER
1343 , p5_a12 VARCHAR2
1344 , p5_a13 VARCHAR2
1345 , p5_a14 VARCHAR2
1346 , p5_a15 VARCHAR2
1347 , p5_a16 VARCHAR2
1348 , p5_a17 VARCHAR2
1349 , p5_a18 VARCHAR2
1350 , p5_a19 VARCHAR2
1351 , p5_a20 VARCHAR2
1352 , p5_a21 VARCHAR2
1353 , p5_a22 VARCHAR2
1354 , p5_a23 VARCHAR2
1355 , p5_a24 VARCHAR2
1356 , p5_a25 VARCHAR2
1357 , p5_a26 VARCHAR2
1358 , p5_a27 VARCHAR2
1359 , p5_a28 VARCHAR2
1360 , p5_a29 NUMBER
1361 )
1362
1363 as
1364 ddp_lrfv_rec okl_lrf_pvt.lrfv_rec_type;
1365 ddindx binary_integer; indx binary_integer;
1366 begin
1367
1368 -- copy data to the local IN or IN-OUT args, if any
1369
1370
1371
1372
1373
1374 ddp_lrfv_rec.id := p5_a0;
1375 ddp_lrfv_rec.object_version_number := p5_a1;
1376 ddp_lrfv_rec.lrt_id := p5_a2;
1377 ddp_lrfv_rec.term_in_months := p5_a3;
1378 ddp_lrfv_rec.residual_value_percent := p5_a4;
1379 ddp_lrfv_rec.interest_rate := p5_a5;
1380 ddp_lrfv_rec.lease_rate_factor := p5_a6;
1381 ddp_lrfv_rec.created_by := p5_a7;
1382 ddp_lrfv_rec.creation_date := p5_a8;
1383 ddp_lrfv_rec.last_updated_by := p5_a9;
1384 ddp_lrfv_rec.last_update_date := p5_a10;
1385 ddp_lrfv_rec.last_update_login := p5_a11;
1386 ddp_lrfv_rec.attribute_category := p5_a12;
1387 ddp_lrfv_rec.attribute1 := p5_a13;
1388 ddp_lrfv_rec.attribute2 := p5_a14;
1389 ddp_lrfv_rec.attribute3 := p5_a15;
1390 ddp_lrfv_rec.attribute4 := p5_a16;
1391 ddp_lrfv_rec.attribute5 := p5_a17;
1392 ddp_lrfv_rec.attribute6 := p5_a18;
1393 ddp_lrfv_rec.attribute7 := p5_a19;
1394 ddp_lrfv_rec.attribute8 := p5_a20;
1395 ddp_lrfv_rec.attribute9 := p5_a21;
1396 ddp_lrfv_rec.attribute10 := p5_a22;
1397 ddp_lrfv_rec.attribute11 := p5_a23;
1398 ddp_lrfv_rec.attribute12 := p5_a24;
1399 ddp_lrfv_rec.attribute13 := p5_a25;
1400 ddp_lrfv_rec.attribute14 := p5_a26;
1401 ddp_lrfv_rec.attribute15 := p5_a27;
1402 ddp_lrfv_rec.is_new_flag := p5_a28;
1403 ddp_lrfv_rec.rate_set_version_id := p5_a29;
1404
1405 -- here's the delegated call to the old PL/SQL routine
1406 okl_lrf_pvt.delete_row(p_api_version,
1407 p_init_msg_list,
1408 x_return_status,
1409 x_msg_count,
1410 x_msg_data,
1411 ddp_lrfv_rec);
1412
1413 -- copy data back from the local variables to OUT or IN-OUT args, if any
1414
1415
1416
1417
1418
1419 end;
1420
1421 procedure delete_row(p_api_version NUMBER
1422 , p_init_msg_list VARCHAR2
1423 , x_return_status out nocopy VARCHAR2
1424 , x_msg_count out nocopy NUMBER
1425 , x_msg_data out nocopy VARCHAR2
1426 , p5_a0 JTF_NUMBER_TABLE
1427 , p5_a1 JTF_NUMBER_TABLE
1428 , p5_a2 JTF_NUMBER_TABLE
1429 , p5_a3 JTF_NUMBER_TABLE
1430 , p5_a4 JTF_NUMBER_TABLE
1431 , p5_a5 JTF_NUMBER_TABLE
1432 , p5_a6 JTF_NUMBER_TABLE
1433 , p5_a7 JTF_NUMBER_TABLE
1434 , p5_a8 JTF_DATE_TABLE
1435 , p5_a9 JTF_NUMBER_TABLE
1436 , p5_a10 JTF_DATE_TABLE
1437 , p5_a11 JTF_NUMBER_TABLE
1438 , p5_a12 JTF_VARCHAR2_TABLE_100
1439 , p5_a13 JTF_VARCHAR2_TABLE_500
1440 , p5_a14 JTF_VARCHAR2_TABLE_500
1441 , p5_a15 JTF_VARCHAR2_TABLE_500
1442 , p5_a16 JTF_VARCHAR2_TABLE_500
1443 , p5_a17 JTF_VARCHAR2_TABLE_500
1444 , p5_a18 JTF_VARCHAR2_TABLE_500
1445 , p5_a19 JTF_VARCHAR2_TABLE_500
1446 , p5_a20 JTF_VARCHAR2_TABLE_500
1447 , p5_a21 JTF_VARCHAR2_TABLE_500
1448 , p5_a22 JTF_VARCHAR2_TABLE_500
1449 , p5_a23 JTF_VARCHAR2_TABLE_500
1450 , p5_a24 JTF_VARCHAR2_TABLE_500
1451 , p5_a25 JTF_VARCHAR2_TABLE_500
1452 , p5_a26 JTF_VARCHAR2_TABLE_500
1453 , p5_a27 JTF_VARCHAR2_TABLE_500
1454 , p5_a28 JTF_VARCHAR2_TABLE_100
1455 , p5_a29 JTF_NUMBER_TABLE
1456 )
1457
1458 as
1459 ddp_lrfv_tbl okl_lrf_pvt.lrfv_tbl_type;
1460 ddindx binary_integer; indx binary_integer;
1461 begin
1462
1463 -- copy data to the local IN or IN-OUT args, if any
1464
1465
1466
1467
1468
1469 okl_lrf_pvt_w.rosetta_table_copy_in_p28(ddp_lrfv_tbl, p5_a0
1470 , p5_a1
1471 , p5_a2
1472 , p5_a3
1473 , p5_a4
1474 , p5_a5
1475 , p5_a6
1476 , p5_a7
1477 , p5_a8
1478 , p5_a9
1479 , p5_a10
1480 , p5_a11
1481 , p5_a12
1482 , p5_a13
1483 , p5_a14
1484 , p5_a15
1485 , p5_a16
1486 , p5_a17
1487 , p5_a18
1488 , p5_a19
1489 , p5_a20
1490 , p5_a21
1491 , p5_a22
1492 , p5_a23
1493 , p5_a24
1494 , p5_a25
1495 , p5_a26
1496 , p5_a27
1497 , p5_a28
1498 , p5_a29
1499 );
1500
1501 -- here's the delegated call to the old PL/SQL routine
1502 okl_lrf_pvt.delete_row(p_api_version,
1503 p_init_msg_list,
1504 x_return_status,
1505 x_msg_count,
1506 x_msg_data,
1507 ddp_lrfv_tbl);
1508
1509 -- copy data back from the local variables to OUT or IN-OUT args, if any
1510
1511
1512
1513
1514
1515 end;
1516
1517 procedure validate_row(p_api_version NUMBER
1518 , p_init_msg_list VARCHAR2
1519 , x_return_status out nocopy VARCHAR2
1520 , x_msg_count out nocopy NUMBER
1521 , x_msg_data out nocopy VARCHAR2
1522 , p5_a0 NUMBER
1523 , p5_a1 NUMBER
1524 , p5_a2 NUMBER
1525 , p5_a3 NUMBER
1526 , p5_a4 NUMBER
1527 , p5_a5 NUMBER
1528 , p5_a6 NUMBER
1529 , p5_a7 NUMBER
1530 , p5_a8 DATE
1531 , p5_a9 NUMBER
1532 , p5_a10 DATE
1533 , p5_a11 NUMBER
1534 , p5_a12 VARCHAR2
1535 , p5_a13 VARCHAR2
1536 , p5_a14 VARCHAR2
1537 , p5_a15 VARCHAR2
1538 , p5_a16 VARCHAR2
1539 , p5_a17 VARCHAR2
1540 , p5_a18 VARCHAR2
1541 , p5_a19 VARCHAR2
1542 , p5_a20 VARCHAR2
1543 , p5_a21 VARCHAR2
1544 , p5_a22 VARCHAR2
1545 , p5_a23 VARCHAR2
1546 , p5_a24 VARCHAR2
1547 , p5_a25 VARCHAR2
1548 , p5_a26 VARCHAR2
1549 , p5_a27 VARCHAR2
1550 , p5_a28 VARCHAR2
1551 , p5_a29 NUMBER
1552 )
1553
1554 as
1555 ddp_lrfv_rec okl_lrf_pvt.lrfv_rec_type;
1556 ddindx binary_integer; indx binary_integer;
1557 begin
1558
1559 -- copy data to the local IN or IN-OUT args, if any
1560
1561
1562
1563
1564
1565 ddp_lrfv_rec.id := p5_a0;
1566 ddp_lrfv_rec.object_version_number := p5_a1;
1567 ddp_lrfv_rec.lrt_id := p5_a2;
1568 ddp_lrfv_rec.term_in_months := p5_a3;
1569 ddp_lrfv_rec.residual_value_percent := p5_a4;
1570 ddp_lrfv_rec.interest_rate := p5_a5;
1571 ddp_lrfv_rec.lease_rate_factor := p5_a6;
1572 ddp_lrfv_rec.created_by := p5_a7;
1573 ddp_lrfv_rec.creation_date := p5_a8;
1574 ddp_lrfv_rec.last_updated_by := p5_a9;
1575 ddp_lrfv_rec.last_update_date := p5_a10;
1576 ddp_lrfv_rec.last_update_login := p5_a11;
1577 ddp_lrfv_rec.attribute_category := p5_a12;
1578 ddp_lrfv_rec.attribute1 := p5_a13;
1579 ddp_lrfv_rec.attribute2 := p5_a14;
1580 ddp_lrfv_rec.attribute3 := p5_a15;
1581 ddp_lrfv_rec.attribute4 := p5_a16;
1582 ddp_lrfv_rec.attribute5 := p5_a17;
1583 ddp_lrfv_rec.attribute6 := p5_a18;
1584 ddp_lrfv_rec.attribute7 := p5_a19;
1585 ddp_lrfv_rec.attribute8 := p5_a20;
1586 ddp_lrfv_rec.attribute9 := p5_a21;
1587 ddp_lrfv_rec.attribute10 := p5_a22;
1588 ddp_lrfv_rec.attribute11 := p5_a23;
1589 ddp_lrfv_rec.attribute12 := p5_a24;
1590 ddp_lrfv_rec.attribute13 := p5_a25;
1591 ddp_lrfv_rec.attribute14 := p5_a26;
1592 ddp_lrfv_rec.attribute15 := p5_a27;
1593 ddp_lrfv_rec.is_new_flag := p5_a28;
1594 ddp_lrfv_rec.rate_set_version_id := p5_a29;
1595
1596 -- here's the delegated call to the old PL/SQL routine
1597 okl_lrf_pvt.validate_row(p_api_version,
1598 p_init_msg_list,
1599 x_return_status,
1600 x_msg_count,
1601 x_msg_data,
1602 ddp_lrfv_rec);
1603
1604 -- copy data back from the local variables to OUT or IN-OUT args, if any
1605
1606
1607
1608
1609
1610 end;
1611
1612 procedure validate_row(p_api_version NUMBER
1613 , p_init_msg_list VARCHAR2
1614 , x_return_status out nocopy VARCHAR2
1615 , x_msg_count out nocopy NUMBER
1616 , x_msg_data out nocopy VARCHAR2
1617 , p5_a0 JTF_NUMBER_TABLE
1618 , p5_a1 JTF_NUMBER_TABLE
1619 , p5_a2 JTF_NUMBER_TABLE
1620 , p5_a3 JTF_NUMBER_TABLE
1621 , p5_a4 JTF_NUMBER_TABLE
1622 , p5_a5 JTF_NUMBER_TABLE
1623 , p5_a6 JTF_NUMBER_TABLE
1624 , p5_a7 JTF_NUMBER_TABLE
1625 , p5_a8 JTF_DATE_TABLE
1626 , p5_a9 JTF_NUMBER_TABLE
1627 , p5_a10 JTF_DATE_TABLE
1628 , p5_a11 JTF_NUMBER_TABLE
1629 , p5_a12 JTF_VARCHAR2_TABLE_100
1630 , p5_a13 JTF_VARCHAR2_TABLE_500
1631 , p5_a14 JTF_VARCHAR2_TABLE_500
1632 , p5_a15 JTF_VARCHAR2_TABLE_500
1633 , p5_a16 JTF_VARCHAR2_TABLE_500
1634 , p5_a17 JTF_VARCHAR2_TABLE_500
1635 , p5_a18 JTF_VARCHAR2_TABLE_500
1636 , p5_a19 JTF_VARCHAR2_TABLE_500
1637 , p5_a20 JTF_VARCHAR2_TABLE_500
1638 , p5_a21 JTF_VARCHAR2_TABLE_500
1639 , p5_a22 JTF_VARCHAR2_TABLE_500
1640 , p5_a23 JTF_VARCHAR2_TABLE_500
1641 , p5_a24 JTF_VARCHAR2_TABLE_500
1642 , p5_a25 JTF_VARCHAR2_TABLE_500
1643 , p5_a26 JTF_VARCHAR2_TABLE_500
1644 , p5_a27 JTF_VARCHAR2_TABLE_500
1645 , p5_a28 JTF_VARCHAR2_TABLE_100
1646 , p5_a29 JTF_NUMBER_TABLE
1647 )
1648
1649 as
1650 ddp_lrfv_tbl okl_lrf_pvt.lrfv_tbl_type;
1651 ddindx binary_integer; indx binary_integer;
1652 begin
1653
1654 -- copy data to the local IN or IN-OUT args, if any
1655
1656
1657
1658
1659
1660 okl_lrf_pvt_w.rosetta_table_copy_in_p28(ddp_lrfv_tbl, p5_a0
1661 , p5_a1
1662 , p5_a2
1663 , p5_a3
1664 , p5_a4
1665 , p5_a5
1666 , p5_a6
1667 , p5_a7
1668 , p5_a8
1669 , p5_a9
1670 , p5_a10
1671 , p5_a11
1672 , p5_a12
1673 , p5_a13
1674 , p5_a14
1675 , p5_a15
1676 , p5_a16
1677 , p5_a17
1678 , p5_a18
1679 , p5_a19
1680 , p5_a20
1681 , p5_a21
1682 , p5_a22
1683 , p5_a23
1684 , p5_a24
1685 , p5_a25
1686 , p5_a26
1687 , p5_a27
1688 , p5_a28
1689 , p5_a29
1690 );
1691
1692 -- here's the delegated call to the old PL/SQL routine
1693 okl_lrf_pvt.validate_row(p_api_version,
1694 p_init_msg_list,
1695 x_return_status,
1696 x_msg_count,
1697 x_msg_data,
1698 ddp_lrfv_tbl);
1699
1700 -- copy data back from the local variables to OUT or IN-OUT args, if any
1701
1702
1703
1704
1705
1706 end;
1707
1708 end okl_lrf_pvt_w;