[Home] [Help]
PACKAGE BODY: APPS.BIS_TARGET_VALIDATE_PVT
Source
1 PACKAGE BODY BIS_TARGET_VALIDATE_PVT AS
2 /* $Header: BISVTAVB.pls 115.18 2003/12/02 22:22:54 gbhaloti 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 | BISVTVLB.pls |
10 REM | |
11 REM | DESCRIPTION |
12 REM | Private API for validating items in the targets record
13 REM | NOTES |
14 REM | |
15 REM |
16 REM | 07-OCT-2002 rchandra changed the message name from |
17 REM | BIS_MISSING_TARGET_VALUE to |
18 REM | BIS_MISSING_TARGET_VALUES for bug 2578948 |
19 REM | 23-JAN-03 sugopal For having different local variables for IN and OUT |
20 REM | parameters (bug#2758428) |
21 REM + 01-DEC-2003 gbhaloti Fix for #3273767 |
22 REM +=======================================================================+
23 */
24 --
25 --
26 PROCEDURE Validate_Target_Level_ID
27 ( p_api_version IN NUMBER
28 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
29 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
30 , x_return_status OUT NOCOPY VARCHAR2
31 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
32 )
33 IS
34 --
35 l_Target_Level_ID NUMBER;
36 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
37 --
38 BEGIN
39 x_return_status := FND_API.G_RET_STS_SUCCESS;
40 --
41 IF( BIS_UTILITIES_PUB.Value_Missing(p_Target_Rec.TARGET_LEVEL_ID)
42 = FND_API.G_TRUE
43 ) THEN
44 --added more parameters
45 l_error_tbl := x_error_tbl;
46 BIS_UTILITIES_PVT.Add_Error_Message
47 ( p_error_msg_name => 'BIS_MISSING_TAR_LEVEL_ID'
48 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
49 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Target_Level_ID'
50 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
51 , p_error_table => l_error_tbl
52 , x_error_table => x_error_tbl
53 );
54 RAISE FND_API.G_EXC_ERROR;
55 ELSE
56 SELECT bisbv_target_levels.TARGET_LEVEL_ID
57 INTO l_Target_Level_ID
58 FROM bisbv_target_levels bisbv_target_levels
59 WHERE bisbv_target_levels.TARGET_LEVEL_ID
60 = p_Target_Rec.TARGET_LEVEL_ID;
61 END IF;
62 --
63
64 --commented RAISE
65 EXCEPTION
66 WHEN NO_DATA_FOUND THEN
67 x_return_status:= FND_API.G_RET_STS_ERROR;
68 --added more params
69 l_error_tbl := x_error_tbl;
70 BIS_UTILITIES_PVT.Add_Error_Message
71 ( p_error_msg_name => 'BIS_INVALID_TAR_LEVEL_ID'
72 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
73 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Target_Level_ID'
74 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
75 , p_error_table => l_error_tbl
76 , x_error_table => x_error_tbl
77 );
78 --RAISE FND_API.G_EXC_ERROR;
79 WHEN FND_API.G_EXC_ERROR THEN
80 x_return_status:= FND_API.G_RET_STS_ERROR;
81 --RAISE;
82 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
84 -- RAISE;
85 WHEN OTHERS THEN
86 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
87 --added more parameters
88 l_error_tbl := x_error_tbl;
89 BIS_UTILITIES_PVT.Add_Error_Message
90 ( p_error_msg_id => SQLCODE
91 , p_error_description => SQLERRM
92 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Target_Level_ID'
93 , p_error_table => l_error_tbl
94 , x_error_table => x_error_tbl
95 );
96 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
97 END Validate_Target_Level_ID;
98 --
99 --
100 PROCEDURE Validate_Plan_ID
101 ( p_api_version IN NUMBER
102 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
103 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
104 , x_return_status OUT NOCOPY VARCHAR2
105 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
106 )
107 IS
108 --
109 l_Plan_ID NUMBER;
110 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
111 --
112 BEGIN
113 x_return_status := FND_API.G_RET_STS_SUCCESS;
114 --
115 IF( BIS_UTILITIES_PUB.Value_Missing(p_Target_Rec.PLAN_ID)
116 = FND_API.G_TRUE
117 ) THEN
118 --added more parameters
119 l_error_tbl := x_error_tbl;
120 BIS_UTILITIES_PVT.Add_Error_Message
121 ( p_error_msg_name => 'BIS_MISSING_PLAN_ID'
122 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
123 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Plan_ID'
124 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
125 , p_error_table => l_error_tbl
126 , x_error_table => x_error_tbl
127 );
128 RAISE FND_API.G_EXC_ERROR;
129 ELSE
130 -- Gaurav fix for #3273767 - changed bisbv_business_plans to bis_business_plans
131 SELECT bis_business_plans.PLAN_ID
132 INTO l_Plan_ID
133 FROM bis_business_plans bis_business_plans
134 WHERE bis_business_plans.PLAN_ID
135 = p_Target_Rec.PLAN_ID;
136 END IF;
137 --
138
139 --commented RAISE
140 EXCEPTION
141 WHEN NO_DATA_FOUND THEN
142 x_return_status:= FND_API.G_RET_STS_ERROR;
143 --added more parameters
144 l_error_tbl := x_error_tbl;
145 BIS_UTILITIES_PVT.Add_Error_Message
146 ( p_error_msg_name => 'BIS_INVALID_PLAN_ID'
147 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
148 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Plan_ID'
149 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
150 , p_error_table => l_error_tbl
151 , x_error_table => x_error_tbl
152 );
153 --RAISE FND_API.G_EXC_ERROR;
154 WHEN FND_API.G_EXC_ERROR THEN
155 x_return_status:= FND_API.G_RET_STS_ERROR;
156 -- RAISE;
157 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
159 -- RAISE;
160 WHEN OTHERS THEN
161 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
162 --added more parameters
163 l_error_tbl := x_error_tbl;
164 BIS_UTILITIES_PVT.Add_Error_Message
165 ( p_error_msg_id => SQLCODE
166 , p_error_description => SQLERRM
167 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Plan_ID'
168 , p_error_table => l_error_tbl
169 , x_error_table => x_error_tbl
170 );
171 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172 END Validate_Plan_ID;
173 --
174 --
175 --
176 PROCEDURE Validate_Org_Level_Value_ID
177 ( p_api_version IN NUMBER
178 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
179 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
180 , x_return_status OUT NOCOPY VARCHAR2
181 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
182 )
183 IS
184 --
185 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
186 l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
187 l_Dim_Level_Value_Rec_p BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
188 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
189 --
190 BEGIN
191 x_return_status := FND_API.G_RET_STS_SUCCESS;
192 --
193 SELECT *
194 INTO l_bisbv_target_levels
195 FROM BISBV_TARGET_LEVELS bisbv_target_levels
196 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
197 --
198
199
200 IF(l_bisbv_target_levels.ORG_LEVEL_ID IS NOT NULL) THEN
201 l_Dim_Level_Value_Rec.Dimension_Level_ID
202 := l_bisbv_target_levels.ORG_LEVEL_ID;
203 l_Dim_Level_Value_Rec.Dimension_Level_Value_ID
204 := p_Target_Rec.Org_Level_Value_ID;
205 --
206
207 l_Dim_Level_Value_Rec_p := l_Dim_Level_Value_Rec;
208 BIS_DIM_LEVEL_VALUE_PVT.DimensionX_ID_to_Value
209 ( p_api_version => 1.0
210 , p_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec_p
211 , x_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec
212 , x_return_status => x_return_status
213 , x_error_Tbl => x_error_Tbl
214 );
215
216 END IF;
217 --
218
219 --commented RAISE
220 EXCEPTION
221 WHEN NO_DATA_FOUND THEN
222 x_return_status:= FND_API.G_RET_STS_ERROR;
223 -- RAISE FND_API.G_EXC_ERROR;
224 WHEN FND_API.G_EXC_ERROR THEN
225 x_return_status:= FND_API.G_RET_STS_ERROR;
226 -- RAISE;
227 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
228 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
229 -- RAISE;
230 WHEN OTHERS THEN
231 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
232 --added more parameters
233 l_error_tbl := x_error_tbl;
234 BIS_UTILITIES_PVT.Add_Error_Message
235 ( p_error_msg_id => SQLCODE
236 , p_error_description => SQLERRM
237 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Org_Level_Value_ID'
238 , p_error_table => l_error_tbl
239 , x_error_table => x_error_tbl
240 );
241 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242 END Validate_Org_Level_Value_ID;
243 --
244 --
245 PROCEDURE Validate_Time_Level_Value_ID
246 ( p_api_version IN NUMBER
247 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
248 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
249 , x_return_status OUT NOCOPY VARCHAR2
250 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
251 )
252 IS
253 --
254 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
255 l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
256 l_Dim_Level_Value_Rec_p BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
257 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
258 --
259 BEGIN
260 x_return_status := FND_API.G_RET_STS_SUCCESS;
261 --
262 SELECT *
263 INTO l_bisbv_target_levels
264 FROM BISBV_TARGET_LEVELS bisbv_target_levels
265 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
266 --
267
268
269 IF(l_bisbv_target_levels.TIME_LEVEL_ID IS NOT NULL) THEN
270 l_Dim_Level_Value_Rec.Dimension_Level_ID
271 := l_bisbv_target_levels.TIME_LEVEL_ID;
272 l_Dim_Level_Value_Rec.Dimension_Level_Value_ID
273 := p_Target_Rec.Time_Level_Value_ID;
274 --
275
276 l_Dim_Level_Value_Rec_p := l_Dim_Level_Value_Rec;
277 BIS_DIM_LEVEL_VALUE_PVT.DimensionX_ID_to_Value
278 ( p_api_version => 1.0
279 , p_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec_p
280 , x_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec
281 , x_return_status => x_return_status
282 , x_error_Tbl => x_error_Tbl
283 );
284
285 END IF;
286 --
287
288 --commented RAISE
289 EXCEPTION
290 WHEN NO_DATA_FOUND THEN
291 x_return_status:= FND_API.G_RET_STS_ERROR;
292 -- RAISE FND_API.G_EXC_ERROR;
293 WHEN FND_API.G_EXC_ERROR THEN
294 x_return_status:= FND_API.G_RET_STS_ERROR;
295 -- RAISE;
296 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
297 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
298 -- RAISE;
299 WHEN OTHERS THEN
300 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
301 --added more parameters
302 l_error_tbl := x_error_tbl;
303 BIS_UTILITIES_PVT.Add_Error_Message
304 ( p_error_msg_id => SQLCODE
305 , p_error_description => SQLERRM
306 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Time_Level_Value_ID'
307 , p_error_table => l_error_tbl
308 , x_error_table => x_error_tbl
309 );
310 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
311 END Validate_Time_Level_Value_ID;
312 --
313 --
314 PROCEDURE Validate_Dim1_Level_Value_ID
315 ( p_api_version IN NUMBER
316 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
317 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
318 , x_return_status OUT NOCOPY VARCHAR2
319 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
320 )
321 IS
322 --
323 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
324 l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
325 l_Dim_Level_Value_Rec_p BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
326 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
327 --
328 BEGIN
329 x_return_status := FND_API.G_RET_STS_SUCCESS;
330 --
331 SELECT *
332 INTO l_bisbv_target_levels
333 FROM BISBV_TARGET_LEVELS bisbv_target_levels
334 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
335 --
336
337
338 IF(l_bisbv_target_levels.DIMENSION1_LEVEL_ID IS NOT NULL) THEN
339 l_Dim_Level_Value_Rec.Dimension_Level_ID
340 := l_bisbv_target_levels.DIMENSION1_LEVEL_ID;
341 l_Dim_Level_Value_Rec.Dimension_Level_Value_ID
342 := p_Target_Rec.Dim1_Level_Value_ID;
343 --
344
345 l_Dim_Level_Value_Rec_p := l_Dim_Level_Value_Rec;
346 BIS_DIM_LEVEL_VALUE_PVT.DimensionX_ID_to_Value
347 ( p_api_version => 1.0
348 , p_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec_p
349 , x_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec
350 , x_return_status => x_return_status
351 , x_error_Tbl => x_error_Tbl
352 );
353
354 END IF;
355 --
356
357 --commented RAISE
358 EXCEPTION
359 WHEN NO_DATA_FOUND THEN
360 x_return_status:= FND_API.G_RET_STS_ERROR;
361 -- RAISE FND_API.G_EXC_ERROR;
362 WHEN FND_API.G_EXC_ERROR THEN
363 x_return_status:= FND_API.G_RET_STS_ERROR;
364 -- RAISE;
365 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
366 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
367 -- RAISE;
368 WHEN OTHERS THEN
369 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
370 --added more parameters
371 l_error_tbl := x_error_tbl;
372 BIS_UTILITIES_PVT.Add_Error_Message
373 ( p_error_msg_id => SQLCODE
374 , p_error_description => SQLERRM
375 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Dim1_Level_Value_ID'
376 , p_error_table => l_error_tbl
377 , x_error_table => x_error_tbl
378 );
379 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
380 END Validate_Dim1_Level_Value_ID;
381 --
382 --
383 PROCEDURE Validate_Dim2_Level_Value_ID
384 ( p_api_version IN NUMBER
385 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
386 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
387 , x_return_status OUT NOCOPY VARCHAR2
388 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
389 )
390 IS
391 --
392 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
393 l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
394 l_Dim_Level_Value_Rec_p BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
395 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
396 --
397 BEGIN
398 x_return_status := FND_API.G_RET_STS_SUCCESS;
399 --
400 SELECT *
401 INTO l_bisbv_target_levels
402 FROM BISBV_TARGET_LEVELS bisbv_target_levels
403 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
404 --
405 IF(l_bisbv_target_levels.DIMENSION2_LEVEL_ID IS NOT NULL) THEN
406 l_Dim_Level_Value_Rec.Dimension_Level_ID
407 := l_bisbv_target_levels.DIMENSION2_LEVEL_ID;
408 l_Dim_Level_Value_Rec.Dimension_Level_Value_ID
409 := p_Target_Rec.Dim2_Level_Value_ID;
410 --
411 l_Dim_Level_Value_Rec_p := l_Dim_Level_Value_Rec;
412 BIS_DIM_LEVEL_VALUE_PVT.DimensionX_ID_to_Value
413 ( p_api_version => 1.0
414 , p_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec_p
415 , x_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec
416 , x_return_status => x_return_status
417 , x_error_Tbl => x_error_Tbl
418 );
419 END IF;
420 --
421
422 --commented RAISE
423 EXCEPTION
424 WHEN NO_DATA_FOUND THEN
425 x_return_status:= FND_API.G_RET_STS_ERROR;
426 --RAISE FND_API.G_EXC_ERROR;
427 WHEN FND_API.G_EXC_ERROR THEN
428 x_return_status:= FND_API.G_RET_STS_ERROR;
429 -- RAISE;
430 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
431 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
432 -- RAISE;
433 WHEN OTHERS THEN
434 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
435 --added more parameters
436 l_error_tbl := x_error_tbl;
437 BIS_UTILITIES_PVT.Add_Error_Message
438 ( p_error_msg_id => SQLCODE
439 , p_error_description => SQLERRM
440 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Dim2_Level_Value_ID'
441 , p_error_table => l_error_tbl
442 , x_error_table => x_error_tbl
443 );
444 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445 END Validate_Dim2_Level_Value_ID;
446 --
447 --
448 PROCEDURE Validate_Dim3_Level_Value_ID
449 ( p_api_version IN NUMBER
450 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
451 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
452 , x_return_status OUT NOCOPY VARCHAR2
453 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
454 )
455 IS
456 --
457 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
458 l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
459 l_Dim_Level_Value_Rec_p BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
460 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
461 --
462 BEGIN
463 x_return_status := FND_API.G_RET_STS_SUCCESS;
464 --
465 SELECT *
466 INTO l_bisbv_target_levels
467 FROM BISBV_TARGET_LEVELS bisbv_target_levels
468 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
469 --
470 IF(l_bisbv_target_levels.DIMENSION3_LEVEL_ID IS NOT NULL) THEN
471 l_Dim_Level_Value_Rec.Dimension_Level_ID
472 := l_bisbv_target_levels.DIMENSION3_LEVEL_ID;
473 l_Dim_Level_Value_Rec.Dimension_Level_Value_ID
474 := p_Target_Rec.Dim3_Level_Value_ID;
475 --
476 l_Dim_Level_Value_Rec_p := l_Dim_Level_Value_Rec;
477 BIS_DIM_LEVEL_VALUE_PVT.DimensionX_ID_to_Value
478 ( p_api_version => 1.0
479 , p_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec_p
480 , x_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec
481 , x_return_status => x_return_status
482 , x_error_Tbl => x_error_Tbl
483 );
484 END IF;
485 --
486
487 --commented RAISE
488 EXCEPTION
489 WHEN NO_DATA_FOUND THEN
490 x_return_status:= FND_API.G_RET_STS_ERROR;
491 -- RAISE FND_API.G_EXC_ERROR;
492 WHEN FND_API.G_EXC_ERROR THEN
493 x_return_status:= FND_API.G_RET_STS_ERROR;
494 -- RAISE;
495 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
497 -- RAISE;
498 WHEN OTHERS THEN
499 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
500 --added more parameters
501 l_error_tbl := x_error_tbl;
502 BIS_UTILITIES_PVT.Add_Error_Message
503 ( p_error_msg_id => SQLCODE
504 , p_error_description => SQLERRM
505 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Dim3_Level_Value_ID'
506 , p_error_table => l_error_tbl
507 , x_error_table => x_error_tbl
508 );
509 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510 END Validate_Dim3_Level_Value_ID;
511 --
512 --
513 PROCEDURE Validate_Dim4_Level_Value_ID
514 ( p_api_version IN NUMBER
515 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
516 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
517 , x_return_status OUT NOCOPY VARCHAR2
518 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
519 )
520 IS
521 --
522 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
523 l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
524 l_Dim_Level_Value_Rec_p BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
525 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
526 --
527 BEGIN
528 x_return_status := FND_API.G_RET_STS_SUCCESS;
529 --
530 SELECT *
531 INTO l_bisbv_target_levels
532 FROM BISBV_TARGET_LEVELS bisbv_target_levels
533 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
534 --
535 IF(l_bisbv_target_levels.DIMENSION4_LEVEL_ID IS NOT NULL) THEN
536 l_Dim_Level_Value_Rec.Dimension_Level_ID
537 := l_bisbv_target_levels.DIMENSION4_LEVEL_ID;
538 l_Dim_Level_Value_Rec.Dimension_Level_Value_ID
539 := p_Target_Rec.Dim4_Level_Value_ID;
540 --
541 l_Dim_Level_Value_Rec_p := l_Dim_Level_Value_Rec;
542 BIS_DIM_LEVEL_VALUE_PVT.DimensionX_ID_to_Value
543 ( p_api_version => 1.0
544 , p_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec_p
545 , x_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec
546 , x_return_status => x_return_status
547 , x_error_Tbl => x_error_Tbl
548 );
549 END IF;
550 --
551
552 --commented RAISE
553 EXCEPTION
554 WHEN NO_DATA_FOUND THEN
555 x_return_status:= FND_API.G_RET_STS_ERROR;
556 --RAISE FND_API.G_EXC_ERROR;
557 WHEN FND_API.G_EXC_ERROR THEN
558 x_return_status:= FND_API.G_RET_STS_ERROR;
559 --RAISE;
560 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
562 --RAISE;
563 WHEN OTHERS THEN
564 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
565 --added more parameters
566 l_error_tbl := x_error_tbl;
567 BIS_UTILITIES_PVT.Add_Error_Message
568 ( p_error_msg_id => SQLCODE
569 , p_error_description => SQLERRM
570 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Dim4_Level_Value_ID'
571 , p_error_table => l_error_tbl
572 , x_error_table => x_error_tbl
573 );
574 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
575 END Validate_Dim4_Level_Value_ID;
576 --
577 --
578 PROCEDURE Validate_Dim5_Level_Value_ID
579 ( p_api_version IN NUMBER
580 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
581 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
582 , x_return_status OUT NOCOPY VARCHAR2
583 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
584 )
585 IS
586 --
587 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
588 l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
589 l_Dim_Level_Value_Rec_p BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
590 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
591 --
592 BEGIN
593 x_return_status := FND_API.G_RET_STS_SUCCESS;
594 --
595 SELECT *
596 INTO l_bisbv_target_levels
597 FROM BISBV_TARGET_LEVELS bisbv_target_levels
598 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
599 --
600 IF(l_bisbv_target_levels.DIMENSION5_LEVEL_ID IS NOT NULL) THEN
601 l_Dim_Level_Value_Rec.Dimension_Level_ID
602 := l_bisbv_target_levels.DIMENSION5_LEVEL_ID;
603 l_Dim_Level_Value_Rec.Dimension_Level_Value_ID
604 := p_Target_Rec.Dim5_Level_Value_ID;
605 --
606 l_Dim_Level_Value_Rec_p := l_Dim_Level_Value_Rec;
607 BIS_DIM_LEVEL_VALUE_PVT.DimensionX_ID_to_Value
608 ( p_api_version => 1.0
609 , p_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec_p
610 , x_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec
611 , x_return_status => x_return_status
612 , x_error_Tbl => x_error_Tbl
613 );
614 END IF;
615 --
616
617 --commented RAISE
618 EXCEPTION
619 WHEN NO_DATA_FOUND THEN
620 x_return_status:= FND_API.G_RET_STS_ERROR;
621 -- RAISE FND_API.G_EXC_ERROR;
622 WHEN FND_API.G_EXC_ERROR THEN
623 x_return_status:= FND_API.G_RET_STS_ERROR;
624 -- RAISE;
625 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
626 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
627 -- RAISE;
628 WHEN OTHERS THEN
629 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
630 --added more parameters
631 l_error_tbl := x_error_tbl;
632 BIS_UTILITIES_PVT.Add_Error_Message
633 ( p_error_msg_id => SQLCODE
634 , p_error_description => SQLERRM
635 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Dim5_Level_Value_ID'
636 , p_error_table => l_error_tbl
637 , x_error_table => x_error_tbl
638 );
639 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640 END Validate_Dim5_Level_Value_ID;
641 --
642 --
643 PROCEDURE Validate_Dim6_Level_Value_ID
644 ( p_api_version IN NUMBER
645 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
646 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
647 , x_return_status OUT NOCOPY VARCHAR2
648 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
649 )
650 IS
651 --
652 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
653 l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
654 l_Dim_Level_Value_Rec_p BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
655 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
656 --
657 BEGIN
658 x_return_status := FND_API.G_RET_STS_SUCCESS;
659 --
660 SELECT *
661 INTO l_bisbv_target_levels
662 FROM BISBV_TARGET_LEVELS bisbv_target_levels
663 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
664 --
665 IF(l_bisbv_target_levels.DIMENSION6_LEVEL_ID IS NOT NULL) THEN
666 l_Dim_Level_Value_Rec.Dimension_Level_ID
667 := l_bisbv_target_levels.DIMENSION6_LEVEL_ID;
668 l_Dim_Level_Value_Rec.Dimension_Level_Value_ID
669 := p_Target_Rec.Dim6_Level_Value_ID;
670 --
671 l_Dim_Level_Value_Rec_p := l_Dim_Level_Value_Rec;
672 BIS_DIM_LEVEL_VALUE_PVT.DimensionX_ID_to_Value
673 ( p_api_version => 1.0
674 , p_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec_p
675 , x_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec
676 , x_return_status => x_return_status
677 , x_error_Tbl => x_error_Tbl
678 );
679 END IF;
680 --
681 --commented RAISE
682 EXCEPTION
683 WHEN NO_DATA_FOUND THEN
684 x_return_status:= FND_API.G_RET_STS_ERROR;
685 -- RAISE FND_API.G_EXC_ERROR;
686 WHEN FND_API.G_EXC_ERROR THEN
687 x_return_status:= FND_API.G_RET_STS_ERROR;
688 -- RAISE;
689 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
690 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
691 -- RAISE;
692 WHEN OTHERS THEN
693 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
694 --added more parameters
695 l_error_tbl := x_error_tbl;
696 BIS_UTILITIES_PVT.Add_Error_Message
697 ( p_error_msg_id => SQLCODE
698 , p_error_description => SQLERRM
699 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Dim6_Level_Value_ID'
700 , p_error_table => l_error_tbl
701 , x_error_table => x_error_tbl
702 );
703 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
704 END Validate_Dim6_Level_Value_ID;
705 --
706 --
707 PROCEDURE Validate_Dim7_Level_Value_ID
708 ( p_api_version IN NUMBER
709 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
710 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
711 , x_return_status OUT NOCOPY VARCHAR2
712 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
713 )
714 IS
715 --
716 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
717 l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
718 l_Dim_Level_Value_Rec_p BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
719 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
720 --
721 BEGIN
722 x_return_status := FND_API.G_RET_STS_SUCCESS;
723 --
724 SELECT *
725 INTO l_bisbv_target_levels
726 FROM BISBV_TARGET_LEVELS bisbv_target_levels
727 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
728 --
729 IF(l_bisbv_target_levels.DIMENSION7_LEVEL_ID IS NOT NULL) THEN
730 l_Dim_Level_Value_Rec.Dimension_Level_ID
731 := l_bisbv_target_levels.DIMENSION7_LEVEL_ID;
732 l_Dim_Level_Value_Rec.Dimension_Level_Value_ID
733 := p_Target_Rec.Dim7_Level_Value_ID;
734 --
735 l_Dim_Level_Value_Rec_p := l_Dim_Level_Value_Rec;
736 BIS_DIM_LEVEL_VALUE_PVT.DimensionX_ID_to_Value
737 ( p_api_version => 1.0
738 , p_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec_p
739 , x_Dim_Level_Value_Rec => l_Dim_Level_Value_Rec
740 , x_return_status => x_return_status
741 , x_error_Tbl => x_error_Tbl
742 );
743 END IF;
744 --
745 --commented RAISE
746 EXCEPTION
747 WHEN NO_DATA_FOUND THEN
748 x_return_status:= FND_API.G_RET_STS_ERROR;
749 -- RAISE FND_API.G_EXC_ERROR;
750 WHEN FND_API.G_EXC_ERROR THEN
751 x_return_status:= FND_API.G_RET_STS_ERROR;
752 -- RAISE;
753 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
754 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
755 -- RAISE;
756 WHEN OTHERS THEN
757 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
758 --added more parameters
759 l_error_tbl := x_error_tbl;
760 BIS_UTILITIES_PVT.Add_Error_Message
761 ( p_error_msg_id => SQLCODE
762 , p_error_description => SQLERRM
763 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Dim7_Level_Value_ID'
764 , p_error_table => l_error_tbl
765 , x_error_table => x_error_tbl
766 );
767 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768 END Validate_Dim7_Level_Value_ID;
769 --
770 --
771 PROCEDURE Validate_Target_Value
772 ( p_api_version IN NUMBER
773 , p_is_dbimeasure IN NUMBER := 0 --added by gbhaloti #3148615
774 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
775 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
776 , x_return_status OUT NOCOPY VARCHAR2
777 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
778 )
779 IS
780 --
781 l_bisbv_target_levels BISBV_TARGET_LEVELS%ROWTYPE;
782 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
783 --
784 BEGIN
785 x_return_status := FND_API.G_RET_STS_SUCCESS;
786 --
787 SELECT *
788 INTO l_bisbv_target_levels
789 FROM BISBV_TARGET_LEVELS bisbv_target_levels
790 WHERE bisbv_target_levels.TARGET_LEVEL_ID = p_Target_Rec.Target_Level_ID;
791 --
792 -- check if computing target function exists
793 IF( ( BIS_UTILITIES_PUB.Value_Missing(p_Target_Rec.TARGET) = FND_API.G_TRUE
794 OR p_Target_Rec.TARGET IS NULL
795 )
796 AND l_bisbv_target_levels.COMPUTING_FUNCTION_ID IS NULL
797 AND p_is_dbimeasure = 0 --added by gbhaloti #3148615
798 ) THEN
799 --added more parameters
800 l_error_tbl := x_error_tbl;
801 BIS_UTILITIES_PVT.Add_Error_Message
802 ( p_error_msg_name => 'BIS_MISSING_TARGET_VALUES'
803 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
804 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Target_Value'
805 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
806 , p_error_table => l_error_tbl
807 , x_error_table => x_error_tbl
808 );
809 RAISE FND_API.G_EXC_ERROR;
810 END IF;
811 --
812
813 --commented RAISE
814 EXCEPTION
815 WHEN FND_API.G_EXC_ERROR THEN
816 x_return_status:= FND_API.G_RET_STS_ERROR;
817 --RAISE;
818 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
819 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
820 --RAISE;
821 WHEN OTHERS THEN
822 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
823 --added more params
824 l_error_tbl := x_error_tbl;
825 BIS_UTILITIES_PVT.Add_Error_Message
826 ( p_error_msg_id => SQLCODE
827 , p_error_description => SQLERRM
828 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Target_Value'
829 , p_error_table => l_error_tbl
830 , x_error_table => x_error_tbl
831 );
832 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
833 END Validate_Target_Value;
834 --
835 --
836 PROCEDURE Validate_Range1_Low
837 ( p_api_version IN NUMBER
838 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
839 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
840 , x_return_status OUT NOCOPY VARCHAR2
841 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
842 )
843 IS
844 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
845 BEGIN
846 x_return_status := FND_API.G_RET_STS_SUCCESS;
847 NULL;
848
849 --commented RAISE
850 EXCEPTION
851 WHEN FND_API.G_EXC_ERROR THEN
852 x_return_status:= FND_API.G_RET_STS_ERROR;
853 --RAISE;
854 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
855 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
856 --RAISE;
857 WHEN OTHERS THEN
858 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
859 --added more parameters
860 l_error_tbl := x_error_tbl;
861 BIS_UTILITIES_PVT.Add_Error_Message
862 ( p_error_msg_id => SQLCODE
863 , p_error_description => SQLERRM
864 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Range1_Low'
865 , p_error_table => l_error_tbl
866 , x_error_table => x_error_tbl
867 );
868 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869 END Validate_Range1_Low;
870 --
871 --
872 PROCEDURE Validate_Range1_High
873 ( p_api_version IN NUMBER
874 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
875 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
876 , x_return_status OUT NOCOPY VARCHAR2
877 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
878 )
879 IS
880 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
881 BEGIN
882 x_return_status := FND_API.G_RET_STS_SUCCESS;
883 NULL;
884
885 --commented RAISE
886 EXCEPTION
887 WHEN FND_API.G_EXC_ERROR THEN
888 x_return_status:= FND_API.G_RET_STS_ERROR;
889 --RAISE;
890 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
892 --RAISE;
893 WHEN OTHERS THEN
894 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
895 --added more parameters
896 l_error_tbl := x_error_tbl;
897 BIS_UTILITIES_PVT.Add_Error_Message
898 ( p_error_msg_id => SQLCODE
899 , p_error_description => SQLERRM
900 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Range1_High'
901 , p_error_table => l_error_tbl
902 , x_error_table => x_error_tbl
903 );
904 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905 END Validate_Range1_High;
906 --
907 --
908 PROCEDURE Validate_Range2_Low
909 ( p_api_version IN NUMBER
910 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
911 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
912 , x_return_status OUT NOCOPY VARCHAR2
913 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
914 )
915 IS
916 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
917 BEGIN
918 x_return_status := FND_API.G_RET_STS_SUCCESS;
919 NULL;
920
921 --commented RAISE
922 EXCEPTION
923 WHEN FND_API.G_EXC_ERROR THEN
924 x_return_status:= FND_API.G_RET_STS_ERROR;
925 -- RAISE;
926 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
927 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
928 -- RAISE;
929 WHEN OTHERS THEN
930 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
931 --added more parameters
932 l_error_tbl := x_error_tbl;
933 BIS_UTILITIES_PVT.Add_Error_Message
934 ( p_error_msg_id => SQLCODE
935 , p_error_description => SQLERRM
936 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Range2_Low'
937 , p_error_table => l_error_tbl
938 , x_error_table => x_error_tbl
939 );
940 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
941 END Validate_Range2_Low;
942 --
943 --
944 PROCEDURE Validate_Range2_High
945 ( p_api_version IN NUMBER
946 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
947 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
948 , x_return_status OUT NOCOPY VARCHAR2
949 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
950 )
951 IS
952 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
953 BEGIN
954 x_return_status := FND_API.G_RET_STS_SUCCESS;
955 NULL;
956
957 --commented RAISE
958 EXCEPTION
959 WHEN FND_API.G_EXC_ERROR THEN
960 x_return_status:= FND_API.G_RET_STS_ERROR;
961 --RAISE;
962 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
963 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
964 --RAISE;
965 WHEN OTHERS THEN
966 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
967 --added more parameters
968 l_error_tbl := x_error_tbl;
969 BIS_UTILITIES_PVT.Add_Error_Message
970 ( p_error_msg_id => SQLCODE
971 , p_error_description => SQLERRM
972 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Range2_High'
973 , p_error_table => l_error_tbl
974 , x_error_table => x_error_tbl
975 );
976 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
977 END Validate_Range2_High;
978 --
979 --
980 PROCEDURE Validate_Range3_Low
981 ( p_api_version IN NUMBER
982 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
983 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
984 , x_return_status OUT NOCOPY VARCHAR2
985 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
986 )
987 IS
988 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
989 BEGIN
990 x_return_status := FND_API.G_RET_STS_SUCCESS;
991 NULL;
992
993 --commented RAISE
994 EXCEPTION
995 WHEN FND_API.G_EXC_ERROR THEN
996 x_return_status:= FND_API.G_RET_STS_ERROR;
997 --RAISE;
998 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
999 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1000 -- RAISE;
1001 WHEN OTHERS THEN
1002 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1003 --added more parameters
1004 l_error_tbl := x_error_tbl;
1005 BIS_UTILITIES_PVT.Add_Error_Message
1006 ( p_error_msg_id => SQLCODE
1007 , p_error_description => SQLERRM
1008 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Range3_Low'
1009 , p_error_table => l_error_tbl
1010 , x_error_table => x_error_tbl
1011 );
1012 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1013 END Validate_Range3_Low;
1014 --
1015 --
1016 PROCEDURE Validate_Range3_High
1017 ( p_api_version IN NUMBER
1018 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1019 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1020 , x_return_status OUT NOCOPY VARCHAR2
1021 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1022 )
1023 IS
1024 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1025 BEGIN
1026 x_return_status := FND_API.G_RET_STS_SUCCESS;
1027 NULL;
1028
1029 --commented RAISE
1030 EXCEPTION
1031 WHEN FND_API.G_EXC_ERROR THEN
1032 x_return_status:= FND_API.G_RET_STS_ERROR;
1033 -- RAISE;
1034 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1035 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1036 -- RAISE;
1037 WHEN OTHERS THEN
1038 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1039 --added more parameters
1040 l_error_tbl := x_error_tbl;
1041 BIS_UTILITIES_PVT.Add_Error_Message
1042 ( p_error_msg_id => SQLCODE
1043 , p_error_description => SQLERRM
1044 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Range3_High'
1045 , p_error_table => l_error_tbl
1046 , x_error_table => x_error_tbl
1047 );
1048
1049 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1050 END Validate_Range3_High;
1051 --
1052 --
1053 PROCEDURE Validate_Notify_Resp1_ID
1054 ( p_api_version IN NUMBER
1055 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1056 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1057 , x_return_status OUT NOCOPY VARCHAR2
1058 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1059 )
1060 IS
1061 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1062 BEGIN
1063 x_return_status := FND_API.G_RET_STS_SUCCESS;
1064 NULL;
1065
1066 --commented RAISE
1067 EXCEPTION
1068 WHEN FND_API.G_EXC_ERROR THEN
1069 x_return_status:= FND_API.G_RET_STS_ERROR;
1070 --RAISE;
1071 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1072 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1073 --RAISE;
1074 WHEN OTHERS THEN
1075 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1076 --added more params
1077 l_error_tbl := x_error_tbl;
1078 BIS_UTILITIES_PVT.Add_Error_Message
1079 ( p_error_msg_id => SQLCODE
1080 , p_error_description => SQLERRM
1081 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Notify_Resp1_ID'
1082 , p_error_table => l_error_tbl
1083 , x_error_table => x_error_tbl
1084 );
1085 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1086 END Validate_Notify_Resp1_ID;
1087 --
1088 --
1089 PROCEDURE Validate_Notify_Resp1
1090 ( p_api_version IN NUMBER
1091 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1092 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1093 , x_return_status OUT NOCOPY VARCHAR2
1094 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1095 )
1096 IS
1097 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1098 BEGIN
1099 x_return_status := FND_API.G_RET_STS_SUCCESS;
1100 NULL;
1101
1102 --commented RAISE
1103 EXCEPTION
1104 WHEN FND_API.G_EXC_ERROR THEN
1105 x_return_status:= FND_API.G_RET_STS_ERROR;
1106 -- RAISE;
1107 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1108 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1109 -- RAISE;
1110 WHEN OTHERS THEN
1111 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1112 --added more params
1113 l_error_tbl := x_error_tbl;
1114 BIS_UTILITIES_PVT.Add_Error_Message
1115 ( p_error_msg_id => SQLCODE
1116 , p_error_description => SQLERRM
1117 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Notify_Resp1'
1118 , p_error_table => l_error_tbl
1119 , x_error_table => x_error_tbl
1120 );
1121 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122 END Validate_Notify_Resp1;
1123 --
1124 --
1125 PROCEDURE Validate_Notify_Resp2_ID
1126 ( p_api_version IN NUMBER
1127 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1128 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1129 , x_return_status OUT NOCOPY VARCHAR2
1130 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1131 )
1132 IS
1133 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1134 BEGIN
1135 x_return_status := FND_API.G_RET_STS_SUCCESS;
1136 NULL;
1137
1138 --commented RAISE
1139 EXCEPTION
1140 WHEN FND_API.G_EXC_ERROR THEN
1141 x_return_status:= FND_API.G_RET_STS_ERROR;
1142 --RAISE;
1143 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1144 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1145 --RAISE;
1146 WHEN OTHERS THEN
1147 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1148 --added more params
1149 l_error_tbl := x_error_tbl;
1150 BIS_UTILITIES_PVT.Add_Error_Message
1151 ( p_error_msg_id => SQLCODE
1152 , p_error_description => SQLERRM
1153 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Notify_Resp2_ID'
1154 , p_error_table => l_error_tbl
1155 , x_error_table => x_error_tbl
1156 );
1157 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1158 END Validate_Notify_Resp2_ID;
1159 --
1160 --
1161 PROCEDURE Validate_Notify_Resp2
1162 ( p_api_version IN NUMBER
1163 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1164 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1165 , x_return_status OUT NOCOPY VARCHAR2
1166 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1167 )
1168 IS
1169 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1170 BEGIN
1171 x_return_status := FND_API.G_RET_STS_SUCCESS;
1172 NULL;
1173
1174 --commented RAISE
1175 EXCEPTION
1176 WHEN FND_API.G_EXC_ERROR THEN
1177 x_return_status:= FND_API.G_RET_STS_ERROR;
1178 --RAISE;
1179 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1180 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1181 -- RAISE;
1182 WHEN OTHERS THEN
1183 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1184 --added more params
1185 l_error_tbl := x_error_tbl;
1186 BIS_UTILITIES_PVT.Add_Error_Message
1187 ( p_error_msg_id => SQLCODE
1188 , p_error_description => SQLERRM
1189 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Notify_Resp2'
1190 , p_error_table => l_error_tbl
1191 , x_error_table => x_error_tbl
1192 );
1193 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194 END Validate_Notify_Resp2;
1195 --
1196 --
1197 PROCEDURE Validate_Notify_Resp3_ID
1198 ( p_api_version IN NUMBER
1199 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1200 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1201 , x_return_status OUT NOCOPY VARCHAR2
1202 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1203 )
1204 IS
1205 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1206 BEGIN
1207 x_return_status := FND_API.G_RET_STS_SUCCESS;
1208 NULL;
1209
1210 --commented RAISE
1211 EXCEPTION
1212 WHEN FND_API.G_EXC_ERROR THEN
1213 x_return_status:= FND_API.G_RET_STS_ERROR;
1214 -- RAISE;
1215 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1216 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1217 -- RAISE;
1218 WHEN OTHERS THEN
1219 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1220 --added more params
1221 l_error_tbl := x_error_tbl;
1222 BIS_UTILITIES_PVT.Add_Error_Message
1223 ( p_error_msg_id => SQLCODE
1224 , p_error_description => SQLERRM
1225 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Notify_Resp3_ID'
1226 , p_error_table => l_error_tbl
1227 , x_error_table => x_error_tbl
1228 );
1229 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1230 END Validate_Notify_Resp3_ID;
1231 --
1232 --
1233 PROCEDURE Validate_Notify_Resp3
1234 ( p_api_version IN NUMBER
1235 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1236 , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1237 , x_return_status OUT NOCOPY VARCHAR2
1238 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1239 )
1240 IS
1241 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1242 BEGIN
1243 x_return_status := FND_API.G_RET_STS_SUCCESS;
1244 NULL;
1245
1246 --commented RAISE
1247 EXCEPTION
1248 WHEN FND_API.G_EXC_ERROR THEN
1249 x_return_status:= FND_API.G_RET_STS_ERROR;
1250 -- RAISE;
1251 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1252 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1253 --RAISE;
1254 WHEN OTHERS THEN
1255 x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1256 --added more params
1257 l_error_tbl := x_error_tbl;
1258 BIS_UTILITIES_PVT.Add_Error_Message
1259 ( p_error_msg_id => SQLCODE
1260 , p_error_description => SQLERRM
1261 , p_error_proc_name => 'BIS_TARGET_VALIDATE_PVT.Validate_Notify_Resp3'
1262 , p_error_table => l_error_tbl
1263 , x_error_table => x_error_tbl
1264 );
1265 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266 END Validate_Notify_Resp3;
1267 --
1268 --
1269 END BIS_TARGET_VALIDATE_PVT;