[Home] [Help]
PACKAGE BODY: APPS.PV_ATTR_PRINCIPAL_PVT_W
Source
1 package body pv_attr_principal_pvt_w as
2 /* $Header: pvxwatpb.pls 120.0 2007/12/20 09:22:35 abnagapp 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 rosetta_table_copy_in_p2(t out nocopy pv_attr_principal_pvt.attr_principal_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_DATE_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_DATE_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).attr_principal_id := rosetta_g_miss_num_map(a0(indx));
40 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a1(indx));
41 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a2(indx));
42 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a3(indx));
43 t(ddindx).created_by := rosetta_g_miss_num_map(a4(indx));
44 t(ddindx).last_update_login := rosetta_g_miss_num_map(a5(indx));
45 t(ddindx).object_version_number := rosetta_g_miss_num_map(a6(indx));
46 t(ddindx).attribute_id := rosetta_g_miss_num_map(a7(indx));
47 t(ddindx).jtf_auth_principal_id := rosetta_g_miss_num_map(a8(indx));
48 ddindx := ddindx+1;
49 if a0.last =indx
50 then exit;
51 end if;
52 indx := a0.next(indx);
53 end loop;
54 end if;
55 end if;
56 end rosetta_table_copy_in_p2;
57 procedure rosetta_table_copy_out_p2(t pv_attr_principal_pvt.attr_principal_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
58 , a1 out nocopy JTF_DATE_TABLE
59 , a2 out nocopy JTF_NUMBER_TABLE
60 , a3 out nocopy JTF_DATE_TABLE
61 , a4 out nocopy JTF_NUMBER_TABLE
62 , a5 out nocopy JTF_NUMBER_TABLE
63 , a6 out nocopy JTF_NUMBER_TABLE
64 , a7 out nocopy JTF_NUMBER_TABLE
65 , a8 out nocopy JTF_NUMBER_TABLE
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if t is null or t.count = 0 then
70 a0 := JTF_NUMBER_TABLE();
71 a1 := JTF_DATE_TABLE();
72 a2 := JTF_NUMBER_TABLE();
73 a3 := JTF_DATE_TABLE();
74 a4 := JTF_NUMBER_TABLE();
75 a5 := JTF_NUMBER_TABLE();
76 a6 := JTF_NUMBER_TABLE();
77 a7 := JTF_NUMBER_TABLE();
78 a8 := JTF_NUMBER_TABLE();
79 else
80 a0 := JTF_NUMBER_TABLE();
81 a1 := JTF_DATE_TABLE();
82 a2 := JTF_NUMBER_TABLE();
83 a3 := JTF_DATE_TABLE();
84 a4 := JTF_NUMBER_TABLE();
85 a5 := JTF_NUMBER_TABLE();
86 a6 := JTF_NUMBER_TABLE();
87 a7 := JTF_NUMBER_TABLE();
88 a8 := JTF_NUMBER_TABLE();
89 if t.count > 0 then
90 a0.extend(t.count);
91 a1.extend(t.count);
92 a2.extend(t.count);
93 a3.extend(t.count);
94 a4.extend(t.count);
95 a5.extend(t.count);
96 a6.extend(t.count);
97 a7.extend(t.count);
98 a8.extend(t.count);
99 ddindx := t.first;
100 indx := 1;
101 while true loop
102 a0(indx) := rosetta_g_miss_num_map(t(ddindx).attr_principal_id);
103 a1(indx) := t(ddindx).last_update_date;
104 a2(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
105 a3(indx) := t(ddindx).creation_date;
106 a4(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
107 a5(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
108 a6(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
109 a7(indx) := rosetta_g_miss_num_map(t(ddindx).attribute_id);
110 a8(indx) := rosetta_g_miss_num_map(t(ddindx).jtf_auth_principal_id);
111 indx := indx+1;
112 if t.last =ddindx
113 then exit;
114 end if;
115 ddindx := t.next(ddindx);
116 end loop;
117 end if;
118 end if;
119 end rosetta_table_copy_out_p2;
120
121 procedure create_attr_principal(p_api_version_number NUMBER
122 , p_init_msg_list VARCHAR2
123 , p_commit VARCHAR2
124 , p_validation_level NUMBER
125 , x_return_status out nocopy VARCHAR2
126 , x_msg_count out nocopy NUMBER
127 , x_msg_data out nocopy VARCHAR2
128 , x_attr_principal_id out nocopy NUMBER
129 , p7_a0 NUMBER := 0-1962.0724
130 , p7_a1 DATE := fnd_api.g_miss_date
131 , p7_a2 NUMBER := 0-1962.0724
132 , p7_a3 DATE := fnd_api.g_miss_date
133 , p7_a4 NUMBER := 0-1962.0724
134 , p7_a5 NUMBER := 0-1962.0724
135 , p7_a6 NUMBER := 0-1962.0724
136 , p7_a7 NUMBER := 0-1962.0724
137 , p7_a8 NUMBER := 0-1962.0724
138 )
139
140 as
141 ddp_attr_principal_rec pv_attr_principal_pvt.attr_principal_rec_type;
142 ddindx binary_integer; indx binary_integer;
143 begin
144
145 -- copy data to the local IN or IN-OUT args, if any
146
147
148
149
150
151
152
153 ddp_attr_principal_rec.attr_principal_id := rosetta_g_miss_num_map(p7_a0);
154 ddp_attr_principal_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
155 ddp_attr_principal_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
156 ddp_attr_principal_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
157 ddp_attr_principal_rec.created_by := rosetta_g_miss_num_map(p7_a4);
158 ddp_attr_principal_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
159 ddp_attr_principal_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
160 ddp_attr_principal_rec.attribute_id := rosetta_g_miss_num_map(p7_a7);
161 ddp_attr_principal_rec.jtf_auth_principal_id := rosetta_g_miss_num_map(p7_a8);
162
163
164 -- here's the delegated call to the old PL/SQL routine
165 pv_attr_principal_pvt.create_attr_principal(p_api_version_number,
166 p_init_msg_list,
167 p_commit,
168 p_validation_level,
169 x_return_status,
170 x_msg_count,
171 x_msg_data,
172 ddp_attr_principal_rec,
173 x_attr_principal_id);
174
175 -- copy data back from the local variables to OUT or IN-OUT args, if any
176
177
178
179
180
181
182
183
184 end;
185
186 procedure update_attr_principal(p_api_version_number NUMBER
187 , p_init_msg_list VARCHAR2
188 , p_commit VARCHAR2
189 , p_validation_level NUMBER
190 , x_return_status out nocopy VARCHAR2
191 , x_msg_count out nocopy NUMBER
192 , x_msg_data out nocopy VARCHAR2
193 , x_object_version_number out nocopy NUMBER
194 , p7_a0 NUMBER := 0-1962.0724
195 , p7_a1 DATE := fnd_api.g_miss_date
196 , p7_a2 NUMBER := 0-1962.0724
197 , p7_a3 DATE := fnd_api.g_miss_date
198 , p7_a4 NUMBER := 0-1962.0724
199 , p7_a5 NUMBER := 0-1962.0724
200 , p7_a6 NUMBER := 0-1962.0724
201 , p7_a7 NUMBER := 0-1962.0724
202 , p7_a8 NUMBER := 0-1962.0724
203 )
204
205 as
206 ddp_attr_principal_rec pv_attr_principal_pvt.attr_principal_rec_type;
207 ddindx binary_integer; indx binary_integer;
208 begin
209
210 -- copy data to the local IN or IN-OUT args, if any
211
212
213
214
215
216
217
218 ddp_attr_principal_rec.attr_principal_id := rosetta_g_miss_num_map(p7_a0);
219 ddp_attr_principal_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
220 ddp_attr_principal_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
221 ddp_attr_principal_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
222 ddp_attr_principal_rec.created_by := rosetta_g_miss_num_map(p7_a4);
223 ddp_attr_principal_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
224 ddp_attr_principal_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
225 ddp_attr_principal_rec.attribute_id := rosetta_g_miss_num_map(p7_a7);
226 ddp_attr_principal_rec.jtf_auth_principal_id := rosetta_g_miss_num_map(p7_a8);
227
228
229 -- here's the delegated call to the old PL/SQL routine
230 pv_attr_principal_pvt.update_attr_principal(p_api_version_number,
231 p_init_msg_list,
232 p_commit,
233 p_validation_level,
234 x_return_status,
235 x_msg_count,
236 x_msg_data,
237 ddp_attr_principal_rec,
238 x_object_version_number);
239
240 -- copy data back from the local variables to OUT or IN-OUT args, if any
241
242
243
244
245
246
247
248
249 end;
250
251 procedure validate_attr_principal(p_api_version_number NUMBER
252 , p_init_msg_list VARCHAR2
253 , p_validation_level NUMBER
254 , p_validation_mode VARCHAR2
255 , x_return_status out nocopy VARCHAR2
256 , x_msg_count out nocopy NUMBER
257 , x_msg_data out nocopy VARCHAR2
258 , p4_a0 NUMBER := 0-1962.0724
259 , p4_a1 DATE := fnd_api.g_miss_date
260 , p4_a2 NUMBER := 0-1962.0724
261 , p4_a3 DATE := fnd_api.g_miss_date
262 , p4_a4 NUMBER := 0-1962.0724
263 , p4_a5 NUMBER := 0-1962.0724
264 , p4_a6 NUMBER := 0-1962.0724
265 , p4_a7 NUMBER := 0-1962.0724
266 , p4_a8 NUMBER := 0-1962.0724
267 )
268
269 as
270 ddp_attr_principal_rec pv_attr_principal_pvt.attr_principal_rec_type;
271 ddindx binary_integer; indx binary_integer;
272 begin
273
274 -- copy data to the local IN or IN-OUT args, if any
275
276
277
278
279 ddp_attr_principal_rec.attr_principal_id := rosetta_g_miss_num_map(p4_a0);
280 ddp_attr_principal_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a1);
281 ddp_attr_principal_rec.last_updated_by := rosetta_g_miss_num_map(p4_a2);
282 ddp_attr_principal_rec.creation_date := rosetta_g_miss_date_in_map(p4_a3);
283 ddp_attr_principal_rec.created_by := rosetta_g_miss_num_map(p4_a4);
284 ddp_attr_principal_rec.last_update_login := rosetta_g_miss_num_map(p4_a5);
285 ddp_attr_principal_rec.object_version_number := rosetta_g_miss_num_map(p4_a6);
286 ddp_attr_principal_rec.attribute_id := rosetta_g_miss_num_map(p4_a7);
287 ddp_attr_principal_rec.jtf_auth_principal_id := rosetta_g_miss_num_map(p4_a8);
288
289
290
291
292 -- here's the delegated call to the old PL/SQL routine
293 pv_attr_principal_pvt.validate_attr_principal(p_api_version_number,
294 p_init_msg_list,
295 p_validation_level,
296 p_validation_mode,
297 ddp_attr_principal_rec,
298 x_return_status,
299 x_msg_count,
300 x_msg_data);
301
302 -- copy data back from the local variables to OUT or IN-OUT args, if any
303
304
305
306
307
308
309
310 end;
311
312 procedure validate_attr_principal_rec(p_api_version_number NUMBER
313 , p_init_msg_list VARCHAR2
314 , x_return_status out nocopy VARCHAR2
315 , x_msg_count out nocopy NUMBER
316 , x_msg_data out nocopy VARCHAR2
317 , p_validation_mode VARCHAR2
318 , p5_a0 NUMBER := 0-1962.0724
319 , p5_a1 DATE := fnd_api.g_miss_date
320 , p5_a2 NUMBER := 0-1962.0724
321 , p5_a3 DATE := fnd_api.g_miss_date
322 , p5_a4 NUMBER := 0-1962.0724
323 , p5_a5 NUMBER := 0-1962.0724
324 , p5_a6 NUMBER := 0-1962.0724
325 , p5_a7 NUMBER := 0-1962.0724
326 , p5_a8 NUMBER := 0-1962.0724
327 )
328
329 as
330 ddp_attr_principal_rec pv_attr_principal_pvt.attr_principal_rec_type;
331 ddindx binary_integer; indx binary_integer;
332 begin
333
334 -- copy data to the local IN or IN-OUT args, if any
335
336
337
338
339
340 ddp_attr_principal_rec.attr_principal_id := rosetta_g_miss_num_map(p5_a0);
341 ddp_attr_principal_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
342 ddp_attr_principal_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
343 ddp_attr_principal_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
344 ddp_attr_principal_rec.created_by := rosetta_g_miss_num_map(p5_a4);
345 ddp_attr_principal_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
346 ddp_attr_principal_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
347 ddp_attr_principal_rec.attribute_id := rosetta_g_miss_num_map(p5_a7);
348 ddp_attr_principal_rec.jtf_auth_principal_id := rosetta_g_miss_num_map(p5_a8);
349
350
351 -- here's the delegated call to the old PL/SQL routine
352 pv_attr_principal_pvt.validate_attr_principal_rec(p_api_version_number,
353 p_init_msg_list,
354 x_return_status,
355 x_msg_count,
356 x_msg_data,
357 ddp_attr_principal_rec,
358 p_validation_mode);
359
360 -- copy data back from the local variables to OUT or IN-OUT args, if any
361
362
363
364
365
366
367 end;
368
369 procedure check_attr_principal_items(p_validation_mode VARCHAR2
370 , x_return_status out nocopy VARCHAR2
371 , p0_a0 NUMBER := 0-1962.0724
372 , p0_a1 DATE := fnd_api.g_miss_date
373 , p0_a2 NUMBER := 0-1962.0724
374 , p0_a3 DATE := fnd_api.g_miss_date
375 , p0_a4 NUMBER := 0-1962.0724
376 , p0_a5 NUMBER := 0-1962.0724
377 , p0_a6 NUMBER := 0-1962.0724
378 , p0_a7 NUMBER := 0-1962.0724
379 , p0_a8 NUMBER := 0-1962.0724
380 )
381
382 as
383 ddp_attr_principal_rec pv_attr_principal_pvt.attr_principal_rec_type;
384 ddindx binary_integer; indx binary_integer;
385 begin
386
387 -- copy data to the local IN or IN-OUT args, if any
388 ddp_attr_principal_rec.attr_principal_id := rosetta_g_miss_num_map(p0_a0);
389 ddp_attr_principal_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
390 ddp_attr_principal_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
391 ddp_attr_principal_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
392 ddp_attr_principal_rec.created_by := rosetta_g_miss_num_map(p0_a4);
393 ddp_attr_principal_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
394 ddp_attr_principal_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
395 ddp_attr_principal_rec.attribute_id := rosetta_g_miss_num_map(p0_a7);
396 ddp_attr_principal_rec.jtf_auth_principal_id := rosetta_g_miss_num_map(p0_a8);
397
398
399
400 -- here's the delegated call to the old PL/SQL routine
401 pv_attr_principal_pvt.check_attr_principal_items(ddp_attr_principal_rec,
402 p_validation_mode,
403 x_return_status);
404
405 -- copy data back from the local variables to OUT or IN-OUT args, if any
406
407
408 end;
409
410 end pv_attr_principal_pvt_w;