232: PROCEDURE getPrivilege_for_profileOption
233: (p_api_version IN NUMBER,
234: p_object_name IN VARCHAR2,
235: p_user_name IN VARCHAR2,
236: x_privilege_tbl OUT NOCOPY EGO_VARCHAR_TBL_TYPE,
237: x_return_status OUT NOCOPY VARCHAR2
238: )
239: IS
240: l_role_name VARCHAR2(30);
727: l_company_info VARCHAR2(32767); /* Must match g_pred_buf_size*/
728: l_menu_info VARCHAR2(32767); /* Must match g_pred_buf_size*/
729: l_object_id NUMBER;
730: l_user_name VARCHAR2(80);
731: l_prof_privilege_tbl EGO_VARCHAR_TBL_TYPE;
732:
733: candidate_sets_c DYNAMIC_CUR;
734: instance_set DYNAMIC_CUR;
735: l_dynamic_sql_1 VARCHAR2(32767);
1968: l_object_id number;
1969: l_user_name varchar2(80);
1970: -- l_orig_system varchar2(48);
1971: l_orig_system_id NUMBER;
1972: l_prof_privilege_tbl EGO_VARCHAR_TBL_TYPE;
1973:
1974: l_pk2_value VARCHAR2(200);
1975: l_pk3_value VARCHAR2(200);
1976: l_pk4_value VARCHAR2(200);
2618: p_parent_instance_pk3_value IN VARCHAR2 DEFAULT NULL,
2619: p_parent_instance_pk4_value IN VARCHAR2 DEFAULT NULL,
2620: p_parent_instance_pk5_value IN VARCHAR2 DEFAULT NULL,
2621: x_return_status OUT NOCOPY VARCHAR2,
2622: x_privilege_tbl OUT NOCOPY EGO_VARCHAR_TBL_TYPE
2623: )
2624: IS
2625:
2626: l_api_name CONSTANT VARCHAR2(30) := 'GET_INHERITED_FUNCTIONS';
2673: m_privilege_tbl_count NUMBER;
2674: m_privilege_tbl_index NUMBER;
2675: x_index NUMBER;
2676:
2677: l_prof_privilege_tbl EGO_VARCHAR_TBL_TYPE;
2678: l_profile_role VARCHAR2(80);
2679:
2680: instance_set DYNAMIC_CUR;
2681: candidate_sets_c DYNAMIC_CUR;
3387: end if;
3388:
3389: m_privilege_tbl_count := m_privilege_tbl.COUNT;
3390:
3391: x_privilege_tbl := EGO_VARCHAR_TBL_TYPE();
3392:
3393: x_index := 0;
3394: if (m_privilege_tbl_count > 0) then
3395: x_privilege_tbl.extend(m_privilege_tbl_count);
3490:
3491: instance_set_grants_c DYNAMIC_CUR;
3492: l_dynamic_sql_1 VARCHAR2(32767);
3493: l_set_predicate_segment VARCHAR2(32767);
3494: l_prof_privilege_tbl EGO_VARCHAR_TBL_TYPE;
3495:
3496: BEGIN
3497: SetGlobals();
3498: code_debug (p_log_level => G_DEBUG_LEVEL_PROCEDURE
3996:
3997: instance_set_grants_c DYNAMIC_CUR;
3998: l_dynamic_sql_1 VARCHAR2(32767);
3999: l_one_set_predicate VARCHAR2(32767);
4000: l_prof_privilege_tbl EGO_VARCHAR_TBL_TYPE;
4001:
4002: CURSOR get_user_grantee_key (cp_party_id NUMBER)
4003: IS
4004: --SELECT decode (party_type,'PERSON','HZ_PARTY:'||party_id,'GROUP','HZ_GROUP:'||party_id,'ORGANIZATION','HZ_COMPANY:'||party_id) grantee_key
4481: l_sub_pred_clause varchar2(512);
4482:
4483: l_group_info VARCHAR2(32767); /* Must match g_pred_buf_size*/
4484: l_company_info VARCHAR2(32767); /* Must match g_pred_buf_size*/
4485: l_prof_privilege_tbl EGO_VARCHAR_TBL_TYPE;
4486: l_dynamic_sql VARCHAR2(32767);
4487: instance_set_grants_c DYNAMIC_CUR;
4488: l_set_predicate VARCHAR2(32767);
4489:
4936: p_pk3_alias IN VARCHAR2 DEFAULT NULL,
4937: p_pk4_alias IN VARCHAR2 DEFAULT NULL,
4938: p_pk5_alias IN VARCHAR2 DEFAULT NULL,
4939: p_object_type IN VARCHAR2 default null,
4940: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
4941: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
4942: p_parent_obj_alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4943: x_predicate OUT NOCOPY varchar2,
4944: x_return_status OUT NOCOPY varchar2
4937: p_pk4_alias IN VARCHAR2 DEFAULT NULL,
4938: p_pk5_alias IN VARCHAR2 DEFAULT NULL,
4939: p_object_type IN VARCHAR2 default null,
4940: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
4941: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
4942: p_parent_obj_alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4943: x_predicate OUT NOCOPY varchar2,
4944: x_return_status OUT NOCOPY varchar2
4945: )
4938: p_pk5_alias IN VARCHAR2 DEFAULT NULL,
4939: p_object_type IN VARCHAR2 default null,
4940: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
4941: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
4942: p_parent_obj_alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4943: x_predicate OUT NOCOPY varchar2,
4944: x_return_status OUT NOCOPY varchar2
4945: )
4946: IS
4988: p_pk3_alias IN VARCHAR2 DEFAULT NULL,
4989: p_pk4_alias IN VARCHAR2 DEFAULT NULL,
4990: p_pk5_alias IN VARCHAR2 DEFAULT NULL,
4991: p_object_type IN VARCHAR2 default null,
4992: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
4993: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
4994: p_parent_obj_pk1alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4995: p_parent_obj_pk2alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4996: x_predicate OUT NOCOPY varchar2,
4989: p_pk4_alias IN VARCHAR2 DEFAULT NULL,
4990: p_pk5_alias IN VARCHAR2 DEFAULT NULL,
4991: p_object_type IN VARCHAR2 default null,
4992: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
4993: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
4994: p_parent_obj_pk1alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4995: p_parent_obj_pk2alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4996: x_predicate OUT NOCOPY varchar2,
4997: x_return_status OUT NOCOPY varchar2
4990: p_pk5_alias IN VARCHAR2 DEFAULT NULL,
4991: p_object_type IN VARCHAR2 default null,
4992: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
4993: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
4994: p_parent_obj_pk1alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4995: p_parent_obj_pk2alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4996: x_predicate OUT NOCOPY varchar2,
4997: x_return_status OUT NOCOPY varchar2
4998: ) IS
4991: p_object_type IN VARCHAR2 default null,
4992: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
4993: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
4994: p_parent_obj_pk1alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4995: p_parent_obj_pk2alias_tbl IN EGO_VARCHAR_TBL_TYPE,
4996: x_predicate OUT NOCOPY varchar2,
4997: x_return_status OUT NOCOPY varchar2
4998: ) IS
4999: l_clob_predicate CLOB;
5041: p_pk3_alias IN VARCHAR2 DEFAULT NULL,
5042: p_pk4_alias IN VARCHAR2 DEFAULT NULL,
5043: p_pk5_alias IN VARCHAR2 DEFAULT NULL,
5044: p_object_type IN VARCHAR2 default null,
5045: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
5046: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
5047: p_parent_obj_pk1alias_tbl IN EGO_VARCHAR_TBL_TYPE,
5048: p_parent_obj_pk2alias_tbl IN EGO_VARCHAR_TBL_TYPE,
5049: x_predicate OUT NOCOPY varchar2,
5042: p_pk4_alias IN VARCHAR2 DEFAULT NULL,
5043: p_pk5_alias IN VARCHAR2 DEFAULT NULL,
5044: p_object_type IN VARCHAR2 default null,
5045: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
5046: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
5047: p_parent_obj_pk1alias_tbl IN EGO_VARCHAR_TBL_TYPE,
5048: p_parent_obj_pk2alias_tbl IN EGO_VARCHAR_TBL_TYPE,
5049: x_predicate OUT NOCOPY varchar2,
5050: x_clob_predicate OUT NOCOPY CLOB, --gnanda:Added for Bug 4756970.
5043: p_pk5_alias IN VARCHAR2 DEFAULT NULL,
5044: p_object_type IN VARCHAR2 default null,
5045: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
5046: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
5047: p_parent_obj_pk1alias_tbl IN EGO_VARCHAR_TBL_TYPE,
5048: p_parent_obj_pk2alias_tbl IN EGO_VARCHAR_TBL_TYPE,
5049: x_predicate OUT NOCOPY varchar2,
5050: x_clob_predicate OUT NOCOPY CLOB, --gnanda:Added for Bug 4756970.
5051: x_return_status OUT NOCOPY varchar2
5044: p_object_type IN VARCHAR2 default null,
5045: p_parent_object_tbl IN EGO_VARCHAR_TBL_TYPE,
5046: p_relationship_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
5047: p_parent_obj_pk1alias_tbl IN EGO_VARCHAR_TBL_TYPE,
5048: p_parent_obj_pk2alias_tbl IN EGO_VARCHAR_TBL_TYPE,
5049: x_predicate OUT NOCOPY varchar2,
5050: x_clob_predicate OUT NOCOPY CLOB, --gnanda:Added for Bug 4756970.
5051: x_return_status OUT NOCOPY varchar2
5052: ) IS
5098: parent_instance_set_grants_c DYNAMIC_CUR;
5099: l_dynamic_sql_2 VARCHAR2(32767);
5100:
5101: l_profile_optionFound BOOLEAN DEFAULT FALSE;
5102: l_prof_privilege_tbl EGO_VARCHAR_TBL_TYPE;
5103:
5104: l_parent_object_name VARCHAR2(100);
5105:
5106: CURSOR parent_instance_set_grants_c2 (
7056: (
7057: p_api_version IN NUMBER,
7058: p_role_name IN VARCHAR2,
7059: x_return_status OUT NOCOPY VARCHAR2,
7060: x_privilege_tbl OUT NOCOPY EGO_VARCHAR_TBL_TYPE
7061: )
7062: IS
7063:
7064: l_api_name CONSTANT VARCHAR2(30) := 'GET_ROLE_FUNCTIONS';
7093: ' - p_role_name: '||p_role_name
7094: );
7095: x_return_status := G_RETURN_SUCCESS; /* Assume Success */
7096:
7097: x_privilege_tbl := EGO_VARCHAR_TBL_TYPE();
7098:
7099: l_index := 0;
7100:
7101: FOR privileges_rec IN role_function_c (p_role_name)
7142: p_instance_pk4_value IN VARCHAR2 DEFAULT NULL,
7143: p_instance_pk5_value IN VARCHAR2 DEFAULT NULL,
7144: p_user_name IN VARCHAR2 DEFAULT NULL,
7145: p_object_type IN VARCHAR2 DEFAULT NULL,
7146: p_parent_object_name_tbl IN EGO_VARCHAR_TBL_TYPE,
7147: p_parent_object_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
7148: x_return_status OUT NOCOPY VARCHAR2,
7149: x_privilege_tbl OUT NOCOPY EGO_VARCHAR_TBL_TYPE
7150: )
7143: p_instance_pk5_value IN VARCHAR2 DEFAULT NULL,
7144: p_user_name IN VARCHAR2 DEFAULT NULL,
7145: p_object_type IN VARCHAR2 DEFAULT NULL,
7146: p_parent_object_name_tbl IN EGO_VARCHAR_TBL_TYPE,
7147: p_parent_object_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
7148: x_return_status OUT NOCOPY VARCHAR2,
7149: x_privilege_tbl OUT NOCOPY EGO_VARCHAR_TBL_TYPE
7150: )
7151: IS
7145: p_object_type IN VARCHAR2 DEFAULT NULL,
7146: p_parent_object_name_tbl IN EGO_VARCHAR_TBL_TYPE,
7147: p_parent_object_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
7148: x_return_status OUT NOCOPY VARCHAR2,
7149: x_privilege_tbl OUT NOCOPY EGO_VARCHAR_TBL_TYPE
7150: )
7151: IS
7152:
7153: l_api_name CONSTANT VARCHAR2(30) := 'GET_INHERITED_FUNCTIONS';
7195: m_privilege_tbl_count NUMBER;
7196: m_privilege_tbl_index NUMBER;
7197: x_index NUMBER;
7198:
7199: l_prof_privilege_tbl EGO_VARCHAR_TBL_TYPE;
7200: l_profile_role VARCHAR2(80);
7201:
7202: l_parent_object_count NUMBER; /** ADDING A VARIABLE FOR COUNT ***/
7203:
7719: l_index:=l_index+1;
7720: END LOOP;
7721: END IF;
7722: m_privilege_tbl_count := m_privilege_tbl.COUNT;
7723: x_privilege_tbl := EGO_VARCHAR_TBL_TYPE();
7724: x_index := 0;
7725: if (m_privilege_tbl_count > 0) then
7726: x_privilege_tbl.extend(m_privilege_tbl_count);
7727: FOR i IN m_privilege_tbl.first .. m_privilege_tbl.last LOOP
7776: p_instance_pk2_value IN VARCHAR2 DEFAULT NULL,
7777: p_instance_pk3_value IN VARCHAR2 DEFAULT NULL,
7778: p_instance_pk4_value IN VARCHAR2 DEFAULT NULL,
7779: p_instance_pk5_value IN VARCHAR2 DEFAULT NULL,
7780: p_parent_object_name_tbl IN EGO_VARCHAR_TBL_TYPE,
7781: p_parent_object_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
7782: p_user_name IN VARCHAR2 DEFAULT NULL,
7783: p_object_type IN VARCHAR2 DEFAULT NULL
7784: )
7777: p_instance_pk3_value IN VARCHAR2 DEFAULT NULL,
7778: p_instance_pk4_value IN VARCHAR2 DEFAULT NULL,
7779: p_instance_pk5_value IN VARCHAR2 DEFAULT NULL,
7780: p_parent_object_name_tbl IN EGO_VARCHAR_TBL_TYPE,
7781: p_parent_object_sql_tbl IN EGO_VARCHAR_TBL_TYPE,
7782: p_user_name IN VARCHAR2 DEFAULT NULL,
7783: p_object_type IN VARCHAR2 DEFAULT NULL
7784: )
7785: RETURN VARCHAR2 IS