44: l_property_value bsc_sys_init.property_value%TYPE ;
45: l_role_name VARCHAR2(256);
46: l_object_name VARCHAR2(256);
47: l_object_id NUMBER;
48: l_instance_type FND_GRANTS.instance_type%TYPE;
49: l_grantee_type FND_GRANTS.grantee_key%TYPE;
50: l_bsc_program_name FND_GRANTS.program_name%TYPE;
51: l_tab_id FND_GRANTS.instance_pk1_value%TYPE;
52: l_grant_guid FND_GRANTS.grant_guid%TYPE;
45: l_role_name VARCHAR2(256);
46: l_object_name VARCHAR2(256);
47: l_object_id NUMBER;
48: l_instance_type FND_GRANTS.instance_type%TYPE;
49: l_grantee_type FND_GRANTS.grantee_key%TYPE;
50: l_bsc_program_name FND_GRANTS.program_name%TYPE;
51: l_tab_id FND_GRANTS.instance_pk1_value%TYPE;
52: l_grant_guid FND_GRANTS.grant_guid%TYPE;
53: l_index NUMBER := 1;
46: l_object_name VARCHAR2(256);
47: l_object_id NUMBER;
48: l_instance_type FND_GRANTS.instance_type%TYPE;
49: l_grantee_type FND_GRANTS.grantee_key%TYPE;
50: l_bsc_program_name FND_GRANTS.program_name%TYPE;
51: l_tab_id FND_GRANTS.instance_pk1_value%TYPE;
52: l_grant_guid FND_GRANTS.grant_guid%TYPE;
53: l_index NUMBER := 1;
54:
47: l_object_id NUMBER;
48: l_instance_type FND_GRANTS.instance_type%TYPE;
49: l_grantee_type FND_GRANTS.grantee_key%TYPE;
50: l_bsc_program_name FND_GRANTS.program_name%TYPE;
51: l_tab_id FND_GRANTS.instance_pk1_value%TYPE;
52: l_grant_guid FND_GRANTS.grant_guid%TYPE;
53: l_index NUMBER := 1;
54:
55: TYPE integer_table_type IS TABLE OF NUMBER INDEX BY binary_integer;
48: l_instance_type FND_GRANTS.instance_type%TYPE;
49: l_grantee_type FND_GRANTS.grantee_key%TYPE;
50: l_bsc_program_name FND_GRANTS.program_name%TYPE;
51: l_tab_id FND_GRANTS.instance_pk1_value%TYPE;
52: l_grant_guid FND_GRANTS.grant_guid%TYPE;
53: l_index NUMBER := 1;
54:
55: TYPE integer_table_type IS TABLE OF NUMBER INDEX BY binary_integer;
56: l_all_tabs_tbl integer_table_type;
91: l_bsc_program_name := 'BSC_PMD_GRANTS';
92:
93: SELECT OBJECT_ID into l_object_id FROM FND_OBJECTS WHERE OBJ_NAME = l_object_name;
94:
95: -- clear all records from fnd_grants
96: DELETE FROM FND_GRANTS WHERE OBJECT_ID = to_char(l_object_id)
97: AND PROGRAM_NAME = 'BSC_PMD_GRANTS';
98:
99: FOR all_tabs IN c_all_tabs LOOP
92:
93: SELECT OBJECT_ID into l_object_id FROM FND_OBJECTS WHERE OBJ_NAME = l_object_name;
94:
95: -- clear all records from fnd_grants
96: DELETE FROM FND_GRANTS WHERE OBJECT_ID = to_char(l_object_id)
97: AND PROGRAM_NAME = 'BSC_PMD_GRANTS';
98:
99: FOR all_tabs IN c_all_tabs LOOP
100: l_all_tabs_tbl( l_index) := all_tabs.tab_id;
105: l_user_name := user_pool.user_name;
106: FOR i IN 1..l_all_tabs_tbl.COUNT LOOP
107: l_tab_id := l_all_tabs_tbl(i);
108:
109: FND_GRANTS_PKG.GRANT_FUNCTION
110: (
111: p_api_version => 1.0
112: ,p_menu_name => l_role_name
113: ,p_object_name => l_object_name
122: ,x_success => l_success
123: ,x_errorcode => l_errorcode
124: );
125: IF (l_success <> FND_API.G_TRUE) THEN
126: --DBMS_OUTPUT.PUT_LINE('BSC_UPGRADES.Update_Role_To_Tabs Failed: at FND_GRANTS_PKG.GRANT_FUNCTION );
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: END IF;
129: END LOOP; -- end loop for users
130: END LOOP; -- end loop for tabs