eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKL_LA_PAYMENTS_PVT_W

Source


1 package body okl_la_payments_pvt_w as
2   /* $Header: OKLEPYTB.pls 115.6 2003/11/15 01:29:04 ashariff noship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   function rosetta_g_miss_num_map(n number) return number as
14     a number := fnd_api.g_miss_num;
15     b number := 0-1962.0724;
16   begin
17     if n=a then return b; end if;
18     if n=b then return a; end if;
19     return n;
20   end;
21 
22   procedure rosetta_table_copy_in_p3(t out nocopy okl_la_payments_pvt.pym_tbl_type, a0 JTF_NUMBER_TABLE
23     , a1 JTF_VARCHAR2_TABLE_500
24     , a2 JTF_VARCHAR2_TABLE_500
25     , a3 JTF_VARCHAR2_TABLE_500
26     , a4 JTF_VARCHAR2_TABLE_500
27     , a5 JTF_VARCHAR2_TABLE_500
28     , a6 JTF_VARCHAR2_TABLE_100
29     ) as
30     ddindx binary_integer; indx binary_integer;
31   begin
32   if a0 is not null and a0.count > 0 then
33       if a0.count > 0 then
34         indx := a0.first;
35         ddindx := 1;
36         while true loop
37           t(ddindx).rule_id := rosetta_g_miss_num_map(a0(indx));
38           t(ddindx).stub_days := a1(indx);
39           t(ddindx).stub_amount := a2(indx);
40           t(ddindx).period := a3(indx);
41           t(ddindx).amount := a4(indx);
42           t(ddindx).sort_date := a5(indx);
43           t(ddindx).update_type := a6(indx);
44           ddindx := ddindx+1;
45           if a0.last =indx
46             then exit;
47           end if;
48           indx := a0.next(indx);
49         end loop;
50       end if;
51    end if;
52   end rosetta_table_copy_in_p3;
53   procedure rosetta_table_copy_out_p3(t okl_la_payments_pvt.pym_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
54     , a1 out nocopy JTF_VARCHAR2_TABLE_500
55     , a2 out nocopy JTF_VARCHAR2_TABLE_500
56     , a3 out nocopy JTF_VARCHAR2_TABLE_500
57     , a4 out nocopy JTF_VARCHAR2_TABLE_500
58     , a5 out nocopy JTF_VARCHAR2_TABLE_500
59     , a6 out nocopy JTF_VARCHAR2_TABLE_100
60     ) as
61     ddindx binary_integer; indx binary_integer;
62   begin
63   if t is null or t.count = 0 then
64     a0 := JTF_NUMBER_TABLE();
65     a1 := JTF_VARCHAR2_TABLE_500();
66     a2 := JTF_VARCHAR2_TABLE_500();
67     a3 := JTF_VARCHAR2_TABLE_500();
68     a4 := JTF_VARCHAR2_TABLE_500();
69     a5 := JTF_VARCHAR2_TABLE_500();
70     a6 := JTF_VARCHAR2_TABLE_100();
71   else
72       a0 := JTF_NUMBER_TABLE();
73       a1 := JTF_VARCHAR2_TABLE_500();
74       a2 := JTF_VARCHAR2_TABLE_500();
75       a3 := JTF_VARCHAR2_TABLE_500();
76       a4 := JTF_VARCHAR2_TABLE_500();
77       a5 := JTF_VARCHAR2_TABLE_500();
78       a6 := JTF_VARCHAR2_TABLE_100();
79       if t.count > 0 then
80         a0.extend(t.count);
81         a1.extend(t.count);
82         a2.extend(t.count);
83         a3.extend(t.count);
84         a4.extend(t.count);
85         a5.extend(t.count);
86         a6.extend(t.count);
87         ddindx := t.first;
88         indx := 1;
89         while true loop
90           a0(indx) := rosetta_g_miss_num_map(t(ddindx).rule_id);
91           a1(indx) := t(ddindx).stub_days;
92           a2(indx) := t(ddindx).stub_amount;
93           a3(indx) := t(ddindx).period;
94           a4(indx) := t(ddindx).amount;
95           a5(indx) := t(ddindx).sort_date;
96           a6(indx) := t(ddindx).update_type;
97           indx := indx+1;
98           if t.last =ddindx
99             then exit;
100           end if;
101           ddindx := t.next(ddindx);
102         end loop;
103       end if;
104    end if;
105   end rosetta_table_copy_out_p3;
106 
107   procedure rosetta_table_copy_in_p4(t out nocopy okl_la_payments_pvt.pym_del_tbl_type, a0 JTF_NUMBER_TABLE
108     , a1 JTF_NUMBER_TABLE
109     , a2 JTF_NUMBER_TABLE
110     ) as
111     ddindx binary_integer; indx binary_integer;
112   begin
113   if a0 is not null and a0.count > 0 then
114       if a0.count > 0 then
115         indx := a0.first;
116         ddindx := 1;
117         while true loop
118           t(ddindx).chr_id := rosetta_g_miss_num_map(a0(indx));
119           t(ddindx).rgp_id := rosetta_g_miss_num_map(a1(indx));
120           t(ddindx).slh_id := rosetta_g_miss_num_map(a2(indx));
121           ddindx := ddindx+1;
122           if a0.last =indx
123             then exit;
124           end if;
125           indx := a0.next(indx);
126         end loop;
127       end if;
128    end if;
129   end rosetta_table_copy_in_p4;
130   procedure rosetta_table_copy_out_p4(t okl_la_payments_pvt.pym_del_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
131     , a1 out nocopy JTF_NUMBER_TABLE
132     , a2 out nocopy JTF_NUMBER_TABLE
133     ) as
134     ddindx binary_integer; indx binary_integer;
135   begin
136   if t is null or t.count = 0 then
137     a0 := JTF_NUMBER_TABLE();
138     a1 := JTF_NUMBER_TABLE();
139     a2 := JTF_NUMBER_TABLE();
140   else
141       a0 := JTF_NUMBER_TABLE();
142       a1 := JTF_NUMBER_TABLE();
143       a2 := JTF_NUMBER_TABLE();
144       if t.count > 0 then
145         a0.extend(t.count);
146         a1.extend(t.count);
147         a2.extend(t.count);
148         ddindx := t.first;
149         indx := 1;
150         while true loop
151           a0(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
152           a1(indx) := rosetta_g_miss_num_map(t(ddindx).rgp_id);
153           a2(indx) := rosetta_g_miss_num_map(t(ddindx).slh_id);
154           indx := indx+1;
155           if t.last =ddindx
156             then exit;
157           end if;
158           ddindx := t.next(ddindx);
159         end loop;
160       end if;
161    end if;
162   end rosetta_table_copy_out_p4;
163 
164   procedure process_payment(p_api_version  NUMBER
165     , p_init_msg_list  VARCHAR2
166     , x_return_status out nocopy  VARCHAR2
167     , x_msg_count out nocopy  NUMBER
168     , x_msg_data out nocopy  VARCHAR2
169     , p_chr_id  NUMBER
170     , p_service_fee_id  NUMBER
171     , p_asset_id  NUMBER
172     , p_payment_id  NUMBER
173     , p10_a0 JTF_NUMBER_TABLE
174     , p10_a1 JTF_VARCHAR2_TABLE_500
175     , p10_a2 JTF_VARCHAR2_TABLE_500
176     , p10_a3 JTF_VARCHAR2_TABLE_500
177     , p10_a4 JTF_VARCHAR2_TABLE_500
178     , p10_a5 JTF_VARCHAR2_TABLE_500
179     , p10_a6 JTF_VARCHAR2_TABLE_100
180     , p_update_type  VARCHAR2
181     , p12_a0 out nocopy JTF_NUMBER_TABLE
182     , p12_a1 out nocopy JTF_NUMBER_TABLE
183     , p12_a2 out nocopy JTF_VARCHAR2_TABLE_100
184     , p12_a3 out nocopy JTF_VARCHAR2_TABLE_100
185     , p12_a4 out nocopy JTF_VARCHAR2_TABLE_100
186     , p12_a5 out nocopy JTF_VARCHAR2_TABLE_100
187     , p12_a6 out nocopy JTF_VARCHAR2_TABLE_200
188     , p12_a7 out nocopy JTF_VARCHAR2_TABLE_200
189     , p12_a8 out nocopy JTF_VARCHAR2_TABLE_200
190     , p12_a9 out nocopy JTF_VARCHAR2_TABLE_100
191     , p12_a10 out nocopy JTF_VARCHAR2_TABLE_100
192     , p12_a11 out nocopy JTF_VARCHAR2_TABLE_100
193     , p12_a12 out nocopy JTF_NUMBER_TABLE
194     , p12_a13 out nocopy JTF_NUMBER_TABLE
195     , p12_a14 out nocopy JTF_NUMBER_TABLE
196     , p12_a15 out nocopy JTF_VARCHAR2_TABLE_100
197     , p12_a16 out nocopy JTF_VARCHAR2_TABLE_2000
198     , p12_a17 out nocopy JTF_VARCHAR2_TABLE_100
199     , p12_a18 out nocopy JTF_VARCHAR2_TABLE_100
200     , p12_a19 out nocopy JTF_VARCHAR2_TABLE_500
201     , p12_a20 out nocopy JTF_VARCHAR2_TABLE_500
202     , p12_a21 out nocopy JTF_VARCHAR2_TABLE_500
203     , p12_a22 out nocopy JTF_VARCHAR2_TABLE_500
204     , p12_a23 out nocopy JTF_VARCHAR2_TABLE_500
205     , p12_a24 out nocopy JTF_VARCHAR2_TABLE_500
206     , p12_a25 out nocopy JTF_VARCHAR2_TABLE_500
207     , p12_a26 out nocopy JTF_VARCHAR2_TABLE_500
208     , p12_a27 out nocopy JTF_VARCHAR2_TABLE_500
209     , p12_a28 out nocopy JTF_VARCHAR2_TABLE_500
210     , p12_a29 out nocopy JTF_VARCHAR2_TABLE_500
211     , p12_a30 out nocopy JTF_VARCHAR2_TABLE_500
212     , p12_a31 out nocopy JTF_VARCHAR2_TABLE_500
213     , p12_a32 out nocopy JTF_VARCHAR2_TABLE_500
214     , p12_a33 out nocopy JTF_VARCHAR2_TABLE_500
215     , p12_a34 out nocopy JTF_NUMBER_TABLE
216     , p12_a35 out nocopy JTF_DATE_TABLE
217     , p12_a36 out nocopy JTF_NUMBER_TABLE
218     , p12_a37 out nocopy JTF_DATE_TABLE
219     , p12_a38 out nocopy JTF_NUMBER_TABLE
220     , p12_a39 out nocopy JTF_VARCHAR2_TABLE_100
221     , p12_a40 out nocopy JTF_VARCHAR2_TABLE_500
222     , p12_a41 out nocopy JTF_VARCHAR2_TABLE_500
223     , p12_a42 out nocopy JTF_VARCHAR2_TABLE_500
224     , p12_a43 out nocopy JTF_VARCHAR2_TABLE_500
225     , p12_a44 out nocopy JTF_VARCHAR2_TABLE_500
226     , p12_a45 out nocopy JTF_VARCHAR2_TABLE_500
227     , p12_a46 out nocopy JTF_VARCHAR2_TABLE_500
228     , p12_a47 out nocopy JTF_VARCHAR2_TABLE_500
229     , p12_a48 out nocopy JTF_VARCHAR2_TABLE_500
230     , p12_a49 out nocopy JTF_VARCHAR2_TABLE_500
231     , p12_a50 out nocopy JTF_VARCHAR2_TABLE_500
232     , p12_a51 out nocopy JTF_VARCHAR2_TABLE_500
233     , p12_a52 out nocopy JTF_VARCHAR2_TABLE_500
234     , p12_a53 out nocopy JTF_VARCHAR2_TABLE_500
235     , p12_a54 out nocopy JTF_VARCHAR2_TABLE_500
236     , p12_a55 out nocopy JTF_VARCHAR2_TABLE_100
237     , p12_a56 out nocopy JTF_VARCHAR2_TABLE_100
238     , p12_a57 out nocopy JTF_VARCHAR2_TABLE_100
239     , p12_a58 out nocopy JTF_VARCHAR2_TABLE_100
240     , p12_a59 out nocopy JTF_NUMBER_TABLE
241     , p9_a0  VARCHAR2 := fnd_api.g_miss_char
242     , p9_a1  VARCHAR2 := fnd_api.g_miss_char
243     , p9_a2  VARCHAR2 := fnd_api.g_miss_char
244     , p9_a3  VARCHAR2 := fnd_api.g_miss_char
245     , p9_a4  VARCHAR2 := fnd_api.g_miss_char
246     , p9_a5  VARCHAR2 := fnd_api.g_miss_char
247   )
248 
249   as
250     ddp_pym_hdr_rec okl_la_payments_pvt.pym_hdr_rec_type;
251     ddp_pym_tbl okl_la_payments_pvt.pym_tbl_type;
252     ddx_rulv_tbl okl_la_payments_pvt.rulv_tbl_type;
253     ddindx binary_integer; indx binary_integer;
254   begin
255 
256     -- copy data to the local IN or IN-OUT args, if any
257 
258 
259 
260 
261 
262 
263 
264 
265 
266     ddp_pym_hdr_rec.structure := p9_a0;
267     ddp_pym_hdr_rec.structure_name := p9_a1;
268     ddp_pym_hdr_rec.frequency := p9_a2;
269     ddp_pym_hdr_rec.frequency_name := p9_a3;
270     ddp_pym_hdr_rec.arrears := p9_a4;
271     ddp_pym_hdr_rec.arrears_name := p9_a5;
272 
273     okl_la_payments_pvt_w.rosetta_table_copy_in_p3(ddp_pym_tbl, p10_a0
274       , p10_a1
275       , p10_a2
276       , p10_a3
277       , p10_a4
278       , p10_a5
279       , p10_a6
280       );
281 
282 
283 
284     -- here's the delegated call to the old PL/SQL routine
285     okl_la_payments_pvt.process_payment(p_api_version,
286       p_init_msg_list,
287       x_return_status,
288       x_msg_count,
289       x_msg_data,
290       p_chr_id,
291       p_service_fee_id,
292       p_asset_id,
293       p_payment_id,
294       ddp_pym_hdr_rec,
295       ddp_pym_tbl,
296       p_update_type,
297       ddx_rulv_tbl);
298 
299     -- copy data back from the local variables to OUT or IN-OUT args, if any
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312     okl_rule_pub_w.rosetta_table_copy_out_p2(ddx_rulv_tbl, p12_a0
313       , p12_a1
314       , p12_a2
315       , p12_a3
316       , p12_a4
317       , p12_a5
318       , p12_a6
319       , p12_a7
320       , p12_a8
321       , p12_a9
322       , p12_a10
323       , p12_a11
324       , p12_a12
325       , p12_a13
326       , p12_a14
327       , p12_a15
328       , p12_a16
329       , p12_a17
330       , p12_a18
331       , p12_a19
332       , p12_a20
333       , p12_a21
334       , p12_a22
335       , p12_a23
336       , p12_a24
337       , p12_a25
338       , p12_a26
339       , p12_a27
340       , p12_a28
341       , p12_a29
342       , p12_a30
343       , p12_a31
344       , p12_a32
345       , p12_a33
346       , p12_a34
347       , p12_a35
348       , p12_a36
349       , p12_a37
350       , p12_a38
351       , p12_a39
352       , p12_a40
353       , p12_a41
354       , p12_a42
355       , p12_a43
356       , p12_a44
357       , p12_a45
358       , p12_a46
359       , p12_a47
360       , p12_a48
361       , p12_a49
362       , p12_a50
363       , p12_a51
364       , p12_a52
365       , p12_a53
366       , p12_a54
367       , p12_a55
368       , p12_a56
369       , p12_a57
370       , p12_a58
371       , p12_a59
372       );
373   end;
374 
375   procedure process_payment(p_api_version  NUMBER
376     , p_init_msg_list  VARCHAR2
377     , x_return_status out nocopy  VARCHAR2
378     , x_msg_count out nocopy  NUMBER
379     , x_msg_data out nocopy  VARCHAR2
380     , p_chr_id  NUMBER
381     , p_service_fee_id  NUMBER
382     , p_asset_id  NUMBER
383     , p_payment_id  NUMBER
384     , p_update_type  VARCHAR2
385     , p10_a0 out nocopy JTF_NUMBER_TABLE
386     , p10_a1 out nocopy JTF_NUMBER_TABLE
387     , p10_a2 out nocopy JTF_VARCHAR2_TABLE_100
388     , p10_a3 out nocopy JTF_VARCHAR2_TABLE_100
389     , p10_a4 out nocopy JTF_VARCHAR2_TABLE_100
390     , p10_a5 out nocopy JTF_VARCHAR2_TABLE_100
391     , p10_a6 out nocopy JTF_VARCHAR2_TABLE_200
392     , p10_a7 out nocopy JTF_VARCHAR2_TABLE_200
393     , p10_a8 out nocopy JTF_VARCHAR2_TABLE_200
394     , p10_a9 out nocopy JTF_VARCHAR2_TABLE_100
395     , p10_a10 out nocopy JTF_VARCHAR2_TABLE_100
396     , p10_a11 out nocopy JTF_VARCHAR2_TABLE_100
397     , p10_a12 out nocopy JTF_NUMBER_TABLE
398     , p10_a13 out nocopy JTF_NUMBER_TABLE
399     , p10_a14 out nocopy JTF_NUMBER_TABLE
400     , p10_a15 out nocopy JTF_VARCHAR2_TABLE_100
401     , p10_a16 out nocopy JTF_VARCHAR2_TABLE_2000
402     , p10_a17 out nocopy JTF_VARCHAR2_TABLE_100
403     , p10_a18 out nocopy JTF_VARCHAR2_TABLE_100
404     , p10_a19 out nocopy JTF_VARCHAR2_TABLE_500
405     , p10_a20 out nocopy JTF_VARCHAR2_TABLE_500
406     , p10_a21 out nocopy JTF_VARCHAR2_TABLE_500
407     , p10_a22 out nocopy JTF_VARCHAR2_TABLE_500
408     , p10_a23 out nocopy JTF_VARCHAR2_TABLE_500
409     , p10_a24 out nocopy JTF_VARCHAR2_TABLE_500
410     , p10_a25 out nocopy JTF_VARCHAR2_TABLE_500
411     , p10_a26 out nocopy JTF_VARCHAR2_TABLE_500
412     , p10_a27 out nocopy JTF_VARCHAR2_TABLE_500
413     , p10_a28 out nocopy JTF_VARCHAR2_TABLE_500
414     , p10_a29 out nocopy JTF_VARCHAR2_TABLE_500
415     , p10_a30 out nocopy JTF_VARCHAR2_TABLE_500
416     , p10_a31 out nocopy JTF_VARCHAR2_TABLE_500
417     , p10_a32 out nocopy JTF_VARCHAR2_TABLE_500
418     , p10_a33 out nocopy JTF_VARCHAR2_TABLE_500
419     , p10_a34 out nocopy JTF_NUMBER_TABLE
420     , p10_a35 out nocopy JTF_DATE_TABLE
421     , p10_a36 out nocopy JTF_NUMBER_TABLE
422     , p10_a37 out nocopy JTF_DATE_TABLE
423     , p10_a38 out nocopy JTF_NUMBER_TABLE
424     , p10_a39 out nocopy JTF_VARCHAR2_TABLE_100
425     , p10_a40 out nocopy JTF_VARCHAR2_TABLE_500
426     , p10_a41 out nocopy JTF_VARCHAR2_TABLE_500
427     , p10_a42 out nocopy JTF_VARCHAR2_TABLE_500
428     , p10_a43 out nocopy JTF_VARCHAR2_TABLE_500
429     , p10_a44 out nocopy JTF_VARCHAR2_TABLE_500
430     , p10_a45 out nocopy JTF_VARCHAR2_TABLE_500
431     , p10_a46 out nocopy JTF_VARCHAR2_TABLE_500
432     , p10_a47 out nocopy JTF_VARCHAR2_TABLE_500
433     , p10_a48 out nocopy JTF_VARCHAR2_TABLE_500
434     , p10_a49 out nocopy JTF_VARCHAR2_TABLE_500
435     , p10_a50 out nocopy JTF_VARCHAR2_TABLE_500
436     , p10_a51 out nocopy JTF_VARCHAR2_TABLE_500
437     , p10_a52 out nocopy JTF_VARCHAR2_TABLE_500
438     , p10_a53 out nocopy JTF_VARCHAR2_TABLE_500
439     , p10_a54 out nocopy JTF_VARCHAR2_TABLE_500
440     , p10_a55 out nocopy JTF_VARCHAR2_TABLE_100
441     , p10_a56 out nocopy JTF_VARCHAR2_TABLE_100
442     , p10_a57 out nocopy JTF_VARCHAR2_TABLE_100
443     , p10_a58 out nocopy JTF_VARCHAR2_TABLE_100
444     , p10_a59 out nocopy JTF_NUMBER_TABLE
445   )
446 
447   as
448     ddx_rulv_tbl okl_la_payments_pvt.rulv_tbl_type;
449     ddindx binary_integer; indx binary_integer;
450   begin
451 
452     -- copy data to the local IN or IN-OUT args, if any
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464     -- here's the delegated call to the old PL/SQL routine
465     okl_la_payments_pvt.process_payment(p_api_version,
466       p_init_msg_list,
467       x_return_status,
468       x_msg_count,
469       x_msg_data,
470       p_chr_id,
471       p_service_fee_id,
472       p_asset_id,
473       p_payment_id,
474       p_update_type,
475       ddx_rulv_tbl);
476 
477     -- copy data back from the local variables to OUT or IN-OUT args, if any
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488     okl_rule_pub_w.rosetta_table_copy_out_p2(ddx_rulv_tbl, p10_a0
489       , p10_a1
490       , p10_a2
491       , p10_a3
492       , p10_a4
493       , p10_a5
494       , p10_a6
495       , p10_a7
496       , p10_a8
497       , p10_a9
498       , p10_a10
499       , p10_a11
500       , p10_a12
501       , p10_a13
502       , p10_a14
503       , p10_a15
504       , p10_a16
505       , p10_a17
506       , p10_a18
507       , p10_a19
508       , p10_a20
509       , p10_a21
510       , p10_a22
511       , p10_a23
512       , p10_a24
513       , p10_a25
514       , p10_a26
515       , p10_a27
516       , p10_a28
517       , p10_a29
518       , p10_a30
519       , p10_a31
520       , p10_a32
521       , p10_a33
522       , p10_a34
523       , p10_a35
524       , p10_a36
525       , p10_a37
526       , p10_a38
527       , p10_a39
528       , p10_a40
529       , p10_a41
530       , p10_a42
531       , p10_a43
532       , p10_a44
533       , p10_a45
534       , p10_a46
535       , p10_a47
536       , p10_a48
537       , p10_a49
538       , p10_a50
539       , p10_a51
540       , p10_a52
541       , p10_a53
542       , p10_a54
543       , p10_a55
544       , p10_a56
545       , p10_a57
546       , p10_a58
547       , p10_a59
548       );
549   end;
550 
551   procedure delete_payment(p_api_version  NUMBER
552     , p_init_msg_list  VARCHAR2
553     , x_return_status out nocopy  VARCHAR2
554     , x_msg_count out nocopy  NUMBER
555     , x_msg_data out nocopy  VARCHAR2
556     , p5_a0 JTF_NUMBER_TABLE
557     , p5_a1 JTF_NUMBER_TABLE
558     , p5_a2 JTF_NUMBER_TABLE
559   )
560 
561   as
562     ddp_del_pym_tbl okl_la_payments_pvt.pym_del_tbl_type;
563     ddindx binary_integer; indx binary_integer;
564   begin
565 
566     -- copy data to the local IN or IN-OUT args, if any
567 
568 
569 
570 
571 
572     okl_la_payments_pvt_w.rosetta_table_copy_in_p4(ddp_del_pym_tbl, p5_a0
573       , p5_a1
574       , p5_a2
575       );
576 
577     -- here's the delegated call to the old PL/SQL routine
578     okl_la_payments_pvt.delete_payment(p_api_version,
579       p_init_msg_list,
580       x_return_status,
581       x_msg_count,
582       x_msg_data,
583       ddp_del_pym_tbl);
584 
585     -- copy data back from the local variables to OUT or IN-OUT args, if any
586 
587 
588 
589 
590 
591   end;
592 
593 end okl_la_payments_pvt_w;