11: parameters:
12: ***************************************************************** */
13:
14: PROCEDURE Get_Grant(p_project_role_id IN NUMBER,
15: p_instance_type IN FND_GRANTS.INSTANCE_TYPE%TYPE,
16: p_instance_set_name IN FND_OBJECT_INSTANCE_SETS.INSTANCE_SET_NAME%TYPE,
17: p_grantee_type IN FND_GRANTS.GRANTEE_TYPE%TYPE,
18: p_grantee_key IN FND_GRANTS.GRANTEE_KEY%TYPE,
19: x_instance_set_id OUT NOCOPY NUMBER,
13:
14: PROCEDURE Get_Grant(p_project_role_id IN NUMBER,
15: p_instance_type IN FND_GRANTS.INSTANCE_TYPE%TYPE,
16: p_instance_set_name IN FND_OBJECT_INSTANCE_SETS.INSTANCE_SET_NAME%TYPE,
17: p_grantee_type IN FND_GRANTS.GRANTEE_TYPE%TYPE,
18: p_grantee_key IN FND_GRANTS.GRANTEE_KEY%TYPE,
19: x_instance_set_id OUT NOCOPY NUMBER,
20: x_grant_id OUT NOCOPY FND_GRANTS.GRANT_GUID%TYPE,
21: x_ret_code OUT NOCOPY VARCHAR2) IS
14: PROCEDURE Get_Grant(p_project_role_id IN NUMBER,
15: p_instance_type IN FND_GRANTS.INSTANCE_TYPE%TYPE,
16: p_instance_set_name IN FND_OBJECT_INSTANCE_SETS.INSTANCE_SET_NAME%TYPE,
17: p_grantee_type IN FND_GRANTS.GRANTEE_TYPE%TYPE,
18: p_grantee_key IN FND_GRANTS.GRANTEE_KEY%TYPE,
19: x_instance_set_id OUT NOCOPY NUMBER,
20: x_grant_id OUT NOCOPY FND_GRANTS.GRANT_GUID%TYPE,
21: x_ret_code OUT NOCOPY VARCHAR2) IS
22:
16: p_instance_set_name IN FND_OBJECT_INSTANCE_SETS.INSTANCE_SET_NAME%TYPE,
17: p_grantee_type IN FND_GRANTS.GRANTEE_TYPE%TYPE,
18: p_grantee_key IN FND_GRANTS.GRANTEE_KEY%TYPE,
19: x_instance_set_id OUT NOCOPY NUMBER,
20: x_grant_id OUT NOCOPY FND_GRANTS.GRANT_GUID%TYPE,
21: x_ret_code OUT NOCOPY VARCHAR2) IS
22:
23: cursor grants_csr (p_menu_id IN NUMBER,
24: p_instance_type IN FND_GRANTS.INSTANCE_TYPE%TYPE,
20: x_grant_id OUT NOCOPY FND_GRANTS.GRANT_GUID%TYPE,
21: x_ret_code OUT NOCOPY VARCHAR2) IS
22:
23: cursor grants_csr (p_menu_id IN NUMBER,
24: p_instance_type IN FND_GRANTS.INSTANCE_TYPE%TYPE,
25: p_instance_set_id IN NUMBER,
26: p_instance_set_name IN FND_OBJECT_INSTANCE_SETS.INSTANCE_SET_NAME%TYPE,
27: p_grantee_type IN FND_GRANTS.GRANTEE_TYPE%TYPE,
28: p_grantee_key IN FND_GRANTS.GRANTEE_KEY%TYPE) IS
23: cursor grants_csr (p_menu_id IN NUMBER,
24: p_instance_type IN FND_GRANTS.INSTANCE_TYPE%TYPE,
25: p_instance_set_id IN NUMBER,
26: p_instance_set_name IN FND_OBJECT_INSTANCE_SETS.INSTANCE_SET_NAME%TYPE,
27: p_grantee_type IN FND_GRANTS.GRANTEE_TYPE%TYPE,
28: p_grantee_key IN FND_GRANTS.GRANTEE_KEY%TYPE) IS
29:
30: select 'T', grant_guid
31: from fnd_grants
24: p_instance_type IN FND_GRANTS.INSTANCE_TYPE%TYPE,
25: p_instance_set_id IN NUMBER,
26: p_instance_set_name IN FND_OBJECT_INSTANCE_SETS.INSTANCE_SET_NAME%TYPE,
27: p_grantee_type IN FND_GRANTS.GRANTEE_TYPE%TYPE,
28: p_grantee_key IN FND_GRANTS.GRANTEE_KEY%TYPE) IS
29:
30: select 'T', grant_guid
31: from fnd_grants
32: where grantee_key = p_grantee_key
27: p_grantee_type IN FND_GRANTS.GRANTEE_TYPE%TYPE,
28: p_grantee_key IN FND_GRANTS.GRANTEE_KEY%TYPE) IS
29:
30: select 'T', grant_guid
31: from fnd_grants
32: where grantee_key = p_grantee_key
33: and grantee_type = 'USER'
34: and instance_set_id = p_instance_set_id
35: and grantee_type = p_grantee_type
38:
39: l_instance_set_id NUMBER := null;
40: l_menu_id NUMBER := null;
41: l_grant_exists VARCHAR2(1);
42: l_grant_id FND_GRANTS.GRANT_GUID%TYPE := null;
43:
44: BEGIN
45:
46: l_grant_exists := FND_API.G_FALSE;
85: p_object_name IN VARCHAR2,
86: p_object_id IN NUMBER,
87: p_person_id IN NUMBER) RETURN VARCHAR2 IS
88:
89: g_key FND_GRANTS.GRANTEE_KEY%TYPE;
90: l_ret_code VARCHAR2(1) := null;
91:
92: BEGIN
93: /* Changes for ATG mandate for deprecated parameter
137: p_object_name IN VARCHAR2,
138: p_object_id IN NUMBER,
139: p_person_id IN NUMBER) RETURN VARCHAR2 IS
140:
141: g_key FND_GRANTS.GRANTEE_KEY%TYPE;
142: l_ret_code VARCHAR2(1) := null;
143:
144: BEGIN
145: /* Changes for ATG mandate for deprecated parameter
272:
273: l_exists VARCHAR2(1);
274: l_grant_id RAW(16);
275: l_instance_set_id NUMBER;
276: l_grantee_key FND_GRANTS.GRANTEE_KEY%TYPE;
277: l_secured_role_menu FND_MENUS.MENU_NAME%TYPE;
278: l_success VARCHAR2(1);
279: l_error_code NUMBER;
280: l_role VARCHAR2(100);
349:
350:
351: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
352:
353: FND_GRANTS_PKG.Grant_Function(
354: p_api_version => l_api_version,
355: p_menu_name => l_secured_role_menu,
356: p_object_name => p_object_name,
357: p_instance_type => 'SET',
479: ----------------------------------------------------------------------------
480:
481: l_object_id NUMBER;
482: l_object_key_type VARCHAR2(8);
483: l_grant_id FND_GRANTS.GRANT_GUID%TYPE;
484: l_grantee_key FND_GRANTS.GRANTEE_KEY%TYPE;
485: l_user VARCHAR2(200);
486: l_success VARCHAR2(1);
487: l_error_code NUMBER;
480:
481: l_object_id NUMBER;
482: l_object_key_type VARCHAR2(8);
483: l_grant_id FND_GRANTS.GRANT_GUID%TYPE;
484: l_grantee_key FND_GRANTS.GRANTEE_KEY%TYPE;
485: l_user VARCHAR2(200);
486: l_success VARCHAR2(1);
487: l_error_code NUMBER;
488: l_instance_set_id NUMBER;
563: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
564: end if;
565:
566:
567: FND_GRANTS_PKG.Revoke_Grant(
568: p_api_version => p_api_version,
569: p_grant_guid => l_grant_id,
570: x_success => l_success,
571: x_errorcode => l_error_code);