[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_QUOTE_ASSET_PVT_W
Source
1 package body okl_lease_quote_asset_pvt_w as
2 /* $Header: OKLEQUAB.pls 120.15 2008/02/08 07:08:43 veramach noship $ */
3 procedure rosetta_table_copy_in_p26(t out nocopy okl_lease_quote_asset_pvt.asset_component_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_VARCHAR2_TABLE_300
15 , a12 JTF_VARCHAR2_TABLE_2000
16 , a13 JTF_VARCHAR2_TABLE_2000
17 , a14 JTF_VARCHAR2_TABLE_100
18 ) as
19 ddindx binary_integer; indx binary_integer;
20 begin
21 if a0 is not null and a0.count > 0 then
22 if a0.count > 0 then
23 indx := a0.first;
24 ddindx := 1;
25 while true loop
26 t(ddindx).id := a0(indx);
27 t(ddindx).object_version_number := a1(indx);
28 t(ddindx).asset_id := a2(indx);
29 t(ddindx).inv_item_id := a3(indx);
30 t(ddindx).supplier_id := a4(indx);
31 t(ddindx).primary_component := a5(indx);
32 t(ddindx).unit_cost := a6(indx);
33 t(ddindx).number_of_units := a7(indx);
34 t(ddindx).manufacturer_name := a8(indx);
35 t(ddindx).year_manufactured := a9(indx);
36 t(ddindx).model_number := a10(indx);
37 t(ddindx).short_description := a11(indx);
38 t(ddindx).description := a12(indx);
39 t(ddindx).comments := a13(indx);
40 t(ddindx).record_mode := a14(indx);
41 ddindx := ddindx+1;
42 if a0.last =indx
43 then exit;
44 end if;
45 indx := a0.next(indx);
46 end loop;
47 end if;
48 end if;
49 end rosetta_table_copy_in_p26;
50 procedure rosetta_table_copy_out_p26(t okl_lease_quote_asset_pvt.asset_component_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
51 , a1 out nocopy JTF_NUMBER_TABLE
52 , a2 out nocopy JTF_NUMBER_TABLE
53 , a3 out nocopy JTF_NUMBER_TABLE
54 , a4 out nocopy JTF_NUMBER_TABLE
55 , a5 out nocopy JTF_VARCHAR2_TABLE_100
56 , a6 out nocopy JTF_NUMBER_TABLE
57 , a7 out nocopy JTF_NUMBER_TABLE
58 , a8 out nocopy JTF_VARCHAR2_TABLE_100
59 , a9 out nocopy JTF_NUMBER_TABLE
60 , a10 out nocopy JTF_VARCHAR2_TABLE_100
61 , a11 out nocopy JTF_VARCHAR2_TABLE_300
62 , a12 out nocopy JTF_VARCHAR2_TABLE_2000
63 , a13 out nocopy JTF_VARCHAR2_TABLE_2000
64 , a14 out nocopy JTF_VARCHAR2_TABLE_100
65 ) as
66 ddindx binary_integer; indx binary_integer;
67 begin
68 if t is null or t.count = 0 then
69 a0 := JTF_NUMBER_TABLE();
70 a1 := JTF_NUMBER_TABLE();
71 a2 := JTF_NUMBER_TABLE();
72 a3 := JTF_NUMBER_TABLE();
73 a4 := JTF_NUMBER_TABLE();
74 a5 := JTF_VARCHAR2_TABLE_100();
75 a6 := JTF_NUMBER_TABLE();
76 a7 := JTF_NUMBER_TABLE();
77 a8 := JTF_VARCHAR2_TABLE_100();
78 a9 := JTF_NUMBER_TABLE();
79 a10 := JTF_VARCHAR2_TABLE_100();
80 a11 := JTF_VARCHAR2_TABLE_300();
81 a12 := JTF_VARCHAR2_TABLE_2000();
82 a13 := JTF_VARCHAR2_TABLE_2000();
83 a14 := JTF_VARCHAR2_TABLE_100();
84 else
85 a0 := JTF_NUMBER_TABLE();
86 a1 := JTF_NUMBER_TABLE();
87 a2 := JTF_NUMBER_TABLE();
88 a3 := JTF_NUMBER_TABLE();
89 a4 := JTF_NUMBER_TABLE();
90 a5 := JTF_VARCHAR2_TABLE_100();
91 a6 := JTF_NUMBER_TABLE();
92 a7 := JTF_NUMBER_TABLE();
93 a8 := JTF_VARCHAR2_TABLE_100();
94 a9 := JTF_NUMBER_TABLE();
95 a10 := JTF_VARCHAR2_TABLE_100();
96 a11 := JTF_VARCHAR2_TABLE_300();
97 a12 := JTF_VARCHAR2_TABLE_2000();
98 a13 := JTF_VARCHAR2_TABLE_2000();
99 a14 := JTF_VARCHAR2_TABLE_100();
100 if t.count > 0 then
101 a0.extend(t.count);
102 a1.extend(t.count);
103 a2.extend(t.count);
104 a3.extend(t.count);
105 a4.extend(t.count);
106 a5.extend(t.count);
107 a6.extend(t.count);
108 a7.extend(t.count);
109 a8.extend(t.count);
110 a9.extend(t.count);
111 a10.extend(t.count);
112 a11.extend(t.count);
113 a12.extend(t.count);
114 a13.extend(t.count);
115 a14.extend(t.count);
116 ddindx := t.first;
117 indx := 1;
118 while true loop
119 a0(indx) := t(ddindx).id;
120 a1(indx) := t(ddindx).object_version_number;
121 a2(indx) := t(ddindx).asset_id;
122 a3(indx) := t(ddindx).inv_item_id;
123 a4(indx) := t(ddindx).supplier_id;
124 a5(indx) := t(ddindx).primary_component;
125 a6(indx) := t(ddindx).unit_cost;
126 a7(indx) := t(ddindx).number_of_units;
127 a8(indx) := t(ddindx).manufacturer_name;
128 a9(indx) := t(ddindx).year_manufactured;
129 a10(indx) := t(ddindx).model_number;
130 a11(indx) := t(ddindx).short_description;
131 a12(indx) := t(ddindx).description;
132 a13(indx) := t(ddindx).comments;
133 a14(indx) := t(ddindx).record_mode;
134 indx := indx+1;
135 if t.last =ddindx
136 then exit;
137 end if;
138 ddindx := t.next(ddindx);
139 end loop;
140 end if;
141 end if;
142 end rosetta_table_copy_out_p26;
143
144 procedure rosetta_table_copy_in_p28(t out nocopy okl_lease_quote_asset_pvt.asset_adjustment_tbl_type, a0 JTF_NUMBER_TABLE
145 , a1 JTF_NUMBER_TABLE
146 , a2 JTF_VARCHAR2_TABLE_100
147 , a3 JTF_NUMBER_TABLE
148 , a4 JTF_VARCHAR2_TABLE_100
149 , a5 JTF_NUMBER_TABLE
150 , a6 JTF_VARCHAR2_TABLE_100
151 , a7 JTF_NUMBER_TABLE
152 , a8 JTF_NUMBER_TABLE
153 , a9 JTF_VARCHAR2_TABLE_100
154 , a10 JTF_NUMBER_TABLE
155 , a11 JTF_VARCHAR2_TABLE_300
156 , a12 JTF_VARCHAR2_TABLE_2000
157 , a13 JTF_VARCHAR2_TABLE_2000
158 , a14 JTF_NUMBER_TABLE
159 , a15 JTF_VARCHAR2_TABLE_100
160 , a16 JTF_NUMBER_TABLE
161 , a17 JTF_NUMBER_TABLE
162 , a18 JTF_NUMBER_TABLE
163 ) as
164 ddindx binary_integer; indx binary_integer;
165 begin
166 if a0 is not null and a0.count > 0 then
167 if a0.count > 0 then
168 indx := a0.first;
169 ddindx := 1;
170 while true loop
171 t(ddindx).id := a0(indx);
172 t(ddindx).object_version_number := a1(indx);
173 t(ddindx).parent_object_code := a2(indx);
174 t(ddindx).parent_object_id := a3(indx);
175 t(ddindx).adjustment_source_type := a4(indx);
176 t(ddindx).adjustment_source_id := a5(indx);
177 t(ddindx).basis := a6(indx);
178 t(ddindx).value := a7(indx);
179 t(ddindx).default_subsidy_amount := a8(indx);
180 t(ddindx).processing_type := a9(indx);
181 t(ddindx).supplier_id := a10(indx);
182 t(ddindx).short_description := a11(indx);
183 t(ddindx).description := a12(indx);
184 t(ddindx).comments := a13(indx);
185 t(ddindx).quote_id := a14(indx);
186 t(ddindx).record_mode := a15(indx);
187 t(ddindx).adjustment_amount := a16(indx);
188 t(ddindx).percent_basis_value := a17(indx);
189 t(ddindx).stream_type_id := a18(indx);
190 ddindx := ddindx+1;
191 if a0.last =indx
192 then exit;
193 end if;
194 indx := a0.next(indx);
195 end loop;
196 end if;
197 end if;
198 end rosetta_table_copy_in_p28;
199 procedure rosetta_table_copy_out_p28(t okl_lease_quote_asset_pvt.asset_adjustment_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
200 , a1 out nocopy JTF_NUMBER_TABLE
201 , a2 out nocopy JTF_VARCHAR2_TABLE_100
202 , a3 out nocopy JTF_NUMBER_TABLE
203 , a4 out nocopy JTF_VARCHAR2_TABLE_100
204 , a5 out nocopy JTF_NUMBER_TABLE
205 , a6 out nocopy JTF_VARCHAR2_TABLE_100
206 , a7 out nocopy JTF_NUMBER_TABLE
207 , a8 out nocopy JTF_NUMBER_TABLE
208 , a9 out nocopy JTF_VARCHAR2_TABLE_100
209 , a10 out nocopy JTF_NUMBER_TABLE
210 , a11 out nocopy JTF_VARCHAR2_TABLE_300
211 , a12 out nocopy JTF_VARCHAR2_TABLE_2000
212 , a13 out nocopy JTF_VARCHAR2_TABLE_2000
213 , a14 out nocopy JTF_NUMBER_TABLE
214 , a15 out nocopy JTF_VARCHAR2_TABLE_100
215 , a16 out nocopy JTF_NUMBER_TABLE
216 , a17 out nocopy JTF_NUMBER_TABLE
217 , a18 out nocopy JTF_NUMBER_TABLE
218 ) as
219 ddindx binary_integer; indx binary_integer;
220 begin
221 if t is null or t.count = 0 then
222 a0 := JTF_NUMBER_TABLE();
223 a1 := JTF_NUMBER_TABLE();
224 a2 := JTF_VARCHAR2_TABLE_100();
225 a3 := JTF_NUMBER_TABLE();
226 a4 := JTF_VARCHAR2_TABLE_100();
227 a5 := JTF_NUMBER_TABLE();
228 a6 := JTF_VARCHAR2_TABLE_100();
229 a7 := JTF_NUMBER_TABLE();
230 a8 := JTF_NUMBER_TABLE();
231 a9 := JTF_VARCHAR2_TABLE_100();
232 a10 := JTF_NUMBER_TABLE();
233 a11 := JTF_VARCHAR2_TABLE_300();
234 a12 := JTF_VARCHAR2_TABLE_2000();
235 a13 := JTF_VARCHAR2_TABLE_2000();
236 a14 := JTF_NUMBER_TABLE();
237 a15 := JTF_VARCHAR2_TABLE_100();
238 a16 := JTF_NUMBER_TABLE();
239 a17 := JTF_NUMBER_TABLE();
240 a18 := JTF_NUMBER_TABLE();
241 else
242 a0 := JTF_NUMBER_TABLE();
243 a1 := JTF_NUMBER_TABLE();
244 a2 := JTF_VARCHAR2_TABLE_100();
245 a3 := JTF_NUMBER_TABLE();
246 a4 := JTF_VARCHAR2_TABLE_100();
247 a5 := JTF_NUMBER_TABLE();
248 a6 := JTF_VARCHAR2_TABLE_100();
249 a7 := JTF_NUMBER_TABLE();
250 a8 := JTF_NUMBER_TABLE();
251 a9 := JTF_VARCHAR2_TABLE_100();
252 a10 := JTF_NUMBER_TABLE();
253 a11 := JTF_VARCHAR2_TABLE_300();
254 a12 := JTF_VARCHAR2_TABLE_2000();
255 a13 := JTF_VARCHAR2_TABLE_2000();
256 a14 := JTF_NUMBER_TABLE();
257 a15 := JTF_VARCHAR2_TABLE_100();
258 a16 := JTF_NUMBER_TABLE();
259 a17 := JTF_NUMBER_TABLE();
260 a18 := JTF_NUMBER_TABLE();
261 if t.count > 0 then
262 a0.extend(t.count);
263 a1.extend(t.count);
264 a2.extend(t.count);
265 a3.extend(t.count);
266 a4.extend(t.count);
267 a5.extend(t.count);
268 a6.extend(t.count);
269 a7.extend(t.count);
270 a8.extend(t.count);
271 a9.extend(t.count);
272 a10.extend(t.count);
273 a11.extend(t.count);
274 a12.extend(t.count);
275 a13.extend(t.count);
276 a14.extend(t.count);
277 a15.extend(t.count);
278 a16.extend(t.count);
279 a17.extend(t.count);
280 a18.extend(t.count);
281 ddindx := t.first;
282 indx := 1;
283 while true loop
284 a0(indx) := t(ddindx).id;
285 a1(indx) := t(ddindx).object_version_number;
286 a2(indx) := t(ddindx).parent_object_code;
287 a3(indx) := t(ddindx).parent_object_id;
288 a4(indx) := t(ddindx).adjustment_source_type;
289 a5(indx) := t(ddindx).adjustment_source_id;
290 a6(indx) := t(ddindx).basis;
291 a7(indx) := t(ddindx).value;
292 a8(indx) := t(ddindx).default_subsidy_amount;
293 a9(indx) := t(ddindx).processing_type;
294 a10(indx) := t(ddindx).supplier_id;
295 a11(indx) := t(ddindx).short_description;
296 a12(indx) := t(ddindx).description;
297 a13(indx) := t(ddindx).comments;
298 a14(indx) := t(ddindx).quote_id;
299 a15(indx) := t(ddindx).record_mode;
300 a16(indx) := t(ddindx).adjustment_amount;
301 a17(indx) := t(ddindx).percent_basis_value;
302 a18(indx) := t(ddindx).stream_type_id;
303 indx := indx+1;
304 if t.last =ddindx
305 then exit;
306 end if;
307 ddindx := t.next(ddindx);
308 end loop;
309 end if;
310 end if;
311 end rosetta_table_copy_out_p28;
312
313 procedure create_asset(p_api_version NUMBER
314 , p_init_msg_list VARCHAR2
315 , p_transaction_control VARCHAR2
316 , p3_a0 NUMBER
317 , p3_a1 NUMBER
318 , p3_a2 VARCHAR2
319 , p3_a3 VARCHAR2
320 , p3_a4 VARCHAR2
321 , p3_a5 VARCHAR2
322 , p3_a6 VARCHAR2
323 , p3_a7 VARCHAR2
324 , p3_a8 VARCHAR2
325 , p3_a9 VARCHAR2
326 , p3_a10 VARCHAR2
327 , p3_a11 VARCHAR2
328 , p3_a12 VARCHAR2
329 , p3_a13 VARCHAR2
330 , p3_a14 VARCHAR2
331 , p3_a15 VARCHAR2
332 , p3_a16 VARCHAR2
333 , p3_a17 VARCHAR2
334 , p3_a18 VARCHAR2
335 , p3_a19 NUMBER
336 , p3_a20 VARCHAR2
337 , p3_a21 NUMBER
338 , p3_a22 VARCHAR2
339 , p3_a23 NUMBER
340 , p3_a24 NUMBER
341 , p3_a25 NUMBER
342 , p3_a26 VARCHAR2
343 , p3_a27 NUMBER
344 , p3_a28 NUMBER
345 , p3_a29 NUMBER
346 , p3_a30 NUMBER
347 , p3_a31 NUMBER
348 , p3_a32 NUMBER
349 , p3_a33 VARCHAR2
350 , p3_a34 VARCHAR2
351 , p3_a35 VARCHAR2
352 , p3_a36 VARCHAR2
353 , p4_a0 JTF_NUMBER_TABLE
354 , p4_a1 JTF_NUMBER_TABLE
355 , p4_a2 JTF_NUMBER_TABLE
356 , p4_a3 JTF_NUMBER_TABLE
357 , p4_a4 JTF_NUMBER_TABLE
358 , p4_a5 JTF_VARCHAR2_TABLE_100
359 , p4_a6 JTF_NUMBER_TABLE
360 , p4_a7 JTF_NUMBER_TABLE
361 , p4_a8 JTF_VARCHAR2_TABLE_100
362 , p4_a9 JTF_NUMBER_TABLE
363 , p4_a10 JTF_VARCHAR2_TABLE_100
364 , p4_a11 JTF_VARCHAR2_TABLE_300
365 , p4_a12 JTF_VARCHAR2_TABLE_2000
366 , p4_a13 JTF_VARCHAR2_TABLE_2000
367 , p4_a14 JTF_VARCHAR2_TABLE_100
368 , p5_a0 VARCHAR2
369 , p5_a1 NUMBER
370 , p5_a2 VARCHAR2
371 , p5_a3 VARCHAR2
372 , p5_a4 VARCHAR2
373 , p5_a5 VARCHAR2
374 , p5_a6 VARCHAR2
375 , p5_a7 VARCHAR2
376 , p5_a8 NUMBER
377 , p5_a9 VARCHAR2
378 , p5_a10 NUMBER
379 , p5_a11 NUMBER
380 , p5_a12 NUMBER
381 , p5_a13 NUMBER
382 , p6_a0 JTF_NUMBER_TABLE
383 , p6_a1 JTF_DATE_TABLE
384 , p6_a2 JTF_NUMBER_TABLE
385 , p6_a3 JTF_NUMBER_TABLE
386 , p6_a4 JTF_NUMBER_TABLE
387 , p6_a5 JTF_NUMBER_TABLE
388 , p6_a6 JTF_NUMBER_TABLE
389 , p6_a7 JTF_NUMBER_TABLE
390 , p6_a8 JTF_VARCHAR2_TABLE_100
391 , p6_a9 JTF_VARCHAR2_TABLE_100
392 , x_return_status out nocopy VARCHAR2
393 , x_msg_count out nocopy NUMBER
394 , x_msg_data out nocopy VARCHAR2
395 )
396
397 as
398 ddp_asset_rec okl_lease_quote_asset_pvt.asset_rec_type;
399 ddp_component_tbl okl_lease_quote_asset_pvt.asset_component_tbl_type;
400 ddp_cf_hdr_rec okl_lease_quote_asset_pvt.cashflow_hdr_rec_type;
401 ddp_cf_level_tbl okl_lease_quote_asset_pvt.cashflow_level_tbl_type;
402 ddindx binary_integer; indx binary_integer;
403 begin
404
405 -- copy data to the local IN or IN-OUT args, if any
406
407
408
409 ddp_asset_rec.id := p3_a0;
410 ddp_asset_rec.object_version_number := p3_a1;
411 ddp_asset_rec.attribute_category := p3_a2;
412 ddp_asset_rec.attribute1 := p3_a3;
413 ddp_asset_rec.attribute2 := p3_a4;
414 ddp_asset_rec.attribute3 := p3_a5;
415 ddp_asset_rec.attribute4 := p3_a6;
416 ddp_asset_rec.attribute5 := p3_a7;
417 ddp_asset_rec.attribute6 := p3_a8;
418 ddp_asset_rec.attribute7 := p3_a9;
419 ddp_asset_rec.attribute8 := p3_a10;
420 ddp_asset_rec.attribute9 := p3_a11;
421 ddp_asset_rec.attribute10 := p3_a12;
422 ddp_asset_rec.attribute11 := p3_a13;
423 ddp_asset_rec.attribute12 := p3_a14;
424 ddp_asset_rec.attribute13 := p3_a15;
425 ddp_asset_rec.attribute14 := p3_a16;
426 ddp_asset_rec.attribute15 := p3_a17;
427 ddp_asset_rec.parent_object_code := p3_a18;
428 ddp_asset_rec.parent_object_id := p3_a19;
429 ddp_asset_rec.asset_number := p3_a20;
430 ddp_asset_rec.install_site_id := p3_a21;
431 ddp_asset_rec.structured_pricing := p3_a22;
432 ddp_asset_rec.rate_template_id := p3_a23;
433 ddp_asset_rec.rate_card_id := p3_a24;
434 ddp_asset_rec.lease_rate_factor := p3_a25;
435 ddp_asset_rec.target_arrears := p3_a26;
436 ddp_asset_rec.oec := p3_a27;
437 ddp_asset_rec.oec_percentage := p3_a28;
438 ddp_asset_rec.end_of_term_value_default := p3_a29;
439 ddp_asset_rec.end_of_term_value := p3_a30;
440 ddp_asset_rec.orig_asset_id := p3_a31;
441 ddp_asset_rec.target_amount := p3_a32;
442 ddp_asset_rec.target_frequency := p3_a33;
443 ddp_asset_rec.short_description := p3_a34;
444 ddp_asset_rec.description := p3_a35;
445 ddp_asset_rec.comments := p3_a36;
446
447 okl_lease_quote_asset_pvt_w.rosetta_table_copy_in_p26(ddp_component_tbl, p4_a0
448 , p4_a1
449 , p4_a2
450 , p4_a3
451 , p4_a4
452 , p4_a5
453 , p4_a6
454 , p4_a7
455 , p4_a8
456 , p4_a9
457 , p4_a10
458 , p4_a11
459 , p4_a12
460 , p4_a13
461 , p4_a14
462 );
463
464 ddp_cf_hdr_rec.type_code := p5_a0;
465 ddp_cf_hdr_rec.stream_type_id := p5_a1;
466 ddp_cf_hdr_rec.status_code := p5_a2;
467 ddp_cf_hdr_rec.arrears_flag := p5_a3;
468 ddp_cf_hdr_rec.frequency_code := p5_a4;
469 ddp_cf_hdr_rec.dnz_periods := p5_a5;
470 ddp_cf_hdr_rec.dnz_periodic_amount := p5_a6;
471 ddp_cf_hdr_rec.parent_object_code := p5_a7;
472 ddp_cf_hdr_rec.parent_object_id := p5_a8;
473 ddp_cf_hdr_rec.quote_type_code := p5_a9;
474 ddp_cf_hdr_rec.quote_id := p5_a10;
475 ddp_cf_hdr_rec.cashflow_header_id := p5_a11;
476 ddp_cf_hdr_rec.cashflow_object_id := p5_a12;
477 ddp_cf_hdr_rec.cashflow_header_ovn := p5_a13;
478
479 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_cf_level_tbl, p6_a0
480 , p6_a1
481 , p6_a2
482 , p6_a3
483 , p6_a4
484 , p6_a5
485 , p6_a6
486 , p6_a7
487 , p6_a8
488 , p6_a9
489 );
490
491
492
493
494 -- here's the delegated call to the old PL/SQL routine
495 okl_lease_quote_asset_pvt.create_asset(p_api_version,
496 p_init_msg_list,
497 p_transaction_control,
498 ddp_asset_rec,
499 ddp_component_tbl,
500 ddp_cf_hdr_rec,
501 ddp_cf_level_tbl,
502 x_return_status,
503 x_msg_count,
504 x_msg_data);
505
506 -- copy data back from the local variables to OUT or IN-OUT args, if any
507
508
509
510
511
512
513
514
515
516 end;
517
518 procedure duplicate_asset(p_api_version NUMBER
519 , p_init_msg_list VARCHAR2
520 , p_transaction_control VARCHAR2
521 , p_source_asset_id NUMBER
522 , p4_a0 NUMBER
523 , p4_a1 NUMBER
524 , p4_a2 VARCHAR2
525 , p4_a3 VARCHAR2
526 , p4_a4 VARCHAR2
527 , p4_a5 VARCHAR2
528 , p4_a6 VARCHAR2
529 , p4_a7 VARCHAR2
530 , p4_a8 VARCHAR2
531 , p4_a9 VARCHAR2
532 , p4_a10 VARCHAR2
533 , p4_a11 VARCHAR2
534 , p4_a12 VARCHAR2
535 , p4_a13 VARCHAR2
536 , p4_a14 VARCHAR2
537 , p4_a15 VARCHAR2
538 , p4_a16 VARCHAR2
539 , p4_a17 VARCHAR2
540 , p4_a18 VARCHAR2
541 , p4_a19 NUMBER
542 , p4_a20 VARCHAR2
543 , p4_a21 NUMBER
544 , p4_a22 VARCHAR2
545 , p4_a23 NUMBER
546 , p4_a24 NUMBER
547 , p4_a25 NUMBER
548 , p4_a26 VARCHAR2
549 , p4_a27 NUMBER
550 , p4_a28 NUMBER
551 , p4_a29 NUMBER
552 , p4_a30 NUMBER
553 , p4_a31 NUMBER
554 , p4_a32 NUMBER
555 , p4_a33 VARCHAR2
556 , p4_a34 VARCHAR2
557 , p4_a35 VARCHAR2
558 , p4_a36 VARCHAR2
559 , p5_a0 JTF_NUMBER_TABLE
560 , p5_a1 JTF_NUMBER_TABLE
561 , p5_a2 JTF_NUMBER_TABLE
562 , p5_a3 JTF_NUMBER_TABLE
563 , p5_a4 JTF_NUMBER_TABLE
564 , p5_a5 JTF_VARCHAR2_TABLE_100
565 , p5_a6 JTF_NUMBER_TABLE
566 , p5_a7 JTF_NUMBER_TABLE
567 , p5_a8 JTF_VARCHAR2_TABLE_100
568 , p5_a9 JTF_NUMBER_TABLE
569 , p5_a10 JTF_VARCHAR2_TABLE_100
570 , p5_a11 JTF_VARCHAR2_TABLE_300
571 , p5_a12 JTF_VARCHAR2_TABLE_2000
572 , p5_a13 JTF_VARCHAR2_TABLE_2000
573 , p5_a14 JTF_VARCHAR2_TABLE_100
574 , p6_a0 VARCHAR2
575 , p6_a1 NUMBER
576 , p6_a2 VARCHAR2
577 , p6_a3 VARCHAR2
578 , p6_a4 VARCHAR2
579 , p6_a5 VARCHAR2
580 , p6_a6 VARCHAR2
581 , p6_a7 VARCHAR2
582 , p6_a8 NUMBER
583 , p6_a9 VARCHAR2
584 , p6_a10 NUMBER
585 , p6_a11 NUMBER
586 , p6_a12 NUMBER
587 , p6_a13 NUMBER
588 , p7_a0 JTF_NUMBER_TABLE
589 , p7_a1 JTF_DATE_TABLE
590 , p7_a2 JTF_NUMBER_TABLE
591 , p7_a3 JTF_NUMBER_TABLE
592 , p7_a4 JTF_NUMBER_TABLE
593 , p7_a5 JTF_NUMBER_TABLE
594 , p7_a6 JTF_NUMBER_TABLE
595 , p7_a7 JTF_NUMBER_TABLE
596 , p7_a8 JTF_VARCHAR2_TABLE_100
597 , p7_a9 JTF_VARCHAR2_TABLE_100
598 , x_return_status out nocopy VARCHAR2
599 , x_msg_count out nocopy NUMBER
600 , x_msg_data out nocopy VARCHAR2
601 )
602
603 as
604 ddp_asset_rec okl_lease_quote_asset_pvt.asset_rec_type;
605 ddp_component_tbl okl_lease_quote_asset_pvt.asset_component_tbl_type;
606 ddp_cf_hdr_rec okl_lease_quote_asset_pvt.cashflow_hdr_rec_type;
607 ddp_cf_level_tbl okl_lease_quote_asset_pvt.cashflow_level_tbl_type;
608 ddindx binary_integer; indx binary_integer;
609 begin
610
611 -- copy data to the local IN or IN-OUT args, if any
612
613
614
615
616 ddp_asset_rec.id := p4_a0;
617 ddp_asset_rec.object_version_number := p4_a1;
618 ddp_asset_rec.attribute_category := p4_a2;
619 ddp_asset_rec.attribute1 := p4_a3;
620 ddp_asset_rec.attribute2 := p4_a4;
621 ddp_asset_rec.attribute3 := p4_a5;
622 ddp_asset_rec.attribute4 := p4_a6;
623 ddp_asset_rec.attribute5 := p4_a7;
624 ddp_asset_rec.attribute6 := p4_a8;
625 ddp_asset_rec.attribute7 := p4_a9;
626 ddp_asset_rec.attribute8 := p4_a10;
627 ddp_asset_rec.attribute9 := p4_a11;
628 ddp_asset_rec.attribute10 := p4_a12;
629 ddp_asset_rec.attribute11 := p4_a13;
630 ddp_asset_rec.attribute12 := p4_a14;
631 ddp_asset_rec.attribute13 := p4_a15;
632 ddp_asset_rec.attribute14 := p4_a16;
633 ddp_asset_rec.attribute15 := p4_a17;
634 ddp_asset_rec.parent_object_code := p4_a18;
635 ddp_asset_rec.parent_object_id := p4_a19;
636 ddp_asset_rec.asset_number := p4_a20;
637 ddp_asset_rec.install_site_id := p4_a21;
638 ddp_asset_rec.structured_pricing := p4_a22;
639 ddp_asset_rec.rate_template_id := p4_a23;
640 ddp_asset_rec.rate_card_id := p4_a24;
641 ddp_asset_rec.lease_rate_factor := p4_a25;
642 ddp_asset_rec.target_arrears := p4_a26;
643 ddp_asset_rec.oec := p4_a27;
644 ddp_asset_rec.oec_percentage := p4_a28;
645 ddp_asset_rec.end_of_term_value_default := p4_a29;
646 ddp_asset_rec.end_of_term_value := p4_a30;
647 ddp_asset_rec.orig_asset_id := p4_a31;
648 ddp_asset_rec.target_amount := p4_a32;
649 ddp_asset_rec.target_frequency := p4_a33;
650 ddp_asset_rec.short_description := p4_a34;
651 ddp_asset_rec.description := p4_a35;
652 ddp_asset_rec.comments := p4_a36;
653
654 okl_lease_quote_asset_pvt_w.rosetta_table_copy_in_p26(ddp_component_tbl, p5_a0
655 , p5_a1
656 , p5_a2
657 , p5_a3
658 , p5_a4
659 , p5_a5
660 , p5_a6
661 , p5_a7
662 , p5_a8
663 , p5_a9
664 , p5_a10
665 , p5_a11
666 , p5_a12
667 , p5_a13
668 , p5_a14
669 );
670
671 ddp_cf_hdr_rec.type_code := p6_a0;
672 ddp_cf_hdr_rec.stream_type_id := p6_a1;
673 ddp_cf_hdr_rec.status_code := p6_a2;
674 ddp_cf_hdr_rec.arrears_flag := p6_a3;
675 ddp_cf_hdr_rec.frequency_code := p6_a4;
676 ddp_cf_hdr_rec.dnz_periods := p6_a5;
677 ddp_cf_hdr_rec.dnz_periodic_amount := p6_a6;
678 ddp_cf_hdr_rec.parent_object_code := p6_a7;
679 ddp_cf_hdr_rec.parent_object_id := p6_a8;
680 ddp_cf_hdr_rec.quote_type_code := p6_a9;
681 ddp_cf_hdr_rec.quote_id := p6_a10;
682 ddp_cf_hdr_rec.cashflow_header_id := p6_a11;
683 ddp_cf_hdr_rec.cashflow_object_id := p6_a12;
684 ddp_cf_hdr_rec.cashflow_header_ovn := p6_a13;
685
686 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_cf_level_tbl, p7_a0
687 , p7_a1
688 , p7_a2
689 , p7_a3
690 , p7_a4
691 , p7_a5
692 , p7_a6
693 , p7_a7
694 , p7_a8
695 , p7_a9
696 );
697
698
699
700
701 -- here's the delegated call to the old PL/SQL routine
702 okl_lease_quote_asset_pvt.duplicate_asset(p_api_version,
703 p_init_msg_list,
704 p_transaction_control,
705 p_source_asset_id,
706 ddp_asset_rec,
707 ddp_component_tbl,
708 ddp_cf_hdr_rec,
709 ddp_cf_level_tbl,
710 x_return_status,
711 x_msg_count,
712 x_msg_data);
713
714 -- copy data back from the local variables to OUT or IN-OUT args, if any
715
716
717
718
719
720
721
722
723
724
725 end;
726
727 procedure update_asset(p_api_version NUMBER
728 , p_init_msg_list VARCHAR2
729 , p_transaction_control VARCHAR2
730 , p3_a0 NUMBER
731 , p3_a1 NUMBER
732 , p3_a2 VARCHAR2
733 , p3_a3 VARCHAR2
734 , p3_a4 VARCHAR2
735 , p3_a5 VARCHAR2
736 , p3_a6 VARCHAR2
737 , p3_a7 VARCHAR2
738 , p3_a8 VARCHAR2
739 , p3_a9 VARCHAR2
740 , p3_a10 VARCHAR2
741 , p3_a11 VARCHAR2
742 , p3_a12 VARCHAR2
743 , p3_a13 VARCHAR2
744 , p3_a14 VARCHAR2
745 , p3_a15 VARCHAR2
746 , p3_a16 VARCHAR2
747 , p3_a17 VARCHAR2
748 , p3_a18 VARCHAR2
749 , p3_a19 NUMBER
750 , p3_a20 VARCHAR2
751 , p3_a21 NUMBER
752 , p3_a22 VARCHAR2
753 , p3_a23 NUMBER
754 , p3_a24 NUMBER
755 , p3_a25 NUMBER
756 , p3_a26 VARCHAR2
757 , p3_a27 NUMBER
758 , p3_a28 NUMBER
759 , p3_a29 NUMBER
760 , p3_a30 NUMBER
761 , p3_a31 NUMBER
762 , p3_a32 NUMBER
763 , p3_a33 VARCHAR2
764 , p3_a34 VARCHAR2
765 , p3_a35 VARCHAR2
766 , p3_a36 VARCHAR2
767 , p4_a0 JTF_NUMBER_TABLE
768 , p4_a1 JTF_NUMBER_TABLE
769 , p4_a2 JTF_NUMBER_TABLE
770 , p4_a3 JTF_NUMBER_TABLE
771 , p4_a4 JTF_NUMBER_TABLE
772 , p4_a5 JTF_VARCHAR2_TABLE_100
773 , p4_a6 JTF_NUMBER_TABLE
774 , p4_a7 JTF_NUMBER_TABLE
775 , p4_a8 JTF_VARCHAR2_TABLE_100
776 , p4_a9 JTF_NUMBER_TABLE
777 , p4_a10 JTF_VARCHAR2_TABLE_100
778 , p4_a11 JTF_VARCHAR2_TABLE_300
779 , p4_a12 JTF_VARCHAR2_TABLE_2000
780 , p4_a13 JTF_VARCHAR2_TABLE_2000
781 , p4_a14 JTF_VARCHAR2_TABLE_100
782 , p5_a0 VARCHAR2
783 , p5_a1 NUMBER
784 , p5_a2 VARCHAR2
785 , p5_a3 VARCHAR2
786 , p5_a4 VARCHAR2
787 , p5_a5 VARCHAR2
788 , p5_a6 VARCHAR2
789 , p5_a7 VARCHAR2
790 , p5_a8 NUMBER
791 , p5_a9 VARCHAR2
792 , p5_a10 NUMBER
793 , p5_a11 NUMBER
794 , p5_a12 NUMBER
795 , p5_a13 NUMBER
796 , p6_a0 JTF_NUMBER_TABLE
797 , p6_a1 JTF_DATE_TABLE
798 , p6_a2 JTF_NUMBER_TABLE
799 , p6_a3 JTF_NUMBER_TABLE
800 , p6_a4 JTF_NUMBER_TABLE
801 , p6_a5 JTF_NUMBER_TABLE
802 , p6_a6 JTF_NUMBER_TABLE
803 , p6_a7 JTF_NUMBER_TABLE
804 , p6_a8 JTF_VARCHAR2_TABLE_100
805 , p6_a9 JTF_VARCHAR2_TABLE_100
806 , x_return_status out nocopy VARCHAR2
807 , x_msg_count out nocopy NUMBER
808 , x_msg_data out nocopy VARCHAR2
809 )
810
811 as
812 ddp_asset_rec okl_lease_quote_asset_pvt.asset_rec_type;
813 ddp_component_tbl okl_lease_quote_asset_pvt.asset_component_tbl_type;
814 ddp_cf_hdr_rec okl_lease_quote_asset_pvt.cashflow_hdr_rec_type;
815 ddp_cf_level_tbl okl_lease_quote_asset_pvt.cashflow_level_tbl_type;
816 ddindx binary_integer; indx binary_integer;
817 begin
818
819 -- copy data to the local IN or IN-OUT args, if any
820
821
822
823 ddp_asset_rec.id := p3_a0;
824 ddp_asset_rec.object_version_number := p3_a1;
825 ddp_asset_rec.attribute_category := p3_a2;
826 ddp_asset_rec.attribute1 := p3_a3;
827 ddp_asset_rec.attribute2 := p3_a4;
828 ddp_asset_rec.attribute3 := p3_a5;
829 ddp_asset_rec.attribute4 := p3_a6;
830 ddp_asset_rec.attribute5 := p3_a7;
831 ddp_asset_rec.attribute6 := p3_a8;
832 ddp_asset_rec.attribute7 := p3_a9;
833 ddp_asset_rec.attribute8 := p3_a10;
834 ddp_asset_rec.attribute9 := p3_a11;
835 ddp_asset_rec.attribute10 := p3_a12;
836 ddp_asset_rec.attribute11 := p3_a13;
837 ddp_asset_rec.attribute12 := p3_a14;
838 ddp_asset_rec.attribute13 := p3_a15;
839 ddp_asset_rec.attribute14 := p3_a16;
840 ddp_asset_rec.attribute15 := p3_a17;
841 ddp_asset_rec.parent_object_code := p3_a18;
842 ddp_asset_rec.parent_object_id := p3_a19;
843 ddp_asset_rec.asset_number := p3_a20;
844 ddp_asset_rec.install_site_id := p3_a21;
845 ddp_asset_rec.structured_pricing := p3_a22;
846 ddp_asset_rec.rate_template_id := p3_a23;
847 ddp_asset_rec.rate_card_id := p3_a24;
848 ddp_asset_rec.lease_rate_factor := p3_a25;
849 ddp_asset_rec.target_arrears := p3_a26;
850 ddp_asset_rec.oec := p3_a27;
851 ddp_asset_rec.oec_percentage := p3_a28;
852 ddp_asset_rec.end_of_term_value_default := p3_a29;
853 ddp_asset_rec.end_of_term_value := p3_a30;
854 ddp_asset_rec.orig_asset_id := p3_a31;
855 ddp_asset_rec.target_amount := p3_a32;
856 ddp_asset_rec.target_frequency := p3_a33;
857 ddp_asset_rec.short_description := p3_a34;
858 ddp_asset_rec.description := p3_a35;
859 ddp_asset_rec.comments := p3_a36;
860
861 okl_lease_quote_asset_pvt_w.rosetta_table_copy_in_p26(ddp_component_tbl, p4_a0
862 , p4_a1
863 , p4_a2
864 , p4_a3
865 , p4_a4
866 , p4_a5
867 , p4_a6
868 , p4_a7
869 , p4_a8
870 , p4_a9
871 , p4_a10
872 , p4_a11
873 , p4_a12
874 , p4_a13
875 , p4_a14
876 );
877
878 ddp_cf_hdr_rec.type_code := p5_a0;
879 ddp_cf_hdr_rec.stream_type_id := p5_a1;
880 ddp_cf_hdr_rec.status_code := p5_a2;
881 ddp_cf_hdr_rec.arrears_flag := p5_a3;
882 ddp_cf_hdr_rec.frequency_code := p5_a4;
883 ddp_cf_hdr_rec.dnz_periods := p5_a5;
884 ddp_cf_hdr_rec.dnz_periodic_amount := p5_a6;
885 ddp_cf_hdr_rec.parent_object_code := p5_a7;
886 ddp_cf_hdr_rec.parent_object_id := p5_a8;
887 ddp_cf_hdr_rec.quote_type_code := p5_a9;
888 ddp_cf_hdr_rec.quote_id := p5_a10;
889 ddp_cf_hdr_rec.cashflow_header_id := p5_a11;
890 ddp_cf_hdr_rec.cashflow_object_id := p5_a12;
891 ddp_cf_hdr_rec.cashflow_header_ovn := p5_a13;
892
893 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_cf_level_tbl, p6_a0
894 , p6_a1
895 , p6_a2
896 , p6_a3
897 , p6_a4
898 , p6_a5
899 , p6_a6
900 , p6_a7
901 , p6_a8
902 , p6_a9
903 );
904
905
906
907
908 -- here's the delegated call to the old PL/SQL routine
909 okl_lease_quote_asset_pvt.update_asset(p_api_version,
910 p_init_msg_list,
911 p_transaction_control,
912 ddp_asset_rec,
913 ddp_component_tbl,
914 ddp_cf_hdr_rec,
915 ddp_cf_level_tbl,
916 x_return_status,
917 x_msg_count,
918 x_msg_data);
919
920 -- copy data back from the local variables to OUT or IN-OUT args, if any
921
922
923
924
925
926
927
928
929
930 end;
931
932 procedure create_adjustment(p_api_version NUMBER
933 , p_init_msg_list VARCHAR2
934 , p_transaction_control VARCHAR2
935 , p3_a0 JTF_NUMBER_TABLE
936 , p3_a1 JTF_NUMBER_TABLE
937 , p3_a2 JTF_VARCHAR2_TABLE_100
938 , p3_a3 JTF_NUMBER_TABLE
939 , p3_a4 JTF_VARCHAR2_TABLE_100
940 , p3_a5 JTF_NUMBER_TABLE
941 , p3_a6 JTF_VARCHAR2_TABLE_100
942 , p3_a7 JTF_NUMBER_TABLE
943 , p3_a8 JTF_NUMBER_TABLE
944 , p3_a9 JTF_VARCHAR2_TABLE_100
945 , p3_a10 JTF_NUMBER_TABLE
946 , p3_a11 JTF_VARCHAR2_TABLE_300
947 , p3_a12 JTF_VARCHAR2_TABLE_2000
948 , p3_a13 JTF_VARCHAR2_TABLE_2000
949 , p3_a14 JTF_NUMBER_TABLE
950 , p3_a15 JTF_VARCHAR2_TABLE_100
951 , p3_a16 JTF_NUMBER_TABLE
952 , p3_a17 JTF_NUMBER_TABLE
953 , p3_a18 JTF_NUMBER_TABLE
954 , x_return_status out nocopy VARCHAR2
955 , x_msg_count out nocopy NUMBER
956 , x_msg_data out nocopy VARCHAR2
957 )
958
959 as
960 ddp_asset_adj_tbl okl_lease_quote_asset_pvt.asset_adjustment_tbl_type;
961 ddindx binary_integer; indx binary_integer;
962 begin
963
964 -- copy data to the local IN or IN-OUT args, if any
965
966
967
968 okl_lease_quote_asset_pvt_w.rosetta_table_copy_in_p28(ddp_asset_adj_tbl, p3_a0
969 , p3_a1
970 , p3_a2
971 , p3_a3
972 , p3_a4
973 , p3_a5
974 , p3_a6
975 , p3_a7
976 , p3_a8
977 , p3_a9
978 , p3_a10
979 , p3_a11
980 , p3_a12
981 , p3_a13
982 , p3_a14
983 , p3_a15
984 , p3_a16
985 , p3_a17
986 , p3_a18
987 );
988
989
990
991
992 -- here's the delegated call to the old PL/SQL routine
993 okl_lease_quote_asset_pvt.create_adjustment(p_api_version,
994 p_init_msg_list,
995 p_transaction_control,
996 ddp_asset_adj_tbl,
997 x_return_status,
998 x_msg_count,
999 x_msg_data);
1000
1001 -- copy data back from the local variables to OUT or IN-OUT args, if any
1002
1003
1004
1005
1006
1007
1008 end;
1009
1010 procedure update_adjustment(p_api_version NUMBER
1011 , p_init_msg_list VARCHAR2
1012 , p_transaction_control VARCHAR2
1013 , p3_a0 JTF_NUMBER_TABLE
1014 , p3_a1 JTF_NUMBER_TABLE
1015 , p3_a2 JTF_VARCHAR2_TABLE_100
1016 , p3_a3 JTF_NUMBER_TABLE
1017 , p3_a4 JTF_VARCHAR2_TABLE_100
1018 , p3_a5 JTF_NUMBER_TABLE
1019 , p3_a6 JTF_VARCHAR2_TABLE_100
1020 , p3_a7 JTF_NUMBER_TABLE
1021 , p3_a8 JTF_NUMBER_TABLE
1022 , p3_a9 JTF_VARCHAR2_TABLE_100
1023 , p3_a10 JTF_NUMBER_TABLE
1024 , p3_a11 JTF_VARCHAR2_TABLE_300
1025 , p3_a12 JTF_VARCHAR2_TABLE_2000
1026 , p3_a13 JTF_VARCHAR2_TABLE_2000
1027 , p3_a14 JTF_NUMBER_TABLE
1028 , p3_a15 JTF_VARCHAR2_TABLE_100
1029 , p3_a16 JTF_NUMBER_TABLE
1030 , p3_a17 JTF_NUMBER_TABLE
1031 , p3_a18 JTF_NUMBER_TABLE
1032 , x_return_status out nocopy VARCHAR2
1033 , x_msg_count out nocopy NUMBER
1034 , x_msg_data out nocopy VARCHAR2
1035 )
1036
1037 as
1038 ddp_asset_adj_tbl okl_lease_quote_asset_pvt.asset_adjustment_tbl_type;
1039 ddindx binary_integer; indx binary_integer;
1040 begin
1041
1042 -- copy data to the local IN or IN-OUT args, if any
1043
1044
1045
1046 okl_lease_quote_asset_pvt_w.rosetta_table_copy_in_p28(ddp_asset_adj_tbl, p3_a0
1047 , p3_a1
1048 , p3_a2
1049 , p3_a3
1050 , p3_a4
1051 , p3_a5
1052 , p3_a6
1053 , p3_a7
1054 , p3_a8
1055 , p3_a9
1056 , p3_a10
1057 , p3_a11
1058 , p3_a12
1059 , p3_a13
1060 , p3_a14
1061 , p3_a15
1062 , p3_a16
1063 , p3_a17
1064 , p3_a18
1065 );
1066
1067
1068
1069
1070 -- here's the delegated call to the old PL/SQL routine
1071 okl_lease_quote_asset_pvt.update_adjustment(p_api_version,
1072 p_init_msg_list,
1073 p_transaction_control,
1074 ddp_asset_adj_tbl,
1075 x_return_status,
1076 x_msg_count,
1077 x_msg_data);
1078
1079 -- copy data back from the local variables to OUT or IN-OUT args, if any
1080
1081
1082
1083
1084
1085
1086 end;
1087
1088 procedure create_assets_with_adjustments(p_api_version NUMBER
1089 , p_init_msg_list VARCHAR2
1090 , p_transaction_control VARCHAR2
1091 , p3_a0 JTF_NUMBER_TABLE
1092 , p3_a1 JTF_NUMBER_TABLE
1093 , p3_a2 JTF_VARCHAR2_TABLE_100
1094 , p3_a3 JTF_VARCHAR2_TABLE_500
1095 , p3_a4 JTF_VARCHAR2_TABLE_500
1096 , p3_a5 JTF_VARCHAR2_TABLE_500
1097 , p3_a6 JTF_VARCHAR2_TABLE_500
1098 , p3_a7 JTF_VARCHAR2_TABLE_500
1099 , p3_a8 JTF_VARCHAR2_TABLE_500
1100 , p3_a9 JTF_VARCHAR2_TABLE_500
1101 , p3_a10 JTF_VARCHAR2_TABLE_500
1102 , p3_a11 JTF_VARCHAR2_TABLE_500
1103 , p3_a12 JTF_VARCHAR2_TABLE_500
1104 , p3_a13 JTF_VARCHAR2_TABLE_500
1105 , p3_a14 JTF_VARCHAR2_TABLE_500
1106 , p3_a15 JTF_VARCHAR2_TABLE_500
1107 , p3_a16 JTF_VARCHAR2_TABLE_500
1108 , p3_a17 JTF_VARCHAR2_TABLE_500
1109 , p3_a18 JTF_VARCHAR2_TABLE_100
1110 , p3_a19 JTF_NUMBER_TABLE
1111 , p3_a20 JTF_VARCHAR2_TABLE_100
1112 , p3_a21 JTF_NUMBER_TABLE
1113 , p3_a22 JTF_VARCHAR2_TABLE_100
1114 , p3_a23 JTF_NUMBER_TABLE
1115 , p3_a24 JTF_NUMBER_TABLE
1116 , p3_a25 JTF_NUMBER_TABLE
1117 , p3_a26 JTF_VARCHAR2_TABLE_100
1118 , p3_a27 JTF_NUMBER_TABLE
1119 , p3_a28 JTF_NUMBER_TABLE
1120 , p3_a29 JTF_NUMBER_TABLE
1121 , p3_a30 JTF_NUMBER_TABLE
1122 , p3_a31 JTF_NUMBER_TABLE
1123 , p3_a32 JTF_NUMBER_TABLE
1124 , p3_a33 JTF_VARCHAR2_TABLE_100
1125 , p3_a34 JTF_VARCHAR2_TABLE_300
1126 , p3_a35 JTF_VARCHAR2_TABLE_2000
1127 , p3_a36 JTF_VARCHAR2_TABLE_2000
1128 , p4_a0 JTF_NUMBER_TABLE
1129 , p4_a1 JTF_NUMBER_TABLE
1130 , p4_a2 JTF_NUMBER_TABLE
1131 , p4_a3 JTF_NUMBER_TABLE
1132 , p4_a4 JTF_NUMBER_TABLE
1133 , p4_a5 JTF_VARCHAR2_TABLE_100
1134 , p4_a6 JTF_NUMBER_TABLE
1135 , p4_a7 JTF_NUMBER_TABLE
1136 , p4_a8 JTF_VARCHAR2_TABLE_100
1137 , p4_a9 JTF_NUMBER_TABLE
1138 , p4_a10 JTF_VARCHAR2_TABLE_100
1139 , p4_a11 JTF_VARCHAR2_TABLE_300
1140 , p4_a12 JTF_VARCHAR2_TABLE_2000
1141 , p4_a13 JTF_VARCHAR2_TABLE_2000
1142 , p4_a14 JTF_VARCHAR2_TABLE_100
1143 , p5_a0 JTF_NUMBER_TABLE
1144 , p5_a1 JTF_NUMBER_TABLE
1145 , p5_a2 JTF_VARCHAR2_TABLE_100
1146 , p5_a3 JTF_NUMBER_TABLE
1147 , p5_a4 JTF_VARCHAR2_TABLE_100
1148 , p5_a5 JTF_NUMBER_TABLE
1149 , p5_a6 JTF_VARCHAR2_TABLE_100
1150 , p5_a7 JTF_NUMBER_TABLE
1151 , p5_a8 JTF_NUMBER_TABLE
1152 , p5_a9 JTF_VARCHAR2_TABLE_100
1153 , p5_a10 JTF_NUMBER_TABLE
1154 , p5_a11 JTF_VARCHAR2_TABLE_300
1155 , p5_a12 JTF_VARCHAR2_TABLE_2000
1156 , p5_a13 JTF_VARCHAR2_TABLE_2000
1157 , p5_a14 JTF_NUMBER_TABLE
1158 , p5_a15 JTF_VARCHAR2_TABLE_100
1159 , p5_a16 JTF_NUMBER_TABLE
1160 , p5_a17 JTF_NUMBER_TABLE
1161 , p5_a18 JTF_NUMBER_TABLE
1162 , x_return_status out nocopy VARCHAR2
1163 , x_msg_count out nocopy NUMBER
1164 , x_msg_data out nocopy VARCHAR2
1165 )
1166
1167 as
1168 ddp_asset_tbl okl_lease_quote_asset_pvt.asset_tbl_type;
1169 ddp_component_tbl okl_lease_quote_asset_pvt.asset_component_tbl_type;
1170 ddp_asset_adj_tbl okl_lease_quote_asset_pvt.asset_adjustment_tbl_type;
1171 ddindx binary_integer; indx binary_integer;
1172 begin
1173
1174 -- copy data to the local IN or IN-OUT args, if any
1175
1176
1177
1178 okl_ass_pvt_w.rosetta_table_copy_in_p23(ddp_asset_tbl, p3_a0
1179 , p3_a1
1180 , p3_a2
1181 , p3_a3
1182 , p3_a4
1183 , p3_a5
1184 , p3_a6
1185 , p3_a7
1186 , p3_a8
1187 , p3_a9
1188 , p3_a10
1189 , p3_a11
1190 , p3_a12
1191 , p3_a13
1192 , p3_a14
1193 , p3_a15
1194 , p3_a16
1195 , p3_a17
1196 , p3_a18
1197 , p3_a19
1198 , p3_a20
1199 , p3_a21
1200 , p3_a22
1201 , p3_a23
1202 , p3_a24
1203 , p3_a25
1204 , p3_a26
1205 , p3_a27
1206 , p3_a28
1207 , p3_a29
1208 , p3_a30
1209 , p3_a31
1210 , p3_a32
1211 , p3_a33
1212 , p3_a34
1213 , p3_a35
1214 , p3_a36
1215 );
1216
1217 okl_lease_quote_asset_pvt_w.rosetta_table_copy_in_p26(ddp_component_tbl, p4_a0
1218 , p4_a1
1219 , p4_a2
1220 , p4_a3
1221 , p4_a4
1222 , p4_a5
1223 , p4_a6
1224 , p4_a7
1225 , p4_a8
1226 , p4_a9
1227 , p4_a10
1228 , p4_a11
1229 , p4_a12
1230 , p4_a13
1231 , p4_a14
1232 );
1233
1234 okl_lease_quote_asset_pvt_w.rosetta_table_copy_in_p28(ddp_asset_adj_tbl, p5_a0
1235 , p5_a1
1236 , p5_a2
1237 , p5_a3
1238 , p5_a4
1239 , p5_a5
1240 , p5_a6
1241 , p5_a7
1242 , p5_a8
1243 , p5_a9
1244 , p5_a10
1245 , p5_a11
1246 , p5_a12
1247 , p5_a13
1248 , p5_a14
1249 , p5_a15
1250 , p5_a16
1251 , p5_a17
1252 , p5_a18
1253 );
1254
1255
1256
1257
1258 -- here's the delegated call to the old PL/SQL routine
1259 okl_lease_quote_asset_pvt.create_assets_with_adjustments(p_api_version,
1260 p_init_msg_list,
1261 p_transaction_control,
1262 ddp_asset_tbl,
1263 ddp_component_tbl,
1264 ddp_asset_adj_tbl,
1265 x_return_status,
1266 x_msg_count,
1267 x_msg_data);
1268
1269 -- copy data back from the local variables to OUT or IN-OUT args, if any
1270
1271
1272
1273
1274
1275
1276
1277
1278 end;
1279
1280 procedure process_link_assets(p_api_version NUMBER
1281 , p_init_msg_list VARCHAR2
1282 , p_transaction_control VARCHAR2
1283 , p3_a0 JTF_NUMBER_TABLE
1284 , p3_a1 JTF_NUMBER_TABLE
1285 , p3_a2 JTF_VARCHAR2_TABLE_100
1286 , p3_a3 JTF_NUMBER_TABLE
1287 , p3_a4 JTF_VARCHAR2_TABLE_100
1288 , p3_a5 JTF_NUMBER_TABLE
1289 , p3_a6 JTF_VARCHAR2_TABLE_100
1290 , p3_a7 JTF_NUMBER_TABLE
1291 , p3_a8 JTF_NUMBER_TABLE
1292 , p3_a9 JTF_VARCHAR2_TABLE_100
1293 , p3_a10 JTF_NUMBER_TABLE
1294 , p3_a11 JTF_VARCHAR2_TABLE_300
1295 , p3_a12 JTF_VARCHAR2_TABLE_2000
1296 , p3_a13 JTF_VARCHAR2_TABLE_2000
1297 , p3_a14 JTF_NUMBER_TABLE
1298 , p3_a15 JTF_VARCHAR2_TABLE_100
1299 , p3_a16 JTF_NUMBER_TABLE
1300 , p3_a17 JTF_NUMBER_TABLE
1301 , p3_a18 JTF_NUMBER_TABLE
1302 , p4_a0 out nocopy JTF_NUMBER_TABLE
1303 , p4_a1 out nocopy JTF_NUMBER_TABLE
1304 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
1305 , p4_a3 out nocopy JTF_NUMBER_TABLE
1306 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
1307 , p4_a5 out nocopy JTF_NUMBER_TABLE
1308 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_100
1309 , p4_a7 out nocopy JTF_NUMBER_TABLE
1310 , p4_a8 out nocopy JTF_NUMBER_TABLE
1311 , p4_a9 out nocopy JTF_VARCHAR2_TABLE_100
1312 , p4_a10 out nocopy JTF_NUMBER_TABLE
1313 , p4_a11 out nocopy JTF_VARCHAR2_TABLE_300
1314 , p4_a12 out nocopy JTF_VARCHAR2_TABLE_2000
1315 , p4_a13 out nocopy JTF_VARCHAR2_TABLE_2000
1316 , p4_a14 out nocopy JTF_NUMBER_TABLE
1317 , p4_a15 out nocopy JTF_VARCHAR2_TABLE_100
1318 , p4_a16 out nocopy JTF_NUMBER_TABLE
1319 , p4_a17 out nocopy JTF_NUMBER_TABLE
1320 , p4_a18 out nocopy JTF_NUMBER_TABLE
1321 , x_return_status out nocopy VARCHAR2
1322 , x_msg_count out nocopy NUMBER
1323 , x_msg_data out nocopy VARCHAR2
1324 )
1325
1326 as
1327 ddp_asset_adj_tbl okl_lease_quote_asset_pvt.asset_adjustment_tbl_type;
1328 ddx_asset_adj_tbl okl_lease_quote_asset_pvt.asset_adjustment_tbl_type;
1329 ddindx binary_integer; indx binary_integer;
1330 begin
1331
1332 -- copy data to the local IN or IN-OUT args, if any
1333
1334
1335
1336 okl_lease_quote_asset_pvt_w.rosetta_table_copy_in_p28(ddp_asset_adj_tbl, p3_a0
1337 , p3_a1
1338 , p3_a2
1339 , p3_a3
1340 , p3_a4
1341 , p3_a5
1342 , p3_a6
1343 , p3_a7
1344 , p3_a8
1345 , p3_a9
1346 , p3_a10
1347 , p3_a11
1348 , p3_a12
1349 , p3_a13
1350 , p3_a14
1351 , p3_a15
1352 , p3_a16
1353 , p3_a17
1354 , p3_a18
1355 );
1356
1357
1358
1359
1360
1361 -- here's the delegated call to the old PL/SQL routine
1362 okl_lease_quote_asset_pvt.process_link_assets(p_api_version,
1363 p_init_msg_list,
1364 p_transaction_control,
1365 ddp_asset_adj_tbl,
1366 ddx_asset_adj_tbl,
1367 x_return_status,
1368 x_msg_count,
1369 x_msg_data);
1370
1371 -- copy data back from the local variables to OUT or IN-OUT args, if any
1372
1373
1374
1375
1376 okl_lease_quote_asset_pvt_w.rosetta_table_copy_out_p28(ddx_asset_adj_tbl, p4_a0
1377 , p4_a1
1378 , p4_a2
1379 , p4_a3
1380 , p4_a4
1381 , p4_a5
1382 , p4_a6
1383 , p4_a7
1384 , p4_a8
1385 , p4_a9
1386 , p4_a10
1387 , p4_a11
1388 , p4_a12
1389 , p4_a13
1390 , p4_a14
1391 , p4_a15
1392 , p4_a16
1393 , p4_a17
1394 , p4_a18
1395 );
1396
1397
1398
1399 end;
1400
1401 end okl_lease_quote_asset_pvt_w;