[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPDTTEMPLATES_PVT_W
Source
1 package body okl_setuppdttemplates_pvt_w as
2 /* $Header: OKLESPTB.pls 115.2 2002/12/24 04:04:10 sgorantl 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 get_rec(x_return_status out nocopy VARCHAR2
23 , x_no_data_found out nocopy number
24 , p3_a0 out nocopy NUMBER
25 , p3_a1 out nocopy NUMBER
26 , p3_a2 out nocopy VARCHAR2
27 , p3_a3 out nocopy VARCHAR2
28 , p3_a4 out nocopy VARCHAR2
29 , p3_a5 out nocopy DATE
30 , p3_a6 out nocopy DATE
31 , p3_a7 out nocopy NUMBER
32 , p3_a8 out nocopy DATE
33 , p3_a9 out nocopy NUMBER
34 , p3_a10 out nocopy DATE
35 , p3_a11 out nocopy NUMBER
36 , p0_a0 NUMBER := 0-1962.0724
37 , p0_a1 NUMBER := 0-1962.0724
38 , p0_a2 VARCHAR2 := fnd_api.g_miss_char
39 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
40 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
41 , p0_a5 DATE := fnd_api.g_miss_date
42 , p0_a6 DATE := fnd_api.g_miss_date
43 , p0_a7 NUMBER := 0-1962.0724
44 , p0_a8 DATE := fnd_api.g_miss_date
45 , p0_a9 NUMBER := 0-1962.0724
46 , p0_a10 DATE := fnd_api.g_miss_date
47 , p0_a11 NUMBER := 0-1962.0724
48 )
49
50 as
51 ddp_ptlv_rec okl_setuppdttemplates_pvt.ptlv_rec_type;
52 ddx_no_data_found boolean;
53 ddx_ptlv_rec okl_setuppdttemplates_pvt.ptlv_rec_type;
54 ddindx binary_integer; indx binary_integer;
55 begin
56
57 -- copy data to the local IN or IN-OUT args, if any
58 ddp_ptlv_rec.id := rosetta_g_miss_num_map(p0_a0);
59 ddp_ptlv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
60 ddp_ptlv_rec.name := p0_a2;
61 ddp_ptlv_rec.version := p0_a3;
62 ddp_ptlv_rec.description := p0_a4;
63 ddp_ptlv_rec.from_date := rosetta_g_miss_date_in_map(p0_a5);
64 ddp_ptlv_rec.to_date := rosetta_g_miss_date_in_map(p0_a6);
65 ddp_ptlv_rec.created_by := rosetta_g_miss_num_map(p0_a7);
66 ddp_ptlv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a8);
67 ddp_ptlv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a9);
68 ddp_ptlv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a10);
69 ddp_ptlv_rec.last_update_login := rosetta_g_miss_num_map(p0_a11);
70
71
72
73
74 -- here's the delegated call to the old PL/SQL routine
75 okl_setuppdttemplates_pvt.get_rec(ddp_ptlv_rec,
76 x_return_status,
77 ddx_no_data_found,
78 ddx_ptlv_rec);
79
80 -- copy data back from the local variables to OUT or IN-OUT args, if any
81
82
83 if ddx_no_data_found is null
84 then x_no_data_found := null;
85 elsif ddx_no_data_found
86 then x_no_data_found := 1;
87 else x_no_data_found := 0;
88 end if;
89
90 p3_a0 := rosetta_g_miss_num_map(ddx_ptlv_rec.id);
91 p3_a1 := rosetta_g_miss_num_map(ddx_ptlv_rec.object_version_number);
92 p3_a2 := ddx_ptlv_rec.name;
93 p3_a3 := ddx_ptlv_rec.version;
94 p3_a4 := ddx_ptlv_rec.description;
95 p3_a5 := ddx_ptlv_rec.from_date;
96 p3_a6 := ddx_ptlv_rec.to_date;
97 p3_a7 := rosetta_g_miss_num_map(ddx_ptlv_rec.created_by);
98 p3_a8 := ddx_ptlv_rec.creation_date;
99 p3_a9 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_updated_by);
100 p3_a10 := ddx_ptlv_rec.last_update_date;
101 p3_a11 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_update_login);
102 end;
103
104 procedure get_version(p_name VARCHAR2
105 , p_cur_version VARCHAR2
106 , p_from_date date
107 , p_to_date date
108 , p_table VARCHAR2
109 , x_return_status out nocopy VARCHAR2
110 , x_new_version out nocopy VARCHAR2
111 )
112
113 as
114 ddp_from_date date;
115 ddp_to_date date;
116 ddindx binary_integer; indx binary_integer;
117 begin
118
119 -- copy data to the local IN or IN-OUT args, if any
120
121
122 ddp_from_date := rosetta_g_miss_date_in_map(p_from_date);
123
124 ddp_to_date := rosetta_g_miss_date_in_map(p_to_date);
125
126
127
128
129 -- here's the delegated call to the old PL/SQL routine
130 okl_setuppdttemplates_pvt.get_version(p_name,
131 p_cur_version,
132 ddp_from_date,
133 ddp_to_date,
134 p_table,
135 x_return_status,
136 x_new_version);
137
138 -- copy data back from the local variables to OUT or IN-OUT args, if any
139
140
141
142
143
144
145 end;
146
147 procedure check_overlaps(p_id NUMBER
148 , p_name VARCHAR2
149 , p_from_date date
150 , p_to_date date
151 , p_table VARCHAR2
152 , x_return_status out nocopy VARCHAR2
153 , x_valid out nocopy number
154 )
155
156 as
157 ddp_from_date date;
158 ddp_to_date date;
159 ddx_valid boolean;
160 ddindx binary_integer; indx binary_integer;
161 begin
162
163 -- copy data to the local IN or IN-OUT args, if any
164
165
166 ddp_from_date := rosetta_g_miss_date_in_map(p_from_date);
167
168 ddp_to_date := rosetta_g_miss_date_in_map(p_to_date);
169
170
171
172
173 -- here's the delegated call to the old PL/SQL routine
174 okl_setuppdttemplates_pvt.check_overlaps(p_id,
175 p_name,
176 ddp_from_date,
177 ddp_to_date,
178 p_table,
179 x_return_status,
180 ddx_valid);
181
182 -- copy data back from the local variables to OUT or IN-OUT args, if any
183
184
185
186
187
188
189 if ddx_valid is null
190 then x_valid := null;
191 elsif ddx_valid
192 then x_valid := 1;
193 else x_valid := 0;
194 end if;
195 end;
196
197 procedure insert_pdttemplates(p_api_version NUMBER
198 , p_init_msg_list VARCHAR2
199 , x_return_status out nocopy VARCHAR2
200 , x_msg_count out nocopy NUMBER
201 , x_msg_data out nocopy VARCHAR2
202 , p6_a0 out nocopy NUMBER
203 , p6_a1 out nocopy NUMBER
204 , p6_a2 out nocopy VARCHAR2
205 , p6_a3 out nocopy VARCHAR2
206 , p6_a4 out nocopy VARCHAR2
207 , p6_a5 out nocopy DATE
208 , p6_a6 out nocopy DATE
209 , p6_a7 out nocopy NUMBER
210 , p6_a8 out nocopy DATE
211 , p6_a9 out nocopy NUMBER
212 , p6_a10 out nocopy DATE
213 , p6_a11 out nocopy NUMBER
214 , p5_a0 NUMBER := 0-1962.0724
215 , p5_a1 NUMBER := 0-1962.0724
216 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
217 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
218 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
219 , p5_a5 DATE := fnd_api.g_miss_date
220 , p5_a6 DATE := fnd_api.g_miss_date
221 , p5_a7 NUMBER := 0-1962.0724
222 , p5_a8 DATE := fnd_api.g_miss_date
223 , p5_a9 NUMBER := 0-1962.0724
224 , p5_a10 DATE := fnd_api.g_miss_date
225 , p5_a11 NUMBER := 0-1962.0724
226 )
227
228 as
229 ddp_ptlv_rec okl_setuppdttemplates_pvt.ptlv_rec_type;
230 ddx_ptlv_rec okl_setuppdttemplates_pvt.ptlv_rec_type;
231 ddindx binary_integer; indx binary_integer;
232 begin
233
234 -- copy data to the local IN or IN-OUT args, if any
235
236
237
238
239
240 ddp_ptlv_rec.id := rosetta_g_miss_num_map(p5_a0);
241 ddp_ptlv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
242 ddp_ptlv_rec.name := p5_a2;
243 ddp_ptlv_rec.version := p5_a3;
244 ddp_ptlv_rec.description := p5_a4;
245 ddp_ptlv_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
246 ddp_ptlv_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
247 ddp_ptlv_rec.created_by := rosetta_g_miss_num_map(p5_a7);
248 ddp_ptlv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
249 ddp_ptlv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
250 ddp_ptlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
251 ddp_ptlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
252
253
254 -- here's the delegated call to the old PL/SQL routine
255 okl_setuppdttemplates_pvt.insert_pdttemplates(p_api_version,
256 p_init_msg_list,
257 x_return_status,
258 x_msg_count,
259 x_msg_data,
260 ddp_ptlv_rec,
261 ddx_ptlv_rec);
262
263 -- copy data back from the local variables to OUT or IN-OUT args, if any
264
265
266
267
268
269
270 p6_a0 := rosetta_g_miss_num_map(ddx_ptlv_rec.id);
271 p6_a1 := rosetta_g_miss_num_map(ddx_ptlv_rec.object_version_number);
272 p6_a2 := ddx_ptlv_rec.name;
273 p6_a3 := ddx_ptlv_rec.version;
274 p6_a4 := ddx_ptlv_rec.description;
275 p6_a5 := ddx_ptlv_rec.from_date;
276 p6_a6 := ddx_ptlv_rec.to_date;
277 p6_a7 := rosetta_g_miss_num_map(ddx_ptlv_rec.created_by);
278 p6_a8 := ddx_ptlv_rec.creation_date;
279 p6_a9 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_updated_by);
280 p6_a10 := ddx_ptlv_rec.last_update_date;
281 p6_a11 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_update_login);
282 end;
283
284 procedure update_pdttemplates(p_api_version NUMBER
285 , p_init_msg_list VARCHAR2
286 , x_return_status out nocopy VARCHAR2
287 , x_msg_count out nocopy NUMBER
288 , x_msg_data out nocopy VARCHAR2
289 , p6_a0 out nocopy NUMBER
290 , p6_a1 out nocopy NUMBER
291 , p6_a2 out nocopy VARCHAR2
292 , p6_a3 out nocopy VARCHAR2
293 , p6_a4 out nocopy VARCHAR2
294 , p6_a5 out nocopy DATE
295 , p6_a6 out nocopy DATE
296 , p6_a7 out nocopy NUMBER
297 , p6_a8 out nocopy DATE
298 , p6_a9 out nocopy NUMBER
299 , p6_a10 out nocopy DATE
300 , p6_a11 out nocopy NUMBER
301 , p5_a0 NUMBER := 0-1962.0724
302 , p5_a1 NUMBER := 0-1962.0724
303 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
304 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
305 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
306 , p5_a5 DATE := fnd_api.g_miss_date
307 , p5_a6 DATE := fnd_api.g_miss_date
308 , p5_a7 NUMBER := 0-1962.0724
309 , p5_a8 DATE := fnd_api.g_miss_date
310 , p5_a9 NUMBER := 0-1962.0724
311 , p5_a10 DATE := fnd_api.g_miss_date
312 , p5_a11 NUMBER := 0-1962.0724
313 )
314
315 as
316 ddp_ptlv_rec okl_setuppdttemplates_pvt.ptlv_rec_type;
317 ddx_ptlv_rec okl_setuppdttemplates_pvt.ptlv_rec_type;
318 ddindx binary_integer; indx binary_integer;
319 begin
320
321 -- copy data to the local IN or IN-OUT args, if any
322
323
324
325
326
327 ddp_ptlv_rec.id := rosetta_g_miss_num_map(p5_a0);
328 ddp_ptlv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
329 ddp_ptlv_rec.name := p5_a2;
330 ddp_ptlv_rec.version := p5_a3;
331 ddp_ptlv_rec.description := p5_a4;
332 ddp_ptlv_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
333 ddp_ptlv_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
334 ddp_ptlv_rec.created_by := rosetta_g_miss_num_map(p5_a7);
335 ddp_ptlv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
336 ddp_ptlv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
337 ddp_ptlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
338 ddp_ptlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
339
340
341 -- here's the delegated call to the old PL/SQL routine
342 okl_setuppdttemplates_pvt.update_pdttemplates(p_api_version,
343 p_init_msg_list,
344 x_return_status,
345 x_msg_count,
346 x_msg_data,
347 ddp_ptlv_rec,
348 ddx_ptlv_rec);
349
350 -- copy data back from the local variables to OUT or IN-OUT args, if any
351
352
353
354
355
356
357 p6_a0 := rosetta_g_miss_num_map(ddx_ptlv_rec.id);
358 p6_a1 := rosetta_g_miss_num_map(ddx_ptlv_rec.object_version_number);
359 p6_a2 := ddx_ptlv_rec.name;
360 p6_a3 := ddx_ptlv_rec.version;
361 p6_a4 := ddx_ptlv_rec.description;
362 p6_a5 := ddx_ptlv_rec.from_date;
363 p6_a6 := ddx_ptlv_rec.to_date;
364 p6_a7 := rosetta_g_miss_num_map(ddx_ptlv_rec.created_by);
365 p6_a8 := ddx_ptlv_rec.creation_date;
366 p6_a9 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_updated_by);
367 p6_a10 := ddx_ptlv_rec.last_update_date;
368 p6_a11 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_update_login);
369 end;
370
371 end okl_setuppdttemplates_pvt_w;