[Home] [Help]
PACKAGE BODY: APPS.JTA_CAL_APPOINTMENT_PVT_W
Source
1 package body jta_cal_appointment_pvt_w as
2 /* $Header: jtavcawb.pls 120.2 2006/05/02 01:57 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 create_appointment(p_task_name VARCHAR2
17 , p_task_type_id NUMBER
18 , p_description VARCHAR2
19 , p_task_priority_id NUMBER
20 , p_owner_type_code VARCHAR2
21 , p_owner_id NUMBER
22 , p_planned_start_date date
23 , p_planned_end_date date
24 , p_timezone_id NUMBER
28 , p_category_id NUMBER
25 , p_private_flag VARCHAR2
26 , p_alarm_start NUMBER
27 , p_alarm_on VARCHAR2
29 , x_return_status out nocopy VARCHAR2
30 , x_task_id out nocopy NUMBER
31 )
32
33 as
34 ddp_planned_start_date date;
35 ddp_planned_end_date date;
36 ddindx binary_integer; indx binary_integer;
37 begin
38
39 -- copy data to the local IN or IN-OUT args, if any
40
41
42
43
44
45
46 ddp_planned_start_date := rosetta_g_miss_date_in_map(p_planned_start_date);
47
48 ddp_planned_end_date := rosetta_g_miss_date_in_map(p_planned_end_date);
49
50
51
52
53
54
55
56
57 -- here's the delegated call to the old PL/SQL routine
58 jta_cal_appointment_pvt.create_appointment(p_task_name,
59 p_task_type_id,
60 p_description,
61 p_task_priority_id,
62 p_owner_type_code,
63 p_owner_id,
64 ddp_planned_start_date,
65 ddp_planned_end_date,
66 p_timezone_id,
67 p_private_flag,
68 p_alarm_start,
69 p_alarm_on,
70 p_category_id,
71 x_return_status,
72 x_task_id);
73
74 -- copy data back from the local variables to OUT or IN-OUT args, if any
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89 end;
90
91 procedure create_appointment(p_task_name VARCHAR2
92 , p_task_type_id NUMBER
93 , p_description VARCHAR2
94 , p_task_priority_id NUMBER
95 , p_owner_type_code VARCHAR2
96 , p_owner_id NUMBER
97 , p_planned_start_date date
98 , p_planned_end_date date
99 , p_timezone_id NUMBER
100 , p_private_flag VARCHAR2
101 , p_alarm_start NUMBER
102 , p_alarm_on VARCHAR2
103 , p_category_id NUMBER
104 , p_free_busy_type VARCHAR2
105 , x_return_status out nocopy VARCHAR2
106 , x_task_id out nocopy NUMBER
107 )
108
109 as
110 ddp_planned_start_date date;
111 ddp_planned_end_date date;
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
122 ddp_planned_start_date := rosetta_g_miss_date_in_map(p_planned_start_date);
123
124 ddp_planned_end_date := rosetta_g_miss_date_in_map(p_planned_end_date);
125
126
127
128
129
130
131
132
133
134 -- here's the delegated call to the old PL/SQL routine
135 jta_cal_appointment_pvt.create_appointment(p_task_name,
136 p_task_type_id,
137 p_description,
138 p_task_priority_id,
139 p_owner_type_code,
140 p_owner_id,
141 ddp_planned_start_date,
142 ddp_planned_end_date,
143 p_timezone_id,
144 p_private_flag,
145 p_alarm_start,
146 p_alarm_on,
147 p_category_id,
148 p_free_busy_type,
149 x_return_status,
150 x_task_id);
151
152 -- copy data back from the local variables to OUT or IN-OUT args, if any
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168 end;
169
170 procedure update_appointment(p_object_version_number in out nocopy NUMBER
171 , p_task_id NUMBER
172 , p_task_name VARCHAR2
173 , p_task_type_id NUMBER
174 , p_description VARCHAR2
175 , p_task_priority_id NUMBER
176 , p_planned_start_date date
177 , p_planned_end_date date
178 , p_timezone_id NUMBER
179 , p_private_flag VARCHAR2
180 , p_alarm_start NUMBER
181 , p_alarm_on VARCHAR2
182 , p_category_id NUMBER
183 , p_change_mode VARCHAR2
184 , x_return_status out nocopy VARCHAR2
185 )
186
187 as
188 ddp_planned_start_date date;
189 ddp_planned_end_date date;
190 ddindx binary_integer; indx binary_integer;
191 begin
192
193 -- copy data to the local IN or IN-OUT args, if any
194
195
196
197
198
199
200 ddp_planned_start_date := rosetta_g_miss_date_in_map(p_planned_start_date);
201
202 ddp_planned_end_date := rosetta_g_miss_date_in_map(p_planned_end_date);
203
204
205
206
207
208
209
210
211 -- here's the delegated call to the old PL/SQL routine
212 jta_cal_appointment_pvt.update_appointment(p_object_version_number,
213 p_task_id,
214 p_task_name,
215 p_task_type_id,
216 p_description,
217 p_task_priority_id,
218 ddp_planned_start_date,
219 ddp_planned_end_date,
220 p_timezone_id,
221 p_private_flag,
222 p_alarm_start,
223 p_alarm_on,
224 p_category_id,
225 p_change_mode,
226 x_return_status);
227
228 -- copy data back from the local variables to OUT or IN-OUT args, if any
229
230
231
232
233
234
235
236
237
241
238
239
240
242
243 end;
244
245 procedure update_appointment(p_object_version_number in out nocopy NUMBER
246 , p_task_id NUMBER
247 , p_task_name VARCHAR2
248 , p_task_type_id NUMBER
249 , p_description VARCHAR2
250 , p_task_priority_id NUMBER
251 , p_planned_start_date date
252 , p_planned_end_date date
253 , p_timezone_id NUMBER
254 , p_private_flag VARCHAR2
255 , p_alarm_start NUMBER
256 , p_alarm_on VARCHAR2
257 , p_category_id NUMBER
258 , p_free_busy_type VARCHAR2
259 , p_change_mode VARCHAR2
260 , x_return_status out nocopy VARCHAR2
261 )
262
263 as
264 ddp_planned_start_date date;
265 ddp_planned_end_date date;
266 ddindx binary_integer; indx binary_integer;
267 begin
268
269 -- copy data to the local IN or IN-OUT args, if any
270
271
272
273
274
275
276 ddp_planned_start_date := rosetta_g_miss_date_in_map(p_planned_start_date);
277
278 ddp_planned_end_date := rosetta_g_miss_date_in_map(p_planned_end_date);
279
280
281
282
283
284
285
286
287
288 -- here's the delegated call to the old PL/SQL routine
289 jta_cal_appointment_pvt.update_appointment(p_object_version_number,
290 p_task_id,
291 p_task_name,
292 p_task_type_id,
293 p_description,
294 p_task_priority_id,
295 ddp_planned_start_date,
296 ddp_planned_end_date,
297 p_timezone_id,
298 p_private_flag,
299 p_alarm_start,
300 p_alarm_on,
301 p_category_id,
302 p_free_busy_type,
303 p_change_mode,
304 x_return_status);
305
306 -- copy data back from the local variables to OUT or IN-OUT args, if any
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322 end;
323
324 end jta_cal_appointment_pvt_w;