[Home] [Help]
PACKAGE BODY: APPS.OKL_DEAL_CHARGES_PVT_W
Source
1 package body okl_deal_charges_pvt_w as
2 /* $Header: OKLEKACB.pls 120.0 2007/04/20 06:27:16 udhenuko noship $ */
3 procedure rosetta_table_copy_in_p13(t out nocopy okl_deal_charges_pvt.fee_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_200
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_VARCHAR2_TABLE_200
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_400
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_VARCHAR2_TABLE_200
14 , a11 JTF_DATE_TABLE
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_NUMBER_TABLE
20 , a17 JTF_DATE_TABLE
21 , a18 JTF_VARCHAR2_TABLE_100
22 , a19 JTF_VARCHAR2_TABLE_100
23 , a20 JTF_VARCHAR2_TABLE_500
24 , a21 JTF_VARCHAR2_TABLE_500
25 , a22 JTF_VARCHAR2_TABLE_500
26 , a23 JTF_VARCHAR2_TABLE_500
27 , a24 JTF_VARCHAR2_TABLE_500
28 , a25 JTF_VARCHAR2_TABLE_500
29 , a26 JTF_VARCHAR2_TABLE_500
30 , a27 JTF_VARCHAR2_TABLE_500
31 , a28 JTF_VARCHAR2_TABLE_500
32 , a29 JTF_VARCHAR2_TABLE_500
33 , a30 JTF_VARCHAR2_TABLE_500
34 , a31 JTF_VARCHAR2_TABLE_500
35 , a32 JTF_VARCHAR2_TABLE_500
36 , a33 JTF_VARCHAR2_TABLE_500
37 , a34 JTF_VARCHAR2_TABLE_500
38 , a35 JTF_VARCHAR2_TABLE_100
39 , a36 JTF_NUMBER_TABLE
40 , a37 JTF_NUMBER_TABLE
41 , a38 JTF_VARCHAR2_TABLE_100
42 , a39 JTF_VARCHAR2_TABLE_200
43 , a40 JTF_VARCHAR2_TABLE_100
44 , a41 JTF_VARCHAR2_TABLE_100
45 , a42 JTF_NUMBER_TABLE
46 , a43 JTF_VARCHAR2_TABLE_500
47 , a44 JTF_VARCHAR2_TABLE_500
48 ) as
49 ddindx binary_integer; indx binary_integer;
50 begin
51 if a0 is not null and a0.count > 0 then
52 if a0.count > 0 then
53 indx := a0.first;
54 ddindx := 1;
55 while true loop
56 t(ddindx).cleb_fee_id := a0(indx);
57 t(ddindx).dnz_chr_id := a1(indx);
58 t(ddindx).fee_type := a2(indx);
59 t(ddindx).cim_fee_id := a3(indx);
60 t(ddindx).cim_fee_sty_name := a4(indx);
61 t(ddindx).cim_fee_object1_id1 := a5(indx);
62 t(ddindx).cim_fee_object1_id2 := a6(indx);
63 t(ddindx).cplb_fee_id := a7(indx);
64 t(ddindx).cplb_fee_vendor_name := a8(indx);
65 t(ddindx).cplb_fee_object1_id1 := a9(indx);
66 t(ddindx).cplb_fee_object1_id2 := a10(indx);
67 t(ddindx).start_date := a11(indx);
68 t(ddindx).end_date := a12(indx);
69 t(ddindx).amount := a13(indx);
70 t(ddindx).initial_direct_cost := a14(indx);
71 t(ddindx).rollover_term_quote_number := a15(indx);
72 t(ddindx).qte_id := a16(indx);
73 t(ddindx).funding_date := a17(indx);
74 t(ddindx).fee_purpose_code := a18(indx);
75 t(ddindx).attribute_category := a19(indx);
76 t(ddindx).attribute1 := a20(indx);
77 t(ddindx).attribute2 := a21(indx);
78 t(ddindx).attribute3 := a22(indx);
79 t(ddindx).attribute4 := a23(indx);
80 t(ddindx).attribute5 := a24(indx);
81 t(ddindx).attribute6 := a25(indx);
82 t(ddindx).attribute7 := a26(indx);
83 t(ddindx).attribute8 := a27(indx);
84 t(ddindx).attribute9 := a28(indx);
85 t(ddindx).attribute10 := a29(indx);
86 t(ddindx).attribute11 := a30(indx);
87 t(ddindx).attribute12 := a31(indx);
88 t(ddindx).attribute13 := a32(indx);
89 t(ddindx).attribute14 := a33(indx);
90 t(ddindx).attribute15 := a34(indx);
91 t(ddindx).validate_dff_yn := a35(indx);
92 t(ddindx).rgp_lafexp_id := a36(indx);
93 t(ddindx).rul_lafreq_id := a37(indx);
94 t(ddindx).rul_lafreq_object1_id1 := a38(indx);
95 t(ddindx).rul_lafreq_object1_id2 := a39(indx);
96 t(ddindx).rul_lafreq_object1_code := a40(indx);
97 t(ddindx).frequency_name := a41(indx);
98 t(ddindx).rul_lafexp_id := a42(indx);
99 t(ddindx).rul_lafexp_rule_information1 := a43(indx);
100 t(ddindx).rul_lafexp_rule_information2 := a44(indx);
101 ddindx := ddindx+1;
102 if a0.last =indx
103 then exit;
104 end if;
105 indx := a0.next(indx);
106 end loop;
107 end if;
108 end if;
109 end rosetta_table_copy_in_p13;
110 procedure rosetta_table_copy_out_p13(t okl_deal_charges_pvt.fee_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
111 , a1 out nocopy JTF_NUMBER_TABLE
112 , a2 out nocopy JTF_VARCHAR2_TABLE_100
113 , a3 out nocopy JTF_NUMBER_TABLE
114 , a4 out nocopy JTF_VARCHAR2_TABLE_200
115 , a5 out nocopy JTF_VARCHAR2_TABLE_100
116 , a6 out nocopy JTF_VARCHAR2_TABLE_200
117 , a7 out nocopy JTF_NUMBER_TABLE
118 , a8 out nocopy JTF_VARCHAR2_TABLE_400
119 , a9 out nocopy JTF_VARCHAR2_TABLE_100
120 , a10 out nocopy JTF_VARCHAR2_TABLE_200
121 , a11 out nocopy JTF_DATE_TABLE
122 , a12 out nocopy JTF_DATE_TABLE
123 , a13 out nocopy JTF_NUMBER_TABLE
124 , a14 out nocopy JTF_NUMBER_TABLE
125 , a15 out nocopy JTF_NUMBER_TABLE
126 , a16 out nocopy JTF_NUMBER_TABLE
127 , a17 out nocopy JTF_DATE_TABLE
128 , a18 out nocopy JTF_VARCHAR2_TABLE_100
129 , a19 out nocopy JTF_VARCHAR2_TABLE_100
130 , a20 out nocopy JTF_VARCHAR2_TABLE_500
131 , a21 out nocopy JTF_VARCHAR2_TABLE_500
132 , a22 out nocopy JTF_VARCHAR2_TABLE_500
133 , a23 out nocopy JTF_VARCHAR2_TABLE_500
134 , a24 out nocopy JTF_VARCHAR2_TABLE_500
135 , a25 out nocopy JTF_VARCHAR2_TABLE_500
136 , a26 out nocopy JTF_VARCHAR2_TABLE_500
137 , a27 out nocopy JTF_VARCHAR2_TABLE_500
138 , a28 out nocopy JTF_VARCHAR2_TABLE_500
139 , a29 out nocopy JTF_VARCHAR2_TABLE_500
140 , a30 out nocopy JTF_VARCHAR2_TABLE_500
141 , a31 out nocopy JTF_VARCHAR2_TABLE_500
142 , a32 out nocopy JTF_VARCHAR2_TABLE_500
143 , a33 out nocopy JTF_VARCHAR2_TABLE_500
144 , a34 out nocopy JTF_VARCHAR2_TABLE_500
145 , a35 out nocopy JTF_VARCHAR2_TABLE_100
146 , a36 out nocopy JTF_NUMBER_TABLE
147 , a37 out nocopy JTF_NUMBER_TABLE
148 , a38 out nocopy JTF_VARCHAR2_TABLE_100
149 , a39 out nocopy JTF_VARCHAR2_TABLE_200
150 , a40 out nocopy JTF_VARCHAR2_TABLE_100
151 , a41 out nocopy JTF_VARCHAR2_TABLE_100
152 , a42 out nocopy JTF_NUMBER_TABLE
153 , a43 out nocopy JTF_VARCHAR2_TABLE_500
154 , a44 out nocopy JTF_VARCHAR2_TABLE_500
155 ) as
156 ddindx binary_integer; indx binary_integer;
157 begin
158 if t is null or t.count = 0 then
159 a0 := JTF_NUMBER_TABLE();
160 a1 := JTF_NUMBER_TABLE();
161 a2 := JTF_VARCHAR2_TABLE_100();
162 a3 := JTF_NUMBER_TABLE();
163 a4 := JTF_VARCHAR2_TABLE_200();
164 a5 := JTF_VARCHAR2_TABLE_100();
165 a6 := JTF_VARCHAR2_TABLE_200();
166 a7 := JTF_NUMBER_TABLE();
167 a8 := JTF_VARCHAR2_TABLE_400();
168 a9 := JTF_VARCHAR2_TABLE_100();
169 a10 := JTF_VARCHAR2_TABLE_200();
170 a11 := JTF_DATE_TABLE();
171 a12 := JTF_DATE_TABLE();
172 a13 := JTF_NUMBER_TABLE();
173 a14 := JTF_NUMBER_TABLE();
174 a15 := JTF_NUMBER_TABLE();
175 a16 := JTF_NUMBER_TABLE();
176 a17 := JTF_DATE_TABLE();
177 a18 := JTF_VARCHAR2_TABLE_100();
178 a19 := JTF_VARCHAR2_TABLE_100();
179 a20 := JTF_VARCHAR2_TABLE_500();
180 a21 := JTF_VARCHAR2_TABLE_500();
181 a22 := JTF_VARCHAR2_TABLE_500();
182 a23 := JTF_VARCHAR2_TABLE_500();
183 a24 := JTF_VARCHAR2_TABLE_500();
184 a25 := JTF_VARCHAR2_TABLE_500();
185 a26 := JTF_VARCHAR2_TABLE_500();
186 a27 := JTF_VARCHAR2_TABLE_500();
187 a28 := JTF_VARCHAR2_TABLE_500();
188 a29 := JTF_VARCHAR2_TABLE_500();
189 a30 := JTF_VARCHAR2_TABLE_500();
190 a31 := JTF_VARCHAR2_TABLE_500();
191 a32 := JTF_VARCHAR2_TABLE_500();
192 a33 := JTF_VARCHAR2_TABLE_500();
193 a34 := JTF_VARCHAR2_TABLE_500();
194 a35 := JTF_VARCHAR2_TABLE_100();
195 a36 := JTF_NUMBER_TABLE();
196 a37 := JTF_NUMBER_TABLE();
197 a38 := JTF_VARCHAR2_TABLE_100();
198 a39 := JTF_VARCHAR2_TABLE_200();
199 a40 := JTF_VARCHAR2_TABLE_100();
200 a41 := JTF_VARCHAR2_TABLE_100();
201 a42 := JTF_NUMBER_TABLE();
202 a43 := JTF_VARCHAR2_TABLE_500();
203 a44 := JTF_VARCHAR2_TABLE_500();
204 else
205 a0 := JTF_NUMBER_TABLE();
206 a1 := JTF_NUMBER_TABLE();
207 a2 := JTF_VARCHAR2_TABLE_100();
208 a3 := JTF_NUMBER_TABLE();
209 a4 := JTF_VARCHAR2_TABLE_200();
210 a5 := JTF_VARCHAR2_TABLE_100();
211 a6 := JTF_VARCHAR2_TABLE_200();
212 a7 := JTF_NUMBER_TABLE();
213 a8 := JTF_VARCHAR2_TABLE_400();
214 a9 := JTF_VARCHAR2_TABLE_100();
215 a10 := JTF_VARCHAR2_TABLE_200();
216 a11 := JTF_DATE_TABLE();
217 a12 := JTF_DATE_TABLE();
218 a13 := JTF_NUMBER_TABLE();
219 a14 := JTF_NUMBER_TABLE();
220 a15 := JTF_NUMBER_TABLE();
221 a16 := JTF_NUMBER_TABLE();
222 a17 := JTF_DATE_TABLE();
223 a18 := JTF_VARCHAR2_TABLE_100();
224 a19 := JTF_VARCHAR2_TABLE_100();
225 a20 := JTF_VARCHAR2_TABLE_500();
226 a21 := JTF_VARCHAR2_TABLE_500();
227 a22 := JTF_VARCHAR2_TABLE_500();
228 a23 := JTF_VARCHAR2_TABLE_500();
229 a24 := JTF_VARCHAR2_TABLE_500();
230 a25 := JTF_VARCHAR2_TABLE_500();
231 a26 := JTF_VARCHAR2_TABLE_500();
232 a27 := JTF_VARCHAR2_TABLE_500();
233 a28 := JTF_VARCHAR2_TABLE_500();
234 a29 := JTF_VARCHAR2_TABLE_500();
235 a30 := JTF_VARCHAR2_TABLE_500();
236 a31 := JTF_VARCHAR2_TABLE_500();
237 a32 := JTF_VARCHAR2_TABLE_500();
238 a33 := JTF_VARCHAR2_TABLE_500();
239 a34 := JTF_VARCHAR2_TABLE_500();
240 a35 := JTF_VARCHAR2_TABLE_100();
241 a36 := JTF_NUMBER_TABLE();
242 a37 := JTF_NUMBER_TABLE();
243 a38 := JTF_VARCHAR2_TABLE_100();
244 a39 := JTF_VARCHAR2_TABLE_200();
245 a40 := JTF_VARCHAR2_TABLE_100();
246 a41 := JTF_VARCHAR2_TABLE_100();
247 a42 := JTF_NUMBER_TABLE();
248 a43 := JTF_VARCHAR2_TABLE_500();
249 a44 := JTF_VARCHAR2_TABLE_500();
250 if t.count > 0 then
251 a0.extend(t.count);
252 a1.extend(t.count);
253 a2.extend(t.count);
254 a3.extend(t.count);
255 a4.extend(t.count);
256 a5.extend(t.count);
257 a6.extend(t.count);
258 a7.extend(t.count);
259 a8.extend(t.count);
260 a9.extend(t.count);
261 a10.extend(t.count);
262 a11.extend(t.count);
263 a12.extend(t.count);
264 a13.extend(t.count);
265 a14.extend(t.count);
266 a15.extend(t.count);
267 a16.extend(t.count);
268 a17.extend(t.count);
269 a18.extend(t.count);
270 a19.extend(t.count);
271 a20.extend(t.count);
272 a21.extend(t.count);
273 a22.extend(t.count);
274 a23.extend(t.count);
275 a24.extend(t.count);
276 a25.extend(t.count);
277 a26.extend(t.count);
278 a27.extend(t.count);
279 a28.extend(t.count);
280 a29.extend(t.count);
281 a30.extend(t.count);
282 a31.extend(t.count);
283 a32.extend(t.count);
284 a33.extend(t.count);
285 a34.extend(t.count);
286 a35.extend(t.count);
287 a36.extend(t.count);
288 a37.extend(t.count);
289 a38.extend(t.count);
290 a39.extend(t.count);
291 a40.extend(t.count);
292 a41.extend(t.count);
293 a42.extend(t.count);
294 a43.extend(t.count);
295 a44.extend(t.count);
296 ddindx := t.first;
297 indx := 1;
298 while true loop
299 a0(indx) := t(ddindx).cleb_fee_id;
300 a1(indx) := t(ddindx).dnz_chr_id;
301 a2(indx) := t(ddindx).fee_type;
302 a3(indx) := t(ddindx).cim_fee_id;
303 a4(indx) := t(ddindx).cim_fee_sty_name;
304 a5(indx) := t(ddindx).cim_fee_object1_id1;
305 a6(indx) := t(ddindx).cim_fee_object1_id2;
306 a7(indx) := t(ddindx).cplb_fee_id;
307 a8(indx) := t(ddindx).cplb_fee_vendor_name;
308 a9(indx) := t(ddindx).cplb_fee_object1_id1;
309 a10(indx) := t(ddindx).cplb_fee_object1_id2;
310 a11(indx) := t(ddindx).start_date;
311 a12(indx) := t(ddindx).end_date;
312 a13(indx) := t(ddindx).amount;
313 a14(indx) := t(ddindx).initial_direct_cost;
314 a15(indx) := t(ddindx).rollover_term_quote_number;
315 a16(indx) := t(ddindx).qte_id;
316 a17(indx) := t(ddindx).funding_date;
317 a18(indx) := t(ddindx).fee_purpose_code;
318 a19(indx) := t(ddindx).attribute_category;
319 a20(indx) := t(ddindx).attribute1;
320 a21(indx) := t(ddindx).attribute2;
321 a22(indx) := t(ddindx).attribute3;
322 a23(indx) := t(ddindx).attribute4;
323 a24(indx) := t(ddindx).attribute5;
324 a25(indx) := t(ddindx).attribute6;
325 a26(indx) := t(ddindx).attribute7;
326 a27(indx) := t(ddindx).attribute8;
327 a28(indx) := t(ddindx).attribute9;
328 a29(indx) := t(ddindx).attribute10;
329 a30(indx) := t(ddindx).attribute11;
330 a31(indx) := t(ddindx).attribute12;
331 a32(indx) := t(ddindx).attribute13;
332 a33(indx) := t(ddindx).attribute14;
333 a34(indx) := t(ddindx).attribute15;
334 a35(indx) := t(ddindx).validate_dff_yn;
335 a36(indx) := t(ddindx).rgp_lafexp_id;
336 a37(indx) := t(ddindx).rul_lafreq_id;
337 a38(indx) := t(ddindx).rul_lafreq_object1_id1;
338 a39(indx) := t(ddindx).rul_lafreq_object1_id2;
339 a40(indx) := t(ddindx).rul_lafreq_object1_code;
340 a41(indx) := t(ddindx).frequency_name;
341 a42(indx) := t(ddindx).rul_lafexp_id;
342 a43(indx) := t(ddindx).rul_lafexp_rule_information1;
343 a44(indx) := t(ddindx).rul_lafexp_rule_information2;
344 indx := indx+1;
345 if t.last =ddindx
346 then exit;
347 end if;
348 ddindx := t.next(ddindx);
349 end loop;
350 end if;
351 end if;
352 end rosetta_table_copy_out_p13;
353
354 procedure rosetta_table_copy_in_p15(t out nocopy okl_deal_charges_pvt.cov_asset_tbl_type, a0 JTF_NUMBER_TABLE
355 , a1 JTF_NUMBER_TABLE
356 , a2 JTF_NUMBER_TABLE
357 , a3 JTF_VARCHAR2_TABLE_200
358 , a4 JTF_VARCHAR2_TABLE_2000
359 , a5 JTF_NUMBER_TABLE
360 , a6 JTF_NUMBER_TABLE
361 , a7 JTF_VARCHAR2_TABLE_100
362 , a8 JTF_VARCHAR2_TABLE_200
363 , a9 JTF_VARCHAR2_TABLE_100
364 ) as
365 ddindx binary_integer; indx binary_integer;
366 begin
367 if a0 is not null and a0.count > 0 then
368 if a0.count > 0 then
369 indx := a0.first;
370 ddindx := 1;
371 while true loop
372 t(ddindx).cleb_cov_asset_id := a0(indx);
373 t(ddindx).cleb_cov_asset_cle_id := a1(indx);
374 t(ddindx).dnz_chr_id := a2(indx);
375 t(ddindx).asset_number := a3(indx);
376 t(ddindx).description := a4(indx);
377 t(ddindx).capital_amount := a5(indx);
378 t(ddindx).cim_cov_asset_id := a6(indx);
379 t(ddindx).object1_id1 := a7(indx);
380 t(ddindx).object1_id2 := a8(indx);
381 t(ddindx).jtot_object1_code := a9(indx);
382 ddindx := ddindx+1;
383 if a0.last =indx
384 then exit;
385 end if;
386 indx := a0.next(indx);
387 end loop;
388 end if;
389 end if;
390 end rosetta_table_copy_in_p15;
391 procedure rosetta_table_copy_out_p15(t okl_deal_charges_pvt.cov_asset_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
392 , a1 out nocopy JTF_NUMBER_TABLE
393 , a2 out nocopy JTF_NUMBER_TABLE
394 , a3 out nocopy JTF_VARCHAR2_TABLE_200
395 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
396 , a5 out nocopy JTF_NUMBER_TABLE
397 , a6 out nocopy JTF_NUMBER_TABLE
398 , a7 out nocopy JTF_VARCHAR2_TABLE_100
399 , a8 out nocopy JTF_VARCHAR2_TABLE_200
400 , a9 out nocopy JTF_VARCHAR2_TABLE_100
401 ) as
402 ddindx binary_integer; indx binary_integer;
403 begin
404 if t is null or t.count = 0 then
405 a0 := JTF_NUMBER_TABLE();
406 a1 := JTF_NUMBER_TABLE();
407 a2 := JTF_NUMBER_TABLE();
408 a3 := JTF_VARCHAR2_TABLE_200();
409 a4 := JTF_VARCHAR2_TABLE_2000();
410 a5 := JTF_NUMBER_TABLE();
411 a6 := JTF_NUMBER_TABLE();
412 a7 := JTF_VARCHAR2_TABLE_100();
413 a8 := JTF_VARCHAR2_TABLE_200();
414 a9 := JTF_VARCHAR2_TABLE_100();
415 else
416 a0 := JTF_NUMBER_TABLE();
417 a1 := JTF_NUMBER_TABLE();
418 a2 := JTF_NUMBER_TABLE();
419 a3 := JTF_VARCHAR2_TABLE_200();
420 a4 := JTF_VARCHAR2_TABLE_2000();
421 a5 := JTF_NUMBER_TABLE();
422 a6 := JTF_NUMBER_TABLE();
423 a7 := JTF_VARCHAR2_TABLE_100();
424 a8 := JTF_VARCHAR2_TABLE_200();
425 a9 := JTF_VARCHAR2_TABLE_100();
426 if t.count > 0 then
427 a0.extend(t.count);
428 a1.extend(t.count);
429 a2.extend(t.count);
430 a3.extend(t.count);
431 a4.extend(t.count);
432 a5.extend(t.count);
433 a6.extend(t.count);
434 a7.extend(t.count);
435 a8.extend(t.count);
436 a9.extend(t.count);
437 ddindx := t.first;
438 indx := 1;
439 while true loop
440 a0(indx) := t(ddindx).cleb_cov_asset_id;
441 a1(indx) := t(ddindx).cleb_cov_asset_cle_id;
442 a2(indx) := t(ddindx).dnz_chr_id;
443 a3(indx) := t(ddindx).asset_number;
444 a4(indx) := t(ddindx).description;
445 a5(indx) := t(ddindx).capital_amount;
446 a6(indx) := t(ddindx).cim_cov_asset_id;
447 a7(indx) := t(ddindx).object1_id1;
448 a8(indx) := t(ddindx).object1_id2;
449 a9(indx) := t(ddindx).jtot_object1_code;
450 indx := indx+1;
451 if t.last =ddindx
452 then exit;
453 end if;
454 ddindx := t.next(ddindx);
455 end loop;
456 end if;
457 end if;
458 end rosetta_table_copy_out_p15;
459
460 procedure allocate_amount_charges(p_api_version NUMBER
461 , p_init_msg_list VARCHAR2
462 , x_return_status out nocopy VARCHAR2
463 , x_msg_count out nocopy NUMBER
464 , x_msg_data out nocopy VARCHAR2
465 , p_chr_id NUMBER
466 , p_cle_id NUMBER
467 , p_amount NUMBER
468 , p_mode VARCHAR2
469 , p9_a0 out nocopy JTF_NUMBER_TABLE
470 , p9_a1 out nocopy JTF_NUMBER_TABLE
471 , p9_a2 out nocopy JTF_NUMBER_TABLE
472 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_200
473 , p9_a4 out nocopy JTF_VARCHAR2_TABLE_2000
474 , p9_a5 out nocopy JTF_NUMBER_TABLE
475 , p9_a6 out nocopy JTF_NUMBER_TABLE
476 , p9_a7 out nocopy JTF_VARCHAR2_TABLE_100
477 , p9_a8 out nocopy JTF_VARCHAR2_TABLE_200
478 , p9_a9 out nocopy JTF_VARCHAR2_TABLE_100
479 )
480
481 as
482 ddx_cov_asset_tbl okl_deal_charges_pvt.cov_asset_tbl_type;
483 ddindx binary_integer; indx binary_integer;
484 begin
485
486 -- copy data to the local IN or IN-OUT args, if any
487
488
489
490
491
492
493
494
495
496
497 -- here's the delegated call to the old PL/SQL routine
498 okl_deal_charges_pvt.allocate_amount_charges(p_api_version,
499 p_init_msg_list,
500 x_return_status,
501 x_msg_count,
502 x_msg_data,
503 p_chr_id,
504 p_cle_id,
505 p_amount,
506 p_mode,
507 ddx_cov_asset_tbl);
508
509 -- copy data back from the local variables to OUT or IN-OUT args, if any
510
511
512
513
514
515
516
517
518
519 okl_deal_charges_pvt_w.rosetta_table_copy_out_p15(ddx_cov_asset_tbl, p9_a0
520 , p9_a1
521 , p9_a2
522 , p9_a3
523 , p9_a4
524 , p9_a5
525 , p9_a6
526 , p9_a7
527 , p9_a8
528 , p9_a9
529 );
530 end;
531
532 procedure create_fee(p_api_version NUMBER
533 , p_init_msg_list VARCHAR2
534 , x_return_status out nocopy VARCHAR2
535 , x_msg_count out nocopy NUMBER
536 , x_msg_data out nocopy VARCHAR2
537 , p5_a0 NUMBER
538 , p5_a1 NUMBER
539 , p5_a2 VARCHAR2
540 , p5_a3 NUMBER
541 , p5_a4 VARCHAR2
542 , p5_a5 VARCHAR2
543 , p5_a6 VARCHAR2
544 , p5_a7 NUMBER
545 , p5_a8 VARCHAR2
546 , p5_a9 VARCHAR2
547 , p5_a10 VARCHAR2
548 , p5_a11 DATE
549 , p5_a12 DATE
550 , p5_a13 NUMBER
551 , p5_a14 NUMBER
552 , p5_a15 NUMBER
553 , p5_a16 NUMBER
554 , p5_a17 DATE
555 , p5_a18 VARCHAR2
556 , p5_a19 VARCHAR2
557 , p5_a20 VARCHAR2
558 , p5_a21 VARCHAR2
559 , p5_a22 VARCHAR2
560 , p5_a23 VARCHAR2
561 , p5_a24 VARCHAR2
562 , p5_a25 VARCHAR2
563 , p5_a26 VARCHAR2
564 , p5_a27 VARCHAR2
565 , p5_a28 VARCHAR2
566 , p5_a29 VARCHAR2
567 , p5_a30 VARCHAR2
568 , p5_a31 VARCHAR2
569 , p5_a32 VARCHAR2
570 , p5_a33 VARCHAR2
571 , p5_a34 VARCHAR2
572 , p5_a35 VARCHAR2
573 , p5_a36 NUMBER
574 , p5_a37 NUMBER
575 , p5_a38 VARCHAR2
576 , p5_a39 VARCHAR2
577 , p5_a40 VARCHAR2
578 , p5_a41 VARCHAR2
579 , p5_a42 NUMBER
580 , p5_a43 VARCHAR2
581 , p5_a44 VARCHAR2
582 , p6_a0 out nocopy NUMBER
583 , p6_a1 out nocopy NUMBER
584 , p6_a2 out nocopy VARCHAR2
585 , p6_a3 out nocopy NUMBER
586 , p6_a4 out nocopy VARCHAR2
587 , p6_a5 out nocopy VARCHAR2
588 , p6_a6 out nocopy VARCHAR2
589 , p6_a7 out nocopy NUMBER
590 , p6_a8 out nocopy VARCHAR2
591 , p6_a9 out nocopy VARCHAR2
592 , p6_a10 out nocopy VARCHAR2
593 , p6_a11 out nocopy DATE
594 , p6_a12 out nocopy DATE
595 , p6_a13 out nocopy NUMBER
596 , p6_a14 out nocopy NUMBER
597 , p6_a15 out nocopy NUMBER
598 , p6_a16 out nocopy NUMBER
599 , p6_a17 out nocopy DATE
600 , p6_a18 out nocopy VARCHAR2
601 , p6_a19 out nocopy VARCHAR2
602 , p6_a20 out nocopy VARCHAR2
603 , p6_a21 out nocopy VARCHAR2
604 , p6_a22 out nocopy VARCHAR2
605 , p6_a23 out nocopy VARCHAR2
606 , p6_a24 out nocopy VARCHAR2
607 , p6_a25 out nocopy VARCHAR2
608 , p6_a26 out nocopy VARCHAR2
609 , p6_a27 out nocopy VARCHAR2
610 , p6_a28 out nocopy VARCHAR2
611 , p6_a29 out nocopy VARCHAR2
612 , p6_a30 out nocopy VARCHAR2
613 , p6_a31 out nocopy VARCHAR2
614 , p6_a32 out nocopy VARCHAR2
615 , p6_a33 out nocopy VARCHAR2
616 , p6_a34 out nocopy VARCHAR2
617 , p6_a35 out nocopy VARCHAR2
618 , p6_a36 out nocopy NUMBER
619 , p6_a37 out nocopy NUMBER
620 , p6_a38 out nocopy VARCHAR2
621 , p6_a39 out nocopy VARCHAR2
622 , p6_a40 out nocopy VARCHAR2
623 , p6_a41 out nocopy VARCHAR2
624 , p6_a42 out nocopy NUMBER
625 , p6_a43 out nocopy VARCHAR2
626 , p6_a44 out nocopy VARCHAR2
627 )
628
629 as
630 ddp_fee_rec okl_deal_charges_pvt.fee_rec_type;
631 ddx_fee_rec okl_deal_charges_pvt.fee_rec_type;
632 ddindx binary_integer; indx binary_integer;
633 begin
634
635 -- copy data to the local IN or IN-OUT args, if any
636
637
638
639
640
641 ddp_fee_rec.cleb_fee_id := p5_a0;
642 ddp_fee_rec.dnz_chr_id := p5_a1;
643 ddp_fee_rec.fee_type := p5_a2;
644 ddp_fee_rec.cim_fee_id := p5_a3;
645 ddp_fee_rec.cim_fee_sty_name := p5_a4;
646 ddp_fee_rec.cim_fee_object1_id1 := p5_a5;
647 ddp_fee_rec.cim_fee_object1_id2 := p5_a6;
648 ddp_fee_rec.cplb_fee_id := p5_a7;
649 ddp_fee_rec.cplb_fee_vendor_name := p5_a8;
650 ddp_fee_rec.cplb_fee_object1_id1 := p5_a9;
651 ddp_fee_rec.cplb_fee_object1_id2 := p5_a10;
652 ddp_fee_rec.start_date := p5_a11;
653 ddp_fee_rec.end_date := p5_a12;
654 ddp_fee_rec.amount := p5_a13;
655 ddp_fee_rec.initial_direct_cost := p5_a14;
656 ddp_fee_rec.rollover_term_quote_number := p5_a15;
657 ddp_fee_rec.qte_id := p5_a16;
658 ddp_fee_rec.funding_date := p5_a17;
659 ddp_fee_rec.fee_purpose_code := p5_a18;
660 ddp_fee_rec.attribute_category := p5_a19;
661 ddp_fee_rec.attribute1 := p5_a20;
662 ddp_fee_rec.attribute2 := p5_a21;
663 ddp_fee_rec.attribute3 := p5_a22;
664 ddp_fee_rec.attribute4 := p5_a23;
665 ddp_fee_rec.attribute5 := p5_a24;
666 ddp_fee_rec.attribute6 := p5_a25;
667 ddp_fee_rec.attribute7 := p5_a26;
668 ddp_fee_rec.attribute8 := p5_a27;
669 ddp_fee_rec.attribute9 := p5_a28;
670 ddp_fee_rec.attribute10 := p5_a29;
671 ddp_fee_rec.attribute11 := p5_a30;
672 ddp_fee_rec.attribute12 := p5_a31;
673 ddp_fee_rec.attribute13 := p5_a32;
674 ddp_fee_rec.attribute14 := p5_a33;
675 ddp_fee_rec.attribute15 := p5_a34;
676 ddp_fee_rec.validate_dff_yn := p5_a35;
677 ddp_fee_rec.rgp_lafexp_id := p5_a36;
678 ddp_fee_rec.rul_lafreq_id := p5_a37;
679 ddp_fee_rec.rul_lafreq_object1_id1 := p5_a38;
680 ddp_fee_rec.rul_lafreq_object1_id2 := p5_a39;
681 ddp_fee_rec.rul_lafreq_object1_code := p5_a40;
682 ddp_fee_rec.frequency_name := p5_a41;
683 ddp_fee_rec.rul_lafexp_id := p5_a42;
684 ddp_fee_rec.rul_lafexp_rule_information1 := p5_a43;
685 ddp_fee_rec.rul_lafexp_rule_information2 := p5_a44;
686
687
688 -- here's the delegated call to the old PL/SQL routine
689 okl_deal_charges_pvt.create_fee(p_api_version,
690 p_init_msg_list,
691 x_return_status,
692 x_msg_count,
693 x_msg_data,
694 ddp_fee_rec,
695 ddx_fee_rec);
696
697 -- copy data back from the local variables to OUT or IN-OUT args, if any
698
699
700
701
702
703
704 p6_a0 := ddx_fee_rec.cleb_fee_id;
705 p6_a1 := ddx_fee_rec.dnz_chr_id;
706 p6_a2 := ddx_fee_rec.fee_type;
707 p6_a3 := ddx_fee_rec.cim_fee_id;
708 p6_a4 := ddx_fee_rec.cim_fee_sty_name;
709 p6_a5 := ddx_fee_rec.cim_fee_object1_id1;
710 p6_a6 := ddx_fee_rec.cim_fee_object1_id2;
711 p6_a7 := ddx_fee_rec.cplb_fee_id;
712 p6_a8 := ddx_fee_rec.cplb_fee_vendor_name;
713 p6_a9 := ddx_fee_rec.cplb_fee_object1_id1;
714 p6_a10 := ddx_fee_rec.cplb_fee_object1_id2;
715 p6_a11 := ddx_fee_rec.start_date;
716 p6_a12 := ddx_fee_rec.end_date;
717 p6_a13 := ddx_fee_rec.amount;
718 p6_a14 := ddx_fee_rec.initial_direct_cost;
719 p6_a15 := ddx_fee_rec.rollover_term_quote_number;
720 p6_a16 := ddx_fee_rec.qte_id;
721 p6_a17 := ddx_fee_rec.funding_date;
722 p6_a18 := ddx_fee_rec.fee_purpose_code;
723 p6_a19 := ddx_fee_rec.attribute_category;
724 p6_a20 := ddx_fee_rec.attribute1;
725 p6_a21 := ddx_fee_rec.attribute2;
726 p6_a22 := ddx_fee_rec.attribute3;
727 p6_a23 := ddx_fee_rec.attribute4;
728 p6_a24 := ddx_fee_rec.attribute5;
729 p6_a25 := ddx_fee_rec.attribute6;
730 p6_a26 := ddx_fee_rec.attribute7;
731 p6_a27 := ddx_fee_rec.attribute8;
732 p6_a28 := ddx_fee_rec.attribute9;
733 p6_a29 := ddx_fee_rec.attribute10;
734 p6_a30 := ddx_fee_rec.attribute11;
735 p6_a31 := ddx_fee_rec.attribute12;
736 p6_a32 := ddx_fee_rec.attribute13;
737 p6_a33 := ddx_fee_rec.attribute14;
738 p6_a34 := ddx_fee_rec.attribute15;
739 p6_a35 := ddx_fee_rec.validate_dff_yn;
740 p6_a36 := ddx_fee_rec.rgp_lafexp_id;
741 p6_a37 := ddx_fee_rec.rul_lafreq_id;
742 p6_a38 := ddx_fee_rec.rul_lafreq_object1_id1;
743 p6_a39 := ddx_fee_rec.rul_lafreq_object1_id2;
744 p6_a40 := ddx_fee_rec.rul_lafreq_object1_code;
745 p6_a41 := ddx_fee_rec.frequency_name;
746 p6_a42 := ddx_fee_rec.rul_lafexp_id;
747 p6_a43 := ddx_fee_rec.rul_lafexp_rule_information1;
748 p6_a44 := ddx_fee_rec.rul_lafexp_rule_information2;
749 end;
750
751 procedure update_fee(p_api_version NUMBER
752 , p_init_msg_list VARCHAR2
753 , x_return_status out nocopy VARCHAR2
754 , x_msg_count out nocopy NUMBER
755 , x_msg_data out nocopy VARCHAR2
756 , p5_a0 NUMBER
757 , p5_a1 NUMBER
758 , p5_a2 VARCHAR2
759 , p5_a3 NUMBER
760 , p5_a4 VARCHAR2
761 , p5_a5 VARCHAR2
762 , p5_a6 VARCHAR2
763 , p5_a7 NUMBER
764 , p5_a8 VARCHAR2
765 , p5_a9 VARCHAR2
766 , p5_a10 VARCHAR2
767 , p5_a11 DATE
768 , p5_a12 DATE
769 , p5_a13 NUMBER
770 , p5_a14 NUMBER
771 , p5_a15 NUMBER
772 , p5_a16 NUMBER
773 , p5_a17 DATE
774 , p5_a18 VARCHAR2
775 , p5_a19 VARCHAR2
776 , p5_a20 VARCHAR2
777 , p5_a21 VARCHAR2
778 , p5_a22 VARCHAR2
779 , p5_a23 VARCHAR2
780 , p5_a24 VARCHAR2
781 , p5_a25 VARCHAR2
782 , p5_a26 VARCHAR2
783 , p5_a27 VARCHAR2
784 , p5_a28 VARCHAR2
785 , p5_a29 VARCHAR2
786 , p5_a30 VARCHAR2
787 , p5_a31 VARCHAR2
788 , p5_a32 VARCHAR2
789 , p5_a33 VARCHAR2
790 , p5_a34 VARCHAR2
791 , p5_a35 VARCHAR2
792 , p5_a36 NUMBER
793 , p5_a37 NUMBER
794 , p5_a38 VARCHAR2
795 , p5_a39 VARCHAR2
796 , p5_a40 VARCHAR2
797 , p5_a41 VARCHAR2
798 , p5_a42 NUMBER
799 , p5_a43 VARCHAR2
800 , p5_a44 VARCHAR2
801 , p6_a0 out nocopy NUMBER
802 , p6_a1 out nocopy NUMBER
803 , p6_a2 out nocopy VARCHAR2
804 , p6_a3 out nocopy NUMBER
805 , p6_a4 out nocopy VARCHAR2
806 , p6_a5 out nocopy VARCHAR2
807 , p6_a6 out nocopy VARCHAR2
808 , p6_a7 out nocopy NUMBER
809 , p6_a8 out nocopy VARCHAR2
810 , p6_a9 out nocopy VARCHAR2
811 , p6_a10 out nocopy VARCHAR2
812 , p6_a11 out nocopy DATE
813 , p6_a12 out nocopy DATE
814 , p6_a13 out nocopy NUMBER
815 , p6_a14 out nocopy NUMBER
816 , p6_a15 out nocopy NUMBER
817 , p6_a16 out nocopy NUMBER
818 , p6_a17 out nocopy DATE
819 , p6_a18 out nocopy VARCHAR2
820 , p6_a19 out nocopy VARCHAR2
821 , p6_a20 out nocopy VARCHAR2
822 , p6_a21 out nocopy VARCHAR2
823 , p6_a22 out nocopy VARCHAR2
824 , p6_a23 out nocopy VARCHAR2
825 , p6_a24 out nocopy VARCHAR2
826 , p6_a25 out nocopy VARCHAR2
827 , p6_a26 out nocopy VARCHAR2
828 , p6_a27 out nocopy VARCHAR2
829 , p6_a28 out nocopy VARCHAR2
830 , p6_a29 out nocopy VARCHAR2
831 , p6_a30 out nocopy VARCHAR2
832 , p6_a31 out nocopy VARCHAR2
833 , p6_a32 out nocopy VARCHAR2
834 , p6_a33 out nocopy VARCHAR2
835 , p6_a34 out nocopy VARCHAR2
836 , p6_a35 out nocopy VARCHAR2
837 , p6_a36 out nocopy NUMBER
838 , p6_a37 out nocopy NUMBER
839 , p6_a38 out nocopy VARCHAR2
840 , p6_a39 out nocopy VARCHAR2
841 , p6_a40 out nocopy VARCHAR2
842 , p6_a41 out nocopy VARCHAR2
843 , p6_a42 out nocopy NUMBER
844 , p6_a43 out nocopy VARCHAR2
845 , p6_a44 out nocopy VARCHAR2
846 )
847
848 as
849 ddp_fee_rec okl_deal_charges_pvt.fee_rec_type;
850 ddx_fee_rec okl_deal_charges_pvt.fee_rec_type;
851 ddindx binary_integer; indx binary_integer;
852 begin
853
854 -- copy data to the local IN or IN-OUT args, if any
855
856
857
858
859
860 ddp_fee_rec.cleb_fee_id := p5_a0;
861 ddp_fee_rec.dnz_chr_id := p5_a1;
862 ddp_fee_rec.fee_type := p5_a2;
863 ddp_fee_rec.cim_fee_id := p5_a3;
864 ddp_fee_rec.cim_fee_sty_name := p5_a4;
865 ddp_fee_rec.cim_fee_object1_id1 := p5_a5;
866 ddp_fee_rec.cim_fee_object1_id2 := p5_a6;
867 ddp_fee_rec.cplb_fee_id := p5_a7;
868 ddp_fee_rec.cplb_fee_vendor_name := p5_a8;
869 ddp_fee_rec.cplb_fee_object1_id1 := p5_a9;
870 ddp_fee_rec.cplb_fee_object1_id2 := p5_a10;
871 ddp_fee_rec.start_date := p5_a11;
872 ddp_fee_rec.end_date := p5_a12;
873 ddp_fee_rec.amount := p5_a13;
874 ddp_fee_rec.initial_direct_cost := p5_a14;
875 ddp_fee_rec.rollover_term_quote_number := p5_a15;
876 ddp_fee_rec.qte_id := p5_a16;
877 ddp_fee_rec.funding_date := p5_a17;
878 ddp_fee_rec.fee_purpose_code := p5_a18;
879 ddp_fee_rec.attribute_category := p5_a19;
880 ddp_fee_rec.attribute1 := p5_a20;
881 ddp_fee_rec.attribute2 := p5_a21;
882 ddp_fee_rec.attribute3 := p5_a22;
883 ddp_fee_rec.attribute4 := p5_a23;
884 ddp_fee_rec.attribute5 := p5_a24;
885 ddp_fee_rec.attribute6 := p5_a25;
886 ddp_fee_rec.attribute7 := p5_a26;
887 ddp_fee_rec.attribute8 := p5_a27;
888 ddp_fee_rec.attribute9 := p5_a28;
889 ddp_fee_rec.attribute10 := p5_a29;
890 ddp_fee_rec.attribute11 := p5_a30;
891 ddp_fee_rec.attribute12 := p5_a31;
892 ddp_fee_rec.attribute13 := p5_a32;
893 ddp_fee_rec.attribute14 := p5_a33;
894 ddp_fee_rec.attribute15 := p5_a34;
895 ddp_fee_rec.validate_dff_yn := p5_a35;
896 ddp_fee_rec.rgp_lafexp_id := p5_a36;
897 ddp_fee_rec.rul_lafreq_id := p5_a37;
898 ddp_fee_rec.rul_lafreq_object1_id1 := p5_a38;
899 ddp_fee_rec.rul_lafreq_object1_id2 := p5_a39;
900 ddp_fee_rec.rul_lafreq_object1_code := p5_a40;
901 ddp_fee_rec.frequency_name := p5_a41;
902 ddp_fee_rec.rul_lafexp_id := p5_a42;
903 ddp_fee_rec.rul_lafexp_rule_information1 := p5_a43;
904 ddp_fee_rec.rul_lafexp_rule_information2 := p5_a44;
905
906
907 -- here's the delegated call to the old PL/SQL routine
908 okl_deal_charges_pvt.update_fee(p_api_version,
909 p_init_msg_list,
910 x_return_status,
911 x_msg_count,
912 x_msg_data,
913 ddp_fee_rec,
914 ddx_fee_rec);
915
916 -- copy data back from the local variables to OUT or IN-OUT args, if any
917
918
919
920
921
922
923 p6_a0 := ddx_fee_rec.cleb_fee_id;
924 p6_a1 := ddx_fee_rec.dnz_chr_id;
925 p6_a2 := ddx_fee_rec.fee_type;
926 p6_a3 := ddx_fee_rec.cim_fee_id;
927 p6_a4 := ddx_fee_rec.cim_fee_sty_name;
928 p6_a5 := ddx_fee_rec.cim_fee_object1_id1;
929 p6_a6 := ddx_fee_rec.cim_fee_object1_id2;
930 p6_a7 := ddx_fee_rec.cplb_fee_id;
931 p6_a8 := ddx_fee_rec.cplb_fee_vendor_name;
932 p6_a9 := ddx_fee_rec.cplb_fee_object1_id1;
933 p6_a10 := ddx_fee_rec.cplb_fee_object1_id2;
934 p6_a11 := ddx_fee_rec.start_date;
935 p6_a12 := ddx_fee_rec.end_date;
936 p6_a13 := ddx_fee_rec.amount;
937 p6_a14 := ddx_fee_rec.initial_direct_cost;
938 p6_a15 := ddx_fee_rec.rollover_term_quote_number;
939 p6_a16 := ddx_fee_rec.qte_id;
940 p6_a17 := ddx_fee_rec.funding_date;
941 p6_a18 := ddx_fee_rec.fee_purpose_code;
942 p6_a19 := ddx_fee_rec.attribute_category;
943 p6_a20 := ddx_fee_rec.attribute1;
944 p6_a21 := ddx_fee_rec.attribute2;
945 p6_a22 := ddx_fee_rec.attribute3;
946 p6_a23 := ddx_fee_rec.attribute4;
947 p6_a24 := ddx_fee_rec.attribute5;
948 p6_a25 := ddx_fee_rec.attribute6;
949 p6_a26 := ddx_fee_rec.attribute7;
950 p6_a27 := ddx_fee_rec.attribute8;
951 p6_a28 := ddx_fee_rec.attribute9;
952 p6_a29 := ddx_fee_rec.attribute10;
953 p6_a30 := ddx_fee_rec.attribute11;
954 p6_a31 := ddx_fee_rec.attribute12;
955 p6_a32 := ddx_fee_rec.attribute13;
956 p6_a33 := ddx_fee_rec.attribute14;
957 p6_a34 := ddx_fee_rec.attribute15;
958 p6_a35 := ddx_fee_rec.validate_dff_yn;
959 p6_a36 := ddx_fee_rec.rgp_lafexp_id;
960 p6_a37 := ddx_fee_rec.rul_lafreq_id;
961 p6_a38 := ddx_fee_rec.rul_lafreq_object1_id1;
962 p6_a39 := ddx_fee_rec.rul_lafreq_object1_id2;
963 p6_a40 := ddx_fee_rec.rul_lafreq_object1_code;
964 p6_a41 := ddx_fee_rec.frequency_name;
965 p6_a42 := ddx_fee_rec.rul_lafexp_id;
966 p6_a43 := ddx_fee_rec.rul_lafexp_rule_information1;
967 p6_a44 := ddx_fee_rec.rul_lafexp_rule_information2;
968 end;
969
970 end okl_deal_charges_pvt_w;