695: PRAGMA AUTONOMOUS_TRANSACTION;
696:
697: d_predicate varchar2(4000) := null;
698: x_fact_id number;
699: x_fk_col_name edw_sec_fact_info_t.fk_col_name%TYPE;
700: x_context_name edw_sec_dim_info_t.context_name%TYPE;
701:
702:
703: cursor sec_cursor is select distinct t1.dim_id
700: x_context_name edw_sec_dim_info_t.context_name%TYPE;
701:
702:
703: cursor sec_cursor is select distinct t1.dim_id
704: from edw_sec_dim_access t1, edw_sec_fact_info_t t2
705: where resp_id = ses_resp_id
706: and t1.dim_id = t2.dim_id
707: and t2.fact_id = x_fact_id;
708:
712:
713: x_def_dim_id edw_sec_dim_access.dim_id%TYPE;
714:
715: cursor sec_def_cursor is select distinct t1.dim_id
716: from edw_sec_dim_access t1, edw_sec_fact_info_t t2
717: where resp_id = ses_resp_id
718: and t1.dim_id = t2.dim_id
719: and t2.fact_id = x_fact_id
720: and t1.dim_id <> x_def_dim_id;
724: x_item_set_name varchar2(30) := 'EDW_DEF_SEC_PERM';
725: x_number number :=0;
726: x_default_sec varchar2(30);
727: ---------------------------------------------------------------------
728: current_dim_id edw_sec_fact_info_t.dim_id%TYPE;
729:
730:
731:
732: -- Cursor changed to eliminate disabled references - 3/6/2002
731:
732: -- Cursor changed to eliminate disabled references - 3/6/2002
733:
734: cursor fk_cursor is select fk_col_name
735: from edw_sec_fact_info_t
736: where fact_id = x_fact_id
737: and dim_id = current_dim_id
738: and fk_col_name not in
739: ( select fk_col_name
777: --ses_resp_id := FND_PROFILE.VALUE('RESP_ID');
778: ses_resp_id := SYS_CONTEXT( 'edw_context', 'resp_context');
779:
780: select distinct fact_id into x_fact_id
781: from edw_sec_fact_info_t
782: where fact_name = obj_name;
783:
784:
785: -- Check for error flag to make sure successfull execution of initialization function
1017:
1018: PRAGMA AUTONOMOUS_TRANSACTION;
1019:
1020: d_predicate varchar2(4000) := null;
1021: x_fk_col_name varchar2(30); -- edw_sec_fact_info_t.fk_col_name%TYPE;
1022: x_context_name varchar2(30); --edw_sec_dim_info_t.context_name%TYPE;
1023:
1024:
1025: error_flag varchar2(30) := NULL;
1085:
1086: -- Find the fact against which security function is being executed
1087:
1088: select distinct fact_id into x_fact_id
1089: from edw_sec_fact_info_t
1090: where fact_name = obj_name;
1091:
1092:
1093: -- Get database version and set maximum predicate length