16: -- Retrieves the KPIs users have selected to monitor on the personal homepage
17: -- or in the summary report. This should be called before calling Post_Actual.
18: PROCEDURE Retrieve_User_Selections
19: ( p_api_version IN NUMBER
20: ,p_all_info IN VARCHAR2 := FND_API.G_TRUE
21: ,p_Target_Level_Rec
22: IN BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
23: ,x_Indicator_Region_Tbl
24: OUT NOCOPY BIS_INDICATOR_REGION_PUB.Indicator_Region_Tbl_Type
43: FROM bis_user_ind_selections
44: WHERE TARGET_LEVEL_ID = l_Target_Level_id;
45:
46: BEGIN
47: x_return_status := FND_API.G_RET_STS_SUCCESS;
48:
49: /*
50: IF BIS_UTILITIES_PUB.Value_Missing (p_Target_Level_Rec.Target_Level_ID)
51: = FND_API.G_TRUE
47: x_return_status := FND_API.G_RET_STS_SUCCESS;
48:
49: /*
50: IF BIS_UTILITIES_PUB.Value_Missing (p_Target_Level_Rec.Target_Level_ID)
51: = FND_API.G_TRUE
52: THEN
53:
54: BIS_TARGET_LEVEL_PUB.Retrieve_Target_Level
55: ( p_api_version => 1.0
53:
54: BIS_TARGET_LEVEL_PUB.Retrieve_Target_Level
55: ( p_api_version => 1.0
56: , p_Target_Level_Rec => p_Target_Level_Rec
57: , p_all_info => FND_API.G_FALSE
58: , x_Target_Level_Rec => l_Target_level_Rec
59: , x_return_status => x_return_status
60: , x_error_Tbl => x_error_tbl
61: );
83: */
84:
85: EXCEPTION
86: WHEN OTHERS THEN
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
88:
89: END Retrieve_User_Selections;
90:
91:
119: WHERE TARGET_LEVEL_ID = l_Target_Level_id;
120:
121: BEGIN
122:
123: x_return_status := FND_API.G_RET_STS_SUCCESS;
124:
125: l_Target_Level_id := p_Target_level_Rec.Target_Level_id;
126:
127: BIS_UTILITIES_PUB.put_line(p_text => 'Target Level Id to get User_ind_sel : '
146: END LOOP;
147:
148: EXCEPTION
149: WHEN OTHERS THEN
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
151:
152: END Retrieve_tl_selections;
153:
154:
154:
155: -- Posts actual value into BIS table.
156: PROCEDURE Post_Actual
157: ( p_api_version IN NUMBER
158: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
159: ,p_commit IN VARCHAR2 Default FND_API.G_FALSE
160: ,p_Actual_Rec IN BIS_ACTUAL_PUB.Actual_Rec_Type
161: ,x_return_status OUT NOCOPY VARCHAR2
162: ,x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
155: -- Posts actual value into BIS table.
156: PROCEDURE Post_Actual
157: ( p_api_version IN NUMBER
158: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
159: ,p_commit IN VARCHAR2 Default FND_API.G_FALSE
160: ,p_Actual_Rec IN BIS_ACTUAL_PUB.Actual_Rec_Type
161: ,x_return_status OUT NOCOPY VARCHAR2
162: ,x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
163: )
199: --l_create_date DATE;
200: --l_update_date DATE;
201:
202: BEGIN
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
204: -- dbms_output.put_line('In PVT Post_Actual');
205:
206: l_actual_rec := p_actual_rec;
207: Validate_Actual
211: , x_return_status => x_return_status
212: , x_error_Tbl => x_error_Tbl
213: );
214:
215: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) then
216: RAISE FND_API.G_EXC_ERROR;
217: END IF;
218:
219: -- $$
212: , x_error_Tbl => x_error_Tbl
213: );
214:
215: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) then
216: RAISE FND_API.G_EXC_ERROR;
217: END IF;
218:
219: -- $$
220: /*IF BIS_UTILITIES_PUB.Value_Missing(l_actual_rec.Time_Level_Value_ID)
217: END IF;
218:
219: -- $$
220: /*IF BIS_UTILITIES_PUB.Value_Missing(l_actual_rec.Time_Level_Value_ID)
221: = FND_API.G_TRUE
222: OR BIS_UTILITIES_PUB.Value_Null(l_actual_rec.Time_Level_Value_ID)
223: = FND_API.G_TRUE
224: THEN
225:
219: -- $$
220: /*IF BIS_UTILITIES_PUB.Value_Missing(l_actual_rec.Time_Level_Value_ID)
221: = FND_API.G_TRUE
222: OR BIS_UTILITIES_PUB.Value_Null(l_actual_rec.Time_Level_Value_ID)
223: = FND_API.G_TRUE
224: THEN
225:
226: -- get the period_name for the current date
227: --
234: , x_Return_Status => x_Return_Status
235: );
236: -- dbms_output.put_line('ACT pvt Get time level Value Status: '||x_return_status);
237:
238: IF l_Return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241: END IF;
242: */
235: );
236: -- dbms_output.put_line('ACT pvt Get time level Value Status: '||x_return_status);
237:
238: IF l_Return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241: END IF;
242: */
243: -- check if previous record exist and set action flag
331: -- l_create_date := SYSDATE;
332:
333: ELSE
334: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
337:
338: -- dbms_output.put_line('action: '||l_action
339: -- ||'. Time Val: '||SUBSTR(l_time_level_value,1,20)
344: --commented out NOCOPY RAISE
345: EXCEPTION
346: WHEN NO_DATA_FOUND OR e_invalidActualException THEN
347: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
348: x_return_status := FND_API.G_RET_STS_ERROR ;
349: --RAISE FND_API.G_EXC_ERROR;
350: when FND_API.G_EXC_ERROR then
351: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
352: x_return_status := FND_API.G_RET_STS_ERROR ;
345: EXCEPTION
346: WHEN NO_DATA_FOUND OR e_invalidActualException THEN
347: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
348: x_return_status := FND_API.G_RET_STS_ERROR ;
349: --RAISE FND_API.G_EXC_ERROR;
350: when FND_API.G_EXC_ERROR then
351: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: -- RAISE FND_API.G_EXC_ERROR;
346: WHEN NO_DATA_FOUND OR e_invalidActualException THEN
347: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
348: x_return_status := FND_API.G_RET_STS_ERROR ;
349: --RAISE FND_API.G_EXC_ERROR;
350: when FND_API.G_EXC_ERROR then
351: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: -- RAISE FND_API.G_EXC_ERROR;
354: when FND_API.G_EXC_UNEXPECTED_ERROR then
348: x_return_status := FND_API.G_RET_STS_ERROR ;
349: --RAISE FND_API.G_EXC_ERROR;
350: when FND_API.G_EXC_ERROR then
351: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: -- RAISE FND_API.G_EXC_ERROR;
354: when FND_API.G_EXC_UNEXPECTED_ERROR then
355: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
349: --RAISE FND_API.G_EXC_ERROR;
350: when FND_API.G_EXC_ERROR then
351: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: -- RAISE FND_API.G_EXC_ERROR;
354: when FND_API.G_EXC_UNEXPECTED_ERROR then
355: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
357: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: when FND_API.G_EXC_ERROR then
351: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: -- RAISE FND_API.G_EXC_ERROR;
354: when FND_API.G_EXC_UNEXPECTED_ERROR then
355: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
357: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
358: when others then
352: x_return_status := FND_API.G_RET_STS_ERROR ;
353: -- RAISE FND_API.G_EXC_ERROR;
354: when FND_API.G_EXC_UNEXPECTED_ERROR then
355: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
357: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
358: when others then
359: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
353: -- RAISE FND_API.G_EXC_ERROR;
354: when FND_API.G_EXC_UNEXPECTED_ERROR then
355: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
357: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
358: when others then
359: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
361: --added last two params
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
357: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
358: when others then
359: IF cr_actual%ISOPEN THEN CLOSE cr_actual; END IF;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
361: --added last two params
362: l_error_tbl := x_error_Tbl;
363: BIS_UTILITIES_PVT.Add_Error_Message
364: ( p_error_msg_id => SQLCODE
366: , p_error_proc_name => G_PKG_NAME||'.Create_Measure'
367: , p_error_table => l_error_tbl
368: , x_error_table => x_error_tbl
369: );
370: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
371:
372: END Post_Actual;
373:
374: -- Retrieves actual value for the specified set of dimension values
378: -- to FALSE.
379: --
380: PROCEDURE Retrieve_Actual
381: ( p_api_version IN NUMBER
382: ,p_all_info IN VARCHAR2 Default FND_API.G_TRUE
383: ,p_Actual_Rec IN BIS_ACTUAL_PUB.Actual_Rec_Type
384: ,x_Actual_Rec OUT NOCOPY BIS_ACTUAL_PUB.Actual_Rec_Type
385: ,x_return_status OUT NOCOPY VARCHAR2
386: ,x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
467: = NVL(p_actual_rec.dim7_level_value_id, 'NULL')
468: ORDER BY LAST_UPDATE_DATE DESC;
469:
470: BEGIN
471: x_return_status := FND_API.G_RET_STS_SUCCESS;
472: l_Actual_Rec := p_Actual_Rec;
473:
474: IF ((BIS_UTILITIES_PUB.Value_Missing
475: (l_Actual_Rec.target_level_ID) = FND_API.G_TRUE)
471: x_return_status := FND_API.G_RET_STS_SUCCESS;
472: l_Actual_Rec := p_Actual_Rec;
473:
474: IF ((BIS_UTILITIES_PUB.Value_Missing
475: (l_Actual_Rec.target_level_ID) = FND_API.G_TRUE)
476: AND (BIS_UTILITIES_PUB.Value_Null
477: (l_Actual_Rec.target_level_ID) = FND_API.G_TRUE))
478: THEN
479: l_Target_Level_Rec.target_level_ID := p_Actual_Rec.target_level_ID;
473:
474: IF ((BIS_UTILITIES_PUB.Value_Missing
475: (l_Actual_Rec.target_level_ID) = FND_API.G_TRUE)
476: AND (BIS_UTILITIES_PUB.Value_Null
477: (l_Actual_Rec.target_level_ID) = FND_API.G_TRUE))
478: THEN
479: l_Target_Level_Rec.target_level_ID := p_Actual_Rec.target_level_ID;
480: l_Target_Level_Rec_p := l_Target_Level_Rec;
481: BIS_Target_Level_PVT.Retrieve_Target_Level
480: l_Target_Level_Rec_p := l_Target_Level_Rec;
481: BIS_Target_Level_PVT.Retrieve_Target_Level
482: ( p_api_version => p_api_version
483: , p_Target_Level_Rec => l_Target_Level_Rec_p
484: , p_all_info => FND_API.G_FALSE
485: , x_Target_Level_Rec => l_Target_Level_Rec
486: , x_return_status => x_return_status
487: , x_error_Tbl => x_error_Tbl
488: );
491: END IF;
492:
493: -- if actual already posted in BIS_ACTUAL_VALUES, then return actual value;
494: --
495: IF p_all_info = FND_API.G_TRUE THEN
496: OPEN cr_bv_actual(p_actual_rec);
497: FETCH cr_bv_actual
498: INTO
499: l_actual_rec.actual_id
520: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
521: , p_error_table => l_error_tbl
522: , x_error_table => x_error_tbl
523: );
524: RAISE FND_API.G_EXC_ERROR;
525:
526: END IF;
527: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
528: ELSE
556: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
557: , p_error_table => l_error_tbl
558: , x_error_table => x_error_tbl
559: );
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
562: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
563: END IF;
564:
567:
568:
569: EXCEPTION
570: --WHEN OTHERS THEN
571: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
572: --added this whole section
573: --commented RAISE
574: WHEN NO_DATA_FOUND THEN
575: x_return_status := FND_API.G_RET_STS_ERROR ;
571: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
572: --added this whole section
573: --commented RAISE
574: WHEN NO_DATA_FOUND THEN
575: x_return_status := FND_API.G_RET_STS_ERROR ;
576: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
577: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
578: -- RAISE FND_API.G_EXC_ERROR;
579: when FND_API.G_EXC_ERROR then
574: WHEN NO_DATA_FOUND THEN
575: x_return_status := FND_API.G_RET_STS_ERROR ;
576: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
577: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
578: -- RAISE FND_API.G_EXC_ERROR;
579: when FND_API.G_EXC_ERROR then
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
582: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
575: x_return_status := FND_API.G_RET_STS_ERROR ;
576: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
577: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
578: -- RAISE FND_API.G_EXC_ERROR;
579: when FND_API.G_EXC_ERROR then
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
582: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
583: --RAISE FND_API.G_EXC_ERROR;
576: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
577: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
578: -- RAISE FND_API.G_EXC_ERROR;
579: when FND_API.G_EXC_ERROR then
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
582: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
583: --RAISE FND_API.G_EXC_ERROR;
584: when FND_API.G_EXC_UNEXPECTED_ERROR then
579: when FND_API.G_EXC_ERROR then
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
582: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
583: --RAISE FND_API.G_EXC_ERROR;
584: when FND_API.G_EXC_UNEXPECTED_ERROR then
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
586: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
587: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
582: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
583: --RAISE FND_API.G_EXC_ERROR;
584: when FND_API.G_EXC_UNEXPECTED_ERROR then
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
586: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
587: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
588: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
582: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
583: --RAISE FND_API.G_EXC_ERROR;
584: when FND_API.G_EXC_UNEXPECTED_ERROR then
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
586: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
587: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
588: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: when others then
584: when FND_API.G_EXC_UNEXPECTED_ERROR then
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
586: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
587: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
588: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: when others then
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
591: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
592: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
586: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
587: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
588: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: when others then
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
591: IF cr_bv_actual%ISOPEN THEN CLOSE cr_bv_actual; END IF;
592: IF cr_fv_actual%ISOPEN THEN CLOSE cr_fv_actual; END IF;
593: --added last two params
594: l_error_tbl := x_error_tbl;
598: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Actual'
599: , p_error_table => l_error_tbl
600: , x_error_table => x_error_tbl
601: );
602: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END Retrieve_Actual;
604:
605: -- Retrieves all actual values for the specified Indicator Level
606: -- i.e. all organizations, all time periods, etc.
607: -- If information about dimension values are not required, set all_info
608: -- to FALSE.
609: PROCEDURE Retrieve_Actuals
610: ( p_api_version IN NUMBER
611: ,p_all_info IN VARCHAR2 Default FND_API.G_TRUE
612: ,p_Target_Level_Rec IN BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
613: ,x_Actual_Tbl OUT NOCOPY BIS_ACTUAL_PUB.Actual_Tbl_Type
614: ,x_return_status OUT NOCOPY VARCHAR2
615: ,x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
615: ,x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
616: )
617: IS
618: BEGIN
619: x_return_status := FND_API.G_RET_STS_SUCCESS;
620: -- dbms_output.put_line('In PVT Retrieve_Actuals');
621:
622: EXCEPTION
623: WHEN OTHERS THEN
620: -- dbms_output.put_line('In PVT Retrieve_Actuals');
621:
622: EXCEPTION
623: WHEN OTHERS THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625:
626: END Retrieve_Actuals;
627:
628:
631: -- If information about dimension values are not required, set all_info
632: -- to FALSE.
633: PROCEDURE Retrieve_Latest_Actual
634: ( p_api_version IN NUMBER
635: ,p_all_info IN VARCHAR2 Default FND_API.G_TRUE
636: ,p_Actual_Rec IN BIS_ACTUAL_PUB.Actual_Rec_Type
637: ,x_Actual_Rec OUT NOCOPY BIS_ACTUAL_PUB.Actual_Rec_Type
638: ,x_return_status OUT NOCOPY VARCHAR2
639: ,x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
639: ,x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
640: )
641: IS
642: BEGIN
643: x_return_status := FND_API.G_RET_STS_SUCCESS;
644: -- dbms_output.put_line('In PVT Retrieve_Latest_Actual');
645:
646: EXCEPTION
647: WHEN OTHERS THEN
644: -- dbms_output.put_line('In PVT Retrieve_Latest_Actual');
645:
646: EXCEPTION
647: WHEN OTHERS THEN
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
649:
650: END Retrieve_Latest_Actual;
651:
652:
655: -- If information about dimension values are not required, set all_info
656: -- to FALSE.
657: PROCEDURE Retrieve_Latest_Actuals
658: ( p_api_version IN NUMBER
659: ,p_all_info IN VARCHAR2 Default FND_API.G_TRUE
660: ,p_Target_Level_Rec IN BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
661: ,x_Actual_Tbl OUT NOCOPY BIS_ACTUAL_PUB.Actual_Tbl_Type
662: ,x_return_status OUT NOCOPY VARCHAR2
663: ,x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
663: ,x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
664: )
665: IS
666: BEGIN
667: x_return_status := FND_API.G_RET_STS_SUCCESS;
668: -- dbms_output.put_line('In PVT Retrieve_Latest_Actuals');
669:
670: EXCEPTION
671: WHEN OTHERS THEN
668: -- dbms_output.put_line('In PVT Retrieve_Latest_Actuals');
669:
670: EXCEPTION
671: WHEN OTHERS THEN
672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
673:
674: END Retrieve_Latest_Actuals;
675:
676: PROCEDURE Validate_Actual
674: END Retrieve_Latest_Actuals;
675:
676: PROCEDURE Validate_Actual
677: ( p_api_version IN NUMBER
678: , p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
679: , p_Actual_Rec IN BIS_ACTUAL_PUB.Actual_Rec_Type
680: , x_return_status OUT NOCOPY VARCHAR2
681: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
682: )
684: --
685: l_return_status VARCHAR2(10);
686: l_error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
687: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
688: l_error VARCHAR2(10) := FND_API.G_FALSE;
689: --
690: BEGIN
691:
692: x_return_status := FND_API.G_RET_STS_SUCCESS;
688: l_error VARCHAR2(10) := FND_API.G_FALSE;
689: --
690: BEGIN
691:
692: x_return_status := FND_API.G_RET_STS_SUCCESS;
693: --
694: BEGIN
695: BIS_ACTUAL_VALIDATE_PVT.Validate_Target_Level_ID
696: ( p_api_version => p_api_version
701: --
702: -- dbms_output.put_line('In PVT Actual 1');
703:
704: -- EXCEPTION
705: -- WHEN FND_API.G_EXC_ERROR THEN
706: -- dbms_output.put_line('In PVT Actual 1 Exception');
707: --added this
708: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
709: l_error := FND_API.G_TRUE;
704: -- EXCEPTION
705: -- WHEN FND_API.G_EXC_ERROR THEN
706: -- dbms_output.put_line('In PVT Actual 1 Exception');
707: --added this
708: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
709: l_error := FND_API.G_TRUE;
710: x_return_status:= FND_API.G_RET_STS_ERROR;
711: l_error_tbl_p := x_error_Tbl;
712: BIS_UTILITIES_PVT.concatenateErrorTables
705: -- WHEN FND_API.G_EXC_ERROR THEN
706: -- dbms_output.put_line('In PVT Actual 1 Exception');
707: --added this
708: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
709: l_error := FND_API.G_TRUE;
710: x_return_status:= FND_API.G_RET_STS_ERROR;
711: l_error_tbl_p := x_error_Tbl;
712: BIS_UTILITIES_PVT.concatenateErrorTables
713: ( p_error_Tbl1 => l_error_Tbl_p
706: -- dbms_output.put_line('In PVT Actual 1 Exception');
707: --added this
708: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
709: l_error := FND_API.G_TRUE;
710: x_return_status:= FND_API.G_RET_STS_ERROR;
711: l_error_tbl_p := x_error_Tbl;
712: BIS_UTILITIES_PVT.concatenateErrorTables
713: ( p_error_Tbl1 => l_error_Tbl_p
714: , p_error_Tbl2 => l_error_Tbl
727: , x_error_Tbl => l_error_Tbl
728: );
729: --
730: -- EXCEPTION
731: -- WHEN FND_API.G_EXC_ERROR THEN
732: --added this
733: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
734: l_error := FND_API.G_TRUE;
735: x_return_status:= FND_API.G_RET_STS_ERROR;
729: --
730: -- EXCEPTION
731: -- WHEN FND_API.G_EXC_ERROR THEN
732: --added this
733: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
734: l_error := FND_API.G_TRUE;
735: x_return_status:= FND_API.G_RET_STS_ERROR;
736: BIS_UTILITIES_PVT.concatenateErrorTables
737: ( p_error_Tbl1 => x_error_Tbl
730: -- EXCEPTION
731: -- WHEN FND_API.G_EXC_ERROR THEN
732: --added this
733: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
734: l_error := FND_API.G_TRUE;
735: x_return_status:= FND_API.G_RET_STS_ERROR;
736: BIS_UTILITIES_PVT.concatenateErrorTables
737: ( p_error_Tbl1 => x_error_Tbl
738: , p_error_Tbl2 => l_error_Tbl
731: -- WHEN FND_API.G_EXC_ERROR THEN
732: --added this
733: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
734: l_error := FND_API.G_TRUE;
735: x_return_status:= FND_API.G_RET_STS_ERROR;
736: BIS_UTILITIES_PVT.concatenateErrorTables
737: ( p_error_Tbl1 => x_error_Tbl
738: , p_error_Tbl2 => l_error_Tbl
739: , x_error_Tbl => x_error_Tbl
752: -- dbms_output.put_line('In PVT Actual 2');
753:
754: --
755: -- EXCEPTION
756: -- WHEN FND_API.G_EXC_ERROR THEN
757: --added this
758: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
759: l_error := FND_API.G_TRUE;
760: x_return_status:= FND_API.G_RET_STS_ERROR;
754: --
755: -- EXCEPTION
756: -- WHEN FND_API.G_EXC_ERROR THEN
757: --added this
758: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
759: l_error := FND_API.G_TRUE;
760: x_return_status:= FND_API.G_RET_STS_ERROR;
761: BIS_UTILITIES_PVT.concatenateErrorTables
762: ( p_error_Tbl1 => x_error_Tbl
755: -- EXCEPTION
756: -- WHEN FND_API.G_EXC_ERROR THEN
757: --added this
758: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
759: l_error := FND_API.G_TRUE;
760: x_return_status:= FND_API.G_RET_STS_ERROR;
761: BIS_UTILITIES_PVT.concatenateErrorTables
762: ( p_error_Tbl1 => x_error_Tbl
763: , p_error_Tbl2 => l_error_Tbl
756: -- WHEN FND_API.G_EXC_ERROR THEN
757: --added this
758: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
759: l_error := FND_API.G_TRUE;
760: x_return_status:= FND_API.G_RET_STS_ERROR;
761: BIS_UTILITIES_PVT.concatenateErrorTables
762: ( p_error_Tbl1 => x_error_Tbl
763: , p_error_Tbl2 => l_error_Tbl
764: , x_error_Tbl => x_error_Tbl
777: -- dbms_output.put_line('In PVT Actual 3');
778:
779:
780: -- EXCEPTION
781: -- WHEN FND_API.G_EXC_ERROR THEN
782: -- dbms_output.put_line('In PVT Actual 3 Exception');
783: --added this
784: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
785: l_error := FND_API.G_TRUE;
780: -- EXCEPTION
781: -- WHEN FND_API.G_EXC_ERROR THEN
782: -- dbms_output.put_line('In PVT Actual 3 Exception');
783: --added this
784: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
785: l_error := FND_API.G_TRUE;
786: x_return_status:= FND_API.G_RET_STS_ERROR;
787: l_error_tbl_p := x_error_Tbl;
788: BIS_UTILITIES_PVT.concatenateErrorTables
781: -- WHEN FND_API.G_EXC_ERROR THEN
782: -- dbms_output.put_line('In PVT Actual 3 Exception');
783: --added this
784: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
785: l_error := FND_API.G_TRUE;
786: x_return_status:= FND_API.G_RET_STS_ERROR;
787: l_error_tbl_p := x_error_Tbl;
788: BIS_UTILITIES_PVT.concatenateErrorTables
789: ( p_error_Tbl1 => l_error_Tbl_p
782: -- dbms_output.put_line('In PVT Actual 3 Exception');
783: --added this
784: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
785: l_error := FND_API.G_TRUE;
786: x_return_status:= FND_API.G_RET_STS_ERROR;
787: l_error_tbl_p := x_error_Tbl;
788: BIS_UTILITIES_PVT.concatenateErrorTables
789: ( p_error_Tbl1 => l_error_Tbl_p
790: , p_error_Tbl2 => l_error_Tbl
803: --
804: -- dbms_output.put_line('In PVT Actual 4');
805:
806: -- EXCEPTION
807: -- WHEN FND_API.G_EXC_ERROR THEN
808: -- dbms_output.put_line('In PVT Actual 4 Exception');
809: --added this
810: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
811: l_error := FND_API.G_TRUE;
806: -- EXCEPTION
807: -- WHEN FND_API.G_EXC_ERROR THEN
808: -- dbms_output.put_line('In PVT Actual 4 Exception');
809: --added this
810: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
811: l_error := FND_API.G_TRUE;
812: x_return_status:= FND_API.G_RET_STS_ERROR;
813: l_error_tbl_p := x_error_Tbl;
814: BIS_UTILITIES_PVT.concatenateErrorTables
807: -- WHEN FND_API.G_EXC_ERROR THEN
808: -- dbms_output.put_line('In PVT Actual 4 Exception');
809: --added this
810: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
811: l_error := FND_API.G_TRUE;
812: x_return_status:= FND_API.G_RET_STS_ERROR;
813: l_error_tbl_p := x_error_Tbl;
814: BIS_UTILITIES_PVT.concatenateErrorTables
815: ( p_error_Tbl1 => l_error_Tbl_p
808: -- dbms_output.put_line('In PVT Actual 4 Exception');
809: --added this
810: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
811: l_error := FND_API.G_TRUE;
812: x_return_status:= FND_API.G_RET_STS_ERROR;
813: l_error_tbl_p := x_error_Tbl;
814: BIS_UTILITIES_PVT.concatenateErrorTables
815: ( p_error_Tbl1 => l_error_Tbl_p
816: , p_error_Tbl2 => l_error_Tbl
829: --
830: -- dbms_output.put_line('In PVT Actual 5');
831:
832: -- EXCEPTION
833: -- WHEN FND_API.G_EXC_ERROR THEN
834: -- dbms_output.put_line('In PVT Actual 5 Exception');
835: --added this
836: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
837: l_error := FND_API.G_TRUE;
832: -- EXCEPTION
833: -- WHEN FND_API.G_EXC_ERROR THEN
834: -- dbms_output.put_line('In PVT Actual 5 Exception');
835: --added this
836: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
837: l_error := FND_API.G_TRUE;
838: x_return_status:= FND_API.G_RET_STS_ERROR;
839: l_error_tbl_p := x_error_Tbl;
840: BIS_UTILITIES_PVT.concatenateErrorTables
833: -- WHEN FND_API.G_EXC_ERROR THEN
834: -- dbms_output.put_line('In PVT Actual 5 Exception');
835: --added this
836: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
837: l_error := FND_API.G_TRUE;
838: x_return_status:= FND_API.G_RET_STS_ERROR;
839: l_error_tbl_p := x_error_Tbl;
840: BIS_UTILITIES_PVT.concatenateErrorTables
841: ( p_error_Tbl1 => l_error_Tbl_p
834: -- dbms_output.put_line('In PVT Actual 5 Exception');
835: --added this
836: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
837: l_error := FND_API.G_TRUE;
838: x_return_status:= FND_API.G_RET_STS_ERROR;
839: l_error_tbl_p := x_error_Tbl;
840: BIS_UTILITIES_PVT.concatenateErrorTables
841: ( p_error_Tbl1 => l_error_Tbl_p
842: , p_error_Tbl2 => l_error_Tbl
855: --
856: -- dbms_output.put_line('In PVT Actual 6');
857:
858: -- EXCEPTION
859: -- WHEN FND_API.G_EXC_ERROR THEN
860: -- dbms_output.put_line('In PVT Actual 6 Exception');
861: --added this
862: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
863: l_error := FND_API.G_TRUE;
858: -- EXCEPTION
859: -- WHEN FND_API.G_EXC_ERROR THEN
860: -- dbms_output.put_line('In PVT Actual 6 Exception');
861: --added this
862: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
863: l_error := FND_API.G_TRUE;
864: x_return_status:= FND_API.G_RET_STS_ERROR;
865: l_error_tbl_p := x_error_Tbl;
866: BIS_UTILITIES_PVT.concatenateErrorTables
859: -- WHEN FND_API.G_EXC_ERROR THEN
860: -- dbms_output.put_line('In PVT Actual 6 Exception');
861: --added this
862: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
863: l_error := FND_API.G_TRUE;
864: x_return_status:= FND_API.G_RET_STS_ERROR;
865: l_error_tbl_p := x_error_Tbl;
866: BIS_UTILITIES_PVT.concatenateErrorTables
867: ( p_error_Tbl1 => l_error_Tbl_p
860: -- dbms_output.put_line('In PVT Actual 6 Exception');
861: --added this
862: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
863: l_error := FND_API.G_TRUE;
864: x_return_status:= FND_API.G_RET_STS_ERROR;
865: l_error_tbl_p := x_error_Tbl;
866: BIS_UTILITIES_PVT.concatenateErrorTables
867: ( p_error_Tbl1 => l_error_Tbl_p
868: , p_error_Tbl2 => l_error_Tbl
881: --
882: -- dbms_output.put_line('In PVT Actual 7');
883:
884: -- EXCEPTION
885: -- WHEN FND_API.G_EXC_ERROR THEN
886: -- dbms_output.put_line('In PVT Actual 7 Exception');
887: --added this
888: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
889: l_error := FND_API.G_TRUE;
884: -- EXCEPTION
885: -- WHEN FND_API.G_EXC_ERROR THEN
886: -- dbms_output.put_line('In PVT Actual 7 Exception');
887: --added this
888: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
889: l_error := FND_API.G_TRUE;
890: x_return_status:= FND_API.G_RET_STS_ERROR;
891: l_error_tbl_p := x_error_Tbl;
892: BIS_UTILITIES_PVT.concatenateErrorTables
885: -- WHEN FND_API.G_EXC_ERROR THEN
886: -- dbms_output.put_line('In PVT Actual 7 Exception');
887: --added this
888: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
889: l_error := FND_API.G_TRUE;
890: x_return_status:= FND_API.G_RET_STS_ERROR;
891: l_error_tbl_p := x_error_Tbl;
892: BIS_UTILITIES_PVT.concatenateErrorTables
893: ( p_error_Tbl1 => l_error_Tbl_p
886: -- dbms_output.put_line('In PVT Actual 7 Exception');
887: --added this
888: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
889: l_error := FND_API.G_TRUE;
890: x_return_status:= FND_API.G_RET_STS_ERROR;
891: l_error_tbl_p := x_error_Tbl;
892: BIS_UTILITIES_PVT.concatenateErrorTables
893: ( p_error_Tbl1 => l_error_Tbl_p
894: , p_error_Tbl2 => l_error_Tbl
907: --
908: -- dbms_output.put_line('In PVT Actual 7');
909:
910: -- EXCEPTION
911: -- WHEN FND_API.G_EXC_ERROR THEN
912: -- dbms_output.put_line('In PVT Actual 7 Exception');
913: --added this
914: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
915: l_error := FND_API.G_TRUE;
910: -- EXCEPTION
911: -- WHEN FND_API.G_EXC_ERROR THEN
912: -- dbms_output.put_line('In PVT Actual 7 Exception');
913: --added this
914: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
915: l_error := FND_API.G_TRUE;
916: x_return_status:= FND_API.G_RET_STS_ERROR;
917: l_error_tbl_p := x_error_Tbl;
918: BIS_UTILITIES_PVT.concatenateErrorTables
911: -- WHEN FND_API.G_EXC_ERROR THEN
912: -- dbms_output.put_line('In PVT Actual 7 Exception');
913: --added this
914: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
915: l_error := FND_API.G_TRUE;
916: x_return_status:= FND_API.G_RET_STS_ERROR;
917: l_error_tbl_p := x_error_Tbl;
918: BIS_UTILITIES_PVT.concatenateErrorTables
919: ( p_error_Tbl1 => l_error_Tbl_p
912: -- dbms_output.put_line('In PVT Actual 7 Exception');
913: --added this
914: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
915: l_error := FND_API.G_TRUE;
916: x_return_status:= FND_API.G_RET_STS_ERROR;
917: l_error_tbl_p := x_error_Tbl;
918: BIS_UTILITIES_PVT.concatenateErrorTables
919: ( p_error_Tbl1 => l_error_Tbl_p
920: , p_error_Tbl2 => l_error_Tbl
933: --
934: -- dbms_output.put_line('In PVT Actual 7');
935:
936: -- EXCEPTION
937: -- WHEN FND_API.G_EXC_ERROR THEN
938: -- dbms_output.put_line('In PVT Actual 7 Exception');
939: --added this
940: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
941: l_error := FND_API.G_TRUE;
936: -- EXCEPTION
937: -- WHEN FND_API.G_EXC_ERROR THEN
938: -- dbms_output.put_line('In PVT Actual 7 Exception');
939: --added this
940: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
941: l_error := FND_API.G_TRUE;
942: x_return_status:= FND_API.G_RET_STS_ERROR;
943: l_error_tbl_p := x_error_Tbl;
944: BIS_UTILITIES_PVT.concatenateErrorTables
937: -- WHEN FND_API.G_EXC_ERROR THEN
938: -- dbms_output.put_line('In PVT Actual 7 Exception');
939: --added this
940: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
941: l_error := FND_API.G_TRUE;
942: x_return_status:= FND_API.G_RET_STS_ERROR;
943: l_error_tbl_p := x_error_Tbl;
944: BIS_UTILITIES_PVT.concatenateErrorTables
945: ( p_error_Tbl1 => l_error_Tbl_p
938: -- dbms_output.put_line('In PVT Actual 7 Exception');
939: --added this
940: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
941: l_error := FND_API.G_TRUE;
942: x_return_status:= FND_API.G_RET_STS_ERROR;
943: l_error_tbl_p := x_error_Tbl;
944: BIS_UTILITIES_PVT.concatenateErrorTables
945: ( p_error_Tbl1 => l_error_Tbl_p
946: , p_error_Tbl2 => l_error_Tbl
959: --
960: -- dbms_output.put_line('In PVT Actual 8');
961:
962: -- EXCEPTION
963: -- WHEN FND_API.G_EXC_ERROR THEN
964: -- dbms_output.put_line('In PVT Actual 8 Exception');
965: --added this
966: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
967: l_error := FND_API.G_TRUE;
962: -- EXCEPTION
963: -- WHEN FND_API.G_EXC_ERROR THEN
964: -- dbms_output.put_line('In PVT Actual 8 Exception');
965: --added this
966: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
967: l_error := FND_API.G_TRUE;
968: x_return_status:= FND_API.G_RET_STS_ERROR;
969: l_error_tbl_p := x_error_Tbl;
970: BIS_UTILITIES_PVT.concatenateErrorTables
963: -- WHEN FND_API.G_EXC_ERROR THEN
964: -- dbms_output.put_line('In PVT Actual 8 Exception');
965: --added this
966: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
967: l_error := FND_API.G_TRUE;
968: x_return_status:= FND_API.G_RET_STS_ERROR;
969: l_error_tbl_p := x_error_Tbl;
970: BIS_UTILITIES_PVT.concatenateErrorTables
971: ( p_error_Tbl1 => l_error_Tbl_p
964: -- dbms_output.put_line('In PVT Actual 8 Exception');
965: --added this
966: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
967: l_error := FND_API.G_TRUE;
968: x_return_status:= FND_API.G_RET_STS_ERROR;
969: l_error_tbl_p := x_error_Tbl;
970: BIS_UTILITIES_PVT.concatenateErrorTables
971: ( p_error_Tbl1 => l_error_Tbl_p
972: , p_error_Tbl2 => l_error_Tbl
986: --
987: -- dbms_output.put_line('In PVT Actual 8');
988:
989: -- EXCEPTION
990: -- WHEN FND_API.G_EXC_ERROR THEN
991: -- dbms_output.put_line('In PVT Actual 8 Exception');
992: --added this
993: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
994: l_error := FND_API.G_TRUE;
989: -- EXCEPTION
990: -- WHEN FND_API.G_EXC_ERROR THEN
991: -- dbms_output.put_line('In PVT Actual 8 Exception');
992: --added this
993: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
994: l_error := FND_API.G_TRUE;
995: x_return_status:= FND_API.G_RET_STS_ERROR;
996: BIS_UTILITIES_PVT.concatenateErrorTables
997:
990: -- WHEN FND_API.G_EXC_ERROR THEN
991: -- dbms_output.put_line('In PVT Actual 8 Exception');
992: --added this
993: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
994: l_error := FND_API.G_TRUE;
995: x_return_status:= FND_API.G_RET_STS_ERROR;
996: BIS_UTILITIES_PVT.concatenateErrorTables
997:
998: ( p_error_Tbl1 => x_error_Tbl
991: -- dbms_output.put_line('In PVT Actual 8 Exception');
992: --added this
993: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
994: l_error := FND_API.G_TRUE;
995: x_return_status:= FND_API.G_RET_STS_ERROR;
996: BIS_UTILITIES_PVT.concatenateErrorTables
997:
998: ( p_error_Tbl1 => x_error_Tbl
999: , p_error_Tbl2 => l_error_Tbl
1014: --
1015: -- dbms_output.put_line('In PVT Report URL');
1016:
1017: -- EXCEPTION
1018: -- WHEN FND_API.G_EXC_ERROR THEN
1019: -- dbms_output.put_line('In PVT Report URL Exception');
1020: --added this
1021: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1022: l_error := FND_API.G_TRUE;
1017: -- EXCEPTION
1018: -- WHEN FND_API.G_EXC_ERROR THEN
1019: -- dbms_output.put_line('In PVT Report URL Exception');
1020: --added this
1021: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1022: l_error := FND_API.G_TRUE;
1023: x_return_status:= FND_API.G_RET_STS_ERROR;
1024: BIS_UTILITIES_PVT.concatenateErrorTables
1025:
1018: -- WHEN FND_API.G_EXC_ERROR THEN
1019: -- dbms_output.put_line('In PVT Report URL Exception');
1020: --added this
1021: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1022: l_error := FND_API.G_TRUE;
1023: x_return_status:= FND_API.G_RET_STS_ERROR;
1024: BIS_UTILITIES_PVT.concatenateErrorTables
1025:
1026: ( p_error_Tbl1 => x_error_Tbl
1019: -- dbms_output.put_line('In PVT Report URL Exception');
1020: --added this
1021: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1022: l_error := FND_API.G_TRUE;
1023: x_return_status:= FND_API.G_RET_STS_ERROR;
1024: BIS_UTILITIES_PVT.concatenateErrorTables
1025:
1026: ( p_error_Tbl1 => x_error_Tbl
1027: , p_error_Tbl2 => l_error_Tbl
1040: --
1041: -- dbms_output.put_line('In PVT Actual 9');
1042:
1043: -- EXCEPTION
1044: -- WHEN FND_API.G_EXC_ERROR THEN
1045: -- dbms_output.put_line('In PVT Actual 9 Exception');
1046: --added this
1047: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1048: l_error := FND_API.G_TRUE;
1043: -- EXCEPTION
1044: -- WHEN FND_API.G_EXC_ERROR THEN
1045: -- dbms_output.put_line('In PVT Actual 9 Exception');
1046: --added this
1047: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1048: l_error := FND_API.G_TRUE;
1049: x_return_status:= FND_API.G_RET_STS_ERROR;
1050: l_error_tbl_p := x_error_Tbl;
1051: BIS_UTILITIES_PVT.concatenateErrorTables
1044: -- WHEN FND_API.G_EXC_ERROR THEN
1045: -- dbms_output.put_line('In PVT Actual 9 Exception');
1046: --added this
1047: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1048: l_error := FND_API.G_TRUE;
1049: x_return_status:= FND_API.G_RET_STS_ERROR;
1050: l_error_tbl_p := x_error_Tbl;
1051: BIS_UTILITIES_PVT.concatenateErrorTables
1052: ( p_error_Tbl1 => l_error_Tbl_p
1045: -- dbms_output.put_line('In PVT Actual 9 Exception');
1046: --added this
1047: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1048: l_error := FND_API.G_TRUE;
1049: x_return_status:= FND_API.G_RET_STS_ERROR;
1050: l_error_tbl_p := x_error_Tbl;
1051: BIS_UTILITIES_PVT.concatenateErrorTables
1052: ( p_error_Tbl1 => l_error_Tbl_p
1053: , p_error_Tbl2 => l_error_Tbl
1057: END;
1058: --
1059:
1060: --added this check
1061: if (l_error = FND_API.G_TRUE) then
1062: RAISE FND_API.G_EXC_ERROR;
1063: end if;
1064:
1065: --commented out NOCOPY RAISE
1058: --
1059:
1060: --added this check
1061: if (l_error = FND_API.G_TRUE) then
1062: RAISE FND_API.G_EXC_ERROR;
1063: end if;
1064:
1065: --commented out NOCOPY RAISE
1066: EXCEPTION
1063: end if;
1064:
1065: --commented out NOCOPY RAISE
1066: EXCEPTION
1067: WHEN FND_API.G_EXC_ERROR THEN
1068: -- dbms_output.put_line('In PVT Actual 10 Exception');
1069: x_return_status:= FND_API.G_RET_STS_ERROR;
1070: --RAISE;
1071:
1065: --commented out NOCOPY RAISE
1066: EXCEPTION
1067: WHEN FND_API.G_EXC_ERROR THEN
1068: -- dbms_output.put_line('In PVT Actual 10 Exception');
1069: x_return_status:= FND_API.G_RET_STS_ERROR;
1070: --RAISE;
1071:
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: -- dbms_output.put_line('In PVT Actual 11 Exception');
1068: -- dbms_output.put_line('In PVT Actual 10 Exception');
1069: x_return_status:= FND_API.G_RET_STS_ERROR;
1070: --RAISE;
1071:
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: -- dbms_output.put_line('In PVT Actual 11 Exception');
1074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1075: --RAISE;
1076:
1070: --RAISE;
1071:
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: -- dbms_output.put_line('In PVT Actual 11 Exception');
1074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1075: --RAISE;
1076:
1077: WHEN OTHERS THEN
1078: -- dbms_output.put_line('In PVT Actual 12 Exception');
1075: --RAISE;
1076:
1077: WHEN OTHERS THEN
1078: -- dbms_output.put_line('In PVT Actual 12 Exception');
1079: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1080: l_error_tbl_p := x_error_Tbl;
1081: BIS_UTILITIES_PVT.Add_Error_Message
1082: ( p_error_table => l_error_Tbl_p
1083: , p_error_msg_id => SQLCODE
1083: , p_error_msg_id => SQLCODE
1084: , p_error_description => SQLERRM
1085: , x_error_table => x_error_Tbl
1086: );
1087: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1088:
1089: END Validate_Actual;
1090:
1091: PROCEDURE Validate_Required_Fields
1089: END Validate_Actual;
1090:
1091: PROCEDURE Validate_Required_Fields
1092: ( p_api_version IN NUMBER
1093: , p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1094: , p_Actual_Rec IN BIS_ACTUAL_PUB.Actual_Rec_Type
1095: , x_return_status OUT NOCOPY VARCHAR2
1096: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1097: )
1096: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1097: )
1098: IS
1099: BEGIN
1100: x_return_status := FND_API.G_RET_STS_SUCCESS;
1101: -- dbms_output.put_line('In PVT Validate_Required_Fields');
1102:
1103: EXCEPTION
1104: WHEN OTHERS THEN
1101: -- dbms_output.put_line('In PVT Validate_Required_Fields');
1102:
1103: EXCEPTION
1104: WHEN OTHERS THEN
1105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1106:
1107: END Validate_Required_Fields;
1108:
1109:
1108:
1109:
1110: PROCEDURE Validate_Dimension_Values
1111: ( p_api_version IN NUMBER
1112: , p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1113: , p_Actual_Rec IN BIS_ACTUAL_PUB.Actual_Rec_Type
1114: , x_return_status OUT NOCOPY VARCHAR2
1115: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1116: )
1115: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1116: )
1117: IS
1118: BEGIN
1119: x_return_status := FND_API.G_RET_STS_SUCCESS;
1120: -- dbms_output.put_line('In PVT Validate_Dimension_Values');
1121:
1122: EXCEPTION
1123: WHEN OTHERS THEN
1120: -- dbms_output.put_line('In PVT Validate_Dimension_Values');
1121:
1122: EXCEPTION
1123: WHEN OTHERS THEN
1124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1125:
1126: END Validate_Dimension_Values;
1127:
1128: PROCEDURE Value_ID_Conversion
1140: l_Target_Level_Rec_p BIS_Target_Level_PUB.Target_Level_Rec_Type;
1141: l_Actual_Rec BIS_ACTUAL_PUB.Actual_Rec_Type;
1142: BEGIN
1143:
1144: x_return_status := FND_API.G_RET_STS_SUCCESS;
1145: l_Actual_Rec := p_Actual_Rec;
1146:
1147: -- convert Target Level
1148: --
1146:
1147: -- convert Target Level
1148: --
1149: IF BIS_UTILITIES_PUB.Value_Missing(l_actual_rec.Target_Level_ID)
1150: = FND_API.G_TRUE
1151: OR BIS_UTILITIES_PUB.Value_Null(l_actual_rec.Target_Level_ID)
1152: = FND_API.G_TRUE
1153: THEN
1154: BEGIN
1148: --
1149: IF BIS_UTILITIES_PUB.Value_Missing(l_actual_rec.Target_Level_ID)
1150: = FND_API.G_TRUE
1151: OR BIS_UTILITIES_PUB.Value_Null(l_actual_rec.Target_Level_ID)
1152: = FND_API.G_TRUE
1153: THEN
1154: BEGIN
1155:
1156:
1169: l_Target_Level_rec.Target_Level_name := l_actual_rec.Target_Level_name;
1170:
1171:
1172: EXCEPTION
1173: WHEN FND_API.G_EXC_ERROR THEN
1174: NULL;
1175: -- dbms_output.put_line('in actual api. EXEC ERROR');
1176:
1177: WHEN OTHERS THEN
1188: l_Target_Level_rec_p := l_Target_Level_rec;
1189: BIS_Target_Level_PVT.Retrieve_Target_Level
1190: ( p_api_version => p_api_version
1191: , p_Target_Level_rec => l_Target_Level_rec_p
1192: , p_all_info => FND_API.G_FALSE
1193: , x_Target_Level_rec => l_Target_Level_rec
1194: , x_return_status => x_return_status
1195: , x_error_Tbl => x_error_Tbl
1196: );
1194: , x_return_status => x_return_status
1195: , x_error_Tbl => x_error_Tbl
1196: );
1197: EXCEPTION
1198: WHEN FND_API.G_EXC_ERROR THEN
1199: NULL;
1200: -- dbms_output.put_line('in actual api. EXEC ERROR');
1201:
1202: WHEN OTHERS THEN
1212: IF (
1213: Level_Value_Null_ID_Not_Null(
1214: p_level_value => l_actual_rec.Dim1_Level_value_ID
1215: , p_level_id => l_target_level_rec.Dimension1_level_id)
1216: = FND_API.G_TRUE
1217: ) THEN
1218: BEGIN
1219: l_Dim_Level_Value_Rec.Dimension_Level_ID
1220: := l_target_level_rec.Dimension1_level_id;
1232: l_actual_rec.Dim1_level_value_ID
1233: := l_dim_level_value_Rec.dimension_level_value_id;
1234:
1235: EXCEPTION
1236: WHEN FND_API.G_EXC_ERROR then
1237: NULL;
1238: END;
1239: END IF;
1240:
1243: IF (
1244: Level_Value_Null_ID_Not_Null(
1245: p_level_value => l_actual_rec.Dim2_Level_value_ID
1246: , p_level_id => l_target_level_rec.Dimension2_level_id)
1247: = FND_API.G_TRUE
1248: ) THEN
1249: BEGIN
1250: l_Dim_Level_Value_Rec.Dimension_Level_ID
1251: := l_target_level_rec.Dimension2_level_id;
1264: l_actual_rec.Dim2_level_value_ID
1265: := l_dim_level_value_Rec.dimension_level_value_id;
1266:
1267: EXCEPTION
1268: WHEN FND_API.G_EXC_ERROR then
1269: NULL;
1270: END;
1271: END IF;
1272:
1275: IF (
1276: Level_Value_Null_ID_Not_Null(
1277: p_level_value => l_actual_rec.Dim3_Level_value_ID
1278: , p_level_id => l_target_level_rec.Dimension3_level_id)
1279: = FND_API.G_TRUE
1280: ) THEN
1281: BEGIN
1282: l_Dim_Level_Value_Rec.Dimension_Level_ID
1283: := l_target_level_rec.Dimension3_level_id;
1296: l_actual_rec.Dim3_level_value_ID
1297: := l_dim_level_value_Rec.dimension_level_value_id;
1298:
1299: EXCEPTION
1300: WHEN FND_API.G_EXC_ERROR then
1301: NULL;
1302: END;
1303: END IF;
1304:
1307: IF (
1308: Level_Value_Null_ID_Not_Null(
1309: p_level_value => l_actual_rec.Dim4_Level_value_ID
1310: , p_level_id => l_target_level_rec.Dimension4_level_id)
1311: = FND_API.G_TRUE
1312: ) THEN
1313: BEGIN
1314: l_Dim_Level_Value_Rec.Dimension_Level_ID
1315: := l_target_level_rec.Dimension4_level_id;
1328: l_actual_rec.Dim4_level_value_ID
1329: := l_dim_level_value_Rec.dimension_level_value_id;
1330:
1331: EXCEPTION
1332: WHEN FND_API.G_EXC_ERROR then
1333: NULL;
1334: END;
1335: END IF;
1336:
1339: IF (
1340: Level_Value_Null_ID_Not_Null(
1341: p_level_value => l_actual_rec.Dim5_Level_value_ID
1342: , p_level_id => l_target_level_rec.Dimension5_level_id)
1343: = FND_API.G_TRUE
1344: ) THEN
1345: BEGIN
1346: l_Dim_Level_Value_Rec.Dimension_Level_ID
1347: := l_target_level_rec.Dimension5_level_id;
1360: l_actual_rec.Dim5_level_value_ID
1361: := l_dim_level_value_Rec.dimension_level_value_id;
1362:
1363: EXCEPTION
1364: WHEN FND_API.G_EXC_ERROR then
1365: NULL;
1366: END;
1367: END IF;
1368:
1371: IF (
1372: Level_Value_Null_ID_Not_Null(
1373: p_level_value => l_actual_rec.Dim6_Level_value_ID
1374: , p_level_id => l_target_level_rec.Dimension6_level_id)
1375: = FND_API.G_TRUE
1376: ) THEN
1377: BEGIN
1378: l_Dim_Level_Value_Rec.Dimension_Level_ID
1379: := l_target_level_rec.Dimension6_level_id;
1392: l_actual_rec.Dim6_level_value_ID
1393: := l_dim_level_value_Rec.dimension_level_value_id;
1394:
1395: EXCEPTION
1396: WHEN FND_API.G_EXC_ERROR then
1397: NULL;
1398: END;
1399: END IF;
1400:
1403: IF (
1404: Level_Value_Null_ID_Not_Null(
1405: p_level_value => l_actual_rec.Dim7_Level_value_ID
1406: , p_level_id => l_target_level_rec.Dimension7_level_id)
1407: = FND_API.G_TRUE
1408: ) THEN
1409: BEGIN
1410: l_Dim_Level_Value_Rec.Dimension_Level_ID
1411: := l_target_level_rec.Dimension7_level_id;
1424: l_actual_rec.Dim7_level_value_ID
1425: := l_dim_level_value_Rec.dimension_level_value_id;
1426:
1427: EXCEPTION
1428: WHEN FND_API.G_EXC_ERROR then
1429: NULL;
1430: END;
1431: END IF;
1432:
1433: x_Actual_Rec := l_Actual_Rec;
1434:
1435: EXCEPTION
1436: WHEN OTHERS THEN
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1438:
1439: END Value_ID_Conversion;
1440:
1441:
1451:
1452: IF (
1453: (
1454: BIS_UTILITIES_PVT.Value_Missing_Or_Null
1455: (p_value => p_level_value ) = FND_API.G_TRUE
1456: )
1457: AND
1458: (
1459: BIS_UTILITIES_PVT.Value_Not_Missing_Not_Null
1456: )
1457: AND
1458: (
1459: BIS_UTILITIES_PVT.Value_Not_Missing_Not_Null
1460: (p_value => p_level_id ) = FND_API.G_TRUE
1461: )
1462: ) THEN
1463: RETURN FND_API.G_TRUE;
1464: ELSE
1459: BIS_UTILITIES_PVT.Value_Not_Missing_Not_Null
1460: (p_value => p_level_id ) = FND_API.G_TRUE
1461: )
1462: ) THEN
1463: RETURN FND_API.G_TRUE;
1464: ELSE
1465: RETURN FND_API.G_FALSE;
1466: END IF;
1467: END Level_Value_Null_ID_Not_Null;
1461: )
1462: ) THEN
1463: RETURN FND_API.G_TRUE;
1464: ELSE
1465: RETURN FND_API.G_FALSE;
1466: END IF;
1467: END Level_Value_Null_ID_Not_Null;
1468:
1469: