The following lines contain the word 'select', 'insert', 'update' or 'delete':
UPDATE DIMENSION
*********************************************************************************/
PROCEDURE Update_Dimension
(
p_commit IN VARCHAR2 := FND_API.G_TRUE
, p_dimension_id IN NUMBER
, p_short_name IN VARCHAR2
, p_display_name IN VARCHAR2
, p_description IN VARCHAR2
, p_application_id IN NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)IS
l_return_status VARCHAR2(30);
SELECT dimension_id, short_name
FROM bis_dimensions
WHERE dimension_id = p_dimension_id;
SELECT dimension_id, short_name
FROM bis_dimensions
WHERE short_name = p_short_name;
SELECT COUNT(*) INTO l_count FROM bis_dimensions_vl
WHERE name = p_display_name
AND dimension_id <> l_dimension_rec.dimension_id;
BIS_DIMENSION_PUB.Update_Dimension
(
p_api_version => 1.0
, p_commit => FND_API.G_FALSE
, p_validation_level => FND_API.G_VALID_LEVEL_FULL
, p_Dimension_Rec => l_dimension_rec
, x_return_status => l_return_status
, x_error_Tbl => l_error_tbl
);
l_msg_data := 'BSC_BIS_DIM_GROUP_PUB.UPDATE_DIMENSION Failed : at BIS_DIMENSION_PUB.UPDATE_DIMENSION <'||l_msg_data||'>';
END UPDATE_DIMENSION;