[Home] [Help]
PACKAGE BODY: APPS.AMS_ACCESS_PVT_W_NEW
Source
1 package body ams_access_pvt_w_new as
2 /* $Header: amsacesb.pls 120.1 2005/08/29 06:01 anskumar noship $ */
3 procedure create_access(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_commit VARCHAR2
6 , p_validation_level NUMBER
7 , x_return_status out nocopy VARCHAR2
8 , x_msg_count out nocopy NUMBER
9 , x_msg_data out nocopy VARCHAR2
10 , p7_a0 NUMBER
11 , p7_a1 DATE
12 , p7_a2 NUMBER
13 , p7_a3 DATE
14 , p7_a4 NUMBER
15 , p7_a5 NUMBER
16 , p7_a6 NUMBER
17 , p7_a7 NUMBER
18 , p7_a8 VARCHAR2
19 , p7_a9 NUMBER
20 , p7_a10 VARCHAR2
21 , p7_a11 DATE
22 , p7_a12 VARCHAR2
23 , p7_a13 VARCHAR2
24 , p7_a14 DATE
25 , p7_a15 VARCHAR2
26 , p7_a16 VARCHAR2
27 , x_access_id out nocopy NUMBER
28 )
29
30 as
31 ddp_access_rec ams_access_pvt.access_rec_type;
32 ddindx binary_integer; indx binary_integer;
33 begin
34
35 -- copy data to the local IN or IN-OUT args, if any
36
37
38
39
40
41
42
43 ddp_access_rec.activity_access_id := p7_a0;
44 ddp_access_rec.last_update_date := p7_a1;
45 ddp_access_rec.last_updated_by := p7_a2;
46 ddp_access_rec.creation_date := p7_a3;
47 ddp_access_rec.created_by := p7_a4;
48 ddp_access_rec.last_update_login := p7_a5;
49 ddp_access_rec.object_version_number := p7_a6;
50 ddp_access_rec.act_access_to_object_id := p7_a7;
51 ddp_access_rec.arc_act_access_to_object := p7_a8;
52 ddp_access_rec.user_or_role_id := p7_a9;
53 ddp_access_rec.arc_user_or_role_type := p7_a10;
54 ddp_access_rec.active_from_date := p7_a11;
55 ddp_access_rec.admin_flag := p7_a12;
56 ddp_access_rec.approver_flag := p7_a13;
57 ddp_access_rec.active_to_date := p7_a14;
58 ddp_access_rec.owner_flag := p7_a15;
59 ddp_access_rec.delete_flag := p7_a16;
60
61
62 -- here's the delegated call to the old PL/SQL routine
63 ams_access_pvt.create_access(p_api_version,
64 p_init_msg_list,
65 p_commit,
66 p_validation_level,
67 x_return_status,
68 x_msg_count,
69 x_msg_data,
70 ddp_access_rec,
71 x_access_id);
72
73 -- copy data back from the local variables to OUT or IN-OUT args, if any
74
75
76
77
78
79
80
81
82 end;
83
84 procedure update_access(p_api_version NUMBER
85 , p_init_msg_list VARCHAR2
86 , p_commit VARCHAR2
87 , p_validation_level NUMBER
88 , x_return_status out nocopy VARCHAR2
89 , x_msg_count out nocopy NUMBER
90 , x_msg_data out nocopy VARCHAR2
91 , p7_a0 NUMBER
92 , p7_a1 DATE
93 , p7_a2 NUMBER
94 , p7_a3 DATE
95 , p7_a4 NUMBER
96 , p7_a5 NUMBER
97 , p7_a6 NUMBER
98 , p7_a7 NUMBER
99 , p7_a8 VARCHAR2
100 , p7_a9 NUMBER
101 , p7_a10 VARCHAR2
102 , p7_a11 DATE
103 , p7_a12 VARCHAR2
104 , p7_a13 VARCHAR2
105 , p7_a14 DATE
106 , p7_a15 VARCHAR2
107 , p7_a16 VARCHAR2
108 )
109
110 as
111 ddp_access_rec ams_access_pvt.access_rec_type;
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
123 ddp_access_rec.activity_access_id := p7_a0;
124 ddp_access_rec.last_update_date := p7_a1;
125 ddp_access_rec.last_updated_by := p7_a2;
126 ddp_access_rec.creation_date := p7_a3;
127 ddp_access_rec.created_by := p7_a4;
128 ddp_access_rec.last_update_login := p7_a5;
129 ddp_access_rec.object_version_number := p7_a6;
130 ddp_access_rec.act_access_to_object_id := p7_a7;
131 ddp_access_rec.arc_act_access_to_object := p7_a8;
132 ddp_access_rec.user_or_role_id := p7_a9;
133 ddp_access_rec.arc_user_or_role_type := p7_a10;
134 ddp_access_rec.active_from_date := p7_a11;
135 ddp_access_rec.admin_flag := p7_a12;
136 ddp_access_rec.approver_flag := p7_a13;
137 ddp_access_rec.active_to_date := p7_a14;
138 ddp_access_rec.owner_flag := p7_a15;
139 ddp_access_rec.delete_flag := p7_a16;
140
141 -- here's the delegated call to the old PL/SQL routine
142 ams_access_pvt.update_access(p_api_version,
143 p_init_msg_list,
144 p_commit,
145 p_validation_level,
146 x_return_status,
147 x_msg_count,
148 x_msg_data,
149 ddp_access_rec);
150
151 -- copy data back from the local variables to OUT or IN-OUT args, if any
152
153
154
155
156
157
158
159 end;
160
161 procedure validate_access(p_api_version NUMBER
162 , p_init_msg_list VARCHAR2
163 , p_validation_level NUMBER
164 , x_return_status out nocopy VARCHAR2
165 , x_msg_count out nocopy NUMBER
166 , x_msg_data out nocopy VARCHAR2
167 , p6_a0 NUMBER
168 , p6_a1 DATE
169 , p6_a2 NUMBER
170 , p6_a3 DATE
171 , p6_a4 NUMBER
172 , p6_a5 NUMBER
173 , p6_a6 NUMBER
174 , p6_a7 NUMBER
175 , p6_a8 VARCHAR2
176 , p6_a9 NUMBER
177 , p6_a10 VARCHAR2
178 , p6_a11 DATE
179 , p6_a12 VARCHAR2
180 , p6_a13 VARCHAR2
181 , p6_a14 DATE
182 , p6_a15 VARCHAR2
183 , p6_a16 VARCHAR2
184 )
185
186 as
187 ddp_access_rec ams_access_pvt.access_rec_type;
188 ddindx binary_integer; indx binary_integer;
189 begin
190
191 -- copy data to the local IN or IN-OUT args, if any
192
193
194
195
196
197
198 ddp_access_rec.activity_access_id := p6_a0;
199 ddp_access_rec.last_update_date := p6_a1;
200 ddp_access_rec.last_updated_by := p6_a2;
201 ddp_access_rec.creation_date := p6_a3;
202 ddp_access_rec.created_by := p6_a4;
203 ddp_access_rec.last_update_login := p6_a5;
204 ddp_access_rec.object_version_number := p6_a6;
205 ddp_access_rec.act_access_to_object_id := p6_a7;
206 ddp_access_rec.arc_act_access_to_object := p6_a8;
207 ddp_access_rec.user_or_role_id := p6_a9;
208 ddp_access_rec.arc_user_or_role_type := p6_a10;
209 ddp_access_rec.active_from_date := p6_a11;
210 ddp_access_rec.admin_flag := p6_a12;
211 ddp_access_rec.approver_flag := p6_a13;
212 ddp_access_rec.active_to_date := p6_a14;
213 ddp_access_rec.owner_flag := p6_a15;
214 ddp_access_rec.delete_flag := p6_a16;
215
216 -- here's the delegated call to the old PL/SQL routine
217 ams_access_pvt.validate_access(p_api_version,
218 p_init_msg_list,
219 p_validation_level,
220 x_return_status,
221 x_msg_count,
222 x_msg_data,
223 ddp_access_rec);
224
225 -- copy data back from the local variables to OUT or IN-OUT args, if any
226
227
228
229
230
231
232 end;
233
234 procedure check_access_items(p0_a0 NUMBER
235 , p0_a1 DATE
236 , p0_a2 NUMBER
237 , p0_a3 DATE
238 , p0_a4 NUMBER
239 , p0_a5 NUMBER
240 , p0_a6 NUMBER
241 , p0_a7 NUMBER
242 , p0_a8 VARCHAR2
243 , p0_a9 NUMBER
244 , p0_a10 VARCHAR2
245 , p0_a11 DATE
246 , p0_a12 VARCHAR2
247 , p0_a13 VARCHAR2
248 , p0_a14 DATE
249 , p0_a15 VARCHAR2
250 , p0_a16 VARCHAR2
251 , p_validation_mode VARCHAR2
252 , x_return_status out nocopy VARCHAR2
253 )
254
255 as
256 ddp_access_rec ams_access_pvt.access_rec_type;
257 ddindx binary_integer; indx binary_integer;
258 begin
259
260 -- copy data to the local IN or IN-OUT args, if any
261 ddp_access_rec.activity_access_id := p0_a0;
262 ddp_access_rec.last_update_date := p0_a1;
263 ddp_access_rec.last_updated_by := p0_a2;
264 ddp_access_rec.creation_date := p0_a3;
265 ddp_access_rec.created_by := p0_a4;
266 ddp_access_rec.last_update_login := p0_a5;
267 ddp_access_rec.object_version_number := p0_a6;
268 ddp_access_rec.act_access_to_object_id := p0_a7;
269 ddp_access_rec.arc_act_access_to_object := p0_a8;
270 ddp_access_rec.user_or_role_id := p0_a9;
271 ddp_access_rec.arc_user_or_role_type := p0_a10;
272 ddp_access_rec.active_from_date := p0_a11;
273 ddp_access_rec.admin_flag := p0_a12;
274 ddp_access_rec.approver_flag := p0_a13;
275 ddp_access_rec.active_to_date := p0_a14;
276 ddp_access_rec.owner_flag := p0_a15;
277 ddp_access_rec.delete_flag := p0_a16;
278
279
280
281 -- here's the delegated call to the old PL/SQL routine
282 ams_access_pvt.check_access_items(ddp_access_rec,
283 p_validation_mode,
284 x_return_status);
285
286 -- copy data back from the local variables to OUT or IN-OUT args, if any
287
288
289 end;
290
291 procedure check_access_record(p0_a0 NUMBER
292 , p0_a1 DATE
293 , p0_a2 NUMBER
294 , p0_a3 DATE
295 , p0_a4 NUMBER
296 , p0_a5 NUMBER
297 , p0_a6 NUMBER
298 , p0_a7 NUMBER
299 , p0_a8 VARCHAR2
300 , p0_a9 NUMBER
301 , p0_a10 VARCHAR2
302 , p0_a11 DATE
303 , p0_a12 VARCHAR2
304 , p0_a13 VARCHAR2
305 , p0_a14 DATE
306 , p0_a15 VARCHAR2
307 , p0_a16 VARCHAR2
308 , p1_a0 NUMBER
309 , p1_a1 DATE
310 , p1_a2 NUMBER
311 , p1_a3 DATE
312 , p1_a4 NUMBER
313 , p1_a5 NUMBER
314 , p1_a6 NUMBER
315 , p1_a7 NUMBER
316 , p1_a8 VARCHAR2
317 , p1_a9 NUMBER
318 , p1_a10 VARCHAR2
319 , p1_a11 DATE
320 , p1_a12 VARCHAR2
321 , p1_a13 VARCHAR2
322 , p1_a14 DATE
323 , p1_a15 VARCHAR2
324 , p1_a16 VARCHAR2
325 , x_return_status out nocopy VARCHAR2
326 )
327
328 as
329 ddp_access_rec ams_access_pvt.access_rec_type;
330 ddp_complete_rec ams_access_pvt.access_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 ddp_access_rec.activity_access_id := p0_a0;
336 ddp_access_rec.last_update_date := p0_a1;
337 ddp_access_rec.last_updated_by := p0_a2;
338 ddp_access_rec.creation_date := p0_a3;
339 ddp_access_rec.created_by := p0_a4;
340 ddp_access_rec.last_update_login := p0_a5;
341 ddp_access_rec.object_version_number := p0_a6;
342 ddp_access_rec.act_access_to_object_id := p0_a7;
343 ddp_access_rec.arc_act_access_to_object := p0_a8;
344 ddp_access_rec.user_or_role_id := p0_a9;
345 ddp_access_rec.arc_user_or_role_type := p0_a10;
346 ddp_access_rec.active_from_date := p0_a11;
347 ddp_access_rec.admin_flag := p0_a12;
348 ddp_access_rec.approver_flag := p0_a13;
349 ddp_access_rec.active_to_date := p0_a14;
350 ddp_access_rec.owner_flag := p0_a15;
351 ddp_access_rec.delete_flag := p0_a16;
352
353 ddp_complete_rec.activity_access_id := p1_a0;
354 ddp_complete_rec.last_update_date := p1_a1;
355 ddp_complete_rec.last_updated_by := p1_a2;
356 ddp_complete_rec.creation_date := p1_a3;
357 ddp_complete_rec.created_by := p1_a4;
358 ddp_complete_rec.last_update_login := p1_a5;
359 ddp_complete_rec.object_version_number := p1_a6;
360 ddp_complete_rec.act_access_to_object_id := p1_a7;
361 ddp_complete_rec.arc_act_access_to_object := p1_a8;
362 ddp_complete_rec.user_or_role_id := p1_a9;
363 ddp_complete_rec.arc_user_or_role_type := p1_a10;
364 ddp_complete_rec.active_from_date := p1_a11;
365 ddp_complete_rec.admin_flag := p1_a12;
366 ddp_complete_rec.approver_flag := p1_a13;
367 ddp_complete_rec.active_to_date := p1_a14;
368 ddp_complete_rec.owner_flag := p1_a15;
369 ddp_complete_rec.delete_flag := p1_a16;
370
371
372 -- here's the delegated call to the old PL/SQL routine
373 ams_access_pvt.check_access_record(ddp_access_rec,
374 ddp_complete_rec,
375 x_return_status);
376
377 -- copy data back from the local variables to OUT or IN-OUT args, if any
378
379
380 end;
381
382 procedure init_access_rec(p0_a0 out nocopy NUMBER
383 , p0_a1 out nocopy DATE
384 , p0_a2 out nocopy NUMBER
385 , p0_a3 out nocopy DATE
386 , p0_a4 out nocopy NUMBER
387 , p0_a5 out nocopy NUMBER
388 , p0_a6 out nocopy NUMBER
389 , p0_a7 out nocopy NUMBER
390 , p0_a8 out nocopy VARCHAR2
391 , p0_a9 out nocopy NUMBER
392 , p0_a10 out nocopy VARCHAR2
393 , p0_a11 out nocopy DATE
394 , p0_a12 out nocopy VARCHAR2
395 , p0_a13 out nocopy VARCHAR2
396 , p0_a14 out nocopy DATE
397 , p0_a15 out nocopy VARCHAR2
398 , p0_a16 out nocopy VARCHAR2
399 )
400
401 as
402 ddx_access_rec ams_access_pvt.access_rec_type;
403 ddindx binary_integer; indx binary_integer;
404 begin
405
406 -- copy data to the local IN or IN-OUT args, if any
407
408 -- here's the delegated call to the old PL/SQL routine
409 ams_access_pvt.init_access_rec(ddx_access_rec);
410
411 -- copy data back from the local variables to OUT or IN-OUT args, if any
412 p0_a0 := ddx_access_rec.activity_access_id;
413 p0_a1 := ddx_access_rec.last_update_date;
414 p0_a2 := ddx_access_rec.last_updated_by;
415 p0_a3 := ddx_access_rec.creation_date;
416 p0_a4 := ddx_access_rec.created_by;
417 p0_a5 := ddx_access_rec.last_update_login;
418 p0_a6 := ddx_access_rec.object_version_number;
419 p0_a7 := ddx_access_rec.act_access_to_object_id;
420 p0_a8 := ddx_access_rec.arc_act_access_to_object;
421 p0_a9 := ddx_access_rec.user_or_role_id;
422 p0_a10 := ddx_access_rec.arc_user_or_role_type;
423 p0_a11 := ddx_access_rec.active_from_date;
424 p0_a12 := ddx_access_rec.admin_flag;
425 p0_a13 := ddx_access_rec.approver_flag;
426 p0_a14 := ddx_access_rec.active_to_date;
427 p0_a15 := ddx_access_rec.owner_flag;
428 p0_a16 := ddx_access_rec.delete_flag;
429 end;
430
431 procedure complete_access_rec(p0_a0 NUMBER
432 , p0_a1 DATE
433 , p0_a2 NUMBER
434 , p0_a3 DATE
435 , p0_a4 NUMBER
436 , p0_a5 NUMBER
437 , p0_a6 NUMBER
438 , p0_a7 NUMBER
439 , p0_a8 VARCHAR2
440 , p0_a9 NUMBER
441 , p0_a10 VARCHAR2
442 , p0_a11 DATE
443 , p0_a12 VARCHAR2
444 , p0_a13 VARCHAR2
445 , p0_a14 DATE
446 , p0_a15 VARCHAR2
447 , p0_a16 VARCHAR2
448 , p1_a0 out nocopy NUMBER
449 , p1_a1 out nocopy DATE
450 , p1_a2 out nocopy NUMBER
451 , p1_a3 out nocopy DATE
452 , p1_a4 out nocopy NUMBER
453 , p1_a5 out nocopy NUMBER
454 , p1_a6 out nocopy NUMBER
455 , p1_a7 out nocopy NUMBER
456 , p1_a8 out nocopy VARCHAR2
457 , p1_a9 out nocopy NUMBER
458 , p1_a10 out nocopy VARCHAR2
459 , p1_a11 out nocopy DATE
460 , p1_a12 out nocopy VARCHAR2
461 , p1_a13 out nocopy VARCHAR2
462 , p1_a14 out nocopy DATE
463 , p1_a15 out nocopy VARCHAR2
464 , p1_a16 out nocopy VARCHAR2
465 )
466
467 as
468 ddp_access_rec ams_access_pvt.access_rec_type;
469 ddx_complete_rec ams_access_pvt.access_rec_type;
470 ddindx binary_integer; indx binary_integer;
471 begin
472
473 -- copy data to the local IN or IN-OUT args, if any
474 ddp_access_rec.activity_access_id := p0_a0;
475 ddp_access_rec.last_update_date := p0_a1;
476 ddp_access_rec.last_updated_by := p0_a2;
477 ddp_access_rec.creation_date := p0_a3;
478 ddp_access_rec.created_by := p0_a4;
479 ddp_access_rec.last_update_login := p0_a5;
480 ddp_access_rec.object_version_number := p0_a6;
481 ddp_access_rec.act_access_to_object_id := p0_a7;
482 ddp_access_rec.arc_act_access_to_object := p0_a8;
483 ddp_access_rec.user_or_role_id := p0_a9;
484 ddp_access_rec.arc_user_or_role_type := p0_a10;
485 ddp_access_rec.active_from_date := p0_a11;
486 ddp_access_rec.admin_flag := p0_a12;
487 ddp_access_rec.approver_flag := p0_a13;
488 ddp_access_rec.active_to_date := p0_a14;
489 ddp_access_rec.owner_flag := p0_a15;
490 ddp_access_rec.delete_flag := p0_a16;
491
492
493 -- here's the delegated call to the old PL/SQL routine
494 ams_access_pvt.complete_access_rec(ddp_access_rec,
495 ddx_complete_rec);
496
497 -- copy data back from the local variables to OUT or IN-OUT args, if any
498
499 p1_a0 := ddx_complete_rec.activity_access_id;
500 p1_a1 := ddx_complete_rec.last_update_date;
501 p1_a2 := ddx_complete_rec.last_updated_by;
502 p1_a3 := ddx_complete_rec.creation_date;
503 p1_a4 := ddx_complete_rec.created_by;
504 p1_a5 := ddx_complete_rec.last_update_login;
505 p1_a6 := ddx_complete_rec.object_version_number;
506 p1_a7 := ddx_complete_rec.act_access_to_object_id;
507 p1_a8 := ddx_complete_rec.arc_act_access_to_object;
508 p1_a9 := ddx_complete_rec.user_or_role_id;
509 p1_a10 := ddx_complete_rec.arc_user_or_role_type;
510 p1_a11 := ddx_complete_rec.active_from_date;
511 p1_a12 := ddx_complete_rec.admin_flag;
512 p1_a13 := ddx_complete_rec.approver_flag;
513 p1_a14 := ddx_complete_rec.active_to_date;
514 p1_a15 := ddx_complete_rec.owner_flag;
515 p1_a16 := ddx_complete_rec.delete_flag;
516 end;
517
518 procedure check_admin_access(p_resource_id NUMBER
519 , ddrosetta_retval_bool OUT NOCOPY NUMBER
520 )
521
522 as
523 ddindx binary_integer; indx binary_integer;
524 ddrosetta_retval boolean;
525 begin
526
527 -- copy data to the local IN or IN-OUT args, if any
528
529 -- here's the delegated call to the old PL/SQL routine
530 ddrosetta_retval := ams_access_pvt.check_admin_access(p_resource_id);
531
532 -- copy data back from the local variables to OUT or IN-OUT args, if any
533 if ddrosetta_retval is null
534 then ddrosetta_retval_bool := null;
535 elsif ddrosetta_retval
536 then ddrosetta_retval_bool := 1;
537 else ddrosetta_retval_bool := 0;
538 end if;
539 end;
540
541 end ams_access_pvt_w_new;