[Home] [Help]
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);
592: FND_MSG_PUB.ADD;
593: x_msg_data := NULL;
594: END IF;
595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
596: END IF;
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
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
836: , p_count => x_msg_count
837: , p_data => x_msg_data
838: );
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
847: , p_count => x_msg_count
848: , p_data => x_msg_data
849: );
911: BEGIN
912: SAVEPOINT CreateBSCDimensionPMD;
913:
914:
915: FND_MSG_PUB.INITIALIZE;
916:
917: IF((p_dim_short_name IS NOT NULL) AND
918: (p_is_default_short_name <> 'T')) THEN
919: l_dim_short_name := p_dim_short_name;
957:
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');
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);
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');
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'));
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');
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'));
980: FND_MSG_PUB.ADD;
981: RAISE FND_API.G_EXC_ERROR;
982: END IF;
983:
984: SELECT COUNT(1) INTO l_count
987: IF (l_count <> 0) THEN
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
998: IF (l_count <> 0) THEN
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:
1047: IF (l_count <> 0) THEN
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
1058: IF (l_count <> 0) THEN
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;
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);
1141: FND_MSG_PUB.ADD;
1142: x_msg_data := NULL;
1143: END IF;
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: END IF;
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
1176: , p_count => x_msg_count
1177: , p_data => x_msg_data
1178: );
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
1187: , p_count => x_msg_count
1188: , p_data => x_msg_data
1189: );
1269: FROM BSC_SYS_DIM_LEVELS_B
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);
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;
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
1288: 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
1330: CLOSE cr_bsc_dim_obj_id;
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
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
1474: , p_data => x_msg_data
1475: );
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
1484: , p_data => x_msg_data
1485: );
1578:
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);
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;
1588: RAISE FND_API.G_EXC_ERROR;
1589: END IF;
1590: IF (cr_bsc_dim_id%ISOPEN) THEN
1591: CLOSE cr_bsc_dim_id;
1596: CLOSE cr_bsc_dim_id;
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.
1627: IF ((l_comp_count > 0) AND (p_default_value = 'C')) THEN
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;
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;
1637: END IF;
1638: END IF;
1639: END IF;
1686:
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);
1697: p_dim_lvl_shrt_name => p_dim_obj_short_name
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:
1944: CLOSE c_Defaut_Value;
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: );
1964: CLOSE c_Defaut_Value;
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: );
2055: BEGIN
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);
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;
2065: RAISE FND_API.G_EXC_ERROR;
2066: END IF;
2067: IF (cr_bsc_dimension_id%ISOPEN) THEN
2068: CLOSE cr_bsc_dimension_id;
2073: CLOSE cr_bsc_dimension_id;
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
2138: CLOSE cr_bsc_dim_obj_id;
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
2238: CLOSE cr_bsc_dim_obj_id;
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: );
2255: CLOSE cr_bsc_dim_obj_id;
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: );
2335: FND_MESSAGE.SET_NAME('BIS','BIS_DIM_OBJ_RPTASSOC_ERROR');
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;
2398: WHERE obj_short_name = l_dim_obj_sht_name
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);
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;
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;
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
2500: , p_data => x_msg_data
2501: );
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
2510: , p_data => x_msg_data
2511: );
2569: WHERE short_name = l_dim_short_name;
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:
2608: IF (l_bis_create) 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;
2618: CLOSE cr_bsc_dim_id;
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
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);
2669: FND_MSG_PUB.ADD;
2670: x_msg_data := NULL;
2671: END IF;
2672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2673: END IF;
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;
2777: CLOSE cr_bsc_dim_id;
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: );
2794: CLOSE cr_bsc_dim_id;
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: );
2877: -- END Granular Locking Declaration added by Aditya
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);
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;
2887: RAISE FND_API.G_EXC_ERROR;
2888: END IF;
2889: IF (cr_bsc_dim_id%ISOPEN) THEN
2890: CLOSE cr_bsc_dim_id;
2895: CLOSE cr_bsc_dim_id;
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;
2928: IF (l_count <> 0) THEN
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
2940: IF (l_count <> 0) THEN
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;
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
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: );
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
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: );
3150: -- END Granular Locking Declaration added by Aditya
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);
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;
3160: RAISE FND_API.G_EXC_ERROR;
3161: END IF;
3162:
3163:
3171:
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
3236: CLOSE cr_indicdimset_for_dimgrp;
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: /********************************************************/
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
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: );
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
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: );
3340: WHERE Dimension_Id = l_bis_dimension_rec.dimension_id;
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);
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;
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
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');
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
3393: WHERE DIMENSION_ID = l_bis_dimension_rec.dimension_id;
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
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);
3412: FND_MSG_PUB.ADD;
3413: x_msg_data := NULL;
3414: END IF;
3415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3416: END IF;
3442: IF(l_regions IS NOT NULL) THEN
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
3454: WHERE dim_group_id = l_bsc_dimension_rec.Bsc_Dim_Level_Group_Id;
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
3492: END IF;
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;
3511: CLOSE cr_bsc_dimension_id;
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: );
3528: CLOSE cr_bsc_dimension_id;
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: );
3841: TYPE ref_cursor IS REF CURSOR;
3842: ref_cur ref_cursor;
3843: BEGIN
3844:
3845: FND_MSG_PUB.Initialize;
3846: IF (p_dim_short_name IS NULL) THEN
3847: RETURN NULL;
3848: END IF;
3849: SELECT Property_Value INTO l_Prod_Mode
3908:
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;
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: );
3939: CLOSE ref_cur;
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: );
4009: AND A.Dim_Group_Id = C.Dim_Group_Id
4010: AND C.Short_Name = p_Dim_Short_Name;
4011: BEGIN
4012:
4013: FND_MSG_PUB.Initialize;
4014: IF (p_Dim_Short_Name IS NULL) THEN
4015: RETURN NULL;
4016: END IF;
4017: IF (NOT BSC_UTILITY.isBscInProductionMode()) THEN
4084:
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;
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
4099: , p_data => l_Msg_Data
4100: );
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
4109: , p_data => l_Msg_Data
4110: );
4176: i NUMBER;
4177: l_no_dim_object VARCHAR2(32000);
4178:
4179: BEGIN
4180: FND_MSG_PUB.Initialize;
4181: l_dim_obj_short_names := p_Dim_Obj_Short_Names;
4182: WHILE(Is_More(p_dim_obj_short_names=>l_dim_obj_short_names,p_dim_obj_name=> l_dim_short_name)) LOOP
4183: l_count_dim_objs:= l_count_dim_objs +1;
4184: END LOOP;
4186: IF(l_count_dim_objs > BSC_BIS_KPI_MEAS_PUB.Config_Limit_Dim) THEN
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;
4271:
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;
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
4296: , p_data => l_Msg_Data
4297: );
4573: IF (l_true) THEN
4574: FND_MESSAGE.SET_NAME('BSC','BSC_DIM_DIMOBJ_MIXED_TYPE');
4575: FND_MESSAGE.SET_TOKEN('DIMENSION', p_dim_name);
4576: FND_MESSAGE.SET_TOKEN('DIM_OBJECT', l_dim_obj_name);
4577: FND_MSG_PUB.ADD;
4578: ELSE
4579: SELECT distinct(NVL(source, 'BSC'))
4580: INTO x_dim_type
4581: FROM bsc_sys_dim_levels_vl