[Home] [Help]
11: --
12: ************************************************************************************/
13:
14: PROCEDURE Check_UserLevel_Values (
15: p_commit IN VARCHAR2 := FND_API.G_FALSE
16: ,p_Indicator IN NUMBER
17: ,p_cascade_shared IN BOOLEAN := FALSE
18: ,x_return_status OUT NOCOPY VARCHAR2
19: ,x_msg_count OUT NOCOPY NUMBER
44: share_flag = 2;
45:
46: BEGIN
47: SAVEPOINT Check_UserLevel_Values_PVT;
48: x_return_status := FND_API.G_RET_STS_SUCCESS;
49: FND_MSG_PUB.Initialize;
50:
51: SELECT
52: a0_default,a1_default,a2_default
131:
132: END LOOP;
133: END IF;
134:
135: IF FND_API.To_Boolean( p_commit ) THEN
136: COMMIT;
137: END IF;
138:
139: EXCEPTION
138:
139: EXCEPTION
140: WHEN OTHERS THEN
141: ROLLBACK TO Check_UserLevel_Values_PVT;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: IF (x_msg_data IS NOT NULL) THEN
144: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Check_UserLevel_Values ';
145: ELSE
146: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Check_UserLevel_Values ';
159: -- If none of the analysis groups has this flag set to 0, then
160: -- dimension set 0 will be used.
161: ************************************************************************************/
162: PROCEDURE Update_Change_DimSet (
163: p_commit IN VARCHAR2 := FND_API.G_FALSE
164: ,p_Indicator IN NUMBER
165: ,p_Analysis_Group_Id IN NUMBER
166: ,p_Change_Dim_Set IN NUMBER
167: ,x_return_status OUT NOCOPY VARCHAR2
170: )IS
171:
172: BEGIN
173: SAVEPOINT Update_Change_DimSet_PVT;
174: x_return_status := FND_API.G_RET_STS_SUCCESS;
175: FND_MSG_PUB.Initialize;
176:
177: UPDATE
178: bsc_kpi_analysis_groups
191: indicator = p_Indicator AND
192: analysis_group_id <> p_Analysis_Group_Id;
193: END IF;
194:
195: IF FND_API.To_Boolean( p_commit ) THEN
196: COMMIT;
197: END IF;
198:
199: EXCEPTION
198:
199: EXCEPTION
200: WHEN OTHERS THEN
201: ROLLBACK TO Update_Change_DimSet_PVT;
202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
203: IF (x_msg_data IS NOT NULL) THEN
204: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Update_Change_DimSet ';
205: ELSE
206: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Update_Change_DimSet ';
221:
222: ************************************************************************************/
223:
224: PROCEDURE Update_Default_Flag_Value(
225: p_commit IN VARCHAR2 := FND_API.G_FALSE
226: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
227: ,x_return_status OUT NOCOPY VARCHAR2
228: ,x_msg_count OUT NOCOPY NUMBER
229: ,x_msg_data OUT NOCOPY VARCHAR2
245:
246: BEGIN
247:
248: SAVEPOINT Update_Default_Flag_Val_PVT;
249: x_return_status := FND_API.G_RET_STS_SUCCESS;
250: FND_MSG_PUB.Initialize;
251:
252: --Only if the default value is modified
253: UPDATE
311: analysis_group_id = l_Temp_Ana_Grp_Id;
312: END IF;
313:
314:
315: IF FND_API.To_Boolean( p_commit ) THEN
316: COMMIT;
317: END IF;
318: EXCEPTION
319: WHEN OTHERS THEN
317: END IF;
318: EXCEPTION
319: WHEN OTHERS THEN
320: ROLLBACK TO Update_Default_Flag_Val_PVT;
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
322: IF (x_msg_data IS NOT NULL) THEN
323: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Update_Default_Flag_Val ';
324: ELSE
325: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Update_Default_Flag_Val ';
333: -- Function :
334: --
335: ************************************************************************************/
336: PROCEDURE Check_YTD_Apply(
337: p_commit IN VARCHAR2 := FND_API.G_FALSE
338: ,p_Indicator IN NUMBER
339: ,x_return_status OUT NOCOPY VARCHAR2
340: ,x_msg_count OUT NOCOPY NUMBER
341: ,x_msg_data OUT NOCOPY VARCHAR2
371:
372:
373: BEGIN
374: SAVEPOINT Check_YTD_Apply_PVT;
375: x_return_status := FND_API.G_RET_STS_SUCCESS;
376: FND_MSG_PUB.Initialize;
377:
378:
379: OPEN c_YTD_Value;
413: );
414: END IF;
415: END IF;
416:
417: IF FND_API.To_Boolean( p_commit ) THEN
418: COMMIT;
419: END IF;
420: EXCEPTION
421: WHEN OTHERS THEN
419: END IF;
420: EXCEPTION
421: WHEN OTHERS THEN
422: ROLLBACK TO Check_YTD_Apply_PVT;
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
424: IF (x_msg_data IS NOT NULL) THEN
425: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Val_If_YTD_Apply ';
426: ELSE
427: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Val_If_YTD_Apply ';
441: -- 5. Marks the objective for color recalculation if the coloring is default
442: -- kpi based
443: ************************************************************************************/
444: PROCEDURE Check_Default_Props(
445: p_commit IN VARCHAR2 := FND_API.G_FALSE
446: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
447: ,p_cascade_shared BOOLEAN := FALSE
448: ,x_return_status OUT NOCOPY VARCHAR2
449: ,x_msg_count OUT NOCOPY NUMBER
451: )IS
452:
453:
454: l_Old_Default_Value bsc_kpi_analysis_groups.default_value%TYPE;
455: l_commit VARCHAR2(1) := FND_API.G_FALSE;
456: l_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
457: l_Series_Id bsc_kpi_analysis_measures_b.series_id%TYPE := 0;
458: l_Budget_Flag bsc_kpi_analysis_measures_b.budget_flag%TYPE := 1;
459: CURSOR c_Old_Default_Value IS
487: share_flag = 2;
488:
489: BEGIN
490: SAVEPOINT Check_Default_Props_PVT;
491: x_return_status := FND_API.G_RET_STS_SUCCESS;
492:
493: OPEN c_Old_Default_Value;
494: FETCH c_Old_Default_Value INTO l_Old_Default_Value;
495: CLOSE c_Old_Default_Value;
506: ,x_return_status => x_return_status
507: ,x_msg_count => x_msg_count
508: ,x_msg_data => x_msg_data
509: );
510: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
512: END IF;
513:
514: BSC_KPI_SERIES_PUB.Check_Series_Default_Props(
507: ,x_msg_count => x_msg_count
508: ,x_msg_data => x_msg_data
509: );
510: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
512: END IF;
513:
514: BSC_KPI_SERIES_PUB.Check_Series_Default_Props(
515: p_commit => l_commit
517: ,x_return_status => x_return_status
518: ,x_msg_count => x_msg_count
519: ,x_msg_data => x_msg_data
520: );
521: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
523: END IF;
524:
525: OPEN c_Default_Series_Id(p_Anal_Opt_Rec.Bsc_Option_Group0, p_Anal_Opt_Rec.Bsc_Option_Group1, p_Anal_Opt_Rec.Bsc_Option_Group2);
518: ,x_msg_count => x_msg_count
519: ,x_msg_data => x_msg_data
520: );
521: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
523: END IF;
524:
525: OPEN c_Default_Series_Id(p_Anal_Opt_Rec.Bsc_Option_Group0, p_Anal_Opt_Rec.Bsc_Option_Group1, p_Anal_Opt_Rec.Bsc_Option_Group2);
526: FETCH c_Default_Series_Id INTO l_Series_Id, l_Budget_Flag;
527: CLOSE c_Default_Series_Id;
528:
529:
530: BSC_KPI_SERIES_PUB.Check_Color_Props(
531: p_commit => FND_API.G_FALSE
532: ,p_Indicator => p_Anal_Opt_Rec.Bsc_Kpi_Id
533: ,p_Analysis_Option0 => p_Anal_Opt_Rec.Bsc_Option_Group0
534: ,p_Analysis_Option1 => p_Anal_Opt_Rec.Bsc_Option_Group1
535: ,p_Analysis_Option2 => p_Anal_Opt_Rec.Bsc_Option_Group2
540: ,x_return_status => x_return_status
541: ,x_msg_count => x_msg_count
542: ,x_msg_data => x_msg_data
543: );
544: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
546: END IF;
547:
548: -- Validate_Calculations
541: ,x_msg_count => x_msg_count
542: ,x_msg_data => x_msg_data
543: );
544: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
546: END IF;
547:
548: -- Validate_Calculations
549: Check_YTD_Apply(
552: ,x_return_status => x_return_status
553: ,x_msg_count => x_msg_count
554: ,x_msg_data => x_msg_data
555: );
556: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
558: END IF;
559:
560: -- Check Color Change
553: ,x_msg_count => x_msg_count
554: ,x_msg_data => x_msg_data
555: );
556: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
558: END IF;
559:
560: -- Check Color Change
561: IF BSC_COLOR_CALC_UTIL.Get_Obj_Color_Rollup_Type(p_Anal_Opt_Rec.Bsc_Kpi_Id) = BSC_COLOR_CALC_UTIL.DEFAULT_KPI THEN
575: ,x_return_status => x_return_status
576: ,x_msg_count => x_msg_count
577: ,x_msg_data => x_msg_data
578: );
579: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: END IF;
582:
583: BSC_KPI_SERIES_PUB.Check_Series_Default_Props(
576: ,x_msg_count => x_msg_count
577: ,x_msg_data => x_msg_data
578: );
579: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: END IF;
582:
583: BSC_KPI_SERIES_PUB.Check_Series_Default_Props(
584: p_commit => l_commit
586: ,x_return_status => x_return_status
587: ,x_msg_count => x_msg_count
588: ,x_msg_data => x_msg_data
589: );
590: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: END IF;
593:
594: Check_YTD_Apply(
587: ,x_msg_count => x_msg_count
588: ,x_msg_data => x_msg_data
589: );
590: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: END IF;
593:
594: Check_YTD_Apply(
595: p_commit => l_commit
597: ,x_return_status => x_return_status
598: ,x_msg_count => x_msg_count
599: ,x_msg_data => x_msg_data
600: );
601: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END IF;
604:
605: BSC_KPI_SERIES_PUB.Check_Color_Props(
598: ,x_msg_count => x_msg_count
599: ,x_msg_data => x_msg_data
600: );
601: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END IF;
604:
605: BSC_KPI_SERIES_PUB.Check_Color_Props(
606: p_commit => FND_API.G_FALSE
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END IF;
604:
605: BSC_KPI_SERIES_PUB.Check_Color_Props(
606: p_commit => FND_API.G_FALSE
607: ,p_Indicator => l_Anal_Opt_Rec.Bsc_Kpi_Id
608: ,p_Analysis_Option0 => l_Anal_Opt_Rec.Bsc_Option_Group0
609: ,p_Analysis_Option1 => l_Anal_Opt_Rec.Bsc_Option_Group1
610: ,p_Analysis_Option2 => l_Anal_Opt_Rec.Bsc_Option_Group2
616: ,x_msg_count => x_msg_count
617: ,x_msg_data => x_msg_data
618: );
619:
620: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
622: END IF;
623:
624: IF BSC_COLOR_CALC_UTIL.Get_Obj_Color_Rollup_Type(l_Anal_Opt_Rec.Bsc_Kpi_Id) = BSC_COLOR_CALC_UTIL.DEFAULT_KPI THEN
617: ,x_msg_data => x_msg_data
618: );
619:
620: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
622: END IF;
623:
624: IF BSC_COLOR_CALC_UTIL.Get_Obj_Color_Rollup_Type(l_Anal_Opt_Rec.Bsc_Kpi_Id) = BSC_COLOR_CALC_UTIL.DEFAULT_KPI THEN
625: BSC_DESIGNER_PVT.ActionFlag_Change (
630: END LOOP;
631:
632: END IF;
633:
634: IF FND_API.To_Boolean( p_commit ) THEN
635: COMMIT;
636: END IF;
637:
638: EXCEPTION
635: COMMIT;
636: END IF;
637:
638: EXCEPTION
639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
640: ROLLBACK TO Check_Default_Props_PVT;
641: IF (x_msg_data IS NULL) THEN
642: FND_MSG_PUB.Count_And_Get
643: ( p_encoded => FND_API.G_FALSE
639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
640: ROLLBACK TO Check_Default_Props_PVT;
641: IF (x_msg_data IS NULL) THEN
642: FND_MSG_PUB.Count_And_Get
643: ( p_encoded => FND_API.G_FALSE
644: , p_count => x_msg_count
645: , p_data => x_msg_data
646: );
647: END IF;
644: , p_count => x_msg_count
645: , p_data => x_msg_data
646: );
647: END IF;
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: WHEN OTHERS THEN
650: ROLLBACK TO Check_Default_Props_PVT;
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
652: IF (x_msg_data IS NOT NULL) THEN
647: END IF;
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: WHEN OTHERS THEN
650: ROLLBACK TO Check_Default_Props_PVT;
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
652: IF (x_msg_data IS NOT NULL) THEN
653: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Check_Default_Props ';
654: ELSE
655: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Check_Default_Props ';
683: FETCH c_Ana_Drill INTO l_ana_drill;
684: CLOSE c_Ana_Drill;
685:
686: IF l_ana_drill = 1 THEN
687: RETURN FND_API.G_TRUE;
688: END IF;
689: RETURN FND_API.G_FALSE;
690:
691: EXCEPTION
685:
686: IF l_ana_drill = 1 THEN
687: RETURN FND_API.G_TRUE;
688: END IF;
689: RETURN FND_API.G_FALSE;
690:
691: EXCEPTION
692: WHEN OTHERS THEN
693: RETURN FND_API.G_FALSE;
689: RETURN FND_API.G_FALSE;
690:
691: EXCEPTION
692: WHEN OTHERS THEN
693: RETURN FND_API.G_FALSE;
694: END Is_Analysis_Drill;
695:
696: /************************************************************************************
697: -- API name : Get_Analysis_Option_Default
855: -- Type : Private
856: ************************************************************************************/
857:
858: PROCEDURE Check_Strucural_Flag_Change(
859: p_commit IN VARCHAR2 := FND_API.G_FALSE
860: ,p_Indicator IN NUMBER
861: ,p_olddim_Dataset_map IN BSC_KPI_SERIES_PUB.Bsc_Dim_Dataset_Table
862: ,p_cascade_shared BOOLEAN := FALSE
863: ,x_return_status OUT NOCOPY VARCHAR2
903: END IF;
904: END IF;
905:
906: EXCEPTION
907: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
908: ROLLBACK TO Update_Analayis_Option_PUB;
909: IF (x_msg_data IS NULL) THEN
910: FND_MSG_PUB.Count_And_Get
911: ( p_encoded => FND_API.G_FALSE
907: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
908: ROLLBACK TO Update_Analayis_Option_PUB;
909: IF (x_msg_data IS NULL) THEN
910: FND_MSG_PUB.Count_And_Get
911: ( p_encoded => FND_API.G_FALSE
912: , p_count => x_msg_count
913: , p_data => x_msg_data
914: );
915: END IF;
912: , p_count => x_msg_count
913: , p_data => x_msg_data
914: );
915: END IF;
916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: WHEN OTHERS THEN
918: ROLLBACK TO Update_Analayis_Option_PUB;
919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
920: IF (x_msg_data IS NOT NULL) THEN
915: END IF;
916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: WHEN OTHERS THEN
918: ROLLBACK TO Update_Analayis_Option_PUB;
919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
920: IF (x_msg_data IS NOT NULL) THEN
921: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Check_Strucural_Flag_Change ';
922: ELSE
923: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Check_Strucural_Flag_Change ';
939: -- 6. Checks for structural changes and updates the prototype_flag accordingly
940: ************************************************************************************/
941:
942: PROCEDURE Update_Analysis_Option_UI(
943: p_commit IN VARCHAR2 := FND_API.G_FALSE
944: ,p_Indicator IN NUMBER
945: ,p_Analysis_Group_Id IN NUMBER := 0
946: ,p_Option_Id IN NUMBER := 0
947: ,p_Parent_Option_Id IN NUMBER := 0
953: ,p_Option_Name IN VARCHAR2
954: ,p_Option_Help IN VARCHAR2
955: ,p_Change_Dim_Set IN NUMBER := 0
956: ,p_default_calculation IN NUMBER := NULL
957: ,p_Create_Flow IN VARCHAR2 := FND_API.G_FALSE
958: ,p_time_stamp IN VARCHAR2 := NULL
959: ,p_olddim_Dataset_map IN BSC_KPI_SERIES_PUB.Bsc_Dim_Dataset_Table := NULL
960: ,x_return_status OUT NOCOPY VARCHAR2
961: ,x_msg_count OUT NOCOPY NUMBER
969: l_Bsc_AnaOpt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
970: l_Count NUMBER := 0;
971: l_DimSet_Id bsc_kpi_analysis_options_b.dim_set_id%TYPE := 0;
972: l_Measure_Source bsc_sys_datasets_vl.source%TYPE;
973: l_commit VARCHAR2(2) := FND_API.G_FALSE;
974:
975: l_config_type bsc_kpis_b.config_type%TYPE;
976: l_indicator_type bsc_kpis_b.indicator_type%TYPE;
977:
1022:
1023: BEGIN
1024: SAVEPOINT Update_Analayis_Option_PUB;
1025: -- Check that the indicator id passed is Valid
1026: IF NOT FND_API.To_Boolean(p_Create_Flow) THEN
1027: IF p_Indicator IS NOT NULL THEN
1028: l_Count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1029: ,'indicator'
1030: , p_Indicator);
1031: IF l_Count = 0 THEN
1032: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1033: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Indicator);
1034: FND_MSG_PUB.ADD;
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037: ELSE
1038: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1039: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Indicator);
1037: ELSE
1038: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1039: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Indicator);
1040: FND_MSG_PUB.ADD;
1041: RAISE FND_API.G_EXC_ERROR;
1042: END IF;
1043: BSC_BIS_LOCKS_PUB.LOCK_KPI
1044: ( p_Kpi_Id => p_Indicator
1045: , p_time_stamp => p_time_stamp
1047: , x_return_status => x_return_status
1048: , x_msg_count => x_msg_count
1049: , x_msg_data => x_msg_data
1050: );
1051: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1053: END IF;
1054: END IF;
1055:
1048: , x_msg_count => x_msg_count
1049: , x_msg_data => x_msg_data
1050: );
1051: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1053: END IF;
1054: END IF;
1055:
1056: SELECT indicator_type,config_type
1057: INTO l_indicator_type,l_config_type
1058: FROM bsc_kpis_b
1059: WHERE indicator = p_Indicator;
1060:
1061: IF NOT FND_API.To_Boolean(p_Create_Flow) THEN
1062: Get_Current_Dim_DataSet_Map (
1063: p_Indicator => p_Indicator
1064: ,x_dim_Dataset_map => l_olddim_Dataset_map
1065: );
1104: ,x_return_status => x_return_status
1105: ,x_msg_count => x_msg_count
1106: ,x_msg_data => x_msg_data
1107: );
1108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1110: END IF;
1111:
1112: IF l_indicator_type <> 10 AND p_DataSet_Id IS NOT NULL THEN
1105: ,x_msg_count => x_msg_count
1106: ,x_msg_data => x_msg_data
1107: );
1108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1110: END IF;
1111:
1112: IF l_indicator_type <> 10 AND p_DataSet_Id IS NOT NULL THEN
1113: BSC_KPI_SERIES_PUB.Save_Default_Calculation(
1110: END IF;
1111:
1112: IF l_indicator_type <> 10 AND p_DataSet_Id IS NOT NULL THEN
1113: BSC_KPI_SERIES_PUB.Save_Default_Calculation(
1114: p_commit => FND_API.G_FALSE
1115: ,p_Indicator => p_Indicator
1116: ,p_Analysis_Option0 => l_AO0
1117: ,p_Analysis_Option1 => l_AO1
1118: ,p_Analysis_Option2 => l_AO2
1121: ,x_return_status => x_return_status
1122: ,x_msg_count => x_msg_count
1123: ,x_msg_data => x_msg_data
1124: );
1125: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: END IF;
1128: END IF;
1129:
1122: ,x_msg_count => x_msg_count
1123: ,x_msg_data => x_msg_data
1124: );
1125: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: END IF;
1128: END IF;
1129:
1130:
1130:
1131: l_Measure_Source := bsc_Oaf_Views_Pvt.Get_Dataset_Source(x_Dataset_Id => p_DataSet_Id);
1132:
1133: IF l_Measure_Source = 'PMF' THEN
1134: IF FND_API.To_Boolean(p_Create_Flow) THEN
1135: l_DimSet_Id := NULL;
1136: ELSE
1137: l_DimSet_Id := p_DimSet_Id;
1138: END IF;
1162: , x_return_status => x_return_status
1163: , x_msg_count => x_msg_count
1164: , x_msg_data => x_msg_data
1165: );
1166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1168: END IF;
1169: ELSE --For BSC Measures
1170:
1163: , x_msg_count => x_msg_count
1164: , x_msg_data => x_msg_data
1165: );
1166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1168: END IF;
1169: ELSE --For BSC Measures
1170:
1171: OPEN c_old_dim_set_id ;
1202: ,x_return_status => x_return_status
1203: ,x_msg_count => x_msg_count
1204: ,x_msg_data => x_Msg_Data
1205: );
1206: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1208: END IF;
1209: END IF;
1210: END IF;
1203: ,x_msg_count => x_msg_count
1204: ,x_msg_data => x_Msg_Data
1205: );
1206: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1208: END IF;
1209: END IF;
1210: END IF;
1211: Bsc_Analysis_Option_Pvt.Update_Analysis_Options (
1215: ,x_return_status => x_return_status
1216: ,x_msg_count => x_msg_count
1217: ,x_msg_data => x_Msg_Data
1218: );
1219: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222:
1223:
1216: ,x_msg_count => x_msg_count
1217: ,x_msg_data => x_Msg_Data
1218: );
1219: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222:
1223:
1224: FOR cd in c_shared_objs LOOP
1231: ,x_return_status => x_return_status
1232: ,x_msg_count => x_msg_count
1233: ,x_msg_data => x_Msg_Data
1234: );
1235: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1237: END IF;
1238: END IF;
1239: END IF;
1232: ,x_msg_count => x_msg_count
1233: ,x_msg_data => x_Msg_Data
1234: );
1235: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1237: END IF;
1238: END IF;
1239: END IF;
1240: Bsc_Analysis_Option_Pvt.Update_Analysis_Options (
1244: ,x_return_status => x_return_status
1245: ,x_msg_count => x_msg_count
1246: ,x_msg_data => x_Msg_Data
1247: );
1248: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1251:
1252: END LOOP;
1245: ,x_msg_count => x_msg_count
1246: ,x_msg_data => x_Msg_Data
1247: );
1248: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1251:
1252: END LOOP;
1253:
1250: END IF;
1251:
1252: END LOOP;
1253:
1254: IF FND_API.To_Boolean(p_Create_Flow) THEN
1255: BSC_DESIGNER_PVT.Deflt_Update_SN_FM_CM(x_indicator => p_Indicator);
1256: END IF;
1257:
1258: IF ( Get_Analysis_Option_Default( p_Indicator => p_Indicator, p_Analysis_Group_Id => p_Analysis_Group_Id) = p_Option_Id AND
1255: BSC_DESIGNER_PVT.Deflt_Update_SN_FM_CM(x_indicator => p_Indicator);
1256: END IF;
1257:
1258: IF ( Get_Analysis_Option_Default( p_Indicator => p_Indicator, p_Analysis_Group_Id => p_Analysis_Group_Id) = p_Option_Id AND
1259: FND_API.To_Boolean(Is_Analysis_Drill ( p_Indicator => p_Indicator, p_Analysis_Group_Id => p_Analysis_Group_Id))) THEN
1260: BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button (
1261: p_Kpi_Id => p_Indicator
1262: ,p_Dim_Level_Id => NULL
1263: ,x_return_status => x_return_status
1263: ,x_return_status => x_return_status
1264: ,x_msg_count => x_msg_count
1265: ,x_msg_data => x_msg_data
1266: );
1267: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1269: END IF;
1270: END IF;
1271: END IF;
1264: ,x_msg_count => x_msg_count
1265: ,x_msg_data => x_msg_data
1266: );
1267: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1269: END IF;
1270: END IF;
1271: END IF;
1272:
1270: END IF;
1271: END IF;
1272:
1273: Update_Change_DimSet (
1274: p_commit => FND_API.G_FALSE
1275: ,p_Indicator => p_Indicator
1276: ,p_Analysis_Group_Id => p_Analysis_Group_Id
1277: ,p_Change_Dim_Set => p_Change_Dim_Set
1278: ,x_return_status => x_return_status
1278: ,x_return_status => x_return_status
1279: ,x_msg_count => x_msg_count
1280: ,x_msg_data => x_msg_data
1281: );
1282: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285:
1286: Check_UserLevel_Values(
1279: ,x_msg_count => x_msg_count
1280: ,x_msg_data => x_msg_data
1281: );
1282: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285:
1286: Check_UserLevel_Values(
1287: p_commit => l_commit
1290: ,x_return_status => x_return_status
1291: ,x_msg_count => x_msg_count
1292: ,x_msg_data => x_msg_data
1293: );
1294: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1296: END IF;
1297:
1298: Check_Strucural_Flag_Change (
1291: ,x_msg_count => x_msg_count
1292: ,x_msg_data => x_msg_data
1293: );
1294: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1296: END IF;
1297:
1298: Check_Strucural_Flag_Change (
1299: p_commit => l_commit
1303: ,x_return_status => x_return_status
1304: ,x_msg_count => x_msg_count
1305: ,x_msg_data => x_msg_data
1306: );
1307: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;
1310:
1311: -- Update TimeStamp
1304: ,x_msg_count => x_msg_count
1305: ,x_msg_data => x_msg_data
1306: );
1307: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;
1310:
1311: -- Update TimeStamp
1312: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator;
1316: ,x_return_status => x_return_status
1317: ,x_msg_count => x_msg_count
1318: ,x_msg_data => x_msg_data
1319: );
1320: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1322: END IF;
1323: FOR cd IN c_shared_objs LOOP
1324: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
1317: ,x_msg_count => x_msg_count
1318: ,x_msg_data => x_msg_data
1319: );
1320: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1322: END IF;
1323: FOR cd IN c_shared_objs LOOP
1324: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
1325: Update_Change_DimSet (
1322: END IF;
1323: FOR cd IN c_shared_objs LOOP
1324: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
1325: Update_Change_DimSet (
1326: p_commit => FND_API.G_FALSE
1327: ,p_Indicator => cd.Indicator
1328: ,p_Analysis_Group_Id => p_Analysis_Group_Id
1329: ,p_Change_Dim_Set => p_Change_Dim_Set
1330: ,x_return_status => x_return_status
1330: ,x_return_status => x_return_status
1331: ,x_msg_count => x_msg_count
1332: ,x_msg_data => x_msg_data
1333: );
1334: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1336: END IF;
1337:
1338: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
1331: ,x_msg_count => x_msg_count
1332: ,x_msg_data => x_msg_data
1333: );
1334: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1336: END IF;
1337:
1338: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
1339: p_commit => l_commit
1341: ,x_return_status => x_return_status
1342: ,x_msg_count => x_msg_count
1343: ,x_msg_data => x_msg_data
1344: );
1345: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1347: END IF;
1348: END LOOP;
1349:
1342: ,x_msg_count => x_msg_count
1343: ,x_msg_data => x_msg_data
1344: );
1345: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1347: END IF;
1348: END LOOP;
1349:
1350: BSC_DESIGNER_PVT.Deflt_Update_AOPTS ( x_indicator => p_Indicator);
1351: FOR cd in c_shared_objs LOOP
1352: BSC_DESIGNER_PVT.Deflt_Update_AOPTS ( x_indicator => cd.indicator );
1353: END LOOP;
1354:
1355: IF FND_API.To_Boolean( p_commit ) THEN
1356: COMMIT;
1357: END IF;
1358:
1359: EXCEPTION
1356: COMMIT;
1357: END IF;
1358:
1359: EXCEPTION
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361: ROLLBACK TO Update_Analayis_Option_PUB;
1362: IF (x_msg_data IS NULL) THEN
1363: FND_MSG_PUB.Count_And_Get
1364: ( p_encoded => FND_API.G_FALSE
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361: ROLLBACK TO Update_Analayis_Option_PUB;
1362: IF (x_msg_data IS NULL) THEN
1363: FND_MSG_PUB.Count_And_Get
1364: ( p_encoded => FND_API.G_FALSE
1365: , p_count => x_msg_count
1366: , p_data => x_msg_data
1367: );
1368: END IF;
1365: , p_count => x_msg_count
1366: , p_data => x_msg_data
1367: );
1368: END IF;
1369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1370: WHEN OTHERS THEN
1371: ROLLBACK TO Update_Analayis_Option_PUB;
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: IF (x_msg_data IS NOT NULL) THEN
1368: END IF;
1369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1370: WHEN OTHERS THEN
1371: ROLLBACK TO Update_Analayis_Option_PUB;
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: IF (x_msg_data IS NOT NULL) THEN
1374: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Update_Analysis_Option_UI ';
1375: ELSE
1376: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Update_Analysis_Option_UI ';
1384: -- deletes the child analysis options.
1385: ************************************************************************************/
1386:
1387: PROCEDURE Delete_Mind_Options(
1388: p_commit IN VARCHAR2 := FND_API.G_FALSE
1389: ,p_Anal_Opt_Rec IN Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type
1390: ,p_Dependency01 IN NUMBER
1391: ,p_Dependency12 IN NUMBER
1392: ,p_Initial_Group_Id IN NUMBER
1403: l_sql VARCHAR2(2000);
1404:
1405: l_Anal_Opt_Rec Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type;
1406: l_Par_Opt_Rec Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type;
1407: l_commit VARCHAR2(2) := FND_API.G_FALSE;
1408: CURSOR c_Ana_Opt_Count IS
1409: SELECT
1410: COUNT(1)
1411: FROM
1424: parent_option_id = l_Anal_Opt_Rec.Bsc_Analysis_Option_Id;
1425:
1426: BEGIN
1427: SAVEPOINT Delete_Mind_Options_PVT;
1428: x_return_status := FND_API.G_RET_STS_SUCCESS;
1429: FND_MSG_PUB.Initialize;
1430:
1431: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
1432: l_Par_Opt_Rec := p_Anal_Opt_Rec;
1490: ,x_return_status => x_return_status
1491: ,x_msg_count => x_msg_count
1492: ,x_msg_data => x_msg_data
1493: );
1494: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1496: END IF;
1497: END LOOP;
1498: END IF;
1491: ,x_msg_count => x_msg_count
1492: ,x_msg_data => x_msg_data
1493: );
1494: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1496: END IF;
1497: END LOOP;
1498: END IF;
1499:
1512: ,x_return_status => x_return_status
1513: ,x_msg_count => x_msg_count
1514: ,x_msg_data => x_msg_data
1515: );
1516: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1518: END IF;
1519: END IF;
1520:
1513: ,x_msg_count => x_msg_count
1514: ,x_msg_data => x_msg_data
1515: );
1516: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1518: END IF;
1519: END IF;
1520:
1521: IF FND_API.To_Boolean( p_commit ) THEN
1517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1518: END IF;
1519: END IF;
1520:
1521: IF FND_API.To_Boolean( p_commit ) THEN
1522: COMMIT;
1523: END IF;
1524: EXCEPTION
1525: WHEN OTHERS THEN
1523: END IF;
1524: EXCEPTION
1525: WHEN OTHERS THEN
1526: ROLLBACK TO Delete_Mind_Options_PVT;
1527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1528: IF (x_msg_data IS NOT NULL) THEN
1529: x_msg_data := x_msg_data||' ->BSC_OBJ_ANALYSIS_OPTIONS_PUB.Delete_Mind_Options ';
1530: ELSE
1531: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Delete_Mind_Options ';
1538: ************************************************************************************/
1539:
1540:
1541: PROCEDURE Delete_Mind_Data(
1542: p_commit IN VARCHAR2 := FND_API.G_FALSE
1543: ,p_Anal_Opt_Rec IN Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type
1544: ,p_Parent_Group_Id IN NUMBER
1545: ,p_Grandparent_Group_Id IN NUMBER
1546: ,x_return_status OUT NOCOPY VARCHAR2
1553: l_NumOptions NUMBER := 0;
1554: l_criteria VARCHAR2(2000);
1555: l_sql VARCHAR2(2000);
1556: l_Anal_Opt_Rec Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type;
1557: l_commit VARCHAR2(2) := FND_API.G_FALSE;
1558: --l_Initial_Kpi_Meas FND_TABLE_OF_NUMBER;
1559: BEGIN
1560:
1561: SAVEPOINT Delete_Mind_Data_PVT;
1558: --l_Initial_Kpi_Meas FND_TABLE_OF_NUMBER;
1559: BEGIN
1560:
1561: SAVEPOINT Delete_Mind_Data_PVT;
1562: x_return_status := FND_API.G_RET_STS_SUCCESS;
1563: FND_MSG_PUB.Initialize;
1564:
1565: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
1566:
1609: ,x_msg_count => x_msg_count
1610: ,x_msg_data => x_msg_data
1611: ) ;
1612:
1613: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615: END IF;
1616:
1617: l_sql := 'DELETE FROM bsc_kpi_subtitles_tl ' || l_criteria;
1610: ,x_msg_data => x_msg_data
1611: ) ;
1612:
1613: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615: END IF;
1616:
1617: l_sql := 'DELETE FROM bsc_kpi_subtitles_tl ' || l_criteria;
1618: BSC_APPS.Execute_Immediate(l_sql);
1616:
1617: l_sql := 'DELETE FROM bsc_kpi_subtitles_tl ' || l_criteria;
1618: BSC_APPS.Execute_Immediate(l_sql);
1619:
1620: IF FND_API.To_Boolean( p_commit ) THEN
1621: COMMIT;
1622: END IF;
1623: EXCEPTION
1624: WHEN OTHERS THEN
1622: END IF;
1623: EXCEPTION
1624: WHEN OTHERS THEN
1625: ROLLBACK TO Delete_Mind_Data_PVT;
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1627: IF (x_msg_data IS NOT NULL) THEN
1628: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Delete_Mind_Data ';
1629: ELSE
1630: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Delete_Mind_Data ';
1641: ************************************************************************************/
1642:
1643:
1644: PROCEDURE Renumerate_Options(
1645: p_commit IN VARCHAR2 := FND_API.G_FALSE
1646: ,p_Anal_Opt_Rec IN Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type
1647: ,p_Parent_Group_Id IN NUMBER
1648: ,p_Grandparent_Group_Id IN NUMBER
1649: ,x_return_status OUT NOCOPY VARCHAR2
1673: indicator = p_Anal_Opt_Rec.Bsc_Kpi_Id;
1674:
1675: BEGIN
1676: SAVEPOINT Renumerate_Options_PVT;
1677: x_return_status := FND_API.G_RET_STS_SUCCESS;
1678: l_criteria_options := ' WHERE indicator = '|| p_Anal_Opt_Rec.Bsc_Kpi_Id;
1679: l_criteria_options := l_criteria_options || ' AND analysis_group_id = ' || p_Anal_Opt_Rec.Bsc_Analysis_Group_Id;
1680: IF p_Parent_Group_Id <> -1 THEN
1681: l_criteria_options := l_criteria_options || ' AND parent_option_id=' || p_Anal_Opt_Rec.Bsc_Parent_Option_Id;
1758: l_cur_index := l_cur_index + 1;
1759: end loop;
1760: close c_option;
1761:
1762: IF FND_API.To_Boolean( p_commit ) THEN
1763: COMMIT;
1764: END IF;
1765:
1766: EXCEPTION
1765:
1766: EXCEPTION
1767: WHEN OTHERS THEN
1768: ROLLBACK TO Renumerate_Options_PVT;
1769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1770: IF (x_msg_data IS NOT NULL) THEN
1771: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Renumerate_Options ';
1772: ELSE
1773: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Renumerate_Options ';
1779: -- Type : Private
1780: ************************************************************************************/
1781:
1782: PROCEDURE Update_Analysis_Opt_Count (
1783: p_commit IN VARCHAR2 := FND_API.G_FALSE
1784: ,p_Indicator IN NUMBER
1785: ,x_return_status OUT NOCOPY VARCHAR2
1786: ,x_msg_count OUT NOCOPY NUMBER
1787: ,x_msg_data OUT NOCOPY VARCHAR2
1807:
1808: BEGIN
1809:
1810: SAVEPOINT Update_Ana_Opt_Count_PVT;
1811: x_return_status := FND_API.G_RET_STS_SUCCESS;
1812: FND_MSG_PUB.Initialize;
1813:
1814: OPEN c_max_grp_id;
1815: FETCH c_max_grp_id INTO l_Max_Grp_Id;
1835: AND analysis_group_id = i;
1836:
1837: END LOOP;
1838:
1839: IF FND_API.To_Boolean( p_commit ) THEN
1840: COMMIT;
1841: END IF;
1842: EXCEPTION
1843: WHEN OTHERS THEN
1841: END IF;
1842: EXCEPTION
1843: WHEN OTHERS THEN
1844: ROLLBACK TO Update_Ana_Opt_Count_PVT;
1845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1846: IF (x_msg_data IS NOT NULL) THEN
1847: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Update_Analysis_Opt_Count ';
1848: ELSE
1849: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Update_Analysis_Opt_Count ';
1887: ************************************************************************************/
1888:
1889:
1890: PROCEDURE Delete_Analysis_Option_Wrap (
1891: p_commit IN VARCHAR2 := FND_API.G_FALSE
1892: ,p_Anal_Opt_Rec IN Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type
1893: ,p_cascade_shared BOOLEAN := FALSE
1894: ,x_return_status OUT NOCOPY VARCHAR2
1895: ,x_msg_count OUT NOCOPY NUMBER
1905: l_GrandParent_Group_Id bsc_kpi_analysis_groups.analysis_group_id%TYPE := 0;
1906:
1907: l_Bsc_Anal_Opt_Rec Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type;
1908:
1909: l_commit VARCHAR2(2) := FND_API.G_FALSE;
1910:
1911: CURSOR c_shared_objs IS
1912: SELECT
1913: indicator
1919: share_flag = 2;
1920:
1921: BEGIN
1922: SAVEPOINT BscObjDeleteAnaOptWrap;
1923: x_return_status := FND_API.G_RET_STS_SUCCESS;
1924: FND_MSG_PUB.Initialize;
1925:
1926: l_Bsc_Anal_Opt_Rec := p_Anal_Opt_Rec;
1927: l_Dependency01 := Get_Dependency(p_Anal_Opt_Rec.Bsc_Kpi_Id, 1);
1951: ,x_return_status => x_return_status
1952: ,x_msg_count => x_msg_count
1953: ,x_msg_data => x_msg_data
1954: );
1955: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1957: END IF;
1958:
1959: Delete_Mind_Data (
1952: ,x_msg_count => x_msg_count
1953: ,x_msg_data => x_msg_data
1954: );
1955: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1957: END IF;
1958:
1959: Delete_Mind_Data (
1960: p_commit => l_commit
1964: ,x_return_status => x_return_status
1965: ,x_msg_count => x_msg_count
1966: ,x_msg_data => x_msg_data
1967: );
1968: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1970: END IF;
1971:
1972: Renumerate_Options (
1965: ,x_msg_count => x_msg_count
1966: ,x_msg_data => x_msg_data
1967: );
1968: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1970: END IF;
1971:
1972: Renumerate_Options (
1973: p_commit => l_commit
1977: ,x_return_status => x_return_status
1978: ,x_msg_count => x_msg_count
1979: ,x_msg_data => x_msg_data
1980: );
1981: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1983: END IF;
1984:
1985: Update_Analysis_Opt_Count (
1978: ,x_msg_count => x_msg_count
1979: ,x_msg_data => x_msg_data
1980: );
1981: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1983: END IF;
1984:
1985: Update_Analysis_Opt_Count (
1986: p_commit => l_commit
1988: ,x_return_status => x_return_status
1989: ,x_msg_count => x_msg_count
1990: ,x_msg_data => x_msg_data
1991: );
1992: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995:
1996: IF p_cascade_shared THEN
1989: ,x_msg_count => x_msg_count
1990: ,x_msg_data => x_msg_data
1991: );
1992: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995:
1996: IF p_cascade_shared THEN
1997: FOR cd in c_shared_objs LOOP
2005: ,x_return_status => x_return_status
2006: ,x_msg_count => x_msg_count
2007: ,x_msg_data => x_msg_data
2008: );
2009: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2011: END IF;
2012:
2013: Delete_Mind_Data (
2006: ,x_msg_count => x_msg_count
2007: ,x_msg_data => x_msg_data
2008: );
2009: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2011: END IF;
2012:
2013: Delete_Mind_Data (
2014: p_commit => l_commit
2018: ,x_return_status => x_return_status
2019: ,x_msg_count => x_msg_count
2020: ,x_msg_data => x_msg_data
2021: );
2022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2024: END IF;
2025:
2026: Renumerate_Options (
2019: ,x_msg_count => x_msg_count
2020: ,x_msg_data => x_msg_data
2021: );
2022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2024: END IF;
2025:
2026: Renumerate_Options (
2027: p_commit => l_commit
2031: ,x_return_status => x_return_status
2032: ,x_msg_count => x_msg_count
2033: ,x_msg_data => x_msg_data
2034: );
2035: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: END IF;
2038:
2039: Update_Analysis_Opt_Count (
2032: ,x_msg_count => x_msg_count
2033: ,x_msg_data => x_msg_data
2034: );
2035: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: END IF;
2038:
2039: Update_Analysis_Opt_Count (
2040: p_commit => l_commit
2042: ,x_return_status => x_return_status
2043: ,x_msg_count => x_msg_count
2044: ,x_msg_data => x_msg_data
2045: );
2046: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2048: END IF;
2049: END LOOP;
2050: END IF;
2043: ,x_msg_count => x_msg_count
2044: ,x_msg_data => x_msg_data
2045: );
2046: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2048: END IF;
2049: END LOOP;
2050: END IF;
2051:
2048: END IF;
2049: END LOOP;
2050: END IF;
2051:
2052: IF FND_API.To_Boolean( p_commit ) THEN
2053: COMMIT;
2054: END IF;
2055:
2056: EXCEPTION
2053: COMMIT;
2054: END IF;
2055:
2056: EXCEPTION
2057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2058: ROLLBACK TO BscObjDeleteAnaOptWrap;
2059: IF (x_msg_data IS NULL) THEN
2060: FND_MSG_PUB.Count_And_Get
2061: ( p_encoded => FND_API.G_FALSE
2057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2058: ROLLBACK TO BscObjDeleteAnaOptWrap;
2059: IF (x_msg_data IS NULL) THEN
2060: FND_MSG_PUB.Count_And_Get
2061: ( p_encoded => FND_API.G_FALSE
2062: , p_count => x_msg_count
2063: , p_data => x_msg_data
2064: );
2065: END IF;
2062: , p_count => x_msg_count
2063: , p_data => x_msg_data
2064: );
2065: END IF;
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067: WHEN OTHERS THEN
2068: ROLLBACK TO BscObjDeleteAnaOptWrap;
2069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070: IF (x_msg_data IS NOT NULL) THEN
2065: END IF;
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067: WHEN OTHERS THEN
2068: ROLLBACK TO BscObjDeleteAnaOptWrap;
2069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070: IF (x_msg_data IS NOT NULL) THEN
2071: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Delete_Analysis_Option_Wrap ';
2072: ELSE
2073: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Delete_Analysis_Option_Wrap ';
2078: -- API name : Reset_Group_Defaults
2079: -- Type : Public
2080: ************************************************************************************/
2081: PROCEDURE Reset_Group_Defaults (
2082: p_commit IN VARCHAR2 := FND_API.G_FALSE
2083: ,p_Indicator IN NUMBER
2084: ,p_Analysis_Group_Id IN NUMBER
2085: ,p_Option_Id IN NUMBER
2086: ,x_return_status OUT NOCOPY VARCHAR2
2094: l_Dependency12 bsc_kpi_analysis_groups.dependency_flag%TYPE := -1;
2095:
2096: BEGIN
2097: SAVEPOINT Reset_Group_Defaults_PVT;
2098: x_return_status := FND_API.G_RET_STS_SUCCESS;
2099: FND_MSG_PUB.Initialize;
2100:
2101: l_Dependency01 := Get_Dependency(p_Indicator,1);
2102: l_Dependency12 := Get_Dependency(p_Indicator,2);
2156: END CASE;
2157: END IF;
2158: END IF;
2159:
2160: IF FND_API.To_Boolean( p_commit ) THEN
2161: COMMIT;
2162: END IF;
2163:
2164: EXCEPTION
2163:
2164: EXCEPTION
2165: WHEN OTHERS THEN
2166: ROLLBACK TO Reset_Group_Defaults_PVT;
2167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2168: IF (x_msg_data IS NOT NULL) THEN
2169: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Reset_Group_Defaults ';
2170: ELSE
2171: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Reset_Group_Defaults ';
2176: -- API name : Remove_Empty_Groups
2177: -- Type : Public
2178: ************************************************************************************/
2179: PROCEDURE Remove_Empty_Groups (
2180: p_commit IN VARCHAR2 := FND_API.G_FALSE
2181: ,p_Indicator IN NUMBER
2182: ,p_Analysis_Group_Id IN NUMBER
2183: ,p_Option_Id IN NUMBER := 0
2184: ,p_Parent_Option_Id IN NUMBER := 0
2216: analysis_group_id = p_Group_Id;
2217:
2218: BEGIN
2219: SAVEPOINT Remove_Empty_Groups_PVT;
2220: x_return_status := FND_API.G_RET_STS_SUCCESS;
2221: FND_MSG_PUB.Initialize;
2222:
2223: l_Dependency01 := Get_Dependency(p_Indicator,1);
2224: l_Dependency12 := Get_Dependency(p_Indicator,2);
2264: END IF;
2265: l_Cur_Group := l_Cur_Group + 1;
2266: END LOOP;
2267:
2268: IF FND_API.To_Boolean( p_commit ) THEN
2269: COMMIT;
2270: END IF;
2271:
2272: EXCEPTION
2269: COMMIT;
2270: END IF;
2271:
2272: EXCEPTION
2273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2274: ROLLBACK TO Remove_Empty_Groups_PVT;
2275: IF (x_msg_data IS NULL) THEN
2276: FND_MSG_PUB.Count_And_Get
2277: ( p_encoded => FND_API.G_FALSE
2273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2274: ROLLBACK TO Remove_Empty_Groups_PVT;
2275: IF (x_msg_data IS NULL) THEN
2276: FND_MSG_PUB.Count_And_Get
2277: ( p_encoded => FND_API.G_FALSE
2278: , p_count => x_msg_count
2279: , p_data => x_msg_data
2280: );
2281: END IF;
2278: , p_count => x_msg_count
2279: , p_data => x_msg_data
2280: );
2281: END IF;
2282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2283: WHEN OTHERS THEN
2284: ROLLBACK TO Remove_Empty_Groups_PVT;
2285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2286: IF (x_msg_data IS NOT NULL) THEN
2281: END IF;
2282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2283: WHEN OTHERS THEN
2284: ROLLBACK TO Remove_Empty_Groups_PVT;
2285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2286: IF (x_msg_data IS NOT NULL) THEN
2287: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Remove_Empty_Groups ';
2288: ELSE
2289: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Remove_Empty_Groups ';
2301: -- 5. Resets the default kpi incase the default is deleted
2302: -- 6. Refreshes the entries in bsc_kpi_defaults tables
2303: ************************************************************************************/
2304: PROCEDURE Delete_Analysis_Option_UI(
2305: p_commit IN VARCHAR2 := FND_API.G_FALSE
2306: ,p_Indicator IN NUMBER
2307: ,p_Analysis_Group_Id IN NUMBER := 0
2308: ,p_Option_Id IN NUMBER := 0
2309: ,p_Parent_Option_Id IN NUMBER := 0
2319: l_Bsc_AnaOpt_Rec Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type;
2320: l_Initial_Options NUMBER := 0;
2321: l_Reset_Child_Defaults BOOLEAN := FALSE;
2322: l_new_Default bsc_kpi_analysis_groups.default_value%TYPE := 0;
2323: l_commit VARCHAR2(2) := FND_API.G_FALSE;
2324: l_olddim_set_ids FND_TABLE_OF_NUMBER;
2325: l_newdim_set_ids FND_TABLE_OF_NUMBER;
2326: l_Removed_Dim_Set_Ids FND_TABLE_OF_NUMBER;
2327:
2365: IF l_Count = 0 THEN
2366: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2367: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Indicator);
2368: FND_MSG_PUB.ADD;
2369: RAISE FND_API.G_EXC_ERROR;
2370: END IF;
2371: ELSE
2372: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2373: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Indicator);
2371: ELSE
2372: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2373: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Indicator);
2374: FND_MSG_PUB.ADD;
2375: RAISE FND_API.G_EXC_ERROR;
2376: END IF;
2377: BSC_BIS_LOCKS_PUB.LOCK_KPI
2378: ( p_Kpi_Id => p_Indicator
2379: , p_time_stamp => p_time_stamp
2381: , x_return_status => x_return_status
2382: , x_msg_count => x_msg_count
2383: , x_msg_data => x_msg_data
2384: );
2385: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2387: END IF;
2388:
2389: l_Bsc_AnaOpt_Rec.Bsc_Kpi_Id := p_Indicator;
2382: , x_msg_count => x_msg_count
2383: , x_msg_data => x_msg_data
2384: );
2385: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2387: END IF;
2388:
2389: l_Bsc_AnaOpt_Rec.Bsc_Kpi_Id := p_Indicator;
2390: l_Bsc_AnaOpt_Rec.Bsc_Analysis_Group_Id := p_Analysis_Group_Id;
2427: ,x_return_status => x_return_status
2428: ,x_msg_count => x_msg_count
2429: ,x_msg_data => x_msg_data
2430: );
2431: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2433: END IF;
2434:
2435: OPEN c_imported_dims;
2428: ,x_msg_count => x_msg_count
2429: ,x_msg_data => x_msg_data
2430: );
2431: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2433: END IF;
2434:
2435: OPEN c_imported_dims;
2436: FETCH c_imported_dims BULK COLLECT INTO l_newdim_set_ids;
2451: TABLE(CAST(l_newdim_set_ids AS FND_TABLE_OF_NUMBER)) t );
2452:
2453: FOR i in 1..l_Removed_Dim_Set_Ids.COUNT LOOP
2454: BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison
2455: ( p_commit => FND_API.G_FALSE
2456: , p_Kpi_Id => p_Indicator
2457: , p_dim_set_id => l_Removed_Dim_Set_Ids(i)
2458: , x_return_status => x_return_status
2459: , x_msg_count => x_msg_count
2458: , x_return_status => x_return_status
2459: , x_msg_count => x_msg_count
2460: , x_msg_data => x_msg_data
2461: );
2462: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2464: END IF;
2465: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
2466: ( p_commit => FND_API.G_FALSE
2459: , x_msg_count => x_msg_count
2460: , x_msg_data => x_msg_data
2461: );
2462: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2464: END IF;
2465: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
2466: ( p_commit => FND_API.G_FALSE
2467: , p_kpi_id => p_Indicator
2462: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2464: END IF;
2465: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
2466: ( p_commit => FND_API.G_FALSE
2467: , p_kpi_id => p_Indicator
2468: , p_dim_set_id => l_Removed_Dim_Set_Ids(i)
2469: , x_return_status => x_return_status
2470: , x_msg_count => x_msg_count
2469: , x_return_status => x_return_status
2470: , x_msg_count => x_msg_count
2471: , x_msg_data => x_msg_data
2472: );
2473: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476: END LOOP;
2477:
2470: , x_msg_count => x_msg_count
2471: , x_msg_data => x_msg_data
2472: );
2473: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476: END LOOP;
2477:
2478:
2482: ,x_return_status => x_return_status
2483: ,x_msg_count => x_msg_count
2484: ,x_msg_data => x_msg_data
2485: );
2486: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2488: END IF;
2489:
2490: Reset_Group_Defaults (
2483: ,x_msg_count => x_msg_count
2484: ,x_msg_data => x_msg_data
2485: );
2486: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2488: END IF;
2489:
2490: Reset_Group_Defaults (
2491: p_commit => l_commit
2495: ,x_return_status => x_return_status
2496: ,x_msg_count => x_msg_count
2497: ,x_msg_data => x_msg_data
2498: );
2499: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2501: END IF;
2502:
2503: Remove_Empty_Groups (
2496: ,x_msg_count => x_msg_count
2497: ,x_msg_data => x_msg_data
2498: );
2499: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2501: END IF;
2502:
2503: Remove_Empty_Groups (
2504: p_commit => l_commit
2510: ,x_return_status => x_return_status
2511: ,x_msg_count => x_msg_count
2512: ,x_msg_data => x_msg_data
2513: );
2514: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2516: END IF;
2517:
2518: Check_UserLevel_Values(
2511: ,x_msg_count => x_msg_count
2512: ,x_msg_data => x_msg_data
2513: );
2514: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2516: END IF;
2517:
2518: Check_UserLevel_Values(
2519: p_commit => l_commit
2522: ,x_return_status => x_return_status
2523: ,x_msg_count => x_msg_count
2524: ,x_msg_data => x_msg_data
2525: );
2526: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2528: END IF;
2529:
2530: Check_Strucural_Flag_Change (
2523: ,x_msg_count => x_msg_count
2524: ,x_msg_data => x_msg_data
2525: );
2526: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2528: END IF;
2529:
2530: Check_Strucural_Flag_Change (
2531: p_commit => l_commit
2534: ,x_return_status => x_return_status
2535: ,x_msg_count => x_msg_count
2536: ,x_msg_data => x_msg_data
2537: );
2538: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2540: END IF;
2541:
2542: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator;
2535: ,x_msg_count => x_msg_count
2536: ,x_msg_data => x_msg_data
2537: );
2538: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2540: END IF;
2541:
2542: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator;
2543: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
2546: ,x_return_status => x_return_status
2547: ,x_msg_count => x_msg_count
2548: ,x_msg_data => x_msg_data
2549: );
2550: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2552: END IF;
2553:
2554: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2547: ,x_msg_count => x_msg_count
2548: ,x_msg_data => x_msg_data
2549: );
2550: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2552: END IF;
2553:
2554: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2555:
2556: FOR cd IN c_Shared_Objs LOOP
2557: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
2558: FOR i in 1..l_Removed_Dim_Set_Ids.COUNT LOOP
2559: BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison
2560: ( p_commit => FND_API.G_FALSE
2561: , p_Kpi_Id => cd.Indicator
2562: , p_dim_set_id => l_Removed_Dim_Set_Ids(i)
2563: , x_return_status => x_return_status
2564: , x_msg_count => x_msg_count
2563: , x_return_status => x_return_status
2564: , x_msg_count => x_msg_count
2565: , x_msg_data => x_msg_data
2566: );
2567: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2569: END IF;
2570: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
2571: ( p_commit => FND_API.G_FALSE
2564: , x_msg_count => x_msg_count
2565: , x_msg_data => x_msg_data
2566: );
2567: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2569: END IF;
2570: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
2571: ( p_commit => FND_API.G_FALSE
2572: , p_kpi_id => cd.Indicator
2567: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2569: END IF;
2570: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
2571: ( p_commit => FND_API.G_FALSE
2572: , p_kpi_id => cd.Indicator
2573: , p_dim_set_id => l_Removed_Dim_Set_Ids(i)
2574: , x_return_status => x_return_status
2575: , x_msg_count => x_msg_count
2574: , x_return_status => x_return_status
2575: , x_msg_count => x_msg_count
2576: , x_msg_data => x_msg_data
2577: );
2578: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2580: END IF;
2581: END LOOP;
2582: BSC_KPI_SERIES_PUB.Check_Series_Default_Props(
2575: , x_msg_count => x_msg_count
2576: , x_msg_data => x_msg_data
2577: );
2578: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2580: END IF;
2581: END LOOP;
2582: BSC_KPI_SERIES_PUB.Check_Series_Default_Props(
2583: p_commit => l_commit
2585: ,x_return_status => x_return_status
2586: ,x_msg_count => x_msg_count
2587: ,x_msg_data => x_msg_data
2588: );
2589: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2591: END IF;
2592:
2593: Reset_Group_Defaults (
2586: ,x_msg_count => x_msg_count
2587: ,x_msg_data => x_msg_data
2588: );
2589: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2591: END IF;
2592:
2593: Reset_Group_Defaults (
2594: p_commit => l_commit
2598: ,x_return_status => x_return_status
2599: ,x_msg_count => x_msg_count
2600: ,x_msg_data => x_msg_data
2601: );
2602: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2606: Remove_Empty_Groups (
2599: ,x_msg_count => x_msg_count
2600: ,x_msg_data => x_msg_data
2601: );
2602: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2606: Remove_Empty_Groups (
2607: p_commit => l_commit
2613: ,x_return_status => x_return_status
2614: ,x_msg_count => x_msg_count
2615: ,x_msg_data => x_msg_data
2616: );
2617: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2619: END IF;
2620:
2621: Check_UserLevel_Values(
2614: ,x_msg_count => x_msg_count
2615: ,x_msg_data => x_msg_data
2616: );
2617: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2619: END IF;
2620:
2621: Check_UserLevel_Values(
2622: p_commit => l_commit
2625: ,x_return_status => x_return_status
2626: ,x_msg_count => x_msg_count
2627: ,x_msg_data => x_msg_data
2628: );
2629: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2631: END IF;
2632:
2633: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
2626: ,x_msg_count => x_msg_count
2627: ,x_msg_data => x_msg_data
2628: );
2629: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2631: END IF;
2632:
2633: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
2634: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
2637: ,x_return_status => x_return_status
2638: ,x_msg_count => x_msg_count
2639: ,x_msg_data => x_msg_data
2640: );
2641: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2643: END IF;
2644:
2645: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2638: ,x_msg_count => x_msg_count
2639: ,x_msg_data => x_msg_data
2640: );
2641: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2643: END IF;
2644:
2645: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2646:
2645: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2646:
2647: END LOOP;
2648:
2649: IF FND_API.To_Boolean( p_commit ) THEN
2650: COMMIT;
2651: END IF;
2652:
2653: EXCEPTION
2650: COMMIT;
2651: END IF;
2652:
2653: EXCEPTION
2654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2655: ROLLBACK TO Delete_Analysis_Opt_UI_PVT;
2656: IF (x_msg_data IS NULL) THEN
2657: FND_MSG_PUB.Count_And_Get
2658: ( p_encoded => FND_API.G_FALSE
2654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2655: ROLLBACK TO Delete_Analysis_Opt_UI_PVT;
2656: IF (x_msg_data IS NULL) THEN
2657: FND_MSG_PUB.Count_And_Get
2658: ( p_encoded => FND_API.G_FALSE
2659: , p_count => x_msg_count
2660: , p_data => x_msg_data
2661: );
2662: END IF;
2659: , p_count => x_msg_count
2660: , p_data => x_msg_data
2661: );
2662: END IF;
2663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2664: WHEN OTHERS THEN
2665: ROLLBACK TO Delete_Analysis_Opt_UI_PVT;
2666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2667: IF (x_msg_data IS NOT NULL) THEN
2662: END IF;
2663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2664: WHEN OTHERS THEN
2665: ROLLBACK TO Delete_Analysis_Opt_UI_PVT;
2666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2667: IF (x_msg_data IS NOT NULL) THEN
2668: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Delete_Analysis_Option_UI ';
2669: ELSE
2670: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Delete_Analysis_Option_UI ';
2677: -- Type : Public
2678: ************************************************************************************/
2679:
2680: PROCEDURE Create_Analysis_Group (
2681: p_commit IN VARCHAR2 := FND_API.G_FALSE
2682: ,p_Indicator IN NUMBER
2683: ,p_Analysis_Group_Id IN NUMBER
2684: ,p_Num_Of_Options IN NUMBER
2685: ,p_Dependency_Flag IN NUMBER
2693: ) IS
2694: BEGIN
2695:
2696: SAVEPOINT Create_Analysis_Group_PVT;
2697: x_return_status := FND_API.G_RET_STS_SUCCESS;
2698: FND_MSG_PUB.Initialize;
2699:
2700: INSERT INTO bsc_kpi_analysis_groups (
2701: indicator,
2716: ,p_Default_Value
2717: ,p_Short_Name
2718: );
2719:
2720: IF FND_API.To_Boolean( p_commit ) THEN
2721: COMMIT;
2722: END IF;
2723:
2724: EXCEPTION
2723:
2724: EXCEPTION
2725: WHEN OTHERS THEN
2726: ROLLBACK TO Create_Analysis_Group_PVT;
2727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2728: IF (x_msg_data IS NOT NULL) THEN
2729: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Create_Analysis_Group ';
2730: ELSE
2731: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Create_Analysis_Group ';
2742: --
2743: ************************************************************************************/
2744:
2745: PROCEDURE Generate_Analysis_Meas_Combs (
2746: p_commit IN VARCHAR2 := FND_API.G_FALSE
2747: ,p_Indicator IN NUMBER
2748: ,p_Analysis_Option0 IN NUMBER
2749: ,p_Analysis_Option1 IN NUMBER
2750: ,p_Analysis_Option2 IN NUMBER
2759: c_ana_opt_type ana_opt_type;
2760: l_Count NUMBER := 0;
2761: l_Sql VARCHAR2(2000);
2762: l_ana_option_id bsc_kpi_analysis_options_b.option_id%TYPE;
2763: l_commit VARCHAR2(2) := FND_API.G_FALSE;
2764: l_Anal_Opt_Rec Bsc_Analysis_Option_Pub.Bsc_Option_Rec_Type;
2765: l_Generated_Row_Count NUMBER := 0;
2766:
2767: CURSOR c_Exists_Ana_Opt IS
2776: analysis_option2 = p_Analysis_Option2;
2777:
2778: BEGIN
2779: SAVEPOINT Generate_Ana_Meas_Combs_PVT;
2780: x_return_status := FND_API.G_RET_STS_SUCCESS;
2781:
2782:
2783: l_sql := 'SELECT option_id FROM bsc_kpi_analysis_options_b WHERE indicator = :1 ';
2784:
2800: ,x_return_status => x_return_status
2801: ,x_msg_count => x_msg_count
2802: ,x_msg_data => x_msg_data
2803: );
2804: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2806: END IF;
2807: END LOOP;
2808:
2801: ,x_msg_count => x_msg_count
2802: ,x_msg_data => x_msg_data
2803: );
2804: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2806: END IF;
2807: END LOOP;
2808:
2809: ELSIF p_Analysis_Option1 = -1 THEN -- Permute with Group1 Analysis Options
2830: ,x_return_status => x_return_status
2831: ,x_msg_count => x_msg_count
2832: ,x_msg_data => x_msg_data
2833: );
2834: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2836: END IF;
2837: END LOOP;
2838: IF l_Generated_Row_Count = 0 THEN -- Generate atleast with 0
2831: ,x_msg_count => x_msg_count
2832: ,x_msg_data => x_msg_data
2833: );
2834: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2836: END IF;
2837: END LOOP;
2838: IF l_Generated_Row_Count = 0 THEN -- Generate atleast with 0
2839: Generate_Analysis_Meas_Combs (
2847: ,x_return_status => x_return_status
2848: ,x_msg_count => x_msg_count
2849: ,x_msg_data => x_msg_data
2850: );
2851: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2853: END IF;
2854: END IF;
2855:
2848: ,x_msg_count => x_msg_count
2849: ,x_msg_data => x_msg_data
2850: );
2851: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2853: END IF;
2854: END IF;
2855:
2856: ELSIF p_Analysis_Option2 = -1 THEN -- Permute with Group2 Analysis Options
2885: ,x_return_status => x_return_status
2886: ,x_msg_count => x_msg_count
2887: ,x_msg_data => x_msg_data
2888: );
2889: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2891: END IF;
2892: END LOOP;
2893: IF l_Generated_Row_Count = 0 THEN
2886: ,x_msg_count => x_msg_count
2887: ,x_msg_data => x_msg_data
2888: );
2889: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2891: END IF;
2892: END LOOP;
2893: IF l_Generated_Row_Count = 0 THEN
2894: Generate_Analysis_Meas_Combs (
2902: ,x_return_status => x_return_status
2903: ,x_msg_count => x_msg_count
2904: ,x_msg_data => x_msg_data
2905: );
2906: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2908: END IF;
2909: END IF;
2910:
2903: ,x_msg_count => x_msg_count
2904: ,x_msg_data => x_msg_data
2905: );
2906: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2908: END IF;
2909: END IF;
2910:
2911: ELSE
2939: ,x_return_status => x_return_status
2940: ,x_msg_count => x_msg_count
2941: ,x_msg_data => x_msg_data
2942: );
2943: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946:
2947: END IF;
2940: ,x_msg_count => x_msg_count
2941: ,x_msg_data => x_msg_data
2942: );
2943: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946:
2947: END IF;
2948: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946:
2947: END IF;
2948: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2950: END IF;
2951: END IF;
2952:
2945: END IF;
2946:
2947: END IF;
2948: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2950: END IF;
2951: END IF;
2952:
2953: IF FND_API.To_Boolean( p_commit ) THEN
2949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2950: END IF;
2951: END IF;
2952:
2953: IF FND_API.To_Boolean( p_commit ) THEN
2954: COMMIT;
2955: END IF;
2956: EXCEPTION
2957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2953: IF FND_API.To_Boolean( p_commit ) THEN
2954: COMMIT;
2955: END IF;
2956: EXCEPTION
2957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2958: ROLLBACK TO Generate_Ana_Meas_Combs_PVT;
2959: IF (x_msg_data IS NULL) THEN
2960: FND_MSG_PUB.Count_And_Get
2961: ( p_encoded => FND_API.G_FALSE
2957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2958: ROLLBACK TO Generate_Ana_Meas_Combs_PVT;
2959: IF (x_msg_data IS NULL) THEN
2960: FND_MSG_PUB.Count_And_Get
2961: ( p_encoded => FND_API.G_FALSE
2962: , p_count => x_msg_count
2963: , p_data => x_msg_data
2964: );
2965: END IF;
2962: , p_count => x_msg_count
2963: , p_data => x_msg_data
2964: );
2965: END IF;
2966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2967: WHEN OTHERS THEN
2968: ROLLBACK TO Generate_Ana_Meas_Combs_PVT;
2969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2970: IF (x_msg_data IS NOT NULL) THEN
2965: END IF;
2966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2967: WHEN OTHERS THEN
2968: ROLLBACK TO Generate_Ana_Meas_Combs_PVT;
2969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2970: IF (x_msg_data IS NOT NULL) THEN
2971: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Generate_Analysis_Meas_Combs ';
2972: ELSE
2973: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Generate_Analysis_Meas_Combs ';
2980: -- Function :
2981: --
2982: ************************************************************************************/
2983: PROCEDURE Populate_Analysis_Meas_Combs(
2984: p_commit IN VARCHAR2 := FND_API.G_FALSE
2985: ,p_Indicator IN NUMBER
2986: ,p_Analysis_Group_Id IN NUMBER
2987: ,p_Option_Id IN NUMBER
2988: ,p_Parent_Option_Id IN NUMBER
2998: l_Analysis_Opt2 bsc_kpi_analysis_measures_b.Analysis_Option2%TYPE := 0;
2999:
3000: l_Dependency_01 bsc_kpi_analysis_groups.dependency_flag%TYPE := -1;
3001: l_Dependency_12 bsc_kpi_analysis_groups.dependency_flag%TYPE := -1;
3002: l_commit VARCHAR2(2) := FND_API.G_FALSE;
3003:
3004: CURSOR c_dep_flag(p_Ana_Grp_Id VARCHAR2) IS
3005: SELECT dependency_flag
3006: FROM
3011:
3012: BEGIN
3013:
3014: SAVEPOINT Populate_Ana_Meas_Combs_PVT;
3015: x_return_status := FND_API.G_RET_STS_SUCCESS;
3016:
3017: OPEN c_dep_flag(1);
3018: FETCH c_dep_flag INTO l_Dependency_01;
3019: CLOSE c_dep_flag;
3076: ,x_return_status => x_return_status
3077: ,x_msg_count => x_msg_count
3078: ,x_msg_data => x_msg_data
3079: );
3080: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3082: END IF;
3083:
3084: IF FND_API.To_Boolean( p_commit ) THEN
3077: ,x_msg_count => x_msg_count
3078: ,x_msg_data => x_msg_data
3079: );
3080: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3082: END IF;
3083:
3084: IF FND_API.To_Boolean( p_commit ) THEN
3085: COMMIT;
3080: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3082: END IF;
3083:
3084: IF FND_API.To_Boolean( p_commit ) THEN
3085: COMMIT;
3086: END IF;
3087: EXCEPTION
3088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3084: IF FND_API.To_Boolean( p_commit ) THEN
3085: COMMIT;
3086: END IF;
3087: EXCEPTION
3088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3089: ROLLBACK TO Populate_Ana_Meas_Combs_PVT;
3090: IF (x_msg_data IS NULL) THEN
3091: FND_MSG_PUB.Count_And_Get
3092: ( p_encoded => FND_API.G_FALSE
3088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3089: ROLLBACK TO Populate_Ana_Meas_Combs_PVT;
3090: IF (x_msg_data IS NULL) THEN
3091: FND_MSG_PUB.Count_And_Get
3092: ( p_encoded => FND_API.G_FALSE
3093: , p_count => x_msg_count
3094: , p_data => x_msg_data
3095: );
3096: END IF;
3093: , p_count => x_msg_count
3094: , p_data => x_msg_data
3095: );
3096: END IF;
3097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3098: WHEN OTHERS THEN
3099: ROLLBACK TO Populate_Ana_Meas_Combs_PVT;
3100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3101: IF (x_msg_data IS NOT NULL) THEN
3096: END IF;
3097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3098: WHEN OTHERS THEN
3099: ROLLBACK TO Populate_Ana_Meas_Combs_PVT;
3100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3101: IF (x_msg_data IS NOT NULL) THEN
3102: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Populate_Analysis_Meas_Combs ';
3103: ELSE
3104: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Populate_Analysis_Meas_Combs ';
3116: -- 3. Calls the update analysis option API to set all the properties
3117: ************************************************************************************/
3118:
3119: PROCEDURE Create_Analysis_Option_UI(
3120: p_commit IN VARCHAR2 := FND_API.G_FALSE
3121: ,p_Indicator IN NUMBER
3122: ,p_Analysis_Group_Id IN NUMBER := 0
3123: ,p_Option_Id IN NUMBER := 0
3124: ,p_Parent_Option_Id IN NUMBER := 0
3142: l_Parent_Option_Id bsc_kpi_analysis_options_b.parent_option_id%TYPE;
3143: l_GrandParent_Option_Id bsc_kpi_analysis_options_b.grandparent_option_id%TYPE;
3144: l_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
3145: l_Create_Group BOOLEAN := FALSE;
3146: l_commit VARCHAR2(2) := FND_API.G_FALSE;
3147: l_Measure_Source bsc_sys_datasets_vl.source%TYPE := 'BSC';
3148:
3149: l_temp_Parent_Id NUMBER := NULL;
3150: l_temp_GrandParent_Id NUMBER := NULL;
3172: IF l_Count = 0 THEN
3173: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3174: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Indicator);
3175: FND_MSG_PUB.ADD;
3176: RAISE FND_API.G_EXC_ERROR;
3177: END IF;
3178: ELSE
3179: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3180: FND_MESSAGE.SET_TOKEN('BSC_KPI',p_Indicator);
3178: ELSE
3179: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3180: FND_MESSAGE.SET_TOKEN('BSC_KPI',p_Indicator);
3181: FND_MSG_PUB.ADD;
3182: RAISE FND_API.G_EXC_ERROR;
3183: END IF;
3184:
3185: l_Anal_Opt_Rec.Bsc_Kpi_Id := p_Indicator;
3186: l_Anal_Opt_Rec.Bsc_Analysis_Group_Id := p_Analysis_Group_Id;
3231: , x_return_status => x_return_status
3232: , x_msg_count => x_msg_count
3233: , x_msg_data => x_msg_data
3234: );
3235: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3237: END IF;
3238: l_Create_Group := TRUE;
3239: END IF;
3232: , x_msg_count => x_msg_count
3233: , x_msg_data => x_msg_data
3234: );
3235: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3237: END IF;
3238: l_Create_Group := TRUE;
3239: END IF;
3240: END IF;
3268: ,x_return_status => x_return_status
3269: ,x_msg_count => x_msg_count
3270: ,x_msg_data => x_msg_data
3271: );
3272: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3274: END IF;
3275:
3276: -- Populate Measures
3269: ,x_msg_count => x_msg_count
3270: ,x_msg_data => x_msg_data
3271: );
3272: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3274: END IF;
3275:
3276: -- Populate Measures
3277: Populate_Analysis_Meas_Combs(
3286: ,x_return_status => x_return_status
3287: ,x_msg_count => x_msg_count
3288: ,x_msg_data => x_msg_data
3289: );
3290: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3292: END IF;
3293: --END IF;
3294:
3287: ,x_msg_count => x_msg_count
3288: ,x_msg_data => x_msg_data
3289: );
3290: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3292: END IF;
3293: --END IF;
3294:
3295: -- Update Groups Table Data
3298: ,x_return_status => x_return_status
3299: ,x_msg_count => x_msg_count
3300: ,x_msg_data => x_msg_data
3301: );
3302: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3304: END IF;
3305:
3306: FOR cd in c_shared_objs LOOP
3299: ,x_msg_count => x_msg_count
3300: ,x_msg_data => x_msg_data
3301: );
3302: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3304: END IF;
3305:
3306: FOR cd in c_shared_objs LOOP
3307: l_Anal_Opt_Rec.Bsc_Kpi_Id := cd.Indicator;
3328: ,x_return_status => x_return_status
3329: ,x_msg_count => x_msg_count
3330: ,x_msg_data => x_msg_data
3331: );
3332: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3334: END IF;
3335:
3336:
3329: ,x_msg_count => x_msg_count
3330: ,x_msg_data => x_msg_data
3331: );
3332: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3334: END IF;
3335:
3336:
3337: -- Populate Measures
3347: ,x_return_status => x_return_status
3348: ,x_msg_count => x_msg_count
3349: ,x_msg_data => x_msg_data
3350: );
3351: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3353: END IF;
3354:
3355: -- Update Groups Table Data
3348: ,x_msg_count => x_msg_count
3349: ,x_msg_data => x_msg_data
3350: );
3351: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3353: END IF;
3354:
3355: -- Update Groups Table Data
3356: Update_Analysis_Opt_Count (
3358: ,x_return_status => x_return_status
3359: ,x_msg_count => x_msg_count
3360: ,x_msg_data => x_msg_data
3361: );
3362: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3364: END IF;
3365: END LOOP;
3366: Update_Analysis_Option_UI(
3359: ,x_msg_count => x_msg_count
3360: ,x_msg_data => x_msg_data
3361: );
3362: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3364: END IF;
3365: END LOOP;
3366: Update_Analysis_Option_UI(
3367: p_Indicator => p_Indicator
3376: ,p_Option_Name => p_Option_Name
3377: ,p_Option_Help => p_Option_Help
3378: ,p_Change_Dim_Set => p_Change_Dim_Set
3379: ,p_default_calculation=> p_default_calculation
3380: ,p_Create_Flow => FND_API.G_TRUE
3381: ,p_time_stamp => p_time_stamp
3382: ,p_olddim_Dataset_map => l_olddim_Dataset_map
3383: ,x_return_status => x_return_status
3384: ,x_msg_count => x_msg_count
3383: ,x_return_status => x_return_status
3384: ,x_msg_count => x_msg_count
3385: ,x_msg_data => x_msg_data
3386: );
3387: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3389: END IF;
3390:
3391: IF FND_API.To_Boolean( p_commit ) THEN
3384: ,x_msg_count => x_msg_count
3385: ,x_msg_data => x_msg_data
3386: );
3387: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3389: END IF;
3390:
3391: IF FND_API.To_Boolean( p_commit ) THEN
3392: COMMIT;
3387: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3389: END IF;
3390:
3391: IF FND_API.To_Boolean( p_commit ) THEN
3392: COMMIT;
3393: END IF;
3394: EXCEPTION
3395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3391: IF FND_API.To_Boolean( p_commit ) THEN
3392: COMMIT;
3393: END IF;
3394: EXCEPTION
3395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3396: ROLLBACK TO Create_Analayis_OptionObjPUB;
3397: IF (x_msg_data IS NULL) THEN
3398: FND_MSG_PUB.Count_And_Get
3399: ( p_encoded => FND_API.G_FALSE
3395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3396: ROLLBACK TO Create_Analayis_OptionObjPUB;
3397: IF (x_msg_data IS NULL) THEN
3398: FND_MSG_PUB.Count_And_Get
3399: ( p_encoded => FND_API.G_FALSE
3400: , p_count => x_msg_count
3401: , p_data => x_msg_data
3402: );
3403: END IF;
3400: , p_count => x_msg_count
3401: , p_data => x_msg_data
3402: );
3403: END IF;
3404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3405: WHEN OTHERS THEN
3406: ROLLBACK TO Create_Analayis_OptionObjPUB;
3407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3408: IF (x_msg_data IS NOT NULL) THEN
3403: END IF;
3404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3405: WHEN OTHERS THEN
3406: ROLLBACK TO Create_Analayis_OptionObjPUB;
3407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3408: IF (x_msg_data IS NOT NULL) THEN
3409: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Create_Analayis_Option ';
3410: ELSE
3411: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Create_Analayis_Option ';
3481:
3482: IF p_Analysis_Group_Id = 0 AND p_Option_Id = 0 AND l_Grp_Count = 1 THEN
3483: FND_MESSAGE.SET_NAME('BSC','BSC_D_AG_AT_LEAST_ONE_AO');
3484: FND_MSG_PUB.ADD;
3485: RAISE FND_API.G_EXC_ERROR;
3486: END IF;
3487:
3488: l_Dependency01 := Get_Dependency(p_Indicator,1);
3489: l_Dependency12 := Get_Dependency(p_Indicator,2);
3505:
3506: IF (l_Next_Grp_Count > 1 AND p_Option_Id = 0) THEN
3507: FND_MESSAGE.SET_NAME('BSC','BSC_D_NOT_DELETE_AG_DEPEN');
3508: FND_MSG_PUB.ADD;
3509: RAISE FND_API.G_EXC_ERROR;
3510: END IF;
3511: END IF;
3512:
3513: Get_Parent_GrandParent_Ids(
3565: IF l_kpi_full_name IS NOT NULL THEN
3566: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_WEIGHT_ZERO ');
3567: FND_MESSAGE.SET_TOKEN('KPI_NAME', l_kpi_full_name);
3568: FND_MSG_PUB.ADD;
3569: RAISE FND_API.G_EXC_ERROR;
3570: END IF;
3571: END IF;
3572: END IF;
3573:
3571: END IF;
3572: END IF;
3573:
3574: EXCEPTION
3575: WHEN FND_API.G_EXC_ERROR THEN
3576: IF (x_msg_data IS NULL) THEN
3577: FND_MSG_PUB.Count_And_Get
3578: ( p_encoded => FND_API.G_FALSE
3579: , p_count => x_msg_count
3574: EXCEPTION
3575: WHEN FND_API.G_EXC_ERROR THEN
3576: IF (x_msg_data IS NULL) THEN
3577: FND_MSG_PUB.Count_And_Get
3578: ( p_encoded => FND_API.G_FALSE
3579: , p_count => x_msg_count
3580: , p_data => x_msg_data
3581: );
3582: END IF;
3579: , p_count => x_msg_count
3580: , p_data => x_msg_data
3581: );
3582: END IF;
3583: x_return_status := FND_API.G_RET_STS_ERROR;
3584: WHEN OTHERS THEN
3585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3586: IF (x_msg_data IS NOT NULL) THEN
3587: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Validate_Delete_Analysis_Option ';
3581: );
3582: END IF;
3583: x_return_status := FND_API.G_RET_STS_ERROR;
3584: WHEN OTHERS THEN
3585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3586: IF (x_msg_data IS NOT NULL) THEN
3587: x_msg_data := x_msg_data||' -> BSC_OBJ_ANALYSIS_OPTIONS_PUB.Validate_Delete_Analysis_Option ';
3588: ELSE
3589: x_msg_data := SQLERRM||' at BSC_OBJ_ANALYSIS_OPTIONS_PUB.Validate_Delete_Analysis_Option ';
3762:
3763: BEGIN
3764: OPEN c_Ind_BenchMark_Grp;
3765: IF c_Ind_BenchMark_Grp%ROWCOUNT > 0 THEN
3766: RETURN FND_API.G_TRUE;
3767: END IF;
3768:
3769: RETURN FND_API.G_FALSE;
3770: EXCEPTION
3765: IF c_Ind_BenchMark_Grp%ROWCOUNT > 0 THEN
3766: RETURN FND_API.G_TRUE;
3767: END IF;
3768:
3769: RETURN FND_API.G_FALSE;
3770: EXCEPTION
3771: WHEN OTHERS THEN
3772: RETURN FND_API.G_FALSE;
3773: END Check_Indicator_Plan;
3768:
3769: RETURN FND_API.G_FALSE;
3770: EXCEPTION
3771: WHEN OTHERS THEN
3772: RETURN FND_API.G_FALSE;
3773: END Check_Indicator_Plan;
3774:
3775: /************************************************************************************
3776: -- API name : Check_Series_Default_Plan
3808: indicator = p_Indicator;
3809:
3810: OPEN c_Series_Default_Plan(l_AO0_Default,l_AO1_Default,l_AO2_Default);
3811: IF c_Series_Default_Plan%ROWCOUNT > 0 THEN
3812: RETURN FND_API.G_TRUE;
3813: END IF;
3814:
3815: RETURN FND_API.G_FALSE;
3816: EXCEPTION
3811: IF c_Series_Default_Plan%ROWCOUNT > 0 THEN
3812: RETURN FND_API.G_TRUE;
3813: END IF;
3814:
3815: RETURN FND_API.G_FALSE;
3816: EXCEPTION
3817: WHEN OTHERS THEN
3818: RETURN FND_API.G_FALSE;
3819: END Check_Series_Default_Plan;
3814:
3815: RETURN FND_API.G_FALSE;
3816: EXCEPTION
3817: WHEN OTHERS THEN
3818: RETURN FND_API.G_FALSE;
3819: END Check_Series_Default_Plan;
3820:
3821: /************************************************************************************
3822: -- API name : Set_Apply_Color
3826: -- case of multibar indicator. This will mark a color
3827: -- change for the indicator
3828: ************************************************************************************/
3829: PROCEDURE Set_Apply_Color (
3830: p_commit IN VARCHAR2 := FND_API.G_FALSE
3831: ,p_Indicator IN NUMBER
3832: ,x_return_status OUT NOCOPY VARCHAR2
3833: ,x_msg_count OUT NOCOPY NUMBER
3834: ,x_msg_data OUT NOCOPY VARCHAR2
3853: l_config_type bsc_kpis_b.config_type%TYPE;
3854: l_apply_color bsc_kpis_b.apply_color_flag%TYPE;
3855: BEGIN
3856: SAVEPOINT Set_Apply_Color_PVT;
3857: x_return_status := FND_API.G_RET_STS_SUCCESS;
3858: FND_MSG_PUB.Initialize;
3859:
3860: -- As of now there is place where plan benchmark can be disabled
3861: -- So this may always return true
3858: FND_MSG_PUB.Initialize;
3859:
3860: -- As of now there is place where plan benchmark can be disabled
3861: -- So this may always return true
3862: IF FND_API.To_Boolean(Check_Indicator_Plan(p_Indicator)) THEN
3863: OPEN c_Kpi_Info;
3864: FETCH c_Kpi_Info INTO l_indicator_type,l_config_type;
3865: CLOSE c_Kpi_Info;
3866: l_apply_color := 1;
3864: FETCH c_Kpi_Info INTO l_indicator_type,l_config_type;
3865: CLOSE c_Kpi_Info;
3866: l_apply_color := 1;
3867: IF l_indicator_type = 10 THEN
3868: IF NOT FND_API.TO_Boolean(Check_Series_Default_Plan(p_Indicator)) THEN
3869: l_apply_color := 0;
3870: END IF;
3871: ELSIF l_config_type = 7 THEN
3872: /*Not Needed For Now*/
3883: ,x_newflag => BSC_DESIGNER_PVT.G_ActionFlag.GAA_Color
3884: );
3885: END LOOP;
3886:
3887: IF FND_API.To_Boolean( p_commit ) THEN
3888: COMMIT;
3889: END IF;
3890: EXCEPTION
3891: WHEN OTHERS THEN
3889: END IF;
3890: EXCEPTION
3891: WHEN OTHERS THEN
3892: ROLLBACK TO Set_Apply_Color_PVT;
3893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3894: IF (x_msg_data IS NOT NULL) THEN
3895: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Set_Apply_Color';
3896: ELSE
3897: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Set_Apply_Color ';