The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(1)
into l_count
from BSC_SYS_DIM_LEVELS_B
where short_name = l_Dim_Level_Rec.Bsc_Level_Short_Name;
l_Dim_Level_Rec.Bsc_Creation_Date := l_Dim_Level_Rec.Bsc_Last_Update_Date;
if l_Dim_Level_Rec.Bsc_Last_Updated_By is null then
l_Dim_Level_Rec.Bsc_Last_Updated_By := FND_GLOBAL.USER_ID;
l_Dim_Level_Rec.Bsc_Last_Update_Date := NVL(p_Dim_Level_Rec.Bsc_Last_Update_Date, SYSDATE);
if l_Dim_Level_Rec.Bsc_Last_Update_Login is null then
l_Dim_Level_Rec.Bsc_Last_Update_Login := FND_GLOBAL.LOGIN_ID;
l_Dim_Level_Rec.Bsc_Last_Update_Date := NVL(p_Dim_Level_Rec.Bsc_Last_Update_Date, SYSDATE);
procedure Update_Dim_Level(
p_commit IN varchar2 --:= FND_API.G_FALSE
,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
,x_return_status OUT NOCOPY varchar2
,x_msg_count OUT NOCOPY number
,x_msg_data OUT NOCOPY varchar2
) is
l_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
l_Dim_Level_Rec.Bsc_Last_Update_Date := NVL(p_Dim_Level_Rec.Bsc_Last_Update_Date, SYSDATE);
Update_Bsc_Dim_Levels_Md( p_commit
,l_Dim_Level_Rec
,x_return_status
,x_msg_count
,x_msg_data);
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
end Update_Dim_Level;
procedure Delete_Dim_Level(
p_commit IN varchar2 --:= FND_API.G_FALSE
,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
,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;
BSC_DIMENSION_LEVELS_PVT.Delete_Dim_Level
(
p_commit => p_commit
, p_Dim_Level_Rec => p_Dim_Level_Rec
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
Delete_Bsc_Dim_Levels_Md( p_commit
,p_Dim_Level_Rec
,x_return_status
,x_msg_count
,x_msg_data);
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
end Delete_Dim_Level;
l_Dim_Level_Rec.Bsc_Last_Update_Date := NVL(p_Dim_Level_Rec.Bsc_Last_Update_Date, SYSDATE);
procedure Update_Bsc_Dim_Levels_Md(
p_commit IN varchar2 --:= FND_API.G_FALSE
,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
,x_return_status OUT NOCOPY varchar2
,x_msg_count OUT NOCOPY number
,x_msg_data OUT NOCOPY varchar2
) is
l_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
l_Dim_Level_Rec.Bsc_Last_Update_Date := NVL(p_Dim_Level_Rec.Bsc_Last_Update_Date, SYSDATE);
BSC_DIMENSION_LEVELS_PVT.Update_Bsc_Dim_Levels_Md( p_commit
,l_Dim_Level_Rec
,x_return_status
,x_msg_count
,x_msg_data);
Update_Bsc_Sys_Dim_Lvl_Cols( p_commit
,l_Dim_Level_Rec
,x_return_status
,x_msg_count
,x_msg_data);
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
end Update_Bsc_Dim_Levels_Md;
procedure Delete_Bsc_Dim_Levels_Md(
p_commit IN varchar2 --:= FND_API.G_FALSE
,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
,x_return_status OUT NOCOPY varchar2
,x_msg_count OUT NOCOPY number
,x_msg_data OUT NOCOPY varchar2
) is
-- Procedure to delete meta data for the Dimension Level.
begin
x_return_status := FND_API.G_RET_STS_SUCCESS;
BSC_DIMENSION_LEVELS_PVT.Delete_Bsc_Dim_Levels_Md( p_commit
,p_Dim_Level_Rec
,x_return_status
,x_msg_count
,x_msg_data);
Delete_Bsc_Sys_Dim_Lvl_Cols( p_commit
,p_Dim_Level_Rec
,x_return_status
,x_msg_count
,x_msg_data);
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
end Delete_Bsc_Dim_Levels_Md;
procedure Update_Bsc_Sys_Dim_Lvl_Cols(
p_commit IN varchar2 --:= FND_API.G_FALSE
,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
,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;
BSC_DIMENSION_LEVELS_PVT.Update_Bsc_Sys_Dim_Lvl_Cols( p_commit
,p_Dim_Level_Rec
,x_return_status
,x_msg_count
,x_msg_data);
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
end Update_Bsc_Sys_Dim_Lvl_Cols;
procedure Delete_Bsc_Sys_Dim_Lvl_Cols(
p_commit IN varchar2 --:= FND_API.G_FALSE
,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
,x_return_status OUT NOCOPY varchar2
,x_msg_count OUT NOCOPY number
,x_msg_data OUT NOCOPY varchar2
) is
-- Procedure to Delete data on Dimension Level column information.
begin
x_return_status := FND_API.G_RET_STS_SUCCESS;
BSC_DIMENSION_LEVELS_PVT.Delete_Bsc_Sys_Dim_Lvl_Cols( p_commit
,p_Dim_Level_Rec
,x_return_status
,x_msg_count
,x_msg_data);
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
end Delete_Bsc_Sys_Dim_Lvl_Cols;
PROCEDURE Delete_Dim_Level_Relation(
p_commit IN varchar2 --:= FND_API.G_FALSE
,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
,x_return_status OUT NOCOPY varchar2
,x_msg_count OUT NOCOPY number
,x_msg_data OUT NOCOPY varchar2
) IS
v_count number;
BSC_DIMENSION_LEVELS_PVT.Delete_Dim_Level_Relation(p_commit, v_Dim_Level_Rec
,x_return_status, x_msg_count, x_msg_data);
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
END Delete_Dim_Level_Relation;
Select PARENT_SHORT_NAME
from BSC_SYS_DIM_LEVEL_RELS_V
where SHORT_NAME = UPPER(p_child_dim_level_short_name);
Select COUNT(1)
into v_count
from BSC_SYS_DIM_LEVEL_RELS_V
where SHORT_NAME = UPPER(p_child_dim_level_short_name)
and PARENT_SHORT_NAME = UPPER(p_parent_dim_level_short_name);
Select PARENT_SHORT_NAME
from BSC_SYS_DIM_LEVEL_RELS_V
where SHORT_NAME = UPPER(p_child_dim_level_short_name);
Select SHORT_NAME
from BSC_SYS_DIM_LEVEL_RELS_V
where PARENT_SHORT_NAME = UPPER(p_parent_dim_level_short_name);
SELECT COUNT(DIM_LEVEL_ID)
INTO l_count
FROM BSC_SYS_DIM_LEVEL_RELS_V
WHERE SHORT_NAME = p_child_dim_level_short_name
AND PARENT_SHORT_NAME = p_parent_dim_level_short_name ;
BSC_DIMENSION_LEVELS_PVT.Delete_Dim_Level
(
p_commit => FND_API.G_FALSE
,p_Dim_Level_Rec => p_Dim_Level_Rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
SELECT dim_level_id
, level_view_name
, table_type
, level_pk_col
INTO l_Bsc_Dim_Rec.Bsc_Level_Id
, l_level_view_name
, l_table_type
, l_level_pk_col
FROM bsc_sys_dim_levels_b
WHERE short_name = p_dim_level_rec.Bsc_Level_Short_Name;
BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level(
p_commit => p_Commit
,p_Dim_Level_Rec => l_Bsc_Dim_Rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);