[Home] [Help]
PACKAGE BODY: APPS.PV_SELCRIT_PUB_W
Source
1 package body pv_selcrit_pub_w as
2 /* $Header: pvrwescb.pls 120.0 2005/05/27 15:52:18 appldev 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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_selcrit(p_api_version_number NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , p_identity_resource_id NUMBER
27 , x_selection_criteria_id out nocopy NUMBER
28 , x_return_status out nocopy VARCHAR2
29 , x_msg_count out nocopy NUMBER
30 , x_msg_data out nocopy VARCHAR2
31 , p5_a0 NUMBER := 0-1962.0724
32 , p5_a1 DATE := fnd_api.g_miss_date
33 , p5_a2 NUMBER := 0-1962.0724
34 , p5_a3 DATE := fnd_api.g_miss_date
35 , p5_a4 NUMBER := 0-1962.0724
36 , p5_a5 NUMBER := 0-1962.0724
37 , p5_a6 NUMBER := 0-1962.0724
38 , p5_a7 NUMBER := 0-1962.0724
39 , p5_a8 NUMBER := 0-1962.0724
40 , p5_a9 NUMBER := 0-1962.0724
41 , p5_a10 DATE := fnd_api.g_miss_date
42 , p5_a11 NUMBER := 0-1962.0724
43 , p5_a12 NUMBER := 0-1962.0724
44 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
45 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
46 , p5_a15 NUMBER := 0-1962.0724
47 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
48 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
49 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
50 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
51 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
52 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
53 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
54 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
55 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
56 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
57 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
58 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
59 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
60 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
61 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
62 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
63 )
64
65 as
66 ddp_selcrit_rec pv_rule_rectype_pub.selcrit_rec_type;
67 ddindx binary_integer; indx binary_integer;
68 begin
69
70 -- copy data to the local IN or IN-OUT args, if any
71
72
73
74
75
76 ddp_selcrit_rec.selection_criteria_id := rosetta_g_miss_num_map(p5_a0);
77 ddp_selcrit_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
78 ddp_selcrit_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
79 ddp_selcrit_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
80 ddp_selcrit_rec.created_by := rosetta_g_miss_num_map(p5_a4);
81 ddp_selcrit_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
82 ddp_selcrit_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
83 ddp_selcrit_rec.request_id := rosetta_g_miss_num_map(p5_a7);
84 ddp_selcrit_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
85 ddp_selcrit_rec.program_id := rosetta_g_miss_num_map(p5_a9);
86 ddp_selcrit_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
87 ddp_selcrit_rec.process_rule_id := rosetta_g_miss_num_map(p5_a11);
88 ddp_selcrit_rec.attribute_id := rosetta_g_miss_num_map(p5_a12);
89 ddp_selcrit_rec.selection_type_code := p5_a13;
90 ddp_selcrit_rec.operator := p5_a14;
91 ddp_selcrit_rec.rank := rosetta_g_miss_num_map(p5_a15);
92 ddp_selcrit_rec.attribute_category := p5_a16;
93 ddp_selcrit_rec.attribute1 := p5_a17;
94 ddp_selcrit_rec.attribute2 := p5_a18;
95 ddp_selcrit_rec.attribute3 := p5_a19;
96 ddp_selcrit_rec.attribute4 := p5_a20;
97 ddp_selcrit_rec.attribute5 := p5_a21;
98 ddp_selcrit_rec.attribute6 := p5_a22;
99 ddp_selcrit_rec.attribute7 := p5_a23;
100 ddp_selcrit_rec.attribute8 := p5_a24;
101 ddp_selcrit_rec.attribute9 := p5_a25;
102 ddp_selcrit_rec.attribute10 := p5_a26;
103 ddp_selcrit_rec.attribute11 := p5_a27;
104 ddp_selcrit_rec.attribute12 := p5_a28;
105 ddp_selcrit_rec.attribute13 := p5_a29;
106 ddp_selcrit_rec.attribute14 := p5_a30;
107 ddp_selcrit_rec.attribute15 := p5_a31;
108
109
110
111
112
113 -- here's the delegated call to the old PL/SQL routine
114 pv_selcrit_pub.create_selcrit(p_api_version_number,
115 p_init_msg_list,
116 p_commit,
117 p_validation_level,
118 p_identity_resource_id,
119 ddp_selcrit_rec,
120 x_selection_criteria_id,
121 x_return_status,
122 x_msg_count,
123 x_msg_data);
124
125 -- copy data back from the local variables to OUT or IN-OUT args, if any
126
127
128
129
130
131
132
133
134
135 end;
136
137 procedure update_selcrit(p_api_version_number NUMBER
138 , p_init_msg_list VARCHAR2
139 , p_commit VARCHAR2
140 , p_validation_level NUMBER
141 , p_identity_resource_id NUMBER
142 , x_return_status out nocopy VARCHAR2
143 , x_msg_count out nocopy NUMBER
144 , x_msg_data out nocopy VARCHAR2
145 , p5_a0 NUMBER := 0-1962.0724
146 , p5_a1 DATE := fnd_api.g_miss_date
147 , p5_a2 NUMBER := 0-1962.0724
148 , p5_a3 DATE := fnd_api.g_miss_date
149 , p5_a4 NUMBER := 0-1962.0724
150 , p5_a5 NUMBER := 0-1962.0724
151 , p5_a6 NUMBER := 0-1962.0724
152 , p5_a7 NUMBER := 0-1962.0724
153 , p5_a8 NUMBER := 0-1962.0724
154 , p5_a9 NUMBER := 0-1962.0724
155 , p5_a10 DATE := fnd_api.g_miss_date
156 , p5_a11 NUMBER := 0-1962.0724
157 , p5_a12 NUMBER := 0-1962.0724
158 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
159 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
160 , p5_a15 NUMBER := 0-1962.0724
161 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
162 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
163 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
164 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
165 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
166 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
167 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
168 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
169 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
170 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
171 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
172 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
173 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
174 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
175 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
176 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
177 )
178
179 as
180 ddp_selcrit_rec pv_rule_rectype_pub.selcrit_rec_type;
181 ddindx binary_integer; indx binary_integer;
182 begin
183
184 -- copy data to the local IN or IN-OUT args, if any
185
186
187
188
189
190 ddp_selcrit_rec.selection_criteria_id := rosetta_g_miss_num_map(p5_a0);
191 ddp_selcrit_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
192 ddp_selcrit_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
193 ddp_selcrit_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
194 ddp_selcrit_rec.created_by := rosetta_g_miss_num_map(p5_a4);
195 ddp_selcrit_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
196 ddp_selcrit_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
197 ddp_selcrit_rec.request_id := rosetta_g_miss_num_map(p5_a7);
198 ddp_selcrit_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
199 ddp_selcrit_rec.program_id := rosetta_g_miss_num_map(p5_a9);
200 ddp_selcrit_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
201 ddp_selcrit_rec.process_rule_id := rosetta_g_miss_num_map(p5_a11);
202 ddp_selcrit_rec.attribute_id := rosetta_g_miss_num_map(p5_a12);
203 ddp_selcrit_rec.selection_type_code := p5_a13;
204 ddp_selcrit_rec.operator := p5_a14;
205 ddp_selcrit_rec.rank := rosetta_g_miss_num_map(p5_a15);
206 ddp_selcrit_rec.attribute_category := p5_a16;
207 ddp_selcrit_rec.attribute1 := p5_a17;
208 ddp_selcrit_rec.attribute2 := p5_a18;
209 ddp_selcrit_rec.attribute3 := p5_a19;
210 ddp_selcrit_rec.attribute4 := p5_a20;
211 ddp_selcrit_rec.attribute5 := p5_a21;
212 ddp_selcrit_rec.attribute6 := p5_a22;
213 ddp_selcrit_rec.attribute7 := p5_a23;
214 ddp_selcrit_rec.attribute8 := p5_a24;
215 ddp_selcrit_rec.attribute9 := p5_a25;
216 ddp_selcrit_rec.attribute10 := p5_a26;
217 ddp_selcrit_rec.attribute11 := p5_a27;
218 ddp_selcrit_rec.attribute12 := p5_a28;
219 ddp_selcrit_rec.attribute13 := p5_a29;
220 ddp_selcrit_rec.attribute14 := p5_a30;
221 ddp_selcrit_rec.attribute15 := p5_a31;
222
223
224
225
226 -- here's the delegated call to the old PL/SQL routine
227 pv_selcrit_pub.update_selcrit(p_api_version_number,
228 p_init_msg_list,
229 p_commit,
230 p_validation_level,
231 p_identity_resource_id,
232 ddp_selcrit_rec,
233 x_return_status,
234 x_msg_count,
235 x_msg_data);
236
237 -- copy data back from the local variables to OUT or IN-OUT args, if any
238
239
240
241
242
243
244
245
246 end;
247
248 procedure delete_selcrit(p_api_version_number NUMBER
249 , p_init_msg_list VARCHAR2
250 , p_commit VARCHAR2
251 , p_validation_level NUMBER
252 , p_identity_resource_id NUMBER
253 , x_return_status out nocopy VARCHAR2
254 , x_msg_count out nocopy NUMBER
255 , x_msg_data out nocopy VARCHAR2
256 , p5_a0 NUMBER := 0-1962.0724
257 , p5_a1 DATE := fnd_api.g_miss_date
258 , p5_a2 NUMBER := 0-1962.0724
259 , p5_a3 DATE := fnd_api.g_miss_date
260 , p5_a4 NUMBER := 0-1962.0724
261 , p5_a5 NUMBER := 0-1962.0724
262 , p5_a6 NUMBER := 0-1962.0724
263 , p5_a7 NUMBER := 0-1962.0724
264 , p5_a8 NUMBER := 0-1962.0724
265 , p5_a9 NUMBER := 0-1962.0724
266 , p5_a10 DATE := fnd_api.g_miss_date
267 , p5_a11 NUMBER := 0-1962.0724
268 , p5_a12 NUMBER := 0-1962.0724
269 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
270 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
271 , p5_a15 NUMBER := 0-1962.0724
272 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
273 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
274 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
275 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
276 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
277 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
278 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
279 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
280 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
281 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
282 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
283 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
284 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
285 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
286 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
287 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
288 )
289
290 as
291 ddp_selcrit_rec pv_rule_rectype_pub.selcrit_rec_type;
292 ddindx binary_integer; indx binary_integer;
293 begin
294
295 -- copy data to the local IN or IN-OUT args, if any
296
297
298
299
300
301 ddp_selcrit_rec.selection_criteria_id := rosetta_g_miss_num_map(p5_a0);
302 ddp_selcrit_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
303 ddp_selcrit_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
304 ddp_selcrit_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
305 ddp_selcrit_rec.created_by := rosetta_g_miss_num_map(p5_a4);
306 ddp_selcrit_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
307 ddp_selcrit_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
308 ddp_selcrit_rec.request_id := rosetta_g_miss_num_map(p5_a7);
309 ddp_selcrit_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
310 ddp_selcrit_rec.program_id := rosetta_g_miss_num_map(p5_a9);
311 ddp_selcrit_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
312 ddp_selcrit_rec.process_rule_id := rosetta_g_miss_num_map(p5_a11);
313 ddp_selcrit_rec.attribute_id := rosetta_g_miss_num_map(p5_a12);
314 ddp_selcrit_rec.selection_type_code := p5_a13;
315 ddp_selcrit_rec.operator := p5_a14;
316 ddp_selcrit_rec.rank := rosetta_g_miss_num_map(p5_a15);
317 ddp_selcrit_rec.attribute_category := p5_a16;
318 ddp_selcrit_rec.attribute1 := p5_a17;
319 ddp_selcrit_rec.attribute2 := p5_a18;
320 ddp_selcrit_rec.attribute3 := p5_a19;
321 ddp_selcrit_rec.attribute4 := p5_a20;
322 ddp_selcrit_rec.attribute5 := p5_a21;
323 ddp_selcrit_rec.attribute6 := p5_a22;
324 ddp_selcrit_rec.attribute7 := p5_a23;
325 ddp_selcrit_rec.attribute8 := p5_a24;
326 ddp_selcrit_rec.attribute9 := p5_a25;
327 ddp_selcrit_rec.attribute10 := p5_a26;
328 ddp_selcrit_rec.attribute11 := p5_a27;
329 ddp_selcrit_rec.attribute12 := p5_a28;
330 ddp_selcrit_rec.attribute13 := p5_a29;
331 ddp_selcrit_rec.attribute14 := p5_a30;
332 ddp_selcrit_rec.attribute15 := p5_a31;
333
334
335
336
337 -- here's the delegated call to the old PL/SQL routine
338 pv_selcrit_pub.delete_selcrit(p_api_version_number,
339 p_init_msg_list,
340 p_commit,
341 p_validation_level,
342 p_identity_resource_id,
343 ddp_selcrit_rec,
344 x_return_status,
345 x_msg_count,
346 x_msg_data);
347
348 -- copy data back from the local variables to OUT or IN-OUT args, if any
349
350
351
352
353
354
355
356
357 end;
358
359 end pv_selcrit_pub_w;