[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_QUOTE_FEE_PVT_W
Source
1 package body okl_lease_quote_fee_pvt_w as
2 /* $Header: OKLEQUFB.pls 120.6.12020000.2 2012/08/07 12:51:06 racheruv ship $ */
3 procedure rosetta_table_copy_in_p24(t out nocopy okl_lease_quote_fee_pvt.line_relation_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_300
11 , a8 JTF_VARCHAR2_TABLE_2000
12 , a9 JTF_VARCHAR2_TABLE_2000
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_NUMBER_TABLE
15 ) as
16 ddindx binary_integer; indx binary_integer;
17 begin
18 if a0 is not null and a0.count > 0 then
19 if a0.count > 0 then
20 indx := a0.first;
21 ddindx := 1;
22 while true loop
23 t(ddindx).id := a0(indx);
24 t(ddindx).object_version_number := a1(indx);
25 t(ddindx).source_line_type := a2(indx);
26 t(ddindx).source_line_id := a3(indx);
27 t(ddindx).related_line_type := a4(indx);
28 t(ddindx).related_line_id := a5(indx);
29 t(ddindx).amount := a6(indx);
30 t(ddindx).short_description := a7(indx);
31 t(ddindx).description := a8(indx);
32 t(ddindx).comments := a9(indx);
33 t(ddindx).record_mode := a10(indx);
34 t(ddindx).origination_income := a11(indx);
35 ddindx := ddindx+1;
36 if a0.last =indx
37 then exit;
38 end if;
39 indx := a0.next(indx);
40 end loop;
41 end if;
42 end if;
43 end rosetta_table_copy_in_p24;
44 procedure rosetta_table_copy_out_p24(t okl_lease_quote_fee_pvt.line_relation_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45 , a1 out nocopy JTF_NUMBER_TABLE
46 , a2 out nocopy JTF_VARCHAR2_TABLE_100
47 , a3 out nocopy JTF_NUMBER_TABLE
48 , a4 out nocopy JTF_VARCHAR2_TABLE_100
49 , a5 out nocopy JTF_NUMBER_TABLE
50 , a6 out nocopy JTF_NUMBER_TABLE
51 , a7 out nocopy JTF_VARCHAR2_TABLE_300
52 , a8 out nocopy JTF_VARCHAR2_TABLE_2000
53 , a9 out nocopy JTF_VARCHAR2_TABLE_2000
54 , a10 out nocopy JTF_VARCHAR2_TABLE_100
55 , a11 out nocopy JTF_NUMBER_TABLE
56 ) as
57 ddindx binary_integer; indx binary_integer;
58 begin
59 if t is null or t.count = 0 then
60 a0 := JTF_NUMBER_TABLE();
61 a1 := JTF_NUMBER_TABLE();
62 a2 := JTF_VARCHAR2_TABLE_100();
63 a3 := JTF_NUMBER_TABLE();
64 a4 := JTF_VARCHAR2_TABLE_100();
65 a5 := JTF_NUMBER_TABLE();
66 a6 := JTF_NUMBER_TABLE();
67 a7 := JTF_VARCHAR2_TABLE_300();
68 a8 := JTF_VARCHAR2_TABLE_2000();
69 a9 := JTF_VARCHAR2_TABLE_2000();
70 a10 := JTF_VARCHAR2_TABLE_100();
71 a11 := JTF_NUMBER_TABLE();
72 else
73 a0 := JTF_NUMBER_TABLE();
74 a1 := JTF_NUMBER_TABLE();
75 a2 := JTF_VARCHAR2_TABLE_100();
76 a3 := JTF_NUMBER_TABLE();
77 a4 := JTF_VARCHAR2_TABLE_100();
78 a5 := JTF_NUMBER_TABLE();
79 a6 := JTF_NUMBER_TABLE();
80 a7 := JTF_VARCHAR2_TABLE_300();
81 a8 := JTF_VARCHAR2_TABLE_2000();
82 a9 := JTF_VARCHAR2_TABLE_2000();
83 a10 := JTF_VARCHAR2_TABLE_100();
84 a11 := JTF_NUMBER_TABLE();
85 if t.count > 0 then
86 a0.extend(t.count);
87 a1.extend(t.count);
88 a2.extend(t.count);
89 a3.extend(t.count);
90 a4.extend(t.count);
91 a5.extend(t.count);
92 a6.extend(t.count);
93 a7.extend(t.count);
94 a8.extend(t.count);
95 a9.extend(t.count);
96 a10.extend(t.count);
97 a11.extend(t.count);
98 ddindx := t.first;
99 indx := 1;
100 while true loop
101 a0(indx) := t(ddindx).id;
102 a1(indx) := t(ddindx).object_version_number;
103 a2(indx) := t(ddindx).source_line_type;
104 a3(indx) := t(ddindx).source_line_id;
105 a4(indx) := t(ddindx).related_line_type;
106 a5(indx) := t(ddindx).related_line_id;
107 a6(indx) := t(ddindx).amount;
108 a7(indx) := t(ddindx).short_description;
109 a8(indx) := t(ddindx).description;
110 a9(indx) := t(ddindx).comments;
111 a10(indx) := t(ddindx).record_mode;
112 a11(indx) := t(ddindx).origination_income;
113 indx := indx+1;
114 if t.last =ddindx
115 then exit;
116 end if;
117 ddindx := t.next(ddindx);
118 end loop;
119 end if;
120 end if;
121 end rosetta_table_copy_out_p24;
122
123 procedure create_fee(p_api_version NUMBER
124 , p_init_msg_list VARCHAR2
125 , p_transaction_control VARCHAR2
126 , p3_a0 NUMBER
127 , p3_a1 NUMBER
128 , p3_a2 VARCHAR2
129 , p3_a3 VARCHAR2
130 , p3_a4 VARCHAR2
131 , p3_a5 VARCHAR2
132 , p3_a6 VARCHAR2
133 , p3_a7 VARCHAR2
134 , p3_a8 VARCHAR2
135 , p3_a9 VARCHAR2
136 , p3_a10 VARCHAR2
137 , p3_a11 VARCHAR2
138 , p3_a12 VARCHAR2
139 , p3_a13 VARCHAR2
140 , p3_a14 VARCHAR2
141 , p3_a15 VARCHAR2
142 , p3_a16 VARCHAR2
143 , p3_a17 VARCHAR2
144 , p3_a18 VARCHAR2
145 , p3_a19 NUMBER
146 , p3_a20 NUMBER
147 , p3_a21 VARCHAR2
148 , p3_a22 VARCHAR2
149 , p3_a23 NUMBER
150 , p3_a24 NUMBER
151 , p3_a25 NUMBER
152 , p3_a26 VARCHAR2
153 , p3_a27 DATE
154 , p3_a28 DATE
155 , p3_a29 NUMBER
156 , p3_a30 NUMBER
157 , p3_a31 NUMBER
158 , p3_a32 NUMBER
159 , p3_a33 NUMBER
160 , p3_a34 VARCHAR2
161 , p3_a35 VARCHAR2
162 , p3_a36 VARCHAR2
163 , p3_a37 VARCHAR2
164 , p3_a38 NUMBER
165 , p3_a39 VARCHAR2
166 , p4_a0 JTF_NUMBER_TABLE
167 , p4_a1 JTF_NUMBER_TABLE
168 , p4_a2 JTF_VARCHAR2_TABLE_100
169 , p4_a3 JTF_NUMBER_TABLE
170 , p4_a4 JTF_VARCHAR2_TABLE_100
171 , p4_a5 JTF_NUMBER_TABLE
172 , p4_a6 JTF_NUMBER_TABLE
173 , p4_a7 JTF_VARCHAR2_TABLE_300
174 , p4_a8 JTF_VARCHAR2_TABLE_2000
175 , p4_a9 JTF_VARCHAR2_TABLE_2000
176 , p4_a10 JTF_VARCHAR2_TABLE_100
177 , p4_a11 JTF_NUMBER_TABLE
178 , p5_a0 VARCHAR2
179 , p5_a1 NUMBER
180 , p5_a2 VARCHAR2
181 , p5_a3 VARCHAR2
182 , p5_a4 VARCHAR2
183 , p5_a5 VARCHAR2
184 , p5_a6 VARCHAR2
185 , p5_a7 VARCHAR2
186 , p5_a8 NUMBER
187 , p5_a9 VARCHAR2
188 , p5_a10 NUMBER
189 , p5_a11 NUMBER
190 , p5_a12 NUMBER
191 , p5_a13 NUMBER
192 , p6_a0 JTF_NUMBER_TABLE
193 , p6_a1 JTF_DATE_TABLE
194 , p6_a2 JTF_NUMBER_TABLE
195 , p6_a3 JTF_NUMBER_TABLE
196 , p6_a4 JTF_NUMBER_TABLE
197 , p6_a5 JTF_NUMBER_TABLE
198 , p6_a6 JTF_NUMBER_TABLE
199 , p6_a7 JTF_NUMBER_TABLE
200 , p6_a8 JTF_VARCHAR2_TABLE_100
201 , p6_a9 JTF_VARCHAR2_TABLE_100
202 , p7_a0 VARCHAR2
203 , p7_a1 NUMBER
204 , p7_a2 VARCHAR2
205 , p7_a3 VARCHAR2
206 , p7_a4 VARCHAR2
207 , p7_a5 VARCHAR2
208 , p7_a6 VARCHAR2
209 , p7_a7 VARCHAR2
210 , p7_a8 NUMBER
211 , p7_a9 VARCHAR2
212 , p7_a10 NUMBER
213 , p7_a11 NUMBER
214 , p7_a12 NUMBER
215 , p7_a13 NUMBER
216 , p8_a0 JTF_NUMBER_TABLE
217 , p8_a1 JTF_DATE_TABLE
218 , p8_a2 JTF_NUMBER_TABLE
219 , p8_a3 JTF_NUMBER_TABLE
220 , p8_a4 JTF_NUMBER_TABLE
221 , p8_a5 JTF_NUMBER_TABLE
222 , p8_a6 JTF_NUMBER_TABLE
223 , p8_a7 JTF_NUMBER_TABLE
224 , p8_a8 JTF_VARCHAR2_TABLE_100
225 , p8_a9 JTF_VARCHAR2_TABLE_100
226 , x_fee_id out nocopy NUMBER
227 , x_return_status out nocopy VARCHAR2
228 , x_msg_count out nocopy NUMBER
229 , x_msg_data out nocopy VARCHAR2
230 )
231
232 as
233 ddp_fee_rec okl_lease_quote_fee_pvt.fee_rec_type;
234 ddp_assoc_asset_tbl okl_lease_quote_fee_pvt.line_relation_tbl_type;
235 ddp_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
236 ddp_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
237 ddp_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
238 ddp_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
239 ddindx binary_integer; indx binary_integer;
240 begin
241
242 -- copy data to the local IN or IN-OUT args, if any
243
244
245
246 ddp_fee_rec.id := p3_a0;
247 ddp_fee_rec.object_version_number := p3_a1;
248 ddp_fee_rec.attribute_category := p3_a2;
249 ddp_fee_rec.attribute1 := p3_a3;
250 ddp_fee_rec.attribute2 := p3_a4;
251 ddp_fee_rec.attribute3 := p3_a5;
252 ddp_fee_rec.attribute4 := p3_a6;
253 ddp_fee_rec.attribute5 := p3_a7;
254 ddp_fee_rec.attribute6 := p3_a8;
255 ddp_fee_rec.attribute7 := p3_a9;
256 ddp_fee_rec.attribute8 := p3_a10;
257 ddp_fee_rec.attribute9 := p3_a11;
258 ddp_fee_rec.attribute10 := p3_a12;
259 ddp_fee_rec.attribute11 := p3_a13;
260 ddp_fee_rec.attribute12 := p3_a14;
261 ddp_fee_rec.attribute13 := p3_a15;
262 ddp_fee_rec.attribute14 := p3_a16;
263 ddp_fee_rec.attribute15 := p3_a17;
264 ddp_fee_rec.parent_object_code := p3_a18;
265 ddp_fee_rec.parent_object_id := p3_a19;
266 ddp_fee_rec.stream_type_id := p3_a20;
267 ddp_fee_rec.fee_type := p3_a21;
268 ddp_fee_rec.structured_pricing := p3_a22;
269 ddp_fee_rec.rate_template_id := p3_a23;
270 ddp_fee_rec.rate_card_id := p3_a24;
271 ddp_fee_rec.lease_rate_factor := p3_a25;
272 ddp_fee_rec.target_arrears := p3_a26;
273 ddp_fee_rec.effective_from := p3_a27;
274 ddp_fee_rec.effective_to := p3_a28;
275 ddp_fee_rec.supplier_id := p3_a29;
276 ddp_fee_rec.rollover_quote_id := p3_a30;
277 ddp_fee_rec.initial_direct_cost := p3_a31;
278 ddp_fee_rec.fee_amount := p3_a32;
279 ddp_fee_rec.target_amount := p3_a33;
280 ddp_fee_rec.target_frequency := p3_a34;
281 ddp_fee_rec.short_description := p3_a35;
282 ddp_fee_rec.description := p3_a36;
283 ddp_fee_rec.comments := p3_a37;
284 ddp_fee_rec.payment_type_id := p3_a38;
285 ddp_fee_rec.fee_purpose_code := p3_a39;
286
287 okl_lease_quote_fee_pvt_w.rosetta_table_copy_in_p24(ddp_assoc_asset_tbl, p4_a0
288 , p4_a1
289 , p4_a2
290 , p4_a3
291 , p4_a4
292 , p4_a5
293 , p4_a6
294 , p4_a7
295 , p4_a8
296 , p4_a9
297 , p4_a10
298 , p4_a11
299 );
300
301 ddp_payment_header_rec.type_code := p5_a0;
302 ddp_payment_header_rec.stream_type_id := p5_a1;
303 ddp_payment_header_rec.status_code := p5_a2;
304 ddp_payment_header_rec.arrears_flag := p5_a3;
305 ddp_payment_header_rec.frequency_code := p5_a4;
306 ddp_payment_header_rec.dnz_periods := p5_a5;
307 ddp_payment_header_rec.dnz_periodic_amount := p5_a6;
308 ddp_payment_header_rec.parent_object_code := p5_a7;
309 ddp_payment_header_rec.parent_object_id := p5_a8;
310 ddp_payment_header_rec.quote_type_code := p5_a9;
311 ddp_payment_header_rec.quote_id := p5_a10;
312 ddp_payment_header_rec.cashflow_header_id := p5_a11;
313 ddp_payment_header_rec.cashflow_object_id := p5_a12;
314 ddp_payment_header_rec.cashflow_header_ovn := p5_a13;
315
316 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_payment_level_tbl, p6_a0
317 , p6_a1
318 , p6_a2
319 , p6_a3
320 , p6_a4
321 , p6_a5
322 , p6_a6
323 , p6_a7
324 , p6_a8
325 , p6_a9
326 );
327
328 ddp_expense_header_rec.type_code := p7_a0;
329 ddp_expense_header_rec.stream_type_id := p7_a1;
330 ddp_expense_header_rec.status_code := p7_a2;
331 ddp_expense_header_rec.arrears_flag := p7_a3;
332 ddp_expense_header_rec.frequency_code := p7_a4;
333 ddp_expense_header_rec.dnz_periods := p7_a5;
334 ddp_expense_header_rec.dnz_periodic_amount := p7_a6;
335 ddp_expense_header_rec.parent_object_code := p7_a7;
336 ddp_expense_header_rec.parent_object_id := p7_a8;
337 ddp_expense_header_rec.quote_type_code := p7_a9;
338 ddp_expense_header_rec.quote_id := p7_a10;
339 ddp_expense_header_rec.cashflow_header_id := p7_a11;
340 ddp_expense_header_rec.cashflow_object_id := p7_a12;
341 ddp_expense_header_rec.cashflow_header_ovn := p7_a13;
342
343 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_expense_level_tbl, p8_a0
344 , p8_a1
345 , p8_a2
346 , p8_a3
347 , p8_a4
348 , p8_a5
349 , p8_a6
350 , p8_a7
351 , p8_a8
352 , p8_a9
353 );
354
355
356
357
358
359 -- here's the delegated call to the old PL/SQL routine
360 okl_lease_quote_fee_pvt.create_fee(p_api_version,
361 p_init_msg_list,
362 p_transaction_control,
363 ddp_fee_rec,
364 ddp_assoc_asset_tbl,
365 ddp_payment_header_rec,
366 ddp_payment_level_tbl,
367 ddp_expense_header_rec,
368 ddp_expense_level_tbl,
369 x_fee_id,
370 x_return_status,
371 x_msg_count,
372 x_msg_data);
373
374 -- copy data back from the local variables to OUT or IN-OUT args, if any
375
376
377
378
379
380
381
382
383
384
385
386
387 end;
388
389 procedure update_fee(p_api_version NUMBER
390 , p_init_msg_list VARCHAR2
391 , p_transaction_control VARCHAR2
392 , p3_a0 NUMBER
393 , p3_a1 NUMBER
394 , p3_a2 VARCHAR2
395 , p3_a3 VARCHAR2
396 , p3_a4 VARCHAR2
397 , p3_a5 VARCHAR2
398 , p3_a6 VARCHAR2
399 , p3_a7 VARCHAR2
400 , p3_a8 VARCHAR2
401 , p3_a9 VARCHAR2
402 , p3_a10 VARCHAR2
403 , p3_a11 VARCHAR2
404 , p3_a12 VARCHAR2
405 , p3_a13 VARCHAR2
406 , p3_a14 VARCHAR2
407 , p3_a15 VARCHAR2
408 , p3_a16 VARCHAR2
409 , p3_a17 VARCHAR2
410 , p3_a18 VARCHAR2
411 , p3_a19 NUMBER
412 , p3_a20 NUMBER
413 , p3_a21 VARCHAR2
414 , p3_a22 VARCHAR2
415 , p3_a23 NUMBER
416 , p3_a24 NUMBER
417 , p3_a25 NUMBER
418 , p3_a26 VARCHAR2
419 , p3_a27 DATE
420 , p3_a28 DATE
421 , p3_a29 NUMBER
422 , p3_a30 NUMBER
423 , p3_a31 NUMBER
424 , p3_a32 NUMBER
425 , p3_a33 NUMBER
426 , p3_a34 VARCHAR2
427 , p3_a35 VARCHAR2
428 , p3_a36 VARCHAR2
429 , p3_a37 VARCHAR2
430 , p3_a38 NUMBER
431 , p3_a39 VARCHAR2
432 , p_sync_fee_header VARCHAR2
433 , p_sync_line_relations VARCHAR2
434 , x_return_status out nocopy VARCHAR2
435 , x_msg_count out nocopy NUMBER
436 , x_msg_data out nocopy VARCHAR2
437 )
438
439 as
440 ddp_fee_rec okl_lease_quote_fee_pvt.fee_rec_type;
441 ddindx binary_integer; indx binary_integer;
442 begin
443
444 -- copy data to the local IN or IN-OUT args, if any
445
446
447
448 ddp_fee_rec.id := p3_a0;
449 ddp_fee_rec.object_version_number := p3_a1;
450 ddp_fee_rec.attribute_category := p3_a2;
451 ddp_fee_rec.attribute1 := p3_a3;
452 ddp_fee_rec.attribute2 := p3_a4;
453 ddp_fee_rec.attribute3 := p3_a5;
454 ddp_fee_rec.attribute4 := p3_a6;
455 ddp_fee_rec.attribute5 := p3_a7;
456 ddp_fee_rec.attribute6 := p3_a8;
457 ddp_fee_rec.attribute7 := p3_a9;
458 ddp_fee_rec.attribute8 := p3_a10;
459 ddp_fee_rec.attribute9 := p3_a11;
460 ddp_fee_rec.attribute10 := p3_a12;
461 ddp_fee_rec.attribute11 := p3_a13;
462 ddp_fee_rec.attribute12 := p3_a14;
463 ddp_fee_rec.attribute13 := p3_a15;
464 ddp_fee_rec.attribute14 := p3_a16;
465 ddp_fee_rec.attribute15 := p3_a17;
466 ddp_fee_rec.parent_object_code := p3_a18;
467 ddp_fee_rec.parent_object_id := p3_a19;
468 ddp_fee_rec.stream_type_id := p3_a20;
469 ddp_fee_rec.fee_type := p3_a21;
470 ddp_fee_rec.structured_pricing := p3_a22;
471 ddp_fee_rec.rate_template_id := p3_a23;
472 ddp_fee_rec.rate_card_id := p3_a24;
473 ddp_fee_rec.lease_rate_factor := p3_a25;
474 ddp_fee_rec.target_arrears := p3_a26;
475 ddp_fee_rec.effective_from := p3_a27;
476 ddp_fee_rec.effective_to := p3_a28;
477 ddp_fee_rec.supplier_id := p3_a29;
478 ddp_fee_rec.rollover_quote_id := p3_a30;
479 ddp_fee_rec.initial_direct_cost := p3_a31;
480 ddp_fee_rec.fee_amount := p3_a32;
481 ddp_fee_rec.target_amount := p3_a33;
482 ddp_fee_rec.target_frequency := p3_a34;
483 ddp_fee_rec.short_description := p3_a35;
484 ddp_fee_rec.description := p3_a36;
485 ddp_fee_rec.comments := p3_a37;
486 ddp_fee_rec.payment_type_id := p3_a38;
487 ddp_fee_rec.fee_purpose_code := p3_a39;
488
489
490
491
492
493
494 -- here's the delegated call to the old PL/SQL routine
495 okl_lease_quote_fee_pvt.update_fee(p_api_version,
496 p_init_msg_list,
497 p_transaction_control,
498 ddp_fee_rec,
499 p_sync_fee_header,
500 p_sync_line_relations,
501 x_return_status,
502 x_msg_count,
503 x_msg_data);
504
505 -- copy data back from the local variables to OUT or IN-OUT args, if any
506
507
508
509
510
511
512
513
514 end;
515
516 procedure update_fee(p_api_version NUMBER
517 , p_init_msg_list VARCHAR2
518 , p_transaction_control VARCHAR2
519 , p3_a0 NUMBER
520 , p3_a1 NUMBER
521 , p3_a2 VARCHAR2
522 , p3_a3 VARCHAR2
523 , p3_a4 VARCHAR2
524 , p3_a5 VARCHAR2
525 , p3_a6 VARCHAR2
526 , p3_a7 VARCHAR2
527 , p3_a8 VARCHAR2
528 , p3_a9 VARCHAR2
529 , p3_a10 VARCHAR2
530 , p3_a11 VARCHAR2
531 , p3_a12 VARCHAR2
532 , p3_a13 VARCHAR2
533 , p3_a14 VARCHAR2
534 , p3_a15 VARCHAR2
535 , p3_a16 VARCHAR2
536 , p3_a17 VARCHAR2
537 , p3_a18 VARCHAR2
538 , p3_a19 NUMBER
539 , p3_a20 NUMBER
540 , p3_a21 VARCHAR2
541 , p3_a22 VARCHAR2
542 , p3_a23 NUMBER
543 , p3_a24 NUMBER
544 , p3_a25 NUMBER
545 , p3_a26 VARCHAR2
546 , p3_a27 DATE
547 , p3_a28 DATE
548 , p3_a29 NUMBER
549 , p3_a30 NUMBER
550 , p3_a31 NUMBER
551 , p3_a32 NUMBER
552 , p3_a33 NUMBER
553 , p3_a34 VARCHAR2
554 , p3_a35 VARCHAR2
555 , p3_a36 VARCHAR2
556 , p3_a37 VARCHAR2
557 , p3_a38 NUMBER
558 , p3_a39 VARCHAR2
559 , p4_a0 JTF_NUMBER_TABLE
560 , p4_a1 JTF_NUMBER_TABLE
561 , p4_a2 JTF_VARCHAR2_TABLE_100
562 , p4_a3 JTF_NUMBER_TABLE
563 , p4_a4 JTF_VARCHAR2_TABLE_100
564 , p4_a5 JTF_NUMBER_TABLE
565 , p4_a6 JTF_NUMBER_TABLE
566 , p4_a7 JTF_VARCHAR2_TABLE_300
567 , p4_a8 JTF_VARCHAR2_TABLE_2000
568 , p4_a9 JTF_VARCHAR2_TABLE_2000
569 , p4_a10 JTF_VARCHAR2_TABLE_100
570 , p4_a11 JTF_NUMBER_TABLE
571 , p5_a0 VARCHAR2
572 , p5_a1 NUMBER
573 , p5_a2 VARCHAR2
574 , p5_a3 VARCHAR2
575 , p5_a4 VARCHAR2
576 , p5_a5 VARCHAR2
577 , p5_a6 VARCHAR2
578 , p5_a7 VARCHAR2
579 , p5_a8 NUMBER
580 , p5_a9 VARCHAR2
581 , p5_a10 NUMBER
582 , p5_a11 NUMBER
583 , p5_a12 NUMBER
584 , p5_a13 NUMBER
585 , p6_a0 JTF_NUMBER_TABLE
586 , p6_a1 JTF_DATE_TABLE
587 , p6_a2 JTF_NUMBER_TABLE
588 , p6_a3 JTF_NUMBER_TABLE
589 , p6_a4 JTF_NUMBER_TABLE
590 , p6_a5 JTF_NUMBER_TABLE
591 , p6_a6 JTF_NUMBER_TABLE
592 , p6_a7 JTF_NUMBER_TABLE
593 , p6_a8 JTF_VARCHAR2_TABLE_100
594 , p6_a9 JTF_VARCHAR2_TABLE_100
595 , p7_a0 VARCHAR2
596 , p7_a1 NUMBER
597 , p7_a2 VARCHAR2
598 , p7_a3 VARCHAR2
599 , p7_a4 VARCHAR2
600 , p7_a5 VARCHAR2
601 , p7_a6 VARCHAR2
602 , p7_a7 VARCHAR2
603 , p7_a8 NUMBER
604 , p7_a9 VARCHAR2
605 , p7_a10 NUMBER
606 , p7_a11 NUMBER
607 , p7_a12 NUMBER
608 , p7_a13 NUMBER
609 , p8_a0 JTF_NUMBER_TABLE
610 , p8_a1 JTF_DATE_TABLE
611 , p8_a2 JTF_NUMBER_TABLE
612 , p8_a3 JTF_NUMBER_TABLE
613 , p8_a4 JTF_NUMBER_TABLE
614 , p8_a5 JTF_NUMBER_TABLE
615 , p8_a6 JTF_NUMBER_TABLE
616 , p8_a7 JTF_NUMBER_TABLE
617 , p8_a8 JTF_VARCHAR2_TABLE_100
618 , p8_a9 JTF_VARCHAR2_TABLE_100
619 , x_return_status out nocopy VARCHAR2
620 , x_msg_count out nocopy NUMBER
621 , x_msg_data out nocopy VARCHAR2
622 )
623
624 as
625 ddp_fee_rec okl_lease_quote_fee_pvt.fee_rec_type;
626 ddp_assoc_asset_tbl okl_lease_quote_fee_pvt.line_relation_tbl_type;
627 ddp_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
628 ddp_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
629 ddp_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
630 ddp_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
631 ddindx binary_integer; indx binary_integer;
632 begin
633
634 -- copy data to the local IN or IN-OUT args, if any
635
636
637
638 ddp_fee_rec.id := p3_a0;
639 ddp_fee_rec.object_version_number := p3_a1;
640 ddp_fee_rec.attribute_category := p3_a2;
641 ddp_fee_rec.attribute1 := p3_a3;
642 ddp_fee_rec.attribute2 := p3_a4;
643 ddp_fee_rec.attribute3 := p3_a5;
644 ddp_fee_rec.attribute4 := p3_a6;
645 ddp_fee_rec.attribute5 := p3_a7;
646 ddp_fee_rec.attribute6 := p3_a8;
647 ddp_fee_rec.attribute7 := p3_a9;
648 ddp_fee_rec.attribute8 := p3_a10;
649 ddp_fee_rec.attribute9 := p3_a11;
650 ddp_fee_rec.attribute10 := p3_a12;
651 ddp_fee_rec.attribute11 := p3_a13;
652 ddp_fee_rec.attribute12 := p3_a14;
653 ddp_fee_rec.attribute13 := p3_a15;
654 ddp_fee_rec.attribute14 := p3_a16;
655 ddp_fee_rec.attribute15 := p3_a17;
656 ddp_fee_rec.parent_object_code := p3_a18;
657 ddp_fee_rec.parent_object_id := p3_a19;
658 ddp_fee_rec.stream_type_id := p3_a20;
659 ddp_fee_rec.fee_type := p3_a21;
660 ddp_fee_rec.structured_pricing := p3_a22;
661 ddp_fee_rec.rate_template_id := p3_a23;
662 ddp_fee_rec.rate_card_id := p3_a24;
663 ddp_fee_rec.lease_rate_factor := p3_a25;
664 ddp_fee_rec.target_arrears := p3_a26;
665 ddp_fee_rec.effective_from := p3_a27;
666 ddp_fee_rec.effective_to := p3_a28;
667 ddp_fee_rec.supplier_id := p3_a29;
668 ddp_fee_rec.rollover_quote_id := p3_a30;
669 ddp_fee_rec.initial_direct_cost := p3_a31;
670 ddp_fee_rec.fee_amount := p3_a32;
671 ddp_fee_rec.target_amount := p3_a33;
672 ddp_fee_rec.target_frequency := p3_a34;
673 ddp_fee_rec.short_description := p3_a35;
674 ddp_fee_rec.description := p3_a36;
675 ddp_fee_rec.comments := p3_a37;
676 ddp_fee_rec.payment_type_id := p3_a38;
677 ddp_fee_rec.fee_purpose_code := p3_a39;
678
679 okl_lease_quote_fee_pvt_w.rosetta_table_copy_in_p24(ddp_assoc_asset_tbl, p4_a0
680 , p4_a1
681 , p4_a2
682 , p4_a3
683 , p4_a4
684 , p4_a5
685 , p4_a6
686 , p4_a7
687 , p4_a8
688 , p4_a9
689 , p4_a10
690 , p4_a11
691 );
692
693 ddp_payment_header_rec.type_code := p5_a0;
694 ddp_payment_header_rec.stream_type_id := p5_a1;
695 ddp_payment_header_rec.status_code := p5_a2;
696 ddp_payment_header_rec.arrears_flag := p5_a3;
697 ddp_payment_header_rec.frequency_code := p5_a4;
698 ddp_payment_header_rec.dnz_periods := p5_a5;
699 ddp_payment_header_rec.dnz_periodic_amount := p5_a6;
700 ddp_payment_header_rec.parent_object_code := p5_a7;
701 ddp_payment_header_rec.parent_object_id := p5_a8;
702 ddp_payment_header_rec.quote_type_code := p5_a9;
703 ddp_payment_header_rec.quote_id := p5_a10;
704 ddp_payment_header_rec.cashflow_header_id := p5_a11;
705 ddp_payment_header_rec.cashflow_object_id := p5_a12;
706 ddp_payment_header_rec.cashflow_header_ovn := p5_a13;
707
708 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_payment_level_tbl, p6_a0
709 , p6_a1
710 , p6_a2
711 , p6_a3
712 , p6_a4
713 , p6_a5
714 , p6_a6
715 , p6_a7
716 , p6_a8
717 , p6_a9
718 );
719
720 ddp_expense_header_rec.type_code := p7_a0;
721 ddp_expense_header_rec.stream_type_id := p7_a1;
722 ddp_expense_header_rec.status_code := p7_a2;
723 ddp_expense_header_rec.arrears_flag := p7_a3;
724 ddp_expense_header_rec.frequency_code := p7_a4;
725 ddp_expense_header_rec.dnz_periods := p7_a5;
726 ddp_expense_header_rec.dnz_periodic_amount := p7_a6;
727 ddp_expense_header_rec.parent_object_code := p7_a7;
728 ddp_expense_header_rec.parent_object_id := p7_a8;
729 ddp_expense_header_rec.quote_type_code := p7_a9;
730 ddp_expense_header_rec.quote_id := p7_a10;
731 ddp_expense_header_rec.cashflow_header_id := p7_a11;
732 ddp_expense_header_rec.cashflow_object_id := p7_a12;
733 ddp_expense_header_rec.cashflow_header_ovn := p7_a13;
734
735 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_expense_level_tbl, p8_a0
736 , p8_a1
737 , p8_a2
738 , p8_a3
739 , p8_a4
740 , p8_a5
741 , p8_a6
742 , p8_a7
743 , p8_a8
744 , p8_a9
745 );
746
747
748
749
750 -- here's the delegated call to the old PL/SQL routine
751 okl_lease_quote_fee_pvt.update_fee(p_api_version,
752 p_init_msg_list,
753 p_transaction_control,
754 ddp_fee_rec,
755 ddp_assoc_asset_tbl,
756 ddp_payment_header_rec,
757 ddp_payment_level_tbl,
758 ddp_expense_header_rec,
759 ddp_expense_level_tbl,
760 x_return_status,
761 x_msg_count,
762 x_msg_data);
763
764 -- copy data back from the local variables to OUT or IN-OUT args, if any
765
766
767
768
769
770
771
772
773
774
775
776 end;
777
778 procedure duplicate_fee(p_api_version NUMBER
779 , p_init_msg_list VARCHAR2
780 , p_transaction_control VARCHAR2
781 , p_source_fee_id NUMBER
782 , p4_a0 NUMBER
783 , p4_a1 NUMBER
784 , p4_a2 VARCHAR2
785 , p4_a3 VARCHAR2
786 , p4_a4 VARCHAR2
787 , p4_a5 VARCHAR2
788 , p4_a6 VARCHAR2
789 , p4_a7 VARCHAR2
790 , p4_a8 VARCHAR2
791 , p4_a9 VARCHAR2
792 , p4_a10 VARCHAR2
793 , p4_a11 VARCHAR2
794 , p4_a12 VARCHAR2
795 , p4_a13 VARCHAR2
796 , p4_a14 VARCHAR2
797 , p4_a15 VARCHAR2
798 , p4_a16 VARCHAR2
799 , p4_a17 VARCHAR2
800 , p4_a18 VARCHAR2
801 , p4_a19 NUMBER
802 , p4_a20 NUMBER
803 , p4_a21 VARCHAR2
804 , p4_a22 VARCHAR2
805 , p4_a23 NUMBER
806 , p4_a24 NUMBER
807 , p4_a25 NUMBER
808 , p4_a26 VARCHAR2
809 , p4_a27 DATE
810 , p4_a28 DATE
811 , p4_a29 NUMBER
812 , p4_a30 NUMBER
813 , p4_a31 NUMBER
814 , p4_a32 NUMBER
815 , p4_a33 NUMBER
816 , p4_a34 VARCHAR2
817 , p4_a35 VARCHAR2
818 , p4_a36 VARCHAR2
819 , p4_a37 VARCHAR2
820 , p4_a38 NUMBER
821 , p4_a39 VARCHAR2
822 , p5_a0 JTF_NUMBER_TABLE
823 , p5_a1 JTF_NUMBER_TABLE
824 , p5_a2 JTF_VARCHAR2_TABLE_100
825 , p5_a3 JTF_NUMBER_TABLE
826 , p5_a4 JTF_VARCHAR2_TABLE_100
827 , p5_a5 JTF_NUMBER_TABLE
828 , p5_a6 JTF_NUMBER_TABLE
829 , p5_a7 JTF_VARCHAR2_TABLE_300
830 , p5_a8 JTF_VARCHAR2_TABLE_2000
831 , p5_a9 JTF_VARCHAR2_TABLE_2000
832 , p5_a10 JTF_VARCHAR2_TABLE_100
833 , p5_a11 JTF_NUMBER_TABLE
834 , p6_a0 VARCHAR2
835 , p6_a1 NUMBER
836 , p6_a2 VARCHAR2
837 , p6_a3 VARCHAR2
838 , p6_a4 VARCHAR2
839 , p6_a5 VARCHAR2
840 , p6_a6 VARCHAR2
841 , p6_a7 VARCHAR2
842 , p6_a8 NUMBER
843 , p6_a9 VARCHAR2
844 , p6_a10 NUMBER
845 , p6_a11 NUMBER
846 , p6_a12 NUMBER
847 , p6_a13 NUMBER
848 , p7_a0 JTF_NUMBER_TABLE
849 , p7_a1 JTF_DATE_TABLE
850 , p7_a2 JTF_NUMBER_TABLE
851 , p7_a3 JTF_NUMBER_TABLE
852 , p7_a4 JTF_NUMBER_TABLE
853 , p7_a5 JTF_NUMBER_TABLE
854 , p7_a6 JTF_NUMBER_TABLE
855 , p7_a7 JTF_NUMBER_TABLE
856 , p7_a8 JTF_VARCHAR2_TABLE_100
857 , p7_a9 JTF_VARCHAR2_TABLE_100
858 , p8_a0 VARCHAR2
859 , p8_a1 NUMBER
860 , p8_a2 VARCHAR2
861 , p8_a3 VARCHAR2
862 , p8_a4 VARCHAR2
863 , p8_a5 VARCHAR2
864 , p8_a6 VARCHAR2
865 , p8_a7 VARCHAR2
866 , p8_a8 NUMBER
867 , p8_a9 VARCHAR2
868 , p8_a10 NUMBER
869 , p8_a11 NUMBER
870 , p8_a12 NUMBER
871 , p8_a13 NUMBER
872 , p9_a0 JTF_NUMBER_TABLE
873 , p9_a1 JTF_DATE_TABLE
874 , p9_a2 JTF_NUMBER_TABLE
875 , p9_a3 JTF_NUMBER_TABLE
876 , p9_a4 JTF_NUMBER_TABLE
877 , p9_a5 JTF_NUMBER_TABLE
878 , p9_a6 JTF_NUMBER_TABLE
879 , p9_a7 JTF_NUMBER_TABLE
880 , p9_a8 JTF_VARCHAR2_TABLE_100
881 , p9_a9 JTF_VARCHAR2_TABLE_100
882 , x_fee_id out nocopy NUMBER
883 , x_return_status out nocopy VARCHAR2
884 , x_msg_count out nocopy NUMBER
885 , x_msg_data out nocopy VARCHAR2
886 )
887
888 as
889 ddp_fee_rec okl_lease_quote_fee_pvt.fee_rec_type;
890 ddp_assoc_asset_tbl okl_lease_quote_fee_pvt.line_relation_tbl_type;
891 ddp_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
892 ddp_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
893 ddp_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
894 ddp_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
895 ddindx binary_integer; indx binary_integer;
896 begin
897
898 -- copy data to the local IN or IN-OUT args, if any
899
900
901
902
903 ddp_fee_rec.id := p4_a0;
904 ddp_fee_rec.object_version_number := p4_a1;
905 ddp_fee_rec.attribute_category := p4_a2;
906 ddp_fee_rec.attribute1 := p4_a3;
907 ddp_fee_rec.attribute2 := p4_a4;
908 ddp_fee_rec.attribute3 := p4_a5;
909 ddp_fee_rec.attribute4 := p4_a6;
910 ddp_fee_rec.attribute5 := p4_a7;
911 ddp_fee_rec.attribute6 := p4_a8;
912 ddp_fee_rec.attribute7 := p4_a9;
913 ddp_fee_rec.attribute8 := p4_a10;
914 ddp_fee_rec.attribute9 := p4_a11;
915 ddp_fee_rec.attribute10 := p4_a12;
916 ddp_fee_rec.attribute11 := p4_a13;
917 ddp_fee_rec.attribute12 := p4_a14;
918 ddp_fee_rec.attribute13 := p4_a15;
919 ddp_fee_rec.attribute14 := p4_a16;
920 ddp_fee_rec.attribute15 := p4_a17;
921 ddp_fee_rec.parent_object_code := p4_a18;
922 ddp_fee_rec.parent_object_id := p4_a19;
923 ddp_fee_rec.stream_type_id := p4_a20;
924 ddp_fee_rec.fee_type := p4_a21;
925 ddp_fee_rec.structured_pricing := p4_a22;
926 ddp_fee_rec.rate_template_id := p4_a23;
927 ddp_fee_rec.rate_card_id := p4_a24;
928 ddp_fee_rec.lease_rate_factor := p4_a25;
929 ddp_fee_rec.target_arrears := p4_a26;
930 ddp_fee_rec.effective_from := p4_a27;
931 ddp_fee_rec.effective_to := p4_a28;
932 ddp_fee_rec.supplier_id := p4_a29;
933 ddp_fee_rec.rollover_quote_id := p4_a30;
934 ddp_fee_rec.initial_direct_cost := p4_a31;
935 ddp_fee_rec.fee_amount := p4_a32;
936 ddp_fee_rec.target_amount := p4_a33;
937 ddp_fee_rec.target_frequency := p4_a34;
938 ddp_fee_rec.short_description := p4_a35;
939 ddp_fee_rec.description := p4_a36;
940 ddp_fee_rec.comments := p4_a37;
941 ddp_fee_rec.payment_type_id := p4_a38;
942 ddp_fee_rec.fee_purpose_code := p4_a39;
943
944 okl_lease_quote_fee_pvt_w.rosetta_table_copy_in_p24(ddp_assoc_asset_tbl, p5_a0
945 , p5_a1
946 , p5_a2
947 , p5_a3
948 , p5_a4
949 , p5_a5
950 , p5_a6
951 , p5_a7
952 , p5_a8
953 , p5_a9
954 , p5_a10
955 , p5_a11
956 );
957
958 ddp_payment_header_rec.type_code := p6_a0;
959 ddp_payment_header_rec.stream_type_id := p6_a1;
960 ddp_payment_header_rec.status_code := p6_a2;
961 ddp_payment_header_rec.arrears_flag := p6_a3;
962 ddp_payment_header_rec.frequency_code := p6_a4;
963 ddp_payment_header_rec.dnz_periods := p6_a5;
964 ddp_payment_header_rec.dnz_periodic_amount := p6_a6;
965 ddp_payment_header_rec.parent_object_code := p6_a7;
966 ddp_payment_header_rec.parent_object_id := p6_a8;
967 ddp_payment_header_rec.quote_type_code := p6_a9;
968 ddp_payment_header_rec.quote_id := p6_a10;
969 ddp_payment_header_rec.cashflow_header_id := p6_a11;
970 ddp_payment_header_rec.cashflow_object_id := p6_a12;
971 ddp_payment_header_rec.cashflow_header_ovn := p6_a13;
972
973 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_payment_level_tbl, p7_a0
974 , p7_a1
975 , p7_a2
976 , p7_a3
977 , p7_a4
978 , p7_a5
979 , p7_a6
980 , p7_a7
981 , p7_a8
982 , p7_a9
983 );
984
985 ddp_expense_header_rec.type_code := p8_a0;
986 ddp_expense_header_rec.stream_type_id := p8_a1;
987 ddp_expense_header_rec.status_code := p8_a2;
988 ddp_expense_header_rec.arrears_flag := p8_a3;
989 ddp_expense_header_rec.frequency_code := p8_a4;
990 ddp_expense_header_rec.dnz_periods := p8_a5;
991 ddp_expense_header_rec.dnz_periodic_amount := p8_a6;
992 ddp_expense_header_rec.parent_object_code := p8_a7;
993 ddp_expense_header_rec.parent_object_id := p8_a8;
994 ddp_expense_header_rec.quote_type_code := p8_a9;
995 ddp_expense_header_rec.quote_id := p8_a10;
996 ddp_expense_header_rec.cashflow_header_id := p8_a11;
997 ddp_expense_header_rec.cashflow_object_id := p8_a12;
998 ddp_expense_header_rec.cashflow_header_ovn := p8_a13;
999
1000 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_expense_level_tbl, p9_a0
1001 , p9_a1
1002 , p9_a2
1003 , p9_a3
1004 , p9_a4
1005 , p9_a5
1006 , p9_a6
1007 , p9_a7
1008 , p9_a8
1009 , p9_a9
1010 );
1011
1012
1013
1014
1015
1016 -- here's the delegated call to the old PL/SQL routine
1017 okl_lease_quote_fee_pvt.duplicate_fee(p_api_version,
1018 p_init_msg_list,
1019 p_transaction_control,
1020 p_source_fee_id,
1021 ddp_fee_rec,
1022 ddp_assoc_asset_tbl,
1023 ddp_payment_header_rec,
1024 ddp_payment_level_tbl,
1025 ddp_expense_header_rec,
1026 ddp_expense_level_tbl,
1027 x_fee_id,
1028 x_return_status,
1029 x_msg_count,
1030 x_msg_data);
1031
1032 -- copy data back from the local variables to OUT or IN-OUT args, if any
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046 end;
1047
1048 end okl_lease_quote_fee_pvt_w;