[Home] [Help]
PACKAGE BODY: APPS.AMV_USER_PVT_W
Source
1 package body amv_user_pvt_w as
2 /* $Header: amvwusrb.pls 120.2 2005/06/30 08:50 appldev ship $ */
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_p31(t out nocopy amv_user_pvt.amv_char_varray_type, a0 JTF_VARCHAR2_TABLE_4000) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is null then
26 t := null;
27 elsif a0.count = 0 then
28 t := amv_user_pvt.amv_char_varray_type();
29 else
30 if a0.count > 0 then
31 t := amv_user_pvt.amv_char_varray_type();
32 t.extend(a0.count);
33 indx := a0.first;
34 ddindx := 1;
35 while true loop
36 t(ddindx) := a0(indx);
37 ddindx := ddindx+1;
38 if a0.last =indx
39 then exit;
40 end if;
41 indx := a0.next(indx);
42 end loop;
43 end if;
44 end if;
45 end rosetta_table_copy_in_p31;
46 procedure rosetta_table_copy_out_p31(t amv_user_pvt.amv_char_varray_type, a0 out nocopy JTF_VARCHAR2_TABLE_4000) as
47 ddindx binary_integer; indx binary_integer;
48 begin
49 if t is null then
50 a0 := null;
51 elsif t.count = 0 then
52 a0 := JTF_VARCHAR2_TABLE_4000();
53 else
54 a0 := JTF_VARCHAR2_TABLE_4000();
55 if t.count > 0 then
56 a0.extend(t.count);
57 ddindx := t.first;
58 indx := 1;
59 while true loop
60 a0(indx) := t(ddindx);
61 indx := indx+1;
62 if t.last =ddindx
63 then exit;
64 end if;
65 ddindx := t.next(ddindx);
66 end loop;
67 end if;
68 end if;
69 end rosetta_table_copy_out_p31;
70
71 procedure rosetta_table_copy_in_p32(t out nocopy amv_user_pvt.amv_number_varray_type, a0 JTF_NUMBER_TABLE) as
72 ddindx binary_integer; indx binary_integer;
73 begin
74 if a0 is null then
75 t := null;
76 elsif a0.count = 0 then
77 t := amv_user_pvt.amv_number_varray_type();
78 else
79 if a0.count > 0 then
80 t := amv_user_pvt.amv_number_varray_type();
81 t.extend(a0.count);
82 indx := a0.first;
83 ddindx := 1;
84 while true loop
85 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
86 ddindx := ddindx+1;
87 if a0.last =indx
88 then exit;
89 end if;
90 indx := a0.next(indx);
91 end loop;
92 end if;
93 end if;
94 end rosetta_table_copy_in_p32;
95 procedure rosetta_table_copy_out_p32(t amv_user_pvt.amv_number_varray_type, a0 out nocopy JTF_NUMBER_TABLE) as
96 ddindx binary_integer; indx binary_integer;
97 begin
98 if t is null then
99 a0 := null;
100 elsif t.count = 0 then
101 a0 := JTF_NUMBER_TABLE();
102 else
103 a0 := JTF_NUMBER_TABLE();
104 if t.count > 0 then
105 a0.extend(t.count);
106 ddindx := t.first;
107 indx := 1;
108 while true loop
109 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
110 indx := indx+1;
111 if t.last =ddindx
112 then exit;
113 end if;
114 ddindx := t.next(ddindx);
115 end loop;
116 end if;
117 end if;
118 end rosetta_table_copy_out_p32;
119
120 procedure rosetta_table_copy_in_p36(t out nocopy amv_user_pvt.amv_resource_obj_varray, a0 JTF_NUMBER_TABLE
121 , a1 JTF_NUMBER_TABLE
122 , a2 JTF_VARCHAR2_TABLE_100
123 , a3 JTF_VARCHAR2_TABLE_100
124 , a4 JTF_VARCHAR2_TABLE_100
125 ) as
126 ddindx binary_integer; indx binary_integer;
127 begin
128 if a0 is not null and a0.count=0 then
129 t := amv_user_pvt.amv_resource_obj_varray();
130 elsif a0 is not null and a0.count > 0 then
131 if a0.count > 0 then
132 t := amv_user_pvt.amv_resource_obj_varray();
133 t.extend(a0.count);
134 indx := a0.first;
135 ddindx := 1;
136 while true loop
137 t(ddindx).resource_id := rosetta_g_miss_num_map(a0(indx));
138 t(ddindx).person_id := rosetta_g_miss_num_map(a1(indx));
139 t(ddindx).user_name := a2(indx);
140 t(ddindx).first_name := a3(indx);
141 t(ddindx).last_name := a4(indx);
142 ddindx := ddindx+1;
143 if a0.last =indx
144 then exit;
145 end if;
146 indx := a0.next(indx);
147 end loop;
148 end if;
149 end if;
150 end rosetta_table_copy_in_p36;
151 procedure rosetta_table_copy_out_p36(t amv_user_pvt.amv_resource_obj_varray, a0 out nocopy JTF_NUMBER_TABLE
152 , a1 out nocopy JTF_NUMBER_TABLE
153 , a2 out nocopy JTF_VARCHAR2_TABLE_100
154 , a3 out nocopy JTF_VARCHAR2_TABLE_100
155 , a4 out nocopy JTF_VARCHAR2_TABLE_100
156 ) as
157 ddindx binary_integer; indx binary_integer;
158 begin
159 if t is null then
160 a0 := null;
161 a1 := null;
162 a2 := null;
163 a3 := null;
164 a4 := null;
165 elsif t.count = 0 then
166 a0 := JTF_NUMBER_TABLE();
167 a1 := JTF_NUMBER_TABLE();
168 a2 := JTF_VARCHAR2_TABLE_100();
169 a3 := JTF_VARCHAR2_TABLE_100();
170 a4 := JTF_VARCHAR2_TABLE_100();
171 else
172 a0 := JTF_NUMBER_TABLE();
173 a1 := JTF_NUMBER_TABLE();
174 a2 := JTF_VARCHAR2_TABLE_100();
175 a3 := JTF_VARCHAR2_TABLE_100();
176 a4 := JTF_VARCHAR2_TABLE_100();
177 if t.count > 0 then
178 a0.extend(t.count);
179 a1.extend(t.count);
180 a2.extend(t.count);
181 a3.extend(t.count);
182 a4.extend(t.count);
183 ddindx := t.first;
184 indx := 1;
185 while true loop
186 a0(indx) := rosetta_g_miss_num_map(t(ddindx).resource_id);
187 a1(indx) := rosetta_g_miss_num_map(t(ddindx).person_id);
188 a2(indx) := t(ddindx).user_name;
189 a3(indx) := t(ddindx).first_name;
190 a4(indx) := t(ddindx).last_name;
191 indx := indx+1;
192 if t.last =ddindx
193 then exit;
194 end if;
195 ddindx := t.next(ddindx);
196 end loop;
197 end if;
198 end if;
199 end rosetta_table_copy_out_p36;
200
201 procedure rosetta_table_copy_in_p38(t out nocopy amv_user_pvt.amv_group_obj_varray, a0 JTF_NUMBER_TABLE
202 , a1 JTF_VARCHAR2_TABLE_100
203 , a2 JTF_NUMBER_TABLE
204 , a3 JTF_VARCHAR2_TABLE_300
205 , a4 JTF_VARCHAR2_TABLE_2000
206 , a5 JTF_DATE_TABLE
207 , a6 JTF_DATE_TABLE
208 ) as
209 ddindx binary_integer; indx binary_integer;
210 begin
211 if a0 is not null and a0.count=0 then
212 t := amv_user_pvt.amv_group_obj_varray();
213 elsif a0 is not null and a0.count > 0 then
214 if a0.count > 0 then
215 t := amv_user_pvt.amv_group_obj_varray();
216 t.extend(a0.count);
217 indx := a0.first;
218 ddindx := 1;
219 while true loop
220 t(ddindx).group_id := rosetta_g_miss_num_map(a0(indx));
221 t(ddindx).group_name := a1(indx);
222 t(ddindx).object_version_number := rosetta_g_miss_num_map(a2(indx));
223 t(ddindx).email_address := a3(indx);
224 t(ddindx).description := a4(indx);
225 t(ddindx).effective_start_date := rosetta_g_miss_date_in_map(a5(indx));
226 t(ddindx).expiration_date := rosetta_g_miss_date_in_map(a6(indx));
227 ddindx := ddindx+1;
228 if a0.last =indx
229 then exit;
230 end if;
231 indx := a0.next(indx);
232 end loop;
233 end if;
234 end if;
235 end rosetta_table_copy_in_p38;
236 procedure rosetta_table_copy_out_p38(t amv_user_pvt.amv_group_obj_varray, a0 out nocopy JTF_NUMBER_TABLE
237 , a1 out nocopy JTF_VARCHAR2_TABLE_100
238 , a2 out nocopy JTF_NUMBER_TABLE
239 , a3 out nocopy JTF_VARCHAR2_TABLE_300
240 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
241 , a5 out nocopy JTF_DATE_TABLE
242 , a6 out nocopy JTF_DATE_TABLE
243 ) as
244 ddindx binary_integer; indx binary_integer;
245 begin
246 if t is null then
247 a0 := null;
248 a1 := null;
249 a2 := null;
250 a3 := null;
251 a4 := null;
252 a5 := null;
253 a6 := null;
254 elsif t.count = 0 then
255 a0 := JTF_NUMBER_TABLE();
256 a1 := JTF_VARCHAR2_TABLE_100();
257 a2 := JTF_NUMBER_TABLE();
258 a3 := JTF_VARCHAR2_TABLE_300();
259 a4 := JTF_VARCHAR2_TABLE_2000();
260 a5 := JTF_DATE_TABLE();
261 a6 := JTF_DATE_TABLE();
262 else
263 a0 := JTF_NUMBER_TABLE();
264 a1 := JTF_VARCHAR2_TABLE_100();
265 a2 := JTF_NUMBER_TABLE();
266 a3 := JTF_VARCHAR2_TABLE_300();
267 a4 := JTF_VARCHAR2_TABLE_2000();
268 a5 := JTF_DATE_TABLE();
269 a6 := JTF_DATE_TABLE();
270 if t.count > 0 then
271 a0.extend(t.count);
272 a1.extend(t.count);
273 a2.extend(t.count);
274 a3.extend(t.count);
275 a4.extend(t.count);
276 a5.extend(t.count);
277 a6.extend(t.count);
278 ddindx := t.first;
279 indx := 1;
280 while true loop
281 a0(indx) := rosetta_g_miss_num_map(t(ddindx).group_id);
282 a1(indx) := t(ddindx).group_name;
283 a2(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
284 a3(indx) := t(ddindx).email_address;
285 a4(indx) := t(ddindx).description;
286 a5(indx) := t(ddindx).effective_start_date;
287 a6(indx) := t(ddindx).expiration_date;
288 indx := indx+1;
289 if t.last =ddindx
290 then exit;
291 end if;
292 ddindx := t.next(ddindx);
293 end loop;
294 end if;
295 end if;
296 end rosetta_table_copy_out_p38;
297
298 procedure rosetta_table_copy_in_p40(t out nocopy amv_user_pvt.amv_access_obj_varray, a0 JTF_NUMBER_TABLE
299 , a1 JTF_NUMBER_TABLE
300 , a2 JTF_VARCHAR2_TABLE_100
301 , a3 JTF_NUMBER_TABLE
302 , a4 JTF_NUMBER_TABLE
303 , a5 JTF_VARCHAR2_TABLE_100
304 , a6 JTF_DATE_TABLE
305 , a7 JTF_DATE_TABLE
306 , a8 JTF_VARCHAR2_TABLE_100
307 , a9 JTF_VARCHAR2_TABLE_100
308 , a10 JTF_VARCHAR2_TABLE_100
309 , a11 JTF_VARCHAR2_TABLE_100
310 , a12 JTF_VARCHAR2_TABLE_100
311 , a13 JTF_VARCHAR2_TABLE_100
312 , a14 JTF_VARCHAR2_TABLE_100
313 , a15 JTF_VARCHAR2_TABLE_100
314 ) as
315 ddindx binary_integer; indx binary_integer;
316 begin
317 if a0 is not null and a0.count=0 then
318 t := amv_user_pvt.amv_access_obj_varray();
319 elsif a0 is not null and a0.count > 0 then
320 if a0.count > 0 then
321 t := amv_user_pvt.amv_access_obj_varray();
322 t.extend(a0.count);
323 indx := a0.first;
324 ddindx := 1;
325 while true loop
326 t(ddindx).access_id := rosetta_g_miss_num_map(a0(indx));
327 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
328 t(ddindx).access_to_table_code := a2(indx);
329 t(ddindx).access_to_table_record_id := rosetta_g_miss_num_map(a3(indx));
330 t(ddindx).user_or_group_id := rosetta_g_miss_num_map(a4(indx));
331 t(ddindx).user_or_group_type := a5(indx);
332 t(ddindx).effective_start_date := rosetta_g_miss_date_in_map(a6(indx));
333 t(ddindx).expiration_date := rosetta_g_miss_date_in_map(a7(indx));
334 t(ddindx).can_view_flag := a8(indx);
335 t(ddindx).can_create_flag := a9(indx);
336 t(ddindx).can_delete_flag := a10(indx);
337 t(ddindx).can_update_flag := a11(indx);
338 t(ddindx).can_create_dist_rule_flag := a12(indx);
339 t(ddindx).chl_approver_flag := a13(indx);
340 t(ddindx).chl_required_flag := a14(indx);
341 t(ddindx).chl_required_need_notif_flag := a15(indx);
342 ddindx := ddindx+1;
343 if a0.last =indx
344 then exit;
345 end if;
346 indx := a0.next(indx);
347 end loop;
348 end if;
349 end if;
350 end rosetta_table_copy_in_p40;
351 procedure rosetta_table_copy_out_p40(t amv_user_pvt.amv_access_obj_varray, a0 out nocopy JTF_NUMBER_TABLE
352 , a1 out nocopy JTF_NUMBER_TABLE
353 , a2 out nocopy JTF_VARCHAR2_TABLE_100
354 , a3 out nocopy JTF_NUMBER_TABLE
355 , a4 out nocopy JTF_NUMBER_TABLE
356 , a5 out nocopy JTF_VARCHAR2_TABLE_100
357 , a6 out nocopy JTF_DATE_TABLE
358 , a7 out nocopy JTF_DATE_TABLE
359 , a8 out nocopy JTF_VARCHAR2_TABLE_100
360 , a9 out nocopy JTF_VARCHAR2_TABLE_100
361 , a10 out nocopy JTF_VARCHAR2_TABLE_100
362 , a11 out nocopy JTF_VARCHAR2_TABLE_100
363 , a12 out nocopy JTF_VARCHAR2_TABLE_100
364 , a13 out nocopy JTF_VARCHAR2_TABLE_100
365 , a14 out nocopy JTF_VARCHAR2_TABLE_100
366 , a15 out nocopy JTF_VARCHAR2_TABLE_100
367 ) as
368 ddindx binary_integer; indx binary_integer;
369 begin
370 if t is null then
371 a0 := null;
372 a1 := null;
373 a2 := null;
374 a3 := null;
375 a4 := null;
376 a5 := null;
377 a6 := null;
378 a7 := null;
379 a8 := null;
380 a9 := null;
381 a10 := null;
382 a11 := null;
383 a12 := null;
384 a13 := null;
385 a14 := null;
386 a15 := null;
387 elsif t.count = 0 then
388 a0 := JTF_NUMBER_TABLE();
389 a1 := JTF_NUMBER_TABLE();
390 a2 := JTF_VARCHAR2_TABLE_100();
391 a3 := JTF_NUMBER_TABLE();
392 a4 := JTF_NUMBER_TABLE();
393 a5 := JTF_VARCHAR2_TABLE_100();
394 a6 := JTF_DATE_TABLE();
395 a7 := JTF_DATE_TABLE();
396 a8 := JTF_VARCHAR2_TABLE_100();
397 a9 := JTF_VARCHAR2_TABLE_100();
398 a10 := JTF_VARCHAR2_TABLE_100();
399 a11 := JTF_VARCHAR2_TABLE_100();
400 a12 := JTF_VARCHAR2_TABLE_100();
401 a13 := JTF_VARCHAR2_TABLE_100();
402 a14 := JTF_VARCHAR2_TABLE_100();
403 a15 := JTF_VARCHAR2_TABLE_100();
404 else
405 a0 := JTF_NUMBER_TABLE();
406 a1 := JTF_NUMBER_TABLE();
407 a2 := JTF_VARCHAR2_TABLE_100();
408 a3 := JTF_NUMBER_TABLE();
409 a4 := JTF_NUMBER_TABLE();
410 a5 := JTF_VARCHAR2_TABLE_100();
411 a6 := JTF_DATE_TABLE();
412 a7 := JTF_DATE_TABLE();
413 a8 := JTF_VARCHAR2_TABLE_100();
414 a9 := JTF_VARCHAR2_TABLE_100();
415 a10 := JTF_VARCHAR2_TABLE_100();
416 a11 := JTF_VARCHAR2_TABLE_100();
417 a12 := JTF_VARCHAR2_TABLE_100();
418 a13 := JTF_VARCHAR2_TABLE_100();
419 a14 := JTF_VARCHAR2_TABLE_100();
420 a15 := JTF_VARCHAR2_TABLE_100();
421 if t.count > 0 then
422 a0.extend(t.count);
423 a1.extend(t.count);
424 a2.extend(t.count);
425 a3.extend(t.count);
426 a4.extend(t.count);
427 a5.extend(t.count);
428 a6.extend(t.count);
429 a7.extend(t.count);
430 a8.extend(t.count);
431 a9.extend(t.count);
432 a10.extend(t.count);
433 a11.extend(t.count);
434 a12.extend(t.count);
435 a13.extend(t.count);
436 a14.extend(t.count);
437 a15.extend(t.count);
438 ddindx := t.first;
439 indx := 1;
440 while true loop
441 a0(indx) := rosetta_g_miss_num_map(t(ddindx).access_id);
442 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
443 a2(indx) := t(ddindx).access_to_table_code;
444 a3(indx) := rosetta_g_miss_num_map(t(ddindx).access_to_table_record_id);
445 a4(indx) := rosetta_g_miss_num_map(t(ddindx).user_or_group_id);
446 a5(indx) := t(ddindx).user_or_group_type;
447 a6(indx) := t(ddindx).effective_start_date;
448 a7(indx) := t(ddindx).expiration_date;
449 a8(indx) := t(ddindx).can_view_flag;
450 a9(indx) := t(ddindx).can_create_flag;
451 a10(indx) := t(ddindx).can_delete_flag;
452 a11(indx) := t(ddindx).can_update_flag;
453 a12(indx) := t(ddindx).can_create_dist_rule_flag;
454 a13(indx) := t(ddindx).chl_approver_flag;
455 a14(indx) := t(ddindx).chl_required_flag;
456 a15(indx) := t(ddindx).chl_required_need_notif_flag;
457 indx := indx+1;
458 if t.last =ddindx
459 then exit;
460 end if;
461 ddindx := t.next(ddindx);
462 end loop;
463 end if;
464 end if;
465 end rosetta_table_copy_out_p40;
466
467 procedure find_resource(p_api_version NUMBER
468 , p_init_msg_list VARCHAR2
469 , p_validation_level NUMBER
470 , x_return_status out nocopy VARCHAR2
471 , x_msg_count out nocopy NUMBER
472 , x_msg_data out nocopy VARCHAR2
473 , p_check_login_user VARCHAR2
474 , p_group_id NUMBER
475 , p_check_effective_date VARCHAR2
476 , p_user_name VARCHAR2
477 , p_last_name VARCHAR2
478 , p_first_name VARCHAR2
479 , p13_a0 out nocopy NUMBER
480 , p13_a1 out nocopy NUMBER
481 , p13_a2 out nocopy NUMBER
482 , p14_a0 out nocopy JTF_NUMBER_TABLE
483 , p14_a1 out nocopy JTF_NUMBER_TABLE
484 , p14_a2 out nocopy JTF_VARCHAR2_TABLE_100
485 , p14_a3 out nocopy JTF_VARCHAR2_TABLE_100
486 , p14_a4 out nocopy JTF_VARCHAR2_TABLE_100
487 , p12_a0 NUMBER := 0-1962.0724
488 , p12_a1 NUMBER := 0-1962.0724
489 , p12_a2 VARCHAR2 := fnd_api.g_miss_char
490 )
491
492 as
493 ddp_subset_request_obj amv_user_pvt.amv_request_obj_type;
494 ddx_subset_return_obj amv_user_pvt.amv_return_obj_type;
495 ddx_resource_obj_array amv_user_pvt.amv_resource_obj_varray;
496 ddindx binary_integer; indx binary_integer;
497 begin
498
499 -- copy data to the local IN or IN-OUT args, if any
500
501
502
503
504
505
506
507
508
509
510
511
512 ddp_subset_request_obj.records_requested := rosetta_g_miss_num_map(p12_a0);
513 ddp_subset_request_obj.start_record_position := rosetta_g_miss_num_map(p12_a1);
514 ddp_subset_request_obj.return_total_count_flag := p12_a2;
515
516
517
518 -- here's the delegated call to the old PL/SQL routine
519 amv_user_pvt.find_resource(p_api_version,
520 p_init_msg_list,
521 p_validation_level,
522 x_return_status,
523 x_msg_count,
524 x_msg_data,
525 p_check_login_user,
526 p_group_id,
527 p_check_effective_date,
528 p_user_name,
529 p_last_name,
530 p_first_name,
531 ddp_subset_request_obj,
532 ddx_subset_return_obj,
533 ddx_resource_obj_array);
534
535 -- copy data back from the local variables to OUT or IN-OUT args, if any
536
537
538
539
540
541
542
543
544
545
546
547
548
549 p13_a0 := rosetta_g_miss_num_map(ddx_subset_return_obj.returned_record_count);
550 p13_a1 := rosetta_g_miss_num_map(ddx_subset_return_obj.next_record_position);
551 p13_a2 := rosetta_g_miss_num_map(ddx_subset_return_obj.total_record_count);
552
553 amv_user_pvt_w.rosetta_table_copy_out_p36(ddx_resource_obj_array, p14_a0
554 , p14_a1
555 , p14_a2
556 , p14_a3
557 , p14_a4
558 );
559 end;
560
561 procedure find_resource(p_api_version NUMBER
562 , p_init_msg_list VARCHAR2
563 , p_validation_level NUMBER
564 , x_return_status out nocopy VARCHAR2
565 , x_msg_count out nocopy NUMBER
566 , x_msg_data out nocopy VARCHAR2
567 , p_check_login_user VARCHAR2
568 , p_resource_id NUMBER
569 , p_resource_name VARCHAR2
570 , p10_a0 out nocopy NUMBER
571 , p10_a1 out nocopy NUMBER
572 , p10_a2 out nocopy NUMBER
573 , p11_a0 out nocopy JTF_NUMBER_TABLE
574 , p11_a1 out nocopy JTF_NUMBER_TABLE
575 , p11_a2 out nocopy JTF_VARCHAR2_TABLE_100
576 , p11_a3 out nocopy JTF_VARCHAR2_TABLE_100
577 , p11_a4 out nocopy JTF_VARCHAR2_TABLE_100
578 , x_role_code_varray out nocopy JTF_VARCHAR2_TABLE_4000
579 , p9_a0 NUMBER := 0-1962.0724
580 , p9_a1 NUMBER := 0-1962.0724
581 , p9_a2 VARCHAR2 := fnd_api.g_miss_char
582 )
583
584 as
585 ddp_subset_request_obj amv_user_pvt.amv_request_obj_type;
586 ddx_subset_return_obj amv_user_pvt.amv_return_obj_type;
587 ddx_resource_obj_array amv_user_pvt.amv_resource_obj_varray;
588 ddx_role_code_varray amv_user_pvt.amv_char_varray_type;
589 ddindx binary_integer; indx binary_integer;
590 begin
591
592 -- copy data to the local IN or IN-OUT args, if any
593
594
595
596
597
598
599
600
601
602 ddp_subset_request_obj.records_requested := rosetta_g_miss_num_map(p9_a0);
603 ddp_subset_request_obj.start_record_position := rosetta_g_miss_num_map(p9_a1);
604 ddp_subset_request_obj.return_total_count_flag := p9_a2;
605
606
607
608
609 -- here's the delegated call to the old PL/SQL routine
610 amv_user_pvt.find_resource(p_api_version,
611 p_init_msg_list,
612 p_validation_level,
613 x_return_status,
614 x_msg_count,
615 x_msg_data,
616 p_check_login_user,
617 p_resource_id,
618 p_resource_name,
619 ddp_subset_request_obj,
620 ddx_subset_return_obj,
621 ddx_resource_obj_array,
622 ddx_role_code_varray);
623
624 -- copy data back from the local variables to OUT or IN-OUT args, if any
625
626
627
628
629
630
631
632
633
634
635 p10_a0 := rosetta_g_miss_num_map(ddx_subset_return_obj.returned_record_count);
636 p10_a1 := rosetta_g_miss_num_map(ddx_subset_return_obj.next_record_position);
637 p10_a2 := rosetta_g_miss_num_map(ddx_subset_return_obj.total_record_count);
638
639 amv_user_pvt_w.rosetta_table_copy_out_p36(ddx_resource_obj_array, p11_a0
640 , p11_a1
641 , p11_a2
642 , p11_a3
643 , p11_a4
644 );
645
646 amv_user_pvt_w.rosetta_table_copy_out_p31(ddx_role_code_varray, x_role_code_varray);
647 end;
648
649 procedure add_resourcerole(p_api_version NUMBER
650 , p_init_msg_list VARCHAR2
651 , p_commit VARCHAR2
652 , p_validation_level NUMBER
653 , x_return_status out nocopy VARCHAR2
654 , x_msg_count out nocopy NUMBER
655 , x_msg_data out nocopy VARCHAR2
656 , p_check_login_user VARCHAR2
657 , p_resource_id NUMBER
658 , p_role_id_varray JTF_NUMBER_TABLE
659 )
660
661 as
662 ddp_role_id_varray amv_user_pvt.amv_number_varray_type;
663 ddindx binary_integer; indx binary_integer;
664 begin
665
666 -- copy data to the local IN or IN-OUT args, if any
667
668
669
670
671
672
673
674
675
676 amv_user_pvt_w.rosetta_table_copy_in_p32(ddp_role_id_varray, p_role_id_varray);
677
678 -- here's the delegated call to the old PL/SQL routine
679 amv_user_pvt.add_resourcerole(p_api_version,
680 p_init_msg_list,
681 p_commit,
682 p_validation_level,
683 x_return_status,
684 x_msg_count,
685 x_msg_data,
686 p_check_login_user,
687 p_resource_id,
688 ddp_role_id_varray);
689
690 -- copy data back from the local variables to OUT or IN-OUT args, if any
691
692
693
694
695
696
697
698
699
700 end;
701
702 procedure remove_resourcerole(p_api_version NUMBER
703 , p_init_msg_list VARCHAR2
704 , p_commit VARCHAR2
705 , p_validation_level NUMBER
706 , x_return_status out nocopy VARCHAR2
707 , x_msg_count out nocopy NUMBER
708 , x_msg_data out nocopy VARCHAR2
709 , p_check_login_user VARCHAR2
710 , p_resource_id NUMBER
711 , p_role_id_varray JTF_NUMBER_TABLE
712 )
713
714 as
715 ddp_role_id_varray amv_user_pvt.amv_number_varray_type;
716 ddindx binary_integer; indx binary_integer;
717 begin
718
719 -- copy data to the local IN or IN-OUT args, if any
720
721
722
723
724
725
726
727
728
729 amv_user_pvt_w.rosetta_table_copy_in_p32(ddp_role_id_varray, p_role_id_varray);
730
731 -- here's the delegated call to the old PL/SQL routine
732 amv_user_pvt.remove_resourcerole(p_api_version,
733 p_init_msg_list,
734 p_commit,
735 p_validation_level,
736 x_return_status,
737 x_msg_count,
738 x_msg_data,
739 p_check_login_user,
740 p_resource_id,
741 ddp_role_id_varray);
742
743 -- copy data back from the local variables to OUT or IN-OUT args, if any
744
745
746
747
748
749
750
751
752
753 end;
754
755 procedure replace_resourcerole(p_api_version NUMBER
756 , p_init_msg_list VARCHAR2
757 , p_commit VARCHAR2
758 , p_validation_level NUMBER
759 , x_return_status out nocopy VARCHAR2
760 , x_msg_count out nocopy NUMBER
761 , x_msg_data out nocopy VARCHAR2
762 , p_check_login_user VARCHAR2
763 , p_resource_id NUMBER
764 , p_role_id_varray JTF_NUMBER_TABLE
765 )
766
767 as
768 ddp_role_id_varray amv_user_pvt.amv_number_varray_type;
769 ddindx binary_integer; indx binary_integer;
770 begin
771
772 -- copy data to the local IN or IN-OUT args, if any
773
774
775
776
777
778
779
780
781
782 amv_user_pvt_w.rosetta_table_copy_in_p32(ddp_role_id_varray, p_role_id_varray);
783
784 -- here's the delegated call to the old PL/SQL routine
785 amv_user_pvt.replace_resourcerole(p_api_version,
786 p_init_msg_list,
787 p_commit,
788 p_validation_level,
789 x_return_status,
790 x_msg_count,
791 x_msg_data,
792 p_check_login_user,
793 p_resource_id,
794 ddp_role_id_varray);
795
796 -- copy data back from the local variables to OUT or IN-OUT args, if any
797
798
799
800
801
802
803
804
805
806 end;
807
808 procedure get_resourceroles(p_api_version NUMBER
809 , p_init_msg_list VARCHAR2
810 , p_validation_level NUMBER
811 , x_return_status out nocopy VARCHAR2
812 , x_msg_count out nocopy NUMBER
813 , x_msg_data out nocopy VARCHAR2
814 , p_check_login_user VARCHAR2
815 , p_resource_id NUMBER
816 , x_role_id_varray out nocopy JTF_NUMBER_TABLE
817 , x_role_code_varray out nocopy JTF_VARCHAR2_TABLE_4000
818 )
819
820 as
821 ddx_role_id_varray amv_user_pvt.amv_number_varray_type;
822 ddx_role_code_varray amv_user_pvt.amv_char_varray_type;
823 ddindx binary_integer; indx binary_integer;
824 begin
825
826 -- copy data to the local IN or IN-OUT args, if any
827
828
829
830
831
832
833
834
835
836
837 -- here's the delegated call to the old PL/SQL routine
838 amv_user_pvt.get_resourceroles(p_api_version,
839 p_init_msg_list,
840 p_validation_level,
841 x_return_status,
842 x_msg_count,
843 x_msg_data,
844 p_check_login_user,
845 p_resource_id,
846 ddx_role_id_varray,
847 ddx_role_code_varray);
848
849 -- copy data back from the local variables to OUT or IN-OUT args, if any
850
851
852
853
854
855
856
857
858 amv_user_pvt_w.rosetta_table_copy_out_p32(ddx_role_id_varray, x_role_id_varray);
859
860 amv_user_pvt_w.rosetta_table_copy_out_p31(ddx_role_code_varray, x_role_code_varray);
861 end;
862
863 procedure add_grouprole(p_api_version NUMBER
864 , p_init_msg_list VARCHAR2
865 , p_commit VARCHAR2
866 , p_validation_level NUMBER
867 , x_return_status out nocopy VARCHAR2
868 , x_msg_count out nocopy NUMBER
869 , x_msg_data out nocopy VARCHAR2
870 , p_check_login_user VARCHAR2
871 , p_group_id NUMBER
872 , p_role_id_varray JTF_NUMBER_TABLE
873 )
874
875 as
876 ddp_role_id_varray amv_user_pvt.amv_number_varray_type;
877 ddindx binary_integer; indx binary_integer;
878 begin
879
880 -- copy data to the local IN or IN-OUT args, if any
881
882
883
884
885
886
887
888
889
890 amv_user_pvt_w.rosetta_table_copy_in_p32(ddp_role_id_varray, p_role_id_varray);
891
892 -- here's the delegated call to the old PL/SQL routine
893 amv_user_pvt.add_grouprole(p_api_version,
894 p_init_msg_list,
895 p_commit,
896 p_validation_level,
897 x_return_status,
898 x_msg_count,
899 x_msg_data,
900 p_check_login_user,
901 p_group_id,
902 ddp_role_id_varray);
903
904 -- copy data back from the local variables to OUT or IN-OUT args, if any
905
906
907
908
909
910
911
912
913
914 end;
915
916 procedure remove_grouprole(p_api_version NUMBER
917 , p_init_msg_list VARCHAR2
918 , p_commit VARCHAR2
919 , p_validation_level NUMBER
920 , x_return_status out nocopy VARCHAR2
921 , x_msg_count out nocopy NUMBER
922 , x_msg_data out nocopy VARCHAR2
923 , p_check_login_user VARCHAR2
924 , p_group_id NUMBER
925 , p_role_id_varray JTF_NUMBER_TABLE
926 )
927
928 as
929 ddp_role_id_varray amv_user_pvt.amv_number_varray_type;
930 ddindx binary_integer; indx binary_integer;
931 begin
932
933 -- copy data to the local IN or IN-OUT args, if any
934
935
936
937
938
939
940
941
942
943 amv_user_pvt_w.rosetta_table_copy_in_p32(ddp_role_id_varray, p_role_id_varray);
944
945 -- here's the delegated call to the old PL/SQL routine
946 amv_user_pvt.remove_grouprole(p_api_version,
947 p_init_msg_list,
948 p_commit,
949 p_validation_level,
950 x_return_status,
951 x_msg_count,
952 x_msg_data,
953 p_check_login_user,
954 p_group_id,
955 ddp_role_id_varray);
956
957 -- copy data back from the local variables to OUT or IN-OUT args, if any
958
959
960
961
962
963
964
965
966
967 end;
968
969 procedure replace_grouprole(p_api_version NUMBER
970 , p_init_msg_list VARCHAR2
971 , p_commit VARCHAR2
972 , p_validation_level NUMBER
973 , x_return_status out nocopy VARCHAR2
974 , x_msg_count out nocopy NUMBER
975 , x_msg_data out nocopy VARCHAR2
976 , p_check_login_user VARCHAR2
977 , p_group_id NUMBER
978 , p_role_id_varray JTF_NUMBER_TABLE
979 )
980
981 as
982 ddp_role_id_varray amv_user_pvt.amv_number_varray_type;
983 ddindx binary_integer; indx binary_integer;
984 begin
985
986 -- copy data to the local IN or IN-OUT args, if any
987
988
989
990
991
992
993
994
995
996 amv_user_pvt_w.rosetta_table_copy_in_p32(ddp_role_id_varray, p_role_id_varray);
997
998 -- here's the delegated call to the old PL/SQL routine
999 amv_user_pvt.replace_grouprole(p_api_version,
1000 p_init_msg_list,
1001 p_commit,
1002 p_validation_level,
1003 x_return_status,
1004 x_msg_count,
1005 x_msg_data,
1006 p_check_login_user,
1007 p_group_id,
1008 ddp_role_id_varray);
1009
1010 -- copy data back from the local variables to OUT or IN-OUT args, if any
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020 end;
1021
1022 procedure get_grouproles(p_api_version NUMBER
1023 , p_init_msg_list VARCHAR2
1024 , p_validation_level NUMBER
1025 , x_return_status out nocopy VARCHAR2
1026 , x_msg_count out nocopy NUMBER
1027 , x_msg_data out nocopy VARCHAR2
1028 , p_check_login_user VARCHAR2
1029 , p_group_id NUMBER
1030 , p_check_effective_date VARCHAR2
1031 , x_role_id_varray out nocopy JTF_NUMBER_TABLE
1032 , x_role_code_varray out nocopy JTF_VARCHAR2_TABLE_4000
1033 )
1034
1035 as
1036 ddx_role_id_varray amv_user_pvt.amv_number_varray_type;
1037 ddx_role_code_varray amv_user_pvt.amv_char_varray_type;
1038 ddindx binary_integer; indx binary_integer;
1039 begin
1040
1041 -- copy data to the local IN or IN-OUT args, if any
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053 -- here's the delegated call to the old PL/SQL routine
1054 amv_user_pvt.get_grouproles(p_api_version,
1055 p_init_msg_list,
1056 p_validation_level,
1057 x_return_status,
1058 x_msg_count,
1059 x_msg_data,
1060 p_check_login_user,
1061 p_group_id,
1062 p_check_effective_date,
1063 ddx_role_id_varray,
1064 ddx_role_code_varray);
1065
1066 -- copy data back from the local variables to OUT or IN-OUT args, if any
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076 amv_user_pvt_w.rosetta_table_copy_out_p32(ddx_role_id_varray, x_role_id_varray);
1077
1078 amv_user_pvt_w.rosetta_table_copy_out_p31(ddx_role_code_varray, x_role_code_varray);
1079 end;
1080
1081 procedure add_group(p_api_version NUMBER
1082 , p_init_msg_list VARCHAR2
1083 , p_commit VARCHAR2
1084 , p_validation_level NUMBER
1085 , x_return_status out nocopy VARCHAR2
1086 , x_msg_count out nocopy NUMBER
1087 , x_msg_data out nocopy VARCHAR2
1088 , p_check_login_user VARCHAR2
1089 , p_group_name VARCHAR2
1090 , p_group_desc VARCHAR2
1091 , p_group_usage VARCHAR2
1092 , p_email_address VARCHAR2
1093 , p_start_date date
1094 , p_end_date date
1095 , x_group_id out nocopy NUMBER
1096 )
1097
1098 as
1099 ddp_start_date date;
1100 ddp_end_date date;
1101 ddindx binary_integer; indx binary_integer;
1102 begin
1103
1104 -- copy data to the local IN or IN-OUT args, if any
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117 ddp_start_date := rosetta_g_miss_date_in_map(p_start_date);
1118
1119 ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
1120
1121
1122 -- here's the delegated call to the old PL/SQL routine
1123 amv_user_pvt.add_group(p_api_version,
1124 p_init_msg_list,
1125 p_commit,
1126 p_validation_level,
1127 x_return_status,
1128 x_msg_count,
1129 x_msg_data,
1130 p_check_login_user,
1131 p_group_name,
1132 p_group_desc,
1133 p_group_usage,
1134 p_email_address,
1135 ddp_start_date,
1136 ddp_end_date,
1137 x_group_id);
1138
1139 -- copy data back from the local variables to OUT or IN-OUT args, if any
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154 end;
1155
1156 procedure update_group(p_api_version NUMBER
1157 , p_init_msg_list VARCHAR2
1158 , p_commit VARCHAR2
1159 , p_validation_level NUMBER
1160 , x_return_status out nocopy VARCHAR2
1161 , x_msg_count out nocopy NUMBER
1162 , x_msg_data out nocopy VARCHAR2
1163 , p_check_login_user VARCHAR2
1164 , p_group_id NUMBER
1165 , p_new_group_name VARCHAR2
1166 , p_new_group_desc VARCHAR2
1167 , p_group_usage VARCHAR2
1168 , p_email_address VARCHAR2
1169 , p_new_start_date date
1170 , p_new_end_date date
1171 )
1172
1173 as
1174 ddp_new_start_date date;
1175 ddp_new_end_date date;
1176 ddindx binary_integer; indx binary_integer;
1177 begin
1178
1179 -- copy data to the local IN or IN-OUT args, if any
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193 ddp_new_start_date := rosetta_g_miss_date_in_map(p_new_start_date);
1194
1195 ddp_new_end_date := rosetta_g_miss_date_in_map(p_new_end_date);
1196
1197 -- here's the delegated call to the old PL/SQL routine
1198 amv_user_pvt.update_group(p_api_version,
1199 p_init_msg_list,
1200 p_commit,
1201 p_validation_level,
1202 x_return_status,
1203 x_msg_count,
1204 x_msg_data,
1205 p_check_login_user,
1206 p_group_id,
1207 p_new_group_name,
1208 p_new_group_desc,
1209 p_group_usage,
1210 p_email_address,
1211 ddp_new_start_date,
1212 ddp_new_end_date);
1213
1214 -- copy data back from the local variables to OUT or IN-OUT args, if any
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229 end;
1230
1231 procedure get_group(p_api_version NUMBER
1232 , p_init_msg_list VARCHAR2
1233 , p_validation_level NUMBER
1234 , x_return_status out nocopy VARCHAR2
1235 , x_msg_count out nocopy NUMBER
1236 , x_msg_data out nocopy VARCHAR2
1237 , p_check_login_user VARCHAR2
1238 , p_group_id NUMBER
1239 , p8_a0 out nocopy NUMBER
1240 , p8_a1 out nocopy VARCHAR2
1241 , p8_a2 out nocopy NUMBER
1242 , p8_a3 out nocopy VARCHAR2
1243 , p8_a4 out nocopy VARCHAR2
1244 , p8_a5 out nocopy DATE
1245 , p8_a6 out nocopy DATE
1246 )
1247
1248 as
1249 ddx_group_obj amv_user_pvt.amv_group_obj_type;
1250 ddindx binary_integer; indx binary_integer;
1251 begin
1252
1253 -- copy data to the local IN or IN-OUT args, if any
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263 -- here's the delegated call to the old PL/SQL routine
1264 amv_user_pvt.get_group(p_api_version,
1265 p_init_msg_list,
1266 p_validation_level,
1267 x_return_status,
1268 x_msg_count,
1269 x_msg_data,
1270 p_check_login_user,
1271 p_group_id,
1272 ddx_group_obj);
1273
1274 -- copy data back from the local variables to OUT or IN-OUT args, if any
1275
1276
1277
1278
1279
1280
1281
1282
1283 p8_a0 := rosetta_g_miss_num_map(ddx_group_obj.group_id);
1284 p8_a1 := ddx_group_obj.group_name;
1285 p8_a2 := rosetta_g_miss_num_map(ddx_group_obj.object_version_number);
1286 p8_a3 := ddx_group_obj.email_address;
1287 p8_a4 := ddx_group_obj.description;
1288 p8_a5 := ddx_group_obj.effective_start_date;
1289 p8_a6 := ddx_group_obj.expiration_date;
1290 end;
1291
1292 procedure find_group(p_api_version NUMBER
1293 , p_init_msg_list VARCHAR2
1294 , p_validation_level NUMBER
1295 , x_return_status out nocopy VARCHAR2
1296 , x_msg_count out nocopy NUMBER
1297 , x_msg_data out nocopy VARCHAR2
1298 , p_check_login_user VARCHAR2
1299 , p_resource_id NUMBER
1300 , p_group_name VARCHAR2
1301 , p_group_desc VARCHAR2
1302 , p_group_email VARCHAR2
1303 , p_group_usage VARCHAR2
1304 , p13_a0 out nocopy NUMBER
1305 , p13_a1 out nocopy NUMBER
1306 , p13_a2 out nocopy NUMBER
1307 , p14_a0 out nocopy JTF_NUMBER_TABLE
1308 , p14_a1 out nocopy JTF_VARCHAR2_TABLE_100
1309 , p14_a2 out nocopy JTF_NUMBER_TABLE
1310 , p14_a3 out nocopy JTF_VARCHAR2_TABLE_300
1311 , p14_a4 out nocopy JTF_VARCHAR2_TABLE_2000
1312 , p14_a5 out nocopy JTF_DATE_TABLE
1313 , p14_a6 out nocopy JTF_DATE_TABLE
1314 , p12_a0 NUMBER := 0-1962.0724
1315 , p12_a1 NUMBER := 0-1962.0724
1316 , p12_a2 VARCHAR2 := fnd_api.g_miss_char
1317 )
1318
1319 as
1320 ddp_subset_request_obj amv_user_pvt.amv_request_obj_type;
1321 ddx_subset_return_obj amv_user_pvt.amv_return_obj_type;
1322 ddx_group_obj_array amv_user_pvt.amv_group_obj_varray;
1323 ddindx binary_integer; indx binary_integer;
1324 begin
1325
1326 -- copy data to the local IN or IN-OUT args, if any
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339 ddp_subset_request_obj.records_requested := rosetta_g_miss_num_map(p12_a0);
1340 ddp_subset_request_obj.start_record_position := rosetta_g_miss_num_map(p12_a1);
1341 ddp_subset_request_obj.return_total_count_flag := p12_a2;
1342
1343
1344
1345 -- here's the delegated call to the old PL/SQL routine
1346 amv_user_pvt.find_group(p_api_version,
1347 p_init_msg_list,
1348 p_validation_level,
1349 x_return_status,
1350 x_msg_count,
1351 x_msg_data,
1352 p_check_login_user,
1353 p_resource_id,
1354 p_group_name,
1355 p_group_desc,
1356 p_group_email,
1357 p_group_usage,
1358 ddp_subset_request_obj,
1359 ddx_subset_return_obj,
1360 ddx_group_obj_array);
1361
1362 -- copy data back from the local variables to OUT or IN-OUT args, if any
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376 p13_a0 := rosetta_g_miss_num_map(ddx_subset_return_obj.returned_record_count);
1377 p13_a1 := rosetta_g_miss_num_map(ddx_subset_return_obj.next_record_position);
1378 p13_a2 := rosetta_g_miss_num_map(ddx_subset_return_obj.total_record_count);
1379
1380 amv_user_pvt_w.rosetta_table_copy_out_p38(ddx_group_obj_array, p14_a0
1381 , p14_a1
1382 , p14_a2
1383 , p14_a3
1384 , p14_a4
1385 , p14_a5
1386 , p14_a6
1387 );
1388 end;
1389
1390 procedure find_group(p_api_version NUMBER
1391 , p_init_msg_list VARCHAR2
1392 , p_validation_level NUMBER
1393 , x_return_status out nocopy VARCHAR2
1394 , x_msg_count out nocopy NUMBER
1395 , x_msg_data out nocopy VARCHAR2
1396 , p_check_login_user VARCHAR2
1397 , p_group_id NUMBER
1398 , p_group_name VARCHAR2
1399 , p_group_usage VARCHAR2
1400 , p11_a0 out nocopy NUMBER
1401 , p11_a1 out nocopy NUMBER
1402 , p11_a2 out nocopy NUMBER
1403 , p12_a0 out nocopy JTF_NUMBER_TABLE
1404 , p12_a1 out nocopy JTF_VARCHAR2_TABLE_100
1405 , p12_a2 out nocopy JTF_NUMBER_TABLE
1406 , p12_a3 out nocopy JTF_VARCHAR2_TABLE_300
1407 , p12_a4 out nocopy JTF_VARCHAR2_TABLE_2000
1408 , p12_a5 out nocopy JTF_DATE_TABLE
1409 , p12_a6 out nocopy JTF_DATE_TABLE
1410 , x_role_code_varray out nocopy JTF_VARCHAR2_TABLE_4000
1411 , p10_a0 NUMBER := 0-1962.0724
1412 , p10_a1 NUMBER := 0-1962.0724
1413 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
1414 )
1415
1416 as
1417 ddp_subset_request_obj amv_user_pvt.amv_request_obj_type;
1418 ddx_subset_return_obj amv_user_pvt.amv_return_obj_type;
1419 ddx_group_obj_array amv_user_pvt.amv_group_obj_varray;
1420 ddx_role_code_varray amv_user_pvt.amv_char_varray_type;
1421 ddindx binary_integer; indx binary_integer;
1422 begin
1423
1424 -- copy data to the local IN or IN-OUT args, if any
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435 ddp_subset_request_obj.records_requested := rosetta_g_miss_num_map(p10_a0);
1436 ddp_subset_request_obj.start_record_position := rosetta_g_miss_num_map(p10_a1);
1437 ddp_subset_request_obj.return_total_count_flag := p10_a2;
1438
1439
1440
1441
1442 -- here's the delegated call to the old PL/SQL routine
1443 amv_user_pvt.find_group(p_api_version,
1444 p_init_msg_list,
1445 p_validation_level,
1446 x_return_status,
1447 x_msg_count,
1448 x_msg_data,
1449 p_check_login_user,
1450 p_group_id,
1451 p_group_name,
1452 p_group_usage,
1453 ddp_subset_request_obj,
1454 ddx_subset_return_obj,
1455 ddx_group_obj_array,
1456 ddx_role_code_varray);
1457
1458 -- copy data back from the local variables to OUT or IN-OUT args, if any
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470 p11_a0 := rosetta_g_miss_num_map(ddx_subset_return_obj.returned_record_count);
1471 p11_a1 := rosetta_g_miss_num_map(ddx_subset_return_obj.next_record_position);
1472 p11_a2 := rosetta_g_miss_num_map(ddx_subset_return_obj.total_record_count);
1473
1474 amv_user_pvt_w.rosetta_table_copy_out_p38(ddx_group_obj_array, p12_a0
1475 , p12_a1
1476 , p12_a2
1477 , p12_a3
1478 , p12_a4
1479 , p12_a5
1480 , p12_a6
1481 );
1482
1483 amv_user_pvt_w.rosetta_table_copy_out_p31(ddx_role_code_varray, x_role_code_varray);
1484 end;
1485
1486 procedure add_groupmember(p_api_version NUMBER
1487 , p_init_msg_list VARCHAR2
1488 , p_commit VARCHAR2
1489 , p_validation_level NUMBER
1490 , x_return_status out nocopy VARCHAR2
1491 , x_msg_count out nocopy NUMBER
1492 , x_msg_data out nocopy VARCHAR2
1493 , p_check_login_user VARCHAR2
1494 , p_group_id NUMBER
1495 , p_resource_id_varray JTF_NUMBER_TABLE
1496 )
1497
1498 as
1499 ddp_resource_id_varray amv_user_pvt.amv_number_varray_type;
1500 ddindx binary_integer; indx binary_integer;
1501 begin
1502
1503 -- copy data to the local IN or IN-OUT args, if any
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513 amv_user_pvt_w.rosetta_table_copy_in_p32(ddp_resource_id_varray, p_resource_id_varray);
1514
1515 -- here's the delegated call to the old PL/SQL routine
1516 amv_user_pvt.add_groupmember(p_api_version,
1517 p_init_msg_list,
1518 p_commit,
1519 p_validation_level,
1520 x_return_status,
1521 x_msg_count,
1522 x_msg_data,
1523 p_check_login_user,
1524 p_group_id,
1525 ddp_resource_id_varray);
1526
1527 -- copy data back from the local variables to OUT or IN-OUT args, if any
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537 end;
1538
1539 procedure remove_groupmember(p_api_version NUMBER
1540 , p_init_msg_list VARCHAR2
1541 , p_commit VARCHAR2
1542 , p_validation_level NUMBER
1543 , x_return_status out nocopy VARCHAR2
1544 , x_msg_count out nocopy NUMBER
1545 , x_msg_data out nocopy VARCHAR2
1546 , p_check_login_user VARCHAR2
1547 , p_group_id NUMBER
1548 , p_resource_id_varray JTF_NUMBER_TABLE
1549 )
1550
1551 as
1552 ddp_resource_id_varray amv_user_pvt.amv_number_varray_type;
1553 ddindx binary_integer; indx binary_integer;
1554 begin
1555
1556 -- copy data to the local IN or IN-OUT args, if any
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566 amv_user_pvt_w.rosetta_table_copy_in_p32(ddp_resource_id_varray, p_resource_id_varray);
1567
1568 -- here's the delegated call to the old PL/SQL routine
1569 amv_user_pvt.remove_groupmember(p_api_version,
1570 p_init_msg_list,
1571 p_commit,
1572 p_validation_level,
1573 x_return_status,
1574 x_msg_count,
1575 x_msg_data,
1576 p_check_login_user,
1577 p_group_id,
1578 ddp_resource_id_varray);
1579
1580 -- copy data back from the local variables to OUT or IN-OUT args, if any
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590 end;
1591
1592 procedure update_access(p_api_version NUMBER
1593 , p_init_msg_list VARCHAR2
1594 , p_commit VARCHAR2
1595 , p_validation_level NUMBER
1596 , x_return_status out nocopy VARCHAR2
1597 , x_msg_count out nocopy NUMBER
1598 , x_msg_data out nocopy VARCHAR2
1599 , p_check_login_user VARCHAR2
1600 , p8_a0 NUMBER := 0-1962.0724
1601 , p8_a1 NUMBER := 0-1962.0724
1602 , p8_a2 VARCHAR2 := fnd_api.g_miss_char
1603 , p8_a3 NUMBER := 0-1962.0724
1604 , p8_a4 NUMBER := 0-1962.0724
1605 , p8_a5 VARCHAR2 := fnd_api.g_miss_char
1606 , p8_a6 DATE := fnd_api.g_miss_date
1607 , p8_a7 DATE := fnd_api.g_miss_date
1608 , p8_a8 VARCHAR2 := fnd_api.g_miss_char
1609 , p8_a9 VARCHAR2 := fnd_api.g_miss_char
1610 , p8_a10 VARCHAR2 := fnd_api.g_miss_char
1611 , p8_a11 VARCHAR2 := fnd_api.g_miss_char
1612 , p8_a12 VARCHAR2 := fnd_api.g_miss_char
1613 , p8_a13 VARCHAR2 := fnd_api.g_miss_char
1614 , p8_a14 VARCHAR2 := fnd_api.g_miss_char
1615 , p8_a15 VARCHAR2 := fnd_api.g_miss_char
1616 )
1617
1618 as
1619 ddp_access_obj amv_user_pvt.amv_access_obj_type;
1620 ddindx binary_integer; indx binary_integer;
1621 begin
1622
1623 -- copy data to the local IN or IN-OUT args, if any
1624
1625
1626
1627
1628
1629
1630
1631
1632 ddp_access_obj.access_id := rosetta_g_miss_num_map(p8_a0);
1633 ddp_access_obj.object_version_number := rosetta_g_miss_num_map(p8_a1);
1634 ddp_access_obj.access_to_table_code := p8_a2;
1635 ddp_access_obj.access_to_table_record_id := rosetta_g_miss_num_map(p8_a3);
1636 ddp_access_obj.user_or_group_id := rosetta_g_miss_num_map(p8_a4);
1637 ddp_access_obj.user_or_group_type := p8_a5;
1638 ddp_access_obj.effective_start_date := rosetta_g_miss_date_in_map(p8_a6);
1639 ddp_access_obj.expiration_date := rosetta_g_miss_date_in_map(p8_a7);
1640 ddp_access_obj.can_view_flag := p8_a8;
1641 ddp_access_obj.can_create_flag := p8_a9;
1642 ddp_access_obj.can_delete_flag := p8_a10;
1643 ddp_access_obj.can_update_flag := p8_a11;
1644 ddp_access_obj.can_create_dist_rule_flag := p8_a12;
1645 ddp_access_obj.chl_approver_flag := p8_a13;
1646 ddp_access_obj.chl_required_flag := p8_a14;
1647 ddp_access_obj.chl_required_need_notif_flag := p8_a15;
1648
1649 -- here's the delegated call to the old PL/SQL routine
1650 amv_user_pvt.update_access(p_api_version,
1651 p_init_msg_list,
1652 p_commit,
1653 p_validation_level,
1654 x_return_status,
1655 x_msg_count,
1656 x_msg_data,
1657 p_check_login_user,
1658 ddp_access_obj);
1659
1660 -- copy data back from the local variables to OUT or IN-OUT args, if any
1661
1662
1663
1664
1665
1666
1667
1668
1669 end;
1670
1671 procedure update_access(p_api_version NUMBER
1672 , p_init_msg_list VARCHAR2
1673 , p_commit VARCHAR2
1674 , p_validation_level NUMBER
1675 , x_return_status out nocopy VARCHAR2
1676 , x_msg_count out nocopy NUMBER
1677 , x_msg_data out nocopy VARCHAR2
1678 , p_check_login_user VARCHAR2
1679 , p8_a0 JTF_NUMBER_TABLE
1680 , p8_a1 JTF_NUMBER_TABLE
1681 , p8_a2 JTF_VARCHAR2_TABLE_100
1682 , p8_a3 JTF_NUMBER_TABLE
1683 , p8_a4 JTF_NUMBER_TABLE
1684 , p8_a5 JTF_VARCHAR2_TABLE_100
1685 , p8_a6 JTF_DATE_TABLE
1686 , p8_a7 JTF_DATE_TABLE
1687 , p8_a8 JTF_VARCHAR2_TABLE_100
1688 , p8_a9 JTF_VARCHAR2_TABLE_100
1689 , p8_a10 JTF_VARCHAR2_TABLE_100
1690 , p8_a11 JTF_VARCHAR2_TABLE_100
1691 , p8_a12 JTF_VARCHAR2_TABLE_100
1692 , p8_a13 JTF_VARCHAR2_TABLE_100
1693 , p8_a14 JTF_VARCHAR2_TABLE_100
1694 , p8_a15 JTF_VARCHAR2_TABLE_100
1695 )
1696
1697 as
1698 ddp_access_obj_array amv_user_pvt.amv_access_obj_varray;
1699 ddindx binary_integer; indx binary_integer;
1700 begin
1701
1702 -- copy data to the local IN or IN-OUT args, if any
1703
1704
1705
1706
1707
1708
1709
1710
1711 amv_user_pvt_w.rosetta_table_copy_in_p40(ddp_access_obj_array, p8_a0
1712 , p8_a1
1713 , p8_a2
1714 , p8_a3
1715 , p8_a4
1716 , p8_a5
1717 , p8_a6
1718 , p8_a7
1719 , p8_a8
1720 , p8_a9
1721 , p8_a10
1722 , p8_a11
1723 , p8_a12
1724 , p8_a13
1725 , p8_a14
1726 , p8_a15
1727 );
1728
1729 -- here's the delegated call to the old PL/SQL routine
1730 amv_user_pvt.update_access(p_api_version,
1731 p_init_msg_list,
1732 p_commit,
1733 p_validation_level,
1734 x_return_status,
1735 x_msg_count,
1736 x_msg_data,
1737 p_check_login_user,
1738 ddp_access_obj_array);
1739
1740 -- copy data back from the local variables to OUT or IN-OUT args, if any
1741
1742
1743
1744
1745
1746
1747
1748
1749 end;
1750
1751 procedure update_resourceapplaccess(p_api_version NUMBER
1752 , p_init_msg_list VARCHAR2
1753 , p_commit VARCHAR2
1754 , p_validation_level NUMBER
1755 , x_return_status out nocopy VARCHAR2
1756 , x_msg_count out nocopy NUMBER
1757 , x_msg_data out nocopy VARCHAR2
1758 , p_check_login_user VARCHAR2
1759 , p_resource_id NUMBER
1760 , p_application_id NUMBER
1761 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
1762 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
1763 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
1764 , p10_a3 VARCHAR2 := fnd_api.g_miss_char
1765 , p10_a4 VARCHAR2 := fnd_api.g_miss_char
1766 , p10_a5 VARCHAR2 := fnd_api.g_miss_char
1767 , p10_a6 VARCHAR2 := fnd_api.g_miss_char
1768 , p10_a7 VARCHAR2 := fnd_api.g_miss_char
1769 )
1770
1771 as
1772 ddp_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
1773 ddindx binary_integer; indx binary_integer;
1774 begin
1775
1776 -- copy data to the local IN or IN-OUT args, if any
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787 ddp_access_flag_obj.can_view_flag := p10_a0;
1788 ddp_access_flag_obj.can_create_flag := p10_a1;
1789 ddp_access_flag_obj.can_delete_flag := p10_a2;
1790 ddp_access_flag_obj.can_update_flag := p10_a3;
1791 ddp_access_flag_obj.can_create_dist_rule_flag := p10_a4;
1792 ddp_access_flag_obj.chl_approver_flag := p10_a5;
1793 ddp_access_flag_obj.chl_required_flag := p10_a6;
1794 ddp_access_flag_obj.chl_required_need_notif_flag := p10_a7;
1795
1796 -- here's the delegated call to the old PL/SQL routine
1797 amv_user_pvt.update_resourceapplaccess(p_api_version,
1798 p_init_msg_list,
1799 p_commit,
1800 p_validation_level,
1801 x_return_status,
1802 x_msg_count,
1803 x_msg_data,
1804 p_check_login_user,
1805 p_resource_id,
1806 p_application_id,
1807 ddp_access_flag_obj);
1808
1809 -- copy data back from the local variables to OUT or IN-OUT args, if any
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820 end;
1821
1822 procedure update_resourcechanaccess(p_api_version NUMBER
1823 , p_init_msg_list VARCHAR2
1824 , p_commit VARCHAR2
1825 , p_validation_level NUMBER
1826 , x_return_status out nocopy VARCHAR2
1827 , x_msg_count out nocopy NUMBER
1828 , x_msg_data out nocopy VARCHAR2
1829 , p_check_login_user VARCHAR2
1830 , p_resource_id NUMBER
1831 , p_channel_id NUMBER
1832 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
1833 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
1834 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
1835 , p10_a3 VARCHAR2 := fnd_api.g_miss_char
1836 , p10_a4 VARCHAR2 := fnd_api.g_miss_char
1837 , p10_a5 VARCHAR2 := fnd_api.g_miss_char
1838 , p10_a6 VARCHAR2 := fnd_api.g_miss_char
1839 , p10_a7 VARCHAR2 := fnd_api.g_miss_char
1840 )
1841
1842 as
1843 ddp_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
1844 ddindx binary_integer; indx binary_integer;
1845 begin
1846
1847 -- copy data to the local IN or IN-OUT args, if any
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858 ddp_access_flag_obj.can_view_flag := p10_a0;
1859 ddp_access_flag_obj.can_create_flag := p10_a1;
1860 ddp_access_flag_obj.can_delete_flag := p10_a2;
1861 ddp_access_flag_obj.can_update_flag := p10_a3;
1862 ddp_access_flag_obj.can_create_dist_rule_flag := p10_a4;
1863 ddp_access_flag_obj.chl_approver_flag := p10_a5;
1864 ddp_access_flag_obj.chl_required_flag := p10_a6;
1865 ddp_access_flag_obj.chl_required_need_notif_flag := p10_a7;
1866
1867 -- here's the delegated call to the old PL/SQL routine
1868 amv_user_pvt.update_resourcechanaccess(p_api_version,
1869 p_init_msg_list,
1870 p_commit,
1871 p_validation_level,
1872 x_return_status,
1873 x_msg_count,
1874 x_msg_data,
1875 p_check_login_user,
1876 p_resource_id,
1877 p_channel_id,
1878 ddp_access_flag_obj);
1879
1880 -- copy data back from the local variables to OUT or IN-OUT args, if any
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891 end;
1892
1893 procedure update_resourcecateaccess(p_api_version NUMBER
1894 , p_init_msg_list VARCHAR2
1895 , p_commit VARCHAR2
1896 , p_validation_level NUMBER
1897 , x_return_status out nocopy VARCHAR2
1898 , x_msg_count out nocopy NUMBER
1899 , x_msg_data out nocopy VARCHAR2
1900 , p_check_login_user VARCHAR2
1901 , p_resource_id NUMBER
1902 , p_category_id NUMBER
1903 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
1904 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
1905 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
1906 , p10_a3 VARCHAR2 := fnd_api.g_miss_char
1907 , p10_a4 VARCHAR2 := fnd_api.g_miss_char
1908 , p10_a5 VARCHAR2 := fnd_api.g_miss_char
1909 , p10_a6 VARCHAR2 := fnd_api.g_miss_char
1910 , p10_a7 VARCHAR2 := fnd_api.g_miss_char
1911 )
1912
1913 as
1914 ddp_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
1915 ddindx binary_integer; indx binary_integer;
1916 begin
1917
1918 -- copy data to the local IN or IN-OUT args, if any
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929 ddp_access_flag_obj.can_view_flag := p10_a0;
1930 ddp_access_flag_obj.can_create_flag := p10_a1;
1931 ddp_access_flag_obj.can_delete_flag := p10_a2;
1932 ddp_access_flag_obj.can_update_flag := p10_a3;
1933 ddp_access_flag_obj.can_create_dist_rule_flag := p10_a4;
1934 ddp_access_flag_obj.chl_approver_flag := p10_a5;
1935 ddp_access_flag_obj.chl_required_flag := p10_a6;
1936 ddp_access_flag_obj.chl_required_need_notif_flag := p10_a7;
1937
1938 -- here's the delegated call to the old PL/SQL routine
1939 amv_user_pvt.update_resourcecateaccess(p_api_version,
1940 p_init_msg_list,
1941 p_commit,
1942 p_validation_level,
1943 x_return_status,
1944 x_msg_count,
1945 x_msg_data,
1946 p_check_login_user,
1947 p_resource_id,
1948 p_category_id,
1949 ddp_access_flag_obj);
1950
1951 -- copy data back from the local variables to OUT or IN-OUT args, if any
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962 end;
1963
1964 procedure update_resourceitemaccess(p_api_version NUMBER
1965 , p_init_msg_list VARCHAR2
1966 , p_commit VARCHAR2
1967 , p_validation_level NUMBER
1968 , x_return_status out nocopy VARCHAR2
1969 , x_msg_count out nocopy NUMBER
1970 , x_msg_data out nocopy VARCHAR2
1971 , p_check_login_user VARCHAR2
1972 , p_resource_id NUMBER
1973 , p_item_id NUMBER
1974 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
1975 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
1976 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
1977 , p10_a3 VARCHAR2 := fnd_api.g_miss_char
1978 , p10_a4 VARCHAR2 := fnd_api.g_miss_char
1979 , p10_a5 VARCHAR2 := fnd_api.g_miss_char
1980 , p10_a6 VARCHAR2 := fnd_api.g_miss_char
1981 , p10_a7 VARCHAR2 := fnd_api.g_miss_char
1982 )
1983
1984 as
1985 ddp_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
1986 ddindx binary_integer; indx binary_integer;
1987 begin
1988
1989 -- copy data to the local IN or IN-OUT args, if any
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000 ddp_access_flag_obj.can_view_flag := p10_a0;
2001 ddp_access_flag_obj.can_create_flag := p10_a1;
2002 ddp_access_flag_obj.can_delete_flag := p10_a2;
2003 ddp_access_flag_obj.can_update_flag := p10_a3;
2004 ddp_access_flag_obj.can_create_dist_rule_flag := p10_a4;
2005 ddp_access_flag_obj.chl_approver_flag := p10_a5;
2006 ddp_access_flag_obj.chl_required_flag := p10_a6;
2007 ddp_access_flag_obj.chl_required_need_notif_flag := p10_a7;
2008
2009 -- here's the delegated call to the old PL/SQL routine
2010 amv_user_pvt.update_resourceitemaccess(p_api_version,
2011 p_init_msg_list,
2012 p_commit,
2013 p_validation_level,
2014 x_return_status,
2015 x_msg_count,
2016 x_msg_data,
2017 p_check_login_user,
2018 p_resource_id,
2019 p_item_id,
2020 ddp_access_flag_obj);
2021
2022 -- copy data back from the local variables to OUT or IN-OUT args, if any
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033 end;
2034
2035 procedure update_groupapplaccess(p_api_version NUMBER
2036 , p_init_msg_list VARCHAR2
2037 , p_commit VARCHAR2
2038 , p_validation_level NUMBER
2039 , x_return_status out nocopy VARCHAR2
2040 , x_msg_count out nocopy NUMBER
2041 , x_msg_data out nocopy VARCHAR2
2042 , p_check_login_user VARCHAR2
2043 , p_resource_id NUMBER
2044 , p_group_id NUMBER
2045 , p_application_id NUMBER
2046 , p11_a0 VARCHAR2 := fnd_api.g_miss_char
2047 , p11_a1 VARCHAR2 := fnd_api.g_miss_char
2048 , p11_a2 VARCHAR2 := fnd_api.g_miss_char
2049 , p11_a3 VARCHAR2 := fnd_api.g_miss_char
2050 , p11_a4 VARCHAR2 := fnd_api.g_miss_char
2051 , p11_a5 VARCHAR2 := fnd_api.g_miss_char
2052 , p11_a6 VARCHAR2 := fnd_api.g_miss_char
2053 , p11_a7 VARCHAR2 := fnd_api.g_miss_char
2054 )
2055
2056 as
2057 ddp_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2058 ddindx binary_integer; indx binary_integer;
2059 begin
2060
2061 -- copy data to the local IN or IN-OUT args, if any
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073 ddp_access_flag_obj.can_view_flag := p11_a0;
2074 ddp_access_flag_obj.can_create_flag := p11_a1;
2075 ddp_access_flag_obj.can_delete_flag := p11_a2;
2076 ddp_access_flag_obj.can_update_flag := p11_a3;
2077 ddp_access_flag_obj.can_create_dist_rule_flag := p11_a4;
2078 ddp_access_flag_obj.chl_approver_flag := p11_a5;
2079 ddp_access_flag_obj.chl_required_flag := p11_a6;
2080 ddp_access_flag_obj.chl_required_need_notif_flag := p11_a7;
2081
2082 -- here's the delegated call to the old PL/SQL routine
2083 amv_user_pvt.update_groupapplaccess(p_api_version,
2084 p_init_msg_list,
2085 p_commit,
2086 p_validation_level,
2087 x_return_status,
2088 x_msg_count,
2089 x_msg_data,
2090 p_check_login_user,
2091 p_resource_id,
2092 p_group_id,
2093 p_application_id,
2094 ddp_access_flag_obj);
2095
2096 -- copy data back from the local variables to OUT or IN-OUT args, if any
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108 end;
2109
2110 procedure update_groupchanaccess(p_api_version NUMBER
2111 , p_init_msg_list VARCHAR2
2112 , p_commit VARCHAR2
2113 , p_validation_level NUMBER
2114 , x_return_status out nocopy VARCHAR2
2115 , x_msg_count out nocopy NUMBER
2116 , x_msg_data out nocopy VARCHAR2
2117 , p_check_login_user VARCHAR2
2118 , p_group_id NUMBER
2119 , p_channel_id NUMBER
2120 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
2121 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
2122 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
2123 , p10_a3 VARCHAR2 := fnd_api.g_miss_char
2124 , p10_a4 VARCHAR2 := fnd_api.g_miss_char
2125 , p10_a5 VARCHAR2 := fnd_api.g_miss_char
2126 , p10_a6 VARCHAR2 := fnd_api.g_miss_char
2127 , p10_a7 VARCHAR2 := fnd_api.g_miss_char
2128 )
2129
2130 as
2131 ddp_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2132 ddindx binary_integer; indx binary_integer;
2133 begin
2134
2135 -- copy data to the local IN or IN-OUT args, if any
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146 ddp_access_flag_obj.can_view_flag := p10_a0;
2147 ddp_access_flag_obj.can_create_flag := p10_a1;
2148 ddp_access_flag_obj.can_delete_flag := p10_a2;
2149 ddp_access_flag_obj.can_update_flag := p10_a3;
2150 ddp_access_flag_obj.can_create_dist_rule_flag := p10_a4;
2151 ddp_access_flag_obj.chl_approver_flag := p10_a5;
2152 ddp_access_flag_obj.chl_required_flag := p10_a6;
2153 ddp_access_flag_obj.chl_required_need_notif_flag := p10_a7;
2154
2155 -- here's the delegated call to the old PL/SQL routine
2156 amv_user_pvt.update_groupchanaccess(p_api_version,
2157 p_init_msg_list,
2158 p_commit,
2159 p_validation_level,
2160 x_return_status,
2161 x_msg_count,
2162 x_msg_data,
2163 p_check_login_user,
2164 p_group_id,
2165 p_channel_id,
2166 ddp_access_flag_obj);
2167
2168 -- copy data back from the local variables to OUT or IN-OUT args, if any
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179 end;
2180
2181 procedure update_groupcateaccess(p_api_version NUMBER
2182 , p_init_msg_list VARCHAR2
2183 , p_commit VARCHAR2
2184 , p_validation_level NUMBER
2185 , x_return_status out nocopy VARCHAR2
2186 , x_msg_count out nocopy NUMBER
2187 , x_msg_data out nocopy VARCHAR2
2188 , p_check_login_user VARCHAR2
2189 , p_group_id NUMBER
2190 , p_category_id NUMBER
2191 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
2192 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
2193 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
2194 , p10_a3 VARCHAR2 := fnd_api.g_miss_char
2195 , p10_a4 VARCHAR2 := fnd_api.g_miss_char
2196 , p10_a5 VARCHAR2 := fnd_api.g_miss_char
2197 , p10_a6 VARCHAR2 := fnd_api.g_miss_char
2198 , p10_a7 VARCHAR2 := fnd_api.g_miss_char
2199 )
2200
2201 as
2202 ddp_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2203 ddindx binary_integer; indx binary_integer;
2204 begin
2205
2206 -- copy data to the local IN or IN-OUT args, if any
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217 ddp_access_flag_obj.can_view_flag := p10_a0;
2218 ddp_access_flag_obj.can_create_flag := p10_a1;
2219 ddp_access_flag_obj.can_delete_flag := p10_a2;
2220 ddp_access_flag_obj.can_update_flag := p10_a3;
2221 ddp_access_flag_obj.can_create_dist_rule_flag := p10_a4;
2222 ddp_access_flag_obj.chl_approver_flag := p10_a5;
2223 ddp_access_flag_obj.chl_required_flag := p10_a6;
2224 ddp_access_flag_obj.chl_required_need_notif_flag := p10_a7;
2225
2226 -- here's the delegated call to the old PL/SQL routine
2227 amv_user_pvt.update_groupcateaccess(p_api_version,
2228 p_init_msg_list,
2229 p_commit,
2230 p_validation_level,
2231 x_return_status,
2232 x_msg_count,
2233 x_msg_data,
2234 p_check_login_user,
2235 p_group_id,
2236 p_category_id,
2237 ddp_access_flag_obj);
2238
2239 -- copy data back from the local variables to OUT or IN-OUT args, if any
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250 end;
2251
2252 procedure update_groupitemaccess(p_api_version NUMBER
2253 , p_init_msg_list VARCHAR2
2254 , p_commit VARCHAR2
2255 , p_validation_level NUMBER
2256 , x_return_status out nocopy VARCHAR2
2257 , x_msg_count out nocopy NUMBER
2258 , x_msg_data out nocopy VARCHAR2
2259 , p_check_login_user VARCHAR2
2260 , p_group_id NUMBER
2261 , p_item_id NUMBER
2262 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
2263 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
2264 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
2265 , p10_a3 VARCHAR2 := fnd_api.g_miss_char
2266 , p10_a4 VARCHAR2 := fnd_api.g_miss_char
2267 , p10_a5 VARCHAR2 := fnd_api.g_miss_char
2268 , p10_a6 VARCHAR2 := fnd_api.g_miss_char
2269 , p10_a7 VARCHAR2 := fnd_api.g_miss_char
2270 )
2271
2272 as
2273 ddp_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2274 ddindx binary_integer; indx binary_integer;
2275 begin
2276
2277 -- copy data to the local IN or IN-OUT args, if any
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288 ddp_access_flag_obj.can_view_flag := p10_a0;
2289 ddp_access_flag_obj.can_create_flag := p10_a1;
2290 ddp_access_flag_obj.can_delete_flag := p10_a2;
2291 ddp_access_flag_obj.can_update_flag := p10_a3;
2292 ddp_access_flag_obj.can_create_dist_rule_flag := p10_a4;
2293 ddp_access_flag_obj.chl_approver_flag := p10_a5;
2294 ddp_access_flag_obj.chl_required_flag := p10_a6;
2295 ddp_access_flag_obj.chl_required_need_notif_flag := p10_a7;
2296
2297 -- here's the delegated call to the old PL/SQL routine
2298 amv_user_pvt.update_groupitemaccess(p_api_version,
2299 p_init_msg_list,
2300 p_commit,
2301 p_validation_level,
2302 x_return_status,
2303 x_msg_count,
2304 x_msg_data,
2305 p_check_login_user,
2306 p_group_id,
2307 p_item_id,
2308 ddp_access_flag_obj);
2309
2310 -- copy data back from the local variables to OUT or IN-OUT args, if any
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321 end;
2322
2323 procedure get_businessobjectaccess(p_api_version NUMBER
2324 , p_init_msg_list VARCHAR2
2325 , p_validation_level NUMBER
2326 , x_return_status out nocopy VARCHAR2
2327 , x_msg_count out nocopy NUMBER
2328 , x_msg_data out nocopy VARCHAR2
2329 , p_check_login_user VARCHAR2
2330 , p_user_or_group_id NUMBER
2331 , p_user_or_group_type VARCHAR2
2332 , p_business_object_id NUMBER
2333 , p_business_object_type VARCHAR2
2334 , p11_a0 out nocopy NUMBER
2335 , p11_a1 out nocopy NUMBER
2336 , p11_a2 out nocopy VARCHAR2
2337 , p11_a3 out nocopy NUMBER
2338 , p11_a4 out nocopy NUMBER
2339 , p11_a5 out nocopy VARCHAR2
2340 , p11_a6 out nocopy DATE
2341 , p11_a7 out nocopy DATE
2342 , p11_a8 out nocopy VARCHAR2
2343 , p11_a9 out nocopy VARCHAR2
2344 , p11_a10 out nocopy VARCHAR2
2345 , p11_a11 out nocopy VARCHAR2
2346 , p11_a12 out nocopy VARCHAR2
2347 , p11_a13 out nocopy VARCHAR2
2348 , p11_a14 out nocopy VARCHAR2
2349 , p11_a15 out nocopy VARCHAR2
2350 )
2351
2352 as
2353 ddx_access_obj amv_user_pvt.amv_access_obj_type;
2354 ddindx binary_integer; indx binary_integer;
2355 begin
2356
2357 -- copy data to the local IN or IN-OUT args, if any
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370 -- here's the delegated call to the old PL/SQL routine
2371 amv_user_pvt.get_businessobjectaccess(p_api_version,
2372 p_init_msg_list,
2373 p_validation_level,
2374 x_return_status,
2375 x_msg_count,
2376 x_msg_data,
2377 p_check_login_user,
2378 p_user_or_group_id,
2379 p_user_or_group_type,
2380 p_business_object_id,
2381 p_business_object_type,
2382 ddx_access_obj);
2383
2384 -- copy data back from the local variables to OUT or IN-OUT args, if any
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396 p11_a0 := rosetta_g_miss_num_map(ddx_access_obj.access_id);
2397 p11_a1 := rosetta_g_miss_num_map(ddx_access_obj.object_version_number);
2398 p11_a2 := ddx_access_obj.access_to_table_code;
2399 p11_a3 := rosetta_g_miss_num_map(ddx_access_obj.access_to_table_record_id);
2400 p11_a4 := rosetta_g_miss_num_map(ddx_access_obj.user_or_group_id);
2401 p11_a5 := ddx_access_obj.user_or_group_type;
2402 p11_a6 := ddx_access_obj.effective_start_date;
2403 p11_a7 := ddx_access_obj.expiration_date;
2404 p11_a8 := ddx_access_obj.can_view_flag;
2405 p11_a9 := ddx_access_obj.can_create_flag;
2406 p11_a10 := ddx_access_obj.can_delete_flag;
2407 p11_a11 := ddx_access_obj.can_update_flag;
2408 p11_a12 := ddx_access_obj.can_create_dist_rule_flag;
2409 p11_a13 := ddx_access_obj.chl_approver_flag;
2410 p11_a14 := ddx_access_obj.chl_required_flag;
2411 p11_a15 := ddx_access_obj.chl_required_need_notif_flag;
2412 end;
2413
2414 procedure get_channelaccess(p_api_version NUMBER
2415 , p_init_msg_list VARCHAR2
2416 , p_validation_level NUMBER
2417 , x_return_status out nocopy VARCHAR2
2418 , x_msg_count out nocopy NUMBER
2419 , x_msg_data out nocopy VARCHAR2
2420 , p_check_login_user VARCHAR2
2421 , p_user_or_group_id NUMBER
2422 , p_user_or_group_type VARCHAR2
2423 , x_channel_name_varray out nocopy JTF_VARCHAR2_TABLE_4000
2424 , p10_a0 out nocopy JTF_NUMBER_TABLE
2425 , p10_a1 out nocopy JTF_NUMBER_TABLE
2426 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_100
2427 , p10_a3 out nocopy JTF_NUMBER_TABLE
2428 , p10_a4 out nocopy JTF_NUMBER_TABLE
2429 , p10_a5 out nocopy JTF_VARCHAR2_TABLE_100
2430 , p10_a6 out nocopy JTF_DATE_TABLE
2431 , p10_a7 out nocopy JTF_DATE_TABLE
2432 , p10_a8 out nocopy JTF_VARCHAR2_TABLE_100
2433 , p10_a9 out nocopy JTF_VARCHAR2_TABLE_100
2434 , p10_a10 out nocopy JTF_VARCHAR2_TABLE_100
2435 , p10_a11 out nocopy JTF_VARCHAR2_TABLE_100
2436 , p10_a12 out nocopy JTF_VARCHAR2_TABLE_100
2437 , p10_a13 out nocopy JTF_VARCHAR2_TABLE_100
2438 , p10_a14 out nocopy JTF_VARCHAR2_TABLE_100
2439 , p10_a15 out nocopy JTF_VARCHAR2_TABLE_100
2440 )
2441
2442 as
2443 ddx_channel_name_varray amv_user_pvt.amv_char_varray_type;
2444 ddx_access_obj_varray amv_user_pvt.amv_access_obj_varray;
2445 ddindx binary_integer; indx binary_integer;
2446 begin
2447
2448 -- copy data to the local IN or IN-OUT args, if any
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460 -- here's the delegated call to the old PL/SQL routine
2461 amv_user_pvt.get_channelaccess(p_api_version,
2462 p_init_msg_list,
2463 p_validation_level,
2464 x_return_status,
2465 x_msg_count,
2466 x_msg_data,
2467 p_check_login_user,
2468 p_user_or_group_id,
2469 p_user_or_group_type,
2470 ddx_channel_name_varray,
2471 ddx_access_obj_varray);
2472
2473 -- copy data back from the local variables to OUT or IN-OUT args, if any
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483 amv_user_pvt_w.rosetta_table_copy_out_p31(ddx_channel_name_varray, x_channel_name_varray);
2484
2485 amv_user_pvt_w.rosetta_table_copy_out_p40(ddx_access_obj_varray, p10_a0
2486 , p10_a1
2487 , p10_a2
2488 , p10_a3
2489 , p10_a4
2490 , p10_a5
2491 , p10_a6
2492 , p10_a7
2493 , p10_a8
2494 , p10_a9
2495 , p10_a10
2496 , p10_a11
2497 , p10_a12
2498 , p10_a13
2499 , p10_a14
2500 , p10_a15
2501 );
2502 end;
2503
2504 procedure get_accessperchannel(p_api_version NUMBER
2505 , p_init_msg_list VARCHAR2
2506 , p_validation_level NUMBER
2507 , x_return_status out nocopy VARCHAR2
2508 , x_msg_count out nocopy NUMBER
2509 , x_msg_data out nocopy VARCHAR2
2510 , p_check_login_user VARCHAR2
2511 , p_channel_id NUMBER
2512 , p_user_or_group_type VARCHAR2
2513 , x_name_varray out nocopy JTF_VARCHAR2_TABLE_4000
2514 , p10_a0 out nocopy JTF_NUMBER_TABLE
2515 , p10_a1 out nocopy JTF_NUMBER_TABLE
2516 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_100
2517 , p10_a3 out nocopy JTF_NUMBER_TABLE
2518 , p10_a4 out nocopy JTF_NUMBER_TABLE
2519 , p10_a5 out nocopy JTF_VARCHAR2_TABLE_100
2520 , p10_a6 out nocopy JTF_DATE_TABLE
2521 , p10_a7 out nocopy JTF_DATE_TABLE
2522 , p10_a8 out nocopy JTF_VARCHAR2_TABLE_100
2523 , p10_a9 out nocopy JTF_VARCHAR2_TABLE_100
2524 , p10_a10 out nocopy JTF_VARCHAR2_TABLE_100
2525 , p10_a11 out nocopy JTF_VARCHAR2_TABLE_100
2526 , p10_a12 out nocopy JTF_VARCHAR2_TABLE_100
2527 , p10_a13 out nocopy JTF_VARCHAR2_TABLE_100
2528 , p10_a14 out nocopy JTF_VARCHAR2_TABLE_100
2529 , p10_a15 out nocopy JTF_VARCHAR2_TABLE_100
2530 )
2531
2532 as
2533 ddx_name_varray amv_user_pvt.amv_char_varray_type;
2534 ddx_access_obj_varray amv_user_pvt.amv_access_obj_varray;
2535 ddindx binary_integer; indx binary_integer;
2536 begin
2537
2538 -- copy data to the local IN or IN-OUT args, if any
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550 -- here's the delegated call to the old PL/SQL routine
2551 amv_user_pvt.get_accessperchannel(p_api_version,
2552 p_init_msg_list,
2553 p_validation_level,
2554 x_return_status,
2555 x_msg_count,
2556 x_msg_data,
2557 p_check_login_user,
2558 p_channel_id,
2559 p_user_or_group_type,
2560 ddx_name_varray,
2561 ddx_access_obj_varray);
2562
2563 -- copy data back from the local variables to OUT or IN-OUT args, if any
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573 amv_user_pvt_w.rosetta_table_copy_out_p31(ddx_name_varray, x_name_varray);
2574
2575 amv_user_pvt_w.rosetta_table_copy_out_p40(ddx_access_obj_varray, p10_a0
2576 , p10_a1
2577 , p10_a2
2578 , p10_a3
2579 , p10_a4
2580 , p10_a5
2581 , p10_a6
2582 , p10_a7
2583 , p10_a8
2584 , p10_a9
2585 , p10_a10
2586 , p10_a11
2587 , p10_a12
2588 , p10_a13
2589 , p10_a14
2590 , p10_a15
2591 );
2592 end;
2593
2594 procedure get_businessobjectaccess(p_api_version NUMBER
2595 , p_init_msg_list VARCHAR2
2596 , p_validation_level NUMBER
2597 , x_return_status out nocopy VARCHAR2
2598 , x_msg_count out nocopy NUMBER
2599 , x_msg_data out nocopy VARCHAR2
2600 , p_check_login_user VARCHAR2
2601 , p_include_group_flag VARCHAR2
2602 , p_check_effective_date VARCHAR2
2603 , p_user_or_group_id NUMBER
2604 , p_user_or_group_type VARCHAR2
2605 , p_business_object_id NUMBER
2606 , p_business_object_type VARCHAR2
2607 , p13_a0 out nocopy VARCHAR2
2608 , p13_a1 out nocopy VARCHAR2
2609 , p13_a2 out nocopy VARCHAR2
2610 , p13_a3 out nocopy VARCHAR2
2611 , p13_a4 out nocopy VARCHAR2
2612 , p13_a5 out nocopy VARCHAR2
2613 , p13_a6 out nocopy VARCHAR2
2614 , p13_a7 out nocopy VARCHAR2
2615 )
2616
2617 as
2618 ddx_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2619 ddindx binary_integer; indx binary_integer;
2620 begin
2621
2622 -- copy data to the local IN or IN-OUT args, if any
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637 -- here's the delegated call to the old PL/SQL routine
2638 amv_user_pvt.get_businessobjectaccess(p_api_version,
2639 p_init_msg_list,
2640 p_validation_level,
2641 x_return_status,
2642 x_msg_count,
2643 x_msg_data,
2644 p_check_login_user,
2645 p_include_group_flag,
2646 p_check_effective_date,
2647 p_user_or_group_id,
2648 p_user_or_group_type,
2649 p_business_object_id,
2650 p_business_object_type,
2651 ddx_access_flag_obj);
2652
2653 -- copy data back from the local variables to OUT or IN-OUT args, if any
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667 p13_a0 := ddx_access_flag_obj.can_view_flag;
2668 p13_a1 := ddx_access_flag_obj.can_create_flag;
2669 p13_a2 := ddx_access_flag_obj.can_delete_flag;
2670 p13_a3 := ddx_access_flag_obj.can_update_flag;
2671 p13_a4 := ddx_access_flag_obj.can_create_dist_rule_flag;
2672 p13_a5 := ddx_access_flag_obj.chl_approver_flag;
2673 p13_a6 := ddx_access_flag_obj.chl_required_flag;
2674 p13_a7 := ddx_access_flag_obj.chl_required_need_notif_flag;
2675 end;
2676
2677 procedure get_resourceapplaccess(p_api_version NUMBER
2678 , p_init_msg_list VARCHAR2
2679 , p_validation_level NUMBER
2680 , x_return_status out nocopy VARCHAR2
2681 , x_msg_count out nocopy NUMBER
2682 , x_msg_data out nocopy VARCHAR2
2683 , p_check_login_user VARCHAR2
2684 , p_include_group_flag VARCHAR2
2685 , p_resource_id NUMBER
2686 , p_application_id NUMBER
2687 , p10_a0 out nocopy VARCHAR2
2688 , p10_a1 out nocopy VARCHAR2
2689 , p10_a2 out nocopy VARCHAR2
2690 , p10_a3 out nocopy VARCHAR2
2691 , p10_a4 out nocopy VARCHAR2
2692 , p10_a5 out nocopy VARCHAR2
2693 , p10_a6 out nocopy VARCHAR2
2694 , p10_a7 out nocopy VARCHAR2
2695 )
2696
2697 as
2698 ddx_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2699 ddindx binary_integer; indx binary_integer;
2700 begin
2701
2702 -- copy data to the local IN or IN-OUT args, if any
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714 -- here's the delegated call to the old PL/SQL routine
2715 amv_user_pvt.get_resourceapplaccess(p_api_version,
2716 p_init_msg_list,
2717 p_validation_level,
2718 x_return_status,
2719 x_msg_count,
2720 x_msg_data,
2721 p_check_login_user,
2722 p_include_group_flag,
2723 p_resource_id,
2724 p_application_id,
2725 ddx_access_flag_obj);
2726
2727 -- copy data back from the local variables to OUT or IN-OUT args, if any
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738 p10_a0 := ddx_access_flag_obj.can_view_flag;
2739 p10_a1 := ddx_access_flag_obj.can_create_flag;
2740 p10_a2 := ddx_access_flag_obj.can_delete_flag;
2741 p10_a3 := ddx_access_flag_obj.can_update_flag;
2742 p10_a4 := ddx_access_flag_obj.can_create_dist_rule_flag;
2743 p10_a5 := ddx_access_flag_obj.chl_approver_flag;
2744 p10_a6 := ddx_access_flag_obj.chl_required_flag;
2745 p10_a7 := ddx_access_flag_obj.chl_required_need_notif_flag;
2746 end;
2747
2748 procedure get_resourcechanaccess(p_api_version NUMBER
2749 , p_init_msg_list VARCHAR2
2750 , p_validation_level NUMBER
2751 , x_return_status out nocopy VARCHAR2
2752 , x_msg_count out nocopy NUMBER
2753 , x_msg_data out nocopy VARCHAR2
2754 , p_check_login_user VARCHAR2
2755 , p_include_group_flag VARCHAR2
2756 , p_resource_id NUMBER
2757 , p_channel_id NUMBER
2758 , p10_a0 out nocopy VARCHAR2
2759 , p10_a1 out nocopy VARCHAR2
2760 , p10_a2 out nocopy VARCHAR2
2761 , p10_a3 out nocopy VARCHAR2
2762 , p10_a4 out nocopy VARCHAR2
2763 , p10_a5 out nocopy VARCHAR2
2764 , p10_a6 out nocopy VARCHAR2
2765 , p10_a7 out nocopy VARCHAR2
2766 )
2767
2768 as
2769 ddx_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2770 ddindx binary_integer; indx binary_integer;
2771 begin
2772
2773 -- copy data to the local IN or IN-OUT args, if any
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785 -- here's the delegated call to the old PL/SQL routine
2786 amv_user_pvt.get_resourcechanaccess(p_api_version,
2787 p_init_msg_list,
2788 p_validation_level,
2789 x_return_status,
2790 x_msg_count,
2791 x_msg_data,
2792 p_check_login_user,
2793 p_include_group_flag,
2794 p_resource_id,
2795 p_channel_id,
2796 ddx_access_flag_obj);
2797
2798 -- copy data back from the local variables to OUT or IN-OUT args, if any
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809 p10_a0 := ddx_access_flag_obj.can_view_flag;
2810 p10_a1 := ddx_access_flag_obj.can_create_flag;
2811 p10_a2 := ddx_access_flag_obj.can_delete_flag;
2812 p10_a3 := ddx_access_flag_obj.can_update_flag;
2813 p10_a4 := ddx_access_flag_obj.can_create_dist_rule_flag;
2814 p10_a5 := ddx_access_flag_obj.chl_approver_flag;
2815 p10_a6 := ddx_access_flag_obj.chl_required_flag;
2816 p10_a7 := ddx_access_flag_obj.chl_required_need_notif_flag;
2817 end;
2818
2819 procedure get_resourcecateaccess(p_api_version NUMBER
2820 , p_init_msg_list VARCHAR2
2821 , p_validation_level NUMBER
2822 , x_return_status out nocopy VARCHAR2
2823 , x_msg_count out nocopy NUMBER
2824 , x_msg_data out nocopy VARCHAR2
2825 , p_check_login_user VARCHAR2
2826 , p_include_group_flag VARCHAR2
2827 , p_resource_id NUMBER
2828 , p_category_id NUMBER
2829 , p10_a0 out nocopy VARCHAR2
2830 , p10_a1 out nocopy VARCHAR2
2831 , p10_a2 out nocopy VARCHAR2
2832 , p10_a3 out nocopy VARCHAR2
2833 , p10_a4 out nocopy VARCHAR2
2834 , p10_a5 out nocopy VARCHAR2
2835 , p10_a6 out nocopy VARCHAR2
2836 , p10_a7 out nocopy VARCHAR2
2837 )
2838
2839 as
2840 ddx_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2841 ddindx binary_integer; indx binary_integer;
2842 begin
2843
2844 -- copy data to the local IN or IN-OUT args, if any
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856 -- here's the delegated call to the old PL/SQL routine
2857 amv_user_pvt.get_resourcecateaccess(p_api_version,
2858 p_init_msg_list,
2859 p_validation_level,
2860 x_return_status,
2861 x_msg_count,
2862 x_msg_data,
2863 p_check_login_user,
2864 p_include_group_flag,
2865 p_resource_id,
2866 p_category_id,
2867 ddx_access_flag_obj);
2868
2869 -- copy data back from the local variables to OUT or IN-OUT args, if any
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880 p10_a0 := ddx_access_flag_obj.can_view_flag;
2881 p10_a1 := ddx_access_flag_obj.can_create_flag;
2882 p10_a2 := ddx_access_flag_obj.can_delete_flag;
2883 p10_a3 := ddx_access_flag_obj.can_update_flag;
2884 p10_a4 := ddx_access_flag_obj.can_create_dist_rule_flag;
2885 p10_a5 := ddx_access_flag_obj.chl_approver_flag;
2886 p10_a6 := ddx_access_flag_obj.chl_required_flag;
2887 p10_a7 := ddx_access_flag_obj.chl_required_need_notif_flag;
2888 end;
2889
2890 procedure get_resourceitemaccess(p_api_version NUMBER
2891 , p_init_msg_list VARCHAR2
2892 , p_validation_level NUMBER
2893 , x_return_status out nocopy VARCHAR2
2894 , x_msg_count out nocopy NUMBER
2895 , x_msg_data out nocopy VARCHAR2
2896 , p_check_login_user VARCHAR2
2897 , p_include_group_flag VARCHAR2
2898 , p_resource_id NUMBER
2899 , p_item_id NUMBER
2900 , p10_a0 out nocopy VARCHAR2
2901 , p10_a1 out nocopy VARCHAR2
2902 , p10_a2 out nocopy VARCHAR2
2903 , p10_a3 out nocopy VARCHAR2
2904 , p10_a4 out nocopy VARCHAR2
2905 , p10_a5 out nocopy VARCHAR2
2906 , p10_a6 out nocopy VARCHAR2
2907 , p10_a7 out nocopy VARCHAR2
2908 )
2909
2910 as
2911 ddx_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2912 ddindx binary_integer; indx binary_integer;
2913 begin
2914
2915 -- copy data to the local IN or IN-OUT args, if any
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927 -- here's the delegated call to the old PL/SQL routine
2928 amv_user_pvt.get_resourceitemaccess(p_api_version,
2929 p_init_msg_list,
2930 p_validation_level,
2931 x_return_status,
2932 x_msg_count,
2933 x_msg_data,
2934 p_check_login_user,
2935 p_include_group_flag,
2936 p_resource_id,
2937 p_item_id,
2938 ddx_access_flag_obj);
2939
2940 -- copy data back from the local variables to OUT or IN-OUT args, if any
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951 p10_a0 := ddx_access_flag_obj.can_view_flag;
2952 p10_a1 := ddx_access_flag_obj.can_create_flag;
2953 p10_a2 := ddx_access_flag_obj.can_delete_flag;
2954 p10_a3 := ddx_access_flag_obj.can_update_flag;
2955 p10_a4 := ddx_access_flag_obj.can_create_dist_rule_flag;
2956 p10_a5 := ddx_access_flag_obj.chl_approver_flag;
2957 p10_a6 := ddx_access_flag_obj.chl_required_flag;
2958 p10_a7 := ddx_access_flag_obj.chl_required_need_notif_flag;
2959 end;
2960
2961 procedure get_groupapplaccess(p_api_version NUMBER
2962 , p_init_msg_list VARCHAR2
2963 , p_validation_level NUMBER
2964 , x_return_status out nocopy VARCHAR2
2965 , x_msg_count out nocopy NUMBER
2966 , x_msg_data out nocopy VARCHAR2
2967 , p_check_login_user VARCHAR2
2968 , p_group_id NUMBER
2969 , p_application_id NUMBER
2970 , p9_a0 out nocopy VARCHAR2
2971 , p9_a1 out nocopy VARCHAR2
2972 , p9_a2 out nocopy VARCHAR2
2973 , p9_a3 out nocopy VARCHAR2
2974 , p9_a4 out nocopy VARCHAR2
2975 , p9_a5 out nocopy VARCHAR2
2976 , p9_a6 out nocopy VARCHAR2
2977 , p9_a7 out nocopy VARCHAR2
2978 )
2979
2980 as
2981 ddx_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
2982 ddindx binary_integer; indx binary_integer;
2983 begin
2984
2985 -- copy data to the local IN or IN-OUT args, if any
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996 -- here's the delegated call to the old PL/SQL routine
2997 amv_user_pvt.get_groupapplaccess(p_api_version,
2998 p_init_msg_list,
2999 p_validation_level,
3000 x_return_status,
3001 x_msg_count,
3002 x_msg_data,
3003 p_check_login_user,
3004 p_group_id,
3005 p_application_id,
3006 ddx_access_flag_obj);
3007
3008 -- copy data back from the local variables to OUT or IN-OUT args, if any
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018 p9_a0 := ddx_access_flag_obj.can_view_flag;
3019 p9_a1 := ddx_access_flag_obj.can_create_flag;
3020 p9_a2 := ddx_access_flag_obj.can_delete_flag;
3021 p9_a3 := ddx_access_flag_obj.can_update_flag;
3022 p9_a4 := ddx_access_flag_obj.can_create_dist_rule_flag;
3023 p9_a5 := ddx_access_flag_obj.chl_approver_flag;
3024 p9_a6 := ddx_access_flag_obj.chl_required_flag;
3025 p9_a7 := ddx_access_flag_obj.chl_required_need_notif_flag;
3026 end;
3027
3028 procedure get_groupchanaccess(p_api_version NUMBER
3029 , p_init_msg_list VARCHAR2
3030 , p_validation_level NUMBER
3031 , x_return_status out nocopy VARCHAR2
3032 , x_msg_count out nocopy NUMBER
3033 , x_msg_data out nocopy VARCHAR2
3034 , p_check_login_user VARCHAR2
3035 , p_group_id NUMBER
3036 , p_channel_id NUMBER
3037 , p9_a0 out nocopy VARCHAR2
3038 , p9_a1 out nocopy VARCHAR2
3039 , p9_a2 out nocopy VARCHAR2
3040 , p9_a3 out nocopy VARCHAR2
3041 , p9_a4 out nocopy VARCHAR2
3042 , p9_a5 out nocopy VARCHAR2
3043 , p9_a6 out nocopy VARCHAR2
3044 , p9_a7 out nocopy VARCHAR2
3045 )
3046
3047 as
3048 ddx_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
3049 ddindx binary_integer; indx binary_integer;
3050 begin
3051
3052 -- copy data to the local IN or IN-OUT args, if any
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063 -- here's the delegated call to the old PL/SQL routine
3064 amv_user_pvt.get_groupchanaccess(p_api_version,
3065 p_init_msg_list,
3066 p_validation_level,
3067 x_return_status,
3068 x_msg_count,
3069 x_msg_data,
3070 p_check_login_user,
3071 p_group_id,
3072 p_channel_id,
3073 ddx_access_flag_obj);
3074
3075 -- copy data back from the local variables to OUT or IN-OUT args, if any
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085 p9_a0 := ddx_access_flag_obj.can_view_flag;
3086 p9_a1 := ddx_access_flag_obj.can_create_flag;
3087 p9_a2 := ddx_access_flag_obj.can_delete_flag;
3088 p9_a3 := ddx_access_flag_obj.can_update_flag;
3089 p9_a4 := ddx_access_flag_obj.can_create_dist_rule_flag;
3090 p9_a5 := ddx_access_flag_obj.chl_approver_flag;
3091 p9_a6 := ddx_access_flag_obj.chl_required_flag;
3092 p9_a7 := ddx_access_flag_obj.chl_required_need_notif_flag;
3093 end;
3094
3095 procedure get_groupcateaccess(p_api_version NUMBER
3096 , p_init_msg_list VARCHAR2
3097 , p_validation_level NUMBER
3098 , x_return_status out nocopy VARCHAR2
3099 , x_msg_count out nocopy NUMBER
3100 , x_msg_data out nocopy VARCHAR2
3101 , p_check_login_user VARCHAR2
3102 , p_group_id NUMBER
3103 , p_category_id NUMBER
3104 , p9_a0 out nocopy VARCHAR2
3105 , p9_a1 out nocopy VARCHAR2
3106 , p9_a2 out nocopy VARCHAR2
3107 , p9_a3 out nocopy VARCHAR2
3108 , p9_a4 out nocopy VARCHAR2
3109 , p9_a5 out nocopy VARCHAR2
3110 , p9_a6 out nocopy VARCHAR2
3111 , p9_a7 out nocopy VARCHAR2
3112 )
3113
3114 as
3115 ddx_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
3116 ddindx binary_integer; indx binary_integer;
3117 begin
3118
3119 -- copy data to the local IN or IN-OUT args, if any
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130 -- here's the delegated call to the old PL/SQL routine
3131 amv_user_pvt.get_groupcateaccess(p_api_version,
3132 p_init_msg_list,
3133 p_validation_level,
3134 x_return_status,
3135 x_msg_count,
3136 x_msg_data,
3137 p_check_login_user,
3138 p_group_id,
3139 p_category_id,
3140 ddx_access_flag_obj);
3141
3142 -- copy data back from the local variables to OUT or IN-OUT args, if any
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152 p9_a0 := ddx_access_flag_obj.can_view_flag;
3153 p9_a1 := ddx_access_flag_obj.can_create_flag;
3154 p9_a2 := ddx_access_flag_obj.can_delete_flag;
3155 p9_a3 := ddx_access_flag_obj.can_update_flag;
3156 p9_a4 := ddx_access_flag_obj.can_create_dist_rule_flag;
3157 p9_a5 := ddx_access_flag_obj.chl_approver_flag;
3158 p9_a6 := ddx_access_flag_obj.chl_required_flag;
3159 p9_a7 := ddx_access_flag_obj.chl_required_need_notif_flag;
3160 end;
3161
3162 procedure get_resourceitemaccess(p_api_version NUMBER
3163 , p_init_msg_list VARCHAR2
3164 , p_validation_level NUMBER
3165 , x_return_status out nocopy VARCHAR2
3166 , x_msg_count out nocopy NUMBER
3167 , x_msg_data out nocopy VARCHAR2
3168 , p_check_login_user VARCHAR2
3169 , p_group_id NUMBER
3170 , p_item_id NUMBER
3171 , p9_a0 out nocopy VARCHAR2
3172 , p9_a1 out nocopy VARCHAR2
3173 , p9_a2 out nocopy VARCHAR2
3174 , p9_a3 out nocopy VARCHAR2
3175 , p9_a4 out nocopy VARCHAR2
3176 , p9_a5 out nocopy VARCHAR2
3177 , p9_a6 out nocopy VARCHAR2
3178 , p9_a7 out nocopy VARCHAR2
3179 )
3180
3181 as
3182 ddx_access_flag_obj amv_user_pvt.amv_access_flag_obj_type;
3183 ddindx binary_integer; indx binary_integer;
3184 begin
3185
3186 -- copy data to the local IN or IN-OUT args, if any
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197 -- here's the delegated call to the old PL/SQL routine
3198 amv_user_pvt.get_resourceitemaccess(p_api_version,
3199 p_init_msg_list,
3200 p_validation_level,
3201 x_return_status,
3202 x_msg_count,
3203 x_msg_data,
3204 p_check_login_user,
3205 p_group_id,
3206 p_item_id,
3207 ddx_access_flag_obj);
3208
3209 -- copy data back from the local variables to OUT or IN-OUT args, if any
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219 p9_a0 := ddx_access_flag_obj.can_view_flag;
3220 p9_a1 := ddx_access_flag_obj.can_create_flag;
3221 p9_a2 := ddx_access_flag_obj.can_delete_flag;
3222 p9_a3 := ddx_access_flag_obj.can_update_flag;
3223 p9_a4 := ddx_access_flag_obj.can_create_dist_rule_flag;
3224 p9_a5 := ddx_access_flag_obj.chl_approver_flag;
3225 p9_a6 := ddx_access_flag_obj.chl_required_flag;
3226 p9_a7 := ddx_access_flag_obj.chl_required_need_notif_flag;
3227 end;
3228
3229 end amv_user_pvt_w;