[Home] [Help]
406: l_has_pers FEM_XDIM_DIMENSIONS.HIER_EDITOR_MANAGED_FLAG%type;
407: l_command VARCHAR2(1000);
408: begin
409:
410: insert into ZPB_BUSAREA_HIERARCHIES
411: (VERSION_ID,
412: LOGICAL_DIM_ID, -- "Consistent Dimension"
413: HIERARCHY_ID,
414: KEEP_VERSION,
643: PROCEDURE CHANGE_HIER_VERS_INCL (p_version_id IN NUMBER,
644: p_logical_dim_id IN NUMBER, -- "Consistent Dimension"
645: p_hierarchy_id IN NUMBER)
646: is
647: l_incl_type ZPB_BUSAREA_HIERARCHIES.KEEP_VERSION%type;
648: l_number ZPB_BUSAREA_HIERARCHIES.NUMBER_OF_VERSIONS%type;
649: l_count NUMBER;
650:
651: cursor hier_last_vers is
644: p_logical_dim_id IN NUMBER, -- "Consistent Dimension"
645: p_hierarchy_id IN NUMBER)
646: is
647: l_incl_type ZPB_BUSAREA_HIERARCHIES.KEEP_VERSION%type;
648: l_number ZPB_BUSAREA_HIERARCHIES.NUMBER_OF_VERSIONS%type;
649: l_count NUMBER;
650:
651: cursor hier_last_vers is
652: select OBJECT_DEFINITION_ID
656: order by EFFECTIVE_END_DATE DESC;
657: begin
658: select KEEP_VERSION, NUMBER_OF_VERSIONS
659: into l_incl_type, l_number
660: from ZPB_BUSAREA_HIERARCHIES
661: where VERSION_ID = p_version_id
662: and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
663: and HIERARCHY_ID = p_hierarchy_id;
664:
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;
715:
716: delete from ZPB_BUSAREA_HIER_MEMBERS
717: where VERSION_ID = p_version_id;
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,
1055: LOGICAL_DIM_ID, -- "Consistent Dimension"
1056: HIERARCHY_ID,
1057: KEEP_VERSION,
1074: FND_GLOBAL.USER_ID,
1075: FND_GLOBAL.LOGIN_ID,
1076: sysdate,
1077: FND_GLOBAL.USER_ID
1078: from ZPB_BUSAREA_HIERARCHIES
1079: where VERSION_ID = l_from_version_id;
1080:
1081: insert into ZPB_BUSAREA_HIER_MEMBERS
1082: (VERSION_ID,
1690:
1691: -- "Consistent Dimension"
1692: cursor c_dim_hier_curs is
1693: select HIERARCHY_ID
1694: from ZPB_BUSAREA_HIERARCHIES
1695: where VERSION_ID = p_version_id
1696: AND LOGICAL_DIM_ID = p_logical_dim_id;
1697:
1698: l_dim_hier c_dim_hier_curs%ROWTYPE;
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"
1744: and HIERARCHY_ID = p_hierarchy_id;
1745: