PACKAGE BODY: APPS.BIS_DIM_LEVEL_VALIDATE_PVT

Source

1 PACKAGE BODY BIS_DIM_LEVEL_VALIDATE_PVT AS
2 /* $Header: BISVDLVB.pls 115.9 2003/11/19 09:50:43 rchandra noship $ */
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 |     BISVDLVS.pls                                                      |
10 REM |                                                                       |
11 REM | DESCRIPTION                                                           |
12 REM |     Private API for validating items in the Dimension Level record
13 REM | NOTES                                                                 |
14 REM |                                                                       |
15 REM |
16 REM +=======================================================================+
17 */
18 --
19 --
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 )
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
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 
46     --POPULATE THE ERROR TABLE
47     --added last two parameters
48     BIS_UTILITIES_PVT.Add_Error_Message
49     ( p_error_msg_name    => 'BIS_INVALID_DIMENSION_LEVEL_ID'
50     , p_error_msg_level   => FND_MSG_PUB.G_MSG_LVL_ERROR
51     , p_error_proc_name   => G_PKG_NAME||'.Validate_Record'
52     , p_error_type        => BIS_UTILITIES_PUB.G_ERROR
53     , p_error_table       => x_error_tbl
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
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
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 --
86 --
87 END BIS_DIM_LEVEL_VALIDATE_PVT;