[Home] [Help]
1: PACKAGE BODY BIS_Target_Level_PVT AS
2: /* $Header: BISVTALB.pls 120.1 2006/01/23 01:36:21 ankgoel noship $ */
3: --
4: /*
5: REM +=======================================================================+
35: REM | 23-Jan-06 ankgoel bug#4946492 - do not update creation date on UPDATE|
36: REM +=======================================================================+
37: */
38: --
39: G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_TARGET_LEVEL_PVT';
40:
41: TYPE lvl_tbl_type IS TABLE OF bis_levels.short_name%TYPE -- Defn added for 2486702
42: INDEX BY BINARY_INTEGER;
43:
1978: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1979: RAISE FND_API.G_EXC_ERROR;
1980: END IF;
1981:
1982: BIS_TARGET_LEVEL_PVT.Retrieve_Target_Level
1983: ( p_api_version => 1.0
1984: , p_Target_Level_Rec => p_Target_Level_Rec
1985: , p_all_info => FND_API.G_FALSE
1986: , x_Target_Level_Rec => l_target_level_orig
2236: BEGIN
2237:
2238: l_Target_Level_rec := p_Target_Level_Rec;
2239:
2240: BIS_TARGET_LEVEL_PVT.Retrieve_Target_Level
2241: ( p_api_version => 1.0
2242: , p_Target_Level_Rec => l_Target_Level_Rec
2243: , p_all_info => FND_API.G_FALSE
2244: , x_Target_Level_Rec => l_target_level_orig
2800: );
2801:
2802: if (l_convert = FND_API.G_TRUE) then
2803: BEGIN
2804: BIS_Target_Level_PVT.Value_ID_Conversion
2805: ( p_api_version
2806: , x_Target_Level_Rec.Target_Level_Short_Name
2807: , x_Target_Level_Rec.Target_Level_Name
2808: , x_Target_Level_Rec.Target_Level_ID
3104: l_flag :=1 ;
3105: l_Target_Level_rec.target_level_id := cr.target_level_id;
3106:
3107: l_Target_Level_rec_p := l_Target_Level_rec;
3108: BIS_Target_Level_PVT.Retrieve_Target_Level
3109: ( p_api_version => 1.0
3110: , p_Target_Level_Rec => l_Target_Level_rec_p
3111: , p_all_info => p_all_info
3112: , x_Target_Level_Rec => l_Target_Level_rec
3239: BEGIN
3240: x_return_status := FND_API.G_RET_STS_SUCCESS;
3241: --
3242: l_Target_Level_Rec.Target_Level_Id := p_Target_Level_Rec.Target_Level_Id;
3243: BIS_Target_Level_PVT.Retrieve_Last_Update_Date
3244: ( p_api_version => 1.0
3245: , p_Target_Level_Rec => p_Target_Level_Rec
3246: , x_last_update_date => l_last_update_date
3247: , x_return_status => x_return_status
3273: l_error_tbl := x_error_tbl;
3274: BIS_UTILITIES_PVT.Add_Error_Message
3275: ( p_error_msg_id => SQLCODE
3276: , p_error_description => SQLERRM
3277: , p_error_proc_name => G_PKG_NAME||'.BIS_Target_Level_PVT'
3278: , p_error_table => l_error_tbl
3279: , x_error_table => x_error_tbl
3280: );
3281: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4432:
4433:
4434: EXCEPTION
4435: WHEN OTHERS THEN
4436: -- BIS_UTILITIES_PUB.put_line(p_text => ' Error in Level_Correspond_To_Dim in BIS_TARGET_LEVEL_PVT -- ' || sqlerrm ) ; -- 2515991
4437: x_return_status := 'E';
4438:
4439: END Level_Correspond_To_Dim;
4440:
4549:
4550: EXCEPTION
4551: WHEN OTHERS THEN
4552: x_return_status := 'E';
4553: -- BIS_UTILITIES_PUB.put_line(p_text => ' Error in COMPARE_LEVELS_DIMS in BIS_TARGET_LEVEL_PVT -- ' || sqlerrm ) ; -- 2515991
4554:
4555: END COMPARE_LEVELS_DIMS;
4556:
4557:
4575: WHEN NO_DATA_FOUND THEN
4576: -- BIS_UTILITIES_PUB.put_line(p_text => 'There is no dimension corresponding to level ' || nvl( p_level_shtnm , ' ' ) ); -- 2515991
4577: RETURN NULL;
4578: WHEN OTHERS THEN
4579: -- BIS_UTILITIES_PUB.put_line(p_text => ' Error in GET_DIM_ID_FRM_LVL_SHTNM in BIS_TARGET_LEVEL_PVT -- ' || sqlerrm );-- 2515991
4580: RETURN NULL;
4581: END GET_DIM_ID_FRM_LVL_SHTNM;
4582:
4583:
4647:
4648: EXCEPTION
4649: WHEN OTHERS THEN
4650: NULL;
4651: -- BIS_UTILITIES_PUB.put_line(p_text => 'Error in ADD_TO_MEASURE_ARRAY in BIS_TARGET_LEVEL_PVT -- ' || sqlerrm ) ; -- 2515991
4652: END ADD_TO_MEASURE_ARRAY;
4653:
4654:
4655: PROCEDURE GET_TL_LVLS_ARRAY -- Procedure added for 2486702
4711: WHEN OTHERS THEN
4712: x_return_status := 'E';
4713: x_num_lvls := 0;
4714: -- BIS_UTILITIES_PUB.put_line(p_text => 'The number of dimension levels = ' || nvl(l_num_levels, 0) || ' is incorrect. ' ) ; -- 2515991
4715: -- BIS_UTILITIES_PUB.put_line(p_text => ' Error in GET_TL_LVLS_ARRAY in BIS_TARGET_LEVEL_PVT -- ' || sqlerrm ) ;
4716: END GET_TL_LVLS_ARRAY;
4717:
4718:
4719:
4825: RETURN TRUE;
4826:
4827: EXCEPTION
4828: WHEN OTHERS THEN
4829: -- BIS_UTILITIES_PUB.put_line(p_text => ' Error in CHECK_UNIQUE_LEVELS in BIS_TARGET_LEVEL_PVT -- ' || sqlerrm ) ; -- 2515991
4830: RETURN FALSE;
4831: END CHECK_UNIQUE_LEVELS;
4832:
4833:
4858: END IF;
4859:
4860: EXCEPTION
4861: WHEN OTHERS THEN
4862: -- BIS_UTILITIES_PUB.put_line(p_text => ' Error in IS_ORG_OR_TIME_LEVEL in BIS_TARGET_LEVEL_PVT -- ' || sqlerrm ) ; -- 2515991
4863: RETURN FALSE;
4864: END IS_ORG_OR_TIME_LEVEL;
4865:
4866:
4902: RETURN FALSE;
4903: END IS_NOT_NULL_MISSING_NUM;
4904:
4905:
4906: END BIS_Target_Level_PVT;