[Home] [Help]
219: END IF;
220:
221: EXCEPTION
222: WHEN FND_API.G_EXC_ERROR THEN
223: FND_MSG_PUB.Count_And_Get
224: ( p_encoded => FND_API.G_FALSE
225: , p_count => x_msg_count
226: , p_data => x_msg_data
227: );
226: , p_data => x_msg_data
227: );
228: x_return_status := FND_API.G_RET_STS_ERROR;
229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230: FND_MSG_PUB.Count_And_Get
231: ( p_encoded => FND_API.G_FALSE
232: , p_count => x_msg_count
233: , p_data => x_msg_data
234: );
282: , x_msg_data OUT NOCOPY VARCHAR2
283: ) IS
284: l_Count NUMBER := -1;
285: BEGIN
286: FND_MSG_PUB.Initialize;
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Get_Valid_Analysis_Option_Ids Procedure');
289: x_Parent_Option_ID := p_Parent_Option_ID;
290: x_GrandParent_Option_ID := p_GrandParent_Option_ID;
339: FND_MESSAGE.SET_NAME('BSC','BSC_V_NO_ANLSIS_DEF_FOR_COMB');
340: FND_MESSAGE.SET_TOKEN('ANLSIS_OPT1', p_Option_ID);
341: FND_MESSAGE.SET_TOKEN('ANLSIS_OPT2', p_Parent_Option_ID);
342: FND_MESSAGE.SET_TOKEN('ANLSIS_OPT3', p_GrandParent_Option_ID);
343: FND_MSG_PUB.ADD;
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_Default_Viewby_For_Measure Procedure');
347: EXCEPTION
346: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_Default_Viewby_For_Measure Procedure');
347: EXCEPTION
348: WHEN FND_API.G_EXC_ERROR THEN
349: IF (x_msg_data IS NULL) THEN
350: FND_MSG_PUB.Count_And_Get
351: ( p_encoded => FND_API.G_FALSE
352: , p_count => x_msg_count
353: , p_data => x_msg_data
354: );
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: ROLLBACK TO CreateBSCDefDimObjectsPMD;
459: IF (x_msg_data IS NULL) THEN
460: FND_MSG_PUB.Count_And_Get
461: ( p_encoded => FND_API.G_FALSE
462: , p_count => x_msg_count
463: , p_data => x_msg_data
464: );
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
469: ROLLBACK TO CreateBSCDefDimObjectsPMD;
470: IF (x_msg_data IS NULL) THEN
471: FND_MSG_PUB.Count_And_Get
472: ( p_encoded => FND_API.G_FALSE
473: , p_count => x_msg_count
474: , p_data => x_msg_data
475: );
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: ROLLBACK TO CreateBSCDefDimObjectsPMD;
559: IF (x_msg_data IS NULL) THEN
560: FND_MSG_PUB.Count_And_Get
561: ( p_encoded => FND_API.G_FALSE
562: , p_count => x_msg_count
563: , p_data => x_msg_data
564: );
567: x_return_status := FND_API.G_RET_STS_ERROR;
568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569: ROLLBACK TO CreateBSCDefDimObjectsPMD;
570: IF (x_msg_data IS NULL) THEN
571: FND_MSG_PUB.Count_And_Get
572: ( p_encoded => FND_API.G_FALSE
573: , p_count => x_msg_count
574: , p_data => x_msg_data
575: );
642: AND Prototype_Flag <> 2;
643: BEGIN
644: SAVEPOINT OrderBSCDimsInDSetPMD;
645: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets procedure');
646: FND_MSG_PUB.Initialize;
647: x_return_status := FND_API.G_RET_STS_SUCCESS;
648: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
649: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
650:
794: EXCEPTION
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO OrderBSCDimsInDSetPMD;
797: IF (x_msg_data IS NULL) THEN
798: FND_MSG_PUB.Count_And_Get
799: ( p_encoded => FND_API.G_FALSE
800: , p_count => x_msg_count
801: , p_data => x_msg_data
802: );
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807: ROLLBACK TO OrderBSCDimsInDSetPMD;
808: IF (x_msg_data IS NULL) THEN
809: FND_MSG_PUB.Count_And_Get
810: ( p_encoded => FND_API.G_FALSE
811: , p_count => x_msg_count
812: , p_data => x_msg_data
813: );
1013: l_dim_object VARCHAR2(100);
1014: l_flag BOOLEAN;
1015: BEGIN
1016: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.get_DimObj_ViewBy_Tbl Procedure');
1017: FND_MSG_PUB.Initialize;
1018: x_return_status := FND_API.G_RET_STS_SUCCESS;
1019: l_Region_Code := p_Region_Code;
1020: IF (p_Region_Code IS NULL) THEN
1021: BSC_JV_PMF.get_Pmf_Measure
1102: EXCEPTION
1103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1104: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1105: IF (x_msg_data IS NULL) THEN
1106: FND_MSG_PUB.Count_And_Get
1107: ( p_encoded => FND_API.G_FALSE
1108: , p_count => x_msg_count
1109: , p_data => x_msg_data
1110: );
1174: AND A.Short_Name <> BSC_BIS_DIMENSION_PUB.Unassigned_Dim
1175: AND A.Dim_Group_ID = l_dimension_id;
1176: BEGIN
1177: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison procedure');
1178: FND_MSG_PUB.Initialize;
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180: IF (p_dim_set_id IS NOT NULL) THEN
1181: --dbms_output.PUT_LINE('dim set id is not NULL should not be here ..... ');
1182: FOR cd IN c_dim_set_ind LOOP
1247: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Remove_Unused_PMF_Dimenison procedure');
1248: EXCEPTION
1249: WHEN FND_API.G_EXC_ERROR THEN
1250: IF (x_msg_data IS NULL) THEN
1251: FND_MSG_PUB.Count_And_Get
1252: ( p_encoded => FND_API.G_FALSE
1253: , p_count => x_msg_count
1254: , p_data => x_msg_data
1255: );
1257: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1260: IF (x_msg_data IS NULL) THEN
1261: FND_MSG_PUB.Count_And_Get
1262: ( p_encoded => FND_API.G_FALSE
1263: , p_count => x_msg_count
1264: , p_data => x_msg_data
1265: );
1307: l_temp_var VARCHAR2(32000);
1308: l_dim_obj_name BSC_SYS_DIM_LEVELS_B.Short_Name%TYPE;
1309: BEGIN
1310: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults procedure');
1311: FND_MSG_PUB.Initialize;
1312: x_return_status := FND_API.G_RET_STS_SUCCESS;
1313: x_dim_obj_short_names := p_dim_obj_short_names;
1314: x_default_short_names := p_default_short_names;
1315: x_view_by_name := p_view_by_name;
1396: -- visuri commented this validation for bug 5080308
1397: /*ELSE
1398: --dbms_output.PUT_LINE('view by problem');
1399: FND_MESSAGE.SET_NAME('BSC','BSC_VIEW_BY_REQUIRED');
1400: FND_MSG_PUB.ADD;
1401: RAISE FND_API.G_EXC_ERROR;*/
1402: END IF;
1403: END IF;
1404: END IF;
1444: END IF;
1445: END IF;
1446: IF(NOT l_flag) THEN
1447: FND_MESSAGE.SET_NAME('BSC','BSC_TIME_DIM_REQUIRED');
1448: FND_MSG_PUB.ADD;
1449: RAISE FND_API.G_EXC_ERROR;
1450: END IF;
1451: END IF;
1452: -- changed this code so that view by and default dimension are
1475: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Get_PMF_Defaults procedure');
1476: EXCEPTION
1477: WHEN FND_API.G_EXC_ERROR THEN
1478: IF (x_msg_data IS NULL) THEN
1479: FND_MSG_PUB.Count_And_Get
1480: ( p_encoded => FND_API.G_FALSE
1481: , p_count => x_msg_count
1482: , p_data => x_msg_data
1483: );
1485: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: IF (x_msg_data IS NULL) THEN
1489: FND_MSG_PUB.Count_And_Get
1490: ( p_encoded => FND_API.G_FALSE
1491: , p_count => x_msg_count
1492: , p_data => x_msg_data
1493: );
1536: FROM BSC_KPIS_B
1537: WHERE Source_Indicator = p_kpi_id
1538: AND Prototype_Flag <> 2;
1539: BEGIN
1540: FND_MSG_PUB.Initialize;
1541: x_return_status := FND_API.G_RET_STS_SUCCESS;
1542: SAVEPOINT CreateBSCDimSetPMD;
1543: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure');
1544: IF (p_kpi_id IS NULL) THEN
1543: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set procedure');
1544: IF (p_kpi_id IS NULL) THEN
1545: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1546: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1547: FND_MSG_PUB.ADD;
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550: SELECT COUNT(*) INTO l_count
1551: FROM BSC_KPIS_B
1552: WHERE indicator = p_kpi_id;
1553: IF (l_count = 0) THEN
1554: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
1555: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1556: FND_MSG_PUB.ADD;
1557: RAISE FND_API.G_EXC_ERROR;
1558: END IF;
1559: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --varchar2(10)
1560: l_bsc_dimset_rec.Bsc_Dim_Set_Short_Name := p_dim_set_short_name;
1566: WHERE indicator = l_bsc_dimset_rec.Bsc_Kpi_Id ;
1567: IF (l_count = 2) THEN
1568: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
1569: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_bsc_dimset_rec.Bsc_Kpi_Id);
1570: FND_MSG_PUB.ADD;
1571: RAISE FND_API.G_EXC_ERROR;
1572: END IF;
1573:
1574: BSC_UTILITY.Enable_Dimensions_Entity(
1753: l_kpi_name := '['||l_kpi_name||']';
1754:
1755: FND_MESSAGE.SET_NAME('BSC','BSC_IND_DIMOBJ_LIMIT');
1756: FND_MESSAGE.SET_TOKEN('NAME_LIST',l_kpi_name);
1757: FND_MSG_PUB.ADD;
1758: RAISE FND_API.G_EXC_ERROR;
1759: END IF;
1760:
1761:
1771: EXCEPTION
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: ROLLBACK TO CreateBSCDimSetPMD;
1774: IF (x_msg_data IS NULL) THEN
1775: FND_MSG_PUB.Count_And_Get
1776: ( p_encoded => FND_API.G_FALSE
1777: , p_count => x_msg_count
1778: , p_data => x_msg_data
1779: );
1782: x_return_status := FND_API.G_RET_STS_ERROR;
1783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1784: ROLLBACK TO CreateBSCDimSetPMD;
1785: IF (x_msg_data IS NULL) THEN
1786: FND_MSG_PUB.Count_And_Get
1787: ( p_encoded => FND_API.G_FALSE
1788: , p_count => x_msg_count
1789: , p_data => x_msg_data
1790: );
1829: l_count NUMBER := 0;
1830: l_count_independent_dim_obj NUMBER;
1831: l_kpi_name VARCHAR2(32000);
1832: BEGIN
1833: FND_MSG_PUB.Initialize;
1834: x_return_status := FND_API.G_RET_STS_SUCCESS;
1835: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1836: IF (p_kpi_id IS NULL) THEN
1837: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1835: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1836: IF (p_kpi_id IS NULL) THEN
1837: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1838: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1839: FND_MSG_PUB.ADD;
1840: RAISE FND_API.G_EXC_ERROR;
1841: END IF;
1842:
1843: -- added for Bug#4615361
1909: l_kpi_name := '['||l_kpi_name||']';
1910:
1911: FND_MESSAGE.SET_NAME('BSC','BSC_IND_DIMOBJ_LIMIT');
1912: FND_MESSAGE.SET_TOKEN('NAME_LIST',l_kpi_name);
1913: FND_MSG_PUB.ADD;
1914: RAISE FND_API.G_EXC_ERROR;
1915: END IF;
1916:
1917: END IF;
1926: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1927: EXCEPTION
1928: WHEN FND_API.G_EXC_ERROR THEN
1929: IF (x_msg_data IS NULL) THEN
1930: FND_MSG_PUB.Count_And_Get
1931: ( p_encoded => FND_API.G_FALSE
1932: , p_count => x_msg_count
1933: , p_data => x_msg_data
1934: );
1936: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1937: x_return_status := FND_API.G_RET_STS_ERROR;
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: IF (x_msg_data IS NULL) THEN
1940: FND_MSG_PUB.Count_And_Get
1941: ( p_encoded => FND_API.G_FALSE
1942: , p_count => x_msg_count
1943: , p_data => x_msg_data
1944: );
1988: WHERE dim_set_id = p_dim_set_id
1989: AND indicator = p_kpi_id);
1990: BEGIN
1991: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
1992: FND_MSG_PUB.Initialize;
1993: x_return_status := FND_API.G_RET_STS_SUCCESS;
1994: IF (p_kpi_id IS NULL) THEN
1995: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1996: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1993: x_return_status := FND_API.G_RET_STS_SUCCESS;
1994: IF (p_kpi_id IS NULL) THEN
1995: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1996: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
1997: FND_MSG_PUB.ADD;
1998: RAISE FND_API.G_EXC_ERROR;
1999: END IF;
2000: IF (p_dim_set_id IS NULL) THEN
2001: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1999: END IF;
2000: IF (p_dim_set_id IS NULL) THEN
2001: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2002: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2003: FND_MSG_PUB.ADD;
2004: RAISE FND_API.G_EXC_ERROR;
2005: END IF;
2006: SELECT COUNT(DIM_SET_ID)
2007: INTO l_count
2016: FROM BSC_LOOKUPS
2017: WHERE LOOKUP_TYPE = 'BSC_UI_COMMON' AND LOOKUP_CODE = 'DIM_SET' ;
2018:
2019: FND_MESSAGE.SET_TOKEN('TYPE', l_meaning, TRUE);
2020: FND_MSG_PUB.ADD;
2021: RAISE FND_API.G_EXC_ERROR;
2022: END IF;
2023: FOR cd IN p_unassign_dim_names LOOP
2024: IF (cd.short_name IS NOT NULL) THEN
2067: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2068: EXCEPTION
2069: WHEN FND_API.G_EXC_ERROR THEN
2070: IF (x_msg_data IS NULL) THEN
2071: FND_MSG_PUB.Count_And_Get
2072: ( p_encoded => FND_API.G_FALSE
2073: , p_count => x_msg_count
2074: , p_data => x_msg_data
2075: );
2077: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: IF (x_msg_data IS NULL) THEN
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: );
2128: AND Prototype_Flag <> 2;
2129: BEGIN
2130: SAVEPOINT UpdateBSCDimSetPMD;
2131: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set procedure');
2132: FND_MSG_PUB.Initialize;
2133: x_return_status := FND_API.G_RET_STS_SUCCESS;
2134: IF (p_kpi_id IS NULL) THEN
2135: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2136: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2133: x_return_status := FND_API.G_RET_STS_SUCCESS;
2134: IF (p_kpi_id IS NULL) THEN
2135: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2136: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2137: FND_MSG_PUB.ADD;
2138: RAISE FND_API.G_EXC_ERROR;
2139: END IF;
2140: IF (p_dim_set_id IS NULL) THEN
2141: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2139: END IF;
2140: IF (p_dim_set_id IS NULL) THEN
2141: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2142: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2143: FND_MSG_PUB.ADD;
2144: RAISE FND_API.G_EXC_ERROR;
2145: END IF;
2146: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --number
2147: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Kpi_Id <'||l_bsc_dimset_rec.Bsc_Kpi_Id||'>');
2152: WHERE indicator = l_bsc_dimset_rec.Bsc_Kpi_Id ;
2153: IF (l_count = 2) THEN
2154: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
2155: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_bsc_dimset_rec.Bsc_Kpi_Id);
2156: FND_MSG_PUB.ADD;
2157: RAISE FND_API.G_EXC_ERROR;
2158: END IF;
2159: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id; --number
2160: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Set_Id <'||l_bsc_dimset_rec.Bsc_Dim_Set_Id||'>');
2168: IF (l_count = 0) THEN
2169: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
2170: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
2171: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
2172: FND_MSG_PUB.ADD;
2173: RAISE FND_API.G_EXC_ERROR;
2174: END IF;
2175:
2176: -- START Granular Locking
2223: IF (l_count = 0) THEN
2224: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
2225: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
2226: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
2227: FND_MSG_PUB.ADD;
2228: RAISE FND_API.G_EXC_ERROR;
2229: END IF;
2230: -- START Granular Locking
2231: -- We need to call locking only in this API, since this is the lowermost API
2278: EXCEPTION
2279: WHEN FND_API.G_EXC_ERROR THEN
2280: ROLLBACK TO UpdateBSCDimSetPMD;
2281: IF (x_msg_data IS NULL) THEN
2282: FND_MSG_PUB.Count_And_Get
2283: ( p_encoded => FND_API.G_FALSE
2284: , p_count => x_msg_count
2285: , p_data => x_msg_data
2286: );
2289: x_return_status := FND_API.G_RET_STS_ERROR;
2290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2291: ROLLBACK TO UpdateBSCDimSetPMD;
2292: IF (x_msg_data IS NULL) THEN
2293: FND_MSG_PUB.Count_And_Get
2294: ( p_encoded => FND_API.G_FALSE
2295: , p_count => x_msg_count
2296: , p_data => x_msg_data
2297: );
2399: AND Prototype_Flag <> 2;
2400: BEGIN
2401: SAVEPOINT DeleteBSCDimSetPMD;
2402: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Set procedure');
2403: FND_MSG_PUB.Initialize;
2404: x_return_status := FND_API.G_RET_STS_SUCCESS;
2405: IF (p_kpi_id IS NULL) THEN
2406: FND_MESSAGE.SET_NAME('BSC', 'BSC_REQ_FIELD_MISSING');
2407: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2404: x_return_status := FND_API.G_RET_STS_SUCCESS;
2405: IF (p_kpi_id IS NULL) THEN
2406: FND_MESSAGE.SET_NAME('BSC', 'BSC_REQ_FIELD_MISSING');
2407: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2408: FND_MSG_PUB.ADD;
2409: RAISE FND_API.G_EXC_ERROR;
2410: END IF;
2411: IF (p_dim_set_id IS NULL) THEN
2412: FND_MESSAGE.SET_NAME('BSC', 'BSC_REQ_FIELD_MISSING');
2410: END IF;
2411: IF (p_dim_set_id IS NULL) THEN
2412: FND_MESSAGE.SET_NAME('BSC', 'BSC_REQ_FIELD_MISSING');
2413: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2414: FND_MSG_PUB.ADD;
2415: RAISE FND_API.G_EXC_ERROR;
2416: END IF;
2417: IF (p_dim_set_id = 0) THEN
2418: FND_MESSAGE.SET_NAME('BSC', 'BSC_DIM_SET_0_NO_DELETE');
2415: RAISE FND_API.G_EXC_ERROR;
2416: END IF;
2417: IF (p_dim_set_id = 0) THEN
2418: FND_MESSAGE.SET_NAME('BSC', 'BSC_DIM_SET_0_NO_DELETE');
2419: FND_MSG_PUB.ADD;
2420: RAISE FND_API.G_EXC_ERROR;
2421: END IF;
2422: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --number
2423: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Kpi_Id <'||l_bsc_dimset_rec.Bsc_Kpi_Id||'>');
2428: WHERE indicator = l_bsc_dimset_rec.Bsc_Kpi_Id ;
2429: IF (l_count = 2) THEN
2430: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
2431: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_bsc_dimset_rec.Bsc_Kpi_Id);
2432: FND_MSG_PUB.ADD;
2433: RAISE FND_API.G_EXC_ERROR;
2434: END IF;
2435: SELECT COUNT(*) INTO l_count
2436: FROM BSC_KPI_DIM_SETS_VL
2436: FROM BSC_KPI_DIM_SETS_VL
2437: WHERE indicator = l_bsc_dimset_rec.Bsc_Kpi_Id;
2438: IF (l_count = 1) THEN
2439: FND_MESSAGE.SET_NAME('BSC','BSC_D_KPI_AT_LEAST_1_DS');
2440: FND_MSG_PUB.ADD;
2441: RAISE FND_API.G_EXC_ERROR;
2442: END IF;
2443: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id; --number
2444: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Set_Id <'||l_bsc_dimset_rec.Bsc_Dim_Set_Id||'>');
2521: EXCEPTION
2522: WHEN FND_API.G_EXC_ERROR THEN
2523: ROLLBACK TO DeleteBSCDimSetPMD;
2524: IF (x_msg_data IS NULL) THEN
2525: FND_MSG_PUB.Count_And_Get
2526: ( p_encoded => FND_API.G_FALSE
2527: , p_count => x_msg_count
2528: , p_data => x_msg_data
2529: );
2532: x_return_status := FND_API.G_RET_STS_ERROR;
2533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2534: ROLLBACK TO DeleteBSCDimSetPMD;
2535: IF (x_msg_data IS NULL) THEN
2536: FND_MSG_PUB.Count_And_Get
2537: ( p_encoded => FND_API.G_FALSE
2538: , p_count => x_msg_count
2539: , p_data => x_msg_data
2540: );
2605: TABLE(CAST(l_level_table_names AS BSC_EDIT_VLIST));
2606: BEGIN
2607: SAVEPOINT AssBSCDimToDSetPMD;
2608: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set procedure');
2609: FND_MSG_PUB.Initialize;
2610: x_return_status := FND_API.G_RET_STS_SUCCESS;
2611: IF (p_kpi_id IS NULL) THEN
2612: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2613: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2610: x_return_status := FND_API.G_RET_STS_SUCCESS;
2611: IF (p_kpi_id IS NULL) THEN
2612: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2613: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2614: FND_MSG_PUB.ADD;
2615: RAISE FND_API.G_EXC_ERROR;
2616: END IF;
2617: IF (p_dim_set_id IS NULL) THEN
2618: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2616: END IF;
2617: IF (p_dim_set_id IS NULL) THEN
2618: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2619: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2620: FND_MSG_PUB.ADD;
2621: RAISE FND_API.G_EXC_ERROR;
2622: END IF;
2623: SELECT
2624: level_table_name
2655: IF (l_count = 0) THEN
2656: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
2657: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
2658: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
2659: FND_MSG_PUB.ADD;
2660: RAISE FND_API.G_EXC_ERROR;
2661: END IF;
2662:
2663: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
2684: WHERE short_name = l_dim_short_name;
2685: IF (l_count = 0) THEN
2686: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
2687: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME', l_dim_short_name);
2688: FND_MSG_PUB.ADD;
2689: RAISE FND_API.G_EXC_ERROR;
2690: END IF;
2691:
2692: SELECT COUNT(*) INTO l_count
2754: IF (l_count = 0) THEN
2755: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
2756: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
2757: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
2758: FND_MSG_PUB.ADD;
2759: RAISE FND_API.G_EXC_ERROR;
2760: END IF;
2761: -- START Granular Locking
2762: BSC_BIS_LOCKS_PUB.LOCK_DIM_SET
2859: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set procedure');
2860: EXCEPTION
2861: WHEN FND_API.G_EXC_ERROR THEN
2862: IF (x_msg_data IS NULL) THEN
2863: FND_MSG_PUB.Count_And_Get
2864: ( p_encoded => FND_API.G_FALSE
2865: , p_count => x_msg_count
2866: , p_data => x_msg_data
2867: );
2869: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2870: x_return_status := FND_API.G_RET_STS_ERROR;
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: IF (x_msg_data IS NULL) THEN
2873: FND_MSG_PUB.Count_And_Get
2874: ( p_encoded => FND_API.G_FALSE
2875: , p_count => x_msg_count
2876: , p_data => x_msg_data
2877: );
2939:
2940:
2941: BEGIN
2942: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions procedure');
2943: FND_MSG_PUB.Initialize;
2944: x_return_status := FND_API.G_RET_STS_SUCCESS;
2945: IF (p_kpi_id IS NULL) THEN
2946: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2947: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2944: x_return_status := FND_API.G_RET_STS_SUCCESS;
2945: IF (p_kpi_id IS NULL) THEN
2946: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2947: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
2948: FND_MSG_PUB.ADD;
2949: RAISE FND_API.G_EXC_ERROR;
2950: END IF;
2951: IF (p_dim_set_id IS NULL) THEN
2952: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2950: END IF;
2951: IF (p_dim_set_id IS NULL) THEN
2952: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
2953: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
2954: FND_MSG_PUB.ADD;
2955: RAISE FND_API.G_EXC_ERROR;
2956: END IF;
2957:
2958: SELECT
3075: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Assign_Unassign_Dimensions procedure');
3076: EXCEPTION
3077: WHEN FND_API.G_EXC_ERROR THEN
3078: IF (x_msg_data IS NULL) THEN
3079: FND_MSG_PUB.Count_And_Get
3080: ( p_encoded => FND_API.G_FALSE
3081: , p_count => x_msg_count
3082: , p_data => x_msg_data
3083: );
3085: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3086: x_return_status := FND_API.G_RET_STS_ERROR;
3087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3088: IF (x_msg_data IS NULL) THEN
3089: FND_MSG_PUB.Count_And_Get
3090: ( p_encoded => FND_API.G_FALSE
3091: , p_count => x_msg_count
3092: , p_data => x_msg_data
3093: );
3147: ORDER BY A.Dim_Group_Index;
3148: BEGIN
3149: SAVEPOINT UnAssBSCDimToDSetPMD;
3150: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set procedure');
3151: FND_MSG_PUB.Initialize;
3152: x_return_status := FND_API.G_RET_STS_SUCCESS;
3153: IF (p_kpi_id IS NULL) THEN
3154: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3155: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
3152: x_return_status := FND_API.G_RET_STS_SUCCESS;
3153: IF (p_kpi_id IS NULL) THEN
3154: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3155: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
3156: FND_MSG_PUB.ADD;
3157: RAISE FND_API.G_EXC_ERROR;
3158: END IF;
3159: IF (p_dim_set_id IS NULL) THEN
3160: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3158: END IF;
3159: IF (p_dim_set_id IS NULL) THEN
3160: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3161: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
3162: FND_MSG_PUB.ADD;
3163: RAISE FND_API.G_EXC_ERROR;
3164: END IF;
3165: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --number
3166: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Kpi_Id <'||l_bsc_dimset_rec.Bsc_Kpi_Id||'>');
3171: FROM BSC_KPIS_B
3172: WHERE indicator = l_bsc_dimset_rec.Bsc_Kpi_Id;
3173: IF (l_count = 2) THEN
3174: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
3175: FND_MSG_PUB.ADD;
3176: RAISE FND_API.G_EXC_ERROR;
3177: END IF;
3178: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id; --number
3179: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Set_Id <'||l_bsc_dimset_rec.Bsc_Dim_Set_Id||'>');
3184: IF (l_count = 0) THEN
3185: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
3186: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
3187: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
3188: FND_MSG_PUB.ADD;
3189: RAISE FND_API.G_EXC_ERROR;
3190: END IF;
3191: -- START Granular Locking
3192: BSC_BIS_LOCKS_PUB.LOCK_DIM_SET
3387: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set procedure');
3388: EXCEPTION
3389: WHEN FND_API.G_EXC_ERROR THEN
3390: IF (x_msg_data IS NULL) THEN
3391: FND_MSG_PUB.Count_And_Get
3392: ( p_encoded => FND_API.G_FALSE
3393: , p_count => x_msg_count
3394: , p_data => x_msg_data
3395: );
3397: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3398: x_return_status := FND_API.G_RET_STS_ERROR;
3399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3400: IF (x_msg_data IS NULL) THEN
3401: FND_MSG_PUB.Count_And_Get
3402: ( p_encoded => FND_API.G_FALSE
3403: , p_count => x_msg_count
3404: , p_data => x_msg_data
3405: );
3441: l_dim_short_names VARCHAR2(32000);
3442: l_dim_short_name BSC_SYS_DIM_GROUPS_TL.short_name%TYPE;
3443: BEGIN
3444: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset procedure');
3445: FND_MSG_PUB.Initialize;
3446: x_return_status := FND_API.G_RET_STS_SUCCESS;
3447:
3448: l_bsc_dimset_rec.Bsc_Dim_Level_Help := 'XXX';
3449: l_bsc_dimset_rec.Bsc_Dim_Level_Long_Name := 'XXX';
3604: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset procedure');
3605: EXCEPTION
3606: WHEN FND_API.G_EXC_ERROR THEN
3607: IF (x_msg_data IS NULL) THEN
3608: FND_MSG_PUB.Count_And_Get
3609: ( p_encoded => FND_API.G_FALSE
3610: , p_count => x_msg_count
3611: , p_data => x_msg_data
3612: );
3614: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3615: x_return_status := FND_API.G_RET_STS_ERROR;
3616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3617: IF (x_msg_data IS NULL) THEN
3618: FND_MSG_PUB.Count_And_Get
3619: ( p_encoded => FND_API.G_FALSE
3620: , p_count => x_msg_count
3621: , p_data => x_msg_data
3622: );
3665: AND Prototype_Flag <> 2;
3666: BEGIN
3667: SAVEPOINT AssBSCDSetPMD;
3668: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options procedure');
3669: FND_MSG_PUB.Initialize;
3670: x_return_status := FND_API.G_RET_STS_SUCCESS;
3671: IF (p_kpi_id IS NULL) THEN
3672: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3673: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
3670: x_return_status := FND_API.G_RET_STS_SUCCESS;
3671: IF (p_kpi_id IS NULL) THEN
3672: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3673: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
3674: FND_MSG_PUB.ADD;
3675: RAISE FND_API.G_EXC_ERROR;
3676: END IF;
3677: IF (p_dim_set_id IS NULL) THEN
3678: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3676: END IF;
3677: IF (p_dim_set_id IS NULL) THEN
3678: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3679: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DIM_SET_ID'), TRUE);
3680: FND_MSG_PUB.ADD;
3681: RAISE FND_API.G_EXC_ERROR;
3682: END IF;
3683: IF (p_analysis_grp_id IS NULL) THEN
3684: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3682: END IF;
3683: IF (p_analysis_grp_id IS NULL) THEN
3684: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3685: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Analysis Group ID');
3686: FND_MSG_PUB.ADD;
3687: RAISE FND_API.G_EXC_ERROR;
3688: END IF;
3689: IF (p_option_id IS NULL) THEN
3690: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3688: END IF;
3689: IF (p_option_id IS NULL) THEN
3690: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
3691: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'Option ID');
3692: FND_MSG_PUB.ADD;
3693: RAISE FND_API.G_EXC_ERROR;
3694: END IF;
3695: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id; --number
3696: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Kpi_Id <'||l_bsc_dimset_rec.Bsc_Kpi_Id||'>');
3716: IF (l_count = 0) THEN
3717: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
3718: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
3719: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
3720: FND_MSG_PUB.ADD;
3721: RAISE FND_API.G_EXC_ERROR;
3722: END IF;
3723: BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B
3724: ( p_commit => FND_API.G_FALSE
3744: IF (l_count = 0) THEN
3745: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
3746: FND_MESSAGE.SET_TOKEN('KPI_ID', l_bsc_dimset_rec.Bsc_Kpi_Id);
3747: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_bsc_dimset_rec.Bsc_Dim_Set_Id);
3748: FND_MSG_PUB.ADD;
3749: RAISE FND_API.G_EXC_ERROR;
3750: END IF;
3751: BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B
3752: ( p_commit => FND_API.G_FALSE
3771: EXCEPTION
3772: WHEN FND_API.G_EXC_ERROR THEN
3773: ROLLBACK TO AssBSCDSetPMD;
3774: IF (x_msg_data IS NULL) THEN
3775: FND_MSG_PUB.Count_And_Get
3776: ( p_encoded => FND_API.G_FALSE
3777: , p_count => x_msg_count
3778: , p_data => x_msg_data
3779: );
3782: x_return_status := FND_API.G_RET_STS_ERROR;
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: ROLLBACK TO AssBSCDSetPMD;
3785: IF (x_msg_data IS NULL) THEN
3786: FND_MSG_PUB.Count_And_Get
3787: ( p_encoded => FND_API.G_FALSE
3788: , p_count => x_msg_count
3789: , p_data => x_msg_data
3790: );
4168: km.series_id = p_series_id;
4169:
4170: BEGIN
4171: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_KPI_Analysis_Options procedure');
4172: FND_MSG_PUB.Initialize;
4173: x_return_status := FND_API.G_RET_STS_SUCCESS;
4174: SAVEPOINT UpdateBSCKPIAnaOpts;
4175: --Initialize record for BSC_KPI_ANALYSIS_MEASURES_B/TL &BSC_KPI_ANALYSIS_OPTIONS_B/TL
4176: l_dim_set_id := p_dim_set_id;
4202: END IF;
4203: IF (l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id IS NULL) THEN
4204: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
4205: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
4206: FND_MSG_PUB.ADD;
4207: RAISE FND_API.G_EXC_ERROR;
4208: END IF;
4209: IF (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id IS NULL) THEN
4210: IF (c_data_set_id%ISOPEN) THEN
4216: END IF;
4217: IF (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id IS NULL) THEN
4218: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
4219: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'DATASET'), TRUE);
4220: FND_MSG_PUB.ADD;
4221: RAISE FND_API.G_EXC_ERROR;
4222: END IF;
4223: SELECT COUNT(*) INTO l_count
4224: FROM BSC_KPIS_B
4225: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
4226: IF (l_count = 0) THEN
4227: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
4228: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
4229: FND_MSG_PUB.ADD;
4230: RAISE FND_API.G_EXC_ERROR;
4231: END IF;
4232: -- Verify that this is not a Shared KPI.
4233: SELECT share_flag INTO l_count
4235: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id ;
4236: IF (l_count = 2) THEN
4237: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
4238: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
4239: FND_MSG_PUB.ADD;
4240: RAISE FND_API.G_EXC_ERROR;
4241: END IF;
4242:
4243: SELECT Source INTO l_data_source
4256: IF ((l_temp_data_source IS NOT NULL) AND
4257: (((l_data_source <> l_temp_data_source) AND (l_data_set_id <> -1)) OR
4258: ((l_data_set_id <> -1) AND (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id = -1)))) THEN
4259: FND_MESSAGE.SET_NAME('BSC','BSC_NO_UPDATE_MEASURE_SOURCE');
4260: FND_MSG_PUB.ADD;
4261: RAISE FND_API.G_EXC_ERROR;
4262: ELSIF (l_temp_data_source IS NULL) THEN
4263: FND_MESSAGE.SET_NAME('BSC','BSC_V_NO_MEASURE_BY_DIM_SET');
4264: FND_MESSAGE.SET_TOKEN('DIM_SET', l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id);
4261: RAISE FND_API.G_EXC_ERROR;
4262: ELSIF (l_temp_data_source IS NULL) THEN
4263: FND_MESSAGE.SET_NAME('BSC','BSC_V_NO_MEASURE_BY_DIM_SET');
4264: FND_MESSAGE.SET_TOKEN('DIM_SET', l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id);
4265: FND_MSG_PUB.ADD;
4266: RAISE FND_API.G_EXC_ERROR;
4267: END IF;
4268: END IF;
4269: --dbms_output.PUT_LINE('p_data_source '||l_data_source);
4486: IF (l_count = 0) THEN
4487: FND_MESSAGE.SET_NAME('BSC', 'BSC_INCORRECT_KPI_DIMSET');
4488: FND_MESSAGE.SET_TOKEN('KPI_ID', l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
4489: FND_MESSAGE.SET_TOKEN('DIM_SET_ID', l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id);
4490: FND_MSG_PUB.ADD;
4491: RAISE FND_API.G_EXC_ERROR;
4492: END IF;
4493: --dbms_output.PUT_LINE('ASSIGN TO DIMENSION SET');
4494: IF (l_dim_obj_short_names IS NULL) THEN
4689: --dbms_output.PUT_LINE('ELSE');
4690: IF (l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name IS NULL) THEN
4691: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
4692: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_IVIEWER', 'ANALYSIS_MS'), TRUE);
4693: FND_MSG_PUB.ADD;
4694: RAISE FND_API.G_EXC_ERROR;
4695: END IF;
4696: IF (l_Bsc_Anal_Opt_Rec.Bsc_Option_Name IS NULL) THEN
4697: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name;
4923: CLOSE c_data_set_id;
4924: END IF;
4925: ROLLBACK TO UpdateBSCKPIAnaOpts;
4926: IF (x_msg_data IS NULL) THEN
4927: FND_MSG_PUB.Count_And_Get
4928: ( p_encoded => FND_API.G_FALSE
4929: , p_count => x_msg_count
4930: , p_data => x_msg_data
4931: );
4937: CLOSE c_data_set_id;
4938: END IF;
4939: ROLLBACK TO UpdateBSCKPIAnaOpts;
4940: IF (x_msg_data IS NULL) THEN
4941: FND_MSG_PUB.Count_And_Get
4942: ( p_encoded => FND_API.G_FALSE
4943: , p_count => x_msg_count
4944: , p_data => x_msg_data
4945: );
5013: l_namecount NUMBER;
5014: l_index NUMBER;
5015: BEGIN
5016: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_KPI_Analysis_Options procedure');
5017: FND_MSG_PUB.Initialize;
5018: x_return_status := FND_API.G_RET_STS_SUCCESS;
5019: SAVEPOINT CreateBSCKPIAnaOpts;
5020:
5021: OPEN c_data_source;
5026: SELECT MEANING INTO l_meaning
5027: FROM BSC_LOOKUPS
5028: WHERE LOOKUP_TYPE = 'BSC_UI_COMMON' AND LOOKUP_CODE = 'EDW_MEASURE' ;
5029: FND_MESSAGE.SET_TOKEN('TYPE', l_meaning, TRUE);
5030: FND_MSG_PUB.ADD;
5031: RAISE FND_API.G_EXC_ERROR;
5032: END IF;
5033: IF ((l_datasource <> 'BSC') AND (l_datasource <> 'PMF')) THEN
5034: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
5031: RAISE FND_API.G_EXC_ERROR;
5032: END IF;
5033: IF ((l_datasource <> 'BSC') AND (l_datasource <> 'PMF')) THEN
5034: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
5035: FND_MSG_PUB.ADD;
5036: RAISE FND_API.G_EXC_ERROR;
5037: END IF;
5038: --Initialize record for BSC_KPI_ANALYSIS_MEASURES_B/TL &BSC_KPI_ANALYSIS_OPTIONS_B/TL
5039: l_measure_short_name := p_measure_short_name;
5058:
5059: IF (l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id IS NULL) THEN
5060: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5061: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5062: FND_MSG_PUB.ADD;
5063: RAISE FND_API.G_EXC_ERROR;
5064: END IF;
5065: IF ((l_datasource = 'BSC') AND (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id IS NULL)) THEN
5066: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5064: END IF;
5065: IF ((l_datasource = 'BSC') AND (l_Bsc_Anal_Opt_Rec.Bsc_Dataset_Id IS NULL)) THEN
5066: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5067: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'DATASET'), TRUE);
5068: FND_MSG_PUB.ADD;
5069: RAISE FND_API.G_EXC_ERROR;
5070: END IF;
5071: SELECT COUNT(*) INTO l_count
5072: FROM BSC_KPIS_B
5073: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
5074: IF (l_count = 0) THEN
5075: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
5076: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5077: FND_MSG_PUB.ADD;
5078: RAISE FND_API.G_EXC_ERROR;
5079: END IF;
5080: -- Verify that this is not a Shared KPI.
5081: SELECT share_flag INTO l_count
5082: FROM BSC_KPIS_B
5083: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id ;
5084: IF (l_count = 2) THEN
5085: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
5086: FND_MSG_PUB.ADD;
5087: RAISE FND_API.G_EXC_ERROR;
5088: END IF;
5089: --dbms_output.PUT_LINE('l_datasource '||l_datasource);
5090: IF (l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name IS NULL) THEN
5089: --dbms_output.PUT_LINE('l_datasource '||l_datasource);
5090: IF (l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name IS NULL) THEN
5091: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5092: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_IVIEWER', 'ANALYSIS_MS'), TRUE);
5093: FND_MSG_PUB.ADD;
5094: RAISE FND_API.G_EXC_ERROR;
5095: END IF;
5096: IF (l_Bsc_Anal_Opt_Rec.Bsc_Option_Name IS NULL) THEN
5097: l_Bsc_Anal_Opt_Rec.Bsc_Option_Name := l_Bsc_Anal_Opt_Rec.Bsc_Measure_Long_Name;
5278: CLOSE c_data_source;
5279: END IF;
5280: ROLLBACK TO CreateBSCKPIAnaOpts;
5281: IF (x_msg_data IS NULL) THEN
5282: FND_MSG_PUB.Count_And_Get
5283: ( p_encoded => FND_API.G_FALSE
5284: , p_count => x_msg_count
5285: , p_data => x_msg_data
5286: );
5292: CLOSE c_data_source;
5293: END IF;
5294: ROLLBACK TO CreateBSCKPIAnaOpts;
5295: IF (x_msg_data IS NULL) THEN
5296: FND_MSG_PUB.Count_And_Get
5297: ( p_encoded => FND_API.G_FALSE
5298: , p_count => x_msg_count
5299: , p_data => x_msg_data
5300: );
5348: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
5349: l_Bsc_Dim_Set_Rec_Type BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
5350: BEGIN
5351: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5352: FND_MSG_PUB.Initialize;
5353: x_return_status := FND_API.G_RET_STS_SUCCESS;
5354: SAVEPOINT DeleteBSCKPIAnaOpts;
5355: IF (p_data_source IS NULL) THEN
5356: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5354: SAVEPOINT DeleteBSCKPIAnaOpts;
5355: IF (p_data_source IS NULL) THEN
5356: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5357: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DATA_SOURCE'), TRUE);
5358: FND_MSG_PUB.ADD;
5359: RAISE FND_API.G_EXC_ERROR;
5360: END IF;
5361: IF ((p_data_source <> 'BSC') AND (p_data_source <> 'PMF')) THEN
5362: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
5359: RAISE FND_API.G_EXC_ERROR;
5360: END IF;
5361: IF ((p_data_source <> 'BSC') AND (p_data_source <> 'PMF')) THEN
5362: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
5363: FND_MSG_PUB.ADD;
5364: RAISE FND_API.G_EXC_ERROR;
5365: END IF;
5366: --Initialize record for BSC_KPI_ANALYSIS_MEASURES_B/TL &BSC_KPI_ANALYSIS_OPTIONS_B/TL
5367: l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id := p_kpi_id; -- BSC_KPI_ANALYSIS_OPTIONS_TL.indicator
5388: --dbms_output.PUT_LINE('l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id '||l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id);
5389: IF (l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id IS NULL) THEN
5390: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5391: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5392: FND_MSG_PUB.ADD;
5393: RAISE FND_API.G_EXC_ERROR;
5394: END IF;
5395:
5396: SELECT COUNT(*) INTO l_count
5398: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
5399: IF (l_count = 0) THEN
5400: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
5401: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5402: FND_MSG_PUB.ADD;
5403: RAISE FND_API.G_EXC_ERROR;
5404: END IF;
5405: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id IS NULL) THEN
5406: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5404: END IF;
5405: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id IS NULL) THEN
5406: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5407: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_OPTIONS'), TRUE);
5408: FND_MSG_PUB.ADD;
5409: RAISE FND_API.G_EXC_ERROR;
5410: END IF;
5411: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
5412: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5410: END IF;
5411: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
5412: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5413: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_GROUP'), TRUE);
5414: FND_MSG_PUB.ADD;
5415: RAISE FND_API.G_EXC_ERROR;
5416: END IF;
5417: -- Verify that this is not a Shared KPI.
5418: SELECT share_flag INTO l_count
5420: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id ;
5421: IF (l_count = 2) THEN
5422: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
5423: --FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id);
5424: FND_MSG_PUB.ADD;
5425: RAISE FND_API.G_EXC_ERROR;
5426: END IF;
5427: --Determine if Indicator assigned to a tab.
5428: SELECT COUNT(indicator) INTO l_count
5534: EXCEPTION
5535: WHEN FND_API.G_EXC_ERROR THEN
5536: ROLLBACK TO DeleteBSCKPIAnaOpts;
5537: IF (x_msg_data IS NULL) THEN
5538: FND_MSG_PUB.Count_And_Get
5539: ( p_encoded => FND_API.G_FALSE
5540: , p_count => x_msg_count
5541: , p_data => x_msg_data
5542: );
5545: x_return_status := FND_API.G_RET_STS_ERROR;
5546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5547: ROLLBACK TO DeleteBSCKPIAnaOpts;
5548: IF (x_msg_data IS NULL) THEN
5549: FND_MSG_PUB.Count_And_Get
5550: ( p_encoded => FND_API.G_FALSE
5551: , p_count => x_msg_count
5552: , p_data => x_msg_data
5553: );
5608:
5609:
5610: BEGIN
5611: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Analysis_Options procedure');
5612: FND_MSG_PUB.Initialize;
5613: x_return_status := FND_API.G_RET_STS_SUCCESS;
5614: SAVEPOINT DeleteBSCKPIAnaOpts;
5615: -- we also need to normalize the values for column ANALYSYS_OPTION0,
5616: -- ANALYSYS_OPTION1, ANALYSYS_OPTION2 based on group id.
5704: EXCEPTION
5705: WHEN FND_API.G_EXC_ERROR THEN
5706: ROLLBACK TO DeleteBSCKPIAnaOpts;
5707: IF (x_msg_data IS NULL) THEN
5708: FND_MSG_PUB.Count_And_Get
5709: ( p_encoded => FND_API.G_FALSE
5710: , p_count => x_msg_count
5711: , p_data => x_msg_data
5712: );
5715: x_return_status := FND_API.G_RET_STS_ERROR;
5716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5717: ROLLBACK TO DeleteBSCKPIAnaOpts;
5718: IF (x_msg_data IS NULL) THEN
5719: FND_MSG_PUB.Count_And_Get
5720: ( p_encoded => FND_API.G_FALSE
5721: , p_count => x_msg_count
5722: , p_data => x_msg_data
5723: );
5797: BEGIN
5798: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Update_Kpi procedure');
5799: SAVEPOINT UpdatePMDBSCKPIs;
5800: x_return_status := FND_API.G_RET_STS_SUCCESS;
5801: FND_MSG_PUB.Initialize;
5802: IF (p_kpi_id IS NULL) THEN
5803: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5804: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5805: FND_MSG_PUB.ADD;
5801: FND_MSG_PUB.Initialize;
5802: IF (p_kpi_id IS NULL) THEN
5803: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
5804: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5805: FND_MSG_PUB.ADD;
5806: RAISE FND_API.G_EXC_ERROR;
5807: END IF;
5808: SELECT COUNT(*) INTO l_count
5809: FROM BSC_KPIS_B
5810: WHERE indicator = p_kpi_id;
5811: IF (l_count = 0) THEN
5812: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
5813: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
5814: FND_MSG_PUB.ADD;
5815: RAISE FND_API.G_EXC_ERROR;
5816: END IF;
5817: -- Verify that this is not a Shared KPI.
5818: SELECT share_flag
5821: WHERE indicator = p_kpi_id ;
5822: IF (l_count = 2) THEN
5823: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
5824: --FND_MESSAGE.SET_TOKEN('BSC_KPI', p_kpi_id);
5825: FND_MSG_PUB.ADD;
5826: RAISE FND_API.G_EXC_ERROR;
5827: END IF;
5828: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
5829:
5893:
5894: FND_MESSAGE.SET_NAME('BSC','BSC_B_NO_SAMEKPI_TAB');
5895: FND_MESSAGE.SET_TOKEN('Indicator name: ', p_kpi_name);
5896: FND_MESSAGE.SET_TOKEN('Tab name: ', l_tab_name);
5897: FND_MSG_PUB.ADD;
5898: RAISE FND_API.G_EXC_ERROR;
5899: END IF;
5900:
5901:
5994: EXCEPTION
5995: WHEN FND_API.G_EXC_ERROR THEN
5996: ROLLBACK TO UpdatePMDBSCKPIs;
5997: IF (x_msg_data IS NULL) THEN
5998: FND_MSG_PUB.Count_And_Get
5999: ( p_encoded => FND_API.G_FALSE
6000: , p_count => x_msg_count
6001: , p_data => x_msg_data
6002: );
6005: x_return_status := FND_API.G_RET_STS_ERROR;
6006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6007: ROLLBACK TO UpdatePMDBSCKPIs;
6008: IF (x_msg_data IS NULL) THEN
6009: FND_MSG_PUB.Count_And_Get
6010: ( p_encoded => FND_API.G_FALSE
6011: , p_count => x_msg_count
6012: , p_data => x_msg_data
6013: );
6048: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
6049: BEGIN
6050: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Kpi procedure');
6051: x_return_status := FND_API.G_RET_STS_SUCCESS;
6052: FND_MSG_PUB.Initialize;
6053: SAVEPOINT CreatePMDBSCKPIs;
6054: IF (p_kpi_name IS NULL) THEN
6055: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
6056: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_NAME'), TRUE);
6053: SAVEPOINT CreatePMDBSCKPIs;
6054: IF (p_kpi_name IS NULL) THEN
6055: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
6056: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_NAME'), TRUE);
6057: FND_MSG_PUB.ADD;
6058: RAISE FND_API.G_EXC_ERROR;
6059: END IF;
6060: IF (p_responsibility_id IS NULL) THEN
6061: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
6059: END IF;
6060: IF (p_responsibility_id IS NULL) THEN
6061: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
6062: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_SETUP', 'SRC_RESPONSIBILITY'), TRUE);
6063: FND_MSG_PUB.ADD;
6064: RAISE FND_API.G_EXC_ERROR;
6065: END IF;
6066: -- set the passed values to the record.
6067: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id := p_group_id;
6118: EXCEPTION
6119: WHEN FND_API.G_EXC_ERROR THEN
6120: ROLLBACK TO CreatePMDBSCKPIs;
6121: IF (x_msg_data IS NULL) THEN
6122: FND_MSG_PUB.Count_And_Get
6123: ( p_encoded => FND_API.G_FALSE
6124: , p_count => x_msg_count
6125: , p_data => x_msg_data
6126: );
6129: x_return_status := FND_API.G_RET_STS_ERROR;
6130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6131: ROLLBACK TO CreatePMDBSCKPIs;
6132: IF (x_msg_data IS NULL) THEN
6133: FND_MSG_PUB.Count_And_Get
6134: ( p_encoded => FND_API.G_FALSE
6135: , p_count => x_msg_count
6136: , p_data => x_msg_data
6137: );
6257: l_tokens VARCHAR2(2000);
6258: l_Msg_Data VARCHAR2(32000);
6259: l_msg_count NUMBER;
6260: BEGIN
6261: FND_MSG_PUB.Initialize;
6262:
6263: SELECT Full_Name
6264: INTO l_tokens
6265: FROM bsc_oaf_analysys_opt_comb_v
6271:
6272: IF(l_tokens IS NOT NULL) THEN
6273: FND_MESSAGE.SET_NAME('BSC','BSC_MEAS_DELETE_DEPEND');
6274: FND_MESSAGE.SET_TOKEN('MEASURE', l_tokens);
6275: FND_MSG_PUB.ADD;
6276: RAISE FND_API.G_EXC_ERROR;
6277: END IF;
6278:
6279: RETURN NULL;
6280:
6281: EXCEPTION
6282: WHEN FND_API.G_EXC_ERROR THEN
6283: IF (l_Msg_Data IS NULL) THEN
6284: FND_MSG_PUB.Count_And_Get
6285: ( p_encoded => FND_API.G_FALSE
6286: , p_count => l_msg_count
6287: , p_data => l_Msg_Data
6288: );
6290: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.get_anal_opt_comb_message');
6291: RETURN l_Msg_Data;
6292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6293: IF (l_Msg_Data IS NULL) THEN
6294: FND_MSG_PUB.Count_And_Get
6295: ( p_encoded => FND_API.G_FALSE
6296: , p_count => l_msg_count
6297: , p_data => l_Msg_Data
6298: );
6342: AND A.Dim_Group_ID = B.Dim_Group_ID
6343: AND B.Short_Name <> BSC_BIS_DIMENSION_PUB.Unassigned_Dim;
6344: BEGIN
6345: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet procedure');
6346: FND_MSG_PUB.Initialize;
6347: x_return_status := FND_API.G_RET_STS_SUCCESS;
6348: l_bsc_dimset_rec.Bsc_Dim_Level_Help := 'XXX';
6349: l_bsc_dimset_rec.Bsc_Dim_Level_Long_Name := 'XXX';
6350: l_bsc_dimset_rec.Bsc_Dim_Tot_Disp_Name := 'XXX';
6396: GROUP BY SYS_DIM_LEL.Dim_Level_Id);
6397: --dbms_output.PUT_LINE('l_count '||l_count);
6398: IF (l_count > 1) THEN
6399: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_COMMON_DIM_OBJS');
6400: FND_MSG_PUB.ADD;
6401: RAISE FND_API.G_EXC_ERROR;
6402: END IF;
6403:
6404: IF (p_delete) THEN
6511: AND KPI_GROUP.Dim_Set_Id = l_bsc_dimset_rec.Bsc_Dim_Set_Id
6512: GROUP BY SYS_DIM_LEL.Dim_Level_Id);
6513: IF (l_count > 1) THEN
6514: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_COMMON_DIM_OBJS');
6515: FND_MSG_PUB.ADD;
6516: RAISE FND_API.G_EXC_ERROR;
6517: END IF;
6518: FOR cn_bsc IN c_dim_group_id LOOP
6519: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := cn_bsc.Dim_Group_ID;
6604: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet procedure');
6605: EXCEPTION
6606: WHEN FND_API.G_EXC_ERROR THEN
6607: IF (x_msg_data IS NULL) THEN
6608: FND_MSG_PUB.Count_And_Get
6609: ( p_encoded => FND_API.G_FALSE
6610: , p_count => x_msg_count
6611: , p_data => x_msg_data
6612: );
6614: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6615: x_return_status := FND_API.G_RET_STS_ERROR;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: IF (x_msg_data IS NULL) THEN
6618: FND_MSG_PUB.Count_And_Get
6619: ( p_encoded => FND_API.G_FALSE
6620: , p_count => x_msg_count
6621: , p_data => x_msg_data
6622: );
6675: FROM BSC_SYS_DIM_LEVELS_BY_GROUP
6676: WHERE dim_group_id = l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id;
6677: BEGIN
6678: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet procedure');
6679: FND_MSG_PUB.Initialize;
6680: x_return_status := FND_API.G_RET_STS_SUCCESS;
6681: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
6682: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
6683: FOR cn_bsc IN c_dim_group_id LOOP
6807: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet procedure');
6808: EXCEPTION
6809: WHEN FND_API.G_EXC_ERROR THEN
6810: IF (x_msg_data IS NULL) THEN
6811: FND_MSG_PUB.Count_And_Get
6812: ( p_encoded => FND_API.G_FALSE
6813: , p_count => x_msg_count
6814: , p_data => x_msg_data
6815: );
6817: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6818: x_return_status := FND_API.G_RET_STS_ERROR;
6819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6820: IF (x_msg_data IS NULL) THEN
6821: FND_MSG_PUB.Count_And_Get
6822: ( p_encoded => FND_API.G_FALSE
6823: , p_count => x_msg_count
6824: , p_data => x_msg_data
6825: );
6860: OR Indicator = p_kpi_id)
6861: AND share_flag <> 2;
6862: BEGIN
6863: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.get_KPIs Function');
6864: FND_MSG_PUB.Initialize;
6865: IF (p_Kpi_ID IS NULL) THEN
6866: RETURN NULL;
6867: END IF;
6868: IF (NOT BSC_UTILITY.isBscInProductionMode()) THEN
6887: IF (l_kpi_names IS NOT NULL) THEN
6888: --raise exception for Structural Changes
6889: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_KPI_STRUCT_INVALID');
6890: FND_MESSAGE.SET_TOKEN('INDICATORS', l_kpi_names);
6891: FND_MSG_PUB.ADD;
6892: RAISE FND_API.G_EXC_ERROR;
6893: END IF;
6894: --dbms_output.PUT_LINE('Exiting from BSC_BIS_KPI_MEAS_PUB.get_KPIs Function');
6895: RETURN NULL;
6895: RETURN NULL;
6896: EXCEPTION
6897: WHEN FND_API.G_EXC_ERROR THEN
6898: IF (l_Msg_Data IS NULL) THEN
6899: FND_MSG_PUB.Count_And_Get
6900: ( p_encoded => FND_API.G_FALSE
6901: , p_count => l_msg_count
6902: , p_data => l_Msg_Data
6903: );
6905: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.get_KPIs');
6906: RETURN l_Msg_Data;
6907: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6908: IF (l_Msg_Data IS NULL) THEN
6909: FND_MSG_PUB.Count_And_Get
6910: ( p_encoded => FND_API.G_FALSE
6911: , p_count => l_msg_count
6912: , p_data => l_Msg_Data
6913: );
6962: AND B.Dim_Set_ID = p_Dim_Set_ID
6963: ORDER BY B.Dim_Group_Index;
6964: BEGIN
6965: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets Function');
6966: FND_MSG_PUB.Initialize;
6967: l_Dim_Short_Names := p_Dim_Short_Names;
6968: IF (p_Kpi_ID IS NULL) THEN
6969: RETURN NULL;
6970: END IF;
7084: RETURN NULL;
7085: EXCEPTION
7086: WHEN FND_API.G_EXC_ERROR THEN
7087: IF (l_Msg_Data IS NULL) THEN
7088: FND_MSG_PUB.Count_And_Get
7089: ( p_encoded => FND_API.G_FALSE
7090: , p_count => l_msg_count
7091: , p_data => l_Msg_Data
7092: );
7094: --dbms_output.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR BSC_BIS_KPI_MEAS_PUB.is_KPI_Flag_For_Dim_In_DimSets');
7095: RETURN l_Msg_Data;
7096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7097: IF (l_Msg_Data IS NULL) THEN
7098: FND_MSG_PUB.Count_And_Get
7099: ( p_encoded => FND_API.G_FALSE
7100: , p_count => l_msg_count
7101: , p_data => l_Msg_Data
7102: );
7154: i NUMBER;
7155: l_dim_short_name VARCHAR2(30);
7156:
7157: BEGIN
7158: FND_MSG_PUB.Initialize;
7159: l_unassign_dim_name := p_Unassign_dim_names;
7160: l_assign_dim_name := p_Dim_Short_Names;
7161: OPEN cr_Old_Dimensions;
7162: -- bug#3405498 meastmon 28-jan-2004: The following is not supported in 8i
7210: --dbms_output.PUT_LINE('DIMESION OBJECTS MESSAEGE' );
7211: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SPACE');
7212: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7213: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7214: FND_MSG_PUB.ADD;
7215: RAISE FND_API.G_EXC_ERROR;
7216: END IF;
7217:
7218: SELECT COUNT(DIM_SET_ID) INTO l_dim_set_count
7222: --dbms_output.PUT_LINE('FIRST dimset IF LOOP' );
7223: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SUMMARY_LVL');
7224: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7225: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7226: FND_MSG_PUB.ADD;
7227: RAISE FND_API.G_EXC_ERROR;
7228: END IF;
7229: --dbms_output.PUT_LINE('DIM SET COUNT :- '||l_dim_set_count );
7230: IF(l_dim_set_count = BSC_BIS_KPI_MEAS_PUB.CONFIG_LIMIT_DIMSET AND p_Dim_Set_ID IS NULL ) THEN
7231: --dbms_output.PUT_LINE('dimset IF LOOP' );
7232: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SUMMARY_LVL');
7233: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7234: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7235: FND_MSG_PUB.ADD;
7236: RAISE FND_API.G_EXC_ERROR;
7237: END IF;
7238:
7239: OPEN cr_dim_objs_in_dimset ;
7263: --dbms_output.PUT_LINE('RELATIONS MESSAGE' );
7264: FND_MESSAGE.SET_NAME('BSC','BSC_PMD_IMPACT_KPI_SUMMARY_LVL');
7265: FND_MESSAGE.SET_TOKEN('CONTINUE', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'YES'), TRUE);
7266: FND_MESSAGE.SET_TOKEN('CANCEL', BSC_APPS.Get_Lookup_Value('BSC_UI_KPIDESIGNER', 'NO'), TRUE);
7267: FND_MSG_PUB.ADD;
7268: RAISE FND_API.G_EXC_ERROR;
7269: END IF;
7270: IF(cr_dim_objs_in_dimset %ISOPEN) THEN
7271: CLOSE cr_dim_objs_in_dimset ;
7276: RETURN NULL;
7277: EXCEPTION
7278: WHEN FND_API.G_EXC_ERROR THEN
7279: IF (l_Msg_Data IS NULL) THEN
7280: FND_MSG_PUB.Count_And_Get
7281: ( p_encoded => FND_API.G_FALSE
7282: , p_count => l_msg_count
7283: , p_data => l_Msg_Data
7284: );
7469:
7470: BEGIN
7471: --dbms_output.PUT_LINE('Entered inside BSC_BIS_KPI_MEAS_PUB.Delete_KPI_Multi_Groups_Opts procedure');
7472: SAVEPOINT DeleteBSCKPIMulAnaOpts;
7473: FND_MSG_PUB.Initialize;
7474: x_return_status := FND_API.G_RET_STS_SUCCESS;
7475: IF (p_data_source IS NULL) THEN
7476: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7477: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DATA_SOURCE'), TRUE);
7474: x_return_status := FND_API.G_RET_STS_SUCCESS;
7475: IF (p_data_source IS NULL) THEN
7476: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7477: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'DATA_SOURCE'), TRUE);
7478: FND_MSG_PUB.ADD;
7479: RAISE FND_API.G_EXC_ERROR;
7480: END IF;
7481: IF ((p_data_source <> 'BSC') AND (p_data_source <> 'PMF')) THEN
7482: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
7479: RAISE FND_API.G_EXC_ERROR;
7480: END IF;
7481: IF ((p_data_source <> 'BSC') AND (p_data_source <> 'PMF')) THEN
7482: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_DATA_SOURCE');
7483: FND_MSG_PUB.ADD;
7484: RAISE FND_API.G_EXC_ERROR;
7485: END IF;
7486:
7487: l_series_delete := FALSE;
7504:
7505: IF (l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id IS NULL) THEN
7506: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7507: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
7508: FND_MSG_PUB.ADD;
7509: RAISE FND_API.G_EXC_ERROR;
7510: END IF;
7511:
7512: SELECT COUNT(*) INTO l_count
7514: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
7515: IF (l_count = 0) THEN
7516: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
7517: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'KPI_ID'), TRUE);
7518: FND_MSG_PUB.ADD;
7519: RAISE FND_API.G_EXC_ERROR;
7520: END IF;
7521: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id IS NULL) THEN
7522: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7520: END IF;
7521: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Option_Id IS NULL) THEN
7522: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7523: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_OPTIONS'), TRUE);
7524: FND_MSG_PUB.ADD;
7525: RAISE FND_API.G_EXC_ERROR;
7526: END IF;
7527: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
7528: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7526: END IF;
7527: IF (l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id IS NULL) THEN
7528: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
7529: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ANALYSIS_GROUP'), TRUE);
7530: FND_MSG_PUB.ADD;
7531: RAISE FND_API.G_EXC_ERROR;
7532: END IF;
7533:
7534: SELECT share_flag INTO l_count
7535: FROM BSC_KPIS_B
7536: WHERE indicator = l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id;
7537: IF (l_count = 2) THEN
7538: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
7539: FND_MSG_PUB.ADD;
7540: RAISE FND_API.G_EXC_ERROR;
7541: END IF;
7542: -- obtain dimension set id this option is using.
7543: SELECT dim_set_id INTO l_Bsc_Anal_Opt_Rec.Bsc_Dim_Set_Id
7735: EXCEPTION
7736: WHEN FND_API.G_EXC_ERROR THEN
7737: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7738: IF (x_msg_data IS NULL) THEN
7739: FND_MSG_PUB.Count_And_Get
7740: ( p_encoded => FND_API.G_FALSE
7741: , p_count => x_msg_count
7742: , p_data => x_msg_data
7743: );
7746: x_return_status := FND_API.G_RET_STS_ERROR;
7747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7748: ROLLBACK TO DeleteBSCKPIMulAnaOpts;
7749: IF (x_msg_data IS NULL) THEN
7750: FND_MSG_PUB.Count_And_Get
7751: ( p_encoded => FND_API.G_FALSE
7752: , p_count => x_msg_count
7753: , p_data => x_msg_data
7754: );
7978:
7979: EXCEPTION
7980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7981: IF (x_msg_data IS NULL) THEN
7982: FND_MSG_PUB.Count_And_Get
7983: ( p_encoded => FND_API.G_FALSE
7984: , p_count => x_msg_count
7985: , p_data => x_msg_data
7986: );