20: G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_BUSINESS_PLAN_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_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
26: , x_return_status OUT VARCHAR2
27: , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
28: )
27: , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
28: )
29: IS
30: BEGIN
31: x_return_status := FND_API.G_RET_STS_SUCCESS;
32:
33: if( BIS_UTILITIES_PUB.Value_Missing
34: (p_Business_Plan_Rec.business_plan_short_name)
35: = FND_API.G_TRUE
31: x_return_status := FND_API.G_RET_STS_SUCCESS;
32:
33: if( BIS_UTILITIES_PUB.Value_Missing
34: (p_Business_Plan_Rec.business_plan_short_name)
35: = FND_API.G_TRUE
36: OR BIS_UTILITIES_PUB.Value_NULL
37: (p_Business_Plan_Rec.business_plan_short_name)
38: = FND_API.G_TRUE) then
39:
34: (p_Business_Plan_Rec.business_plan_short_name)
35: = FND_API.G_TRUE
36: OR BIS_UTILITIES_PUB.Value_NULL
37: (p_Business_Plan_Rec.business_plan_short_name)
38: = FND_API.G_TRUE) then
39:
40: --POPULATE THE ERROR TABLE
41: BIS_UTILITIES_PVT.Add_Error_Message
42: ( p_error_msg_name => 'BIS_INVALID_BUSINESS_PLAN_ID'
44: , p_error_proc_name => G_PKG_NAME||'.Validate_Record'
45: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
46: );
47:
48: RAISE FND_API.G_EXC_ERROR;
49: end if;
50:
51: EXCEPTION
52: WHEN NO_DATA_FOUND THEN
49: end if;
50:
51: EXCEPTION
52: WHEN NO_DATA_FOUND THEN
53: x_return_status := FND_API.G_RET_STS_ERROR ;
54: RAISE FND_API.G_EXC_ERROR;
55: when FND_API.G_EXC_ERROR then
56: x_return_status := FND_API.G_RET_STS_ERROR ;
57: RAISE FND_API.G_EXC_ERROR;
50:
51: EXCEPTION
52: WHEN NO_DATA_FOUND THEN
53: x_return_status := FND_API.G_RET_STS_ERROR ;
54: RAISE FND_API.G_EXC_ERROR;
55: when FND_API.G_EXC_ERROR then
56: x_return_status := FND_API.G_RET_STS_ERROR ;
57: RAISE FND_API.G_EXC_ERROR;
58: when FND_API.G_EXC_UNEXPECTED_ERROR then
51: EXCEPTION
52: WHEN NO_DATA_FOUND THEN
53: x_return_status := FND_API.G_RET_STS_ERROR ;
54: RAISE FND_API.G_EXC_ERROR;
55: when FND_API.G_EXC_ERROR then
56: x_return_status := FND_API.G_RET_STS_ERROR ;
57: RAISE FND_API.G_EXC_ERROR;
58: when FND_API.G_EXC_UNEXPECTED_ERROR then
59: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
52: WHEN NO_DATA_FOUND THEN
53: x_return_status := FND_API.G_RET_STS_ERROR ;
54: RAISE FND_API.G_EXC_ERROR;
55: when FND_API.G_EXC_ERROR then
56: x_return_status := FND_API.G_RET_STS_ERROR ;
57: RAISE FND_API.G_EXC_ERROR;
58: when FND_API.G_EXC_UNEXPECTED_ERROR then
59: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: x_return_status := FND_API.G_RET_STS_ERROR ;
54: RAISE FND_API.G_EXC_ERROR;
55: when FND_API.G_EXC_ERROR then
56: x_return_status := FND_API.G_RET_STS_ERROR ;
57: RAISE FND_API.G_EXC_ERROR;
58: when FND_API.G_EXC_UNEXPECTED_ERROR then
59: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: when others then
54: RAISE FND_API.G_EXC_ERROR;
55: when FND_API.G_EXC_ERROR then
56: x_return_status := FND_API.G_RET_STS_ERROR ;
57: RAISE FND_API.G_EXC_ERROR;
58: when FND_API.G_EXC_UNEXPECTED_ERROR then
59: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: when others then
62: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
55: when FND_API.G_EXC_ERROR then
56: x_return_status := FND_API.G_RET_STS_ERROR ;
57: RAISE FND_API.G_EXC_ERROR;
58: when FND_API.G_EXC_UNEXPECTED_ERROR then
59: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: when others then
62: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
63: BIS_UTILITIES_PVT.Add_Error_Message
56: x_return_status := FND_API.G_RET_STS_ERROR ;
57: RAISE FND_API.G_EXC_ERROR;
58: when FND_API.G_EXC_UNEXPECTED_ERROR then
59: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: when others then
62: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
63: BIS_UTILITIES_PVT.Add_Error_Message
64: ( p_error_msg_id => SQLCODE
58: when FND_API.G_EXC_UNEXPECTED_ERROR then
59: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: when others then
62: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
63: BIS_UTILITIES_PVT.Add_Error_Message
64: ( p_error_msg_id => SQLCODE
65: , p_error_description => SQLERRM
66: , p_error_proc_name => G_PKG_NAME||'.Validate_Record'
66: , p_error_proc_name => G_PKG_NAME||'.Validate_Record'
67: , p_error_table => x_error_tbl
68: , x_error_table => x_error_tbl
69: );
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71:
72: END Validate_Record;
73: --
74: --