[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_RATE_SETS_PVT_W
Source
1 package body okl_lease_rate_sets_pvt_w as
2 /* $Header: OKLELRSB.pls 120.1 2005/09/30 11:00:09 asawanka noship $ */
3 procedure rosetta_table_copy_in_p22(t out nocopy okl_lease_rate_sets_pvt.okl_number_table, a0 JTF_NUMBER_TABLE) as
4 ddindx binary_integer; indx binary_integer;
5 begin
6 if a0 is not null and a0.count > 0 then
7 if a0.count > 0 then
8 indx := a0.first;
9 ddindx := 1;
10 while true loop
11 t(ddindx) := a0(indx);
12 ddindx := ddindx+1;
13 if a0.last =indx
14 then exit;
15 end if;
16 indx := a0.next(indx);
17 end loop;
18 end if;
19 end if;
20 end rosetta_table_copy_in_p22;
21 procedure rosetta_table_copy_out_p22(t okl_lease_rate_sets_pvt.okl_number_table, a0 out nocopy JTF_NUMBER_TABLE) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if t is null or t.count = 0 then
25 a0 := JTF_NUMBER_TABLE();
26 else
27 a0 := JTF_NUMBER_TABLE();
28 if t.count > 0 then
29 a0.extend(t.count);
30 ddindx := t.first;
31 indx := 1;
32 while true loop
33 a0(indx) := t(ddindx);
34 indx := indx+1;
35 if t.last =ddindx
36 then exit;
37 end if;
38 ddindx := t.next(ddindx);
39 end loop;
40 end if;
41 end if;
42 end rosetta_table_copy_out_p22;
43
44 procedure create_lease_rate_set(p_api_version NUMBER
45 , p_init_msg_list VARCHAR2
46 , x_return_status out nocopy VARCHAR2
47 , x_msg_count out nocopy NUMBER
48 , x_msg_data out nocopy VARCHAR2
49 , p5_a0 NUMBER
50 , p5_a1 NUMBER
51 , p5_a2 VARCHAR2
52 , p5_a3 NUMBER
53 , p5_a4 NUMBER
54 , p5_a5 NUMBER
55 , p5_a6 VARCHAR2
56 , p5_a7 VARCHAR2
57 , p5_a8 DATE
58 , p5_a9 DATE
59 , p5_a10 VARCHAR2
60 , p5_a11 VARCHAR2
61 , p5_a12 NUMBER
62 , p5_a13 DATE
63 , p5_a14 NUMBER
64 , p5_a15 DATE
65 , p5_a16 NUMBER
66 , p5_a17 VARCHAR2
67 , p5_a18 VARCHAR2
68 , p5_a19 VARCHAR2
69 , p5_a20 VARCHAR2
70 , p5_a21 VARCHAR2
71 , p5_a22 VARCHAR2
72 , p5_a23 VARCHAR2
73 , p5_a24 VARCHAR2
74 , p5_a25 VARCHAR2
75 , p5_a26 VARCHAR2
76 , p5_a27 VARCHAR2
77 , p5_a28 VARCHAR2
78 , p5_a29 VARCHAR2
79 , p5_a30 VARCHAR2
80 , p5_a31 VARCHAR2
81 , p5_a32 VARCHAR2
82 , p5_a33 VARCHAR2
83 , p5_a34 NUMBER
84 , p5_a35 VARCHAR2
85 , p5_a36 VARCHAR2
86 , p5_a37 NUMBER
87 , p5_a38 NUMBER
88 , p6_a0 out nocopy NUMBER
89 , p6_a1 out nocopy NUMBER
90 , p6_a2 out nocopy VARCHAR2
91 , p6_a3 out nocopy NUMBER
92 , p6_a4 out nocopy NUMBER
93 , p6_a5 out nocopy NUMBER
94 , p6_a6 out nocopy VARCHAR2
95 , p6_a7 out nocopy VARCHAR2
96 , p6_a8 out nocopy DATE
97 , p6_a9 out nocopy DATE
98 , p6_a10 out nocopy VARCHAR2
99 , p6_a11 out nocopy VARCHAR2
100 , p6_a12 out nocopy NUMBER
101 , p6_a13 out nocopy DATE
102 , p6_a14 out nocopy NUMBER
103 , p6_a15 out nocopy DATE
104 , p6_a16 out nocopy NUMBER
105 , p6_a17 out nocopy VARCHAR2
106 , p6_a18 out nocopy VARCHAR2
107 , p6_a19 out nocopy VARCHAR2
108 , p6_a20 out nocopy VARCHAR2
109 , p6_a21 out nocopy VARCHAR2
110 , p6_a22 out nocopy VARCHAR2
111 , p6_a23 out nocopy VARCHAR2
112 , p6_a24 out nocopy VARCHAR2
113 , p6_a25 out nocopy VARCHAR2
114 , p6_a26 out nocopy VARCHAR2
115 , p6_a27 out nocopy VARCHAR2
116 , p6_a28 out nocopy VARCHAR2
117 , p6_a29 out nocopy VARCHAR2
118 , p6_a30 out nocopy VARCHAR2
119 , p6_a31 out nocopy VARCHAR2
120 , p6_a32 out nocopy VARCHAR2
121 , p6_a33 out nocopy VARCHAR2
122 , p6_a34 out nocopy NUMBER
123 , p6_a35 out nocopy VARCHAR2
124 , p6_a36 out nocopy VARCHAR2
125 , p6_a37 out nocopy NUMBER
126 , p6_a38 out nocopy NUMBER
127 , p7_a0 NUMBER
128 , p7_a1 NUMBER
129 , p7_a2 VARCHAR2
130 , p7_a3 DATE
131 , p7_a4 DATE
132 , p7_a5 NUMBER
133 , p7_a6 NUMBER
134 , p7_a7 NUMBER
135 , p7_a8 NUMBER
136 , p7_a9 VARCHAR2
137 , p7_a10 NUMBER
138 , p7_a11 NUMBER
139 , p7_a12 NUMBER
140 , p7_a13 NUMBER
141 , p7_a14 NUMBER
142 , p7_a15 VARCHAR2
143 , p7_a16 NUMBER
144 , p7_a17 DATE
145 , p7_a18 NUMBER
146 , p7_a19 DATE
147 , p7_a20 NUMBER
148 , p7_a21 VARCHAR2
149 , p7_a22 VARCHAR2
150 , p7_a23 VARCHAR2
151 , p7_a24 VARCHAR2
152 , p7_a25 VARCHAR2
153 , p7_a26 VARCHAR2
154 , p7_a27 VARCHAR2
155 , p7_a28 VARCHAR2
156 , p7_a29 VARCHAR2
157 , p7_a30 VARCHAR2
158 , p7_a31 VARCHAR2
159 , p7_a32 VARCHAR2
160 , p7_a33 VARCHAR2
161 , p7_a34 VARCHAR2
162 , p7_a35 VARCHAR2
163 , p7_a36 VARCHAR2
164 , p7_a37 NUMBER
165 , p8_a0 out nocopy NUMBER
166 , p8_a1 out nocopy NUMBER
167 , p8_a2 out nocopy VARCHAR2
168 , p8_a3 out nocopy DATE
169 , p8_a4 out nocopy DATE
170 , p8_a5 out nocopy NUMBER
171 , p8_a6 out nocopy NUMBER
172 , p8_a7 out nocopy NUMBER
173 , p8_a8 out nocopy NUMBER
174 , p8_a9 out nocopy VARCHAR2
175 , p8_a10 out nocopy NUMBER
176 , p8_a11 out nocopy NUMBER
177 , p8_a12 out nocopy NUMBER
178 , p8_a13 out nocopy NUMBER
179 , p8_a14 out nocopy NUMBER
180 , p8_a15 out nocopy VARCHAR2
181 , p8_a16 out nocopy NUMBER
182 , p8_a17 out nocopy DATE
183 , p8_a18 out nocopy NUMBER
184 , p8_a19 out nocopy DATE
185 , p8_a20 out nocopy NUMBER
186 , p8_a21 out nocopy VARCHAR2
187 , p8_a22 out nocopy VARCHAR2
188 , p8_a23 out nocopy VARCHAR2
189 , p8_a24 out nocopy VARCHAR2
190 , p8_a25 out nocopy VARCHAR2
191 , p8_a26 out nocopy VARCHAR2
192 , p8_a27 out nocopy VARCHAR2
193 , p8_a28 out nocopy VARCHAR2
194 , p8_a29 out nocopy VARCHAR2
195 , p8_a30 out nocopy VARCHAR2
196 , p8_a31 out nocopy VARCHAR2
197 , p8_a32 out nocopy VARCHAR2
198 , p8_a33 out nocopy VARCHAR2
199 , p8_a34 out nocopy VARCHAR2
200 , p8_a35 out nocopy VARCHAR2
201 , p8_a36 out nocopy VARCHAR2
202 , p8_a37 out nocopy NUMBER
203 )
204
205 as
206 ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
207 ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
208 ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
209 ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
210 ddindx binary_integer; indx binary_integer;
211 begin
212
213 -- copy data to the local IN or IN-OUT args, if any
214
215
216
217
218
219 ddp_lrtv_rec.id := p5_a0;
220 ddp_lrtv_rec.object_version_number := p5_a1;
221 ddp_lrtv_rec.sfwt_flag := p5_a2;
222 ddp_lrtv_rec.try_id := p5_a3;
223 ddp_lrtv_rec.pdt_id := p5_a4;
224 ddp_lrtv_rec.rate := p5_a5;
225 ddp_lrtv_rec.frq_code := p5_a6;
226 ddp_lrtv_rec.arrears_yn := p5_a7;
227 ddp_lrtv_rec.start_date := p5_a8;
228 ddp_lrtv_rec.end_date := p5_a9;
229 ddp_lrtv_rec.name := p5_a10;
230 ddp_lrtv_rec.description := p5_a11;
231 ddp_lrtv_rec.created_by := p5_a12;
232 ddp_lrtv_rec.creation_date := p5_a13;
233 ddp_lrtv_rec.last_updated_by := p5_a14;
234 ddp_lrtv_rec.last_update_date := p5_a15;
235 ddp_lrtv_rec.last_update_login := p5_a16;
236 ddp_lrtv_rec.attribute_category := p5_a17;
237 ddp_lrtv_rec.attribute1 := p5_a18;
238 ddp_lrtv_rec.attribute2 := p5_a19;
239 ddp_lrtv_rec.attribute3 := p5_a20;
240 ddp_lrtv_rec.attribute4 := p5_a21;
241 ddp_lrtv_rec.attribute5 := p5_a22;
242 ddp_lrtv_rec.attribute6 := p5_a23;
243 ddp_lrtv_rec.attribute7 := p5_a24;
244 ddp_lrtv_rec.attribute8 := p5_a25;
245 ddp_lrtv_rec.attribute9 := p5_a26;
246 ddp_lrtv_rec.attribute10 := p5_a27;
247 ddp_lrtv_rec.attribute11 := p5_a28;
248 ddp_lrtv_rec.attribute12 := p5_a29;
249 ddp_lrtv_rec.attribute13 := p5_a30;
250 ddp_lrtv_rec.attribute14 := p5_a31;
251 ddp_lrtv_rec.attribute15 := p5_a32;
252 ddp_lrtv_rec.sts_code := p5_a33;
253 ddp_lrtv_rec.org_id := p5_a34;
254 ddp_lrtv_rec.currency_code := p5_a35;
255 ddp_lrtv_rec.lrs_type_code := p5_a36;
256 ddp_lrtv_rec.end_of_term_id := p5_a37;
257 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
258
259
260 ddp_lrvv_rec.rate_set_version_id := p7_a0;
261 ddp_lrvv_rec.object_version_number := p7_a1;
262 ddp_lrvv_rec.arrears_yn := p7_a2;
263 ddp_lrvv_rec.effective_from_date := p7_a3;
264 ddp_lrvv_rec.effective_to_date := p7_a4;
265 ddp_lrvv_rec.rate_set_id := p7_a5;
266 ddp_lrvv_rec.end_of_term_ver_id := p7_a6;
267 ddp_lrvv_rec.std_rate_tmpl_ver_id := p7_a7;
268 ddp_lrvv_rec.adj_mat_version_id := p7_a8;
269 ddp_lrvv_rec.version_number := p7_a9;
270 ddp_lrvv_rec.lrs_rate := p7_a10;
271 ddp_lrvv_rec.rate_tolerance := p7_a11;
272 ddp_lrvv_rec.residual_tolerance := p7_a12;
273 ddp_lrvv_rec.deferred_pmts := p7_a13;
274 ddp_lrvv_rec.advance_pmts := p7_a14;
275 ddp_lrvv_rec.sts_code := p7_a15;
276 ddp_lrvv_rec.created_by := p7_a16;
277 ddp_lrvv_rec.creation_date := p7_a17;
278 ddp_lrvv_rec.last_updated_by := p7_a18;
279 ddp_lrvv_rec.last_update_date := p7_a19;
280 ddp_lrvv_rec.last_update_login := p7_a20;
281 ddp_lrvv_rec.attribute_category := p7_a21;
282 ddp_lrvv_rec.attribute1 := p7_a22;
283 ddp_lrvv_rec.attribute2 := p7_a23;
284 ddp_lrvv_rec.attribute3 := p7_a24;
285 ddp_lrvv_rec.attribute4 := p7_a25;
286 ddp_lrvv_rec.attribute5 := p7_a26;
287 ddp_lrvv_rec.attribute6 := p7_a27;
288 ddp_lrvv_rec.attribute7 := p7_a28;
289 ddp_lrvv_rec.attribute8 := p7_a29;
290 ddp_lrvv_rec.attribute9 := p7_a30;
291 ddp_lrvv_rec.attribute10 := p7_a31;
292 ddp_lrvv_rec.attribute11 := p7_a32;
293 ddp_lrvv_rec.attribute12 := p7_a33;
294 ddp_lrvv_rec.attribute13 := p7_a34;
295 ddp_lrvv_rec.attribute14 := p7_a35;
296 ddp_lrvv_rec.attribute15 := p7_a36;
297 ddp_lrvv_rec.standard_rate := p7_a37;
298
299
300 -- here's the delegated call to the old PL/SQL routine
301 okl_lease_rate_sets_pvt.create_lease_rate_set(p_api_version,
302 p_init_msg_list,
303 x_return_status,
304 x_msg_count,
305 x_msg_data,
306 ddp_lrtv_rec,
307 ddx_lrtv_rec,
308 ddp_lrvv_rec,
309 ddx_lrvv_rec);
310
311 -- copy data back from the local variables to OUT or IN-OUT args, if any
312
313
314
315
316
317
318 p6_a0 := ddx_lrtv_rec.id;
319 p6_a1 := ddx_lrtv_rec.object_version_number;
320 p6_a2 := ddx_lrtv_rec.sfwt_flag;
321 p6_a3 := ddx_lrtv_rec.try_id;
322 p6_a4 := ddx_lrtv_rec.pdt_id;
323 p6_a5 := ddx_lrtv_rec.rate;
324 p6_a6 := ddx_lrtv_rec.frq_code;
325 p6_a7 := ddx_lrtv_rec.arrears_yn;
326 p6_a8 := ddx_lrtv_rec.start_date;
327 p6_a9 := ddx_lrtv_rec.end_date;
328 p6_a10 := ddx_lrtv_rec.name;
329 p6_a11 := ddx_lrtv_rec.description;
330 p6_a12 := ddx_lrtv_rec.created_by;
331 p6_a13 := ddx_lrtv_rec.creation_date;
332 p6_a14 := ddx_lrtv_rec.last_updated_by;
333 p6_a15 := ddx_lrtv_rec.last_update_date;
334 p6_a16 := ddx_lrtv_rec.last_update_login;
335 p6_a17 := ddx_lrtv_rec.attribute_category;
336 p6_a18 := ddx_lrtv_rec.attribute1;
337 p6_a19 := ddx_lrtv_rec.attribute2;
338 p6_a20 := ddx_lrtv_rec.attribute3;
339 p6_a21 := ddx_lrtv_rec.attribute4;
340 p6_a22 := ddx_lrtv_rec.attribute5;
341 p6_a23 := ddx_lrtv_rec.attribute6;
342 p6_a24 := ddx_lrtv_rec.attribute7;
343 p6_a25 := ddx_lrtv_rec.attribute8;
344 p6_a26 := ddx_lrtv_rec.attribute9;
345 p6_a27 := ddx_lrtv_rec.attribute10;
346 p6_a28 := ddx_lrtv_rec.attribute11;
347 p6_a29 := ddx_lrtv_rec.attribute12;
348 p6_a30 := ddx_lrtv_rec.attribute13;
349 p6_a31 := ddx_lrtv_rec.attribute14;
350 p6_a32 := ddx_lrtv_rec.attribute15;
351 p6_a33 := ddx_lrtv_rec.sts_code;
352 p6_a34 := ddx_lrtv_rec.org_id;
353 p6_a35 := ddx_lrtv_rec.currency_code;
354 p6_a36 := ddx_lrtv_rec.lrs_type_code;
355 p6_a37 := ddx_lrtv_rec.end_of_term_id;
356 p6_a38 := ddx_lrtv_rec.orig_rate_set_id;
357
358
359 p8_a0 := ddx_lrvv_rec.rate_set_version_id;
360 p8_a1 := ddx_lrvv_rec.object_version_number;
361 p8_a2 := ddx_lrvv_rec.arrears_yn;
362 p8_a3 := ddx_lrvv_rec.effective_from_date;
363 p8_a4 := ddx_lrvv_rec.effective_to_date;
364 p8_a5 := ddx_lrvv_rec.rate_set_id;
365 p8_a6 := ddx_lrvv_rec.end_of_term_ver_id;
366 p8_a7 := ddx_lrvv_rec.std_rate_tmpl_ver_id;
367 p8_a8 := ddx_lrvv_rec.adj_mat_version_id;
368 p8_a9 := ddx_lrvv_rec.version_number;
369 p8_a10 := ddx_lrvv_rec.lrs_rate;
370 p8_a11 := ddx_lrvv_rec.rate_tolerance;
371 p8_a12 := ddx_lrvv_rec.residual_tolerance;
372 p8_a13 := ddx_lrvv_rec.deferred_pmts;
373 p8_a14 := ddx_lrvv_rec.advance_pmts;
374 p8_a15 := ddx_lrvv_rec.sts_code;
375 p8_a16 := ddx_lrvv_rec.created_by;
376 p8_a17 := ddx_lrvv_rec.creation_date;
377 p8_a18 := ddx_lrvv_rec.last_updated_by;
378 p8_a19 := ddx_lrvv_rec.last_update_date;
379 p8_a20 := ddx_lrvv_rec.last_update_login;
380 p8_a21 := ddx_lrvv_rec.attribute_category;
381 p8_a22 := ddx_lrvv_rec.attribute1;
382 p8_a23 := ddx_lrvv_rec.attribute2;
383 p8_a24 := ddx_lrvv_rec.attribute3;
384 p8_a25 := ddx_lrvv_rec.attribute4;
385 p8_a26 := ddx_lrvv_rec.attribute5;
386 p8_a27 := ddx_lrvv_rec.attribute6;
387 p8_a28 := ddx_lrvv_rec.attribute7;
388 p8_a29 := ddx_lrvv_rec.attribute8;
389 p8_a30 := ddx_lrvv_rec.attribute9;
390 p8_a31 := ddx_lrvv_rec.attribute10;
391 p8_a32 := ddx_lrvv_rec.attribute11;
392 p8_a33 := ddx_lrvv_rec.attribute12;
393 p8_a34 := ddx_lrvv_rec.attribute13;
394 p8_a35 := ddx_lrvv_rec.attribute14;
395 p8_a36 := ddx_lrvv_rec.attribute15;
396 p8_a37 := ddx_lrvv_rec.standard_rate;
397 end;
398
399 procedure update_lease_rate_set(p_api_version NUMBER
400 , p_init_msg_list VARCHAR2
401 , x_return_status out nocopy VARCHAR2
402 , x_msg_count out nocopy NUMBER
403 , x_msg_data out nocopy VARCHAR2
404 , p5_a0 NUMBER
405 , p5_a1 NUMBER
406 , p5_a2 VARCHAR2
407 , p5_a3 NUMBER
408 , p5_a4 NUMBER
409 , p5_a5 NUMBER
410 , p5_a6 VARCHAR2
411 , p5_a7 VARCHAR2
412 , p5_a8 DATE
413 , p5_a9 DATE
414 , p5_a10 VARCHAR2
415 , p5_a11 VARCHAR2
416 , p5_a12 NUMBER
417 , p5_a13 DATE
418 , p5_a14 NUMBER
419 , p5_a15 DATE
420 , p5_a16 NUMBER
421 , p5_a17 VARCHAR2
422 , p5_a18 VARCHAR2
423 , p5_a19 VARCHAR2
424 , p5_a20 VARCHAR2
425 , p5_a21 VARCHAR2
426 , p5_a22 VARCHAR2
427 , p5_a23 VARCHAR2
428 , p5_a24 VARCHAR2
429 , p5_a25 VARCHAR2
430 , p5_a26 VARCHAR2
431 , p5_a27 VARCHAR2
432 , p5_a28 VARCHAR2
433 , p5_a29 VARCHAR2
434 , p5_a30 VARCHAR2
435 , p5_a31 VARCHAR2
436 , p5_a32 VARCHAR2
437 , p5_a33 VARCHAR2
438 , p5_a34 NUMBER
439 , p5_a35 VARCHAR2
440 , p5_a36 VARCHAR2
441 , p5_a37 NUMBER
442 , p5_a38 NUMBER
443 , p6_a0 out nocopy NUMBER
444 , p6_a1 out nocopy NUMBER
445 , p6_a2 out nocopy VARCHAR2
446 , p6_a3 out nocopy NUMBER
447 , p6_a4 out nocopy NUMBER
448 , p6_a5 out nocopy NUMBER
449 , p6_a6 out nocopy VARCHAR2
450 , p6_a7 out nocopy VARCHAR2
451 , p6_a8 out nocopy DATE
452 , p6_a9 out nocopy DATE
453 , p6_a10 out nocopy VARCHAR2
454 , p6_a11 out nocopy VARCHAR2
455 , p6_a12 out nocopy NUMBER
456 , p6_a13 out nocopy DATE
457 , p6_a14 out nocopy NUMBER
458 , p6_a15 out nocopy DATE
459 , p6_a16 out nocopy NUMBER
460 , p6_a17 out nocopy VARCHAR2
461 , p6_a18 out nocopy VARCHAR2
462 , p6_a19 out nocopy VARCHAR2
463 , p6_a20 out nocopy VARCHAR2
464 , p6_a21 out nocopy VARCHAR2
465 , p6_a22 out nocopy VARCHAR2
466 , p6_a23 out nocopy VARCHAR2
467 , p6_a24 out nocopy VARCHAR2
468 , p6_a25 out nocopy VARCHAR2
469 , p6_a26 out nocopy VARCHAR2
470 , p6_a27 out nocopy VARCHAR2
471 , p6_a28 out nocopy VARCHAR2
472 , p6_a29 out nocopy VARCHAR2
473 , p6_a30 out nocopy VARCHAR2
474 , p6_a31 out nocopy VARCHAR2
475 , p6_a32 out nocopy VARCHAR2
476 , p6_a33 out nocopy VARCHAR2
477 , p6_a34 out nocopy NUMBER
478 , p6_a35 out nocopy VARCHAR2
479 , p6_a36 out nocopy VARCHAR2
480 , p6_a37 out nocopy NUMBER
481 , p6_a38 out nocopy NUMBER
482 , p7_a0 NUMBER
483 , p7_a1 NUMBER
484 , p7_a2 VARCHAR2
485 , p7_a3 DATE
486 , p7_a4 DATE
487 , p7_a5 NUMBER
488 , p7_a6 NUMBER
489 , p7_a7 NUMBER
490 , p7_a8 NUMBER
491 , p7_a9 VARCHAR2
492 , p7_a10 NUMBER
493 , p7_a11 NUMBER
494 , p7_a12 NUMBER
495 , p7_a13 NUMBER
496 , p7_a14 NUMBER
497 , p7_a15 VARCHAR2
498 , p7_a16 NUMBER
499 , p7_a17 DATE
500 , p7_a18 NUMBER
501 , p7_a19 DATE
502 , p7_a20 NUMBER
503 , p7_a21 VARCHAR2
504 , p7_a22 VARCHAR2
505 , p7_a23 VARCHAR2
506 , p7_a24 VARCHAR2
507 , p7_a25 VARCHAR2
508 , p7_a26 VARCHAR2
509 , p7_a27 VARCHAR2
510 , p7_a28 VARCHAR2
511 , p7_a29 VARCHAR2
512 , p7_a30 VARCHAR2
513 , p7_a31 VARCHAR2
514 , p7_a32 VARCHAR2
515 , p7_a33 VARCHAR2
516 , p7_a34 VARCHAR2
517 , p7_a35 VARCHAR2
518 , p7_a36 VARCHAR2
519 , p7_a37 NUMBER
520 , p8_a0 out nocopy NUMBER
521 , p8_a1 out nocopy NUMBER
522 , p8_a2 out nocopy VARCHAR2
523 , p8_a3 out nocopy DATE
524 , p8_a4 out nocopy DATE
525 , p8_a5 out nocopy NUMBER
526 , p8_a6 out nocopy NUMBER
527 , p8_a7 out nocopy NUMBER
528 , p8_a8 out nocopy NUMBER
529 , p8_a9 out nocopy VARCHAR2
530 , p8_a10 out nocopy NUMBER
531 , p8_a11 out nocopy NUMBER
532 , p8_a12 out nocopy NUMBER
533 , p8_a13 out nocopy NUMBER
534 , p8_a14 out nocopy NUMBER
535 , p8_a15 out nocopy VARCHAR2
536 , p8_a16 out nocopy NUMBER
537 , p8_a17 out nocopy DATE
538 , p8_a18 out nocopy NUMBER
539 , p8_a19 out nocopy DATE
540 , p8_a20 out nocopy NUMBER
541 , p8_a21 out nocopy VARCHAR2
542 , p8_a22 out nocopy VARCHAR2
543 , p8_a23 out nocopy VARCHAR2
544 , p8_a24 out nocopy VARCHAR2
545 , p8_a25 out nocopy VARCHAR2
546 , p8_a26 out nocopy VARCHAR2
547 , p8_a27 out nocopy VARCHAR2
548 , p8_a28 out nocopy VARCHAR2
549 , p8_a29 out nocopy VARCHAR2
550 , p8_a30 out nocopy VARCHAR2
551 , p8_a31 out nocopy VARCHAR2
552 , p8_a32 out nocopy VARCHAR2
553 , p8_a33 out nocopy VARCHAR2
554 , p8_a34 out nocopy VARCHAR2
555 , p8_a35 out nocopy VARCHAR2
556 , p8_a36 out nocopy VARCHAR2
557 , p8_a37 out nocopy NUMBER
558 )
559
560 as
561 ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
562 ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
563 ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
564 ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_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_lrtv_rec.id := p5_a0;
575 ddp_lrtv_rec.object_version_number := p5_a1;
576 ddp_lrtv_rec.sfwt_flag := p5_a2;
577 ddp_lrtv_rec.try_id := p5_a3;
578 ddp_lrtv_rec.pdt_id := p5_a4;
579 ddp_lrtv_rec.rate := p5_a5;
580 ddp_lrtv_rec.frq_code := p5_a6;
581 ddp_lrtv_rec.arrears_yn := p5_a7;
582 ddp_lrtv_rec.start_date := p5_a8;
583 ddp_lrtv_rec.end_date := p5_a9;
584 ddp_lrtv_rec.name := p5_a10;
585 ddp_lrtv_rec.description := p5_a11;
586 ddp_lrtv_rec.created_by := p5_a12;
587 ddp_lrtv_rec.creation_date := p5_a13;
588 ddp_lrtv_rec.last_updated_by := p5_a14;
589 ddp_lrtv_rec.last_update_date := p5_a15;
590 ddp_lrtv_rec.last_update_login := p5_a16;
591 ddp_lrtv_rec.attribute_category := p5_a17;
592 ddp_lrtv_rec.attribute1 := p5_a18;
593 ddp_lrtv_rec.attribute2 := p5_a19;
594 ddp_lrtv_rec.attribute3 := p5_a20;
595 ddp_lrtv_rec.attribute4 := p5_a21;
596 ddp_lrtv_rec.attribute5 := p5_a22;
597 ddp_lrtv_rec.attribute6 := p5_a23;
598 ddp_lrtv_rec.attribute7 := p5_a24;
599 ddp_lrtv_rec.attribute8 := p5_a25;
600 ddp_lrtv_rec.attribute9 := p5_a26;
601 ddp_lrtv_rec.attribute10 := p5_a27;
602 ddp_lrtv_rec.attribute11 := p5_a28;
603 ddp_lrtv_rec.attribute12 := p5_a29;
604 ddp_lrtv_rec.attribute13 := p5_a30;
605 ddp_lrtv_rec.attribute14 := p5_a31;
606 ddp_lrtv_rec.attribute15 := p5_a32;
607 ddp_lrtv_rec.sts_code := p5_a33;
608 ddp_lrtv_rec.org_id := p5_a34;
609 ddp_lrtv_rec.currency_code := p5_a35;
610 ddp_lrtv_rec.lrs_type_code := p5_a36;
611 ddp_lrtv_rec.end_of_term_id := p5_a37;
612 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
613
614
615 ddp_lrvv_rec.rate_set_version_id := p7_a0;
616 ddp_lrvv_rec.object_version_number := p7_a1;
617 ddp_lrvv_rec.arrears_yn := p7_a2;
618 ddp_lrvv_rec.effective_from_date := p7_a3;
619 ddp_lrvv_rec.effective_to_date := p7_a4;
620 ddp_lrvv_rec.rate_set_id := p7_a5;
621 ddp_lrvv_rec.end_of_term_ver_id := p7_a6;
622 ddp_lrvv_rec.std_rate_tmpl_ver_id := p7_a7;
623 ddp_lrvv_rec.adj_mat_version_id := p7_a8;
624 ddp_lrvv_rec.version_number := p7_a9;
625 ddp_lrvv_rec.lrs_rate := p7_a10;
626 ddp_lrvv_rec.rate_tolerance := p7_a11;
627 ddp_lrvv_rec.residual_tolerance := p7_a12;
628 ddp_lrvv_rec.deferred_pmts := p7_a13;
629 ddp_lrvv_rec.advance_pmts := p7_a14;
630 ddp_lrvv_rec.sts_code := p7_a15;
631 ddp_lrvv_rec.created_by := p7_a16;
632 ddp_lrvv_rec.creation_date := p7_a17;
633 ddp_lrvv_rec.last_updated_by := p7_a18;
634 ddp_lrvv_rec.last_update_date := p7_a19;
635 ddp_lrvv_rec.last_update_login := p7_a20;
636 ddp_lrvv_rec.attribute_category := p7_a21;
637 ddp_lrvv_rec.attribute1 := p7_a22;
638 ddp_lrvv_rec.attribute2 := p7_a23;
639 ddp_lrvv_rec.attribute3 := p7_a24;
640 ddp_lrvv_rec.attribute4 := p7_a25;
641 ddp_lrvv_rec.attribute5 := p7_a26;
642 ddp_lrvv_rec.attribute6 := p7_a27;
643 ddp_lrvv_rec.attribute7 := p7_a28;
644 ddp_lrvv_rec.attribute8 := p7_a29;
645 ddp_lrvv_rec.attribute9 := p7_a30;
646 ddp_lrvv_rec.attribute10 := p7_a31;
647 ddp_lrvv_rec.attribute11 := p7_a32;
648 ddp_lrvv_rec.attribute12 := p7_a33;
649 ddp_lrvv_rec.attribute13 := p7_a34;
650 ddp_lrvv_rec.attribute14 := p7_a35;
651 ddp_lrvv_rec.attribute15 := p7_a36;
652 ddp_lrvv_rec.standard_rate := p7_a37;
653
654
655 -- here's the delegated call to the old PL/SQL routine
656 okl_lease_rate_sets_pvt.update_lease_rate_set(p_api_version,
657 p_init_msg_list,
658 x_return_status,
659 x_msg_count,
660 x_msg_data,
661 ddp_lrtv_rec,
662 ddx_lrtv_rec,
663 ddp_lrvv_rec,
664 ddx_lrvv_rec);
665
666 -- copy data back from the local variables to OUT or IN-OUT args, if any
667
668
669
670
671
672
673 p6_a0 := ddx_lrtv_rec.id;
674 p6_a1 := ddx_lrtv_rec.object_version_number;
675 p6_a2 := ddx_lrtv_rec.sfwt_flag;
676 p6_a3 := ddx_lrtv_rec.try_id;
677 p6_a4 := ddx_lrtv_rec.pdt_id;
678 p6_a5 := ddx_lrtv_rec.rate;
679 p6_a6 := ddx_lrtv_rec.frq_code;
680 p6_a7 := ddx_lrtv_rec.arrears_yn;
681 p6_a8 := ddx_lrtv_rec.start_date;
682 p6_a9 := ddx_lrtv_rec.end_date;
683 p6_a10 := ddx_lrtv_rec.name;
684 p6_a11 := ddx_lrtv_rec.description;
685 p6_a12 := ddx_lrtv_rec.created_by;
686 p6_a13 := ddx_lrtv_rec.creation_date;
687 p6_a14 := ddx_lrtv_rec.last_updated_by;
688 p6_a15 := ddx_lrtv_rec.last_update_date;
689 p6_a16 := ddx_lrtv_rec.last_update_login;
690 p6_a17 := ddx_lrtv_rec.attribute_category;
691 p6_a18 := ddx_lrtv_rec.attribute1;
692 p6_a19 := ddx_lrtv_rec.attribute2;
693 p6_a20 := ddx_lrtv_rec.attribute3;
694 p6_a21 := ddx_lrtv_rec.attribute4;
695 p6_a22 := ddx_lrtv_rec.attribute5;
696 p6_a23 := ddx_lrtv_rec.attribute6;
697 p6_a24 := ddx_lrtv_rec.attribute7;
698 p6_a25 := ddx_lrtv_rec.attribute8;
699 p6_a26 := ddx_lrtv_rec.attribute9;
700 p6_a27 := ddx_lrtv_rec.attribute10;
701 p6_a28 := ddx_lrtv_rec.attribute11;
702 p6_a29 := ddx_lrtv_rec.attribute12;
703 p6_a30 := ddx_lrtv_rec.attribute13;
704 p6_a31 := ddx_lrtv_rec.attribute14;
705 p6_a32 := ddx_lrtv_rec.attribute15;
706 p6_a33 := ddx_lrtv_rec.sts_code;
707 p6_a34 := ddx_lrtv_rec.org_id;
708 p6_a35 := ddx_lrtv_rec.currency_code;
709 p6_a36 := ddx_lrtv_rec.lrs_type_code;
710 p6_a37 := ddx_lrtv_rec.end_of_term_id;
711 p6_a38 := ddx_lrtv_rec.orig_rate_set_id;
712
713
714 p8_a0 := ddx_lrvv_rec.rate_set_version_id;
715 p8_a1 := ddx_lrvv_rec.object_version_number;
716 p8_a2 := ddx_lrvv_rec.arrears_yn;
717 p8_a3 := ddx_lrvv_rec.effective_from_date;
718 p8_a4 := ddx_lrvv_rec.effective_to_date;
719 p8_a5 := ddx_lrvv_rec.rate_set_id;
720 p8_a6 := ddx_lrvv_rec.end_of_term_ver_id;
721 p8_a7 := ddx_lrvv_rec.std_rate_tmpl_ver_id;
722 p8_a8 := ddx_lrvv_rec.adj_mat_version_id;
723 p8_a9 := ddx_lrvv_rec.version_number;
724 p8_a10 := ddx_lrvv_rec.lrs_rate;
725 p8_a11 := ddx_lrvv_rec.rate_tolerance;
726 p8_a12 := ddx_lrvv_rec.residual_tolerance;
727 p8_a13 := ddx_lrvv_rec.deferred_pmts;
728 p8_a14 := ddx_lrvv_rec.advance_pmts;
729 p8_a15 := ddx_lrvv_rec.sts_code;
730 p8_a16 := ddx_lrvv_rec.created_by;
731 p8_a17 := ddx_lrvv_rec.creation_date;
732 p8_a18 := ddx_lrvv_rec.last_updated_by;
733 p8_a19 := ddx_lrvv_rec.last_update_date;
734 p8_a20 := ddx_lrvv_rec.last_update_login;
735 p8_a21 := ddx_lrvv_rec.attribute_category;
736 p8_a22 := ddx_lrvv_rec.attribute1;
737 p8_a23 := ddx_lrvv_rec.attribute2;
738 p8_a24 := ddx_lrvv_rec.attribute3;
739 p8_a25 := ddx_lrvv_rec.attribute4;
740 p8_a26 := ddx_lrvv_rec.attribute5;
741 p8_a27 := ddx_lrvv_rec.attribute6;
742 p8_a28 := ddx_lrvv_rec.attribute7;
743 p8_a29 := ddx_lrvv_rec.attribute8;
744 p8_a30 := ddx_lrvv_rec.attribute9;
745 p8_a31 := ddx_lrvv_rec.attribute10;
746 p8_a32 := ddx_lrvv_rec.attribute11;
747 p8_a33 := ddx_lrvv_rec.attribute12;
748 p8_a34 := ddx_lrvv_rec.attribute13;
749 p8_a35 := ddx_lrvv_rec.attribute14;
750 p8_a36 := ddx_lrvv_rec.attribute15;
751 p8_a37 := ddx_lrvv_rec.standard_rate;
752 end;
753
754 procedure version_lease_rate_set(p_api_version NUMBER
755 , p_init_msg_list VARCHAR2
756 , x_return_status out nocopy VARCHAR2
757 , x_msg_count out nocopy NUMBER
758 , x_msg_data out nocopy VARCHAR2
759 , p5_a0 NUMBER
760 , p5_a1 NUMBER
761 , p5_a2 VARCHAR2
762 , p5_a3 NUMBER
763 , p5_a4 NUMBER
764 , p5_a5 NUMBER
765 , p5_a6 VARCHAR2
766 , p5_a7 VARCHAR2
767 , p5_a8 DATE
768 , p5_a9 DATE
769 , p5_a10 VARCHAR2
770 , p5_a11 VARCHAR2
771 , p5_a12 NUMBER
772 , p5_a13 DATE
773 , p5_a14 NUMBER
774 , p5_a15 DATE
775 , p5_a16 NUMBER
776 , p5_a17 VARCHAR2
777 , p5_a18 VARCHAR2
778 , p5_a19 VARCHAR2
779 , p5_a20 VARCHAR2
780 , p5_a21 VARCHAR2
781 , p5_a22 VARCHAR2
782 , p5_a23 VARCHAR2
783 , p5_a24 VARCHAR2
784 , p5_a25 VARCHAR2
785 , p5_a26 VARCHAR2
786 , p5_a27 VARCHAR2
787 , p5_a28 VARCHAR2
788 , p5_a29 VARCHAR2
789 , p5_a30 VARCHAR2
790 , p5_a31 VARCHAR2
791 , p5_a32 VARCHAR2
792 , p5_a33 VARCHAR2
793 , p5_a34 NUMBER
794 , p5_a35 VARCHAR2
795 , p5_a36 VARCHAR2
796 , p5_a37 NUMBER
797 , p5_a38 NUMBER
798 , p6_a0 out nocopy NUMBER
799 , p6_a1 out nocopy NUMBER
800 , p6_a2 out nocopy VARCHAR2
801 , p6_a3 out nocopy NUMBER
802 , p6_a4 out nocopy NUMBER
803 , p6_a5 out nocopy NUMBER
804 , p6_a6 out nocopy VARCHAR2
805 , p6_a7 out nocopy VARCHAR2
806 , p6_a8 out nocopy DATE
807 , p6_a9 out nocopy DATE
808 , p6_a10 out nocopy VARCHAR2
809 , p6_a11 out nocopy VARCHAR2
810 , p6_a12 out nocopy NUMBER
811 , p6_a13 out nocopy DATE
812 , p6_a14 out nocopy NUMBER
813 , p6_a15 out nocopy DATE
814 , p6_a16 out nocopy NUMBER
815 , p6_a17 out nocopy VARCHAR2
816 , p6_a18 out nocopy VARCHAR2
817 , p6_a19 out nocopy VARCHAR2
818 , p6_a20 out nocopy VARCHAR2
819 , p6_a21 out nocopy VARCHAR2
820 , p6_a22 out nocopy VARCHAR2
821 , p6_a23 out nocopy VARCHAR2
822 , p6_a24 out nocopy VARCHAR2
823 , p6_a25 out nocopy VARCHAR2
824 , p6_a26 out nocopy VARCHAR2
825 , p6_a27 out nocopy VARCHAR2
826 , p6_a28 out nocopy VARCHAR2
827 , p6_a29 out nocopy VARCHAR2
828 , p6_a30 out nocopy VARCHAR2
829 , p6_a31 out nocopy VARCHAR2
830 , p6_a32 out nocopy VARCHAR2
831 , p6_a33 out nocopy VARCHAR2
832 , p6_a34 out nocopy NUMBER
833 , p6_a35 out nocopy VARCHAR2
834 , p6_a36 out nocopy VARCHAR2
835 , p6_a37 out nocopy NUMBER
836 , p6_a38 out nocopy NUMBER
837 , p7_a0 NUMBER
838 , p7_a1 NUMBER
839 , p7_a2 VARCHAR2
840 , p7_a3 DATE
841 , p7_a4 DATE
842 , p7_a5 NUMBER
843 , p7_a6 NUMBER
844 , p7_a7 NUMBER
845 , p7_a8 NUMBER
846 , p7_a9 VARCHAR2
847 , p7_a10 NUMBER
848 , p7_a11 NUMBER
849 , p7_a12 NUMBER
850 , p7_a13 NUMBER
851 , p7_a14 NUMBER
852 , p7_a15 VARCHAR2
853 , p7_a16 NUMBER
854 , p7_a17 DATE
855 , p7_a18 NUMBER
856 , p7_a19 DATE
857 , p7_a20 NUMBER
858 , p7_a21 VARCHAR2
859 , p7_a22 VARCHAR2
860 , p7_a23 VARCHAR2
861 , p7_a24 VARCHAR2
862 , p7_a25 VARCHAR2
863 , p7_a26 VARCHAR2
864 , p7_a27 VARCHAR2
865 , p7_a28 VARCHAR2
866 , p7_a29 VARCHAR2
867 , p7_a30 VARCHAR2
868 , p7_a31 VARCHAR2
869 , p7_a32 VARCHAR2
870 , p7_a33 VARCHAR2
871 , p7_a34 VARCHAR2
872 , p7_a35 VARCHAR2
873 , p7_a36 VARCHAR2
874 , p7_a37 NUMBER
875 , p8_a0 out nocopy NUMBER
876 , p8_a1 out nocopy NUMBER
877 , p8_a2 out nocopy VARCHAR2
878 , p8_a3 out nocopy DATE
879 , p8_a4 out nocopy DATE
880 , p8_a5 out nocopy NUMBER
881 , p8_a6 out nocopy NUMBER
882 , p8_a7 out nocopy NUMBER
883 , p8_a8 out nocopy NUMBER
884 , p8_a9 out nocopy VARCHAR2
885 , p8_a10 out nocopy NUMBER
886 , p8_a11 out nocopy NUMBER
887 , p8_a12 out nocopy NUMBER
888 , p8_a13 out nocopy NUMBER
889 , p8_a14 out nocopy NUMBER
890 , p8_a15 out nocopy VARCHAR2
891 , p8_a16 out nocopy NUMBER
892 , p8_a17 out nocopy DATE
893 , p8_a18 out nocopy NUMBER
894 , p8_a19 out nocopy DATE
895 , p8_a20 out nocopy NUMBER
896 , p8_a21 out nocopy VARCHAR2
897 , p8_a22 out nocopy VARCHAR2
898 , p8_a23 out nocopy VARCHAR2
899 , p8_a24 out nocopy VARCHAR2
900 , p8_a25 out nocopy VARCHAR2
901 , p8_a26 out nocopy VARCHAR2
902 , p8_a27 out nocopy VARCHAR2
903 , p8_a28 out nocopy VARCHAR2
904 , p8_a29 out nocopy VARCHAR2
905 , p8_a30 out nocopy VARCHAR2
906 , p8_a31 out nocopy VARCHAR2
907 , p8_a32 out nocopy VARCHAR2
908 , p8_a33 out nocopy VARCHAR2
909 , p8_a34 out nocopy VARCHAR2
910 , p8_a35 out nocopy VARCHAR2
911 , p8_a36 out nocopy VARCHAR2
912 , p8_a37 out nocopy NUMBER
913 )
914
915 as
916 ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
917 ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
918 ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
919 ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
920 ddindx binary_integer; indx binary_integer;
921 begin
922
923 -- copy data to the local IN or IN-OUT args, if any
924
925
926
927
928
929 ddp_lrtv_rec.id := p5_a0;
930 ddp_lrtv_rec.object_version_number := p5_a1;
931 ddp_lrtv_rec.sfwt_flag := p5_a2;
932 ddp_lrtv_rec.try_id := p5_a3;
933 ddp_lrtv_rec.pdt_id := p5_a4;
934 ddp_lrtv_rec.rate := p5_a5;
935 ddp_lrtv_rec.frq_code := p5_a6;
936 ddp_lrtv_rec.arrears_yn := p5_a7;
937 ddp_lrtv_rec.start_date := p5_a8;
938 ddp_lrtv_rec.end_date := p5_a9;
939 ddp_lrtv_rec.name := p5_a10;
940 ddp_lrtv_rec.description := p5_a11;
941 ddp_lrtv_rec.created_by := p5_a12;
942 ddp_lrtv_rec.creation_date := p5_a13;
943 ddp_lrtv_rec.last_updated_by := p5_a14;
944 ddp_lrtv_rec.last_update_date := p5_a15;
945 ddp_lrtv_rec.last_update_login := p5_a16;
946 ddp_lrtv_rec.attribute_category := p5_a17;
947 ddp_lrtv_rec.attribute1 := p5_a18;
948 ddp_lrtv_rec.attribute2 := p5_a19;
949 ddp_lrtv_rec.attribute3 := p5_a20;
950 ddp_lrtv_rec.attribute4 := p5_a21;
951 ddp_lrtv_rec.attribute5 := p5_a22;
952 ddp_lrtv_rec.attribute6 := p5_a23;
953 ddp_lrtv_rec.attribute7 := p5_a24;
954 ddp_lrtv_rec.attribute8 := p5_a25;
955 ddp_lrtv_rec.attribute9 := p5_a26;
956 ddp_lrtv_rec.attribute10 := p5_a27;
957 ddp_lrtv_rec.attribute11 := p5_a28;
958 ddp_lrtv_rec.attribute12 := p5_a29;
959 ddp_lrtv_rec.attribute13 := p5_a30;
960 ddp_lrtv_rec.attribute14 := p5_a31;
961 ddp_lrtv_rec.attribute15 := p5_a32;
962 ddp_lrtv_rec.sts_code := p5_a33;
963 ddp_lrtv_rec.org_id := p5_a34;
964 ddp_lrtv_rec.currency_code := p5_a35;
965 ddp_lrtv_rec.lrs_type_code := p5_a36;
966 ddp_lrtv_rec.end_of_term_id := p5_a37;
967 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
968
969
970 ddp_lrvv_rec.rate_set_version_id := p7_a0;
971 ddp_lrvv_rec.object_version_number := p7_a1;
972 ddp_lrvv_rec.arrears_yn := p7_a2;
973 ddp_lrvv_rec.effective_from_date := p7_a3;
974 ddp_lrvv_rec.effective_to_date := p7_a4;
975 ddp_lrvv_rec.rate_set_id := p7_a5;
976 ddp_lrvv_rec.end_of_term_ver_id := p7_a6;
977 ddp_lrvv_rec.std_rate_tmpl_ver_id := p7_a7;
978 ddp_lrvv_rec.adj_mat_version_id := p7_a8;
979 ddp_lrvv_rec.version_number := p7_a9;
980 ddp_lrvv_rec.lrs_rate := p7_a10;
981 ddp_lrvv_rec.rate_tolerance := p7_a11;
982 ddp_lrvv_rec.residual_tolerance := p7_a12;
983 ddp_lrvv_rec.deferred_pmts := p7_a13;
984 ddp_lrvv_rec.advance_pmts := p7_a14;
985 ddp_lrvv_rec.sts_code := p7_a15;
986 ddp_lrvv_rec.created_by := p7_a16;
987 ddp_lrvv_rec.creation_date := p7_a17;
988 ddp_lrvv_rec.last_updated_by := p7_a18;
989 ddp_lrvv_rec.last_update_date := p7_a19;
990 ddp_lrvv_rec.last_update_login := p7_a20;
991 ddp_lrvv_rec.attribute_category := p7_a21;
992 ddp_lrvv_rec.attribute1 := p7_a22;
993 ddp_lrvv_rec.attribute2 := p7_a23;
994 ddp_lrvv_rec.attribute3 := p7_a24;
995 ddp_lrvv_rec.attribute4 := p7_a25;
996 ddp_lrvv_rec.attribute5 := p7_a26;
997 ddp_lrvv_rec.attribute6 := p7_a27;
998 ddp_lrvv_rec.attribute7 := p7_a28;
999 ddp_lrvv_rec.attribute8 := p7_a29;
1000 ddp_lrvv_rec.attribute9 := p7_a30;
1001 ddp_lrvv_rec.attribute10 := p7_a31;
1002 ddp_lrvv_rec.attribute11 := p7_a32;
1003 ddp_lrvv_rec.attribute12 := p7_a33;
1004 ddp_lrvv_rec.attribute13 := p7_a34;
1005 ddp_lrvv_rec.attribute14 := p7_a35;
1006 ddp_lrvv_rec.attribute15 := p7_a36;
1007 ddp_lrvv_rec.standard_rate := p7_a37;
1008
1009
1010 -- here's the delegated call to the old PL/SQL routine
1011 okl_lease_rate_sets_pvt.version_lease_rate_set(p_api_version,
1012 p_init_msg_list,
1013 x_return_status,
1014 x_msg_count,
1015 x_msg_data,
1016 ddp_lrtv_rec,
1017 ddx_lrtv_rec,
1018 ddp_lrvv_rec,
1019 ddx_lrvv_rec);
1020
1021 -- copy data back from the local variables to OUT or IN-OUT args, if any
1022
1023
1024
1025
1026
1027
1028 p6_a0 := ddx_lrtv_rec.id;
1029 p6_a1 := ddx_lrtv_rec.object_version_number;
1030 p6_a2 := ddx_lrtv_rec.sfwt_flag;
1031 p6_a3 := ddx_lrtv_rec.try_id;
1032 p6_a4 := ddx_lrtv_rec.pdt_id;
1033 p6_a5 := ddx_lrtv_rec.rate;
1034 p6_a6 := ddx_lrtv_rec.frq_code;
1035 p6_a7 := ddx_lrtv_rec.arrears_yn;
1036 p6_a8 := ddx_lrtv_rec.start_date;
1037 p6_a9 := ddx_lrtv_rec.end_date;
1038 p6_a10 := ddx_lrtv_rec.name;
1039 p6_a11 := ddx_lrtv_rec.description;
1040 p6_a12 := ddx_lrtv_rec.created_by;
1041 p6_a13 := ddx_lrtv_rec.creation_date;
1042 p6_a14 := ddx_lrtv_rec.last_updated_by;
1043 p6_a15 := ddx_lrtv_rec.last_update_date;
1044 p6_a16 := ddx_lrtv_rec.last_update_login;
1045 p6_a17 := ddx_lrtv_rec.attribute_category;
1046 p6_a18 := ddx_lrtv_rec.attribute1;
1047 p6_a19 := ddx_lrtv_rec.attribute2;
1048 p6_a20 := ddx_lrtv_rec.attribute3;
1049 p6_a21 := ddx_lrtv_rec.attribute4;
1050 p6_a22 := ddx_lrtv_rec.attribute5;
1051 p6_a23 := ddx_lrtv_rec.attribute6;
1052 p6_a24 := ddx_lrtv_rec.attribute7;
1053 p6_a25 := ddx_lrtv_rec.attribute8;
1054 p6_a26 := ddx_lrtv_rec.attribute9;
1055 p6_a27 := ddx_lrtv_rec.attribute10;
1056 p6_a28 := ddx_lrtv_rec.attribute11;
1057 p6_a29 := ddx_lrtv_rec.attribute12;
1058 p6_a30 := ddx_lrtv_rec.attribute13;
1059 p6_a31 := ddx_lrtv_rec.attribute14;
1060 p6_a32 := ddx_lrtv_rec.attribute15;
1061 p6_a33 := ddx_lrtv_rec.sts_code;
1062 p6_a34 := ddx_lrtv_rec.org_id;
1063 p6_a35 := ddx_lrtv_rec.currency_code;
1064 p6_a36 := ddx_lrtv_rec.lrs_type_code;
1065 p6_a37 := ddx_lrtv_rec.end_of_term_id;
1066 p6_a38 := ddx_lrtv_rec.orig_rate_set_id;
1067
1068
1069 p8_a0 := ddx_lrvv_rec.rate_set_version_id;
1070 p8_a1 := ddx_lrvv_rec.object_version_number;
1071 p8_a2 := ddx_lrvv_rec.arrears_yn;
1072 p8_a3 := ddx_lrvv_rec.effective_from_date;
1073 p8_a4 := ddx_lrvv_rec.effective_to_date;
1074 p8_a5 := ddx_lrvv_rec.rate_set_id;
1075 p8_a6 := ddx_lrvv_rec.end_of_term_ver_id;
1076 p8_a7 := ddx_lrvv_rec.std_rate_tmpl_ver_id;
1077 p8_a8 := ddx_lrvv_rec.adj_mat_version_id;
1078 p8_a9 := ddx_lrvv_rec.version_number;
1079 p8_a10 := ddx_lrvv_rec.lrs_rate;
1080 p8_a11 := ddx_lrvv_rec.rate_tolerance;
1081 p8_a12 := ddx_lrvv_rec.residual_tolerance;
1082 p8_a13 := ddx_lrvv_rec.deferred_pmts;
1083 p8_a14 := ddx_lrvv_rec.advance_pmts;
1084 p8_a15 := ddx_lrvv_rec.sts_code;
1085 p8_a16 := ddx_lrvv_rec.created_by;
1086 p8_a17 := ddx_lrvv_rec.creation_date;
1087 p8_a18 := ddx_lrvv_rec.last_updated_by;
1088 p8_a19 := ddx_lrvv_rec.last_update_date;
1089 p8_a20 := ddx_lrvv_rec.last_update_login;
1090 p8_a21 := ddx_lrvv_rec.attribute_category;
1091 p8_a22 := ddx_lrvv_rec.attribute1;
1092 p8_a23 := ddx_lrvv_rec.attribute2;
1093 p8_a24 := ddx_lrvv_rec.attribute3;
1094 p8_a25 := ddx_lrvv_rec.attribute4;
1095 p8_a26 := ddx_lrvv_rec.attribute5;
1096 p8_a27 := ddx_lrvv_rec.attribute6;
1097 p8_a28 := ddx_lrvv_rec.attribute7;
1098 p8_a29 := ddx_lrvv_rec.attribute8;
1099 p8_a30 := ddx_lrvv_rec.attribute9;
1100 p8_a31 := ddx_lrvv_rec.attribute10;
1101 p8_a32 := ddx_lrvv_rec.attribute11;
1102 p8_a33 := ddx_lrvv_rec.attribute12;
1103 p8_a34 := ddx_lrvv_rec.attribute13;
1104 p8_a35 := ddx_lrvv_rec.attribute14;
1105 p8_a36 := ddx_lrvv_rec.attribute15;
1106 p8_a37 := ddx_lrvv_rec.standard_rate;
1107 end;
1108
1109 procedure create_lrs_gen_lrf(p_api_version NUMBER
1110 , p_init_msg_list VARCHAR2
1111 , x_return_status out nocopy VARCHAR2
1112 , x_msg_count out nocopy NUMBER
1113 , x_msg_data out nocopy VARCHAR2
1114 , p5_a0 NUMBER
1115 , p5_a1 NUMBER
1116 , p5_a2 VARCHAR2
1117 , p5_a3 NUMBER
1118 , p5_a4 NUMBER
1119 , p5_a5 NUMBER
1120 , p5_a6 VARCHAR2
1121 , p5_a7 VARCHAR2
1122 , p5_a8 DATE
1123 , p5_a9 DATE
1124 , p5_a10 VARCHAR2
1125 , p5_a11 VARCHAR2
1126 , p5_a12 NUMBER
1127 , p5_a13 DATE
1128 , p5_a14 NUMBER
1129 , p5_a15 DATE
1130 , p5_a16 NUMBER
1131 , p5_a17 VARCHAR2
1132 , p5_a18 VARCHAR2
1133 , p5_a19 VARCHAR2
1134 , p5_a20 VARCHAR2
1135 , p5_a21 VARCHAR2
1136 , p5_a22 VARCHAR2
1137 , p5_a23 VARCHAR2
1138 , p5_a24 VARCHAR2
1139 , p5_a25 VARCHAR2
1140 , p5_a26 VARCHAR2
1141 , p5_a27 VARCHAR2
1142 , p5_a28 VARCHAR2
1143 , p5_a29 VARCHAR2
1144 , p5_a30 VARCHAR2
1145 , p5_a31 VARCHAR2
1146 , p5_a32 VARCHAR2
1147 , p5_a33 VARCHAR2
1148 , p5_a34 NUMBER
1149 , p5_a35 VARCHAR2
1150 , p5_a36 VARCHAR2
1151 , p5_a37 NUMBER
1152 , p5_a38 NUMBER
1153 , p6_a0 out nocopy NUMBER
1154 , p6_a1 out nocopy NUMBER
1155 , p6_a2 out nocopy VARCHAR2
1156 , p6_a3 out nocopy NUMBER
1157 , p6_a4 out nocopy NUMBER
1158 , p6_a5 out nocopy NUMBER
1159 , p6_a6 out nocopy VARCHAR2
1160 , p6_a7 out nocopy VARCHAR2
1161 , p6_a8 out nocopy DATE
1162 , p6_a9 out nocopy DATE
1163 , p6_a10 out nocopy VARCHAR2
1164 , p6_a11 out nocopy VARCHAR2
1165 , p6_a12 out nocopy NUMBER
1166 , p6_a13 out nocopy DATE
1167 , p6_a14 out nocopy NUMBER
1168 , p6_a15 out nocopy DATE
1169 , p6_a16 out nocopy NUMBER
1170 , p6_a17 out nocopy VARCHAR2
1171 , p6_a18 out nocopy VARCHAR2
1172 , p6_a19 out nocopy VARCHAR2
1173 , p6_a20 out nocopy VARCHAR2
1174 , p6_a21 out nocopy VARCHAR2
1175 , p6_a22 out nocopy VARCHAR2
1176 , p6_a23 out nocopy VARCHAR2
1177 , p6_a24 out nocopy VARCHAR2
1178 , p6_a25 out nocopy VARCHAR2
1179 , p6_a26 out nocopy VARCHAR2
1180 , p6_a27 out nocopy VARCHAR2
1181 , p6_a28 out nocopy VARCHAR2
1182 , p6_a29 out nocopy VARCHAR2
1183 , p6_a30 out nocopy VARCHAR2
1184 , p6_a31 out nocopy VARCHAR2
1185 , p6_a32 out nocopy VARCHAR2
1186 , p6_a33 out nocopy VARCHAR2
1187 , p6_a34 out nocopy NUMBER
1188 , p6_a35 out nocopy VARCHAR2
1189 , p6_a36 out nocopy VARCHAR2
1190 , p6_a37 out nocopy NUMBER
1191 , p6_a38 out nocopy NUMBER
1192 , p7_a0 NUMBER
1193 , p7_a1 NUMBER
1194 , p7_a2 VARCHAR2
1195 , p7_a3 DATE
1196 , p7_a4 DATE
1197 , p7_a5 NUMBER
1198 , p7_a6 NUMBER
1199 , p7_a7 NUMBER
1200 , p7_a8 NUMBER
1201 , p7_a9 VARCHAR2
1202 , p7_a10 NUMBER
1203 , p7_a11 NUMBER
1204 , p7_a12 NUMBER
1205 , p7_a13 NUMBER
1206 , p7_a14 NUMBER
1207 , p7_a15 VARCHAR2
1208 , p7_a16 NUMBER
1209 , p7_a17 DATE
1210 , p7_a18 NUMBER
1211 , p7_a19 DATE
1212 , p7_a20 NUMBER
1213 , p7_a21 VARCHAR2
1214 , p7_a22 VARCHAR2
1215 , p7_a23 VARCHAR2
1216 , p7_a24 VARCHAR2
1217 , p7_a25 VARCHAR2
1218 , p7_a26 VARCHAR2
1219 , p7_a27 VARCHAR2
1220 , p7_a28 VARCHAR2
1221 , p7_a29 VARCHAR2
1222 , p7_a30 VARCHAR2
1223 , p7_a31 VARCHAR2
1224 , p7_a32 VARCHAR2
1225 , p7_a33 VARCHAR2
1226 , p7_a34 VARCHAR2
1227 , p7_a35 VARCHAR2
1228 , p7_a36 VARCHAR2
1229 , p7_a37 NUMBER
1230 , p8_a0 out nocopy NUMBER
1231 , p8_a1 out nocopy NUMBER
1232 , p8_a2 out nocopy VARCHAR2
1233 , p8_a3 out nocopy DATE
1234 , p8_a4 out nocopy DATE
1235 , p8_a5 out nocopy NUMBER
1236 , p8_a6 out nocopy NUMBER
1237 , p8_a7 out nocopy NUMBER
1238 , p8_a8 out nocopy NUMBER
1239 , p8_a9 out nocopy VARCHAR2
1240 , p8_a10 out nocopy NUMBER
1241 , p8_a11 out nocopy NUMBER
1242 , p8_a12 out nocopy NUMBER
1243 , p8_a13 out nocopy NUMBER
1244 , p8_a14 out nocopy NUMBER
1245 , p8_a15 out nocopy VARCHAR2
1246 , p8_a16 out nocopy NUMBER
1247 , p8_a17 out nocopy DATE
1248 , p8_a18 out nocopy NUMBER
1249 , p8_a19 out nocopy DATE
1250 , p8_a20 out nocopy NUMBER
1251 , p8_a21 out nocopy VARCHAR2
1252 , p8_a22 out nocopy VARCHAR2
1253 , p8_a23 out nocopy VARCHAR2
1254 , p8_a24 out nocopy VARCHAR2
1255 , p8_a25 out nocopy VARCHAR2
1256 , p8_a26 out nocopy VARCHAR2
1257 , p8_a27 out nocopy VARCHAR2
1258 , p8_a28 out nocopy VARCHAR2
1259 , p8_a29 out nocopy VARCHAR2
1260 , p8_a30 out nocopy VARCHAR2
1261 , p8_a31 out nocopy VARCHAR2
1262 , p8_a32 out nocopy VARCHAR2
1263 , p8_a33 out nocopy VARCHAR2
1264 , p8_a34 out nocopy VARCHAR2
1265 , p8_a35 out nocopy VARCHAR2
1266 , p8_a36 out nocopy VARCHAR2
1267 , p8_a37 out nocopy NUMBER
1268 )
1269
1270 as
1271 ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1272 ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1273 ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1274 ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1275 ddindx binary_integer; indx binary_integer;
1276 begin
1277
1278 -- copy data to the local IN or IN-OUT args, if any
1279
1280
1281
1282
1283
1284 ddp_lrtv_rec.id := p5_a0;
1285 ddp_lrtv_rec.object_version_number := p5_a1;
1286 ddp_lrtv_rec.sfwt_flag := p5_a2;
1287 ddp_lrtv_rec.try_id := p5_a3;
1288 ddp_lrtv_rec.pdt_id := p5_a4;
1289 ddp_lrtv_rec.rate := p5_a5;
1290 ddp_lrtv_rec.frq_code := p5_a6;
1291 ddp_lrtv_rec.arrears_yn := p5_a7;
1292 ddp_lrtv_rec.start_date := p5_a8;
1293 ddp_lrtv_rec.end_date := p5_a9;
1294 ddp_lrtv_rec.name := p5_a10;
1295 ddp_lrtv_rec.description := p5_a11;
1296 ddp_lrtv_rec.created_by := p5_a12;
1297 ddp_lrtv_rec.creation_date := p5_a13;
1298 ddp_lrtv_rec.last_updated_by := p5_a14;
1299 ddp_lrtv_rec.last_update_date := p5_a15;
1300 ddp_lrtv_rec.last_update_login := p5_a16;
1301 ddp_lrtv_rec.attribute_category := p5_a17;
1302 ddp_lrtv_rec.attribute1 := p5_a18;
1303 ddp_lrtv_rec.attribute2 := p5_a19;
1304 ddp_lrtv_rec.attribute3 := p5_a20;
1305 ddp_lrtv_rec.attribute4 := p5_a21;
1306 ddp_lrtv_rec.attribute5 := p5_a22;
1307 ddp_lrtv_rec.attribute6 := p5_a23;
1308 ddp_lrtv_rec.attribute7 := p5_a24;
1309 ddp_lrtv_rec.attribute8 := p5_a25;
1310 ddp_lrtv_rec.attribute9 := p5_a26;
1311 ddp_lrtv_rec.attribute10 := p5_a27;
1312 ddp_lrtv_rec.attribute11 := p5_a28;
1313 ddp_lrtv_rec.attribute12 := p5_a29;
1314 ddp_lrtv_rec.attribute13 := p5_a30;
1315 ddp_lrtv_rec.attribute14 := p5_a31;
1316 ddp_lrtv_rec.attribute15 := p5_a32;
1317 ddp_lrtv_rec.sts_code := p5_a33;
1318 ddp_lrtv_rec.org_id := p5_a34;
1319 ddp_lrtv_rec.currency_code := p5_a35;
1320 ddp_lrtv_rec.lrs_type_code := p5_a36;
1321 ddp_lrtv_rec.end_of_term_id := p5_a37;
1322 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
1323
1324
1325 ddp_lrvv_rec.rate_set_version_id := p7_a0;
1326 ddp_lrvv_rec.object_version_number := p7_a1;
1327 ddp_lrvv_rec.arrears_yn := p7_a2;
1328 ddp_lrvv_rec.effective_from_date := p7_a3;
1329 ddp_lrvv_rec.effective_to_date := p7_a4;
1330 ddp_lrvv_rec.rate_set_id := p7_a5;
1331 ddp_lrvv_rec.end_of_term_ver_id := p7_a6;
1332 ddp_lrvv_rec.std_rate_tmpl_ver_id := p7_a7;
1333 ddp_lrvv_rec.adj_mat_version_id := p7_a8;
1334 ddp_lrvv_rec.version_number := p7_a9;
1335 ddp_lrvv_rec.lrs_rate := p7_a10;
1336 ddp_lrvv_rec.rate_tolerance := p7_a11;
1337 ddp_lrvv_rec.residual_tolerance := p7_a12;
1338 ddp_lrvv_rec.deferred_pmts := p7_a13;
1339 ddp_lrvv_rec.advance_pmts := p7_a14;
1340 ddp_lrvv_rec.sts_code := p7_a15;
1341 ddp_lrvv_rec.created_by := p7_a16;
1342 ddp_lrvv_rec.creation_date := p7_a17;
1343 ddp_lrvv_rec.last_updated_by := p7_a18;
1344 ddp_lrvv_rec.last_update_date := p7_a19;
1345 ddp_lrvv_rec.last_update_login := p7_a20;
1346 ddp_lrvv_rec.attribute_category := p7_a21;
1347 ddp_lrvv_rec.attribute1 := p7_a22;
1348 ddp_lrvv_rec.attribute2 := p7_a23;
1349 ddp_lrvv_rec.attribute3 := p7_a24;
1350 ddp_lrvv_rec.attribute4 := p7_a25;
1351 ddp_lrvv_rec.attribute5 := p7_a26;
1352 ddp_lrvv_rec.attribute6 := p7_a27;
1353 ddp_lrvv_rec.attribute7 := p7_a28;
1354 ddp_lrvv_rec.attribute8 := p7_a29;
1355 ddp_lrvv_rec.attribute9 := p7_a30;
1356 ddp_lrvv_rec.attribute10 := p7_a31;
1357 ddp_lrvv_rec.attribute11 := p7_a32;
1358 ddp_lrvv_rec.attribute12 := p7_a33;
1359 ddp_lrvv_rec.attribute13 := p7_a34;
1360 ddp_lrvv_rec.attribute14 := p7_a35;
1361 ddp_lrvv_rec.attribute15 := p7_a36;
1362 ddp_lrvv_rec.standard_rate := p7_a37;
1363
1364
1365 -- here's the delegated call to the old PL/SQL routine
1366 okl_lease_rate_sets_pvt.create_lrs_gen_lrf(p_api_version,
1367 p_init_msg_list,
1368 x_return_status,
1369 x_msg_count,
1370 x_msg_data,
1371 ddp_lrtv_rec,
1372 ddx_lrtv_rec,
1373 ddp_lrvv_rec,
1374 ddx_lrvv_rec);
1375
1376 -- copy data back from the local variables to OUT or IN-OUT args, if any
1377
1378
1379
1380
1381
1382
1383 p6_a0 := ddx_lrtv_rec.id;
1384 p6_a1 := ddx_lrtv_rec.object_version_number;
1385 p6_a2 := ddx_lrtv_rec.sfwt_flag;
1386 p6_a3 := ddx_lrtv_rec.try_id;
1387 p6_a4 := ddx_lrtv_rec.pdt_id;
1388 p6_a5 := ddx_lrtv_rec.rate;
1389 p6_a6 := ddx_lrtv_rec.frq_code;
1390 p6_a7 := ddx_lrtv_rec.arrears_yn;
1391 p6_a8 := ddx_lrtv_rec.start_date;
1392 p6_a9 := ddx_lrtv_rec.end_date;
1393 p6_a10 := ddx_lrtv_rec.name;
1394 p6_a11 := ddx_lrtv_rec.description;
1395 p6_a12 := ddx_lrtv_rec.created_by;
1396 p6_a13 := ddx_lrtv_rec.creation_date;
1397 p6_a14 := ddx_lrtv_rec.last_updated_by;
1398 p6_a15 := ddx_lrtv_rec.last_update_date;
1399 p6_a16 := ddx_lrtv_rec.last_update_login;
1400 p6_a17 := ddx_lrtv_rec.attribute_category;
1401 p6_a18 := ddx_lrtv_rec.attribute1;
1402 p6_a19 := ddx_lrtv_rec.attribute2;
1403 p6_a20 := ddx_lrtv_rec.attribute3;
1404 p6_a21 := ddx_lrtv_rec.attribute4;
1405 p6_a22 := ddx_lrtv_rec.attribute5;
1406 p6_a23 := ddx_lrtv_rec.attribute6;
1407 p6_a24 := ddx_lrtv_rec.attribute7;
1408 p6_a25 := ddx_lrtv_rec.attribute8;
1409 p6_a26 := ddx_lrtv_rec.attribute9;
1410 p6_a27 := ddx_lrtv_rec.attribute10;
1411 p6_a28 := ddx_lrtv_rec.attribute11;
1412 p6_a29 := ddx_lrtv_rec.attribute12;
1413 p6_a30 := ddx_lrtv_rec.attribute13;
1414 p6_a31 := ddx_lrtv_rec.attribute14;
1415 p6_a32 := ddx_lrtv_rec.attribute15;
1416 p6_a33 := ddx_lrtv_rec.sts_code;
1417 p6_a34 := ddx_lrtv_rec.org_id;
1418 p6_a35 := ddx_lrtv_rec.currency_code;
1419 p6_a36 := ddx_lrtv_rec.lrs_type_code;
1420 p6_a37 := ddx_lrtv_rec.end_of_term_id;
1421 p6_a38 := ddx_lrtv_rec.orig_rate_set_id;
1422
1423
1424 p8_a0 := ddx_lrvv_rec.rate_set_version_id;
1425 p8_a1 := ddx_lrvv_rec.object_version_number;
1426 p8_a2 := ddx_lrvv_rec.arrears_yn;
1427 p8_a3 := ddx_lrvv_rec.effective_from_date;
1428 p8_a4 := ddx_lrvv_rec.effective_to_date;
1429 p8_a5 := ddx_lrvv_rec.rate_set_id;
1430 p8_a6 := ddx_lrvv_rec.end_of_term_ver_id;
1431 p8_a7 := ddx_lrvv_rec.std_rate_tmpl_ver_id;
1432 p8_a8 := ddx_lrvv_rec.adj_mat_version_id;
1433 p8_a9 := ddx_lrvv_rec.version_number;
1434 p8_a10 := ddx_lrvv_rec.lrs_rate;
1435 p8_a11 := ddx_lrvv_rec.rate_tolerance;
1436 p8_a12 := ddx_lrvv_rec.residual_tolerance;
1437 p8_a13 := ddx_lrvv_rec.deferred_pmts;
1438 p8_a14 := ddx_lrvv_rec.advance_pmts;
1439 p8_a15 := ddx_lrvv_rec.sts_code;
1440 p8_a16 := ddx_lrvv_rec.created_by;
1441 p8_a17 := ddx_lrvv_rec.creation_date;
1442 p8_a18 := ddx_lrvv_rec.last_updated_by;
1443 p8_a19 := ddx_lrvv_rec.last_update_date;
1444 p8_a20 := ddx_lrvv_rec.last_update_login;
1445 p8_a21 := ddx_lrvv_rec.attribute_category;
1446 p8_a22 := ddx_lrvv_rec.attribute1;
1447 p8_a23 := ddx_lrvv_rec.attribute2;
1448 p8_a24 := ddx_lrvv_rec.attribute3;
1449 p8_a25 := ddx_lrvv_rec.attribute4;
1450 p8_a26 := ddx_lrvv_rec.attribute5;
1451 p8_a27 := ddx_lrvv_rec.attribute6;
1452 p8_a28 := ddx_lrvv_rec.attribute7;
1453 p8_a29 := ddx_lrvv_rec.attribute8;
1454 p8_a30 := ddx_lrvv_rec.attribute9;
1455 p8_a31 := ddx_lrvv_rec.attribute10;
1456 p8_a32 := ddx_lrvv_rec.attribute11;
1457 p8_a33 := ddx_lrvv_rec.attribute12;
1458 p8_a34 := ddx_lrvv_rec.attribute13;
1459 p8_a35 := ddx_lrvv_rec.attribute14;
1460 p8_a36 := ddx_lrvv_rec.attribute15;
1461 p8_a37 := ddx_lrvv_rec.standard_rate;
1462 end;
1463
1464 procedure update_lrs_gen_lrf(p_api_version NUMBER
1465 , p_init_msg_list VARCHAR2
1466 , x_return_status out nocopy VARCHAR2
1467 , x_msg_count out nocopy NUMBER
1468 , x_msg_data out nocopy VARCHAR2
1469 , p5_a0 NUMBER
1470 , p5_a1 NUMBER
1471 , p5_a2 VARCHAR2
1472 , p5_a3 NUMBER
1473 , p5_a4 NUMBER
1474 , p5_a5 NUMBER
1475 , p5_a6 VARCHAR2
1476 , p5_a7 VARCHAR2
1477 , p5_a8 DATE
1478 , p5_a9 DATE
1479 , p5_a10 VARCHAR2
1480 , p5_a11 VARCHAR2
1481 , p5_a12 NUMBER
1482 , p5_a13 DATE
1483 , p5_a14 NUMBER
1484 , p5_a15 DATE
1485 , p5_a16 NUMBER
1486 , p5_a17 VARCHAR2
1487 , p5_a18 VARCHAR2
1488 , p5_a19 VARCHAR2
1489 , p5_a20 VARCHAR2
1490 , p5_a21 VARCHAR2
1491 , p5_a22 VARCHAR2
1492 , p5_a23 VARCHAR2
1493 , p5_a24 VARCHAR2
1494 , p5_a25 VARCHAR2
1495 , p5_a26 VARCHAR2
1496 , p5_a27 VARCHAR2
1497 , p5_a28 VARCHAR2
1498 , p5_a29 VARCHAR2
1499 , p5_a30 VARCHAR2
1500 , p5_a31 VARCHAR2
1501 , p5_a32 VARCHAR2
1502 , p5_a33 VARCHAR2
1503 , p5_a34 NUMBER
1504 , p5_a35 VARCHAR2
1505 , p5_a36 VARCHAR2
1506 , p5_a37 NUMBER
1507 , p5_a38 NUMBER
1508 , p6_a0 out nocopy NUMBER
1509 , p6_a1 out nocopy NUMBER
1510 , p6_a2 out nocopy VARCHAR2
1511 , p6_a3 out nocopy NUMBER
1512 , p6_a4 out nocopy NUMBER
1513 , p6_a5 out nocopy NUMBER
1514 , p6_a6 out nocopy VARCHAR2
1515 , p6_a7 out nocopy VARCHAR2
1516 , p6_a8 out nocopy DATE
1517 , p6_a9 out nocopy DATE
1518 , p6_a10 out nocopy VARCHAR2
1519 , p6_a11 out nocopy VARCHAR2
1520 , p6_a12 out nocopy NUMBER
1521 , p6_a13 out nocopy DATE
1522 , p6_a14 out nocopy NUMBER
1523 , p6_a15 out nocopy DATE
1524 , p6_a16 out nocopy NUMBER
1525 , p6_a17 out nocopy VARCHAR2
1526 , p6_a18 out nocopy VARCHAR2
1527 , p6_a19 out nocopy VARCHAR2
1528 , p6_a20 out nocopy VARCHAR2
1529 , p6_a21 out nocopy VARCHAR2
1530 , p6_a22 out nocopy VARCHAR2
1531 , p6_a23 out nocopy VARCHAR2
1532 , p6_a24 out nocopy VARCHAR2
1533 , p6_a25 out nocopy VARCHAR2
1534 , p6_a26 out nocopy VARCHAR2
1535 , p6_a27 out nocopy VARCHAR2
1536 , p6_a28 out nocopy VARCHAR2
1537 , p6_a29 out nocopy VARCHAR2
1538 , p6_a30 out nocopy VARCHAR2
1539 , p6_a31 out nocopy VARCHAR2
1540 , p6_a32 out nocopy VARCHAR2
1541 , p6_a33 out nocopy VARCHAR2
1542 , p6_a34 out nocopy NUMBER
1543 , p6_a35 out nocopy VARCHAR2
1544 , p6_a36 out nocopy VARCHAR2
1545 , p6_a37 out nocopy NUMBER
1546 , p6_a38 out nocopy NUMBER
1547 , p7_a0 NUMBER
1548 , p7_a1 NUMBER
1549 , p7_a2 VARCHAR2
1550 , p7_a3 DATE
1551 , p7_a4 DATE
1552 , p7_a5 NUMBER
1553 , p7_a6 NUMBER
1554 , p7_a7 NUMBER
1555 , p7_a8 NUMBER
1556 , p7_a9 VARCHAR2
1557 , p7_a10 NUMBER
1558 , p7_a11 NUMBER
1559 , p7_a12 NUMBER
1560 , p7_a13 NUMBER
1561 , p7_a14 NUMBER
1562 , p7_a15 VARCHAR2
1563 , p7_a16 NUMBER
1564 , p7_a17 DATE
1565 , p7_a18 NUMBER
1566 , p7_a19 DATE
1567 , p7_a20 NUMBER
1568 , p7_a21 VARCHAR2
1569 , p7_a22 VARCHAR2
1570 , p7_a23 VARCHAR2
1571 , p7_a24 VARCHAR2
1572 , p7_a25 VARCHAR2
1573 , p7_a26 VARCHAR2
1574 , p7_a27 VARCHAR2
1575 , p7_a28 VARCHAR2
1576 , p7_a29 VARCHAR2
1577 , p7_a30 VARCHAR2
1578 , p7_a31 VARCHAR2
1579 , p7_a32 VARCHAR2
1580 , p7_a33 VARCHAR2
1581 , p7_a34 VARCHAR2
1582 , p7_a35 VARCHAR2
1583 , p7_a36 VARCHAR2
1584 , p7_a37 NUMBER
1585 , p8_a0 out nocopy NUMBER
1586 , p8_a1 out nocopy NUMBER
1587 , p8_a2 out nocopy VARCHAR2
1588 , p8_a3 out nocopy DATE
1589 , p8_a4 out nocopy DATE
1590 , p8_a5 out nocopy NUMBER
1591 , p8_a6 out nocopy NUMBER
1592 , p8_a7 out nocopy NUMBER
1593 , p8_a8 out nocopy NUMBER
1594 , p8_a9 out nocopy VARCHAR2
1595 , p8_a10 out nocopy NUMBER
1596 , p8_a11 out nocopy NUMBER
1597 , p8_a12 out nocopy NUMBER
1598 , p8_a13 out nocopy NUMBER
1599 , p8_a14 out nocopy NUMBER
1600 , p8_a15 out nocopy VARCHAR2
1601 , p8_a16 out nocopy NUMBER
1602 , p8_a17 out nocopy DATE
1603 , p8_a18 out nocopy NUMBER
1604 , p8_a19 out nocopy DATE
1605 , p8_a20 out nocopy NUMBER
1606 , p8_a21 out nocopy VARCHAR2
1607 , p8_a22 out nocopy VARCHAR2
1608 , p8_a23 out nocopy VARCHAR2
1609 , p8_a24 out nocopy VARCHAR2
1610 , p8_a25 out nocopy VARCHAR2
1611 , p8_a26 out nocopy VARCHAR2
1612 , p8_a27 out nocopy VARCHAR2
1613 , p8_a28 out nocopy VARCHAR2
1614 , p8_a29 out nocopy VARCHAR2
1615 , p8_a30 out nocopy VARCHAR2
1616 , p8_a31 out nocopy VARCHAR2
1617 , p8_a32 out nocopy VARCHAR2
1618 , p8_a33 out nocopy VARCHAR2
1619 , p8_a34 out nocopy VARCHAR2
1620 , p8_a35 out nocopy VARCHAR2
1621 , p8_a36 out nocopy VARCHAR2
1622 , p8_a37 out nocopy NUMBER
1623 )
1624
1625 as
1626 ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1627 ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1628 ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1629 ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1630 ddindx binary_integer; indx binary_integer;
1631 begin
1632
1633 -- copy data to the local IN or IN-OUT args, if any
1634
1635
1636
1637
1638
1639 ddp_lrtv_rec.id := p5_a0;
1640 ddp_lrtv_rec.object_version_number := p5_a1;
1641 ddp_lrtv_rec.sfwt_flag := p5_a2;
1642 ddp_lrtv_rec.try_id := p5_a3;
1643 ddp_lrtv_rec.pdt_id := p5_a4;
1644 ddp_lrtv_rec.rate := p5_a5;
1645 ddp_lrtv_rec.frq_code := p5_a6;
1646 ddp_lrtv_rec.arrears_yn := p5_a7;
1647 ddp_lrtv_rec.start_date := p5_a8;
1648 ddp_lrtv_rec.end_date := p5_a9;
1649 ddp_lrtv_rec.name := p5_a10;
1650 ddp_lrtv_rec.description := p5_a11;
1651 ddp_lrtv_rec.created_by := p5_a12;
1652 ddp_lrtv_rec.creation_date := p5_a13;
1653 ddp_lrtv_rec.last_updated_by := p5_a14;
1654 ddp_lrtv_rec.last_update_date := p5_a15;
1655 ddp_lrtv_rec.last_update_login := p5_a16;
1656 ddp_lrtv_rec.attribute_category := p5_a17;
1657 ddp_lrtv_rec.attribute1 := p5_a18;
1658 ddp_lrtv_rec.attribute2 := p5_a19;
1659 ddp_lrtv_rec.attribute3 := p5_a20;
1660 ddp_lrtv_rec.attribute4 := p5_a21;
1661 ddp_lrtv_rec.attribute5 := p5_a22;
1662 ddp_lrtv_rec.attribute6 := p5_a23;
1663 ddp_lrtv_rec.attribute7 := p5_a24;
1664 ddp_lrtv_rec.attribute8 := p5_a25;
1665 ddp_lrtv_rec.attribute9 := p5_a26;
1666 ddp_lrtv_rec.attribute10 := p5_a27;
1667 ddp_lrtv_rec.attribute11 := p5_a28;
1668 ddp_lrtv_rec.attribute12 := p5_a29;
1669 ddp_lrtv_rec.attribute13 := p5_a30;
1670 ddp_lrtv_rec.attribute14 := p5_a31;
1671 ddp_lrtv_rec.attribute15 := p5_a32;
1672 ddp_lrtv_rec.sts_code := p5_a33;
1673 ddp_lrtv_rec.org_id := p5_a34;
1674 ddp_lrtv_rec.currency_code := p5_a35;
1675 ddp_lrtv_rec.lrs_type_code := p5_a36;
1676 ddp_lrtv_rec.end_of_term_id := p5_a37;
1677 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
1678
1679
1680 ddp_lrvv_rec.rate_set_version_id := p7_a0;
1681 ddp_lrvv_rec.object_version_number := p7_a1;
1682 ddp_lrvv_rec.arrears_yn := p7_a2;
1683 ddp_lrvv_rec.effective_from_date := p7_a3;
1684 ddp_lrvv_rec.effective_to_date := p7_a4;
1685 ddp_lrvv_rec.rate_set_id := p7_a5;
1686 ddp_lrvv_rec.end_of_term_ver_id := p7_a6;
1687 ddp_lrvv_rec.std_rate_tmpl_ver_id := p7_a7;
1688 ddp_lrvv_rec.adj_mat_version_id := p7_a8;
1689 ddp_lrvv_rec.version_number := p7_a9;
1690 ddp_lrvv_rec.lrs_rate := p7_a10;
1691 ddp_lrvv_rec.rate_tolerance := p7_a11;
1692 ddp_lrvv_rec.residual_tolerance := p7_a12;
1693 ddp_lrvv_rec.deferred_pmts := p7_a13;
1694 ddp_lrvv_rec.advance_pmts := p7_a14;
1695 ddp_lrvv_rec.sts_code := p7_a15;
1696 ddp_lrvv_rec.created_by := p7_a16;
1697 ddp_lrvv_rec.creation_date := p7_a17;
1698 ddp_lrvv_rec.last_updated_by := p7_a18;
1699 ddp_lrvv_rec.last_update_date := p7_a19;
1700 ddp_lrvv_rec.last_update_login := p7_a20;
1701 ddp_lrvv_rec.attribute_category := p7_a21;
1702 ddp_lrvv_rec.attribute1 := p7_a22;
1703 ddp_lrvv_rec.attribute2 := p7_a23;
1704 ddp_lrvv_rec.attribute3 := p7_a24;
1705 ddp_lrvv_rec.attribute4 := p7_a25;
1706 ddp_lrvv_rec.attribute5 := p7_a26;
1707 ddp_lrvv_rec.attribute6 := p7_a27;
1708 ddp_lrvv_rec.attribute7 := p7_a28;
1709 ddp_lrvv_rec.attribute8 := p7_a29;
1710 ddp_lrvv_rec.attribute9 := p7_a30;
1711 ddp_lrvv_rec.attribute10 := p7_a31;
1712 ddp_lrvv_rec.attribute11 := p7_a32;
1713 ddp_lrvv_rec.attribute12 := p7_a33;
1714 ddp_lrvv_rec.attribute13 := p7_a34;
1715 ddp_lrvv_rec.attribute14 := p7_a35;
1716 ddp_lrvv_rec.attribute15 := p7_a36;
1717 ddp_lrvv_rec.standard_rate := p7_a37;
1718
1719
1720 -- here's the delegated call to the old PL/SQL routine
1721 okl_lease_rate_sets_pvt.update_lrs_gen_lrf(p_api_version,
1722 p_init_msg_list,
1723 x_return_status,
1724 x_msg_count,
1725 x_msg_data,
1726 ddp_lrtv_rec,
1727 ddx_lrtv_rec,
1728 ddp_lrvv_rec,
1729 ddx_lrvv_rec);
1730
1731 -- copy data back from the local variables to OUT or IN-OUT args, if any
1732
1733
1734
1735
1736
1737
1738 p6_a0 := ddx_lrtv_rec.id;
1739 p6_a1 := ddx_lrtv_rec.object_version_number;
1740 p6_a2 := ddx_lrtv_rec.sfwt_flag;
1741 p6_a3 := ddx_lrtv_rec.try_id;
1742 p6_a4 := ddx_lrtv_rec.pdt_id;
1743 p6_a5 := ddx_lrtv_rec.rate;
1744 p6_a6 := ddx_lrtv_rec.frq_code;
1745 p6_a7 := ddx_lrtv_rec.arrears_yn;
1746 p6_a8 := ddx_lrtv_rec.start_date;
1747 p6_a9 := ddx_lrtv_rec.end_date;
1748 p6_a10 := ddx_lrtv_rec.name;
1749 p6_a11 := ddx_lrtv_rec.description;
1750 p6_a12 := ddx_lrtv_rec.created_by;
1751 p6_a13 := ddx_lrtv_rec.creation_date;
1752 p6_a14 := ddx_lrtv_rec.last_updated_by;
1753 p6_a15 := ddx_lrtv_rec.last_update_date;
1754 p6_a16 := ddx_lrtv_rec.last_update_login;
1755 p6_a17 := ddx_lrtv_rec.attribute_category;
1756 p6_a18 := ddx_lrtv_rec.attribute1;
1757 p6_a19 := ddx_lrtv_rec.attribute2;
1758 p6_a20 := ddx_lrtv_rec.attribute3;
1759 p6_a21 := ddx_lrtv_rec.attribute4;
1760 p6_a22 := ddx_lrtv_rec.attribute5;
1761 p6_a23 := ddx_lrtv_rec.attribute6;
1762 p6_a24 := ddx_lrtv_rec.attribute7;
1763 p6_a25 := ddx_lrtv_rec.attribute8;
1764 p6_a26 := ddx_lrtv_rec.attribute9;
1765 p6_a27 := ddx_lrtv_rec.attribute10;
1766 p6_a28 := ddx_lrtv_rec.attribute11;
1767 p6_a29 := ddx_lrtv_rec.attribute12;
1768 p6_a30 := ddx_lrtv_rec.attribute13;
1769 p6_a31 := ddx_lrtv_rec.attribute14;
1770 p6_a32 := ddx_lrtv_rec.attribute15;
1771 p6_a33 := ddx_lrtv_rec.sts_code;
1772 p6_a34 := ddx_lrtv_rec.org_id;
1773 p6_a35 := ddx_lrtv_rec.currency_code;
1774 p6_a36 := ddx_lrtv_rec.lrs_type_code;
1775 p6_a37 := ddx_lrtv_rec.end_of_term_id;
1776 p6_a38 := ddx_lrtv_rec.orig_rate_set_id;
1777
1778
1779 p8_a0 := ddx_lrvv_rec.rate_set_version_id;
1780 p8_a1 := ddx_lrvv_rec.object_version_number;
1781 p8_a2 := ddx_lrvv_rec.arrears_yn;
1782 p8_a3 := ddx_lrvv_rec.effective_from_date;
1783 p8_a4 := ddx_lrvv_rec.effective_to_date;
1784 p8_a5 := ddx_lrvv_rec.rate_set_id;
1785 p8_a6 := ddx_lrvv_rec.end_of_term_ver_id;
1786 p8_a7 := ddx_lrvv_rec.std_rate_tmpl_ver_id;
1787 p8_a8 := ddx_lrvv_rec.adj_mat_version_id;
1788 p8_a9 := ddx_lrvv_rec.version_number;
1789 p8_a10 := ddx_lrvv_rec.lrs_rate;
1790 p8_a11 := ddx_lrvv_rec.rate_tolerance;
1791 p8_a12 := ddx_lrvv_rec.residual_tolerance;
1792 p8_a13 := ddx_lrvv_rec.deferred_pmts;
1793 p8_a14 := ddx_lrvv_rec.advance_pmts;
1794 p8_a15 := ddx_lrvv_rec.sts_code;
1795 p8_a16 := ddx_lrvv_rec.created_by;
1796 p8_a17 := ddx_lrvv_rec.creation_date;
1797 p8_a18 := ddx_lrvv_rec.last_updated_by;
1798 p8_a19 := ddx_lrvv_rec.last_update_date;
1799 p8_a20 := ddx_lrvv_rec.last_update_login;
1800 p8_a21 := ddx_lrvv_rec.attribute_category;
1801 p8_a22 := ddx_lrvv_rec.attribute1;
1802 p8_a23 := ddx_lrvv_rec.attribute2;
1803 p8_a24 := ddx_lrvv_rec.attribute3;
1804 p8_a25 := ddx_lrvv_rec.attribute4;
1805 p8_a26 := ddx_lrvv_rec.attribute5;
1806 p8_a27 := ddx_lrvv_rec.attribute6;
1807 p8_a28 := ddx_lrvv_rec.attribute7;
1808 p8_a29 := ddx_lrvv_rec.attribute8;
1809 p8_a30 := ddx_lrvv_rec.attribute9;
1810 p8_a31 := ddx_lrvv_rec.attribute10;
1811 p8_a32 := ddx_lrvv_rec.attribute11;
1812 p8_a33 := ddx_lrvv_rec.attribute12;
1813 p8_a34 := ddx_lrvv_rec.attribute13;
1814 p8_a35 := ddx_lrvv_rec.attribute14;
1815 p8_a36 := ddx_lrvv_rec.attribute15;
1816 p8_a37 := ddx_lrvv_rec.standard_rate;
1817 end;
1818
1819 procedure version_lrs_gen_lrf(p_api_version NUMBER
1820 , p_init_msg_list VARCHAR2
1821 , x_return_status out nocopy VARCHAR2
1822 , x_msg_count out nocopy NUMBER
1823 , x_msg_data out nocopy VARCHAR2
1824 , p5_a0 NUMBER
1825 , p5_a1 NUMBER
1826 , p5_a2 VARCHAR2
1827 , p5_a3 NUMBER
1828 , p5_a4 NUMBER
1829 , p5_a5 NUMBER
1830 , p5_a6 VARCHAR2
1831 , p5_a7 VARCHAR2
1832 , p5_a8 DATE
1833 , p5_a9 DATE
1834 , p5_a10 VARCHAR2
1835 , p5_a11 VARCHAR2
1836 , p5_a12 NUMBER
1837 , p5_a13 DATE
1838 , p5_a14 NUMBER
1839 , p5_a15 DATE
1840 , p5_a16 NUMBER
1841 , p5_a17 VARCHAR2
1842 , p5_a18 VARCHAR2
1843 , p5_a19 VARCHAR2
1844 , p5_a20 VARCHAR2
1845 , p5_a21 VARCHAR2
1846 , p5_a22 VARCHAR2
1847 , p5_a23 VARCHAR2
1848 , p5_a24 VARCHAR2
1849 , p5_a25 VARCHAR2
1850 , p5_a26 VARCHAR2
1851 , p5_a27 VARCHAR2
1852 , p5_a28 VARCHAR2
1853 , p5_a29 VARCHAR2
1854 , p5_a30 VARCHAR2
1855 , p5_a31 VARCHAR2
1856 , p5_a32 VARCHAR2
1857 , p5_a33 VARCHAR2
1858 , p5_a34 NUMBER
1859 , p5_a35 VARCHAR2
1860 , p5_a36 VARCHAR2
1861 , p5_a37 NUMBER
1862 , p5_a38 NUMBER
1863 , p6_a0 out nocopy NUMBER
1864 , p6_a1 out nocopy NUMBER
1865 , p6_a2 out nocopy VARCHAR2
1866 , p6_a3 out nocopy NUMBER
1867 , p6_a4 out nocopy NUMBER
1868 , p6_a5 out nocopy NUMBER
1869 , p6_a6 out nocopy VARCHAR2
1870 , p6_a7 out nocopy VARCHAR2
1871 , p6_a8 out nocopy DATE
1872 , p6_a9 out nocopy DATE
1873 , p6_a10 out nocopy VARCHAR2
1874 , p6_a11 out nocopy VARCHAR2
1875 , p6_a12 out nocopy NUMBER
1876 , p6_a13 out nocopy DATE
1877 , p6_a14 out nocopy NUMBER
1878 , p6_a15 out nocopy DATE
1879 , p6_a16 out nocopy NUMBER
1880 , p6_a17 out nocopy VARCHAR2
1881 , p6_a18 out nocopy VARCHAR2
1882 , p6_a19 out nocopy VARCHAR2
1883 , p6_a20 out nocopy VARCHAR2
1884 , p6_a21 out nocopy VARCHAR2
1885 , p6_a22 out nocopy VARCHAR2
1886 , p6_a23 out nocopy VARCHAR2
1887 , p6_a24 out nocopy VARCHAR2
1888 , p6_a25 out nocopy VARCHAR2
1889 , p6_a26 out nocopy VARCHAR2
1890 , p6_a27 out nocopy VARCHAR2
1891 , p6_a28 out nocopy VARCHAR2
1892 , p6_a29 out nocopy VARCHAR2
1893 , p6_a30 out nocopy VARCHAR2
1894 , p6_a31 out nocopy VARCHAR2
1895 , p6_a32 out nocopy VARCHAR2
1896 , p6_a33 out nocopy VARCHAR2
1897 , p6_a34 out nocopy NUMBER
1898 , p6_a35 out nocopy VARCHAR2
1899 , p6_a36 out nocopy VARCHAR2
1900 , p6_a37 out nocopy NUMBER
1901 , p6_a38 out nocopy NUMBER
1902 , p7_a0 NUMBER
1903 , p7_a1 NUMBER
1904 , p7_a2 VARCHAR2
1905 , p7_a3 DATE
1906 , p7_a4 DATE
1907 , p7_a5 NUMBER
1908 , p7_a6 NUMBER
1909 , p7_a7 NUMBER
1910 , p7_a8 NUMBER
1911 , p7_a9 VARCHAR2
1912 , p7_a10 NUMBER
1913 , p7_a11 NUMBER
1914 , p7_a12 NUMBER
1915 , p7_a13 NUMBER
1916 , p7_a14 NUMBER
1917 , p7_a15 VARCHAR2
1918 , p7_a16 NUMBER
1919 , p7_a17 DATE
1920 , p7_a18 NUMBER
1921 , p7_a19 DATE
1922 , p7_a20 NUMBER
1923 , p7_a21 VARCHAR2
1924 , p7_a22 VARCHAR2
1925 , p7_a23 VARCHAR2
1926 , p7_a24 VARCHAR2
1927 , p7_a25 VARCHAR2
1928 , p7_a26 VARCHAR2
1929 , p7_a27 VARCHAR2
1930 , p7_a28 VARCHAR2
1931 , p7_a29 VARCHAR2
1932 , p7_a30 VARCHAR2
1933 , p7_a31 VARCHAR2
1934 , p7_a32 VARCHAR2
1935 , p7_a33 VARCHAR2
1936 , p7_a34 VARCHAR2
1937 , p7_a35 VARCHAR2
1938 , p7_a36 VARCHAR2
1939 , p7_a37 NUMBER
1940 , p8_a0 out nocopy NUMBER
1941 , p8_a1 out nocopy NUMBER
1942 , p8_a2 out nocopy VARCHAR2
1943 , p8_a3 out nocopy DATE
1944 , p8_a4 out nocopy DATE
1945 , p8_a5 out nocopy NUMBER
1946 , p8_a6 out nocopy NUMBER
1947 , p8_a7 out nocopy NUMBER
1948 , p8_a8 out nocopy NUMBER
1949 , p8_a9 out nocopy VARCHAR2
1950 , p8_a10 out nocopy NUMBER
1951 , p8_a11 out nocopy NUMBER
1952 , p8_a12 out nocopy NUMBER
1953 , p8_a13 out nocopy NUMBER
1954 , p8_a14 out nocopy NUMBER
1955 , p8_a15 out nocopy VARCHAR2
1956 , p8_a16 out nocopy NUMBER
1957 , p8_a17 out nocopy DATE
1958 , p8_a18 out nocopy NUMBER
1959 , p8_a19 out nocopy DATE
1960 , p8_a20 out nocopy NUMBER
1961 , p8_a21 out nocopy VARCHAR2
1962 , p8_a22 out nocopy VARCHAR2
1963 , p8_a23 out nocopy VARCHAR2
1964 , p8_a24 out nocopy VARCHAR2
1965 , p8_a25 out nocopy VARCHAR2
1966 , p8_a26 out nocopy VARCHAR2
1967 , p8_a27 out nocopy VARCHAR2
1968 , p8_a28 out nocopy VARCHAR2
1969 , p8_a29 out nocopy VARCHAR2
1970 , p8_a30 out nocopy VARCHAR2
1971 , p8_a31 out nocopy VARCHAR2
1972 , p8_a32 out nocopy VARCHAR2
1973 , p8_a33 out nocopy VARCHAR2
1974 , p8_a34 out nocopy VARCHAR2
1975 , p8_a35 out nocopy VARCHAR2
1976 , p8_a36 out nocopy VARCHAR2
1977 , p8_a37 out nocopy NUMBER
1978 )
1979
1980 as
1981 ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1982 ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1983 ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1984 ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1985 ddindx binary_integer; indx binary_integer;
1986 begin
1987
1988 -- copy data to the local IN or IN-OUT args, if any
1989
1990
1991
1992
1993
1994 ddp_lrtv_rec.id := p5_a0;
1995 ddp_lrtv_rec.object_version_number := p5_a1;
1996 ddp_lrtv_rec.sfwt_flag := p5_a2;
1997 ddp_lrtv_rec.try_id := p5_a3;
1998 ddp_lrtv_rec.pdt_id := p5_a4;
1999 ddp_lrtv_rec.rate := p5_a5;
2000 ddp_lrtv_rec.frq_code := p5_a6;
2001 ddp_lrtv_rec.arrears_yn := p5_a7;
2002 ddp_lrtv_rec.start_date := p5_a8;
2003 ddp_lrtv_rec.end_date := p5_a9;
2004 ddp_lrtv_rec.name := p5_a10;
2005 ddp_lrtv_rec.description := p5_a11;
2006 ddp_lrtv_rec.created_by := p5_a12;
2007 ddp_lrtv_rec.creation_date := p5_a13;
2008 ddp_lrtv_rec.last_updated_by := p5_a14;
2009 ddp_lrtv_rec.last_update_date := p5_a15;
2010 ddp_lrtv_rec.last_update_login := p5_a16;
2011 ddp_lrtv_rec.attribute_category := p5_a17;
2012 ddp_lrtv_rec.attribute1 := p5_a18;
2013 ddp_lrtv_rec.attribute2 := p5_a19;
2014 ddp_lrtv_rec.attribute3 := p5_a20;
2015 ddp_lrtv_rec.attribute4 := p5_a21;
2016 ddp_lrtv_rec.attribute5 := p5_a22;
2017 ddp_lrtv_rec.attribute6 := p5_a23;
2018 ddp_lrtv_rec.attribute7 := p5_a24;
2019 ddp_lrtv_rec.attribute8 := p5_a25;
2020 ddp_lrtv_rec.attribute9 := p5_a26;
2021 ddp_lrtv_rec.attribute10 := p5_a27;
2022 ddp_lrtv_rec.attribute11 := p5_a28;
2023 ddp_lrtv_rec.attribute12 := p5_a29;
2024 ddp_lrtv_rec.attribute13 := p5_a30;
2025 ddp_lrtv_rec.attribute14 := p5_a31;
2026 ddp_lrtv_rec.attribute15 := p5_a32;
2027 ddp_lrtv_rec.sts_code := p5_a33;
2028 ddp_lrtv_rec.org_id := p5_a34;
2029 ddp_lrtv_rec.currency_code := p5_a35;
2030 ddp_lrtv_rec.lrs_type_code := p5_a36;
2031 ddp_lrtv_rec.end_of_term_id := p5_a37;
2032 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
2033
2034
2035 ddp_lrvv_rec.rate_set_version_id := p7_a0;
2036 ddp_lrvv_rec.object_version_number := p7_a1;
2037 ddp_lrvv_rec.arrears_yn := p7_a2;
2038 ddp_lrvv_rec.effective_from_date := p7_a3;
2039 ddp_lrvv_rec.effective_to_date := p7_a4;
2040 ddp_lrvv_rec.rate_set_id := p7_a5;
2041 ddp_lrvv_rec.end_of_term_ver_id := p7_a6;
2042 ddp_lrvv_rec.std_rate_tmpl_ver_id := p7_a7;
2043 ddp_lrvv_rec.adj_mat_version_id := p7_a8;
2044 ddp_lrvv_rec.version_number := p7_a9;
2045 ddp_lrvv_rec.lrs_rate := p7_a10;
2046 ddp_lrvv_rec.rate_tolerance := p7_a11;
2047 ddp_lrvv_rec.residual_tolerance := p7_a12;
2048 ddp_lrvv_rec.deferred_pmts := p7_a13;
2049 ddp_lrvv_rec.advance_pmts := p7_a14;
2050 ddp_lrvv_rec.sts_code := p7_a15;
2051 ddp_lrvv_rec.created_by := p7_a16;
2052 ddp_lrvv_rec.creation_date := p7_a17;
2053 ddp_lrvv_rec.last_updated_by := p7_a18;
2054 ddp_lrvv_rec.last_update_date := p7_a19;
2055 ddp_lrvv_rec.last_update_login := p7_a20;
2056 ddp_lrvv_rec.attribute_category := p7_a21;
2057 ddp_lrvv_rec.attribute1 := p7_a22;
2058 ddp_lrvv_rec.attribute2 := p7_a23;
2059 ddp_lrvv_rec.attribute3 := p7_a24;
2060 ddp_lrvv_rec.attribute4 := p7_a25;
2061 ddp_lrvv_rec.attribute5 := p7_a26;
2062 ddp_lrvv_rec.attribute6 := p7_a27;
2063 ddp_lrvv_rec.attribute7 := p7_a28;
2064 ddp_lrvv_rec.attribute8 := p7_a29;
2065 ddp_lrvv_rec.attribute9 := p7_a30;
2066 ddp_lrvv_rec.attribute10 := p7_a31;
2067 ddp_lrvv_rec.attribute11 := p7_a32;
2068 ddp_lrvv_rec.attribute12 := p7_a33;
2069 ddp_lrvv_rec.attribute13 := p7_a34;
2070 ddp_lrvv_rec.attribute14 := p7_a35;
2071 ddp_lrvv_rec.attribute15 := p7_a36;
2072 ddp_lrvv_rec.standard_rate := p7_a37;
2073
2074
2075 -- here's the delegated call to the old PL/SQL routine
2076 okl_lease_rate_sets_pvt.version_lrs_gen_lrf(p_api_version,
2077 p_init_msg_list,
2078 x_return_status,
2079 x_msg_count,
2080 x_msg_data,
2081 ddp_lrtv_rec,
2082 ddx_lrtv_rec,
2083 ddp_lrvv_rec,
2084 ddx_lrvv_rec);
2085
2086 -- copy data back from the local variables to OUT or IN-OUT args, if any
2087
2088
2089
2090
2091
2092
2093 p6_a0 := ddx_lrtv_rec.id;
2094 p6_a1 := ddx_lrtv_rec.object_version_number;
2095 p6_a2 := ddx_lrtv_rec.sfwt_flag;
2096 p6_a3 := ddx_lrtv_rec.try_id;
2097 p6_a4 := ddx_lrtv_rec.pdt_id;
2098 p6_a5 := ddx_lrtv_rec.rate;
2099 p6_a6 := ddx_lrtv_rec.frq_code;
2100 p6_a7 := ddx_lrtv_rec.arrears_yn;
2101 p6_a8 := ddx_lrtv_rec.start_date;
2102 p6_a9 := ddx_lrtv_rec.end_date;
2103 p6_a10 := ddx_lrtv_rec.name;
2104 p6_a11 := ddx_lrtv_rec.description;
2105 p6_a12 := ddx_lrtv_rec.created_by;
2106 p6_a13 := ddx_lrtv_rec.creation_date;
2107 p6_a14 := ddx_lrtv_rec.last_updated_by;
2108 p6_a15 := ddx_lrtv_rec.last_update_date;
2109 p6_a16 := ddx_lrtv_rec.last_update_login;
2110 p6_a17 := ddx_lrtv_rec.attribute_category;
2111 p6_a18 := ddx_lrtv_rec.attribute1;
2112 p6_a19 := ddx_lrtv_rec.attribute2;
2113 p6_a20 := ddx_lrtv_rec.attribute3;
2114 p6_a21 := ddx_lrtv_rec.attribute4;
2115 p6_a22 := ddx_lrtv_rec.attribute5;
2116 p6_a23 := ddx_lrtv_rec.attribute6;
2117 p6_a24 := ddx_lrtv_rec.attribute7;
2118 p6_a25 := ddx_lrtv_rec.attribute8;
2119 p6_a26 := ddx_lrtv_rec.attribute9;
2120 p6_a27 := ddx_lrtv_rec.attribute10;
2121 p6_a28 := ddx_lrtv_rec.attribute11;
2122 p6_a29 := ddx_lrtv_rec.attribute12;
2123 p6_a30 := ddx_lrtv_rec.attribute13;
2124 p6_a31 := ddx_lrtv_rec.attribute14;
2125 p6_a32 := ddx_lrtv_rec.attribute15;
2126 p6_a33 := ddx_lrtv_rec.sts_code;
2127 p6_a34 := ddx_lrtv_rec.org_id;
2128 p6_a35 := ddx_lrtv_rec.currency_code;
2129 p6_a36 := ddx_lrtv_rec.lrs_type_code;
2130 p6_a37 := ddx_lrtv_rec.end_of_term_id;
2131 p6_a38 := ddx_lrtv_rec.orig_rate_set_id;
2132
2133
2134 p8_a0 := ddx_lrvv_rec.rate_set_version_id;
2135 p8_a1 := ddx_lrvv_rec.object_version_number;
2136 p8_a2 := ddx_lrvv_rec.arrears_yn;
2137 p8_a3 := ddx_lrvv_rec.effective_from_date;
2138 p8_a4 := ddx_lrvv_rec.effective_to_date;
2139 p8_a5 := ddx_lrvv_rec.rate_set_id;
2140 p8_a6 := ddx_lrvv_rec.end_of_term_ver_id;
2141 p8_a7 := ddx_lrvv_rec.std_rate_tmpl_ver_id;
2142 p8_a8 := ddx_lrvv_rec.adj_mat_version_id;
2143 p8_a9 := ddx_lrvv_rec.version_number;
2144 p8_a10 := ddx_lrvv_rec.lrs_rate;
2145 p8_a11 := ddx_lrvv_rec.rate_tolerance;
2146 p8_a12 := ddx_lrvv_rec.residual_tolerance;
2147 p8_a13 := ddx_lrvv_rec.deferred_pmts;
2148 p8_a14 := ddx_lrvv_rec.advance_pmts;
2149 p8_a15 := ddx_lrvv_rec.sts_code;
2150 p8_a16 := ddx_lrvv_rec.created_by;
2151 p8_a17 := ddx_lrvv_rec.creation_date;
2152 p8_a18 := ddx_lrvv_rec.last_updated_by;
2153 p8_a19 := ddx_lrvv_rec.last_update_date;
2154 p8_a20 := ddx_lrvv_rec.last_update_login;
2155 p8_a21 := ddx_lrvv_rec.attribute_category;
2156 p8_a22 := ddx_lrvv_rec.attribute1;
2157 p8_a23 := ddx_lrvv_rec.attribute2;
2158 p8_a24 := ddx_lrvv_rec.attribute3;
2159 p8_a25 := ddx_lrvv_rec.attribute4;
2160 p8_a26 := ddx_lrvv_rec.attribute5;
2161 p8_a27 := ddx_lrvv_rec.attribute6;
2162 p8_a28 := ddx_lrvv_rec.attribute7;
2163 p8_a29 := ddx_lrvv_rec.attribute8;
2164 p8_a30 := ddx_lrvv_rec.attribute9;
2165 p8_a31 := ddx_lrvv_rec.attribute10;
2166 p8_a32 := ddx_lrvv_rec.attribute11;
2167 p8_a33 := ddx_lrvv_rec.attribute12;
2168 p8_a34 := ddx_lrvv_rec.attribute13;
2169 p8_a35 := ddx_lrvv_rec.attribute14;
2170 p8_a36 := ddx_lrvv_rec.attribute15;
2171 p8_a37 := ddx_lrvv_rec.standard_rate;
2172 end;
2173
2174 procedure create_lrs_gen_lrf_submit(p_api_version NUMBER
2175 , p_init_msg_list VARCHAR2
2176 , x_return_status out nocopy VARCHAR2
2177 , x_msg_count out nocopy NUMBER
2178 , x_msg_data out nocopy VARCHAR2
2179 , p5_a0 NUMBER
2180 , p5_a1 NUMBER
2181 , p5_a2 VARCHAR2
2182 , p5_a3 NUMBER
2183 , p5_a4 NUMBER
2184 , p5_a5 NUMBER
2185 , p5_a6 VARCHAR2
2186 , p5_a7 VARCHAR2
2187 , p5_a8 DATE
2188 , p5_a9 DATE
2189 , p5_a10 VARCHAR2
2190 , p5_a11 VARCHAR2
2191 , p5_a12 NUMBER
2192 , p5_a13 DATE
2193 , p5_a14 NUMBER
2194 , p5_a15 DATE
2195 , p5_a16 NUMBER
2196 , p5_a17 VARCHAR2
2197 , p5_a18 VARCHAR2
2198 , p5_a19 VARCHAR2
2199 , p5_a20 VARCHAR2
2200 , p5_a21 VARCHAR2
2201 , p5_a22 VARCHAR2
2202 , p5_a23 VARCHAR2
2203 , p5_a24 VARCHAR2
2204 , p5_a25 VARCHAR2
2205 , p5_a26 VARCHAR2
2206 , p5_a27 VARCHAR2
2207 , p5_a28 VARCHAR2
2208 , p5_a29 VARCHAR2
2209 , p5_a30 VARCHAR2
2210 , p5_a31 VARCHAR2
2211 , p5_a32 VARCHAR2
2212 , p5_a33 VARCHAR2
2213 , p5_a34 NUMBER
2214 , p5_a35 VARCHAR2
2215 , p5_a36 VARCHAR2
2216 , p5_a37 NUMBER
2217 , p5_a38 NUMBER
2218 , p6_a0 out nocopy NUMBER
2219 , p6_a1 out nocopy NUMBER
2220 , p6_a2 out nocopy VARCHAR2
2221 , p6_a3 out nocopy NUMBER
2222 , p6_a4 out nocopy NUMBER
2223 , p6_a5 out nocopy NUMBER
2224 , p6_a6 out nocopy VARCHAR2
2225 , p6_a7 out nocopy VARCHAR2
2226 , p6_a8 out nocopy DATE
2227 , p6_a9 out nocopy DATE
2228 , p6_a10 out nocopy VARCHAR2
2229 , p6_a11 out nocopy VARCHAR2
2230 , p6_a12 out nocopy NUMBER
2231 , p6_a13 out nocopy DATE
2232 , p6_a14 out nocopy NUMBER
2233 , p6_a15 out nocopy DATE
2234 , p6_a16 out nocopy NUMBER
2235 , p6_a17 out nocopy VARCHAR2
2236 , p6_a18 out nocopy VARCHAR2
2237 , p6_a19 out nocopy VARCHAR2
2238 , p6_a20 out nocopy VARCHAR2
2239 , p6_a21 out nocopy VARCHAR2
2240 , p6_a22 out nocopy VARCHAR2
2241 , p6_a23 out nocopy VARCHAR2
2242 , p6_a24 out nocopy VARCHAR2
2243 , p6_a25 out nocopy VARCHAR2
2244 , p6_a26 out nocopy VARCHAR2
2245 , p6_a27 out nocopy VARCHAR2
2246 , p6_a28 out nocopy VARCHAR2
2247 , p6_a29 out nocopy VARCHAR2
2248 , p6_a30 out nocopy VARCHAR2
2249 , p6_a31 out nocopy VARCHAR2
2250 , p6_a32 out nocopy VARCHAR2
2251 , p6_a33 out nocopy VARCHAR2
2252 , p6_a34 out nocopy NUMBER
2253 , p6_a35 out nocopy VARCHAR2
2254 , p6_a36 out nocopy VARCHAR2
2255 , p6_a37 out nocopy NUMBER
2256 , p6_a38 out nocopy NUMBER
2257 , p7_a0 NUMBER
2258 , p7_a1 NUMBER
2259 , p7_a2 VARCHAR2
2260 , p7_a3 DATE
2261 , p7_a4 DATE
2262 , p7_a5 NUMBER
2263 , p7_a6 NUMBER
2264 , p7_a7 NUMBER
2265 , p7_a8 NUMBER
2266 , p7_a9 VARCHAR2
2267 , p7_a10 NUMBER
2268 , p7_a11 NUMBER
2269 , p7_a12 NUMBER
2270 , p7_a13 NUMBER
2271 , p7_a14 NUMBER
2272 , p7_a15 VARCHAR2
2273 , p7_a16 NUMBER
2274 , p7_a17 DATE
2275 , p7_a18 NUMBER
2276 , p7_a19 DATE
2277 , p7_a20 NUMBER
2278 , p7_a21 VARCHAR2
2279 , p7_a22 VARCHAR2
2280 , p7_a23 VARCHAR2
2281 , p7_a24 VARCHAR2
2282 , p7_a25 VARCHAR2
2283 , p7_a26 VARCHAR2
2284 , p7_a27 VARCHAR2
2285 , p7_a28 VARCHAR2
2286 , p7_a29 VARCHAR2
2287 , p7_a30 VARCHAR2
2288 , p7_a31 VARCHAR2
2289 , p7_a32 VARCHAR2
2290 , p7_a33 VARCHAR2
2291 , p7_a34 VARCHAR2
2292 , p7_a35 VARCHAR2
2293 , p7_a36 VARCHAR2
2294 , p7_a37 NUMBER
2295 , p8_a0 out nocopy NUMBER
2296 , p8_a1 out nocopy NUMBER
2297 , p8_a2 out nocopy VARCHAR2
2298 , p8_a3 out nocopy DATE
2299 , p8_a4 out nocopy DATE
2300 , p8_a5 out nocopy NUMBER
2301 , p8_a6 out nocopy NUMBER
2302 , p8_a7 out nocopy NUMBER
2303 , p8_a8 out nocopy NUMBER
2304 , p8_a9 out nocopy VARCHAR2
2305 , p8_a10 out nocopy NUMBER
2306 , p8_a11 out nocopy NUMBER
2307 , p8_a12 out nocopy NUMBER
2308 , p8_a13 out nocopy NUMBER
2309 , p8_a14 out nocopy NUMBER
2310 , p8_a15 out nocopy VARCHAR2
2311 , p8_a16 out nocopy NUMBER
2312 , p8_a17 out nocopy DATE
2313 , p8_a18 out nocopy NUMBER
2314 , p8_a19 out nocopy DATE
2315 , p8_a20 out nocopy NUMBER
2316 , p8_a21 out nocopy VARCHAR2
2317 , p8_a22 out nocopy VARCHAR2
2318 , p8_a23 out nocopy VARCHAR2
2319 , p8_a24 out nocopy VARCHAR2
2320 , p8_a25 out nocopy VARCHAR2
2321 , p8_a26 out nocopy VARCHAR2
2322 , p8_a27 out nocopy VARCHAR2
2323 , p8_a28 out nocopy VARCHAR2
2324 , p8_a29 out nocopy VARCHAR2
2325 , p8_a30 out nocopy VARCHAR2
2326 , p8_a31 out nocopy VARCHAR2
2327 , p8_a32 out nocopy VARCHAR2
2328 , p8_a33 out nocopy VARCHAR2
2329 , p8_a34 out nocopy VARCHAR2
2330 , p8_a35 out nocopy VARCHAR2
2331 , p8_a36 out nocopy VARCHAR2
2332 , p8_a37 out nocopy NUMBER
2333 )
2334
2335 as
2336 ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2337 ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2338 ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2339 ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2340 ddindx binary_integer; indx binary_integer;
2341 begin
2342
2343 -- copy data to the local IN or IN-OUT args, if any
2344
2345
2346
2347
2348
2349 ddp_lrtv_rec.id := p5_a0;
2350 ddp_lrtv_rec.object_version_number := p5_a1;
2351 ddp_lrtv_rec.sfwt_flag := p5_a2;
2352 ddp_lrtv_rec.try_id := p5_a3;
2353 ddp_lrtv_rec.pdt_id := p5_a4;
2354 ddp_lrtv_rec.rate := p5_a5;
2355 ddp_lrtv_rec.frq_code := p5_a6;
2356 ddp_lrtv_rec.arrears_yn := p5_a7;
2357 ddp_lrtv_rec.start_date := p5_a8;
2358 ddp_lrtv_rec.end_date := p5_a9;
2359 ddp_lrtv_rec.name := p5_a10;
2360 ddp_lrtv_rec.description := p5_a11;
2361 ddp_lrtv_rec.created_by := p5_a12;
2362 ddp_lrtv_rec.creation_date := p5_a13;
2363 ddp_lrtv_rec.last_updated_by := p5_a14;
2364 ddp_lrtv_rec.last_update_date := p5_a15;
2365 ddp_lrtv_rec.last_update_login := p5_a16;
2366 ddp_lrtv_rec.attribute_category := p5_a17;
2367 ddp_lrtv_rec.attribute1 := p5_a18;
2368 ddp_lrtv_rec.attribute2 := p5_a19;
2369 ddp_lrtv_rec.attribute3 := p5_a20;
2370 ddp_lrtv_rec.attribute4 := p5_a21;
2371 ddp_lrtv_rec.attribute5 := p5_a22;
2372 ddp_lrtv_rec.attribute6 := p5_a23;
2373 ddp_lrtv_rec.attribute7 := p5_a24;
2374 ddp_lrtv_rec.attribute8 := p5_a25;
2375 ddp_lrtv_rec.attribute9 := p5_a26;
2376 ddp_lrtv_rec.attribute10 := p5_a27;
2377 ddp_lrtv_rec.attribute11 := p5_a28;
2378 ddp_lrtv_rec.attribute12 := p5_a29;
2379 ddp_lrtv_rec.attribute13 := p5_a30;
2380 ddp_lrtv_rec.attribute14 := p5_a31;
2381 ddp_lrtv_rec.attribute15 := p5_a32;
2382 ddp_lrtv_rec.sts_code := p5_a33;
2383 ddp_lrtv_rec.org_id := p5_a34;
2384 ddp_lrtv_rec.currency_code := p5_a35;
2385 ddp_lrtv_rec.lrs_type_code := p5_a36;
2386 ddp_lrtv_rec.end_of_term_id := p5_a37;
2387 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
2388
2389
2390 ddp_lrvv_rec.rate_set_version_id := p7_a0;
2391 ddp_lrvv_rec.object_version_number := p7_a1;
2392 ddp_lrvv_rec.arrears_yn := p7_a2;
2393 ddp_lrvv_rec.effective_from_date := p7_a3;
2394 ddp_lrvv_rec.effective_to_date := p7_a4;
2395 ddp_lrvv_rec.rate_set_id := p7_a5;
2396 ddp_lrvv_rec.end_of_term_ver_id := p7_a6;
2397 ddp_lrvv_rec.std_rate_tmpl_ver_id := p7_a7;
2398 ddp_lrvv_rec.adj_mat_version_id := p7_a8;
2399 ddp_lrvv_rec.version_number := p7_a9;
2400 ddp_lrvv_rec.lrs_rate := p7_a10;
2401 ddp_lrvv_rec.rate_tolerance := p7_a11;
2402 ddp_lrvv_rec.residual_tolerance := p7_a12;
2403 ddp_lrvv_rec.deferred_pmts := p7_a13;
2404 ddp_lrvv_rec.advance_pmts := p7_a14;
2405 ddp_lrvv_rec.sts_code := p7_a15;
2406 ddp_lrvv_rec.created_by := p7_a16;
2407 ddp_lrvv_rec.creation_date := p7_a17;
2408 ddp_lrvv_rec.last_updated_by := p7_a18;
2409 ddp_lrvv_rec.last_update_date := p7_a19;
2410 ddp_lrvv_rec.last_update_login := p7_a20;
2411 ddp_lrvv_rec.attribute_category := p7_a21;
2412 ddp_lrvv_rec.attribute1 := p7_a22;
2413 ddp_lrvv_rec.attribute2 := p7_a23;
2414 ddp_lrvv_rec.attribute3 := p7_a24;
2415 ddp_lrvv_rec.attribute4 := p7_a25;
2416 ddp_lrvv_rec.attribute5 := p7_a26;
2417 ddp_lrvv_rec.attribute6 := p7_a27;
2418 ddp_lrvv_rec.attribute7 := p7_a28;
2419 ddp_lrvv_rec.attribute8 := p7_a29;
2420 ddp_lrvv_rec.attribute9 := p7_a30;
2421 ddp_lrvv_rec.attribute10 := p7_a31;
2422 ddp_lrvv_rec.attribute11 := p7_a32;
2423 ddp_lrvv_rec.attribute12 := p7_a33;
2424 ddp_lrvv_rec.attribute13 := p7_a34;
2425 ddp_lrvv_rec.attribute14 := p7_a35;
2426 ddp_lrvv_rec.attribute15 := p7_a36;
2427 ddp_lrvv_rec.standard_rate := p7_a37;
2428
2429
2430 -- here's the delegated call to the old PL/SQL routine
2431 okl_lease_rate_sets_pvt.create_lrs_gen_lrf_submit(p_api_version,
2432 p_init_msg_list,
2433 x_return_status,
2434 x_msg_count,
2435 x_msg_data,
2436 ddp_lrtv_rec,
2437 ddx_lrtv_rec,
2438 ddp_lrvv_rec,
2439 ddx_lrvv_rec);
2440
2441 -- copy data back from the local variables to OUT or IN-OUT args, if any
2442
2443
2444
2445
2446
2447
2448 p6_a0 := ddx_lrtv_rec.id;
2449 p6_a1 := ddx_lrtv_rec.object_version_number;
2450 p6_a2 := ddx_lrtv_rec.sfwt_flag;
2451 p6_a3 := ddx_lrtv_rec.try_id;
2452 p6_a4 := ddx_lrtv_rec.pdt_id;
2453 p6_a5 := ddx_lrtv_rec.rate;
2454 p6_a6 := ddx_lrtv_rec.frq_code;
2455 p6_a7 := ddx_lrtv_rec.arrears_yn;
2456 p6_a8 := ddx_lrtv_rec.start_date;
2457 p6_a9 := ddx_lrtv_rec.end_date;
2458 p6_a10 := ddx_lrtv_rec.name;
2459 p6_a11 := ddx_lrtv_rec.description;
2460 p6_a12 := ddx_lrtv_rec.created_by;
2461 p6_a13 := ddx_lrtv_rec.creation_date;
2462 p6_a14 := ddx_lrtv_rec.last_updated_by;
2463 p6_a15 := ddx_lrtv_rec.last_update_date;
2464 p6_a16 := ddx_lrtv_rec.last_update_login;
2465 p6_a17 := ddx_lrtv_rec.attribute_category;
2466 p6_a18 := ddx_lrtv_rec.attribute1;
2467 p6_a19 := ddx_lrtv_rec.attribute2;
2468 p6_a20 := ddx_lrtv_rec.attribute3;
2469 p6_a21 := ddx_lrtv_rec.attribute4;
2470 p6_a22 := ddx_lrtv_rec.attribute5;
2471 p6_a23 := ddx_lrtv_rec.attribute6;
2472 p6_a24 := ddx_lrtv_rec.attribute7;
2473 p6_a25 := ddx_lrtv_rec.attribute8;
2474 p6_a26 := ddx_lrtv_rec.attribute9;
2475 p6_a27 := ddx_lrtv_rec.attribute10;
2476 p6_a28 := ddx_lrtv_rec.attribute11;
2477 p6_a29 := ddx_lrtv_rec.attribute12;
2478 p6_a30 := ddx_lrtv_rec.attribute13;
2479 p6_a31 := ddx_lrtv_rec.attribute14;
2480 p6_a32 := ddx_lrtv_rec.attribute15;
2481 p6_a33 := ddx_lrtv_rec.sts_code;
2482 p6_a34 := ddx_lrtv_rec.org_id;
2483 p6_a35 := ddx_lrtv_rec.currency_code;
2484 p6_a36 := ddx_lrtv_rec.lrs_type_code;
2485 p6_a37 := ddx_lrtv_rec.end_of_term_id;
2486 p6_a38 := ddx_lrtv_rec.orig_rate_set_id;
2487
2488
2489 p8_a0 := ddx_lrvv_rec.rate_set_version_id;
2490 p8_a1 := ddx_lrvv_rec.object_version_number;
2491 p8_a2 := ddx_lrvv_rec.arrears_yn;
2492 p8_a3 := ddx_lrvv_rec.effective_from_date;
2493 p8_a4 := ddx_lrvv_rec.effective_to_date;
2494 p8_a5 := ddx_lrvv_rec.rate_set_id;
2495 p8_a6 := ddx_lrvv_rec.end_of_term_ver_id;
2496 p8_a7 := ddx_lrvv_rec.std_rate_tmpl_ver_id;
2497 p8_a8 := ddx_lrvv_rec.adj_mat_version_id;
2498 p8_a9 := ddx_lrvv_rec.version_number;
2499 p8_a10 := ddx_lrvv_rec.lrs_rate;
2500 p8_a11 := ddx_lrvv_rec.rate_tolerance;
2501 p8_a12 := ddx_lrvv_rec.residual_tolerance;
2502 p8_a13 := ddx_lrvv_rec.deferred_pmts;
2503 p8_a14 := ddx_lrvv_rec.advance_pmts;
2504 p8_a15 := ddx_lrvv_rec.sts_code;
2505 p8_a16 := ddx_lrvv_rec.created_by;
2506 p8_a17 := ddx_lrvv_rec.creation_date;
2507 p8_a18 := ddx_lrvv_rec.last_updated_by;
2508 p8_a19 := ddx_lrvv_rec.last_update_date;
2509 p8_a20 := ddx_lrvv_rec.last_update_login;
2510 p8_a21 := ddx_lrvv_rec.attribute_category;
2511 p8_a22 := ddx_lrvv_rec.attribute1;
2512 p8_a23 := ddx_lrvv_rec.attribute2;
2513 p8_a24 := ddx_lrvv_rec.attribute3;
2514 p8_a25 := ddx_lrvv_rec.attribute4;
2515 p8_a26 := ddx_lrvv_rec.attribute5;
2516 p8_a27 := ddx_lrvv_rec.attribute6;
2517 p8_a28 := ddx_lrvv_rec.attribute7;
2518 p8_a29 := ddx_lrvv_rec.attribute8;
2519 p8_a30 := ddx_lrvv_rec.attribute9;
2520 p8_a31 := ddx_lrvv_rec.attribute10;
2521 p8_a32 := ddx_lrvv_rec.attribute11;
2522 p8_a33 := ddx_lrvv_rec.attribute12;
2523 p8_a34 := ddx_lrvv_rec.attribute13;
2524 p8_a35 := ddx_lrvv_rec.attribute14;
2525 p8_a36 := ddx_lrvv_rec.attribute15;
2526 p8_a37 := ddx_lrvv_rec.standard_rate;
2527 end;
2528
2529 procedure update_lrs_gen_lrf_submit(p_api_version NUMBER
2530 , p_init_msg_list VARCHAR2
2531 , x_return_status out nocopy VARCHAR2
2532 , x_msg_count out nocopy NUMBER
2533 , x_msg_data out nocopy VARCHAR2
2534 , p5_a0 NUMBER
2535 , p5_a1 NUMBER
2536 , p5_a2 VARCHAR2
2537 , p5_a3 NUMBER
2538 , p5_a4 NUMBER
2539 , p5_a5 NUMBER
2540 , p5_a6 VARCHAR2
2541 , p5_a7 VARCHAR2
2542 , p5_a8 DATE
2543 , p5_a9 DATE
2544 , p5_a10 VARCHAR2
2545 , p5_a11 VARCHAR2
2546 , p5_a12 NUMBER
2547 , p5_a13 DATE
2548 , p5_a14 NUMBER
2549 , p5_a15 DATE
2550 , p5_a16 NUMBER
2551 , p5_a17 VARCHAR2
2552 , p5_a18 VARCHAR2
2553 , p5_a19 VARCHAR2
2554 , p5_a20 VARCHAR2
2555 , p5_a21 VARCHAR2
2556 , p5_a22 VARCHAR2
2557 , p5_a23 VARCHAR2
2558 , p5_a24 VARCHAR2
2559 , p5_a25 VARCHAR2
2560 , p5_a26 VARCHAR2
2561 , p5_a27 VARCHAR2
2562 , p5_a28 VARCHAR2
2563 , p5_a29 VARCHAR2
2564 , p5_a30 VARCHAR2
2565 , p5_a31 VARCHAR2
2566 , p5_a32 VARCHAR2
2567 , p5_a33 VARCHAR2
2568 , p5_a34 NUMBER
2569 , p5_a35 VARCHAR2
2570 , p5_a36 VARCHAR2
2571 , p5_a37 NUMBER
2572 , p5_a38 NUMBER
2573 , p6_a0 out nocopy NUMBER
2574 , p6_a1 out nocopy NUMBER
2575 , p6_a2 out nocopy VARCHAR2
2576 , p6_a3 out nocopy NUMBER
2577 , p6_a4 out nocopy NUMBER
2578 , p6_a5 out nocopy NUMBER
2579 , p6_a6 out nocopy VARCHAR2
2580 , p6_a7 out nocopy VARCHAR2
2581 , p6_a8 out nocopy DATE
2582 , p6_a9 out nocopy DATE
2583 , p6_a10 out nocopy VARCHAR2
2584 , p6_a11 out nocopy VARCHAR2
2585 , p6_a12 out nocopy NUMBER
2586 , p6_a13 out nocopy DATE
2587 , p6_a14 out nocopy NUMBER
2588 , p6_a15 out nocopy DATE
2589 , p6_a16 out nocopy NUMBER
2590 , p6_a17 out nocopy VARCHAR2
2591 , p6_a18 out nocopy VARCHAR2
2592 , p6_a19 out nocopy VARCHAR2
2593 , p6_a20 out nocopy VARCHAR2
2594 , p6_a21 out nocopy VARCHAR2
2595 , p6_a22 out nocopy VARCHAR2
2596 , p6_a23 out nocopy VARCHAR2
2597 , p6_a24 out nocopy VARCHAR2
2598 , p6_a25 out nocopy VARCHAR2
2599 , p6_a26 out nocopy VARCHAR2
2600 , p6_a27 out nocopy VARCHAR2
2601 , p6_a28 out nocopy VARCHAR2
2602 , p6_a29 out nocopy VARCHAR2
2603 , p6_a30 out nocopy VARCHAR2
2604 , p6_a31 out nocopy VARCHAR2
2605 , p6_a32 out nocopy VARCHAR2
2606 , p6_a33 out nocopy VARCHAR2
2607 , p6_a34 out nocopy NUMBER
2608 , p6_a35 out nocopy VARCHAR2
2609 , p6_a36 out nocopy VARCHAR2
2610 , p6_a37 out nocopy NUMBER
2611 , p6_a38 out nocopy NUMBER
2612 , p7_a0 NUMBER
2613 , p7_a1 NUMBER
2614 , p7_a2 VARCHAR2
2615 , p7_a3 DATE
2616 , p7_a4 DATE
2617 , p7_a5 NUMBER
2618 , p7_a6 NUMBER
2619 , p7_a7 NUMBER
2620 , p7_a8 NUMBER
2621 , p7_a9 VARCHAR2
2622 , p7_a10 NUMBER
2623 , p7_a11 NUMBER
2624 , p7_a12 NUMBER
2625 , p7_a13 NUMBER
2626 , p7_a14 NUMBER
2627 , p7_a15 VARCHAR2
2628 , p7_a16 NUMBER
2629 , p7_a17 DATE
2630 , p7_a18 NUMBER
2631 , p7_a19 DATE
2632 , p7_a20 NUMBER
2633 , p7_a21 VARCHAR2
2634 , p7_a22 VARCHAR2
2635 , p7_a23 VARCHAR2
2636 , p7_a24 VARCHAR2
2637 , p7_a25 VARCHAR2
2638 , p7_a26 VARCHAR2
2639 , p7_a27 VARCHAR2
2640 , p7_a28 VARCHAR2
2641 , p7_a29 VARCHAR2
2642 , p7_a30 VARCHAR2
2643 , p7_a31 VARCHAR2
2644 , p7_a32 VARCHAR2
2645 , p7_a33 VARCHAR2
2646 , p7_a34 VARCHAR2
2647 , p7_a35 VARCHAR2
2648 , p7_a36 VARCHAR2
2649 , p7_a37 NUMBER
2650 , p8_a0 out nocopy NUMBER
2651 , p8_a1 out nocopy NUMBER
2652 , p8_a2 out nocopy VARCHAR2
2653 , p8_a3 out nocopy DATE
2654 , p8_a4 out nocopy DATE
2655 , p8_a5 out nocopy NUMBER
2656 , p8_a6 out nocopy NUMBER
2657 , p8_a7 out nocopy NUMBER
2658 , p8_a8 out nocopy NUMBER
2659 , p8_a9 out nocopy VARCHAR2
2660 , p8_a10 out nocopy NUMBER
2661 , p8_a11 out nocopy NUMBER
2662 , p8_a12 out nocopy NUMBER
2663 , p8_a13 out nocopy NUMBER
2664 , p8_a14 out nocopy NUMBER
2665 , p8_a15 out nocopy VARCHAR2
2666 , p8_a16 out nocopy NUMBER
2667 , p8_a17 out nocopy DATE
2668 , p8_a18 out nocopy NUMBER
2669 , p8_a19 out nocopy DATE
2670 , p8_a20 out nocopy NUMBER
2671 , p8_a21 out nocopy VARCHAR2
2672 , p8_a22 out nocopy VARCHAR2
2673 , p8_a23 out nocopy VARCHAR2
2674 , p8_a24 out nocopy VARCHAR2
2675 , p8_a25 out nocopy VARCHAR2
2676 , p8_a26 out nocopy VARCHAR2
2677 , p8_a27 out nocopy VARCHAR2
2678 , p8_a28 out nocopy VARCHAR2
2679 , p8_a29 out nocopy VARCHAR2
2680 , p8_a30 out nocopy VARCHAR2
2681 , p8_a31 out nocopy VARCHAR2
2682 , p8_a32 out nocopy VARCHAR2
2683 , p8_a33 out nocopy VARCHAR2
2684 , p8_a34 out nocopy VARCHAR2
2685 , p8_a35 out nocopy VARCHAR2
2686 , p8_a36 out nocopy VARCHAR2
2687 , p8_a37 out nocopy NUMBER
2688 )
2689
2690 as
2691 ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2692 ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2693 ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2694 ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2695 ddindx binary_integer; indx binary_integer;
2696 begin
2697
2698 -- copy data to the local IN or IN-OUT args, if any
2699
2700
2701
2702
2703
2704 ddp_lrtv_rec.id := p5_a0;
2705 ddp_lrtv_rec.object_version_number := p5_a1;
2706 ddp_lrtv_rec.sfwt_flag := p5_a2;
2707 ddp_lrtv_rec.try_id := p5_a3;
2708 ddp_lrtv_rec.pdt_id := p5_a4;
2709 ddp_lrtv_rec.rate := p5_a5;
2710 ddp_lrtv_rec.frq_code := p5_a6;
2711 ddp_lrtv_rec.arrears_yn := p5_a7;
2712 ddp_lrtv_rec.start_date := p5_a8;
2713 ddp_lrtv_rec.end_date := p5_a9;
2714 ddp_lrtv_rec.name := p5_a10;
2715 ddp_lrtv_rec.description := p5_a11;
2716 ddp_lrtv_rec.created_by := p5_a12;
2717 ddp_lrtv_rec.creation_date := p5_a13;
2718 ddp_lrtv_rec.last_updated_by := p5_a14;
2719 ddp_lrtv_rec.last_update_date := p5_a15;
2720 ddp_lrtv_rec.last_update_login := p5_a16;
2721 ddp_lrtv_rec.attribute_category := p5_a17;
2722 ddp_lrtv_rec.attribute1 := p5_a18;
2723 ddp_lrtv_rec.attribute2 := p5_a19;
2724 ddp_lrtv_rec.attribute3 := p5_a20;
2725 ddp_lrtv_rec.attribute4 := p5_a21;
2726 ddp_lrtv_rec.attribute5 := p5_a22;
2727 ddp_lrtv_rec.attribute6 := p5_a23;
2728 ddp_lrtv_rec.attribute7 := p5_a24;
2729 ddp_lrtv_rec.attribute8 := p5_a25;
2730 ddp_lrtv_rec.attribute9 := p5_a26;
2731 ddp_lrtv_rec.attribute10 := p5_a27;
2732 ddp_lrtv_rec.attribute11 := p5_a28;
2733 ddp_lrtv_rec.attribute12 := p5_a29;
2734 ddp_lrtv_rec.attribute13 := p5_a30;
2735 ddp_lrtv_rec.attribute14 := p5_a31;
2736 ddp_lrtv_rec.attribute15 := p5_a32;
2737 ddp_lrtv_rec.sts_code := p5_a33;
2738 ddp_lrtv_rec.org_id := p5_a34;
2739 ddp_lrtv_rec.currency_code := p5_a35;
2740 ddp_lrtv_rec.lrs_type_code := p5_a36;
2741 ddp_lrtv_rec.end_of_term_id := p5_a37;
2742 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
2743
2744
2745 ddp_lrvv_rec.rate_set_version_id := p7_a0;
2746 ddp_lrvv_rec.object_version_number := p7_a1;
2747 ddp_lrvv_rec.arrears_yn := p7_a2;
2748 ddp_lrvv_rec.effective_from_date := p7_a3;
2749 ddp_lrvv_rec.effective_to_date := p7_a4;
2750 ddp_lrvv_rec.rate_set_id := p7_a5;
2751 ddp_lrvv_rec.end_of_term_ver_id := p7_a6;
2752 ddp_lrvv_rec.std_rate_tmpl_ver_id := p7_a7;
2753 ddp_lrvv_rec.adj_mat_version_id := p7_a8;
2754 ddp_lrvv_rec.version_number := p7_a9;
2755 ddp_lrvv_rec.lrs_rate := p7_a10;
2756 ddp_lrvv_rec.rate_tolerance := p7_a11;
2757 ddp_lrvv_rec.residual_tolerance := p7_a12;
2758 ddp_lrvv_rec.deferred_pmts := p7_a13;
2759 ddp_lrvv_rec.advance_pmts := p7_a14;
2760 ddp_lrvv_rec.sts_code := p7_a15;
2761 ddp_lrvv_rec.created_by := p7_a16;
2762 ddp_lrvv_rec.creation_date := p7_a17;
2763 ddp_lrvv_rec.last_updated_by := p7_a18;
2764 ddp_lrvv_rec.last_update_date := p7_a19;
2765 ddp_lrvv_rec.last_update_login := p7_a20;
2766 ddp_lrvv_rec.attribute_category := p7_a21;
2767 ddp_lrvv_rec.attribute1 := p7_a22;
2768 ddp_lrvv_rec.attribute2 := p7_a23;
2769 ddp_lrvv_rec.attribute3 := p7_a24;
2770 ddp_lrvv_rec.attribute4 := p7_a25;
2771 ddp_lrvv_rec.attribute5 := p7_a26;
2772 ddp_lrvv_rec.attribute6 := p7_a27;
2773 ddp_lrvv_rec.attribute7 := p7_a28;
2774 ddp_lrvv_rec.attribute8 := p7_a29;
2775 ddp_lrvv_rec.attribute9 := p7_a30;
2776 ddp_lrvv_rec.attribute10 := p7_a31;
2777 ddp_lrvv_rec.attribute11 := p7_a32;
2778 ddp_lrvv_rec.attribute12 := p7_a33;
2779 ddp_lrvv_rec.attribute13 := p7_a34;
2780 ddp_lrvv_rec.attribute14 := p7_a35;
2781 ddp_lrvv_rec.attribute15 := p7_a36;
2782 ddp_lrvv_rec.standard_rate := p7_a37;
2783
2784
2785 -- here's the delegated call to the old PL/SQL routine
2786 okl_lease_rate_sets_pvt.update_lrs_gen_lrf_submit(p_api_version,
2787 p_init_msg_list,
2788 x_return_status,
2789 x_msg_count,
2790 x_msg_data,
2791 ddp_lrtv_rec,
2792 ddx_lrtv_rec,
2793 ddp_lrvv_rec,
2794 ddx_lrvv_rec);
2795
2796 -- copy data back from the local variables to OUT or IN-OUT args, if any
2797
2798
2799
2800
2801
2802
2803 p6_a0 := ddx_lrtv_rec.id;
2804 p6_a1 := ddx_lrtv_rec.object_version_number;
2805 p6_a2 := ddx_lrtv_rec.sfwt_flag;
2806 p6_a3 := ddx_lrtv_rec.try_id;
2807 p6_a4 := ddx_lrtv_rec.pdt_id;
2808 p6_a5 := ddx_lrtv_rec.rate;
2809 p6_a6 := ddx_lrtv_rec.frq_code;
2810 p6_a7 := ddx_lrtv_rec.arrears_yn;
2811 p6_a8 := ddx_lrtv_rec.start_date;
2812 p6_a9 := ddx_lrtv_rec.end_date;
2813 p6_a10 := ddx_lrtv_rec.name;
2814 p6_a11 := ddx_lrtv_rec.description;
2815 p6_a12 := ddx_lrtv_rec.created_by;
2816 p6_a13 := ddx_lrtv_rec.creation_date;
2817 p6_a14 := ddx_lrtv_rec.last_updated_by;
2818 p6_a15 := ddx_lrtv_rec.last_update_date;
2819 p6_a16 := ddx_lrtv_rec.last_update_login;
2820 p6_a17 := ddx_lrtv_rec.attribute_category;
2821 p6_a18 := ddx_lrtv_rec.attribute1;
2822 p6_a19 := ddx_lrtv_rec.attribute2;
2823 p6_a20 := ddx_lrtv_rec.attribute3;
2824 p6_a21 := ddx_lrtv_rec.attribute4;
2825 p6_a22 := ddx_lrtv_rec.attribute5;
2826 p6_a23 := ddx_lrtv_rec.attribute6;
2827 p6_a24 := ddx_lrtv_rec.attribute7;
2828 p6_a25 := ddx_lrtv_rec.attribute8;
2829 p6_a26 := ddx_lrtv_rec.attribute9;
2830 p6_a27 := ddx_lrtv_rec.attribute10;
2831 p6_a28 := ddx_lrtv_rec.attribute11;
2832 p6_a29 := ddx_lrtv_rec.attribute12;
2833 p6_a30 := ddx_lrtv_rec.attribute13;
2834 p6_a31 := ddx_lrtv_rec.attribute14;
2835 p6_a32 := ddx_lrtv_rec.attribute15;
2836 p6_a33 := ddx_lrtv_rec.sts_code;
2837 p6_a34 := ddx_lrtv_rec.org_id;
2838 p6_a35 := ddx_lrtv_rec.currency_code;
2839 p6_a36 := ddx_lrtv_rec.lrs_type_code;
2840 p6_a37 := ddx_lrtv_rec.end_of_term_id;
2841 p6_a38 := ddx_lrtv_rec.orig_rate_set_id;
2842
2843
2844 p8_a0 := ddx_lrvv_rec.rate_set_version_id;
2845 p8_a1 := ddx_lrvv_rec.object_version_number;
2846 p8_a2 := ddx_lrvv_rec.arrears_yn;
2847 p8_a3 := ddx_lrvv_rec.effective_from_date;
2848 p8_a4 := ddx_lrvv_rec.effective_to_date;
2849 p8_a5 := ddx_lrvv_rec.rate_set_id;
2850 p8_a6 := ddx_lrvv_rec.end_of_term_ver_id;
2851 p8_a7 := ddx_lrvv_rec.std_rate_tmpl_ver_id;
2852 p8_a8 := ddx_lrvv_rec.adj_mat_version_id;
2853 p8_a9 := ddx_lrvv_rec.version_number;
2854 p8_a10 := ddx_lrvv_rec.lrs_rate;
2855 p8_a11 := ddx_lrvv_rec.rate_tolerance;
2856 p8_a12 := ddx_lrvv_rec.residual_tolerance;
2857 p8_a13 := ddx_lrvv_rec.deferred_pmts;
2858 p8_a14 := ddx_lrvv_rec.advance_pmts;
2859 p8_a15 := ddx_lrvv_rec.sts_code;
2860 p8_a16 := ddx_lrvv_rec.created_by;
2861 p8_a17 := ddx_lrvv_rec.creation_date;
2862 p8_a18 := ddx_lrvv_rec.last_updated_by;
2863 p8_a19 := ddx_lrvv_rec.last_update_date;
2864 p8_a20 := ddx_lrvv_rec.last_update_login;
2865 p8_a21 := ddx_lrvv_rec.attribute_category;
2866 p8_a22 := ddx_lrvv_rec.attribute1;
2867 p8_a23 := ddx_lrvv_rec.attribute2;
2868 p8_a24 := ddx_lrvv_rec.attribute3;
2869 p8_a25 := ddx_lrvv_rec.attribute4;
2870 p8_a26 := ddx_lrvv_rec.attribute5;
2871 p8_a27 := ddx_lrvv_rec.attribute6;
2872 p8_a28 := ddx_lrvv_rec.attribute7;
2873 p8_a29 := ddx_lrvv_rec.attribute8;
2874 p8_a30 := ddx_lrvv_rec.attribute9;
2875 p8_a31 := ddx_lrvv_rec.attribute10;
2876 p8_a32 := ddx_lrvv_rec.attribute11;
2877 p8_a33 := ddx_lrvv_rec.attribute12;
2878 p8_a34 := ddx_lrvv_rec.attribute13;
2879 p8_a35 := ddx_lrvv_rec.attribute14;
2880 p8_a36 := ddx_lrvv_rec.attribute15;
2881 p8_a37 := ddx_lrvv_rec.standard_rate;
2882 end;
2883
2884 procedure version_lrs_gen_lrf_submit(p_api_version NUMBER
2885 , p_init_msg_list VARCHAR2
2886 , x_return_status out nocopy VARCHAR2
2887 , x_msg_count out nocopy NUMBER
2888 , x_msg_data out nocopy VARCHAR2
2889 , p5_a0 NUMBER
2890 , p5_a1 NUMBER
2891 , p5_a2 VARCHAR2
2892 , p5_a3 NUMBER
2893 , p5_a4 NUMBER
2894 , p5_a5 NUMBER
2895 , p5_a6 VARCHAR2
2896 , p5_a7 VARCHAR2
2897 , p5_a8 DATE
2898 , p5_a9 DATE
2899 , p5_a10 VARCHAR2
2900 , p5_a11 VARCHAR2
2901 , p5_a12 NUMBER
2902 , p5_a13 DATE
2903 , p5_a14 NUMBER
2904 , p5_a15 DATE
2905 , p5_a16 NUMBER
2906 , p5_a17 VARCHAR2
2907 , p5_a18 VARCHAR2
2908 , p5_a19 VARCHAR2
2909 , p5_a20 VARCHAR2
2910 , p5_a21 VARCHAR2
2911 , p5_a22 VARCHAR2
2912 , p5_a23 VARCHAR2
2913 , p5_a24 VARCHAR2
2914 , p5_a25 VARCHAR2
2915 , p5_a26 VARCHAR2
2916 , p5_a27 VARCHAR2
2917 , p5_a28 VARCHAR2
2918 , p5_a29 VARCHAR2
2919 , p5_a30 VARCHAR2
2920 , p5_a31 VARCHAR2
2921 , p5_a32 VARCHAR2
2922 , p5_a33 VARCHAR2
2923 , p5_a34 NUMBER
2924 , p5_a35 VARCHAR2
2925 , p5_a36 VARCHAR2
2926 , p5_a37 NUMBER
2927 , p5_a38 NUMBER
2928 , p6_a0 out nocopy NUMBER
2929 , p6_a1 out nocopy NUMBER
2930 , p6_a2 out nocopy VARCHAR2
2931 , p6_a3 out nocopy NUMBER
2932 , p6_a4 out nocopy NUMBER
2933 , p6_a5 out nocopy NUMBER
2934 , p6_a6 out nocopy VARCHAR2
2935 , p6_a7 out nocopy VARCHAR2
2936 , p6_a8 out nocopy DATE
2937 , p6_a9 out nocopy DATE
2938 , p6_a10 out nocopy VARCHAR2
2939 , p6_a11 out nocopy VARCHAR2
2940 , p6_a12 out nocopy NUMBER
2941 , p6_a13 out nocopy DATE
2942 , p6_a14 out nocopy NUMBER
2943 , p6_a15 out nocopy DATE
2944 , p6_a16 out nocopy NUMBER
2945 , p6_a17 out nocopy VARCHAR2
2946 , p6_a18 out nocopy VARCHAR2
2947 , p6_a19 out nocopy VARCHAR2
2948 , p6_a20 out nocopy VARCHAR2
2949 , p6_a21 out nocopy VARCHAR2
2950 , p6_a22 out nocopy VARCHAR2
2951 , p6_a23 out nocopy VARCHAR2
2952 , p6_a24 out nocopy VARCHAR2
2953 , p6_a25 out nocopy VARCHAR2
2954 , p6_a26 out nocopy VARCHAR2
2955 , p6_a27 out nocopy VARCHAR2
2956 , p6_a28 out nocopy VARCHAR2
2957 , p6_a29 out nocopy VARCHAR2
2958 , p6_a30 out nocopy VARCHAR2
2959 , p6_a31 out nocopy VARCHAR2
2960 , p6_a32 out nocopy VARCHAR2
2961 , p6_a33 out nocopy VARCHAR2
2962 , p6_a34 out nocopy NUMBER
2963 , p6_a35 out nocopy VARCHAR2
2964 , p6_a36 out nocopy VARCHAR2
2965 , p6_a37 out nocopy NUMBER
2966 , p6_a38 out nocopy NUMBER
2967 , p7_a0 NUMBER
2968 , p7_a1 NUMBER
2969 , p7_a2 VARCHAR2
2970 , p7_a3 DATE
2971 , p7_a4 DATE
2972 , p7_a5 NUMBER
2973 , p7_a6 NUMBER
2974 , p7_a7 NUMBER
2975 , p7_a8 NUMBER
2976 , p7_a9 VARCHAR2
2977 , p7_a10 NUMBER
2978 , p7_a11 NUMBER
2979 , p7_a12 NUMBER
2980 , p7_a13 NUMBER
2981 , p7_a14 NUMBER
2982 , p7_a15 VARCHAR2
2983 , p7_a16 NUMBER
2984 , p7_a17 DATE
2985 , p7_a18 NUMBER
2986 , p7_a19 DATE
2987 , p7_a20 NUMBER
2988 , p7_a21 VARCHAR2
2989 , p7_a22 VARCHAR2
2990 , p7_a23 VARCHAR2
2991 , p7_a24 VARCHAR2
2992 , p7_a25 VARCHAR2
2993 , p7_a26 VARCHAR2
2994 , p7_a27 VARCHAR2
2995 , p7_a28 VARCHAR2
2996 , p7_a29 VARCHAR2
2997 , p7_a30 VARCHAR2
2998 , p7_a31 VARCHAR2
2999 , p7_a32 VARCHAR2
3000 , p7_a33 VARCHAR2
3001 , p7_a34 VARCHAR2
3002 , p7_a35 VARCHAR2
3003 , p7_a36 VARCHAR2
3004 , p7_a37 NUMBER
3005 , p8_a0 out nocopy NUMBER
3006 , p8_a1 out nocopy NUMBER
3007 , p8_a2 out nocopy VARCHAR2
3008 , p8_a3 out nocopy DATE
3009 , p8_a4 out nocopy DATE
3010 , p8_a5 out nocopy NUMBER
3011 , p8_a6 out nocopy NUMBER
3012 , p8_a7 out nocopy NUMBER
3013 , p8_a8 out nocopy NUMBER
3014 , p8_a9 out nocopy VARCHAR2
3015 , p8_a10 out nocopy NUMBER
3016 , p8_a11 out nocopy NUMBER
3017 , p8_a12 out nocopy NUMBER
3018 , p8_a13 out nocopy NUMBER
3019 , p8_a14 out nocopy NUMBER
3020 , p8_a15 out nocopy VARCHAR2
3021 , p8_a16 out nocopy NUMBER
3022 , p8_a17 out nocopy DATE
3023 , p8_a18 out nocopy NUMBER
3024 , p8_a19 out nocopy DATE
3025 , p8_a20 out nocopy NUMBER
3026 , p8_a21 out nocopy VARCHAR2
3027 , p8_a22 out nocopy VARCHAR2
3028 , p8_a23 out nocopy VARCHAR2
3029 , p8_a24 out nocopy VARCHAR2
3030 , p8_a25 out nocopy VARCHAR2
3031 , p8_a26 out nocopy VARCHAR2
3032 , p8_a27 out nocopy VARCHAR2
3033 , p8_a28 out nocopy VARCHAR2
3034 , p8_a29 out nocopy VARCHAR2
3035 , p8_a30 out nocopy VARCHAR2
3036 , p8_a31 out nocopy VARCHAR2
3037 , p8_a32 out nocopy VARCHAR2
3038 , p8_a33 out nocopy VARCHAR2
3039 , p8_a34 out nocopy VARCHAR2
3040 , p8_a35 out nocopy VARCHAR2
3041 , p8_a36 out nocopy VARCHAR2
3042 , p8_a37 out nocopy NUMBER
3043 )
3044
3045 as
3046 ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3047 ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3048 ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3049 ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3050 ddindx binary_integer; indx binary_integer;
3051 begin
3052
3053 -- copy data to the local IN or IN-OUT args, if any
3054
3055
3056
3057
3058
3059 ddp_lrtv_rec.id := p5_a0;
3060 ddp_lrtv_rec.object_version_number := p5_a1;
3061 ddp_lrtv_rec.sfwt_flag := p5_a2;
3062 ddp_lrtv_rec.try_id := p5_a3;
3063 ddp_lrtv_rec.pdt_id := p5_a4;
3064 ddp_lrtv_rec.rate := p5_a5;
3065 ddp_lrtv_rec.frq_code := p5_a6;
3066 ddp_lrtv_rec.arrears_yn := p5_a7;
3067 ddp_lrtv_rec.start_date := p5_a8;
3068 ddp_lrtv_rec.end_date := p5_a9;
3069 ddp_lrtv_rec.name := p5_a10;
3070 ddp_lrtv_rec.description := p5_a11;
3071 ddp_lrtv_rec.created_by := p5_a12;
3072 ddp_lrtv_rec.creation_date := p5_a13;
3073 ddp_lrtv_rec.last_updated_by := p5_a14;
3074 ddp_lrtv_rec.last_update_date := p5_a15;
3075 ddp_lrtv_rec.last_update_login := p5_a16;
3076 ddp_lrtv_rec.attribute_category := p5_a17;
3077 ddp_lrtv_rec.attribute1 := p5_a18;
3078 ddp_lrtv_rec.attribute2 := p5_a19;
3079 ddp_lrtv_rec.attribute3 := p5_a20;
3080 ddp_lrtv_rec.attribute4 := p5_a21;
3081 ddp_lrtv_rec.attribute5 := p5_a22;
3082 ddp_lrtv_rec.attribute6 := p5_a23;
3083 ddp_lrtv_rec.attribute7 := p5_a24;
3084 ddp_lrtv_rec.attribute8 := p5_a25;
3085 ddp_lrtv_rec.attribute9 := p5_a26;
3086 ddp_lrtv_rec.attribute10 := p5_a27;
3087 ddp_lrtv_rec.attribute11 := p5_a28;
3088 ddp_lrtv_rec.attribute12 := p5_a29;
3089 ddp_lrtv_rec.attribute13 := p5_a30;
3090 ddp_lrtv_rec.attribute14 := p5_a31;
3091 ddp_lrtv_rec.attribute15 := p5_a32;
3092 ddp_lrtv_rec.sts_code := p5_a33;
3093 ddp_lrtv_rec.org_id := p5_a34;
3094 ddp_lrtv_rec.currency_code := p5_a35;
3095 ddp_lrtv_rec.lrs_type_code := p5_a36;
3096 ddp_lrtv_rec.end_of_term_id := p5_a37;
3097 ddp_lrtv_rec.orig_rate_set_id := p5_a38;
3098
3099
3100 ddp_lrvv_rec.rate_set_version_id := p7_a0;
3101 ddp_lrvv_rec.object_version_number := p7_a1;
3102 ddp_lrvv_rec.arrears_yn := p7_a2;
3103 ddp_lrvv_rec.effective_from_date := p7_a3;
3104 ddp_lrvv_rec.effective_to_date := p7_a4;
3105 ddp_lrvv_rec.rate_set_id := p7_a5;
3106 ddp_lrvv_rec.end_of_term_ver_id := p7_a6;
3107 ddp_lrvv_rec.std_rate_tmpl_ver_id := p7_a7;
3108 ddp_lrvv_rec.adj_mat_version_id := p7_a8;
3109 ddp_lrvv_rec.version_number := p7_a9;
3110 ddp_lrvv_rec.lrs_rate := p7_a10;
3111 ddp_lrvv_rec.rate_tolerance := p7_a11;
3112 ddp_lrvv_rec.residual_tolerance := p7_a12;
3113 ddp_lrvv_rec.deferred_pmts := p7_a13;
3114 ddp_lrvv_rec.advance_pmts := p7_a14;
3115 ddp_lrvv_rec.sts_code := p7_a15;
3116 ddp_lrvv_rec.created_by := p7_a16;
3117 ddp_lrvv_rec.creation_date := p7_a17;
3118 ddp_lrvv_rec.last_updated_by := p7_a18;
3119 ddp_lrvv_rec.last_update_date := p7_a19;
3120 ddp_lrvv_rec.last_update_login := p7_a20;
3121 ddp_lrvv_rec.attribute_category := p7_a21;
3122 ddp_lrvv_rec.attribute1 := p7_a22;
3123 ddp_lrvv_rec.attribute2 := p7_a23;
3124 ddp_lrvv_rec.attribute3 := p7_a24;
3125 ddp_lrvv_rec.attribute4 := p7_a25;
3126 ddp_lrvv_rec.attribute5 := p7_a26;
3127 ddp_lrvv_rec.attribute6 := p7_a27;
3128 ddp_lrvv_rec.attribute7 := p7_a28;
3129 ddp_lrvv_rec.attribute8 := p7_a29;
3130 ddp_lrvv_rec.attribute9 := p7_a30;
3131 ddp_lrvv_rec.attribute10 := p7_a31;
3132 ddp_lrvv_rec.attribute11 := p7_a32;
3133 ddp_lrvv_rec.attribute12 := p7_a33;
3134 ddp_lrvv_rec.attribute13 := p7_a34;
3135 ddp_lrvv_rec.attribute14 := p7_a35;
3136 ddp_lrvv_rec.attribute15 := p7_a36;
3137 ddp_lrvv_rec.standard_rate := p7_a37;
3138
3139
3140 -- here's the delegated call to the old PL/SQL routine
3141 okl_lease_rate_sets_pvt.version_lrs_gen_lrf_submit(p_api_version,
3142 p_init_msg_list,
3143 x_return_status,
3144 x_msg_count,
3145 x_msg_data,
3146 ddp_lrtv_rec,
3147 ddx_lrtv_rec,
3148 ddp_lrvv_rec,
3149 ddx_lrvv_rec);
3150
3151 -- copy data back from the local variables to OUT or IN-OUT args, if any
3152
3153
3154
3155
3156
3157
3158 p6_a0 := ddx_lrtv_rec.id;
3159 p6_a1 := ddx_lrtv_rec.object_version_number;
3160 p6_a2 := ddx_lrtv_rec.sfwt_flag;
3161 p6_a3 := ddx_lrtv_rec.try_id;
3162 p6_a4 := ddx_lrtv_rec.pdt_id;
3163 p6_a5 := ddx_lrtv_rec.rate;
3164 p6_a6 := ddx_lrtv_rec.frq_code;
3165 p6_a7 := ddx_lrtv_rec.arrears_yn;
3166 p6_a8 := ddx_lrtv_rec.start_date;
3167 p6_a9 := ddx_lrtv_rec.end_date;
3168 p6_a10 := ddx_lrtv_rec.name;
3169 p6_a11 := ddx_lrtv_rec.description;
3170 p6_a12 := ddx_lrtv_rec.created_by;
3171 p6_a13 := ddx_lrtv_rec.creation_date;
3172 p6_a14 := ddx_lrtv_rec.last_updated_by;
3173 p6_a15 := ddx_lrtv_rec.last_update_date;
3174 p6_a16 := ddx_lrtv_rec.last_update_login;
3175 p6_a17 := ddx_lrtv_rec.attribute_category;
3176 p6_a18 := ddx_lrtv_rec.attribute1;
3177 p6_a19 := ddx_lrtv_rec.attribute2;
3178 p6_a20 := ddx_lrtv_rec.attribute3;
3179 p6_a21 := ddx_lrtv_rec.attribute4;
3180 p6_a22 := ddx_lrtv_rec.attribute5;
3181 p6_a23 := ddx_lrtv_rec.attribute6;
3182 p6_a24 := ddx_lrtv_rec.attribute7;
3183 p6_a25 := ddx_lrtv_rec.attribute8;
3184 p6_a26 := ddx_lrtv_rec.attribute9;
3185 p6_a27 := ddx_lrtv_rec.attribute10;
3186 p6_a28 := ddx_lrtv_rec.attribute11;
3187 p6_a29 := ddx_lrtv_rec.attribute12;
3188 p6_a30 := ddx_lrtv_rec.attribute13;
3189 p6_a31 := ddx_lrtv_rec.attribute14;
3190 p6_a32 := ddx_lrtv_rec.attribute15;
3191 p6_a33 := ddx_lrtv_rec.sts_code;
3192 p6_a34 := ddx_lrtv_rec.org_id;
3193 p6_a35 := ddx_lrtv_rec.currency_code;
3194 p6_a36 := ddx_lrtv_rec.lrs_type_code;
3195 p6_a37 := ddx_lrtv_rec.end_of_term_id;
3196 p6_a38 := ddx_lrtv_rec.orig_rate_set_id;
3197
3198
3199 p8_a0 := ddx_lrvv_rec.rate_set_version_id;
3200 p8_a1 := ddx_lrvv_rec.object_version_number;
3201 p8_a2 := ddx_lrvv_rec.arrears_yn;
3202 p8_a3 := ddx_lrvv_rec.effective_from_date;
3203 p8_a4 := ddx_lrvv_rec.effective_to_date;
3204 p8_a5 := ddx_lrvv_rec.rate_set_id;
3205 p8_a6 := ddx_lrvv_rec.end_of_term_ver_id;
3206 p8_a7 := ddx_lrvv_rec.std_rate_tmpl_ver_id;
3207 p8_a8 := ddx_lrvv_rec.adj_mat_version_id;
3208 p8_a9 := ddx_lrvv_rec.version_number;
3209 p8_a10 := ddx_lrvv_rec.lrs_rate;
3210 p8_a11 := ddx_lrvv_rec.rate_tolerance;
3211 p8_a12 := ddx_lrvv_rec.residual_tolerance;
3212 p8_a13 := ddx_lrvv_rec.deferred_pmts;
3213 p8_a14 := ddx_lrvv_rec.advance_pmts;
3214 p8_a15 := ddx_lrvv_rec.sts_code;
3215 p8_a16 := ddx_lrvv_rec.created_by;
3216 p8_a17 := ddx_lrvv_rec.creation_date;
3217 p8_a18 := ddx_lrvv_rec.last_updated_by;
3218 p8_a19 := ddx_lrvv_rec.last_update_date;
3219 p8_a20 := ddx_lrvv_rec.last_update_login;
3220 p8_a21 := ddx_lrvv_rec.attribute_category;
3221 p8_a22 := ddx_lrvv_rec.attribute1;
3222 p8_a23 := ddx_lrvv_rec.attribute2;
3223 p8_a24 := ddx_lrvv_rec.attribute3;
3224 p8_a25 := ddx_lrvv_rec.attribute4;
3225 p8_a26 := ddx_lrvv_rec.attribute5;
3226 p8_a27 := ddx_lrvv_rec.attribute6;
3227 p8_a28 := ddx_lrvv_rec.attribute7;
3228 p8_a29 := ddx_lrvv_rec.attribute8;
3229 p8_a30 := ddx_lrvv_rec.attribute9;
3230 p8_a31 := ddx_lrvv_rec.attribute10;
3231 p8_a32 := ddx_lrvv_rec.attribute11;
3232 p8_a33 := ddx_lrvv_rec.attribute12;
3233 p8_a34 := ddx_lrvv_rec.attribute13;
3234 p8_a35 := ddx_lrvv_rec.attribute14;
3235 p8_a36 := ddx_lrvv_rec.attribute15;
3236 p8_a37 := ddx_lrvv_rec.standard_rate;
3237 end;
3238
3239 procedure enddate_lease_rate_set(p_api_version NUMBER
3240 , p_init_msg_list VARCHAR2
3241 , x_return_status out nocopy VARCHAR2
3242 , x_msg_count out nocopy NUMBER
3243 , x_msg_data out nocopy VARCHAR2
3244 , p_lrv_id_tbl JTF_NUMBER_TABLE
3245 , p_end_date DATE
3246 )
3247
3248 as
3249 ddp_lrv_id_tbl okl_lease_rate_sets_pvt.okl_number_table;
3250 ddindx binary_integer; indx binary_integer;
3251 begin
3252
3253 -- copy data to the local IN or IN-OUT args, if any
3254
3255
3256
3257
3258
3259 okl_lease_rate_sets_pvt_w.rosetta_table_copy_in_p22(ddp_lrv_id_tbl, p_lrv_id_tbl);
3260
3261
3262 -- here's the delegated call to the old PL/SQL routine
3263 okl_lease_rate_sets_pvt.enddate_lease_rate_set(p_api_version,
3264 p_init_msg_list,
3265 x_return_status,
3266 x_msg_count,
3267 x_msg_data,
3268 ddp_lrv_id_tbl,
3269 p_end_date);
3270
3271 -- copy data back from the local variables to OUT or IN-OUT args, if any
3272
3273
3274
3275
3276
3277
3278 end;
3279
3280 end okl_lease_rate_sets_pvt_w;