[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_RATE_FACTORS_PVT_W
Source
1 package body okl_lease_rate_factors_pvt_w as
2 /* $Header: OKLELRFB.pls 120.1 2005/09/30 10:59:51 asawanka noship $ */
3 procedure handle_lrf_ents(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , p5_a0 JTF_NUMBER_TABLE
9 , p5_a1 JTF_NUMBER_TABLE
10 , p5_a2 JTF_NUMBER_TABLE
11 , p5_a3 JTF_NUMBER_TABLE
12 , p5_a4 JTF_NUMBER_TABLE
13 , p5_a5 JTF_NUMBER_TABLE
14 , p5_a6 JTF_NUMBER_TABLE
15 , p5_a7 JTF_NUMBER_TABLE
16 , p5_a8 JTF_DATE_TABLE
17 , p5_a9 JTF_NUMBER_TABLE
18 , p5_a10 JTF_DATE_TABLE
19 , p5_a11 JTF_NUMBER_TABLE
20 , p5_a12 JTF_VARCHAR2_TABLE_100
21 , p5_a13 JTF_VARCHAR2_TABLE_500
22 , p5_a14 JTF_VARCHAR2_TABLE_500
23 , p5_a15 JTF_VARCHAR2_TABLE_500
24 , p5_a16 JTF_VARCHAR2_TABLE_500
25 , p5_a17 JTF_VARCHAR2_TABLE_500
26 , p5_a18 JTF_VARCHAR2_TABLE_500
27 , p5_a19 JTF_VARCHAR2_TABLE_500
28 , p5_a20 JTF_VARCHAR2_TABLE_500
29 , p5_a21 JTF_VARCHAR2_TABLE_500
30 , p5_a22 JTF_VARCHAR2_TABLE_500
31 , p5_a23 JTF_VARCHAR2_TABLE_500
32 , p5_a24 JTF_VARCHAR2_TABLE_500
33 , p5_a25 JTF_VARCHAR2_TABLE_500
34 , p5_a26 JTF_VARCHAR2_TABLE_500
35 , p5_a27 JTF_VARCHAR2_TABLE_500
36 , p5_a28 JTF_VARCHAR2_TABLE_100
37 , p5_a29 JTF_NUMBER_TABLE
38 , p6_a0 out nocopy JTF_NUMBER_TABLE
39 , p6_a1 out nocopy JTF_NUMBER_TABLE
40 , p6_a2 out nocopy JTF_NUMBER_TABLE
41 , p6_a3 out nocopy JTF_NUMBER_TABLE
42 , p6_a4 out nocopy JTF_NUMBER_TABLE
43 , p6_a5 out nocopy JTF_NUMBER_TABLE
44 , p6_a6 out nocopy JTF_NUMBER_TABLE
45 , p6_a7 out nocopy JTF_NUMBER_TABLE
46 , p6_a8 out nocopy JTF_DATE_TABLE
47 , p6_a9 out nocopy JTF_NUMBER_TABLE
48 , p6_a10 out nocopy JTF_DATE_TABLE
49 , p6_a11 out nocopy JTF_NUMBER_TABLE
50 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
51 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
52 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
53 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
54 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
55 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
56 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
57 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
58 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
59 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
60 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
61 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
62 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
63 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
64 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
65 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
66 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_100
67 , p6_a29 out nocopy JTF_NUMBER_TABLE
68 , p7_a0 JTF_NUMBER_TABLE
69 , p7_a1 JTF_NUMBER_TABLE
70 , p7_a2 JTF_NUMBER_TABLE
71 , p7_a3 JTF_NUMBER_TABLE
72 , p7_a4 JTF_NUMBER_TABLE
73 , p7_a5 JTF_NUMBER_TABLE
74 , p7_a6 JTF_NUMBER_TABLE
75 , p7_a7 JTF_NUMBER_TABLE
76 , p7_a8 JTF_NUMBER_TABLE
77 , p7_a9 JTF_NUMBER_TABLE
78 , p7_a10 JTF_DATE_TABLE
79 , p7_a11 JTF_NUMBER_TABLE
80 , p7_a12 JTF_DATE_TABLE
81 , p7_a13 JTF_NUMBER_TABLE
82 , p7_a14 JTF_VARCHAR2_TABLE_100
83 , p7_a15 JTF_VARCHAR2_TABLE_500
84 , p7_a16 JTF_VARCHAR2_TABLE_500
85 , p7_a17 JTF_VARCHAR2_TABLE_500
86 , p7_a18 JTF_VARCHAR2_TABLE_500
87 , p7_a19 JTF_VARCHAR2_TABLE_500
88 , p7_a20 JTF_VARCHAR2_TABLE_500
89 , p7_a21 JTF_VARCHAR2_TABLE_500
90 , p7_a22 JTF_VARCHAR2_TABLE_500
91 , p7_a23 JTF_VARCHAR2_TABLE_500
92 , p7_a24 JTF_VARCHAR2_TABLE_500
93 , p7_a25 JTF_VARCHAR2_TABLE_500
94 , p7_a26 JTF_VARCHAR2_TABLE_500
95 , p7_a27 JTF_VARCHAR2_TABLE_500
96 , p7_a28 JTF_VARCHAR2_TABLE_500
97 , p7_a29 JTF_VARCHAR2_TABLE_500
98 , p8_a0 out nocopy JTF_NUMBER_TABLE
99 , p8_a1 out nocopy JTF_NUMBER_TABLE
100 , p8_a2 out nocopy JTF_NUMBER_TABLE
101 , p8_a3 out nocopy JTF_NUMBER_TABLE
102 , p8_a4 out nocopy JTF_NUMBER_TABLE
103 , p8_a5 out nocopy JTF_NUMBER_TABLE
104 , p8_a6 out nocopy JTF_NUMBER_TABLE
105 , p8_a7 out nocopy JTF_NUMBER_TABLE
106 , p8_a8 out nocopy JTF_NUMBER_TABLE
107 , p8_a9 out nocopy JTF_NUMBER_TABLE
108 , p8_a10 out nocopy JTF_DATE_TABLE
109 , p8_a11 out nocopy JTF_NUMBER_TABLE
110 , p8_a12 out nocopy JTF_DATE_TABLE
111 , p8_a13 out nocopy JTF_NUMBER_TABLE
112 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_100
113 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
114 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
115 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
116 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_500
117 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_500
118 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
119 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
120 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
121 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
122 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
123 , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
124 , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
125 , p8_a27 out nocopy JTF_VARCHAR2_TABLE_500
126 , p8_a28 out nocopy JTF_VARCHAR2_TABLE_500
127 , p8_a29 out nocopy JTF_VARCHAR2_TABLE_500
128 )
129
130 as
131 ddp_lrfv_tbl okl_lease_rate_factors_pvt.lrfv_tbl_type;
132 ddx_lrfv_tbl okl_lease_rate_factors_pvt.lrfv_tbl_type;
133 ddp_lrlv_tbl okl_lease_rate_factors_pvt.okl_lrlv_tbl;
134 ddx_lrlv_tbl okl_lease_rate_factors_pvt.okl_lrlv_tbl;
135 ddindx binary_integer; indx binary_integer;
136 begin
137
138 -- copy data to the local IN or IN-OUT args, if any
139
140
141
142
143
144 okl_lrf_pvt_w.rosetta_table_copy_in_p28(ddp_lrfv_tbl, p5_a0
145 , p5_a1
146 , p5_a2
147 , p5_a3
148 , p5_a4
149 , p5_a5
150 , p5_a6
151 , p5_a7
152 , p5_a8
153 , p5_a9
154 , p5_a10
155 , p5_a11
156 , p5_a12
157 , p5_a13
158 , p5_a14
159 , p5_a15
160 , p5_a16
161 , p5_a17
162 , p5_a18
163 , p5_a19
164 , p5_a20
165 , p5_a21
166 , p5_a22
167 , p5_a23
168 , p5_a24
169 , p5_a25
170 , p5_a26
171 , p5_a27
172 , p5_a28
173 , p5_a29
174 );
175
176
177 okl_lrl_pvt_w.rosetta_table_copy_in_p1(ddp_lrlv_tbl, p7_a0
178 , p7_a1
179 , p7_a2
180 , p7_a3
181 , p7_a4
182 , p7_a5
183 , p7_a6
184 , p7_a7
185 , p7_a8
186 , p7_a9
187 , p7_a10
188 , p7_a11
189 , p7_a12
190 , p7_a13
191 , p7_a14
192 , p7_a15
193 , p7_a16
194 , p7_a17
195 , p7_a18
196 , p7_a19
197 , p7_a20
198 , p7_a21
199 , p7_a22
200 , p7_a23
201 , p7_a24
202 , p7_a25
203 , p7_a26
204 , p7_a27
205 , p7_a28
206 , p7_a29
207 );
208
209
210 -- here's the delegated call to the old PL/SQL routine
211 okl_lease_rate_factors_pvt.handle_lrf_ents(p_api_version,
212 p_init_msg_list,
213 x_return_status,
214 x_msg_count,
215 x_msg_data,
216 ddp_lrfv_tbl,
217 ddx_lrfv_tbl,
218 ddp_lrlv_tbl,
219 ddx_lrlv_tbl);
220
221 -- copy data back from the local variables to OUT or IN-OUT args, if any
222
223
224
225
226
227
228 okl_lrf_pvt_w.rosetta_table_copy_out_p28(ddx_lrfv_tbl, p6_a0
229 , p6_a1
230 , p6_a2
231 , p6_a3
232 , p6_a4
233 , p6_a5
234 , p6_a6
235 , p6_a7
236 , p6_a8
237 , p6_a9
238 , p6_a10
239 , p6_a11
240 , p6_a12
241 , p6_a13
242 , p6_a14
243 , p6_a15
244 , p6_a16
245 , p6_a17
246 , p6_a18
247 , p6_a19
248 , p6_a20
249 , p6_a21
250 , p6_a22
251 , p6_a23
252 , p6_a24
253 , p6_a25
254 , p6_a26
255 , p6_a27
256 , p6_a28
257 , p6_a29
258 );
259
260
261 okl_lrl_pvt_w.rosetta_table_copy_out_p1(ddx_lrlv_tbl, p8_a0
262 , p8_a1
263 , p8_a2
264 , p8_a3
265 , p8_a4
266 , p8_a5
267 , p8_a6
268 , p8_a7
269 , p8_a8
270 , p8_a9
271 , p8_a10
272 , p8_a11
273 , p8_a12
274 , p8_a13
275 , p8_a14
276 , p8_a15
277 , p8_a16
278 , p8_a17
279 , p8_a18
280 , p8_a19
281 , p8_a20
282 , p8_a21
283 , p8_a22
284 , p8_a23
285 , p8_a24
286 , p8_a25
287 , p8_a26
288 , p8_a27
289 , p8_a28
290 , p8_a29
291 );
292 end;
293
294 procedure remove_lrs_factor(p_api_version NUMBER
295 , p_init_msg_list VARCHAR2
296 , x_return_status out nocopy VARCHAR2
297 , x_msg_count out nocopy NUMBER
298 , x_msg_data out nocopy VARCHAR2
299 , p5_a0 NUMBER
300 , p5_a1 NUMBER
301 , p5_a2 NUMBER
302 , p5_a3 NUMBER
303 , p5_a4 NUMBER
304 , p5_a5 NUMBER
305 , p5_a6 NUMBER
306 , p5_a7 NUMBER
307 , p5_a8 DATE
308 , p5_a9 NUMBER
309 , p5_a10 DATE
310 , p5_a11 NUMBER
311 , p5_a12 VARCHAR2
312 , p5_a13 VARCHAR2
313 , p5_a14 VARCHAR2
314 , p5_a15 VARCHAR2
315 , p5_a16 VARCHAR2
316 , p5_a17 VARCHAR2
317 , p5_a18 VARCHAR2
318 , p5_a19 VARCHAR2
319 , p5_a20 VARCHAR2
320 , p5_a21 VARCHAR2
321 , p5_a22 VARCHAR2
322 , p5_a23 VARCHAR2
323 , p5_a24 VARCHAR2
324 , p5_a25 VARCHAR2
325 , p5_a26 VARCHAR2
326 , p5_a27 VARCHAR2
327 , p5_a28 VARCHAR2
328 , p5_a29 NUMBER
329 )
330
331 as
332 ddp_lrfv_rec okl_lease_rate_factors_pvt.lrfv_rec_type;
333 ddindx binary_integer; indx binary_integer;
334 begin
335
336 -- copy data to the local IN or IN-OUT args, if any
337
338
339
340
341
342 ddp_lrfv_rec.id := p5_a0;
343 ddp_lrfv_rec.object_version_number := p5_a1;
344 ddp_lrfv_rec.lrt_id := p5_a2;
345 ddp_lrfv_rec.term_in_months := p5_a3;
346 ddp_lrfv_rec.residual_value_percent := p5_a4;
347 ddp_lrfv_rec.interest_rate := p5_a5;
348 ddp_lrfv_rec.lease_rate_factor := p5_a6;
349 ddp_lrfv_rec.created_by := p5_a7;
350 ddp_lrfv_rec.creation_date := p5_a8;
351 ddp_lrfv_rec.last_updated_by := p5_a9;
352 ddp_lrfv_rec.last_update_date := p5_a10;
353 ddp_lrfv_rec.last_update_login := p5_a11;
354 ddp_lrfv_rec.attribute_category := p5_a12;
355 ddp_lrfv_rec.attribute1 := p5_a13;
356 ddp_lrfv_rec.attribute2 := p5_a14;
357 ddp_lrfv_rec.attribute3 := p5_a15;
358 ddp_lrfv_rec.attribute4 := p5_a16;
359 ddp_lrfv_rec.attribute5 := p5_a17;
360 ddp_lrfv_rec.attribute6 := p5_a18;
361 ddp_lrfv_rec.attribute7 := p5_a19;
362 ddp_lrfv_rec.attribute8 := p5_a20;
363 ddp_lrfv_rec.attribute9 := p5_a21;
364 ddp_lrfv_rec.attribute10 := p5_a22;
365 ddp_lrfv_rec.attribute11 := p5_a23;
366 ddp_lrfv_rec.attribute12 := p5_a24;
367 ddp_lrfv_rec.attribute13 := p5_a25;
368 ddp_lrfv_rec.attribute14 := p5_a26;
369 ddp_lrfv_rec.attribute15 := p5_a27;
370 ddp_lrfv_rec.is_new_flag := p5_a28;
371 ddp_lrfv_rec.rate_set_version_id := p5_a29;
372
373 -- here's the delegated call to the old PL/SQL routine
374 okl_lease_rate_factors_pvt.remove_lrs_factor(p_api_version,
375 p_init_msg_list,
376 x_return_status,
377 x_msg_count,
378 x_msg_data,
379 ddp_lrfv_rec);
380
381 -- copy data back from the local variables to OUT or IN-OUT args, if any
382
383
384
385
386
387 end;
388
389 procedure remove_lrs_level(p_api_version NUMBER
390 , p_init_msg_list VARCHAR2
391 , x_return_status out nocopy VARCHAR2
392 , x_msg_count out nocopy NUMBER
393 , x_msg_data out nocopy VARCHAR2
394 , p5_a0 NUMBER
395 , p5_a1 NUMBER
396 , p5_a2 NUMBER
397 , p5_a3 NUMBER
398 , p5_a4 NUMBER
399 , p5_a5 NUMBER
400 , p5_a6 NUMBER
401 , p5_a7 NUMBER
402 , p5_a8 NUMBER
403 , p5_a9 NUMBER
404 , p5_a10 DATE
405 , p5_a11 NUMBER
406 , p5_a12 DATE
407 , p5_a13 NUMBER
408 , p5_a14 VARCHAR2
409 , p5_a15 VARCHAR2
410 , p5_a16 VARCHAR2
411 , p5_a17 VARCHAR2
412 , p5_a18 VARCHAR2
413 , p5_a19 VARCHAR2
414 , p5_a20 VARCHAR2
415 , p5_a21 VARCHAR2
416 , p5_a22 VARCHAR2
417 , p5_a23 VARCHAR2
418 , p5_a24 VARCHAR2
419 , p5_a25 VARCHAR2
420 , p5_a26 VARCHAR2
421 , p5_a27 VARCHAR2
422 , p5_a28 VARCHAR2
423 , p5_a29 VARCHAR2
424 )
425
426 as
427 ddp_lrlv_rec okl_lease_rate_factors_pvt.okl_lrlv_rec;
428 ddindx binary_integer; indx binary_integer;
429 begin
430
431 -- copy data to the local IN or IN-OUT args, if any
432
433
434
435
436
437 ddp_lrlv_rec.rate_set_level_id := p5_a0;
438 ddp_lrlv_rec.object_version_number := p5_a1;
439 ddp_lrlv_rec.residual_percent := p5_a2;
440 ddp_lrlv_rec.rate_set_id := p5_a3;
441 ddp_lrlv_rec.rate_set_version_id := p5_a4;
442 ddp_lrlv_rec.rate_set_factor_id := p5_a5;
443 ddp_lrlv_rec.sequence_number := p5_a6;
444 ddp_lrlv_rec.periods := p5_a7;
445 ddp_lrlv_rec.lease_rate_factor := p5_a8;
446 ddp_lrlv_rec.created_by := p5_a9;
447 ddp_lrlv_rec.creation_date := p5_a10;
448 ddp_lrlv_rec.last_updated_by := p5_a11;
449 ddp_lrlv_rec.last_update_date := p5_a12;
450 ddp_lrlv_rec.last_update_login := p5_a13;
451 ddp_lrlv_rec.attribute_category := p5_a14;
452 ddp_lrlv_rec.attribute1 := p5_a15;
453 ddp_lrlv_rec.attribute2 := p5_a16;
454 ddp_lrlv_rec.attribute3 := p5_a17;
455 ddp_lrlv_rec.attribute4 := p5_a18;
456 ddp_lrlv_rec.attribute5 := p5_a19;
457 ddp_lrlv_rec.attribute6 := p5_a20;
458 ddp_lrlv_rec.attribute7 := p5_a21;
459 ddp_lrlv_rec.attribute8 := p5_a22;
460 ddp_lrlv_rec.attribute9 := p5_a23;
461 ddp_lrlv_rec.attribute10 := p5_a24;
462 ddp_lrlv_rec.attribute11 := p5_a25;
463 ddp_lrlv_rec.attribute12 := p5_a26;
464 ddp_lrlv_rec.attribute13 := p5_a27;
465 ddp_lrlv_rec.attribute14 := p5_a28;
466 ddp_lrlv_rec.attribute15 := p5_a29;
467
468 -- here's the delegated call to the old PL/SQL routine
469 okl_lease_rate_factors_pvt.remove_lrs_level(p_api_version,
470 p_init_msg_list,
471 x_return_status,
472 x_msg_count,
473 x_msg_data,
474 ddp_lrlv_rec);
475
476 -- copy data back from the local variables to OUT or IN-OUT args, if any
477
478
479
480
481
482 end;
483
484 procedure handle_lease_rate_factors(p_api_version NUMBER
485 , p_init_msg_list VARCHAR2
486 , x_return_status out nocopy VARCHAR2
487 , x_msg_count out nocopy NUMBER
488 , x_msg_data out nocopy VARCHAR2
489 , p5_a0 NUMBER
490 , p5_a1 NUMBER
491 , p5_a2 VARCHAR2
492 , p5_a3 NUMBER
493 , p5_a4 NUMBER
494 , p5_a5 NUMBER
495 , p5_a6 VARCHAR2
496 , p5_a7 VARCHAR2
497 , p5_a8 DATE
498 , p5_a9 DATE
499 , p5_a10 VARCHAR2
500 , p5_a11 VARCHAR2
501 , p5_a12 NUMBER
502 , p5_a13 DATE
503 , p5_a14 NUMBER
504 , p5_a15 DATE
505 , p5_a16 NUMBER
506 , p5_a17 VARCHAR2
507 , p5_a18 VARCHAR2
508 , p5_a19 VARCHAR2
509 , p5_a20 VARCHAR2
510 , p5_a21 VARCHAR2
511 , p5_a22 VARCHAR2
512 , p5_a23 VARCHAR2
513 , p5_a24 VARCHAR2
514 , p5_a25 VARCHAR2
515 , p5_a26 VARCHAR2
516 , p5_a27 VARCHAR2
517 , p5_a28 VARCHAR2
518 , p5_a29 VARCHAR2
519 , p5_a30 VARCHAR2
520 , p5_a31 VARCHAR2
521 , p5_a32 VARCHAR2
522 , p5_a33 VARCHAR2
523 , p5_a34 NUMBER
524 , p5_a35 VARCHAR2
525 , p5_a36 VARCHAR2
526 , p5_a37 NUMBER
527 , p5_a38 NUMBER
528 , p6_a0 NUMBER
529 , p6_a1 NUMBER
530 , p6_a2 VARCHAR2
531 , p6_a3 DATE
532 , p6_a4 DATE
533 , p6_a5 NUMBER
534 , p6_a6 NUMBER
535 , p6_a7 NUMBER
536 , p6_a8 NUMBER
537 , p6_a9 VARCHAR2
538 , p6_a10 NUMBER
539 , p6_a11 NUMBER
540 , p6_a12 NUMBER
541 , p6_a13 NUMBER
542 , p6_a14 NUMBER
543 , p6_a15 VARCHAR2
544 , p6_a16 NUMBER
545 , p6_a17 DATE
546 , p6_a18 NUMBER
547 , p6_a19 DATE
548 , p6_a20 NUMBER
549 , p6_a21 VARCHAR2
550 , p6_a22 VARCHAR2
551 , p6_a23 VARCHAR2
552 , p6_a24 VARCHAR2
553 , p6_a25 VARCHAR2
554 , p6_a26 VARCHAR2
555 , p6_a27 VARCHAR2
556 , p6_a28 VARCHAR2
557 , p6_a29 VARCHAR2
558 , p6_a30 VARCHAR2
559 , p6_a31 VARCHAR2
560 , p6_a32 VARCHAR2
561 , p6_a33 VARCHAR2
562 , p6_a34 VARCHAR2
563 , p6_a35 VARCHAR2
564 , p6_a36 VARCHAR2
565 , p6_a37 NUMBER
566 , p7_a0 JTF_NUMBER_TABLE
567 , p7_a1 JTF_NUMBER_TABLE
568 , p7_a2 JTF_NUMBER_TABLE
569 , p7_a3 JTF_NUMBER_TABLE
570 , p7_a4 JTF_NUMBER_TABLE
571 , p7_a5 JTF_NUMBER_TABLE
572 , p7_a6 JTF_NUMBER_TABLE
573 , p7_a7 JTF_NUMBER_TABLE
574 , p7_a8 JTF_DATE_TABLE
575 , p7_a9 JTF_NUMBER_TABLE
576 , p7_a10 JTF_DATE_TABLE
577 , p7_a11 JTF_NUMBER_TABLE
578 , p7_a12 JTF_VARCHAR2_TABLE_100
579 , p7_a13 JTF_VARCHAR2_TABLE_500
580 , p7_a14 JTF_VARCHAR2_TABLE_500
581 , p7_a15 JTF_VARCHAR2_TABLE_500
582 , p7_a16 JTF_VARCHAR2_TABLE_500
583 , p7_a17 JTF_VARCHAR2_TABLE_500
584 , p7_a18 JTF_VARCHAR2_TABLE_500
585 , p7_a19 JTF_VARCHAR2_TABLE_500
586 , p7_a20 JTF_VARCHAR2_TABLE_500
587 , p7_a21 JTF_VARCHAR2_TABLE_500
588 , p7_a22 JTF_VARCHAR2_TABLE_500
589 , p7_a23 JTF_VARCHAR2_TABLE_500
590 , p7_a24 JTF_VARCHAR2_TABLE_500
591 , p7_a25 JTF_VARCHAR2_TABLE_500
592 , p7_a26 JTF_VARCHAR2_TABLE_500
593 , p7_a27 JTF_VARCHAR2_TABLE_500
594 , p7_a28 JTF_VARCHAR2_TABLE_100
595 , p7_a29 JTF_NUMBER_TABLE
596 , p8_a0 out nocopy JTF_NUMBER_TABLE
597 , p8_a1 out nocopy JTF_NUMBER_TABLE
598 , p8_a2 out nocopy JTF_NUMBER_TABLE
599 , p8_a3 out nocopy JTF_NUMBER_TABLE
600 , p8_a4 out nocopy JTF_NUMBER_TABLE
601 , p8_a5 out nocopy JTF_NUMBER_TABLE
602 , p8_a6 out nocopy JTF_NUMBER_TABLE
603 , p8_a7 out nocopy JTF_NUMBER_TABLE
604 , p8_a8 out nocopy JTF_DATE_TABLE
605 , p8_a9 out nocopy JTF_NUMBER_TABLE
606 , p8_a10 out nocopy JTF_DATE_TABLE
607 , p8_a11 out nocopy JTF_NUMBER_TABLE
608 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_100
609 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_500
610 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_500
611 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
612 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
613 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
614 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_500
615 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_500
616 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
617 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
618 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
619 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
620 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
621 , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
622 , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
623 , p8_a27 out nocopy JTF_VARCHAR2_TABLE_500
624 , p8_a28 out nocopy JTF_VARCHAR2_TABLE_100
625 , p8_a29 out nocopy JTF_NUMBER_TABLE
626 , p9_a0 JTF_NUMBER_TABLE
627 , p9_a1 JTF_NUMBER_TABLE
628 , p9_a2 JTF_NUMBER_TABLE
629 , p9_a3 JTF_NUMBER_TABLE
630 , p9_a4 JTF_NUMBER_TABLE
631 , p9_a5 JTF_NUMBER_TABLE
632 , p9_a6 JTF_NUMBER_TABLE
633 , p9_a7 JTF_NUMBER_TABLE
634 , p9_a8 JTF_NUMBER_TABLE
635 , p9_a9 JTF_NUMBER_TABLE
636 , p9_a10 JTF_DATE_TABLE
637 , p9_a11 JTF_NUMBER_TABLE
638 , p9_a12 JTF_DATE_TABLE
639 , p9_a13 JTF_NUMBER_TABLE
640 , p9_a14 JTF_VARCHAR2_TABLE_100
641 , p9_a15 JTF_VARCHAR2_TABLE_500
642 , p9_a16 JTF_VARCHAR2_TABLE_500
643 , p9_a17 JTF_VARCHAR2_TABLE_500
644 , p9_a18 JTF_VARCHAR2_TABLE_500
645 , p9_a19 JTF_VARCHAR2_TABLE_500
646 , p9_a20 JTF_VARCHAR2_TABLE_500
647 , p9_a21 JTF_VARCHAR2_TABLE_500
648 , p9_a22 JTF_VARCHAR2_TABLE_500
649 , p9_a23 JTF_VARCHAR2_TABLE_500
650 , p9_a24 JTF_VARCHAR2_TABLE_500
651 , p9_a25 JTF_VARCHAR2_TABLE_500
652 , p9_a26 JTF_VARCHAR2_TABLE_500
653 , p9_a27 JTF_VARCHAR2_TABLE_500
654 , p9_a28 JTF_VARCHAR2_TABLE_500
655 , p9_a29 JTF_VARCHAR2_TABLE_500
656 , p10_a0 out nocopy JTF_NUMBER_TABLE
657 , p10_a1 out nocopy JTF_NUMBER_TABLE
658 , p10_a2 out nocopy JTF_NUMBER_TABLE
659 , p10_a3 out nocopy JTF_NUMBER_TABLE
660 , p10_a4 out nocopy JTF_NUMBER_TABLE
661 , p10_a5 out nocopy JTF_NUMBER_TABLE
662 , p10_a6 out nocopy JTF_NUMBER_TABLE
663 , p10_a7 out nocopy JTF_NUMBER_TABLE
664 , p10_a8 out nocopy JTF_NUMBER_TABLE
665 , p10_a9 out nocopy JTF_NUMBER_TABLE
666 , p10_a10 out nocopy JTF_DATE_TABLE
667 , p10_a11 out nocopy JTF_NUMBER_TABLE
668 , p10_a12 out nocopy JTF_DATE_TABLE
669 , p10_a13 out nocopy JTF_NUMBER_TABLE
670 , p10_a14 out nocopy JTF_VARCHAR2_TABLE_100
671 , p10_a15 out nocopy JTF_VARCHAR2_TABLE_500
672 , p10_a16 out nocopy JTF_VARCHAR2_TABLE_500
673 , p10_a17 out nocopy JTF_VARCHAR2_TABLE_500
674 , p10_a18 out nocopy JTF_VARCHAR2_TABLE_500
675 , p10_a19 out nocopy JTF_VARCHAR2_TABLE_500
676 , p10_a20 out nocopy JTF_VARCHAR2_TABLE_500
677 , p10_a21 out nocopy JTF_VARCHAR2_TABLE_500
678 , p10_a22 out nocopy JTF_VARCHAR2_TABLE_500
679 , p10_a23 out nocopy JTF_VARCHAR2_TABLE_500
680 , p10_a24 out nocopy JTF_VARCHAR2_TABLE_500
681 , p10_a25 out nocopy JTF_VARCHAR2_TABLE_500
682 , p10_a26 out nocopy JTF_VARCHAR2_TABLE_500
683 , p10_a27 out nocopy JTF_VARCHAR2_TABLE_500
684 , p10_a28 out nocopy JTF_VARCHAR2_TABLE_500
685 , p10_a29 out nocopy JTF_VARCHAR2_TABLE_500
686 )
687
688 as
689 ddp_lrtv_rec okl_lease_rate_factors_pvt.lrtv_rec_type;
690 ddp_lrvv_rec okl_lease_rate_factors_pvt.okl_lrvv_rec;
691 ddp_lrfv_tbl okl_lease_rate_factors_pvt.lrfv_tbl_type;
692 ddx_lrfv_tbl okl_lease_rate_factors_pvt.lrfv_tbl_type;
693 ddp_lrlv_tbl okl_lease_rate_factors_pvt.okl_lrlv_tbl;
694 ddx_lrlv_tbl okl_lease_rate_factors_pvt.okl_lrlv_tbl;
695 ddindx binary_integer; indx binary_integer;
696 begin
697
698 -- copy data to the local IN or IN-OUT args, if any
699
700
701
702
703
704 ddp_lrtv_rec.id := p5_a0;
705 ddp_lrtv_rec.object_version_number := p5_a1;
706 ddp_lrtv_rec.sfwt_flag := p5_a2;
707 ddp_lrtv_rec.try_id := p5_a3;
708 ddp_lrtv_rec.pdt_id := p5_a4;
709 ddp_lrtv_rec.rate := p5_a5;
710 ddp_lrtv_rec.frq_code := p5_a6;
711 ddp_lrtv_rec.arrears_yn := p5_a7;
712 ddp_lrtv_rec.start_date := p5_a8;
713 ddp_lrtv_rec.end_date := p5_a9;
714 ddp_lrtv_rec.name := p5_a10;
715 ddp_lrtv_rec.description := p5_a11;
716 ddp_lrtv_rec.created_by := p5_a12;
717 ddp_lrtv_rec.creation_date := p5_a13;
718 ddp_lrtv_rec.last_updated_by := p5_a14;
719 ddp_lrtv_rec.last_update_date := p5_a15;
720 ddp_lrtv_rec.last_update_login := p5_a16;
721 ddp_lrtv_rec.attribute_category := p5_a17;
722 ddp_lrtv_rec.attribute1 := p5_a18;
723 ddp_lrtv_rec.attribute2 := p5_a19;
724 ddp_lrtv_rec.attribute3 := p5_a20;
725 ddp_lrtv_rec.attribute4 := p5_a21;
726 ddp_lrtv_rec.attribute5 := p5_a22;
727 ddp_lrtv_rec.attribute6 := p5_a23;
728 ddp_lrtv_rec.attribute7 := p5_a24;
729 ddp_lrtv_rec.attribute8 := p5_a25;
730 ddp_lrtv_rec.attribute9 := p5_a26;
731 ddp_lrtv_rec.attribute10 := p5_a27;
732 ddp_lrtv_rec.attribute11 := p5_a28;
733 ddp_lrtv_rec.attribute12 := p5_a29;
734 ddp_lrtv_rec.attribute13 := p5_a30;
735 ddp_lrtv_rec.attribute14 := p5_a31;
736 ddp_lrtv_rec.attribute15 := p5_a32;
737 ddp_lrtv_rec.sts_code := p5_a33;
738 ddp_lrtv_rec.org_id := p5_a34;
739 ddp_lrtv_rec.currency_code := p5_a35;
740 ddp_lrtv_rec.lrs_type_code := p5_a36;
741 ddp_lrtv_rec.end_of_term_id := p5_a37;
742 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
743
744 ddp_lrvv_rec.rate_set_version_id := p6_a0;
745 ddp_lrvv_rec.object_version_number := p6_a1;
746 ddp_lrvv_rec.arrears_yn := p6_a2;
747 ddp_lrvv_rec.effective_from_date := p6_a3;
748 ddp_lrvv_rec.effective_to_date := p6_a4;
749 ddp_lrvv_rec.rate_set_id := p6_a5;
750 ddp_lrvv_rec.end_of_term_ver_id := p6_a6;
751 ddp_lrvv_rec.std_rate_tmpl_ver_id := p6_a7;
752 ddp_lrvv_rec.adj_mat_version_id := p6_a8;
753 ddp_lrvv_rec.version_number := p6_a9;
754 ddp_lrvv_rec.lrs_rate := p6_a10;
755 ddp_lrvv_rec.rate_tolerance := p6_a11;
756 ddp_lrvv_rec.residual_tolerance := p6_a12;
757 ddp_lrvv_rec.deferred_pmts := p6_a13;
758 ddp_lrvv_rec.advance_pmts := p6_a14;
759 ddp_lrvv_rec.sts_code := p6_a15;
760 ddp_lrvv_rec.created_by := p6_a16;
761 ddp_lrvv_rec.creation_date := p6_a17;
762 ddp_lrvv_rec.last_updated_by := p6_a18;
763 ddp_lrvv_rec.last_update_date := p6_a19;
764 ddp_lrvv_rec.last_update_login := p6_a20;
765 ddp_lrvv_rec.attribute_category := p6_a21;
766 ddp_lrvv_rec.attribute1 := p6_a22;
767 ddp_lrvv_rec.attribute2 := p6_a23;
768 ddp_lrvv_rec.attribute3 := p6_a24;
769 ddp_lrvv_rec.attribute4 := p6_a25;
770 ddp_lrvv_rec.attribute5 := p6_a26;
771 ddp_lrvv_rec.attribute6 := p6_a27;
772 ddp_lrvv_rec.attribute7 := p6_a28;
773 ddp_lrvv_rec.attribute8 := p6_a29;
774 ddp_lrvv_rec.attribute9 := p6_a30;
775 ddp_lrvv_rec.attribute10 := p6_a31;
776 ddp_lrvv_rec.attribute11 := p6_a32;
777 ddp_lrvv_rec.attribute12 := p6_a33;
778 ddp_lrvv_rec.attribute13 := p6_a34;
779 ddp_lrvv_rec.attribute14 := p6_a35;
780 ddp_lrvv_rec.attribute15 := p6_a36;
781 ddp_lrvv_rec.standard_rate := p6_a37;
782
783 okl_lrf_pvt_w.rosetta_table_copy_in_p28(ddp_lrfv_tbl, p7_a0
784 , p7_a1
785 , p7_a2
786 , p7_a3
787 , p7_a4
788 , p7_a5
789 , p7_a6
790 , p7_a7
791 , p7_a8
792 , p7_a9
793 , p7_a10
794 , p7_a11
795 , p7_a12
796 , p7_a13
797 , p7_a14
798 , p7_a15
799 , p7_a16
800 , p7_a17
801 , p7_a18
802 , p7_a19
803 , p7_a20
804 , p7_a21
805 , p7_a22
806 , p7_a23
807 , p7_a24
808 , p7_a25
809 , p7_a26
810 , p7_a27
811 , p7_a28
812 , p7_a29
813 );
814
815
816 okl_lrl_pvt_w.rosetta_table_copy_in_p1(ddp_lrlv_tbl, p9_a0
817 , p9_a1
818 , p9_a2
819 , p9_a3
820 , p9_a4
821 , p9_a5
822 , p9_a6
823 , p9_a7
824 , p9_a8
825 , p9_a9
826 , p9_a10
827 , p9_a11
828 , p9_a12
829 , p9_a13
830 , p9_a14
831 , p9_a15
832 , p9_a16
833 , p9_a17
834 , p9_a18
835 , p9_a19
836 , p9_a20
837 , p9_a21
838 , p9_a22
839 , p9_a23
840 , p9_a24
841 , p9_a25
842 , p9_a26
843 , p9_a27
844 , p9_a28
845 , p9_a29
846 );
847
848
849 -- here's the delegated call to the old PL/SQL routine
850 okl_lease_rate_factors_pvt.handle_lease_rate_factors(p_api_version,
851 p_init_msg_list,
852 x_return_status,
853 x_msg_count,
854 x_msg_data,
855 ddp_lrtv_rec,
856 ddp_lrvv_rec,
857 ddp_lrfv_tbl,
858 ddx_lrfv_tbl,
859 ddp_lrlv_tbl,
860 ddx_lrlv_tbl);
861
862 -- copy data back from the local variables to OUT or IN-OUT args, if any
863
864
865
866
867
868
869
870
871 okl_lrf_pvt_w.rosetta_table_copy_out_p28(ddx_lrfv_tbl, p8_a0
872 , p8_a1
873 , p8_a2
874 , p8_a3
875 , p8_a4
876 , p8_a5
877 , p8_a6
878 , p8_a7
879 , p8_a8
880 , p8_a9
881 , p8_a10
882 , p8_a11
883 , p8_a12
884 , p8_a13
885 , p8_a14
886 , p8_a15
887 , p8_a16
888 , p8_a17
889 , p8_a18
890 , p8_a19
891 , p8_a20
892 , p8_a21
893 , p8_a22
894 , p8_a23
895 , p8_a24
896 , p8_a25
897 , p8_a26
898 , p8_a27
899 , p8_a28
900 , p8_a29
901 );
902
903
904 okl_lrl_pvt_w.rosetta_table_copy_out_p1(ddx_lrlv_tbl, p10_a0
905 , p10_a1
906 , p10_a2
907 , p10_a3
908 , p10_a4
909 , p10_a5
910 , p10_a6
911 , p10_a7
912 , p10_a8
913 , p10_a9
914 , p10_a10
915 , p10_a11
916 , p10_a12
917 , p10_a13
918 , p10_a14
919 , p10_a15
920 , p10_a16
921 , p10_a17
922 , p10_a18
923 , p10_a19
924 , p10_a20
925 , p10_a21
926 , p10_a22
927 , p10_a23
928 , p10_a24
929 , p10_a25
930 , p10_a26
931 , p10_a27
932 , p10_a28
933 , p10_a29
934 );
935 end;
936
937 procedure handle_lrf_submit(p_api_version NUMBER
938 , p_init_msg_list VARCHAR2
939 , x_return_status out nocopy VARCHAR2
940 , x_msg_count out nocopy NUMBER
941 , x_msg_data out nocopy VARCHAR2
942 , p5_a0 NUMBER
943 , p5_a1 NUMBER
944 , p5_a2 VARCHAR2
945 , p5_a3 NUMBER
946 , p5_a4 NUMBER
947 , p5_a5 NUMBER
948 , p5_a6 VARCHAR2
949 , p5_a7 VARCHAR2
950 , p5_a8 DATE
951 , p5_a9 DATE
952 , p5_a10 VARCHAR2
953 , p5_a11 VARCHAR2
954 , p5_a12 NUMBER
955 , p5_a13 DATE
956 , p5_a14 NUMBER
957 , p5_a15 DATE
958 , p5_a16 NUMBER
959 , p5_a17 VARCHAR2
960 , p5_a18 VARCHAR2
961 , p5_a19 VARCHAR2
962 , p5_a20 VARCHAR2
963 , p5_a21 VARCHAR2
964 , p5_a22 VARCHAR2
965 , p5_a23 VARCHAR2
966 , p5_a24 VARCHAR2
967 , p5_a25 VARCHAR2
968 , p5_a26 VARCHAR2
969 , p5_a27 VARCHAR2
970 , p5_a28 VARCHAR2
971 , p5_a29 VARCHAR2
972 , p5_a30 VARCHAR2
973 , p5_a31 VARCHAR2
974 , p5_a32 VARCHAR2
975 , p5_a33 VARCHAR2
976 , p5_a34 NUMBER
977 , p5_a35 VARCHAR2
978 , p5_a36 VARCHAR2
979 , p5_a37 NUMBER
980 , p5_a38 NUMBER
981 , p6_a0 NUMBER
982 , p6_a1 NUMBER
983 , p6_a2 VARCHAR2
984 , p6_a3 DATE
985 , p6_a4 DATE
986 , p6_a5 NUMBER
987 , p6_a6 NUMBER
988 , p6_a7 NUMBER
989 , p6_a8 NUMBER
990 , p6_a9 VARCHAR2
991 , p6_a10 NUMBER
992 , p6_a11 NUMBER
993 , p6_a12 NUMBER
994 , p6_a13 NUMBER
995 , p6_a14 NUMBER
996 , p6_a15 VARCHAR2
997 , p6_a16 NUMBER
998 , p6_a17 DATE
999 , p6_a18 NUMBER
1000 , p6_a19 DATE
1001 , p6_a20 NUMBER
1002 , p6_a21 VARCHAR2
1003 , p6_a22 VARCHAR2
1004 , p6_a23 VARCHAR2
1005 , p6_a24 VARCHAR2
1006 , p6_a25 VARCHAR2
1007 , p6_a26 VARCHAR2
1008 , p6_a27 VARCHAR2
1009 , p6_a28 VARCHAR2
1010 , p6_a29 VARCHAR2
1011 , p6_a30 VARCHAR2
1012 , p6_a31 VARCHAR2
1013 , p6_a32 VARCHAR2
1014 , p6_a33 VARCHAR2
1015 , p6_a34 VARCHAR2
1016 , p6_a35 VARCHAR2
1017 , p6_a36 VARCHAR2
1018 , p6_a37 NUMBER
1019 , p7_a0 JTF_NUMBER_TABLE
1020 , p7_a1 JTF_NUMBER_TABLE
1021 , p7_a2 JTF_NUMBER_TABLE
1022 , p7_a3 JTF_NUMBER_TABLE
1023 , p7_a4 JTF_NUMBER_TABLE
1024 , p7_a5 JTF_NUMBER_TABLE
1025 , p7_a6 JTF_NUMBER_TABLE
1026 , p7_a7 JTF_NUMBER_TABLE
1027 , p7_a8 JTF_DATE_TABLE
1028 , p7_a9 JTF_NUMBER_TABLE
1029 , p7_a10 JTF_DATE_TABLE
1030 , p7_a11 JTF_NUMBER_TABLE
1031 , p7_a12 JTF_VARCHAR2_TABLE_100
1032 , p7_a13 JTF_VARCHAR2_TABLE_500
1033 , p7_a14 JTF_VARCHAR2_TABLE_500
1034 , p7_a15 JTF_VARCHAR2_TABLE_500
1035 , p7_a16 JTF_VARCHAR2_TABLE_500
1036 , p7_a17 JTF_VARCHAR2_TABLE_500
1037 , p7_a18 JTF_VARCHAR2_TABLE_500
1038 , p7_a19 JTF_VARCHAR2_TABLE_500
1039 , p7_a20 JTF_VARCHAR2_TABLE_500
1040 , p7_a21 JTF_VARCHAR2_TABLE_500
1041 , p7_a22 JTF_VARCHAR2_TABLE_500
1042 , p7_a23 JTF_VARCHAR2_TABLE_500
1043 , p7_a24 JTF_VARCHAR2_TABLE_500
1044 , p7_a25 JTF_VARCHAR2_TABLE_500
1045 , p7_a26 JTF_VARCHAR2_TABLE_500
1046 , p7_a27 JTF_VARCHAR2_TABLE_500
1047 , p7_a28 JTF_VARCHAR2_TABLE_100
1048 , p7_a29 JTF_NUMBER_TABLE
1049 , p8_a0 out nocopy JTF_NUMBER_TABLE
1050 , p8_a1 out nocopy JTF_NUMBER_TABLE
1051 , p8_a2 out nocopy JTF_NUMBER_TABLE
1052 , p8_a3 out nocopy JTF_NUMBER_TABLE
1053 , p8_a4 out nocopy JTF_NUMBER_TABLE
1054 , p8_a5 out nocopy JTF_NUMBER_TABLE
1055 , p8_a6 out nocopy JTF_NUMBER_TABLE
1056 , p8_a7 out nocopy JTF_NUMBER_TABLE
1057 , p8_a8 out nocopy JTF_DATE_TABLE
1058 , p8_a9 out nocopy JTF_NUMBER_TABLE
1059 , p8_a10 out nocopy JTF_DATE_TABLE
1060 , p8_a11 out nocopy JTF_NUMBER_TABLE
1061 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_100
1062 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_500
1063 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_500
1064 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
1065 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
1066 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
1067 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_500
1068 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_500
1069 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
1070 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
1071 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
1072 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
1073 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
1074 , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
1075 , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
1076 , p8_a27 out nocopy JTF_VARCHAR2_TABLE_500
1077 , p8_a28 out nocopy JTF_VARCHAR2_TABLE_100
1078 , p8_a29 out nocopy JTF_NUMBER_TABLE
1079 , p9_a0 JTF_NUMBER_TABLE
1080 , p9_a1 JTF_NUMBER_TABLE
1081 , p9_a2 JTF_NUMBER_TABLE
1082 , p9_a3 JTF_NUMBER_TABLE
1083 , p9_a4 JTF_NUMBER_TABLE
1084 , p9_a5 JTF_NUMBER_TABLE
1085 , p9_a6 JTF_NUMBER_TABLE
1086 , p9_a7 JTF_NUMBER_TABLE
1087 , p9_a8 JTF_NUMBER_TABLE
1088 , p9_a9 JTF_NUMBER_TABLE
1089 , p9_a10 JTF_DATE_TABLE
1090 , p9_a11 JTF_NUMBER_TABLE
1091 , p9_a12 JTF_DATE_TABLE
1092 , p9_a13 JTF_NUMBER_TABLE
1093 , p9_a14 JTF_VARCHAR2_TABLE_100
1094 , p9_a15 JTF_VARCHAR2_TABLE_500
1095 , p9_a16 JTF_VARCHAR2_TABLE_500
1096 , p9_a17 JTF_VARCHAR2_TABLE_500
1097 , p9_a18 JTF_VARCHAR2_TABLE_500
1098 , p9_a19 JTF_VARCHAR2_TABLE_500
1099 , p9_a20 JTF_VARCHAR2_TABLE_500
1100 , p9_a21 JTF_VARCHAR2_TABLE_500
1101 , p9_a22 JTF_VARCHAR2_TABLE_500
1102 , p9_a23 JTF_VARCHAR2_TABLE_500
1103 , p9_a24 JTF_VARCHAR2_TABLE_500
1104 , p9_a25 JTF_VARCHAR2_TABLE_500
1105 , p9_a26 JTF_VARCHAR2_TABLE_500
1106 , p9_a27 JTF_VARCHAR2_TABLE_500
1107 , p9_a28 JTF_VARCHAR2_TABLE_500
1108 , p9_a29 JTF_VARCHAR2_TABLE_500
1109 , p10_a0 out nocopy JTF_NUMBER_TABLE
1110 , p10_a1 out nocopy JTF_NUMBER_TABLE
1111 , p10_a2 out nocopy JTF_NUMBER_TABLE
1112 , p10_a3 out nocopy JTF_NUMBER_TABLE
1113 , p10_a4 out nocopy JTF_NUMBER_TABLE
1114 , p10_a5 out nocopy JTF_NUMBER_TABLE
1115 , p10_a6 out nocopy JTF_NUMBER_TABLE
1116 , p10_a7 out nocopy JTF_NUMBER_TABLE
1117 , p10_a8 out nocopy JTF_NUMBER_TABLE
1118 , p10_a9 out nocopy JTF_NUMBER_TABLE
1119 , p10_a10 out nocopy JTF_DATE_TABLE
1120 , p10_a11 out nocopy JTF_NUMBER_TABLE
1121 , p10_a12 out nocopy JTF_DATE_TABLE
1122 , p10_a13 out nocopy JTF_NUMBER_TABLE
1123 , p10_a14 out nocopy JTF_VARCHAR2_TABLE_100
1124 , p10_a15 out nocopy JTF_VARCHAR2_TABLE_500
1125 , p10_a16 out nocopy JTF_VARCHAR2_TABLE_500
1126 , p10_a17 out nocopy JTF_VARCHAR2_TABLE_500
1127 , p10_a18 out nocopy JTF_VARCHAR2_TABLE_500
1128 , p10_a19 out nocopy JTF_VARCHAR2_TABLE_500
1129 , p10_a20 out nocopy JTF_VARCHAR2_TABLE_500
1130 , p10_a21 out nocopy JTF_VARCHAR2_TABLE_500
1131 , p10_a22 out nocopy JTF_VARCHAR2_TABLE_500
1132 , p10_a23 out nocopy JTF_VARCHAR2_TABLE_500
1133 , p10_a24 out nocopy JTF_VARCHAR2_TABLE_500
1134 , p10_a25 out nocopy JTF_VARCHAR2_TABLE_500
1135 , p10_a26 out nocopy JTF_VARCHAR2_TABLE_500
1136 , p10_a27 out nocopy JTF_VARCHAR2_TABLE_500
1137 , p10_a28 out nocopy JTF_VARCHAR2_TABLE_500
1138 , p10_a29 out nocopy JTF_VARCHAR2_TABLE_500
1139 )
1140
1141 as
1142 ddp_lrtv_rec okl_lease_rate_factors_pvt.lrtv_rec_type;
1143 ddp_lrvv_rec okl_lease_rate_factors_pvt.okl_lrvv_rec;
1144 ddp_lrfv_tbl okl_lease_rate_factors_pvt.lrfv_tbl_type;
1145 ddx_lrfv_tbl okl_lease_rate_factors_pvt.lrfv_tbl_type;
1146 ddp_lrlv_tbl okl_lease_rate_factors_pvt.okl_lrlv_tbl;
1147 ddx_lrlv_tbl okl_lease_rate_factors_pvt.okl_lrlv_tbl;
1148 ddindx binary_integer; indx binary_integer;
1149 begin
1150
1151 -- copy data to the local IN or IN-OUT args, if any
1152
1153
1154
1155
1156
1157 ddp_lrtv_rec.id := p5_a0;
1158 ddp_lrtv_rec.object_version_number := p5_a1;
1159 ddp_lrtv_rec.sfwt_flag := p5_a2;
1160 ddp_lrtv_rec.try_id := p5_a3;
1161 ddp_lrtv_rec.pdt_id := p5_a4;
1162 ddp_lrtv_rec.rate := p5_a5;
1163 ddp_lrtv_rec.frq_code := p5_a6;
1164 ddp_lrtv_rec.arrears_yn := p5_a7;
1165 ddp_lrtv_rec.start_date := p5_a8;
1166 ddp_lrtv_rec.end_date := p5_a9;
1167 ddp_lrtv_rec.name := p5_a10;
1168 ddp_lrtv_rec.description := p5_a11;
1169 ddp_lrtv_rec.created_by := p5_a12;
1170 ddp_lrtv_rec.creation_date := p5_a13;
1171 ddp_lrtv_rec.last_updated_by := p5_a14;
1172 ddp_lrtv_rec.last_update_date := p5_a15;
1173 ddp_lrtv_rec.last_update_login := p5_a16;
1174 ddp_lrtv_rec.attribute_category := p5_a17;
1175 ddp_lrtv_rec.attribute1 := p5_a18;
1176 ddp_lrtv_rec.attribute2 := p5_a19;
1177 ddp_lrtv_rec.attribute3 := p5_a20;
1178 ddp_lrtv_rec.attribute4 := p5_a21;
1179 ddp_lrtv_rec.attribute5 := p5_a22;
1180 ddp_lrtv_rec.attribute6 := p5_a23;
1181 ddp_lrtv_rec.attribute7 := p5_a24;
1182 ddp_lrtv_rec.attribute8 := p5_a25;
1183 ddp_lrtv_rec.attribute9 := p5_a26;
1184 ddp_lrtv_rec.attribute10 := p5_a27;
1185 ddp_lrtv_rec.attribute11 := p5_a28;
1186 ddp_lrtv_rec.attribute12 := p5_a29;
1187 ddp_lrtv_rec.attribute13 := p5_a30;
1188 ddp_lrtv_rec.attribute14 := p5_a31;
1189 ddp_lrtv_rec.attribute15 := p5_a32;
1190 ddp_lrtv_rec.sts_code := p5_a33;
1191 ddp_lrtv_rec.org_id := p5_a34;
1192 ddp_lrtv_rec.currency_code := p5_a35;
1193 ddp_lrtv_rec.lrs_type_code := p5_a36;
1194 ddp_lrtv_rec.end_of_term_id := p5_a37;
1195 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
1196
1197 ddp_lrvv_rec.rate_set_version_id := p6_a0;
1198 ddp_lrvv_rec.object_version_number := p6_a1;
1199 ddp_lrvv_rec.arrears_yn := p6_a2;
1200 ddp_lrvv_rec.effective_from_date := p6_a3;
1201 ddp_lrvv_rec.effective_to_date := p6_a4;
1202 ddp_lrvv_rec.rate_set_id := p6_a5;
1203 ddp_lrvv_rec.end_of_term_ver_id := p6_a6;
1204 ddp_lrvv_rec.std_rate_tmpl_ver_id := p6_a7;
1205 ddp_lrvv_rec.adj_mat_version_id := p6_a8;
1206 ddp_lrvv_rec.version_number := p6_a9;
1207 ddp_lrvv_rec.lrs_rate := p6_a10;
1208 ddp_lrvv_rec.rate_tolerance := p6_a11;
1209 ddp_lrvv_rec.residual_tolerance := p6_a12;
1210 ddp_lrvv_rec.deferred_pmts := p6_a13;
1211 ddp_lrvv_rec.advance_pmts := p6_a14;
1212 ddp_lrvv_rec.sts_code := p6_a15;
1213 ddp_lrvv_rec.created_by := p6_a16;
1214 ddp_lrvv_rec.creation_date := p6_a17;
1215 ddp_lrvv_rec.last_updated_by := p6_a18;
1216 ddp_lrvv_rec.last_update_date := p6_a19;
1217 ddp_lrvv_rec.last_update_login := p6_a20;
1218 ddp_lrvv_rec.attribute_category := p6_a21;
1219 ddp_lrvv_rec.attribute1 := p6_a22;
1220 ddp_lrvv_rec.attribute2 := p6_a23;
1221 ddp_lrvv_rec.attribute3 := p6_a24;
1222 ddp_lrvv_rec.attribute4 := p6_a25;
1223 ddp_lrvv_rec.attribute5 := p6_a26;
1224 ddp_lrvv_rec.attribute6 := p6_a27;
1225 ddp_lrvv_rec.attribute7 := p6_a28;
1226 ddp_lrvv_rec.attribute8 := p6_a29;
1227 ddp_lrvv_rec.attribute9 := p6_a30;
1228 ddp_lrvv_rec.attribute10 := p6_a31;
1229 ddp_lrvv_rec.attribute11 := p6_a32;
1230 ddp_lrvv_rec.attribute12 := p6_a33;
1231 ddp_lrvv_rec.attribute13 := p6_a34;
1232 ddp_lrvv_rec.attribute14 := p6_a35;
1233 ddp_lrvv_rec.attribute15 := p6_a36;
1234 ddp_lrvv_rec.standard_rate := p6_a37;
1235
1236 okl_lrf_pvt_w.rosetta_table_copy_in_p28(ddp_lrfv_tbl, p7_a0
1237 , p7_a1
1238 , p7_a2
1239 , p7_a3
1240 , p7_a4
1241 , p7_a5
1242 , p7_a6
1243 , p7_a7
1244 , p7_a8
1245 , p7_a9
1246 , p7_a10
1247 , p7_a11
1248 , p7_a12
1249 , p7_a13
1250 , p7_a14
1251 , p7_a15
1252 , p7_a16
1253 , p7_a17
1254 , p7_a18
1255 , p7_a19
1256 , p7_a20
1257 , p7_a21
1258 , p7_a22
1259 , p7_a23
1260 , p7_a24
1261 , p7_a25
1262 , p7_a26
1263 , p7_a27
1264 , p7_a28
1265 , p7_a29
1266 );
1267
1268
1269 okl_lrl_pvt_w.rosetta_table_copy_in_p1(ddp_lrlv_tbl, p9_a0
1270 , p9_a1
1271 , p9_a2
1272 , p9_a3
1273 , p9_a4
1274 , p9_a5
1275 , p9_a6
1276 , p9_a7
1277 , p9_a8
1278 , p9_a9
1279 , p9_a10
1280 , p9_a11
1281 , p9_a12
1282 , p9_a13
1283 , p9_a14
1284 , p9_a15
1285 , p9_a16
1286 , p9_a17
1287 , p9_a18
1288 , p9_a19
1289 , p9_a20
1290 , p9_a21
1291 , p9_a22
1292 , p9_a23
1293 , p9_a24
1294 , p9_a25
1295 , p9_a26
1296 , p9_a27
1297 , p9_a28
1298 , p9_a29
1299 );
1300
1301
1302 -- here's the delegated call to the old PL/SQL routine
1303 okl_lease_rate_factors_pvt.handle_lrf_submit(p_api_version,
1304 p_init_msg_list,
1305 x_return_status,
1306 x_msg_count,
1307 x_msg_data,
1308 ddp_lrtv_rec,
1309 ddp_lrvv_rec,
1310 ddp_lrfv_tbl,
1311 ddx_lrfv_tbl,
1312 ddp_lrlv_tbl,
1313 ddx_lrlv_tbl);
1314
1315 -- copy data back from the local variables to OUT or IN-OUT args, if any
1316
1317
1318
1319
1320
1321
1322
1323
1324 okl_lrf_pvt_w.rosetta_table_copy_out_p28(ddx_lrfv_tbl, p8_a0
1325 , p8_a1
1326 , p8_a2
1327 , p8_a3
1328 , p8_a4
1329 , p8_a5
1330 , p8_a6
1331 , p8_a7
1332 , p8_a8
1333 , p8_a9
1334 , p8_a10
1335 , p8_a11
1336 , p8_a12
1337 , p8_a13
1338 , p8_a14
1339 , p8_a15
1340 , p8_a16
1341 , p8_a17
1342 , p8_a18
1343 , p8_a19
1344 , p8_a20
1345 , p8_a21
1346 , p8_a22
1347 , p8_a23
1348 , p8_a24
1349 , p8_a25
1350 , p8_a26
1351 , p8_a27
1352 , p8_a28
1353 , p8_a29
1354 );
1355
1356
1357 okl_lrl_pvt_w.rosetta_table_copy_out_p1(ddx_lrlv_tbl, p10_a0
1358 , p10_a1
1359 , p10_a2
1360 , p10_a3
1361 , p10_a4
1362 , p10_a5
1363 , p10_a6
1364 , p10_a7
1365 , p10_a8
1366 , p10_a9
1367 , p10_a10
1368 , p10_a11
1369 , p10_a12
1370 , p10_a13
1371 , p10_a14
1372 , p10_a15
1373 , p10_a16
1374 , p10_a17
1375 , p10_a18
1376 , p10_a19
1377 , p10_a20
1378 , p10_a21
1379 , p10_a22
1380 , p10_a23
1381 , p10_a24
1382 , p10_a25
1383 , p10_a26
1384 , p10_a27
1385 , p10_a28
1386 , p10_a29
1387 );
1388 end;
1389
1390 end okl_lease_rate_factors_pvt_w;