The following lines contain the word 'select', 'insert', 'update' or 'delete':
REM | 20-FEB-2003 PAJOHRI Added Procedure UPDATE_DIMENSION_LEVEL |
REM | 23-FEB-2003 PAJOHRI , Added procedures DELETE_DIMENSION_LEVEL |
REM | CREATE_DIMENSION_LEVEL |
REM | 13-JUN-03 MAHRAO Added Procedure Load_Dimension_Level |
REM | 20-JUN-03 arhegde bug# 3015484 create relationship when |
REM | it is not present, else update it |
REM | 09-JUL-2003 arhegde bug#3028436 Moved logic to BSC API from here |
REM | 10-JUL-2003 mahrao bug#3042968 Added extra parameter to |
REM | Load_Dimension_Level |
REM | 02-SEP-2003 mahrao bug#3099977 Changed code in load_dim_levels |
REM | so that table_type flag is set to -1 |
REM | if underlying view doesnot exist. |
REM | 29-OCT-03 MAHRAO enh of adding new attributes to dim objects |
REM | 14-NOV-03 RCHANDRA enh 2997632, customization APIs |
REM | 25-NOV-03 MAHRAO enh of populated DimLvlList and where_clause_list |
REM | 04-DEC-03 ANKGOEL bug#3264490 Made changes for performance issues |
REM | in uploading dimension levels |
REM | 07-JAN-04 rpenneru bug#3459443 Modified for getting where clause |
REM | from BSC data model |
REM | arhegde 07/23/2004 bug# 3760735 dim object caching. |
REM | 30-Jul-04 rpenneru Modified for enhancemen#3748519 |
REM | 13-Oct-04 rpenneru Modified for bug#3945655 |
REM | 21-DEC-04 vtulasi Modified for bug#4045278 - Addtion of LUD |
REM | 08-Feb-04 skchoudh Enh#3873195 drill_to_form_function column |
REM | is added |
REM | 08-Feb-05 ankgoel Enh#4172034 DD Seeding by Product Teams |
REM | 09-Feb-05 ankgoel Bug#4172055 LUD validations for dim_lvls_by_group
REM | 02-MAR-05 ashankar Bug#3583110 Modifed load_dim_level |
REM | 08-APR-2005 kyadamak generating unique master table for PMF dimension |
REM | objects for the bug# 4290359 |
REM | 22-Aug-05 ankgoel Bug#4557713 LUD validation for dim_lvls_by_group|
REM | 07-NOV-05 akoduri Bug#4696105,Added overloaded API |
REM | get_customized_enabled |
REM | 12-Dec-05 ankgoel Enh#4640165 - Select dim objects from Report |
REM | 06-Jan-06 akoduri Enh#4739401 - Hide Dimensions/Dim Objects |
REM | 24-May-06 akoduri Bug#5128863 - LUD of bsc_sys_dim_levels should |
REM | also get updated |
REM +=======================================================================+
*/
--
G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_DIMENSION_LEVEL_PUB';
l_Dimension_Level_Rec.Last_Update_Date := NVL(p_Dimension_Level_Rec.Last_Update_Date, SYSDATE);
l_Dimension_Level_Rec.Last_Update_Date := NVL(p_Dimension_Level_Rec.Last_Update_Date, SYSDATE);
SELECT COUNT(short_name) INTO l_count
FROM BIS_LEVELS
WHERE short_name = p_Dimension_Level_Rec.Dimension_Level_Short_Name;
BIS_UTIL.Validate_For_Update ( p_last_update_date => l_Dimension_Level_Rec.Last_Update_Date
,p_owner => p_owner
,p_force_mode => p_force_mode
,p_table_name => 'BIS_LEVELS'
,p_key_value => p_Dimension_Level_Rec.Dimension_Level_Short_Name
,x_ret_code => l_ret_code
,x_return_status => x_return_status
,x_msg_data => l_return_msg
);
BIS_DIMENSION_LEVEL_PVT.Update_Dimension_Level
( p_api_version => p_api_version
, p_commit => p_commit
, p_validation_level => p_validation_level
, p_Dimension_Level_Rec => l_Dimension_Level_Rec
, p_owner => p_owner
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
PROCEDURE Update_Dimension_Level
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
, p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
BIS_DIMENSION_LEVEL_PVT.Update_Dimension_Level
(
p_api_version => p_api_version
, p_commit => p_commit
, p_validation_level => p_validation_level
, p_Dimension_Level_Rec => p_Dimension_Level_Rec
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Dimension_Level'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Update_Dimension_Level;
PROCEDURE Delete_Dimension_Level
(
p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
, p_Dimension_Level_Rec IN BIS_Dimension_Level_PUB.Dimension_Level_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
) IS
l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
BIS_DIMENSION_LEVEL_PVT.Delete_Dimension_Level
(
p_commit => p_commit
, p_validation_level => p_validation_level
, p_Dimension_Level_Rec => p_Dimension_Level_Rec
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
, p_error_proc_name => G_PKG_NAME||'.Delete_Dimension_Level'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Delete_Dimension_Level;
SELECT source, name, level_values_view_name, 'ID', 'value'
INTO l_Bsc_Pmf_Dim_Rec.Dimension_Level_Source,
l_Bsc_Pmf_Dim_Rec.Dimension_Level_Long_Name,
l_Bsc_Pmf_Dim_Rec.Dimension_Level_View_Name,
l_Bsc_Pmf_Dim_Rec.Dimension_Level_Pk_Key,
l_Bsc_Pmf_Dim_Rec.Dimension_Level_Name_Column
FROM bis_levels_vl
WHERE UPPER(short_name) = UPPER(p_Bsc_Pmf_Dim_Rec.Dimension_Level_Short_Name);
l_Bsc_Dim_Rec.Bsc_Last_Updated_By := p_Bsc_Dim_Level_Rec.Bsc_Last_Updated_By;
l_Bsc_Dim_Rec.Bsc_Last_Update_Date := NVL(p_Bsc_Dim_Level_Rec.Bsc_Last_Update_Date, SYSDATE);
SELECT short_name FROM bsc_sys_dim_levels_b
WHERE short_name = p_Bsc_Pmf_Dim_Rec.Dimension_Level_Short_Name;
SELECT 1
FROM BSC_SYS_DIM_LEVELS_BY_GROUP A,
BSC_SYS_DIM_LEVELS_B B,
BIS_DIMENSIONS C
WHERE C.short_name = p_Bsc_Pmf_Dim_Rec.Dimension_Short_Name
AND B.short_name = p_Bsc_Pmf_Dim_Rec.Dimension_Level_Short_Name
AND A.dim_group_id = C.dim_grp_id
AND A.dim_level_id = B.dim_level_id;
l_last_update_date DATE;
IF (c_bsc_dim_obj_exists%FOUND) THEN -- Update mode
l_last_update_date := NVL(p_Bsc_Dim_Level_Rec.Bsc_Last_Update_Date, SYSDATE);
l_owner_name := BIS_UTILITIES_PUB.Get_Owner_Name(p_Bsc_Dim_Level_Rec.Bsc_Last_Updated_By);
/*BIS_UTIL.Validate_For_Update
( p_last_update_date => l_last_update_date
, p_owner => l_owner_name
, p_force_mode => p_force_mode
, p_table_name => 'BSC_SYS_DIM_LEVELS_B'
, p_key_value => p_Bsc_Pmf_Dim_Rec.Dimension_Level_Short_Name
, x_ret_code => l_ret_code
, x_return_status => x_return_status
, x_msg_data => x_msg_data);*/
SELECT master_level
FROM bis_levels
WHERE short_name = p_dim_level_short_name;
CURSOR c_cust IS SELECT level_id FROM bis_levels WHERE short_name = p_dim_level_short_name;
PROCEDURE Update_Dim_Obj_Obsolete_Flag (
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_dim_obj_short_name IN VARCHAR2,
p_hide IN VARCHAR2,
x_return_status OUT nocopy VARCHAR2,
x_Msg_Count OUT NOCOPY NUMBER,
x_msg_data OUT nocopy VARCHAR2
) IS
l_Dimension_Level_Rec BIS_Dimension_Level_PUB.Dimension_Level_Rec_Type;
SAVEPOINT DimObjObsoleteUpdate;
BIS_Dimension_Level_PVT.Update_Dimension_Level
( p_api_version => 1.0
, p_Dimension_Level_Rec => x_Dimension_Level_Rec
, x_return_status => x_return_status
, x_error_Tbl => l_error_tbl
);
SELECT dim_level_id
INTO l_Bsc_Dim_Level_Rec_Type.Bsc_Level_Id
FROM bsc_sys_dim_levels_vl
WHERE short_name = p_dim_obj_short_name;
BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level
( p_commit => FND_API.G_FALSE
, p_Dim_Level_Rec => l_Bsc_Dim_Level_Rec_Type
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
ROLLBACK TO DimObjObsoleteUpdate;
x_msg_data := x_msg_data||' -> BSC_BIS_DIM_OBJ_PUB.Update_Dim_Obj_Obsolete_Flag ';
x_msg_data := SQLERRM||' at BSC_BIS_DIM_OBJ_PUB.Update_Dim_Obj_Obsolete_Flag ';
END Update_Dim_Obj_Obsolete_Flag;