PACKAGE BODY: APPS.BOM_SECURITY_PUB

Source

1 PACKAGE BODY BOM_SECURITY_PUB AS
2 /* $Header: BOMSECPB.pls 120.2 2005/07/27 09:00:01 earumuga noship $ */
3 
4 FUNCTION CHECK_USER_PRIVILEGE
5   (
6    p_api_version       IN  NUMBER,
7    p_function         IN  VARCHAR2,
8    p_object_name       IN  VARCHAR2,
9    p_instance_pk1_value   IN  VARCHAR2,
10    p_instance_pk2_value   IN  VARCHAR2 DEFAULT NULL,
11    p_instance_pk3_value   IN  VARCHAR2 DEFAULT NULL,
12    p_instance_pk4_value   IN  VARCHAR2 DEFAULT NULL,
13    p_instance_pk5_value   IN  VARCHAR2 DEFAULT NULL,
14    p_user_name            in varchar2  default null
15  )
16  RETURN VARCHAR2
17  IS
18  BEGIN
19   IF p_user_name IS NULL
20   THEN
21     return 'T';
22   END IF;
23   return EGO_DATA_SECURITY.Check_Function(
24                                    p_api_version                   => p_api_version
25                                   ,p_function                      => p_function
26                                   ,p_object_name                   => p_object_name
27                                   ,p_instance_pk1_value            => p_instance_pk1_value
28                                   ,p_instance_pk2_value            => p_instance_pk2_value
29                                   ,p_instance_pk3_value            => p_instance_pk3_value
30                                   ,p_instance_pk4_value            => p_instance_pk4_value
31                                   ,p_instance_pk5_value            => p_instance_pk5_value
32                                   ,p_user_name                     => p_user_name
33                                );
34  END CHECK_USER_PRIVILEGE;
35 
36 
37 
38 FUNCTION CHECK_ITEM_PRIVILEGE
39   (
40    p_function         IN  VARCHAR2,
41    p_inventory_item_id IN  VARCHAR2,
42    p_organization_id  IN  VARCHAR2,
43    p_user_name            in varchar2  default null
44  )
45  RETURN VARCHAR2
46  IS
47  l_user_name fnd_grants.grantee_key%type;
48  BEGIN
49   IF p_user_name is null THEN
50      l_user_name := bom_security_pub.get_ego_user;
51   ELSE
52      l_user_name := p_user_name;
53   END IF;
54   return EGO_DATA_SECURITY.Check_Function(
55                                    p_api_version                   => 1
56                                   ,p_function                      => p_function
57                                   ,p_object_name                   => 'EGO_ITEM'
58                                   ,p_instance_pk1_value            => p_inventory_item_id
59                                   ,p_instance_pk2_value            =>p_organization_id
60                                   ,p_instance_pk3_value            => NULL
61                                   ,p_instance_pk4_value            => NULL
62                                   ,p_instance_pk5_value            => NULL
63                                   ,p_user_name                     => l_user_name
64                                );
65  END CHECK_ITEM_PRIVILEGE;
66 
67 
68 FUNCTION  GET_EGO_USER
69 RETURN VARCHAR2
70 is
71   L_FNDUSER NUMBER;
72   G_EGOUSER VARCHAR2(100);
73 BEGIN
74   L_FNDUSER := FND_GLOBAL.USER_ID ;
75     IF (L_FNDUSER IS NOT NULL) THEN
76        SELECT
77           'HZ_PARTY:' || PARTY_ID
78        INTO
79            G_EgoUser
80        FROM EGO_USER_V
81        WHERE
82           USER_ID = L_FNDUSER;
83 
84       RETURN G_EGOUSER;
85     END IF;
86 EXCEPTION
87   WHEN OTHERS THEN
88     RETURN NULL;
89 
90 END GET_EGO_USER;
91 
92 FUNCTION  GET_FUNCTION_NAME_TO_CHECK RETURN VARCHAR2
93 IS
94 BEGIN
95   Return BOM_SECURITY_PUB.FUNCTION_NAME_TO_CHECK;
96 END;
97 
98 END BOM_SECURITY_PUB;