[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_QUOTE_PRICING_PVT_W
Source
1 package body okl_lease_quote_pricing_pvt_w as
2 /* $Header: OKLIQUPB.pls 120.5 2006/03/16 10:10:00 asawanka noship $ */
3 procedure create_update_payment(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p2_a0 NUMBER
6 , p2_a1 NUMBER
7 , p2_a2 VARCHAR2
8 , p2_a3 VARCHAR2
9 , p2_a4 VARCHAR2
10 , p2_a5 VARCHAR2
11 , p2_a6 VARCHAR2
12 , p2_a7 VARCHAR2
13 , p2_a8 VARCHAR2
14 , p2_a9 VARCHAR2
15 , p2_a10 VARCHAR2
16 , p2_a11 VARCHAR2
17 , p2_a12 VARCHAR2
18 , p2_a13 VARCHAR2
19 , p2_a14 VARCHAR2
20 , p2_a15 VARCHAR2
21 , p2_a16 VARCHAR2
22 , p2_a17 VARCHAR2
23 , p2_a18 VARCHAR2
24 , p2_a19 VARCHAR2
25 , p2_a20 VARCHAR2
26 , p2_a21 NUMBER
27 , p2_a22 DATE
28 , p2_a23 DATE
29 , p2_a24 VARCHAR2
30 , p2_a25 VARCHAR2
31 , p2_a26 DATE
32 , p2_a27 DATE
33 , p2_a28 DATE
34 , p2_a29 VARCHAR2
35 , p2_a30 NUMBER
36 , p2_a31 NUMBER
37 , p2_a32 NUMBER
38 , p2_a33 VARCHAR2
39 , p2_a34 VARCHAR2
40 , p2_a35 NUMBER
41 , p2_a36 NUMBER
42 , p2_a37 NUMBER
43 , p2_a38 VARCHAR2
44 , p2_a39 NUMBER
45 , p2_a40 NUMBER
46 , p2_a41 VARCHAR2
47 , p2_a42 VARCHAR2
48 , p2_a43 NUMBER
49 , p2_a44 NUMBER
50 , p2_a45 NUMBER
51 , p2_a46 NUMBER
52 , p2_a47 NUMBER
53 , p2_a48 NUMBER
54 , p2_a49 NUMBER
55 , p2_a50 NUMBER
56 , p2_a51 NUMBER
57 , p2_a52 VARCHAR2
58 , p2_a53 VARCHAR2
59 , p2_a54 VARCHAR2
60 , p2_a55 NUMBER
61 , p2_a56 NUMBER
62 , p2_a57 VARCHAR2
63 , p2_a58 VARCHAR2
64 , p2_a59 VARCHAR2
65 , p2_a60 NUMBER
66 , p2_a61 VARCHAR2
67 , p2_a62 NUMBER
68 , p2_a63 VARCHAR2
69 , p2_a64 VARCHAR2
70 , p2_a65 VARCHAR2
71 , p2_a66 VARCHAR2
72 , p2_a67 VARCHAR2
73 , p2_a68 VARCHAR2
74 , p2_a69 VARCHAR2
75 , p3_a0 VARCHAR2
76 , p3_a1 NUMBER
77 , p3_a2 VARCHAR2
78 , p3_a3 VARCHAR2
79 , p3_a4 VARCHAR2
80 , p3_a5 VARCHAR2
81 , p3_a6 VARCHAR2
82 , p3_a7 VARCHAR2
83 , p3_a8 NUMBER
84 , p3_a9 VARCHAR2
85 , p3_a10 NUMBER
86 , p3_a11 NUMBER
87 , p3_a12 NUMBER
88 , p3_a13 NUMBER
89 , p4_a0 JTF_NUMBER_TABLE
90 , p4_a1 JTF_DATE_TABLE
91 , p4_a2 JTF_NUMBER_TABLE
92 , p4_a3 JTF_NUMBER_TABLE
93 , p4_a4 JTF_NUMBER_TABLE
94 , p4_a5 JTF_NUMBER_TABLE
95 , p4_a6 JTF_NUMBER_TABLE
96 , p4_a7 JTF_NUMBER_TABLE
97 , p4_a8 JTF_VARCHAR2_TABLE_100
98 , p4_a9 JTF_VARCHAR2_TABLE_100
99 , x_return_status out nocopy VARCHAR2
100 , x_msg_count out nocopy NUMBER
101 , x_msg_data out nocopy VARCHAR2
102 )
103
104 as
105 ddp_lease_qte_rec okl_lease_quote_pricing_pvt.lease_qte_rec_type;
106 ddp_payment_header_rec okl_lease_quote_pricing_pvt.cashflow_hdr_rec_type;
107 ddp_payment_level_tbl okl_lease_quote_pricing_pvt.cashflow_level_tbl_type;
108 ddindx binary_integer; indx binary_integer;
109 begin
110
111 -- copy data to the local IN or IN-OUT args, if any
112
113
114 ddp_lease_qte_rec.id := p2_a0;
115 ddp_lease_qte_rec.object_version_number := p2_a1;
116 ddp_lease_qte_rec.attribute_category := p2_a2;
117 ddp_lease_qte_rec.attribute1 := p2_a3;
118 ddp_lease_qte_rec.attribute2 := p2_a4;
119 ddp_lease_qte_rec.attribute3 := p2_a5;
120 ddp_lease_qte_rec.attribute4 := p2_a6;
121 ddp_lease_qte_rec.attribute5 := p2_a7;
122 ddp_lease_qte_rec.attribute6 := p2_a8;
123 ddp_lease_qte_rec.attribute7 := p2_a9;
124 ddp_lease_qte_rec.attribute8 := p2_a10;
125 ddp_lease_qte_rec.attribute9 := p2_a11;
126 ddp_lease_qte_rec.attribute10 := p2_a12;
127 ddp_lease_qte_rec.attribute11 := p2_a13;
128 ddp_lease_qte_rec.attribute12 := p2_a14;
129 ddp_lease_qte_rec.attribute13 := p2_a15;
130 ddp_lease_qte_rec.attribute14 := p2_a16;
131 ddp_lease_qte_rec.attribute15 := p2_a17;
132 ddp_lease_qte_rec.reference_number := p2_a18;
133 ddp_lease_qte_rec.status := p2_a19;
134 ddp_lease_qte_rec.parent_object_code := p2_a20;
135 ddp_lease_qte_rec.parent_object_id := p2_a21;
136 ddp_lease_qte_rec.valid_from := p2_a22;
137 ddp_lease_qte_rec.valid_to := p2_a23;
138 ddp_lease_qte_rec.customer_bookclass := p2_a24;
139 ddp_lease_qte_rec.customer_taxowner := p2_a25;
140 ddp_lease_qte_rec.expected_start_date := p2_a26;
141 ddp_lease_qte_rec.expected_funding_date := p2_a27;
142 ddp_lease_qte_rec.expected_delivery_date := p2_a28;
143 ddp_lease_qte_rec.pricing_method := p2_a29;
144 ddp_lease_qte_rec.term := p2_a30;
145 ddp_lease_qte_rec.product_id := p2_a31;
146 ddp_lease_qte_rec.end_of_term_option_id := p2_a32;
147 ddp_lease_qte_rec.structured_pricing := p2_a33;
148 ddp_lease_qte_rec.line_level_pricing := p2_a34;
149 ddp_lease_qte_rec.rate_template_id := p2_a35;
150 ddp_lease_qte_rec.rate_card_id := p2_a36;
151 ddp_lease_qte_rec.lease_rate_factor := p2_a37;
152 ddp_lease_qte_rec.target_rate_type := p2_a38;
153 ddp_lease_qte_rec.target_rate := p2_a39;
154 ddp_lease_qte_rec.target_amount := p2_a40;
155 ddp_lease_qte_rec.target_frequency := p2_a41;
156 ddp_lease_qte_rec.target_arrears_yn := p2_a42;
157 ddp_lease_qte_rec.target_periods := p2_a43;
158 ddp_lease_qte_rec.iir := p2_a44;
159 ddp_lease_qte_rec.booking_yield := p2_a45;
160 ddp_lease_qte_rec.pirr := p2_a46;
161 ddp_lease_qte_rec.airr := p2_a47;
162 ddp_lease_qte_rec.sub_iir := p2_a48;
163 ddp_lease_qte_rec.sub_booking_yield := p2_a49;
164 ddp_lease_qte_rec.sub_pirr := p2_a50;
165 ddp_lease_qte_rec.sub_airr := p2_a51;
166 ddp_lease_qte_rec.usage_category := p2_a52;
167 ddp_lease_qte_rec.usage_industry_class := p2_a53;
168 ddp_lease_qte_rec.usage_industry_code := p2_a54;
169 ddp_lease_qte_rec.usage_amount := p2_a55;
170 ddp_lease_qte_rec.usage_location_id := p2_a56;
171 ddp_lease_qte_rec.property_tax_applicable := p2_a57;
172 ddp_lease_qte_rec.property_tax_billing_type := p2_a58;
173 ddp_lease_qte_rec.upfront_tax_treatment := p2_a59;
174 ddp_lease_qte_rec.upfront_tax_stream_type := p2_a60;
175 ddp_lease_qte_rec.transfer_of_title := p2_a61;
176 ddp_lease_qte_rec.age_of_equipment := p2_a62;
177 ddp_lease_qte_rec.purchase_of_lease := p2_a63;
178 ddp_lease_qte_rec.sale_and_lease_back := p2_a64;
179 ddp_lease_qte_rec.interest_disclosed := p2_a65;
180 ddp_lease_qte_rec.primary_quote := p2_a66;
181 ddp_lease_qte_rec.short_description := p2_a67;
182 ddp_lease_qte_rec.description := p2_a68;
183 ddp_lease_qte_rec.comments := p2_a69;
184
185 ddp_payment_header_rec.type_code := p3_a0;
186 ddp_payment_header_rec.stream_type_id := p3_a1;
187 ddp_payment_header_rec.status_code := p3_a2;
188 ddp_payment_header_rec.arrears_flag := p3_a3;
189 ddp_payment_header_rec.frequency_code := p3_a4;
190 ddp_payment_header_rec.dnz_periods := p3_a5;
191 ddp_payment_header_rec.dnz_periodic_amount := p3_a6;
192 ddp_payment_header_rec.parent_object_code := p3_a7;
193 ddp_payment_header_rec.parent_object_id := p3_a8;
194 ddp_payment_header_rec.quote_type_code := p3_a9;
195 ddp_payment_header_rec.quote_id := p3_a10;
196 ddp_payment_header_rec.cashflow_header_id := p3_a11;
197 ddp_payment_header_rec.cashflow_object_id := p3_a12;
198 ddp_payment_header_rec.cashflow_header_ovn := p3_a13;
199
200 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_payment_level_tbl, p4_a0
201 , p4_a1
202 , p4_a2
203 , p4_a3
204 , p4_a4
205 , p4_a5
206 , p4_a6
207 , p4_a7
208 , p4_a8
209 , p4_a9
210 );
211
212
213
214
215 -- here's the delegated call to the old PL/SQL routine
216 okl_lease_quote_pricing_pvt.create_update_payment(p_api_version,
217 p_init_msg_list,
218 ddp_lease_qte_rec,
219 ddp_payment_header_rec,
220 ddp_payment_level_tbl,
221 x_return_status,
222 x_msg_count,
223 x_msg_data);
224
225 -- copy data back from the local variables to OUT or IN-OUT args, if any
226
227
228
229
230
231
232
233 end;
234
235 procedure create_update_payment(p_api_version NUMBER
236 , p_init_msg_list VARCHAR2
237 , p2_a0 NUMBER
238 , p2_a1 NUMBER
239 , p2_a2 VARCHAR2
240 , p2_a3 VARCHAR2
241 , p2_a4 VARCHAR2
242 , p2_a5 VARCHAR2
243 , p2_a6 VARCHAR2
244 , p2_a7 VARCHAR2
245 , p2_a8 VARCHAR2
246 , p2_a9 VARCHAR2
247 , p2_a10 VARCHAR2
248 , p2_a11 VARCHAR2
249 , p2_a12 VARCHAR2
250 , p2_a13 VARCHAR2
251 , p2_a14 VARCHAR2
252 , p2_a15 VARCHAR2
253 , p2_a16 VARCHAR2
254 , p2_a17 VARCHAR2
255 , p2_a18 VARCHAR2
256 , p2_a19 VARCHAR2
257 , p2_a20 VARCHAR2
258 , p2_a21 NUMBER
259 , p2_a22 DATE
260 , p2_a23 DATE
261 , p2_a24 VARCHAR2
262 , p2_a25 VARCHAR2
263 , p2_a26 DATE
264 , p2_a27 DATE
265 , p2_a28 DATE
266 , p2_a29 VARCHAR2
267 , p2_a30 NUMBER
268 , p2_a31 NUMBER
269 , p2_a32 NUMBER
270 , p2_a33 VARCHAR2
271 , p2_a34 VARCHAR2
272 , p2_a35 NUMBER
273 , p2_a36 NUMBER
274 , p2_a37 NUMBER
275 , p2_a38 VARCHAR2
276 , p2_a39 NUMBER
277 , p2_a40 NUMBER
278 , p2_a41 VARCHAR2
279 , p2_a42 VARCHAR2
280 , p2_a43 NUMBER
281 , p2_a44 NUMBER
282 , p2_a45 NUMBER
283 , p2_a46 NUMBER
284 , p2_a47 NUMBER
285 , p2_a48 NUMBER
286 , p2_a49 NUMBER
287 , p2_a50 NUMBER
288 , p2_a51 NUMBER
289 , p2_a52 VARCHAR2
290 , p2_a53 VARCHAR2
291 , p2_a54 VARCHAR2
292 , p2_a55 NUMBER
293 , p2_a56 NUMBER
294 , p2_a57 VARCHAR2
295 , p2_a58 VARCHAR2
296 , p2_a59 VARCHAR2
297 , p2_a60 NUMBER
298 , p2_a61 VARCHAR2
299 , p2_a62 NUMBER
300 , p2_a63 VARCHAR2
301 , p2_a64 VARCHAR2
302 , p2_a65 VARCHAR2
303 , p2_a66 VARCHAR2
304 , p2_a67 VARCHAR2
305 , p2_a68 VARCHAR2
306 , p2_a69 VARCHAR2
307 , x_return_status out nocopy VARCHAR2
308 , x_msg_count out nocopy NUMBER
309 , x_msg_data out nocopy VARCHAR2
310 )
311
312 as
313 ddp_lease_qte_rec okl_lease_quote_pricing_pvt.lease_qte_rec_type;
314 ddindx binary_integer; indx binary_integer;
315 begin
316
317 -- copy data to the local IN or IN-OUT args, if any
318
319
320 ddp_lease_qte_rec.id := p2_a0;
321 ddp_lease_qte_rec.object_version_number := p2_a1;
322 ddp_lease_qte_rec.attribute_category := p2_a2;
323 ddp_lease_qte_rec.attribute1 := p2_a3;
324 ddp_lease_qte_rec.attribute2 := p2_a4;
325 ddp_lease_qte_rec.attribute3 := p2_a5;
326 ddp_lease_qte_rec.attribute4 := p2_a6;
327 ddp_lease_qte_rec.attribute5 := p2_a7;
328 ddp_lease_qte_rec.attribute6 := p2_a8;
329 ddp_lease_qte_rec.attribute7 := p2_a9;
330 ddp_lease_qte_rec.attribute8 := p2_a10;
331 ddp_lease_qte_rec.attribute9 := p2_a11;
332 ddp_lease_qte_rec.attribute10 := p2_a12;
333 ddp_lease_qte_rec.attribute11 := p2_a13;
334 ddp_lease_qte_rec.attribute12 := p2_a14;
335 ddp_lease_qte_rec.attribute13 := p2_a15;
336 ddp_lease_qte_rec.attribute14 := p2_a16;
337 ddp_lease_qte_rec.attribute15 := p2_a17;
338 ddp_lease_qte_rec.reference_number := p2_a18;
339 ddp_lease_qte_rec.status := p2_a19;
340 ddp_lease_qte_rec.parent_object_code := p2_a20;
341 ddp_lease_qte_rec.parent_object_id := p2_a21;
342 ddp_lease_qte_rec.valid_from := p2_a22;
343 ddp_lease_qte_rec.valid_to := p2_a23;
344 ddp_lease_qte_rec.customer_bookclass := p2_a24;
345 ddp_lease_qte_rec.customer_taxowner := p2_a25;
346 ddp_lease_qte_rec.expected_start_date := p2_a26;
347 ddp_lease_qte_rec.expected_funding_date := p2_a27;
348 ddp_lease_qte_rec.expected_delivery_date := p2_a28;
349 ddp_lease_qte_rec.pricing_method := p2_a29;
350 ddp_lease_qte_rec.term := p2_a30;
351 ddp_lease_qte_rec.product_id := p2_a31;
352 ddp_lease_qte_rec.end_of_term_option_id := p2_a32;
353 ddp_lease_qte_rec.structured_pricing := p2_a33;
354 ddp_lease_qte_rec.line_level_pricing := p2_a34;
355 ddp_lease_qte_rec.rate_template_id := p2_a35;
356 ddp_lease_qte_rec.rate_card_id := p2_a36;
357 ddp_lease_qte_rec.lease_rate_factor := p2_a37;
358 ddp_lease_qte_rec.target_rate_type := p2_a38;
359 ddp_lease_qte_rec.target_rate := p2_a39;
360 ddp_lease_qte_rec.target_amount := p2_a40;
361 ddp_lease_qte_rec.target_frequency := p2_a41;
362 ddp_lease_qte_rec.target_arrears_yn := p2_a42;
363 ddp_lease_qte_rec.target_periods := p2_a43;
364 ddp_lease_qte_rec.iir := p2_a44;
365 ddp_lease_qte_rec.booking_yield := p2_a45;
366 ddp_lease_qte_rec.pirr := p2_a46;
367 ddp_lease_qte_rec.airr := p2_a47;
368 ddp_lease_qte_rec.sub_iir := p2_a48;
369 ddp_lease_qte_rec.sub_booking_yield := p2_a49;
370 ddp_lease_qte_rec.sub_pirr := p2_a50;
371 ddp_lease_qte_rec.sub_airr := p2_a51;
372 ddp_lease_qte_rec.usage_category := p2_a52;
373 ddp_lease_qte_rec.usage_industry_class := p2_a53;
374 ddp_lease_qte_rec.usage_industry_code := p2_a54;
375 ddp_lease_qte_rec.usage_amount := p2_a55;
376 ddp_lease_qte_rec.usage_location_id := p2_a56;
377 ddp_lease_qte_rec.property_tax_applicable := p2_a57;
378 ddp_lease_qte_rec.property_tax_billing_type := p2_a58;
379 ddp_lease_qte_rec.upfront_tax_treatment := p2_a59;
380 ddp_lease_qte_rec.upfront_tax_stream_type := p2_a60;
381 ddp_lease_qte_rec.transfer_of_title := p2_a61;
382 ddp_lease_qte_rec.age_of_equipment := p2_a62;
383 ddp_lease_qte_rec.purchase_of_lease := p2_a63;
384 ddp_lease_qte_rec.sale_and_lease_back := p2_a64;
385 ddp_lease_qte_rec.interest_disclosed := p2_a65;
386 ddp_lease_qte_rec.primary_quote := p2_a66;
387 ddp_lease_qte_rec.short_description := p2_a67;
388 ddp_lease_qte_rec.description := p2_a68;
389 ddp_lease_qte_rec.comments := p2_a69;
390
391
392
393
394 -- here's the delegated call to the old PL/SQL routine
395 okl_lease_quote_pricing_pvt.create_update_payment(p_api_version,
396 p_init_msg_list,
397 ddp_lease_qte_rec,
398 x_return_status,
399 x_msg_count,
400 x_msg_data);
401
402 -- copy data back from the local variables to OUT or IN-OUT args, if any
403
404
405
406
407
408 end;
409
410 procedure create_update_line_payment(p_api_version NUMBER
411 , p_init_msg_list VARCHAR2
412 , p2_a0 NUMBER
413 , p2_a1 NUMBER
414 , p2_a2 VARCHAR2
415 , p2_a3 VARCHAR2
416 , p2_a4 VARCHAR2
417 , p2_a5 VARCHAR2
418 , p2_a6 VARCHAR2
419 , p2_a7 VARCHAR2
420 , p2_a8 VARCHAR2
421 , p2_a9 VARCHAR2
422 , p2_a10 VARCHAR2
423 , p2_a11 VARCHAR2
424 , p2_a12 VARCHAR2
425 , p2_a13 VARCHAR2
426 , p2_a14 VARCHAR2
427 , p2_a15 VARCHAR2
428 , p2_a16 VARCHAR2
429 , p2_a17 VARCHAR2
430 , p2_a18 VARCHAR2
431 , p2_a19 NUMBER
432 , p2_a20 NUMBER
433 , p2_a21 VARCHAR2
434 , p2_a22 VARCHAR2
435 , p2_a23 NUMBER
436 , p2_a24 NUMBER
437 , p2_a25 NUMBER
438 , p2_a26 VARCHAR2
439 , p2_a27 DATE
440 , p2_a28 DATE
441 , p2_a29 NUMBER
442 , p2_a30 NUMBER
443 , p2_a31 NUMBER
444 , p2_a32 NUMBER
445 , p2_a33 NUMBER
446 , p2_a34 VARCHAR2
447 , p2_a35 VARCHAR2
448 , p2_a36 VARCHAR2
449 , p2_a37 VARCHAR2
450 , p2_a38 NUMBER
451 , p3_a0 NUMBER
452 , p3_a1 NUMBER
453 , p3_a2 VARCHAR2
454 , p3_a3 VARCHAR2
455 , p3_a4 VARCHAR2
456 , p3_a5 VARCHAR2
457 , p3_a6 VARCHAR2
458 , p3_a7 VARCHAR2
459 , p3_a8 VARCHAR2
460 , p3_a9 VARCHAR2
461 , p3_a10 VARCHAR2
462 , p3_a11 VARCHAR2
463 , p3_a12 VARCHAR2
464 , p3_a13 VARCHAR2
465 , p3_a14 VARCHAR2
466 , p3_a15 VARCHAR2
467 , p3_a16 VARCHAR2
468 , p3_a17 VARCHAR2
469 , p3_a18 VARCHAR2
470 , p3_a19 NUMBER
471 , p3_a20 VARCHAR2
472 , p3_a21 NUMBER
473 , p3_a22 VARCHAR2
474 , p3_a23 NUMBER
475 , p3_a24 NUMBER
476 , p3_a25 NUMBER
477 , p3_a26 VARCHAR2
478 , p3_a27 NUMBER
479 , p3_a28 NUMBER
480 , p3_a29 NUMBER
481 , p3_a30 NUMBER
482 , p3_a31 NUMBER
483 , p3_a32 NUMBER
484 , p3_a33 VARCHAR2
485 , p3_a34 VARCHAR2
486 , p3_a35 VARCHAR2
487 , p3_a36 VARCHAR2
488 , p4_a0 VARCHAR2
489 , p4_a1 NUMBER
490 , p4_a2 VARCHAR2
491 , p4_a3 VARCHAR2
492 , p4_a4 VARCHAR2
493 , p4_a5 VARCHAR2
494 , p4_a6 VARCHAR2
495 , p4_a7 VARCHAR2
496 , p4_a8 NUMBER
497 , p4_a9 VARCHAR2
498 , p4_a10 NUMBER
499 , p4_a11 NUMBER
500 , p4_a12 NUMBER
501 , p4_a13 NUMBER
502 , p5_a0 JTF_NUMBER_TABLE
503 , p5_a1 JTF_DATE_TABLE
504 , p5_a2 JTF_NUMBER_TABLE
505 , p5_a3 JTF_NUMBER_TABLE
506 , p5_a4 JTF_NUMBER_TABLE
507 , p5_a5 JTF_NUMBER_TABLE
508 , p5_a6 JTF_NUMBER_TABLE
509 , p5_a7 JTF_NUMBER_TABLE
510 , p5_a8 JTF_VARCHAR2_TABLE_100
511 , p5_a9 JTF_VARCHAR2_TABLE_100
512 , x_return_status out nocopy VARCHAR2
513 , x_msg_count out nocopy NUMBER
514 , x_msg_data out nocopy VARCHAR2
515 )
516
517 as
518 ddp_fee_rec okl_lease_quote_pricing_pvt.fee_rec_type;
519 ddp_asset_rec okl_lease_quote_pricing_pvt.asset_rec_type;
520 ddp_payment_header_rec okl_lease_quote_pricing_pvt.cashflow_hdr_rec_type;
521 ddp_payment_level_tbl okl_lease_quote_pricing_pvt.cashflow_level_tbl_type;
522 ddindx binary_integer; indx binary_integer;
523 begin
524
525 -- copy data to the local IN or IN-OUT args, if any
526
527
528 ddp_fee_rec.id := p2_a0;
529 ddp_fee_rec.object_version_number := p2_a1;
530 ddp_fee_rec.attribute_category := p2_a2;
531 ddp_fee_rec.attribute1 := p2_a3;
532 ddp_fee_rec.attribute2 := p2_a4;
533 ddp_fee_rec.attribute3 := p2_a5;
534 ddp_fee_rec.attribute4 := p2_a6;
535 ddp_fee_rec.attribute5 := p2_a7;
536 ddp_fee_rec.attribute6 := p2_a8;
537 ddp_fee_rec.attribute7 := p2_a9;
538 ddp_fee_rec.attribute8 := p2_a10;
539 ddp_fee_rec.attribute9 := p2_a11;
540 ddp_fee_rec.attribute10 := p2_a12;
541 ddp_fee_rec.attribute11 := p2_a13;
542 ddp_fee_rec.attribute12 := p2_a14;
543 ddp_fee_rec.attribute13 := p2_a15;
544 ddp_fee_rec.attribute14 := p2_a16;
545 ddp_fee_rec.attribute15 := p2_a17;
546 ddp_fee_rec.parent_object_code := p2_a18;
547 ddp_fee_rec.parent_object_id := p2_a19;
548 ddp_fee_rec.stream_type_id := p2_a20;
549 ddp_fee_rec.fee_type := p2_a21;
550 ddp_fee_rec.structured_pricing := p2_a22;
551 ddp_fee_rec.rate_template_id := p2_a23;
552 ddp_fee_rec.rate_card_id := p2_a24;
553 ddp_fee_rec.lease_rate_factor := p2_a25;
554 ddp_fee_rec.target_arrears := p2_a26;
555 ddp_fee_rec.effective_from := p2_a27;
556 ddp_fee_rec.effective_to := p2_a28;
557 ddp_fee_rec.supplier_id := p2_a29;
558 ddp_fee_rec.rollover_quote_id := p2_a30;
559 ddp_fee_rec.initial_direct_cost := p2_a31;
560 ddp_fee_rec.fee_amount := p2_a32;
561 ddp_fee_rec.target_amount := p2_a33;
562 ddp_fee_rec.target_frequency := p2_a34;
563 ddp_fee_rec.short_description := p2_a35;
564 ddp_fee_rec.description := p2_a36;
565 ddp_fee_rec.comments := p2_a37;
566 ddp_fee_rec.payment_type_id := p2_a38;
567
568 ddp_asset_rec.id := p3_a0;
569 ddp_asset_rec.object_version_number := p3_a1;
570 ddp_asset_rec.attribute_category := p3_a2;
571 ddp_asset_rec.attribute1 := p3_a3;
572 ddp_asset_rec.attribute2 := p3_a4;
573 ddp_asset_rec.attribute3 := p3_a5;
574 ddp_asset_rec.attribute4 := p3_a6;
575 ddp_asset_rec.attribute5 := p3_a7;
576 ddp_asset_rec.attribute6 := p3_a8;
577 ddp_asset_rec.attribute7 := p3_a9;
578 ddp_asset_rec.attribute8 := p3_a10;
579 ddp_asset_rec.attribute9 := p3_a11;
580 ddp_asset_rec.attribute10 := p3_a12;
581 ddp_asset_rec.attribute11 := p3_a13;
582 ddp_asset_rec.attribute12 := p3_a14;
583 ddp_asset_rec.attribute13 := p3_a15;
584 ddp_asset_rec.attribute14 := p3_a16;
585 ddp_asset_rec.attribute15 := p3_a17;
586 ddp_asset_rec.parent_object_code := p3_a18;
587 ddp_asset_rec.parent_object_id := p3_a19;
588 ddp_asset_rec.asset_number := p3_a20;
589 ddp_asset_rec.install_site_id := p3_a21;
590 ddp_asset_rec.structured_pricing := p3_a22;
591 ddp_asset_rec.rate_template_id := p3_a23;
592 ddp_asset_rec.rate_card_id := p3_a24;
593 ddp_asset_rec.lease_rate_factor := p3_a25;
594 ddp_asset_rec.target_arrears := p3_a26;
595 ddp_asset_rec.oec := p3_a27;
596 ddp_asset_rec.oec_percentage := p3_a28;
597 ddp_asset_rec.end_of_term_value_default := p3_a29;
598 ddp_asset_rec.end_of_term_value := p3_a30;
599 ddp_asset_rec.orig_asset_id := p3_a31;
600 ddp_asset_rec.target_amount := p3_a32;
601 ddp_asset_rec.target_frequency := p3_a33;
602 ddp_asset_rec.short_description := p3_a34;
603 ddp_asset_rec.description := p3_a35;
604 ddp_asset_rec.comments := p3_a36;
605
606 ddp_payment_header_rec.type_code := p4_a0;
607 ddp_payment_header_rec.stream_type_id := p4_a1;
608 ddp_payment_header_rec.status_code := p4_a2;
609 ddp_payment_header_rec.arrears_flag := p4_a3;
610 ddp_payment_header_rec.frequency_code := p4_a4;
611 ddp_payment_header_rec.dnz_periods := p4_a5;
612 ddp_payment_header_rec.dnz_periodic_amount := p4_a6;
613 ddp_payment_header_rec.parent_object_code := p4_a7;
614 ddp_payment_header_rec.parent_object_id := p4_a8;
615 ddp_payment_header_rec.quote_type_code := p4_a9;
616 ddp_payment_header_rec.quote_id := p4_a10;
617 ddp_payment_header_rec.cashflow_header_id := p4_a11;
618 ddp_payment_header_rec.cashflow_object_id := p4_a12;
619 ddp_payment_header_rec.cashflow_header_ovn := p4_a13;
620
621 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_payment_level_tbl, p5_a0
622 , p5_a1
623 , p5_a2
624 , p5_a3
625 , p5_a4
626 , p5_a5
627 , p5_a6
628 , p5_a7
629 , p5_a8
630 , p5_a9
631 );
632
633
634
635
636 -- here's the delegated call to the old PL/SQL routine
637 okl_lease_quote_pricing_pvt.create_update_line_payment(p_api_version,
638 p_init_msg_list,
639 ddp_fee_rec,
640 ddp_asset_rec,
641 ddp_payment_header_rec,
642 ddp_payment_level_tbl,
643 x_return_status,
644 x_msg_count,
645 x_msg_data);
646
647 -- copy data back from the local variables to OUT or IN-OUT args, if any
648
649
650
651
652
653
654
655
656 end;
657
658 procedure create_update_line_payment(p_api_version NUMBER
659 , p_init_msg_list VARCHAR2
660 , p2_a0 NUMBER
661 , p2_a1 NUMBER
662 , p2_a2 VARCHAR2
663 , p2_a3 VARCHAR2
664 , p2_a4 VARCHAR2
665 , p2_a5 VARCHAR2
666 , p2_a6 VARCHAR2
667 , p2_a7 VARCHAR2
668 , p2_a8 VARCHAR2
669 , p2_a9 VARCHAR2
670 , p2_a10 VARCHAR2
671 , p2_a11 VARCHAR2
672 , p2_a12 VARCHAR2
673 , p2_a13 VARCHAR2
674 , p2_a14 VARCHAR2
675 , p2_a15 VARCHAR2
676 , p2_a16 VARCHAR2
677 , p2_a17 VARCHAR2
678 , p2_a18 VARCHAR2
679 , p2_a19 NUMBER
680 , p2_a20 NUMBER
681 , p2_a21 VARCHAR2
682 , p2_a22 VARCHAR2
683 , p2_a23 NUMBER
684 , p2_a24 NUMBER
685 , p2_a25 NUMBER
686 , p2_a26 VARCHAR2
687 , p2_a27 DATE
688 , p2_a28 DATE
689 , p2_a29 NUMBER
690 , p2_a30 NUMBER
691 , p2_a31 NUMBER
692 , p2_a32 NUMBER
693 , p2_a33 NUMBER
694 , p2_a34 VARCHAR2
695 , p2_a35 VARCHAR2
696 , p2_a36 VARCHAR2
697 , p2_a37 VARCHAR2
698 , p2_a38 NUMBER
699 , x_return_status out nocopy VARCHAR2
700 , x_msg_count out nocopy NUMBER
701 , x_msg_data out nocopy VARCHAR2
702 )
703
704 as
705 ddp_fee_rec okl_lease_quote_pricing_pvt.fee_rec_type;
706 ddindx binary_integer; indx binary_integer;
707 begin
708
709 -- copy data to the local IN or IN-OUT args, if any
710
711
712 ddp_fee_rec.id := p2_a0;
713 ddp_fee_rec.object_version_number := p2_a1;
714 ddp_fee_rec.attribute_category := p2_a2;
715 ddp_fee_rec.attribute1 := p2_a3;
716 ddp_fee_rec.attribute2 := p2_a4;
717 ddp_fee_rec.attribute3 := p2_a5;
718 ddp_fee_rec.attribute4 := p2_a6;
719 ddp_fee_rec.attribute5 := p2_a7;
720 ddp_fee_rec.attribute6 := p2_a8;
721 ddp_fee_rec.attribute7 := p2_a9;
722 ddp_fee_rec.attribute8 := p2_a10;
723 ddp_fee_rec.attribute9 := p2_a11;
724 ddp_fee_rec.attribute10 := p2_a12;
725 ddp_fee_rec.attribute11 := p2_a13;
726 ddp_fee_rec.attribute12 := p2_a14;
727 ddp_fee_rec.attribute13 := p2_a15;
728 ddp_fee_rec.attribute14 := p2_a16;
729 ddp_fee_rec.attribute15 := p2_a17;
730 ddp_fee_rec.parent_object_code := p2_a18;
731 ddp_fee_rec.parent_object_id := p2_a19;
732 ddp_fee_rec.stream_type_id := p2_a20;
733 ddp_fee_rec.fee_type := p2_a21;
734 ddp_fee_rec.structured_pricing := p2_a22;
735 ddp_fee_rec.rate_template_id := p2_a23;
736 ddp_fee_rec.rate_card_id := p2_a24;
737 ddp_fee_rec.lease_rate_factor := p2_a25;
738 ddp_fee_rec.target_arrears := p2_a26;
739 ddp_fee_rec.effective_from := p2_a27;
740 ddp_fee_rec.effective_to := p2_a28;
741 ddp_fee_rec.supplier_id := p2_a29;
742 ddp_fee_rec.rollover_quote_id := p2_a30;
743 ddp_fee_rec.initial_direct_cost := p2_a31;
744 ddp_fee_rec.fee_amount := p2_a32;
745 ddp_fee_rec.target_amount := p2_a33;
746 ddp_fee_rec.target_frequency := p2_a34;
747 ddp_fee_rec.short_description := p2_a35;
748 ddp_fee_rec.description := p2_a36;
749 ddp_fee_rec.comments := p2_a37;
750 ddp_fee_rec.payment_type_id := p2_a38;
751
752
753
754
755 -- here's the delegated call to the old PL/SQL routine
756 okl_lease_quote_pricing_pvt.create_update_line_payment(p_api_version,
757 p_init_msg_list,
758 ddp_fee_rec,
759 x_return_status,
760 x_msg_count,
761 x_msg_data);
762
763 -- copy data back from the local variables to OUT or IN-OUT args, if any
764
765
766
767
768
769 end;
770
771 procedure create_update_line_payment(p_api_version NUMBER
772 , p_init_msg_list VARCHAR2
773 , p2_a0 NUMBER
774 , p2_a1 NUMBER
775 , p2_a2 VARCHAR2
776 , p2_a3 VARCHAR2
777 , p2_a4 VARCHAR2
778 , p2_a5 VARCHAR2
779 , p2_a6 VARCHAR2
780 , p2_a7 VARCHAR2
781 , p2_a8 VARCHAR2
782 , p2_a9 VARCHAR2
783 , p2_a10 VARCHAR2
784 , p2_a11 VARCHAR2
785 , p2_a12 VARCHAR2
786 , p2_a13 VARCHAR2
787 , p2_a14 VARCHAR2
788 , p2_a15 VARCHAR2
789 , p2_a16 VARCHAR2
790 , p2_a17 VARCHAR2
791 , p2_a18 VARCHAR2
792 , p2_a19 NUMBER
793 , p2_a20 VARCHAR2
794 , p2_a21 NUMBER
795 , p2_a22 VARCHAR2
796 , p2_a23 NUMBER
797 , p2_a24 NUMBER
798 , p2_a25 NUMBER
799 , p2_a26 VARCHAR2
800 , p2_a27 NUMBER
801 , p2_a28 NUMBER
802 , p2_a29 NUMBER
803 , p2_a30 NUMBER
804 , p2_a31 NUMBER
805 , p2_a32 NUMBER
806 , p2_a33 VARCHAR2
807 , p2_a34 VARCHAR2
808 , p2_a35 VARCHAR2
809 , p2_a36 VARCHAR2
810 , x_return_status out nocopy VARCHAR2
811 , x_msg_count out nocopy NUMBER
812 , x_msg_data out nocopy VARCHAR2
813 )
814
815 as
816 ddp_asset_rec okl_lease_quote_pricing_pvt.asset_rec_type;
817 ddindx binary_integer; indx binary_integer;
818 begin
819
820 -- copy data to the local IN or IN-OUT args, if any
821
822
823 ddp_asset_rec.id := p2_a0;
824 ddp_asset_rec.object_version_number := p2_a1;
825 ddp_asset_rec.attribute_category := p2_a2;
826 ddp_asset_rec.attribute1 := p2_a3;
827 ddp_asset_rec.attribute2 := p2_a4;
828 ddp_asset_rec.attribute3 := p2_a5;
829 ddp_asset_rec.attribute4 := p2_a6;
830 ddp_asset_rec.attribute5 := p2_a7;
831 ddp_asset_rec.attribute6 := p2_a8;
832 ddp_asset_rec.attribute7 := p2_a9;
833 ddp_asset_rec.attribute8 := p2_a10;
834 ddp_asset_rec.attribute9 := p2_a11;
835 ddp_asset_rec.attribute10 := p2_a12;
836 ddp_asset_rec.attribute11 := p2_a13;
837 ddp_asset_rec.attribute12 := p2_a14;
838 ddp_asset_rec.attribute13 := p2_a15;
839 ddp_asset_rec.attribute14 := p2_a16;
840 ddp_asset_rec.attribute15 := p2_a17;
841 ddp_asset_rec.parent_object_code := p2_a18;
842 ddp_asset_rec.parent_object_id := p2_a19;
843 ddp_asset_rec.asset_number := p2_a20;
844 ddp_asset_rec.install_site_id := p2_a21;
845 ddp_asset_rec.structured_pricing := p2_a22;
846 ddp_asset_rec.rate_template_id := p2_a23;
847 ddp_asset_rec.rate_card_id := p2_a24;
848 ddp_asset_rec.lease_rate_factor := p2_a25;
849 ddp_asset_rec.target_arrears := p2_a26;
850 ddp_asset_rec.oec := p2_a27;
851 ddp_asset_rec.oec_percentage := p2_a28;
852 ddp_asset_rec.end_of_term_value_default := p2_a29;
853 ddp_asset_rec.end_of_term_value := p2_a30;
854 ddp_asset_rec.orig_asset_id := p2_a31;
855 ddp_asset_rec.target_amount := p2_a32;
856 ddp_asset_rec.target_frequency := p2_a33;
857 ddp_asset_rec.short_description := p2_a34;
858 ddp_asset_rec.description := p2_a35;
859 ddp_asset_rec.comments := p2_a36;
860
861
862
863
864 -- here's the delegated call to the old PL/SQL routine
865 okl_lease_quote_pricing_pvt.create_update_line_payment(p_api_version,
866 p_init_msg_list,
867 ddp_asset_rec,
868 x_return_status,
869 x_msg_count,
870 x_msg_data);
871
872 -- copy data back from the local variables to OUT or IN-OUT args, if any
873
874
875
876
877
878 end;
879
880 end okl_lease_quote_pricing_pvt_w;