PACKAGE BODY: APPS.BIS_DIMENSION_VALIDATE_PVT

Source

1 PACKAGE BODY BIS_DIMENSION_VALIDATE_PVT AS
2 /* $Header: BISVDIVB.pls 115.3 99/09/17 17:59:41 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 |     BISVDIVB.pls                                                      |
10 REM |                                                                       |
11 REM | DESCRIPTION                                                           |
12 REM |     Private API for validating items in the Dimensions record
13 REM | NOTES                                                                 |
14 REM |     04/23/99    irchen   Creation                                     |
15 REM |
16 REM +=======================================================================+
17 */
18 --
19 --
20 G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_DIMENSION_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_Rec    IN  BIS_DIMENSION_PUB.Dimension_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 
34   if( BIS_UTILITIES_PUB.Value_Missing(p_Dimension_Rec.dimension_short_name)
35       = FND_API.G_TRUE
36     OR BIS_UTILITIES_PUB.Value_NULL(p_Dimension_Rec.dimension_short_name)
37      = FND_API.G_TRUE) then
38     --POPULATE THE ERROR TABLE
39     BIS_UTILITIES_PVT.Add_Error_Message
40     ( p_error_msg_name    => 'BIS_INVALID_DIMENSION_ID'
41     , p_error_msg_level   => FND_MSG_PUB.G_MSG_LVL_ERROR
42     , p_error_proc_name   => G_PKG_NAME||'.Validate_Record'
43     , p_error_type        => BIS_UTILITIES_PUB.G_ERROR
44     );
45 
46     RAISE FND_API.G_EXC_ERROR;
47   end if;
48 
49 EXCEPTION
50    WHEN NO_DATA_FOUND THEN
51       x_return_status := FND_API.G_RET_STS_ERROR ;
52       RAISE FND_API.G_EXC_ERROR;
53    when FND_API.G_EXC_ERROR then
54       x_return_status := FND_API.G_RET_STS_ERROR ;
55       RAISE FND_API.G_EXC_ERROR;
56    when FND_API.G_EXC_UNEXPECTED_ERROR then
57       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
58       RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59    when others then
60       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
61       BIS_UTILITIES_PVT.Add_Error_Message
62       ( p_error_msg_id      => SQLCODE
63       , p_error_description => SQLERRM
64       , p_error_proc_name   => G_PKG_NAME||'.Validate_Record'
65       , p_error_table       => x_error_tbl
66       , x_error_table       => x_error_tbl
67       );
68       RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69 
70 END Validate_Record;
71 --
72 --
73 END BIS_DIMENSION_VALIDATE_PVT;