[Home] [Help]
PACKAGE: APPS.FPA_SECURITY_PVT
Source
1 PACKAGE FPA_SECURITY_PVT as
2 /* $Header: FPAVSECS.pls 120.4 2005/09/01 07:44:01 appldev noship $ */
3 G_API_NAME CONSTANT VARCHAR2(80) := 'FPA_SECURITY_PVT';
4 --G_PORTF_ROLE_LIST_TYPE CONSTANT VARCHAR2(200) := 'PROJECT_ADMINISTRATORS';
5
6 G_PORTFOLIO CONSTANT VARCHAR2(80) := 'PJP_PORTFOLIO';
7 G_PORTFOLIO_SET_ALL CONSTANT VARCHAR2(80) := 'PJP_PORTFOLIO_SET';
8
9 G_VIEW_PORTFOLIO CONSTANT VARCHAR2(80) := 'FPA_SEC_VIEW_PORTFOLIO';
10 G_UPDATE_PORTFOLIO CONSTANT VARCHAR2(80) := 'FPA_SEC_UPDATE_PORTFOLIO';
11 G_MAINTAIN_PC CONSTANT VARCHAR2(80) := 'FPA_SEC_MAINTAIN_PC';
12 G_COLLECT_PROJECT CONSTANT VARCHAR2(80) := 'FPA_SEC_COLLECT_PROJECT';
13 G_DEVELOP_SCENARIO CONSTANT VARCHAR2(80) := 'FPA_SEC_DEVELOP_SCENARIO';
14 G_APPROVE_PC CONSTANT VARCHAR2(80) := 'FPA_SEC_APPROVE_PC';
15
16
17 G_OWNER CONSTANT VARCHAR2(200) := 'PORTFOLIO_OWNER';
18 G_ANALYST CONSTANT VARCHAR2(200) := 'PORTFOLIO_ANALYST';
19 G_APPROVER CONSTANT VARCHAR2(200) := 'PORTFOLIO_APPROVER';
20
21 /* ***********************************************************************
22 Desc: Call to check previlege on a portfolio
23 parameters: previlege checked for current fnd user for default p_person_id
24 return: 'T' for has grant, 'F' for no grant,
25 'E' for exception and 'U' for unexpected error.
26 ***************************************************************************/
27
28 FUNCTION Check_User_Previlege
29 (
30 p_privilege IN VARCHAR2 DEFAULT G_VIEW_PORTFOLIO,
31 p_object_name IN VARCHAR2 DEFAULT G_PORTFOLIO,
32 p_object_id IN NUMBER,
33 p_person_id IN NUMBER DEFAULT NULL) RETURN VARCHAR2;
34
35
36 FUNCTION Check_Privilege
37 (
38 p_privilege IN VARCHAR2 DEFAULT G_VIEW_PORTFOLIO,
39 p_object_name IN VARCHAR2 DEFAULT G_PORTFOLIO,
40 p_object_id IN NUMBER,
41 p_person_id IN NUMBER DEFAULT NULL) RETURN VARCHAR2;
42
43 /* ***********************************************************************
44 Desc:
45 parameters:
46 ***************************************************************************/
47
48 FUNCTION Get_Owner
49 (p_portfolio_id IN NUMBER) RETURN NUMBER;
50
51 FUNCTION Get_Role_Id
52 (p_project_role IN PA_PROJECT_ROLE_TYPES.PROJECT_ROLE_TYPE%TYPE DEFAULT G_OWNER)
53 RETURN PA_PROJECT_ROLE_TYPES.PROJECT_ROLE_ID%TYPE;
54
55 /* ***************************************************************
56 Desc: Call to grant access to an User for a given Role.
57 parameters: p_object_id -> portfolio id
58 p_object_type - > PJP_PORTFOLIO
59 p_project_role_id - > role id from LOV 'Role'
60 p_party_id -> person_id -> per_all_people_f.person_id.
61 x_portfolio_party_id -> create portfolio party instance id
62 ***************************************************************** */
63
64 PROCEDURE Create_Portfolio_User
65 (
66 p_api_version IN NUMBER,
67 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
68 p_object_id IN PA_PROJECT_PARTIES.OBJECT_ID%TYPE,
69 p_instance_set_name IN VARCHAR2 DEFAULT G_PORTFOLIO_SET_ALL,
70 p_project_role_id IN PA_PROJECT_ROLE_TYPES.PROJECT_ROLE_ID%TYPE,
71 p_party_id IN NUMBER,
72 p_start_date_active IN DATE,
73 p_end_date_active IN DATE,
74 x_portfolio_party_id OUT NOCOPY PA_PROJECT_PARTIES.PROJECT_PARTY_ID%TYPE,
75 x_return_status OUT NOCOPY VARCHAR2,
76 x_msg_count OUT NOCOPY NUMBER,
77 x_msg_data OUT NOCOPY VARCHAR2);
78
79
80 /* ***************************************************************
81 Desc: Call to update both or either user/role.
82 parameters:
83 p_portfolio_party_id -> pa_project_parties.project_party_id,
84 p_project_role_id - > new role id from LOV 'Role' for update.
85 p_party_id -> new hz_parties.party_id from LOV 'Name' for update.
86 ***************************************************************** */
87
88 PROCEDURE Update_Portfolio_User
89 (
90 p_api_version IN NUMBER,
91 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
92 p_portfolio_party_id IN PA_PROJECT_PARTIES.PROJECT_PARTY_ID%TYPE,
93 p_project_role_id IN PA_PROJECT_ROLE_TYPES.PROJECT_ROLE_ID%TYPE,
94 p_start_date_active IN DATE,
95 p_end_date_active IN DATE,
96 x_return_status OUT NOCOPY VARCHAR2,
97 x_msg_count OUT NOCOPY NUMBER,
98 x_msg_data OUT NOCOPY VARCHAR2);
99
100 /* ***************************************************************
101 Desc:
102 parameters:
103 ***************************************************************** */
104
105 PROCEDURE Update_Portfolio_Owner
106 (
107 p_api_version IN NUMBER,
108 p_init_msg_list IN VARCHAR2,
109 p_portfolio_id IN NUMBER,
110 p_person_id IN NUMBER,
111 x_return_status OUT NOCOPY VARCHAR2,
112 x_msg_count OUT NOCOPY NUMBER,
113 x_msg_data OUT NOCOPY VARCHAR2);
114
115
116 /* ***************************************************************
117 Desc: Call to update both or either user/role.
118 parameters:
119 p_portfolio_party_id -> pa_project_parties.project_party_id.
120 ***************************************************************** */
121
122 PROCEDURE Delete_Portfolio_User
123 (
124 p_api_version IN NUMBER,
125 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
126 p_portfolio_party_id IN PA_PROJECT_PARTIES.PROJECT_PARTY_ID%TYPE,
127 p_instance_set_name IN VARCHAR2 DEFAULT G_PORTFOLIO_SET_ALL,
128 x_return_status OUT NOCOPY VARCHAR2,
129 x_msg_count OUT NOCOPY NUMBER,
130 x_msg_data OUT NOCOPY VARCHAR2);
131
132
133 END FPA_SECURITY_PVT;