[Home] [Help]
PACKAGE BODY: APPS.BIS_MEASURE_SEC_VALIDATE_PVT
Source
1 PACKAGE BODY BIS_MEASURE_SEC_VALIDATE_PVT AS
2 /* $Header: BISVMSVB.pls 115.6 99/09/19 11:20:30 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 | BISVTVLS.pls |
10 REM | |
11 REM | DESCRIPTION |
12 REM | Private API for validating items in the MEASUREs record
13 REM | NOTES |
14 REM | |
15 REM |
16 REM +=======================================================================+
17 */
18 --
19 --
20 G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_MEASURE_SEC_VALIDATE_PVT';
21 --
22 --
23 PROCEDURE Validate_Target_Level_ID
24 ( p_api_version IN NUMBER
25 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
26 , p_MEASURE_SEC_Rec IN BIS_MEASURE_SECURITY_PUB.MEASURE_Security_Rec_Type
27 , x_return_status OUT VARCHAR2
28 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
29 )
30 IS
31
32 l_dummy number;
33
34 CURSOR chk_target_level is
35 select 1
36 from bis_target_levels
37 where target_level_id = p_MEASURE_SEC_Rec.Target_Level_Id;
38
39 begin
40
41 x_return_status := FND_API.G_RET_STS_SUCCESS;
42 if(BIS_UTILITIES_PUB.Value_Not_Missing(p_MEASURE_SEC_Rec.Target_Level_Id)
43 = FND_API.G_TRUE
44 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_MEASURE_SEC_Rec.Target_Level_Id)
45 = FND_API.G_TRUE) then
46 open chk_target_level;
47 fetch chk_target_level into l_dummy;
48 if (chk_target_level%NOTFOUND) then
49 close chk_target_level;
50 BIS_UTILITIES_PVT.Add_Error_Message
51 ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
52 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
53 , p_error_proc_name => G_PKG_NAME||'.Validate_Target_Level_ID'
54 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
55 );
56 RAISE FND_API.G_EXC_ERROR;
57 end if;
58 close chk_target_level;
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 BIS_UTILITIES_PVT.Add_Error_Message
74 ( p_error_msg_id => SQLCODE
75 , p_error_description => SQLERRM
76 , p_error_proc_name => G_PKG_NAME||'.Validate_Target_Level_ID'
77 );
78 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79
80 END Validate_Target_Level_ID;
81 --
82 PROCEDURE Validate_Responsibility_Id
83 ( p_api_version IN NUMBER
84 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
85 , p_MEASURE_SEC_Rec IN BIS_MEASURE_SECURITY_PUB.MEASURE_Security_Rec_Type
86 , x_return_status OUT VARCHAR2
87 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
88 )
89 IS
90 BEGIN
91 -- needs to be filled in
92 x_return_status := FND_API.G_RET_STS_SUCCESS;
93 NULL;
94
95 EXCEPTION
96 WHEN NO_DATA_FOUND THEN
97 x_return_status := FND_API.G_RET_STS_ERROR ;
98 RAISE FND_API.G_EXC_ERROR;
99 when FND_API.G_EXC_ERROR then
100 x_return_status := FND_API.G_RET_STS_ERROR ;
101 RAISE FND_API.G_EXC_ERROR;
102 when FND_API.G_EXC_UNEXPECTED_ERROR then
103 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
104 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105 when others then
106 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
107 BIS_UTILITIES_PVT.Add_Error_Message
108 ( p_error_msg_id => SQLCODE
109 , p_error_description => SQLERRM
110 , p_error_proc_name => G_PKG_NAME||'.Validate_Responsibility_Id'
111 );
112 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113
114 END Validate_Responsibility_Id;
115 --
116 PROCEDURE Validate_Record
117 ( p_api_version IN NUMBER
118 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
119 , p_MEASURE_SEC_Rec IN BIS_MEASURE_SECURITY_PUB.MEASURE_Security_Rec_Type
120 , x_return_status OUT VARCHAR2
121 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
122 )
123 IS
124 BEGIN
125 -- Do not need to do anything
126 x_return_status := FND_API.G_RET_STS_SUCCESS;
127 NULL;
128
129 EXCEPTION
130 WHEN NO_DATA_FOUND THEN
131 x_return_status := FND_API.G_RET_STS_ERROR ;
132 RAISE FND_API.G_EXC_ERROR;
133 when FND_API.G_EXC_ERROR then
134 x_return_status := FND_API.G_RET_STS_ERROR ;
135 RAISE FND_API.G_EXC_ERROR;
136 when FND_API.G_EXC_UNEXPECTED_ERROR then
137 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139 when others then
140 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
141 BIS_UTILITIES_PVT.Add_Error_Message
142 ( p_error_msg_id => SQLCODE
143 , p_error_description => SQLERRM
144 , p_error_proc_name => G_PKG_NAME||'.Validate_Record'
145 );
146 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147
148 END Validate_Record;
149 --
150 --
151 END BIS_MEASURE_SEC_VALIDATE_PVT;