[Home] [Help]
281: l_Param_Region_Application_Id AK_REGIONS.REGION_APPLICATION_ID%TYPE;
282:
283: BEGIN
284: SAVEPOINT CreateEndToEndKPI;
285: FND_MSG_PUB.Initialize;
286:
287: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
288:
289: IF (p_Param_Portlet_Region_Code IS NULL) THEN
287: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
288:
289: IF (p_Param_Portlet_Region_Code IS NULL) THEN
290: FND_MESSAGE.SET_NAME('BSC','BSC_NO_PARAM_PORTLET');
291: FND_MSG_PUB.ADD;
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: END IF;
294:
295: -- added for Bug#4558279
352:
353:
354: IF (x_Measure_Short_Name IS NULL) THEN
355: FND_MESSAGE.SET_NAME('BSC','BSC_DIP_MEASURE_SNAME_IS_NULL');
356: FND_MSG_PUB.ADD;
357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
358: END IF;
359:
360: -- Get the KPI Associated
419: EXCEPTION
420: WHEN FND_API.G_EXC_ERROR THEN
421: ROLLBACK TO CreateEndToEndKPI;
422: IF (x_msg_data IS NULL) THEN
423: FND_MSG_PUB.Count_And_Get
424: ( p_encoded => FND_API.G_FALSE
425: , p_count => x_msg_count
426: , p_data => x_msg_data
427: );
429: x_Return_Status := FND_API.G_RET_STS_ERROR;
430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
431: ROLLBACK TO CreateEndToEndKPI;
432: IF (x_msg_data IS NULL) THEN
433: FND_MSG_PUB.Count_And_Get
434: ( p_encoded => FND_API.G_FALSE
435: , p_count => x_msg_count
436: , p_data => x_msg_data
437: );
517: BEGIN
518:
519: SAVEPOINT UpdateEndToEndKPI;
520: -- Initialize the Messaging
521: FND_MSG_PUB.Initialize;
522: x_return_status := FND_API.G_RET_STS_SUCCESS;
523:
524: -- Get the KPI ID from the Measure Short_Name (Bug#3766839)
525: l_Kpi_Id := NVL(BSC_BIS_KPI_CRUD_PUB.Get_Objective_By_Kpi(p_Measure_Short_Name),
531: -- check if the KPI is in production mode, if yes throw and exception
532:
533: IF (p_Param_Portlet_Region_Code IS NULL) THEN
534: FND_MESSAGE.SET_NAME('BSC','BSC_NO_PARAM_PORTLET');
535: FND_MSG_PUB.ADD;
536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
537: END IF;
538:
539: --DBMS_OUTPUT.PUT_LINE('is_Indicator_In_Production');
557: );
558: IF (x_Msg_Data IS NOT NULL) THEN
559: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_REG_DIM_AK ');
560: FND_MESSAGE.SET_TOKEN('CODE', p_Param_Portlet_Region_Code);
561: FND_MSG_PUB.ADD;
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564:
565:
673: FND_MESSAGE.SET_NAME('BSC','BSC_ANA_OPT_NO_UPD_DEL');
674: FND_MESSAGE.SET_TOKEN('ACTION', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON','UPDATE'));
675: FND_MESSAGE.SET_TOKEN('KPI', l_Kpi_Id);
676: FND_MESSAGE.SET_TOKEN('DATASET_ID', l_Dataset_Id);
677: FND_MSG_PUB.ADD;
678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
679: END IF;
680:
681: -------------------------------------------------------
772:
773: EXCEPTION
774: WHEN FND_API.G_EXC_ERROR THEN
775: IF (x_msg_data IS NULL) THEN
776: FND_MSG_PUB.Count_And_Get
777: ( p_encoded => FND_API.G_FALSE
778: , p_count => x_msg_count
779: , p_data => x_msg_data
780: );
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: ROLLBACK TO UpdateEndToEndKPI;
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
785: IF (x_msg_data IS NULL) THEN
786: FND_MSG_PUB.Count_And_Get
787: ( p_encoded => FND_API.G_FALSE
788: , p_count => x_msg_count
789: , p_data => x_msg_data
790: );
852:
853: -- Load local variables.
854: SAVEPOINT DeleteEndToEndKPI;
855:
856: FND_MSG_PUB.Initialize;
857: x_return_status := FND_API.G_RET_STS_SUCCESS;
858:
859:
860: IF (p_Param_Portlet_Region_Code IS NULL) THEN
858:
859:
860: IF (p_Param_Portlet_Region_Code IS NULL) THEN
861: FND_MESSAGE.SET_NAME('BSC','BSC_NO_PARAM_PORTLET');
862: FND_MSG_PUB.ADD;
863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
864: END IF;
865:
866:
877: WHERE DATASET_ID = l_Dataset_Id;
878: IF l_count = 0 THEN
879: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
880: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON','EDW_MEASURE'));
881: FND_MSG_PUB.ADD;
882: RAISE FND_API.G_EXC_ERROR;
883: END IF;
884:
885: SELECT COUNT(1) INTO l_Count
887: WHERE INDICATOR = l_Kpi_Id;
888: IF l_count = 0 THEN
889: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
890: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON','KPI'));
891: FND_MSG_PUB.ADD;
892: RAISE FND_API.G_EXC_ERROR;
893: END IF;
894:
895: --DBMS_OUTPUT.PUT_LINE('Get_Num_Measures_By_Kpi -> ' || Get_Num_Measures_By_Kpi(l_Kpi_Id));
953: FND_MESSAGE.SET_NAME('BSC','BSC_ANA_OPT_NO_UPD_DEL');
954: FND_MESSAGE.SET_TOKEN('ACTION', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON','UPDATE'));
955: FND_MESSAGE.SET_TOKEN('KPI', l_kpi_Id);
956: FND_MESSAGE.SET_TOKEN('DATASET_ID', l_Dataset_Id);
957: FND_MSG_PUB.ADD;
958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
959: END IF;
960:
961:
1081: --DBMS_OUTPUT.PUT_LINE('End of Delete_Kpi_End_To_End' );
1082: EXCEPTION
1083: WHEN FND_API.G_EXC_ERROR THEN
1084: IF (x_msg_data IS NULL) THEN
1085: FND_MSG_PUB.Count_And_Get
1086: ( p_encoded => FND_API.G_FALSE
1087: , p_count => x_msg_count
1088: , p_data => x_msg_data
1089: );
1091: x_return_status := FND_API.G_RET_STS_ERROR;
1092: ROLLBACK TO DeleteEndToEndKPI;
1093: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1094: IF (x_msg_data IS NULL) THEN
1095: FND_MSG_PUB.Count_And_Get
1096: ( p_encoded => FND_API.G_FALSE
1097: , p_count => x_msg_count
1098: , p_data => x_msg_data
1099: );
1233:
1234: IF l_Dim_Id_Cnt <> 1 THEN
1235: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
1236: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME', l_dimension_grp(l_counter), TRUE);
1237: FND_MSG_PUB.ADD;
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: END IF;
1240:
1241: l_Dim_Id_Cnt := 0;
1250:
1251: -- if no dimension set, raise exception
1252: IF (l_counter = 1) THEN
1253: FND_MESSAGE.SET_NAME('BSC','BSC_NO_DIM_SET_ASSOC');
1254: FND_MSG_PUB.ADD;
1255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1256: END IF;
1257:
1258: -- decrement by one to match the actual number of elements
1265: CLOSE c_Dim;
1266: END IF;
1267:
1268: IF (x_msg_data IS NULL) THEN
1269: FND_MSG_PUB.Count_And_Get
1270: ( p_encoded => FND_API.G_FALSE
1271: , p_count => l_msg_count
1272: , p_data => x_msg_data
1273: );
1277: CLOSE c_Dim;
1278: END IF;
1279:
1280: IF (x_msg_data IS NULL) THEN
1281: FND_MSG_PUB.Count_And_Get
1282: ( p_encoded => FND_API.G_FALSE
1283: , p_count => l_msg_count
1284: , p_data => x_msg_data
1285: );
1496: --DBMS_OUTPUT.PUT_LINE('STAGE 8B1');
1497:
1498:
1499: SAVEPOINT CreateMeasureSP;
1500: FND_MSG_PUB.Initialize;
1501: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1502:
1503: --DBMS_OUTPUT.PUT_LINE('STAGE 8B1');
1504:
1577: EXCEPTION
1578: WHEN FND_API.G_EXC_ERROR THEN
1579: ROLLBACK TO CreateMeasureSP;
1580: IF (x_msg_data IS NULL) THEN
1581: FND_MSG_PUB.Count_And_Get
1582: ( p_encoded => FND_API.G_FALSE
1583: , p_count => x_msg_count
1584: , p_data => x_msg_data
1585: );
1587: x_Return_Status := FND_API.G_RET_STS_ERROR;
1588: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1589: ROLLBACK TO CreateMeasureSP;
1590: IF (x_msg_data IS NULL) THEN
1591: FND_MSG_PUB.Count_And_Get
1592: ( p_encoded => FND_API.G_FALSE
1593: , p_count => x_msg_count
1594: , p_data => x_msg_data
1595: );
1631:
1632:
1633: BEGIN
1634: SAVEPOINT AssociateKPIToAO;
1635: FND_MSG_PUB.Initialize;
1636: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1637:
1638: SELECT A.SHORT_NAME
1639: INTO l_Measure_Short_Name
1691: EXCEPTION
1692: WHEN FND_API.G_EXC_ERROR THEN
1693: ROLLBACK TO AssociateKPIToAO;
1694: IF (x_msg_data IS NULL) THEN
1695: FND_MSG_PUB.Count_And_Get
1696: ( p_encoded => FND_API.G_FALSE
1697: , p_count => x_msg_count
1698: , p_data => x_msg_data
1699: );
1701: x_Return_Status := FND_API.G_RET_STS_ERROR;
1702: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1703: ROLLBACK TO AssociateKPIToAO;
1704: IF (x_msg_data IS NULL) 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: );
1939:
1940: -- if no dimension set, raise exception
1941: IF (l_counter = 1) THEN
1942: FND_MESSAGE.SET_NAME('BSC','BSC_NO_DIM_OBJ_PARAM_PORTLET');
1943: FND_MSG_PUB.ADD;
1944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1945: END IF;
1946:
1947: x_dim_obj_list := l_dim_obj_short_names;
1951:
1952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1953: --ROLLBACK TO BSCCrtKPIWBisDimWrp;
1954: IF (x_msg_data IS NULL) THEN
1955: FND_MSG_PUB.Count_And_Get
1956: ( p_encoded => FND_API.G_FALSE
1957: , p_count => x_msg_count
1958: , p_data => x_msg_data
1959: );
2093:
2094: BEGIN
2095: x_return_status := FND_API.G_RET_STS_SUCCESS;
2096: SAVEPOINT BSCAsgnKpiPeriodicities;
2097: FND_MSG_PUB.Initialize;
2098: l_Time_Dim_obj_sns:= p_Time_Dim_obj_sns;
2099: IF (p_Time_Dim_obj_sns IS NULL AND p_Is_XTD_Enabled = FND_API.G_TRUE) THEN
2100: SELECT CALENDAR_ID
2101: INTO l_kpi_calendar_id
2151: END IF;
2152: ELSE
2153: FND_MESSAGE.SET_NAME('BSC','BSC_NO_PERIODICITY_FOUND_DL');
2154: FND_MESSAGE.SET_TOKEN('SHORT_NAME', l_Time_Dim_Obj_sh );
2155: FND_MSG_PUB.ADD;
2156: RAISE FND_API.G_EXC_ERROR;
2157: END IF;
2158: --DBMS_OUTPUT.PUT_LINE(' l_periodicity_ids = '||l_periodicity_ids);
2159: END LOOP;
2217: EXCEPTION
2218: WHEN FND_API.G_EXC_ERROR THEN
2219: ROLLBACK TO BSCAsgnKpiPeriodicities;
2220: IF (x_msg_data IS NULL) THEN
2221: FND_MSG_PUB.Count_And_Get
2222: ( p_encoded => FND_API.G_FALSE
2223: , p_count => x_msg_count
2224: , p_data => x_msg_data
2225: );
2228: x_return_status := FND_API.G_RET_STS_ERROR;
2229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2230: ROLLBACK TO BSCAsgnKpiPeriodicities;
2231: IF (x_msg_data IS NULL) THEN
2232: FND_MSG_PUB.Count_And_Get
2233: ( p_encoded => FND_API.G_FALSE
2234: , p_count => x_msg_count
2235: , p_data => x_msg_data
2236: );
2478: --DBMS_OUTPUT.PUT_LINE('return_status_for measure_region_item = ' || x_return_status);
2479: EXCEPTION
2480: WHEN FND_API.G_EXC_ERROR THEN
2481: IF (x_msg_data IS NULL) THEN
2482: FND_MSG_PUB.Count_And_Get
2483: ( p_encoded => FND_API.G_FALSE
2484: , p_count => x_msg_count
2485: , p_data => x_msg_data
2486: );
2487: END IF;
2488: x_return_status := FND_API.G_RET_STS_ERROR;
2489: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2490: IF (x_msg_data IS NULL) THEN
2491: FND_MSG_PUB.Count_And_Get
2492: ( p_encoded => FND_API.G_FALSE
2493: , p_count => x_msg_count
2494: , p_data => x_msg_data
2495: );
3000:
3001: EXCEPTION
3002: WHEN FND_API.G_EXC_ERROR THEN
3003: IF (x_msg_data IS NULL) THEN
3004: FND_MSG_PUB.Count_And_Get
3005: ( p_encoded => FND_API.G_FALSE
3006: , p_count => x_msg_count
3007: , p_data => x_msg_data
3008: );
3008: );
3009: END IF;
3010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3011: IF (x_msg_data IS NULL) THEN
3012: FND_MSG_PUB.Count_And_Get
3013: ( p_encoded => FND_API.G_FALSE
3014: , p_count => x_msg_count
3015: , p_data => x_msg_data
3016: );
3096:
3097: EXCEPTION
3098: WHEN FND_API.G_EXC_ERROR THEN
3099: IF (x_msg_data IS NULL) THEN
3100: FND_MSG_PUB.Count_And_Get
3101: ( p_encoded => FND_API.G_FALSE
3102: , p_count => x_msg_count
3103: , p_data => x_msg_data
3104: );
3104: );
3105: END IF;
3106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3107: IF (x_msg_data IS NULL) THEN
3108: FND_MSG_PUB.Count_And_Get
3109: ( p_encoded => FND_API.G_FALSE
3110: , p_count => x_msg_count
3111: , p_data => x_msg_data
3112: );
3706: l_time_counter NUMBER;
3707: l_msg_data VARCHAR2(2000);
3708: BEGIN
3709:
3710: FND_MSG_PUB.Initialize;
3711: x_return_status := FND_API.G_RET_STS_SUCCESS;
3712: l_has_comp_or_plan := BSC_BIS_KPI_CRUD_PUB.Has_Compare_To_Or_Plan (p_Param_Portlet_Region_Code);
3713:
3714: -- Create a new Nested Region Item (with Param Region Code)
4005:
4006: EXCEPTION
4007: WHEN FND_API.G_EXC_ERROR THEN
4008: IF (x_msg_data IS NULL) THEN
4009: FND_MSG_PUB.Count_And_Get
4010: ( p_encoded => FND_API.G_FALSE
4011: , p_count => x_msg_count
4012: , p_data => x_msg_data
4013: );
4013: );
4014: END IF;
4015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4016: IF (x_msg_data IS NULL) THEN
4017: FND_MSG_PUB.Count_And_Get
4018: ( p_encoded => FND_API.G_FALSE
4019: , p_count => x_msg_count
4020: , p_data => x_msg_data
4021: );
4230: AND ATTRIBUTE3 = l_Compare_Column;
4231:
4232: BEGIN
4233:
4234: FND_MSG_PUB.Initialize;
4235: x_return_status := FND_API.G_RET_STS_SUCCESS;
4236:
4237:
4238:
4364:
4365: EXCEPTION
4366: WHEN FND_API.G_EXC_ERROR THEN
4367: IF (x_msg_data IS NULL) THEN
4368: FND_MSG_PUB.Count_And_Get
4369: ( p_encoded => FND_API.G_FALSE
4370: , p_count => x_msg_count
4371: , p_data => x_msg_data
4372: );
4372: );
4373: END IF;
4374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4375: IF (x_msg_data IS NULL) THEN
4376: FND_MSG_PUB.Count_And_Get
4377: ( p_encoded => FND_API.G_FALSE
4378: , p_count => x_msg_count
4379: , p_data => x_msg_data
4380: );
4525:
4526:
4527: BEGIN
4528: SAVEPOINT KpiCrudCreateDimension;
4529: FND_MSG_PUB.Initialize;
4530: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
4531:
4532:
4533: -- Attempt to create a Dimension for the Parameter Portlet RegionCode.
4564: FETCH c_Get_Prop_Dim INTO l_Total_Flag, l_Comparison_Flag, l_Where_Clause;
4565:
4566: IF(c_Get_Prop_Dim%NOTFOUND) THEN
4567: FND_MESSAGE.SET_NAME('BSC','BSC_DIP_ERR_GET_GROUP_ID');
4568: FND_MSG_PUB.ADD;
4569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4570: END IF;
4571:
4572: CLOSE c_Get_Prop_Dim;
4610: IF (c_Get_Prop_Dim%ISOPEN) THEN
4611: CLOSE c_Get_Prop_Dim;
4612: END IF;
4613: IF (x_msg_data IS NULL) THEN
4614: FND_MSG_PUB.Count_And_Get
4615: ( p_encoded => FND_API.G_FALSE
4616: , p_count => x_msg_count
4617: , p_data => x_msg_data
4618: );
4623: IF (c_Get_Prop_Dim%ISOPEN) THEN
4624: CLOSE c_Get_Prop_Dim;
4625: END IF;
4626: IF (x_msg_data IS NULL) THEN
4627: FND_MSG_PUB.Count_And_Get
4628: ( p_encoded => FND_API.G_FALSE
4629: , p_count => x_msg_count
4630: , p_data => x_msg_data
4631: );
4687: l_Count NUMBER;
4688: l_Function_Name VARCHAR2(80);
4689: BEGIN
4690: SAVEPOINT CreateAkMetadata;
4691: FND_MSG_PUB.Initialize;
4692:
4693: -- Initialize Procedure Variables.
4694: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
4695:
4799: EXCEPTION
4800: WHEN FND_API.G_EXC_ERROR THEN
4801: ROLLBACK TO CreateAkMetadata;
4802: IF (x_msg_data IS NULL) THEN
4803: FND_MSG_PUB.Count_And_Get
4804: ( p_encoded => FND_API.G_FALSE
4805: , p_count => x_msg_count
4806: , p_data => x_msg_data
4807: );
4809: x_return_status := FND_API.G_RET_STS_ERROR;
4810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4811: ROLLBACK TO CreateAkMetadata;
4812: IF (x_msg_data IS NULL) THEN
4813: FND_MSG_PUB.Count_And_Get
4814: ( p_encoded => FND_API.G_FALSE
4815: , p_count => x_msg_count
4816: , p_data => x_msg_data
4817: );
4940:
4941: BEGIN
4942: SAVEPOINT CreateBscBisMetadata;
4943:
4944: FND_MSG_PUB.Initialize;
4945:
4946: -- Initialize Procedure Variables.
4947: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
4948:
5001: IF ((is_XTD_Enabled(p_Param_Portlet_Region_Code) = FND_API.G_TRUE) OR (l_Is_From_Report_Designer)) THEN
5002: -- Check if Advance Summarization Profile > 1, else throw and error.
5003: IF (BSC_UTILITY.Is_Adv_Summarization_Enabled = FND_API.G_FALSE) THEN
5004: FND_MESSAGE.SET_NAME('BSC','BSC_ENABLE_ADV_SUMMARIZATION');
5005: FND_MSG_PUB.ADD;
5006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5007: END IF;
5008: END IF;
5009:
5762:
5763: ROLLBACK TO CreateBscBisMetadata;
5764:
5765: IF (x_msg_data IS NULL) THEN
5766: FND_MSG_PUB.Count_And_Get
5767: ( p_encoded => FND_API.G_FALSE
5768: , p_count => x_msg_count
5769: , p_data => x_msg_data
5770: );
5775:
5776: ROLLBACK TO CreateBscBisMetadata;
5777:
5778: IF (x_msg_data IS NULL) THEN
5779: FND_MSG_PUB.Count_And_Get
5780: ( p_encoded => FND_API.G_FALSE
5781: , p_count => x_msg_count
5782: , p_data => x_msg_data
5783: );
5815: , x_Msg_Data OUT NOCOPY VARCHAR2
5816: ) IS
5817: BEGIN
5818: SAVEPOINT DeleteAKMetadata;
5819: FND_MSG_PUB.Initialize;
5820:
5821: -- Initialize Procedure Variables.
5822: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
5823:
5853: EXCEPTION
5854: WHEN FND_API.G_EXC_ERROR THEN
5855: ROLLBACK TO DeleteAKMetadata;
5856: IF (x_msg_data IS NULL) THEN
5857: FND_MSG_PUB.Count_And_Get
5858: ( p_encoded => FND_API.G_FALSE
5859: , p_count => x_msg_count
5860: , p_data => x_msg_data
5861: );
5863: x_Return_Status := FND_API.G_RET_STS_ERROR;
5864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5865: ROLLBACK TO DeleteAKMetadata;
5866: IF (x_msg_data IS NULL) THEN
5867: FND_MSG_PUB.Count_And_Get
5868: ( p_encoded => FND_API.G_FALSE
5869: , p_count => x_msg_count
5870: , p_data => x_msg_data
5871: );
5923: AND M.DATASET_ID = D.DATASET_ID;
5924: BEGIN
5925:
5926: SAVEPOINT RefereshAKMetadata;
5927: FND_MSG_PUB.Initialize;
5928: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
5929:
5930: -- Delete all AK Data Starting from p_Deleted_AO_Index (Analysis Option Index + 1)
5931: FOR cRefresh IN c_RefreshAK LOOP
5972: EXCEPTION
5973: WHEN FND_API.G_EXC_ERROR THEN
5974: ROLLBACK TO RefereshAKMetadata;
5975: IF (x_msg_data IS NULL) THEN
5976: FND_MSG_PUB.Count_And_Get
5977: ( p_encoded => FND_API.G_FALSE
5978: , p_count => x_msg_count
5979: , p_data => x_msg_data
5980: );
5982: x_Return_Status := FND_API.G_RET_STS_ERROR;
5983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5984: ROLLBACK TO RefereshAKMetadata;
5985: IF (x_msg_data IS NULL) THEN
5986: FND_MSG_PUB.Count_And_Get
5987: ( p_encoded => FND_API.G_FALSE
5988: , p_count => x_msg_count
5989: , p_data => x_msg_data
5990: );
6023:
6024: BEGIN
6025:
6026: SAVEPOINT ApplyDisableCalculations;
6027: FND_MSG_PUB.Initialize;
6028: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
6029:
6030: -- Call type Constructor.
6031: l_Disable_Calc_List := BSC_NUM_LIST(
6054: EXCEPTION
6055: WHEN FND_API.G_EXC_ERROR THEN
6056: ROLLBACK TO ApplyDisableCalculations;
6057: IF (x_msg_data IS NULL) THEN
6058: FND_MSG_PUB.Count_And_Get
6059: ( p_encoded => FND_API.G_FALSE
6060: , p_count => x_msg_count
6061: , p_data => x_msg_data
6062: );
6064: x_Return_Status := FND_API.G_RET_STS_ERROR;
6065: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6066: ROLLBACK TO ApplyDisableCalculations;
6067: IF (x_msg_data IS NULL) THEN
6068: FND_MSG_PUB.Count_And_Get
6069: ( p_encoded => FND_API.G_FALSE
6070: , p_count => x_msg_count
6071: , p_data => x_msg_data
6072: );
6107: ) IS
6108: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
6109: BEGIN
6110: SAVEPOINT EnableKpiCalculation;
6111: FND_MSG_PUB.Initialize;
6112: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
6113:
6114: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Kpi_Id;
6115: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id := p_Calculation_Id;
6132: EXCEPTION
6133: WHEN FND_API.G_EXC_ERROR THEN
6134: ROLLBACK TO EnableKpiCalculation;
6135: IF (x_msg_data IS NULL) THEN
6136: FND_MSG_PUB.Count_And_Get
6137: ( p_encoded => FND_API.G_FALSE
6138: , p_count => x_msg_count
6139: , p_data => x_msg_data
6140: );
6142: x_Return_Status := FND_API.G_RET_STS_ERROR;
6143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6144: ROLLBACK TO EnableKpiCalculation;
6145: IF (x_msg_data IS NULL) THEN
6146: FND_MSG_PUB.Count_And_Get
6147: ( p_encoded => FND_API.G_FALSE
6148: , p_count => x_msg_count
6149: , p_data => x_msg_data
6150: );
6187: ) IS
6188: l_Dummy_Non_Time_Dims VARCHAR2(32000);
6189: l_Dummy_Non_Time_Counter NUMBER;
6190: BEGIN
6191: FND_MSG_PUB.Initialize;
6192: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
6193:
6194: BSC_BIS_KPI_CRUD_PUB.Get_Dim_Obj_By_Dimension (
6195: p_Dim_Short_Name => p_Dim_Short_Name
6209: EXCEPTION
6210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6211: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
6212: IF (x_msg_data IS NULL) THEN
6213: FND_MSG_PUB.Count_And_Get
6214: ( p_encoded => FND_API.G_FALSE
6215: , p_count => x_msg_count
6216: , p_data => x_msg_data
6217: );
6243: l_Dummy_Time_Dims VARCHAR2(32000);
6244: l_Dummy_Time_Counter NUMBER;
6245: BEGIN
6246:
6247: FND_MSG_PUB.Initialize;
6248: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
6249:
6250: BSC_BIS_KPI_CRUD_PUB.Get_Dim_Obj_By_Dimension (
6251: p_Dim_Short_Name => p_Dim_Short_Name
6265: EXCEPTION
6266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6267: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
6268: IF (x_msg_data IS NULL) THEN
6269: FND_MSG_PUB.Count_And_Get
6270: ( p_encoded => FND_API.G_FALSE
6271: , p_count => x_msg_count
6272: , p_data => x_msg_data
6273: );
6308:
6309: l_Count NUMBER;
6310:
6311: BEGIN
6312: FND_MSG_PUB.Initialize;
6313: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
6314:
6315: x_Time_Dim_Obj_Counter := 0;
6316: x_Non_Time_Dim_Obj_Counter := 0;
6321:
6322: IF l_Count = 0 THEN
6323: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
6324: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME', p_Dim_Short_Name, TRUE);
6325: FND_MSG_PUB.ADD;
6326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6327: END IF;
6328:
6329: FOR c_DSN IN c_Dim_Obj_Short_Name LOOP
6348: EXCEPTION
6349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6350: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
6351: IF (x_msg_data IS NULL) THEN
6352: FND_MSG_PUB.Count_And_Get
6353: ( p_encoded => FND_API.G_FALSE
6354: , p_count => x_msg_count
6355: , p_data => x_msg_data
6356: );
6756: AND RI.ATTRIBUTE2 = l_Measure_Short_Name
6757: AND RI.REGION_CODE = R.REGION_CODE;
6758: BEGIN
6759:
6760: FND_MSG_PUB.Initialize;
6761: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
6762:
6763:
6764: l_Index_Count := 0;
6798: , x_Return_Status => l_Return_Status
6799: , x_Msg_Data => l_Return_Msg
6800: );
6801: IF ((l_Return_Status IS NOT NULL) AND (l_Return_Status <> FND_API.G_RET_STS_SUCCESS)) THEN
6802: FND_MSG_PUB.Initialize;
6803: FND_MESSAGE.SET_NAME('BIS',l_Return_Msg);
6804: FND_MSG_PUB.ADD;
6805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6806: END IF;
6800: );
6801: IF ((l_Return_Status IS NOT NULL) AND (l_Return_Status <> FND_API.G_RET_STS_SUCCESS)) THEN
6802: FND_MSG_PUB.Initialize;
6803: FND_MESSAGE.SET_NAME('BIS',l_Return_Msg);
6804: FND_MSG_PUB.ADD;
6805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6806: END IF;
6807:
6808: -- If the Report is associated with more than 1 Overview pages/KPI List.
6939: IF (l_Trigger_Warning = TRUE AND l_Trigger_Exception = FALSE) THEN
6940: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_DELETE_WARNING');
6941: FND_MESSAGE.SET_TOKEN('OBJ_NAME', l_Kpi_Name);
6942: FND_MESSAGE.SET_TOKEN('DEP_OBJ_LIST', l_Message);
6943: FND_MSG_PUB.ADD;
6944: FND_MSG_PUB.Count_And_Get
6945: ( p_encoded => FND_API.G_FALSE
6946: , p_count => x_Msg_Count
6947: , p_data => x_Msg_Data
6940: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_DELETE_WARNING');
6941: FND_MESSAGE.SET_TOKEN('OBJ_NAME', l_Kpi_Name);
6942: FND_MESSAGE.SET_TOKEN('DEP_OBJ_LIST', l_Message);
6943: FND_MSG_PUB.ADD;
6944: FND_MSG_PUB.Count_And_Get
6945: ( p_encoded => FND_API.G_FALSE
6946: , p_count => x_Msg_Count
6947: , p_data => x_Msg_Data
6948: );
6951: IF (l_Trigger_Exception = TRUE ) THEN
6952: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_IN_USE');
6953: FND_MESSAGE.SET_TOKEN('OBJ_NAME', l_Kpi_Name);
6954: FND_MESSAGE.SET_TOKEN('DEP_OBJ_LIST', l_Message);
6955: FND_MSG_PUB.ADD;
6956: RAISE FND_API.G_EXC_ERROR;
6957: END IF;
6958:
6959: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
6971: IF (c_PMV_Report_List%ISOPEN) THEN
6972: CLOSE c_PMV_Report_List;
6973: END IF;
6974:
6975: FND_MSG_PUB.Count_And_Get
6976: ( p_encoded => FND_API.G_FALSE
6977: , p_count => x_Msg_Count
6978: , p_data => x_Msg_Data
6979: );
6991: IF (c_PMV_Report_List%ISOPEN) THEN
6992: CLOSE c_PMV_Report_List;
6993: END IF;
6994:
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: );
7019:
7020: l_Error_Msg VARCHAR2(255);
7021: BEGIN
7022:
7023: FND_MSG_PUB.Initialize;
7024: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
7025:
7026: -- call the DBI API to populate DBI Calendars into BSC_SYS_CALENDARS and BSC_SYS_PERIODICITIES.
7027: BSC_DBI_CALENDAR.Load_Dbi_Cal_Metadata(l_Error_Msg);
7028:
7029: IF (l_Error_Msg IS NOT NULL) THEN
7030: FND_MESSAGE.SET_NAME('BSC','BSC_ERR_LOAD_DBI_CAL_METADATA');
7031: FND_MESSAGE.SET_TOKEN('ERRMSG', l_Error_Msg);
7032: FND_MSG_PUB.ADD;
7033: RAISE FND_API.G_EXC_ERROR;
7034: END IF;
7035:
7036: EXCEPTION
7034: END IF;
7035:
7036: EXCEPTION
7037: WHEN FND_API.G_EXC_ERROR THEN
7038: FND_MSG_PUB.Count_And_Get
7039: ( p_encoded => FND_API.G_FALSE
7040: , p_count => x_Msg_Count
7041: , p_data => x_Msg_Data
7042: );
7042: );
7043:
7044: x_Return_Status := FND_API.G_RET_STS_ERROR;
7045: WHEN OTHERS THEN
7046: FND_MSG_PUB.Count_And_Get
7047: ( p_encoded => FND_API.G_FALSE
7048: , p_count => x_Msg_Count
7049: , p_data => x_Msg_Data
7050: );
7111: , x_Msg_Data OUT NOCOPY VARCHAR2
7112: )
7113: IS
7114: BEGIN
7115: FND_MSG_PUB.Initialize;
7116:
7117: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
7118:
7119: IF (p_Param_Portlet_Region_Code IS NULL) THEN
7117: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
7118:
7119: IF (p_Param_Portlet_Region_Code IS NULL) THEN
7120: FND_MESSAGE.SET_NAME('BSC','BSC_NO_PARAM_PORTLET');
7121: FND_MSG_PUB.ADD;
7122: RAISE FND_API.G_EXC_ERROR;
7123: END IF;
7124:
7125: -- Check if AS_OF_DATE is enabled at the Paramter Portlet
7126: IF (is_XTD_Enabled(p_Param_Portlet_Region_Code) = FND_API.G_TRUE) THEN
7127: -- Check if Advance Summarization Profile >= 0, else throw and error.
7128: IF (BSC_UTILITY.Is_Adv_Summarization_Enabled = FND_API.G_FALSE) THEN
7129: FND_MESSAGE.SET_NAME('BSC','BSC_ENABLE_ADV_SUMMARIZATION');
7130: FND_MSG_PUB.ADD;
7131: RAISE FND_API.G_EXC_ERROR;
7132: END IF;
7133: END IF;
7134:
7133: END IF;
7134:
7135: EXCEPTION
7136: WHEN FND_API.G_EXC_ERROR THEN
7137: FND_MSG_PUB.Count_And_Get
7138: ( p_encoded => FND_API.G_FALSE
7139: , p_count => x_Msg_Count
7140: , p_data => x_Msg_Data
7141: );
7141: );
7142:
7143: x_Return_Status := FND_API.G_RET_STS_ERROR;
7144: WHEN OTHERS THEN
7145: FND_MSG_PUB.Count_And_Get
7146: ( p_encoded => FND_API.G_FALSE
7147: , p_count => x_Msg_Count
7148: , p_data => x_Msg_Data
7149: );
7325:
7326: EXCEPTION
7327: WHEN FND_API.G_EXC_ERROR THEN
7328: IF (x_msg_data IS NULL) THEN
7329: FND_MSG_PUB.Count_And_Get
7330: ( p_encoded => FND_API.G_FALSE
7331: ,p_count => x_msg_count
7332: ,p_data => x_msg_data
7333: );
7334: END IF;
7335: x_return_status := FND_API.G_RET_STS_ERROR;
7336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7337: IF (x_msg_data IS NULL) THEN
7338: FND_MSG_PUB.Count_And_Get
7339: ( p_encoded => FND_API.G_FALSE
7340: ,p_count => x_msg_count
7341: ,p_data => x_msg_data
7342: );
7402:
7403: EXCEPTION
7404: WHEN FND_API.G_EXC_ERROR THEN
7405: IF (x_msg_data IS NULL) THEN
7406: FND_MSG_PUB.Count_And_Get
7407: ( p_encoded => FND_API.G_FALSE
7408: ,p_count => x_msg_count
7409: ,p_data => x_msg_data
7410: );
7411: END IF;
7412: x_return_status := FND_API.G_RET_STS_ERROR;
7413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7414: IF (x_msg_data IS NULL) THEN
7415: FND_MSG_PUB.Count_And_Get
7416: ( p_encoded => FND_API.G_FALSE
7417: ,p_count => x_msg_count
7418: ,p_data => x_msg_data
7419: );
7459:
7460: EXCEPTION
7461: WHEN FND_API.G_EXC_ERROR THEN
7462: IF (x_msg_data IS NULL) THEN
7463: FND_MSG_PUB.Count_And_Get
7464: ( p_encoded => FND_API.G_FALSE
7465: ,p_count => x_msg_count
7466: ,p_data => x_msg_data
7467: );
7468: END IF;
7469: x_return_status := FND_API.G_RET_STS_ERROR;
7470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7471: IF (x_msg_data IS NULL) THEN
7472: FND_MSG_PUB.Count_And_Get
7473: ( p_encoded => FND_API.G_FALSE
7474: ,p_count => x_msg_count
7475: ,p_data => x_msg_data
7476: );
7512: SELECT indicator FROM bsc_tab_indicators
7513: WHERE tab_id = p_tab_id;
7514:
7515: BEGIN
7516: FND_MSG_PUB.Initialize;
7517: x_return_status := FND_API.G_RET_STS_SUCCESS;
7518:
7519: IF (c_tab_indicators%ISOPEN) THEN
7520: CLOSE c_tab_indicators;
7565:
7566: EXCEPTION
7567: WHEN FND_API.G_EXC_ERROR THEN
7568: IF (x_msg_data IS NULL) THEN
7569: FND_MSG_PUB.Count_And_Get
7570: ( p_encoded => FND_API.G_FALSE
7571: ,p_count => x_msg_count
7572: ,p_data => x_msg_data
7573: );
7574: END IF;
7575: x_return_status := FND_API.G_RET_STS_ERROR;
7576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7577: IF (x_msg_data IS NULL) THEN
7578: FND_MSG_PUB.Count_And_Get
7579: ( p_encoded => FND_API.G_FALSE
7580: ,p_count => x_msg_count
7581: ,p_data => x_msg_data
7582: );
7619: SELECT a.full_name FROM bsc_oaf_analysys_opt_comb_v a
7620: WHERE a.indicator = p_indicator;
7621:
7622: BEGIN
7623: FND_MSG_PUB.Initialize;
7624: x_return_status := FND_API.G_RET_STS_SUCCESS;
7625:
7626: IF(c_get_objective%ISOPEN) THEN
7627: CLOSE c_get_objective;
7641:
7642: FND_MESSAGE.SET_NAME('BSC','BSC_SCR_DELETE_WARN');
7643: FND_MESSAGE.SET_TOKEN('OBJECTIVE', l_objective_name);
7644: FND_MESSAGE.SET_TOKEN('CUST_KPI_LIST',l_cust_kpis);
7645: FND_MSG_PUB.ADD;
7646:
7647: FND_MSG_PUB.Count_And_Get
7648: ( p_encoded => FND_API.G_FALSE
7649: , p_count => x_msg_count
7643: FND_MESSAGE.SET_TOKEN('OBJECTIVE', l_objective_name);
7644: FND_MESSAGE.SET_TOKEN('CUST_KPI_LIST',l_cust_kpis);
7645: FND_MSG_PUB.ADD;
7646:
7647: FND_MSG_PUB.Count_And_Get
7648: ( p_encoded => FND_API.G_FALSE
7649: , p_count => x_msg_count
7650: , p_data => x_msg_data
7651: );
7808:
7809: IF l_Dim_Id_Cnt <> 1 THEN
7810: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
7811: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME', l_dimension_grp(l_counter), TRUE);
7812: FND_MSG_PUB.ADD;
7813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7814: END IF;
7815:
7816: l_Dim_Id_Cnt := 0;
7826:
7827: EXCEPTION
7828: WHEN FND_API.G_EXC_ERROR THEN
7829: IF (x_msg_data IS NULL) THEN
7830: FND_MSG_PUB.Count_And_Get
7831: ( p_encoded => FND_API.G_FALSE
7832: , p_count => l_msg_count
7833: , p_data => x_msg_data
7834: );
7834: );
7835: END IF;
7836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7837: IF (x_msg_data IS NULL) THEN
7838: FND_MSG_PUB.Count_And_Get
7839: ( p_encoded => FND_API.G_FALSE
7840: , p_count => l_msg_count
7841: , p_data => x_msg_data
7842: );
7903: EXCEPTION
7904: WHEN FND_API.G_EXC_ERROR THEN
7905:
7906: IF (x_msg_data IS NULL) THEN
7907: FND_MSG_PUB.Count_And_Get
7908: ( p_encoded => FND_API.G_FALSE
7909: , p_count => x_msg_count
7910: , p_data => x_msg_data
7911: );
7914:
7915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7916:
7917: IF (x_msg_data IS NULL) THEN
7918: FND_MSG_PUB.Count_And_Get
7919: ( p_encoded => FND_API.G_FALSE
7920: , p_count => x_msg_count
7921: , p_data => x_msg_data
7922: );
7981:
7982: BEGIN
7983: SAVEPOINT RefreshAkBscBisMeta;
7984:
7985: FND_MSG_PUB.Initialize;
7986: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
7987:
7988: -- 1) Cascaded back to AK Metadata (AK_REGIONS, AK_REGION_ITEMS, FND_FORM_FUNCTIONS_VL
7989: l_report_region_rec.Region_Code := p_Region_Code;
8173: WHEN FND_API.G_EXC_ERROR THEN
8174: ROLLBACK TO RefreshAkBscBisMeta;
8175:
8176: IF (x_msg_data IS NULL) THEN
8177: FND_MSG_PUB.Count_And_Get
8178: ( p_encoded => FND_API.G_FALSE
8179: , p_count => x_msg_count
8180: , p_data => x_msg_data
8181: );
8185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8186: ROLLBACK TO RefreshAkBscBisMeta;
8187:
8188: IF (x_msg_data IS NULL) THEN
8189: FND_MSG_PUB.Count_And_Get
8190: ( p_encoded => FND_API.G_FALSE
8191: , p_count => x_msg_count
8192: , p_data => x_msg_data
8193: );
8428: l_Kpi_Id := BSC_BIS_KPI_CRUD_PUB.Get_Kpi_Id(p_Region_Code);
8429:
8430: IF (l_Kpi_Id = BSC_BIS_KPI_CRUD_PUB.C_INVALID_ENTITY) THEN
8431: FND_MESSAGE.SET_NAME('BSC','BSC_SETUP_REPORT_DEF');
8432: FND_MSG_PUB.ADD;
8433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8434: END IF;
8435:
8436: l_Count := 0;
8551:
8552: EXCEPTION
8553: WHEN FND_API.G_EXC_ERROR THEN
8554: IF (x_msg_data IS NULL) THEN
8555: FND_MSG_PUB.Count_And_Get
8556: ( p_encoded => FND_API.G_FALSE
8557: , p_count => x_msg_count
8558: , p_data => x_msg_data
8559: );
8561: x_return_status := FND_API.G_RET_STS_ERROR;
8562: ROLLBACK TO MigAGRVBR;
8563: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8564: IF (x_msg_data IS NULL) THEN
8565: FND_MSG_PUB.Count_And_Get
8566: ( p_encoded => FND_API.G_FALSE
8567: , p_count => x_msg_count
8568: , p_data => x_msg_data
8569: );
8632: l_Kpi_Id := BSC_BIS_KPI_CRUD_PUB.Get_Kpi_Id(p_Region_Code);
8633:
8634: IF (l_Kpi_Id = BSC_BIS_KPI_CRUD_PUB.C_INVALID_ENTITY) THEN
8635: FND_MESSAGE.SET_NAME('BSC','BSC_SETUP_REPORT_DEF');
8636: FND_MSG_PUB.ADD;
8637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8638: END IF;
8639:
8640: l_Count := 0;
8805:
8806: EXCEPTION
8807: WHEN FND_API.G_EXC_ERROR THEN
8808: IF (x_msg_data IS NULL) THEN
8809: FND_MSG_PUB.Count_And_Get
8810: ( p_encoded => FND_API.G_FALSE
8811: , p_count => x_msg_count
8812: , p_data => x_msg_data
8813: );
8815: x_return_status := FND_API.G_RET_STS_ERROR;
8816: ROLLBACK TO DelAGRBscMD;
8817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8818: IF (x_msg_data IS NULL) THEN
8819: FND_MSG_PUB.Count_And_Get
8820: ( p_encoded => FND_API.G_FALSE
8821: , p_count => x_msg_count
8822: , p_data => x_msg_data
8823: );
8915:
8916: EXCEPTION
8917: WHEN FND_API.G_EXC_ERROR THEN
8918: IF (x_msg_data IS NULL) THEN
8919: FND_MSG_PUB.Count_And_Get
8920: ( p_encoded => FND_API.G_FALSE
8921: , p_count => x_msg_count
8922: , p_data => x_msg_data
8923: );
8925: x_return_status := FND_API.G_RET_STS_ERROR;
8926: ROLLBACK TO SwitchMeasureType;
8927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8928: IF (x_msg_data IS NULL) THEN
8929: FND_MSG_PUB.Count_And_Get
8930: ( p_encoded => FND_API.G_FALSE
8931: , p_count => x_msg_count
8932: , p_data => x_msg_data
8933: );
9416: FROM BSC_TABS_B
9417: WHERE SHORT_NAME = p_region_code;
9418:
9419: BEGIN
9420: FND_MSG_PUB.INITIALIZE;
9421: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
9422:
9423: FOR cTabId IN c_GetTabId LOOP
9424: l_tab_id := cTabId.tab_id;
9445: EXCEPTION
9446:
9447: WHEN FND_API.G_EXC_ERROR THEN
9448: IF (x_Msg_Data IS NULL) THEN
9449: FND_MSG_PUB.Count_And_Get
9450: ( p_encoded => FND_API.G_FALSE
9451: ,p_count => x_Msg_Data
9452: ,p_data => x_Msg_Count
9453: );
9455: x_Return_Status := FND_API.G_RET_STS_ERROR;
9456:
9457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9458: IF (x_Msg_Data IS NULL) THEN
9459: FND_MSG_PUB.Count_And_Get
9460: ( p_encoded => FND_API.G_FALSE
9461: ,p_count => x_Msg_Data
9462: ,p_data => x_Msg_Count
9463: );
9535: WHERE A.tab_id =B.tab_id
9536: AND A.short_name = p_region_code;
9537:
9538: BEGIN
9539: FND_MSG_PUB.INITIALIZE;
9540: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
9541: x_has_cust_view := FND_API.G_FALSE;
9542:
9543: SELECT COUNT(0)
9681: , x_Msg_Count OUT NOCOPY NUMBER
9682: , x_Msg_Data OUT NOCOPY VARCHAR
9683: ) IS
9684: BEGIN
9685: FND_MSG_PUB.Initialize;
9686:
9687: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
9688:
9689: IF (p_Time_Short_Name IS NULL) THEN
9687: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
9688:
9689: IF (p_Time_Short_Name IS NULL) THEN
9690: FND_MESSAGE.SET_NAME('BSC','BSC_TIME_PERIODICITY_NULL');
9691: FND_MSG_PUB.ADD;
9692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9693: END IF;
9694:
9695: SELECT B.PERIODICITY_ID, B.CALENDAR_ID
9704: END IF;
9705: x_return_status := FND_API.G_RET_STS_ERROR;
9706: WHEN OTHERS THEN
9707: IF (x_msg_data IS NULL) THEN
9708: FND_MSG_PUB.Count_And_Get
9709: ( p_encoded => FND_API.G_FALSE
9710: , p_count => x_msg_count
9711: , p_data => x_msg_data
9712: );
9940: END IF;
9941: EXCEPTION
9942: WHEN FND_API.G_EXC_ERROR THEN
9943: IF (x_msg_data IS NULL) THEN
9944: FND_MSG_PUB.Count_And_Get
9945: ( p_encoded => FND_API.G_FALSE
9946: , p_count => x_msg_count
9947: , p_data => x_msg_data
9948: );
9949: END IF;
9950: x_return_status := FND_API.G_RET_STS_ERROR;
9951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9952: IF (x_msg_data IS NULL) THEN
9953: FND_MSG_PUB.Count_And_Get
9954: ( p_encoded => FND_API.G_FALSE
9955: , p_count => x_msg_count
9956: , p_data => x_msg_data
9957: );
9992: l_Region_Item_Tbl BIS_AK_REGION_PUB.Bis_Region_Item_Tbl_Type;
9993: BEGIN
9994:
9995: SAVEPOINT CascadeParamPortlet;
9996: FND_MSG_PUB.Initialize;
9997:
9998: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
9999:
10000: -- get a new region_code
10062:
10063: EXCEPTION
10064: WHEN FND_API.G_EXC_ERROR THEN
10065: IF (x_msg_data IS NULL) THEN
10066: FND_MSG_PUB.Count_And_Get
10067: ( p_encoded => FND_API.G_FALSE
10068: , p_count => x_msg_count
10069: , p_data => x_msg_data
10070: );
10072: x_return_status := FND_API.G_RET_STS_ERROR;
10073: ROLLBACK TO CascadeParamPortlet;
10074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10075: IF (x_msg_data IS NULL) THEN
10076: FND_MSG_PUB.Count_And_Get
10077: ( p_encoded => FND_API.G_FALSE
10078: , p_count => x_msg_count
10079: , p_data => x_msg_data
10080: );
10373: l_report_region_rec BIS_AK_REGION_PUB.Bis_Region_Rec_Type;
10374:
10375: BEGIN
10376: SAVEPOINT MigrateAGRTOPLSQL1;
10377: FND_MSG_PUB.Initialize;
10378:
10379: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
10380:
10381: --DBMS_OUTPUT.PUT_LINE(' Line 2 ');
10455: EXCEPTION
10456: WHEN FND_API.G_EXC_ERROR THEN
10457: ROLLBACK TO MigrateAGRTOPLSQL1;
10458: IF (x_msg_data IS NULL) THEN
10459: FND_MSG_PUB.Count_And_Get
10460: ( p_encoded => FND_API.G_FALSE
10461: , p_count => x_msg_count
10462: , p_data => x_msg_data
10463: );
10465: x_return_status := FND_API.G_RET_STS_ERROR;
10466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10467: ROLLBACK TO MigrateAGRTOPLSQL1;
10468: IF (x_msg_data IS NULL) THEN
10469: FND_MSG_PUB.Count_And_Get
10470: ( p_encoded => FND_API.G_FALSE
10471: , p_count => x_msg_count
10472: , p_data => x_msg_data
10473: );
10508: , x_Msg_Data OUT NOCOPY VARCHAR
10509: ) IS
10510: BEGIN
10511: SAVEPOINT MigrateAGRTOPLSQL;
10512: FND_MSG_PUB.Initialize;
10513:
10514: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
10515:
10516: BSC_BIS_KPI_CRUD_PUB.Migrate_AGR_To_PLSQL (
10537: EXCEPTION
10538: WHEN FND_API.G_EXC_ERROR THEN
10539: ROLLBACK TO MigrateAGRTOPLSQL;
10540: IF (x_msg_data IS NULL) THEN
10541: FND_MSG_PUB.Count_And_Get
10542: ( p_encoded => FND_API.G_FALSE
10543: , p_count => x_msg_count
10544: , p_data => x_msg_data
10545: );
10547: x_return_status := FND_API.G_RET_STS_ERROR;
10548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10549: ROLLBACK TO MigrateAGRTOPLSQL;
10550: IF (x_msg_data IS NULL) THEN
10551: FND_MSG_PUB.Count_And_Get
10552: ( p_encoded => FND_API.G_FALSE
10553: , p_count => x_msg_count
10554: , p_data => x_msg_data
10555: );
10648: WHERE BIS.SHORT_NAME = l_Measure_Short_Name;
10649: BEGIN
10650:
10651: SAVEPOINT CascdAttrCode;
10652: FND_MSG_PUB.Initialize;
10653:
10654: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
10655:
10656: FOR cMSN IN cMeasureShortNames LOOP
10713: EXCEPTION
10714: WHEN FND_API.G_EXC_ERROR THEN
10715: ROLLBACK TO CascdAttrCode;
10716: IF (x_msg_data IS NULL) THEN
10717: FND_MSG_PUB.Count_And_Get
10718: ( p_encoded => FND_API.G_FALSE
10719: , p_count => x_msg_count
10720: , p_data => x_msg_data
10721: );
10723: x_return_status := FND_API.G_RET_STS_ERROR;
10724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10725: ROLLBACK TO CascdAttrCode;
10726: IF (x_msg_data IS NULL) THEN
10727: FND_MSG_PUB.Count_And_Get
10728: ( p_encoded => FND_API.G_FALSE
10729: , p_count => x_msg_count
10730: , p_data => x_msg_data
10731: );
10790: l_Dataset_Rec BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type;
10791:
10792: BEGIN
10793: SAVEPOINT CascdAttrCodeIntoForm;
10794: FND_MSG_PUB.Initialize;
10795:
10796: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
10797:
10798: FOR cForm IN c_GetFormula LOOP
10870: EXCEPTION
10871: WHEN FND_API.G_EXC_ERROR THEN
10872: ROLLBACK TO CascdAttrCodeIntoForm;
10873: IF (x_msg_data IS NULL) THEN
10874: FND_MSG_PUB.Count_And_Get
10875: ( p_encoded => FND_API.G_FALSE
10876: , p_count => x_msg_count
10877: , p_data => x_msg_data
10878: );
10880: x_return_status := FND_API.G_RET_STS_ERROR;
10881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10882: ROLLBACK TO CascdAttrCodeIntoForm;
10883: IF (x_msg_data IS NULL) THEN
10884: FND_MSG_PUB.Count_And_Get
10885: ( p_encoded => FND_API.G_FALSE
10886: , p_count => x_msg_count
10887: , p_data => x_msg_data
10888: );
10964:
10965: EXCEPTION
10966: WHEN FND_API.G_EXC_ERROR THEN
10967: IF (x_msg_data IS NULL) THEN
10968: FND_MSG_PUB.Count_And_Get
10969: ( p_encoded => FND_API.G_FALSE
10970: , p_count => x_msg_count
10971: , p_data => x_msg_data
10972: );
10973: END IF;
10974: x_return_status := FND_API.G_RET_STS_ERROR;
10975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10976: IF (x_msg_data IS NULL) THEN
10977: FND_MSG_PUB.Count_And_Get
10978: ( p_encoded => FND_API.G_FALSE
10979: , p_count => x_msg_count
10980: , p_data => x_msg_data
10981: );
11012: IS
11013: l_Kpi_Id NUMBER;
11014: BEGIN
11015: SAVEPOINT DelAGRep;
11016: FND_MSG_PUB.Initialize;
11017: x_return_status := FND_API.G_RET_STS_SUCCESS;
11018:
11019: l_Kpi_Id := BSC_BIS_KPI_CRUD_PUB.Get_Kpi_Id(p_Region_Code);
11020: IF (l_Kpi_Id = BSC_BIS_KPI_CRUD_PUB.C_INVALID_ENTITY) THEN
11018:
11019: l_Kpi_Id := BSC_BIS_KPI_CRUD_PUB.Get_Kpi_Id(p_Region_Code);
11020: IF (l_Kpi_Id = BSC_BIS_KPI_CRUD_PUB.C_INVALID_ENTITY) THEN
11021: FND_MESSAGE.SET_NAME('BSC','BSC_SETUP_REPORT_DEF');
11022: FND_MSG_PUB.ADD;
11023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11024: END IF;
11025:
11026: BSC_ANALYSIS_OPTION_PUB.Rearrange_Data_Series(
11055:
11056: EXCEPTION
11057: WHEN FND_API.G_EXC_ERROR THEN
11058: IF (x_msg_data IS NULL) THEN
11059: FND_MSG_PUB.Count_And_Get
11060: ( p_encoded => FND_API.G_FALSE
11061: , p_count => x_msg_count
11062: , p_data => x_msg_data
11063: );
11064: END IF;
11065: x_return_status := FND_API.G_RET_STS_ERROR;
11066: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11067: IF (x_msg_data IS NULL) THEN
11068: FND_MSG_PUB.Count_And_Get
11069: ( p_encoded => FND_API.G_FALSE
11070: , p_count => x_msg_count
11071: , p_data => x_msg_data
11072: );
11101: l_Delete_Measure VARCHAR2(1);
11102: l_Delete_Dimensions VARCHAR2(1);
11103: BEGIN
11104: SAVEPOINT MigrateAGRTOVBR;
11105: FND_MSG_PUB.Initialize;
11106:
11107: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
11108:
11109: l_Delete_Measure := FND_API.G_FALSE;
11125: EXCEPTION
11126: WHEN FND_API.G_EXC_ERROR THEN
11127: ROLLBACK TO MigrateAGRTOVBR;
11128: IF (x_msg_data IS NULL) THEN
11129: FND_MSG_PUB.Count_And_Get
11130: ( p_encoded => FND_API.G_FALSE
11131: , p_count => x_msg_count
11132: , p_data => x_msg_data
11133: );
11135: x_return_status := FND_API.G_RET_STS_ERROR;
11136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11137: ROLLBACK TO MigrateAGRTOVBR;
11138: IF (x_msg_data IS NULL) THEN
11139: FND_MSG_PUB.Count_And_Get
11140: ( p_encoded => FND_API.G_FALSE
11141: , p_count => x_msg_count
11142: , p_data => x_msg_data
11143: );
11173: , x_Msg_Data OUT NOCOPY VARCHAR
11174: ) IS
11175: BEGIN
11176: SAVEPOINT MigrateAGRTOEXTNSRC;
11177: FND_MSG_PUB.Initialize;
11178: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
11179:
11180: IF (p_Existing_Report_Type = BSC_BIS_KPI_CRUD_PUB.C_PLSQL_BASED_REPORT_TYPE) THEN
11181: BSC_BIS_KPI_CRUD_PUB.Migrate_AGR_To_PLSQL (
11206: EXCEPTION
11207: WHEN FND_API.G_EXC_ERROR THEN
11208: ROLLBACK TO MigrateAGRTOEXTNSRC;
11209: IF (x_msg_data IS NULL) THEN
11210: FND_MSG_PUB.Count_And_Get
11211: ( p_encoded => FND_API.G_FALSE
11212: , p_count => x_msg_count
11213: , p_data => x_msg_data
11214: );
11216: x_return_status := FND_API.G_RET_STS_ERROR;
11217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11218: ROLLBACK TO MigrateAGRTOEXTNSRC;
11219: IF (x_msg_data IS NULL) THEN
11220: FND_MSG_PUB.Count_And_Get
11221: ( p_encoded => FND_API.G_FALSE
11222: , p_count => x_msg_count
11223: , p_data => x_msg_data
11224: );
11323: AND KP.INDICATOR = KG.INDICATOR;
11324: BEGIN
11325:
11326: SAVEPOINT CascadeDimByRegion;
11327: FND_MSG_PUB.Initialize;
11328:
11329: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
11330:
11331:
11387:
11388: EXCEPTION
11389: WHEN FND_API.G_EXC_ERROR THEN
11390: IF (x_msg_data IS NULL) THEN
11391: FND_MSG_PUB.Count_And_Get
11392: ( p_encoded => FND_API.G_FALSE
11393: , p_count => x_msg_count
11394: , p_data => x_msg_data
11395: );
11397: x_return_status := FND_API.G_RET_STS_ERROR;
11398: ROLLBACK TO CascadeDimByRegion;
11399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11400: IF (x_msg_data IS NULL) THEN
11401: FND_MSG_PUB.Count_And_Get
11402: ( p_encoded => FND_API.G_FALSE
11403: , p_count => x_msg_count
11404: , p_data => x_msg_data
11405: );