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