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