The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_common_dimensions
(
p_tab_id IN NUMBER
,p_new_list_config IN VARCHAR2
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_row_cnt NUMBER;
SELECT count(0) INTO l_row_cnt
FROM bsc_sys_com_dim_levels
WHERE tab_id = p_tab_id
AND dim_level_id = l_dim_level_id
AND dim_level_index = l_dim_level_index;
INSERT
INTO bsc_sys_com_dim_levels (tab_id, dim_level_index, dim_level_id, parent_level_index, parent_dim_level_id)
VALUES(p_tab_id, l_dim_level_index, l_dim_level_id, l_parent_level_index, l_parent_level_id);
x_msg_data := x_msg_data||' -> BSC_COMMON_DIMENSIONS_PVT.insert_common_dimensions ';
x_msg_data := SQLERRM||' at BSC_COMMON_DIMENSIONS_PVT.insert_common_dimensions ';
x_msg_data := x_msg_data||' -> BSC_COMMON_DIMENSIONS_PVT.insert_common_dimensions ';
x_msg_data := SQLERRM||' at BSC_COMMON_DIMENSIONS_PVT.insert_common_dimensions ';
END insert_common_dimensions;
PROCEDURE delete_common_dimensions
(
p_tab_id IN NUMBER
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
DELETE
FROM bsc_sys_com_dim_levels
WHERE tab_id = p_tab_id;
x_msg_data := x_msg_data||' -> BSC_COMMON_DIMENSIONS_PVT.delete_common_dimensions ';
x_msg_data := SQLERRM||' at BSC_COMMON_DIMENSIONS_PVT.delete_common_dimensions ';
x_msg_data := x_msg_data||' -> BSC_COMMON_DIMENSIONS_PVT.delete_common_dimensions ';
x_msg_data := SQLERRM||' at BSC_COMMON_DIMENSIONS_PVT.delete_common_dimensions ';
END delete_common_dimensions;
PROCEDURE delete_common_dimensions_tabs (
p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_tab_ids IN VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_tab_ids VARCHAR2(1000);
delete_common_dimensions (
p_tab_id => l_tab_id
, p_commit => p_commit
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
x_msg_data := x_msg_data || ' -> BSC_COMMON_DIMENSIONS_PVT.delete_common_dimensions_tabs ';
x_msg_data := SQLERRM || ' at BSC_COMMON_DIMENSIONS_PVT.delete_common_dimensions_tabs ';
END delete_common_dimensions_tabs;
PROCEDURE delete_user_list_access
(
p_tab_id IN NUMBER
,p_dim_level_index IN NUMBER
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
BEGIN
IF (p_tab_id IS NOT NULL AND p_dim_level_index IS NOT NULL) THEN
DELETE
FROM BSC_USER_LIST_ACCESS
WHERE tab_id = p_tab_id
AND DIM_LEVEL_INDEX >= p_dim_level_index;
x_msg_data := x_msg_data||' -> BSC_COMMON_DIMENSIONS_PVT.delete_user_list_access ';
x_msg_data := SQLERRM||' at BSC_COMMON_DIMENSIONS_PVT.delete_user_list_access ';
x_msg_data := x_msg_data||' -> BSC_COMMON_DIMENSIONS_PVT.delete_user_list_access ';
x_msg_data := SQLERRM||' at BSC_COMMON_DIMENSIONS_PVT.delete_user_list_access ';
END delete_user_list_access;
PROCEDURE insert_user_list_access
(
p_responsibility_id IN bsc_user_list_access.responsibility_id%TYPE
,p_tab_id IN bsc_user_list_access.tab_id%TYPE
,p_dim_level_index IN bsc_user_list_access.dim_level_index%TYPE
,p_dim_level_value IN bsc_user_list_access.dim_level_value%TYPE
,p_creation_date IN bsc_user_list_access.creation_date%TYPE
,p_created_by IN bsc_user_list_access.created_by%TYPE
,p_last_update_date IN bsc_user_list_access.last_update_date%TYPE
,p_last_updated_by IN bsc_user_list_access.last_updated_by%TYPE
,p_last_update_login IN bsc_user_list_access.last_update_login%TYPE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
IF (p_responsibility_id IS NOT NULL AND p_tab_id IS NOT NULL AND p_dim_level_index IS NOT NULL AND p_dim_level_value IS NOT NULL ) THEN
IF (p_creation_date IS NOT NULL AND p_created_by IS NOT NULL AND p_last_update_date IS NOT NULL AND p_last_updated_by IS NOT NULL) THEN
INSERT
INTO
bsc_user_list_access(responsibility_id,
tab_id,
dim_level_index,
dim_level_value,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login)
VALUES ( p_responsibility_id
,p_tab_id
,p_dim_level_index
,p_dim_level_value
,p_creation_date
,p_created_by
,p_last_update_date
,p_last_updated_by
,p_last_update_login
);
x_msg_data := x_msg_data||' -> BSC_COMMON_DIMENSIONS_PVT.insert_user_list_access ';
x_msg_data := SQLERRM||' at BSC_COMMON_DIMENSIONS_PVT.insert_user_list_access ';
x_msg_data := x_msg_data||' -> BSC_COMMON_DIMENSIONS_PVT.insert_user_list_access ';
x_msg_data := SQLERRM||' at BSC_COMMON_DIMENSIONS_PVT.insert_user_list_access ';
END insert_user_list_access;
l_bind_vars_values BSC_UPDATE_UTIL.t_array_of_number;
UPDATE bsc_kpi_dim_levels_b
SET DEFAULT_VALUE = BSC_COMMON_DIMENSIONS_PVT.C_ALL
WHERE indicator IN (
SELECT indicator FROM bsc_tab_indicators WHERE tab_id = p_Tab_Id )
AND default_value like BSC_COMMON_DIMENSIONS_PVT.C_COM_DIM_DEFAULT_VALUE;
l_bind_vars_values BSC_UPDATE_UTIL.t_array_of_varchar2;
SELECT level_table_name
INTO l_level_table_name
FROM bsc_sys_dim_levels_b
WHERE dim_level_id = p_dim_level_id;
UPDATE bsc_kpi_dim_levels_b
SET DEFAULT_VALUE = p_default_value
WHERE indicator IN (
SELECT indicator FROM bsc_tab_indicators WHERE tab_id = p_Tab_Id )
AND level_table_name = l_level_table_name;
SELECT dim_level_id
INTO x_parent_level_id
FROM bsc_sys_com_dim_levels
WHERE tab_id = p_tab_id
AND dim_level_index = x_parent_level_index;