PACKAGE BODY: APPS.DOM_COMMON_ATTACHMENT_SECURITY

Source

1 PACKAGE BODY DOM_COMMON_ATTACHMENT_SECURITY AS
2 /* $Header: DOMSECPB.pls 120.4.12010000.4 2009/04/09 10:09:22 chechand ship $ */
3 /*---------------------------------------------------------------------------+
4  | This package contains APIs to reslove docuemnt security mappings          |
5  | based on fnd data security                                                |
6  +---------------------------------------------------------------------------*/
7 FUNCTION GET_ATTACHMENT_PRIVILAGES
8 (
9 p_entity_name IN VARCHAR2,
10 p_pk1_value IN VARCHAR2,
11 p_pk2_value IN VARCHAR2,
12 p_pk3_value IN VARCHAR2,
13 p_pk4_value IN VARCHAR2,
14 p_pk5_value IN VARCHAR2,
15 p_user_id IN VARCHAR2,
16 p_attachment_id IN NUMBER DEFAULT NULL
17 ) RETURN VARCHAR2
18 IS
19 l_function_name VARCHAR2(100);
20 l_function_returned VARCHAR2(300) default null;
21 BEGIN
22 
23 SELECT GET_ATTACH_ACCESS_PLSQL_API INTO l_function_name FROM dom_attachment_entities WHERE entity_name = p_entity_name;
24  EXECUTE IMMEDIATE      'select   '|| l_function_name  || '( :1 , :2 ,:3 ,:4 ,:5 ,:6 ,:7 ,:8) from dual' INTO l_function_returned USING IN p_entity_name,
25  IN p_pk1_value , IN p_pk2_value ,IN p_pk3_value ,IN p_pk4_value ,IN p_pk5_value , IN p_user_id ,IN p_attachment_id;
26 
27 RETURN l_function_returned;
28 EXCEPTION
29 WHEN OTHERS then
30 RETURN NULL;
31 
32 END get_attachment_privilages;
33 
34 
35 ------------------------------------------------------
36 
37 
38 FUNCTION GET_DOC_ATTACHMENT_PRIVILEGES
39 (
40 p_entity_name IN VARCHAR2,
41 p_pk1_value IN VARCHAR2,
42 p_pk2_value IN VARCHAR2,
43 p_pk3_value IN VARCHAR2,
44 p_pk4_value IN VARCHAR2,
45 p_pk5_value IN VARCHAR2,
46 p_user_id IN VARCHAR2,
47 p_attachment_id IN NUMBER DEFAULT NULL
48 ) RETURN VARCHAR2
49 IS
50   l_policy_value VARCHAR2(30);
51   l_item_catalog_group_id VARCHAR2(30);
52   l_lifecycle_id VARCHAR2(30);
53   l_current_phase_id VARCHAR2(30);
54   l_viewPriv       VARCHAR2(30) DEFAULT NULL;
55   l_editPriv       VARCHAR2(30) DEFAULT NULL;
56   l_result          VARCHAR2(30);
57   l_party_id       VARCHAR2(30);
58   l_category_id    VARCHAR2(30);
59   BEGIN
60 
61   SELECT PARTY_ID INTO l_party_id FROM EGO_USER_V WHERE user_id = p_user_id;
62 
63   l_viewPriv := EGO_DATA_SECURITY.CHECK_FUNCTION (
64         1.0,
65         'DOM_DOC_VIEW_FILE_LIST',
66         'DOM_DOCUMENT_REVISION',
67         p_pk1_value,
68         p_pk2_value,
69         NULL,NULL,NULL,
70         'HZ_PARTY:'||l_party_id);
71   l_editPriv := EGO_DATA_SECURITY.CHECK_FUNCTION (
72         1.0,
73         'DOM_DOC_EDIT_FILE_LIST',
74         'DOM_DOCUMENT_REVISION',
75         p_pk1_value,
76         p_pk2_value,
77         NULL,NULL,NULL,
78         'HZ_PARTY:'||l_party_id);
79 
80   IF (l_editPriv = 'T') THEN
81     RETURN 'Update' ;
82   END IF;
83 
84   IF (l_viewPriv = 'T') THEN
85     RETURN 'View' ;
86   END IF;
87 
88   EXCEPTION
89   WHEN OTHERS then
90     RETURN null;
91  END GET_DOC_ATTACHMENT_PRIVILEGES;
92 
93  -------------------------------
94 
95 
96 END DOM_COMMON_ATTACHMENT_SECURITY;