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