[Home] [Help]
PACKAGE BODY: APPS.OKL_PAY_CURE_REFUNDS_PVT_W
Source
1 package body okl_pay_cure_refunds_pvt_w as
2 /* $Header: OKLEPCRB.pls 115.5 2003/04/25 03:50:22 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 rosetta_table_copy_in_p8(t out nocopy okl_pay_cure_refunds_pvt.pay_cure_refunds_tbl_type, a0 JTF_VARCHAR2_TABLE_200
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_DATE_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_VARCHAR2_TABLE_2000
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_VARCHAR2_TABLE_100
39 , a17 JTF_NUMBER_TABLE
40 , a18 JTF_NUMBER_TABLE
41 , a19 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).refund_number := a0(indx);
51 t(ddindx).vendor_site_id := rosetta_g_miss_num_map(a1(indx));
52 t(ddindx).chr_id := rosetta_g_miss_num_map(a2(indx));
53 t(ddindx).invoice_date := rosetta_g_miss_date_in_map(a3(indx));
54 t(ddindx).pay_terms := rosetta_g_miss_num_map(a4(indx));
55 t(ddindx).payment_method_code := a5(indx);
56 t(ddindx).currency := a6(indx);
57 t(ddindx).refund_header_id := rosetta_g_miss_num_map(a7(indx));
58 t(ddindx).refund_id := rosetta_g_miss_num_map(a8(indx));
59 t(ddindx).description := a9(indx);
60 t(ddindx).received_amount := rosetta_g_miss_num_map(a10(indx));
61 t(ddindx).negotiated_amount := rosetta_g_miss_num_map(a11(indx));
62 t(ddindx).offset_amount := rosetta_g_miss_num_map(a12(indx));
63 t(ddindx).offset_contract := rosetta_g_miss_num_map(a13(indx));
64 t(ddindx).refund_amount_due := rosetta_g_miss_num_map(a14(indx));
65 t(ddindx).refund_amount := rosetta_g_miss_num_map(a15(indx));
66 t(ddindx).refund_type := a16(indx);
67 t(ddindx).vendor_id := rosetta_g_miss_num_map(a17(indx));
68 t(ddindx).vendor_site_cure_due := rosetta_g_miss_num_map(a18(indx));
69 t(ddindx).vendor_cure_due := rosetta_g_miss_num_map(a19(indx));
70 ddindx := ddindx+1;
71 if a0.last =indx
72 then exit;
73 end if;
74 indx := a0.next(indx);
75 end loop;
76 end if;
77 end if;
78 end rosetta_table_copy_in_p8;
79 procedure rosetta_table_copy_out_p8(t okl_pay_cure_refunds_pvt.pay_cure_refunds_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_200
80 , a1 out nocopy JTF_NUMBER_TABLE
81 , a2 out nocopy JTF_NUMBER_TABLE
82 , a3 out nocopy JTF_DATE_TABLE
83 , a4 out nocopy JTF_NUMBER_TABLE
84 , a5 out nocopy JTF_VARCHAR2_TABLE_100
85 , a6 out nocopy JTF_VARCHAR2_TABLE_100
86 , a7 out nocopy JTF_NUMBER_TABLE
87 , a8 out nocopy JTF_NUMBER_TABLE
88 , a9 out nocopy JTF_VARCHAR2_TABLE_2000
89 , a10 out nocopy JTF_NUMBER_TABLE
90 , a11 out nocopy JTF_NUMBER_TABLE
91 , a12 out nocopy JTF_NUMBER_TABLE
92 , a13 out nocopy JTF_NUMBER_TABLE
93 , a14 out nocopy JTF_NUMBER_TABLE
94 , a15 out nocopy JTF_NUMBER_TABLE
95 , a16 out nocopy JTF_VARCHAR2_TABLE_100
96 , a17 out nocopy JTF_NUMBER_TABLE
97 , a18 out nocopy JTF_NUMBER_TABLE
98 , a19 out nocopy JTF_NUMBER_TABLE
99 ) as
100 ddindx binary_integer; indx binary_integer;
101 begin
102 if t is null or t.count = 0 then
103 a0 := JTF_VARCHAR2_TABLE_200();
104 a1 := JTF_NUMBER_TABLE();
105 a2 := JTF_NUMBER_TABLE();
106 a3 := JTF_DATE_TABLE();
107 a4 := JTF_NUMBER_TABLE();
108 a5 := JTF_VARCHAR2_TABLE_100();
109 a6 := JTF_VARCHAR2_TABLE_100();
110 a7 := JTF_NUMBER_TABLE();
111 a8 := JTF_NUMBER_TABLE();
112 a9 := JTF_VARCHAR2_TABLE_2000();
113 a10 := JTF_NUMBER_TABLE();
114 a11 := JTF_NUMBER_TABLE();
115 a12 := JTF_NUMBER_TABLE();
116 a13 := JTF_NUMBER_TABLE();
117 a14 := JTF_NUMBER_TABLE();
118 a15 := JTF_NUMBER_TABLE();
119 a16 := JTF_VARCHAR2_TABLE_100();
120 a17 := JTF_NUMBER_TABLE();
121 a18 := JTF_NUMBER_TABLE();
122 a19 := JTF_NUMBER_TABLE();
123 else
124 a0 := JTF_VARCHAR2_TABLE_200();
125 a1 := JTF_NUMBER_TABLE();
126 a2 := JTF_NUMBER_TABLE();
127 a3 := JTF_DATE_TABLE();
128 a4 := JTF_NUMBER_TABLE();
129 a5 := JTF_VARCHAR2_TABLE_100();
130 a6 := JTF_VARCHAR2_TABLE_100();
131 a7 := JTF_NUMBER_TABLE();
132 a8 := JTF_NUMBER_TABLE();
133 a9 := JTF_VARCHAR2_TABLE_2000();
134 a10 := JTF_NUMBER_TABLE();
135 a11 := JTF_NUMBER_TABLE();
136 a12 := JTF_NUMBER_TABLE();
137 a13 := JTF_NUMBER_TABLE();
138 a14 := JTF_NUMBER_TABLE();
139 a15 := JTF_NUMBER_TABLE();
140 a16 := JTF_VARCHAR2_TABLE_100();
141 a17 := JTF_NUMBER_TABLE();
142 a18 := JTF_NUMBER_TABLE();
143 a19 := 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 a3.extend(t.count);
149 a4.extend(t.count);
150 a5.extend(t.count);
151 a6.extend(t.count);
152 a7.extend(t.count);
153 a8.extend(t.count);
154 a9.extend(t.count);
155 a10.extend(t.count);
156 a11.extend(t.count);
157 a12.extend(t.count);
158 a13.extend(t.count);
159 a14.extend(t.count);
160 a15.extend(t.count);
161 a16.extend(t.count);
162 a17.extend(t.count);
163 a18.extend(t.count);
164 a19.extend(t.count);
165 ddindx := t.first;
166 indx := 1;
167 while true loop
168 a0(indx) := t(ddindx).refund_number;
169 a1(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_site_id);
170 a2(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
171 a3(indx) := t(ddindx).invoice_date;
172 a4(indx) := rosetta_g_miss_num_map(t(ddindx).pay_terms);
173 a5(indx) := t(ddindx).payment_method_code;
174 a6(indx) := t(ddindx).currency;
175 a7(indx) := rosetta_g_miss_num_map(t(ddindx).refund_header_id);
176 a8(indx) := rosetta_g_miss_num_map(t(ddindx).refund_id);
177 a9(indx) := t(ddindx).description;
178 a10(indx) := rosetta_g_miss_num_map(t(ddindx).received_amount);
179 a11(indx) := rosetta_g_miss_num_map(t(ddindx).negotiated_amount);
180 a12(indx) := rosetta_g_miss_num_map(t(ddindx).offset_amount);
181 a13(indx) := rosetta_g_miss_num_map(t(ddindx).offset_contract);
182 a14(indx) := rosetta_g_miss_num_map(t(ddindx).refund_amount_due);
183 a15(indx) := rosetta_g_miss_num_map(t(ddindx).refund_amount);
184 a16(indx) := t(ddindx).refund_type;
185 a17(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_id);
186 a18(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_site_cure_due);
187 a19(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_cure_due);
188 indx := indx+1;
189 if t.last =ddindx
190 then exit;
191 end if;
192 ddindx := t.next(ddindx);
193 end loop;
194 end if;
195 end if;
196 end rosetta_table_copy_out_p8;
197
198 procedure create_refund_hdr(p_api_version NUMBER
199 , p_init_msg_list VARCHAR2
200 , p_commit VARCHAR2
201 , x_cure_refund_header_id out nocopy NUMBER
202 , x_return_status out nocopy VARCHAR2
203 , x_msg_count out nocopy NUMBER
204 , x_msg_data out nocopy VARCHAR2
205 , p3_a0 VARCHAR2 := fnd_api.g_miss_char
206 , p3_a1 NUMBER := 0-1962.0724
207 , p3_a2 NUMBER := 0-1962.0724
208 , p3_a3 DATE := fnd_api.g_miss_date
209 , p3_a4 NUMBER := 0-1962.0724
210 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
211 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
212 , p3_a7 NUMBER := 0-1962.0724
213 , p3_a8 NUMBER := 0-1962.0724
214 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
215 , p3_a10 NUMBER := 0-1962.0724
216 , p3_a11 NUMBER := 0-1962.0724
217 , p3_a12 NUMBER := 0-1962.0724
218 , p3_a13 NUMBER := 0-1962.0724
219 , p3_a14 NUMBER := 0-1962.0724
220 , p3_a15 NUMBER := 0-1962.0724
221 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
222 , p3_a17 NUMBER := 0-1962.0724
223 , p3_a18 NUMBER := 0-1962.0724
224 , p3_a19 NUMBER := 0-1962.0724
225 )
226
227 as
228 ddp_pay_cure_refunds_rec okl_pay_cure_refunds_pvt.pay_cure_refunds_rec_type;
229 ddindx binary_integer; indx binary_integer;
230 begin
231
232 -- copy data to the local IN or IN-OUT args, if any
233
234
235
236 ddp_pay_cure_refunds_rec.refund_number := p3_a0;
237 ddp_pay_cure_refunds_rec.vendor_site_id := rosetta_g_miss_num_map(p3_a1);
238 ddp_pay_cure_refunds_rec.chr_id := rosetta_g_miss_num_map(p3_a2);
239 ddp_pay_cure_refunds_rec.invoice_date := rosetta_g_miss_date_in_map(p3_a3);
240 ddp_pay_cure_refunds_rec.pay_terms := rosetta_g_miss_num_map(p3_a4);
241 ddp_pay_cure_refunds_rec.payment_method_code := p3_a5;
242 ddp_pay_cure_refunds_rec.currency := p3_a6;
243 ddp_pay_cure_refunds_rec.refund_header_id := rosetta_g_miss_num_map(p3_a7);
244 ddp_pay_cure_refunds_rec.refund_id := rosetta_g_miss_num_map(p3_a8);
245 ddp_pay_cure_refunds_rec.description := p3_a9;
246 ddp_pay_cure_refunds_rec.received_amount := rosetta_g_miss_num_map(p3_a10);
247 ddp_pay_cure_refunds_rec.negotiated_amount := rosetta_g_miss_num_map(p3_a11);
248 ddp_pay_cure_refunds_rec.offset_amount := rosetta_g_miss_num_map(p3_a12);
249 ddp_pay_cure_refunds_rec.offset_contract := rosetta_g_miss_num_map(p3_a13);
250 ddp_pay_cure_refunds_rec.refund_amount_due := rosetta_g_miss_num_map(p3_a14);
251 ddp_pay_cure_refunds_rec.refund_amount := rosetta_g_miss_num_map(p3_a15);
252 ddp_pay_cure_refunds_rec.refund_type := p3_a16;
253 ddp_pay_cure_refunds_rec.vendor_id := rosetta_g_miss_num_map(p3_a17);
254 ddp_pay_cure_refunds_rec.vendor_site_cure_due := rosetta_g_miss_num_map(p3_a18);
255 ddp_pay_cure_refunds_rec.vendor_cure_due := rosetta_g_miss_num_map(p3_a19);
256
257
258
259
260
261 -- here's the delegated call to the old PL/SQL routine
262 okl_pay_cure_refunds_pvt.create_refund_hdr(p_api_version,
263 p_init_msg_list,
264 p_commit,
265 ddp_pay_cure_refunds_rec,
266 x_cure_refund_header_id,
267 x_return_status,
268 x_msg_count,
269 x_msg_data);
270
271 -- copy data back from the local variables to OUT or IN-OUT args, if any
272
273
274
275
276
277
278
279 end;
280
281 procedure update_refund_hdr(p_api_version NUMBER
282 , p_init_msg_list VARCHAR2
283 , p_commit VARCHAR2
284 , x_return_status out nocopy VARCHAR2
285 , x_msg_count out nocopy NUMBER
286 , x_msg_data out nocopy VARCHAR2
287 , p3_a0 VARCHAR2 := fnd_api.g_miss_char
288 , p3_a1 NUMBER := 0-1962.0724
289 , p3_a2 NUMBER := 0-1962.0724
290 , p3_a3 DATE := fnd_api.g_miss_date
291 , p3_a4 NUMBER := 0-1962.0724
292 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
293 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
294 , p3_a7 NUMBER := 0-1962.0724
295 , p3_a8 NUMBER := 0-1962.0724
296 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
297 , p3_a10 NUMBER := 0-1962.0724
298 , p3_a11 NUMBER := 0-1962.0724
299 , p3_a12 NUMBER := 0-1962.0724
300 , p3_a13 NUMBER := 0-1962.0724
301 , p3_a14 NUMBER := 0-1962.0724
302 , p3_a15 NUMBER := 0-1962.0724
303 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
304 , p3_a17 NUMBER := 0-1962.0724
305 , p3_a18 NUMBER := 0-1962.0724
306 , p3_a19 NUMBER := 0-1962.0724
307 )
308
309 as
310 ddp_pay_cure_refunds_rec okl_pay_cure_refunds_pvt.pay_cure_refunds_rec_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 ddp_pay_cure_refunds_rec.refund_number := p3_a0;
319 ddp_pay_cure_refunds_rec.vendor_site_id := rosetta_g_miss_num_map(p3_a1);
320 ddp_pay_cure_refunds_rec.chr_id := rosetta_g_miss_num_map(p3_a2);
321 ddp_pay_cure_refunds_rec.invoice_date := rosetta_g_miss_date_in_map(p3_a3);
322 ddp_pay_cure_refunds_rec.pay_terms := rosetta_g_miss_num_map(p3_a4);
323 ddp_pay_cure_refunds_rec.payment_method_code := p3_a5;
324 ddp_pay_cure_refunds_rec.currency := p3_a6;
325 ddp_pay_cure_refunds_rec.refund_header_id := rosetta_g_miss_num_map(p3_a7);
326 ddp_pay_cure_refunds_rec.refund_id := rosetta_g_miss_num_map(p3_a8);
327 ddp_pay_cure_refunds_rec.description := p3_a9;
328 ddp_pay_cure_refunds_rec.received_amount := rosetta_g_miss_num_map(p3_a10);
329 ddp_pay_cure_refunds_rec.negotiated_amount := rosetta_g_miss_num_map(p3_a11);
330 ddp_pay_cure_refunds_rec.offset_amount := rosetta_g_miss_num_map(p3_a12);
331 ddp_pay_cure_refunds_rec.offset_contract := rosetta_g_miss_num_map(p3_a13);
332 ddp_pay_cure_refunds_rec.refund_amount_due := rosetta_g_miss_num_map(p3_a14);
333 ddp_pay_cure_refunds_rec.refund_amount := rosetta_g_miss_num_map(p3_a15);
334 ddp_pay_cure_refunds_rec.refund_type := p3_a16;
335 ddp_pay_cure_refunds_rec.vendor_id := rosetta_g_miss_num_map(p3_a17);
336 ddp_pay_cure_refunds_rec.vendor_site_cure_due := rosetta_g_miss_num_map(p3_a18);
337 ddp_pay_cure_refunds_rec.vendor_cure_due := rosetta_g_miss_num_map(p3_a19);
338
339
340
341
342 -- here's the delegated call to the old PL/SQL routine
343 okl_pay_cure_refunds_pvt.update_refund_hdr(p_api_version,
344 p_init_msg_list,
345 p_commit,
346 ddp_pay_cure_refunds_rec,
347 x_return_status,
348 x_msg_count,
349 x_msg_data);
350
351 -- copy data back from the local variables to OUT or IN-OUT args, if any
352
353
354
355
356
357
358 end;
359
360 procedure create_refund_headers(p_api_version NUMBER
361 , p_init_msg_list VARCHAR2
362 , p_commit VARCHAR2
363 , x_cure_refund_header_id out nocopy NUMBER
364 , x_return_status out nocopy VARCHAR2
365 , x_msg_count out nocopy NUMBER
366 , x_msg_data out nocopy VARCHAR2
367 , p3_a0 VARCHAR2 := fnd_api.g_miss_char
368 , p3_a1 NUMBER := 0-1962.0724
369 , p3_a2 NUMBER := 0-1962.0724
370 , p3_a3 DATE := fnd_api.g_miss_date
371 , p3_a4 NUMBER := 0-1962.0724
372 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
373 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
374 , p3_a7 NUMBER := 0-1962.0724
375 , p3_a8 NUMBER := 0-1962.0724
376 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
377 , p3_a10 NUMBER := 0-1962.0724
378 , p3_a11 NUMBER := 0-1962.0724
379 , p3_a12 NUMBER := 0-1962.0724
380 , p3_a13 NUMBER := 0-1962.0724
381 , p3_a14 NUMBER := 0-1962.0724
382 , p3_a15 NUMBER := 0-1962.0724
383 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
384 , p3_a17 NUMBER := 0-1962.0724
385 , p3_a18 NUMBER := 0-1962.0724
386 , p3_a19 NUMBER := 0-1962.0724
387 )
388
389 as
390 ddp_pay_cure_refunds_rec okl_pay_cure_refunds_pvt.pay_cure_refunds_rec_type;
391 ddindx binary_integer; indx binary_integer;
392 begin
393
394 -- copy data to the local IN or IN-OUT args, if any
395
396
397
398 ddp_pay_cure_refunds_rec.refund_number := p3_a0;
399 ddp_pay_cure_refunds_rec.vendor_site_id := rosetta_g_miss_num_map(p3_a1);
400 ddp_pay_cure_refunds_rec.chr_id := rosetta_g_miss_num_map(p3_a2);
401 ddp_pay_cure_refunds_rec.invoice_date := rosetta_g_miss_date_in_map(p3_a3);
402 ddp_pay_cure_refunds_rec.pay_terms := rosetta_g_miss_num_map(p3_a4);
403 ddp_pay_cure_refunds_rec.payment_method_code := p3_a5;
404 ddp_pay_cure_refunds_rec.currency := p3_a6;
405 ddp_pay_cure_refunds_rec.refund_header_id := rosetta_g_miss_num_map(p3_a7);
406 ddp_pay_cure_refunds_rec.refund_id := rosetta_g_miss_num_map(p3_a8);
407 ddp_pay_cure_refunds_rec.description := p3_a9;
408 ddp_pay_cure_refunds_rec.received_amount := rosetta_g_miss_num_map(p3_a10);
409 ddp_pay_cure_refunds_rec.negotiated_amount := rosetta_g_miss_num_map(p3_a11);
410 ddp_pay_cure_refunds_rec.offset_amount := rosetta_g_miss_num_map(p3_a12);
411 ddp_pay_cure_refunds_rec.offset_contract := rosetta_g_miss_num_map(p3_a13);
412 ddp_pay_cure_refunds_rec.refund_amount_due := rosetta_g_miss_num_map(p3_a14);
413 ddp_pay_cure_refunds_rec.refund_amount := rosetta_g_miss_num_map(p3_a15);
414 ddp_pay_cure_refunds_rec.refund_type := p3_a16;
415 ddp_pay_cure_refunds_rec.vendor_id := rosetta_g_miss_num_map(p3_a17);
416 ddp_pay_cure_refunds_rec.vendor_site_cure_due := rosetta_g_miss_num_map(p3_a18);
417 ddp_pay_cure_refunds_rec.vendor_cure_due := rosetta_g_miss_num_map(p3_a19);
418
419
420
421
422
423 -- here's the delegated call to the old PL/SQL routine
424 okl_pay_cure_refunds_pvt.create_refund_headers(p_api_version,
425 p_init_msg_list,
426 p_commit,
427 ddp_pay_cure_refunds_rec,
428 x_cure_refund_header_id,
429 x_return_status,
430 x_msg_count,
431 x_msg_data);
432
433 -- copy data back from the local variables to OUT or IN-OUT args, if any
434
435
436
437
438
439
440
441 end;
442
443 procedure update_refund_headers(p_api_version NUMBER
444 , p_init_msg_list VARCHAR2
445 , p_commit VARCHAR2
446 , x_return_status out nocopy VARCHAR2
447 , x_msg_count out nocopy NUMBER
448 , x_msg_data out nocopy VARCHAR2
449 , p3_a0 VARCHAR2 := fnd_api.g_miss_char
450 , p3_a1 NUMBER := 0-1962.0724
451 , p3_a2 NUMBER := 0-1962.0724
452 , p3_a3 DATE := fnd_api.g_miss_date
453 , p3_a4 NUMBER := 0-1962.0724
454 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
455 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
456 , p3_a7 NUMBER := 0-1962.0724
457 , p3_a8 NUMBER := 0-1962.0724
458 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
459 , p3_a10 NUMBER := 0-1962.0724
460 , p3_a11 NUMBER := 0-1962.0724
461 , p3_a12 NUMBER := 0-1962.0724
462 , p3_a13 NUMBER := 0-1962.0724
463 , p3_a14 NUMBER := 0-1962.0724
464 , p3_a15 NUMBER := 0-1962.0724
465 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
466 , p3_a17 NUMBER := 0-1962.0724
467 , p3_a18 NUMBER := 0-1962.0724
468 , p3_a19 NUMBER := 0-1962.0724
469 )
470
471 as
472 ddp_pay_cure_refunds_rec okl_pay_cure_refunds_pvt.pay_cure_refunds_rec_type;
473 ddindx binary_integer; indx binary_integer;
474 begin
475
476 -- copy data to the local IN or IN-OUT args, if any
477
478
479
480 ddp_pay_cure_refunds_rec.refund_number := p3_a0;
481 ddp_pay_cure_refunds_rec.vendor_site_id := rosetta_g_miss_num_map(p3_a1);
482 ddp_pay_cure_refunds_rec.chr_id := rosetta_g_miss_num_map(p3_a2);
483 ddp_pay_cure_refunds_rec.invoice_date := rosetta_g_miss_date_in_map(p3_a3);
484 ddp_pay_cure_refunds_rec.pay_terms := rosetta_g_miss_num_map(p3_a4);
485 ddp_pay_cure_refunds_rec.payment_method_code := p3_a5;
486 ddp_pay_cure_refunds_rec.currency := p3_a6;
487 ddp_pay_cure_refunds_rec.refund_header_id := rosetta_g_miss_num_map(p3_a7);
488 ddp_pay_cure_refunds_rec.refund_id := rosetta_g_miss_num_map(p3_a8);
489 ddp_pay_cure_refunds_rec.description := p3_a9;
490 ddp_pay_cure_refunds_rec.received_amount := rosetta_g_miss_num_map(p3_a10);
491 ddp_pay_cure_refunds_rec.negotiated_amount := rosetta_g_miss_num_map(p3_a11);
492 ddp_pay_cure_refunds_rec.offset_amount := rosetta_g_miss_num_map(p3_a12);
493 ddp_pay_cure_refunds_rec.offset_contract := rosetta_g_miss_num_map(p3_a13);
494 ddp_pay_cure_refunds_rec.refund_amount_due := rosetta_g_miss_num_map(p3_a14);
495 ddp_pay_cure_refunds_rec.refund_amount := rosetta_g_miss_num_map(p3_a15);
496 ddp_pay_cure_refunds_rec.refund_type := p3_a16;
497 ddp_pay_cure_refunds_rec.vendor_id := rosetta_g_miss_num_map(p3_a17);
498 ddp_pay_cure_refunds_rec.vendor_site_cure_due := rosetta_g_miss_num_map(p3_a18);
499 ddp_pay_cure_refunds_rec.vendor_cure_due := rosetta_g_miss_num_map(p3_a19);
500
501
502
503
504 -- here's the delegated call to the old PL/SQL routine
505 okl_pay_cure_refunds_pvt.update_refund_headers(p_api_version,
506 p_init_msg_list,
507 p_commit,
508 ddp_pay_cure_refunds_rec,
509 x_return_status,
510 x_msg_count,
511 x_msg_data);
512
513 -- copy data back from the local variables to OUT or IN-OUT args, if any
514
515
516
517
518
519
520 end;
521
522 procedure create_refund_details(p_api_version NUMBER
523 , p_init_msg_list VARCHAR2
524 , p_commit VARCHAR2
525 , p3_a0 JTF_VARCHAR2_TABLE_200
526 , p3_a1 JTF_NUMBER_TABLE
527 , p3_a2 JTF_NUMBER_TABLE
528 , p3_a3 JTF_DATE_TABLE
529 , p3_a4 JTF_NUMBER_TABLE
530 , p3_a5 JTF_VARCHAR2_TABLE_100
531 , p3_a6 JTF_VARCHAR2_TABLE_100
532 , p3_a7 JTF_NUMBER_TABLE
533 , p3_a8 JTF_NUMBER_TABLE
534 , p3_a9 JTF_VARCHAR2_TABLE_2000
535 , p3_a10 JTF_NUMBER_TABLE
536 , p3_a11 JTF_NUMBER_TABLE
537 , p3_a12 JTF_NUMBER_TABLE
538 , p3_a13 JTF_NUMBER_TABLE
539 , p3_a14 JTF_NUMBER_TABLE
540 , p3_a15 JTF_NUMBER_TABLE
541 , p3_a16 JTF_VARCHAR2_TABLE_100
542 , p3_a17 JTF_NUMBER_TABLE
543 , p3_a18 JTF_NUMBER_TABLE
544 , p3_a19 JTF_NUMBER_TABLE
545 , x_return_status out nocopy VARCHAR2
546 , x_msg_count out nocopy NUMBER
547 , x_msg_data out nocopy VARCHAR2
548 )
549
550 as
551 ddp_pay_cure_refunds_tbl okl_pay_cure_refunds_pvt.pay_cure_refunds_tbl_type;
552 ddindx binary_integer; indx binary_integer;
553 begin
554
555 -- copy data to the local IN or IN-OUT args, if any
556
557
558
559 okl_pay_cure_refunds_pvt_w.rosetta_table_copy_in_p8(ddp_pay_cure_refunds_tbl, p3_a0
560 , p3_a1
561 , p3_a2
562 , p3_a3
563 , p3_a4
564 , p3_a5
565 , p3_a6
566 , p3_a7
567 , p3_a8
568 , p3_a9
569 , p3_a10
570 , p3_a11
571 , p3_a12
572 , p3_a13
573 , p3_a14
574 , p3_a15
575 , p3_a16
576 , p3_a17
577 , p3_a18
578 , p3_a19
579 );
580
581
582
583
584 -- here's the delegated call to the old PL/SQL routine
585 okl_pay_cure_refunds_pvt.create_refund_details(p_api_version,
586 p_init_msg_list,
587 p_commit,
588 ddp_pay_cure_refunds_tbl,
589 x_return_status,
590 x_msg_count,
591 x_msg_data);
592
593 -- copy data back from the local variables to OUT or IN-OUT args, if any
594
595
596
597
598
599
600 end;
601
602 procedure update_refund_details(p_api_version NUMBER
603 , p_init_msg_list VARCHAR2
604 , p_commit VARCHAR2
605 , p3_a0 JTF_VARCHAR2_TABLE_200
606 , p3_a1 JTF_NUMBER_TABLE
607 , p3_a2 JTF_NUMBER_TABLE
608 , p3_a3 JTF_DATE_TABLE
609 , p3_a4 JTF_NUMBER_TABLE
610 , p3_a5 JTF_VARCHAR2_TABLE_100
611 , p3_a6 JTF_VARCHAR2_TABLE_100
612 , p3_a7 JTF_NUMBER_TABLE
613 , p3_a8 JTF_NUMBER_TABLE
614 , p3_a9 JTF_VARCHAR2_TABLE_2000
615 , p3_a10 JTF_NUMBER_TABLE
616 , p3_a11 JTF_NUMBER_TABLE
617 , p3_a12 JTF_NUMBER_TABLE
618 , p3_a13 JTF_NUMBER_TABLE
619 , p3_a14 JTF_NUMBER_TABLE
620 , p3_a15 JTF_NUMBER_TABLE
621 , p3_a16 JTF_VARCHAR2_TABLE_100
622 , p3_a17 JTF_NUMBER_TABLE
623 , p3_a18 JTF_NUMBER_TABLE
624 , p3_a19 JTF_NUMBER_TABLE
625 , x_return_status out nocopy VARCHAR2
626 , x_msg_count out nocopy NUMBER
627 , x_msg_data out nocopy VARCHAR2
628 )
629
630 as
631 ddp_pay_cure_refunds_tbl okl_pay_cure_refunds_pvt.pay_cure_refunds_tbl_type;
632 ddindx binary_integer; indx binary_integer;
633 begin
634
635 -- copy data to the local IN or IN-OUT args, if any
636
637
638
639 okl_pay_cure_refunds_pvt_w.rosetta_table_copy_in_p8(ddp_pay_cure_refunds_tbl, p3_a0
640 , p3_a1
641 , p3_a2
642 , p3_a3
643 , p3_a4
644 , p3_a5
645 , p3_a6
646 , p3_a7
647 , p3_a8
648 , p3_a9
649 , p3_a10
650 , p3_a11
651 , p3_a12
652 , p3_a13
653 , p3_a14
654 , p3_a15
655 , p3_a16
656 , p3_a17
657 , p3_a18
658 , p3_a19
659 );
660
661
662
663
664 -- here's the delegated call to the old PL/SQL routine
665 okl_pay_cure_refunds_pvt.update_refund_details(p_api_version,
666 p_init_msg_list,
667 p_commit,
668 ddp_pay_cure_refunds_tbl,
669 x_return_status,
670 x_msg_count,
671 x_msg_data);
672
673 -- copy data back from the local variables to OUT or IN-OUT args, if any
674
675
676
677
678
679
680 end;
681
682 procedure delete_refund_details(p_api_version NUMBER
683 , p_init_msg_list VARCHAR2
684 , p_commit VARCHAR2
685 , p3_a0 JTF_VARCHAR2_TABLE_200
686 , p3_a1 JTF_NUMBER_TABLE
687 , p3_a2 JTF_NUMBER_TABLE
688 , p3_a3 JTF_DATE_TABLE
689 , p3_a4 JTF_NUMBER_TABLE
690 , p3_a5 JTF_VARCHAR2_TABLE_100
691 , p3_a6 JTF_VARCHAR2_TABLE_100
692 , p3_a7 JTF_NUMBER_TABLE
693 , p3_a8 JTF_NUMBER_TABLE
694 , p3_a9 JTF_VARCHAR2_TABLE_2000
695 , p3_a10 JTF_NUMBER_TABLE
696 , p3_a11 JTF_NUMBER_TABLE
697 , p3_a12 JTF_NUMBER_TABLE
698 , p3_a13 JTF_NUMBER_TABLE
699 , p3_a14 JTF_NUMBER_TABLE
700 , p3_a15 JTF_NUMBER_TABLE
701 , p3_a16 JTF_VARCHAR2_TABLE_100
702 , p3_a17 JTF_NUMBER_TABLE
703 , p3_a18 JTF_NUMBER_TABLE
704 , p3_a19 JTF_NUMBER_TABLE
705 , x_return_status out nocopy VARCHAR2
706 , x_msg_count out nocopy NUMBER
707 , x_msg_data out nocopy VARCHAR2
708 )
709
710 as
711 ddp_pay_cure_refunds_tbl okl_pay_cure_refunds_pvt.pay_cure_refunds_tbl_type;
712 ddindx binary_integer; indx binary_integer;
713 begin
714
715 -- copy data to the local IN or IN-OUT args, if any
716
717
718
719 okl_pay_cure_refunds_pvt_w.rosetta_table_copy_in_p8(ddp_pay_cure_refunds_tbl, p3_a0
720 , p3_a1
721 , p3_a2
722 , p3_a3
723 , p3_a4
724 , p3_a5
725 , p3_a6
726 , p3_a7
727 , p3_a8
728 , p3_a9
729 , p3_a10
730 , p3_a11
731 , p3_a12
732 , p3_a13
733 , p3_a14
734 , p3_a15
735 , p3_a16
736 , p3_a17
737 , p3_a18
738 , p3_a19
739 );
740
741
742
743
744 -- here's the delegated call to the old PL/SQL routine
745 okl_pay_cure_refunds_pvt.delete_refund_details(p_api_version,
746 p_init_msg_list,
747 p_commit,
748 ddp_pay_cure_refunds_tbl,
749 x_return_status,
750 x_msg_count,
751 x_msg_data);
752
753 -- copy data back from the local variables to OUT or IN-OUT args, if any
754
755
756
757
758
759
760 end;
761
762 end okl_pay_cure_refunds_pvt_w;