1 package body okl_cure_request_pvt_w as
2 /* $Header: OKLEREQB.pls 120.1 2005/09/30 20:40:38 cklee 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 send_cure_request(errbuf out nocopy VARCHAR2
23 , retcode out nocopy NUMBER
24 , p_vendor_number NUMBER
25 , p_report_number VARCHAR2
26 , p_report_date date
27 )
28
29 as
30 ddp_report_date date;
31 ddindx binary_integer; indx binary_integer;
32 begin
33
34 -- copy data to the local IN or IN-OUT args, if any
35
36
37
38
39 ddp_report_date := rosetta_g_miss_date_in_map(p_report_date);
40
41 -- here's the delegated call to the old PL/SQL routine
42 okl_cure_request_pvt.send_cure_request(errbuf,
43 retcode,
44 p_vendor_number,
45 p_report_number,
46 ddp_report_date);
47
48 -- copy data back from the local variables to OUT or IN-OUT args, if any
49
50
51
52
53 end;
54
55 end okl_cure_request_pvt_w;