[Home] [Help]
65: l_count NUMBER;
66: l_No_Ind NUMBER;
67:
68: begin
69: FND_MSG_PUB.Initialize;
70: x_return_status := FND_API.G_RET_STS_SUCCESS;
71: SAVEPOINT BscKpiPvt_CrtKPI;
72: --DBMS_OUTPUT.PUT_LINE(' -- Begin Create_Kpi ');
73:
85:
86: IF l_count <> 0 THEN
87: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_ID_EXISTS');
88: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
89: FND_MSG_PUB.ADD;
90: RAISE FND_API.G_EXC_ERROR;
91: END IF;
92: ELSE
93: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
91: END IF;
92: ELSE
93: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
94: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
95: FND_MSG_PUB.ADD;
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
98:
99:
112: IF l_Count <> 0 THEN
113: FND_MESSAGE.SET_NAME('BSC','BSC_UNIQUE_NAME_REQUIRED');
114: FND_MESSAGE.SET_TOKEN('SHORT_NAME', BSC_APPS.GET_LOOKUP_VALUE('BSC_UI_BUILDER', 'MEASURE_SHORT_NAME'));
115: FND_MESSAGE.SET_TOKEN('NAME_VALUE', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Short_Name );
116: FND_MSG_PUB.ADD;
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119: END IF;
120:
230:
231: EXCEPTION
232: WHEN FND_API.G_EXC_ERROR THEN
233: ROLLBACK TO BscKpiPvt_CrtKPI;
234: FND_MSG_PUB.Count_And_Get
235: ( p_encoded => FND_API.G_FALSE
236: , p_count => x_msg_count
237: , p_data => x_msg_data
238: );
241:
242: RAISE;
243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
244: ROLLBACK TO BscKpiPvt_CrtKPI;
245: FND_MSG_PUB.Count_And_Get
246: ( p_encoded => FND_API.G_FALSE
247: , p_count => x_msg_count
248: , p_data => x_msg_data
249: );
265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
266: if (SQLCODE = -01400) then
267: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
268: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
269: FND_MSG_PUB.ADD;
270: RAISE FND_API.G_EXC_ERROR;
271: end if;
272: IF (x_msg_data IS NOT NULL) THEN
273: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi ';
295:
296: l_count number;
297:
298: begin
299: FND_MSG_PUB.Initialize;
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301: l_db_object := 'Retrieve_Kpi';
302:
303: SELECT DISTINCT A.CSF_ID
368: END IF;
369:
370: EXCEPTION
371: WHEN FND_API.G_EXC_ERROR THEN
372: FND_MSG_PUB.Count_And_Get
373: ( p_encoded => FND_API.G_FALSE
374: , p_count => x_msg_count
375: , p_data => x_msg_data
376: );
377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: RAISE;
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: FND_MSG_PUB.Count_And_Get
382: ( p_encoded => FND_API.G_FALSE
383: , p_count => x_msg_count
384: , p_data => x_msg_data
385: );
387: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
388: RAISE;
389: WHEN NO_DATA_FOUND THEN
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391: FND_MSG_PUB.Initialize;
392: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
393: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
394: FND_MSG_PUB.ADD;
395: RAISE FND_API.G_EXC_ERROR;
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391: FND_MSG_PUB.Initialize;
392: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
393: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
394: FND_MSG_PUB.ADD;
395: RAISE FND_API.G_EXC_ERROR;
396: WHEN OTHERS THEN
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: IF (x_msg_data IS NOT NULL) THEN
418:
419: l_count number;
420:
421: begin
422: FND_MSG_PUB.Initialize;
423: x_return_status := FND_API.G_RET_STS_SUCCESS;
424: SAVEPOINT BscKpiPvt_UptKPI;
425: -- Check that valid id was entered.
426: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
429: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
430: if l_count = 0 then
431: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
432: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
433: FND_MSG_PUB.ADD;
434: RAISE FND_API.G_EXC_ERROR;
435: end if;
436: else
437: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
435: end if;
436: else
437: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
438: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
439: FND_MSG_PUB.ADD;
440: RAISE FND_API.G_EXC_ERROR;
441: end if;
442:
443:
578:
579: EXCEPTION
580: WHEN FND_API.G_EXC_ERROR THEN
581: ROLLBACK TO BscKpiPvt_UptKPI;
582: FND_MSG_PUB.Count_And_Get
583: ( p_encoded => FND_API.G_FALSE
584: , p_count => x_msg_count
585: , p_data => x_msg_data
586: );
588: x_return_status := FND_API.G_RET_STS_ERROR;
589: RAISE;
590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
591: ROLLBACK TO BscKpiPvt_UptKPI;
592: FND_MSG_PUB.Count_And_Get
593: ( p_encoded => FND_API.G_FALSE
594: , p_count => x_msg_count
595: , p_data => x_msg_data
596: );
633: l_count number;
634: l_Delete_Kpi_b BOOLEAN := TRUE;
635:
636: begin
637: FND_MSG_PUB.Initialize;
638: x_return_status := FND_API.G_RET_STS_SUCCESS;
639: SAVEPOINT BscKpiPvt_DelKPI;
640: -- Check that valid id was entered.
641: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
644: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
645: if l_count = 0 then
646: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
647: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
648: FND_MSG_PUB.ADD;
649: RAISE FND_API.G_EXC_ERROR;
650: end if;
651: else
652: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
650: end if;
651: else
652: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
653: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
654: FND_MSG_PUB.ADD;
655: RAISE FND_API.G_EXC_ERROR;
656: end if;
657:
658:
689:
690: EXCEPTION
691: WHEN FND_API.G_EXC_ERROR THEN
692: ROLLBACK TO BscKpiPvt_DelKPI;
693: FND_MSG_PUB.Count_And_Get
694: ( p_encoded => FND_API.G_FALSE
695: , p_count => x_msg_count
696: , p_data => x_msg_data
697: );
699: x_return_status := FND_API.G_RET_STS_ERROR;
700: RAISE;
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO BscKpiPvt_DelKPI;
703: FND_MSG_PUB.Count_And_Get
704: ( p_encoded => FND_API.G_FALSE
705: , p_count => x_msg_count
706: , p_data => x_msg_data
707: );
749:
750: l_count number;
751:
752: begin
753: FND_MSG_PUB.Initialize;
754: x_return_status := FND_API.G_RET_STS_SUCCESS;
755: SAVEPOINT BscKpiPvt_CrtKPIDef;
756: --BSC_DEBUG.PUT_LINE('-- Begin Create_Kpi_Defaults');
757: --BSC_DEBUG.PUT_LINE(' Create_Kpi_Defaults - p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id = ' || p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
773: --DBMS_OUTPUT.PUT_LINE(' Create_Kpi_Defaults - l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id = ' || l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
774:
775: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
776: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
777: FND_MSG_PUB.ADD;
778: RAISE FND_API.G_EXC_ERROR;
779: end if;
780: else
781: --DBMS_OUTPUT.PUT_LINE(' Create_Kpi_Defaults - BSC_NO_KPI_ID_ENTERED');
780: else
781: --DBMS_OUTPUT.PUT_LINE(' Create_Kpi_Defaults - BSC_NO_KPI_ID_ENTERED');
782: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
783: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
784: FND_MSG_PUB.ADD;
785: RAISE FND_API.G_EXC_ERROR;
786: end if;
787:
788: --DBMS_OUTPUT.PUT_LINE(' Create_Kpi_Defaults - Flag 1');
846:
847: EXCEPTION
848: WHEN FND_API.G_EXC_ERROR THEN
849: ROLLBACK TO BscKpiPvt_CrtKPIDef;
850: FND_MSG_PUB.Count_And_Get
851: ( p_encoded => FND_API.G_FALSE
852: , p_count => x_msg_count
853: , p_data => x_msg_data
854: );
856: x_return_status := FND_API.G_RET_STS_ERROR;
857: RAISE;
858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
859: ROLLBACK TO BscKpiPvt_CrtKPIDef;
860: FND_MSG_PUB.Count_And_Get
861: ( p_encoded => FND_API.G_FALSE
862: , p_count => x_msg_count
863: , p_data => x_msg_data
864: );
870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
871: if (SQLCODE = -01400) then
872: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
873: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
874: FND_MSG_PUB.ADD;
875: RAISE FND_API.G_EXC_ERROR;
876: end if;
877: IF (x_msg_data IS NOT NULL) THEN
878: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Defaults ';
912:
913: l_count number;
914:
915: begin
916: FND_MSG_PUB.Initialize;
917: x_return_status := FND_API.G_RET_STS_SUCCESS;
918: l_db_object := 'Retrieve_Kpi_Defaults';
919:
920: -- Set values needed to retrieve default Dimension set.
942:
943:
944: EXCEPTION
945: WHEN FND_API.G_EXC_ERROR THEN
946: FND_MSG_PUB.Count_And_Get
947: ( p_encoded => FND_API.G_FALSE
948: , p_count => x_msg_count
949: , p_data => x_msg_data
950: );
951: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
952: x_return_status := FND_API.G_RET_STS_ERROR;
953: RAISE;
954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
955: FND_MSG_PUB.Count_And_Get
956: ( p_encoded => FND_API.G_FALSE
957: , p_count => x_msg_count
958: , p_data => x_msg_data
959: );
961: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
962: RAISE;
963: WHEN NO_DATA_FOUND THEN
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965: FND_MSG_PUB.Initialize;
966: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
967: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
968: FND_MSG_PUB.ADD;
969: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965: FND_MSG_PUB.Initialize;
966: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
967: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
968: FND_MSG_PUB.ADD;
969: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
970: RAISE FND_API.G_EXC_ERROR;
971: WHEN OTHERS THEN
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
991: ) is
992:
993:
994: begin
995: FND_MSG_PUB.Initialize;
996: x_return_status := FND_API.G_RET_STS_SUCCESS;
997: -- This procedure does not really update anything. Public version handles the calls
998: -- to the other procedures.
999:
1002: end if;
1003:
1004: EXCEPTION
1005: WHEN FND_API.G_EXC_ERROR THEN
1006: FND_MSG_PUB.Count_And_Get
1007: ( p_encoded => FND_API.G_FALSE
1008: , p_count => x_msg_count
1009: , p_data => x_msg_data
1010: );
1011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1012: x_return_status := FND_API.G_RET_STS_ERROR;
1013: RAISE;
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: FND_MSG_PUB.Count_And_Get
1016: ( p_encoded => FND_API.G_FALSE
1017: , p_count => x_msg_count
1018: , p_data => x_msg_data
1019: );
1051: ,x_msg_data OUT NOCOPY varchar2
1052: ) is
1053:
1054: begin
1055: FND_MSG_PUB.Initialize;
1056: x_return_status := FND_API.G_RET_STS_SUCCESS;
1057:
1058: if (p_commit = FND_API.G_TRUE) then
1059: commit;
1060: end if;
1061:
1062: EXCEPTION
1063: WHEN FND_API.G_EXC_ERROR THEN
1064: FND_MSG_PUB.Count_And_Get
1065: ( p_encoded => FND_API.G_FALSE
1066: , p_count => x_msg_count
1067: , p_data => x_msg_data
1068: );
1069: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071: RAISE;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: FND_MSG_PUB.Count_And_Get
1074: ( p_encoded => FND_API.G_FALSE
1075: , p_count => x_msg_count
1076: , p_data => x_msg_data
1077: );
1113:
1114: l_count number;
1115:
1116: begin
1117: FND_MSG_PUB.Initialize;
1118: x_return_status := FND_API.G_RET_STS_SUCCESS;
1119: SAVEPOINT BscKpiPvt_CrtKPIProp;
1120: -- Check that valid id was entered.
1121: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1124: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1125: if l_count = 0 then
1126: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1127: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1128: FND_MSG_PUB.ADD;
1129: RAISE FND_API.G_EXC_ERROR;
1130: end if;
1131: else
1132: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1130: end if;
1131: else
1132: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1133: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1134: FND_MSG_PUB.ADD;
1135: RAISE FND_API.G_EXC_ERROR;
1136: end if;
1137:
1138: l_db_object := 'BSC_KPI_PROPERTIES';
1153:
1154: EXCEPTION
1155: WHEN FND_API.G_EXC_ERROR THEN
1156: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1157: FND_MSG_PUB.Count_And_Get
1158: ( p_encoded => FND_API.G_FALSE
1159: , p_count => x_msg_count
1160: , p_data => x_msg_data
1161: );
1163: x_return_status := FND_API.G_RET_STS_ERROR;
1164: RAISE;
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1167: FND_MSG_PUB.Count_And_Get
1168: ( p_encoded => FND_API.G_FALSE
1169: , p_count => x_msg_count
1170: , p_data => x_msg_data
1171: );
1187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1188: if (SQLCODE = -01400) then
1189: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
1190: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1191: FND_MSG_PUB.ADD;
1192: RAISE FND_API.G_EXC_ERROR;
1193: end if;
1194: IF (x_msg_data IS NOT NULL) THEN
1195: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Properties ';
1216:
1217: l_db_object varchar2(30);
1218:
1219: begin
1220: FND_MSG_PUB.Initialize;
1221: x_return_status := FND_API.G_RET_STS_SUCCESS;
1222: l_db_object := 'Retrieve_Kpi_Properties';
1223:
1224: select distinct property_value
1233: commit;
1234: end if;
1235: EXCEPTION
1236: WHEN FND_API.G_EXC_ERROR THEN
1237: FND_MSG_PUB.Count_And_Get
1238: ( p_encoded => FND_API.G_FALSE
1239: , p_count => x_msg_count
1240: , p_data => x_msg_data
1241: );
1242: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: RAISE;
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: FND_MSG_PUB.Count_And_Get
1247: ( p_encoded => FND_API.G_FALSE
1248: , p_count => x_msg_count
1249: , p_data => x_msg_data
1250: );
1253: RAISE;
1254: WHEN NO_DATA_FOUND THEN
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1257: FND_MSG_PUB.Initialize;
1258: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
1259: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1260: FND_MSG_PUB.ADD;
1261: RAISE FND_API.G_EXC_ERROR;
1256: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1257: FND_MSG_PUB.Initialize;
1258: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
1259: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1260: FND_MSG_PUB.ADD;
1261: RAISE FND_API.G_EXC_ERROR;
1262: WHEN OTHERS THEN
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: IF (x_msg_data IS NOT NULL) THEN
1285:
1286: l_count number;
1287:
1288: begin
1289: FND_MSG_PUB.Initialize;
1290: x_return_status := FND_API.G_RET_STS_SUCCESS;
1291: SAVEPOINT BscKpiPvt_UptKPIProp;
1292: -- Check that valid id was entered.
1293: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1296: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1297: if l_count = 0 then
1298: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1299: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1300: FND_MSG_PUB.ADD;
1301: RAISE FND_API.G_EXC_ERROR;
1302: end if;
1303: else
1304: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1302: end if;
1303: else
1304: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1305: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1306: FND_MSG_PUB.ADD;
1307: RAISE FND_API.G_EXC_ERROR;
1308: end if;
1309:
1310: -- Not all values will be passed. We need to make sure values not passed are not
1343:
1344: EXCEPTION
1345: WHEN FND_API.G_EXC_ERROR THEN
1346: ROLLBACK TO BscKpiPvt_UptKPIProp;
1347: FND_MSG_PUB.Count_And_Get
1348: ( p_encoded => FND_API.G_FALSE
1349: , p_count => x_msg_count
1350: , p_data => x_msg_data
1351: );
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: RAISE;
1355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1356: ROLLBACK TO BscKpiPvt_UptKPIProp;
1357: FND_MSG_PUB.Count_And_Get
1358: ( p_encoded => FND_API.G_FALSE
1359: , p_count => x_msg_count
1360: , p_data => x_msg_data
1361: );
1397:
1398: l_count number;
1399:
1400: begin
1401: FND_MSG_PUB.Initialize;
1402: x_return_status := FND_API.G_RET_STS_SUCCESS;
1403: SAVEPOINT BscKpiPvt_DelKPIProp;
1404: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1405: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1407: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1408: if l_count = 0 then
1409: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1410: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1411: FND_MSG_PUB.ADD;
1412: RAISE FND_API.G_EXC_ERROR;
1413: end if;
1414: else
1415: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1413: end if;
1414: else
1415: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1416: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1417: FND_MSG_PUB.ADD;
1418: RAISE FND_API.G_EXC_ERROR;
1419: end if;
1420:
1421:
1428:
1429: EXCEPTION
1430: WHEN FND_API.G_EXC_ERROR THEN
1431: ROLLBACK TO BscKpiPvt_DelKPIProp;
1432: FND_MSG_PUB.Count_And_Get
1433: ( p_encoded => FND_API.G_FALSE
1434: , p_count => x_msg_count
1435: , p_data => x_msg_data
1436: );
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: RAISE;
1440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1441: ROLLBACK TO BscKpiPvt_DelKPIProp;
1442: FND_MSG_PUB.Count_And_Get
1443: ( p_encoded => FND_API.G_FALSE
1444: , p_count => x_msg_count
1445: , p_data => x_msg_data
1446: );
1488:
1489: no_kpi_id exception;
1490:
1491: begin
1492: FND_MSG_PUB.Initialize;
1493: x_return_status := FND_API.G_RET_STS_SUCCESS;
1494: SAVEPOINT BscKpiPvt_CrtKPIAnal;
1495: -- Check that valid id was entered.
1496: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1499: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1500: if l_count = 0 then
1501: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1502: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1503: FND_MSG_PUB.ADD;
1504: RAISE FND_API.G_EXC_ERROR;
1505: end if;
1506: else
1507: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1505: end if;
1506: else
1507: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1508: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1509: FND_MSG_PUB.ADD;
1510: RAISE FND_API.G_EXC_ERROR;
1511: end if;
1512:
1513: l_db_object := 'BSC_KPI_ANALYSIS_GROUPS';
1583:
1584: EXCEPTION
1585: WHEN FND_API.G_EXC_ERROR THEN
1586: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1587: FND_MSG_PUB.Count_And_Get
1588: ( p_encoded => FND_API.G_FALSE
1589: , p_count => x_msg_count
1590: , p_data => x_msg_data
1591: );
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: RAISE;
1595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1596: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1597: FND_MSG_PUB.Count_And_Get
1598: ( p_encoded => FND_API.G_FALSE
1599: , p_count => x_msg_count
1600: , p_data => x_msg_data
1601: );
1617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1618: if (SQLCODE = -01400) then
1619: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
1620: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1621: FND_MSG_PUB.ADD;
1622: RAISE FND_API.G_EXC_ERROR;
1623: end if;
1624: IF (x_msg_data IS NOT NULL) THEN
1625: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Analysis ';
1646:
1647: l_db_object varchar2(30);
1648:
1649: begin
1650: FND_MSG_PUB.Initialize;
1651: x_return_status := FND_API.G_RET_STS_SUCCESS;
1652: l_db_object := 'Retrieve_Kpi_Analysis';
1653: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Anal_Group_Id IS NOT NULL) THEN
1654: select distinct analysis_group_id
1692:
1693:
1694: EXCEPTION
1695: WHEN FND_API.G_EXC_ERROR THEN
1696: FND_MSG_PUB.Count_And_Get
1697: ( p_encoded => FND_API.G_FALSE
1698: , p_count => x_msg_count
1699: , p_data => x_msg_data
1700: );
1701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1703: RAISE;
1704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1705: FND_MSG_PUB.Count_And_Get
1706: ( p_encoded => FND_API.G_FALSE
1707: , p_count => x_msg_count
1708: , p_data => x_msg_data
1709: );
1714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1715: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1716: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
1717: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1718: FND_MSG_PUB.ADD;
1719: RAISE FND_API.G_EXC_ERROR;
1720: WHEN OTHERS THEN
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722: IF (x_msg_data IS NOT NULL) THEN
1743:
1744: l_count number;
1745:
1746: begin
1747: FND_MSG_PUB.Initialize;
1748: x_return_status := FND_API.G_RET_STS_SUCCESS;
1749: SAVEPOINT BscKpiPvt_UpdKPIAnal;
1750: -- Check that valid id was entered.
1751: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1754: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1755: if l_count = 0 then
1756: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1757: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1758: FND_MSG_PUB.ADD;
1759: RAISE FND_API.G_EXC_ERROR;
1760: end if;
1761: else
1762: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1760: end if;
1761: else
1762: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1763: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1764: FND_MSG_PUB.ADD;
1765: RAISE FND_API.G_EXC_ERROR;
1766: end if;
1767:
1768: -- Not all values will be passed. We need to make sure values not passed are not
1843:
1844: EXCEPTION
1845: WHEN FND_API.G_EXC_ERROR THEN
1846: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1847: FND_MSG_PUB.Count_And_Get
1848: ( p_encoded => FND_API.G_FALSE
1849: , p_count => x_msg_count
1850: , p_data => x_msg_data
1851: );
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: RAISE;
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1857: FND_MSG_PUB.Count_And_Get
1858: ( p_encoded => FND_API.G_FALSE
1859: , p_count => x_msg_count
1860: , p_data => x_msg_data
1861: );
1897:
1898: l_count number;
1899:
1900: begin
1901: FND_MSG_PUB.Initialize;
1902: x_return_status := FND_API.G_RET_STS_SUCCESS;
1903: SAVEPOINT BscKpiPvt_DelKPIAnal;
1904: -- Check that valid id was entered.
1905: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL) THEN
1908: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1909: IF(l_count = 0 )THEN
1910: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1911: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1912: FND_MSG_PUB.ADD;
1913: RAISE FND_API.G_EXC_ERROR;
1914: END IF;
1915: ELSE
1916: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1914: END IF;
1915: ELSE
1916: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1917: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1918: FND_MSG_PUB.ADD;
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1921:
1922: DELETE
1950:
1951: EXCEPTION
1952: WHEN FND_API.G_EXC_ERROR THEN
1953: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1954: FND_MSG_PUB.Count_And_Get
1955: ( p_encoded => FND_API.G_FALSE
1956: , p_count => x_msg_count
1957: , p_data => x_msg_data
1958: );
1960: x_return_status := FND_API.G_RET_STS_ERROR;
1961: RAISE;
1962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1963: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1964: FND_MSG_PUB.Count_And_Get
1965: ( p_encoded => FND_API.G_FALSE
1966: , p_count => x_msg_count
1967: , p_data => x_msg_data
1968: );
2004:
2005: l_count number;
2006:
2007: begin
2008: FND_MSG_PUB.Initialize;
2009: x_return_status := FND_API.G_RET_STS_SUCCESS;
2010: SAVEPOINT BscKpiPvt_DelObjColo;
2011: -- Check that valid id was entered.
2012: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL) THEN
2015: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2016: IF(l_count = 0 )THEN
2017: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2018: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2019: FND_MSG_PUB.ADD;
2020: RAISE FND_API.G_EXC_ERROR;
2021: END IF;
2022: ELSE
2023: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2021: END IF;
2022: ELSE
2023: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2024: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2025: FND_MSG_PUB.ADD;
2026: RAISE FND_API.G_EXC_ERROR;
2027: END IF;
2028:
2029: bsc_kpi_measure_props_pub.Delete_Obj_Kpi_Measure_Props (
2068:
2069: EXCEPTION
2070: WHEN FND_API.G_EXC_ERROR THEN
2071: ROLLBACK TO BscKpiPvt_DelObjColo;
2072: FND_MSG_PUB.Count_And_Get
2073: ( p_encoded => FND_API.G_FALSE
2074: , p_count => x_msg_count
2075: , p_data => x_msg_data
2076: );
2077: x_return_status := FND_API.G_RET_STS_ERROR;
2078: RAISE;
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: ROLLBACK TO BscKpiPvt_DelObjColo;
2081: FND_MSG_PUB.Count_And_Get
2082: ( p_encoded => FND_API.G_FALSE
2083: , p_count => x_msg_count
2084: , p_data => x_msg_data
2085: );
2122:
2123: l_count number;
2124:
2125: begin
2126: FND_MSG_PUB.Initialize;
2127: x_return_status := FND_API.G_RET_STS_SUCCESS;
2128: SAVEPOINT BscKpiPvt_CrtKPIPerid;
2129: -- Assign all values in the passed "Record" parameter to the locally defined
2130: -- "Record" variable.
2137: ,l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2138: if l_count = 0 then
2139: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2140: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2141: FND_MSG_PUB.ADD;
2142: RAISE FND_API.G_EXC_ERROR;
2143: end if;
2144: else
2145: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2143: end if;
2144: else
2145: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2146: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2147: FND_MSG_PUB.ADD;
2148: RAISE FND_API.G_EXC_ERROR;
2149: end if;
2150:
2151: -- Check that periodicity is valid. If periodicity is null then make it 5, default
2156: ,l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id);
2157: if l_count = 0 then
2158: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_PERIODICITY_ID');
2159: FND_MESSAGE.SET_TOKEN('BSC_PERIODICITY', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id);
2160: FND_MSG_PUB.ADD;
2161: RAISE FND_API.G_EXC_ERROR;
2162: end if;
2163: else
2164: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id := 5;
2208:
2209: EXCEPTION
2210: WHEN FND_API.G_EXC_ERROR THEN
2211: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2212: FND_MSG_PUB.Count_And_Get
2213: ( p_encoded => FND_API.G_FALSE
2214: , p_count => x_msg_count
2215: , p_data => x_msg_data
2216: );
2218: x_return_status := FND_API.G_RET_STS_ERROR;
2219: RAISE;
2220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2221: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2222: FND_MSG_PUB.Count_And_Get
2223: ( p_encoded => FND_API.G_FALSE
2224: , p_count => x_msg_count
2225: , p_data => x_msg_data
2226: );
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2243: if (SQLCODE = -01400) then
2244: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
2245: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2246: FND_MSG_PUB.ADD;
2247: RAISE FND_API.G_EXC_ERROR;
2248: end if;
2249: IF (x_msg_data IS NOT NULL) THEN
2250: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Periodicity ';
2269:
2270: l_db_object varchar2(30);
2271:
2272: begin
2273: FND_MSG_PUB.Initialize;
2274: x_return_status := FND_API.G_RET_STS_SUCCESS;
2275:
2276: l_db_object := 'Retrieve_Kpi_Periodicity';
2277:
2308: end if;
2309:
2310: EXCEPTION
2311: WHEN FND_API.G_EXC_ERROR THEN
2312: FND_MSG_PUB.Count_And_Get
2313: ( p_encoded => FND_API.G_FALSE
2314: , p_count => x_msg_count
2315: , p_data => x_msg_data
2316: );
2317: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2318: x_return_status := FND_API.G_RET_STS_ERROR;
2319: RAISE;
2320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2321: FND_MSG_PUB.Count_And_Get
2322: ( p_encoded => FND_API.G_FALSE
2323: , p_count => x_msg_count
2324: , p_data => x_msg_data
2325: );
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2332: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
2333: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2334: FND_MSG_PUB.ADD;
2335: RAISE FND_API.G_EXC_ERROR;
2336: WHEN OTHERS THEN
2337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2338: IF (x_msg_data IS NOT NULL) THEN
2359:
2360: l_count number;
2361:
2362: begin
2363: FND_MSG_PUB.Initialize;
2364: x_return_status := FND_API.G_RET_STS_SUCCESS;
2365: SAVEPOINT BscKpiPvt_UptKPIPerid;
2366: -- Check that valid id was entered.
2367: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2370: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2371: if l_count = 0 then
2372: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2373: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2374: FND_MSG_PUB.ADD;
2375: RAISE FND_API.G_EXC_ERROR;
2376: end if;
2377: else
2378: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2376: end if;
2377: else
2378: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2379: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2380: FND_MSG_PUB.ADD;
2381: RAISE FND_API.G_EXC_ERROR;
2382: end if;
2383:
2384: -- Not all values will be passed. We need to make sure values not passed are not
2457:
2458: EXCEPTION
2459: WHEN FND_API.G_EXC_ERROR THEN
2460: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2461: FND_MSG_PUB.Count_And_Get
2462: ( p_encoded => FND_API.G_FALSE
2463: , p_count => x_msg_count
2464: , p_data => x_msg_data
2465: );
2467: x_return_status := FND_API.G_RET_STS_ERROR;
2468: RAISE;
2469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2470: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2471: FND_MSG_PUB.Count_And_Get
2472: ( p_encoded => FND_API.G_FALSE
2473: , p_count => x_msg_count
2474: , p_data => x_msg_data
2475: );
2511:
2512: l_count number;
2513:
2514: begin
2515: FND_MSG_PUB.Initialize;
2516: x_return_status := FND_API.G_RET_STS_SUCCESS;
2517: SAVEPOINT BscKpiPvt_DelKPIPerid;
2518: -- Check that valid id was entered.
2519: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2522: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2523: if l_count = 0 then
2524: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2525: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2526: FND_MSG_PUB.ADD;
2527: RAISE FND_API.G_EXC_ERROR;
2528: end if;
2529: else
2530: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2528: end if;
2529: else
2530: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2531: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2532: FND_MSG_PUB.ADD;
2533: RAISE FND_API.G_EXC_ERROR;
2534: end if;
2535:
2536: delete from BSC_KPI_PERIODICITIES
2542:
2543: EXCEPTION
2544: WHEN FND_API.G_EXC_ERROR THEN
2545: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2546: FND_MSG_PUB.Count_And_Get
2547: ( p_encoded => FND_API.G_FALSE
2548: , p_count => x_msg_count
2549: , p_data => x_msg_data
2550: );
2552: x_return_status := FND_API.G_RET_STS_ERROR;
2553: RAISE;
2554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2555: ROLLBACK TO BscKpiPvt_DelKPIPerid;
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: );
2599:
2600: l_count number;
2601:
2602: begin
2603: FND_MSG_PUB.Initialize;
2604: x_return_status := FND_API.G_RET_STS_SUCCESS;
2605: SAVEPOINT BscKpiPvt_CrtKPIDaTab;
2606: -- Check that valid id was entered.
2607: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2610: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2611: if l_count = 0 then
2612: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2613: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2614: FND_MSG_PUB.ADD;
2615: RAISE FND_API.G_EXC_ERROR;
2616: end if;
2617: else
2618: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2616: end if;
2617: else
2618: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2619: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2620: FND_MSG_PUB.ADD;
2621: RAISE FND_API.G_EXC_ERROR;
2622: end if;
2623:
2624: l_db_object := 'BSC_KPI_DATA_TABLES';
2643:
2644: EXCEPTION
2645: WHEN FND_API.G_EXC_ERROR THEN
2646: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2647: FND_MSG_PUB.Count_And_Get
2648: ( p_encoded => FND_API.G_FALSE
2649: , p_count => x_msg_count
2650: , p_data => x_msg_data
2651: );
2653: x_return_status := FND_API.G_RET_STS_ERROR;
2654: RAISE;
2655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2656: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2657: FND_MSG_PUB.Count_And_Get
2658: ( p_encoded => FND_API.G_FALSE
2659: , p_count => x_msg_count
2660: , p_data => x_msg_data
2661: );
2677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2678: if (SQLCODE = -01400) then
2679: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
2680: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2681: FND_MSG_PUB.ADD;
2682: RAISE FND_API.G_EXC_ERROR;
2683: end if;
2684: IF (x_msg_data IS NOT NULL) THEN
2685: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Data_Tables ';
2704:
2705: l_db_object varchar2(30);
2706:
2707: begin
2708: FND_MSG_PUB.Initialize;
2709: x_return_status := FND_API.G_RET_STS_SUCCESS;
2710: l_db_object := 'Retrieve_Kpi_Data_Tables';
2711:
2712: select distinct level_comb
2725: end if;
2726:
2727: EXCEPTION
2728: WHEN FND_API.G_EXC_ERROR THEN
2729: FND_MSG_PUB.Count_And_Get
2730: ( p_encoded => FND_API.G_FALSE
2731: , p_count => x_msg_count
2732: , p_data => x_msg_data
2733: );
2734: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2735: x_return_status := FND_API.G_RET_STS_ERROR;
2736: RAISE;
2737: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2738: FND_MSG_PUB.Count_And_Get
2739: ( p_encoded => FND_API.G_FALSE
2740: , p_count => x_msg_count
2741: , p_data => x_msg_data
2742: );
2745: RAISE;
2746: WHEN NO_DATA_FOUND THEN
2747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2748: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2749: FND_MSG_PUB.Initialize;
2750: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
2751: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2752: FND_MSG_PUB.ADD;
2753: RAISE FND_API.G_EXC_ERROR;
2748: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2749: FND_MSG_PUB.Initialize;
2750: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
2751: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2752: FND_MSG_PUB.ADD;
2753: RAISE FND_API.G_EXC_ERROR;
2754: WHEN OTHERS THEN
2755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2756: IF (x_msg_data IS NOT NULL) THEN
2777:
2778: l_count number;
2779:
2780: begin
2781: FND_MSG_PUB.Initialize;
2782: x_return_status := FND_API.G_RET_STS_SUCCESS;
2783: SAVEPOINT BscKpiPvt_UptKPIDaTab;
2784: -- Check that valid id was entered.
2785: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2788: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2789: if l_count = 0 then
2790: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2791: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2792: FND_MSG_PUB.ADD;
2793: RAISE FND_API.G_EXC_ERROR;
2794: end if;
2795: else
2796: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2794: end if;
2795: else
2796: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2797: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2798: FND_MSG_PUB.ADD;
2799: RAISE FND_API.G_EXC_ERROR;
2800: end if;
2801:
2802: -- Not all values will be passed. We need to make sure values not passed are not
2840:
2841: EXCEPTION
2842: WHEN FND_API.G_EXC_ERROR THEN
2843: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2844: FND_MSG_PUB.Count_And_Get
2845: ( p_encoded => FND_API.G_FALSE
2846: , p_count => x_msg_count
2847: , p_data => x_msg_data
2848: );
2850: x_return_status := FND_API.G_RET_STS_ERROR;
2851: RAISE;
2852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2853: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2854: FND_MSG_PUB.Count_And_Get
2855: ( p_encoded => FND_API.G_FALSE
2856: , p_count => x_msg_count
2857: , p_data => x_msg_data
2858: );
2895: l_count number;
2896: l_Delete_Kpi_Data BOOLEAN := TRUE;
2897:
2898: begin
2899: FND_MSG_PUB.Initialize;
2900: x_return_status := FND_API.G_RET_STS_SUCCESS;
2901: SAVEPOINT BscKpiPvt_DelKPIDaTab;
2902: -- Check that valid id was entered.
2903: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2906: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2907: if l_count = 0 then
2908: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2909: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2910: FND_MSG_PUB.ADD;
2911: RAISE FND_API.G_EXC_ERROR;
2912: end if;
2913: else
2914: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2912: end if;
2913: else
2914: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2915: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2916: FND_MSG_PUB.ADD;
2917: RAISE FND_API.G_EXC_ERROR;
2918: end if;
2919:
2920: -- Added for Bug #3248729
2947:
2948: EXCEPTION
2949: WHEN FND_API.G_EXC_ERROR THEN
2950: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2951: FND_MSG_PUB.Count_And_Get
2952: ( p_encoded => FND_API.G_FALSE
2953: , p_count => x_msg_count
2954: , p_data => x_msg_data
2955: );
2957: x_return_status := FND_API.G_RET_STS_ERROR;
2958: RAISE;
2959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2960: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2961: FND_MSG_PUB.Count_And_Get
2962: ( p_encoded => FND_API.G_FALSE
2963: , p_count => x_msg_count
2964: , p_data => x_msg_data
2965: );
3003:
3004: l_count number;
3005:
3006: begin
3007: FND_MSG_PUB.Initialize;
3008: x_return_status := FND_API.G_RET_STS_SUCCESS;
3009: SAVEPOINT BscKpiPvt_CrtKPICalc;
3010: -- Check that valid id was entered.
3011: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3014: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3015: if l_count = 0 then
3016: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3017: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3018: FND_MSG_PUB.ADD;
3019: RAISE FND_API.G_EXC_ERROR;
3020: end if;
3021: else
3022: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3020: end if;
3021: else
3022: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3023: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3024: FND_MSG_PUB.ADD;
3025: RAISE FND_API.G_EXC_ERROR;
3026: end if;
3027:
3028: l_db_object := 'BSC_KPI_CALCULATIONS';
3050:
3051: EXCEPTION
3052: WHEN FND_API.G_EXC_ERROR THEN
3053: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3054: FND_MSG_PUB.Count_And_Get
3055: ( p_encoded => FND_API.G_FALSE
3056: , p_count => x_msg_count
3057: , p_data => x_msg_data
3058: );
3060: x_return_status := FND_API.G_RET_STS_ERROR;
3061: RAISE;
3062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3063: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3064: FND_MSG_PUB.Count_And_Get
3065: ( p_encoded => FND_API.G_FALSE
3066: , p_count => x_msg_count
3067: , p_data => x_msg_data
3068: );
3084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3085: if (SQLCODE = -01400) then
3086: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
3087: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3088: FND_MSG_PUB.ADD;
3089: RAISE FND_API.G_EXC_ERROR;
3090: end if;
3091: IF (x_msg_data IS NOT NULL) THEN
3092: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Calculations ';
3111:
3112: l_db_object varchar2(30);
3113:
3114: begin
3115: FND_MSG_PUB.Initialize;
3116: x_return_status := FND_API.G_RET_STS_SUCCESS;
3117: l_db_object := 'Retrieve_Kpi_Calculations';
3118:
3119: select distinct user_level0
3137: end if;
3138:
3139: EXCEPTION
3140: WHEN FND_API.G_EXC_ERROR THEN
3141: FND_MSG_PUB.Count_And_Get
3142: ( p_encoded => FND_API.G_FALSE
3143: , p_count => x_msg_count
3144: , p_data => x_msg_data
3145: );
3146: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3147: x_return_status := FND_API.G_RET_STS_ERROR;
3148: RAISE;
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: FND_MSG_PUB.Count_And_Get
3151: ( p_encoded => FND_API.G_FALSE
3152: , p_count => x_msg_count
3153: , p_data => x_msg_data
3154: );
3156: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3157: RAISE;
3158: WHEN NO_DATA_FOUND THEN
3159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3160: FND_MSG_PUB.Initialize;
3161: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3162: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3163: FND_MSG_PUB.ADD;
3164: RAISE FND_API.G_EXC_ERROR;
3159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3160: FND_MSG_PUB.Initialize;
3161: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3162: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3163: FND_MSG_PUB.ADD;
3164: RAISE FND_API.G_EXC_ERROR;
3165: WHEN OTHERS THEN
3166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3167: IF (x_msg_data IS NOT NULL) THEN
3188:
3189: l_count number;
3190:
3191: begin
3192: FND_MSG_PUB.Initialize;
3193: x_return_status := FND_API.G_RET_STS_SUCCESS;
3194: SAVEPOINT BscKpiPvt_UptKPICalc;
3195: -- Check that valid id was entered.
3196: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3199: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3200: if l_count = 0 then
3201: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3202: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3203: FND_MSG_PUB.ADD;
3204: RAISE FND_API.G_EXC_ERROR;
3205: end if;
3206: else
3207: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3205: end if;
3206: else
3207: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3208: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3209: FND_MSG_PUB.ADD;
3210: RAISE FND_API.G_EXC_ERROR;
3211: end if;
3212:
3213: -- Check that valid id was entered.
3217: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id);
3218: if l_count = 0 then
3219: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_CALCULATION_ID');
3220: FND_MESSAGE.SET_TOKEN('BSC_CALCULATION', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id);
3221: FND_MSG_PUB.ADD;
3222: RAISE FND_API.G_EXC_ERROR;
3223: end if;
3224: else
3225: FND_MESSAGE.SET_NAME('BSC','BSC_NO_CALCULATION_ID_ENTERED');
3223: end if;
3224: else
3225: FND_MESSAGE.SET_NAME('BSC','BSC_NO_CALCULATION_ID_ENTERED');
3226: FND_MESSAGE.SET_TOKEN('BSC_CALCULATION', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id);
3227: FND_MSG_PUB.ADD;
3228: RAISE FND_API.G_EXC_ERROR;
3229: end if;
3230:
3231: -- Not all values will be passed. We need to make sure values not passed are not
3278:
3279: EXCEPTION
3280: WHEN FND_API.G_EXC_ERROR THEN
3281: ROLLBACK TO BscKpiPvt_UptKPICalc;
3282: FND_MSG_PUB.Count_And_Get
3283: ( p_encoded => FND_API.G_FALSE
3284: , p_count => x_msg_count
3285: , p_data => x_msg_data
3286: );
3288: x_return_status := FND_API.G_RET_STS_ERROR;
3289: RAISE;
3290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3291: ROLLBACK TO BscKpiPvt_UptKPICalc;
3292: FND_MSG_PUB.Count_And_Get
3293: ( p_encoded => FND_API.G_FALSE
3294: , p_count => x_msg_count
3295: , p_data => x_msg_data
3296: );
3332:
3333: l_count number;
3334:
3335: BEGIN
3336: FND_MSG_PUB.Initialize;
3337: x_return_status := FND_API.G_RET_STS_SUCCESS;
3338: SAVEPOINT BscKpiPvt_DelKPICalc;
3339: -- Check that valid id was entered.
3340: IF(p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL) THEN
3343: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3344: IF (l_count = 0) THEN
3345: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3346: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3347: FND_MSG_PUB.ADD;
3348: RAISE FND_API.G_EXC_ERROR;
3349: END IF;
3350: ELSE
3351: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3349: END IF;
3350: ELSE
3351: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3352: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3353: FND_MSG_PUB.ADD;
3354: RAISE FND_API.G_EXC_ERROR;
3355: END IF;
3356:
3357: DELETE
3368:
3369: EXCEPTION
3370: WHEN FND_API.G_EXC_ERROR THEN
3371: ROLLBACK TO BscKpiPvt_DelKPICalc;
3372: FND_MSG_PUB.Count_And_Get
3373: ( p_encoded => FND_API.G_FALSE
3374: , p_count => x_msg_count
3375: , p_data => x_msg_data
3376: );
3378: x_return_status := FND_API.G_RET_STS_ERROR;
3379: RAISE;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: ROLLBACK TO BscKpiPvt_DelKPICalc;
3382: FND_MSG_PUB.Count_And_Get
3383: ( p_encoded => FND_API.G_FALSE
3384: , p_count => x_msg_count
3385: , p_data => x_msg_data
3386: );
3424:
3425: l_count number;
3426:
3427: begin
3428: FND_MSG_PUB.Initialize;
3429: x_return_status := FND_API.G_RET_STS_SUCCESS;
3430: SAVEPOINT BscKpiPvt_CrtKPIUsrAcc;
3431: -- Check that valid id was entered.
3432: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3435: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3436: if l_count = 0 then
3437: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3438: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3439: FND_MSG_PUB.ADD;
3440: RAISE FND_API.G_EXC_ERROR;
3441: end if;
3442: else
3443: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3441: end if;
3442: else
3443: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3444: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3445: FND_MSG_PUB.ADD;
3446: RAISE FND_API.G_EXC_ERROR;
3447: end if;
3448:
3449: l_db_object := 'BSC_USER_KPI_ACCESS';
3478:
3479: EXCEPTION
3480: WHEN FND_API.G_EXC_ERROR THEN
3481: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
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: );
3488: x_return_status := FND_API.G_RET_STS_ERROR;
3489: RAISE;
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3492: FND_MSG_PUB.Count_And_Get
3493: ( p_encoded => FND_API.G_FALSE
3494: , p_count => x_msg_count
3495: , p_data => x_msg_data
3496: );
3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3503: if (SQLCODE = -01400) then
3504: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
3505: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3506: FND_MSG_PUB.ADD;
3507: RAISE FND_API.G_EXC_ERROR;
3508: end if;
3509: IF (x_msg_data IS NOT NULL) THEN
3510: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_User_Access ';
3539:
3540: l_db_object varchar2(30);
3541:
3542: begin
3543: FND_MSG_PUB.Initialize;
3544: x_return_status := FND_API.G_RET_STS_SUCCESS;
3545: l_db_object := 'Retrieve_Kpi_User_Access';
3546:
3547: select distinct responsibility_id
3570: end if;
3571:
3572: EXCEPTION
3573: WHEN FND_API.G_EXC_ERROR THEN
3574: FND_MSG_PUB.Count_And_Get
3575: ( p_encoded => FND_API.G_FALSE
3576: , p_count => x_msg_count
3577: , p_data => x_msg_data
3578: );
3579: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3580: x_return_status := FND_API.G_RET_STS_ERROR;
3581: RAISE;
3582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3583: FND_MSG_PUB.Count_And_Get
3584: ( p_encoded => FND_API.G_FALSE
3585: , p_count => x_msg_count
3586: , p_data => x_msg_data
3587: );
3590: RAISE;
3591: WHEN NO_DATA_FOUND THEN
3592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3593: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3594: FND_MSG_PUB.Initialize;
3595: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3596: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3597: FND_MSG_PUB.ADD;
3598: RAISE FND_API.G_EXC_ERROR;
3593: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3594: FND_MSG_PUB.Initialize;
3595: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3596: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3597: FND_MSG_PUB.ADD;
3598: RAISE FND_API.G_EXC_ERROR;
3599: WHEN OTHERS THEN
3600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3601: IF (x_msg_data IS NOT NULL) THEN
3622:
3623: l_count number;
3624:
3625: begin
3626: FND_MSG_PUB.Initialize;
3627: x_return_status := FND_API.G_RET_STS_SUCCESS;
3628: SAVEPOINT BscKpiPvt_UptKPIUsrAcc;
3629: -- Check that valid id was entered.
3630: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3633: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3634: if l_count = 0 then
3635: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3636: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3637: FND_MSG_PUB.ADD;
3638: RAISE FND_API.G_EXC_ERROR;
3639: end if;
3640: else
3641: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3639: end if;
3640: else
3641: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3642: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3643: FND_MSG_PUB.ADD;
3644: RAISE FND_API.G_EXC_ERROR;
3645: end if;
3646:
3647: -- Not all values will be passed. We need to make sure values not passed are not
3700:
3701: EXCEPTION
3702: WHEN FND_API.G_EXC_ERROR THEN
3703: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3704: FND_MSG_PUB.Count_And_Get
3705: ( p_encoded => FND_API.G_FALSE
3706: , p_count => x_msg_count
3707: , p_data => x_msg_data
3708: );
3710: x_return_status := FND_API.G_RET_STS_ERROR;
3711: RAISE;
3712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3713: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3714: FND_MSG_PUB.Count_And_Get
3715: ( p_encoded => FND_API.G_FALSE
3716: , p_count => x_msg_count
3717: , p_data => x_msg_data
3718: );
3754:
3755: l_count number;
3756:
3757: begin
3758: FND_MSG_PUB.Initialize;
3759: x_return_status := FND_API.G_RET_STS_SUCCESS;
3760: SAVEPOINT BscKpiPvt_DelKPIUsrAcc;
3761: -- Check that valid id was entered.
3762: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3765: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3766: if l_count = 0 then
3767: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3768: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3769: FND_MSG_PUB.ADD;
3770: RAISE FND_API.G_EXC_ERROR;
3771: end if;
3772: else
3773: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3771: end if;
3772: else
3773: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3774: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3775: FND_MSG_PUB.ADD;
3776: RAISE FND_API.G_EXC_ERROR;
3777: end if;
3778:
3779: delete from BSC_USER_KPI_ACCESS
3785:
3786: EXCEPTION
3787: WHEN FND_API.G_EXC_ERROR THEN
3788: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3789: FND_MSG_PUB.Count_And_Get
3790: ( p_encoded => FND_API.G_FALSE
3791: , p_count => x_msg_count
3792: , p_data => x_msg_data
3793: );
3795: x_return_status := FND_API.G_RET_STS_ERROR;
3796: RAISE;
3797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3798: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3799: FND_MSG_PUB.Count_And_Get
3800: ( p_encoded => FND_API.G_FALSE
3801: , p_count => x_msg_count
3802: , p_data => x_msg_data
3803: );
3842:
3843: l_count number;
3844:
3845: begin
3846: FND_MSG_PUB.Initialize;
3847: x_return_status := FND_API.G_RET_STS_SUCCESS;
3848: SAVEPOINT BscKpiPvt_CrtKPIDefVals;
3849: -- Assign all values in the passed "Record" parameter to the locally defined
3850: -- "Record" variable.
3857: ,l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3858: if l_count = 0 then
3859: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3860: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3861: FND_MSG_PUB.ADD;
3862: RAISE FND_API.G_EXC_ERROR;
3863: end if;
3864: else
3865: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3863: end if;
3864: else
3865: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3866: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3867: FND_MSG_PUB.ADD;
3868: RAISE FND_API.G_EXC_ERROR;
3869: end if;
3870:
3871: -- If Analysis Option 0 name is null assign default.
3981:
3982: EXCEPTION
3983: WHEN FND_API.G_EXC_ERROR THEN
3984: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
3985: FND_MSG_PUB.Count_And_Get
3986: ( p_encoded => FND_API.G_FALSE
3987: , p_count => x_msg_count
3988: , p_data => x_msg_data
3989: );
3991: x_return_status := FND_API.G_RET_STS_ERROR;
3992: RAISE;
3993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3994: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
3995: FND_MSG_PUB.Count_And_Get
3996: ( p_encoded => FND_API.G_FALSE
3997: , p_count => x_msg_count
3998: , p_data => x_msg_data
3999: );
4015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4016: if (SQLCODE = -01400) then
4017: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
4018: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4019: FND_MSG_PUB.ADD;
4020: RAISE FND_API.G_EXC_ERROR;
4021: end if;
4022: IF (x_msg_data IS NOT NULL) THEN
4023: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Default_Values ';
4042:
4043: l_db_object varchar2(30);
4044:
4045: begin
4046: FND_MSG_PUB.Initialize;
4047: x_return_status := FND_API.G_RET_STS_SUCCESS;
4048: l_db_object := 'Retrieve_Kpi_Default_Values';
4049:
4050: select distinct a.tab_id
4136: end if;
4137:
4138: EXCEPTION
4139: WHEN FND_API.G_EXC_ERROR THEN
4140: FND_MSG_PUB.Count_And_Get
4141: ( p_encoded => FND_API.G_FALSE
4142: , p_count => x_msg_count
4143: , p_data => x_msg_data
4144: );
4145: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4146: x_return_status := FND_API.G_RET_STS_ERROR;
4147: RAISE;
4148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4149: FND_MSG_PUB.Count_And_Get
4150: ( p_encoded => FND_API.G_FALSE
4151: , p_count => x_msg_count
4152: , p_data => x_msg_data
4153: );
4156: RAISE;
4157: WHEN NO_DATA_FOUND THEN
4158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4160: FND_MSG_PUB.Initialize;
4161: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
4162: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4163: FND_MSG_PUB.ADD;
4164: RAISE FND_API.G_EXC_ERROR;
4159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4160: FND_MSG_PUB.Initialize;
4161: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
4162: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4163: FND_MSG_PUB.ADD;
4164: RAISE FND_API.G_EXC_ERROR;
4165: WHEN OTHERS THEN
4166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4167: IF (x_msg_data IS NOT NULL) THEN
4188:
4189: l_count number;
4190:
4191: begin
4192: FND_MSG_PUB.Initialize;
4193: x_return_status := FND_API.G_RET_STS_SUCCESS;
4194: SAVEPOINT BscKpiPvt_UpdKPIDefVals;
4195: -- Check that valid id was entered.
4196: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
4199: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4200: if l_count = 0 then
4201: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4202: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4203: FND_MSG_PUB.ADD;
4204: RAISE FND_API.G_EXC_ERROR;
4205: end if;
4206: else
4207: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4205: end if;
4206: else
4207: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4208: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4209: FND_MSG_PUB.ADD;
4210: RAISE FND_API.G_EXC_ERROR;
4211: end if;
4212:
4213: -- Not all values will be passed. We need to make sure values not passed are not
4396:
4397: EXCEPTION
4398: WHEN FND_API.G_EXC_ERROR THEN
4399: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4400: FND_MSG_PUB.Count_And_Get
4401: ( p_encoded => FND_API.G_FALSE
4402: , p_count => x_msg_count
4403: , p_data => x_msg_data
4404: );
4406: x_return_status := FND_API.G_RET_STS_ERROR;
4407: RAISE;
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4410: FND_MSG_PUB.Count_And_Get
4411: ( p_encoded => FND_API.G_FALSE
4412: , p_count => x_msg_count
4413: , p_data => x_msg_data
4414: );
4451:
4452: l_count number;
4453:
4454: begin
4455: FND_MSG_PUB.Initialize;
4456: x_return_status := FND_API.G_RET_STS_SUCCESS;
4457: SAVEPOINT BscKpiPvt_DelKPIDefVals;
4458: -- Check that valid id was entered.
4459: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
4462: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4463: if l_count = 0 then
4464: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4465: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4466: FND_MSG_PUB.ADD;
4467: RAISE FND_API.G_EXC_ERROR;
4468: end if;
4469: else
4470: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4468: end if;
4469: else
4470: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4471: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4472: FND_MSG_PUB.ADD;
4473: RAISE FND_API.G_EXC_ERROR;
4474: end if;
4475:
4476: delete from BSC_KPI_DEFAULTS_B
4485:
4486: EXCEPTION
4487: WHEN FND_API.G_EXC_ERROR THEN
4488: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4489: FND_MSG_PUB.Count_And_Get
4490: ( p_encoded => FND_API.G_FALSE
4491: , p_count => x_msg_count
4492: , p_data => x_msg_data
4493: );
4495: x_return_status := FND_API.G_RET_STS_ERROR;
4496: RAISE;
4497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4498: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4499: FND_MSG_PUB.Count_And_Get
4500: ( p_encoded => FND_API.G_FALSE
4501: , p_count => x_msg_count
4502: , p_data => x_msg_data
4503: );
4545: l_count number;
4546:
4547: begin
4548: --DBMS_OUTPUT.PUT_LINE('-- Begin BSC_KPI_PVT.Create_Kpi_In_Tab');
4549: FND_MSG_PUB.Initialize;
4550: x_return_status := FND_API.G_RET_STS_SUCCESS;
4551: SAVEPOINT BscKpiPvt_CrtKPIInTab;
4552: -- Assign passed records to local record.
4553: l_Bsc_Kpi_Entity_Rec := p_Bsc_Kpi_Entity_Rec;
4560: ,l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4561: if l_count = 0 then
4562: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4563: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4564: FND_MSG_PUB.ADD;
4565: RAISE FND_API.G_EXC_ERROR;
4566: end if;
4567: else
4568: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4566: end if;
4567: else
4568: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4569: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4570: FND_MSG_PUB.ADD;
4571: RAISE FND_API.G_EXC_ERROR;
4572: end if;
4573:
4574: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Create_Kpi_In_Tab - Flag 1');
4584:
4585: if l_count = 0 then
4586: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
4587: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
4588: FND_MSG_PUB.ADD;
4589: RAISE FND_API.G_EXC_ERROR;
4590: end if;
4591: else
4592: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
4590: end if;
4591: else
4592: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
4593: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
4594: FND_MSG_PUB.ADD;
4595: RAISE FND_API.G_EXC_ERROR;
4596: end if;
4597: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Create_Kpi_In_Tab - Flag 4');
4598:
4695:
4696: EXCEPTION
4697: WHEN FND_API.G_EXC_ERROR THEN
4698: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4699: FND_MSG_PUB.Count_And_Get
4700: ( p_encoded => FND_API.G_FALSE
4701: , p_count => x_msg_count
4702: , p_data => x_msg_data
4703: );
4705: x_return_status := FND_API.G_RET_STS_ERROR;
4706: RAISE;
4707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4708: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4709: FND_MSG_PUB.Count_And_Get
4710: ( p_encoded => FND_API.G_FALSE
4711: , p_count => x_msg_count
4712: , p_data => x_msg_data
4713: );
4729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4730: if (SQLCODE = -01400) then
4731: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
4732: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4733: FND_MSG_PUB.ADD;
4734: RAISE FND_API.G_EXC_ERROR;
4735: end if;
4736: IF (x_msg_data IS NOT NULL) THEN
4737: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_In_Tab ';
4756:
4757: l_db_object varchar2(30);
4758:
4759: begin
4760: FND_MSG_PUB.Initialize;
4761: x_return_status := FND_API.G_RET_STS_SUCCESS;
4762: l_db_object := 'Retrieve_Kpi_In_Tab';
4763:
4764: select distinct tab_id
4787: end if;
4788:
4789: EXCEPTION
4790: WHEN FND_API.G_EXC_ERROR THEN
4791: FND_MSG_PUB.Count_And_Get
4792: ( p_encoded => FND_API.G_FALSE
4793: , p_count => x_msg_count
4794: , p_data => x_msg_data
4795: );
4796: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4797: x_return_status := FND_API.G_RET_STS_ERROR;
4798: RAISE;
4799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4800: FND_MSG_PUB.Count_And_Get
4801: ( p_encoded => FND_API.G_FALSE
4802: , p_count => x_msg_count
4803: , p_data => x_msg_data
4804: );
4807: RAISE;
4808: WHEN NO_DATA_FOUND THEN
4809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4810: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4811: FND_MSG_PUB.Initialize;
4812: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
4813: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4814: FND_MSG_PUB.ADD;
4815: RAISE FND_API.G_EXC_ERROR;
4810: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4811: FND_MSG_PUB.Initialize;
4812: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
4813: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4814: FND_MSG_PUB.ADD;
4815: RAISE FND_API.G_EXC_ERROR;
4816: WHEN OTHERS THEN
4817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4818: IF (x_msg_data IS NOT NULL) THEN
4837:
4838: l_count number;
4839:
4840: begin
4841: FND_MSG_PUB.Initialize;
4842: x_return_status := FND_API.G_RET_STS_SUCCESS;
4843: SAVEPOINT BscKpiPvt_UpdKPIInTab;
4844: --DBMS_OUTPUT.PUT_LINE(' -- Begin BSC_KPI_PVT.Update_Kpi_In_Tab');
4845:
4850: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4851: if l_count = 0 then
4852: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4853: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4854: FND_MSG_PUB.ADD;
4855: RAISE FND_API.G_EXC_ERROR;
4856: end if;
4857: else
4858: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4856: end if;
4857: else
4858: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4859: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4860: FND_MSG_PUB.ADD;
4861: RAISE FND_API.G_EXC_ERROR;
4862: end if;
4863:
4864: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Update_Kpi_In_Tab - Flag 1');
4900:
4901: EXCEPTION
4902: WHEN FND_API.G_EXC_ERROR THEN
4903: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4904: FND_MSG_PUB.Count_And_Get
4905: ( p_encoded => FND_API.G_FALSE
4906: , p_count => x_msg_count
4907: , p_data => x_msg_data
4908: );
4910: x_return_status := FND_API.G_RET_STS_ERROR;
4911: RAISE;
4912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4913: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4914: FND_MSG_PUB.Count_And_Get
4915: ( p_encoded => FND_API.G_FALSE
4916: , p_count => x_msg_count
4917: , p_data => x_msg_data
4918: );
4955:
4956: l_count number;
4957:
4958: begin
4959: FND_MSG_PUB.Initialize;
4960: x_return_status := FND_API.G_RET_STS_SUCCESS;
4961: SAVEPOINT BscKpiPvt_DelKPIInTab;
4962: -- Check that valid id was entered.
4963: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
4966: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4967: if l_count = 0 then
4968: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4969: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4970: FND_MSG_PUB.ADD;
4971: RAISE FND_API.G_EXC_ERROR;
4972: end if;
4973: else
4974: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4972: end if;
4973: else
4974: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4975: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4976: FND_MSG_PUB.ADD;
4977: RAISE FND_API.G_EXC_ERROR;
4978: end if;
4979:
4980: delete from BSC_TAB_INDICATORS
4988:
4989: EXCEPTION
4990: WHEN FND_API.G_EXC_ERROR THEN
4991: ROLLBACK TO BscKpiPvt_DelKPIInTab;
4992: FND_MSG_PUB.Count_And_Get
4993: ( p_encoded => FND_API.G_FALSE
4994: , p_count => x_msg_count
4995: , p_data => x_msg_data
4996: );
4998: x_return_status := FND_API.G_RET_STS_ERROR;
4999: RAISE;
5000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5001: ROLLBACK TO BscKpiPvt_DelKPIInTab;
5002: FND_MSG_PUB.Count_And_Get
5003: ( p_encoded => FND_API.G_FALSE
5004: , p_count => x_msg_count
5005: , p_data => x_msg_data
5006: );
5041: ,x_msg_data OUT NOCOPY varchar2
5042: ) is
5043:
5044: begin
5045: FND_MSG_PUB.Initialize;
5046: x_return_status := FND_API.G_RET_STS_SUCCESS;
5047: SAVEPOINT BscKpiPvt_UptKPITimSta;
5048: update BSC_KPIS_B
5049: set last_update_date = sysdate
5055:
5056: EXCEPTION
5057: WHEN FND_API.G_EXC_ERROR THEN
5058: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5059: FND_MSG_PUB.Count_And_Get
5060: ( p_encoded => FND_API.G_FALSE
5061: , p_count => x_msg_count
5062: , p_data => x_msg_data
5063: );
5065: x_return_status := FND_API.G_RET_STS_ERROR;
5066: RAISE;
5067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5068: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5069: FND_MSG_PUB.Count_And_Get
5070: ( p_encoded => FND_API.G_FALSE
5071: , p_count => x_msg_count
5072: , p_data => x_msg_data
5073: );
5119: l_opt_id varchar2(5);
5120:
5121:
5122: begin
5123: FND_MSG_PUB.Initialize;
5124: x_return_status := FND_API.G_RET_STS_SUCCESS;
5125: SAVEPOINT BscKpiPvt_CrtMastKPI;
5126: --DBMS_OUTPUT.PUT_LINE('-- Begin BSC_KPI_PVT.Create_Master_Kpi');
5127:
5132: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
5133: if l_count = 0 then
5134: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
5135: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
5136: FND_MSG_PUB.ADD;
5137: RAISE FND_API.G_EXC_ERROR;
5138: end if;
5139: else
5140: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
5138: end if;
5139: else
5140: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
5141: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
5142: FND_MSG_PUB.ADD;
5143: RAISE FND_API.G_EXC_ERROR;
5144: end if;
5145:
5146: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Create_Master_Kpi Flag 1');
5156:
5157: if l_count = 0 then
5158: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
5159: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
5160: FND_MSG_PUB.ADD;
5161: RAISE FND_API.G_EXC_ERROR;
5162: end if;
5163: else
5164: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
5162: end if;
5163: else
5164: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
5165: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
5166: FND_MSG_PUB.ADD;
5167: RAISE FND_API.G_EXC_ERROR;
5168: end if;
5169: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Create_Master_Kpi Flag 4');
5170:
5217:
5218: EXCEPTION
5219: WHEN FND_API.G_EXC_ERROR THEN
5220: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5221: FND_MSG_PUB.Count_And_Get
5222: ( p_encoded => FND_API.G_FALSE
5223: , p_count => x_msg_count
5224: , p_data => x_msg_data
5225: );
5227: x_return_status := FND_API.G_RET_STS_ERROR;
5228: RAISE;
5229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5230: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5231: FND_MSG_PUB.Count_And_Get
5232: ( p_encoded => FND_API.G_FALSE
5233: , p_count => x_msg_count
5234: , p_data => x_msg_data
5235: );
5307: l_short_name BSC_KPIS_B.short_name%TYPE;
5308:
5309:
5310: begin
5311: FND_MSG_PUB.Initialize;
5312: x_return_status := FND_API.G_RET_STS_SUCCESS;
5313: SAVEPOINT BscKpiPvt_CrtShaKPI;
5314: --DBMS_OUTPUT.PUT_LINE('-- Begin BSC_KPI_PVT.Create_Shared_Kpi');
5315:
5349:
5350: if l_count = 0 then
5351: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KGROUP_ID');
5352: FND_MESSAGE.SET_TOKEN('BSC_KGROUP',l_x_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id);
5353: FND_MSG_PUB.ADD;
5354: RAISE FND_API.G_EXC_ERROR;
5355: end if;
5356: else
5357: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KGROUP_ID_ENTERED');
5354: RAISE FND_API.G_EXC_ERROR;
5355: end if;
5356: else
5357: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KGROUP_ID_ENTERED');
5358: FND_MSG_PUB.ADD;
5359: RAISE FND_API.G_EXC_ERROR;
5360: end if;
5361: l_x_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Share_Flag := 2;
5362: Create_Kpi( p_commit
5527:
5528: EXCEPTION
5529: WHEN FND_API.G_EXC_ERROR THEN
5530: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5531: FND_MSG_PUB.Count_And_Get
5532: ( p_encoded => FND_API.G_FALSE
5533: , p_count => x_msg_count
5534: , p_data => x_msg_data
5535: );
5537: x_return_status := FND_API.G_RET_STS_ERROR;
5538: RAISE;
5539: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5540: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5541: FND_MSG_PUB.Count_And_Get
5542: ( p_encoded => FND_API.G_FALSE
5543: , p_count => x_msg_count
5544: , p_data => x_msg_data
5545: );
5588:
5589: l_sql varchar2(2000);
5590:
5591: begin
5592: FND_MSG_PUB.Initialize;
5593: x_return_status := FND_API.G_RET_STS_SUCCESS;
5594: SAVEPOINT BscKpiPvt_MoveTab;
5595: -- Check that valid id was entered.
5596: if p_tab_id is not null then
5599: ,p_tab_id);
5600: if l_cnt = 0 then
5601: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
5602: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_tab_id);
5603: FND_MSG_PUB.ADD;
5604: RAISE FND_API.G_EXC_ERROR;
5605: end if;
5606: else
5607: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
5605: end if;
5606: else
5607: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
5608: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_tab_id);
5609: FND_MSG_PUB.ADD;
5610: RAISE FND_API.G_EXC_ERROR;
5611: end if;
5612:
5613: l_sql := 'select distinct tab_id, tab_index ' ||
5636:
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_ERROR THEN
5639: ROLLBACK TO BscKpiPvt_MoveTab;
5640: FND_MSG_PUB.Count_And_Get
5641: ( p_encoded => FND_API.G_FALSE
5642: , p_count => x_msg_count
5643: , p_data => x_msg_data
5644: );
5646: x_return_status := FND_API.G_RET_STS_ERROR;
5647: RAISE;
5648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5649: ROLLBACK TO BscKpiPvt_MoveTab;
5650: FND_MSG_PUB.Count_And_Get
5651: ( p_encoded => FND_API.G_FALSE
5652: , p_count => x_msg_count
5653: , p_data => x_msg_data
5654: );
5780: WHERE SOURCE_INDICATOR = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_id
5781: AND PROTOTYPE_FLAG <> BSC_KPI_PUB.Delete_Kpi_Flag;
5782:
5783: begin
5784: FND_MSG_PUB.Initialize;
5785: x_return_status := FND_API.G_RET_STS_SUCCESS;
5786: l_Bsc_Kpi_Entity_Rec := p_Bsc_Kpi_Entity_Rec;
5787: SAVEPOINT BscKpiPvt_SetDefOption;
5788: -- First step is to see if the default has been deselected. If it has, set another
5891:
5892: EXCEPTION
5893: WHEN FND_API.G_EXC_ERROR THEN
5894: ROLLBACK TO BscKpiPvt_SetDefOption;
5895: FND_MSG_PUB.Count_And_Get
5896: ( p_encoded => FND_API.G_FALSE
5897: , p_count => x_msg_count
5898: , p_data => x_msg_data
5899: );
5901: x_return_status := FND_API.G_RET_STS_ERROR;
5902: RAISE;
5903: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5904: ROLLBACK TO BscKpiPvt_SetDefOption;
5905: FND_MSG_PUB.Count_And_Get
5906: ( p_encoded => FND_API.G_FALSE
5907: , p_count => x_msg_count
5908: , p_data => x_msg_data
5909: );
6115: l_dependency1_flag number;
6116: l_dependency2_flag number;
6117:
6118: begin
6119: FND_MSG_PUB.Initialize;
6120: x_return_status := FND_API.G_RET_STS_SUCCESS;
6121: SAVEPOINT BscKpiPvt_SetDefOptionMG;
6122: -- Get the source indicator for this shared kpi.
6123: SELECT Source_Indicator, Prototype_Flag
6266:
6267: EXCEPTION
6268: WHEN FND_API.G_EXC_ERROR THEN
6269: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6270: FND_MSG_PUB.Count_And_Get
6271: ( p_encoded => FND_API.G_FALSE
6272: , p_count => x_msg_count
6273: , p_data => x_msg_data
6274: );
6276: x_return_status := FND_API.G_RET_STS_ERROR;
6277: RAISE;
6278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6279: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6280: FND_MSG_PUB.Count_And_Get
6281: ( p_encoded => FND_API.G_FALSE
6282: , p_count => x_msg_count
6283: , p_data => x_msg_data
6284: );
6322: l_grandparent_option_id number;
6323: l_Bsc_kpi_Entity_Rec BSC_KPI_PUB.Bsc_kpi_Entity_Rec;
6324:
6325: Begin
6326: FND_MSG_PUB.Initialize;
6327: x_return_status := FND_API.G_RET_STS_SUCCESS;
6328: SAVEPOINT BscKpiPvt_AssAnaOpts;
6329: --DBMS_OUTPUT.PUT_LINE('Begin BSC_KPI_PVT.Assign_Analysis_Option');
6330:
6383:
6384: EXCEPTION
6385: WHEN FND_API.G_EXC_ERROR THEN
6386: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6387: FND_MSG_PUB.Count_And_Get
6388: ( p_encoded => FND_API.G_FALSE
6389: , p_count => x_msg_count
6390: , p_data => x_msg_data
6391: );
6393: x_return_status := FND_API.G_RET_STS_ERROR;
6394: RAISE;
6395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6396: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6397: FND_MSG_PUB.Count_And_Get
6398: ( p_encoded => FND_API.G_FALSE
6399: , p_count => x_msg_count
6400: , p_data => x_msg_data
6401: );
6438: l_grandparent_option_id number;
6439: l_count number;
6440: l_Bsc_kpi_Entity_Rec BSC_KPI_PUB.Bsc_kpi_Entity_Rec;
6441: Begin
6442: FND_MSG_PUB.Initialize;
6443: x_return_status := FND_API.G_RET_STS_SUCCESS;
6444: SAVEPOINT BscKpiPvt_UnAssAnaOpts;
6445: --DBMS_OUTPUT.PUT_LINE('Begin BSC_KPI_PVT.Unassign_Analysis_Option');
6446:
6515:
6516: EXCEPTION
6517: WHEN FND_API.G_EXC_ERROR THEN
6518: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6519: FND_MSG_PUB.Count_And_Get
6520: ( p_encoded => FND_API.G_FALSE
6521: , p_count => x_msg_count
6522: , p_data => x_msg_data
6523: );
6525: x_return_status := FND_API.G_RET_STS_ERROR;
6526: RAISE;
6527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6528: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6529: FND_MSG_PUB.Count_And_Get
6530: ( p_encoded => FND_API.G_FALSE
6531: , p_count => x_msg_count
6532: , p_data => x_msg_data
6533: );
6573: l_count number;
6574: l_Bsc_kpi_Entity_Rec BSC_KPI_PUB.Bsc_kpi_Entity_Rec;
6575: l_temp varchar2(5);
6576: Begin
6577: FND_MSG_PUB.Initialize;
6578: x_return_status := FND_API.G_RET_STS_SUCCESS;
6579: -- p_Bsc_kpi_Entity_Rec.Bsc_kpi_Id
6580: -- p_Bsc_kpi_Entity_Rec.Bsc_kpi_Group_Id
6581: -- p_Bsc_kpi_Entity_Rec.Bsc_Dependency_Flag
6644: return l_temp ;
6645:
6646: EXCEPTION
6647: WHEN FND_API.G_EXC_ERROR THEN
6648: FND_MSG_PUB.Count_And_Get
6649: ( p_encoded => FND_API.G_FALSE
6650: , p_count => x_msg_count
6651: , p_data => x_msg_data
6652: );
6653: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6654: x_return_status := FND_API.G_RET_STS_ERROR;
6655: RAISE;
6656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6657: FND_MSG_PUB.Count_And_Get
6658: ( p_encoded => FND_API.G_FALSE
6659: , p_count => x_msg_count
6660: , p_data => x_msg_data
6661: );
6700: l_child_analysis_group number;
6701: l_temp varchar2(5);
6702:
6703: Begin
6704: FND_MSG_PUB.Initialize;
6705: x_return_status := FND_API.G_RET_STS_SUCCESS;
6706:
6707: --DBMS_OUTPUT.PUT_LINE('Begin BSC_KPI_PVT.Is_Leaf_Analysis_Option ');
6708:
6783: return l_temp ;
6784:
6785: EXCEPTION
6786: WHEN FND_API.G_EXC_ERROR THEN
6787: FND_MSG_PUB.Count_And_Get
6788: ( p_encoded => FND_API.G_FALSE
6789: , p_count => x_msg_count
6790: , p_data => x_msg_data
6791: );
6792: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6793: x_return_status := FND_API.G_RET_STS_ERROR;
6794: RAISE;
6795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6796: FND_MSG_PUB.Count_And_Get
6797: ( p_encoded => FND_API.G_FALSE
6798: , p_count => x_msg_count
6799: , p_data => x_msg_data
6800: );
6839:
6840: l_count NUMBER;
6841:
6842: BEGIN
6843: FND_MSG_PUB.Initialize;
6844: x_return_status := FND_API.G_RET_STS_SUCCESS;
6845: SAVEPOINT DelIndCauseEffectRels;
6846: -- Check that valid id was entered.
6847: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
6852:
6853: IF (l_count = 0) THEN
6854: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
6855: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6856: FND_MSG_PUB.ADD;
6857: RAISE FND_API.G_EXC_ERROR;
6858: END IF;
6859: ELSE
6860: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
6858: END IF;
6859: ELSE
6860: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
6861: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6862: FND_MSG_PUB.ADD;
6863: RAISE FND_API.G_EXC_ERROR;
6864: END IF;
6865:
6866: DELETE
6882:
6883: EXCEPTION
6884: WHEN FND_API.G_EXC_ERROR THEN
6885: ROLLBACK TO DelIndCauseEffectRels;
6886: FND_MSG_PUB.Count_And_Get
6887: ( p_encoded => FND_API.G_FALSE
6888: , p_count => x_msg_count
6889: , p_data => x_msg_data
6890: );
6892: x_return_status := FND_API.G_RET_STS_ERROR;
6893: RAISE;
6894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6895: ROLLBACK TO DelIndCauseEffectRels;
6896: FND_MSG_PUB.Count_And_Get
6897: ( p_encoded => FND_API.G_FALSE
6898: , p_count => x_msg_count
6899: , p_data => x_msg_data
6900: );
6942:
6943: l_count NUMBER;
6944:
6945: BEGIN
6946: FND_MSG_PUB.Initialize;
6947: x_return_status := FND_API.G_RET_STS_SUCCESS;
6948: SAVEPOINT DeleteIndShellCmds;
6949:
6950: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
6955:
6956: IF (l_count = 0) THEN
6957: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
6958: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6959: FND_MSG_PUB.ADD;
6960: RAISE FND_API.G_EXC_ERROR;
6961: END IF;
6962: ELSE
6963: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
6961: END IF;
6962: ELSE
6963: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
6964: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6965: FND_MSG_PUB.ADD;
6966: RAISE FND_API.G_EXC_ERROR;
6967: END IF;
6968:
6969: DELETE
6981:
6982: EXCEPTION
6983: WHEN FND_API.G_EXC_ERROR THEN
6984: ROLLBACK TO DeleteIndShellCmds;
6985: FND_MSG_PUB.Count_And_Get
6986: ( p_encoded => FND_API.G_FALSE
6987: , p_count => x_msg_count
6988: , p_data => x_msg_data
6989: );
6991: x_return_status := FND_API.G_RET_STS_ERROR;
6992: RAISE;
6993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6994: ROLLBACK TO DeleteIndShellCmds;
6995: FND_MSG_PUB.Count_And_Get
6996: ( p_encoded => FND_API.G_FALSE
6997: , p_count => x_msg_count
6998: , p_data => x_msg_data
6999: );
7041:
7042: l_count NUMBER;
7043:
7044: BEGIN
7045: FND_MSG_PUB.Initialize;
7046: x_return_status := FND_API.G_RET_STS_SUCCESS;
7047: SAVEPOINT DeleteIndMMControls;
7048:
7049: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7054:
7055: IF (l_count = 0) THEN
7056: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7057: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7058: FND_MSG_PUB.ADD;
7059: RAISE FND_API.G_EXC_ERROR;
7060: END IF;
7061: ELSE
7062: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7060: END IF;
7061: ELSE
7062: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7063: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7064: FND_MSG_PUB.ADD;
7065: RAISE FND_API.G_EXC_ERROR;
7066: END IF;
7067:
7068: DELETE
7076:
7077: EXCEPTION
7078: WHEN FND_API.G_EXC_ERROR THEN
7079: ROLLBACK TO DeleteIndMMControls;
7080: FND_MSG_PUB.Count_And_Get
7081: ( p_encoded => FND_API.G_FALSE
7082: , p_count => x_msg_count
7083: , p_data => x_msg_data
7084: );
7086: x_return_status := FND_API.G_RET_STS_ERROR;
7087: RAISE;
7088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7089: ROLLBACK TO DeleteIndMMControls;
7090: FND_MSG_PUB.Count_And_Get
7091: ( p_encoded => FND_API.G_FALSE
7092: , p_count => x_msg_count
7093: , p_data => x_msg_data
7094: );
7134:
7135: l_count NUMBER;
7136:
7137: BEGIN
7138: FND_MSG_PUB.Initialize;
7139: x_return_status := FND_API.G_RET_STS_SUCCESS;
7140: SAVEPOINT DeleteIndSubtitles;
7141:
7142: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7147:
7148: IF (l_count = 0) THEN
7149: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7150: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7151: FND_MSG_PUB.ADD;
7152: RAISE FND_API.G_EXC_ERROR;
7153: END IF;
7154: ELSE
7155: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7153: END IF;
7154: ELSE
7155: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7156: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7157: FND_MSG_PUB.ADD;
7158: RAISE FND_API.G_EXC_ERROR;
7159: END IF;
7160:
7161: DELETE
7169:
7170: EXCEPTION
7171: WHEN FND_API.G_EXC_ERROR THEN
7172: ROLLBACK TO DeleteIndSubtitles;
7173: FND_MSG_PUB.Count_And_Get
7174: ( p_encoded => FND_API.G_FALSE
7175: , p_count => x_msg_count
7176: , p_data => x_msg_data
7177: );
7179: x_return_status := FND_API.G_RET_STS_ERROR;
7180: RAISE;
7181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7182: ROLLBACK TO DeleteIndSubtitles;
7183: FND_MSG_PUB.Count_And_Get
7184: ( p_encoded => FND_API.G_FALSE
7185: , p_count => x_msg_count
7186: , p_data => x_msg_data
7187: );
7228:
7229: l_count NUMBER;
7230:
7231: BEGIN
7232: FND_MSG_PUB.Initialize;
7233: x_return_status := FND_API.G_RET_STS_SUCCESS;
7234: SAVEPOINT DeleteIndSeriesColors;
7235:
7236: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7241:
7242: IF (l_count = 0) THEN
7243: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7244: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7245: FND_MSG_PUB.ADD;
7246: RAISE FND_API.G_EXC_ERROR;
7247: END IF;
7248: ELSE
7249: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7247: END IF;
7248: ELSE
7249: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7250: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7251: FND_MSG_PUB.ADD;
7252: RAISE FND_API.G_EXC_ERROR;
7253: END IF;
7254:
7255: DELETE
7263:
7264: EXCEPTION
7265: WHEN FND_API.G_EXC_ERROR THEN
7266: ROLLBACK TO DeleteIndSeriesColors;
7267: FND_MSG_PUB.Count_And_Get
7268: ( p_encoded => FND_API.G_FALSE
7269: , p_count => x_msg_count
7270: , p_data => x_msg_data
7271: );
7273: x_return_status := FND_API.G_RET_STS_ERROR;
7274: RAISE;
7275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7276: ROLLBACK TO DeleteIndSeriesColors;
7277: FND_MSG_PUB.Count_And_Get
7278: ( p_encoded => FND_API.G_FALSE
7279: , p_count => x_msg_count
7280: , p_data => x_msg_data
7281: );
7322:
7323: l_count NUMBER;
7324:
7325: BEGIN
7326: FND_MSG_PUB.Initialize;
7327: x_return_status := FND_API.G_RET_STS_SUCCESS;
7328: SAVEPOINT DeleteIndImages;
7329:
7330: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7335:
7336: IF (l_count = 0) THEN
7337: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7338: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7339: FND_MSG_PUB.ADD;
7340: RAISE FND_API.G_EXC_ERROR;
7341: END IF;
7342: ELSE
7343: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7341: END IF;
7342: ELSE
7343: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7344: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7345: FND_MSG_PUB.ADD;
7346: RAISE FND_API.G_EXC_ERROR;
7347: END IF;
7348:
7349: DELETE
7368:
7369: EXCEPTION
7370: WHEN FND_API.G_EXC_ERROR THEN
7371: ROLLBACK TO DeleteIndImages;
7372: FND_MSG_PUB.Count_And_Get
7373: ( p_encoded => FND_API.G_FALSE
7374: , p_count => x_msg_count
7375: , p_data => x_msg_data
7376: );
7378: x_return_status := FND_API.G_RET_STS_ERROR;
7379: RAISE;
7380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7381: ROLLBACK TO DeleteIndImages;
7382: FND_MSG_PUB.Count_And_Get
7383: ( p_encoded => FND_API.G_FALSE
7384: , p_count => x_msg_count
7385: , p_data => x_msg_data
7386: );
7427:
7428: l_count NUMBER;
7429:
7430: BEGIN
7431: FND_MSG_PUB.Initialize;
7432: x_return_status := FND_API.G_RET_STS_SUCCESS;
7433: SAVEPOINT DeleteIndSysProp;
7434:
7435: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7440:
7441: IF (l_count = 0) THEN
7442: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7443: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7444: FND_MSG_PUB.ADD;
7445: RAISE FND_API.G_EXC_ERROR;
7446: END IF;
7447: ELSE
7448: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7446: END IF;
7447: ELSE
7448: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7449: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7450: FND_MSG_PUB.ADD;
7451: RAISE FND_API.G_EXC_ERROR;
7452: END IF;
7453:
7454: DELETE
7490:
7491: EXCEPTION
7492: WHEN FND_API.G_EXC_ERROR THEN
7493: ROLLBACK TO DeleteIndSysProp;
7494: FND_MSG_PUB.Count_And_Get
7495: ( p_encoded => FND_API.G_FALSE
7496: , p_count => x_msg_count
7497: , p_data => x_msg_data
7498: );
7500: x_return_status := FND_API.G_RET_STS_ERROR;
7501: RAISE;
7502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7503: ROLLBACK TO DeleteIndSysProp;
7504: FND_MSG_PUB.Count_And_Get
7505: ( p_encoded => FND_API.G_FALSE
7506: , p_count => x_msg_count
7507: , p_data => x_msg_data
7508: );
7549:
7550: l_count NUMBER;
7551:
7552: BEGIN
7553: FND_MSG_PUB.Initialize;
7554: x_return_status := FND_API.G_RET_STS_SUCCESS;
7555: SAVEPOINT DeleteIndComments;
7556:
7557: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7562:
7563: IF (l_count = 0) THEN
7564: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7565: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7566: FND_MSG_PUB.ADD;
7567: RAISE FND_API.G_EXC_ERROR;
7568: END IF;
7569: ELSE
7570: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7568: END IF;
7569: ELSE
7570: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7571: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7572: FND_MSG_PUB.ADD;
7573: RAISE FND_API.G_EXC_ERROR;
7574: END IF;
7575:
7576: DELETE
7584:
7585: EXCEPTION
7586: WHEN FND_API.G_EXC_ERROR THEN
7587: ROLLBACK TO DeleteIndComments;
7588: FND_MSG_PUB.Count_And_Get
7589: ( p_encoded => FND_API.G_FALSE
7590: , p_count => x_msg_count
7591: , p_data => x_msg_data
7592: );
7594: x_return_status := FND_API.G_RET_STS_ERROR;
7595: RAISE;
7596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7597: ROLLBACK TO DeleteIndComments;
7598: FND_MSG_PUB.Count_And_Get
7599: ( p_encoded => FND_API.G_FALSE
7600: , p_count => x_msg_count
7601: , p_data => x_msg_data
7602: );
7642:
7643: l_count NUMBER;
7644:
7645: BEGIN
7646: FND_MSG_PUB.Initialize;
7647: x_return_status := FND_API.G_RET_STS_SUCCESS;
7648: SAVEPOINT DeleteIndTreeNodes;
7649:
7650: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7655:
7656: IF (l_count = 0) THEN
7657: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7658: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7659: FND_MSG_PUB.ADD;
7660: RAISE FND_API.G_EXC_ERROR;
7661: END IF;
7662: ELSE
7663: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7661: END IF;
7662: ELSE
7663: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7664: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7665: FND_MSG_PUB.ADD;
7666: RAISE FND_API.G_EXC_ERROR;
7667: END IF;
7668:
7669: DELETE
7681:
7682: EXCEPTION
7683: WHEN FND_API.G_EXC_ERROR THEN
7684: ROLLBACK TO DeleteIndTreeNodes;
7685: FND_MSG_PUB.Count_And_Get
7686: ( p_encoded => FND_API.G_FALSE
7687: , p_count => x_msg_count
7688: , p_data => x_msg_data
7689: );
7691: x_return_status := FND_API.G_RET_STS_ERROR;
7692: RAISE;
7693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7694: ROLLBACK TO DeleteIndTreeNodes;
7695: FND_MSG_PUB.Count_And_Get
7696: ( p_encoded => FND_API.G_FALSE
7697: , p_count => x_msg_count
7698: , p_data => x_msg_data
7699: );
7740:
7741: l_count NUMBER;
7742:
7743: BEGIN
7744: FND_MSG_PUB.Initialize;
7745: x_return_status := FND_API.G_RET_STS_SUCCESS;
7746: SAVEPOINT DeleteIndUserAccess;
7747:
7748: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7753:
7754: IF (l_count = 0) THEN
7755: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7756: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7757: FND_MSG_PUB.ADD;
7758: RAISE FND_API.G_EXC_ERROR;
7759: END IF;
7760: ELSE
7761: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7759: END IF;
7760: ELSE
7761: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7762: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7763: FND_MSG_PUB.ADD;
7764: RAISE FND_API.G_EXC_ERROR;
7765: END IF;
7766:
7767: DELETE
7775:
7776: EXCEPTION
7777: WHEN FND_API.G_EXC_ERROR THEN
7778: ROLLBACK TO DeleteIndUserAccess;
7779: FND_MSG_PUB.Count_And_Get
7780: ( p_encoded => FND_API.G_FALSE
7781: , p_count => x_msg_count
7782: , p_data => x_msg_data
7783: );
7785: x_return_status := FND_API.G_RET_STS_ERROR;
7786: RAISE;
7787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7788: ROLLBACK TO DeleteIndUserAccess;
7789: FND_MSG_PUB.Count_And_Get
7790: ( p_encoded => FND_API.G_FALSE
7791: , p_count => x_msg_count
7792: , p_data => x_msg_data
7793: );
7845: FROM BSC_SYS_IMAGES_MAP_TL
7846: );
7847:
7848: BEGIN
7849: FND_MSG_PUB.Initialize;
7850: x_return_status := FND_API.G_RET_STS_SUCCESS;
7851: SAVEPOINT DeleteSimTreeData;
7852:
7853: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7858:
7859: IF (l_count = 0) THEN
7860: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7861: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7862: FND_MSG_PUB.ADD;
7863: RAISE FND_API.G_EXC_ERROR;
7864: END IF;
7865: ELSE
7866: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7864: END IF;
7865: ELSE
7866: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7867: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7868: FND_MSG_PUB.ADD;
7869: RAISE FND_API.G_EXC_ERROR;
7870: END IF;
7871:
7872:
7961:
7962: EXCEPTION
7963: WHEN FND_API.G_EXC_ERROR THEN
7964: ROLLBACK TO DeleteSimTreeData;
7965: FND_MSG_PUB.Count_And_Get
7966: ( p_encoded => FND_API.G_FALSE
7967: , p_count => x_msg_count
7968: , p_data => x_msg_data
7969: );
7971: x_return_status := FND_API.G_RET_STS_ERROR;
7972: RAISE;
7973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7974: ROLLBACK TO DeleteSimTreeData;
7975: FND_MSG_PUB.Count_And_Get
7976: ( p_encoded => FND_API.G_FALSE
7977: , p_count => x_msg_count
7978: , p_data => x_msg_data
7979: );