39: SCRIPTING constant VARCHAR2(30) := 'Scripting';
40: SCRIPTED constant VARCHAR2(30) := 'Scripted';
41: DEBUG constant VARCHAR2(30) := 'Debug';
42: -- Cache the EDW_TIME_M Dimsension ID.
43: v_time_dimension_id EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE := NULL;
44: v_fact_id EDW_FACTS_MD_V.FACT_ID%TYPE := NULL;
45: v_fact_name EDW_FACTS_MD_V.FACT_NAME%TYPE := NULL;
46:
47: CURSOR dim_id(
44: v_fact_id EDW_FACTS_MD_V.FACT_ID%TYPE := NULL;
45: v_fact_name EDW_FACTS_MD_V.FACT_NAME%TYPE := NULL;
46:
47: CURSOR dim_id(
48: p_object_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
49: ) IS
50: SELECT DIM_ID
51: FROM EDW_DIMENSIONS_MD_V
52: WHERE DIM_NAME = p_object_name;
47: CURSOR dim_id(
48: p_object_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
49: ) IS
50: SELECT DIM_ID
51: FROM EDW_DIMENSIONS_MD_V
52: WHERE DIM_NAME = p_object_name;
53:
54: CURSOR c_fact IS
55: SELECT
168:
169:
170:
171: FUNCTION GET_DIM_ID(
172: p_object_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
173: ) RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE;
174:
175: FUNCTION GET_TIME_ID RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE;
176:
169:
170:
171: FUNCTION GET_DIM_ID(
172: p_object_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
173: ) RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE;
174:
175: FUNCTION GET_TIME_ID RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE;
176:
177: PROCEDURE INITIALIZE;
171: FUNCTION GET_DIM_ID(
172: p_object_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
173: ) RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE;
174:
175: FUNCTION GET_TIME_ID RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE;
176:
177: PROCEDURE INITIALIZE;
178:
179: PROCEDURE FINALIZE;
817: END IF;
818: END CHECK_VALIDILITY;
819:
820: FUNCTION GET_DIM_ID(
821: p_object_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
822: ) RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE
823: IS
824: l_id EDW_DIMENSIONS_MD_V.DIM_ID%TYPE;
825: BEGIN
818: END CHECK_VALIDILITY;
819:
820: FUNCTION GET_DIM_ID(
821: p_object_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
822: ) RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE
823: IS
824: l_id EDW_DIMENSIONS_MD_V.DIM_ID%TYPE;
825: BEGIN
826: OPEN dim_id(p_object_name);
820: FUNCTION GET_DIM_ID(
821: p_object_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
822: ) RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE
823: IS
824: l_id EDW_DIMENSIONS_MD_V.DIM_ID%TYPE;
825: BEGIN
826: OPEN dim_id(p_object_name);
827: FETCH dim_id INTO l_id;
828: CLOSE dim_id;
829: RETURN l_id;
830: END GET_DIM_ID;
831:
832: FUNCTION GET_TIME_ID
833: RETURN EDW_DIMENSIONS_MD_V.DIM_ID%TYPE
834: IS
835: BEGIN
836: IF (v_time_dimension_id IS NULL) THEN
837: v_time_dimension_id := GET_DIM_ID('EDW_TIME_M');
917: RETURN l_hier_id;
918: END GET_HIER_ID;
919:
920: FUNCTION GET_LOWEST_LEVEL(
921: p_dim IN EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
922: ) RETURN VARCHAR2 IS
923: l_level_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE;
924: BEGIN
925: select level_name into l_level_name
919:
920: FUNCTION GET_LOWEST_LEVEL(
921: p_dim IN EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE
922: ) RETURN VARCHAR2 IS
923: l_level_name EDW_DIMENSIONS_MD_V.DIM_NAME%TYPE;
924: BEGIN
925: select level_name into l_level_name
926: from edw_levels_md_v lvl
927: where dim_name = p_dim