[Home] [Help]
164: PROCEDURE ADD_DIMENSION (p_version_id IN NUMBER,
165: p_func_dim_set_id IN NUMBER, -- "Consistent Dimension"
166: p_dimension_id IN NUMBER)
167: is
168: l_def_hier ZPB_BUSAREA_DIMENSIONS.DEFAULT_HIERARCHY_ID%type;
169: l_ledger ZPB_BUSAREA_LEDGERS.LEDGER_ID%type;
170: l_cal_dim_id FEM_XDIM_DIMENSIONS.DIMENSION_ID%type;
171: l_cal_dim_col FEM_XDIM_DIMENSIONS.MEMBER_COL%type;
172: l_cal_dim_code FEM_XDIM_DIMENSIONS.MEMBER_DISPLAY_CODE_COL%type;
174: l_def_mbr_code FEM_XDIM_DIMENSIONS.DEFAULT_MEMBER_DISPLAY_CODE%type;
175: l_dim_table FEM_XDIM_DIMENSIONS.MEMBER_B_TABLE_NAME%type;
176: l_attr_table FEM_XDIM_DIMENSIONS.ATTRIBUTE_TABLE_NAME%type;
177: l_attr_id FEM_DIM_ATTRIBUTES_B.ATTRIBUTE_ID%type;
178: l_is_line ZPB_BUSAREA_DIMENSIONS.EPB_LINE_DIMENSION%type;
179: l_hier NUMBER;
180: l_count NUMBER;
181: l_command VARCHAR2(2000);
182: l_logical_dim_id ZPB_BUSAREA_DIMENSIONS.LOGICAL_DIM_ID%type;
178: l_is_line ZPB_BUSAREA_DIMENSIONS.EPB_LINE_DIMENSION%type;
179: l_hier NUMBER;
180: l_count NUMBER;
181: l_command VARCHAR2(2000);
182: l_logical_dim_id ZPB_BUSAREA_DIMENSIONS.LOGICAL_DIM_ID%type;
183: l_aw_dim_name ZPB_BUSAREA_DIMENSIONS.AW_DIM_NAME%type;
184: l_aw_dim_prefix ZPB_BUSAREA_DIMENSIONS.AW_DIM_PREFIX%type;
185: l_member_b_table FEM_XDIM_DIMENSIONS.MEMBER_B_TABLE_NAME%type;
186: l_dim_type_code FEM_XDIM_DIMENSIONS.DIMENSION_TYPE_CODE%type;
179: l_hier NUMBER;
180: l_count NUMBER;
181: l_command VARCHAR2(2000);
182: l_logical_dim_id ZPB_BUSAREA_DIMENSIONS.LOGICAL_DIM_ID%type;
183: l_aw_dim_name ZPB_BUSAREA_DIMENSIONS.AW_DIM_NAME%type;
184: l_aw_dim_prefix ZPB_BUSAREA_DIMENSIONS.AW_DIM_PREFIX%type;
185: l_member_b_table FEM_XDIM_DIMENSIONS.MEMBER_B_TABLE_NAME%type;
186: l_dim_type_code FEM_XDIM_DIMENSIONS.DIMENSION_TYPE_CODE%type;
187: l_len number;
180: l_count NUMBER;
181: l_command VARCHAR2(2000);
182: l_logical_dim_id ZPB_BUSAREA_DIMENSIONS.LOGICAL_DIM_ID%type;
183: l_aw_dim_name ZPB_BUSAREA_DIMENSIONS.AW_DIM_NAME%type;
184: l_aw_dim_prefix ZPB_BUSAREA_DIMENSIONS.AW_DIM_PREFIX%type;
185: l_member_b_table FEM_XDIM_DIMENSIONS.MEMBER_B_TABLE_NAME%type;
186: l_dim_type_code FEM_XDIM_DIMENSIONS.DIMENSION_TYPE_CODE%type;
187: l_len number;
188: l_suffix varchar2(1);
294:
295: Begin
296: select count(LOGICAL_DIM_ID) + l_start_ascii_value
297: into l_ascii_dim_count
298: from ZPB_BUSAREA_DIMENSIONS
299: where VERSION_ID = p_version_id
300: and DIMENSION_ID = p_dimension_id;
301: Exception
302: When no_data_found then null;
329:
330: end if;
331:
332:
333: insert into ZPB_BUSAREA_DIMENSIONS
334: (VERSION_ID,
335: DIMENSION_ID,
336: LOGICAL_DIM_ID, -- "Consistent Dimension"
337: FUNC_DIM_SET_ID, -- "Consistent Dimension"
375: l_hier);
376: end loop;
377:
378: if (l_count = 1) then
379: update ZPB_BUSAREA_DIMENSIONS
380: set DEFAULT_HIERARCHY_ID = l_hier
381: where VERSION_ID = p_version_id
382: and DIMENSION_ID = p_dimension_id
383: and FUNC_DIM_SET_ID = p_func_dim_set_id -- "Consistent Dimension"
706: -------------------------------------------------------------------------
707: PROCEDURE CLEAR_VERSION (p_version_id IN NUMBER)
708: is
709: begin
710: delete from ZPB_BUSAREA_DIMENSIONS
711: where VERSION_ID = p_version_id;
712:
713: delete from ZPB_BUSAREA_HIERARCHIES
714: where VERSION_ID = p_version_id;
1011: LAST_UPDATE_DATE = sysdate,
1012: LAST_UPDATED_BY = FND_GLOBAL.USER_ID
1013: where VERSION_ID = l_to_version_id;
1014:
1015: insert into ZPB_BUSAREA_DIMENSIONS
1016: (VERSION_ID,
1017: DIMENSION_ID,
1018: FUNC_DIM_SET_ID, -- "Consistent Dimension"
1019: LOGICAL_DIM_ID, -- "Consistent Dimension"
1046: FND_GLOBAL.USER_ID,
1047: FND_GLOBAL.LOGIN_ID,
1048: sysdate,
1049: FND_GLOBAL.USER_ID
1050: from ZPB_BUSAREA_DIMENSIONS
1051: where VERSION_ID = l_from_version_id;
1052:
1053: insert into ZPB_BUSAREA_HIERARCHIES
1054: (VERSION_ID,
1718: p_logical_dim_id, -- "Consistent Dimension"
1719: l_dim_attr.ATTRIBUTE_ID);
1720: end loop;
1721:
1722: delete from ZPB_BUSAREA_DIMENSIONS
1723: where VERSION_ID = p_version_id
1724: and LOGICAL_DIM_ID = p_logical_dim_id; -- "Consistent Dimension"
1725:
1726: end REMOVE_DIMENSION;
1735: PROCEDURE REMOVE_HIERARCHY (p_version_id IN NUMBER,
1736: p_logical_dim_id IN NUMBER, -- "Consistent Dimension"
1737: p_hierarchy_id IN NUMBER)
1738: is
1739: l_def_hier ZPB_BUSAREA_DIMENSIONS.DEFAULT_HIERARCHY_ID%type;
1740: begin
1741: delete from ZPB_BUSAREA_HIERARCHIES
1742: where VERSION_ID = p_version_id
1743: and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
1760:
1761: -- "Consistent Dimension"
1762: select DEFAULT_HIERARCHY_ID
1763: into l_def_hier
1764: from ZPB_BUSAREA_DIMENSIONS
1765: where VERSION_ID = p_version_id
1766: and LOGICAL_DIM_ID = p_logical_dim_id;
1767:
1768: exception when NO_DATA_FOUND then
1771:
1772: if (l_def_hier = p_hierarchy_id) then
1773:
1774: -- "Consistent Dimension"
1775: update ZPB_BUSAREA_DIMENSIONS
1776: set DEFAULT_HIERARCHY_ID = null
1777: where VERSION_ID = p_version_id
1778: and LOGICAL_DIM_ID = p_logical_dim_id;
1779:
2053: l_dimension_id := c_get_fdr_dims_rec.DIMENSION_ID;
2054:
2055: select count(*)
2056: into l_count
2057: from ZPB_BUSAREA_DIMENSIONS
2058: where DIMENSION_ID = l_dimension_id
2059: and VERSION_ID = p_version_id;
2060:
2061: -- if the dimension is not already in the BA, add it
2061: -- if the dimension is not already in the BA, add it
2062: -- if it is already there then do a test
2063: -- if the dimension occurs twice in the FDR (not a 1-to-1 mapping)
2064: -- then copy the dimensions into the BA
2065: -- else update ZPB_BUSAREA_DIMENSIONS to have that dim point to the FDR
2066: if (l_count = 0) then
2067: ADD_DIMENSION(p_version_id,
2068: l_func_dim_set_id,
2069: l_dimension_id);
2078: ADD_DIMENSION(p_version_id,
2079: l_func_dim_set_id,
2080: l_dimension_id);
2081: else
2082: update ZPB_BUSAREA_DIMENSIONS
2083: set FUNC_DIM_SET_ID = l_func_dim_set_id
2084: where VERSION_ID = p_version_id
2085: and DIMENSION_ID = l_dimension_id;
2086:
2226:
2227: CURSOR c_get_dup_dims IS
2228: select BA_DIMS.DIMENSION_ID, count(BA_DIMS.DIMENSION_ID)
2229: from
2230: ZPB_BUSAREA_DIMENSIONS BA_DIMS
2231: where BA_DIMS.VERSION_ID = p_version_id
2232: group by BA_DIMS.DIMENSION_ID
2233: having count(BA_DIMS.DIMENSION_ID) > 1;
2234:
2252: update ZPB_BUSAREA_VERSIONS
2253: set FUNC_DIM_SET_OBJ_DEF_ID = NULL
2254: where VERSION_ID = p_version_id;
2255:
2256: update ZPB_BUSAREA_DIMENSIONS
2257: set FUNC_DIM_SET_ID = NULL
2258: where VERSION_ID = p_version_id;
2259:
2260: p_return_status := 'S';