[Home] [Help]
PACKAGE BODY: APPS.OKL_LRL_PVT_W
Source
1 package body okl_lrl_pvt_w as
2 /* $Header: OKLILRLB.pls 120.1 2005/10/30 03:56:01 appldev noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy okl_lrl_pvt.okl_lrlv_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_DATE_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_VARCHAR2_TABLE_100
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_500
32 , a29 JTF_VARCHAR2_TABLE_500
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).rate_set_level_id := a0(indx);
42 t(ddindx).object_version_number := a1(indx);
43 t(ddindx).residual_percent := a2(indx);
44 t(ddindx).rate_set_id := a3(indx);
45 t(ddindx).rate_set_version_id := a4(indx);
46 t(ddindx).rate_set_factor_id := a5(indx);
47 t(ddindx).sequence_number := a6(indx);
48 t(ddindx).periods := a7(indx);
49 t(ddindx).lease_rate_factor := a8(indx);
50 t(ddindx).created_by := a9(indx);
51 t(ddindx).creation_date := a10(indx);
52 t(ddindx).last_updated_by := a11(indx);
53 t(ddindx).last_update_date := a12(indx);
54 t(ddindx).last_update_login := a13(indx);
55 t(ddindx).attribute_category := a14(indx);
56 t(ddindx).attribute1 := a15(indx);
57 t(ddindx).attribute2 := a16(indx);
58 t(ddindx).attribute3 := a17(indx);
59 t(ddindx).attribute4 := a18(indx);
60 t(ddindx).attribute5 := a19(indx);
61 t(ddindx).attribute6 := a20(indx);
62 t(ddindx).attribute7 := a21(indx);
63 t(ddindx).attribute8 := a22(indx);
64 t(ddindx).attribute9 := a23(indx);
65 t(ddindx).attribute10 := a24(indx);
66 t(ddindx).attribute11 := a25(indx);
67 t(ddindx).attribute12 := a26(indx);
68 t(ddindx).attribute13 := a27(indx);
69 t(ddindx).attribute14 := a28(indx);
70 t(ddindx).attribute15 := 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_p1;
80 procedure rosetta_table_copy_out_p1(t okl_lrl_pvt.okl_lrlv_tbl, 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_NUMBER_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_DATE_TABLE
93 , a13 out nocopy JTF_NUMBER_TABLE
94 , a14 out nocopy JTF_VARCHAR2_TABLE_100
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_500
109 , a29 out nocopy JTF_VARCHAR2_TABLE_500
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_NUMBER_TABLE();
123 a9 := JTF_NUMBER_TABLE();
124 a10 := JTF_DATE_TABLE();
125 a11 := JTF_NUMBER_TABLE();
126 a12 := JTF_DATE_TABLE();
127 a13 := JTF_NUMBER_TABLE();
128 a14 := JTF_VARCHAR2_TABLE_100();
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_500();
143 a29 := JTF_VARCHAR2_TABLE_500();
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_NUMBER_TABLE();
154 a9 := JTF_NUMBER_TABLE();
155 a10 := JTF_DATE_TABLE();
156 a11 := JTF_NUMBER_TABLE();
157 a12 := JTF_DATE_TABLE();
158 a13 := JTF_NUMBER_TABLE();
159 a14 := JTF_VARCHAR2_TABLE_100();
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_500();
174 a29 := JTF_VARCHAR2_TABLE_500();
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).rate_set_level_id;
210 a1(indx) := t(ddindx).object_version_number;
211 a2(indx) := t(ddindx).residual_percent;
212 a3(indx) := t(ddindx).rate_set_id;
213 a4(indx) := t(ddindx).rate_set_version_id;
214 a5(indx) := t(ddindx).rate_set_factor_id;
215 a6(indx) := t(ddindx).sequence_number;
216 a7(indx) := t(ddindx).periods;
217 a8(indx) := t(ddindx).lease_rate_factor;
218 a9(indx) := t(ddindx).created_by;
219 a10(indx) := t(ddindx).creation_date;
220 a11(indx) := t(ddindx).last_updated_by;
221 a12(indx) := t(ddindx).last_update_date;
222 a13(indx) := t(ddindx).last_update_login;
223 a14(indx) := t(ddindx).attribute_category;
224 a15(indx) := t(ddindx).attribute1;
225 a16(indx) := t(ddindx).attribute2;
226 a17(indx) := t(ddindx).attribute3;
227 a18(indx) := t(ddindx).attribute4;
228 a19(indx) := t(ddindx).attribute5;
229 a20(indx) := t(ddindx).attribute6;
230 a21(indx) := t(ddindx).attribute7;
231 a22(indx) := t(ddindx).attribute8;
232 a23(indx) := t(ddindx).attribute9;
233 a24(indx) := t(ddindx).attribute10;
234 a25(indx) := t(ddindx).attribute11;
235 a26(indx) := t(ddindx).attribute12;
236 a27(indx) := t(ddindx).attribute13;
237 a28(indx) := t(ddindx).attribute14;
238 a29(indx) := t(ddindx).attribute15;
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_p1;
248
249 procedure rosetta_table_copy_in_p3(t out nocopy okl_lrl_pvt.okl_lrl_tbl, 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_NUMBER_TABLE
258 , a9 JTF_NUMBER_TABLE
259 , a10 JTF_DATE_TABLE
260 , a11 JTF_NUMBER_TABLE
261 , a12 JTF_DATE_TABLE
262 , a13 JTF_NUMBER_TABLE
263 , a14 JTF_VARCHAR2_TABLE_100
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_500
278 , a29 JTF_VARCHAR2_TABLE_500
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).rate_set_level_id := a0(indx);
288 t(ddindx).object_version_number := a1(indx);
289 t(ddindx).residual_percent := a2(indx);
290 t(ddindx).rate_set_id := a3(indx);
291 t(ddindx).rate_set_version_id := a4(indx);
292 t(ddindx).rate_set_factor_id := a5(indx);
293 t(ddindx).sequence_number := a6(indx);
294 t(ddindx).periods := a7(indx);
295 t(ddindx).lease_rate_factor := a8(indx);
296 t(ddindx).created_by := a9(indx);
297 t(ddindx).creation_date := a10(indx);
298 t(ddindx).last_updated_by := a11(indx);
299 t(ddindx).last_update_date := a12(indx);
300 t(ddindx).last_update_login := a13(indx);
301 t(ddindx).attribute_category := a14(indx);
302 t(ddindx).attribute1 := a15(indx);
303 t(ddindx).attribute2 := a16(indx);
304 t(ddindx).attribute3 := a17(indx);
305 t(ddindx).attribute4 := a18(indx);
306 t(ddindx).attribute5 := a19(indx);
307 t(ddindx).attribute6 := a20(indx);
308 t(ddindx).attribute7 := a21(indx);
309 t(ddindx).attribute8 := a22(indx);
310 t(ddindx).attribute9 := a23(indx);
311 t(ddindx).attribute10 := a24(indx);
312 t(ddindx).attribute11 := a25(indx);
313 t(ddindx).attribute12 := a26(indx);
314 t(ddindx).attribute13 := a27(indx);
315 t(ddindx).attribute14 := a28(indx);
316 t(ddindx).attribute15 := 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_p3;
326 procedure rosetta_table_copy_out_p3(t okl_lrl_pvt.okl_lrl_tbl, 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_NUMBER_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_DATE_TABLE
339 , a13 out nocopy JTF_NUMBER_TABLE
340 , a14 out nocopy JTF_VARCHAR2_TABLE_100
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_500
355 , a29 out nocopy JTF_VARCHAR2_TABLE_500
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_NUMBER_TABLE();
369 a9 := JTF_NUMBER_TABLE();
370 a10 := JTF_DATE_TABLE();
371 a11 := JTF_NUMBER_TABLE();
372 a12 := JTF_DATE_TABLE();
373 a13 := JTF_NUMBER_TABLE();
374 a14 := JTF_VARCHAR2_TABLE_100();
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_500();
389 a29 := JTF_VARCHAR2_TABLE_500();
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_NUMBER_TABLE();
400 a9 := JTF_NUMBER_TABLE();
401 a10 := JTF_DATE_TABLE();
402 a11 := JTF_NUMBER_TABLE();
403 a12 := JTF_DATE_TABLE();
404 a13 := JTF_NUMBER_TABLE();
405 a14 := JTF_VARCHAR2_TABLE_100();
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_500();
420 a29 := JTF_VARCHAR2_TABLE_500();
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).rate_set_level_id;
456 a1(indx) := t(ddindx).object_version_number;
457 a2(indx) := t(ddindx).residual_percent;
458 a3(indx) := t(ddindx).rate_set_id;
459 a4(indx) := t(ddindx).rate_set_version_id;
460 a5(indx) := t(ddindx).rate_set_factor_id;
461 a6(indx) := t(ddindx).sequence_number;
462 a7(indx) := t(ddindx).periods;
463 a8(indx) := t(ddindx).lease_rate_factor;
464 a9(indx) := t(ddindx).created_by;
465 a10(indx) := t(ddindx).creation_date;
466 a11(indx) := t(ddindx).last_updated_by;
467 a12(indx) := t(ddindx).last_update_date;
468 a13(indx) := t(ddindx).last_update_login;
469 a14(indx) := t(ddindx).attribute_category;
470 a15(indx) := t(ddindx).attribute1;
471 a16(indx) := t(ddindx).attribute2;
472 a17(indx) := t(ddindx).attribute3;
473 a18(indx) := t(ddindx).attribute4;
474 a19(indx) := t(ddindx).attribute5;
475 a20(indx) := t(ddindx).attribute6;
476 a21(indx) := t(ddindx).attribute7;
477 a22(indx) := t(ddindx).attribute8;
478 a23(indx) := t(ddindx).attribute9;
479 a24(indx) := t(ddindx).attribute10;
480 a25(indx) := t(ddindx).attribute11;
481 a26(indx) := t(ddindx).attribute12;
482 a27(indx) := t(ddindx).attribute13;
483 a28(indx) := t(ddindx).attribute14;
484 a29(indx) := t(ddindx).attribute15;
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_p3;
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 NUMBER
509 , p5_a9 NUMBER
510 , p5_a10 DATE
511 , p5_a11 NUMBER
512 , p5_a12 DATE
513 , p5_a13 NUMBER
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 VARCHAR2
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 NUMBER
539 , p6_a9 out nocopy NUMBER
540 , p6_a10 out nocopy DATE
541 , p6_a11 out nocopy NUMBER
542 , p6_a12 out nocopy DATE
543 , p6_a13 out nocopy NUMBER
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 VARCHAR2
560 )
561
562 as
563 ddp_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
564 ddx_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
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_lrlv_rec.rate_set_level_id := p5_a0;
575 ddp_lrlv_rec.object_version_number := p5_a1;
576 ddp_lrlv_rec.residual_percent := p5_a2;
577 ddp_lrlv_rec.rate_set_id := p5_a3;
578 ddp_lrlv_rec.rate_set_version_id := p5_a4;
579 ddp_lrlv_rec.rate_set_factor_id := p5_a5;
580 ddp_lrlv_rec.sequence_number := p5_a6;
581 ddp_lrlv_rec.periods := p5_a7;
582 ddp_lrlv_rec.lease_rate_factor := p5_a8;
583 ddp_lrlv_rec.created_by := p5_a9;
584 ddp_lrlv_rec.creation_date := p5_a10;
585 ddp_lrlv_rec.last_updated_by := p5_a11;
586 ddp_lrlv_rec.last_update_date := p5_a12;
587 ddp_lrlv_rec.last_update_login := p5_a13;
588 ddp_lrlv_rec.attribute_category := p5_a14;
589 ddp_lrlv_rec.attribute1 := p5_a15;
590 ddp_lrlv_rec.attribute2 := p5_a16;
591 ddp_lrlv_rec.attribute3 := p5_a17;
592 ddp_lrlv_rec.attribute4 := p5_a18;
593 ddp_lrlv_rec.attribute5 := p5_a19;
594 ddp_lrlv_rec.attribute6 := p5_a20;
595 ddp_lrlv_rec.attribute7 := p5_a21;
596 ddp_lrlv_rec.attribute8 := p5_a22;
597 ddp_lrlv_rec.attribute9 := p5_a23;
598 ddp_lrlv_rec.attribute10 := p5_a24;
599 ddp_lrlv_rec.attribute11 := p5_a25;
600 ddp_lrlv_rec.attribute12 := p5_a26;
601 ddp_lrlv_rec.attribute13 := p5_a27;
602 ddp_lrlv_rec.attribute14 := p5_a28;
603 ddp_lrlv_rec.attribute15 := p5_a29;
604
605
606 -- here's the delegated call to the old PL/SQL routine
607 okl_lrl_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_lrlv_rec,
613 ddx_lrlv_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_lrlv_rec.rate_set_level_id;
623 p6_a1 := ddx_lrlv_rec.object_version_number;
624 p6_a2 := ddx_lrlv_rec.residual_percent;
625 p6_a3 := ddx_lrlv_rec.rate_set_id;
626 p6_a4 := ddx_lrlv_rec.rate_set_version_id;
627 p6_a5 := ddx_lrlv_rec.rate_set_factor_id;
628 p6_a6 := ddx_lrlv_rec.sequence_number;
629 p6_a7 := ddx_lrlv_rec.periods;
630 p6_a8 := ddx_lrlv_rec.lease_rate_factor;
631 p6_a9 := ddx_lrlv_rec.created_by;
632 p6_a10 := ddx_lrlv_rec.creation_date;
633 p6_a11 := ddx_lrlv_rec.last_updated_by;
634 p6_a12 := ddx_lrlv_rec.last_update_date;
635 p6_a13 := ddx_lrlv_rec.last_update_login;
636 p6_a14 := ddx_lrlv_rec.attribute_category;
637 p6_a15 := ddx_lrlv_rec.attribute1;
638 p6_a16 := ddx_lrlv_rec.attribute2;
639 p6_a17 := ddx_lrlv_rec.attribute3;
640 p6_a18 := ddx_lrlv_rec.attribute4;
641 p6_a19 := ddx_lrlv_rec.attribute5;
642 p6_a20 := ddx_lrlv_rec.attribute6;
643 p6_a21 := ddx_lrlv_rec.attribute7;
644 p6_a22 := ddx_lrlv_rec.attribute8;
645 p6_a23 := ddx_lrlv_rec.attribute9;
646 p6_a24 := ddx_lrlv_rec.attribute10;
647 p6_a25 := ddx_lrlv_rec.attribute11;
648 p6_a26 := ddx_lrlv_rec.attribute12;
649 p6_a27 := ddx_lrlv_rec.attribute13;
650 p6_a28 := ddx_lrlv_rec.attribute14;
651 p6_a29 := ddx_lrlv_rec.attribute15;
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_NUMBER_TABLE
668 , p5_a9 JTF_NUMBER_TABLE
669 , p5_a10 JTF_DATE_TABLE
670 , p5_a11 JTF_NUMBER_TABLE
671 , p5_a12 JTF_DATE_TABLE
672 , p5_a13 JTF_NUMBER_TABLE
673 , p5_a14 JTF_VARCHAR2_TABLE_100
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_500
688 , p5_a29 JTF_VARCHAR2_TABLE_500
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_NUMBER_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_DATE_TABLE
702 , p6_a13 out nocopy JTF_NUMBER_TABLE
703 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
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_500
718 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
719 )
720
721 as
722 ddp_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
723 ddx_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
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_lrl_pvt_w.rosetta_table_copy_in_p1(ddp_lrlv_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_lrl_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_lrlv_tbl,
773 ddx_lrlv_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_lrl_pvt_w.rosetta_table_copy_out_p1(ddx_lrlv_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 update_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 NUMBER
829 , p5_a9 NUMBER
830 , p5_a10 DATE
831 , p5_a11 NUMBER
832 , p5_a12 DATE
833 , p5_a13 NUMBER
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 VARCHAR2
850 , p6_a0 out nocopy NUMBER
851 , p6_a1 out nocopy NUMBER
852 , p6_a2 out nocopy NUMBER
853 , p6_a3 out nocopy NUMBER
854 , p6_a4 out nocopy NUMBER
855 , p6_a5 out nocopy NUMBER
856 , p6_a6 out nocopy NUMBER
857 , p6_a7 out nocopy NUMBER
858 , p6_a8 out nocopy NUMBER
859 , p6_a9 out nocopy NUMBER
860 , p6_a10 out nocopy DATE
861 , p6_a11 out nocopy NUMBER
862 , p6_a12 out nocopy DATE
863 , p6_a13 out nocopy NUMBER
864 , p6_a14 out nocopy VARCHAR2
865 , p6_a15 out nocopy VARCHAR2
866 , p6_a16 out nocopy VARCHAR2
867 , p6_a17 out nocopy VARCHAR2
868 , p6_a18 out nocopy VARCHAR2
869 , p6_a19 out nocopy VARCHAR2
870 , p6_a20 out nocopy VARCHAR2
871 , p6_a21 out nocopy VARCHAR2
872 , p6_a22 out nocopy VARCHAR2
873 , p6_a23 out nocopy VARCHAR2
874 , p6_a24 out nocopy VARCHAR2
875 , p6_a25 out nocopy VARCHAR2
876 , p6_a26 out nocopy VARCHAR2
877 , p6_a27 out nocopy VARCHAR2
878 , p6_a28 out nocopy VARCHAR2
879 , p6_a29 out nocopy VARCHAR2
880 )
881
882 as
883 ddp_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
884 ddx_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
885 ddindx binary_integer; indx binary_integer;
886 begin
887
888 -- copy data to the local IN or IN-OUT args, if any
889
890
891
892
893
894 ddp_lrlv_rec.rate_set_level_id := p5_a0;
895 ddp_lrlv_rec.object_version_number := p5_a1;
896 ddp_lrlv_rec.residual_percent := p5_a2;
897 ddp_lrlv_rec.rate_set_id := p5_a3;
898 ddp_lrlv_rec.rate_set_version_id := p5_a4;
899 ddp_lrlv_rec.rate_set_factor_id := p5_a5;
900 ddp_lrlv_rec.sequence_number := p5_a6;
901 ddp_lrlv_rec.periods := p5_a7;
902 ddp_lrlv_rec.lease_rate_factor := p5_a8;
903 ddp_lrlv_rec.created_by := p5_a9;
904 ddp_lrlv_rec.creation_date := p5_a10;
905 ddp_lrlv_rec.last_updated_by := p5_a11;
906 ddp_lrlv_rec.last_update_date := p5_a12;
907 ddp_lrlv_rec.last_update_login := p5_a13;
908 ddp_lrlv_rec.attribute_category := p5_a14;
909 ddp_lrlv_rec.attribute1 := p5_a15;
910 ddp_lrlv_rec.attribute2 := p5_a16;
911 ddp_lrlv_rec.attribute3 := p5_a17;
912 ddp_lrlv_rec.attribute4 := p5_a18;
913 ddp_lrlv_rec.attribute5 := p5_a19;
914 ddp_lrlv_rec.attribute6 := p5_a20;
915 ddp_lrlv_rec.attribute7 := p5_a21;
916 ddp_lrlv_rec.attribute8 := p5_a22;
917 ddp_lrlv_rec.attribute9 := p5_a23;
918 ddp_lrlv_rec.attribute10 := p5_a24;
919 ddp_lrlv_rec.attribute11 := p5_a25;
920 ddp_lrlv_rec.attribute12 := p5_a26;
921 ddp_lrlv_rec.attribute13 := p5_a27;
922 ddp_lrlv_rec.attribute14 := p5_a28;
923 ddp_lrlv_rec.attribute15 := p5_a29;
924
925
926 -- here's the delegated call to the old PL/SQL routine
927 okl_lrl_pvt.update_row(p_api_version,
928 p_init_msg_list,
929 x_return_status,
930 x_msg_count,
931 x_msg_data,
932 ddp_lrlv_rec,
933 ddx_lrlv_rec);
934
935 -- copy data back from the local variables to OUT or IN-OUT args, if any
936
937
938
939
940
941
942 p6_a0 := ddx_lrlv_rec.rate_set_level_id;
943 p6_a1 := ddx_lrlv_rec.object_version_number;
944 p6_a2 := ddx_lrlv_rec.residual_percent;
945 p6_a3 := ddx_lrlv_rec.rate_set_id;
946 p6_a4 := ddx_lrlv_rec.rate_set_version_id;
947 p6_a5 := ddx_lrlv_rec.rate_set_factor_id;
948 p6_a6 := ddx_lrlv_rec.sequence_number;
949 p6_a7 := ddx_lrlv_rec.periods;
950 p6_a8 := ddx_lrlv_rec.lease_rate_factor;
951 p6_a9 := ddx_lrlv_rec.created_by;
952 p6_a10 := ddx_lrlv_rec.creation_date;
953 p6_a11 := ddx_lrlv_rec.last_updated_by;
954 p6_a12 := ddx_lrlv_rec.last_update_date;
955 p6_a13 := ddx_lrlv_rec.last_update_login;
956 p6_a14 := ddx_lrlv_rec.attribute_category;
957 p6_a15 := ddx_lrlv_rec.attribute1;
958 p6_a16 := ddx_lrlv_rec.attribute2;
959 p6_a17 := ddx_lrlv_rec.attribute3;
960 p6_a18 := ddx_lrlv_rec.attribute4;
961 p6_a19 := ddx_lrlv_rec.attribute5;
962 p6_a20 := ddx_lrlv_rec.attribute6;
963 p6_a21 := ddx_lrlv_rec.attribute7;
964 p6_a22 := ddx_lrlv_rec.attribute8;
965 p6_a23 := ddx_lrlv_rec.attribute9;
966 p6_a24 := ddx_lrlv_rec.attribute10;
967 p6_a25 := ddx_lrlv_rec.attribute11;
968 p6_a26 := ddx_lrlv_rec.attribute12;
969 p6_a27 := ddx_lrlv_rec.attribute13;
970 p6_a28 := ddx_lrlv_rec.attribute14;
971 p6_a29 := ddx_lrlv_rec.attribute15;
972 end;
973
974 procedure update_row(p_api_version NUMBER
975 , p_init_msg_list VARCHAR2
976 , x_return_status out nocopy VARCHAR2
977 , x_msg_count out nocopy NUMBER
978 , x_msg_data out nocopy VARCHAR2
979 , p5_a0 JTF_NUMBER_TABLE
980 , p5_a1 JTF_NUMBER_TABLE
981 , p5_a2 JTF_NUMBER_TABLE
982 , p5_a3 JTF_NUMBER_TABLE
983 , p5_a4 JTF_NUMBER_TABLE
984 , p5_a5 JTF_NUMBER_TABLE
985 , p5_a6 JTF_NUMBER_TABLE
986 , p5_a7 JTF_NUMBER_TABLE
987 , p5_a8 JTF_NUMBER_TABLE
988 , p5_a9 JTF_NUMBER_TABLE
989 , p5_a10 JTF_DATE_TABLE
990 , p5_a11 JTF_NUMBER_TABLE
991 , p5_a12 JTF_DATE_TABLE
992 , p5_a13 JTF_NUMBER_TABLE
993 , p5_a14 JTF_VARCHAR2_TABLE_100
994 , p5_a15 JTF_VARCHAR2_TABLE_500
995 , p5_a16 JTF_VARCHAR2_TABLE_500
996 , p5_a17 JTF_VARCHAR2_TABLE_500
997 , p5_a18 JTF_VARCHAR2_TABLE_500
998 , p5_a19 JTF_VARCHAR2_TABLE_500
999 , p5_a20 JTF_VARCHAR2_TABLE_500
1000 , p5_a21 JTF_VARCHAR2_TABLE_500
1001 , p5_a22 JTF_VARCHAR2_TABLE_500
1002 , p5_a23 JTF_VARCHAR2_TABLE_500
1003 , p5_a24 JTF_VARCHAR2_TABLE_500
1004 , p5_a25 JTF_VARCHAR2_TABLE_500
1005 , p5_a26 JTF_VARCHAR2_TABLE_500
1006 , p5_a27 JTF_VARCHAR2_TABLE_500
1007 , p5_a28 JTF_VARCHAR2_TABLE_500
1008 , p5_a29 JTF_VARCHAR2_TABLE_500
1009 , p6_a0 out nocopy JTF_NUMBER_TABLE
1010 , p6_a1 out nocopy JTF_NUMBER_TABLE
1011 , p6_a2 out nocopy JTF_NUMBER_TABLE
1012 , p6_a3 out nocopy JTF_NUMBER_TABLE
1013 , p6_a4 out nocopy JTF_NUMBER_TABLE
1014 , p6_a5 out nocopy JTF_NUMBER_TABLE
1015 , p6_a6 out nocopy JTF_NUMBER_TABLE
1016 , p6_a7 out nocopy JTF_NUMBER_TABLE
1017 , p6_a8 out nocopy JTF_NUMBER_TABLE
1018 , p6_a9 out nocopy JTF_NUMBER_TABLE
1019 , p6_a10 out nocopy JTF_DATE_TABLE
1020 , p6_a11 out nocopy JTF_NUMBER_TABLE
1021 , p6_a12 out nocopy JTF_DATE_TABLE
1022 , p6_a13 out nocopy JTF_NUMBER_TABLE
1023 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
1024 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1025 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1026 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1027 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1028 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1029 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1030 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1031 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1032 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1033 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1034 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1035 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1036 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1037 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1038 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1039 )
1040
1041 as
1042 ddp_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
1043 ddx_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
1044 ddindx binary_integer; indx binary_integer;
1045 begin
1046
1047 -- copy data to the local IN or IN-OUT args, if any
1048
1049
1050
1051
1052
1053 okl_lrl_pvt_w.rosetta_table_copy_in_p1(ddp_lrlv_tbl, p5_a0
1054 , p5_a1
1055 , p5_a2
1056 , p5_a3
1057 , p5_a4
1058 , p5_a5
1059 , p5_a6
1060 , p5_a7
1061 , p5_a8
1062 , p5_a9
1063 , p5_a10
1064 , p5_a11
1065 , p5_a12
1066 , p5_a13
1067 , p5_a14
1068 , p5_a15
1069 , p5_a16
1070 , p5_a17
1071 , p5_a18
1072 , p5_a19
1073 , p5_a20
1074 , p5_a21
1075 , p5_a22
1076 , p5_a23
1077 , p5_a24
1078 , p5_a25
1079 , p5_a26
1080 , p5_a27
1081 , p5_a28
1082 , p5_a29
1083 );
1084
1085
1086 -- here's the delegated call to the old PL/SQL routine
1087 okl_lrl_pvt.update_row(p_api_version,
1088 p_init_msg_list,
1089 x_return_status,
1090 x_msg_count,
1091 x_msg_data,
1092 ddp_lrlv_tbl,
1093 ddx_lrlv_tbl);
1094
1095 -- copy data back from the local variables to OUT or IN-OUT args, if any
1096
1097
1098
1099
1100
1101
1102 okl_lrl_pvt_w.rosetta_table_copy_out_p1(ddx_lrlv_tbl, p6_a0
1103 , p6_a1
1104 , p6_a2
1105 , p6_a3
1106 , p6_a4
1107 , p6_a5
1108 , p6_a6
1109 , p6_a7
1110 , p6_a8
1111 , p6_a9
1112 , p6_a10
1113 , p6_a11
1114 , p6_a12
1115 , p6_a13
1116 , p6_a14
1117 , p6_a15
1118 , p6_a16
1119 , p6_a17
1120 , p6_a18
1121 , p6_a19
1122 , p6_a20
1123 , p6_a21
1124 , p6_a22
1125 , p6_a23
1126 , p6_a24
1127 , p6_a25
1128 , p6_a26
1129 , p6_a27
1130 , p6_a28
1131 , p6_a29
1132 );
1133 end;
1134
1135 procedure delete_row(p_api_version NUMBER
1136 , p_init_msg_list VARCHAR2
1137 , x_return_status out nocopy VARCHAR2
1138 , x_msg_count out nocopy NUMBER
1139 , x_msg_data out nocopy VARCHAR2
1140 , p5_a0 NUMBER
1141 , p5_a1 NUMBER
1142 , p5_a2 NUMBER
1143 , p5_a3 NUMBER
1144 , p5_a4 NUMBER
1145 , p5_a5 NUMBER
1146 , p5_a6 NUMBER
1147 , p5_a7 NUMBER
1148 , p5_a8 NUMBER
1149 , p5_a9 NUMBER
1150 , p5_a10 DATE
1151 , p5_a11 NUMBER
1152 , p5_a12 DATE
1153 , p5_a13 NUMBER
1154 , p5_a14 VARCHAR2
1155 , p5_a15 VARCHAR2
1156 , p5_a16 VARCHAR2
1157 , p5_a17 VARCHAR2
1158 , p5_a18 VARCHAR2
1159 , p5_a19 VARCHAR2
1160 , p5_a20 VARCHAR2
1161 , p5_a21 VARCHAR2
1162 , p5_a22 VARCHAR2
1163 , p5_a23 VARCHAR2
1164 , p5_a24 VARCHAR2
1165 , p5_a25 VARCHAR2
1166 , p5_a26 VARCHAR2
1167 , p5_a27 VARCHAR2
1168 , p5_a28 VARCHAR2
1169 , p5_a29 VARCHAR2
1170 )
1171
1172 as
1173 ddp_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
1174 ddindx binary_integer; indx binary_integer;
1175 begin
1176
1177 -- copy data to the local IN or IN-OUT args, if any
1178
1179
1180
1181
1182
1183 ddp_lrlv_rec.rate_set_level_id := p5_a0;
1184 ddp_lrlv_rec.object_version_number := p5_a1;
1185 ddp_lrlv_rec.residual_percent := p5_a2;
1186 ddp_lrlv_rec.rate_set_id := p5_a3;
1187 ddp_lrlv_rec.rate_set_version_id := p5_a4;
1188 ddp_lrlv_rec.rate_set_factor_id := p5_a5;
1189 ddp_lrlv_rec.sequence_number := p5_a6;
1190 ddp_lrlv_rec.periods := p5_a7;
1191 ddp_lrlv_rec.lease_rate_factor := p5_a8;
1192 ddp_lrlv_rec.created_by := p5_a9;
1193 ddp_lrlv_rec.creation_date := p5_a10;
1194 ddp_lrlv_rec.last_updated_by := p5_a11;
1195 ddp_lrlv_rec.last_update_date := p5_a12;
1196 ddp_lrlv_rec.last_update_login := p5_a13;
1197 ddp_lrlv_rec.attribute_category := p5_a14;
1198 ddp_lrlv_rec.attribute1 := p5_a15;
1199 ddp_lrlv_rec.attribute2 := p5_a16;
1200 ddp_lrlv_rec.attribute3 := p5_a17;
1201 ddp_lrlv_rec.attribute4 := p5_a18;
1202 ddp_lrlv_rec.attribute5 := p5_a19;
1203 ddp_lrlv_rec.attribute6 := p5_a20;
1204 ddp_lrlv_rec.attribute7 := p5_a21;
1205 ddp_lrlv_rec.attribute8 := p5_a22;
1206 ddp_lrlv_rec.attribute9 := p5_a23;
1207 ddp_lrlv_rec.attribute10 := p5_a24;
1208 ddp_lrlv_rec.attribute11 := p5_a25;
1209 ddp_lrlv_rec.attribute12 := p5_a26;
1210 ddp_lrlv_rec.attribute13 := p5_a27;
1211 ddp_lrlv_rec.attribute14 := p5_a28;
1212 ddp_lrlv_rec.attribute15 := p5_a29;
1213
1214 -- here's the delegated call to the old PL/SQL routine
1215 okl_lrl_pvt.delete_row(p_api_version,
1216 p_init_msg_list,
1217 x_return_status,
1218 x_msg_count,
1219 x_msg_data,
1220 ddp_lrlv_rec);
1221
1222 -- copy data back from the local variables to OUT or IN-OUT args, if any
1223
1224
1225
1226
1227
1228 end;
1229
1230 procedure delete_row(p_api_version NUMBER
1231 , p_init_msg_list VARCHAR2
1232 , x_return_status out nocopy VARCHAR2
1233 , x_msg_count out nocopy NUMBER
1234 , x_msg_data out nocopy VARCHAR2
1235 , p5_a0 JTF_NUMBER_TABLE
1236 , p5_a1 JTF_NUMBER_TABLE
1237 , p5_a2 JTF_NUMBER_TABLE
1238 , p5_a3 JTF_NUMBER_TABLE
1239 , p5_a4 JTF_NUMBER_TABLE
1240 , p5_a5 JTF_NUMBER_TABLE
1241 , p5_a6 JTF_NUMBER_TABLE
1242 , p5_a7 JTF_NUMBER_TABLE
1243 , p5_a8 JTF_NUMBER_TABLE
1244 , p5_a9 JTF_NUMBER_TABLE
1245 , p5_a10 JTF_DATE_TABLE
1246 , p5_a11 JTF_NUMBER_TABLE
1247 , p5_a12 JTF_DATE_TABLE
1248 , p5_a13 JTF_NUMBER_TABLE
1249 , p5_a14 JTF_VARCHAR2_TABLE_100
1250 , p5_a15 JTF_VARCHAR2_TABLE_500
1251 , p5_a16 JTF_VARCHAR2_TABLE_500
1252 , p5_a17 JTF_VARCHAR2_TABLE_500
1253 , p5_a18 JTF_VARCHAR2_TABLE_500
1254 , p5_a19 JTF_VARCHAR2_TABLE_500
1255 , p5_a20 JTF_VARCHAR2_TABLE_500
1256 , p5_a21 JTF_VARCHAR2_TABLE_500
1257 , p5_a22 JTF_VARCHAR2_TABLE_500
1258 , p5_a23 JTF_VARCHAR2_TABLE_500
1259 , p5_a24 JTF_VARCHAR2_TABLE_500
1260 , p5_a25 JTF_VARCHAR2_TABLE_500
1261 , p5_a26 JTF_VARCHAR2_TABLE_500
1262 , p5_a27 JTF_VARCHAR2_TABLE_500
1263 , p5_a28 JTF_VARCHAR2_TABLE_500
1264 , p5_a29 JTF_VARCHAR2_TABLE_500
1265 )
1266
1267 as
1268 ddp_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
1269 ddindx binary_integer; indx binary_integer;
1270 begin
1271
1272 -- copy data to the local IN or IN-OUT args, if any
1273
1274
1275
1276
1277
1278 okl_lrl_pvt_w.rosetta_table_copy_in_p1(ddp_lrlv_tbl, p5_a0
1279 , p5_a1
1280 , p5_a2
1281 , p5_a3
1282 , p5_a4
1283 , p5_a5
1284 , p5_a6
1285 , p5_a7
1286 , p5_a8
1287 , p5_a9
1288 , p5_a10
1289 , p5_a11
1290 , p5_a12
1291 , p5_a13
1292 , p5_a14
1293 , p5_a15
1294 , p5_a16
1295 , p5_a17
1296 , p5_a18
1297 , p5_a19
1298 , p5_a20
1299 , p5_a21
1300 , p5_a22
1301 , p5_a23
1302 , p5_a24
1303 , p5_a25
1304 , p5_a26
1305 , p5_a27
1306 , p5_a28
1307 , p5_a29
1308 );
1309
1310 -- here's the delegated call to the old PL/SQL routine
1311 okl_lrl_pvt.delete_row(p_api_version,
1312 p_init_msg_list,
1313 x_return_status,
1314 x_msg_count,
1315 x_msg_data,
1316 ddp_lrlv_tbl);
1317
1318 -- copy data back from the local variables to OUT or IN-OUT args, if any
1319
1320
1321
1322
1323
1324 end;
1325
1326 end okl_lrl_pvt_w;