20: G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_DIM_LEVEL_VALIDATE_PVT';
21: --
22: PROCEDURE Validate_Record
23: ( p_api_version IN NUMBER
24: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
25: , p_Dimension_Level_Rec IN BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type
26: , x_return_status OUT NOCOPY VARCHAR2
27: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
28: )
28: )
29: IS
30: BEGIN
31:
32: x_return_status := FND_API.G_RET_STS_SUCCESS;
33:
34: if( BIS_UTILITIES_PUB.Value_Missing
35: (p_Dimension_Level_Rec.dimension_short_name)
36: = FND_API.G_TRUE
32: x_return_status := FND_API.G_RET_STS_SUCCESS;
33:
34: if( BIS_UTILITIES_PUB.Value_Missing
35: (p_Dimension_Level_Rec.dimension_short_name)
36: = FND_API.G_TRUE
37: OR BIS_UTILITIES_PUB.Value_NULL(p_Dimension_Level_Rec.dimension_short_name)
38: = FND_API.G_TRUE)
39: OR( BIS_UTILITIES_PUB.Value_Missing
40: (p_Dimension_Level_Rec.dimension_level_short_name)
34: if( BIS_UTILITIES_PUB.Value_Missing
35: (p_Dimension_Level_Rec.dimension_short_name)
36: = FND_API.G_TRUE
37: OR BIS_UTILITIES_PUB.Value_NULL(p_Dimension_Level_Rec.dimension_short_name)
38: = FND_API.G_TRUE)
39: OR( BIS_UTILITIES_PUB.Value_Missing
40: (p_Dimension_Level_Rec.dimension_level_short_name)
41: = FND_API.G_TRUE
42: OR BIS_UTILITIES_PUB.Value_NULL
37: OR BIS_UTILITIES_PUB.Value_NULL(p_Dimension_Level_Rec.dimension_short_name)
38: = FND_API.G_TRUE)
39: OR( BIS_UTILITIES_PUB.Value_Missing
40: (p_Dimension_Level_Rec.dimension_level_short_name)
41: = FND_API.G_TRUE
42: OR BIS_UTILITIES_PUB.Value_NULL
43: (p_Dimension_Level_Rec.dimension_level_short_name)
44: = FND_API.G_TRUE) then
45:
40: (p_Dimension_Level_Rec.dimension_level_short_name)
41: = FND_API.G_TRUE
42: OR BIS_UTILITIES_PUB.Value_NULL
43: (p_Dimension_Level_Rec.dimension_level_short_name)
44: = FND_API.G_TRUE) then
45:
46: --POPULATE THE ERROR TABLE
47: --added last two parameters
48: BIS_UTILITIES_PVT.Add_Error_Message
54: , x_error_table => x_error_tbl
55:
56: );
57:
58: RAISE FND_API.G_EXC_ERROR;
59: end if;
60:
61: EXCEPTION
62: WHEN NO_DATA_FOUND THEN
59: end if;
60:
61: EXCEPTION
62: WHEN NO_DATA_FOUND THEN
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: --RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: --RAISE FND_API.G_EXC_ERROR;
60:
61: EXCEPTION
62: WHEN NO_DATA_FOUND THEN
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: --RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: --RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
61: EXCEPTION
62: WHEN NO_DATA_FOUND THEN
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: --RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: --RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
62: WHEN NO_DATA_FOUND THEN
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: --RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: --RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: --RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: --RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
64: --RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: --RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: --RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
73: --added last two parameters
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: --RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
73: --added last two parameters
74: BIS_UTILITIES_PVT.Add_Error_Message
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
73: --added last two parameters
74: BIS_UTILITIES_PVT.Add_Error_Message
75: ( p_error_msg_id => SQLCODE
76: , p_error_description => SQLERRM
77: , p_error_proc_name => G_PKG_NAME||'.Validate_Record'
78: , p_error_table => x_error_tbl
79: , x_error_table => x_error_tbl
80: );
81: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82:
83: END Validate_Record;
84:
85: --