The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(*)
into l_count
from ZPB_BUSINESS_AREAS_VL
where NAME = l_name;
insert into ZPB_BUSAREA_ATTRIBUTES
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
ATTRIBUTE_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_version_id,
p_logical_dim_id, -- "Consistent Dimension"
p_attribute_id,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
insert into ZPB_BUSAREA_CONDITIONS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
ATTRIBUTE_ID,
VALUE,
VALUE_SET_ID,
OPERATION,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_version_id,
p_logical_dim_id, -- "Consistent Dimension"
p_attribute_id,
p_value,
p_value_set_id,
p_operation,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
insert into ZPB_BUSAREA_DATASETS
(VERSION_ID,
DATASET_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_version_id,
p_dataset_id,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
select HIERARCHY_OBJ_ID
from FEM_HIERARCHIES
where DIMENSION_ID = p_dimension_id
and PERSONAL_FLAG = 'N';
select MIN(LEDGER_ID)
into l_ledger
from ZPB_BUSAREA_LEDGERS
where VERSION_ID = p_version_id;
select VALUE_SET_REQUIRED_FLAG,
decode(DIMENSION_TYPE_CODE, 'LINE', 'Y', 'N')
into l_vs_req, l_is_line
from FEM_XDIM_DIMENSIONS
where DIMENSION_ID = p_dimension_id;
select DEFAULT_HIERARCHY_OBJ_ID
into l_def_hier
from FEM_GLOBAL_VS_COMBO_DEFS A,
FEM_VALUE_SETS_VL B,
FEM_LEDGERS_ATTR C,
FEM_DIM_ATTRIBUTES_B D,
FEM_DIM_ATTR_VERSIONS_B E
where D.ATTRIBUTE_VARCHAR_LABEL = 'GLOBAL_VS_COMBO'
and D.ATTRIBUTE_ID = E.ATTRIBUTE_ID
and E.DEFAULT_VERSION_FLAG = 'Y'
and C.ATTRIBUTE_ID = D.ATTRIBUTE_ID
and C.DIM_ATTRIBUTE_NUMERIC_MEMBER = A.GLOBAL_VS_COMBO_ID
and B.DIMENSION_ID = p_dimension_id
and B.VALUE_SET_ID = A.VALUE_SET_ID
and C.AW_SNAPSHOT_FLAG = 'N'
and C.LEDGER_ID = l_ledger;
select A.DIMENSION_ID,
A.MEMBER_COL,
A.MEMBER_DISPLAY_CODE_COL,
A.MEMBER_B_TABLE_NAME,
A.DEFAULT_MEMBER_DISPLAY_CODE,
A.ATTRIBUTE_TABLE_NAME
into l_cal_dim_id, l_cal_dim_col, l_cal_dim_code,
l_dim_table, l_def_mbr_code, l_attr_table
from FEM_XDIM_DIMENSIONS A,
FEM_DIMENSIONS_B B
where A.DIMENSION_ID = B.DIMENSION_ID
and B.DIMENSION_VARCHAR_LABEL = 'CALENDAR';
l_command := 'select A.DIM_ATTRIBUTE_NUMERIC_MEMBER
from '||l_attr_table||' A, FEM_DIM_ATTRIBUTES_B B,
FEM_DIM_ATTR_VERSIONS_B C, '||l_dim_table||' D
where A.'||l_cal_dim_col||' = D.'||l_cal_dim_col||'
and D.'||l_cal_dim_code||' = '''||l_def_mbr_code||'''
and A.ATTRIBUTE_ID = B.ATTRIBUTE_ID
and A.ATTRIBUTE_ID = C.ATTRIBUTE_ID
and B.DIMENSION_ID = '||l_cal_dim_id||'
and B.ATTRIBUTE_VARCHAR_LABEL = ''DEFAULT_HIERARCHY''
and A.VERSION_ID = C.VERSION_ID
and C.DEFAULT_VERSION_FLAG = ''Y''';
Select zpb_busarea_logical_dims_seq.nextval
into l_logical_dim_id
from dual;
select count(LOGICAL_DIM_ID) + l_start_ascii_value
into l_ascii_dim_count
from ZPB_BUSAREA_DIMENSIONS
where VERSION_ID = p_version_id
and DIMENSION_ID = p_dimension_id;
select member_b_table_name, dimension_type_code
into l_member_b_table, l_dim_type_code
from fem_xdim_dimensions
where dimension_id = p_dimension_id;
insert into ZPB_BUSAREA_DIMENSIONS
(VERSION_ID,
DIMENSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
FUNC_DIM_SET_ID, -- "Consistent Dimension"
AW_DIM_NAME, -- "Consistent Dimension"
AW_DIM_PREFIX, -- "Consistent Dimension"
DEFAULT_HIERARCHY_ID,
USE_MEMBER_CONDITIONS,
EPB_LINE_DIMENSION,
CONDITIONS_INCL_DESC,
CONDITIONS_INCL_ANC,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_version_id,
p_dimension_id,
l_logical_dim_id, -- "Consistent Dimension"
p_func_dim_set_id, -- "Consistent Dimension"
l_aw_dim_name, -- "Consistent Dimension"
l_aw_dim_prefix, -- "Consistent Dimension"
l_def_hier,
'N',
l_is_line,
'N',
'N',
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
update ZPB_BUSAREA_DIMENSIONS
set DEFAULT_HIERARCHY_ID = l_hier
where VERSION_ID = p_version_id
and DIMENSION_ID = p_dimension_id
and FUNC_DIM_SET_ID = p_func_dim_set_id -- "Consistent Dimension"
and DEFAULT_HIERARCHY_ID is null;
insert into ZPB_BUSAREA_HIERARCHIES
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
HIERARCHY_ID,
KEEP_VERSION,
INCLUDE_ALL_TOP_MEMBERS,
INCLUDE_ALL_LEVELS,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_version_id,
p_logical_dim_id, -- "Consistent Dimension"
p_hierarchy_id,
'N',
'Y',
'Y',
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
select MULTI_TOP_FLAG, DIMENSION_ID
into l_multi_top, l_dimension_id
from FEM_HIERARCHIES
where HIERARCHY_OBJ_ID = p_hierarchy_id;
select HIERARCHY_TABLE_NAME, HIER_EDITOR_MANAGED_FLAG
into l_dim_table, l_has_pers
from FEM_XDIM_DIMENSIONS
where DIMENSION_ID = l_dimension_id;
insert into ZPB_BUSAREA_HIER_MEMBERS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
HIERARCHY_ID,
MEMBER_ID,
VALUE_SET_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select
p_version_id,
p_logical_dim_id, -- "Consistent Dimension"
p_hierarchy_id,
A.PARENT_ID,
A.PARENT_VALUE_SET_ID
from '||l_dim_table||' A,
'||l_dim_table||' B
where A.PARENT_ID = A.CHILD_ID
and A.PARENT_DEPTH_NUM = 1
and A.PARENT_ID = B.'||l_member_col||'
and A.PARENT_VALUE_SET_ID = B.VALUE_SET_ID';
insert into ZPB_BUSAREA_HIER_MEMBERS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
HIERARCHY_ID,
MEMBER_ID,
VALUE_SET_ID,
HIER_VERSION_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_version_id,
p_logical_dim_id, -- "Consistent Dimension"
p_hierarchy_id,
p_member_id,
p_member_vset,
p_hier_version,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
insert into ZPB_BUSAREA_HIER_VERSIONS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
HIERARCHY_ID,
HIER_VERSION_ID,
INCLUDE_ALL_TOP_MEMBERS,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_version_id,
p_logical_dim_id, -- "Consistent Dimension"
p_hierarchy_id,
p_hier_vers_id,
'Y',
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
insert into ZPB_BUSAREA_LEDGERS
(VERSION_ID,
LEDGER_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_version_id,
p_ledger_id,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
insert into ZPB_BUSAREA_LEVELS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
LEVEL_ID,
HIERARCHY_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_version_id,
p_logical_dim_id, -- "Consistent Dimension"
p_level_id,
p_hierarchy_id,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
select OBJECT_DEFINITION_ID
from FEM_OBJECT_DEFINITION_B
where OBJECT_ID = p_hierarchy_id
and EFFECTIVE_START_DATE < sysdate
order by EFFECTIVE_END_DATE DESC;
select KEEP_VERSION, NUMBER_OF_VERSIONS
into l_incl_type, l_number
from ZPB_BUSAREA_HIERARCHIES
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id;
delete from ZPB_BUSAREA_HIER_VERSIONS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id;
insert into ZPB_BUSAREA_HIER_VERSIONS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
HIERARCHY_ID,
HIER_VERSION_ID,
INCLUDE_ALL_TOP_MEMBERS,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY)
values
(p_version_id,
p_logical_dim_id, -- "Consistent Dimension"
p_hierarchy_id,
each_vers.OBJECT_DEFINITION_ID,
'Y',
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID,
sysdate,
FND_GLOBAL.USER_ID);
delete from ZPB_BUSAREA_DIMENSIONS
where VERSION_ID = p_version_id;
delete from ZPB_BUSAREA_HIERARCHIES
where VERSION_ID = p_version_id;
delete from ZPB_BUSAREA_HIER_MEMBERS
where VERSION_ID = p_version_id;
delete from ZPB_BUSAREA_HIER_VERSIONS
where VERSION_ID = p_version_id;
delete from ZPB_BUSAREA_LEVELS
where VERSION_ID = p_version_id;
delete from ZPB_BUSAREA_ATTRIBUTES
where VERSION_ID = p_version_id;
delete from ZPB_BUSAREA_CONDITIONS
where VERSION_ID = p_version_id;
delete from ZPB_BUSAREA_LEDGERS
where VERSION_ID = p_version_id;
delete from ZPB_BUSAREA_DATASETS
where VERSION_ID = p_version_id;
select ZPB_BUSINESS_AREAS_SEQ.nextval into l_business_area_id from dual;
insert into ZPB_BUSINESS_AREAS
(BUSINESS_AREA_ID,
BUSAREA_CREATED_BY,
DATA_AW,
ANNOTATION_AW,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(l_business_area_id,
l_user_id,
'ZPBDATA'||l_business_area_id,
'ZPBANNOT'||l_business_area_id,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
insert into ZPB_BUSAREA_USERS
(BUSINESS_AREA_ID,
USER_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(l_business_area_id,
l_user_id,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
select VERSION_ID
into l_version_id
from ZPB_BUSAREA_VERSIONS
where BUSINESS_AREA_ID = p_business_area_id
and VERSION_TYPE = p_version_type;
select
NAME,
DESCRIPTION,
CURRENCY_ENABLED,
INTERCOMPANY_ENABLED,
FUNC_DIM_SET_OBJ_DEF_ID -- "Consistent Dimension"
into
l_version_name,
l_version_desc,
l_version_curr,
l_version_inter,
l_ver_fdr_obj_def_id -- "Consistent Dimension"
from
ZPB_BUSAREA_VERSIONS
where
BUSINESS_AREA_ID = p_business_area_id
and VERSION_TYPE = l_parent_version_type;
update ZPB_BUSAREA_VERSIONS set
NAME = l_version_name,
DESCRIPTION = l_version_desc,
CURRENCY_ENABLED = l_version_curr,
INTERCOMPANY_ENABLED = l_version_inter,
FUNC_DIM_SET_OBJ_DEF_ID= l_ver_fdr_obj_def_id, -- "Consistent Dimension"
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID
where BUSINESS_AREA_ID = p_business_area_id
and VERSION_TYPE = p_version_type;
select ZPB_BUSAREA_VERSIONS_SEQ.nextval into l_version_id from dual;
insert into ZPB_BUSAREA_VERSIONS
(VERSION_ID,
BUSINESS_AREA_ID,
VERSION_TYPE,
NAME,
DESCRIPTION,
CURRENCY_ENABLED,
INTERCOMPANY_ENABLED,
FUNC_DIM_SET_OBJ_DEF_ID, -- "Consistent Dimension"
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(l_version_id,
p_business_area_id,
p_version_type,
l_version_name,
l_version_desc,
l_version_curr,
l_version_inter,
l_ver_fdr_obj_def_id, -- "Consistent Dimension"
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
select
VERSION_ID,
CURRENCY_ENABLED,
INTERCOMPANY_ENABLED,
LINE_HIERARCHY_NAME,
LINE_HIERARCHY_DESC,
FUNC_DIM_SET_OBJ_DEF_ID -- "Consistent Dimension"
into
l_from_version_id,
l_version_curr,
l_version_inter,
l_version_line_name,
l_version_line_desc,
l_ver_fdr_obj_def_id -- "Consistent Dimension"
from
ZPB_BUSAREA_VERSIONS
where
BUSINESS_AREA_ID = p_from_busarea_id
and VERSION_TYPE = p_from_version_type;
select VERSION_ID
into l_to_version_id
from ZPB_BUSAREA_VERSIONS
where BUSINESS_AREA_ID = p_to_busarea_id
and VERSION_TYPE = p_to_version_type;
select NAME, DESCRIPTION
into l_version_name, l_version_desc
from ZPB_BUSAREA_VERSIONS
where VERSION_TYPE = l_parent_version_type
and BUSINESS_AREA_ID = p_to_busarea_id;
select NAME, DESCRIPTION
into l_version_name, l_version_desc
from ZPB_BUSAREA_VERSIONS
where VERSION_ID = l_from_version_id;
update ZPB_BUSAREA_VERSIONS set
NAME = l_version_name,
DESCRIPTION = l_version_desc,
CURRENCY_ENABLED = l_version_curr,
INTERCOMPANY_ENABLED = l_version_inter,
FUNC_DIM_SET_OBJ_DEF_ID = l_ver_fdr_obj_def_id, -- "Consistent Dimension"
LINE_HIERARCHY_NAME = l_version_line_name,
LINE_HIERARCHY_DESC = l_version_line_desc,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID
where VERSION_ID = l_to_version_id;
insert into ZPB_BUSAREA_DIMENSIONS
(VERSION_ID,
DIMENSION_ID,
FUNC_DIM_SET_ID, -- "Consistent Dimension"
LOGICAL_DIM_ID, -- "Consistent Dimension"
AW_DIM_NAME, -- "Consistent Dimension"
AW_DIM_PREFIX, -- "Consistent Dimension"
DEFAULT_HIERARCHY_ID,
USE_MEMBER_CONDITIONS,
EPB_LINE_DIMENSION,
LINE_HIERARCHY,
CONDITIONS_INCL_ANC,
CONDITIONS_INCL_DESC,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select l_to_version_id,
DIMENSION_ID,
FUNC_DIM_SET_ID, -- "Consistent Dimension"
LOGICAL_DIM_ID,-- "Consistent Dimension"
AW_DIM_NAME, -- "Consistent Dimension"
AW_DIM_PREFIX, -- "Consistent Dimension"
DEFAULT_HIERARCHY_ID,
USE_MEMBER_CONDITIONS,
EPB_LINE_DIMENSION,
LINE_HIERARCHY,
CONDITIONS_INCL_ANC,
CONDITIONS_INCL_DESC,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID
from ZPB_BUSAREA_DIMENSIONS
where VERSION_ID = l_from_version_id;
insert into ZPB_BUSAREA_HIERARCHIES
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
HIERARCHY_ID,
KEEP_VERSION,
NUMBER_OF_VERSIONS,
INCLUDE_ALL_TOP_MEMBERS,
INCLUDE_ALL_LEVELS,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select l_to_version_id,
LOGICAL_DIM_ID,-- "Consistent Dimension"
HIERARCHY_ID,
KEEP_VERSION,
NUMBER_OF_VERSIONS,
INCLUDE_ALL_TOP_MEMBERS,
INCLUDE_ALL_LEVELS,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID
from ZPB_BUSAREA_HIERARCHIES
where VERSION_ID = l_from_version_id;
insert into ZPB_BUSAREA_HIER_MEMBERS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
HIERARCHY_ID,
MEMBER_ID,
VALUE_SET_ID,
HIER_VERSION_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select l_to_version_id,
LOGICAL_DIM_ID,-- "Consistent Dimension"
HIERARCHY_ID,
MEMBER_ID,
VALUE_SET_ID,
HIER_VERSION_ID,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID
from ZPB_BUSAREA_HIER_MEMBERS
where VERSION_ID = l_from_version_id;
insert into ZPB_BUSAREA_HIER_VERSIONS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
HIERARCHY_ID,
HIER_VERSION_ID,
INCLUDE_ALL_TOP_MEMBERS,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select l_to_version_id,
LOGICAL_DIM_ID,-- "Consistent Dimension"
HIERARCHY_ID,
HIER_VERSION_ID,
INCLUDE_ALL_TOP_MEMBERS,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID
from ZPB_BUSAREA_HIER_VERSIONS
where VERSION_ID = l_from_version_id;
insert into ZPB_BUSAREA_LEVELS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
HIERARCHY_ID,
LEVEL_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select l_to_version_id,
LOGICAL_DIM_ID,-- "Consistent Dimension"
HIERARCHY_ID,
LEVEL_ID,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID
from ZPB_BUSAREA_LEVELS
where VERSION_ID = l_from_version_id;
insert into ZPB_BUSAREA_ATTRIBUTES
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
ATTRIBUTE_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select l_to_version_id,
LOGICAL_DIM_ID,-- "Consistent Dimension"
ATTRIBUTE_ID,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID
from ZPB_BUSAREA_ATTRIBUTES
where VERSION_ID = l_from_version_id;
insert into ZPB_BUSAREA_CONDITIONS
(VERSION_ID,
LOGICAL_DIM_ID, -- "Consistent Dimension"
ATTRIBUTE_ID,
VALUE,
VALUE_SET_ID,
OPERATION,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select l_to_version_id,
LOGICAL_DIM_ID,-- "Consistent Dimension"
ATTRIBUTE_ID,
VALUE,
VALUE_SET_ID,
OPERATION,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID
from ZPB_BUSAREA_CONDITIONS
where VERSION_ID = l_from_version_id;
insert into ZPB_BUSAREA_DATASETS
(VERSION_ID,
DATASET_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select l_to_version_id,
DATASET_ID,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID
from ZPB_BUSAREA_DATASETS
where VERSION_ID = l_from_version_id;
insert into ZPB_BUSAREA_LEDGERS
(VERSION_ID,
LEDGER_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select l_to_version_id,
LEDGER_ID,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID
from ZPB_BUSAREA_LEDGERS
where VERSION_ID = l_from_version_id;
update ZPB_BUSINESS_AREAS
set PUBLISH_DATE = sysdate,
PUBLISHED_BY = FND_GLOBAL.USER_ID
where BUSINESS_AREA_ID = p_to_busarea_id;
update ZPB_BUSINESS_AREAS
set REFRESH_DATE = sysdate,
REFRESHED_BY = FND_GLOBAL.USER_ID
where BUSINESS_AREA_ID = p_to_busarea_id;
FUNCTION DELETE_BUSINESS_AREA_CR (p_business_area_id IN NUMBER)
return NUMBER is
l_ba_name ZPB_BUSAREA_VERSIONS.NAME%type;
update ZPB_BUSINESS_AREAS
set STATUS = 'D'
where BUSINESS_AREA_ID = p_business_area_id;
select NAME
into l_ba_name
from ZPB_BUSINESS_AREAS_VL
where BUSINESS_AREA_ID = p_business_area_id;
DELETE_BUSINESS_AREA(l_errbuf, l_retcode, p_business_area_id);
FND_MESSAGE.SET_NAME('ZPB', 'ZPB_BUSAREA_DELETE');
'ZPB_BA_DELETE',
FND_MESSAGE.GET,
null,
null,
p_business_area_id);
end DELETE_BUSINESS_AREA_CR;
PROCEDURE DELETE_BUSINESS_AREA (ERRBUF OUT NOCOPY VARCHAR2,
RETCODE OUT NOCOPY VARCHAR2,
p_business_area_id IN NUMBER)
is
l_snapshot_id ZPB_BUSINESS_AREAS.SNAPSHOT_OBJECT_ID%type;
select VERSION_ID
from ZPB_BUSAREA_VERSIONS
where BUSINESS_AREA_ID = p_business_area_id;
select TASK_SEQ
from ZPB_WRITEBACK_TASKS
where BUSINESS_AREA_ID = p_business_area_id;
select ANALYSIS_CYCLE_ID
from ZPB_ANALYSIS_CYCLES
where BUSINESS_AREA_ID = p_business_area_id;
select ZPB_AW.GET_SCHEMA||'.'||PERSONAL_AW AW_NAME
from ZPB_USERS
where BUSINESS_AREA_ID = p_business_area_id
UNION
select ZPB_AW.GET_SCHEMA||'.'||DATA_AW AW_NAME
from ZPB_BUSINESS_AREAS
where BUSINESS_AREA_ID = p_business_area_id
UNION
select ZPB_AW.GET_SCHEMA||'.'||ANNOTATION_AW AW_NAME
from ZPB_BUSINESS_AREAS
where BUSINESS_AREA_ID = p_business_area_id
UNION
select ZPB_AW.GET_SCHEMA||'.SQTEMP'||p_business_area_id from dual;
select 'alter system kill session '''||s.sid||','||s.serial#||'''' cmd
from v$session s,
v$lock l,
dba_aws a
where l.type='AW' and
l.id1=2 and
l.id2 >= 1000 and
a.aw_number=l.id2 and
s.sid=l.sid and
a.aw_name = l_aw_name and
a.owner = zpb_aw.get_schema;
select SNAPSHOT_OBJECT_ID
into l_snapshot_id
from ZPB_BUSINESS_AREAS
where BUSINESS_AREA_ID = p_business_area_id;
FEM_OBJECT_CATALOG_UTIL_PKG.DELETE_OBJECT
(X_MSG_COUNT => l_msg_count,
X_MSG_DATA => ERRBUF,
X_RETURN_STATUS => RETCODE,
P_API_VERSION => 1.0,
P_COMMIT => FND_API.G_FALSE,
P_OBJECT_ID => l_snapshot_id);
select COUNT(*)
into l_refreshed_count
from ZPB_BUSAREA_VERSIONS
WHERE VERSION_TYPE = 'R'
and BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_STATUS_SQL
where QUERY_PATH like 'oracle/apps/zpb/BusArea'||p_business_area_id||'/%';
delete from ZPB_ACCOUNT_STATES
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_METASCOPE_ATTRIBUTES
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_METASCOPE_HIERARCHIES
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_METASCOPE_LEVELS
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_SHADOW_USERS
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_WRITEBACK_TRANSACTION
where TASK_SEQ = l_tasks.TASK_SEQ;
delete from ZPB_WRITEBACK_TASKS
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_EXCP_RESULTS
where TASK_ID in (select B.TASK_ID from ZPB_ANALYSIS_CYCLES A, ZPB_ANALYSIS_CYCLE_TASKS B
where A.BUSINESS_AREA_ID = p_business_area_id
AND A.ANALYSIS_CYCLE_ID = B.ANALYSIS_CYCLE_ID);
delete from ZPB_AC_PARAM_VALUES
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_ANALYSIS_CYCLE_INSTANCES
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_ANALYSIS_CYCLE_TASKS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_CYCLE_COMMENTS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_CYCLE_DATASETS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_CYCLE_MODEL_DIMENSIONS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_CYCLE_RELATIONSHIPS
where PUBLISHED_AC_ID = l_cycles.ANALYSIS_CYCLE_ID
or EDITABLE_AC_ID = l_cycles.ANALYSIS_CYCLE_ID
or TMP_AC_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_DATA_INITIALIZATION_DEFS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_DC_OBJECTS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID
or AC_INSTANCE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_SOLVE_ALLOCATION_DEFS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_SOLVE_INPUT_LEVELS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_SOLVE_MEMBER_DEFS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_SOLVE_OUTPUT_LEVELS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_SOLVE_PROCESS_MAPS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_SOLVE_PROCESS_MEMBERS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_SOLVE_STEP_DIMHIERS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_VIEW_LIST
where INSTANCE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_METASCOPE_CONTROLLEDCALCS
where INSTANCE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_ANALYSIS_CYCLES
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_BUSINESS_PROCESS_SCOPE
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_CYCLE_CURRENCIES
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_SOLVE_INPUT_SELECTIONS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
delete from ZPB_SOLVE_OUTPUT_SELECTIONS
where ANALYSIS_CYCLE_ID = l_cycles.ANALYSIS_CYCLE_ID;
select DATA_AW
into l_aw
from ZPB_BUSINESS_AREAS
where BUSINESS_AREA_ID = p_business_area_id;
ZPB_AW.EXECUTE ('aw delete '||l_aws.AW_NAME);
('zpb_busarea_maint.delete_business_area', 4);
delete from ZPB_BUSAREA_VERSIONS
where VERSION_ID = l_versions.VERSION_ID;
delete from ZPB_BUSAREA_COMMENTS
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_MEASURE_SCOPE_EXEMPT_USERS
where USER_ID in (select A.USER_ID from ZPB_MEASURE_SCOPE_EXEMPT_USERS A, ZPB_USERS B
where B.BUSINESS_AREA_ID = p_business_area_id AND A.USER_ID = B.USER_ID);
delete from ZPB_USERS
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_BUSAREA_USERS
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_BUSINESS_AREAS
where BUSINESS_AREA_ID = p_business_area_id;
select count(*)
into l_folder_count
from BISM_OBJECTS
where OBJECT_NAME = 'BusArea'||p_business_area_id and
OBJECT_TYPE_ID = 100;
zpb_bism.delete_bism_folder_wo_security('oracle/apps/zpb/BusArea' ||
p_business_area_id, FND_GLOBAL.USER_ID);
end DELETE_BUSINESS_AREA;
update ZPB_USERS
set LAST_BUSAREA_LOGIN = 'N',
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_DATE = sysdate
where USER_ID = FND_GLOBAL.USER_ID
and BUSINESS_AREA_ID <> p_business_area_id;
update ZPB_USERS
set LAST_BUSAREA_LOGIN = 'Y',
LAST_LOGIN_DATE = sysdate,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_DATE = sysdate,
SHADOW_ID = FND_GLOBAL.USER_ID
where USER_ID = FND_GLOBAL.USER_ID
and BUSINESS_AREA_ID = p_business_area_id;
select NAME
into l_ba_name
from ZPB_BUSINESS_AREAS_VL
where BUSINESS_AREA_ID = p_business_area_id;
delete from ZPB_BUSAREA_ATTRIBUTES
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and ATTRIBUTE_ID = p_attribute_id;
delete from ZPB_BUSAREA_CONDITIONS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and ATTRIBUTE_ID = p_attribute_id
and nvl(TRIM(VALUE), '*') = nvl(p_value, '*')
and VALUE_SET_ID = p_value_set_id
and OPERATION = p_operation;
delete from ZPB_BUSAREA_CONDITIONS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and ATTRIBUTE_ID = p_attribute_id
and nvl(TRIM(VALUE), '*') = nvl(p_value, '*')
and OPERATION = p_operation;
delete from ZPB_BUSAREA_DATASETS
where VERSION_ID = p_version_id
and DATASET_ID = p_dataset_id;
select HIERARCHY_ID
from ZPB_BUSAREA_HIERARCHIES
where VERSION_ID = p_version_id
AND LOGICAL_DIM_ID = p_logical_dim_id;
select ATTRIBUTE_ID
from ZPB_BUSAREA_ATTRIBUTES
where VERSION_ID = p_version_id
AND LOGICAL_DIM_ID = p_logical_dim_id;
delete from ZPB_BUSAREA_DIMENSIONS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id; -- "Consistent Dimension"
delete from ZPB_BUSAREA_HIERARCHIES
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id;
delete from ZPB_BUSAREA_LEVELS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id;
delete from ZPB_BUSAREA_HIER_MEMBERS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id;
select DEFAULT_HIERARCHY_ID
into l_def_hier
from ZPB_BUSAREA_DIMENSIONS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id;
update ZPB_BUSAREA_DIMENSIONS
set DEFAULT_HIERARCHY_ID = null
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id;
delete from ZPB_BUSAREA_HIER_MEMBERS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id
and MEMBER_ID = p_member_id
and VALUE_SET_ID = p_member_vset
and HIER_VERSION_ID = p_hier_version;
delete from ZPB_BUSAREA_HIER_MEMBERS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id
and MEMBER_ID = p_member_id
and VALUE_SET_ID = p_member_vset;
delete from ZPB_BUSAREA_HIER_MEMBERS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id
and MEMBER_ID = p_member_id
and HIER_VERSION_ID = p_hier_version;
delete from ZPB_BUSAREA_HIER_MEMBERS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id
and MEMBER_ID = p_member_id;
delete from ZPB_BUSAREA_HIER_VERSIONS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id
and nvl(HIER_VERSION_ID,-1) = nvl(p_hier_vers_id, -1);
delete from ZPB_BUSAREA_LEDGERS
where VERSION_ID = p_version_id
and LEDGER_ID = p_ledger_id;
delete from ZPB_BUSAREA_LEVELS
where VERSION_ID = p_version_id
and LOGICAL_DIM_ID = p_logical_dim_id -- "Consistent Dimension"
and HIERARCHY_ID = p_hierarchy_id
and LEVEL_ID = p_level_id;
insert into ZPB_BUSAREA_USERS
(BUSINESS_AREA_ID,
USER_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
values
(p_business_area_id,
p_user_id,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate,
FND_GLOBAL.USER_ID);
delete from ZPB_BUSAREA_USERS
where BUSINESS_AREA_ID = p_business_area_id
and USER_ID = p_user_id;
select distinct DATA_LOC.LEDGER_ID
from FEM_FUNC_DIM_SET_MAPS FDR_MAP,
FEM_FUNC_DIM_SETS_B FDR_SET,
FEM_DATA_LOCATIONS DATA_LOC,
FEM_OBJECT_CATALOG_B OBJ,
FEM_OBJECT_DEFINITION_B OBJ_DEF,
FEM_LEDGERS_ATTR LEDGER_ATTR
where FDR_MAP.FUNC_DIM_SET_ID = FDR_SET.FUNC_DIM_SET_ID
and FDR_SET.FUNC_DIM_SET_OBJ_DEF_ID = p_fdr_obj_def_id
and DATA_LOC.TABLE_NAME = FDR_MAP.TABLE_NAME
and OBJ_DEF.OBJECT_DEFINITION_ID = FDR_SET.FUNC_DIM_SET_OBJ_DEF_ID
and OBJ.OBJECT_ID = OBJ_DEF.OBJECT_ID
and LEDGER_ATTR.LEDGER_ID = DATA_LOC.LEDGER_ID
and LEDGER_ATTR.ATTRIBUTE_ID = l_gvsc_attr_id
and LEDGER_ATTR.DIM_ATTRIBUTE_NUMERIC_MEMBER = OBJ.LOCAL_VS_COMBO_ID
and NOT EXISTS (select BA_LEDGER.LEDGER_ID
from ZPB_BUSAREA_LEDGERS BA_LEDGER
where BA_LEDGER.VERSION_ID = p_version_id
and BA_LEDGER.LEDGER_ID = DATA_LOC.LEDGER_ID);
select FUNC_DIM_SET_ID, DIMENSION_ID
from FEM_FUNC_DIM_SETS_B
where FUNC_DIM_SET_OBJ_DEF_ID = p_fdr_obj_def_id;
select A.FUNC_DIM_SET_ID, A.DIMENSION_ID, A.FUNC_DIM_SET_NAME, B.DESCRIPTION
from FEM_FUNC_DIM_SETS_VL A, FEM_XDIM_DIMENSIONS_VL B
where A.FUNC_DIM_SET_OBJ_DEF_ID = p_fdr_obj_def_id
and A.DIMENSION_ID in (2, 5, 6, 112, 113)
and A.DIMENSION_ID = B.DIMENSION_ID;
select count(*)
into l_count
from ZPB_BUSAREA_DIMENSIONS
where DIMENSION_ID = l_dimension_id
and VERSION_ID = p_version_id;
select count(*)
into l_count
from FEM_FUNC_DIM_SETS_B
where FUNC_DIM_SET_OBJ_DEF_ID = p_fdr_obj_def_id
and DIMENSION_ID = l_dimension_id;
update ZPB_BUSAREA_DIMENSIONS
set FUNC_DIM_SET_ID = l_func_dim_set_id
where VERSION_ID = p_version_id
and DIMENSION_ID = l_dimension_id;
select distinct DATA_LOC.DATASET_CODE
from FEM_FUNC_DIM_SET_MAPS FDR_MAP,
FEM_FUNC_DIM_SETS_B FDR_SET,
FEM_DATA_LOCATIONS DATA_LOC
where FDR_MAP.FUNC_DIM_SET_ID = FDR_SET.FUNC_DIM_SET_ID
and FDR_SET.FUNC_DIM_SET_OBJ_DEF_ID = p_fdr_obj_def_id
and DATA_LOC.TABLE_NAME = FDR_MAP.TABLE_NAME
and NOT EXISTS (select BA_DS.DATASET_ID
from ZPB_BUSAREA_DATASETS BA_DS
where BA_DS.VERSION_ID = p_version_id
and BA_DS.DATASET_ID = DATA_LOC.DATASET_CODE);
select BA_DIMS.DIMENSION_ID, count(BA_DIMS.DIMENSION_ID)
from
ZPB_BUSAREA_DIMENSIONS BA_DIMS
where BA_DIMS.VERSION_ID = p_version_id
group by BA_DIMS.DIMENSION_ID
having count(BA_DIMS.DIMENSION_ID) > 1;
update ZPB_BUSAREA_VERSIONS
set FUNC_DIM_SET_OBJ_DEF_ID = NULL
where VERSION_ID = p_version_id;
update ZPB_BUSAREA_DIMENSIONS
set FUNC_DIM_SET_ID = NULL
where VERSION_ID = p_version_id;