[Home] [Help]
PACKAGE BODY: APPS.BIS_MEASURE_VALIDATE_PVT
Source
1 PACKAGE BODY BIS_MEASURE_VALIDATE_PVT AS
2 /* $Header: BISVMEVB.pls 120.1 2005/06/03 02:22:05 rpenneru 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 | BISVTVLS.pls |
10 REM | MAHRAO 1850860 27/11/2001 |
11 REM | DESCRIPTION |
12 REM | Private API for validating items in the MEASUREs record
13 REM | NOTES |
14 REM | |
15 REM |
16 REM | 26-JUL-2002 rchandra Fixed for enh 2440739 |
17 REM | 23-JAN-03 sugopal For having different local variables for IN and OUT |
18 REM | parameters (bug#2758428) |
19 REM | 12-NOV-03 smargand added the validation for the enable column |
20 REM | 22-APR-2005 akoduri Enhancement#3865711 -- Obsolete Seeded Objects |
21 REM | 03-MAY-2005 akoduri Enh #4268374 -- Weighted Average Measures |
22 REM | 02-JUN-2005 rpenneru Enh #4325341 -- Add Calculated Measures |
23 REM +=======================================================================+
24 */
25 --
26 --
27 G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_MEASURE_VALIDATE_PVT';
28 --
29 PROCEDURE Validate_Dimension_Id
30 ( p_api_version IN NUMBER
31 , p_dimension_id IN NUMBER
32 , p_dimension_short_name IN VARCHAR2
33 , x_return_status OUT NOCOPY VARCHAR2
34 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
35 )
36 IS
37
38 l_dummy number;
39 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
40
41 CURSOR chk_dimension is
42 select 1
43 from bisbv_dimensions
44 where dimension_id = p_dimension_id;
45
46 begin
47 x_return_status := FND_API.G_RET_STS_SUCCESS;
48
49 -- dbms_output.put_line('PVT. validate dim: '||p_Dimension_ID
50 -- ||' - '||p_Dimension_Short_Name);
51
52 if(BIS_UTILITIES_PUB.Value_Not_Missing(p_dimension_id)=FND_API.G_TRUE
53 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_dimension_id)=FND_API.G_TRUE) then
54 open chk_dimension;
55 fetch chk_dimension into l_dummy;
56 if (chk_dimension%NOTFOUND) then
57 close chk_dimension;
58 --added last two params
59 l_error_tbl := x_error_tbl;
60 BIS_UTILITIES_PVT.Add_Error_Message
61 ( p_error_msg_name => 'BIS_INVALID_DIMENSION_ID'
62 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
63 , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension_ID'
64 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
65 , p_error_table => l_error_tbl
66 , x_error_table => x_error_tbl
67 );
68 RAISE FND_API.G_EXC_ERROR;
69 end if;
70 close chk_dimension;
71 end if;
72
73 --commented out NOCOPY RAISE
74 EXCEPTION
75 WHEN NO_DATA_FOUND THEN
76 x_return_status := FND_API.G_RET_STS_ERROR ;
77 --RAISE FND_API.G_EXC_ERROR;
78 when FND_API.G_EXC_ERROR then
79 x_return_status := FND_API.G_RET_STS_ERROR ;
80 --RAISE FND_API.G_EXC_ERROR;
81 when FND_API.G_EXC_UNEXPECTED_ERROR then
82 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
83 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
84 when others then
85 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
86 --added last two params
87 l_error_tbl := x_error_tbl;
88 BIS_UTILITIES_PVT.Add_Error_Message
89 ( p_error_msg_id => SQLCODE
90 , p_error_description => SQLERRM
91 , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension_Id'
92 , p_error_table => l_error_tbl
93 , x_error_table => x_error_tbl
94 );
95 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96
97 end Validate_Dimension_Id;
98 --
99 -- Fix for 1850860 starts here
100 -----------------------------------------------------------------------
101 PROCEDURE Val_Actual_Data_Sour_Type
102 ( p_api_version IN NUMBER
103 , p_actual_data_source_type IN VARCHAR2
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_dummy number;
110 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
111
112 CURSOR chk_actual_data_source_type IS
113 SELECT 1
114 FROM fnd_lookups
115 WHERE lookup_code = p_actual_data_source_type
116 AND lookup_type = 'BIS_ACTUAL_DATA_SOURCE_TYPE';
117
118 BEGIN
119 x_return_status := FND_API.G_RET_STS_SUCCESS;
120 IF (BIS_UTILITIES_PUB.Value_Not_Missing(p_actual_data_source_type)= FND_API.G_TRUE
121 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_actual_data_source_type)= FND_API.G_TRUE)
122 THEN
123 OPEN chk_actual_data_source_type;
124 FETCH chk_actual_data_source_type INTO l_dummy;
125 IF chk_actual_data_source_type%NOTFOUND THEN
126 CLOSE chk_actual_data_source_type;
127 l_error_tbl := x_error_tbl;
128 BIS_UTILITIES_PVT.Add_Error_Message
129 ( p_error_msg_name => 'BIS_INVALID_ACTUAL_DATA_SOURCE_TYPE'
130 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
131 , p_error_proc_name => G_PKG_NAME||'.Val_Actual_Data_Sour_Type'
132 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
133 , p_error_table => l_error_tbl
134 , x_error_table => x_error_tbl
135 );
136 RAISE FND_API.G_EXC_ERROR;
137 CLOSE chk_actual_data_source_type;
138 END IF;
139 END IF;
140 EXCEPTION
141 WHEN NO_DATA_FOUND THEN
142 x_return_status := FND_API.G_RET_STS_ERROR ;
143 --RAISE FND_API.G_EXC_ERROR;
144 when FND_API.G_EXC_ERROR then
145 x_return_status := FND_API.G_RET_STS_ERROR ;
146 --RAISE FND_API.G_EXC_ERROR;
147 when FND_API.G_EXC_UNEXPECTED_ERROR then
148 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
149 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150 when others then
151 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
152 --added last two params
153 l_error_tbl := x_error_tbl;
154 BIS_UTILITIES_PVT.Add_Error_Message
155 ( p_error_msg_id => SQLCODE
156 , p_error_description => SQLERRM
157 , p_error_proc_name => G_PKG_NAME||'.Val_Actual_Data_Sour_Type'
158 , p_error_table => l_error_tbl
159 , x_error_table => x_error_tbl
160 );
161 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
162
163 END Val_Actual_Data_Sour_Type;
164 -----------------------------------------------------------------------
165 PROCEDURE Val_Actual_Data_Sour
166 ( p_api_version IN NUMBER
167 , p_actual_data_source IN VARCHAR2
168 , x_return_status OUT NOCOPY VARCHAR2
169 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
170 )
171 IS
172
173 l_dummy number;
174 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
175
176 CURSOR chk_actual_data_source IS
177 SELECT 1
178 FROM ak_region_items
179 WHERE region_code = SUBSTR(p_actual_data_source, 1,
180 (INSTR(p_actual_data_source, '.', 1)-1)
181 )
182 -- AND item_name = SUBSTR(p_actual_data_source,
183 AND attribute_code = SUBSTR(p_actual_data_source,
184 (INSTR(p_actual_data_source, '.', 1)+1)
185 );
186 BEGIN
187 x_return_status := FND_API.G_RET_STS_SUCCESS;
188 IF (BIS_UTILITIES_PUB.Value_Not_Missing(p_actual_data_source)= FND_API.G_TRUE
189 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_actual_data_source)= FND_API.G_TRUE)
190 THEN
191 OPEN chk_actual_data_source;
192 FETCH chk_actual_data_source INTO l_dummy;
193 IF chk_actual_data_source%NOTFOUND THEN
194 CLOSE chk_actual_data_source;
195 l_error_tbl := x_error_tbl;
196 BIS_UTILITIES_PVT.Add_Error_Message
197 ( p_error_msg_name => 'BIS_INVALID_ACTUAL_DATA_SOURCE'
198 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
199 , p_error_proc_name => G_PKG_NAME||'.Val_Actual_Data_Sour'
200 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
201 , p_error_table => l_error_tbl
202 , x_error_table => x_error_tbl
203 );
204 RAISE FND_API.G_EXC_ERROR;
205 CLOSE chk_actual_data_source;
206 END IF;
207 END IF;
208 EXCEPTION
209 WHEN NO_DATA_FOUND THEN
210 x_return_status := FND_API.G_RET_STS_ERROR ;
211 --RAISE FND_API.G_EXC_ERROR;
212 when FND_API.G_EXC_ERROR then
213 x_return_status := FND_API.G_RET_STS_ERROR ;
214 --RAISE FND_API.G_EXC_ERROR;
215 when FND_API.G_EXC_UNEXPECTED_ERROR then
216 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
217 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218 when others then
219 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
220 --added last two params
221 l_error_tbl := x_error_tbl;
222 BIS_UTILITIES_PVT.Add_Error_Message
223 ( p_error_msg_id => SQLCODE
224 , p_error_description => SQLERRM
225 , p_error_proc_name => G_PKG_NAME||'.Val_Actual_Data_Sour'
226 , p_error_table => l_error_tbl
227 , x_error_table => x_error_tbl
228 );
229 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230
231 END Val_Actual_Data_Sour;
232 -----------------------------------------------------------------------
233 PROCEDURE Val_Func_Name
234 ( p_api_version IN NUMBER
235 , p_function_name IN VARCHAR2
236 , x_return_status OUT NOCOPY VARCHAR2
237 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
238 )
239 IS
240
241 l_dummy number;
242 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
243
244 CURSOR chk_function_name IS
245 SELECT 1
246 FROM fnd_form_functions
247 WHERE function_name = p_function_name;
248
249 BEGIN
250 x_return_status := FND_API.G_RET_STS_SUCCESS;
251 IF (BIS_UTILITIES_PUB.Value_Not_Missing(p_function_name)= FND_API.G_TRUE
252 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_function_name)= FND_API.G_TRUE)
253 THEN
254 OPEN chk_function_name;
255 FETCH chk_function_name INTO l_dummy;
256 IF chk_function_name%NOTFOUND THEN
257 CLOSE chk_function_name;
258 l_error_tbl := x_error_tbl;
259 BIS_UTILITIES_PVT.Add_Error_Message
260 ( p_error_msg_name => 'BIS_INVALID_FUNCTION_NAME'
261 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
262 , p_error_proc_name => G_PKG_NAME||'.Val_Func_Name'
263 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
264 , p_error_table => l_error_tbl
265 , x_error_table => x_error_tbl
266 );
267 RAISE FND_API.G_EXC_ERROR;
268 CLOSE chk_function_name;
269 END IF;
270 END IF;
271 EXCEPTION
272 WHEN NO_DATA_FOUND THEN
273 x_return_status := FND_API.G_RET_STS_ERROR ;
274 --RAISE FND_API.G_EXC_ERROR;
275 when FND_API.G_EXC_ERROR then
276 x_return_status := FND_API.G_RET_STS_ERROR ;
277 --RAISE FND_API.G_EXC_ERROR;
278 when FND_API.G_EXC_UNEXPECTED_ERROR then
279 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
280 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281 when others then
282 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
283 --added last two params
284 l_error_tbl := x_error_tbl;
285 BIS_UTILITIES_PVT.Add_Error_Message
286 ( p_error_msg_id => SQLCODE
287 , p_error_description => SQLERRM
288 , p_error_proc_name => G_PKG_NAME||'.Val_Func_Name'
289 , p_error_table => l_error_tbl
290 , x_error_table => x_error_tbl
291 );
292 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293
294 END Val_Func_Name;
295 -----------------------------------------------------------------------
296 PROCEDURE Val_Comparison_Source
297 ( p_api_version IN NUMBER
298 , p_comparison_source IN VARCHAR2
299 , x_return_status OUT NOCOPY VARCHAR2
300 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
301 )
302 IS
303
304 l_dummy number;
305 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
306
307 CURSOR chk_comparison_source IS
308 SELECT 1
309 FROM ak_region_items
310 WHERE region_code = SUBSTR(p_comparison_source, 1,
311 (INSTR(p_comparison_source, '.', 1)-1)
312 )
313 -- AND item_name = SUBSTR(p_comparison_source,
314 AND attribute_code = SUBSTR(p_comparison_source,
315 (INSTR(p_comparison_source, '.', 1)+1)
316 );
317 BEGIN
318 x_return_status := FND_API.G_RET_STS_SUCCESS;
319 IF (BIS_UTILITIES_PUB.Value_Not_Missing(p_comparison_source)= FND_API.G_TRUE
320 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_comparison_source)= FND_API.G_TRUE)
321 THEN
322 OPEN chk_comparison_source;
323 FETCH chk_comparison_source INTO l_dummy;
324 IF chk_comparison_source%NOTFOUND THEN
325 CLOSE chk_comparison_source;
326 l_error_tbl := x_error_tbl;
327 BIS_UTILITIES_PVT.Add_Error_Message
328 ( p_error_msg_name => 'BIS_INVALID_COMPARISON_SOURCE'
329 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
330 , p_error_proc_name => G_PKG_NAME||'.Val_Comparison_Source'
331 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
332 , p_error_table => l_error_tbl
333 , x_error_table => x_error_tbl
334 );
335 RAISE FND_API.G_EXC_ERROR;
336 CLOSE chk_comparison_source;
337 END IF;
338 END IF;
339 EXCEPTION
340 WHEN NO_DATA_FOUND THEN
341 x_return_status := FND_API.G_RET_STS_ERROR ;
342 --RAISE FND_API.G_EXC_ERROR;
343 when FND_API.G_EXC_ERROR then
344 x_return_status := FND_API.G_RET_STS_ERROR ;
345 --RAISE FND_API.G_EXC_ERROR;
346 when FND_API.G_EXC_UNEXPECTED_ERROR then
347 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
348 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349 when others then
350 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
351 --added last two params
352 l_error_tbl := x_error_tbl;
353 BIS_UTILITIES_PVT.Add_Error_Message
354 ( p_error_msg_id => SQLCODE
355 , p_error_description => SQLERRM
356 , p_error_proc_name => G_PKG_NAME||'.Val_Comparison_Source'
357 , p_error_table => l_error_tbl
358 , x_error_table => x_error_tbl
359 );
360 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
361
362 END Val_Comparison_Source;
363 -----------------------------------------------------------------------
364 PROCEDURE Val_Incr_In_Measure
365 ( p_api_version IN NUMBER
366 , p_increase_in_measure IN VARCHAR2
367 , x_return_status OUT NOCOPY VARCHAR2
368 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
369 )
370 IS
371
372 l_dummy number;
373 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
374
375 CURSOR chk_increase_in_measure IS
376 SELECT 1
377 FROM fnd_lookups
378 WHERE lookup_code = p_increase_in_measure
379 AND lookup_type = 'BIS_INCREASE_IN_MEASURE';
380
381 BEGIN
382 x_return_status := FND_API.G_RET_STS_SUCCESS;
383 IF (BIS_UTILITIES_PUB.Value_Not_Missing(p_increase_in_measure)= FND_API.G_TRUE
384 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_increase_in_measure)= FND_API.G_TRUE)
385 THEN
386 OPEN chk_increase_in_measure;
387 FETCH chk_increase_in_measure INTO l_dummy;
388 IF chk_increase_in_measure%NOTFOUND THEN
389 CLOSE chk_increase_in_measure;
390 l_error_tbl := x_error_tbl;
391 BIS_UTILITIES_PVT.Add_Error_Message
392 ( p_error_msg_name => 'BIS_INVALID_INCREASE_IN_MEASURE'
393 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
394 , p_error_proc_name => G_PKG_NAME||'.Val_Incr_In_Measure'
395 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
396 , p_error_table => l_error_tbl
397 , x_error_table => x_error_tbl
398 );
399 RAISE FND_API.G_EXC_ERROR;
400 CLOSE chk_increase_in_measure;
401 END IF;
402 END IF;
403 EXCEPTION
404 WHEN NO_DATA_FOUND THEN
405 x_return_status := FND_API.G_RET_STS_ERROR ;
406 --RAISE FND_API.G_EXC_ERROR;
407 when FND_API.G_EXC_ERROR then
408 x_return_status := FND_API.G_RET_STS_ERROR ;
409 --RAISE FND_API.G_EXC_ERROR;
410 when FND_API.G_EXC_UNEXPECTED_ERROR then
411 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
412 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413 when others then
414 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
415 --added last two params
416 l_error_tbl := x_error_tbl;
417 BIS_UTILITIES_PVT.Add_Error_Message
418 ( p_error_msg_id => SQLCODE
419 , p_error_description => SQLERRM
420 , p_error_proc_name => G_PKG_NAME||'.Val_Incr_In_Measure'
421 , p_error_table => l_error_tbl
422 , x_error_table => x_error_tbl
423 );
424 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
425
426 END Val_Incr_In_Measure;
427 -----------------------------------------------------------------------
428 --2440739
429 PROCEDURE Val_Enable_Link
430 ( p_api_version IN NUMBER
431 , p_enable_link IN VARCHAR2
432 , x_return_status OUT NOCOPY VARCHAR2
433 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
434 )
435 IS
436
437 l_dummy number;
438 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
439
440 CURSOR chk_Enable_Link IS
441 SELECT 1
442 FROM fnd_lookups
443 WHERE lookup_code = p_Enable_Link
444 AND lookup_type = 'BIS_PMF_ENABLE_LINK';
445
446 BEGIN
447 x_return_status := FND_API.G_RET_STS_SUCCESS;
448 IF (BIS_UTILITIES_PUB.Value_Not_Missing(p_enable_link)= FND_API.G_TRUE
449 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_enable_link)= FND_API.G_TRUE)
450 THEN
451 IF ( chk_enable_link%ISOPEN ) THEN
452 CLOSE chk_enable_link;
453 END IF;
454 OPEN chk_enable_link;
455 FETCH chk_enable_link INTO l_dummy;
456 IF chk_enable_link%NOTFOUND THEN
457 CLOSE chk_enable_link;
458 l_error_tbl := x_error_tbl;
459 BIS_UTILITIES_PVT.Add_Error_Message
460 ( p_error_msg_name => 'BIS_INVALID_enable_link'
461 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
462 , p_error_proc_name => G_PKG_NAME||'.Val_enable_link'
463 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
464 , p_error_table => l_error_tbl
465 , x_error_table => x_error_tbl
466 );
467 RAISE FND_API.G_EXC_ERROR;
468 CLOSE chk_enable_link;
469 END IF;
470 END IF;
471 EXCEPTION
472 WHEN NO_DATA_FOUND THEN
473 x_return_status := FND_API.G_RET_STS_ERROR ;
474 IF ( chk_enable_link%ISOPEN ) THEN
475 CLOSE chk_enable_link;
476 END IF;
477 --RAISE FND_API.G_EXC_ERROR;
478 when FND_API.G_EXC_ERROR then
479 x_return_status := FND_API.G_RET_STS_ERROR ;
480 IF ( chk_enable_link%ISOPEN ) THEN
481 CLOSE chk_enable_link;
482 END IF;
483 --RAISE FND_API.G_EXC_ERROR;
484 when FND_API.G_EXC_UNEXPECTED_ERROR then
485 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
486 IF ( chk_enable_link%ISOPEN ) THEN
487 CLOSE chk_enable_link;
488 END IF;
489 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490 when others then
491 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
492 --added last two params
493 IF ( chk_enable_link%ISOPEN ) THEN
494 CLOSE chk_enable_link;
495 END IF;
496 l_error_tbl := x_error_tbl;
497 BIS_UTILITIES_PVT.Add_Error_Message
498 ( p_error_msg_id => SQLCODE
499 , p_error_description => SQLERRM
500 , p_error_proc_name => G_PKG_NAME||'.Val_enable_link'
501 , p_error_table => l_error_tbl
502 , x_error_table => x_error_tbl
503 );
504 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
505
506 END Val_Enable_Link;
507 ----------------------------------------------------------------------- 2440739
508
509
510 --3031053
511 PROCEDURE Val_Enabled
512 ( p_api_version IN NUMBER
513 , p_enabled IN VARCHAR2
514 , x_return_status OUT NOCOPY VARCHAR2
515 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
516 )
517 IS
518
519 l_dummy number;
520 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
521
522 BEGIN
523 x_return_status := FND_API.G_RET_STS_SUCCESS;
524 IF (BIS_UTILITIES_PUB.Value_Not_Missing(p_enabled)= FND_API.G_TRUE
525 AND BIS_UTILITIES_PUB.Value_Not_NULL(p_enabled)= FND_API.G_TRUE)
526 THEN
527 IF ((p_enabled <> FND_API.G_TRUE) AND (p_enabled <> FND_API.G_FALSE)) THEN
528 l_error_tbl := x_error_tbl;
529 BIS_UTILITIES_PVT.Add_Error_Message
530 ( p_error_msg_name => 'BIS_PMF_INVALID_ENABLED'
531 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
532 , p_error_proc_name => G_PKG_NAME||'.Val_enabled'
533 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
534 , p_error_table => l_error_tbl
535 , x_error_table => x_error_tbl
536 );
537 RAISE FND_API.G_EXC_ERROR;
538 END IF;
539 END IF;
540 EXCEPTION
541 when FND_API.G_EXC_ERROR then
542 x_return_status := FND_API.G_RET_STS_ERROR ;
543 --RAISE FND_API.G_EXC_ERROR;
544 when FND_API.G_EXC_UNEXPECTED_ERROR then
545 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
547 when others then
548 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549 --added last two params
550 l_error_tbl := x_error_tbl;
551 BIS_UTILITIES_PVT.Add_Error_Message
552 ( p_error_msg_id => SQLCODE
553 , p_error_description => SQLERRM
554 , p_error_proc_name => G_PKG_NAME||'.Val_enabled'
555 , p_error_table => l_error_tbl
556 , x_error_table => x_error_tbl
557 );
558 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559
560 END Val_Enabled;
561 ----------------------------------------------------------------------- 3031053
562
563 PROCEDURE Val_Obsolete --3865711
564 ( p_api_version IN NUMBER
565 , p_obsolete IN VARCHAR2
566 , x_return_status OUT NOCOPY VARCHAR2
567 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
568 )
569 IS
570
571 l_dummy number;
572 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
573
574 BEGIN
575 x_return_status := FND_API.G_RET_STS_SUCCESS;
576 IF ((p_obsolete <> FND_API.G_TRUE) AND (p_obsolete <> FND_API.G_FALSE) AND ( BIS_UTILITIES_PVT.Value_Missing_Or_Null(p_obsolete) <> FND_API.G_TRUE) ) THEN
577 l_error_tbl := x_error_tbl;
578 BIS_UTILITIES_PVT.Add_Error_Message
579 ( p_error_msg_name => 'BIS_PMF_INVALID_OBSOLETE_FLAG'
580 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
581 , p_error_proc_name => G_PKG_NAME||'.Val_Obsolete'
582 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
583 , p_error_table => l_error_tbl
584 , x_error_table => x_error_tbl
585 );
586 RAISE FND_API.G_EXC_ERROR;
587 END IF;
588 EXCEPTION
589 when FND_API.G_EXC_ERROR then
590 x_return_status := FND_API.G_RET_STS_ERROR ;
591 when FND_API.G_EXC_UNEXPECTED_ERROR then
592 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
593 when others then
594 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
595 --added last two params
596 l_error_tbl := x_error_tbl;
597 BIS_UTILITIES_PVT.Add_Error_Message
598 ( p_error_msg_id => SQLCODE
599 , p_error_description => SQLERRM
600 , p_error_proc_name => G_PKG_NAME||'.Val_Obsolete'
601 , p_error_table => l_error_tbl
602 , x_error_table => x_error_tbl
603 );
604 END Val_Obsolete;
605
606 PROCEDURE Val_Measure_Type
607 ( p_api_version IN NUMBER
608 , p_Measure_Type IN VARCHAR2
609 , x_return_status OUT NOCOPY VARCHAR2
610 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
611 )
612 IS
613
614 l_dummy number;
615 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
616
617 BEGIN
618 x_return_status := FND_API.G_RET_STS_SUCCESS;
619 IF ((p_Measure_type <> 'CDS_SCORE') AND (p_Measure_Type <> 'CDS_PERF') AND (p_Measure_Type <> 'CDS_CALC')
620 AND ( BIS_UTILITIES_PVT.Value_Missing_Or_Null(p_Measure_Type) <> FND_API.G_TRUE) ) THEN
621 l_error_tbl := x_error_tbl;
622 BIS_UTILITIES_PVT.Add_Error_Message
623 ( p_error_msg_name => 'BIS_PMF_INVALID_MEASURE_TYPE'
624 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
625 , p_error_proc_name => G_PKG_NAME||'.Val_Measure_Type'
626 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
627 , p_error_table => l_error_tbl
628 , x_error_table => x_error_tbl
629 );
630 RAISE FND_API.G_EXC_ERROR;
631 END IF;
632 EXCEPTION
633 when FND_API.G_EXC_ERROR then
634 x_return_status := FND_API.G_RET_STS_ERROR ;
635 when FND_API.G_EXC_UNEXPECTED_ERROR then
636 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
637 when others then
638 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
639 --added last two params
640 l_error_tbl := x_error_tbl;
641 BIS_UTILITIES_PVT.Add_Error_Message
642 ( p_error_msg_id => SQLCODE
643 , p_error_description => SQLERRM
644 , p_error_proc_name => G_PKG_NAME||'.Val_Measure_Type'
645 , p_error_table => l_error_tbl
646 , x_error_table => x_error_tbl
647 );
648 END Val_Measure_Type;
649
650
651 PROCEDURE Val_Actual_Data_Sour_Type_wrap
652 ( p_api_version IN NUMBER
653 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
654 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
655 , x_return_status OUT NOCOPY VARCHAR2
656 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
657 )
658 IS
659 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
660 BEGIN
661 Val_Actual_Data_Sour_Type( p_api_version
662 , p_MEASURE_Rec.Actual_Data_Source_Type
663 , x_return_status
664 , x_error_tbl
665 );
666
667 --commented out NOCOPY RAISE
668 EXCEPTION
669 WHEN NO_DATA_FOUND THEN
670 x_return_status := FND_API.G_RET_STS_ERROR ;
671 --RAISE FND_API.G_EXC_ERROR;
672 when FND_API.G_EXC_ERROR then
673 x_return_status := FND_API.G_RET_STS_ERROR ;
674 --RAISE FND_API.G_EXC_ERROR;
675 when FND_API.G_EXC_UNEXPECTED_ERROR then
676 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
677 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
678 when others then
679 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
680 --added last two params
681 l_error_tbl := x_error_tbl;
682 BIS_UTILITIES_PVT.Add_Error_Message
683 ( p_error_msg_id => SQLCODE
684 , p_error_description => SQLERRM
685 , p_error_proc_name => G_PKG_NAME||'.Val_Actual_Data_Sour_Type_Wrap'
686 , p_error_table => l_error_tbl
687 , x_error_table => x_error_tbl
688 );
689 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
690
691 END Val_Actual_Data_Sour_Type_Wrap;
692 -----------------------------------------------------------------------
693 PROCEDURE Val_Actual_Data_Sour_Wrap
694 ( p_api_version IN NUMBER
695 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
696 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
697 , x_return_status OUT NOCOPY VARCHAR2
698 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
699 )
700 IS
701 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
702 BEGIN
703 Val_Actual_Data_Sour( p_api_version
704 , p_MEASURE_Rec.Actual_Data_Source
705 , x_return_status
706 , x_error_tbl
707 );
708
709 --commented out NOCOPY RAISE
710 EXCEPTION
711 WHEN NO_DATA_FOUND THEN
712 x_return_status := FND_API.G_RET_STS_ERROR ;
713 --RAISE FND_API.G_EXC_ERROR;
714 when FND_API.G_EXC_ERROR then
715 x_return_status := FND_API.G_RET_STS_ERROR ;
716 --RAISE FND_API.G_EXC_ERROR;
717 when FND_API.G_EXC_UNEXPECTED_ERROR then
718 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720 when others then
721 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
722 --added last two params
723 l_error_tbl := x_error_tbl;
724 BIS_UTILITIES_PVT.Add_Error_Message
725 ( p_error_msg_id => SQLCODE
726 , p_error_description => SQLERRM
727 , p_error_proc_name => G_PKG_NAME||'.Val_Actual_Data_Sour_Wrap'
728 , p_error_table => l_error_tbl
729 , x_error_table => x_error_tbl
730 );
731 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
732
733 END Val_Actual_Data_Sour_Wrap;
734 -----------------------------------------------------------------------
735 PROCEDURE Val_Func_Name_Wrap
736 ( p_api_version IN NUMBER
737 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
738 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
739 , x_return_status OUT NOCOPY VARCHAR2
740 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
741 )
742 IS
743 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
744 BEGIN
745 Val_Func_Name( p_api_version
746 , p_MEASURE_Rec.Function_Name
747 , x_return_status
748 , x_error_tbl
749 );
750
751 --commented out NOCOPY RAISE
752 EXCEPTION
753 WHEN NO_DATA_FOUND THEN
754 x_return_status := FND_API.G_RET_STS_ERROR ;
755 --RAISE FND_API.G_EXC_ERROR;
756 when FND_API.G_EXC_ERROR then
757 x_return_status := FND_API.G_RET_STS_ERROR ;
758 --RAISE FND_API.G_EXC_ERROR;
759 when FND_API.G_EXC_UNEXPECTED_ERROR then
760 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
761 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
762 when others then
763 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
764 --added last two params
765 l_error_tbl := x_error_tbl;
766 BIS_UTILITIES_PVT.Add_Error_Message
767 ( p_error_msg_id => SQLCODE
768 , p_error_description => SQLERRM
769 , p_error_proc_name => G_PKG_NAME||'.Val_Func_Name_Wrap'
770 , p_error_table => l_error_tbl
771 , x_error_table => x_error_tbl
772 );
773 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
774
775 END Val_Func_Name_Wrap;
776 -----------------------------------------------------------------------
777 PROCEDURE Val_Comparison_Source_wrap
778 ( p_api_version IN NUMBER
779 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
780 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
781 , x_return_status OUT NOCOPY VARCHAR2
782 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
783 )
784 IS
785 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
786 BEGIN
787 Val_Comparison_Source( p_api_version
788 , p_MEASURE_Rec.Comparison_Source
789 , x_return_status
790 , x_error_tbl
791 );
792
793 --commented out NOCOPY RAISE
794 EXCEPTION
795 WHEN NO_DATA_FOUND THEN
796 x_return_status := FND_API.G_RET_STS_ERROR ;
797 --RAISE FND_API.G_EXC_ERROR;
798 when FND_API.G_EXC_ERROR then
799 x_return_status := FND_API.G_RET_STS_ERROR ;
800 --RAISE FND_API.G_EXC_ERROR;
801 when FND_API.G_EXC_UNEXPECTED_ERROR then
802 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
803 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804 when others then
805 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
806 --added last two params
807 l_error_tbl := x_error_tbl;
808 BIS_UTILITIES_PVT.Add_Error_Message
809 ( p_error_msg_id => SQLCODE
810 , p_error_description => SQLERRM
811 , p_error_proc_name => G_PKG_NAME||'.Val_Comparison_Source_Wrap'
812 , p_error_table => l_error_tbl
813 , x_error_table => x_error_tbl
814 );
815 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
816
817 END Val_Comparison_Source_Wrap;
818 -----------------------------------------------------------------------
819 PROCEDURE Val_Incr_In_Measure_Wrap
820 ( p_api_version IN NUMBER
821 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
822 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
823 , x_return_status OUT NOCOPY VARCHAR2
824 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
825 )
826 IS
827 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
828 BEGIN
829 Val_Incr_In_Measure( p_api_version
830 , p_MEASURE_Rec.Increase_In_Measure
831 , x_return_status
832 , x_error_tbl
833 );
834
835 --commented out NOCOPY RAISE
836 EXCEPTION
837 WHEN NO_DATA_FOUND THEN
838 x_return_status := FND_API.G_RET_STS_ERROR ;
839 --RAISE FND_API.G_EXC_ERROR;
840 when FND_API.G_EXC_ERROR then
841 x_return_status := FND_API.G_RET_STS_ERROR ;
842 --RAISE FND_API.G_EXC_ERROR;
843 when FND_API.G_EXC_UNEXPECTED_ERROR then
844 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
845 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
846 when others then
847 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
848 --added last two params
849 l_error_tbl := x_error_tbl;
850 BIS_UTILITIES_PVT.Add_Error_Message
851 ( p_error_msg_id => SQLCODE
852 , p_error_description => SQLERRM
853 , p_error_proc_name => G_PKG_NAME||'.Val_Incr_In_Measure_Wrap'
854 , p_error_table => l_error_tbl
855 , x_error_table => x_error_tbl
856 );
857 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
858
859 END Val_Incr_In_Measure_Wrap;
860 -----------------------------------------------------------------------
861 -- Fix for 1850860 starts here
862 -- 2440739
863 PROCEDURE Val_enable_link_Wrap
864 ( p_api_version IN NUMBER
865 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
866 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
867 , x_return_status OUT NOCOPY VARCHAR2
868 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
869 )
870 IS
871 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
872 BEGIN
873 Val_enable_link( p_api_version
874 , p_MEASURE_Rec.enable_link
875 , x_return_status
876 , x_error_tbl
877 );
878
879 --commented out NOCOPY RAISE
880 EXCEPTION
881 WHEN NO_DATA_FOUND THEN
882 x_return_status := FND_API.G_RET_STS_ERROR ;
883 --RAISE FND_API.G_EXC_ERROR;
884 when FND_API.G_EXC_ERROR then
885 x_return_status := FND_API.G_RET_STS_ERROR ;
886 --RAISE FND_API.G_EXC_ERROR;
887 when FND_API.G_EXC_UNEXPECTED_ERROR then
888 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
889 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
890 when others then
891 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
892 --added last two params
893 l_error_tbl := x_error_tbl;
894 BIS_UTILITIES_PVT.Add_Error_Message
895 ( p_error_msg_id => SQLCODE
896 , p_error_description => SQLERRM
897 , p_error_proc_name => G_PKG_NAME||'.Val_enable_link_Wrap'
898 , p_error_table => l_error_tbl
899 , x_error_table => x_error_tbl
900 );
901 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
902
903 END Val_enable_link_Wrap;
904 -----------------------------------------------------------------------
905 -- 2440739
906
907 -- 3031053
908 PROCEDURE Val_enabled_Wrap
909 ( p_api_version IN NUMBER
910 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
911 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_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 Val_enabled ( p_api_version
919 , p_MEASURE_Rec.enabled
920 , x_return_status
921 , x_error_tbl
922 );
923
924 --commented out NOCOPY RAISE
925 EXCEPTION
926 WHEN NO_DATA_FOUND THEN
927 x_return_status := FND_API.G_RET_STS_ERROR ;
928 --RAISE FND_API.G_EXC_ERROR;
929 when FND_API.G_EXC_ERROR then
930 x_return_status := FND_API.G_RET_STS_ERROR ;
931 --RAISE FND_API.G_EXC_ERROR;
932 when FND_API.G_EXC_UNEXPECTED_ERROR then
933 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
934 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
935 when others then
936 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
937 --added last two params
938 l_error_tbl := x_error_tbl;
939 BIS_UTILITIES_PVT.Add_Error_Message
940 ( p_error_msg_id => SQLCODE
941 , p_error_description => SQLERRM
942 , p_error_proc_name => G_PKG_NAME||'.Val_enabled_Wrap'
943 , p_error_table => l_error_tbl
944 , x_error_table => x_error_tbl
945 );
946 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947
948 END Val_enabled_Wrap;
949 -----------------------------------------------------------------------
950 -- 2440739
951
952
953 PROCEDURE Val_Obsolete_Wrap --3865711
954 ( p_api_version IN NUMBER
955 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
956 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
957 , x_return_status OUT NOCOPY VARCHAR2
958 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
959 )
960 IS
961 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
962 BEGIN
963 Val_Obsolete ( p_api_version
964 , p_MEASURE_Rec.Obsolete
965 , x_return_status
966 , x_error_tbl
967 );
968
969 EXCEPTION
970 WHEN NO_DATA_FOUND THEN
971 x_return_status := FND_API.G_RET_STS_ERROR ;
972 when FND_API.G_EXC_ERROR then
973 x_return_status := FND_API.G_RET_STS_ERROR ;
974 when FND_API.G_EXC_UNEXPECTED_ERROR then
975 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
976 when others then
977 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
978 --added last two params
979 l_error_tbl := x_error_tbl;
980 BIS_UTILITIES_PVT.Add_Error_Message
981 ( p_error_msg_id => SQLCODE
982 , p_error_description => SQLERRM
983 , p_error_proc_name => G_PKG_NAME||'.Val_Obsolete_Wrap'
984 , p_error_table => l_error_tbl
985 , x_error_table => x_error_tbl
986 );
987 END Val_Obsolete_Wrap;
988 -----------------------------------------------------------------------
989
990 PROCEDURE Val_Measure_Type_Wrap
991 ( p_api_version IN NUMBER
992 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
993 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
994 , x_return_status OUT NOCOPY VARCHAR2
995 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
996 )
997 IS
998 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
999 BEGIN
1000 Val_Measure_Type ( p_api_version
1001 , p_MEASURE_Rec.Measure_Type
1002 , x_return_status
1003 , x_error_tbl
1004 );
1005
1006 EXCEPTION
1007 WHEN NO_DATA_FOUND THEN
1008 x_return_status := FND_API.G_RET_STS_ERROR ;
1009 when FND_API.G_EXC_ERROR then
1010 x_return_status := FND_API.G_RET_STS_ERROR ;
1011 when FND_API.G_EXC_UNEXPECTED_ERROR then
1012 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1013 when others then
1014 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1015 --added last two params
1016 l_error_tbl := x_error_tbl;
1017 BIS_UTILITIES_PVT.Add_Error_Message
1018 ( p_error_msg_id => SQLCODE
1019 , p_error_description => SQLERRM
1020 , p_error_proc_name => G_PKG_NAME||'.Val_Measure_Type_Wrap'
1021 , p_error_table => l_error_tbl
1022 , x_error_table => x_error_tbl
1023 );
1024 END Val_Measure_Type_Wrap;
1025 -----------------------------------------------------------------------
1026
1027 PROCEDURE Validate_Dimension1_ID
1028 ( p_api_version IN NUMBER
1029 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1030 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
1031 , x_return_status OUT NOCOPY VARCHAR2
1032 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1033 )
1034 IS
1035 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1036 BEGIN
1037 Validate_Dimension_Id( p_api_version
1038 , p_MEASURE_Rec.Dimension1_ID
1039 , p_Measure_Rec.Dimension1_Short_Name
1040 , x_return_status
1041 , x_error_tbl
1042 );
1043
1044 --commented out NOCOPY RAISE
1045 EXCEPTION
1046 WHEN NO_DATA_FOUND THEN
1047 x_return_status := FND_API.G_RET_STS_ERROR ;
1048 --RAISE FND_API.G_EXC_ERROR;
1049 when FND_API.G_EXC_ERROR then
1050 x_return_status := FND_API.G_RET_STS_ERROR ;
1051 --RAISE FND_API.G_EXC_ERROR;
1052 when FND_API.G_EXC_UNEXPECTED_ERROR then
1053 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1054 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1055 when others then
1056 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1057 --added last two params
1058 l_error_tbl := x_error_tbl;
1059 BIS_UTILITIES_PVT.Add_Error_Message
1060 ( p_error_msg_id => SQLCODE
1061 , p_error_description => SQLERRM
1062 , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension1_ID'
1063 , p_error_table => l_error_tbl
1064 , x_error_table => x_error_tbl
1065 );
1066 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067
1068 END Validate_Dimension1_ID;
1069 --
1070 PROCEDURE Validate_Dimension2_ID
1071 ( p_api_version IN NUMBER
1072 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1073 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
1074 , x_return_status OUT NOCOPY VARCHAR2
1075 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1076 )
1077 IS
1078 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1079 BEGIN
1080
1081 Validate_Dimension_Id( p_api_version
1082 , p_MEASURE_Rec.Dimension2_ID
1083 , p_Measure_Rec.Dimension2_Short_Name
1084 , x_return_status
1085 , x_error_tbl
1086 );
1087
1088 --commented out NOCOPY RAISE
1089 EXCEPTION
1090 WHEN NO_DATA_FOUND THEN
1091 x_return_status := FND_API.G_RET_STS_ERROR ;
1092 --RAISE FND_API.G_EXC_ERROR;
1093 when FND_API.G_EXC_ERROR then
1094 x_return_status := FND_API.G_RET_STS_ERROR ;
1095 --RAISE FND_API.G_EXC_ERROR;
1096 when FND_API.G_EXC_UNEXPECTED_ERROR then
1097 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1098 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099 when others then
1100 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1101 --added last two params
1102 l_error_tbl := x_error_tbl;
1103 BIS_UTILITIES_PVT.Add_Error_Message
1104 ( p_error_msg_id => SQLCODE
1105 , p_error_description => SQLERRM
1106 , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension2_ID'
1107 , p_error_table => l_error_tbl
1108 , x_error_table => x_error_tbl
1109 );
1110 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1111
1112 END Validate_Dimension2_ID;
1113 --
1114 PROCEDURE Validate_Dimension3_ID
1115 ( p_api_version IN NUMBER
1116 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1117 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
1118 , x_return_status OUT NOCOPY VARCHAR2
1119 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1120 )
1121 IS
1122 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1123 BEGIN
1124
1125 Validate_Dimension_Id( p_api_version
1126 , p_MEASURE_Rec.Dimension3_ID
1127 , p_Measure_Rec.Dimension3_Short_Name
1128 , x_return_status
1129 , x_error_tbl
1130 );
1131
1132 --commented out NOCOPY RAISE
1133 EXCEPTION
1134 WHEN NO_DATA_FOUND THEN
1135 x_return_status := FND_API.G_RET_STS_ERROR ;
1136 --RAISE FND_API.G_EXC_ERROR;
1137 when FND_API.G_EXC_ERROR then
1138 x_return_status := FND_API.G_RET_STS_ERROR ;
1139 --RAISE FND_API.G_EXC_ERROR;
1140 when FND_API.G_EXC_UNEXPECTED_ERROR then
1141 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1142 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1143 when others then
1144 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1145 --added last two params
1146 l_error_tbl := x_error_tbl;
1147 BIS_UTILITIES_PVT.Add_Error_Message
1148 ( p_error_msg_id => SQLCODE
1149 , p_error_description => SQLERRM
1150 , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension3_ID'
1151 , p_error_table => l_error_tbl
1152 , x_error_table => x_error_tbl
1153 );
1154 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155
1156 END Validate_Dimension3_ID;
1157 --
1158 PROCEDURE Validate_Dimension4_ID
1159 ( p_api_version IN NUMBER
1160 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1161 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
1162 , x_return_status OUT NOCOPY VARCHAR2
1163 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1164 )
1165 IS
1166 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1167 BEGIN
1168
1169 Validate_Dimension_Id( p_api_version
1170 , p_MEASURE_Rec.Dimension4_ID
1171 , p_Measure_Rec.Dimension4_Short_Name
1172 , x_return_status
1173 , x_error_tbl
1174 );
1175
1176 --commented out NOCOPY RAISE
1177 EXCEPTION
1178 WHEN NO_DATA_FOUND THEN
1179 x_return_status := FND_API.G_RET_STS_ERROR ;
1180 --RAISE FND_API.G_EXC_ERROR;
1181 when FND_API.G_EXC_ERROR then
1182 x_return_status := FND_API.G_RET_STS_ERROR ;
1183 --RAISE FND_API.G_EXC_ERROR;
1184 when FND_API.G_EXC_UNEXPECTED_ERROR then
1185 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1186 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1187 when others then
1188 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1189 --added last two params
1190 l_error_tbl := x_error_tbl;
1191 BIS_UTILITIES_PVT.Add_Error_Message
1192 ( p_error_msg_id => SQLCODE
1193 , p_error_description => SQLERRM
1194 , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension4_ID'
1195 , p_error_table => l_error_tbl
1196 , x_error_table => x_error_tbl
1197 );
1198 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1199
1200 END Validate_Dimension4_ID;
1201 --
1202 PROCEDURE Validate_Dimension5_ID
1203 ( p_api_version IN NUMBER
1204 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1205 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
1206 , x_return_status OUT NOCOPY VARCHAR2
1207 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1208 )
1209 IS
1210 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1211 BEGIN
1212
1213 Validate_Dimension_Id( p_api_version
1214 , p_MEASURE_Rec.Dimension5_ID
1215 , p_Measure_Rec.Dimension5_Short_Name
1216 , x_return_status
1217 , x_error_tbl
1218 );
1219
1220 --commented out NOCOPY RAISE
1221 EXCEPTION
1222 WHEN NO_DATA_FOUND THEN
1223 x_return_status := FND_API.G_RET_STS_ERROR ;
1224 --RAISE FND_API.G_EXC_ERROR;
1225 when FND_API.G_EXC_ERROR then
1226 x_return_status := FND_API.G_RET_STS_ERROR ;
1227 -- RAISE FND_API.G_EXC_ERROR;
1228 when FND_API.G_EXC_UNEXPECTED_ERROR then
1229 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1230 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231 when others then
1232 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1233 --added last two params
1234 l_error_tbl := x_error_tbl;
1235 BIS_UTILITIES_PVT.Add_Error_Message
1236 ( p_error_msg_id => SQLCODE
1237 , p_error_description => SQLERRM
1238 , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension5_ID'
1239 , p_error_table => l_error_tbl
1240 , x_error_table => x_error_tbl
1241 );
1242 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243
1244 END Validate_Dimension5_ID;
1245 --
1246 PROCEDURE Validate_Dimension6_ID
1247 ( p_api_version IN NUMBER
1248 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1249 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
1250 , x_return_status OUT NOCOPY VARCHAR2
1251 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1252 )
1253 IS
1254 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1255 BEGIN
1256
1257 Validate_Dimension_Id( p_api_version
1258 , p_MEASURE_Rec.Dimension6_ID
1259 , p_Measure_Rec.Dimension6_Short_Name
1260 , x_return_status
1261 , x_error_tbl
1262 );
1263
1264 --commented out NOCOPY RAISE
1265 EXCEPTION
1266 WHEN NO_DATA_FOUND THEN
1267 x_return_status := FND_API.G_RET_STS_ERROR ;
1268 -- RAISE FND_API.G_EXC_ERROR;
1269 when FND_API.G_EXC_ERROR then
1270 x_return_status := FND_API.G_RET_STS_ERROR ;
1271 -- RAISE FND_API.G_EXC_ERROR;
1272 when FND_API.G_EXC_UNEXPECTED_ERROR then
1273 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1274 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275 when others then
1276 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1277 --added last two params
1278 l_error_tbl := x_error_tbl;
1279 BIS_UTILITIES_PVT.Add_Error_Message
1280 ( p_error_msg_id => SQLCODE
1281 , p_error_description => SQLERRM
1282 , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension6_ID'
1283 , p_error_table => l_error_tbl
1284 , x_error_table => x_error_tbl
1285 );
1286 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287
1288 END Validate_Dimension6_ID;
1289 --
1290 PROCEDURE Validate_Dimension7_ID
1291 ( p_api_version IN NUMBER
1292 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1293 , p_MEASURE_Rec IN BIS_MEASURE_PUB.MEASURE_Rec_Type
1294 , x_return_status OUT NOCOPY VARCHAR2
1295 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1296 )
1297 IS
1298 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1299 BEGIN
1300
1301 Validate_Dimension_Id( p_api_version
1302 , p_MEASURE_Rec.Dimension7_ID
1303 , p_Measure_Rec.Dimension7_Short_Name
1304 , x_return_status
1305 , x_error_tbl
1306 );
1307
1308 --commented out NOCOPY RAISE
1309 EXCEPTION
1310 WHEN NO_DATA_FOUND THEN
1311 x_return_status := FND_API.G_RET_STS_ERROR ;
1312 --RAISE FND_API.G_EXC_ERROR;
1313 when FND_API.G_EXC_ERROR then
1314 x_return_status := FND_API.G_RET_STS_ERROR ;
1315 --RAISE FND_API.G_EXC_ERROR;
1316 when FND_API.G_EXC_UNEXPECTED_ERROR then
1317 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1318 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319 when others then
1320 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1321 --added last two params
1322 l_error_tbl := x_error_tbl;
1323 BIS_UTILITIES_PVT.Add_Error_Message
1324 ( p_error_msg_id => SQLCODE
1325 , p_error_description => SQLERRM
1326 , p_error_proc_name => G_PKG_NAME||'.Validate_Dimension7_ID'
1327 , p_error_table => l_error_tbl
1328 , x_error_table => x_error_tbl
1329 );
1330 --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1331
1332 END Validate_Dimension7_ID;
1333 --
1334 END BIS_MEASURE_VALIDATE_PVT;