[Home] [Help]
PACKAGE BODY: APPS.BIS_BUSINESS_PLAN_PUB
Source
1 PACKAGE BODY BIS_BUSINESS_PLAN_PUB AS
2 /* $Header: BISPBPB.pls 120.0 2005/06/01 16:21:27 appldev 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 | BISPBPB.pls |
10 REM | |
11 REM | DESCRIPTION |
12 REM | Public API for managing business plan for the
13 REM | Key Performance Framework.
14 REM |
15 REM | NOTES |
16 REM | |
17 REM | HISTORY |
18 REM | 14-JUL-1999 irchen Creation |
19 REM | 19-May-2004 rpenneru Modified for bug#3593361 |
20 REM +=======================================================================+
21 */
22 --
23 G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_BUSINESS_PLAN_PUB';
24 --
25 --
26 Procedure Retrieve_Business_Plans
27 ( p_api_version IN NUMBER
28 , x_Business_Plan_Tbl OUT NOCOPY BIS_BUSINESS_PLAN_PUB.Business_Plan_Tbl_Type
29 , x_return_status OUT NOCOPY VARCHAR2
30 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
31 )
32 IS
33 BEGIN
34 BIS_BUSINESS_PLAN_PVT.Retrieve_Business_Plans
35 ( p_api_version => p_api_version
36 , x_Business_Plan_Tbl => x_Business_Plan_Tbl
37 , x_return_status => x_return_status
38 , x_error_Tbl => x_error_Tbl
39 );
40
41 EXCEPTION
42 WHEN NO_DATA_FOUND THEN
43 x_return_status := FND_API.G_RET_STS_ERROR ;
44 when FND_API.G_EXC_ERROR then
45 x_return_status := FND_API.G_RET_STS_ERROR ;
46 when FND_API.G_EXC_UNEXPECTED_ERROR then
47 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
48 when others then
49 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
50 BIS_UTILITIES_PVT.Add_Error_Message
51 ( p_error_msg_id => SQLCODE
52 , p_error_description => SQLERRM
53 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plans'
54 , p_error_table => x_error_tbl
55 , x_error_table => x_error_tbl
56 );
57
58 END Retrieve_Business_Plans;
59 --
60 Procedure Retrieve_Business_Plan
61 ( p_api_version IN NUMBER
62 , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
63 , x_Business_Plan_Rec OUT NOCOPY BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
64 , x_return_status OUT NOCOPY VARCHAR2
65 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
66 )
67 IS
68 l_Business_Plan_Rec BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type;
69 BEGIN
70
71 BIS_BUSINESS_PLAN_PVT.Value_ID_Conversion
72 ( p_api_version => 1.0
73 , p_Business_Plan_Rec => p_Business_Plan_Rec
74 , x_Business_Plan_Rec => l_Business_Plan_Rec
75 , x_return_status => x_return_status
76 , x_error_Tbl => x_error_tbl
77 );
78
79 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
80 BIS_UTILITIES_PVT.Add_Error_Message
81 ( p_error_msg_name => 'BIS_INVALID_PLAN_ID'
82 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
83 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
84 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
85 );
86 RAISE FND_API.G_EXC_ERROR;
87 end if;
88
89 BIS_BUSINESS_PLAN_PVT.Retrieve_Business_Plan
90 ( p_api_version => 1.0
91 , p_Business_Plan_Rec => l_Business_Plan_Rec
92 , x_Business_Plan_Rec => x_Business_Plan_Rec
93 , x_return_status => x_return_status
94 , x_error_Tbl => x_error_Tbl
95 );
96
97
98 EXCEPTION
99 WHEN NO_DATA_FOUND THEN
100 x_return_status := FND_API.G_RET_STS_ERROR ;
101 when FND_API.G_EXC_ERROR then
102 x_return_status := FND_API.G_RET_STS_ERROR ;
103 when FND_API.G_EXC_UNEXPECTED_ERROR then
104 x_return_status := FND_API.G_RET_STS_UNEXP_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||'.Retrieve_Business_Plan'
111 , p_error_table => x_error_tbl
112 , x_error_table => x_error_tbl
113 );
114
115 END Retrieve_Business_Plan;
116 --
117 Procedure Translate_Business_Plan
118 ( p_api_version IN NUMBER
119 , p_commit IN VARCHAR2 := FND_API.G_FALSE
120 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
121 , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
122 , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
123 , x_return_status OUT NOCOPY VARCHAR2
124 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
125 )
126 IS
127 l_Business_Plan_Rec BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type;
128 BEGIN
129
130 BIS_BUSINESS_PLAN_PVT.Value_ID_Conversion
131 ( p_api_version => p_api_version
132 , p_Business_Plan_Rec => p_Business_Plan_Rec
133 , x_Business_Plan_Rec => l_Business_Plan_Rec
134 , x_return_status => x_return_status
135 , x_error_Tbl => x_error_tbl
136 );
137
138 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
139 BIS_UTILITIES_PVT.Add_Error_Message
140 ( p_error_msg_name => 'BIS_INVALID_PLAN_ID'
141 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
142 , p_error_proc_name => G_PKG_NAME||'.Translate_Business_Plan'
143 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
144 );
145 RAISE FND_API.G_EXC_ERROR;
146 end if;
147
148 BIS_BUSINESS_PLAN_PVT.Translate_Business_Plan
149 ( p_api_version => p_api_version
150 , p_commit => p_commit
151 , p_validation_level => p_validation_level
152 , p_Business_Plan_Rec => l_Business_Plan_Rec
153 , p_owner => p_owner
154 , x_return_status => x_return_status
155 , x_error_Tbl => x_error_Tbl
156 );
157
158 EXCEPTION
159 WHEN NO_DATA_FOUND THEN
160 x_return_status := FND_API.G_RET_STS_ERROR ;
161 when FND_API.G_EXC_ERROR then
162 x_return_status := FND_API.G_RET_STS_ERROR ;
163 when FND_API.G_EXC_UNEXPECTED_ERROR then
164 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165 when others then
166 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
167 BIS_UTILITIES_PVT.Add_Error_Message
168 ( p_error_msg_id => SQLCODE
169 , p_error_description => SQLERRM
170 , p_error_proc_name => G_PKG_NAME||'.Translate_Business_Plan'
171 , p_error_table => x_error_tbl
172 , x_error_table => x_error_tbl
173 );
174
175 END Translate_Business_Plan ;
176 --
177 Procedure Load_Business_Plan
178 ( p_api_version IN NUMBER
179 , p_commit IN VARCHAR2 := FND_API.G_FALSE
180 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
181 , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
182 , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
183 , x_return_status OUT NOCOPY VARCHAR2
184 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
185 )
186 IS
187 l_Business_Plan_Rec BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type;
188 BEGIN
189
190 l_Business_Plan_Rec := p_Business_Plan_Rec;
191
192 BEGIN
193
194 BIS_BUSINESS_PLAN_PVT.Value_ID_Conversion
195 ( p_api_version => p_api_version
196 , p_Business_Plan_Rec => p_Business_Plan_Rec
197 , x_Business_Plan_Rec => l_Business_Plan_Rec
198 , x_return_status => x_return_status
199 , x_error_Tbl => x_error_tbl
200 );
201
202 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
203 BIS_UTILITIES_PVT.Add_Error_Message
204 ( p_error_msg_name => 'BIS_INVALID_PLAN_ID'
205 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
206 , p_error_proc_name => G_PKG_NAME||'.Load_Business_Plan'
207 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
208 );
209 RAISE FND_API.G_EXC_ERROR;
210 END IF;
211
212 BIS_BUSINESS_PLAN_PVT.Update_Business_Plan
213 ( p_api_version => p_api_version
214 , p_commit => p_commit
215 , p_validation_level => p_validation_level
216 , p_Business_Plan_Rec => l_Business_Plan_Rec
217 , p_owner => p_owner
218 , x_return_status => x_return_status
219 , x_error_Tbl => x_error_Tbl
220 );
221
222 EXCEPTION
223 WHEN NO_DATA_FOUND OR FND_API.G_EXC_ERROR THEN
224
225 BIS_BUSINESS_PLAN_PVT.Create_Business_Plan
226 ( p_api_version => p_api_version
227 , p_commit => p_commit
228 , p_validation_level => p_validation_level
229 , p_Business_Plan_Rec => l_Business_Plan_Rec
230 , p_owner => p_owner
231 , x_return_status => x_return_status
232 , x_error_Tbl => x_error_Tbl
233 );
234
235 WHEN OTHERS THEN
236 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
237 BIS_UTILITIES_PVT.Add_Error_Message
238 ( p_error_msg_id => SQLCODE
239 , p_error_description => SQLERRM
240 , p_error_proc_name => G_PKG_NAME||'.Update_Business_Plan'
241 );
242 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243
244 END;
245
246 EXCEPTION
247 WHEN NO_DATA_FOUND OR FND_API.G_EXC_ERROR then
248 x_return_status := FND_API.G_RET_STS_ERROR ;
249 when FND_API.G_EXC_UNEXPECTED_ERROR then
250 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
251 when others then
252 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
253 BIS_UTILITIES_PVT.Add_Error_Message
254 ( p_error_msg_id => SQLCODE
255 , p_error_description => SQLERRM
256 , p_error_proc_name => G_PKG_NAME||'.Load_Business_Plan'
257 , p_error_table => x_error_tbl
258 , x_error_table => x_error_tbl
259 );
260
261 END Load_Business_Plan ;
262 --
263 END BIS_BUSINESS_PLAN_PUB;