[Home] [Help]
773: --: for the Analysis Option API.
774: --: This procedure is part of the Analysis Option API.
775:
776: procedure Create_Analysis_Options(
777: p_commit IN varchar2 -- := FND_API.G_FALSE
778: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
779: ,x_return_status OUT NOCOPY varchar2
780: ,x_msg_count OUT NOCOPY number
781: ,x_msg_data OUT NOCOPY varchar2
784: l_count number;
785: l_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
786: begin
787: FND_MSG_PUB.Initialize;
788: x_return_status := FND_API.G_RET_STS_SUCCESS;
789: SAVEPOINT CreateBSCAnaOptPVT;
790: -- Check that valid Kpi id was entered.
791: if p_Anal_Opt_Rec.Bsc_Kpi_Id is not null then
792: /*l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
800: if l_count = 0 then
801: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
802: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
803: FND_MSG_PUB.ADD;
804: RAISE FND_API.G_EXC_ERROR;
805: end if;
806: else
807: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
808: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
806: else
807: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
808: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
809: FND_MSG_PUB.ADD;
810: RAISE FND_API.G_EXC_ERROR;
811: end if;
812:
813: g_db_object := 'BSC_KPI_ANALYSIS_OPTIONS_B';
814:
875: update BSC_KPI_ANALYSIS_GROUPS
876: set num_of_options = p_Anal_Opt_Rec.Bsc_Analysis_Option_Id + 1
877: where indicator = p_Anal_Opt_Rec.Bsc_Kpi_Id;
878:
879: if (p_commit = FND_API.G_TRUE) then
880: commit;
881: end if;
882:
883: EXCEPTION
880: commit;
881: end if;
882:
883: EXCEPTION
884: WHEN FND_API.G_EXC_ERROR THEN
885: ROLLBACK TO CreateBSCAnaOptPVT;
886: FND_MSG_PUB.Count_And_Get
887: ( p_encoded => 'F'
888: , p_count => x_msg_count
887: ( p_encoded => 'F'
888: , p_count => x_msg_count
889: , p_data => x_msg_data
890: );
891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: RAISE;
894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
895: ROLLBACK TO CreateBSCAnaOptPVT;
888: , p_count => x_msg_count
889: , p_data => x_msg_data
890: );
891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: RAISE;
894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
895: ROLLBACK TO CreateBSCAnaOptPVT;
896: FND_MSG_PUB.Count_And_Get
890: );
891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: RAISE;
894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
895: ROLLBACK TO CreateBSCAnaOptPVT;
896: FND_MSG_PUB.Count_And_Get
897: ( p_encoded => 'F'
898: , p_count => x_msg_count
897: ( p_encoded => 'F'
898: , p_count => x_msg_count
899: , p_data => x_msg_data
900: );
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
903: RAISE;
904: WHEN NO_DATA_FOUND THEN
905: ROLLBACK TO CreateBSCAnaOptPVT;
898: , p_count => x_msg_count
899: , p_data => x_msg_data
900: );
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
903: RAISE;
904: WHEN NO_DATA_FOUND THEN
905: ROLLBACK TO CreateBSCAnaOptPVT;
906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
903: RAISE;
904: WHEN NO_DATA_FOUND THEN
905: ROLLBACK TO CreateBSCAnaOptPVT;
906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
907: IF (x_msg_data IS NOT NULL) THEN
908: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Create_Analysis_Options ';
909: ELSE
910: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Create_Analysis_Options ';
912: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
913: RAISE;
914: WHEN OTHERS THEN
915: ROLLBACK TO CreateBSCAnaOptPVT;
916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: IF (x_msg_data IS NOT NULL) THEN
918: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Create_Analysis_Options ';
919: ELSE
920: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Create_Analysis_Options ';
928:
929: -- added code to retrive Short_Name as well.
930: procedure Retrieve_Analysis_Options
931: (
932: p_commit IN varchar2 -- := FND_API.G_FALSE
933: , p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
934: , x_Anal_Opt_Rec IN OUT NOCOPY BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
935: , p_data_source IN VARCHAR2
936: , x_return_status OUT NOCOPY varchar2
939: ) is
940:
941: begin
942: FND_MSG_PUB.Initialize;
943: x_return_status := FND_API.G_RET_STS_SUCCESS;
944: g_db_object := 'Retrieve_Analysis_Options';
945: IF ((p_Data_Source IS NOT NULL) AND
946: (p_Data_Source = 'BSC') AND
947: (p_Anal_Opt_Rec.Bsc_Grandparent_Option_Id IS NULL) AND
1027: and analysis_group_id = p_Anal_Opt_Rec.Bsc_Analysis_Group_Id
1028: and option_id = p_Anal_Opt_Rec.Bsc_Analysis_Option_Id;
1029:
1030: END IF;
1031: if (p_commit = FND_API.G_TRUE) then
1032: commit;
1033: end if;
1034:
1035: EXCEPTION
1032: commit;
1033: end if;
1034:
1035: EXCEPTION
1036: WHEN FND_API.G_EXC_ERROR THEN
1037: FND_MSG_PUB.Count_And_Get
1038: ( p_encoded => FND_API.G_FALSE
1039: , p_count => x_msg_count
1040: , p_data => x_msg_data
1034:
1035: EXCEPTION
1036: WHEN FND_API.G_EXC_ERROR THEN
1037: FND_MSG_PUB.Count_And_Get
1038: ( p_encoded => FND_API.G_FALSE
1039: , p_count => x_msg_count
1040: , p_data => x_msg_data
1041: );
1042: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1038: ( p_encoded => FND_API.G_FALSE
1039: , p_count => x_msg_count
1040: , p_data => x_msg_data
1041: );
1042: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1043: x_return_status := FND_API.G_RET_STS_ERROR;
1044: RAISE;
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: FND_MSG_PUB.Count_And_Get
1039: , p_count => x_msg_count
1040: , p_data => x_msg_data
1041: );
1042: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1043: x_return_status := FND_API.G_RET_STS_ERROR;
1044: RAISE;
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: FND_MSG_PUB.Count_And_Get
1047: ( p_encoded => FND_API.G_FALSE
1041: );
1042: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1043: x_return_status := FND_API.G_RET_STS_ERROR;
1044: RAISE;
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: FND_MSG_PUB.Count_And_Get
1047: ( p_encoded => FND_API.G_FALSE
1048: , p_count => x_msg_count
1049: , p_data => x_msg_data
1043: x_return_status := FND_API.G_RET_STS_ERROR;
1044: RAISE;
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: FND_MSG_PUB.Count_And_Get
1047: ( p_encoded => FND_API.G_FALSE
1048: , p_count => x_msg_count
1049: , p_data => x_msg_data
1050: );
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1047: ( p_encoded => FND_API.G_FALSE
1048: , p_count => x_msg_count
1049: , p_data => x_msg_data
1050: );
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1052: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1053: RAISE;
1054: WHEN NO_DATA_FOUND THEN
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1048: , p_count => x_msg_count
1049: , p_data => x_msg_data
1050: );
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1052: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1053: RAISE;
1054: WHEN NO_DATA_FOUND THEN
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1056: IF (x_msg_data IS NOT NULL) THEN
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1052: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1053: RAISE;
1054: WHEN NO_DATA_FOUND THEN
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1056: IF (x_msg_data IS NOT NULL) THEN
1057: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Retrieve_Analysis_Options ';
1058: ELSE
1059: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Retrieve_Analysis_Options ';
1060: END IF;
1061: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1062: RAISE;
1063: WHEN OTHERS THEN
1064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1065: IF (x_msg_data IS NOT NULL) THEN
1066: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Retrieve_Analysis_Options ';
1067: ELSE
1068: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Retrieve_Analysis_Options ';
1075: ************************************************************************************/
1076:
1077: procedure Update_Analysis_Options
1078: (
1079: p_commit IN varchar2 -- := FND_API.G_FALSE
1080: , p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1081: , p_data_source IN VARCHAR2
1082: , x_return_status OUT NOCOPY VARCHAR2
1083: , x_msg_count OUT NOCOPY NUMBER
1086: l_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
1087: l_count number;
1088: begin
1089: FND_MSG_PUB.Initialize;
1090: x_return_status := FND_API.G_RET_STS_SUCCESS;
1091: SAVEPOINT UpdateBSCAnaOptPVT;
1092: -- Check that valid Kpi id was entered.
1093: if p_Anal_Opt_Rec.Bsc_Kpi_Id is not null then
1094: /*l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1102: if l_count = 0 then
1103: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1104: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1105: FND_MSG_PUB.ADD;
1106: RAISE FND_API.G_EXC_ERROR;
1107: end if;
1108: else
1109: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1110: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1108: else
1109: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1110: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1111: FND_MSG_PUB.ADD;
1112: RAISE FND_API.G_EXC_ERROR;
1113: end if;
1114: -- update LOCAL language ,source language, group id and level Id values with PASSED values.
1115: l_Anal_Opt_Rec.Bsc_Language := p_Anal_Opt_Rec.Bsc_Language;
1116: l_Anal_Opt_Rec.Bsc_Source_Language := p_Anal_Opt_Rec.Bsc_Source_Language;
1246: and analysis_group_id = p_Anal_Opt_Rec.Bsc_Analysis_Group_Id
1247: and option_Id = p_Anal_Opt_Rec.Bsc_Analysis_Option_Id
1248: and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
1249: END IF;
1250: IF (p_commit = FND_API.G_TRUE) THEN
1251: COMMIT;
1252: END IF;
1253: EXCEPTION
1254: WHEN FND_API.G_EXC_ERROR THEN
1250: IF (p_commit = FND_API.G_TRUE) THEN
1251: COMMIT;
1252: END IF;
1253: EXCEPTION
1254: WHEN FND_API.G_EXC_ERROR THEN
1255: ROLLBACK TO UpdateBSCAnaOptPVT;
1256: FND_MSG_PUB.Count_And_Get
1257: ( p_encoded => FND_API.G_FALSE
1258: , p_count => x_msg_count
1253: EXCEPTION
1254: WHEN FND_API.G_EXC_ERROR THEN
1255: ROLLBACK TO UpdateBSCAnaOptPVT;
1256: FND_MSG_PUB.Count_And_Get
1257: ( p_encoded => FND_API.G_FALSE
1258: , p_count => x_msg_count
1259: , p_data => x_msg_data
1260: );
1261: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1257: ( p_encoded => FND_API.G_FALSE
1258: , p_count => x_msg_count
1259: , p_data => x_msg_data
1260: );
1261: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: RAISE;
1264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1265: ROLLBACK TO UpdateBSCAnaOptPVT;
1258: , p_count => x_msg_count
1259: , p_data => x_msg_data
1260: );
1261: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: RAISE;
1264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1265: ROLLBACK TO UpdateBSCAnaOptPVT;
1266: FND_MSG_PUB.Count_And_Get
1260: );
1261: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: RAISE;
1264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1265: ROLLBACK TO UpdateBSCAnaOptPVT;
1266: FND_MSG_PUB.Count_And_Get
1267: ( p_encoded => FND_API.G_FALSE
1268: , p_count => x_msg_count
1263: RAISE;
1264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1265: ROLLBACK TO UpdateBSCAnaOptPVT;
1266: FND_MSG_PUB.Count_And_Get
1267: ( p_encoded => FND_API.G_FALSE
1268: , p_count => x_msg_count
1269: , p_data => x_msg_data
1270: );
1271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1267: ( p_encoded => FND_API.G_FALSE
1268: , p_count => x_msg_count
1269: , p_data => x_msg_data
1270: );
1271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1272: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1273: RAISE;
1274: WHEN NO_DATA_FOUND THEN
1275: ROLLBACK TO UpdateBSCAnaOptPVT;
1268: , p_count => x_msg_count
1269: , p_data => x_msg_data
1270: );
1271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1272: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1273: RAISE;
1274: WHEN NO_DATA_FOUND THEN
1275: ROLLBACK TO UpdateBSCAnaOptPVT;
1276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1272: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1273: RAISE;
1274: WHEN NO_DATA_FOUND THEN
1275: ROLLBACK TO UpdateBSCAnaOptPVT;
1276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1277: IF (x_msg_data IS NOT NULL) THEN
1278: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Update_Analysis_Options ';
1279: ELSE
1280: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Update_Analysis_Options ';
1282: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1283: RAISE;
1284: WHEN OTHERS THEN
1285: ROLLBACK TO UpdateBSCAnaOptPVT;
1286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1287: IF (x_msg_data IS NOT NULL) THEN
1288: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Update_Analysis_Options ';
1289: ELSE
1290: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Update_Analysis_Options ';
1296: /************************************************************************************
1297: ************************************************************************************/
1298:
1299: PROCEDURE Delete_Analysis_Options
1300: ( p_commit IN varchar2 -- := FND_API.G_FALSE
1301: , p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1302: , x_return_status OUT NOCOPY VARCHAR2
1303: , x_msg_count OUT NOCOPY NUMBER
1304: , x_msg_data OUT NOCOPY VARCHAR2
1325: WHERE Source_Indicator = p_Anal_Opt_Rec.Bsc_Kpi_Id
1326: AND Prototype_Flag <> BSC_KPI_PUB.Delete_Kpi_Flag;
1327: BEGIN
1328: FND_MSG_PUB.Initialize;
1329: x_return_status := FND_API.G_RET_STS_SUCCESS;
1330: SAVEPOINT DeleteBSCAnaOptPVT;
1331: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
1332: -- Check that valid Kpi id was entered.
1333: IF (p_Anal_Opt_Rec.Bsc_Kpi_Id IS NOT NULL) THEN
1335: IF l_count = 0 THEN
1336: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1337: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1338: FND_MSG_PUB.ADD;
1339: RAISE FND_API.G_EXC_ERROR;
1340: END IF;
1341: ELSE
1342: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1343: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1341: ELSE
1342: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1343: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1344: FND_MSG_PUB.ADD;
1345: RAISE FND_API.G_EXC_ERROR;
1346: END IF;
1347: l_delete := Delete_Analysis_Option( l_Anal_Opt_Rec.Bsc_Kpi_Id
1348: ,l_Anal_Opt_Rec.Bsc_Analysis_Option_Id
1349: ,x_return_status
1353: IF (l_delete = 'S') THEN
1354: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
1355: FND_MESSAGE.SET_TOKEN('BSC_AO_DELETE', l_Anal_Opt_Rec.Bsc_Kpi_Id);
1356: FND_MSG_PUB.ADD;
1357: RAISE FND_API.G_EXC_ERROR;
1358: END IF;
1359: IF l_delete = 'L' THEN
1360: IF is_custom_kpi(l_Anal_Opt_Rec.Bsc_Kpi_Id,l_Kpi_Name) = FALSE THEN
1361: FND_MESSAGE.SET_NAME('BSC','BSC_LAST_AO_IN_KPI');
1359: IF l_delete = 'L' THEN
1360: IF is_custom_kpi(l_Anal_Opt_Rec.Bsc_Kpi_Id,l_Kpi_Name) = FALSE THEN
1361: FND_MESSAGE.SET_NAME('BSC','BSC_LAST_AO_IN_KPI');
1362: FND_MSG_PUB.ADD;
1363: RAISE FND_API.G_EXC_ERROR;
1364: ELSE
1365: FND_MESSAGE.SET_NAME('BSC','BSC_LAST_AO_IN_CUST_KPI');
1366: FND_MESSAGE.SET_TOKEN('OBJ_NAME', l_Kpi_Name);
1367: FND_MSG_PUB.ADD;
1364: ELSE
1365: FND_MESSAGE.SET_NAME('BSC','BSC_LAST_AO_IN_CUST_KPI');
1366: FND_MESSAGE.SET_TOKEN('OBJ_NAME', l_Kpi_Name);
1367: FND_MSG_PUB.ADD;
1368: RAISE FND_API.G_EXC_ERROR;
1369: END IF;
1370: END IF;
1371:
1372: IF (l_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
1553: , p_option_Id => NVL(l_Anal_Opt_Rec.Bsc_Analysis_Option_Id,0)
1554: );
1555: -- update default option for the shared KPIs
1556: BSC_KPI_PVT.Set_Default_Option
1557: ( p_commit => FND_API.G_FALSE
1558: , p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
1559: , x_return_status => x_return_status
1560: , x_msg_count => x_msg_count
1561: , x_msg_data => x_msg_data
1560: , x_msg_count => x_msg_count
1561: , x_msg_data => x_msg_data
1562: );
1563: END LOOP;
1564: IF (p_commit = FND_API.G_TRUE) THEN
1565: COMMIT;
1566: END IF;
1567: EXCEPTION
1568: WHEN FND_API.G_EXC_ERROR THEN
1564: IF (p_commit = FND_API.G_TRUE) THEN
1565: COMMIT;
1566: END IF;
1567: EXCEPTION
1568: WHEN FND_API.G_EXC_ERROR THEN
1569: ROLLBACK TO DeleteBSCAnaOptPVT;
1570: FND_MSG_PUB.Count_And_Get
1571: ( p_encoded => FND_API.G_FALSE
1572: , p_count => x_msg_count
1567: EXCEPTION
1568: WHEN FND_API.G_EXC_ERROR THEN
1569: ROLLBACK TO DeleteBSCAnaOptPVT;
1570: FND_MSG_PUB.Count_And_Get
1571: ( p_encoded => FND_API.G_FALSE
1572: , p_count => x_msg_count
1573: , p_data => x_msg_data
1574: );
1575: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1571: ( p_encoded => FND_API.G_FALSE
1572: , p_count => x_msg_count
1573: , p_data => x_msg_data
1574: );
1575: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1576: x_return_status := FND_API.G_RET_STS_ERROR;
1577: RAISE;
1578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1579: ROLLBACK TO DeleteBSCAnaOptPVT;
1572: , p_count => x_msg_count
1573: , p_data => x_msg_data
1574: );
1575: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1576: x_return_status := FND_API.G_RET_STS_ERROR;
1577: RAISE;
1578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1579: ROLLBACK TO DeleteBSCAnaOptPVT;
1580: FND_MSG_PUB.Count_And_Get
1574: );
1575: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1576: x_return_status := FND_API.G_RET_STS_ERROR;
1577: RAISE;
1578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1579: ROLLBACK TO DeleteBSCAnaOptPVT;
1580: FND_MSG_PUB.Count_And_Get
1581: ( p_encoded => FND_API.G_FALSE
1582: , p_count => x_msg_count
1577: RAISE;
1578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1579: ROLLBACK TO DeleteBSCAnaOptPVT;
1580: FND_MSG_PUB.Count_And_Get
1581: ( p_encoded => FND_API.G_FALSE
1582: , p_count => x_msg_count
1583: , p_data => x_msg_data
1584: );
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1581: ( p_encoded => FND_API.G_FALSE
1582: , p_count => x_msg_count
1583: , p_data => x_msg_data
1584: );
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1587: RAISE;
1588: WHEN NO_DATA_FOUND THEN
1589: ROLLBACK TO DeleteBSCAnaOptPVT;
1582: , p_count => x_msg_count
1583: , p_data => x_msg_data
1584: );
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1587: RAISE;
1588: WHEN NO_DATA_FOUND THEN
1589: ROLLBACK TO DeleteBSCAnaOptPVT;
1590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1587: RAISE;
1588: WHEN NO_DATA_FOUND THEN
1589: ROLLBACK TO DeleteBSCAnaOptPVT;
1590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1591: IF (x_msg_data IS NOT NULL) THEN
1592: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options ';
1593: ELSE
1594: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options ';
1596: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1597: RAISE;
1598: WHEN OTHERS THEN
1599: ROLLBACK TO DeleteBSCAnaOptPVT;
1600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1601: IF (x_msg_data IS NOT NULL) THEN
1602: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options ';
1603: ELSE
1604: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options ';
1613: --: This procedure assigns the given measure to the given analysis option.
1614: --: This procedure is part of the Analysis Option API.
1615:
1616: procedure Create_Analysis_Measures(
1617: p_commit IN varchar2 -- := FND_API.G_FALSE
1618: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1619: ,x_return_status OUT NOCOPY varchar2
1620: ,x_msg_count OUT NOCOPY number
1621: ,x_msg_data OUT NOCOPY varchar2
1624: l_count number;
1625:
1626: begin
1627: FND_MSG_PUB.Initialize;
1628: x_return_status := FND_API.G_RET_STS_SUCCESS;
1629: SAVEPOINT CreateBSCAnaMeasPVT;
1630: -- Check that valid Kpi id was entered.
1631: if p_Anal_Opt_Rec.Bsc_Kpi_Id is not null then
1632: /*l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1639: if l_count = 0 then
1640: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1641: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1642: FND_MSG_PUB.ADD;
1643: RAISE FND_API.G_EXC_ERROR;
1644: end if;
1645: else
1646: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1647: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1645: else
1646: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1647: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1648: FND_MSG_PUB.ADD;
1649: RAISE FND_API.G_EXC_ERROR;
1650: end if;
1651:
1652:
1653: -- If the Option Id is zero for all groups then there is nothing to do.
1659:
1660: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_OPTION_ID');
1661: FND_MESSAGE.SET_TOKEN('BSC_OPTION', p_Anal_Opt_Rec.Bsc_Option_Group0);
1662: FND_MSG_PUB.ADD;
1663: RAISE FND_API.G_EXC_ERROR;
1664:
1665: else
1666:
1667: g_db_object := 'BSC_KPI_ANALYSIS_MEASURES_B';
1732: and T.analysis_option2 = p_Anal_Opt_Rec.Bsc_Option_Group2
1733: and T.series_id = p_Anal_Opt_Rec.Bsc_Dataset_Series_Id
1734: and T.LANGUAGE = L.LANGUAGE_CODE);
1735:
1736: if (p_commit = FND_API.G_TRUE) then
1737: commit;
1738: end if;
1739:
1740: end if;
1739:
1740: end if;
1741:
1742: EXCEPTION
1743: WHEN FND_API.G_EXC_ERROR THEN
1744: ROLLBACK TO CreateBSCAnaMeasPVT;
1745: FND_MSG_PUB.Count_And_Get
1746: ( p_encoded => FND_API.G_FALSE
1747: , p_count => x_msg_count
1742: EXCEPTION
1743: WHEN FND_API.G_EXC_ERROR THEN
1744: ROLLBACK TO CreateBSCAnaMeasPVT;
1745: FND_MSG_PUB.Count_And_Get
1746: ( p_encoded => FND_API.G_FALSE
1747: , p_count => x_msg_count
1748: , p_data => x_msg_data
1749: );
1750: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1746: ( p_encoded => FND_API.G_FALSE
1747: , p_count => x_msg_count
1748: , p_data => x_msg_data
1749: );
1750: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1751: x_return_status := FND_API.G_RET_STS_ERROR;
1752: RAISE;
1753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1754: ROLLBACK TO CreateBSCAnaMeasPVT;
1747: , p_count => x_msg_count
1748: , p_data => x_msg_data
1749: );
1750: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1751: x_return_status := FND_API.G_RET_STS_ERROR;
1752: RAISE;
1753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1754: ROLLBACK TO CreateBSCAnaMeasPVT;
1755: FND_MSG_PUB.Count_And_Get
1749: );
1750: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1751: x_return_status := FND_API.G_RET_STS_ERROR;
1752: RAISE;
1753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1754: ROLLBACK TO CreateBSCAnaMeasPVT;
1755: FND_MSG_PUB.Count_And_Get
1756: ( p_encoded => FND_API.G_FALSE
1757: , p_count => x_msg_count
1752: RAISE;
1753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1754: ROLLBACK TO CreateBSCAnaMeasPVT;
1755: FND_MSG_PUB.Count_And_Get
1756: ( p_encoded => FND_API.G_FALSE
1757: , p_count => x_msg_count
1758: , p_data => x_msg_data
1759: );
1760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1756: ( p_encoded => FND_API.G_FALSE
1757: , p_count => x_msg_count
1758: , p_data => x_msg_data
1759: );
1760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1761: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1762: RAISE;
1763: WHEN NO_DATA_FOUND THEN
1764: ROLLBACK TO CreateBSCAnaMeasPVT;
1757: , p_count => x_msg_count
1758: , p_data => x_msg_data
1759: );
1760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1761: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1762: RAISE;
1763: WHEN NO_DATA_FOUND THEN
1764: ROLLBACK TO CreateBSCAnaMeasPVT;
1765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1761: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1762: RAISE;
1763: WHEN NO_DATA_FOUND THEN
1764: ROLLBACK TO CreateBSCAnaMeasPVT;
1765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1766: IF (x_msg_data IS NOT NULL) THEN
1767: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Create_Analysis_Measures ';
1768: ELSE
1769: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Create_Analysis_Measures ';
1771: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1772: RAISE;
1773: WHEN OTHERS THEN
1774: ROLLBACK TO CreateBSCAnaMeasPVT;
1775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1776: IF (x_msg_data IS NOT NULL) THEN
1777: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Create_Analysis_Measures ';
1778: ELSE
1779: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Create_Analysis_Measures ';
1786: ************************************************************************************/
1787:
1788: procedure Retrieve_Analysis_Measures
1789: (
1790: p_commit IN varchar2 -- := FND_API.G_FALSE
1791: , p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1792: , x_Anal_Opt_Rec IN OUT NOCOPY BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1793: , x_return_status OUT NOCOPY varchar2
1794: , x_msg_count OUT NOCOPY number
1795: , x_msg_data OUT NOCOPY varchar2
1796: ) is
1797: begin
1798: FND_MSG_PUB.Initialize;
1799: x_return_status := FND_API.G_RET_STS_SUCCESS;
1800: g_db_object := 'Retrieve_Analysis_Measures';
1801: IF (p_Anal_Opt_Rec.Bsc_Dataset_Series_Id IS NULL) THEN
1802: select distinct series_id
1803: ,dataset_id
1866: and series_id = p_Anal_Opt_Rec.Bsc_Dataset_Series_Id;
1867:
1868: END IF;
1869:
1870: if (p_commit = FND_API.G_TRUE) then
1871: commit;
1872: end if;
1873:
1874: EXCEPTION
1871: commit;
1872: end if;
1873:
1874: EXCEPTION
1875: WHEN FND_API.G_EXC_ERROR THEN
1876: FND_MSG_PUB.Count_And_Get
1877: ( p_encoded => FND_API.G_FALSE
1878: , p_count => x_msg_count
1879: , p_data => x_msg_data
1873:
1874: EXCEPTION
1875: WHEN FND_API.G_EXC_ERROR THEN
1876: FND_MSG_PUB.Count_And_Get
1877: ( p_encoded => FND_API.G_FALSE
1878: , p_count => x_msg_count
1879: , p_data => x_msg_data
1880: );
1881: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1877: ( p_encoded => FND_API.G_FALSE
1878: , p_count => x_msg_count
1879: , p_data => x_msg_data
1880: );
1881: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: RAISE;
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: FND_MSG_PUB.Count_And_Get
1878: , p_count => x_msg_count
1879: , p_data => x_msg_data
1880: );
1881: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: RAISE;
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: FND_MSG_PUB.Count_And_Get
1886: ( p_encoded => FND_API.G_FALSE
1880: );
1881: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: RAISE;
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: FND_MSG_PUB.Count_And_Get
1886: ( p_encoded => FND_API.G_FALSE
1887: , p_count => x_msg_count
1888: , p_data => x_msg_data
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: RAISE;
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: FND_MSG_PUB.Count_And_Get
1886: ( p_encoded => FND_API.G_FALSE
1887: , p_count => x_msg_count
1888: , p_data => x_msg_data
1889: );
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1886: ( p_encoded => FND_API.G_FALSE
1887: , p_count => x_msg_count
1888: , p_data => x_msg_data
1889: );
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1892: RAISE;
1893: WHEN NO_DATA_FOUND THEN
1894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1887: , p_count => x_msg_count
1888: , p_data => x_msg_data
1889: );
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1892: RAISE;
1893: WHEN NO_DATA_FOUND THEN
1894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1895: FND_MSG_PUB.Initialize;
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1892: RAISE;
1893: WHEN NO_DATA_FOUND THEN
1894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1895: FND_MSG_PUB.Initialize;
1896: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
1897: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
1898: FND_MSG_PUB.ADD;
1895: FND_MSG_PUB.Initialize;
1896: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
1897: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
1898: FND_MSG_PUB.ADD;
1899: RAISE FND_API.G_EXC_ERROR;
1900: WHEN OTHERS THEN
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1902: IF (x_msg_data IS NOT NULL) THEN
1903: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Retrieve_Analysis_Measures ';
1897: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
1898: FND_MSG_PUB.ADD;
1899: RAISE FND_API.G_EXC_ERROR;
1900: WHEN OTHERS THEN
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1902: IF (x_msg_data IS NOT NULL) THEN
1903: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Retrieve_Analysis_Measures ';
1904: ELSE
1905: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Retrieve_Analysis_Measures ';
1912: ************************************************************************************/
1913:
1914: procedure Update_Analysis_Measures
1915: (
1916: p_commit IN varchar2 -- := FND_API.G_FALSE
1917: , p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1918: , x_return_status OUT NOCOPY VARCHAR2
1919: , x_msg_count OUT NOCOPY NUMBER
1920: , x_msg_data OUT NOCOPY VARCHAR2
1928: l_old_color_method bsc_sys_datasets_b.color_method%TYPE;
1929: l_new_color_method bsc_sys_datasets_b.color_method%TYPE;
1930: begin
1931: FND_MSG_PUB.Initialize;
1932: x_return_status := FND_API.G_RET_STS_SUCCESS;
1933: SAVEPOINT UpdateBSCAnaMeasPVT;
1934: -- Check that valid Kpi id was entered.
1935: if p_Anal_Opt_Rec.Bsc_Kpi_Id is not null then
1936: /*l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1943: if l_count = 0 then
1944: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1945: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1946: FND_MSG_PUB.ADD;
1947: RAISE FND_API.G_EXC_ERROR;
1948: end if;
1949: else
1950: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1951: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1949: else
1950: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1951: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1952: FND_MSG_PUB.ADD;
1953: RAISE FND_API.G_EXC_ERROR;
1954: end if;
1955:
1956: -- Not all values will be passed. We need to make sure values not passed are not
1957: -- changed by procedure, therefore we get what is there before we do any updates.
2008: INTO l_sname
2009: FROM BSC_KPIS_B
2010: WHERE INDICATOR = l_Anal_Opt_Rec.Bsc_Kpi_Id;
2011:
2012: IF (p_Anal_Opt_Rec.Bsc_Change_Action_Flag = FND_API.G_TRUE AND ((l_source = 'BSC') OR (l_sname IS NOT NULL) )) THEN
2013: BSC_DESIGNER_PVT.ActionFlag_Change( l_Anal_Opt_Rec.Bsc_Kpi_Id ,
2014: BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure );
2015: END IF;
2016: end if;
2131: ,x_return_status => x_return_status
2132: ,x_msg_count => x_msg_count
2133: ,x_msg_data => x_msg_data);
2134:
2135: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2136: RAISE FND_API.G_EXC_ERROR;
2137: END IF;
2138:
2139: BSC_COLOR_RANGES_PUB.Create_Def_Color_Prop_Ranges(p_objective_id => p_Anal_Opt_Rec.Bsc_Kpi_Id
2132: ,x_msg_count => x_msg_count
2133: ,x_msg_data => x_msg_data);
2134:
2135: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2136: RAISE FND_API.G_EXC_ERROR;
2137: END IF;
2138:
2139: BSC_COLOR_RANGES_PUB.Create_Def_Color_Prop_Ranges(p_objective_id => p_Anal_Opt_Rec.Bsc_Kpi_Id
2140: ,p_kpi_measure_id => l_kpi_measure_id
2142: ,x_return_status => x_return_status
2143: ,x_msg_count => x_msg_count
2144: ,x_msg_data => x_msg_data);
2145:
2146: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2147: RAISE FND_API.G_EXC_ERROR;
2148: END IF;
2149: END IF;
2150: if (p_commit = FND_API.G_TRUE) then
2143: ,x_msg_count => x_msg_count
2144: ,x_msg_data => x_msg_data);
2145:
2146: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2147: RAISE FND_API.G_EXC_ERROR;
2148: END IF;
2149: END IF;
2150: if (p_commit = FND_API.G_TRUE) then
2151: commit;
2146: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2147: RAISE FND_API.G_EXC_ERROR;
2148: END IF;
2149: END IF;
2150: if (p_commit = FND_API.G_TRUE) then
2151: commit;
2152: end if;
2153:
2154: EXCEPTION
2151: commit;
2152: end if;
2153:
2154: EXCEPTION
2155: WHEN FND_API.G_EXC_ERROR THEN
2156: ROLLBACK TO UpdateBSCAnaMeasPVT;
2157: FND_MSG_PUB.Count_And_Get
2158: ( p_encoded => FND_API.G_FALSE
2159: , p_count => x_msg_count
2154: EXCEPTION
2155: WHEN FND_API.G_EXC_ERROR THEN
2156: ROLLBACK TO UpdateBSCAnaMeasPVT;
2157: FND_MSG_PUB.Count_And_Get
2158: ( p_encoded => FND_API.G_FALSE
2159: , p_count => x_msg_count
2160: , p_data => x_msg_data
2161: );
2162: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2158: ( p_encoded => FND_API.G_FALSE
2159: , p_count => x_msg_count
2160: , p_data => x_msg_data
2161: );
2162: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2163: x_return_status := FND_API.G_RET_STS_ERROR;
2164: RAISE;
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166: ROLLBACK TO UpdateBSCAnaMeasPVT;
2159: , p_count => x_msg_count
2160: , p_data => x_msg_data
2161: );
2162: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2163: x_return_status := FND_API.G_RET_STS_ERROR;
2164: RAISE;
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166: ROLLBACK TO UpdateBSCAnaMeasPVT;
2167: FND_MSG_PUB.Count_And_Get
2161: );
2162: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2163: x_return_status := FND_API.G_RET_STS_ERROR;
2164: RAISE;
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166: ROLLBACK TO UpdateBSCAnaMeasPVT;
2167: FND_MSG_PUB.Count_And_Get
2168: ( p_encoded => FND_API.G_FALSE
2169: , p_count => x_msg_count
2164: RAISE;
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166: ROLLBACK TO UpdateBSCAnaMeasPVT;
2167: FND_MSG_PUB.Count_And_Get
2168: ( p_encoded => FND_API.G_FALSE
2169: , p_count => x_msg_count
2170: , p_data => x_msg_data
2171: );
2172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2168: ( p_encoded => FND_API.G_FALSE
2169: , p_count => x_msg_count
2170: , p_data => x_msg_data
2171: );
2172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2174: RAISE;
2175: WHEN NO_DATA_FOUND THEN
2176: ROLLBACK TO UpdateBSCAnaMeasPVT;
2169: , p_count => x_msg_count
2170: , p_data => x_msg_data
2171: );
2172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2174: RAISE;
2175: WHEN NO_DATA_FOUND THEN
2176: ROLLBACK TO UpdateBSCAnaMeasPVT;
2177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2174: RAISE;
2175: WHEN NO_DATA_FOUND THEN
2176: ROLLBACK TO UpdateBSCAnaMeasPVT;
2177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2178: IF (x_msg_data IS NOT NULL) THEN
2179: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Update_Analysis_Measures ';
2180: ELSE
2181: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Update_Analysis_Measures ';
2183: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2184: RAISE;
2185: WHEN OTHERS THEN
2186: ROLLBACK TO UpdateBSCAnaMeasPVT;
2187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2188: IF (x_msg_data IS NOT NULL) THEN
2189: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Update_Analysis_Measures ';
2190: ELSE
2191: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Update_Analysis_Measures ';
2197: --Dont call the private API directly. Color table data depending on the kpi_measure_id
2198: --need to be deleted
2199:
2200: procedure Delete_Analysis_Measures(
2201: p_commit IN varchar2 -- := FND_API.G_FALSE
2202: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
2203: ,x_return_status OUT NOCOPY varchar2
2204: ,x_msg_count OUT NOCOPY number
2205: ,x_msg_data OUT NOCOPY varchar2
2256: l_Delete_Flag BOOLEAN := FALSE;
2257: BEGIN
2258: FND_MSG_PUB.Initialize;
2259: SAVEPOINT DeleteBSCAnaMeasPVT;
2260: x_return_status := FND_API.G_RET_STS_SUCCESS;
2261: -- Check that valid Kpi id was entered.
2262: IF (p_Anal_Opt_Rec.Bsc_Kpi_Id IS NOT NULL) THEN
2263: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B', 'indicator', p_Anal_Opt_Rec.Bsc_Kpi_Id);
2264: IF (l_count = 0) THEN
2264: IF (l_count = 0) THEN
2265: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2266: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
2267: FND_MSG_PUB.ADD;
2268: RAISE FND_API.G_EXC_ERROR;
2269: END IF;
2270: ELSE
2271: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2272: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
2270: ELSE
2271: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2272: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
2273: FND_MSG_PUB.ADD;
2274: RAISE FND_API.G_EXC_ERROR;
2275: END IF;
2276: l_Count := 0;
2277: IF (c_Grand_Parent_depend%ISOPEN) THEN
2278: CLOSE c_Grand_Parent_depend;
2523: AND analysis_option0 = p_Anal_Opt_Rec.Bsc_Option_Group0
2524: AND analysis_option1 = p_Anal_Opt_Rec.Bsc_Option_Group1
2525: AND analysis_option2 = p_Anal_Opt_Rec.Bsc_Option_Group2;
2526: END IF;
2527: IF (p_commit = FND_API.G_TRUE) THEN
2528: COMMIT;
2529: END IF;
2530: --DBMS_OUTPUT.PUT_LINE('coming out Delete_Analysis_Measures ');
2531: EXCEPTION
2528: COMMIT;
2529: END IF;
2530: --DBMS_OUTPUT.PUT_LINE('coming out Delete_Analysis_Measures ');
2531: EXCEPTION
2532: WHEN FND_API.G_EXC_ERROR THEN
2533: IF (c_Grand_Parent_depend%ISOPEN) THEN
2534: CLOSE c_Grand_Parent_depend;
2535: END IF;
2536: IF (c_Parent_depend%ISOPEN) THEN
2537: CLOSE c_Parent_depend;
2538: END IF;
2539: ROLLBACK TO DeleteBSCAnaMeasPVT;
2540: FND_MSG_PUB.Count_And_Get
2541: ( p_encoded => FND_API.G_FALSE
2542: , p_count => x_msg_count
2543: , p_data => x_msg_data
2544: );
2545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2541: ( p_encoded => FND_API.G_FALSE
2542: , p_count => x_msg_count
2543: , p_data => x_msg_data
2544: );
2545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2546: x_return_status := FND_API.G_RET_STS_ERROR;
2547: RAISE;
2548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2549: IF (c_Grand_Parent_depend%ISOPEN) THEN
2542: , p_count => x_msg_count
2543: , p_data => x_msg_data
2544: );
2545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2546: x_return_status := FND_API.G_RET_STS_ERROR;
2547: RAISE;
2548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2549: IF (c_Grand_Parent_depend%ISOPEN) THEN
2550: CLOSE c_Grand_Parent_depend;
2544: );
2545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2546: x_return_status := FND_API.G_RET_STS_ERROR;
2547: RAISE;
2548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2549: IF (c_Grand_Parent_depend%ISOPEN) THEN
2550: CLOSE c_Grand_Parent_depend;
2551: END IF;
2552: IF (c_Parent_depend%ISOPEN) THEN
2553: CLOSE c_Parent_depend;
2554: END IF;
2555: ROLLBACK TO DeleteBSCAnaMeasPVT;
2556: FND_MSG_PUB.Count_And_Get
2557: ( p_encoded => FND_API.G_FALSE
2558: , p_count => x_msg_count
2559: , p_data => x_msg_data
2560: );
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2557: ( p_encoded => FND_API.G_FALSE
2558: , p_count => x_msg_count
2559: , p_data => x_msg_data
2560: );
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2563: RAISE;
2564: WHEN NO_DATA_FOUND THEN
2565: IF (c_Grand_Parent_depend%ISOPEN) THEN
2558: , p_count => x_msg_count
2559: , p_data => x_msg_data
2560: );
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2563: RAISE;
2564: WHEN NO_DATA_FOUND THEN
2565: IF (c_Grand_Parent_depend%ISOPEN) THEN
2566: CLOSE c_Grand_Parent_depend;
2568: IF (c_Parent_depend%ISOPEN) THEN
2569: CLOSE c_Parent_depend;
2570: END IF;
2571: ROLLBACK TO DeleteBSCAnaMeasPVT;
2572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2573: IF (x_msg_data IS NOT NULL) THEN
2574: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Measures ';
2575: ELSE
2576: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Measures ';
2584: IF (c_Parent_depend%ISOPEN) THEN
2585: CLOSE c_Parent_depend;
2586: END IF;
2587: ROLLBACK TO DeleteBSCAnaMeasPVT;
2588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2589: IF (x_msg_data IS NOT NULL) THEN
2590: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Measures ';
2591: ELSE
2592: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Measures ';
2628: AND B.option_id = p_anal_option_id
2629: AND Prototype_Flag <> BSC_KPI_PUB.Delete_Kpi_Flag;
2630: BEGIN
2631: FND_MSG_PUB.Initialize;
2632: x_return_status := FND_API.G_RET_STS_SUCCESS;
2633: -- First check if it is a Shared Kpi. If it is then no deletion.
2634: SELECT DISTINCT(Share_Flag)
2635: INTO l_value
2636: FROM BSC_KPIS_B
2674: -- belong to a KPI that is being shared, but none of the Shared KPI is actually
2675: -- displaying the option therefore it may be deleted.
2676: RETURN 'Y';
2677: EXCEPTION
2678: WHEN FND_API.G_EXC_ERROR THEN
2679: FND_MSG_PUB.Count_And_Get
2680: ( p_encoded => FND_API.G_FALSE
2681: , p_count => x_msg_count
2682: , p_data => x_msg_data
2676: RETURN 'Y';
2677: EXCEPTION
2678: WHEN FND_API.G_EXC_ERROR THEN
2679: FND_MSG_PUB.Count_And_Get
2680: ( p_encoded => FND_API.G_FALSE
2681: , p_count => x_msg_count
2682: , p_data => x_msg_data
2683: );
2684: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2680: ( p_encoded => FND_API.G_FALSE
2681: , p_count => x_msg_count
2682: , p_data => x_msg_data
2683: );
2684: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2685: x_return_status := FND_API.G_RET_STS_ERROR;
2686: RAISE;
2687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2688: FND_MSG_PUB.Count_And_Get
2681: , p_count => x_msg_count
2682: , p_data => x_msg_data
2683: );
2684: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2685: x_return_status := FND_API.G_RET_STS_ERROR;
2686: RAISE;
2687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2688: FND_MSG_PUB.Count_And_Get
2689: ( p_encoded => FND_API.G_FALSE
2683: );
2684: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2685: x_return_status := FND_API.G_RET_STS_ERROR;
2686: RAISE;
2687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2688: FND_MSG_PUB.Count_And_Get
2689: ( p_encoded => FND_API.G_FALSE
2690: , p_count => x_msg_count
2691: , p_data => x_msg_data
2685: x_return_status := FND_API.G_RET_STS_ERROR;
2686: RAISE;
2687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2688: FND_MSG_PUB.Count_And_Get
2689: ( p_encoded => FND_API.G_FALSE
2690: , p_count => x_msg_count
2691: , p_data => x_msg_data
2692: );
2693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2689: ( p_encoded => FND_API.G_FALSE
2690: , p_count => x_msg_count
2691: , p_data => x_msg_data
2692: );
2693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2694: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2695: RAISE;
2696: WHEN NO_DATA_FOUND THEN
2697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2690: , p_count => x_msg_count
2691: , p_data => x_msg_data
2692: );
2693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2694: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2695: RAISE;
2696: WHEN NO_DATA_FOUND THEN
2697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2698: IF (x_msg_data IS NOT NULL) THEN
2693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2694: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2695: RAISE;
2696: WHEN NO_DATA_FOUND THEN
2697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2698: IF (x_msg_data IS NOT NULL) THEN
2699: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Option ';
2700: ELSE
2701: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Option ';
2702: END IF;
2703: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2704: RAISE;
2705: WHEN OTHERS THEN
2706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2707: IF (x_msg_data IS NOT NULL) THEN
2708: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Option ';
2709: ELSE
2710: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Option ';
2888:
2889: ************************************************************************************/
2890:
2891: PROCEDURE Delete_Ana_Opt_Mult_Groups
2892: ( p_commit IN VARCHAR2:=FND_API.G_FALSE
2893: , p_Kpi_id IN BSC_KPIS_B.indicator%TYPE
2894: , p_Anal_Opt_Tbl IN BSC_ANALYSIS_OPTION_PUB.Bsc_Anal_Opt_Tbl_Type
2895: , p_max_group_count IN NUMBER
2896: , p_Anal_Opt_Comb_Tbl IN BSC_ANALYSIS_OPTION_PUB.Anal_Opt_Comb_Num_Tbl_Type
2906: l_Anal_Det_Opt_Tbl BSC_ANALYSIS_OPTION_PUB.Bsc_Anal_Opt_Det_Tbl_Type;
2907: l_anal_opt_name VARCHAR2(3000);
2908: BEGIN
2909: FND_MSG_PUB.Initialize;
2910: x_return_status := FND_API.G_RET_STS_SUCCESS;
2911: SAVEPOINT DeleteBSCAnaOptMultGroups;
2912: l_Anal_Opt_Rec.Bsc_Kpi_Id := p_Kpi_id;
2913:
2914: IF(Validate_If_single_Anal_Opt(p_Anal_Opt_Tbl)) THEN
2913:
2914: IF(Validate_If_single_Anal_Opt(p_Anal_Opt_Tbl)) THEN
2915: FND_MESSAGE.SET_NAME('BSC','BSC_LAST_AO_IN_KPI');
2916: FND_MSG_PUB.ADD;
2917: RAISE FND_API.G_EXC_ERROR;
2918: END IF;
2919:
2920:
2921: --BSC_D_NOT_DELETE_AO_DEPEN
2940:
2941: IF((l_Anal_Det_Opt_Tbl(l_count-1).No_of_child >1)AND(l_Anal_Det_Opt_Tbl(l_count).Bsc_Option_Id=0)) THEN
2942: FND_MESSAGE.SET_NAME('BSC','BSC_D_NOT_DELETE_AO_DEPEN');
2943: FND_MSG_PUB.ADD;
2944: RAISE FND_API.G_EXC_ERROR;
2945: END IF;
2946:
2947: l_Anal_Opt_Rec.Bsc_Analysis_Group_Id := l_count;
2948: l_Anal_Opt_Rec.Bsc_Analysis_Option_Id := l_Anal_Det_Opt_Tbl(l_count).Bsc_Option_Id ;
2949: l_Anal_Opt_Rec.Bsc_Parent_Option_Id := l_Anal_Det_Opt_Tbl(l_count).Bsc_Parent_Option_Id ;
2950: l_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := l_Anal_Det_Opt_Tbl(l_count).Bsc_Grandparent_Option_Id;
2951:
2952: BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options
2953: ( p_commit => FND_API.G_FALSE
2954: , p_Anal_Opt_Rec => l_Anal_Opt_Rec
2955: , x_return_status => x_return_status
2956: , x_msg_count => x_msg_count
2957: , x_msg_data => x_msg_data
2961:
2962: IF((l_Anal_Det_Opt_Tbl(l_count).Bsc_dependency_flag = 1)AND(l_Anal_Det_Opt_Tbl.EXISTS(l_count-2))AND(l_Anal_Det_Opt_Tbl(l_count-2).No_of_child >1)AND(l_Anal_Det_Opt_Tbl(l_count -1).Bsc_Option_Id=0)) THEN
2963: FND_MESSAGE.SET_NAME('BSC','BSC_D_NOT_DELETE_AO_DEPEN');
2964: FND_MSG_PUB.ADD;
2965: RAISE FND_API.G_EXC_ERROR;
2966: END IF;
2967:
2968: l_Anal_Opt_Rec.Bsc_Analysis_Group_Id := l_count -1;
2969: l_Anal_Opt_Rec.Bsc_Analysis_Option_Id := l_Anal_Det_Opt_Tbl(l_count -1).Bsc_Option_Id ;
2970: l_Anal_Opt_Rec.Bsc_Parent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -1).Bsc_Parent_Option_Id ;
2971: l_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -1).Bsc_Grandparent_Option_Id;
2972:
2973: BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options
2974: ( p_commit => FND_API.G_FALSE
2975: , p_Anal_Opt_Rec => l_Anal_Opt_Rec
2976: , x_return_status => x_return_status
2977: , x_msg_count => x_msg_count
2978: , x_msg_data => x_msg_data
2984: l_Anal_Opt_Rec.Bsc_Parent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -2).Bsc_Parent_Option_Id ;
2985: l_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -2).Bsc_Grandparent_Option_Id;
2986:
2987: BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options
2988: ( p_commit => FND_API.G_FALSE
2989: , p_Anal_Opt_Rec => l_Anal_Opt_Rec
2990: , x_return_status => x_return_status
2991: , x_msg_count => x_msg_count
2992: , x_msg_data => x_msg_data
3003: l_Anal_Opt_Rec.Bsc_Parent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -2).Bsc_Parent_Option_Id ;
3004: l_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -2).Bsc_Grandparent_Option_Id;
3005:
3006: BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options
3007: ( p_commit => FND_API.G_FALSE
3008: , p_Anal_Opt_Rec => l_Anal_Opt_Rec
3009: , x_return_status => x_return_status
3010: , x_msg_count => x_msg_count
3011: , x_msg_data => x_msg_data
3013: ELSE
3014: IF((l_Anal_Det_Opt_Tbl(l_count-1).Bsc_dependency_flag = 1)AND(l_Anal_Det_Opt_Tbl.EXISTS(l_count-2))AND(l_Anal_Det_Opt_Tbl(l_count-2).No_of_child >1)AND(l_Anal_Det_Opt_Tbl(l_count -1).Bsc_Option_Id=0)) THEN
3015: FND_MESSAGE.SET_NAME('BSC','BSC_D_NOT_DELETE_AO_DEPEN');
3016: FND_MSG_PUB.ADD;
3017: RAISE FND_API.G_EXC_ERROR;
3018: END IF;
3019:
3020: l_Anal_Opt_Rec.Bsc_Analysis_Group_Id := l_count -1;
3021: l_Anal_Opt_Rec.Bsc_Analysis_Option_Id := l_Anal_Det_Opt_Tbl(l_count -1).Bsc_Option_Id ;
3022: l_Anal_Opt_Rec.Bsc_Parent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -1).Bsc_Parent_Option_Id ;
3023: l_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -1).Bsc_Grandparent_Option_Id;
3024:
3025: BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options
3026: ( p_commit => FND_API.G_FALSE
3027: , p_Anal_Opt_Rec => l_Anal_Opt_Rec
3028: , x_return_status => x_return_status
3029: , x_msg_count => x_msg_count
3030: , x_msg_data => x_msg_data
3038: l_Anal_Opt_Rec.Bsc_Analysis_Option_Id := l_Anal_Det_Opt_Tbl(l_count -2).Bsc_Option_Id ;
3039: l_Anal_Opt_Rec.Bsc_Parent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -2).Bsc_Parent_Option_Id ;
3040: l_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := l_Anal_Det_Opt_Tbl(l_count -2).Bsc_Grandparent_Option_Id;
3041: BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options
3042: ( p_commit => FND_API.G_FALSE
3043: , p_Anal_Opt_Rec => l_Anal_Opt_Rec
3044: , x_return_status => x_return_status
3045: , x_msg_count => x_msg_count
3046: , x_msg_data => x_msg_data
3052: l_Anal_Opt_Rec.Bsc_Analysis_Option_Id := l_Anal_Det_Opt_Tbl(l_count).Bsc_Option_Id ;
3053: l_Anal_Opt_Rec.Bsc_Parent_Option_Id := l_Anal_Det_Opt_Tbl(l_count).Bsc_Parent_Option_Id ;
3054: l_Anal_Opt_Rec.Bsc_Grandparent_Option_Id := l_Anal_Det_Opt_Tbl(l_count).Bsc_Grandparent_Option_Id;
3055: BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options
3056: ( p_commit => FND_API.G_FALSE
3057: , p_Anal_Opt_Rec => l_Anal_Opt_Rec
3058: , x_return_status => x_return_status
3059: , x_msg_count => x_msg_count
3060: , x_msg_data => x_msg_data
3060: , x_msg_data => x_msg_data
3061: );
3062: END IF;
3063: EXCEPTION
3064: WHEN FND_API.G_EXC_ERROR THEN
3065: ROLLBACK TO DeleteBSCAnaOptMultGroups;
3066: FND_MSG_PUB.Count_And_Get
3067: ( p_encoded => FND_API.G_FALSE
3068: , p_count => x_msg_count
3063: EXCEPTION
3064: WHEN FND_API.G_EXC_ERROR THEN
3065: ROLLBACK TO DeleteBSCAnaOptMultGroups;
3066: FND_MSG_PUB.Count_And_Get
3067: ( p_encoded => FND_API.G_FALSE
3068: , p_count => x_msg_count
3069: , p_data => x_msg_data
3070: );
3071: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3067: ( p_encoded => FND_API.G_FALSE
3068: , p_count => x_msg_count
3069: , p_data => x_msg_data
3070: );
3071: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3072: x_return_status := FND_API.G_RET_STS_ERROR;
3073: RAISE;
3074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3075: ROLLBACK TO DeleteBSCAnaOptMultGroups;
3068: , p_count => x_msg_count
3069: , p_data => x_msg_data
3070: );
3071: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3072: x_return_status := FND_API.G_RET_STS_ERROR;
3073: RAISE;
3074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3075: ROLLBACK TO DeleteBSCAnaOptMultGroups;
3076: FND_MSG_PUB.Count_And_Get
3070: );
3071: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3072: x_return_status := FND_API.G_RET_STS_ERROR;
3073: RAISE;
3074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3075: ROLLBACK TO DeleteBSCAnaOptMultGroups;
3076: FND_MSG_PUB.Count_And_Get
3077: ( p_encoded => FND_API.G_FALSE
3078: , p_count => x_msg_count
3073: RAISE;
3074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3075: ROLLBACK TO DeleteBSCAnaOptMultGroups;
3076: FND_MSG_PUB.Count_And_Get
3077: ( p_encoded => FND_API.G_FALSE
3078: , p_count => x_msg_count
3079: , p_data => x_msg_data
3080: );
3081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3077: ( p_encoded => FND_API.G_FALSE
3078: , p_count => x_msg_count
3079: , p_data => x_msg_data
3080: );
3081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3082: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3083: RAISE;
3084: WHEN NO_DATA_FOUND THEN
3085: ROLLBACK TO DeleteBSCAnaOptMultGroups;
3078: , p_count => x_msg_count
3079: , p_data => x_msg_data
3080: );
3081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3082: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3083: RAISE;
3084: WHEN NO_DATA_FOUND THEN
3085: ROLLBACK TO DeleteBSCAnaOptMultGroups;
3086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3082: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3083: RAISE;
3084: WHEN NO_DATA_FOUND THEN
3085: ROLLBACK TO DeleteBSCAnaOptMultGroups;
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_ANALYSIS_OPTION_PVT.Delete_Ana_Opt_Mult_Groups ';
3089: ELSE
3090: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Delete_Ana_Opt_Mult_Groups ';
3092: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3093: RAISE;
3094: WHEN OTHERS THEN
3095: ROLLBACK TO DeleteBSCAnaOptMultGroups;
3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3097: IF (x_msg_data IS NOT NULL) THEN
3098: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Delete_Ana_Opt_Mult_Groups ';
3099: ELSE
3100: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Delete_Ana_Opt_Mult_Groups ';
3104: END Delete_Ana_Opt_Mult_Groups;
3105: /*****************************************************************************************/
3106:
3107: PROCEDURE Synch_Kpi_Anal_Group
3108: ( p_commit IN VARCHAR2:=FND_API.G_FALSE
3109: , p_Kpi_Id IN BSC_KPIS_B.indicator%TYPE
3110: , p_Anal_Opt_Tbl IN BSC_ANALYSIS_OPTION_PUB.Bsc_Anal_Opt_Tbl_Type
3111: , x_return_status OUT NOCOPY VARCHAR2
3112: , x_msg_count OUT NOCOPY NUMBER
3120: l_group_count NUMBER;
3121: l_Num_Opt_Id NUMBER;
3122: BEGIN
3123: FND_MSG_PUB.Initialize;
3124: x_return_status := FND_API.G_RET_STS_SUCCESS;
3125: SAVEPOINT BSCSynchKpiAnalGroup;
3126:
3127: l_Anal_Opt_Tbl := p_Anal_Opt_Tbl;
3128: FOR table_index in 0..l_Anal_Grp_Opt_Tbl.COUNT-1 LOOP
3162: END IF;
3163: l_group_count := l_group_count + 1;
3164: END LOOP;
3165: EXCEPTION
3166: WHEN FND_API.G_EXC_ERROR THEN
3167: ROLLBACK TO BSCSynchKpiAnalGroup;
3168: FND_MSG_PUB.Count_And_Get
3169: ( p_encoded => FND_API.G_FALSE
3170: , p_count => x_msg_count
3165: EXCEPTION
3166: WHEN FND_API.G_EXC_ERROR THEN
3167: ROLLBACK TO BSCSynchKpiAnalGroup;
3168: FND_MSG_PUB.Count_And_Get
3169: ( p_encoded => FND_API.G_FALSE
3170: , p_count => x_msg_count
3171: , p_data => x_msg_data
3172: );
3173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3169: ( p_encoded => FND_API.G_FALSE
3170: , p_count => x_msg_count
3171: , p_data => x_msg_data
3172: );
3173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3174: x_return_status := FND_API.G_RET_STS_ERROR;
3175: RAISE;
3176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3177: ROLLBACK TO BSCSynchKpiAnalGroup;
3170: , p_count => x_msg_count
3171: , p_data => x_msg_data
3172: );
3173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3174: x_return_status := FND_API.G_RET_STS_ERROR;
3175: RAISE;
3176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3177: ROLLBACK TO BSCSynchKpiAnalGroup;
3178: FND_MSG_PUB.Count_And_Get
3172: );
3173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3174: x_return_status := FND_API.G_RET_STS_ERROR;
3175: RAISE;
3176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3177: ROLLBACK TO BSCSynchKpiAnalGroup;
3178: FND_MSG_PUB.Count_And_Get
3179: ( p_encoded => FND_API.G_FALSE
3180: , p_count => x_msg_count
3175: RAISE;
3176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3177: ROLLBACK TO BSCSynchKpiAnalGroup;
3178: FND_MSG_PUB.Count_And_Get
3179: ( p_encoded => FND_API.G_FALSE
3180: , p_count => x_msg_count
3181: , p_data => x_msg_data
3182: );
3183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3179: ( p_encoded => FND_API.G_FALSE
3180: , p_count => x_msg_count
3181: , p_data => x_msg_data
3182: );
3183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3184: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3185: RAISE;
3186: WHEN NO_DATA_FOUND THEN
3187: ROLLBACK TO BSCSynchKpiAnalGroup;
3180: , p_count => x_msg_count
3181: , p_data => x_msg_data
3182: );
3183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3184: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3185: RAISE;
3186: WHEN NO_DATA_FOUND THEN
3187: ROLLBACK TO BSCSynchKpiAnalGroup;
3188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3184: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3185: RAISE;
3186: WHEN NO_DATA_FOUND THEN
3187: ROLLBACK TO BSCSynchKpiAnalGroup;
3188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3189: IF (x_msg_data IS NOT NULL) THEN
3190: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Synch_Kpi_Anal_Group ';
3191: ELSE
3192: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Synch_Kpi_Anal_Group ';
3194: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3195: RAISE;
3196: WHEN OTHERS THEN
3197: ROLLBACK TO BSCSynchKpiAnalGroup;
3198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3199: IF (x_msg_data IS NOT NULL) THEN
3200: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Synch_Kpi_Anal_Group ';
3201: ELSE
3202: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Synch_Kpi_Anal_Group ';
3232:
3233: BEGIN
3234: SAVEPOINT AORefreshShortNamesPVT;
3235: FND_MSG_PUB.Initialize;
3236: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
3237:
3238:
3239: FOR cUSN IN c_Update_Short_Names LOOP
3240: UPDATE BSC_KPI_ANALYSIS_OPTIONS_B
3245: AND SHORT_NAME IS NOT NULL;
3246: END LOOP;
3247:
3248: EXCEPTION
3249: WHEN FND_API.G_EXC_ERROR THEN
3250: ROLLBACK TO AORefreshShortNamesPVT;
3251: IF (x_msg_data IS NULL) THEN
3252: FND_MSG_PUB.Count_And_Get
3253: ( p_encoded => FND_API.G_FALSE
3249: WHEN FND_API.G_EXC_ERROR THEN
3250: ROLLBACK TO AORefreshShortNamesPVT;
3251: IF (x_msg_data IS NULL) THEN
3252: FND_MSG_PUB.Count_And_Get
3253: ( p_encoded => FND_API.G_FALSE
3254: , p_count => x_msg_count
3255: , p_data => x_msg_data
3256: );
3257: END IF;
3254: , p_count => x_msg_count
3255: , p_data => x_msg_data
3256: );
3257: END IF;
3258: x_Return_Status := FND_API.G_RET_STS_ERROR;
3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3260: ROLLBACK TO AORefreshShortNamesPVT;
3261: IF (x_msg_data IS NULL) THEN
3262: FND_MSG_PUB.Count_And_Get
3255: , p_data => x_msg_data
3256: );
3257: END IF;
3258: x_Return_Status := FND_API.G_RET_STS_ERROR;
3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3260: ROLLBACK TO AORefreshShortNamesPVT;
3261: IF (x_msg_data IS NULL) THEN
3262: FND_MSG_PUB.Count_And_Get
3263: ( p_encoded => FND_API.G_FALSE
3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3260: ROLLBACK TO AORefreshShortNamesPVT;
3261: IF (x_msg_data IS NULL) THEN
3262: FND_MSG_PUB.Count_And_Get
3263: ( p_encoded => FND_API.G_FALSE
3264: , p_count => x_msg_count
3265: , p_data => x_msg_data
3266: );
3267: END IF;
3264: , p_count => x_msg_count
3265: , p_data => x_msg_data
3266: );
3267: END IF;
3268: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3269: WHEN NO_DATA_FOUND THEN
3270: ROLLBACK TO AORefreshShortNamesPVT;
3271: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3272: IF (x_msg_data IS NOT NULL) THEN
3267: END IF;
3268: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3269: WHEN NO_DATA_FOUND THEN
3270: ROLLBACK TO AORefreshShortNamesPVT;
3271: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3272: IF (x_msg_data IS NOT NULL) THEN
3273: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Refresh_Short_Names ';
3274: ELSE
3275: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Refresh_Short_Names ';
3275: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Refresh_Short_Names ';
3276: END IF;
3277: WHEN OTHERS THEN
3278: ROLLBACK TO AORefreshShortNamesPVT;
3279: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3280: IF (x_msg_data IS NOT NULL) THEN
3281: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Refresh_Short_Names ';
3282: ELSE
3283: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Refresh_Short_Names ';
3362: WHERE indicator = p_kpi_id;
3363:
3364: BEGIN
3365: FND_MSG_PUB.Initialize;
3366: x_return_status := FND_API.G_RET_STS_SUCCESS;
3367: l_Allow_Delete := TRUE;
3368:
3369: IF (c_Measure_ak%ISOPEN) THEN
3370: CLOSE c_Measure_ak;
3393: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_NOT_PRIM_SOURCE');
3394: FND_MESSAGE.SET_TOKEN('AK_KPI', l_AnaOpt_AKRegion);
3395: FND_MESSAGE.SET_TOKEN('AK_MES', l_Measure_AKRegion);
3396: FND_MSG_PUB.ADD;
3397: RAISE FND_API.G_EXC_ERROR;
3398: END IF;
3399:
3400: l_parent_obj_table := BIS_RSG_PUB_API_PKG.GetParentObjects(l_Measure_Function
3401: ,'REPORT','PORTLET',l_ret_status,l_msg_data);
3398: END IF;
3399:
3400: l_parent_obj_table := BIS_RSG_PUB_API_PKG.GetParentObjects(l_Measure_Function
3401: ,'REPORT','PORTLET',l_ret_status,l_msg_data);
3402: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3403: FND_MSG_PUB.Initialize;
3404: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
3405: FND_MSG_PUB.ADD;
3406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3402: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3403: FND_MSG_PUB.Initialize;
3404: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
3405: FND_MSG_PUB.ADD;
3406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3407: END IF;
3408:
3409: l_mess_count := 1;
3410: l_message := '
3455: FND_MESSAGE.SET_TOKEN('OBJ_NAME', l_objective_name);
3456: FND_MESSAGE.SET_TOKEN('KPI_NAME', l_AnaOpt_Name);
3457: FND_MESSAGE.SET_TOKEN('DEP_OBJ_LIST', l_message);
3458: FND_MSG_PUB.ADD;
3459: RAISE FND_API.G_EXC_ERROR;
3460: END IF;
3461:
3462: FND_MESSAGE.SET_NAME('BSC','BSC_MEASURE_DELETE');
3463: FND_MESSAGE.SET_TOKEN('MEASURE', l_AnaOpt_Name);
3465: FND_MESSAGE.SET_TOKEN('FORM_FUNCTION', l_Measure_Function);
3466: FND_MSG_PUB.ADD;
3467:
3468: FND_MSG_PUB.Count_And_Get
3469: ( p_encoded => FND_API.G_FALSE
3470: , p_count => x_msg_count
3471: , p_data => x_msg_data
3472: );
3473:
3471: , p_data => x_msg_data
3472: );
3473:
3474: EXCEPTION
3475: WHEN FND_API.G_EXC_ERROR THEN
3476: IF (c_AnaOpt_ak%ISOPEN) THEN
3477: CLOSE c_AnaOpt_ak;
3478: END IF;
3479: IF (c_KpiName%ISOPEN) THEN
3479: IF (c_KpiName%ISOPEN) THEN
3480: CLOSE c_KpiMeasure;
3481: END IF;
3482: FND_MSG_PUB.Count_And_Get
3483: ( p_encoded => FND_API.G_FALSE
3484: , p_count => x_msg_count
3485: , p_data => x_msg_data
3486: );
3487: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3483: ( p_encoded => FND_API.G_FALSE
3484: , p_count => x_msg_count
3485: , p_data => x_msg_data
3486: );
3487: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3488: x_return_status := FND_API.G_RET_STS_ERROR;
3489: RAISE;
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: IF (c_AnaOpt_ak%ISOPEN) THEN
3484: , p_count => x_msg_count
3485: , p_data => x_msg_data
3486: );
3487: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3488: x_return_status := FND_API.G_RET_STS_ERROR;
3489: RAISE;
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: IF (c_AnaOpt_ak%ISOPEN) THEN
3492: CLOSE c_AnaOpt_ak;
3486: );
3487: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3488: x_return_status := FND_API.G_RET_STS_ERROR;
3489: RAISE;
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: IF (c_AnaOpt_ak%ISOPEN) THEN
3492: CLOSE c_AnaOpt_ak;
3493: END IF;
3494: IF (c_KpiName%ISOPEN) THEN
3494: IF (c_KpiName%ISOPEN) THEN
3495: CLOSE c_KpiMeasure;
3496: END IF;
3497: FND_MSG_PUB.Count_And_Get
3498: ( p_encoded => FND_API.G_FALSE
3499: , p_count => x_msg_count
3500: , p_data => x_msg_data
3501: );
3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3498: ( p_encoded => FND_API.G_FALSE
3499: , p_count => x_msg_count
3500: , p_data => x_msg_data
3501: );
3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3503: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3504: RAISE;
3505: WHEN NO_DATA_FOUND THEN
3506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3499: , p_count => x_msg_count
3500: , p_data => x_msg_data
3501: );
3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3503: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3504: RAISE;
3505: WHEN NO_DATA_FOUND THEN
3506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3507: IF (c_AnaOpt_ak%ISOPEN) THEN
3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3503: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3504: RAISE;
3505: WHEN NO_DATA_FOUND THEN
3506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3507: IF (c_AnaOpt_ak%ISOPEN) THEN
3508: CLOSE c_AnaOpt_ak;
3509: END IF;
3510: IF (c_KpiName%ISOPEN) THEN
3517: END IF;
3518: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3519: RAISE;
3520: WHEN OTHERS THEN
3521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3522: IF (c_AnaOpt_ak%ISOPEN) THEN
3523: CLOSE c_AnaOpt_ak;
3524: END IF;
3525: IF (c_KpiName%ISOPEN) THEN
3541: , x_msg_data OUT NOCOPY VARCHAR2
3542: ) IS
3543: l_Bsc_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
3544: BEGIN
3545: x_return_status := FND_API.G_RET_STS_SUCCESS;
3546: FND_MSG_PUB.Initialize;
3547: --DBMS_OUTPUT.PUT_LINE('in private delte');
3548:
3549: DELETE FROM BSC_KPI_ANALYSIS_MEASURES_B
3563: --DBMS_OUTPUT.PUT_LINE('after deleting base table');
3564:
3565:
3566: EXCEPTION
3567: WHEN FND_API.G_EXC_ERROR THEN
3568: IF (x_msg_data IS NULL) THEN
3569: FND_MSG_PUB.Count_And_Get
3570: ( p_encoded => FND_API.G_FALSE
3571: , p_count => x_msg_count
3566: EXCEPTION
3567: WHEN FND_API.G_EXC_ERROR THEN
3568: IF (x_msg_data IS NULL) THEN
3569: FND_MSG_PUB.Count_And_Get
3570: ( p_encoded => FND_API.G_FALSE
3571: , p_count => x_msg_count
3572: , p_data => x_msg_data
3573: );
3574: END IF;
3571: , p_count => x_msg_count
3572: , p_data => x_msg_data
3573: );
3574: END IF;
3575: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3576: x_return_status := FND_API.G_RET_STS_ERROR;
3577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3578: IF (x_msg_data IS NULL) THEN
3579: FND_MSG_PUB.Count_And_Get
3572: , p_data => x_msg_data
3573: );
3574: END IF;
3575: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3576: x_return_status := FND_API.G_RET_STS_ERROR;
3577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3578: IF (x_msg_data IS NULL) THEN
3579: FND_MSG_PUB.Count_And_Get
3580: ( p_encoded => FND_API.G_FALSE
3573: );
3574: END IF;
3575: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3576: x_return_status := FND_API.G_RET_STS_ERROR;
3577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3578: IF (x_msg_data IS NULL) THEN
3579: FND_MSG_PUB.Count_And_Get
3580: ( p_encoded => FND_API.G_FALSE
3581: , p_count => x_msg_count
3576: x_return_status := FND_API.G_RET_STS_ERROR;
3577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3578: IF (x_msg_data IS NULL) THEN
3579: FND_MSG_PUB.Count_And_Get
3580: ( p_encoded => FND_API.G_FALSE
3581: , p_count => x_msg_count
3582: , p_data => x_msg_data
3583: );
3584: END IF;
3581: , p_count => x_msg_count
3582: , p_data => x_msg_data
3583: );
3584: END IF;
3585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3586: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3587: WHEN NO_DATA_FOUND THEN
3588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3589: IF (x_msg_data IS NOT NULL) THEN
3582: , p_data => x_msg_data
3583: );
3584: END IF;
3585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3586: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3587: WHEN NO_DATA_FOUND THEN
3588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3589: IF (x_msg_data IS NOT NULL) THEN
3590: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
3584: END IF;
3585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3586: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3587: WHEN NO_DATA_FOUND THEN
3588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3589: IF (x_msg_data IS NOT NULL) THEN
3590: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
3591: ELSE
3592: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
3592: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
3593: END IF;
3594: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3595: WHEN OTHERS THEN
3596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3597: IF (x_msg_data IS NOT NULL) THEN
3598: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
3599: ELSE
3600: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
3605: /************************************************************************************
3606: ************************************************************************************/
3607:
3608: procedure Delete_Data_Series(
3609: p_commit IN varchar2 -- := FND_API.G_FALSE
3610: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
3611: ,x_return_status OUT NOCOPY varchar2
3612: ,x_msg_count OUT NOCOPY number
3613: ,x_msg_data OUT NOCOPY varchar2
3630:
3631: BEGIN
3632: FND_MSG_PUB.Initialize;
3633: SAVEPOINT DeleteBSCDataSeriesPVT;
3634: x_return_status := FND_API.G_RET_STS_SUCCESS;
3635:
3636: -- Delete the Data Series
3637: DELETE FROM BSC_KPI_ANALYSIS_MEASURES_B
3638: WHERE indicator = p_Anal_Opt_Rec.Bsc_Kpi_Id
3659: FOR CD IN c_Dataseries LOOP
3660: l_Anal_Opt_Rec.Bsc_Dataset_Series_Id := CD.SERIES_ID;
3661: l_Anal_Opt_Rec.Bsc_Dataset_New_Series_Id := l_new_series_id;
3662: Swap_Data_Series_Id(
3663: p_commit => FND_API.G_FALSE
3664: ,p_Anal_Opt_Rec => l_Anal_Opt_Rec
3665: ,x_return_status => x_return_status
3666: ,x_msg_count => x_msg_count
3667: ,x_msg_data => x_msg_data
3694: WHEN OTHERS THEN
3695: NULL;
3696: END;
3697:
3698: IF p_commit = FND_API.G_TRUE THEN
3699: commit;
3700: END IF;
3701:
3702: EXCEPTION
3699: commit;
3700: END IF;
3701:
3702: EXCEPTION
3703: WHEN FND_API.G_EXC_ERROR THEN
3704: IF (c_Dataseries%ISOPEN) THEN
3705: CLOSE c_Dataseries;
3706: END IF;
3707: ROLLBACK TO DeleteBSCDataSeriesPVT;
3705: CLOSE c_Dataseries;
3706: END IF;
3707: ROLLBACK TO DeleteBSCDataSeriesPVT;
3708: FND_MSG_PUB.Count_And_Get
3709: ( p_encoded => FND_API.G_FALSE
3710: , p_count => x_msg_count
3711: , p_data => x_msg_data
3712: );
3713: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3709: ( p_encoded => FND_API.G_FALSE
3710: , p_count => x_msg_count
3711: , p_data => x_msg_data
3712: );
3713: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3714: x_return_status := FND_API.G_RET_STS_ERROR;
3715: RAISE;
3716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3717: IF (c_Dataseries%ISOPEN) THEN
3710: , p_count => x_msg_count
3711: , p_data => x_msg_data
3712: );
3713: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3714: x_return_status := FND_API.G_RET_STS_ERROR;
3715: RAISE;
3716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3717: IF (c_Dataseries%ISOPEN) THEN
3718: CLOSE c_Dataseries;
3712: );
3713: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3714: x_return_status := FND_API.G_RET_STS_ERROR;
3715: RAISE;
3716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3717: IF (c_Dataseries%ISOPEN) THEN
3718: CLOSE c_Dataseries;
3719: END IF;
3720: ROLLBACK TO DeleteBSCDataSeriesPVT;
3718: CLOSE c_Dataseries;
3719: END IF;
3720: ROLLBACK TO DeleteBSCDataSeriesPVT;
3721: FND_MSG_PUB.Count_And_Get
3722: ( p_encoded => FND_API.G_FALSE
3723: , p_count => x_msg_count
3724: , p_data => x_msg_data
3725: );
3726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3722: ( p_encoded => FND_API.G_FALSE
3723: , p_count => x_msg_count
3724: , p_data => x_msg_data
3725: );
3726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3727: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3728: RAISE;
3729: WHEN OTHERS THEN
3730: IF (c_Dataseries%ISOPEN) THEN
3723: , p_count => x_msg_count
3724: , p_data => x_msg_data
3725: );
3726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3727: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3728: RAISE;
3729: WHEN OTHERS THEN
3730: IF (c_Dataseries%ISOPEN) THEN
3731: CLOSE c_Dataseries;
3730: IF (c_Dataseries%ISOPEN) THEN
3731: CLOSE c_Dataseries;
3732: END IF;
3733: ROLLBACK TO DeleteBSCDataSeriesPVT;
3734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3735: IF (x_msg_data IS NOT NULL) THEN
3736: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Delete_Data_Series ';
3737: ELSE
3738: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Delete_Data_Series ';
3754: p_Anal_Opt_Rec.Bsc_Dataset_Series_Id;
3755: p_Anal_Opt_Rec.Bsc_Dataset_New_Series_Id;
3756: ----------------------------------------------------------------------------*/
3757: procedure Swap_Data_Series_Id(
3758: p_commit IN varchar2 -- := FND_API.G_FALSE
3759: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
3760: ,x_return_status OUT NOCOPY varchar2
3761: ,x_msg_count OUT NOCOPY number
3762: ,x_msg_data OUT NOCOPY varchar2
3779: BEGIN
3780: FND_MSG_PUB.Initialize;
3781: SAVEPOINT SwapDataSeriesPVT;
3782:
3783: x_return_status := FND_API.G_RET_STS_SUCCESS;
3784:
3785: IF p_Anal_Opt_Rec.Bsc_Dataset_New_Series_Id is not null
3786: and p_Anal_Opt_Rec.Bsc_Dataset_Series_Id is not null
3787: and p_Anal_Opt_Rec.Bsc_Dataset_New_Series_Id <>
3834: END IF;
3835:
3836: END IF;
3837:
3838: IF p_commit = FND_API.G_TRUE THEN
3839: commit;
3840: END IF;
3841:
3842: EXCEPTION
3839: commit;
3840: END IF;
3841:
3842: EXCEPTION
3843: WHEN FND_API.G_EXC_ERROR THEN
3844: IF (c_Data_Series%ISOPEN) THEN
3845: CLOSE c_Data_Series;
3846: END IF;
3847: ROLLBACK TO SwapDataSeriesPVT;
3845: CLOSE c_Data_Series;
3846: END IF;
3847: ROLLBACK TO SwapDataSeriesPVT;
3848: FND_MSG_PUB.Count_And_Get
3849: ( p_encoded => FND_API.G_FALSE
3850: , p_count => x_msg_count
3851: , p_data => x_msg_data
3852: );
3853: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3849: ( p_encoded => FND_API.G_FALSE
3850: , p_count => x_msg_count
3851: , p_data => x_msg_data
3852: );
3853: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3854: x_return_status := FND_API.G_RET_STS_ERROR;
3855: RAISE;
3856: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3857: IF (c_Data_Series%ISOPEN) THEN
3850: , p_count => x_msg_count
3851: , p_data => x_msg_data
3852: );
3853: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3854: x_return_status := FND_API.G_RET_STS_ERROR;
3855: RAISE;
3856: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3857: IF (c_Data_Series%ISOPEN) THEN
3858: CLOSE c_Data_Series;
3852: );
3853: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3854: x_return_status := FND_API.G_RET_STS_ERROR;
3855: RAISE;
3856: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3857: IF (c_Data_Series%ISOPEN) THEN
3858: CLOSE c_Data_Series;
3859: END IF;
3860: ROLLBACK TO SwapDataSeriesPVT;
3858: CLOSE c_Data_Series;
3859: END IF;
3860: ROLLBACK TO SwapDataSeriesPVT;
3861: FND_MSG_PUB.Count_And_Get
3862: ( p_encoded => FND_API.G_FALSE
3863: , p_count => x_msg_count
3864: , p_data => x_msg_data
3865: );
3866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3862: ( p_encoded => FND_API.G_FALSE
3863: , p_count => x_msg_count
3864: , p_data => x_msg_data
3865: );
3866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3867: IF (x_msg_data IS NOT NULL) THEN
3868: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Swap_Data_Series_Id ';
3869: ELSE
3870: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Swap_Data_Series_Id ';
3874: IF (c_Data_Series%ISOPEN) THEN
3875: CLOSE c_Data_Series;
3876: END IF;
3877: ROLLBACK TO SwapDataSeriesPVT;
3878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3879: IF (x_msg_data IS NOT NULL) THEN
3880: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Swap_Data_Series_Id ';
3881: ELSE
3882: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Swap_Data_Series_Id ';
3954: BEGIN
3955: FND_MSG_PUB.Initialize;
3956: SAVEPOINT CascadedSeriesPVT;
3957:
3958: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
3959:
3960: l_Count := 0;
3961:
3962: x_Default_Value := p_Default_Value;
4066:
4067: EXCEPTION
4068: WHEN NO_DATA_FOUND THEN
4069: ROLLBACK TO CascadedSeriesPVT;
4070: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
4071: IF (x_msg_data IS NOT NULL) THEN
4072: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Cascade_Series_Default_Value ';
4073: ELSE
4074: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Cascade_Series_Default_Value ';
4075: END IF;
4076: RAISE;
4077: WHEN OTHERS THEN
4078: ROLLBACK TO CascadedSeriesPVT;
4079: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
4080: IF (x_msg_data IS NOT NULL) THEN
4081: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Cascade_Series_Default_Value ';
4082: ELSE
4083: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Cascade_Series_Default_Value ';
4152: BEGIN
4153: FND_MSG_PUB.Initialize;
4154: SAVEPOINT CascadedDataSrcPVT;
4155:
4156: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
4157:
4158:
4159: IF (p_Measure_Short_Name IS NULL) THEN
4160: RETURN;
4159: IF (p_Measure_Short_Name IS NULL) THEN
4160: RETURN;
4161: END IF;
4162:
4163: IF (p_Empty_Source = FND_API.G_TRUE) THEN
4164: l_Actual_Data_Source_Type := NULL;
4165: l_Actual_Data_Source := NULL;
4166: l_Function_Name := NULL;
4167: l_Enable_Link := 'N';
4185:
4186: EXCEPTION
4187: WHEN NO_DATA_FOUND THEN
4188: ROLLBACK TO CascadedDataSrcPVT;
4189: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
4190: IF (x_msg_data IS NOT NULL) THEN
4191: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Cascade_Data_Src_Values ';
4192: ELSE
4193: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Cascade_Data_Src_Values ';
4194: END IF;
4195: RAISE;
4196: WHEN OTHERS THEN
4197: ROLLBACK TO CascadedDataSrcPVT;
4198: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
4199: IF (x_msg_data IS NOT NULL) THEN
4200: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Cascade_Data_Src_Values ';
4201: ELSE
4202: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Cascade_Data_Src_Values ';
4227: l_default_value BSC_KPI_ANALYSIS_GROUPS.default_value%TYPE;
4228: l_Anal_Opt_Comb_Tbl BSC_ANALYSIS_OPTION_PUB.Anal_Opt_Comb_Num_Tbl_Type;
4229: BEGIN
4230: SAVEPOINT SetDftAnalOption;
4231: x_return_status := FND_API.G_RET_STS_SUCCESS;
4232: FND_MSG_PUB.Initialize;
4233:
4234: IF( p_Anal_Opt_Comb_Tbl IS NOT NULL) THEN
4235: l_Anal_Opt_Comb_Tbl := p_Anal_Opt_Comb_Tbl;
4267: AND analysis_option2 = l_Anal_Opt_Comb_Tbl(2)
4268: AND series_id = l_Anal_Opt_Comb_Tbl(3);
4269: END IF;
4270:
4271: IF(p_commit=FND_API.G_TRUE)THEN
4272: COMMIT;
4273: END IF;
4274:
4275: EXCEPTION
4272: COMMIT;
4273: END IF;
4274:
4275: EXCEPTION
4276: WHEN FND_API.G_EXC_ERROR THEN
4277: ROLLBACK TO SetDftAnalOption;
4278: FND_MSG_PUB.Count_And_Get
4279: ( p_encoded => FND_API.G_FALSE
4280: , p_count => x_msg_count
4275: EXCEPTION
4276: WHEN FND_API.G_EXC_ERROR THEN
4277: ROLLBACK TO SetDftAnalOption;
4278: FND_MSG_PUB.Count_And_Get
4279: ( p_encoded => FND_API.G_FALSE
4280: , p_count => x_msg_count
4281: , p_data => x_msg_data
4282: );
4283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4279: ( p_encoded => FND_API.G_FALSE
4280: , p_count => x_msg_count
4281: , p_data => x_msg_data
4282: );
4283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4284: x_return_status := FND_API.G_RET_STS_ERROR;
4285: RAISE;
4286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4287: ROLLBACK TO SetDftAnalOption;
4280: , p_count => x_msg_count
4281: , p_data => x_msg_data
4282: );
4283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4284: x_return_status := FND_API.G_RET_STS_ERROR;
4285: RAISE;
4286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4287: ROLLBACK TO SetDftAnalOption;
4288: FND_MSG_PUB.Count_And_Get
4282: );
4283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4284: x_return_status := FND_API.G_RET_STS_ERROR;
4285: RAISE;
4286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4287: ROLLBACK TO SetDftAnalOption;
4288: FND_MSG_PUB.Count_And_Get
4289: ( p_encoded => FND_API.G_FALSE
4290: , p_count => x_msg_count
4285: RAISE;
4286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4287: ROLLBACK TO SetDftAnalOption;
4288: FND_MSG_PUB.Count_And_Get
4289: ( p_encoded => FND_API.G_FALSE
4290: , p_count => x_msg_count
4291: , p_data => x_msg_data
4292: );
4293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4289: ( p_encoded => FND_API.G_FALSE
4290: , p_count => x_msg_count
4291: , p_data => x_msg_data
4292: );
4293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4294: RAISE;
4295: WHEN OTHERS THEN
4296: ROLLBACK TO SetDftAnalOption;
4297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4294: RAISE;
4295: WHEN OTHERS THEN
4296: ROLLBACK TO SetDftAnalOption;
4297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4298: IF (x_msg_data IS NOT NULL) THEN
4299: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Set_Default_Analysis_Option ';
4300: ELSE
4301: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Set_Default_Analysis_Option ';