The following lines contain the word 'select', 'insert', 'update' or 'delete':
REM | 20-FEB-03 PAJOHRI Added Procedure UPDATE_DIMENSION |
REM | 23-FEB-03 PAJOHRI Added Procedures DELETE_DIMENSION |
REM | CREATE_DIMENSION |
REM | 13-JUN-03 MAHRAO Added Procedure Load_Dimension_Group |
REM | 07-JUL-2003 arhegde bug#3028436 Added call get_unique_dim_group_name()|
REM | in Load_Dimension_Group() |
REM | 09-JUL-2003 arhegde bug#3028436 Moved logic to BSC API from here |
REM | Removed get_unique_dim_group_name() call |
REM | 10-JUL-2003 mahrao Added a call to BSC_DIMENSION_GROUPS_PUB. |
REM | ret_dimgrpid_fr_shname in Load_Dimension_Group |
REM | procedure |
REM | 30-Jul-04 rpenneru Modified for enhancemen#3748519 |
REM | 21-DEC-04 vtulasi Modified for bug#4045278 - Addtion of LUD |
REM | 08-Feb-05 ankgoel Enh#4172034 DD Seeding by Product Teams |
REM | 09-FEB-05 ankgoel Bug#4172055 Dimension name validations |
REM | 21-Jun-05 ankgoel Bug#4437121 bisdimld/v.ldt compatible in 409 |
REM | 06-Jan-06 akoduri Enh#4739401 - Hide Dimensions/Dim Objects |
REM +=======================================================================+
*/
--
G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_DIMENSION_PUB';
l_Dimension_Rec.Last_Update_Date := NVL(p_Dimension_Rec.Last_Update_Date, SYSDATE);
l_Dimension_Rec.Last_Update_Date := NVL(p_Dimension_Rec.Last_Update_Date, SYSDATE);
SELECT COUNT(short_name) INTO l_count
FROM BIS_DIMENSIONS
WHERE short_name = p_Dimension_Rec.Dimension_short_Name;
BIS_UTIL.Validate_For_Update (p_last_update_date => l_Dimension_Rec.Last_Update_Date
,p_owner => p_owner
,p_force_mode => p_force_mode
,p_table_name => 'BIS_DIMENSIONS'
,p_key_value => p_Dimension_Rec.Dimension_short_Name
,x_ret_code => l_ret_code
,x_return_status => x_return_status
,x_msg_data => l_return_msg
);
BIS_DIMENSION_PVT.Update_Dimension
( p_api_version => p_api_version
, p_commit => p_commit
, p_validation_level => p_validation_level
, p_Dimension_Rec => l_Dimension_Rec
, p_owner => p_owner
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
PROCEDURE Update_Dimension
( 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_Rec IN BIS_DIMENSION_PUB.Dimension_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_PVT.Update_Dimension
( p_api_version => p_api_version
, p_commit => p_commit
, p_validation_level => p_validation_level
, p_Dimension_Rec => p_Dimension_Rec
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Dimension'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Update_Dimension;
PROCEDURE Delete_Dimension
(
p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
, p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_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_PVT.Delete_Dimension
(
p_commit => p_commit
, p_validation_level => p_validation_level
, p_Dimension_Rec => p_Dimension_Rec
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
, p_error_proc_name => G_PKG_NAME||'.Delete_Dimension'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Delete_Dimension;
l_Bsc_Dim_Group_Rec.Bsc_Last_Updated_By := p_Dim_Grp_Rec.Bsc_Last_Updated_By;
l_Bsc_Dim_Group_Rec.Bsc_Last_Update_Date := NVL(p_Dim_Grp_Rec.Bsc_Last_Update_Date, SYSDATE);
UPDATE bis_dimensions
SET dim_grp_id = l_dim_grp_id
WHERE short_name = l_Bsc_Dim_Group_Rec.Bsc_Dim_Level_Group_Short_Name;
PROCEDURE Update_Dimension_Obsolete_Flag (
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_dim_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_dim_rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
SELECT
obj_short_name short_name
FROM
bsc_bis_dim_obj_by_dim_vl b
WHERE
dim_short_name = p_dim_short_name AND
(SELECT COUNT(1)
FROM
bsc_bis_dim_obj_by_dim_vl a
WHERE
a.obj_short_name = b.obj_short_name AND
a.dim_short_name <> b.dim_short_name AND
a.dim_short_name <> 'UNASSIGNED' AND
(SELECT NVL(hide_in_design,'F') FROM bis_dimensions WHERE short_name = a.dim_short_name) = 'F' AND
(SELECT bis_util.is_Seeded(created_by,'T','F') FROM bis_dimensions WHERE short_name = a.dim_short_name) = 'T') = 0;
SAVEPOINT DimObsoleteUpdate;
BIS_DIMENSION_LEVEL_PUB.Update_Dim_Obj_Obsolete_Flag (
p_dim_obj_short_name => cr.short_name
, p_hide => p_hide
, x_return_status => x_return_status
, x_Msg_Count => x_Msg_Count
, x_msg_data => x_msg_data
);
BIS_DIMENSION_PVT.Update_Dimension
( p_api_version => 1.0
, p_Dimension_Rec => x_dim_rec
, x_return_status => x_return_status
, x_error_Tbl => l_error_tbl
);
ROLLBACK TO DimObsoleteUpdate;
x_msg_data := x_msg_data||' -> BIS_DIMENSION_PUB.Update_Dimension_Obsolete_Flag ';
x_msg_data := SQLERRM||' at BIS_DIMENSION_PUB.Update_Dimension_Obsolete_Flag ';
END Update_Dimension_Obsolete_Flag;