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