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