[Home] [Help]
364: RETURN l_Count;
365: END Get_Number_Of_Dimensions;
366: --=========================================================================================
367: PROCEDURE Sync_All_Enable_Flag
368: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
369: , p_Dim_Obj_Short_Name IN VARCHAR2
370: , x_return_status OUT NOCOPY VARCHAR2
371: , x_msg_count OUT NOCOPY NUMBER
372: , x_msg_data OUT NOCOPY VARCHAR2
415: SET Total_Flag = l_Total_Flag
416: WHERE Dim_Level_Id = l_Bsc_Level_ID;
417: END IF;
418: END IF;
419: IF (p_commit = FND_API.G_TRUE) THEN
420: COMMIT;
421: --DBMS_OUTPUT.PUT_LINE('COMMIT SUCCESSFUL');
422: END IF;
423: x_return_status := FND_API.G_RET_STS_SUCCESS;
419: IF (p_commit = FND_API.G_TRUE) THEN
420: COMMIT;
421: --DBMS_OUTPUT.PUT_LINE('COMMIT SUCCESSFUL');
422: END IF;
423: x_return_status := FND_API.G_RET_STS_SUCCESS;
424: --DBMS_OUTPUT.PUT_LINE('Exiting from BSC_BIS_DIMENSION_PUB.Sync_All_Enable_Flag procedure');
425: EXCEPTION
426: WHEN OTHERS THEN
427: ROLLBACK TO SyncPMFAllInPMD;
424: --DBMS_OUTPUT.PUT_LINE('Exiting from BSC_BIS_DIMENSION_PUB.Sync_All_Enable_Flag procedure');
425: EXCEPTION
426: WHEN OTHERS THEN
427: ROLLBACK TO SyncPMFAllInPMD;
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: IF (x_msg_data IS NULL) THEN
430: x_msg_data := SQLERRM||' -> BSC_BIS_DIMENSION_PUB.Sync_All_Enable_Flag ';
431: END IF;
432: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
432: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
433: END Sync_All_Enable_Flag;
434: --=========================================================================================
435: PROCEDURE Sync_Dimensions_In_Bis
436: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
437: , p_Dim_Obj_Short_Name IN VARCHAR2
438: , p_Sync_Flag IN BOOLEAN
439: , x_return_status OUT NOCOPY VARCHAR2
440: , x_msg_count OUT NOCOPY NUMBER
573: l_bis_dimension_level_rec.Dimension_Level_Short_Name := p_Dim_Obj_Short_Name;
574: l_bis_dimension_level_rec.Dimension_ID := l_Bis_Group_ID;
575: l_bis_dimension_level_rec.Dimension_Short_Name := l_Dim_Short_Name;
576:
577: l_bis_dimension_level_rec.Primary_Dim := FND_API.G_TRUE;
578:
579: BIS_DIMENSION_LEVEL_PUB.Update_Dimension_Level
580: ( p_api_version => 1.0
581: , p_commit => FND_API.G_FALSE
577: l_bis_dimension_level_rec.Primary_Dim := FND_API.G_TRUE;
578:
579: BIS_DIMENSION_LEVEL_PUB.Update_Dimension_Level
580: ( p_api_version => 1.0
581: , p_commit => FND_API.G_FALSE
582: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
583: , p_Dimension_Level_Rec => l_bis_dimension_level_rec
584: , x_return_status => x_return_status
585: , x_error_Tbl => l_error_tbl
578:
579: BIS_DIMENSION_LEVEL_PUB.Update_Dimension_Level
580: ( p_api_version => 1.0
581: , p_commit => FND_API.G_FALSE
582: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
583: , p_Dimension_Level_Rec => l_bis_dimension_level_rec
584: , x_return_status => x_return_status
585: , x_error_Tbl => l_error_tbl
586: );
583: , p_Dimension_Level_Rec => l_bis_dimension_level_rec
584: , x_return_status => x_return_status
585: , x_error_Tbl => l_error_tbl
586: );
587: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
588: IF (l_error_tbl.COUNT > 0) THEN
589: x_msg_data := l_error_tbl(l_error_tbl.COUNT).Error_Description;
590: IF(INSTR(x_msg_data, ' ') = 0 ) THEN
591: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
591: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
592: FND_MSG_PUB.ADD;
593: x_msg_data := NULL;
594: END IF;
595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
596: END IF;
597: END IF;
598: END IF;
599: IF (p_commit = FND_API.G_TRUE) THEN
595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
596: END IF;
597: END IF;
598: END IF;
599: IF (p_commit = FND_API.G_TRUE) THEN
600: COMMIT;
601:
602: END IF;
603: x_return_status := FND_API.G_RET_STS_SUCCESS;
599: IF (p_commit = FND_API.G_TRUE) THEN
600: COMMIT;
601:
602: END IF;
603: x_return_status := FND_API.G_RET_STS_SUCCESS;
604:
605: EXCEPTION
606: WHEN OTHERS THEN
607: ROLLBACK TO SyncPMFBSCDimsInPMD;
604:
605: EXCEPTION
606: WHEN OTHERS THEN
607: ROLLBACK TO SyncPMFBSCDimsInPMD;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: IF (x_msg_data IS NULL) THEN
610: x_msg_data := SQLERRM||' -> BSC_BIS_DIMENSION_PUB.Sync_Dimensions_In_Bis ';
611: END IF;
612:
620: ) IS
621: BEGIN
622: FOR i IN 0..(p_MTab_Tbl.COUNT-1) LOOP
623: BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet
624: ( p_commit => FND_API.G_FALSE
625: , p_kpi_id => p_MTab_Tbl(i).p_kpi_id
626: , p_dim_set_id => p_MTab_Tbl(i).p_dim_set_id
627: , x_return_status => x_return_status
628: , x_msg_count => x_msg_count
627: , x_return_status => x_return_status
628: , x_msg_count => x_msg_count
629: , x_msg_data => x_msg_data
630: );
631: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: END IF;
634: END LOOP;
635: END Delete_Dim_Objs_In_DSet;
628: , x_msg_count => x_msg_count
629: , x_msg_data => x_msg_data
630: );
631: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: END IF;
634: END LOOP;
635: END Delete_Dim_Objs_In_DSet;
636: /*********************************************************************************/
644: ) IS
645: BEGIN
646: FOR i IN 0..(p_MTab_Tbl.COUNT-1) LOOP
647: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet
648: ( p_commit => FND_API.G_FALSE
649: , p_kpi_id => p_MTab_Tbl(i).p_kpi_id
650: , p_dim_set_id => p_MTab_Tbl(i).p_dim_set_id
651: , p_kpi_flag_change => p_kpi_flag_change
652: , p_delete => p_delete
653: , x_return_status => x_return_status
654: , x_msg_count => x_msg_count
655: , x_msg_data => x_msg_data
656: );
657: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660: END LOOP;
661: END Create_Dim_Objs_In_DSet;
654: , x_msg_count => x_msg_count
655: , x_msg_data => x_msg_data
656: );
657: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660: END LOOP;
661: END Create_Dim_Objs_In_DSet;
662:
692: p_dim_obj_objs_tbl => p_dim_obj_objs_tbl
693: );
694:
695: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet
696: ( p_commit => FND_API.G_FALSE
697: , p_kpi_id => p_MTab_Tbl(i).p_kpi_id
698: , p_dim_set_id => p_MTab_Tbl(i).p_dim_set_id
699: , p_kpi_flag_change => l_kpi_flag_change
700: , p_delete => p_delete
702: , x_msg_count => x_msg_count
703: , x_msg_data => x_msg_data
704: );
705:
706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709:
710: END LOOP;
703: , x_msg_data => x_msg_data
704: );
705:
706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709:
710: END LOOP;
711: END Create_Dim_Objs_In_DSet;
794: /*********************************************************************************
795: CREATE DIMENSION
796: *********************************************************************************/
797: PROCEDURE Create_Dimension
798: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
799: , p_dim_short_name IN VARCHAR2
800: , p_display_name IN VARCHAR2
801: , p_description IN VARCHAR2
802: , p_dim_obj_short_names IN VARCHAR2
801: , p_description IN VARCHAR2
802: , p_dim_obj_short_names IN VARCHAR2
803: , p_application_id IN NUMBER
804: , p_create_view IN NUMBER := 0
805: , p_hide IN VARCHAR2 := FND_API.G_FALSE
806: , x_return_status OUT NOCOPY VARCHAR2
807: , x_msg_count OUT NOCOPY NUMBER
808: , x_msg_data OUT NOCOPY VARCHAR2
809: ) IS
810: BEGIN
811: SAVEPOINT CreateBSCDimensionPMD;
812:
813: FND_MSG_PUB.INITIALIZE;
814: x_return_status := FND_API.G_RET_STS_SUCCESS;
815:
816: Create_Dimension(
817: p_commit => p_commit
818: , p_dim_short_name => p_dim_short_name
827: , x_msg_count => x_msg_count
828: , x_msg_data => x_msg_data
829: );
830: EXCEPTION
831: WHEN FND_API.G_EXC_ERROR THEN
832: ROLLBACK TO CreateBSCDimensionPMD;
833: IF (x_msg_data IS NULL) THEN
834: FND_MSG_PUB.Count_And_Get
835: ( p_encoded => FND_API.G_FALSE
831: WHEN FND_API.G_EXC_ERROR THEN
832: ROLLBACK TO CreateBSCDimensionPMD;
833: IF (x_msg_data IS NULL) THEN
834: FND_MSG_PUB.Count_And_Get
835: ( p_encoded => FND_API.G_FALSE
836: , p_count => x_msg_count
837: , p_data => x_msg_data
838: );
839: END IF;
837: , p_data => x_msg_data
838: );
839: END IF;
840:
841: x_return_status := FND_API.G_RET_STS_ERROR;
842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
843: ROLLBACK TO CreateBSCDimensionPMD;
844: IF (x_msg_data IS NULL) THEN
845: FND_MSG_PUB.Count_And_Get
838: );
839: END IF;
840:
841: x_return_status := FND_API.G_RET_STS_ERROR;
842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
843: ROLLBACK TO CreateBSCDimensionPMD;
844: IF (x_msg_data IS NULL) THEN
845: FND_MSG_PUB.Count_And_Get
846: ( p_encoded => FND_API.G_FALSE
842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
843: ROLLBACK TO CreateBSCDimensionPMD;
844: IF (x_msg_data IS NULL) THEN
845: FND_MSG_PUB.Count_And_Get
846: ( p_encoded => FND_API.G_FALSE
847: , p_count => x_msg_count
848: , p_data => x_msg_data
849: );
850: END IF;
847: , p_count => x_msg_count
848: , p_data => x_msg_data
849: );
850: END IF;
851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
852:
853: WHEN NO_DATA_FOUND THEN
854: ROLLBACK TO CreateBSCDimensionPMD;
855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
852:
853: WHEN NO_DATA_FOUND THEN
854: ROLLBACK TO CreateBSCDimensionPMD;
855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
856: IF (x_msg_data IS NOT NULL) THEN
857: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Create_Dimension ';
858: ELSE
859: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Create_Dimension ';
860: END IF;
861:
862: WHEN OTHERS THEN
863: ROLLBACK TO CreateBSCDimensionPMD;
864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
865: IF (x_msg_data IS NOT NULL) THEN
866: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Create_Dimension ';
867: ELSE
868: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Create_Dimension ';
870:
871: END Create_Dimension;
872:
873: PROCEDURE Create_Dimension
874: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
875: , p_dim_short_name IN VARCHAR2
876: , p_display_name IN VARCHAR2
877: , p_description IN VARCHAR2
878: , p_dim_obj_short_names IN VARCHAR2
877: , p_description IN VARCHAR2
878: , p_dim_obj_short_names IN VARCHAR2
879: , p_application_id IN NUMBER
880: , p_create_view IN NUMBER := 0
881: , p_hide IN VARCHAR2 := FND_API.G_FALSE
882: , p_is_default_short_name IN VARCHAR2
883: , p_Restrict_Dim_Validate IN VARCHAR2 := NULL
884: , x_return_status OUT NOCOPY VARCHAR2
885: , x_msg_count OUT NOCOPY NUMBER
958: IF (l_dim_short_name IS NULL) THEN
959: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
960: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'));
961: FND_MSG_PUB.ADD;
962: RAISE FND_API.G_EXC_ERROR;
963: END IF;
964: IF (NOT is_Valid_AlphaNum(l_dim_short_name)) THEN
965: FND_MESSAGE.SET_NAME('BSC','BSC_ALPHA_NUM_REQUIRED');
966: FND_MESSAGE.SET_TOKEN('VALUE', l_dim_short_name);
965: FND_MESSAGE.SET_NAME('BSC','BSC_ALPHA_NUM_REQUIRED');
966: FND_MESSAGE.SET_TOKEN('VALUE', l_dim_short_name);
967: FND_MESSAGE.SET_TOKEN('NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'));
968: FND_MSG_PUB.ADD;
969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
971: IF (p_display_name IS NULL) THEN
972: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
973: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DISPLAY_NAME'));
971: IF (p_display_name IS NULL) THEN
972: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
973: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DISPLAY_NAME'));
974: FND_MSG_PUB.ADD;
975: RAISE FND_API.G_EXC_ERROR;
976: END IF;
977: IF (l_application_id IS NULL) THEN
978: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
979: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'APPLICATION_ID'));
977: IF (l_application_id IS NULL) THEN
978: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
979: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'APPLICATION_ID'));
980: FND_MSG_PUB.ADD;
981: RAISE FND_API.G_EXC_ERROR;
982: END IF;
983:
984: SELECT COUNT(1) INTO l_count
985: FROM BSC_SYS_DIM_GROUPS_TL
988: FND_MESSAGE.SET_NAME('BSC','BSC_UNIQUE_NAME_REQUIRED');
989: FND_MESSAGE.SET_TOKEN('SHORT_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'));
990: FND_MESSAGE.SET_TOKEN('NAME_VALUE', l_dim_short_name);
991: FND_MSG_PUB.ADD;
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
994:
995: SELECT COUNT(1) INTO l_count
996: FROM BIS_DIMENSIONS_VL
999: FND_MESSAGE.SET_NAME('BSC','BSC_UNIQUE_NAME_REQUIRED');
1000: FND_MESSAGE.SET_TOKEN('SHORT_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'));
1001: FND_MESSAGE.SET_TOKEN('NAME_VALUE', l_dim_short_name);
1002: FND_MSG_PUB.ADD;
1003: RAISE FND_API.G_EXC_ERROR;
1004: END IF;
1005:
1006:
1007: l_mix_type_dim := FALSE;
1016: , x_msg_count => x_msg_count
1017: , x_msg_data => x_msg_data
1018: );
1019: IF (l_mix_type_dim) THEN
1020: RAISE FND_API.G_EXC_ERROR;
1021: END IF;
1022: END IF;
1023:
1024: l_pmf_disp_name := p_display_name;
1048: FND_MESSAGE.SET_NAME('BSC','BSC_UNIQUE_NAME_REQUIRED');
1049: FND_MESSAGE.SET_TOKEN('SHORT_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DISPLAY_NAME'));
1050: FND_MESSAGE.SET_TOKEN('NAME_VALUE', p_display_name);
1051: FND_MSG_PUB.ADD;
1052: RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054:
1055: SELECT COUNT(1) INTO l_count
1056: FROM BIS_DIMENSIONS_VL
1059: FND_MESSAGE.SET_NAME('BSC','BSC_UNIQUE_NAME_REQUIRED');
1060: FND_MESSAGE.SET_TOKEN('SHORT_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DISPLAY_NAME'));
1061: FND_MESSAGE.SET_TOKEN('NAME_VALUE', p_display_name);
1062: FND_MSG_PUB.ADD;
1063: RAISE FND_API.G_EXC_ERROR;
1064: END IF;
1065:
1066: END IF;
1067:
1097: , x_return_status => x_return_status
1098: , x_msg_count => x_msg_count
1099: , x_msg_data => x_msg_data
1100: );
1101: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104: END IF;
1105: -- End Granular Locking
1098: , x_msg_count => x_msg_count
1099: , x_msg_data => x_msg_data
1100: );
1101: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104: END IF;
1105: -- End Granular Locking
1106: BSC_DIMENSION_GROUPS_PUB.Create_Dimension_Group
1103: END IF;
1104: END IF;
1105: -- End Granular Locking
1106: BSC_DIMENSION_GROUPS_PUB.Create_Dimension_Group
1107: ( p_commit => FND_API.G_FALSE
1108: , p_Dim_Grp_Rec => l_bsc_dimension_rec
1109: , p_create_Dim_Levels => FALSE
1110: , x_return_status => x_return_status
1111: , x_msg_count => x_msg_count
1110: , x_return_status => x_return_status
1111: , x_msg_count => x_msg_count
1112: , x_msg_data => x_msg_data
1113: );
1114: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1116: END IF;
1117: --assign values to bis records -This is not required
1118: SELECT dim_group_id
1111: , x_msg_count => x_msg_count
1112: , x_msg_data => x_msg_data
1113: );
1114: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1116: END IF;
1117: --assign values to bis records -This is not required
1118: SELECT dim_group_id
1119: INTO l_bis_dimension_rec.Dim_Grp_Id
1126: l_bis_dimension_rec.Application_ID := l_application_id;
1127: l_bis_dimension_rec.Hide := p_hide;
1128: BIS_DIMENSION_PUB.Create_Dimension
1129: ( p_api_version => 1.0
1130: , p_commit => FND_API.G_FALSE
1131: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1132: , p_Dimension_Rec => l_bis_dimension_rec
1133: , x_return_status => x_return_status
1134: , x_error_Tbl => l_error_tbl
1127: l_bis_dimension_rec.Hide := p_hide;
1128: BIS_DIMENSION_PUB.Create_Dimension
1129: ( p_api_version => 1.0
1130: , p_commit => FND_API.G_FALSE
1131: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1132: , p_Dimension_Rec => l_bis_dimension_rec
1133: , x_return_status => x_return_status
1134: , x_error_Tbl => l_error_tbl
1135: );
1132: , p_Dimension_Rec => l_bis_dimension_rec
1133: , x_return_status => x_return_status
1134: , x_error_Tbl => l_error_tbl
1135: );
1136: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1137: IF (l_error_tbl.COUNT > 0) THEN
1138: x_msg_data := l_error_tbl(l_error_tbl.COUNT).Error_Description;
1139: IF(INSTR(x_msg_data, ' ') = 0 ) THEN
1140: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
1140: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
1141: FND_MSG_PUB.ADD;
1142: x_msg_data := NULL;
1143: END IF;
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: END IF;
1146:
1147: END IF;
1148: IF (p_dim_obj_short_names IS NOT NULL) THEN
1146:
1147: END IF;
1148: IF (p_dim_obj_short_names IS NOT NULL) THEN
1149: BSC_BIS_DIMENSION_PUB.Assign_Dimension_Objects
1150: ( p_commit => FND_API.G_FALSE
1151: , p_dim_short_name => l_dim_short_name
1152: , p_dim_obj_short_names => p_dim_obj_short_names
1153: , p_create_view => p_create_view
1154: , p_Restrict_Dim_Validate => p_Restrict_Dim_Validate
1155: , x_return_status => x_return_status
1156: , x_msg_count => x_msg_count
1157: , x_msg_data => x_msg_data
1158: );
1159: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1161: END IF;
1162: END IF;
1163:
1156: , x_msg_count => x_msg_count
1157: , x_msg_data => x_msg_data
1158: );
1159: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1161: END IF;
1162: END IF;
1163:
1164: IF (p_commit = FND_API.G_TRUE) THEN
1160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1161: END IF;
1162: END IF;
1163:
1164: IF (p_commit = FND_API.G_TRUE) THEN
1165: COMMIT;
1166:
1167: END IF;
1168: x_return_status := FND_API.G_RET_STS_SUCCESS;
1164: IF (p_commit = FND_API.G_TRUE) THEN
1165: COMMIT;
1166:
1167: END IF;
1168: x_return_status := FND_API.G_RET_STS_SUCCESS;
1169:
1170: EXCEPTION
1171: WHEN FND_API.G_EXC_ERROR THEN
1172: ROLLBACK TO CreateBSCDimensionPMD;
1167: END IF;
1168: x_return_status := FND_API.G_RET_STS_SUCCESS;
1169:
1170: EXCEPTION
1171: WHEN FND_API.G_EXC_ERROR THEN
1172: ROLLBACK TO CreateBSCDimensionPMD;
1173: IF (x_msg_data IS NULL) THEN
1174: FND_MSG_PUB.Count_And_Get
1175: ( p_encoded => FND_API.G_FALSE
1171: WHEN FND_API.G_EXC_ERROR THEN
1172: ROLLBACK TO CreateBSCDimensionPMD;
1173: IF (x_msg_data IS NULL) THEN
1174: FND_MSG_PUB.Count_And_Get
1175: ( p_encoded => FND_API.G_FALSE
1176: , p_count => x_msg_count
1177: , p_data => x_msg_data
1178: );
1179: END IF;
1177: , p_data => x_msg_data
1178: );
1179: END IF;
1180:
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1183: ROLLBACK TO CreateBSCDimensionPMD;
1184: IF (x_msg_data IS NULL) THEN
1185: FND_MSG_PUB.Count_And_Get
1178: );
1179: END IF;
1180:
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1183: ROLLBACK TO CreateBSCDimensionPMD;
1184: IF (x_msg_data IS NULL) THEN
1185: FND_MSG_PUB.Count_And_Get
1186: ( p_encoded => FND_API.G_FALSE
1182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1183: ROLLBACK TO CreateBSCDimensionPMD;
1184: IF (x_msg_data IS NULL) THEN
1185: FND_MSG_PUB.Count_And_Get
1186: ( p_encoded => FND_API.G_FALSE
1187: , p_count => x_msg_count
1188: , p_data => x_msg_data
1189: );
1190: END IF;
1187: , p_count => x_msg_count
1188: , p_data => x_msg_data
1189: );
1190: END IF;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192:
1193: WHEN NO_DATA_FOUND THEN
1194: ROLLBACK TO CreateBSCDimensionPMD;
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192:
1193: WHEN NO_DATA_FOUND THEN
1194: ROLLBACK TO CreateBSCDimensionPMD;
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1196: IF (x_msg_data IS NOT NULL) THEN
1197: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Create_Dimension ';
1198: ELSE
1199: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Create_Dimension ';
1200: END IF;
1201:
1202: WHEN OTHERS THEN
1203: ROLLBACK TO CreateBSCDimensionPMD;
1204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1205: IF (x_msg_data IS NOT NULL) THEN
1206: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Create_Dimension ';
1207: ELSE
1208: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Create_Dimension ';
1212: /*********************************************************************************
1213: ASSIGN DIMENSION OBJECTS TO DIMENSION
1214: *********************************************************************************/
1215: PROCEDURE Assign_Dimension_Objects
1216: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
1217: , p_dim_short_name IN VARCHAR2
1218: , p_dim_obj_short_names IN VARCHAR2
1219: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
1220: , p_create_view IN NUMBER := 0
1270: WHERE Short_Name = l_dim_obj_name;
1271: BEGIN
1272:
1273: FND_MSG_PUB.Initialize;
1274: x_return_status := FND_API.G_RET_STS_SUCCESS;
1275: IF (p_dim_short_name IS NULL) THEN
1276: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1277: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
1278: FND_MSG_PUB.ADD;
1275: IF (p_dim_short_name IS NULL) THEN
1276: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1277: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
1278: FND_MSG_PUB.ADD;
1279: RAISE FND_API.G_EXC_ERROR;
1280: END IF;
1281: IF (p_dim_obj_short_names IS NOT NULL) THEN
1282: IF (cr_bsc_dim_id%ISOPEN) THEN
1283: CLOSE cr_bsc_dim_id;
1289: IF (l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id IS NULL) THEN
1290: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
1291: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'EDW_DIMENSION'), TRUE);
1292: FND_MSG_PUB.ADD;
1293: RAISE FND_API.G_EXC_ERROR;
1294: END IF;
1295: IF (p_Restrict_Dim_Validate IS NOT NULL) THEN
1296: Restrict_Internal_Dim_Objs
1297: ( p_dim_short_name => p_dim_short_name
1301: , x_msg_count => x_msg_count
1302: , x_msg_data => x_msg_data
1303: );
1304: END IF;
1305: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1307: END IF;
1308: BSC_BIS_DIMENSION_PUB.Store_Dim_Set_Records
1309: ( p_dim_group_id => l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id
1302: , x_msg_data => x_msg_data
1303: );
1304: END IF;
1305: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1307: END IF;
1308: BSC_BIS_DIMENSION_PUB.Store_Dim_Set_Records
1309: ( p_dim_group_id => l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id
1310: , p_dim_short_name => p_dim_short_name
1331: IF (l_dim_level_id IS NULL) THEN
1332: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
1333: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIMENSION_OBJECT'), TRUE);
1334: FND_MSG_PUB.ADD;
1335: RAISE FND_API.G_EXC_ERROR;
1336: END IF;
1337:
1338: IF (NOT BSC_BIS_DIMENSION_PUB.is_Relation_Exists(l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id, l_dim_level_id)) THEN
1339: l_struct_change := TRUE;
1345: l_All_Flag := BSC_BIS_DIMENSION_PUB.Get_Primary_All_Flag(l_dim_obj_name);
1346:
1347: END IF;
1348: BSC_BIS_DIMENSION_PUB.Assign_Dimension_Object
1349: ( p_commit => FND_API.G_FALSE
1350: , p_dim_short_name => p_dim_short_name
1351: , p_dim_obj_short_name => l_dim_obj_name
1352: , p_comp_flag => -111 -- this value is acting like a flag
1353: , p_no_items => 0
1359: , x_return_status => x_return_status
1360: , x_msg_count => x_msg_count
1361: , x_msg_data => x_msg_data
1362: );
1363: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1365: END IF;
1366: END IF;
1367: END LOOP;
1360: , x_msg_count => x_msg_count
1361: , x_msg_data => x_msg_data
1362: );
1363: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1365: END IF;
1366: END IF;
1367: END LOOP;
1368: --ordering logic of dimension level indexes starts here
1399: l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id := l_dim_group_id;
1400: l_bsc_dimension_rec.Bsc_Level_Id := l_MTab_DimRels1(i).p_dim_obj_id;
1401:
1402: BSC_DIMENSION_GROUPS_PUB.Update_Dim_Levels_In_Group
1403: ( p_commit => FND_API.G_FALSE
1404: , p_Dim_Grp_Rec => l_bsc_dimension_rec
1405: , x_return_status => x_return_status
1406: , x_msg_count => x_msg_count
1407: , x_msg_data => x_msg_data
1405: , x_return_status => x_return_status
1406: , x_msg_count => x_msg_count
1407: , x_msg_data => x_msg_data
1408: );
1409: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1411: END IF;
1412: END IF;
1413: l_count := l_count + 1;
1406: , x_msg_count => x_msg_count
1407: , x_msg_data => x_msg_data
1408: );
1409: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1411: END IF;
1412: END IF;
1413: l_count := l_count + 1;
1414: END LOOP;
1427: l_bsc_dimension_rec.Bsc_Level_Id := l_MTab_DimRels2(l_tab_index).p_dim_obj_id;
1428: l_struct_change := TRUE;
1429:
1430: BSC_DIMENSION_GROUPS_PUB.Update_Dim_Levels_In_Group
1431: ( p_commit => FND_API.G_FALSE
1432: , p_Dim_Grp_Rec => l_bsc_dimension_rec
1433: , x_return_status => x_return_status
1434: , x_msg_count => x_msg_count
1435: , x_msg_data => x_msg_data
1433: , x_return_status => x_return_status
1434: , x_msg_count => x_msg_count
1435: , x_msg_data => x_msg_data
1436: );
1437: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1439: END IF;
1440: END IF;
1441: l_count := l_count + 1;
1434: , x_msg_count => x_msg_count
1435: , x_msg_data => x_msg_data
1436: );
1437: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1439: END IF;
1440: END IF;
1441: l_count := l_count + 1;
1442: END IF;
1458: , x_msg_data => x_msg_data
1459: );
1460: END IF;
1461: END IF;
1462: IF (p_commit = FND_API.G_TRUE) THEN
1463: COMMIT;
1464:
1465: END IF;
1466: x_return_status := FND_API.G_RET_STS_SUCCESS;
1462: IF (p_commit = FND_API.G_TRUE) THEN
1463: COMMIT;
1464:
1465: END IF;
1466: x_return_status := FND_API.G_RET_STS_SUCCESS;
1467:
1468: EXCEPTION
1469: WHEN FND_API.G_EXC_ERROR THEN
1470: IF (x_msg_data IS NULL) THEN
1465: END IF;
1466: x_return_status := FND_API.G_RET_STS_SUCCESS;
1467:
1468: EXCEPTION
1469: WHEN FND_API.G_EXC_ERROR THEN
1470: IF (x_msg_data IS NULL) THEN
1471: FND_MSG_PUB.Count_And_Get
1472: ( p_encoded => FND_API.G_FALSE
1473: , p_count => x_msg_count
1468: EXCEPTION
1469: WHEN FND_API.G_EXC_ERROR THEN
1470: IF (x_msg_data IS NULL) THEN
1471: FND_MSG_PUB.Count_And_Get
1472: ( p_encoded => FND_API.G_FALSE
1473: , p_count => x_msg_count
1474: , p_data => x_msg_data
1475: );
1476: END IF;
1474: , p_data => x_msg_data
1475: );
1476: END IF;
1477:
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1480: IF (x_msg_data IS NULL) THEN
1481: FND_MSG_PUB.Count_And_Get
1482: ( p_encoded => FND_API.G_FALSE
1475: );
1476: END IF;
1477:
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1480: IF (x_msg_data IS NULL) THEN
1481: FND_MSG_PUB.Count_And_Get
1482: ( p_encoded => FND_API.G_FALSE
1483: , p_count => x_msg_count
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1480: IF (x_msg_data IS NULL) THEN
1481: FND_MSG_PUB.Count_And_Get
1482: ( p_encoded => FND_API.G_FALSE
1483: , p_count => x_msg_count
1484: , p_data => x_msg_data
1485: );
1486: END IF;
1483: , p_count => x_msg_count
1484: , p_data => x_msg_data
1485: );
1486: END IF;
1487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1488:
1489: WHEN NO_DATA_FOUND THEN
1490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1491: IF (x_msg_data IS NOT NULL) THEN
1486: END IF;
1487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1488:
1489: WHEN NO_DATA_FOUND THEN
1490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1491: IF (x_msg_data IS NOT NULL) THEN
1492: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Assign_Dimension_Objects ';
1493: ELSE
1494: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Assign_Dimension_Objects ';
1494: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Assign_Dimension_Objects ';
1495: END IF;
1496:
1497: WHEN OTHERS 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_DIMENSION_PUB.Assign_Dimension_Objects ';
1501: ELSE
1502: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Assign_Dimension_Objects ';
1506: /*********************************************************************************
1507: ASSIGN OR UPDATE A DIMENSION OBJECT TO DIMENSION
1508: *********************************************************************************/
1509: PROCEDURE Assign_Dimension_Object
1510: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
1511: , p_dim_short_name IN VARCHAR2
1512: , p_dim_obj_short_name IN VARCHAR2
1513: , p_comp_flag IN NUMBER
1514: , p_no_items IN NUMBER
1579: BEGIN
1580: SAVEPOINT AssBSCDimObjectPMD;
1581:
1582: FND_MSG_PUB.Initialize;
1583: x_return_status := FND_API.G_RET_STS_SUCCESS;
1584: IF (p_dim_short_name IS NULL) THEN
1585: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1586: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
1587: FND_MSG_PUB.ADD;
1584: IF (p_dim_short_name IS NULL) THEN
1585: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1586: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
1587: FND_MSG_PUB.ADD;
1588: RAISE FND_API.G_EXC_ERROR;
1589: END IF;
1590: IF (cr_bsc_dim_id%ISOPEN) THEN
1591: CLOSE cr_bsc_dim_id;
1592: END IF;
1597: IF (l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id IS NULL) THEN
1598: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
1599: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'EDW_DIMENSION'), TRUE);
1600: FND_MSG_PUB.ADD;
1601: RAISE FND_API.G_EXC_ERROR;
1602: END IF;
1603:
1604: -- Check if the number of dimension objects within the dimension are greater than 1.
1605: -- if it is one it means that it is the current dimension object which we are trying to update.
1628: IF (l_Dim_Obj_Source = 'PMF') THEN
1629: FND_MESSAGE.SET_NAME('BIS', 'BIS_ONE_RNKLVL_IN_DIMGRP');
1630: FND_MESSAGE.SET_TOKEN('BIS_DIM_OBJ', l_Dim_Obj_Name, TRUE);
1631: FND_MSG_PUB.ADD;
1632: RAISE FND_API.G_EXC_ERROR;
1633: ELSIF (l_Dim_Obj_Source = 'BSC') THEN
1634: FND_MESSAGE.SET_NAME('BSC', 'BSC_D_ONE_DIM_IN_COMPARISON');
1635: FND_MSG_PUB.ADD;
1636: RAISE FND_API.G_EXC_ERROR;
1632: RAISE FND_API.G_EXC_ERROR;
1633: ELSIF (l_Dim_Obj_Source = 'BSC') THEN
1634: FND_MESSAGE.SET_NAME('BSC', 'BSC_D_ONE_DIM_IN_COMPARISON');
1635: FND_MSG_PUB.ADD;
1636: RAISE FND_API.G_EXC_ERROR;
1637: END IF;
1638: END IF;
1639: END IF;
1640:
1687: IF (l_bsc_dimension_rec.Bsc_Level_Id IS NULL) THEN
1688: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
1689: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIMENSION_OBJECT'), TRUE);
1690: FND_MSG_PUB.ADD;
1691: RAISE FND_API.G_EXC_ERROR;
1692: END IF;
1693: -- Can test with 'LEGAL ENTITY', 'EDW_HR_PERM_SPSR1_L9'
1694: l_Rolling_Period := BIS_UTILITIES_PVT.Is_Rolling_Period_Level(p_dim_obj_short_name);
1695: IF (p_create_view = 1 AND l_Rolling_Period = 0) THEN
1698: , x_dim_lvl_name => l_dim_lvl_name)) THEN
1699: FND_MESSAGE.SET_NAME('BSC','BSC_UNAVAILABLE_LEVEL');
1700: FND_MESSAGE.SET_TOKEN('BSC_LEVEL', l_dim_lvl_name, TRUE);
1701: FND_MSG_PUB.ADD;
1702: RAISE FND_API.G_EXC_ERROR;
1703: END IF;
1704: END IF;
1705:
1706: BSC_BIS_LOCKS_PUB.Lock_Update_Dim_Obj_In_Dim
1710: , x_return_status => x_return_status
1711: , x_msg_count => x_msg_count
1712: , x_msg_data => x_msg_data
1713: );
1714: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1715:
1716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1717: END IF;
1718:
1712: , x_msg_data => x_msg_data
1713: );
1714: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1715:
1716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1717: END IF;
1718:
1719: ----DEBUG('2..'||get_default_value());
1720: -- END Granular Locking added by Aditya
1753: INTO l_default;
1754: CLOSE c_Defaut_Value;
1755: -- END Added by Aditya for Incremental Changes
1756: BSC_DIMENSION_GROUPS_PUB.Update_Dim_Levels_In_Group
1757: ( p_commit => FND_API.G_FALSE
1758: , p_Dim_Grp_Rec => l_bsc_dimension_rec
1759: , x_return_status => x_return_status
1760: , x_msg_count => x_msg_count
1761: , x_msg_data => x_msg_data
1759: , x_return_status => x_return_status
1760: , x_msg_count => x_msg_count
1761: , x_msg_data => x_msg_data
1762: );
1763: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
1766:
1767: ------DEBUG('3..'||get_default_value());
1760: , x_msg_count => x_msg_count
1761: , x_msg_data => x_msg_data
1762: );
1763: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
1766:
1767: ------DEBUG('3..'||get_default_value());
1768: IF (l_do_not_cascade) THEN
1808: AND Dim_Group_ID = l_Dim_Grp_Id;
1809: ELSE
1810: -- END - Added by Aditya for Incremental Changes
1811: BSC_DIMENSION_GROUPS_PUB.Create_Dim_Levels_In_Group
1812: ( p_commit => FND_API.G_FALSE
1813: , p_Dim_Grp_Rec => l_bsc_dimension_rec
1814: , x_return_status => x_return_status
1815: , x_msg_count => x_msg_count
1816: , x_msg_data => x_msg_data
1816: , x_msg_data => x_msg_data
1817: );
1818:
1819: ----DEBUG('7..'||get_default_value());
1820: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1822: END IF;
1823: IF (l_do_not_cascade) THEN
1824: BSC_BIS_DIMENSION_PUB.Create_Dim_Objs_In_DSet
1817: );
1818:
1819: ----DEBUG('7..'||get_default_value());
1820: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1822: END IF;
1823: IF (l_do_not_cascade) THEN
1824: BSC_BIS_DIMENSION_PUB.Create_Dim_Objs_In_DSet
1825: ( p_MTab_Tbl => l_MTab_Tbl
1831: END IF;
1832: END IF;
1833: --sync up with BIS Dimensions
1834: BSC_BIS_DIMENSION_PUB.Sync_Dimensions_In_Bis
1835: ( p_commit => FND_API.G_FALSE
1836: , p_Dim_Obj_Short_Name => p_dim_obj_short_name
1837: , p_Sync_Flag => TRUE
1838: , x_return_status => x_return_status
1839: , x_msg_count => x_msg_count
1838: , x_return_status => x_return_status
1839: , x_msg_count => x_msg_count
1840: , x_msg_data => x_msg_data
1841: );
1842: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1844: END IF;
1845:
1846: ----DEBUG('9..'||get_default_value());
1839: , x_msg_count => x_msg_count
1840: , x_msg_data => x_msg_data
1841: );
1842: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1844: END IF;
1845:
1846: ----DEBUG('9..'||get_default_value());
1847: END IF;
1861: , x_msg_data => x_msg_data
1862: );
1863:
1864: ----DEBUG('10..'||get_default_value());
1865: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1867: END IF;
1868:
1869: -- START Granular Locking added by Aditya
1862: );
1863:
1864: ----DEBUG('10..'||get_default_value());
1865: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1867: END IF;
1868:
1869: -- START Granular Locking added by Aditya
1870: BSC_BIS_LOCKS_PUB.Set_Time_Stamp_Dim_Group
1872: , x_return_status => x_return_status
1873: , x_msg_count => x_msg_count
1874: , x_msg_data => x_msg_data
1875: );
1876: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1878: END IF;
1879: END IF;
1880:
1873: , x_msg_count => x_msg_count
1874: , x_msg_data => x_msg_data
1875: );
1876: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1878: END IF;
1879: END IF;
1880:
1881: IF (p_dim_short_name IS NOT NULL AND p_dim_short_name <> BSC_BIS_DIMENSION_PUB.Unassigned_Dim) THEN
1887: , x_Return_Status => x_return_status
1888: , x_Msg_Count => x_msg_count
1889: , x_Msg_Data => x_msg_data
1890: );
1891: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1893: END IF;
1894:
1895: ----DEBUG('11..'||get_default_value());
1888: , x_Msg_Count => x_msg_count
1889: , x_Msg_Data => x_msg_data
1890: );
1891: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1893: END IF;
1894:
1895: ----DEBUG('11..'||get_default_value());
1896: END IF;
1910: END IF;
1911:
1912: BSC_KPI_MEASURE_PROPS_PUB.Update_Kpi_Measure_Props
1913: (
1914: p_commit => FND_API.G_FALSE
1915: , p_kpi_measure_rec => l_kpi_measure_props_rec
1916: , p_cascade_shared => TRUE
1917: , x_return_status => x_return_status
1918: , x_msg_count => x_msg_count
1917: , x_return_status => x_return_status
1918: , x_msg_count => x_msg_count
1919: , x_msg_data => x_msg_data
1920: );
1921: IF (x_return_status <> NULL AND x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1923: END IF;
1924: END LOOP;
1925: END IF;
1918: , x_msg_count => x_msg_count
1919: , x_msg_data => x_msg_data
1920: );
1921: IF (x_return_status <> NULL AND x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1923: END IF;
1924: END LOOP;
1925: END IF;
1926:
1925: END IF;
1926:
1927: ----DEBUG('11..'||get_default_value());
1928:
1929: IF (p_commit = FND_API.G_TRUE) THEN
1930: COMMIT;
1931:
1932: END IF;
1933: x_return_status := FND_API.G_RET_STS_SUCCESS;
1929: IF (p_commit = FND_API.G_TRUE) THEN
1930: COMMIT;
1931:
1932: END IF;
1933: x_return_status := FND_API.G_RET_STS_SUCCESS;
1934:
1935: EXCEPTION
1936: WHEN FND_API.G_EXC_ERROR THEN
1937: IF (cr_bsc_dim_id%ISOPEN) THEN
1932: END IF;
1933: x_return_status := FND_API.G_RET_STS_SUCCESS;
1934:
1935: EXCEPTION
1936: WHEN FND_API.G_EXC_ERROR THEN
1937: IF (cr_bsc_dim_id%ISOPEN) THEN
1938: CLOSE cr_bsc_dim_id;
1939: END IF;
1940: IF (cr_bsc_dim_obj_id%ISOPEN) THEN
1945: END IF;
1946: ROLLBACK TO AssBSCDimObjectPMD;
1947: IF (x_msg_data IS NULL) THEN
1948: FND_MSG_PUB.Count_And_Get
1949: ( p_encoded => FND_API.G_FALSE
1950: , p_count => x_msg_count
1951: , p_data => x_msg_data
1952: );
1953: END IF;
1951: , p_data => x_msg_data
1952: );
1953: END IF;
1954:
1955: x_return_status := FND_API.G_RET_STS_ERROR;
1956: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1957: IF (cr_bsc_dim_id%ISOPEN) THEN
1958: CLOSE cr_bsc_dim_id;
1959: END IF;
1952: );
1953: END IF;
1954:
1955: x_return_status := FND_API.G_RET_STS_ERROR;
1956: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1957: IF (cr_bsc_dim_id%ISOPEN) THEN
1958: CLOSE cr_bsc_dim_id;
1959: END IF;
1960: IF (cr_bsc_dim_obj_id%ISOPEN) THEN
1965: END IF;
1966: ROLLBACK TO AssBSCDimObjectPMD;
1967: IF (x_msg_data IS NULL) THEN
1968: FND_MSG_PUB.Count_And_Get
1969: ( p_encoded => FND_API.G_FALSE
1970: , p_count => x_msg_count
1971: , p_data => x_msg_data
1972: );
1973: END IF;
1970: , p_count => x_msg_count
1971: , p_data => x_msg_data
1972: );
1973: END IF;
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1975:
1976: WHEN NO_DATA_FOUND THEN
1977: IF (cr_bsc_dim_id%ISOPEN) THEN
1978: CLOSE cr_bsc_dim_id;
1983: IF (c_Defaut_Value%ISOPEN) THEN
1984: CLOSE c_Defaut_Value;
1985: END IF;
1986: ROLLBACK TO AssBSCDimObjectPMD;
1987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1988: IF (x_msg_data IS NOT NULL) THEN
1989: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Assign_Dimension_Object ';
1990: ELSE
1991: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Assign_Dimension_Object ';
2001: IF (c_Defaut_Value%ISOPEN) THEN
2002: CLOSE c_Defaut_Value;
2003: END IF;
2004: ROLLBACK TO AssBSCDimObjectPMD;
2005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2006: IF (x_msg_data IS NOT NULL) THEN
2007: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Assign_Dimension_Object ';
2008: ELSE
2009: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Assign_Dimension_Object ';
2014: /*********************************************************************************
2015: UNASSIGN DIMENSION OBJECTS FROM DIMENSION
2016: *********************************************************************************/
2017: PROCEDURE UnAssign_Dimension_Objects
2018: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
2019: , p_dim_short_name IN VARCHAR2
2020: , p_dim_obj_short_names IN VARCHAR2
2021: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
2022: , x_return_status OUT NOCOPY VARCHAR2
2056: SAVEPOINT UnAssBSCDimObjectPMD;
2057:
2058: IF (p_dim_short_name <> BSC_BIS_DIMENSION_PUB.Unassigned_Dim) THEN
2059: FND_MSG_PUB.Initialize;
2060: x_return_status := FND_API.G_RET_STS_SUCCESS;
2061: IF (p_dim_short_name IS NULL) THEN
2062: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2063: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
2064: FND_MSG_PUB.ADD;
2061: IF (p_dim_short_name IS NULL) THEN
2062: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2063: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
2064: FND_MSG_PUB.ADD;
2065: RAISE FND_API.G_EXC_ERROR;
2066: END IF;
2067: IF (cr_bsc_dimension_id%ISOPEN) THEN
2068: CLOSE cr_bsc_dimension_id;
2069: END IF;
2074: IF (l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id IS NULL) THEN
2075: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
2076: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'EDW_DIMENSION'), TRUE);
2077: FND_MSG_PUB.ADD;
2078: RAISE FND_API.G_EXC_ERROR;
2079: END IF;
2080: -- START Granular Locking Declaration added by Aditya
2081: -- Lock all the object that would be un-assigned to the Dimension
2082: l_dim_obj_names := p_dim_obj_short_names;
2095: , x_return_status => x_return_status
2096: , x_msg_count => x_msg_count
2097: , x_msg_data => x_msg_data
2098: );
2099: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2101: END IF;
2102: END IF;
2103: -- End Granular Locking
2096: , x_msg_count => x_msg_count
2097: , x_msg_data => x_msg_data
2098: );
2099: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2101: END IF;
2102: END IF;
2103: -- End Granular Locking
2104: IF (p_dim_obj_short_names IS NOT NULL) THEN
2110: , x_return_status => x_return_status
2111: , x_msg_count => x_msg_count
2112: , x_msg_data => x_msg_data
2113: );
2114: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2116: END IF;*/
2117: BSC_BIS_DIMENSION_PUB.Store_Dim_Set_Records
2118: ( p_dim_group_id => l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id
2111: , x_msg_count => x_msg_count
2112: , x_msg_data => x_msg_data
2113: );
2114: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2116: END IF;*/
2117: BSC_BIS_DIMENSION_PUB.Store_Dim_Set_Records
2118: ( p_dim_group_id => l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id
2119: , p_dim_short_name => p_dim_short_name
2139: IF (l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id IS NULL) THEN
2140: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
2141: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIMENSION_OBJECT'), TRUE);
2142: FND_MSG_PUB.ADD;
2143: RAISE FND_API.G_EXC_ERROR;
2144: END IF;
2145: IF (BSC_BIS_DIMENSION_PUB.is_Relation_Exists
2146: (l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id, l_bsc_dimension_rec.Bsc_Level_Id)) THEN
2147: l_kpi_cascade := TRUE;
2156: END IF;
2157: IF ((l_Dim_Obj_Source = 'BSC') OR
2158: (BSC_BIS_DIMENSION_PUB.Get_Number_Of_Dimensions(l_bsc_dimension_rec.Bsc_Level_Id) <> 1)) THEN
2159: BSC_DIMENSION_GROUPS_PUB.Delete_Dim_Levels_In_Group
2160: ( p_commit => FND_API.G_FALSE
2161: , p_Dim_Grp_Rec => l_bsc_dimension_rec
2162: , x_return_status => x_return_status
2163: , x_msg_count => x_msg_count
2164: , x_msg_data => x_msg_data
2162: , x_return_status => x_return_status
2163: , x_msg_count => x_msg_count
2164: , x_msg_data => x_msg_data
2165: );
2166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2168: END IF;
2169: END IF;
2170: END IF;
2163: , x_msg_count => x_msg_count
2164: , x_msg_data => x_msg_data
2165: );
2166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2168: END IF;
2169: END IF;
2170: END IF;
2171: END LOOP;
2189: --sync up Dimensions in BIS
2190: l_Bis_Group_ID := BSC_BIS_DIMENSION_PUB.Get_Bis_Dimension_ID(p_dim_short_name);
2191: FOR cd IN cr_bis_dim_ids LOOP
2192: BSC_BIS_DIMENSION_PUB.Sync_Dimensions_In_Bis
2193: ( p_commit => FND_API.G_FALSE
2194: , p_Dim_Obj_Short_Name => cd.Short_Name
2195: , p_Sync_Flag => TRUE
2196: , x_return_status => x_return_status
2197: , x_msg_count => x_msg_count
2196: , x_return_status => x_return_status
2197: , x_msg_count => x_msg_count
2198: , x_msg_data => x_msg_data
2199: );
2200: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2202: END IF;
2203: END LOOP;
2204: END IF;
2197: , x_msg_count => x_msg_count
2198: , x_msg_data => x_msg_data
2199: );
2200: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2202: END IF;
2203: END LOOP;
2204: END IF;
2205:
2219: , x_return_status => x_return_status
2220: , x_msg_count => x_msg_count
2221: , x_msg_data => x_msg_data
2222: );
2223: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2225: END IF;
2226: -- Granular Locking : Change the Time Stamp of the Group, Once it is changed
2227: IF (p_commit = FND_API.G_TRUE) THEN
2220: , x_msg_count => x_msg_count
2221: , x_msg_data => x_msg_data
2222: );
2223: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2225: END IF;
2226: -- Granular Locking : Change the Time Stamp of the Group, Once it is changed
2227: IF (p_commit = FND_API.G_TRUE) THEN
2228: COMMIT;
2223: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2225: END IF;
2226: -- Granular Locking : Change the Time Stamp of the Group, Once it is changed
2227: IF (p_commit = FND_API.G_TRUE) THEN
2228: COMMIT;
2229: END IF;
2230: END IF;
2231: x_return_status := FND_API.G_RET_STS_SUCCESS;
2227: IF (p_commit = FND_API.G_TRUE) THEN
2228: COMMIT;
2229: END IF;
2230: END IF;
2231: x_return_status := FND_API.G_RET_STS_SUCCESS;
2232: EXCEPTION
2233: WHEN FND_API.G_EXC_ERROR THEN
2234: IF (cr_bsc_dimension_id%ISOPEN) THEN
2235: CLOSE cr_bsc_dimension_id;
2229: END IF;
2230: END IF;
2231: x_return_status := FND_API.G_RET_STS_SUCCESS;
2232: EXCEPTION
2233: WHEN FND_API.G_EXC_ERROR THEN
2234: IF (cr_bsc_dimension_id%ISOPEN) THEN
2235: CLOSE cr_bsc_dimension_id;
2236: END IF;
2237: IF (cr_bsc_dim_obj_id%ISOPEN) THEN
2239: END IF;
2240: ROLLBACK TO UnAssBSCDimObjectPMD;
2241: IF (x_msg_data IS NULL) THEN
2242: FND_MSG_PUB.Count_And_Get
2243: ( p_encoded => FND_API.G_FALSE
2244: , p_count => x_msg_count
2245: , p_data => x_msg_data
2246: );
2247: END IF;
2245: , p_data => x_msg_data
2246: );
2247: END IF;
2248:
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2251: IF (cr_bsc_dimension_id%ISOPEN) THEN
2252: CLOSE cr_bsc_dimension_id;
2253: END IF;
2246: );
2247: END IF;
2248:
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2251: IF (cr_bsc_dimension_id%ISOPEN) THEN
2252: CLOSE cr_bsc_dimension_id;
2253: END IF;
2254: IF (cr_bsc_dim_obj_id%ISOPEN) THEN
2256: END IF;
2257: ROLLBACK TO UnAssBSCDimObjectPMD;
2258: IF (x_msg_data IS NULL) THEN
2259: FND_MSG_PUB.Count_And_Get
2260: ( p_encoded => FND_API.G_FALSE
2261: , p_count => x_msg_count
2262: , p_data => x_msg_data
2263: );
2264: END IF;
2261: , p_count => x_msg_count
2262: , p_data => x_msg_data
2263: );
2264: END IF;
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2266:
2267: WHEN NO_DATA_FOUND THEN
2268: IF (cr_bsc_dimension_id%ISOPEN) THEN
2269: CLOSE cr_bsc_dimension_id;
2271: IF (cr_bsc_dim_obj_id%ISOPEN) THEN
2272: CLOSE cr_bsc_dim_obj_id;
2273: END IF;
2274: ROLLBACK TO UnAssBSCDimObjectPMD;
2275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2276: IF (x_msg_data IS NOT NULL) THEN
2277: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.UnAssign_Dimension_Objects ';
2278: ELSE
2279: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.UnAssign_Dimension_Objects ';
2286: IF (cr_bsc_dim_obj_id%ISOPEN) THEN
2287: CLOSE cr_bsc_dim_obj_id;
2288: END IF;
2289: ROLLBACK TO UnAssBSCDimObjectPMD;
2290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2291: IF (x_msg_data IS NOT NULL) THEN
2292: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.UnAssign_Dimension_Objects ';
2293: ELSE
2294: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.UnAssign_Dimension_Objects ';
2336: FND_MESSAGE.SET_TOKEN('DIM_NAME', l_dim_name);
2337: FND_MESSAGE.SET_TOKEN('DIM_OBJ_NAME', l_dim_obj_name);
2338: FND_MESSAGE.SET_TOKEN('REPORTS_ASSOC', l_regions);
2339: FND_MSG_PUB.ADD;
2340: RAISE FND_API.G_EXC_ERROR;
2341: END IF;
2342: END LOOP;
2343: END IF;
2344: l_dim_obj_sname := p_assign_dim_obj_names;
2362: /*********************************************************************************
2363: ASSIGN & UNASSIGN DIMENSION OBJECTS TO DIMENSION
2364: *********************************************************************************/
2365: PROCEDURE Assign_Unassign_Dim_Objs
2366: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
2367: , p_dim_short_name IN VARCHAR2
2368: , p_assign_dim_obj_names IN VARCHAR2
2369: , p_unassign_dim_obj_names IN VARCHAR2
2370: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
2399: AND dim_short_name <>p_dim_short_name;
2400: BEGIN
2401:
2402: FND_MSG_PUB.Initialize;
2403: x_return_status := FND_API.G_RET_STS_SUCCESS;
2404: IF (p_dim_short_name IS NULL) THEN
2405: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2406: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
2407: FND_MSG_PUB.ADD;
2404: IF (p_dim_short_name IS NULL) THEN
2405: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2406: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
2407: FND_MSG_PUB.ADD;
2408: RAISE FND_API.G_EXC_ERROR;
2409: END IF;
2410: IF (p_unassign_dim_obj_names IS NOT NULL) THEN
2411: l_unassigns := p_unassign_dim_obj_names;
2412: WHILE (is_more( p_dim_obj_short_names => l_unassigns
2431: END LOOP;
2432: IF (l_unassign_dim_objs IS NOT NULL) THEN
2433:
2434: BSC_BIS_DIMENSION_PUB.UnAssign_Dimension_Objects
2435: ( p_commit => FND_API.G_FALSE
2436: , p_dim_short_name => p_dim_short_name
2437: , p_dim_obj_short_names => l_unassign_dim_objs
2438: , p_time_stamp => p_time_stamp -- Granular Locking
2439: , x_return_status => x_return_status
2439: , x_return_status => x_return_status
2440: , x_msg_count => x_msg_count
2441: , x_msg_data => x_msg_data
2442: );
2443: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2445: END IF;
2446: END IF;
2447: END IF;
2440: , x_msg_count => x_msg_count
2441: , x_msg_data => x_msg_data
2442: );
2443: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2445: END IF;
2446: END IF;
2447: END IF;
2448: IF (p_Restrict_Dim_Validate IS NOT NULL) THEN
2453: , x_return_status => x_return_status
2454: , x_msg_count => x_msg_count
2455: , x_msg_data => x_msg_data
2456: );
2457: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2459: END IF;
2460: END IF;
2461: IF (p_assign_dim_obj_names IS NOT NULL) THEN
2454: , x_msg_count => x_msg_count
2455: , x_msg_data => x_msg_data
2456: );
2457: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2459: END IF;
2460: END IF;
2461: IF (p_assign_dim_obj_names IS NOT NULL) THEN
2462: BSC_BIS_DIMENSION_PUB.Assign_Dimension_Objects
2459: END IF;
2460: END IF;
2461: IF (p_assign_dim_obj_names IS NOT NULL) THEN
2462: BSC_BIS_DIMENSION_PUB.Assign_Dimension_Objects
2463: ( p_commit => FND_API.G_FALSE
2464: , p_dim_short_name => p_dim_short_name
2465: , p_dim_obj_short_names => p_assign_dim_obj_names
2466: , p_time_stamp => p_time_stamp -- Granular Locking
2467: , x_return_status => x_return_status
2467: , x_return_status => x_return_status
2468: , x_msg_count => x_msg_count
2469: , x_msg_data => x_msg_data
2470: );
2471: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2472:
2473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2474: END IF;
2475: END IF;
2469: , x_msg_data => x_msg_data
2470: );
2471: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2472:
2473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2474: END IF;
2475: END IF;
2476: -- Bug 3784852 validate empty dimension after unassign dim objs and remove those from dim sets for all objectives
2477: BSC_BIS_DIMENSION_PUB.Remove_Empty_Dims_For_DimSet
2474: END IF;
2475: END IF;
2476: -- Bug 3784852 validate empty dimension after unassign dim objs and remove those from dim sets for all objectives
2477: BSC_BIS_DIMENSION_PUB.Remove_Empty_Dims_For_DimSet
2478: ( p_commit => FND_API.G_FALSE
2479: , p_dim_short_names => p_dim_short_name
2480: , p_time_stamp => p_time_stamp -- Granular Locking
2481: , x_return_status => x_return_status
2482: , x_msg_count => x_msg_count
2481: , x_return_status => x_return_status
2482: , x_msg_count => x_msg_count
2483: , x_msg_data => x_msg_data
2484: );
2485: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2487: END IF;
2488: IF (p_commit = FND_API.G_TRUE) THEN
2489: COMMIT;
2482: , x_msg_count => x_msg_count
2483: , x_msg_data => x_msg_data
2484: );
2485: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2487: END IF;
2488: IF (p_commit = FND_API.G_TRUE) THEN
2489: COMMIT;
2490:
2484: );
2485: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2487: END IF;
2488: IF (p_commit = FND_API.G_TRUE) THEN
2489: COMMIT;
2490:
2491: END IF;
2492: x_return_status := FND_API.G_RET_STS_SUCCESS;
2488: IF (p_commit = FND_API.G_TRUE) THEN
2489: COMMIT;
2490:
2491: END IF;
2492: x_return_status := FND_API.G_RET_STS_SUCCESS;
2493:
2494: EXCEPTION
2495: WHEN FND_API.G_EXC_ERROR THEN
2496: IF (x_msg_data IS NULL) THEN
2491: END IF;
2492: x_return_status := FND_API.G_RET_STS_SUCCESS;
2493:
2494: EXCEPTION
2495: WHEN FND_API.G_EXC_ERROR THEN
2496: IF (x_msg_data IS NULL) THEN
2497: FND_MSG_PUB.Count_And_Get
2498: ( p_encoded => FND_API.G_FALSE
2499: , p_count => x_msg_count
2494: EXCEPTION
2495: WHEN FND_API.G_EXC_ERROR THEN
2496: IF (x_msg_data IS NULL) THEN
2497: FND_MSG_PUB.Count_And_Get
2498: ( p_encoded => FND_API.G_FALSE
2499: , p_count => x_msg_count
2500: , p_data => x_msg_data
2501: );
2502: END IF;
2500: , p_data => x_msg_data
2501: );
2502: END IF;
2503:
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2506: IF (x_msg_data IS NULL) THEN
2507: FND_MSG_PUB.Count_And_Get
2508: ( p_encoded => FND_API.G_FALSE
2501: );
2502: END IF;
2503:
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2506: IF (x_msg_data IS NULL) THEN
2507: FND_MSG_PUB.Count_And_Get
2508: ( p_encoded => FND_API.G_FALSE
2509: , p_count => x_msg_count
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2506: IF (x_msg_data IS NULL) THEN
2507: FND_MSG_PUB.Count_And_Get
2508: ( p_encoded => FND_API.G_FALSE
2509: , p_count => x_msg_count
2510: , p_data => x_msg_data
2511: );
2512: END IF;
2509: , p_count => x_msg_count
2510: , p_data => x_msg_data
2511: );
2512: END IF;
2513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2514:
2515: WHEN NO_DATA_FOUND THEN
2516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2517: IF (x_msg_data IS NOT NULL) THEN
2512: END IF;
2513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2514:
2515: WHEN NO_DATA_FOUND THEN
2516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2517: IF (x_msg_data IS NOT NULL) THEN
2518: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Assign_Unassign_Dim_Objs ';
2519: ELSE
2520: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Assign_Unassign_Dim_Objs ';
2520: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Assign_Unassign_Dim_Objs ';
2521: END IF;
2522:
2523: WHEN OTHERS THEN
2524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2525: IF (x_msg_data IS NOT NULL) THEN
2526: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Assign_Unassign_Dim_Objs ';
2527: ELSE
2528: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Assign_Unassign_Dim_Objs ';
2532: /*********************************************************************************
2533: UPDATE DIMENSION
2534: *********************************************************************************/
2535: PROCEDURE Update_Dimension
2536: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
2537: , p_dim_short_name IN VARCHAR2
2538: , p_display_name IN VARCHAR2
2539: , p_description IN VARCHAR2
2540: , p_application_id IN NUMBER
2538: , p_display_name IN VARCHAR2
2539: , p_description IN VARCHAR2
2540: , p_application_id IN NUMBER
2541: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
2542: , p_hide IN VARCHAR2 := FND_API.G_FALSE
2543: , x_return_status OUT NOCOPY VARCHAR2
2544: , x_msg_count OUT NOCOPY NUMBER
2545: , x_msg_data OUT NOCOPY VARCHAR2
2546: )IS
2570: BEGIN
2571: SAVEPOINT UpdateBSCDimensionPMD;
2572:
2573: FND_MSG_PUB.Initialize;
2574: x_return_status := FND_API.G_RET_STS_SUCCESS;
2575: IF(p_dim_short_name IS NOT NULL) THEN
2576: l_application_id := p_application_id;
2577: END IF;
2578: l_dim_short_name := p_dim_short_name;
2579: IF (l_dim_short_name IS NULL) THEN
2580: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2581: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
2582: FND_MSG_PUB.ADD;
2583: RAISE FND_API.G_EXC_ERROR;
2584: END IF;
2585:
2586:
2587: IF (cr_bis_dim_id%ISOPEN) THEN
2609: l_bis_create := FALSE;
2610: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
2611: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'EDW_DIMENSION'), TRUE);
2612: FND_MSG_PUB.ADD;
2613: RAISE FND_API.G_EXC_ERROR;
2614: ELSE
2615: l_bsc_create := TRUE; -- this flag indicates that the entries are not in the PMF metadata, so create it
2616: END IF;
2617: END IF;
2619: IF (l_dim_short_name IS NULL) THEN
2620: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2621: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
2622: FND_MSG_PUB.ADD;
2623: RAISE FND_API.G_EXC_ERROR;
2624: END IF;
2625: --check uniqueness of display name
2626: IF (p_display_name IS NOT NULL) THEN
2627: IF (p_display_name <> l_bis_dimension_rec.Dimension_Name) THEN
2654: l_bis_dimension_rec.Hide := p_Hide;
2655:
2656: BIS_DIMENSION_PUB.Create_Dimension
2657: ( p_api_version => 1.0
2658: , p_commit => FND_API.G_FALSE
2659: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2660: , p_Dimension_Rec => l_bis_dimension_rec
2661: , x_return_status => x_return_status
2662: , x_error_Tbl => l_error_tbl
2655:
2656: BIS_DIMENSION_PUB.Create_Dimension
2657: ( p_api_version => 1.0
2658: , p_commit => FND_API.G_FALSE
2659: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2660: , p_Dimension_Rec => l_bis_dimension_rec
2661: , x_return_status => x_return_status
2662: , x_error_Tbl => l_error_tbl
2663: );
2660: , p_Dimension_Rec => l_bis_dimension_rec
2661: , x_return_status => x_return_status
2662: , x_error_Tbl => l_error_tbl
2663: );
2664: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2665: IF (l_error_tbl.COUNT > 0) THEN
2666: x_msg_data := l_error_tbl(l_error_tbl.COUNT).Error_Description;
2667: IF(INSTR(x_msg_data, ' ') = 0 ) THEN
2668: FND_MESSAGE.SET_NAME('BIS', x_msg_data);
2668: FND_MESSAGE.SET_NAME('BIS', x_msg_data);
2669: FND_MSG_PUB.ADD;
2670: x_msg_data := NULL;
2671: END IF;
2672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2673: END IF;
2674:
2675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2676: END IF;
2671: END IF;
2672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2673: END IF;
2674:
2675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2676: END IF;
2677: ELSE
2678: l_bis_dimension_rec.Dimension_Name := l_pmf_disp_name;
2679:
2686: l_bis_dimension_rec.Hide := p_Hide;
2687:
2688: BIS_DIMENSION_PUB.Update_Dimension
2689: ( p_api_version => 1.0
2690: , p_commit => FND_API.G_FALSE
2691: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2692: , p_Dimension_Rec => l_bis_dimension_rec
2693: , x_return_status => x_return_status
2694: , x_error_Tbl => l_error_tbl
2687:
2688: BIS_DIMENSION_PUB.Update_Dimension
2689: ( p_api_version => 1.0
2690: , p_commit => FND_API.G_FALSE
2691: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2692: , p_Dimension_Rec => l_bis_dimension_rec
2693: , x_return_status => x_return_status
2694: , x_error_Tbl => l_error_tbl
2695: );
2692: , p_Dimension_Rec => l_bis_dimension_rec
2693: , x_return_status => x_return_status
2694: , x_error_Tbl => l_error_tbl
2695: );
2696: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2697: IF (l_error_tbl.COUNT > 0) THEN
2698: x_msg_data := l_error_tbl(l_error_tbl.COUNT).Error_Description;
2699:
2700: IF(INSTR(x_msg_data, ' ') = 0 ) THEN
2701: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
2702: FND_MSG_PUB.ADD;
2703: x_msg_data := NULL;
2704: END IF;
2705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2706: END IF;
2707:
2708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2709: END IF;
2704: END IF;
2705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2706: END IF;
2707:
2708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2709: END IF;
2710: END IF;
2711: l_bsc_dimension_rec.Bsc_Dim_Level_Index := 1;
2712: l_bsc_dimension_rec.Bsc_Dim_Level_Group_short_name := l_dim_short_name;
2725: l_bsc_dimension_rec.Bsc_Dim_Level_Group_Name := p_display_name;
2726: END IF;
2727:
2728: BSC_DIMENSION_GROUPS_PUB.Create_Dimension_Group
2729: ( p_commit => FND_API.G_FALSE
2730: , p_Dim_Grp_Rec => l_bsc_dimension_rec
2731: , p_create_Dim_Levels => FALSE
2732: , x_return_status => x_return_status
2733: , x_msg_count => x_msg_count
2732: , x_return_status => x_return_status
2733: , x_msg_count => x_msg_count
2734: , x_msg_data => x_msg_data
2735: );
2736: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2738: END IF;
2739: --update grp id in BIS Diemension Tables
2740: --this call will be moved to CRUD APIs later
2733: , x_msg_count => x_msg_count
2734: , x_msg_data => x_msg_data
2735: );
2736: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2738: END IF;
2739: --update grp id in BIS Diemension Tables
2740: --this call will be moved to CRUD APIs later
2741: UPDATE BIS_DIMENSIONS
2748: l_bsc_dimension_rec.Bsc_Dim_Level_Group_Name := p_display_name;
2749:
2750: l_bsc_dimension_rec.Bsc_Dim_Level_Group_short_name := l_dim_short_name;
2751: BSC_DIMENSION_GROUPS_PUB.Update_Dimension_Group
2752: ( p_commit => FND_API.G_FALSE
2753: , p_Dim_Grp_Rec => l_bsc_dimension_rec
2754: , p_create_Dim_Levels => FALSE
2755: , x_return_status => x_return_status
2756: , x_msg_count => x_msg_count
2755: , x_return_status => x_return_status
2756: , x_msg_count => x_msg_count
2757: , x_msg_data => x_msg_data
2758: );
2759: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2761: END IF;
2762: END IF;
2763: l_bis_create := FALSE;--Initialize with the default value
2756: , x_msg_count => x_msg_count
2757: , x_msg_data => x_msg_data
2758: );
2759: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2761: END IF;
2762: END IF;
2763: l_bis_create := FALSE;--Initialize with the default value
2764: l_bsc_create := FALSE;
2761: END IF;
2762: END IF;
2763: l_bis_create := FALSE;--Initialize with the default value
2764: l_bsc_create := FALSE;
2765: IF (p_commit = FND_API.G_TRUE) THEN
2766: COMMIT;
2767:
2768: END IF;
2769: x_return_status := FND_API.G_RET_STS_SUCCESS;
2765: IF (p_commit = FND_API.G_TRUE) THEN
2766: COMMIT;
2767:
2768: END IF;
2769: x_return_status := FND_API.G_RET_STS_SUCCESS;
2770:
2771: EXCEPTION
2772: WHEN FND_API.G_EXC_ERROR THEN
2773: IF (cr_bis_dim_id%ISOPEN) THEN
2768: END IF;
2769: x_return_status := FND_API.G_RET_STS_SUCCESS;
2770:
2771: EXCEPTION
2772: WHEN FND_API.G_EXC_ERROR THEN
2773: IF (cr_bis_dim_id%ISOPEN) THEN
2774: CLOSE cr_bis_dim_id;
2775: END IF;
2776: IF (cr_bsc_dim_id%ISOPEN) THEN
2778: END IF;
2779: ROLLBACK TO UpdateBSCDimensionPMD;
2780: IF (x_msg_data IS NULL) THEN
2781: FND_MSG_PUB.Count_And_Get
2782: ( p_encoded => FND_API.G_FALSE
2783: , p_count => x_msg_count
2784: , p_data => x_msg_data
2785: );
2786: END IF;
2784: , p_data => x_msg_data
2785: );
2786: END IF;
2787:
2788: x_return_status := FND_API.G_RET_STS_ERROR;
2789: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2790: IF (cr_bis_dim_id%ISOPEN) THEN
2791: CLOSE cr_bis_dim_id;
2792: END IF;
2785: );
2786: END IF;
2787:
2788: x_return_status := FND_API.G_RET_STS_ERROR;
2789: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2790: IF (cr_bis_dim_id%ISOPEN) THEN
2791: CLOSE cr_bis_dim_id;
2792: END IF;
2793: IF (cr_bsc_dim_id%ISOPEN) THEN
2795: END IF;
2796: ROLLBACK TO UpdateBSCDimensionPMD;
2797: IF (x_msg_data IS NULL) THEN
2798: FND_MSG_PUB.Count_And_Get
2799: ( p_encoded => FND_API.G_FALSE
2800: , p_count => x_msg_count
2801: , p_data => x_msg_data
2802: );
2803: END IF;
2800: , p_count => x_msg_count
2801: , p_data => x_msg_data
2802: );
2803: END IF;
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2805:
2806: WHEN NO_DATA_FOUND THEN
2807: IF (cr_bis_dim_id%ISOPEN) THEN
2808: CLOSE cr_bis_dim_id;
2810: IF (cr_bsc_dim_id%ISOPEN) THEN
2811: CLOSE cr_bsc_dim_id;
2812: END IF;
2813: ROLLBACK TO UpdateBSCDimensionPMD;
2814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2815: IF (x_msg_data IS NOT NULL) THEN
2816: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Update_Dimension ';
2817: ELSE
2818: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Update_Dimension ';
2825: IF (cr_bsc_dim_id%ISOPEN) THEN
2826: CLOSE cr_bsc_dim_id;
2827: END IF;
2828: ROLLBACK TO UpdateBSCDimensionPMD;
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2830: IF (x_msg_data IS NOT NULL) THEN
2831: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Update_Dimension ';
2832: ELSE
2833: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Update_Dimension ';
2838: /*********************************************************************************
2839: UPDATE DIMENSION
2840: *********************************************************************************/
2841: PROCEDURE Update_Dimension
2842: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
2843: , p_dim_short_name IN VARCHAR2
2844: , p_display_name IN VARCHAR2
2845: , p_description IN VARCHAR2
2846: , p_application_id IN NUMBER
2846: , p_application_id IN NUMBER
2847: , p_assign_dim_obj_names IN VARCHAR2
2848: , p_unassign_dim_obj_names IN VARCHAR2
2849: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
2850: , p_hide IN VARCHAR2 := FND_API.G_FALSE
2851: , p_Restrict_Dim_Validate IN VARCHAR2 := NULL
2852: , x_return_status OUT NOCOPY VARCHAR2
2853: , x_msg_count OUT NOCOPY NUMBER
2854: , x_msg_data OUT NOCOPY VARCHAR2
2878: BEGIN
2879: -- START Granular Locking added by Aditya
2880:
2881: FND_MSG_PUB.Initialize;
2882: x_return_status := FND_API.G_RET_STS_SUCCESS;
2883: IF (p_dim_short_name IS NULL) THEN
2884: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2885: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
2886: FND_MSG_PUB.ADD;
2883: IF (p_dim_short_name IS NULL) THEN
2884: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2885: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
2886: FND_MSG_PUB.ADD;
2887: RAISE FND_API.G_EXC_ERROR;
2888: END IF;
2889: IF (cr_bsc_dim_id%ISOPEN) THEN
2890: CLOSE cr_bsc_dim_id;
2891: END IF;
2896: IF (l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id IS NULL) THEN
2897: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
2898: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'EDW_DIMENSION'), TRUE);
2899: FND_MSG_PUB.ADD;
2900: RAISE FND_API.G_EXC_ERROR;
2901: END IF;
2902:
2903: l_mix_type_dim := FALSE;
2904: IF(p_assign_dim_obj_names IS NOT NULL) THEN
2912: , x_msg_count => x_msg_count
2913: , x_msg_data => x_msg_data
2914: );
2915: IF (l_mix_type_dim) THEN
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918:
2919: END IF;
2920:
2929: FND_MESSAGE.SET_NAME('BSC','BSC_UNIQUE_NAME_REQUIRED');
2930: FND_MESSAGE.SET_TOKEN('SHORT_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DISPLAY_NAME'), TRUE);
2931: FND_MESSAGE.SET_TOKEN('NAME_VALUE', p_display_name);
2932: FND_MSG_PUB.ADD;
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935:
2936: SELECT COUNT(1) INTO l_count
2937: FROM BIS_DIMENSIONS_VL
2941: FND_MESSAGE.SET_NAME('BSC','BSC_UNIQUE_NAME_REQUIRED');
2942: FND_MESSAGE.SET_TOKEN('SHORT_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DISPLAY_NAME'), TRUE);
2943: FND_MESSAGE.SET_TOKEN('NAME_VALUE', p_display_name);
2944: FND_MSG_PUB.ADD;
2945: RAISE FND_API.G_EXC_ERROR;
2946: END IF;
2947:
2948: END IF;
2949:
2980: , x_return_status => x_return_status
2981: , x_msg_count => x_msg_count
2982: , x_msg_data => x_msg_data
2983: );
2984: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2986: END IF;
2987: -- End Granular Locking
2988: BSC_BIS_DIMENSION_PUB.Update_Dimension
2981: , x_msg_count => x_msg_count
2982: , x_msg_data => x_msg_data
2983: );
2984: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2986: END IF;
2987: -- End Granular Locking
2988: BSC_BIS_DIMENSION_PUB.Update_Dimension
2989: ( p_commit => FND_API.G_FALSE
2985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2986: END IF;
2987: -- End Granular Locking
2988: BSC_BIS_DIMENSION_PUB.Update_Dimension
2989: ( p_commit => FND_API.G_FALSE
2990: , p_dim_short_name => p_dim_short_name
2991: , p_display_name => p_display_name
2992: , p_description => p_description
2993: , p_application_id => p_application_id
2996: , x_return_status => x_return_status
2997: , x_msg_count => x_msg_count
2998: , x_msg_data => x_msg_data
2999: );
3000: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: END IF;
3003: BSC_BIS_DIMENSION_PUB.Assign_Unassign_Dim_Objs
3004: ( p_commit => FND_API.G_FALSE
2997: , x_msg_count => x_msg_count
2998: , x_msg_data => x_msg_data
2999: );
3000: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: END IF;
3003: BSC_BIS_DIMENSION_PUB.Assign_Unassign_Dim_Objs
3004: ( p_commit => FND_API.G_FALSE
3005: , p_dim_short_name => p_dim_short_name
3000: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: END IF;
3003: BSC_BIS_DIMENSION_PUB.Assign_Unassign_Dim_Objs
3004: ( p_commit => FND_API.G_FALSE
3005: , p_dim_short_name => p_dim_short_name
3006: , p_assign_dim_obj_names => p_assign_dim_obj_names
3007: , p_unassign_dim_obj_names => p_unassign_dim_obj_names
3008: , p_time_stamp => NULL
3010: , x_return_status => x_return_status
3011: , x_msg_count => x_msg_count
3012: , x_msg_data => x_msg_data
3013: );
3014: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3016: END IF;
3017: -- Granular Locking : Change the Time Stamp of the Group, once it is changed
3018: BSC_BIS_LOCKS_PUB.Set_Time_Stamp_Dim_Group
3011: , x_msg_count => x_msg_count
3012: , x_msg_data => x_msg_data
3013: );
3014: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3016: END IF;
3017: -- Granular Locking : Change the Time Stamp of the Group, once it is changed
3018: BSC_BIS_LOCKS_PUB.Set_Time_Stamp_Dim_Group
3019: ( p_dim_group_id => l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id
3020: , x_return_status => x_return_status
3021: , x_msg_count => x_msg_count
3022: , x_msg_data => x_msg_data
3023: );
3024: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3026: END IF;
3027: -- Granular Locking : Change the Time Stamp of the Group, Once it is changed
3028: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_by_Dim
3021: , x_msg_count => x_msg_count
3022: , x_msg_data => x_msg_data
3023: );
3024: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3026: END IF;
3027: -- Granular Locking : Change the Time Stamp of the Group, Once it is changed
3028: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_by_Dim
3029: (
3031: , x_return_status => x_return_status
3032: , x_msg_count => x_msg_count
3033: , x_msg_data => x_msg_data
3034: );
3035: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3037: END IF;
3038: IF (p_commit = FND_API.G_TRUE) THEN
3039: COMMIT;
3032: , x_msg_count => x_msg_count
3033: , x_msg_data => x_msg_data
3034: );
3035: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3037: END IF;
3038: IF (p_commit = FND_API.G_TRUE) THEN
3039: COMMIT;
3040:
3034: );
3035: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3037: END IF;
3038: IF (p_commit = FND_API.G_TRUE) THEN
3039: COMMIT;
3040:
3041: END IF;
3042: x_return_status := FND_API.G_RET_STS_SUCCESS;
3038: IF (p_commit = FND_API.G_TRUE) THEN
3039: COMMIT;
3040:
3041: END IF;
3042: x_return_status := FND_API.G_RET_STS_SUCCESS;
3043:
3044: EXCEPTION
3045: WHEN FND_API.G_EXC_ERROR THEN
3046: IF (cr_bsc_dim_id%ISOPEN) THEN
3041: END IF;
3042: x_return_status := FND_API.G_RET_STS_SUCCESS;
3043:
3044: EXCEPTION
3045: WHEN FND_API.G_EXC_ERROR THEN
3046: IF (cr_bsc_dim_id%ISOPEN) THEN
3047: CLOSE cr_bsc_dim_id;
3048: END IF;
3049: IF (x_msg_data IS NULL) THEN
3047: CLOSE cr_bsc_dim_id;
3048: END IF;
3049: IF (x_msg_data IS NULL) THEN
3050: FND_MSG_PUB.Count_And_Get
3051: ( p_encoded => FND_API.G_FALSE
3052: , p_count => x_msg_count
3053: , p_data => x_msg_data
3054: );
3055: END IF;
3053: , p_data => x_msg_data
3054: );
3055: END IF;
3056:
3057: x_return_status := FND_API.G_RET_STS_ERROR;
3058: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3059: IF (cr_bsc_dim_id%ISOPEN) THEN
3060: CLOSE cr_bsc_dim_id;
3061: END IF;
3054: );
3055: END IF;
3056:
3057: x_return_status := FND_API.G_RET_STS_ERROR;
3058: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3059: IF (cr_bsc_dim_id%ISOPEN) THEN
3060: CLOSE cr_bsc_dim_id;
3061: END IF;
3062: IF (x_msg_data IS NULL) THEN
3060: CLOSE cr_bsc_dim_id;
3061: END IF;
3062: IF (x_msg_data IS NULL) THEN
3063: FND_MSG_PUB.Count_And_Get
3064: ( p_encoded => FND_API.G_FALSE
3065: , p_count => x_msg_count
3066: , p_data => x_msg_data
3067: );
3068: END IF;
3065: , p_count => x_msg_count
3066: , p_data => x_msg_data
3067: );
3068: END IF;
3069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3070:
3071: WHEN NO_DATA_FOUND THEN
3072: IF (cr_bsc_dim_id%ISOPEN) THEN
3073: CLOSE cr_bsc_dim_id;
3071: WHEN NO_DATA_FOUND THEN
3072: IF (cr_bsc_dim_id%ISOPEN) THEN
3073: CLOSE cr_bsc_dim_id;
3074: END IF;
3075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3076: IF (x_msg_data IS NOT NULL) THEN
3077: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Update_Dimension ';
3078: ELSE
3079: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Update_Dimension ';
3082: WHEN OTHERS THEN
3083: IF (cr_bsc_dim_id%ISOPEN) THEN
3084: CLOSE cr_bsc_dim_id;
3085: END IF;
3086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3087: IF (x_msg_data IS NOT NULL) THEN
3088: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Update_Dimension ';
3089: ELSE
3090: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Update_Dimension ';
3095: /*********************************************************************************
3096: UPDATE DIMENSION
3097: *********************************************************************************/
3098: PROCEDURE Update_Dimension
3099: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
3100: , p_dim_short_name IN VARCHAR2
3101: , p_display_name IN VARCHAR2
3102: , p_description IN VARCHAR2
3103: , p_application_id IN NUMBER
3102: , p_description IN VARCHAR2
3103: , p_application_id IN NUMBER
3104: , p_dim_obj_short_names IN VARCHAR2
3105: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
3106: , p_hide IN VARCHAR2 := FND_API.G_FALSE
3107: , p_Restrict_Dim_Validate IN VARCHAR2 := NULL
3108: , x_return_status OUT NOCOPY VARCHAR2
3109: , x_msg_count OUT NOCOPY NUMBER
3110: , x_msg_data OUT NOCOPY VARCHAR2
3151:
3152: BEGIN
3153:
3154: FND_MSG_PUB.Initialize;
3155: x_return_status := FND_API.G_RET_STS_SUCCESS;
3156: IF (p_dim_short_name IS NULL) THEN
3157: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3158: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
3159: FND_MSG_PUB.ADD;
3156: IF (p_dim_short_name IS NULL) THEN
3157: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3158: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
3159: FND_MSG_PUB.ADD;
3160: RAISE FND_API.G_EXC_ERROR;
3161: END IF;
3162:
3163:
3164: IF (cr_bsc_dim_id%ISOPEN) THEN
3172: IF (l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id IS NULL) THEN
3173: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
3174: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'EDW_DIMENSION'), TRUE);
3175: FND_MSG_PUB.ADD;
3176: RAISE FND_API.G_EXC_ERROR;
3177: END IF;
3178: FOR cd IN cr_bsc_dim LOOP
3179: IF (l_unassign_dim_obj_names IS NULL) THEN
3180: l_unassign_dim_obj_names := cd.short_name;
3182: l_unassign_dim_obj_names := l_unassign_dim_obj_names||', '||cd.short_name;
3183: END IF;
3184: END LOOP;
3185: BSC_BIS_DIMENSION_PUB.Update_Dimension
3186: ( p_commit => FND_API.G_FALSE
3187: , p_dim_short_name => p_dim_short_name
3188: , p_display_name => p_display_name
3189: , p_description => p_description
3190: , p_application_id => p_application_id
3196: , x_return_status => x_return_status
3197: , x_msg_count => x_msg_count
3198: , x_msg_data => x_msg_data
3199: );
3200: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3202: END IF;
3203: /********************************************************
3204: Check no of independent dimension objects in dimension set
3197: , x_msg_count => x_msg_count
3198: , x_msg_data => x_msg_data
3199: );
3200: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3202: END IF;
3203: /********************************************************
3204: Check no of independent dimension objects in dimension set
3205: ********************************************************/
3237: IF(l_is_kpi_affected) THEN
3238: FND_MESSAGE.SET_NAME('BSC','BSC_IND_DIMOBJ_LIMIT');
3239: FND_MESSAGE.SET_TOKEN('NAME_LIST',l_affected_kpis);
3240: FND_MSG_PUB.ADD;
3241: RAISE FND_API.G_EXC_ERROR;
3242: END IF;
3243:
3244: /********************************************************/
3245:
3244: /********************************************************/
3245:
3246:
3247:
3248: IF (p_commit = FND_API.G_TRUE) THEN
3249: COMMIT;
3250:
3251: END IF;
3252: x_return_status := FND_API.G_RET_STS_SUCCESS;
3248: IF (p_commit = FND_API.G_TRUE) THEN
3249: COMMIT;
3250:
3251: END IF;
3252: x_return_status := FND_API.G_RET_STS_SUCCESS;
3253:
3254: EXCEPTION
3255: WHEN FND_API.G_EXC_ERROR THEN
3256: IF (cr_bsc_dim_id%ISOPEN) THEN
3251: END IF;
3252: x_return_status := FND_API.G_RET_STS_SUCCESS;
3253:
3254: EXCEPTION
3255: WHEN FND_API.G_EXC_ERROR THEN
3256: IF (cr_bsc_dim_id%ISOPEN) THEN
3257: CLOSE cr_bsc_dim_id;
3258: END IF;
3259: IF (x_msg_data IS NULL) THEN
3257: CLOSE cr_bsc_dim_id;
3258: END IF;
3259: IF (x_msg_data IS NULL) THEN
3260: FND_MSG_PUB.Count_And_Get
3261: ( p_encoded => FND_API.G_FALSE
3262: , p_count => x_msg_count
3263: , p_data => x_msg_data
3264: );
3265: END IF;
3263: , p_data => x_msg_data
3264: );
3265: END IF;
3266:
3267: x_return_status := FND_API.G_RET_STS_ERROR;
3268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3269: IF (cr_bsc_dim_id%ISOPEN) THEN
3270: CLOSE cr_bsc_dim_id;
3271: END IF;
3264: );
3265: END IF;
3266:
3267: x_return_status := FND_API.G_RET_STS_ERROR;
3268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3269: IF (cr_bsc_dim_id%ISOPEN) THEN
3270: CLOSE cr_bsc_dim_id;
3271: END IF;
3272: IF (x_msg_data IS NULL) THEN
3270: CLOSE cr_bsc_dim_id;
3271: END IF;
3272: IF (x_msg_data IS NULL) THEN
3273: FND_MSG_PUB.Count_And_Get
3274: ( p_encoded => FND_API.G_FALSE
3275: , p_count => x_msg_count
3276: , p_data => x_msg_data
3277: );
3278: END IF;
3275: , p_count => x_msg_count
3276: , p_data => x_msg_data
3277: );
3278: END IF;
3279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3280:
3281: WHEN NO_DATA_FOUND THEN
3282: IF (cr_bsc_dim_id%ISOPEN) THEN
3283: CLOSE cr_bsc_dim_id;
3281: WHEN NO_DATA_FOUND THEN
3282: IF (cr_bsc_dim_id%ISOPEN) THEN
3283: CLOSE cr_bsc_dim_id;
3284: END IF;
3285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3286: IF (x_msg_data IS NOT NULL) THEN
3287: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Update_Dimension ';
3288: ELSE
3289: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Update_Dimension ';
3292: WHEN OTHERS THEN
3293: IF (cr_bsc_dim_id%ISOPEN) THEN
3294: CLOSE cr_bsc_dim_id;
3295: END IF;
3296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3297: IF (x_msg_data IS NOT NULL) THEN
3298: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Update_Dimension ';
3299: ELSE
3300: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Update_Dimension ';
3304: /*********************************************************************************
3305: DELETE DIMENSION
3306: *********************************************************************************/
3307: PROCEDURE Delete_Dimension
3308: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
3309: , p_dim_short_name IN VARCHAR2
3310: , x_return_status OUT NOCOPY VARCHAR2
3311: , x_msg_count OUT NOCOPY NUMBER
3312: , x_msg_data OUT NOCOPY VARCHAR2
3341: BEGIN
3342: SAVEPOINT DeleteBSCDimensionsPMD;
3343:
3344: FND_MSG_PUB.Initialize;
3345: x_return_status := FND_API.G_RET_STS_SUCCESS;
3346: IF (p_dim_short_name IS NULL) THEN
3347: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3348: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
3349: FND_MSG_PUB.ADD;
3346: IF (p_dim_short_name IS NULL) THEN
3347: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3348: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SHORT_NAME'), TRUE);
3349: FND_MSG_PUB.ADD;
3350: RAISE FND_API.G_EXC_ERROR;
3351: END IF;
3352: --UNASSIGNED group can't be deleted
3353: IF (p_dim_short_name = BSC_BIS_DIMENSION_PUB.Unassigned_Dim) THEN
3354: FND_MESSAGE.SET_NAME('BSC','BSC_B_CAN_NOT_DELETE_GROUP');
3352: --UNASSIGNED group can't be deleted
3353: IF (p_dim_short_name = BSC_BIS_DIMENSION_PUB.Unassigned_Dim) THEN
3354: FND_MESSAGE.SET_NAME('BSC','BSC_B_CAN_NOT_DELETE_GROUP');
3355: FND_MSG_PUB.ADD;
3356: RAISE FND_API.G_EXC_ERROR;
3357: END IF;
3358: --The Dimension [dimension display name] cannot be deleted. If it is being used in a Measure, Report or Key Performance Indicator.
3359: IF (cr_bis_dim_short_name%ISOPEN) THEN
3360: CLOSE cr_bis_dim_short_name;
3371: --sync up Dimensions in BIS
3372: l_Bis_Group_ID := BSC_BIS_DIMENSION_PUB.Get_Bis_Dimension_ID(p_dim_short_name);
3373: FOR cd IN cr_bis_dim_ids LOOP
3374: BSC_BIS_DIMENSION_PUB.Sync_Dimensions_In_Bis
3375: ( p_commit => FND_API.G_FALSE
3376: , p_Dim_Obj_Short_Name => cd.Short_Name
3377: , p_Sync_Flag => FALSE
3378: , x_return_status => x_return_status
3379: , x_msg_count => x_msg_count
3378: , x_return_status => x_return_status
3379: , x_msg_count => x_msg_count
3380: , x_msg_data => x_msg_data
3381: );
3382: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3384: END IF;
3385: END LOOP;
3386: --assign values to bis records
3379: , x_msg_count => x_msg_count
3380: , x_msg_data => x_msg_data
3381: );
3382: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3384: END IF;
3385: END LOOP;
3386: --assign values to bis records
3387:
3394: IF (l_count <> 0) THEN
3395: FND_MESSAGE.SET_NAME('BSC','BSC_NOT_DELETE_DIM_IN_MEASURE');
3396: FND_MESSAGE.SET_TOKEN('SHORT_NAME', l_bis_dimension_rec.Dimension_Name);
3397: FND_MSG_PUB.ADD;
3398: RAISE FND_API.G_EXC_ERROR;
3399: END IF;
3400: BIS_DIMENSION_PUB.Delete_Dimension
3401: ( p_commit => FND_API.G_FALSE
3402: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3397: FND_MSG_PUB.ADD;
3398: RAISE FND_API.G_EXC_ERROR;
3399: END IF;
3400: BIS_DIMENSION_PUB.Delete_Dimension
3401: ( p_commit => FND_API.G_FALSE
3402: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3403: , p_Dimension_Rec => l_bis_dimension_rec
3404: , x_return_status => x_return_status
3405: , x_error_Tbl => l_error_tbl
3398: RAISE FND_API.G_EXC_ERROR;
3399: END IF;
3400: BIS_DIMENSION_PUB.Delete_Dimension
3401: ( p_commit => FND_API.G_FALSE
3402: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3403: , p_Dimension_Rec => l_bis_dimension_rec
3404: , x_return_status => x_return_status
3405: , x_error_Tbl => l_error_tbl
3406: );
3403: , p_Dimension_Rec => l_bis_dimension_rec
3404: , x_return_status => x_return_status
3405: , x_error_Tbl => l_error_tbl
3406: );
3407: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3408: IF (l_error_tbl.COUNT > 0) THEN
3409: x_msg_data := l_error_tbl(l_error_tbl.COUNT).Error_Description;
3410: IF(INSTR(x_msg_data, ' ') = 0 ) THEN
3411: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
3411: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
3412: FND_MSG_PUB.ADD;
3413: x_msg_data := NULL;
3414: END IF;
3415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3416: END IF;
3417:
3418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3419: END IF;
3414: END IF;
3415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3416: END IF;
3417:
3418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3419: END IF;
3420: l_delete_count := l_delete_count + 1;
3421: ELSE
3422: l_delete := TRUE;
3443: FND_MESSAGE.SET_NAME('BIS','BIS_DIM_RPTASSOC_ERROR');
3444: FND_MESSAGE.SET_TOKEN('DIM_NAME', l_bsc_dimension_rec.Bsc_Dim_Level_Group_Name);
3445: FND_MESSAGE.SET_TOKEN('REPORTS_ASSOC', l_regions);
3446: FND_MSG_PUB.ADD;
3447: RAISE FND_API.G_EXC_ERROR;
3448: END IF;
3449:
3450: IF (l_delete) THEN
3451: -- START: Granular Locking to Lock Dimension Group when it is being deleted.
3455: IF (l_count <> 0) THEN
3456: FND_MESSAGE.SET_NAME('BSC','BSC_NOT_DELETE_DIMENSIONS');
3457: FND_MESSAGE.SET_TOKEN('SHORT_NAME', l_bsc_dimension_rec.Bsc_Dim_Level_Group_Name);
3458: FND_MSG_PUB.ADD;
3459: RAISE FND_API.G_EXC_ERROR;
3460: END IF;
3461: BSC_BIS_LOCKS_PUB.Lock_Dim_Group
3462: ( p_dim_group_id => l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id
3463: ,p_time_stamp => NULL -- Granular Locking
3464: ,x_return_status => x_return_status
3465: ,x_msg_count => x_msg_count
3466: ,x_msg_data => x_msg_data
3467: );
3468: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3469:
3470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3471: END IF;
3472: -- END: Granular Locking to Lock Dimension Group when it is being deleted.
3466: ,x_msg_data => x_msg_data
3467: );
3468: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3469:
3470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3471: END IF;
3472: -- END: Granular Locking to Lock Dimension Group when it is being deleted.
3473: -- Aditya added incremental changes
3474: -- This will create a structural changes to all the KPIs that are currently using the
3475: -- Groups, which is going to be deleted.
3476: BSC_DESIGNER_PVT.Dimension_Change(p_dim_short_name, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
3477: -- End incremental changes.
3478: BSC_DIMENSION_GROUPS_PUB.Delete_Dimension_Group
3479: ( p_commit => FND_API.G_FALSE
3480: , p_Dim_Grp_Rec => l_bsc_dimension_rec
3481: , x_return_status => x_return_status
3482: , x_msg_count => x_msg_count
3483: , x_msg_data => x_msg_data
3481: , x_return_status => x_return_status
3482: , x_msg_count => x_msg_count
3483: , x_msg_data => x_msg_data
3484: );
3485: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3486:
3487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3488: END IF;
3489: l_delete_count := l_delete_count + 1;
3483: , x_msg_data => x_msg_data
3484: );
3485: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3486:
3487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3488: END IF;
3489: l_delete_count := l_delete_count + 1;
3490: ELSE
3491: l_delete := TRUE;
3493: IF (l_delete_count = 0) THEN
3494: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
3495: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'EDW_DIMENSION'), TRUE);
3496: FND_MSG_PUB.ADD;
3497: RAISE FND_API.G_EXC_ERROR;
3498: END IF;
3499: IF (p_commit = FND_API.G_TRUE) THEN
3500: COMMIT;
3501:
3495: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'EDW_DIMENSION'), TRUE);
3496: FND_MSG_PUB.ADD;
3497: RAISE FND_API.G_EXC_ERROR;
3498: END IF;
3499: IF (p_commit = FND_API.G_TRUE) THEN
3500: COMMIT;
3501:
3502: END IF;
3503: x_return_status := FND_API.G_RET_STS_SUCCESS;
3499: IF (p_commit = FND_API.G_TRUE) THEN
3500: COMMIT;
3501:
3502: END IF;
3503: x_return_status := FND_API.G_RET_STS_SUCCESS;
3504:
3505: EXCEPTION
3506: WHEN FND_API.G_EXC_ERROR THEN
3507: IF (cr_bis_dim_short_name%ISOPEN) THEN
3502: END IF;
3503: x_return_status := FND_API.G_RET_STS_SUCCESS;
3504:
3505: EXCEPTION
3506: WHEN FND_API.G_EXC_ERROR THEN
3507: IF (cr_bis_dim_short_name%ISOPEN) THEN
3508: CLOSE cr_bis_dim_short_name;
3509: END IF;
3510: IF (cr_bsc_dimension_id%ISOPEN) THEN
3512: END IF;
3513: ROLLBACK TO DeleteBSCDimensionsPMD;
3514: IF (x_msg_data IS NULL) THEN
3515: FND_MSG_PUB.Count_And_Get
3516: ( p_encoded => FND_API.G_FALSE
3517: , p_count => x_msg_count
3518: , p_data => x_msg_data
3519: );
3520: END IF;
3518: , p_data => x_msg_data
3519: );
3520: END IF;
3521:
3522: x_return_status := FND_API.G_RET_STS_ERROR;
3523: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3524: IF (cr_bis_dim_short_name%ISOPEN) THEN
3525: CLOSE cr_bis_dim_short_name;
3526: END IF;
3519: );
3520: END IF;
3521:
3522: x_return_status := FND_API.G_RET_STS_ERROR;
3523: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3524: IF (cr_bis_dim_short_name%ISOPEN) THEN
3525: CLOSE cr_bis_dim_short_name;
3526: END IF;
3527: IF (cr_bsc_dimension_id%ISOPEN) THEN
3529: END IF;
3530: ROLLBACK TO DeleteBSCDimensionsPMD;
3531: IF (x_msg_data IS NULL) THEN
3532: FND_MSG_PUB.Count_And_Get
3533: ( p_encoded => FND_API.G_FALSE
3534: , p_count => x_msg_count
3535: , p_data => x_msg_data
3536: );
3537: END IF;
3534: , p_count => x_msg_count
3535: , p_data => x_msg_data
3536: );
3537: END IF;
3538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3539:
3540: WHEN NO_DATA_FOUND THEN
3541: IF (cr_bis_dim_short_name%ISOPEN) THEN
3542: CLOSE cr_bis_dim_short_name;
3544: IF (cr_bsc_dimension_id%ISOPEN) THEN
3545: CLOSE cr_bsc_dimension_id;
3546: END IF;
3547: ROLLBACK TO DeleteBSCDimensionsPMD;
3548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3549: IF (x_msg_data IS NOT NULL) THEN
3550: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Delete_Dimension ';
3551: ELSE
3552: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Delete_Dimension ';
3559: IF (cr_bsc_dimension_id%ISOPEN) THEN
3560: CLOSE cr_bsc_dimension_id;
3561: END IF;
3562: ROLLBACK TO DeleteBSCDimensionsPMD;
3563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3564: IF (x_msg_data IS NOT NULL) THEN
3565: x_msg_data := x_msg_data||' -> BSC_BIS_DIMENSION_PUB.Delete_Dimension ';
3566: ELSE
3567: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Delete_Dimension ';
3688: WHERE UPPER(short_name) = UPPER(p_dim_lvl_shrt_name);
3689: END IF;
3690: EXCEPTION
3691: WHEN OTHERS THEN
3692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3693: IF (x_msg_data IS NULL) THEN
3694: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Get_Lvl_Dtls ';
3695: END IF;
3696: END Get_Lvl_Dtls;
3731: x_dim_lvl_name_col := NULL;
3732: END;
3733: EXCEPTION
3734: WHEN OTHERS THEN
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: IF (x_msg_data IS NULL) THEN
3737: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Get_Spec_Edw_Dtls ';
3738: END IF;
3739: END Get_Spec_Edw_Dtls;
3778: WHEN OTHERS THEN
3779: IF (dl_value%ISOPEN) THEN
3780: CLOSE dl_value;
3781: END IF;
3782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3783: IF (x_msg_data IS NULL) THEN
3784: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.Get_Gene_Edw_Dtls ';
3785: END IF;
3786: END Get_Gene_Edw_Dtls;
3909: IF (l_kpi_names IS NOT NULL) THEN
3910: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_KPI_COLOR_INVALID');
3911: FND_MESSAGE.SET_TOKEN('INDICATORS', l_kpi_names);
3912: FND_MSG_PUB.ADD;
3913: RAISE FND_API.G_EXC_ERROR;
3914: END IF;
3915:
3916: RETURN NULL;
3917: EXCEPTION
3914: END IF;
3915:
3916: RETURN NULL;
3917: EXCEPTION
3918: WHEN FND_API.G_EXC_ERROR THEN
3919: IF (c_default_Value%ISOPEN) THEN
3920: CLOSE c_default_Value;
3921: END IF;
3922: IF(ref_cur%ISOPEN) THEN
3923: CLOSE ref_cur;
3924: END IF;
3925: IF (l_Msg_Data IS NULL) THEN
3926: FND_MSG_PUB.Count_And_Get
3927: ( p_encoded => FND_API.G_FALSE
3928: , p_count => l_msg_count
3929: , p_data => l_Msg_Data
3930: );
3931: END IF;
3930: );
3931: END IF;
3932:
3933: RETURN l_Msg_Data;
3934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3935: IF (c_default_Value%ISOPEN) THEN
3936: CLOSE c_default_Value;
3937: END IF;
3938: IF(ref_cur%ISOPEN) THEN
3940: END IF;
3941:
3942: IF (l_Msg_Data IS NULL) THEN
3943: FND_MSG_PUB.Count_And_Get
3944: ( p_encoded => FND_API.G_FALSE
3945: , p_count => l_msg_count
3946: , p_data => l_Msg_Data
3947: );
3948: END IF;
4085: IF ((l_Struct_Flag) AND (l_kpi_names IS NOT NULL)) THEN
4086: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_KPI_STRUCT_INVALID');
4087: FND_MESSAGE.SET_TOKEN('INDICATORS', l_kpi_names);
4088: FND_MSG_PUB.ADD;
4089: RAISE FND_API.G_EXC_ERROR;
4090: END IF;
4091:
4092: RETURN NULL;
4093: EXCEPTION
4090: END IF;
4091:
4092: RETURN NULL;
4093: EXCEPTION
4094: WHEN FND_API.G_EXC_ERROR THEN
4095: IF (l_Msg_Data IS NULL) THEN
4096: FND_MSG_PUB.Count_And_Get
4097: ( p_encoded => FND_API.G_FALSE
4098: , p_count => l_msg_count
4093: EXCEPTION
4094: WHEN FND_API.G_EXC_ERROR THEN
4095: IF (l_Msg_Data IS NULL) THEN
4096: FND_MSG_PUB.Count_And_Get
4097: ( p_encoded => FND_API.G_FALSE
4098: , p_count => l_msg_count
4099: , p_data => l_Msg_Data
4100: );
4101: END IF;
4100: );
4101: END IF;
4102:
4103: RETURN l_Msg_Data;
4104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4105: IF (l_Msg_Data IS NULL) THEN
4106: FND_MSG_PUB.Count_And_Get
4107: ( p_encoded => FND_API.G_FALSE
4108: , p_count => l_msg_count
4103: RETURN l_Msg_Data;
4104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4105: IF (l_Msg_Data IS NULL) THEN
4106: FND_MSG_PUB.Count_And_Get
4107: ( p_encoded => FND_API.G_FALSE
4108: , p_count => l_msg_count
4109: , p_data => l_Msg_Data
4110: );
4111: END IF;
4187: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SPACE');
4188: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
4189: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
4190: FND_MSG_PUB.ADD;
4191: RAISE FND_API.G_EXC_ERROR;
4192: END IF;
4193:
4194: OPEN cr_dimobjs_in_dim;
4195: -- bug#3405498 meastmon 28-jan-2004: The following is not supported in 8i
4272: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SPACE');
4273: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
4274: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
4275: FND_MSG_PUB.ADD;
4276: RAISE FND_API.G_EXC_ERROR;
4277: END IF;
4278: END LOOP;
4279: END IF;
4280: IF(cr_dimobjs_in_dim%ISOPEN) THEN
4287: CLOSE cr_dimobj_in_dimset;
4288: END IF;
4289: RETURN NULL;
4290: EXCEPTION
4291: WHEN FND_API.G_EXC_ERROR THEN
4292: IF (l_Msg_Data IS NULL) THEN
4293: FND_MSG_PUB.Count_And_Get
4294: ( p_encoded => FND_API.G_FALSE
4295: , p_count => l_msg_count
4290: EXCEPTION
4291: WHEN FND_API.G_EXC_ERROR THEN
4292: IF (l_Msg_Data IS NULL) THEN
4293: FND_MSG_PUB.Count_And_Get
4294: ( p_encoded => FND_API.G_FALSE
4295: , p_count => l_msg_count
4296: , p_data => l_Msg_Data
4297: );
4298: END IF;
4338:
4339:
4340: BEGIN
4341: l_dim_short_names := p_dim_short_names;
4342: l_return_value :=FND_API.G_FALSE;
4343:
4344: WHILE (is_more(p_dim_obj_short_names => l_dim_short_names
4345: , p_dim_obj_name => l_dim_short_name )
4346: ) LOOP
4352: WHERE dim_group_id = l_dim_group_id;
4353:
4354: IF (l_count =0) THEN
4355:
4356: l_return_value:= FND_API.G_TRUE;
4357: EXIT;
4358: END IF;
4359: END LOOP;
4360:
4357: EXIT;
4358: END IF;
4359: END LOOP;
4360:
4361: RETURN l_return_value; --Will return FND_API.G_TRUE even if 1 Dimension is Empty
4362:
4363: END Is_Dim_Empty;
4364:
4365:
4427: Summry: Check the passing list of dimensions, cascading remove empty BSC dimension from dim set
4428: Called in: 1.) BSC_BIS_DIMENSION_PUB.Assign_Unassign_Dim_Objs 2.) BSC_BIS_DIM_OBJ_PUB.Assign_Unassign_Dimensions
4429: ****************************************************************************************************************/
4430: PROCEDURE Remove_Empty_Dims_For_DimSet
4431: ( p_commit IN VARCHAR2 := FND_API.G_FALSE -- mdamle 06/06/2005 - Set default p_commit to false for dim. group apis called from EO
4432: , p_dim_short_names IN VARCHAR2
4433: , p_time_stamp IN VARCHAR2 := NULL -- Granular Locking
4434: , x_return_status OUT NOCOPY VARCHAR2
4435: , x_msg_count OUT NOCOPY NUMBER
4485: -- Cascading unassign empty dimension from Objectives-dim sets
4486: FOR cd IN c_dim_set_kpi LOOP
4487:
4488: BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set
4489: ( p_commit => FND_API.G_FALSE
4490: , p_kpi_id => cd.Indicator
4491: , p_dim_set_id => cd.Dim_Set_Id
4492: , p_dim_short_names => l_dim_short_name
4493: , p_time_stamp => p_time_stamp
4494: , x_return_status => x_return_status
4495: , x_msg_count => x_msg_count
4496: , x_msg_data => x_msg_data
4497: );
4498: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4500: END IF;
4501: END LOOP;
4502: END IF;
4495: , x_msg_count => x_msg_count
4496: , x_msg_data => x_msg_data
4497: );
4498: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4500: END IF;
4501: END LOOP;
4502: END IF;
4503: END IF;
4503: END IF;
4504:
4505: END LOOP;
4506:
4507: IF (p_commit = FND_API.G_TRUE) THEN
4508: COMMIT;
4509:
4510: END IF;
4511:
4537: l_dim_name VARCHAR2(32000);
4538: l_diff_source_cnt NUMBER;
4539: BEGIN
4540:
4541: x_return_status := FND_API.G_RET_STS_SUCCESS;
4542: l_true := FALSE;
4543:
4544: -- added to relax checking for mixed type of Dimension Objects within a Dimension
4545: -- for Autogenerated reports and removing the disctiction, BSC 5.3
4542: l_true := FALSE;
4543:
4544: -- added to relax checking for mixed type of Dimension Objects within a Dimension
4545: -- for Autogenerated reports and removing the disctiction, BSC 5.3
4546: IF (p_Restrict_Dim_Validate IS NOT NULL OR BIS_UTILITIES_PUB.Enable_Generated_Source_Report = FND_API.G_FALSE) THEN
4547: SELECT count(distinct(source))
4548: INTO l_diff_source_cnt
4549: FROM bsc_sys_dim_levels_vl
4550: WHERE INSTR(','||p_dim_short_names ||',',','||short_name||',') > 0;
4582: WHERE INSTR(','||p_dim_short_names ||',',','||short_name||',') > 0;
4583: END IF;
4584: END IF;
4585:
4586: x_return_status := FND_API.G_RET_STS_SUCCESS;
4587: RETURN l_true;
4588: EXCEPTION
4589: WHEN OTHERS THEN
4590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4586: x_return_status := FND_API.G_RET_STS_SUCCESS;
4587: RETURN l_true;
4588: EXCEPTION
4589: WHEN OTHERS THEN
4590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4591: IF (x_msg_data IS NULL) THEN
4592: x_msg_data := SQLERRM||' at BSC_BIS_DIMENSION_PUB.is_Valid_Dim_Grp_Rels ';
4593: END IF;
4594: