298: PROCEDURE VALIDATE_DATASET_DIMS(p_version_id IN NUMBER)
299: is
300: l_spec_dim_list VARCHAR2(512);
301: l_dataset_id ZPB_BUSAREA_DATASETS.DATASET_ID%type;
302: l_currency ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
303: l_dimension_id ZPB_BUSAREA_DIMENSIONS.DIMENSION_ID%type;
304: l_cursor epb_cur_type;
305: l_datatable_dim_list VARCHAR2(1000);
306: l_dataset_dim_list VARCHAR2(1000);
331: --
332: -- is the BA currency enabled
333: select CURRENCY_ENABLED
334: into l_currency
335: from ZPB_BUSAREA_VERSIONS
336: where VERSION_ID = p_version_id;
337:
338: -- loop over each dataset
339: l_dataset_dim_list := '';
788: l_value_set_id ZPB_BUSAREA_HIER_MEMBERS.VALUE_SET_ID%type;
789: l_logical_dim_id ZPB_BUSAREA_HIER_MEMBERS.LOGICAL_DIM_ID%type;
790: l_org_logical_dim_id ZPB_BUSAREA_HIER_MEMBERS.LOGICAL_DIM_ID%type;
791:
792: l_ba_id ZPB_BUSAREA_VERSIONS.BUSINESS_AREA_ID%type;
793: l_vers_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
794: l_currency ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
795: l_intercompany ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
796:
789: l_logical_dim_id ZPB_BUSAREA_HIER_MEMBERS.LOGICAL_DIM_ID%type;
790: l_org_logical_dim_id ZPB_BUSAREA_HIER_MEMBERS.LOGICAL_DIM_ID%type;
791:
792: l_ba_id ZPB_BUSAREA_VERSIONS.BUSINESS_AREA_ID%type;
793: l_vers_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
794: l_currency ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
795: l_intercompany ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
796:
797: l_vs_combo_id FEM_GLOBAL_VS_COMBO_DEFS.GLOBAL_VS_COMBO_ID%type;
790: l_org_logical_dim_id ZPB_BUSAREA_HIER_MEMBERS.LOGICAL_DIM_ID%type;
791:
792: l_ba_id ZPB_BUSAREA_VERSIONS.BUSINESS_AREA_ID%type;
793: l_vers_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
794: l_currency ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
795: l_intercompany ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
796:
797: l_vs_combo_id FEM_GLOBAL_VS_COMBO_DEFS.GLOBAL_VS_COMBO_ID%type;
798:
791:
792: l_ba_id ZPB_BUSAREA_VERSIONS.BUSINESS_AREA_ID%type;
793: l_vers_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
794: l_currency ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
795: l_intercompany ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
796:
797: l_vs_combo_id FEM_GLOBAL_VS_COMBO_DEFS.GLOBAL_VS_COMBO_ID%type;
798:
799: l_owner_dim ZPB_DIMENSIONS.IS_OWNER_DIM%type;
899:
900: select BUSINESS_AREA_ID, VERSION_TYPE, CURRENCY_ENABLED,
901: INTERCOMPANY_ENABLED
902: into l_ba_id, l_vers_type, l_currency, l_intercompany
903: from ZPB_BUSAREA_VERSIONS
904: where VERSION_ID = p_version_id;
905:
906: -------------------------------------------------------------------------
907: -- Validate Level and Hieracrchy names:
1033: -----------------------------------------------------------------------
1034: -- check to see if the BA has an FDR
1035: select nvl(FUNC_DIM_SET_OBJ_DEF_ID, -99)
1036: into l_fdr_id
1037: from ZPB_BUSAREA_VERSIONS
1038: where VERSION_ID = p_version_id;
1039:
1040: if (l_fdr_id = -99) then
1041: select count(distinct (C.DIM_ATTRIBUTE_NUMERIC_MEMBER))
1077: else
1078: SELECT A.DISPLAY_NAME
1079: into l_fdr_desc
1080: FROM FEM_OBJECT_DEFINITION_VL A, FEM_FUNC_DIM_SETS_B B,
1081: ZPB_BUSAREA_VERSIONS C
1082: WHERE C.VERSION_ID = p_version_id
1083: and A.OBJECT_DEFINITION_ID = C.FUNC_DIM_SET_OBJ_DEF_ID;
1084:
1085: REGISTER_ERROR('S', 'E', 'ZPB_BA_INV_FDR_GSVC',
2907: p_init_fix IN VARCHAR2 DEFAULT 'N')
2908: is
2909: l_proc_name CONSTANT VARCHAR2(33) := G_PKG_NAME||'.val_against_epb';
2910:
2911: l_refr_vers ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
2912: l_vers_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
2913: l_ba_id ZPB_BUSINESS_AREAS.BUSINESS_AREA_ID%type;
2914: l_aw ZPB_BUSINESS_AREAS.DATA_AW%type;
2915: l_name ZPB_ANALYSIS_CYCLES.NAME%type;
2908: is
2909: l_proc_name CONSTANT VARCHAR2(33) := G_PKG_NAME||'.val_against_epb';
2910:
2911: l_refr_vers ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
2912: l_vers_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
2913: l_ba_id ZPB_BUSINESS_AREAS.BUSINESS_AREA_ID%type;
2914: l_aw ZPB_BUSINESS_AREAS.DATA_AW%type;
2915: l_name ZPB_ANALYSIS_CYCLES.NAME%type;
2916: l_folder BISM_OBJECTS.FOLDER_ID%type;
3060: p_version_id);
3061: begin
3062: select A.BUSINESS_AREA_ID, A.VERSION_ID, C.DATA_AW, B.VERSION_TYPE
3063: into l_ba_id, l_refr_vers, l_aw, l_vers_type
3064: from ZPB_BUSAREA_VERSIONS A,
3065: ZPB_BUSAREA_VERSIONS B,
3066: ZPB_BUSINESS_AREAS C
3067: where A.BUSINESS_AREA_ID = B.BUSINESS_AREA_ID
3068: and A.VERSION_TYPE = 'R'
3061: begin
3062: select A.BUSINESS_AREA_ID, A.VERSION_ID, C.DATA_AW, B.VERSION_TYPE
3063: into l_ba_id, l_refr_vers, l_aw, l_vers_type
3064: from ZPB_BUSAREA_VERSIONS A,
3065: ZPB_BUSAREA_VERSIONS B,
3066: ZPB_BUSINESS_AREAS C
3067: where A.BUSINESS_AREA_ID = B.BUSINESS_AREA_ID
3068: and A.VERSION_TYPE = 'R'
3069: and B.VERSION_ID = p_version_id