[Home] [Help]
1: PACKAGE BODY BSC_BIS_KPI_MEAS_PUB AS
2: /* $Header: BSCKPMDB.pls 120.15 2007/06/08 08:48:59 akoduri ship $ */
3: /*
4: REM +=======================================================================+
5: REM | Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA |
102: TYPE Dim_Index_Table_Type IS TABLE OF Dim_Index_Type INDEX BY BINARY_INTEGER;
103:
104: /*******************************************************************/
105: FUNCTION Is_Time_In_Dim_Object
106: ( p_DimObj_ViewBy_Tbl IN BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type
107: , p_dim_obj_name IN VARCHAR2
108: )RETURN BOOLEAN;
109: /***********************************************************************/
110: FUNCTION Is_View_By
108: )RETURN BOOLEAN;
109: /***********************************************************************/
110: FUNCTION Is_View_By
111: (
112: p_DimObj_ViewBy_Tbl IN BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type
113: , p_dim_obj_name IN VARCHAR2
114: )RETURN BOOLEAN;
115: /*******************************************************************/
116: FUNCTION Is_Time_With_Measure
113: , p_dim_obj_name IN VARCHAR2
114: )RETURN BOOLEAN;
115: /*******************************************************************/
116: FUNCTION Is_Time_With_Measure
117: ( p_DimObj_ViewBy_Tbl IN BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type
118: , x_return_status OUT NOCOPY VARCHAR2
119: , x_msg_count OUT NOCOPY NUMBER
120: , x_msg_data OUT NOCOPY VARCHAR2
121: )RETURN BOOLEAN;
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236: WHEN NO_DATA_FOUND THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF (x_msg_data IS NOT NULL) THEN
239: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
240: ELSE
241: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
242: END IF;
243: WHEN OTHERS THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF (x_msg_data IS NOT NULL) THEN
239: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
240: ELSE
241: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
242: END IF;
243: WHEN OTHERS THEN
244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
245: IF (x_msg_data IS NOT NULL) THEN
242: END IF;
243: WHEN OTHERS THEN
244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
245: IF (x_msg_data IS NOT NULL) THEN
246: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
247: ELSE
248: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
249: END IF;
250: END Set_Key_Item_Value;
244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
245: IF (x_msg_data IS NOT NULL) THEN
246: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
247: ELSE
248: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Set_Key_Item_Value ';
249: END IF;
250: END Set_Key_Item_Value;
251:
252:
284: l_Count NUMBER := -1;
285: BEGIN
286: FND_MSG_PUB.Initialize;
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids Procedure');
289: x_Parent_Option_ID := p_Parent_Option_ID;
290: x_GrandParent_Option_ID := p_GrandParent_Option_ID;
291:
292: IF (x_Parent_Option_ID IS NULL) THEN
342: FND_MESSAGE.SET_TOKEN('ANLSIS_OPT3', p_GrandParent_Option_ID);
343: FND_MSG_PUB.ADD;
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_Default_Viewby_For_Measure Procedure');
347: EXCEPTION
348: WHEN FND_API.G_EXC_ERROR THEN
349: IF (x_msg_data IS NULL) THEN
350: FND_MSG_PUB.Count_And_Get
357: x_return_status := FND_API.G_RET_STS_ERROR;
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF (x_msg_data IS NOT NULL) THEN
361: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids ';
362: ELSE
363: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids ';
364: END IF;
365: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF (x_msg_data IS NOT NULL) THEN
361: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids ';
362: ELSE
363: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids ';
364: END IF;
365: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
366: END Get_Valid_Analysis_Option_Ids;
367: /************************************************************************************/
403: FROM BSC_KPIS_B
404: WHERE Source_Indicator = p_kpi_id
405: AND Prototype_Flag <> 2;
406: BEGIN
407: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object procedure');
408: SAVEPOINT CreateBSCDefDimObjectsPMD;
409:
410: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
411: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
415: WHERE Indicator = l_bsc_dimset_rec.Bsc_Kpi_Id
416: AND Dim_Set_Id = l_bsc_dimset_rec.Bsc_Dim_Set_Id;
417: IF (l_Count = 0) THEN
418: -- Bug #3343860 if l_Count = 0, it means create default entry in BSC_KPI_DIM_LEVELS_B
419: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
420: ( p_commit => FND_API.G_FALSE
421: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
422: , p_dim_set_id => l_bsc_dimset_rec.Bsc_Dim_Set_Id
423: , p_dim_short_names => NULL
425: , x_msg_count => x_msg_count
426: , x_msg_data => x_msg_data
427: );
428: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
429: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
431: END IF;
432: --repeat the same steps for all the shared indicators
433: FOR cd IN c_kpi_ids LOOP
431: END IF;
432: --repeat the same steps for all the shared indicators
433: FOR cd IN c_kpi_ids LOOP
434: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
435: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
436: ( p_commit => FND_API.G_FALSE
437: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
438: , p_dim_set_id => l_bsc_dimset_rec.Bsc_Dim_Set_Id
439: , p_dim_short_names => NULL
441: , x_msg_count => x_msg_count
442: , x_msg_data => x_msg_data
443: );
444: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
445: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
447: END IF;
448: END LOOP;
449: END IF;
451: COMMIT;
452: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
453: END IF;
454: x_return_status := FND_API.G_RET_STS_SUCCESS;
455: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object procedure');
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: ROLLBACK TO CreateBSCDefDimObjectsPMD;
459: IF (x_msg_data IS NULL) THEN
479: WHEN NO_DATA_FOUND THEN
480: ROLLBACK TO CreateBSCDefDimObjectsPMD;
481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
482: IF (x_msg_data IS NOT NULL) THEN
483: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
484: ELSE
485: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
486: END IF;
487: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
482: IF (x_msg_data IS NOT NULL) THEN
483: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
484: ELSE
485: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
486: END IF;
487: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
488: WHEN OTHERS THEN
489: ROLLBACK TO CreateBSCDefDimObjectsPMD;
488: WHEN OTHERS THEN
489: ROLLBACK TO CreateBSCDefDimObjectsPMD;
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: IF (x_msg_data IS NOT NULL) THEN
492: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
493: ELSE
494: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
495: END IF;
496: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: IF (x_msg_data IS NOT NULL) THEN
492: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
493: ELSE
494: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object ';
495: END IF;
496: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
497: END Create_Default_Kpi_Dim_Object;
498: /*******************************************************************/
512: FROM BSC_KPIS_B
513: WHERE Source_Indicator = p_kpi_id
514: AND Prototype_Flag <> 2;
515: BEGIN
516: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object procedure');
517: SAVEPOINT CreateBSCDefDimObjectsPMD;
518:
519: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
520: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
527: , x_msg_count => x_msg_count
528: , x_msg_data => x_msg_data
529: );
530: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
531: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Group_In_Dset');
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
533: END IF;
534:
535: --repeat the same steps for all the shared indicators
542: , x_msg_count => x_msg_count
543: , x_msg_data => x_msg_data
544: );
545: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
546: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: END IF;
549: END LOOP;
550: IF (p_commit = FND_API.G_TRUE) THEN
551: COMMIT;
552: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
553: END IF;
554: x_return_status := FND_API.G_RET_STS_SUCCESS;
555: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object procedure');
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: ROLLBACK TO CreateBSCDefDimObjectsPMD;
559: IF (x_msg_data IS NULL) THEN
579: WHEN NO_DATA_FOUND THEN
580: ROLLBACK TO CreateBSCDefDimObjectsPMD;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: IF (x_msg_data IS NOT NULL) THEN
583: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
584: ELSE
585: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
586: END IF;
587: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: IF (x_msg_data IS NOT NULL) THEN
583: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
584: ELSE
585: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
586: END IF;
587: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
588: WHEN OTHERS THEN
589: ROLLBACK TO CreateBSCDefDimObjectsPMD;
588: WHEN OTHERS THEN
589: ROLLBACK TO CreateBSCDefDimObjectsPMD;
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: IF (x_msg_data IS NOT NULL) THEN
592: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
593: ELSE
594: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
595: END IF;
596: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: IF (x_msg_data IS NOT NULL) THEN
592: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
593: ELSE
594: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object ';
595: END IF;
596: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
597: END Delete_Default_Kpi_Dim_Object;
598: /*******************************************************************
618: l_flag BOOLEAN;
619: l_refresh BOOLEAN := FALSE;
620: l_assigns VARCHAR2(32000);
621: l_assign BSC_SYS_DIM_GROUPS_TL.Short_Name%TYPE;
622: l_MTab_DimInx_Old BSC_BIS_KPI_MEAS_PUB.Dim_Index_Table_Type;
623: l_MTab_DimInx_New BSC_BIS_KPI_MEAS_PUB.Dim_Index_Table_Type;
624: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
625:
626: CURSOR c_dim_index IS
619: l_refresh BOOLEAN := FALSE;
620: l_assigns VARCHAR2(32000);
621: l_assign BSC_SYS_DIM_GROUPS_TL.Short_Name%TYPE;
622: l_MTab_DimInx_Old BSC_BIS_KPI_MEAS_PUB.Dim_Index_Table_Type;
623: l_MTab_DimInx_New BSC_BIS_KPI_MEAS_PUB.Dim_Index_Table_Type;
624: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
625:
626: CURSOR c_dim_index IS
627: SELECT A.Dim_Group_Id
641: WHERE Source_Indicator = p_kpi_id
642: AND Prototype_Flag <> 2;
643: BEGIN
644: SAVEPOINT OrderBSCDimsInDSetPMD;
645: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets procedure');
646: FND_MSG_PUB.Initialize;
647: x_return_status := FND_API.G_RET_STS_SUCCESS;
648: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
649: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
687: , x_msg_count => x_msg_count
688: , x_msg_data => x_msg_data
689: );
690: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
691: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694: --for shared KPIs
695: FOR cd IN c_kpi_ids LOOP
702: , x_msg_count => x_msg_count
703: , x_msg_data => x_msg_data
704: );
705: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
706: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709: END LOOP;
710: END IF;
728: , x_msg_count => x_msg_count
729: , x_msg_data => x_msg_data
730: );
731: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
732: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
734: END IF;
735: --for shared KPIs
736: FOR cd IN c_kpi_ids LOOP
743: , x_msg_count => x_msg_count
744: , x_msg_data => x_msg_data
745: );
746: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
747: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
749: END IF;
750: END LOOP;
751: END IF;
754: l_tab_index := l_tab_index + 1;
755: END LOOP;
756: IF ((p_kpi_flag_change) OR (l_refresh)) THEN
757: --dbms_output.PUT_LINE('p_kpi_flag_change is TRUE, it means flag structural changes also');
758: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet
759: ( p_commit => FND_API.G_FALSE
760: , p_kpi_id => p_kpi_id
761: , p_dim_set_id => p_dim_set_id
762: , p_delete => TRUE
764: , x_msg_count => x_msg_count
765: , x_msg_data => x_msg_data
766: );
767: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
768: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet');
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: END IF;
771: /* ELSIF (l_refresh) THEN
772: --dbms_output.PUT_LINE('Refresh is TRUE');
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: END IF;
771: /* ELSIF (l_refresh) THEN
772: --dbms_output.PUT_LINE('Refresh is TRUE');
773: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet
774: ( p_commit => FND_API.G_FALSE
775: , p_kpi_id => p_kpi_id
776: , p_dim_set_id => p_dim_set_id
777: , p_kpi_flag_change => BSC_DESIGNER_PVT.G_ActionFlag.Normal
780: , x_msg_count => x_msg_count
781: , x_msg_data => x_msg_data
782: );
783: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
784: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet');
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: END IF; */
787: END IF;
788: IF (p_commit = FND_API.G_TRUE) THEN
789: COMMIT;
790: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
791: END IF;
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
793: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets procedure');
794: EXCEPTION
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO OrderBSCDimsInDSetPMD;
797: IF (x_msg_data IS NULL) THEN
817: WHEN NO_DATA_FOUND THEN
818: ROLLBACK TO OrderBSCDimsInDSetPMD;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: IF (x_msg_data IS NOT NULL) THEN
821: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
822: ELSE
823: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
824: END IF;
825: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: IF (x_msg_data IS NOT NULL) THEN
821: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
822: ELSE
823: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
824: END IF;
825: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
826: WHEN OTHERS THEN
827: ROLLBACK TO OrderBSCDimsInDSetPMD;
826: WHEN OTHERS THEN
827: ROLLBACK TO OrderBSCDimsInDSetPMD;
828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
829: IF (x_msg_data IS NOT NULL) THEN
830: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
831: ELSE
832: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
833: END IF;
834: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
829: IF (x_msg_data IS NOT NULL) THEN
830: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
831: ELSE
832: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets ';
833: END IF;
834: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
835: END Order_Dims_In_DSets;
836:
918: from the table fetched from get_DimObj_ViewBy_Tbl API
919: this is called from both create and update KPI Analysis options
920: *******************************************************************/
921: PROCEDURE Get_Default_Viewby_For_Measure
922: ( p_DimObj_ViewBy_Tbl IN BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type
923: , x_dim_objects OUT NOCOPY VARCHAR
924: , x_defaults OUT NOCOPY VARCHAR
925: , x_view_bys OUT NOCOPY VARCHAR
926: , x_return_status OUT NOCOPY VARCHAR2
929: )IS
930: l_default_level_set BOOLEAN := FALSE;
931: l_default VARCHAR2(100);
932: l_view_by VARCHAR2(100);
933: l_DimObj_ViewBy_Tbl BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type;
934: BEGIN
935: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Get_Default_Viewby_For_Measure Procedure');
936: l_DimObj_ViewBy_Tbl := p_DimObj_ViewBy_Tbl;
937:
931: l_default VARCHAR2(100);
932: l_view_by VARCHAR2(100);
933: l_DimObj_ViewBy_Tbl BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type;
934: BEGIN
935: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Get_Default_Viewby_For_Measure Procedure');
936: l_DimObj_ViewBy_Tbl := p_DimObj_ViewBy_Tbl;
937:
938: FOR i IN 0..(p_DimObj_ViewBy_Tbl.COUNT-1) LOOP
939: IF (x_dim_objects IS NULL) THEN -- bug 4036171 fix the way to contruct x_dim_objects
964: END IF;
965: END LOOP;
966: END LOOP;
967: --dbms_output.PUT_LINE('*** l_view_by <'||x_view_bys||'>');
968: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_Default_Viewby_For_Measure Procedure');
969: EXCEPTION
970: WHEN OTHERS THEN
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: IF (x_msg_data IS NOT NULL) THEN
969: EXCEPTION
970: WHEN OTHERS THEN
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: IF (x_msg_data IS NOT NULL) THEN
973: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure ';
974: ELSE
975: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure ';
976: END IF;
977: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: IF (x_msg_data IS NOT NULL) THEN
973: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure ';
974: ELSE
975: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure ';
976: END IF;
977: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
978: END Get_Default_Viewby_For_Measure;
979:
985: BEGIN
986: -- TIME_COMPARISON_TYPE is special dimension
987: -- if dimension is null then the parameter is AS_OF_DATE
988: -- we should not be returning these in the PMV table, as we do not have this in the table
989: IF ((p_dimension IS NULL) OR (UPPER(TRIM(p_dimension)) = BSC_BIS_KPI_MEAS_PUB.Time_Comp_Type)) THEN
990: RETURN TRUE;
991: ELSE
992: RETURN FALSE;
993: END IF;
997:
998: PROCEDURE get_DimObj_ViewBy_Tbl
999: ( p_Measure_Short_Name IN VARCHAR2
1000: , p_Region_Code IN VARCHAR2
1001: , x_DimObj_ViewBy_Tbl OUT NOCOPY BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type
1002: , x_return_status OUT NOCOPY VARCHAR2
1003: , x_msg_count OUT NOCOPY NUMBER
1004: , x_msg_data OUT NOCOPY VARCHAR2
1005: ) IS
1012: l_dimension VARCHAR2(100);
1013: l_dim_object VARCHAR2(100);
1014: l_flag BOOLEAN;
1015: BEGIN
1016: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl Procedure');
1017: FND_MSG_PUB.Initialize;
1018: x_return_status := FND_API.G_RET_STS_SUCCESS;
1019: l_Region_Code := p_Region_Code;
1020: IF (p_Region_Code IS NULL) THEN
1023: , x_function_name => l_function_code
1024: , x_region_code => l_Region_Code
1025: );
1026: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1027: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.get_Dimensions_In_Meas Failed: at BSC_JV_PMF.get_Pmf_Measure');
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1030: END IF;
1031: BIS_PMV_BSC_API_PUB.Get_Dimlevel_Viewby
1037: , x_msg_count => x_msg_count
1038: , x_msg_data => x_msg_data
1039: );
1040: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1041: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl Failed: at BIS_PMV_BSC_API_PUB.Get_Dimlevel_Viewby');
1042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1043: END IF;
1044: FOR i IN 1..l_DimObj_ViewBy_Tbl.COUNT LOOP
1045: l_flag := TRUE;
1044: FOR i IN 1..l_DimObj_ViewBy_Tbl.COUNT LOOP
1045: l_flag := TRUE;
1046: l_dimension := TRIM(SUBSTR(l_DimObj_ViewBy_Tbl(i).Dim_DimLevel, 1, (INSTR(l_DimObj_ViewBy_Tbl(i).Dim_DimLevel, '+') - 1)));
1047:
1048: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Abstract_Pmv_Dimension(l_dimension)) THEN
1049: l_table_index := 0;
1050: WHILE ( l_table_index < x_DimObj_ViewBy_Tbl.COUNT) LOOP
1051: IF (l_dimension = x_DimObj_ViewBy_Tbl(l_table_index).p_Dimension_Name) THEN
1052: l_flag := FALSE;
1097: ELSE
1098: --dbms_output.PUT_LINE('x_DimObj_ViewBy_Tbl('||i||').p_Is_Time_There FALSE');
1099: END IF;
1100: END LOOP;*/
1101: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl Procedure');
1102: EXCEPTION
1103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1104: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1105: IF (x_msg_data IS NULL) THEN
1113: WHEN OTHERS THEN
1114: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1116: IF (x_msg_data IS NOT NULL) THEN
1117: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl ';
1118: ELSE
1119: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl ';
1120: END IF;
1121: END get_DimObj_ViewBy_Tbl;
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1116: IF (x_msg_data IS NOT NULL) THEN
1117: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl ';
1118: ELSE
1119: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl ';
1120: END IF;
1121: END get_DimObj_ViewBy_Tbl;
1122: /*******************************************************************/
1123: FUNCTION get_Next_Alias
1173: AND C.Dim_Level_ID = B.Dim_Level_ID
1174: AND A.Short_Name <> BSC_BIS_DIMENSION_PUB.Unassigned_Dim
1175: AND A.Dim_Group_ID = l_dimension_id;
1176: BEGIN
1177: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison procedure');
1178: FND_MSG_PUB.Initialize;
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180: IF (p_dim_set_id IS NOT NULL) THEN
1181: --dbms_output.PUT_LINE('dim set id is not NULL should not be here ..... ');
1208: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Failed');
1209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1210: END IF;
1211: -- END Granular Locking
1212: BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set
1213: ( p_commit => FND_API.G_FALSE
1214: , p_kpi_id => p_Kpi_Id
1215: , p_dim_set_id => p_dim_set_id
1216: , p_dim_short_names => l_temp_var
1219: , x_msg_count => x_msg_count
1220: , x_msg_data => x_msg_data
1221: );
1222: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1223: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set');
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226: --now delete the dimension from system level, ie from BSC_SYS_DIM_GROUPS_TL table
1227: BSC_BIS_DIMENSION_PUB.Delete_Dimension
1231: , x_msg_count => x_msg_count
1232: , x_msg_data => x_msg_data
1233: );
1234: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1235: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_DIMENSION_PUB.Delete_Dimension');
1236: x_return_status := FND_API.G_RET_STS_SUCCESS;
1237: x_msg_data := NULL;
1238: END IF;
1239: END IF;
1243: COMMIT;
1244: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1245: END IF;
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1247: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison procedure');
1248: EXCEPTION
1249: WHEN FND_API.G_EXC_ERROR THEN
1250: IF (x_msg_data IS NULL) THEN
1251: FND_MSG_PUB.Count_And_Get
1268: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1269: WHEN NO_DATA_FOUND THEN
1270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1271: IF (x_msg_data IS NOT NULL) THEN
1272: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1273: ELSE
1274: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1275: END IF;
1276: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1271: IF (x_msg_data IS NOT NULL) THEN
1272: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1273: ELSE
1274: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1275: END IF;
1276: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1277: WHEN OTHERS THEN
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1276: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1277: WHEN OTHERS THEN
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279: IF (x_msg_data IS NOT NULL) THEN
1280: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1281: ELSE
1282: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1283: END IF;
1284: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279: IF (x_msg_data IS NOT NULL) THEN
1280: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1281: ELSE
1282: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison ';
1283: END IF;
1284: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1285: END Remove_Unused_PMF_Dimenison;
1286:
1301: , x_return_status OUT NOCOPY VARCHAR2
1302: , x_msg_count OUT NOCOPY NUMBER
1303: , x_msg_data OUT NOCOPY VARCHAR2
1304: ) IS
1305: l_DimObj_ViewBy_Tbl BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type;
1306: l_flag BOOLEAN;
1307: l_temp_var VARCHAR2(32000);
1308: l_dim_obj_name BSC_SYS_DIM_LEVELS_B.Short_Name%TYPE;
1309: BEGIN
1306: l_flag BOOLEAN;
1307: l_temp_var VARCHAR2(32000);
1308: l_dim_obj_name BSC_SYS_DIM_LEVELS_B.Short_Name%TYPE;
1309: BEGIN
1310: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults procedure');
1311: FND_MSG_PUB.Initialize;
1312: x_return_status := FND_API.G_RET_STS_SUCCESS;
1313: x_dim_obj_short_names := p_dim_obj_short_names;
1314: x_default_short_names := p_default_short_names;
1325: , BSC_SYS_DATASETS_VL
1326: WHERE MEASURE_ID = MEASURE_ID1
1327: AND DATASET_ID = p_data_set_id;
1328: END IF;
1329: BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl
1330: ( p_Measure_Short_Name => x_measure_short_name
1331: , p_Region_Code => NULL
1332: , x_DimObj_ViewBy_Tbl => l_DimObj_ViewBy_Tbl
1333: , x_return_status => x_return_status
1335: , x_msg_data => x_msg_data
1336: );
1337: --dbms_output.PUT_LINE(' fetched the PMV table .....!');
1338: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1339: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
1340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1341: END IF;
1342: IF (x_dim_obj_short_names IS NULL) THEN
1343: BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure
1339: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
1340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1341: END IF;
1342: IF (x_dim_obj_short_names IS NULL) THEN
1343: BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure
1344: ( p_DimObj_ViewBy_Tbl => l_DimObj_ViewBy_Tbl
1345: , x_dim_objects => x_dim_obj_short_names
1346: , x_defaults => x_default_short_names
1347: , x_view_bys => x_view_by_name
1352: --dbms_output.PUT_LINE(' fetched the default and view by .....!');
1353: --dbms_output.PUT_LINE('-* Defaults *- '||x_default_short_names);
1354: --dbms_output.PUT_LINE('-* view by *- '||x_view_by_name);
1355: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1356: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_Default_ViewBy_For_Measure');
1357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1358: END IF;
1359: END IF;
1360: IF (x_view_by_name IS NULL) THEN
1364: l_temp_var := x_default_short_names;
1365: WHILE (is_more( p_dim_short_names => l_temp_var
1366: , p_dim_short_name => l_dim_obj_name)
1367: )LOOP
1368: IF (BSC_BIS_KPI_MEAS_PUB.is_View_By(l_DimObj_ViewBy_Tbl, l_dim_obj_name)) THEN
1369: l_flag := TRUE;
1370: x_view_by_name := l_dim_obj_name;
1371: EXIT WHEN l_flag;
1372: END IF;
1377: WHILE (is_more( p_dim_short_names => l_temp_var
1378: , p_dim_short_name => l_dim_obj_name)
1379: )LOOP
1380: --dbms_output.PUT_LINE('l_dim_obj_name '||l_dim_obj_name);
1381: IF (BSC_BIS_KPI_MEAS_PUB.is_View_By(l_DimObj_ViewBy_Tbl, l_dim_obj_name)) THEN
1382: --dbms_output.PUT_LINE('SETTING VIEW BY');
1383: l_flag := TRUE;
1384: x_view_by_name := l_dim_obj_name;
1385: EXIT WHEN l_flag;
1410: , BSC_SYS_DATASETS_VL
1411: WHERE MEASURE_ID = MEASURE_ID1
1412: AND DATASET_ID = p_data_set_id;
1413: END IF;
1414: l_flag := BSC_BIS_KPI_MEAS_PUB.is_Time_With_Measure
1415: ( p_DimObj_ViewBy_Tbl => l_DimObj_ViewBy_Tbl
1416: , x_return_status => x_return_status
1417: , x_msg_count => x_msg_count
1418: , x_msg_data => x_msg_data
1417: , x_msg_count => x_msg_count
1418: , x_msg_data => x_msg_data
1419: );
1420: IF (l_flag) THEN
1421: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Time_In_Dim_Object(l_DimObj_ViewBy_Tbl, x_view_by_name)) THEN
1422: l_flag := FALSE;
1423: IF (x_default_short_names IS NOT NULL) THEN
1424: l_temp_var := x_default_short_names;
1425: WHILE (is_more( p_dim_short_names => l_temp_var
1424: l_temp_var := x_default_short_names;
1425: WHILE (is_more( p_dim_short_names => l_temp_var
1426: , p_dim_short_name => l_dim_obj_name)
1427: )LOOP
1428: IF (BSC_BIS_KPI_MEAS_PUB.is_Time_In_Dim_Object(l_DimObj_ViewBy_Tbl, l_dim_obj_name)) THEN
1429: l_flag := TRUE;
1430: EXIT WHEN l_flag;
1431: END IF;
1432: END LOOP;
1434: l_temp_var := x_dim_obj_short_names;
1435: WHILE (is_more( p_dim_short_names => l_temp_var
1436: , p_dim_short_name => l_dim_obj_name)
1437: )LOOP
1438: IF(BSC_BIS_KPI_MEAS_PUB.is_Time_In_Dim_Object(l_DimObj_ViewBy_Tbl, l_dim_obj_name)) THEN
1439: l_flag := TRUE;
1440: x_default_short_names := l_dim_obj_name;
1441: EXIT WHEN l_flag;
1442: END IF;
1471: COMMIT;
1472: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1473: END IF;
1474: x_return_status := FND_API.G_RET_STS_SUCCESS;
1475: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults procedure');
1476: EXCEPTION
1477: WHEN FND_API.G_EXC_ERROR THEN
1478: IF (x_msg_data IS NULL) THEN
1479: FND_MSG_PUB.Count_And_Get
1496: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1497: WHEN NO_DATA_FOUND THEN
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499: IF (x_msg_data IS NOT NULL) THEN
1500: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1501: ELSE
1502: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1503: END IF;
1504: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499: IF (x_msg_data IS NOT NULL) THEN
1500: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1501: ELSE
1502: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1503: END IF;
1504: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1505: WHEN OTHERS THEN
1506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1504: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1505: WHEN OTHERS THEN
1506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1507: IF (x_msg_data IS NOT NULL) THEN
1508: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1509: ELSE
1510: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1511: END IF;
1512: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1507: IF (x_msg_data IS NOT NULL) THEN
1508: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1509: ELSE
1510: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
1511: END IF;
1512: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1513: END Get_PMF_Defaults;
1514: /*********************************************************************************
1539: BEGIN
1540: FND_MSG_PUB.Initialize;
1541: x_return_status := FND_API.G_RET_STS_SUCCESS;
1542: SAVEPOINT CreateBSCDimSetPMD;
1543: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure');
1544: IF (p_kpi_id IS NULL) THEN
1545: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1546: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1547: FND_MSG_PUB.ADD;
1606: , x_msg_count => x_msg_count
1607: , x_msg_data => x_msg_data
1608: );
1609: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1610: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_BIS_LOCKS_PUB.LOCK_KPI');
1611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1612: END IF;
1613: -- END Granular Locking
1614: BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl--INSERT INTO BSC_KPI_DIM_SETS_TL
1618: , x_msg_count => x_msg_count
1619: , x_msg_data => x_msg_data
1620: );
1621: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1622: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1626: ( p_commit => FND_API.G_FALSE
1621: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1622: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1626: ( p_commit => FND_API.G_FALSE
1627: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
1628: , p_dim_set_id => l_bsc_dimset_rec.bsc_dim_set_id
1629: , p_dim_short_names => p_dim_short_names
1631: , x_msg_count => x_msg_count
1632: , x_msg_data => x_msg_data
1633: );
1634: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1635: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1637: END IF;
1638: -- START: Granular Locking, Change time stamp of Dim Set & KPI
1639: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
1661: , x_msg_count => x_msg_count
1662: , x_msg_data => x_msg_data
1663: );
1664: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1665: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_BIS_LOCKS_PUB.LOCK_KPI');
1666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1667: END IF;
1668:
1669: SELECT NVL(MAX(dim_set_id) + 1, 0)
1677: , x_msg_count => x_msg_count
1678: , x_msg_data => x_msg_data
1679: );
1680: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1681: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1685: ( p_commit => FND_API.G_FALSE
1680: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1681: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1685: ( p_commit => FND_API.G_FALSE
1686: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
1687: , p_dim_set_id => l_bsc_dimset_rec.bsc_dim_set_id
1688: , p_dim_short_names => p_dim_short_names
1690: , x_msg_count => x_msg_count
1691: , x_msg_data => x_msg_data
1692: );
1693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1694: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1697: -- START: Granular Locking, Change time stamp of Dim Set & KPI
1698: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
1724: , x_msg_count => x_msg_count
1725: , x_msg_data => x_msg_data
1726: );
1727: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1728: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure Failed:at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
1729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1730: END IF;
1731:
1732: /********************************************************
1766: COMMIT;
1767: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1768: END IF;
1769: x_return_status := FND_API.G_RET_STS_SUCCESS;
1770: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure');
1771: EXCEPTION
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: ROLLBACK TO CreateBSCDimSetPMD;
1774: IF (x_msg_data IS NULL) THEN
1794: WHEN NO_DATA_FOUND THEN
1795: ROLLBACK TO CreateBSCDimSetPMD;
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1797: IF (x_msg_data IS NOT NULL) THEN
1798: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1799: ELSE
1800: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1801: END IF;
1802: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1797: IF (x_msg_data IS NOT NULL) THEN
1798: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1799: ELSE
1800: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1801: END IF;
1802: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1803: WHEN OTHERS THEN
1804: ROLLBACK TO CreateBSCDimSetPMD;
1803: WHEN OTHERS THEN
1804: ROLLBACK TO CreateBSCDimSetPMD;
1805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1806: IF (x_msg_data IS NOT NULL) THEN
1807: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1808: ELSE
1809: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1810: END IF;
1811: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1806: IF (x_msg_data IS NOT NULL) THEN
1807: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1808: ELSE
1809: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set ';
1810: END IF;
1811: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1812: END Create_Dim_Set;
1813: /*********************************************************************************
1831: l_kpi_name VARCHAR2(32000);
1832: BEGIN
1833: FND_MSG_PUB.Initialize;
1834: x_return_status := FND_API.G_RET_STS_SUCCESS;
1835: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1836: IF (p_kpi_id IS NULL) THEN
1837: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1838: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1839: FND_MSG_PUB.ADD;
1853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1854: END IF;
1855:
1856:
1857: BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set
1858: ( p_commit => FND_API.G_FALSE
1859: , p_kpi_id => p_kpi_id
1860: , p_dim_set_id => p_dim_set_id
1861: , p_display_name => p_display_name
1864: , x_msg_count => x_msg_count
1865: , x_msg_data => x_msg_data
1866: );
1867: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1868: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set');
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: END IF;
1871: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions
1872: ( p_commit => FND_API.G_FALSE
1867: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1868: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set');
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: END IF;
1871: BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions
1872: ( p_commit => FND_API.G_FALSE
1873: , p_kpi_id => p_kpi_id
1874: , p_dim_set_id => p_dim_set_id
1875: , p_assign_dim_names => p_assign_dim_names
1879: , x_msg_count => x_msg_count
1880: , x_msg_data => x_msg_data
1881: );
1882: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1883: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Assign_Unassign_Dimensions <'||x_msg_data||'>');
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886:
1887: /********************************************************
1922: COMMIT;
1923: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
1924: END IF;
1925: x_return_status := FND_API.G_RET_STS_SUCCESS;
1926: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1927: EXCEPTION
1928: WHEN FND_API.G_EXC_ERROR THEN
1929: IF (x_msg_data IS NULL) THEN
1930: FND_MSG_PUB.Count_And_Get
1947: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1948: WHEN NO_DATA_FOUND THEN
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: IF (x_msg_data IS NOT NULL) THEN
1951: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1952: ELSE
1953: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1954: END IF;
1955: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1950: IF (x_msg_data IS NOT NULL) THEN
1951: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1952: ELSE
1953: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1954: END IF;
1955: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1956: WHEN OTHERS THEN
1957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1955: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1956: WHEN OTHERS THEN
1957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1958: IF (x_msg_data IS NOT NULL) THEN
1959: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1960: ELSE
1961: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1962: END IF;
1963: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1958: IF (x_msg_data IS NOT NULL) THEN
1959: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1960: ELSE
1961: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
1962: END IF;
1963: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1964: END Update_Dim_Set;
1965:
1987: FROM BSC_KPI_DIM_GROUPS
1988: WHERE dim_set_id = p_dim_set_id
1989: AND indicator = p_kpi_id);
1990: BEGIN
1991: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1992: FND_MSG_PUB.Initialize;
1993: x_return_status := FND_API.G_RET_STS_SUCCESS;
1994: IF (p_kpi_id IS NULL) THEN
1995: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2043: END IF;
2044:
2045:
2046: BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set
2047: ( p_commit => FND_API.G_FALSE
2048: , p_kpi_id => p_kpi_id
2049: , p_dim_set_id => p_dim_set_id
2050: , p_display_name => p_display_name
2055: , x_msg_count => x_msg_count
2056: , x_msg_data => x_msg_data
2057: );
2058: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2059: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set <'||x_msg_data||'>');
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2062: IF (p_commit = FND_API.G_TRUE) THEN
2063: COMMIT;
2063: COMMIT;
2064: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2065: END IF;
2066: x_return_status := FND_API.G_RET_STS_SUCCESS;
2067: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2068: EXCEPTION
2069: WHEN FND_API.G_EXC_ERROR THEN
2070: IF (x_msg_data IS NULL) THEN
2071: FND_MSG_PUB.Count_And_Get
2088: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2089: WHEN NO_DATA_FOUND THEN
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2091: IF (x_msg_data IS NOT NULL) THEN
2092: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2093: ELSE
2094: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2095: END IF;
2096: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2091: IF (x_msg_data IS NOT NULL) THEN
2092: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2093: ELSE
2094: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2095: END IF;
2096: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2097: WHEN OTHERS THEN
2098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2096: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2097: WHEN OTHERS THEN
2098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2099: IF (x_msg_data IS NOT NULL) THEN
2100: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2101: ELSE
2102: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2103: END IF;
2104: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2099: IF (x_msg_data IS NOT NULL) THEN
2100: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2101: ELSE
2102: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2103: END IF;
2104: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2105: END Update_Dim_Set;
2106: /*********************************************************************************
2127: WHERE Source_Indicator = p_kpi_id
2128: AND Prototype_Flag <> 2;
2129: BEGIN
2130: SAVEPOINT UpdateBSCDimSetPMD;
2131: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2132: FND_MSG_PUB.Initialize;
2133: x_return_status := FND_API.G_RET_STS_SUCCESS;
2134: IF (p_kpi_id IS NULL) THEN
2135: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2196: , x_msg_count => x_msg_count
2197: , x_msg_data => x_msg_data
2198: );
2199: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2200: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl');
2201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2202: END IF;
2203: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2204: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2250: , x_msg_count => x_msg_count
2251: , x_msg_data => x_msg_data
2252: );
2253: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2254: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl');
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2258: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2273: COMMIT;
2274: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2275: END IF;
2276: x_return_status := FND_API.G_RET_STS_SUCCESS;
2277: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2278: EXCEPTION
2279: WHEN FND_API.G_EXC_ERROR THEN
2280: ROLLBACK TO UpdateBSCDimSetPMD;
2281: IF (x_msg_data IS NULL) THEN
2301: WHEN NO_DATA_FOUND THEN
2302: ROLLBACK TO UpdateBSCDimSetPMD;
2303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2304: IF (x_msg_data IS NOT NULL) THEN
2305: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2306: ELSE
2307: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2308: END IF;
2309: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2304: IF (x_msg_data IS NOT NULL) THEN
2305: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2306: ELSE
2307: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2308: END IF;
2309: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2310: WHEN OTHERS THEN
2311: ROLLBACK TO UpdateBSCDimSetPMD;
2310: WHEN OTHERS THEN
2311: ROLLBACK TO UpdateBSCDimSetPMD;
2312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2313: IF (x_msg_data IS NOT NULL) THEN
2314: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2315: ELSE
2316: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2317: END IF;
2318: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2313: IF (x_msg_data IS NOT NULL) THEN
2314: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2315: ELSE
2316: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set ';
2317: END IF;
2318: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2319: END Update_Dim_Set;
2320:
2398: WHERE Source_Indicator = p_kpi_id
2399: AND Prototype_Flag <> 2;
2400: BEGIN
2401: SAVEPOINT DeleteBSCDimSetPMD;
2402: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set procedure');
2403: FND_MSG_PUB.Initialize;
2404: x_return_status := FND_API.G_RET_STS_SUCCESS;
2405: IF (p_kpi_id IS NULL) THEN
2406: FND_MESSAGE.SET_NAME('BSC', 'BSC_REQ_FIELD_MISSING');
2458: -- END Granular Locking
2459: -- Aditya added for Incremental Changes
2460: -- Deleting the Dimension set involves a structural change to be captured by Optimizer.
2461: -- The following changes the action_flag for the currently affected KPI only
2462: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
2463: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
2464: BSC_DESIGNER_PVT.ActionFlag_Change(p_kpi_id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2465: END IF;
2466: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
2459: -- Aditya added for Incremental Changes
2460: -- Deleting the Dimension set involves a structural change to be captured by Optimizer.
2461: -- The following changes the action_flag for the currently affected KPI only
2462: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
2463: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
2464: BSC_DESIGNER_PVT.ActionFlag_Change(p_kpi_id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2465: END IF;
2466: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
2467: ( p_commit => FND_API.G_FALSE
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: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.DELETE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
2475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2476: END IF;
2477: --repeat the steps above for all the shared indicators
2478: FOR cd IN c_kpi_ids LOOP
2494: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2495: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Delete_Dim_Set');
2496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2497: END IF;
2498: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
2499: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
2500: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2501: END IF;
2502: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
2495: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Delete_Dim_Set');
2496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2497: END IF;
2498: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
2499: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
2500: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2501: END IF;
2502: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
2503: ( p_commit => FND_API.G_FALSE
2506: , x_msg_count => x_msg_count
2507: , x_msg_data => x_msg_data
2508: );
2509: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2510: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.DELETE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
2511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2512: END IF;
2513: END IF;
2514: END LOOP;
2516: COMMIT;
2517: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2518: END IF;
2519: x_return_status := FND_API.G_RET_STS_SUCCESS;
2520: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set procedure');
2521: EXCEPTION
2522: WHEN FND_API.G_EXC_ERROR THEN
2523: ROLLBACK TO DeleteBSCDimSetPMD;
2524: IF (x_msg_data IS NULL) THEN
2544: WHEN NO_DATA_FOUND THEN
2545: ROLLBACK TO DeleteBSCDimSetPMD;
2546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2547: IF (x_msg_data IS NOT NULL) THEN
2548: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2549: ELSE
2550: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2551: END IF;
2552: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2547: IF (x_msg_data IS NOT NULL) THEN
2548: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2549: ELSE
2550: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2551: END IF;
2552: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2553: WHEN OTHERS THEN
2554: ROLLBACK TO DeleteBSCDimSetPMD;
2553: WHEN OTHERS THEN
2554: ROLLBACK TO DeleteBSCDimSetPMD;
2555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2556: IF (x_msg_data IS NOT NULL) THEN
2557: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2558: ELSE
2559: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2560: END IF;
2561: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2556: IF (x_msg_data IS NOT NULL) THEN
2557: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2558: ELSE
2559: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set ';
2560: END IF;
2561: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2562: END Delete_Dim_Set;
2563: /*********************************************************************************
2604: FROM
2605: TABLE(CAST(l_level_table_names AS BSC_EDIT_VLIST));
2606: BEGIN
2607: SAVEPOINT AssBSCDimToDSetPMD;
2608: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set procedure');
2609: FND_MSG_PUB.Initialize;
2610: x_return_status := FND_API.G_RET_STS_SUCCESS;
2611: IF (p_kpi_id IS NULL) THEN
2612: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2660: RAISE FND_API.G_EXC_ERROR;
2661: END IF;
2662:
2663: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
2664: BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object
2665: ( p_commit => FND_API.G_FALSE
2666: , p_kpi_id => p_kpi_id
2667: , p_dim_set_id => p_dim_set_id
2668: , x_return_status => x_return_status
2669: , x_msg_count => x_msg_count
2670: , x_msg_data => x_msg_data
2671: );
2672: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2673: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object');
2674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2675: END IF;
2676:
2677: l_temp_var := p_dim_short_names;
2717: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Assign_Dims_To_Dim_Set');
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2719: END IF;
2720: -- BSC_DESIGNER_PVT.ActionFlag_Change(p_kpi_id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2721: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
2722: ( p_commit => FND_API.G_FALSE
2723: , p_kpi_id => p_kpi_id
2724: , p_dim_set_id => l_bsc_dimset_rec.bsc_dim_set_id
2725: , p_dim_short_names => l_dim_short_names
2727: , x_msg_count => x_msg_count
2728: , x_msg_data => x_msg_data
2729: );
2730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
2732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2733: END IF;
2734: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2735: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2771: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET - Assign_Dims_To_Dim_Set');
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END IF;
2774: --BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2775: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
2776: ( p_commit => FND_API.G_FALSE
2777: , p_kpi_id => l_bsc_dimset_rec.Bsc_Kpi_Id
2778: , p_dim_set_id => l_bsc_dimset_rec.bsc_dim_set_id
2779: , p_dim_short_names => l_dim_short_names
2781: , x_msg_count => x_msg_count
2782: , x_msg_data => x_msg_data
2783: );
2784: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2785: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
2786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2787: END IF;
2788: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2789: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2799: END IF;
2800: END LOOP;
2801: END IF;
2802: BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets
2803: ( p_commit => FND_API.G_FALSE
2804: , p_kpi_id => p_kpi_id
2805: , p_dim_set_id => p_dim_set_id
2806: , p_dim_short_names => p_dim_short_names
2809: , x_msg_count => x_msg_count
2810: , x_msg_data => x_msg_data
2811: );
2812: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2813: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets');
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815: END IF;
2816: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
2817: ( p_commit => FND_API.G_FALSE
2812: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2813: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets');
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815: END IF;
2816: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
2817: ( p_commit => FND_API.G_FALSE
2818: , p_kpi_id => p_kpi_id
2819: , p_dim_set_id => p_dim_set_id
2820: , x_return_status => x_return_status
2821: , x_msg_count => x_msg_count
2822: , x_msg_data => x_msg_data
2823: );
2824: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2825: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828: END IF;
2829:
2855: COMMIT;
2856: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
2857: END IF;
2858: x_return_status := FND_API.G_RET_STS_SUCCESS;
2859: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set procedure');
2860: EXCEPTION
2861: WHEN FND_API.G_EXC_ERROR THEN
2862: IF (x_msg_data IS NULL) THEN
2863: FND_MSG_PUB.Count_And_Get
2880: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2881: WHEN NO_DATA_FOUND THEN
2882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2883: IF (x_msg_data IS NOT NULL) THEN
2884: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2885: ELSE
2886: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2887: END IF;
2888: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2883: IF (x_msg_data IS NOT NULL) THEN
2884: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2885: ELSE
2886: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2887: END IF;
2888: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2889: WHEN OTHERS THEN
2890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2888: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2889: WHEN OTHERS THEN
2890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2891: IF (x_msg_data IS NOT NULL) THEN
2892: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2893: ELSE
2894: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2895: END IF;
2896: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2891: IF (x_msg_data IS NOT NULL) THEN
2892: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2893: ELSE
2894: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set ';
2895: END IF;
2896: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2897: END Assign_Dims_To_Dim_Set;
2898:
2938: TABLE(CAST(l_level_table_names AS BSC_EDIT_VLIST));
2939:
2940:
2941: BEGIN
2942: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions procedure');
2943: FND_MSG_PUB.Initialize;
2944: x_return_status := FND_API.G_RET_STS_SUCCESS;
2945: IF (p_kpi_id IS NULL) THEN
2946: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2991: END IF;
2992: END IF;
2993: END LOOP;
2994: IF (l_unassign_dim_objs IS NOT NULL) THEN
2995: BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set
2996: ( p_commit => FND_API.G_FALSE
2997: , p_kpi_id => p_kpi_id
2998: , p_dim_set_id => p_dim_set_id
2999: , p_dim_short_names => l_unassign_dim_objs
3002: , x_msg_count => x_msg_count
3003: , x_msg_data => x_msg_data
3004: );
3005: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3006: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions Failed: at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set');
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009: END IF;
3010: END IF;
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009: END IF;
3010: END IF;
3011: BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set
3012: ( p_commit => FND_API.G_FALSE
3013: , p_kpi_id => p_kpi_id
3014: , p_dim_set_id => p_dim_set_id
3015: , p_dim_short_names => p_assign_dim_names
3018: , x_msg_count => x_msg_count
3019: , x_msg_data => x_msg_data
3020: );
3021: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3022: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions Failed: at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set');
3023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3024: END IF;
3025: --Restore old key item values if any are set
3026: FOR cd IN c_Dim_Levels LOOP
3062: , x_msg_count => x_msg_count
3063: , x_msg_data => x_msg_data
3064: );
3065: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3066: --dbms_output.PUT_LINE('BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button Failed: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set');
3067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3068: END IF;
3069:
3070: IF (p_commit = FND_API.G_TRUE) THEN
3071: COMMIT;
3072: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3073: END IF;
3074: x_return_status := FND_API.G_RET_STS_SUCCESS;
3075: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions procedure');
3076: EXCEPTION
3077: WHEN FND_API.G_EXC_ERROR THEN
3078: IF (x_msg_data IS NULL) THEN
3079: FND_MSG_PUB.Count_And_Get
3096: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3097: WHEN NO_DATA_FOUND THEN
3098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3099: IF (x_msg_data IS NOT NULL) THEN
3100: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3101: ELSE
3102: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3103: END IF;
3104: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3099: IF (x_msg_data IS NOT NULL) THEN
3100: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3101: ELSE
3102: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3103: END IF;
3104: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3105: WHEN OTHERS THEN
3106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3104: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3105: WHEN OTHERS THEN
3106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3107: IF (x_msg_data IS NOT NULL) THEN
3108: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3109: ELSE
3110: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3111: END IF;
3112: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3107: IF (x_msg_data IS NOT NULL) THEN
3108: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3109: ELSE
3110: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions ';
3111: END IF;
3112: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3113: END Assign_Unassign_Dimensions;
3114:
3146: AND A.Dim_Group_ID = B.Dim_Group_ID
3147: ORDER BY A.Dim_Group_Index;
3148: BEGIN
3149: SAVEPOINT UnAssBSCDimToDSetPMD;
3150: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set procedure');
3151: FND_MSG_PUB.Initialize;
3152: x_return_status := FND_API.G_RET_STS_SUCCESS;
3153: IF (p_kpi_id IS NULL) THEN
3154: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3234: , x_msg_count => x_msg_count
3235: , x_msg_data => x_msg_data
3236: );
3237: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3238: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: END IF;
3241: END IF;
3242: END LOOP;
3250: , x_msg_count => x_msg_count
3251: , x_msg_data => x_msg_data
3252: );
3253: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3254: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET');
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: END IF;
3257: --repeat the steps above for all the shared indicators
3258: FOR cd IN c_kpi_ids LOOP
3301: , x_msg_count => x_msg_count
3302: , x_msg_data => x_msg_data
3303: );
3304: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3305: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
3306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308: END IF;
3309: END LOOP;
3329: ELSE
3330: l_dim_short_names := l_dim_short_names||', '||cd.Short_Name;
3331: END IF;
3332: END LOOP;
3333: BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets
3334: ( p_commit => FND_API.G_FALSE
3335: , p_kpi_id => p_kpi_id
3336: , p_dim_set_id => p_dim_set_id
3337: , p_dim_short_names => l_dim_short_names
3340: , x_msg_count => x_msg_count
3341: , x_msg_data => x_msg_data
3342: );
3343: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3344: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets');
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3347: END IF;
3348: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
3344: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets');
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3347: END IF;
3348: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
3349: ( p_commit => FND_API.G_FALSE
3350: , p_kpi_id => p_kpi_id
3351: , p_dim_set_id => p_dim_set_id
3352: , x_return_status => x_return_status
3354: , x_msg_data => x_msg_data
3355: );
3356:
3357: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3358: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
3359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3360: END IF;
3361: IF (p_dim_short_names IS NOT NULL) THEN
3362: BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button
3373: , x_msg_count => x_msg_count
3374: , x_msg_data => x_msg_data
3375: );
3376: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3377: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set failed at BSC_BIS_KPI_MEAS_PUB.Check_Filters_Not_Apply');
3378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3379: END IF;
3380: END IF;
3381:
3383: COMMIT;
3384: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3385: END IF;
3386: x_return_status := FND_API.G_RET_STS_SUCCESS;
3387: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set procedure');
3388: EXCEPTION
3389: WHEN FND_API.G_EXC_ERROR THEN
3390: IF (x_msg_data IS NULL) THEN
3391: FND_MSG_PUB.Count_And_Get
3408: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3409: WHEN NO_DATA_FOUND THEN
3410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3411: IF (x_msg_data IS NOT NULL) THEN
3412: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3413: ELSE
3414: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3415: END IF;
3416: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3411: IF (x_msg_data IS NOT NULL) THEN
3412: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3413: ELSE
3414: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3415: END IF;
3416: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3417: WHEN OTHERS THEN
3418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3416: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3417: WHEN OTHERS THEN
3418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3419: IF (x_msg_data IS NOT NULL) THEN
3420: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3421: ELSE
3422: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3423: END IF;
3424: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3419: IF (x_msg_data IS NOT NULL) THEN
3420: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3421: ELSE
3422: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set ';
3423: END IF;
3424: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3425: END Unassign_Dims_From_Dim_Set;
3426: /*********************************************************************************
3440: l_count NUMBER;
3441: l_dim_short_names VARCHAR2(32000);
3442: l_dim_short_name BSC_SYS_DIM_GROUPS_TL.short_name%TYPE;
3443: BEGIN
3444: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset procedure');
3445: FND_MSG_PUB.Initialize;
3446: x_return_status := FND_API.G_RET_STS_SUCCESS;
3447:
3448: l_bsc_dimset_rec.Bsc_Dim_Level_Help := 'XXX';
3533: , x_msg_count => x_msg_count
3534: , x_msg_data => x_msg_data
3535: );
3536: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3537: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset <'||x_msg_data||'>');
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
3540: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
3541: ( p_commit => FND_API.G_FALSE
3544: , x_msg_count => x_msg_count
3545: , x_msg_data => x_msg_data
3546: );
3547: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3548: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
3549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3550: END IF;
3551: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
3552: ( p_commit => FND_API.G_FALSE
3555: , x_msg_count => x_msg_count
3556: , x_msg_data => x_msg_data
3557: );
3558: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3559: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
3560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3561: END IF;
3562: END IF;
3563: END LOOP;
3577: , x_msg_count => x_msg_count
3578: , x_msg_data => x_msg_data
3579: );
3580: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3581: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
3582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3584: END IF;
3585: -- START: Granular Locking, Change time stamp of Dim Set & KPI
3600: COMMIT;
3601: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3602: END IF;
3603: x_return_status := FND_API.G_RET_STS_SUCCESS;
3604: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset procedure');
3605: EXCEPTION
3606: WHEN FND_API.G_EXC_ERROR THEN
3607: IF (x_msg_data IS NULL) THEN
3608: FND_MSG_PUB.Count_And_Get
3625: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3626: WHEN NO_DATA_FOUND THEN
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: IF (x_msg_data IS NOT NULL) THEN
3629: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3630: ELSE
3631: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3632: END IF;
3633: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: IF (x_msg_data IS NOT NULL) THEN
3629: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3630: ELSE
3631: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3632: END IF;
3633: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3634: WHEN OTHERS THEN
3635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3633: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3634: WHEN OTHERS THEN
3635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3636: IF (x_msg_data IS NOT NULL) THEN
3637: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3638: ELSE
3639: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3640: END IF;
3641: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3636: IF (x_msg_data IS NOT NULL) THEN
3637: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3638: ELSE
3639: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset ';
3640: END IF;
3641: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3642: END Create_Dim_Grp_Lev_In_Dset;
3643: /*********************************************************************************
3664: WHERE Source_Indicator = p_kpi_id
3665: AND Prototype_Flag <> 2;
3666: BEGIN
3667: SAVEPOINT AssBSCDSetPMD;
3668: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options procedure');
3669: FND_MSG_PUB.Initialize;
3670: x_return_status := FND_API.G_RET_STS_SUCCESS;
3671: IF (p_kpi_id IS NULL) THEN
3672: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3727: , x_msg_count => x_msg_count
3728: , x_msg_data => x_msg_data
3729: );
3730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options Failed: at BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B <'||x_msg_data||'>');
3732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3733: END IF;
3734: --copied from VB Code
3735: BSC_DESIGNER_PVT.Deflt_Update_AOPTS(l_bsc_dimset_rec.Bsc_Kpi_Id);
3755: , x_msg_count => x_msg_count
3756: , x_msg_data => x_msg_data
3757: );
3758: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3759: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options Failed: at BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B <'||x_msg_data||'>');
3760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3761: END IF;
3762: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
3763: END LOOP;
3766: COMMIT;
3767: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
3768: END IF;
3769: x_return_status := FND_API.G_RET_STS_SUCCESS;
3770: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options procedure');
3771: EXCEPTION
3772: WHEN FND_API.G_EXC_ERROR THEN
3773: ROLLBACK TO AssBSCDSetPMD;
3774: IF (x_msg_data IS NULL) THEN
3794: WHEN NO_DATA_FOUND THEN
3795: ROLLBACK TO AssBSCDSetPMD;
3796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3797: IF (x_msg_data IS NOT NULL) THEN
3798: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3799: ELSE
3800: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3801: END IF;
3802: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3797: IF (x_msg_data IS NOT NULL) THEN
3798: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3799: ELSE
3800: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3801: END IF;
3802: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3803: WHEN OTHERS THEN
3804: ROLLBACK TO AssBSCDSetPMD;
3803: WHEN OTHERS THEN
3804: ROLLBACK TO AssBSCDSetPMD;
3805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3806: IF (x_msg_data IS NOT NULL) THEN
3807: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3808: ELSE
3809: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3810: END IF;
3811: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3806: IF (x_msg_data IS NOT NULL) THEN
3807: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3808: ELSE
3809: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options ';
3810: END IF;
3811: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3812: END Assign_DSet_Analysis_Options;
3813:
3893: IS
3894: l_source BSC_SYS_DIM_LEVELS_B.SOURCE%TYPE;
3895: l_data_set_id BSC_SYS_DATASETS_B.Dataset_Id%TYPE;
3896: BEGIN
3897: BSC_BIS_KPI_MEAS_PUB.get_Dim_Set_Source_Info
3898: ( p_Indicator => p_Indicator
3899: , p_DimSetId => p_DimSetId
3900: , x_Source => l_source
3901: , x_Data_Set_Id => l_data_set_id
4167: km.analysis_option2 = p_analysis_option_id2 AND
4168: km.series_id = p_series_id;
4169:
4170: BEGIN
4171: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options procedure');
4172: FND_MSG_PUB.Initialize;
4173: x_return_status := FND_API.G_RET_STS_SUCCESS;
4174: SAVEPOINT UpdateBSCKPIAnaOpts;
4175: --Initialize record for BSC_KPI_ANALYSIS_MEASURES_B/TL &BSC_KPI_ANALYSIS_OPTIONS_B/TL
4243: SELECT Source INTO l_data_source
4244: FROM BSC_SYS_DATASETS_B
4245: WHERE Dataset_Id = l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id;
4246: IF (NOT p_update_ana_opt AND l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id IS NOT NULL) THEN
4247: BSC_BIS_KPI_MEAS_PUB.get_Dim_Set_Source_Info
4248: ( p_Indicator => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4249: , p_DimSetId => l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
4250: , x_Source => l_temp_data_source
4251: , x_Data_Set_Id => l_data_set_id
4320: l_dim_set_id := NULL;
4321: l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id := l_dim_set_id;
4322: END IF;
4323: --dbms_output.PUT_LINE('into the PMF area');
4324: BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults
4325: ( p_commit => FND_API.G_FALSE
4326: , p_data_set_id => l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id
4327: , p_measure_short_name => p_measure_short_name
4328: , p_dim_obj_short_names => p_dim_obj_short_names
4336: , x_msg_count => x_msg_count
4337: , x_msg_data => x_msg_data
4338: );
4339: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4340: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults');
4341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4342: END IF;
4343: BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison
4344: ( p_commit => FND_API.G_FALSE
4339: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4340: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults');
4341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4342: END IF;
4343: BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison
4344: ( p_commit => FND_API.G_FALSE
4345: , p_Kpi_Id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4346: , p_dim_set_id => l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
4347: , x_return_status => x_return_status
4348: , x_msg_count => x_msg_count
4349: , x_msg_data => x_msg_data
4350: );
4351: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4352: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison');
4353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4354: END IF;
4355: --this following part of the code is copied from BSC_PMF_UI_API_PUB.Create_Bsc_Analysis_Option
4356: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
4427: OR UPPER(name) = l_temp_var;
4428: IF (l_count = 0) THEN
4429: l_dim_short_name := l_temp_var;
4430: END IF;
4431: l_alias := BSC_BIS_KPI_MEAS_PUB.get_Next_Alias(l_alias);
4432: l_temp_var := l_dim_short_name||'_'||l_alias;
4433: END LOOP;
4434: --dbms_output.PUT_LINE('Unique Short Name Created '||l_dim_short_name);
4435: --dbms_output.PUT_LINE('l_dim_obj_short_names '||l_dim_obj_short_names);
4447: , x_msg_count => x_msg_count
4448: , x_msg_data => x_msg_data
4449: );
4450: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4451: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_DIMENSION_PUB.Create_Dimension');
4452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4453: END IF;
4454:
4455: END IF;
4463: SELECT NVL(MAX(dim_set_id) + 1, 0)
4464: INTO l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
4465: FROM BSC_KPI_DIM_SETS_VL
4466: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
4467: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set
4468: ( p_commit => FND_API.G_FALSE
4469: , p_kpi_id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4470: , p_display_name => 'Dimension Set '||l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
4471: , p_dim_short_names => l_dim_short_name
4474: , x_msg_count => x_msg_count
4475: , x_msg_data => x_msg_data
4476: );
4477: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4478: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set');
4479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4480: END IF;
4481: ELSE
4482: SELECT COUNT(*) INTO l_count
4493: --dbms_output.PUT_LINE('ASSIGN TO DIMENSION SET');
4494: IF (l_dim_obj_short_names IS NULL) THEN
4495: l_dim_short_name := NULL;
4496: END IF;
4497: BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set
4498: ( p_commit => FND_API.G_FALSE
4499: , p_kpi_id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4500: , p_dim_set_id => l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
4501: , p_dim_short_names => l_dim_short_name
4503: , x_msg_count => x_msg_count
4504: , x_msg_data => x_msg_data
4505: );
4506: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4507: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set');
4508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4509: END IF;
4510: END IF;
4511: -- default values and view by
4529: , x_msg_count => x_msg_count
4530: , x_msg_data => x_msg_data
4531: );
4532: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4533: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: -- default values and view by for shared indicators
4537: FOR cd IN c_kpi_ids LOOP
4543: , x_msg_count => x_msg_count
4544: , x_msg_data => x_msg_data
4545: );
4546: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4547: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4549: END IF;
4550: END LOOP;
4551: END IF;
4567: , x_msg_count => x_msg_count
4568: , x_msg_data => x_msg_data
4569: );
4570: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4571: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4573: END IF;
4574: -- default values and view by for shared indicators
4575: FOR cd IN c_kpi_ids LOOP
4581: , x_msg_count => x_msg_count
4582: , x_msg_data => x_msg_data
4583: );
4584: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4585: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4587: END IF;
4588: END LOOP;
4589: END IF;
4663: , x_msg_count => x_msg_count
4664: , x_msg_data => x_msg_data
4665: );
4666: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4667: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4669: END IF;
4670: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
4671: FOR cd IN c_kpi_ids LOOP
4681: , x_msg_count => x_msg_count
4682: , x_msg_data => x_msg_data
4683: );
4684: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4685: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed Failed: BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
4686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4687: END IF;
4688: ELSE
4689: --dbms_output.PUT_LINE('ELSE');
4703: , x_msg_count => x_msg_count
4704: , x_msg_data => x_msg_data
4705: );
4706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4707: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options');
4708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4709: END IF;
4710: END IF;
4711: -- START Granular Locking added by Aditya
4778: , x_msg_count => x_msg_count
4779: , x_msg_data => x_msg_data
4780: );
4781: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4782: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: END IF;
4785: IF (p_option1_Name IS NOT NULL) THEN
4786: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id := p_analysis_option_id1;
4785: IF (p_option1_Name IS NOT NULL) THEN
4786: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id := p_analysis_option_id1;
4787: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := p_option1_Name;
4788: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id := 1;
4789: BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids
4790: ( p_Kpi_Id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4791: , p_Analysis_Group_ID => l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id
4792: , p_Option_ID => l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id
4793: , p_Parent_Option_ID => p_analysis_option_id0
4798: , x_msg_count => x_msg_count
4799: , x_msg_data => x_msg_data
4800: );
4801: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4802: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids');
4803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4804: END IF;
4805: l_Bsc_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := NULL;
4806: --dbms_output.PUT_LINE('BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options1 '||p_option1_Name);
4812: , x_msg_count => x_msg_count
4813: , x_msg_data => x_msg_data
4814: );
4815: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4816: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: END IF;
4819: END IF;
4820: IF (p_option2_Name IS NOT NULL) THEN
4820: IF (p_option2_Name IS NOT NULL) THEN
4821: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id := p_analysis_option_id2;
4822: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := p_option2_Name;
4823: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id := 2;
4824: BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids
4825: ( p_Kpi_Id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
4826: , p_Analysis_Group_ID => l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id
4827: , p_Option_ID => l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id
4828: , p_Parent_Option_ID => p_analysis_option_id1
4833: , x_msg_count => x_msg_count
4834: , x_msg_data => x_msg_data
4835: );
4836: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4837: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids');
4838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4839: END IF;
4840: --dbms_output.PUT_LINE('BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options2 '||p_option2_Name);
4841: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options
4846: , x_msg_count => x_msg_count
4847: , x_msg_data => x_msg_data
4848: );
4849: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4850: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
4851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4852: END IF;
4853: END IF;
4854: END IF;
4915: COMMIT;
4916: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
4917: END IF;
4918: x_return_status := FND_API.G_RET_STS_SUCCESS;
4919: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options procedure');
4920: EXCEPTION
4921: WHEN FND_API.G_EXC_ERROR THEN
4922: IF (c_data_set_id%ISOPEN) THEN
4923: CLOSE c_data_set_id;
4952: END IF;
4953: ROLLBACK TO UpdateBSCKPIAnaOpts;
4954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4955: IF (x_msg_data IS NOT NULL) THEN
4956: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4957: ELSE
4958: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4959: END IF;
4960: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4955: IF (x_msg_data IS NOT NULL) THEN
4956: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4957: ELSE
4958: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4959: END IF;
4960: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4961: WHEN OTHERS THEN
4962: IF (c_data_set_id%ISOPEN) THEN
4964: END IF;
4965: ROLLBACK TO UpdateBSCKPIAnaOpts;
4966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4967: IF (x_msg_data IS NOT NULL) THEN
4968: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4969: ELSE
4970: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4971: END IF;
4972: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4967: IF (x_msg_data IS NOT NULL) THEN
4968: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4969: ELSE
4970: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options ';
4971: END IF;
4972: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4973: END Update_KPI_Analysis_Options;
4974:
4993: l_Bsc_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
4994: l_count NUMBER;
4995: l_datasource BSC_SYS_DATASETS_B.Source%TYPE;
4996: l_meaning VARCHAR(60);
4997: l_DimObj_ViewBy_Tbl BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type;
4998: l_measure_short_name BSC_SYS_MEASURES.Short_Name%TYPE;
4999: l_sname BSC_KPIS_B.SHORT_NAME%TYPE;
5000:
5001: CURSOR c_data_source IS
5012: l_default_level_set BOOLEAN := FALSE;
5013: l_namecount NUMBER;
5014: l_index NUMBER;
5015: BEGIN
5016: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options procedure');
5017: FND_MSG_PUB.Initialize;
5018: x_return_status := FND_API.G_RET_STS_SUCCESS;
5019: SAVEPOINT CreateBSCKPIAnaOpts;
5020:
5110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5111: END IF;
5112: -- END Granular Locking - Lock the KPI Under consideration
5113: IF (l_datasource = 'PMF') THEN
5114: BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options
5115: ( p_commit => FND_API.G_FALSE
5116: , p_kpi_id => l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
5117: , p_data_source => l_datasource
5118: , p_analysis_group_id => l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id
5137: , x_msg_count => x_msg_count
5138: , x_msg_data => x_msg_data
5139: );
5140: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5141: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options');
5142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5143: END IF;
5144: ELSIF (l_datasource = 'BSC') THEN
5145: --for BSC we do not create dimension set. Therefore use the default value for dimension set
5200: , x_msg_count => x_msg_count
5201: , x_msg_data => x_msg_data
5202: );
5203: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5204: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options');
5205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5206: END IF;
5207: BSC_DESIGNER_PVT.Deflt_RefreshKpi(l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
5208: FOR cd IN c_kpi_ids LOOP
5224: , x_msg_count => x_msg_count
5225: , x_msg_data => x_msg_data
5226: );
5227: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5228: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options');
5229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5230: END IF;
5231: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DATASET
5232: ( p_dataset_id => l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id
5270: COMMIT;
5271: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5272: END IF;
5273: x_return_status := FND_API.G_RET_STS_SUCCESS;
5274: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options procedure');
5275: EXCEPTION
5276: WHEN FND_API.G_EXC_ERROR THEN
5277: IF (c_data_source%ISOPEN)THEN
5278: CLOSE c_data_source;
5307: END IF;
5308: ROLLBACK TO CreateBSCKPIAnaOpts;
5309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5310: IF (x_msg_data IS NOT NULL) THEN
5311: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5312: ELSE
5313: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5314: END IF;
5315: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5310: IF (x_msg_data IS NOT NULL) THEN
5311: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5312: ELSE
5313: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5314: END IF;
5315: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5316: WHEN OTHERS THEN
5317: IF (c_data_source%ISOPEN)THEN
5319: END IF;
5320: ROLLBACK TO CreateBSCKPIAnaOpts;
5321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5322: IF (x_msg_data IS NOT NULL) THEN
5323: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5324: ELSE
5325: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5326: END IF;
5327: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5322: IF (x_msg_data IS NOT NULL) THEN
5323: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5324: ELSE
5325: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options ';
5326: END IF;
5327: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5328: END Create_KPI_Analysis_Options;
5329: /*********************************************************************************
5347: l_Bsc_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
5348: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
5349: l_Bsc_Dim_Set_Rec_Type BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
5350: BEGIN
5351: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5352: FND_MSG_PUB.Initialize;
5353: x_return_status := FND_API.G_RET_STS_SUCCESS;
5354: SAVEPOINT DeleteBSCKPIAnaOpts;
5355: IF (p_data_source IS NULL) THEN
5467: , x_msg_count => x_msg_count
5468: , x_msg_data => x_msg_data
5469: );
5470: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5471: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
5472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5473: END IF;
5474: --Determine number of distinct dataset_id after delete.
5475: SELECT COUNT (DISTINCT dataset_id) INTO l_new_count
5487: , x_msg_count => x_msg_count
5488: , x_msg_data => x_msg_data
5489: );
5490: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5491: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_KPI_PUB.Update_Kpi_Time_Stamp');
5492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5493: END IF;
5494: -- Determine if the dimension set is being used by other options.
5495: IF (p_data_source = 'PMF') THEN
5498: WHERE indicator = p_kpi_id
5499: AND dim_set_id = l_dim_set_id;
5500: -- If there are no more options using this dim set delete it.
5501: IF (l_count = 0) THEN
5502: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
5503: ( p_commit => FND_API.G_FALSE
5504: , p_kpi_id => p_kpi_id
5505: , p_dim_set_id => l_dim_set_id
5506: , x_return_status => x_return_status
5507: , x_msg_count => x_msg_count
5508: , x_msg_data => x_msg_data
5509: );
5510: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5511: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set');
5512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5513: END IF;
5514: -- Need to call procedure for list button logic.
5515: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels
5519: , x_msg_count => x_msg_count
5520: , x_msg_data => x_msg_data
5521: );
5522: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5523: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels');
5524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5525: END IF;
5526: END IF;
5527: END IF;
5529: COMMIT;
5530: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5531: END IF;
5532: x_return_status := FND_API.G_RET_STS_SUCCESS;
5533: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5534: EXCEPTION
5535: WHEN FND_API.G_EXC_ERROR THEN
5536: ROLLBACK TO DeleteBSCKPIAnaOpts;
5537: IF (x_msg_data IS NULL) THEN
5557: WHEN NO_DATA_FOUND THEN
5558: ROLLBACK TO DeleteBSCKPIAnaOpts;
5559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5560: IF (x_msg_data IS NOT NULL) THEN
5561: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5562: ELSE
5563: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5564: END IF;
5565: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5560: IF (x_msg_data IS NOT NULL) THEN
5561: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5562: ELSE
5563: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5564: END IF;
5565: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5566: WHEN OTHERS THEN
5567: ROLLBACK TO DeleteBSCKPIAnaOpts;
5566: WHEN OTHERS THEN
5567: ROLLBACK TO DeleteBSCKPIAnaOpts;
5568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5569: IF (x_msg_data IS NOT NULL) THEN
5570: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5571: ELSE
5572: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5573: END IF;
5574: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5569: IF (x_msg_data IS NOT NULL) THEN
5570: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5571: ELSE
5572: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5573: END IF;
5574: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5575: END Delete_KPI_Analysis_Options; */
5576: /************************************************************************************
5607: dim_group_id = p_dim_group_id;
5608:
5609:
5610: BEGIN
5611: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5612: FND_MSG_PUB.Initialize;
5613: x_return_status := FND_API.G_RET_STS_SUCCESS;
5614: SAVEPOINT DeleteBSCKPIAnaOpts;
5615: -- we also need to normalize the values for column ANALYSYS_OPTION0,
5623: , x_msg_count => x_msg_count
5624: , x_msg_data => x_msg_data
5625: );
5626: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5627: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
5628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5629: END IF;
5630: -- Determine if the dimension set is being used by other options.
5631: IF (p_data_source = 'PMF') THEN
5641: CLOSE c_dim_group_id;
5642:
5643: -- If there are no more options using this dim set delete it.
5644: IF (l_count = 0) THEN
5645: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set
5646: ( p_commit => FND_API.G_FALSE
5647: , p_kpi_id => p_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id
5648: , p_dim_set_id => p_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
5649: , x_return_status => x_return_status
5650: , x_msg_count => x_msg_count
5651: , x_msg_data => x_msg_data
5652: );
5653: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5654: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set');
5655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5656: END IF;
5657:
5658: --Determine if Indicator assigned to a tab.
5673: , x_msg_count => x_msg_count
5674: , x_msg_data => x_msg_data
5675: );
5676: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5677: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Analysis_Options Failed: at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels');
5678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5679: END IF;
5680: END IF;
5681:
5699: END IF;
5700: END IF;
5701: END IF;
5702: x_return_status := FND_API.G_RET_STS_SUCCESS;
5703: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5704: EXCEPTION
5705: WHEN FND_API.G_EXC_ERROR THEN
5706: ROLLBACK TO DeleteBSCKPIAnaOpts;
5707: IF (x_msg_data IS NULL) THEN
5727: WHEN NO_DATA_FOUND THEN
5728: ROLLBACK TO DeleteBSCKPIAnaOpts;
5729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5730: IF (x_msg_data IS NOT NULL) THEN
5731: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5732: ELSE
5733: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5734: END IF;
5735: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5730: IF (x_msg_data IS NOT NULL) THEN
5731: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5732: ELSE
5733: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5734: END IF;
5735: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5736: WHEN OTHERS THEN
5737: ROLLBACK TO DeleteBSCKPIAnaOpts;
5736: WHEN OTHERS THEN
5737: ROLLBACK TO DeleteBSCKPIAnaOpts;
5738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5739: IF (x_msg_data IS NOT NULL) THEN
5740: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5741: ELSE
5742: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5743: END IF;
5744: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5739: IF (x_msg_data IS NOT NULL) THEN
5740: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5741: ELSE
5742: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options ';
5743: END IF;
5744: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5745: END Delete_KPI_Analysis_Options;
5746: /************************************************************************************
5794: AND default_flag = 1;
5795:
5796:
5797: BEGIN
5798: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Kpi procedure');
5799: SAVEPOINT UpdatePMDBSCKPIs;
5800: x_return_status := FND_API.G_RET_STS_SUCCESS;
5801: FND_MSG_PUB.Initialize;
5802: IF (p_kpi_id IS NULL) THEN
5906: , x_msg_count => x_msg_count
5907: , x_msg_data => x_msg_data
5908: );
5909: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5910: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Kpi Failed: at BSC_KPI_PUB.Update_Kpi');
5911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5912: END IF;
5913:
5914: -- Fixed Bug#3663301, Called ActionFlag_Change with a Color Flag
5968: , x_msg_count => x_msg_count
5969: , x_msg_data => x_msg_data
5970: );
5971: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5972: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Kpi Failed:at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
5973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5974: END IF;
5975: END IF;
5976: END IF;
5989: COMMIT;
5990: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
5991: END IF;
5992: x_return_status := FND_API.G_RET_STS_SUCCESS;
5993: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Kpi procedure');
5994: EXCEPTION
5995: WHEN FND_API.G_EXC_ERROR THEN
5996: ROLLBACK TO UpdatePMDBSCKPIs;
5997: IF (x_msg_data IS NULL) THEN
6017: WHEN NO_DATA_FOUND THEN
6018: ROLLBACK TO UpdatePMDBSCKPIs;
6019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6020: IF (x_msg_data IS NOT NULL) THEN
6021: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6022: ELSE
6023: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6024: END IF;
6025: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6020: IF (x_msg_data IS NOT NULL) THEN
6021: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6022: ELSE
6023: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6024: END IF;
6025: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6026: WHEN OTHERS THEN
6027: ROLLBACK TO UpdatePMDBSCKPIs;
6026: WHEN OTHERS THEN
6027: ROLLBACK TO UpdatePMDBSCKPIs;
6028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6029: IF (x_msg_data IS NOT NULL) THEN
6030: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6031: ELSE
6032: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6033: END IF;
6034: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
6028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6029: IF (x_msg_data IS NOT NULL) THEN
6030: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6031: ELSE
6032: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Update_Kpi ';
6033: END IF;
6034: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
6035: END Update_Kpi;
6036:
6046: , x_msg_data OUT NOCOPY VARCHAR2
6047: ) IS
6048: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
6049: BEGIN
6050: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Kpi procedure');
6051: x_return_status := FND_API.G_RET_STS_SUCCESS;
6052: FND_MSG_PUB.Initialize;
6053: SAVEPOINT CreatePMDBSCKPIs;
6054: IF (p_kpi_name IS NULL) THEN
6105: , x_msg_count => x_msg_count
6106: , x_msg_data => x_msg_data
6107: );
6108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6109: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Kpi Failed: at BSC_KPI_PUB.Create_Kpi');
6110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6111: END IF;
6112: IF (p_commit = FND_API.G_TRUE) THEN
6113: COMMIT;
6113: COMMIT;
6114: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6115: END IF;
6116: x_return_status := FND_API.G_RET_STS_SUCCESS;
6117: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Kpi procedure');
6118: EXCEPTION
6119: WHEN FND_API.G_EXC_ERROR THEN
6120: ROLLBACK TO CreatePMDBSCKPIs;
6121: IF (x_msg_data IS NULL) THEN
6141: WHEN NO_DATA_FOUND THEN
6142: ROLLBACK TO CreatePMDBSCKPIs;
6143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6144: IF (x_msg_data IS NOT NULL) THEN
6145: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6146: ELSE
6147: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6148: END IF;
6149: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6144: IF (x_msg_data IS NOT NULL) THEN
6145: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6146: ELSE
6147: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6148: END IF;
6149: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6150: WHEN OTHERS THEN
6151: ROLLBACK TO CreatePMDBSCKPIs;
6150: WHEN OTHERS THEN
6151: ROLLBACK TO CreatePMDBSCKPIs;
6152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6153: IF (x_msg_data IS NOT NULL) THEN
6154: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6155: ELSE
6156: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6157: END IF;
6158: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
6152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6153: IF (x_msg_data IS NOT NULL) THEN
6154: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6155: ELSE
6156: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Kpi ';
6157: END IF;
6158: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
6159: END Create_Kpi;
6160:
6164: then it need not be the view by. so no need to check that it time is there
6165: then it should be the view by also.
6166: *********************************************************************************/
6167: FUNCTION is_Time_In_Dim_Object
6168: ( p_DimObj_ViewBy_Tbl IN BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type
6169: , p_dim_obj_name IN VARCHAR2
6170: ) RETURN BOOLEAN IS
6171: l_Short_Names VARCHAR2(8000);
6172: l_Short_Name VARCHAR2(100);
6192: RETURN FALSE;
6193: END is_Time_In_Dim_Object;
6194: /************************************************************************************/
6195: FUNCTION is_View_By
6196: ( p_DimObj_ViewBy_Tbl IN BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type
6197: , p_dim_obj_name IN VARCHAR2
6198: )RETURN BOOLEAN IS
6199: l_DimObj_ViewBy_Tbl BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type;
6200: l_Dim_Obj VARCHAR2(100);
6195: FUNCTION is_View_By
6196: ( p_DimObj_ViewBy_Tbl IN BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type
6197: , p_dim_obj_name IN VARCHAR2
6198: )RETURN BOOLEAN IS
6199: l_DimObj_ViewBy_Tbl BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type;
6200: l_Dim_Obj VARCHAR2(100);
6201: l_View_By VARCHAR2(100);
6202: BEGIN
6203: IF (TRIM(p_dim_obj_name) IS NULL) THEN
6225: RETURN FALSE;
6226: END is_View_By;
6227: /************************************************************************************/
6228: FUNCTION is_Time_With_Measure
6229: ( p_DimObj_ViewBy_Tbl IN BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type
6230: , x_return_status OUT NOCOPY VARCHAR2
6231: , x_msg_count OUT NOCOPY NUMBER
6232: , x_msg_data OUT NOCOPY VARCHAR2
6233: ) RETURN BOOLEAN IS
6286: , p_count => l_msg_count
6287: , p_data => l_Msg_Data
6288: );
6289: END IF;
6290: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.get_anal_opt_comb_message');
6291: RETURN l_Msg_Data;
6292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6293: IF (l_Msg_Data IS NULL) THEN
6294: FND_MSG_PUB.Count_And_Get
6296: , p_count => l_msg_count
6297: , p_data => l_Msg_Data
6298: );
6299: END IF;
6300: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR BSC_BIS_KPI_MEAS_PUB.get_anal_opt_comb_message');
6301: RETURN l_Msg_Data;
6302: WHEN OTHERS THEN
6303: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||SQLERRM);
6304: RETURN NULL;
6341: WHERE A.Dim_Group_Id = l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id
6342: AND A.Dim_Group_ID = B.Dim_Group_ID
6343: AND B.Short_Name <> BSC_BIS_DIMENSION_PUB.Unassigned_Dim;
6344: BEGIN
6345: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet procedure');
6346: FND_MSG_PUB.Initialize;
6347: x_return_status := FND_API.G_RET_STS_SUCCESS;
6348: l_bsc_dimset_rec.Bsc_Dim_Level_Help := 'XXX';
6349: l_bsc_dimset_rec.Bsc_Dim_Level_Long_Name := 'XXX';
6403:
6404: IF (p_delete) THEN
6405: --delete all the dimension objects before creating.
6406: --dbms_output.PUT_LINE('DELETE ENABLED');
6407: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet
6408: ( p_commit => FND_API.G_FALSE
6409: , p_kpi_id => p_kpi_id
6410: , p_dim_set_id => p_dim_set_id
6411: , x_return_status => x_return_status
6412: , x_msg_count => x_msg_count
6413: , x_msg_data => x_msg_data
6414: );
6415: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6416: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Objs_In_DSet');
6417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6418: END IF;
6419: END IF;
6420: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
6417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6418: END IF;
6419: END IF;
6420: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
6421: BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object
6422: ( p_commit => FND_API.G_FALSE
6423: , p_kpi_id => p_kpi_id
6424: , p_dim_set_id => p_dim_set_id
6425: , x_return_status => x_return_status
6426: , x_msg_count => x_msg_count
6427: , x_msg_data => x_msg_data
6428: );
6429: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6430: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object');
6431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6432: END IF;
6433: FOR cn_bsc IN c_dim_group_id LOOP
6434: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := cn_bsc.Dim_Group_ID;
6440: , x_msg_count => x_msg_count
6441: , x_msg_data => x_msg_data
6442: );
6443: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6444: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6446: END IF;
6447: -- END : Granular Locking
6448: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
6452: , x_msg_count => x_msg_count
6453: , x_msg_data => x_msg_data
6454: );
6455: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6456: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6458: END IF;
6459: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6460: ( p_commit => FND_API.G_FALSE
6463: , x_msg_count => x_msg_count
6464: , x_msg_data => x_msg_data
6465: );
6466: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6467: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
6468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6469: END IF;
6470: END LOOP;
6471: IF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.Normal)) THEN
6473: NULL;
6474: --dbms_output.PUT_LINE('NO CHANGES');
6475: ELSIF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.GAA_Color)) THEN
6476: --flag color changes to KPIs
6477: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
6478: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
6479: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Color);
6480: END IF;
6481: --dbms_output.PUT_LINE('COLOR CHANGES');
6474: --dbms_output.PUT_LINE('NO CHANGES');
6475: ELSIF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.GAA_Color)) THEN
6476: --flag color changes to KPIs
6477: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
6478: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
6479: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Color);
6480: END IF;
6481: --dbms_output.PUT_LINE('COLOR CHANGES');
6482: ELSE
6480: END IF;
6481: --dbms_output.PUT_LINE('COLOR CHANGES');
6482: ELSE
6483: --flag structural changes to KPIs
6484: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
6485: IF (NOT is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
6486: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
6487: END IF;
6488: --dbms_output.PUT_LINE('STRUCTURAL CHANGES');
6494: , x_msg_count => x_msg_count
6495: , x_msg_data => x_msg_data
6496: );
6497: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6498: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6500: END IF;
6501: --reapeating the steps for shared KPIs also
6502: FOR cm IN c_kpi_ids LOOP
6525: , x_msg_count => x_msg_count
6526: , x_msg_data => x_msg_data
6527: );
6528: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6529: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6531: END IF;
6532: -- END : Granular Locking
6533: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
6537: , x_msg_count => x_msg_count
6538: , x_msg_data => x_msg_data
6539: );
6540: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6541: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6543: END IF;
6544: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6545: ( p_commit => FND_API.G_FALSE
6548: , x_msg_count => x_msg_count
6549: , x_msg_data => x_msg_data
6550: );
6551: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6552: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
6553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6554: END IF;
6555: END LOOP;
6556: IF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.Normal)) THEN
6558: NULL;
6559: --dbms_output.PUT_LINE('NO CHANGES');
6560: ELSIF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.GAA_Color)) THEN
6561: --flag color changes to KPIs
6562: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
6563: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
6564: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Color);
6565: END IF;
6566: --dbms_output.PUT_LINE('COLOR CHANGES');
6559: --dbms_output.PUT_LINE('NO CHANGES');
6560: ELSIF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.GAA_Color)) THEN
6561: --flag color changes to KPIs
6562: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
6563: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
6564: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Color);
6565: END IF;
6566: --dbms_output.PUT_LINE('COLOR CHANGES');
6567: ELSE
6565: END IF;
6566: --dbms_output.PUT_LINE('COLOR CHANGES');
6567: ELSE
6568: --flag structural changes to KPIs
6569: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id,l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
6570: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
6571: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
6572: END IF;
6573: --dbms_output.PUT_LINE('STRUCTURAL CHANGES');
6566: --dbms_output.PUT_LINE('COLOR CHANGES');
6567: ELSE
6568: --flag structural changes to KPIs
6569: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id,l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
6570: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
6571: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
6572: END IF;
6573: --dbms_output.PUT_LINE('STRUCTURAL CHANGES');
6574: END IF;
6579: , x_msg_count => x_msg_count
6580: , x_msg_data => x_msg_data
6581: );
6582: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6583: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6585: END IF;
6586: END LOOP;
6587: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
6583: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6585: END IF;
6586: END LOOP;
6587: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
6588: ( p_commit => FND_API.G_FALSE
6589: , p_kpi_id => p_kpi_id
6590: , p_dim_set_id => p_dim_set_id
6591: , x_return_status => x_return_status
6592: , x_msg_count => x_msg_count
6593: , x_msg_data => x_msg_data
6594: );
6595: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6596: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6598: END IF;
6599: IF (p_commit = FND_API.G_TRUE) THEN
6600: COMMIT;
6600: COMMIT;
6601: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6602: END IF;
6603: x_return_status := FND_API.G_RET_STS_SUCCESS;
6604: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet procedure');
6605: EXCEPTION
6606: WHEN FND_API.G_EXC_ERROR THEN
6607: IF (x_msg_data IS NULL) THEN
6608: FND_MSG_PUB.Count_And_Get
6625: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6626: WHEN NO_DATA_FOUND THEN
6627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6628: IF (x_msg_data IS NOT NULL) THEN
6629: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6630: ELSE
6631: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6632: END IF;
6633: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6628: IF (x_msg_data IS NOT NULL) THEN
6629: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6630: ELSE
6631: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6632: END IF;
6633: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6634: WHEN OTHERS THEN
6635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6633: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6634: WHEN OTHERS THEN
6635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6636: IF (x_msg_data IS NOT NULL) THEN
6637: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6638: ELSE
6639: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6640: END IF;
6641: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
6635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6636: IF (x_msg_data IS NOT NULL) THEN
6637: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6638: ELSE
6639: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet ';
6640: END IF;
6641: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
6642: END Create_Dim_Objs_In_DSet;
6643:
6674: SELECT dim_level_id
6675: FROM BSC_SYS_DIM_LEVELS_BY_GROUP
6676: WHERE dim_group_id = l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id;
6677: BEGIN
6678: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet procedure');
6679: FND_MSG_PUB.Initialize;
6680: x_return_status := FND_API.G_RET_STS_SUCCESS;
6681: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
6682: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
6690: , x_msg_count => x_msg_count
6691: , x_msg_data => x_msg_data
6692: );
6693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6694: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6696: END IF;
6697: FOR cd IN c_dim_level_id LOOP
6698: l_bsc_dimset_rec.Bsc_Level_Id := cd.dim_level_id;
6703: , x_msg_count => x_msg_count
6704: , x_msg_data => x_msg_data
6705: );
6706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6707: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6709: END IF;
6710: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6711: ( p_commit => FND_API.G_FALSE
6714: , x_msg_count => x_msg_count
6715: , x_msg_data => x_msg_data
6716: );
6717: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6718: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels');
6719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6720: END IF;
6721: END LOOP;
6722: END LOOP;
6727: , x_msg_count => x_msg_count
6728: , x_msg_data => x_msg_data
6729: );
6730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6733: END IF;
6734: --for share KPIs
6735: FOR cm IN c_kpi_ids LOOP
6744: , x_msg_count => x_msg_count
6745: , x_msg_data => x_msg_data
6746: );
6747: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6748: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6750: END IF;
6751: FOR cd IN c_dim_level_id LOOP
6752: l_bsc_dimset_rec.Bsc_Level_Id := cd.dim_level_id;
6757: , x_msg_count => x_msg_count
6758: , x_msg_data => x_msg_data
6759: );
6760: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6761: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: END IF;
6764: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6765: ( p_commit => FND_API.G_FALSE
6768: , x_msg_count => x_msg_count
6769: , x_msg_data => x_msg_data
6770: );
6771: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6772: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels');
6773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6774: END IF;
6775: END LOOP;
6776: END LOOP;
6781: , x_msg_count => x_msg_count
6782: , x_msg_data => x_msg_data
6783: );
6784: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6785: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET <'||x_msg_data||'>');
6786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6787: END IF;
6788: END LOOP;
6789: --create the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
6786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6787: END IF;
6788: END LOOP;
6789: --create the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
6790: BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object
6791: ( p_commit => FND_API.G_FALSE
6792: , p_kpi_id => p_kpi_id
6793: , p_dim_set_id => p_dim_set_id
6794: , x_return_status => x_return_status
6795: , x_msg_count => x_msg_count
6796: , x_msg_data => x_msg_data
6797: );
6798: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6799: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6801: END IF;
6802: IF (p_commit = FND_API.G_TRUE) THEN
6803: COMMIT;
6803: COMMIT;
6804: --dbms_output.PUT_LINE('COMMIT SUCCESSFUL');
6805: END IF;
6806: x_return_status := FND_API.G_RET_STS_SUCCESS;
6807: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet procedure');
6808: EXCEPTION
6809: WHEN FND_API.G_EXC_ERROR THEN
6810: IF (x_msg_data IS NULL) THEN
6811: FND_MSG_PUB.Count_And_Get
6828: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6829: WHEN NO_DATA_FOUND THEN
6830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6831: IF (x_msg_data IS NOT NULL) THEN
6832: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6833: ELSE
6834: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6835: END IF;
6836: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6831: IF (x_msg_data IS NOT NULL) THEN
6832: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6833: ELSE
6834: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6835: END IF;
6836: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6837: WHEN OTHERS THEN
6838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6836: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6837: WHEN OTHERS THEN
6838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6839: IF (x_msg_data IS NOT NULL) THEN
6840: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6841: ELSE
6842: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6843: END IF;
6844: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
6838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6839: IF (x_msg_data IS NOT NULL) THEN
6840: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6841: ELSE
6842: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet ';
6843: END IF;
6844: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
6845: END Delete_Dim_Objs_In_DSet;
6846: /********************************************************************************/
6859: WHERE (Source_Indicator = p_kpi_id
6860: OR Indicator = p_kpi_id)
6861: AND share_flag <> 2;
6862: BEGIN
6863: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.get_KPIs Function');
6864: FND_MSG_PUB.Initialize;
6865: IF (p_Kpi_ID IS NULL) THEN
6866: RETURN NULL;
6867: END IF;
6890: FND_MESSAGE.SET_TOKEN('INDICATORS', l_kpi_names);
6891: FND_MSG_PUB.ADD;
6892: RAISE FND_API.G_EXC_ERROR;
6893: END IF;
6894: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.get_KPIs Function');
6895: RETURN NULL;
6896: EXCEPTION
6897: WHEN FND_API.G_EXC_ERROR THEN
6898: IF (l_Msg_Data IS NULL) THEN
6901: , p_count => l_msg_count
6902: , p_data => l_Msg_Data
6903: );
6904: END IF;
6905: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.get_KPIs');
6906: RETURN l_Msg_Data;
6907: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6908: IF (l_Msg_Data IS NULL) THEN
6909: FND_MSG_PUB.Count_And_Get
6911: , p_count => l_msg_count
6912: , p_data => l_Msg_Data
6913: );
6914: END IF;
6915: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR BSC_BIS_KPI_MEAS_PUB.get_KPIs');
6916: RETURN l_Msg_Data;
6917: WHEN OTHERS THEN
6918: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||SQLERRM);
6919: RETURN NULL;
6961: AND B.Indicator = p_Kpi_ID
6962: AND B.Dim_Set_ID = p_Dim_Set_ID
6963: ORDER BY B.Dim_Group_Index;
6964: BEGIN
6965: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets Function');
6966: FND_MSG_PUB.Initialize;
6967: l_Dim_Short_Names := p_Dim_Short_Names;
6968: IF (p_Kpi_ID IS NULL) THEN
6969: RETURN NULL;
7074: --dbms_output.PUT_LINE('l_Struct_Flag IS TRUE');
7075: ELSE
7076: --dbms_output.PUT_LINE('l_Struct_Flag IS FALSE');
7077: END IF;*/
7078: l_kpi_names := BSC_BIS_KPI_MEAS_PUB.get_KPIs(p_Kpi_ID, NULL);
7079: IF ((l_Struct_Flag) AND (l_kpi_names IS NOT NULL)) THEN
7080: l_Msg_Data := l_kpi_names;
7081: RAISE FND_API.G_EXC_ERROR;
7082: END IF;
7079: IF ((l_Struct_Flag) AND (l_kpi_names IS NOT NULL)) THEN
7080: l_Msg_Data := l_kpi_names;
7081: RAISE FND_API.G_EXC_ERROR;
7082: END IF;
7083: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets Function');
7084: RETURN NULL;
7085: EXCEPTION
7086: WHEN FND_API.G_EXC_ERROR THEN
7087: IF (l_Msg_Data IS NULL) THEN
7090: , p_count => l_msg_count
7091: , p_data => l_Msg_Data
7092: );
7093: END IF;
7094: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets');
7095: RETURN l_Msg_Data;
7096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7097: IF (l_Msg_Data IS NULL) THEN
7098: FND_MSG_PUB.Count_And_Get
7100: , p_count => l_msg_count
7101: , p_data => l_Msg_Data
7102: );
7103: END IF;
7104: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets');
7105: RETURN l_Msg_Data;
7106: WHEN OTHERS THEN
7107: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||SQLERRM);
7108: RETURN NULL;
7205: BSC_SYS_DIM_GROUPS_VL vl
7206: WHERE b.dim_group_id = vl.dim_group_id
7207: AND INSTR(l_final_dim_names,','||vl.short_name ||',')>0 ;
7208: --dbms_output.PUT_LINE('THE COUNT OF DIMOBJECTS :- '||l_count );
7209: IF(l_count > BSC_BIS_KPI_MEAS_PUB.CONFIG_LIMIT_DIM) THEN
7210: --dbms_output.PUT_LINE('DIMESION OBJECTS MESSAEGE' );
7211: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SPACE');
7212: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7213: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7217:
7218: SELECT COUNT(DIM_SET_ID) INTO l_dim_set_count
7219: FROM BSC_KPI_DIM_SETS_VL
7220: WHERE INDICATOR = p_Kpi_ID;
7221: IF (l_dim_set_count > BSC_BIS_KPI_MEAS_PUB.CONFIG_LIMIT_DIMSET ) THEN
7222: --dbms_output.PUT_LINE('FIRST dimset IF LOOP' );
7223: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SUMMARY_LVL');
7224: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7225: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7226: FND_MSG_PUB.ADD;
7227: RAISE FND_API.G_EXC_ERROR;
7228: END IF;
7229: --dbms_output.PUT_LINE('DIM SET COUNT :- '||l_dim_set_count );
7230: IF(l_dim_set_count = BSC_BIS_KPI_MEAS_PUB.CONFIG_LIMIT_DIMSET AND p_Dim_Set_ID IS NULL ) THEN
7231: --dbms_output.PUT_LINE('dimset IF LOOP' );
7232: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SUMMARY_LVL');
7233: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7234: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7258: END LOOP;
7259: --dbms_output.PUT_LINE('The final dimension objects are :- '||l_dimobj_name_rel );
7260: l_no_rels := get_no_rels(p_dim_obj_sht_names => l_dimobj_name_rel);
7261: --dbms_output.PUT_LINE('THE NO OF RELATIONS ARE :- '||l_no_rels );
7262: IF(l_no_rels > BSC_BIS_KPI_MEAS_PUB.CONFIG_LIMIT_RELS) THEN
7263: --dbms_output.PUT_LINE('RELATIONS MESSAGE' );
7264: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SUMMARY_LVL');
7265: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7266: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7467: WHERE Source_Indicator = p_kpi_id
7468: AND Prototype_Flag <> 2;
7469:
7470: BEGIN
7471: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure');
7472: SAVEPOINT DeleteBSCKPIMulAnaOpts;
7473: FND_MSG_PUB.Initialize;
7474: x_return_status := FND_API.G_RET_STS_SUCCESS;
7475: IF (p_data_source IS NULL) THEN
7565: WHERE INDICATOR = p_kpi_id;*/
7566:
7567: l_count := get_Struct_Meas_Count(p_kpi_id);
7568:
7569: BSC_BIS_KPI_MEAS_PUB.store_kpi_anal_group(p_kpi_id, l_Anal_Opt_Tbl);
7570: BSC_ANALYSIS_OPTION_PUB.store_anal_opt_grp_count(p_kpi_id,l_old_Anal_Opt_Tbl);
7571:
7572:
7573: l_Anal_Opt_Rec.Bsc_Kpi_Id := p_kpi_id;
7604: , x_msg_count => x_msg_count
7605: , x_msg_data => x_msg_data
7606: );
7607: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7608: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Ana_Opt_Mult_Groups Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
7609: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7610: END IF;
7611: ELSE
7612: l_Default_Delete := TRUE;
7612: l_Default_Delete := TRUE;
7613: END IF;
7614: END IF;
7615: IF ((p_data_source = 'PMF') OR (l_Default_Delete)) THEN
7616: BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options
7617: ( p_Bsc_Anal_Opt_Rec => l_Bsc_Anal_Opt_Rec
7618: , p_data_source => p_data_source
7619: , x_return_status => x_return_status
7620: , x_msg_count => x_msg_count
7620: , x_msg_count => x_msg_count
7621: , x_msg_data => x_msg_data
7622: );
7623: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7624: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Ana_Opt_Mult_Groups Failed: at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options');
7625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7626: END IF;
7627: END IF;
7628:
7634: , x_msg_count => x_msg_count
7635: , x_msg_data => x_msg_data
7636: );
7637: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7638: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_KPI_PVT.Set_Default_Option');
7639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7640: END IF;
7641:
7642: BSC_KPI_PUB.Update_Kpi_Time_Stamp
7646: , x_msg_count => x_msg_count
7647: , x_msg_data => x_msg_data
7648: );
7649: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7650: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_KPI_PUB.Update_Kpi_Time_Stamp');
7651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7652: END IF;
7653:
7654: BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group
7659: , x_msg_count => x_msg_count
7660: , x_msg_data => x_msg_data
7661: );
7662: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7663: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_BIS_KPI_MEAS_PUB.Synch_Kpi_Anal_Group');
7664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7665: END IF;
7666:
7667: /* SELECT COUNT (DISTINCT dataset_id) INTO l_new_count
7685: , x_msg_count => x_msg_count
7686: , x_msg_data => x_msg_data
7687: );
7688: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7689: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts Failed: at BSC_BIS_KPI_MEAS_PUB.Synch_Kpi_Anal_Group');
7690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7691: END IF;
7692:
7693: SELECT COUNT (DISTINCT dataset_id) INTO l_new_count
7707: , x_msg_count => x_msg_count
7708: , x_msg_data => x_msg_data
7709: );
7710: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7711: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure Failed:at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button');
7712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7713: END IF;
7714:
7715: -- Added for Start-to-End KPI Enhancement to maintain SHORT_NAME
7730: IF (p_commit = FND_API.G_TRUE) THEN
7731: COMMIT;
7732: END IF;
7733: x_return_status := FND_API.G_RET_STS_SUCCESS;
7734: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure');
7735: EXCEPTION
7736: WHEN FND_API.G_EXC_ERROR THEN
7737: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7738: IF (x_msg_data IS NULL) THEN
7758: WHEN NO_DATA_FOUND THEN
7759: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7761: IF (x_msg_data IS NOT NULL) THEN
7762: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7763: ELSE
7764: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7765: END IF;
7766: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7761: IF (x_msg_data IS NOT NULL) THEN
7762: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7763: ELSE
7764: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7765: END IF;
7766: --dbms_output.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7767: WHEN OTHERS THEN
7768: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7767: WHEN OTHERS THEN
7768: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7770: IF (x_msg_data IS NOT NULL) THEN
7771: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7772: ELSE
7773: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7774: END IF;
7775: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
7769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7770: IF (x_msg_data IS NOT NULL) THEN
7771: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7772: ELSE
7773: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts ';
7774: END IF;
7775: --dbms_output.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
7776: END Delete_KPI_Multi_Groups_Opts;
7777:
7817:
7818: BSC_UTILITY.Parse_String
7819: (
7820: p_List => l_Source
7821: , p_Separator => BSC_BIS_KPI_MEAS_PUB.COMMA_SEPARATOR
7822: , p_List_Data => l_period_values
7823: , p_List_number => l_period_number
7824: );
7825:
7857:
7858: l_ifCircular BOOLEAN;
7859:
7860: BEGIN
7861: l_ifCircular := BSC_BIS_KPI_MEAS_PUB.Find_Period_CircularRef
7862: (
7863: p_basePeriod => p_basePeriod
7864: , p_current_period => p_current_period
7865: );
7863: p_basePeriod => p_basePeriod
7864: , p_current_period => p_current_period
7865: );
7866: IF(l_ifCircular) THEN
7867: RETURN BSC_BIS_KPI_MEAS_PUB.CIR_REF_EXISTS;
7868: END IF;
7869:
7870: RETURN BSC_BIS_KPI_MEAS_PUB.CIR_REF_NOTEXISTS;
7871: END is_Period_Circular;
7866: IF(l_ifCircular) THEN
7867: RETURN BSC_BIS_KPI_MEAS_PUB.CIR_REF_EXISTS;
7868: END IF;
7869:
7870: RETURN BSC_BIS_KPI_MEAS_PUB.CIR_REF_NOTEXISTS;
7871: END is_Period_Circular;
7872: /****************************************************************************************
7873: To get comma seperated dimension object shortnames for a given BIS measure shortname
7874: ****************************************************************************************/
7880: , x_msg_count OUT NOCOPY NUMBER
7881: , x_msg_data OUT NOCOPY VARCHAR2
7882:
7883: )IS
7884: l_DimObj_ViewBy_Tbl BSC_BIS_KPI_MEAS_PUB.DimObj_Viewby_Tbl_Type;
7885: l_comma_shtnames VARCHAR2(32000);
7886: l_dim_sht_name VARCHAR2(32000);
7887: l_measure_short_name VARCHAR2(32000);
7888:
7896: AND SYS.DATASET_ID = p_dataset_id;
7897:
7898: --dbms_output.PUT_LINE('given measure short name is :- '|| l_measure_short_name);
7899:
7900: BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl(
7901: p_Measure_Short_Name => l_measure_short_name
7902: , p_Region_Code => null
7903: , x_DimObj_ViewBy_Tbl => l_DimObj_ViewBy_Tbl
7904: , x_return_status => x_return_status
7905: , x_msg_count => x_msg_count
7906: , x_msg_data => x_msg_data
7907: );
7908: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7909: ----dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
7910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7911: END IF;
7912:
7913: --dbms_output.PUT_LINE('The no of dimension objects count is = '||l_DimObj_ViewBy_Tbl.COUNT);
7935: , x_Msg_Count => x_msg_count
7936: , x_Msg_Data => x_msg_data
7937: );
7938: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7939: ----dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
7940: SELECT NAME
7941: INTO x_dimobj_name
7942: FROM BIS_LEVELS_VL
7943: WHERE SHORT_NAME = l_dim_sht_name;
7958: , x_Msg_Count => x_msg_count
7959: , x_Msg_Data => x_msg_data
7960: );
7961: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7962: ----dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults Failed: at BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl');
7963: SELECT NAME
7964: INTO x_dimobj_name
7965: FROM BIS_LEVELS_VL
7966: WHERE SHORT_NAME = l_comma_shtnames;
7989: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7990: WHEN OTHERS THEN
7991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7992: IF (x_msg_data IS NOT NULL) THEN
7993: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
7994: ELSE
7995: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
7996: END IF;
7997: --dbms_output.PUT_LINE('EXCEPTION IN WHEN OTHERS '||x_msg_data);
7991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7992: IF (x_msg_data IS NOT NULL) THEN
7993: x_msg_data := x_msg_data||' -> BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
7994: ELSE
7995: x_msg_data := SQLERRM||' at BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults ';
7996: END IF;
7997: --dbms_output.PUT_LINE('EXCEPTION IN WHEN OTHERS '||x_msg_data);
7998: END check_pmf_validveiw_for_mes;
7999:
8180: x_tab_ids := NULL;
8181: END get_common_dimensions_tabs;
8182:
8183:
8184: END BSC_BIS_KPI_MEAS_PUB;