[Home] [Help]
PACKAGE BODY: APPS.OKL_PAY_CURE_REFUNDS_PUB_W
Source
1 package body okl_pay_cure_refunds_pub_w as
2 /* $Header: OKLUPCRB.pls 115.5 2003/04/25 03:50:15 nmakhani 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 create_refund_hdr(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , x_cure_refund_header_id out nocopy NUMBER
26 , x_return_status out nocopy VARCHAR2
27 , x_msg_count out nocopy NUMBER
28 , x_msg_data out nocopy VARCHAR2
29 , p3_a0 VARCHAR2 := fnd_api.g_miss_char
30 , p3_a1 NUMBER := 0-1962.0724
31 , p3_a2 NUMBER := 0-1962.0724
32 , p3_a3 DATE := fnd_api.g_miss_date
33 , p3_a4 NUMBER := 0-1962.0724
34 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
35 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
36 , p3_a7 NUMBER := 0-1962.0724
37 , p3_a8 NUMBER := 0-1962.0724
38 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
39 , p3_a10 NUMBER := 0-1962.0724
40 , p3_a11 NUMBER := 0-1962.0724
41 , p3_a12 NUMBER := 0-1962.0724
42 , p3_a13 NUMBER := 0-1962.0724
43 , p3_a14 NUMBER := 0-1962.0724
44 , p3_a15 NUMBER := 0-1962.0724
45 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
46 , p3_a17 NUMBER := 0-1962.0724
47 , p3_a18 NUMBER := 0-1962.0724
48 , p3_a19 NUMBER := 0-1962.0724
49 )
50
51 as
52 ddp_pay_cure_refunds_rec okl_pay_cure_refunds_pub.pay_cure_refunds_rec_type;
53 ddindx binary_integer; indx binary_integer;
54 begin
55
56 -- copy data to the local IN or IN-OUT args, if any
57
58
59
60 ddp_pay_cure_refunds_rec.refund_number := p3_a0;
61 ddp_pay_cure_refunds_rec.vendor_site_id := rosetta_g_miss_num_map(p3_a1);
62 ddp_pay_cure_refunds_rec.chr_id := rosetta_g_miss_num_map(p3_a2);
63 ddp_pay_cure_refunds_rec.invoice_date := rosetta_g_miss_date_in_map(p3_a3);
64 ddp_pay_cure_refunds_rec.pay_terms := rosetta_g_miss_num_map(p3_a4);
65 ddp_pay_cure_refunds_rec.payment_method_code := p3_a5;
66 ddp_pay_cure_refunds_rec.currency := p3_a6;
67 ddp_pay_cure_refunds_rec.refund_header_id := rosetta_g_miss_num_map(p3_a7);
68 ddp_pay_cure_refunds_rec.refund_id := rosetta_g_miss_num_map(p3_a8);
69 ddp_pay_cure_refunds_rec.description := p3_a9;
70 ddp_pay_cure_refunds_rec.received_amount := rosetta_g_miss_num_map(p3_a10);
71 ddp_pay_cure_refunds_rec.negotiated_amount := rosetta_g_miss_num_map(p3_a11);
72 ddp_pay_cure_refunds_rec.offset_amount := rosetta_g_miss_num_map(p3_a12);
73 ddp_pay_cure_refunds_rec.offset_contract := rosetta_g_miss_num_map(p3_a13);
74 ddp_pay_cure_refunds_rec.refund_amount_due := rosetta_g_miss_num_map(p3_a14);
75 ddp_pay_cure_refunds_rec.refund_amount := rosetta_g_miss_num_map(p3_a15);
76 ddp_pay_cure_refunds_rec.refund_type := p3_a16;
77 ddp_pay_cure_refunds_rec.vendor_id := rosetta_g_miss_num_map(p3_a17);
78 ddp_pay_cure_refunds_rec.vendor_site_cure_due := rosetta_g_miss_num_map(p3_a18);
79 ddp_pay_cure_refunds_rec.vendor_cure_due := rosetta_g_miss_num_map(p3_a19);
80
81
82
83
84
85 -- here's the delegated call to the old PL/SQL routine
86 okl_pay_cure_refunds_pub.create_refund_hdr(p_api_version,
87 p_init_msg_list,
88 p_commit,
89 ddp_pay_cure_refunds_rec,
90 x_cure_refund_header_id,
91 x_return_status,
92 x_msg_count,
93 x_msg_data);
94
95 -- copy data back from the local variables to OUT or IN-OUT args, if any
96
97
98
99
100
101
102
103 end;
104
105 procedure update_refund_hdr(p_api_version NUMBER
106 , p_init_msg_list VARCHAR2
107 , p_commit VARCHAR2
108 , x_return_status out nocopy VARCHAR2
109 , x_msg_count out nocopy NUMBER
110 , x_msg_data out nocopy VARCHAR2
111 , p3_a0 VARCHAR2 := fnd_api.g_miss_char
112 , p3_a1 NUMBER := 0-1962.0724
113 , p3_a2 NUMBER := 0-1962.0724
114 , p3_a3 DATE := fnd_api.g_miss_date
115 , p3_a4 NUMBER := 0-1962.0724
116 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
117 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
118 , p3_a7 NUMBER := 0-1962.0724
119 , p3_a8 NUMBER := 0-1962.0724
120 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
121 , p3_a10 NUMBER := 0-1962.0724
122 , p3_a11 NUMBER := 0-1962.0724
123 , p3_a12 NUMBER := 0-1962.0724
124 , p3_a13 NUMBER := 0-1962.0724
125 , p3_a14 NUMBER := 0-1962.0724
126 , p3_a15 NUMBER := 0-1962.0724
127 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
128 , p3_a17 NUMBER := 0-1962.0724
129 , p3_a18 NUMBER := 0-1962.0724
130 , p3_a19 NUMBER := 0-1962.0724
131 )
132
133 as
134 ddp_pay_cure_refunds_rec okl_pay_cure_refunds_pub.pay_cure_refunds_rec_type;
135 ddindx binary_integer; indx binary_integer;
136 begin
137
138 -- copy data to the local IN or IN-OUT args, if any
139
140
141
142 ddp_pay_cure_refunds_rec.refund_number := p3_a0;
143 ddp_pay_cure_refunds_rec.vendor_site_id := rosetta_g_miss_num_map(p3_a1);
144 ddp_pay_cure_refunds_rec.chr_id := rosetta_g_miss_num_map(p3_a2);
145 ddp_pay_cure_refunds_rec.invoice_date := rosetta_g_miss_date_in_map(p3_a3);
146 ddp_pay_cure_refunds_rec.pay_terms := rosetta_g_miss_num_map(p3_a4);
147 ddp_pay_cure_refunds_rec.payment_method_code := p3_a5;
148 ddp_pay_cure_refunds_rec.currency := p3_a6;
149 ddp_pay_cure_refunds_rec.refund_header_id := rosetta_g_miss_num_map(p3_a7);
150 ddp_pay_cure_refunds_rec.refund_id := rosetta_g_miss_num_map(p3_a8);
151 ddp_pay_cure_refunds_rec.description := p3_a9;
152 ddp_pay_cure_refunds_rec.received_amount := rosetta_g_miss_num_map(p3_a10);
153 ddp_pay_cure_refunds_rec.negotiated_amount := rosetta_g_miss_num_map(p3_a11);
154 ddp_pay_cure_refunds_rec.offset_amount := rosetta_g_miss_num_map(p3_a12);
155 ddp_pay_cure_refunds_rec.offset_contract := rosetta_g_miss_num_map(p3_a13);
156 ddp_pay_cure_refunds_rec.refund_amount_due := rosetta_g_miss_num_map(p3_a14);
157 ddp_pay_cure_refunds_rec.refund_amount := rosetta_g_miss_num_map(p3_a15);
158 ddp_pay_cure_refunds_rec.refund_type := p3_a16;
159 ddp_pay_cure_refunds_rec.vendor_id := rosetta_g_miss_num_map(p3_a17);
160 ddp_pay_cure_refunds_rec.vendor_site_cure_due := rosetta_g_miss_num_map(p3_a18);
161 ddp_pay_cure_refunds_rec.vendor_cure_due := rosetta_g_miss_num_map(p3_a19);
162
163
164
165
166 -- here's the delegated call to the old PL/SQL routine
167 okl_pay_cure_refunds_pub.update_refund_hdr(p_api_version,
168 p_init_msg_list,
169 p_commit,
170 ddp_pay_cure_refunds_rec,
171 x_return_status,
172 x_msg_count,
173 x_msg_data);
174
175 -- copy data back from the local variables to OUT or IN-OUT args, if any
176
177
178
179
180
181
182 end;
183
184 procedure create_refund_headers(p_api_version NUMBER
185 , p_init_msg_list VARCHAR2
186 , p_commit VARCHAR2
187 , x_cure_refund_header_id out nocopy NUMBER
188 , x_return_status out nocopy VARCHAR2
189 , x_msg_count out nocopy NUMBER
190 , x_msg_data out nocopy VARCHAR2
191 , p3_a0 VARCHAR2 := fnd_api.g_miss_char
192 , p3_a1 NUMBER := 0-1962.0724
193 , p3_a2 NUMBER := 0-1962.0724
194 , p3_a3 DATE := fnd_api.g_miss_date
195 , p3_a4 NUMBER := 0-1962.0724
196 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
197 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
198 , p3_a7 NUMBER := 0-1962.0724
199 , p3_a8 NUMBER := 0-1962.0724
200 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
201 , p3_a10 NUMBER := 0-1962.0724
202 , p3_a11 NUMBER := 0-1962.0724
203 , p3_a12 NUMBER := 0-1962.0724
204 , p3_a13 NUMBER := 0-1962.0724
205 , p3_a14 NUMBER := 0-1962.0724
206 , p3_a15 NUMBER := 0-1962.0724
207 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
208 , p3_a17 NUMBER := 0-1962.0724
209 , p3_a18 NUMBER := 0-1962.0724
210 , p3_a19 NUMBER := 0-1962.0724
211 )
212
213 as
214 ddp_pay_cure_refunds_rec okl_pay_cure_refunds_pub.pay_cure_refunds_rec_type;
215 ddindx binary_integer; indx binary_integer;
216 begin
217
218 -- copy data to the local IN or IN-OUT args, if any
219
220
221
222 ddp_pay_cure_refunds_rec.refund_number := p3_a0;
223 ddp_pay_cure_refunds_rec.vendor_site_id := rosetta_g_miss_num_map(p3_a1);
224 ddp_pay_cure_refunds_rec.chr_id := rosetta_g_miss_num_map(p3_a2);
225 ddp_pay_cure_refunds_rec.invoice_date := rosetta_g_miss_date_in_map(p3_a3);
226 ddp_pay_cure_refunds_rec.pay_terms := rosetta_g_miss_num_map(p3_a4);
227 ddp_pay_cure_refunds_rec.payment_method_code := p3_a5;
228 ddp_pay_cure_refunds_rec.currency := p3_a6;
229 ddp_pay_cure_refunds_rec.refund_header_id := rosetta_g_miss_num_map(p3_a7);
230 ddp_pay_cure_refunds_rec.refund_id := rosetta_g_miss_num_map(p3_a8);
231 ddp_pay_cure_refunds_rec.description := p3_a9;
232 ddp_pay_cure_refunds_rec.received_amount := rosetta_g_miss_num_map(p3_a10);
233 ddp_pay_cure_refunds_rec.negotiated_amount := rosetta_g_miss_num_map(p3_a11);
234 ddp_pay_cure_refunds_rec.offset_amount := rosetta_g_miss_num_map(p3_a12);
235 ddp_pay_cure_refunds_rec.offset_contract := rosetta_g_miss_num_map(p3_a13);
236 ddp_pay_cure_refunds_rec.refund_amount_due := rosetta_g_miss_num_map(p3_a14);
237 ddp_pay_cure_refunds_rec.refund_amount := rosetta_g_miss_num_map(p3_a15);
238 ddp_pay_cure_refunds_rec.refund_type := p3_a16;
239 ddp_pay_cure_refunds_rec.vendor_id := rosetta_g_miss_num_map(p3_a17);
240 ddp_pay_cure_refunds_rec.vendor_site_cure_due := rosetta_g_miss_num_map(p3_a18);
241 ddp_pay_cure_refunds_rec.vendor_cure_due := rosetta_g_miss_num_map(p3_a19);
242
243
244
245
246
247 -- here's the delegated call to the old PL/SQL routine
248 okl_pay_cure_refunds_pub.create_refund_headers(p_api_version,
249 p_init_msg_list,
250 p_commit,
251 ddp_pay_cure_refunds_rec,
252 x_cure_refund_header_id,
253 x_return_status,
254 x_msg_count,
255 x_msg_data);
256
257 -- copy data back from the local variables to OUT or IN-OUT args, if any
258
259
260
261
262
263
264
265 end;
266
267 procedure update_refund_headers(p_api_version NUMBER
268 , p_init_msg_list VARCHAR2
269 , p_commit VARCHAR2
270 , x_return_status out nocopy VARCHAR2
271 , x_msg_count out nocopy NUMBER
272 , x_msg_data out nocopy VARCHAR2
273 , p3_a0 VARCHAR2 := fnd_api.g_miss_char
274 , p3_a1 NUMBER := 0-1962.0724
275 , p3_a2 NUMBER := 0-1962.0724
276 , p3_a3 DATE := fnd_api.g_miss_date
277 , p3_a4 NUMBER := 0-1962.0724
278 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
279 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
280 , p3_a7 NUMBER := 0-1962.0724
281 , p3_a8 NUMBER := 0-1962.0724
282 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
283 , p3_a10 NUMBER := 0-1962.0724
284 , p3_a11 NUMBER := 0-1962.0724
285 , p3_a12 NUMBER := 0-1962.0724
286 , p3_a13 NUMBER := 0-1962.0724
287 , p3_a14 NUMBER := 0-1962.0724
288 , p3_a15 NUMBER := 0-1962.0724
289 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
290 , p3_a17 NUMBER := 0-1962.0724
291 , p3_a18 NUMBER := 0-1962.0724
292 , p3_a19 NUMBER := 0-1962.0724
293 )
294
295 as
296 ddp_pay_cure_refunds_rec okl_pay_cure_refunds_pub.pay_cure_refunds_rec_type;
297 ddindx binary_integer; indx binary_integer;
298 begin
299
300 -- copy data to the local IN or IN-OUT args, if any
301
302
303
304 ddp_pay_cure_refunds_rec.refund_number := p3_a0;
305 ddp_pay_cure_refunds_rec.vendor_site_id := rosetta_g_miss_num_map(p3_a1);
306 ddp_pay_cure_refunds_rec.chr_id := rosetta_g_miss_num_map(p3_a2);
307 ddp_pay_cure_refunds_rec.invoice_date := rosetta_g_miss_date_in_map(p3_a3);
308 ddp_pay_cure_refunds_rec.pay_terms := rosetta_g_miss_num_map(p3_a4);
309 ddp_pay_cure_refunds_rec.payment_method_code := p3_a5;
310 ddp_pay_cure_refunds_rec.currency := p3_a6;
311 ddp_pay_cure_refunds_rec.refund_header_id := rosetta_g_miss_num_map(p3_a7);
312 ddp_pay_cure_refunds_rec.refund_id := rosetta_g_miss_num_map(p3_a8);
313 ddp_pay_cure_refunds_rec.description := p3_a9;
314 ddp_pay_cure_refunds_rec.received_amount := rosetta_g_miss_num_map(p3_a10);
315 ddp_pay_cure_refunds_rec.negotiated_amount := rosetta_g_miss_num_map(p3_a11);
316 ddp_pay_cure_refunds_rec.offset_amount := rosetta_g_miss_num_map(p3_a12);
317 ddp_pay_cure_refunds_rec.offset_contract := rosetta_g_miss_num_map(p3_a13);
318 ddp_pay_cure_refunds_rec.refund_amount_due := rosetta_g_miss_num_map(p3_a14);
319 ddp_pay_cure_refunds_rec.refund_amount := rosetta_g_miss_num_map(p3_a15);
320 ddp_pay_cure_refunds_rec.refund_type := p3_a16;
321 ddp_pay_cure_refunds_rec.vendor_id := rosetta_g_miss_num_map(p3_a17);
322 ddp_pay_cure_refunds_rec.vendor_site_cure_due := rosetta_g_miss_num_map(p3_a18);
323 ddp_pay_cure_refunds_rec.vendor_cure_due := rosetta_g_miss_num_map(p3_a19);
324
325
326
327
328 -- here's the delegated call to the old PL/SQL routine
329 okl_pay_cure_refunds_pub.update_refund_headers(p_api_version,
330 p_init_msg_list,
331 p_commit,
332 ddp_pay_cure_refunds_rec,
333 x_return_status,
334 x_msg_count,
335 x_msg_data);
336
337 -- copy data back from the local variables to OUT or IN-OUT args, if any
338
339
340
341
342
343
344 end;
345
346 procedure create_refund_details(p_api_version NUMBER
347 , p_init_msg_list VARCHAR2
348 , p_commit VARCHAR2
349 , p3_a0 JTF_VARCHAR2_TABLE_200
350 , p3_a1 JTF_NUMBER_TABLE
351 , p3_a2 JTF_NUMBER_TABLE
352 , p3_a3 JTF_DATE_TABLE
353 , p3_a4 JTF_NUMBER_TABLE
354 , p3_a5 JTF_VARCHAR2_TABLE_100
355 , p3_a6 JTF_VARCHAR2_TABLE_100
356 , p3_a7 JTF_NUMBER_TABLE
357 , p3_a8 JTF_NUMBER_TABLE
358 , p3_a9 JTF_VARCHAR2_TABLE_2000
359 , p3_a10 JTF_NUMBER_TABLE
360 , p3_a11 JTF_NUMBER_TABLE
361 , p3_a12 JTF_NUMBER_TABLE
362 , p3_a13 JTF_NUMBER_TABLE
363 , p3_a14 JTF_NUMBER_TABLE
364 , p3_a15 JTF_NUMBER_TABLE
365 , p3_a16 JTF_VARCHAR2_TABLE_100
366 , p3_a17 JTF_NUMBER_TABLE
367 , p3_a18 JTF_NUMBER_TABLE
368 , p3_a19 JTF_NUMBER_TABLE
369 , x_return_status out nocopy VARCHAR2
370 , x_msg_count out nocopy NUMBER
371 , x_msg_data out nocopy VARCHAR2
372 )
373
374 as
375 ddp_pay_cure_refunds_tbl okl_pay_cure_refunds_pub.pay_cure_refunds_tbl_type;
376 ddindx binary_integer; indx binary_integer;
377 begin
378
379 -- copy data to the local IN or IN-OUT args, if any
380
381
382
383 okl_pay_cure_refunds_pvt_w.rosetta_table_copy_in_p8(ddp_pay_cure_refunds_tbl, p3_a0
384 , p3_a1
385 , p3_a2
386 , p3_a3
387 , p3_a4
388 , p3_a5
389 , p3_a6
390 , p3_a7
391 , p3_a8
392 , p3_a9
393 , p3_a10
394 , p3_a11
395 , p3_a12
396 , p3_a13
397 , p3_a14
398 , p3_a15
399 , p3_a16
400 , p3_a17
401 , p3_a18
402 , p3_a19
403 );
404
405
406
407
408 -- here's the delegated call to the old PL/SQL routine
409 okl_pay_cure_refunds_pub.create_refund_details(p_api_version,
410 p_init_msg_list,
411 p_commit,
412 ddp_pay_cure_refunds_tbl,
413 x_return_status,
414 x_msg_count,
415 x_msg_data);
416
417 -- copy data back from the local variables to OUT or IN-OUT args, if any
418
419
420
421
422
423
424 end;
425
426 procedure update_refund_details(p_api_version NUMBER
427 , p_init_msg_list VARCHAR2
428 , p_commit VARCHAR2
429 , p3_a0 JTF_VARCHAR2_TABLE_200
430 , p3_a1 JTF_NUMBER_TABLE
431 , p3_a2 JTF_NUMBER_TABLE
432 , p3_a3 JTF_DATE_TABLE
433 , p3_a4 JTF_NUMBER_TABLE
434 , p3_a5 JTF_VARCHAR2_TABLE_100
435 , p3_a6 JTF_VARCHAR2_TABLE_100
436 , p3_a7 JTF_NUMBER_TABLE
437 , p3_a8 JTF_NUMBER_TABLE
438 , p3_a9 JTF_VARCHAR2_TABLE_2000
439 , p3_a10 JTF_NUMBER_TABLE
440 , p3_a11 JTF_NUMBER_TABLE
441 , p3_a12 JTF_NUMBER_TABLE
442 , p3_a13 JTF_NUMBER_TABLE
443 , p3_a14 JTF_NUMBER_TABLE
444 , p3_a15 JTF_NUMBER_TABLE
445 , p3_a16 JTF_VARCHAR2_TABLE_100
446 , p3_a17 JTF_NUMBER_TABLE
447 , p3_a18 JTF_NUMBER_TABLE
448 , p3_a19 JTF_NUMBER_TABLE
449 , x_return_status out nocopy VARCHAR2
450 , x_msg_count out nocopy NUMBER
451 , x_msg_data out nocopy VARCHAR2
452 )
453
454 as
455 ddp_pay_cure_refunds_tbl okl_pay_cure_refunds_pub.pay_cure_refunds_tbl_type;
456 ddindx binary_integer; indx binary_integer;
457 begin
458
459 -- copy data to the local IN or IN-OUT args, if any
460
461
462
463 okl_pay_cure_refunds_pvt_w.rosetta_table_copy_in_p8(ddp_pay_cure_refunds_tbl, p3_a0
464 , p3_a1
465 , p3_a2
466 , p3_a3
467 , p3_a4
468 , p3_a5
469 , p3_a6
470 , p3_a7
471 , p3_a8
472 , p3_a9
473 , p3_a10
474 , p3_a11
475 , p3_a12
476 , p3_a13
477 , p3_a14
478 , p3_a15
479 , p3_a16
480 , p3_a17
481 , p3_a18
482 , p3_a19
483 );
484
485
486
487
488 -- here's the delegated call to the old PL/SQL routine
489 okl_pay_cure_refunds_pub.update_refund_details(p_api_version,
490 p_init_msg_list,
491 p_commit,
492 ddp_pay_cure_refunds_tbl,
493 x_return_status,
494 x_msg_count,
495 x_msg_data);
496
497 -- copy data back from the local variables to OUT or IN-OUT args, if any
498
499
500
501
502
503
504 end;
505
506 procedure delete_refund_details(p_api_version NUMBER
507 , p_init_msg_list VARCHAR2
508 , p_commit VARCHAR2
509 , p3_a0 JTF_VARCHAR2_TABLE_200
510 , p3_a1 JTF_NUMBER_TABLE
511 , p3_a2 JTF_NUMBER_TABLE
512 , p3_a3 JTF_DATE_TABLE
513 , p3_a4 JTF_NUMBER_TABLE
514 , p3_a5 JTF_VARCHAR2_TABLE_100
515 , p3_a6 JTF_VARCHAR2_TABLE_100
516 , p3_a7 JTF_NUMBER_TABLE
517 , p3_a8 JTF_NUMBER_TABLE
518 , p3_a9 JTF_VARCHAR2_TABLE_2000
519 , p3_a10 JTF_NUMBER_TABLE
520 , p3_a11 JTF_NUMBER_TABLE
521 , p3_a12 JTF_NUMBER_TABLE
522 , p3_a13 JTF_NUMBER_TABLE
523 , p3_a14 JTF_NUMBER_TABLE
524 , p3_a15 JTF_NUMBER_TABLE
525 , p3_a16 JTF_VARCHAR2_TABLE_100
526 , p3_a17 JTF_NUMBER_TABLE
527 , p3_a18 JTF_NUMBER_TABLE
528 , p3_a19 JTF_NUMBER_TABLE
529 , x_return_status out nocopy VARCHAR2
530 , x_msg_count out nocopy NUMBER
531 , x_msg_data out nocopy VARCHAR2
532 )
533
534 as
535 ddp_pay_cure_refunds_tbl okl_pay_cure_refunds_pub.pay_cure_refunds_tbl_type;
536 ddindx binary_integer; indx binary_integer;
537 begin
538
539 -- copy data to the local IN or IN-OUT args, if any
540
541
542
543 okl_pay_cure_refunds_pvt_w.rosetta_table_copy_in_p8(ddp_pay_cure_refunds_tbl, p3_a0
544 , p3_a1
545 , p3_a2
546 , p3_a3
547 , p3_a4
548 , p3_a5
549 , p3_a6
550 , p3_a7
551 , p3_a8
552 , p3_a9
553 , p3_a10
554 , p3_a11
555 , p3_a12
556 , p3_a13
557 , p3_a14
558 , p3_a15
559 , p3_a16
560 , p3_a17
561 , p3_a18
562 , p3_a19
563 );
564
565
566
567
568 -- here's the delegated call to the old PL/SQL routine
569 okl_pay_cure_refunds_pub.delete_refund_details(p_api_version,
570 p_init_msg_list,
571 p_commit,
572 ddp_pay_cure_refunds_tbl,
573 x_return_status,
574 x_msg_count,
575 x_msg_data);
576
577 -- copy data back from the local variables to OUT or IN-OUT args, if any
578
579
580
581
582
583
584 end;
585
586 end okl_pay_cure_refunds_pub_w;