eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AS_ACCESS_PUB_W2

Source


1 package body as_access_pub_w2 as
2   /* $Header: asxwac2b.pls 115.3 2002/08/16 23:26:06 kichan 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   function rosetta_g_miss_num_map(n number) return number as
7     a number := fnd_api.g_miss_num;
8     b number := 0-1962.0724;
9   begin
10     if n=a then return b; end if;
11     if n=b then return a; end if;
12     return n;
13   end;
14 
15   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16   function rosetta_g_miss_date_in_map(d date) return date as
17   begin
18     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19     return d;
20   end;
21 
22   procedure has_updatepersonaccess(p_api_version_number  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , p_validation_level  NUMBER
25     , p_admin_flag  VARCHAR2
26     , p_admin_group_id  NUMBER
27     , p_person_id  NUMBER
28     , p_security_id  NUMBER
29     , p_security_type  VARCHAR2
30     , p_person_party_id  NUMBER
31     , p_check_access_flag  VARCHAR2
32     , p_identity_salesforce_id  NUMBER
33     , p_partner_cont_party_id  NUMBER
34     , x_return_status out  VARCHAR2
35     , x_msg_count out  NUMBER
36     , x_msg_data out  VARCHAR2
37     , x_update_access_flag out  VARCHAR2
38     , p3_a0  VARCHAR2 := fnd_api.g_miss_char
39     , p3_a1  VARCHAR2 := fnd_api.g_miss_char
40     , p3_a2  VARCHAR2 := fnd_api.g_miss_char
41     , p3_a3  VARCHAR2 := fnd_api.g_miss_char
42     , p3_a4  VARCHAR2 := fnd_api.g_miss_char
43   )
44 
45   as
46     ddp_access_profile_rec as_access_pub.access_profile_rec_type;
47     ddindx binary_integer; indx binary_integer;
48   begin
49 
50     -- copy data to the local IN or IN-OUT args, if any
51 
52 
53 
54     ddp_access_profile_rec.cust_access_profile_value := p3_a0;
55     ddp_access_profile_rec.lead_access_profile_value := p3_a1;
56     ddp_access_profile_rec.opp_access_profile_value := p3_a2;
57     ddp_access_profile_rec.mgr_update_profile_value := p3_a3;
58     ddp_access_profile_rec.admin_update_profile_value := p3_a4;
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73     -- here's the delegated call to the old PL/SQL routine
74     as_access_pub.has_updatepersonaccess(p_api_version_number,
75       p_init_msg_list,
76       p_validation_level,
77       ddp_access_profile_rec,
78       p_admin_flag,
79       p_admin_group_id,
80       p_person_id,
81       p_security_id,
82       p_security_type,
83       p_person_party_id,
84       p_check_access_flag,
85       p_identity_salesforce_id,
86       p_partner_cont_party_id,
87       x_return_status,
88       x_msg_count,
89       x_msg_data,
90       x_update_access_flag);
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 
102 
103 
104 
105 
106 
107 
108 
109   end;
110 
111   procedure has_viewpersonaccess(p_api_version_number  NUMBER
112     , p_init_msg_list  VARCHAR2
113     , p_validation_level  NUMBER
114     , p_admin_flag  VARCHAR2
115     , p_admin_group_id  NUMBER
116     , p_person_id  NUMBER
117     , p_security_id  NUMBER
118     , p_security_type  VARCHAR2
119     , p_person_party_id  NUMBER
120     , p_check_access_flag  VARCHAR2
121     , p_identity_salesforce_id  NUMBER
122     , p_partner_cont_party_id  NUMBER
123     , x_return_status out  VARCHAR2
124     , x_msg_count out  NUMBER
125     , x_msg_data out  VARCHAR2
126     , x_view_access_flag out  VARCHAR2
127     , p3_a0  VARCHAR2 := fnd_api.g_miss_char
128     , p3_a1  VARCHAR2 := fnd_api.g_miss_char
129     , p3_a2  VARCHAR2 := fnd_api.g_miss_char
130     , p3_a3  VARCHAR2 := fnd_api.g_miss_char
131     , p3_a4  VARCHAR2 := fnd_api.g_miss_char
132   )
133 
134   as
135     ddp_access_profile_rec as_access_pub.access_profile_rec_type;
136     ddindx binary_integer; indx binary_integer;
137   begin
138 
139     -- copy data to the local IN or IN-OUT args, if any
140 
141 
142 
143     ddp_access_profile_rec.cust_access_profile_value := p3_a0;
144     ddp_access_profile_rec.lead_access_profile_value := p3_a1;
145     ddp_access_profile_rec.opp_access_profile_value := p3_a2;
146     ddp_access_profile_rec.mgr_update_profile_value := p3_a3;
147     ddp_access_profile_rec.admin_update_profile_value := p3_a4;
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162     -- here's the delegated call to the old PL/SQL routine
163     as_access_pub.has_viewpersonaccess(p_api_version_number,
164       p_init_msg_list,
165       p_validation_level,
166       ddp_access_profile_rec,
167       p_admin_flag,
168       p_admin_group_id,
169       p_person_id,
170       p_security_id,
171       p_security_type,
172       p_person_party_id,
173       p_check_access_flag,
174       p_identity_salesforce_id,
175       p_partner_cont_party_id,
176       x_return_status,
177       x_msg_count,
178       x_msg_data,
179       x_view_access_flag);
180 
181     -- copy data back from the local variables to OUT or IN-OUT args, if any
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198   end;
199 
200   procedure has_viewleadaccess(p_api_version_number  NUMBER
201     , p_init_msg_list  VARCHAR2
202     , p_validation_level  NUMBER
203     , p_admin_flag  VARCHAR2
204     , p_admin_group_id  NUMBER
205     , p_person_id  NUMBER
206     , p_sales_lead_id  NUMBER
207     , p_check_access_flag  VARCHAR2
208     , p_identity_salesforce_id  NUMBER
209     , p_partner_cont_party_id  NUMBER
210     , x_return_status out  VARCHAR2
211     , x_msg_count out  NUMBER
212     , x_msg_data out  VARCHAR2
213     , x_view_access_flag out  VARCHAR2
214     , p3_a0  VARCHAR2 := fnd_api.g_miss_char
215     , p3_a1  VARCHAR2 := fnd_api.g_miss_char
216     , p3_a2  VARCHAR2 := fnd_api.g_miss_char
217     , p3_a3  VARCHAR2 := fnd_api.g_miss_char
218     , p3_a4  VARCHAR2 := fnd_api.g_miss_char
219   )
220 
221   as
222     ddp_access_profile_rec as_access_pub.access_profile_rec_type;
223     ddindx binary_integer; indx binary_integer;
224   begin
225 
226     -- copy data to the local IN or IN-OUT args, if any
227 
228 
229 
230     ddp_access_profile_rec.cust_access_profile_value := p3_a0;
231     ddp_access_profile_rec.lead_access_profile_value := p3_a1;
232     ddp_access_profile_rec.opp_access_profile_value := p3_a2;
233     ddp_access_profile_rec.mgr_update_profile_value := p3_a3;
234     ddp_access_profile_rec.admin_update_profile_value := p3_a4;
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247     -- here's the delegated call to the old PL/SQL routine
248     as_access_pub.has_viewleadaccess(p_api_version_number,
249       p_init_msg_list,
250       p_validation_level,
251       ddp_access_profile_rec,
252       p_admin_flag,
253       p_admin_group_id,
254       p_person_id,
255       p_sales_lead_id,
256       p_check_access_flag,
257       p_identity_salesforce_id,
258       p_partner_cont_party_id,
259       x_return_status,
260       x_msg_count,
261       x_msg_data,
262       x_view_access_flag);
263 
264     -- copy data back from the local variables to OUT or IN-OUT args, if any
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279   end;
280 
281   procedure has_viewopportunityaccess(p_api_version_number  NUMBER
282     , p_init_msg_list  VARCHAR2
283     , p_validation_level  NUMBER
284     , p_admin_flag  VARCHAR2
285     , p_admin_group_id  NUMBER
286     , p_person_id  NUMBER
287     , p_opportunity_id  NUMBER
288     , p_check_access_flag  VARCHAR2
289     , p_identity_salesforce_id  NUMBER
290     , p_partner_cont_party_id  NUMBER
291     , x_return_status out  VARCHAR2
292     , x_msg_count out  NUMBER
293     , x_msg_data out  VARCHAR2
294     , x_view_access_flag out  VARCHAR2
295     , p3_a0  VARCHAR2 := fnd_api.g_miss_char
296     , p3_a1  VARCHAR2 := fnd_api.g_miss_char
297     , p3_a2  VARCHAR2 := fnd_api.g_miss_char
298     , p3_a3  VARCHAR2 := fnd_api.g_miss_char
299     , p3_a4  VARCHAR2 := fnd_api.g_miss_char
300   )
301 
302   as
303     ddp_access_profile_rec as_access_pub.access_profile_rec_type;
304     ddindx binary_integer; indx binary_integer;
305   begin
306 
307     -- copy data to the local IN or IN-OUT args, if any
308 
309 
310 
311     ddp_access_profile_rec.cust_access_profile_value := p3_a0;
312     ddp_access_profile_rec.lead_access_profile_value := p3_a1;
313     ddp_access_profile_rec.opp_access_profile_value := p3_a2;
314     ddp_access_profile_rec.mgr_update_profile_value := p3_a3;
315     ddp_access_profile_rec.admin_update_profile_value := p3_a4;
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328     -- here's the delegated call to the old PL/SQL routine
329     as_access_pub.has_viewopportunityaccess(p_api_version_number,
330       p_init_msg_list,
331       p_validation_level,
332       ddp_access_profile_rec,
333       p_admin_flag,
334       p_admin_group_id,
335       p_person_id,
336       p_opportunity_id,
337       p_check_access_flag,
338       p_identity_salesforce_id,
339       p_partner_cont_party_id,
340       x_return_status,
341       x_msg_count,
342       x_msg_data,
343       x_view_access_flag);
344 
345     -- copy data back from the local variables to OUT or IN-OUT args, if any
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360   end;
361 
362   procedure has_organizationaccess(p_api_version_number  NUMBER
363     , p_init_msg_list  VARCHAR2
364     , p_validation_level  NUMBER
365     , p_admin_flag  VARCHAR2
366     , p_admin_group_id  NUMBER
367     , p_person_id  NUMBER
368     , p_customer_id  NUMBER
369     , p_check_access_flag  VARCHAR2
370     , p_identity_salesforce_id  NUMBER
371     , p_partner_cont_party_id  NUMBER
372     , x_return_status out  VARCHAR2
373     , x_msg_count out  NUMBER
374     , x_msg_data out  VARCHAR2
375     , x_access_privilege out  VARCHAR2
376     , p3_a0  VARCHAR2 := fnd_api.g_miss_char
377     , p3_a1  VARCHAR2 := fnd_api.g_miss_char
378     , p3_a2  VARCHAR2 := fnd_api.g_miss_char
379     , p3_a3  VARCHAR2 := fnd_api.g_miss_char
380     , p3_a4  VARCHAR2 := fnd_api.g_miss_char
381   )
382 
383   as
384     ddp_access_profile_rec as_access_pub.access_profile_rec_type;
385     ddindx binary_integer; indx binary_integer;
386   begin
387 
388     -- copy data to the local IN or IN-OUT args, if any
389 
390 
391 
392     ddp_access_profile_rec.cust_access_profile_value := p3_a0;
393     ddp_access_profile_rec.lead_access_profile_value := p3_a1;
394     ddp_access_profile_rec.opp_access_profile_value := p3_a2;
395     ddp_access_profile_rec.mgr_update_profile_value := p3_a3;
396     ddp_access_profile_rec.admin_update_profile_value := p3_a4;
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409     -- here's the delegated call to the old PL/SQL routine
410     as_access_pub.has_organizationaccess(p_api_version_number,
411       p_init_msg_list,
412       p_validation_level,
413       ddp_access_profile_rec,
414       p_admin_flag,
415       p_admin_group_id,
416       p_person_id,
417       p_customer_id,
418       p_check_access_flag,
419       p_identity_salesforce_id,
420       p_partner_cont_party_id,
421       x_return_status,
422       x_msg_count,
423       x_msg_data,
424       x_access_privilege);
425 
426     -- copy data back from the local variables to OUT or IN-OUT args, if any
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441   end;
442 
443   procedure has_personaccess(p_api_version_number  NUMBER
444     , p_init_msg_list  VARCHAR2
445     , p_validation_level  NUMBER
446     , p_admin_flag  VARCHAR2
447     , p_admin_group_id  NUMBER
448     , p_person_id  NUMBER
449     , p_security_id  NUMBER
450     , p_security_type  VARCHAR2
451     , p_person_party_id  NUMBER
452     , p_check_access_flag  VARCHAR2
453     , p_identity_salesforce_id  NUMBER
454     , p_partner_cont_party_id  NUMBER
455     , x_return_status out  VARCHAR2
456     , x_msg_count out  NUMBER
457     , x_msg_data out  VARCHAR2
458     , x_access_privilege out  VARCHAR2
459     , p3_a0  VARCHAR2 := fnd_api.g_miss_char
460     , p3_a1  VARCHAR2 := fnd_api.g_miss_char
461     , p3_a2  VARCHAR2 := fnd_api.g_miss_char
462     , p3_a3  VARCHAR2 := fnd_api.g_miss_char
463     , p3_a4  VARCHAR2 := fnd_api.g_miss_char
464   )
465 
466   as
467     ddp_access_profile_rec as_access_pub.access_profile_rec_type;
468     ddindx binary_integer; indx binary_integer;
469   begin
470 
471     -- copy data to the local IN or IN-OUT args, if any
472 
473 
474 
475     ddp_access_profile_rec.cust_access_profile_value := p3_a0;
476     ddp_access_profile_rec.lead_access_profile_value := p3_a1;
477     ddp_access_profile_rec.opp_access_profile_value := p3_a2;
478     ddp_access_profile_rec.mgr_update_profile_value := p3_a3;
479     ddp_access_profile_rec.admin_update_profile_value := p3_a4;
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494     -- here's the delegated call to the old PL/SQL routine
495     as_access_pub.has_personaccess(p_api_version_number,
496       p_init_msg_list,
497       p_validation_level,
498       ddp_access_profile_rec,
502       p_security_id,
499       p_admin_flag,
500       p_admin_group_id,
501       p_person_id,
503       p_security_type,
504       p_person_party_id,
505       p_check_access_flag,
506       p_identity_salesforce_id,
507       p_partner_cont_party_id,
508       x_return_status,
509       x_msg_count,
510       x_msg_data,
511       x_access_privilege);
512 
513     -- copy data back from the local variables to OUT or IN-OUT args, if any
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530   end;
531 
532   procedure has_leadaccess(p_api_version_number  NUMBER
533     , p_init_msg_list  VARCHAR2
534     , p_validation_level  NUMBER
535     , p_admin_flag  VARCHAR2
536     , p_admin_group_id  NUMBER
537     , p_person_id  NUMBER
538     , p_sales_lead_id  NUMBER
539     , p_check_access_flag  VARCHAR2
540     , p_identity_salesforce_id  NUMBER
541     , p_partner_cont_party_id  NUMBER
542     , x_return_status out  VARCHAR2
543     , x_msg_count out  NUMBER
544     , x_msg_data out  VARCHAR2
545     , x_access_privilege out  VARCHAR2
546     , p3_a0  VARCHAR2 := fnd_api.g_miss_char
547     , p3_a1  VARCHAR2 := fnd_api.g_miss_char
548     , p3_a2  VARCHAR2 := fnd_api.g_miss_char
549     , p3_a3  VARCHAR2 := fnd_api.g_miss_char
550     , p3_a4  VARCHAR2 := fnd_api.g_miss_char
551   )
552 
553   as
554     ddp_access_profile_rec as_access_pub.access_profile_rec_type;
555     ddindx binary_integer; indx binary_integer;
556   begin
557 
558     -- copy data to the local IN or IN-OUT args, if any
559 
560 
561 
562     ddp_access_profile_rec.cust_access_profile_value := p3_a0;
563     ddp_access_profile_rec.lead_access_profile_value := p3_a1;
564     ddp_access_profile_rec.opp_access_profile_value := p3_a2;
565     ddp_access_profile_rec.mgr_update_profile_value := p3_a3;
566     ddp_access_profile_rec.admin_update_profile_value := p3_a4;
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579     -- here's the delegated call to the old PL/SQL routine
580     as_access_pub.has_leadaccess(p_api_version_number,
581       p_init_msg_list,
582       p_validation_level,
583       ddp_access_profile_rec,
584       p_admin_flag,
585       p_admin_group_id,
586       p_person_id,
587       p_sales_lead_id,
588       p_check_access_flag,
589       p_identity_salesforce_id,
590       p_partner_cont_party_id,
591       x_return_status,
592       x_msg_count,
593       x_msg_data,
594       x_access_privilege);
595 
596     -- copy data back from the local variables to OUT or IN-OUT args, if any
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611   end;
612 
613   procedure has_opportunityaccess(p_api_version_number  NUMBER
614     , p_init_msg_list  VARCHAR2
615     , p_validation_level  NUMBER
616     , p_admin_flag  VARCHAR2
617     , p_admin_group_id  NUMBER
618     , p_person_id  NUMBER
619     , p_opportunity_id  NUMBER
620     , p_check_access_flag  VARCHAR2
621     , p_identity_salesforce_id  NUMBER
622     , p_partner_cont_party_id  NUMBER
623     , x_return_status out  VARCHAR2
624     , x_msg_count out  NUMBER
625     , x_msg_data out  VARCHAR2
626     , x_access_privilege out  VARCHAR2
627     , p3_a0  VARCHAR2 := fnd_api.g_miss_char
628     , p3_a1  VARCHAR2 := fnd_api.g_miss_char
629     , p3_a2  VARCHAR2 := fnd_api.g_miss_char
630     , p3_a3  VARCHAR2 := fnd_api.g_miss_char
631     , p3_a4  VARCHAR2 := fnd_api.g_miss_char
632   )
633 
634   as
635     ddp_access_profile_rec as_access_pub.access_profile_rec_type;
636     ddindx binary_integer; indx binary_integer;
637   begin
638 
639     -- copy data to the local IN or IN-OUT args, if any
640 
641 
642 
643     ddp_access_profile_rec.cust_access_profile_value := p3_a0;
644     ddp_access_profile_rec.lead_access_profile_value := p3_a1;
645     ddp_access_profile_rec.opp_access_profile_value := p3_a2;
646     ddp_access_profile_rec.mgr_update_profile_value := p3_a3;
647     ddp_access_profile_rec.admin_update_profile_value := p3_a4;
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660     -- here's the delegated call to the old PL/SQL routine
661     as_access_pub.has_opportunityaccess(p_api_version_number,
662       p_init_msg_list,
663       p_validation_level,
664       ddp_access_profile_rec,
665       p_admin_flag,
666       p_admin_group_id,
667       p_person_id,
668       p_opportunity_id,
669       p_check_access_flag,
670       p_identity_salesforce_id,
671       p_partner_cont_party_id,
672       x_return_status,
673       x_msg_count,
674       x_msg_data,
675       x_access_privilege);
676 
677     -- copy data back from the local variables to OUT or IN-OUT args, if any
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
691 
688 
689 
690 
692   end;
693 
694 end as_access_pub_w2;