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_CURE_VNDR_RFND_PVT_W

Source


1 package body okl_cure_vndr_rfnd_pvt_w as
2   /* $Header: OKLERFSB.pls 115.0 2003/04/25 04:15:54 smereddy 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_p1(t out nocopy okl_cure_vndr_rfnd_pvt.cure_rfnd_tbl_type, a0 JTF_NUMBER_TABLE
23     , a1 JTF_NUMBER_TABLE
24     , a2 JTF_NUMBER_TABLE
25     , a3 JTF_NUMBER_TABLE
26     , a4 JTF_VARCHAR2_TABLE_100
27     , a5 JTF_VARCHAR2_TABLE_200
28     , a6 JTF_NUMBER_TABLE
29     , a7 JTF_VARCHAR2_TABLE_200
30     , a8 JTF_NUMBER_TABLE
31     , a9 JTF_NUMBER_TABLE
32     , a10 JTF_VARCHAR2_TABLE_200
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     ) as
39     ddindx binary_integer; indx binary_integer;
40   begin
41   if a0 is not null and a0.count > 0 then
42       if a0.count > 0 then
43         indx := a0.first;
44         ddindx := 1;
45         while true loop
46           t(ddindx).cure_refund_stage_id := rosetta_g_miss_num_map(a0(indx));
47           t(ddindx).received_amount := rosetta_g_miss_num_map(a1(indx));
48           t(ddindx).chr_id := rosetta_g_miss_num_map(a2(indx));
49           t(ddindx).vendor_id := rosetta_g_miss_num_map(a3(indx));
50           t(ddindx).currency_code := a4(indx);
51           t(ddindx).contract_number := a5(indx);
52           t(ddindx).offset_amount := rosetta_g_miss_num_map(a6(indx));
53           t(ddindx).offset_contract_number := a7(indx);
54           t(ddindx).offset_contract_id := rosetta_g_miss_num_map(a8(indx));
55           t(ddindx).cure_refund_header_id := rosetta_g_miss_num_map(a9(indx));
56           t(ddindx).refund_header_number := a10(indx);
57           t(ddindx).cure_refund_line_id := rosetta_g_miss_num_map(a11(indx));
58           t(ddindx).vendor_site_id := rosetta_g_miss_num_map(a12(indx));
59           t(ddindx).rl_object_version_number := rosetta_g_miss_num_map(a13(indx));
60           t(ddindx).rh_object_version_number := rosetta_g_miss_num_map(a14(indx));
61           t(ddindx).rs_object_version_number := rosetta_g_miss_num_map(a15(indx));
62           ddindx := ddindx+1;
63           if a0.last =indx
64             then exit;
65           end if;
66           indx := a0.next(indx);
67         end loop;
68       end if;
69    end if;
70   end rosetta_table_copy_in_p1;
71   procedure rosetta_table_copy_out_p1(t okl_cure_vndr_rfnd_pvt.cure_rfnd_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
72     , a1 out nocopy JTF_NUMBER_TABLE
73     , a2 out nocopy JTF_NUMBER_TABLE
74     , a3 out nocopy JTF_NUMBER_TABLE
75     , a4 out nocopy JTF_VARCHAR2_TABLE_100
76     , a5 out nocopy JTF_VARCHAR2_TABLE_200
77     , a6 out nocopy JTF_NUMBER_TABLE
78     , a7 out nocopy JTF_VARCHAR2_TABLE_200
79     , a8 out nocopy JTF_NUMBER_TABLE
80     , a9 out nocopy JTF_NUMBER_TABLE
81     , a10 out nocopy JTF_VARCHAR2_TABLE_200
82     , a11 out nocopy JTF_NUMBER_TABLE
83     , a12 out nocopy JTF_NUMBER_TABLE
84     , a13 out nocopy JTF_NUMBER_TABLE
85     , a14 out nocopy JTF_NUMBER_TABLE
86     , a15 out nocopy JTF_NUMBER_TABLE
87     ) as
88     ddindx binary_integer; indx binary_integer;
89   begin
90   if t is null or t.count = 0 then
91     a0 := JTF_NUMBER_TABLE();
92     a1 := JTF_NUMBER_TABLE();
93     a2 := JTF_NUMBER_TABLE();
94     a3 := JTF_NUMBER_TABLE();
95     a4 := JTF_VARCHAR2_TABLE_100();
96     a5 := JTF_VARCHAR2_TABLE_200();
97     a6 := JTF_NUMBER_TABLE();
98     a7 := JTF_VARCHAR2_TABLE_200();
99     a8 := JTF_NUMBER_TABLE();
100     a9 := JTF_NUMBER_TABLE();
101     a10 := JTF_VARCHAR2_TABLE_200();
102     a11 := JTF_NUMBER_TABLE();
103     a12 := JTF_NUMBER_TABLE();
104     a13 := JTF_NUMBER_TABLE();
105     a14 := JTF_NUMBER_TABLE();
106     a15 := JTF_NUMBER_TABLE();
107   else
108       a0 := JTF_NUMBER_TABLE();
109       a1 := JTF_NUMBER_TABLE();
110       a2 := JTF_NUMBER_TABLE();
111       a3 := JTF_NUMBER_TABLE();
112       a4 := JTF_VARCHAR2_TABLE_100();
113       a5 := JTF_VARCHAR2_TABLE_200();
114       a6 := JTF_NUMBER_TABLE();
115       a7 := JTF_VARCHAR2_TABLE_200();
116       a8 := JTF_NUMBER_TABLE();
117       a9 := JTF_NUMBER_TABLE();
118       a10 := JTF_VARCHAR2_TABLE_200();
119       a11 := JTF_NUMBER_TABLE();
120       a12 := JTF_NUMBER_TABLE();
121       a13 := JTF_NUMBER_TABLE();
122       a14 := JTF_NUMBER_TABLE();
123       a15 := JTF_NUMBER_TABLE();
124       if t.count > 0 then
125         a0.extend(t.count);
126         a1.extend(t.count);
127         a2.extend(t.count);
128         a3.extend(t.count);
129         a4.extend(t.count);
130         a5.extend(t.count);
131         a6.extend(t.count);
132         a7.extend(t.count);
133         a8.extend(t.count);
134         a9.extend(t.count);
135         a10.extend(t.count);
136         a11.extend(t.count);
137         a12.extend(t.count);
138         a13.extend(t.count);
139         a14.extend(t.count);
140         a15.extend(t.count);
141         ddindx := t.first;
142         indx := 1;
143         while true loop
144           a0(indx) := rosetta_g_miss_num_map(t(ddindx).cure_refund_stage_id);
145           a1(indx) := rosetta_g_miss_num_map(t(ddindx).received_amount);
146           a2(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
147           a3(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_id);
148           a4(indx) := t(ddindx).currency_code;
149           a5(indx) := t(ddindx).contract_number;
150           a6(indx) := rosetta_g_miss_num_map(t(ddindx).offset_amount);
151           a7(indx) := t(ddindx).offset_contract_number;
152           a8(indx) := rosetta_g_miss_num_map(t(ddindx).offset_contract_id);
153           a9(indx) := rosetta_g_miss_num_map(t(ddindx).cure_refund_header_id);
154           a10(indx) := t(ddindx).refund_header_number;
155           a11(indx) := rosetta_g_miss_num_map(t(ddindx).cure_refund_line_id);
156           a12(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_site_id);
157           a13(indx) := rosetta_g_miss_num_map(t(ddindx).rl_object_version_number);
158           a14(indx) := rosetta_g_miss_num_map(t(ddindx).rh_object_version_number);
159           a15(indx) := rosetta_g_miss_num_map(t(ddindx).rs_object_version_number);
160           indx := indx+1;
161           if t.last =ddindx
162             then exit;
163           end if;
164           ddindx := t.next(ddindx);
165         end loop;
166       end if;
167    end if;
168   end rosetta_table_copy_out_p1;
169 
170   procedure create_cure_refund(p_api_version  NUMBER
171     , p_init_msg_list  VARCHAR2
172     , x_return_status out nocopy  VARCHAR2
173     , x_msg_count out nocopy  NUMBER
174     , x_msg_data out nocopy  VARCHAR2
175     , p5_a0 JTF_NUMBER_TABLE
176     , p5_a1 JTF_NUMBER_TABLE
177     , p5_a2 JTF_NUMBER_TABLE
178     , p5_a3 JTF_NUMBER_TABLE
179     , p5_a4 JTF_VARCHAR2_TABLE_100
180     , p5_a5 JTF_VARCHAR2_TABLE_200
181     , p5_a6 JTF_NUMBER_TABLE
182     , p5_a7 JTF_VARCHAR2_TABLE_200
183     , p5_a8 JTF_NUMBER_TABLE
184     , p5_a9 JTF_NUMBER_TABLE
185     , p5_a10 JTF_VARCHAR2_TABLE_200
186     , p5_a11 JTF_NUMBER_TABLE
187     , p5_a12 JTF_NUMBER_TABLE
188     , p5_a13 JTF_NUMBER_TABLE
189     , p5_a14 JTF_NUMBER_TABLE
190     , p5_a15 JTF_NUMBER_TABLE
191     , p6_a0 out nocopy JTF_NUMBER_TABLE
192     , p6_a1 out nocopy JTF_NUMBER_TABLE
193     , p6_a2 out nocopy JTF_NUMBER_TABLE
194     , p6_a3 out nocopy JTF_NUMBER_TABLE
195     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
196     , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
197     , p6_a6 out nocopy JTF_NUMBER_TABLE
198     , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
199     , p6_a8 out nocopy JTF_NUMBER_TABLE
200     , p6_a9 out nocopy JTF_NUMBER_TABLE
201     , p6_a10 out nocopy JTF_VARCHAR2_TABLE_200
202     , p6_a11 out nocopy JTF_NUMBER_TABLE
203     , p6_a12 out nocopy JTF_NUMBER_TABLE
204     , p6_a13 out nocopy JTF_NUMBER_TABLE
205     , p6_a14 out nocopy JTF_NUMBER_TABLE
206     , p6_a15 out nocopy JTF_NUMBER_TABLE
207   )
208 
209   as
210     ddp_cure_rfnd_tbl okl_cure_vndr_rfnd_pvt.cure_rfnd_tbl_type;
211     ddx_cure_rfnd_tbl okl_cure_vndr_rfnd_pvt.cure_rfnd_tbl_type;
212     ddindx binary_integer; indx binary_integer;
213   begin
214 
215     -- copy data to the local IN or IN-OUT args, if any
216 
217 
218 
219 
220 
221     okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_in_p1(ddp_cure_rfnd_tbl, p5_a0
222       , p5_a1
223       , p5_a2
224       , p5_a3
225       , p5_a4
226       , p5_a5
227       , p5_a6
228       , p5_a7
229       , p5_a8
230       , p5_a9
231       , p5_a10
232       , p5_a11
233       , p5_a12
234       , p5_a13
235       , p5_a14
236       , p5_a15
237       );
238 
239 
240     -- here's the delegated call to the old PL/SQL routine
241     okl_cure_vndr_rfnd_pvt.create_cure_refund(p_api_version,
242       p_init_msg_list,
243       x_return_status,
244       x_msg_count,
245       x_msg_data,
246       ddp_cure_rfnd_tbl,
247       ddx_cure_rfnd_tbl);
248 
249     -- copy data back from the local variables to OUT or IN-OUT args, if any
250 
251 
252 
253 
254 
255 
256     okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_out_p1(ddx_cure_rfnd_tbl, p6_a0
257       , p6_a1
258       , p6_a2
259       , p6_a3
260       , p6_a4
261       , p6_a5
262       , p6_a6
263       , p6_a7
264       , p6_a8
265       , p6_a9
266       , p6_a10
267       , p6_a11
268       , p6_a12
269       , p6_a13
270       , p6_a14
271       , p6_a15
272       );
273   end;
274 
275   procedure update_cure_refund(p_api_version  NUMBER
276     , p_init_msg_list  VARCHAR2
277     , x_return_status out nocopy  VARCHAR2
278     , x_msg_count out nocopy  NUMBER
279     , x_msg_data out nocopy  VARCHAR2
280     , p5_a0 JTF_NUMBER_TABLE
281     , p5_a1 JTF_NUMBER_TABLE
282     , p5_a2 JTF_NUMBER_TABLE
283     , p5_a3 JTF_NUMBER_TABLE
284     , p5_a4 JTF_VARCHAR2_TABLE_100
285     , p5_a5 JTF_VARCHAR2_TABLE_200
286     , p5_a6 JTF_NUMBER_TABLE
287     , p5_a7 JTF_VARCHAR2_TABLE_200
288     , p5_a8 JTF_NUMBER_TABLE
289     , p5_a9 JTF_NUMBER_TABLE
290     , p5_a10 JTF_VARCHAR2_TABLE_200
291     , p5_a11 JTF_NUMBER_TABLE
292     , p5_a12 JTF_NUMBER_TABLE
293     , p5_a13 JTF_NUMBER_TABLE
294     , p5_a14 JTF_NUMBER_TABLE
295     , p5_a15 JTF_NUMBER_TABLE
296     , p6_a0 out nocopy JTF_NUMBER_TABLE
297     , p6_a1 out nocopy JTF_NUMBER_TABLE
298     , p6_a2 out nocopy JTF_NUMBER_TABLE
299     , p6_a3 out nocopy JTF_NUMBER_TABLE
300     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
301     , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
302     , p6_a6 out nocopy JTF_NUMBER_TABLE
303     , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
304     , p6_a8 out nocopy JTF_NUMBER_TABLE
305     , p6_a9 out nocopy JTF_NUMBER_TABLE
306     , p6_a10 out nocopy JTF_VARCHAR2_TABLE_200
307     , p6_a11 out nocopy JTF_NUMBER_TABLE
308     , p6_a12 out nocopy JTF_NUMBER_TABLE
309     , p6_a13 out nocopy JTF_NUMBER_TABLE
310     , p6_a14 out nocopy JTF_NUMBER_TABLE
311     , p6_a15 out nocopy JTF_NUMBER_TABLE
312   )
313 
314   as
315     ddp_cure_rfnd_tbl okl_cure_vndr_rfnd_pvt.cure_rfnd_tbl_type;
316     ddx_cure_rfnd_tbl okl_cure_vndr_rfnd_pvt.cure_rfnd_tbl_type;
317     ddindx binary_integer; indx binary_integer;
318   begin
319 
320     -- copy data to the local IN or IN-OUT args, if any
321 
322 
323 
324 
325 
326     okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_in_p1(ddp_cure_rfnd_tbl, p5_a0
327       , p5_a1
328       , p5_a2
329       , p5_a3
330       , p5_a4
331       , p5_a5
332       , p5_a6
333       , p5_a7
334       , p5_a8
335       , p5_a9
336       , p5_a10
337       , p5_a11
338       , p5_a12
339       , p5_a13
340       , p5_a14
341       , p5_a15
342       );
343 
344 
345     -- here's the delegated call to the old PL/SQL routine
346     okl_cure_vndr_rfnd_pvt.update_cure_refund(p_api_version,
347       p_init_msg_list,
348       x_return_status,
349       x_msg_count,
350       x_msg_data,
351       ddp_cure_rfnd_tbl,
352       ddx_cure_rfnd_tbl);
353 
354     -- copy data back from the local variables to OUT or IN-OUT args, if any
355 
356 
357 
358 
359 
360 
361     okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_out_p1(ddx_cure_rfnd_tbl, p6_a0
362       , p6_a1
363       , p6_a2
364       , p6_a3
365       , p6_a4
366       , p6_a5
367       , p6_a6
368       , p6_a7
369       , p6_a8
370       , p6_a9
371       , p6_a10
372       , p6_a11
373       , p6_a12
374       , p6_a13
375       , p6_a14
376       , p6_a15
377       );
378   end;
379 
380   procedure delete_cure_refund(p_api_version  NUMBER
381     , p_init_msg_list  VARCHAR2
382     , x_return_status out nocopy  VARCHAR2
383     , x_msg_count out nocopy  NUMBER
384     , x_msg_data out nocopy  VARCHAR2
385     , p5_a0 JTF_NUMBER_TABLE
386     , p5_a1 JTF_NUMBER_TABLE
387     , p5_a2 JTF_NUMBER_TABLE
388     , p5_a3 JTF_NUMBER_TABLE
389     , p5_a4 JTF_VARCHAR2_TABLE_100
390     , p5_a5 JTF_VARCHAR2_TABLE_200
391     , p5_a6 JTF_NUMBER_TABLE
392     , p5_a7 JTF_VARCHAR2_TABLE_200
393     , p5_a8 JTF_NUMBER_TABLE
394     , p5_a9 JTF_NUMBER_TABLE
395     , p5_a10 JTF_VARCHAR2_TABLE_200
396     , p5_a11 JTF_NUMBER_TABLE
397     , p5_a12 JTF_NUMBER_TABLE
398     , p5_a13 JTF_NUMBER_TABLE
399     , p5_a14 JTF_NUMBER_TABLE
400     , p5_a15 JTF_NUMBER_TABLE
401   )
402 
403   as
404     ddp_cure_rfnd_tbl okl_cure_vndr_rfnd_pvt.cure_rfnd_tbl_type;
405     ddindx binary_integer; indx binary_integer;
406   begin
407 
408     -- copy data to the local IN or IN-OUT args, if any
409 
410 
411 
412 
413 
414     okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_in_p1(ddp_cure_rfnd_tbl, p5_a0
415       , p5_a1
416       , p5_a2
417       , p5_a3
418       , p5_a4
419       , p5_a5
420       , p5_a6
421       , p5_a7
422       , p5_a8
423       , p5_a9
424       , p5_a10
425       , p5_a11
426       , p5_a12
427       , p5_a13
428       , p5_a14
429       , p5_a15
430       );
431 
432     -- here's the delegated call to the old PL/SQL routine
433     okl_cure_vndr_rfnd_pvt.delete_cure_refund(p_api_version,
434       p_init_msg_list,
435       x_return_status,
436       x_msg_count,
437       x_msg_data,
438       ddp_cure_rfnd_tbl);
439 
440     -- copy data back from the local variables to OUT or IN-OUT args, if any
441 
442 
443 
444 
445 
446   end;
447 
448 end okl_cure_vndr_rfnd_pvt_w;