The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE DeleteFuncDimRec(
p_obj_def_id IN NUMBER
);
PROCEDURE DeleteObjectDefinition(
p_obj_def_id IN NUMBER
)
--------------------------------------------------------------------------------
IS
g_api_name CONSTANT VARCHAR2(30) := 'DeleteObjectDefinition';
DeleteFuncDimRec(
p_obj_def_id => p_obj_def_id
);
END DeleteObjectDefinition;
Select DIMENSION_ID,FUNC_DIM_SET_NAME into l_func_dim_rec
from FEM_FUNC_DIM_SETS_VL,FEM_FUNC_DIM_SET_MAPS
where FEM_FUNC_DIM_SETS_VL.FUNC_DIM_SET_ID = FEM_FUNC_DIM_SET_MAPS.FUNC_DIM_SET_ID
and FEM_FUNC_DIM_SETS_VL.FUNC_DIM_SET_OBJ_DEF_ID = p_version_id
and FEM_FUNC_DIM_SET_MAPS.TABLE_NAME = p_table_name
and FEM_FUNC_DIM_SET_MAPS.COLUMN_NAME = p_column_name;
PROCEDURE UpdateColumnDisplayNames(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
--
p_sets IN FEM_FUNC_DIM_SET_TYP
)
-------------------------------------------------------------------------------
IS
--
l_api_name CONSTANT VARCHAR2(30) := 'UpdateColumnDisplayNames';
g_api_name CONSTANT VARCHAR2(30) := 'UpdateColumnDisplayNames';
Select TABLE_NAME,COLUMN_NAME from
FEM_FUNC_DIM_SET_MAPS
where FUNC_DIM_SET_ID = cur_set_id;
SAVEPOINT Update_Column_Display_Pvt ;
Select FUNC_DIM_SET_NAME INTO l_set_name from
FEM_FUNC_DIM_SETS_VL
where
FUNC_DIM_SET_ID = p_sets(i);
UPDATE FEM_TAB_COLUMNS_VL SET DISPLAY_NAME = l_set_name WHERE
TABLE_NAME = l_table_name AND
COLUMN_NAME = l_column_name ;
ROLLBACK TO Update_Column_Display_Pvt ;
ROLLBACK TO Update_Column_Display_Pvt ;
ROLLBACK TO Update_Column_Display_Pvt ;
ROLLBACK TO Update_Column_Display_Pvt ;
END UpdateColumnDisplayNames ;
l_last_updated_by NUMBER;
l_last_update_login NUMBER;
Select FUNC_DIM_SET_ID from
FEM_FUNC_DIM_SETS_VL
where
FUNC_DIM_SET_OBJ_DEF_ID = p_source_obj_def_id;
Select FUNC_DIM_SET_MAP_ID from
FEM_FUNC_DIM_SET_MAPS
where FUNC_DIM_SET_ID = p_old_func_dim_set_id;
l_last_updated_by := FND_GLOBAL.USER_ID;
l_last_update_login := FND_GLOBAL.LOGIN_ID;
select FEM_FUNC_DIM_SET_S.NEXTVAL into l_new_func_dim_set_id from dual;
INSERT INTO FEM_FUNC_DIM_SETS_VL(
LAST_UPDATE_LOGIN
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,CREATION_DATE
,FUNC_DIM_SET_OBJ_DEF_ID
,FUNC_DIM_SET_ID
,DIMENSION_ID
,OBJECT_VERSION_NUMBER
,CREATED_BY
,FUNC_DIM_SET_NAME)
SELECT
FND_GLOBAL.LOGIN_ID
,FND_GLOBAL.USER_ID
,SYSDATE
,NVL(p_creation_date,creation_date)
,p_target_obj_def_id
,l_new_func_dim_set_id
,DIMENSION_ID
,OBJECT_VERSION_NUMBER
,NVL(p_created_by,created_by)
,FUNC_DIM_SET_NAME
FROM FEM_FUNC_DIM_SETS_VL
WHERE FUNC_DIM_SET_OBJ_DEF_ID = p_source_obj_def_id
AND FUNC_DIM_SET_ID = l_old_func_dim_set_id ;
select FEM_FUNC_DIM_SET_MAP_S.NEXTVAL into l_new_func_dim_set_map_id from dual;
INSERT INTO FEM_FUNC_DIM_SET_MAPS(
FUNC_DIM_SET_MAP_ID
,FUNC_DIM_SET_ID
,TABLE_NAME
,COLUMN_NAME
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN)
SELECT
l_new_func_dim_set_map_id
,l_new_func_dim_set_id
,TABLE_NAME
,COLUMN_NAME
,NVL(p_created_by,created_by)
,NVL(p_creation_date,creation_date)
,FND_GLOBAL.USER_ID
,SYSDATE
,FND_GLOBAL.LOGIN_ID
FROM FEM_FUNC_DIM_SET_MAPS
WHERE FUNC_DIM_SET_ID = l_old_func_dim_set_id
AND FUNC_DIM_SET_MAP_ID = l_old_func_dim_set_map_id ;
PROCEDURE DeleteFuncDimRec(
p_obj_def_id IN NUMBER
)
--------------------------------------------------------------------------------
IS
l_func_dim_set_id NUMBER;
SELECT FUNC_DIM_SET_ID FROM FEM_FUNC_DIM_SETS_VL
WHERE FUNC_DIM_SET_OBJ_DEF_ID = p_obj_def_id ;
DELETE FROM FEM_FUNC_DIM_SET_MAPS
WHERE FUNC_DIM_SET_ID = l_func_dim_set_id ;
DELETE FROM FEM_FUNC_DIM_SETS_VL
WHERE FUNC_DIM_SET_OBJ_DEF_ID = p_obj_def_id;
END DeleteFuncDimRec;