PACKAGE BODY: APPS.BIS_BUSINESS_PLAN_VALIDATE_PVT

Source

1 PACKAGE BODY BIS_BUSINESS_PLAN_VALIDATE_PVT AS
2 /* $Header: BISVBPVB.pls 115.5 99/09/17 19:48:38 porting ship  $ */
3 /*
4 REM +=======================================================================+
5 REM |    Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA     |
6 REM |                         All rights reserved.                          |
7 REM +=======================================================================+
8 REM | FILENAME                                                              |
9 REM |     BISVBPVB.pls                                                      |
10 REM |                                                                       |
11 REM | DESCRIPTION                                                           |
12 REM |     Private API for validating items in the Business Plans record
13 REM | NOTES                                                                 |
14 REM |     07/14/99    irchen   Creation                                     |
15 REM |
16 REM +=======================================================================+
17 */
18 --
19 --
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 )
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
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'
43     , p_error_msg_level   => FND_MSG_PUB.G_MSG_LVL_ERROR
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
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
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'
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 --
75 END BIS_BUSINESS_PLAN_VALIDATE_PVT;