1 package body jtf_cal_wf_pvt_w as
2 /* $Header: jtfwcwb.pls 120.2 2006/04/28 01:47 deeprao ship $ */
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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure startreminders(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , x_return_status out nocopy VARCHAR2
20 , x_msg_count out nocopy NUMBER
21 , x_msg_data out nocopy VARCHAR2
22 , p_invitor NUMBER
23 , p_taskid NUMBER
24 , p_reminddate date
25 )
26
27 as
28 ddp_reminddate date;
29 ddindx binary_integer; indx binary_integer;
30 begin
31
32 -- copy data to the local IN or IN-OUT args, if any
33
34
35
36
37
38
39
40
41 ddp_reminddate := rosetta_g_miss_date_in_map(p_reminddate);
42
43 -- here's the delegated call to the old PL/SQL routine
44 jtf_cal_wf_pvt.startreminders(p_api_version,
45 p_init_msg_list,
46 p_commit,
47 x_return_status,
48 x_msg_count,
49 x_msg_data,
50 p_invitor,
51 p_taskid,
52 ddp_reminddate);
53
54 -- copy data back from the local variables to OUT or IN-OUT args, if any
55
56
57
58
59
60
61
62
63 end;
64
65 procedure updatereminders(p_api_version NUMBER
66 , p_init_msg_list VARCHAR2
67 , p_commit VARCHAR2
68 , x_return_status out nocopy VARCHAR2
69 , x_msg_count out nocopy NUMBER
70 , x_msg_data out nocopy VARCHAR2
71 , p_taskid NUMBER
72 , p_reminddate date
73 )
74
75 as
76 ddp_reminddate date;
77 ddindx binary_integer; indx binary_integer;
78 begin
79
80 -- copy data to the local IN or IN-OUT args, if any
81
82
83
84
85
86
87
88 ddp_reminddate := rosetta_g_miss_date_in_map(p_reminddate);
89
90 -- here's the delegated call to the old PL/SQL routine
91 jtf_cal_wf_pvt.updatereminders(p_api_version,
92 p_init_msg_list,
93 p_commit,
94 x_return_status,
95 x_msg_count,
96 x_msg_data,
97 p_taskid,
98 ddp_reminddate);
99
100 -- copy data back from the local variables to OUT or IN-OUT args, if any
101
102
103
104
105
106
107
108 end;
109
110 end jtf_cal_wf_pvt_w;