118: p_api_call varchar2
119: ) is
120:
121: begin
122: FND_MSG_PUB.Initialize;
123: if p_api_call = 'YES' then
124: g_Fire := 'YES';
125: else
126: g_Fire := 'NO';
148:
149: l_tbl_cnt number;
150:
151: begin
152: FND_MSG_PUB.Initialize;
153: g_Bsc_Pmf_Ui_Rec.Kpi_id := to_number(p_kpi_id);
154: g_Bsc_Pmf_Ui_Rec.Measure_Short_Name := p_meas_short_name;
155:
156: l_tbl_cnt := g_Bsc_Pmf_Dim_Tbl.count;
177: END IF;
178: EXCEPTION
179: WHEN FND_API.G_EXC_ERROR THEN
180: rollback;
181: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
182: ,p_data => l_msg_data);
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: rollback;
185: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
181: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
182: ,p_data => l_msg_data);
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: rollback;
185: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
186: ,p_data => l_msg_data);
187: WHEN NO_DATA_FOUND THEN
188: rollback;
189: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
185: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
186: ,p_data => l_msg_data);
187: WHEN NO_DATA_FOUND THEN
188: rollback;
189: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
190: ,p_data => l_msg_data);
191: WHEN OTHERS THEN
192: rollback;
193: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
189: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
190: ,p_data => l_msg_data);
191: WHEN OTHERS THEN
192: rollback;
193: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
194: ,p_data => l_msg_data);
195: end Table_Generator;
196:
197: /************************************************************************************
245: l_cntr number;
246:
247:
248: BEGIN
249: FND_MSG_PUB.Initialize;
250: x_return_status := FND_API.G_RET_STS_SUCCESS;
251: -- The first thing to do is not to allow
252:
253: l_analysis_option_rec.Kpi_id := p_kpi_id;
407: EXCEPTION
408: WHEN FND_API.G_EXC_ERROR THEN
409: ROLLBACK;
410: IF (x_msg_data IS NULL) THEN
411: FND_MSG_PUB.Count_And_Get
412: ( p_encoded => FND_API.G_FALSE
413: , p_count => x_msg_count
414: , p_data => x_msg_data
415: );
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
420: ROLLBACK;
421: IF (x_msg_data IS NULL) THEN
422: FND_MSG_PUB.Count_And_Get
423: ( p_encoded => FND_API.G_FALSE
424: , p_count => x_msg_count
425: , p_data => x_msg_data
426: );
468:
469: --l_kpi_group_id number;
470:
471: begin
472: FND_MSG_PUB.Initialize;
473: x_return_status := FND_API.G_RET_STS_SUCCESS;
474: l_commit := FND_API.G_FALSE;
475: SAVEPOINT BSCCrtKPIGrpWrapper;
476:
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: ROLLBACK TO BSCCrtKPIGrpWrapper;
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 BSCCrtKPIGrpWrapper;
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: );
621:
622: l_commit varchar2(10);
623:
624: begin
625: FND_MSG_PUB.Initialize;
626: x_return_status := FND_API.G_RET_STS_SUCCESS;
627: l_commit := FND_API.G_FALSE; --local commit flag.
628: SAVEPOINT BSCCrtKPIGrpWrapper;
629:
679: EXCEPTION
680: WHEN FND_API.G_EXC_ERROR THEN
681: ROLLBACK TO BSCCrtKPIGrpWrapper;
682: IF (x_msg_data IS NULL) THEN
683: FND_MSG_PUB.Count_And_Get
684: ( p_encoded => FND_API.G_FALSE
685: , p_count => x_msg_count
686: , p_data => x_msg_data
687: );
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
692: ROLLBACK TO BSCCrtKPIGrpWrapper;
693: IF (x_msg_data IS NULL) THEN
694: FND_MSG_PUB.Count_And_Get
695: ( p_encoded => FND_API.G_FALSE
696: , p_count => x_msg_count
697: , p_data => x_msg_data
698: );
740:
741: l_kpi_group_id number;
742:
743: begin
744: FND_MSG_PUB.Initialize;
745: x_return_status := FND_API.G_RET_STS_SUCCESS;
746: SAVEPOINT BSCUpdKPIGrpWrapper;
747: l_commit := FND_API.G_TRUE;
748:
772: EXCEPTION
773: WHEN FND_API.G_EXC_ERROR THEN
774: ROLLBACK TO BSCUpdKPIGrpWrapper;
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: );
783: x_return_status := FND_API.G_RET_STS_ERROR;
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
785: ROLLBACK TO BSCUpdKPIGrpWrapper;
786: IF (x_msg_data IS NULL) THEN
787: FND_MSG_PUB.Count_And_Get
788: ( p_encoded => FND_API.G_FALSE
789: , p_count => x_msg_count
790: , p_data => x_msg_data
791: );
832: l_commit varchar2(10);
833:
834:
835: begin
836: FND_MSG_PUB.Initialize;
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838: SAVEPOINT BSCCreateKPIWrapper;
839: l_commit := FND_API.G_FALSE;
840:
871: EXCEPTION
872: WHEN FND_API.G_EXC_ERROR THEN
873: ROLLBACK TO BSCCreateKPIWrapper;
874: IF (x_msg_data IS NULL) THEN
875: FND_MSG_PUB.Count_And_Get
876: ( p_encoded => FND_API.G_FALSE
877: , p_count => x_msg_count
878: , p_data => x_msg_data
879: );
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO BSCCreateKPIWrapper;
885: IF (x_msg_data IS NULL) THEN
886: FND_MSG_PUB.Count_And_Get
887: ( p_encoded => FND_API.G_FALSE
888: , p_count => x_msg_count
889: , p_data => x_msg_data
890: );
934: l_Bsc_Kpi_Entity_Rec_Out BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
935: l_commit varchar2(10);
936:
937: begin
938: FND_MSG_PUB.Initialize;
939: x_return_status := FND_API.G_RET_STS_SUCCESS;
940: SAVEPOINT BSCCreateKPIWrapper;
941: l_commit := FND_API.G_FALSE; --local commit flag.
942:
989: EXCEPTION
990: WHEN FND_API.G_EXC_ERROR THEN
991: ROLLBACK TO BSCCreateKPIWrapper;
992: IF (x_msg_data IS NULL) THEN
993: FND_MSG_PUB.Count_And_Get
994: ( p_encoded => FND_API.G_FALSE
995: , p_count => x_msg_count
996: , p_data => x_msg_data
997: );
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: ROLLBACK TO BSCCreateKPIWrapper;
1003: IF (x_msg_data IS NULL) THEN
1004: FND_MSG_PUB.Count_And_Get
1005: ( p_encoded => FND_API.G_FALSE
1006: , p_count => x_msg_count
1007: , p_data => x_msg_data
1008: );
1054:
1055: l_count number;
1056:
1057: begin
1058: FND_MSG_PUB.Initialize;
1059: x_return_status := FND_API.G_RET_STS_SUCCESS;
1060: SAVEPOINT BSCUpdateKPIWrapper;
1061: l_commit := FND_API.G_TRUE;
1062:
1090:
1091: FND_MESSAGE.SET_NAME('BSC','BSC_B_NO_SAMEKPI_TAB');
1092: FND_MESSAGE.SET_TOKEN('Indicator name: ', p_kpi_name);
1093: FND_MESSAGE.SET_TOKEN('Tab name: ', l_tab_name);
1094: FND_MSG_PUB.ADD;
1095: RAISE FND_API.G_EXC_ERROR;
1096: end if;
1097:
1098:
1166: EXCEPTION
1167: WHEN FND_API.G_EXC_ERROR THEN
1168: ROLLBACK TO BSCUpdateKPIWrapper;
1169: IF (x_msg_data IS NULL) THEN
1170: FND_MSG_PUB.Count_And_Get
1171: ( p_encoded => FND_API.G_FALSE
1172: , p_count => x_msg_count
1173: , p_data => x_msg_data
1174: );
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1179: ROLLBACK TO BSCUpdateKPIWrapper;
1180: IF (x_msg_data IS NULL) THEN
1181: FND_MSG_PUB.Count_And_Get
1182: ( p_encoded => FND_API.G_FALSE
1183: , p_count => x_msg_count
1184: , p_data => x_msg_data
1185: );
1223: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
1224: l_commit VARCHAR2(10);
1225: l_tab_Id NUMBER;
1226: BEGIN
1227: FND_MSG_PUB.Initialize;
1228: x_return_status := FND_API.G_RET_STS_SUCCESS;
1229: SAVEPOINT BSCPMFUICrtTab;
1230: l_commit := FND_API.G_TRUE;
1231: BSC_PMF_UI_WRAPPER.Create_Tab
1251: EXCEPTION
1252: WHEN FND_API.G_EXC_ERROR THEN
1253: ROLLBACK TO BSCPMFUICrtTab;
1254: IF (x_msg_data IS NULL) THEN
1255: FND_MSG_PUB.Count_And_Get
1256: ( p_encoded => FND_API.G_FALSE
1257: , p_count => x_msg_count
1258: , p_data => x_msg_data
1259: );
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1264: ROLLBACK TO BSCPMFUICrtTab;
1265: IF (x_msg_data IS NULL) THEN
1266: FND_MSG_PUB.Count_And_Get
1267: ( p_encoded => FND_API.G_FALSE
1268: , p_count => x_msg_count
1269: , p_data => x_msg_data
1270: );
1315: l_Bsc_Tab_Entity_Rec_P BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
1316: l_commit VARCHAR2(10);
1317: l_parent_tab_id NUMBER := NULL;
1318: BEGIN
1319: FND_MSG_PUB.Initialize;
1320: x_return_status := FND_API.G_RET_STS_SUCCESS;
1321: SAVEPOINT BSCPMFUICrtTab1;
1322: l_commit := FND_API.G_FALSE;
1323: -- check value of parent_tab_id. If value is -2 then the tab about to be created is
1395: EXCEPTION
1396: WHEN FND_API.G_EXC_ERROR THEN
1397: ROLLBACK TO BSCPMFUICrtTab1;
1398: IF (x_msg_data IS NULL) THEN
1399: FND_MSG_PUB.Count_And_Get
1400: ( p_encoded => FND_API.G_FALSE
1401: , p_count => x_msg_count
1402: , p_data => x_msg_data
1403: );
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: ROLLBACK TO BSCPMFUICrtTab1;
1409: IF (x_msg_data IS NULL) THEN
1410: FND_MSG_PUB.Count_And_Get
1411: ( p_encoded => FND_API.G_FALSE
1412: , p_count => x_msg_count
1413: , p_data => x_msg_data
1414: );
1458:
1459: l_commit varchar2(10);
1460:
1461: begin
1462: FND_MSG_PUB.Initialize;
1463: x_return_status := FND_API.G_RET_STS_SUCCESS;
1464: SAVEPOINT BSCPMFUIUpdTab;
1465: BSC_PMF_UI_WRAPPER.Update_Tab
1466: ( p_commit => FND_API.G_FALSE
1486: EXCEPTION
1487: WHEN FND_API.G_EXC_ERROR THEN
1488: ROLLBACK TO BSCPMFUIUpdTab;
1489: IF (x_msg_data IS NULL) THEN
1490: FND_MSG_PUB.Count_And_Get
1491: ( p_encoded => FND_API.G_FALSE
1492: , p_count => x_msg_count
1493: , p_data => x_msg_data
1494: );
1497: x_return_status := FND_API.G_RET_STS_ERROR;
1498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1499: ROLLBACK TO BSCPMFUIUpdTab;
1500: IF (x_msg_data IS NULL) THEN
1501: FND_MSG_PUB.Count_And_Get
1502: ( p_encoded => FND_API.G_FALSE
1503: , p_count => x_msg_count
1504: , p_data => x_msg_data
1505: );
1556: SELECT Name
1557: FROM BSC_TABS_VL
1558: WHERE Tab_Id = l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id;
1559: begin
1560: FND_MSG_PUB.Initialize;
1561: x_return_status := FND_API.G_RET_STS_SUCCESS;
1562: SAVEPOINT BSCPMFUIUpdTab1;
1563: l_commit := FND_API.G_FALSE;
1564:
1571: CLOSE c_Tab_Name;
1572: IF (l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name IS NULL) THEN
1573: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
1574: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_IVIEWER', 'SCORECARD'), TRUE);
1575: FND_MSG_PUB.ADD;
1576: RAISE FND_API.G_EXC_ERROR;
1577: END IF;
1578: IF ((p_tab_name IS NOT NULL) AND (l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name <> p_tab_name)) THEN
1579: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name := TRIM(p_tab_name);
1584: AND UPPER(Name) = UPPER(l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name);
1585: IF (l_Count <> 0) THEN
1586: FND_MESSAGE.SET_NAME('BSC', 'BSC_TAB_NAME_EXISTS');
1587: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name);
1588: FND_MSG_PUB.ADD;
1589: RAISE FND_API.G_EXC_ERROR;
1590: END IF;
1591: END IF;
1592:
1652: IF (c_Tab_Name%ISOPEN) THEN
1653: CLOSE c_Tab_Name;
1654: END IF;
1655: IF (x_msg_data IS NULL) THEN
1656: FND_MSG_PUB.Count_And_Get
1657: ( p_encoded => FND_API.G_FALSE
1658: , p_count => x_msg_count
1659: , p_data => x_msg_data
1660: );
1666: IF (c_Tab_Name%ISOPEN) THEN
1667: CLOSE c_Tab_Name;
1668: END IF;
1669: IF (x_msg_data IS NULL) THEN
1670: FND_MSG_PUB.Count_And_Get
1671: ( p_encoded => FND_API.G_FALSE
1672: , p_count => x_msg_count
1673: , p_data => x_msg_data
1674: );
1722:
1723: l_commit varchar2(10);
1724:
1725: begin
1726: FND_MSG_PUB.Initialize;
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728: SAVEPOINT BSCPMFUIUpdAnaOpt;
1729: l_commit := FND_API.G_FALSE;
1730:
1767: EXCEPTION
1768: WHEN FND_API.G_EXC_ERROR THEN
1769: rollback to BSCPMFUIUpdAnaOpt;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1772: ,p_data => x_msg_data);
1773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1774: rollback to BSCPMFUIUpdAnaOpt;
1775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1772: ,p_data => x_msg_data);
1773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1774: rollback to BSCPMFUIUpdAnaOpt;
1775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1776: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1777: ,p_data => x_msg_data);
1778: WHEN NO_DATA_FOUND THEN
1779: rollback to BSCPMFUIUpdAnaOpt;
1780: x_return_status := FND_API.G_RET_STS_ERROR;
1777: ,p_data => x_msg_data);
1778: WHEN NO_DATA_FOUND THEN
1779: rollback to BSCPMFUIUpdAnaOpt;
1780: x_return_status := FND_API.G_RET_STS_ERROR;
1781: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1782: ,p_data => x_msg_data);
1783: WHEN OTHERS THEN
1784: rollback to BSCPMFUIUpdAnaOpt;
1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1782: ,p_data => x_msg_data);
1783: WHEN OTHERS THEN
1784: rollback to BSCPMFUIUpdAnaOpt;
1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1786: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1787: ,p_data => x_msg_data);
1788:
1789: end Update_Analysis_Option;
1790:
1822: l_ind_tab_count number;
1823: l_tab_id number;
1824:
1825: begin
1826: FND_MSG_PUB.Initialize;
1827: x_return_status := FND_API.G_RET_STS_SUCCESS;
1828: l_commit := FND_API.G_FALSE;
1829:
1830: -- set some of the values for the Record Type
2009: EXCEPTION
2010: WHEN FND_API.G_EXC_ERROR THEN
2011: rollback;
2012: x_return_status := FND_API.G_RET_STS_ERROR;
2013: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2014: ,p_data => x_msg_data);
2015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2016: rollback;
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2014: ,p_data => x_msg_data);
2015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2016: rollback;
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2019: ,p_data => x_msg_data);
2020: WHEN NO_DATA_FOUND THEN
2021: rollback;
2022: x_return_status := FND_API.G_RET_STS_ERROR;
2019: ,p_data => x_msg_data);
2020: WHEN NO_DATA_FOUND THEN
2021: rollback;
2022: x_return_status := FND_API.G_RET_STS_ERROR;
2023: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2024: ,p_data => x_msg_data);
2025: WHEN OTHERS THEN
2026: rollback;
2027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2024: ,p_data => x_msg_data);
2025: WHEN OTHERS THEN
2026: rollback;
2027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2028: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2029: ,p_data => x_msg_data);
2030:
2031:
2032:
2062: AND C.Source_Code = A.Tab_Id
2063: AND ((B.Indicator = p_kpi_id) OR (B.Source_Indicator = p_kpi_id));
2064:
2065: begin
2066: FND_MSG_PUB.Initialize;
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2068: SAVEPOINT BSCDelKPIWrapper;
2069: l_commit := FND_API.G_TRUE;
2070:
2141: END IF;
2142:
2143: ROLLBACK TO BSCDelKPIWrapper;
2144: IF (x_msg_data IS NULL) THEN
2145: FND_MSG_PUB.Count_And_Get
2146: ( p_encoded => FND_API.G_FALSE
2147: , p_count => x_msg_count
2148: , p_data => x_msg_data
2149: );
2156: CLOSE c_Tab_Id;
2157: END IF;
2158: ROLLBACK TO BSCDelKPIWrapper;
2159: IF (x_msg_data IS NULL) THEN
2160: FND_MSG_PUB.Count_And_Get
2161: ( p_encoded => FND_API.G_FALSE
2162: , p_count => x_msg_count
2163: , p_data => x_msg_data
2164: );
2209: l_commit varchar2(10);
2210: l_count NUMBER;
2211: l_group_name BSC_TAB_IND_GROUPS_TL.name%TYPE;
2212: begin
2213: FND_MSG_PUB.Initialize;
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2215: SAVEPOINT BSCDelKPIGrpWrapper;
2216: l_commit := FND_API.G_TRUE;
2217:
2235: EXCEPTION
2236: WHEN FND_API.G_EXC_ERROR THEN
2237: ROLLBACK TO BSCDelKPIGrpWrapper;
2238: IF (x_msg_data IS NULL) THEN
2239: FND_MSG_PUB.Count_And_Get
2240: ( p_encoded => FND_API.G_FALSE
2241: , p_count => x_msg_count
2242: , p_data => x_msg_data
2243: );
2246: x_return_status := FND_API.G_RET_STS_ERROR;
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: ROLLBACK TO BSCDelKPIGrpWrapper;
2249: IF (x_msg_data IS NULL) THEN
2250: FND_MSG_PUB.Count_And_Get
2251: ( p_encoded => FND_API.G_FALSE
2252: , p_count => x_msg_count
2253: , p_data => x_msg_data
2254: );
2304: AND T.Tab_Id = p_tab_id;
2305:
2306:
2307: begin
2308: FND_MSG_PUB.Initialize;
2309: x_return_status := FND_API.G_RET_STS_SUCCESS;
2310: SAVEPOINT BSCPMFUIDelete;
2311: l_commit := FND_API.G_FALSE;
2312:
2366: EXCEPTION
2367: WHEN FND_API.G_EXC_ERROR THEN
2368: ROLLBACK TO BSCPMFUIDelete;
2369: IF (x_msg_data IS NULL) THEN
2370: FND_MSG_PUB.Count_And_Get
2371: ( p_encoded => FND_API.G_FALSE
2372: , p_count => x_msg_count
2373: , p_data => x_msg_data
2374: );
2377: x_return_status := FND_API.G_RET_STS_ERROR;
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2379: ROLLBACK TO BSCPMFUIDelete;
2380: IF (x_msg_data IS NULL) THEN
2381: FND_MSG_PUB.Count_And_Get
2382: ( p_encoded => FND_API.G_FALSE
2383: , p_count => x_msg_count
2384: , p_data => x_msg_data
2385: );
2459: l_kpi_group_type number;
2460:
2461: begin
2462: SAVEPOINT BscPmfUIAssignKpi;
2463: FND_MSG_PUB.Initialize;
2464: x_return_status := FND_API.G_RET_STS_SUCCESS;
2465:
2466: --l_commit := FND_API.G_FALSE;
2467:
2501: -- if there are kpis in this tab which have the same name it throws an error.
2502: if l_same_name <> 0 then
2503: FND_MESSAGE.SET_NAME('BSC','BSC_B_NO_SAMEKPI_TAB');
2504: FND_MESSAGE.SET_TOKEN('Indicator name: ', l_kpi_name);
2505: FND_MSG_PUB.ADD;
2506: RAISE FND_API.G_EXC_ERROR;
2507: end if;
2508:
2509: -- need to get kpi group for this kpi.
2651: EXCEPTION
2652: WHEN FND_API.G_EXC_ERROR THEN
2653: ROLLBACK TO BscPmfUIAssignKpi;
2654: IF (x_msg_data IS NULL) THEN
2655: FND_MSG_PUB.Count_And_Get
2656: ( p_encoded => FND_API.G_FALSE
2657: , p_count => x_msg_count
2658: , p_data => x_msg_data
2659: );
2662: x_return_status := FND_API.G_RET_STS_ERROR;
2663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2664: ROLLBACK TO BscPmfUIAssignKpi;
2665: IF (x_msg_data IS NULL) THEN
2666: FND_MSG_PUB.Count_And_Get
2667: ( p_encoded => FND_API.G_FALSE
2668: , p_count => x_msg_count
2669: , p_data => x_msg_data
2670: );
2753: l_prototype_flag number;
2754: l_Simulation_Tree_flag number;
2755:
2756: begin
2757: FND_MSG_PUB.Initialize;
2758: x_return_status := FND_API.G_RET_STS_SUCCESS;
2759: SAVEPOINT BscPmfUIUnAssignKpi;
2760: l_commit := FND_API.G_TRUE;
2761:
2883: -- Check The Production Flag for The Master KPI
2884: IF (l_is_obj_in_production) THEN
2885: l_unassiged := 0;
2886: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_PROD_UNASSIGN');
2887: FND_MSG_PUB.ADD;
2888: RAISE FND_API.G_EXC_ERROR;
2889: ELSE
2890: IF (l_Simulation_Tree_flag = 0) THEN
2891: --- Delete Master KPI from Tab and Library.
2957: -- If there is more than one Share KPI user can not unassign the Master KPI from de Tab
2958: l_unassiged := 0;
2959: FND_MESSAGE.SET_NAME('BSC','BSC_NO_MASTER_DELETE');
2960: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2961: FND_MSG_PUB.ADD;
2962: RAISE FND_API.G_EXC_ERROR;
2963: end if;
2964: end if;
2965:
3052: EXCEPTION
3053: WHEN FND_API.G_EXC_ERROR THEN
3054: ROLLBACK TO BscPmfUIUnAssignKpi;
3055: IF (x_msg_data IS NULL) THEN
3056: FND_MSG_PUB.Count_And_Get
3057: ( p_encoded => FND_API.G_FALSE
3058: , p_count => x_msg_count
3059: , p_data => x_msg_data
3060: );
3063: x_return_status := FND_API.G_RET_STS_ERROR;
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065: ROLLBACK TO BscPmfUIUnAssignKpi;
3066: IF (x_msg_data IS NULL) THEN
3067: FND_MSG_PUB.Count_And_Get
3068: ( p_encoded => FND_API.G_FALSE
3069: , p_count => x_msg_count
3070: , p_data => x_msg_data
3071: );
3157: l_count NUMBER;
3158:
3159: BEGIN
3160:
3161: FND_MSG_PUB.Initialize;
3162: x_return_status := FND_API.G_RET_STS_SUCCESS;
3163: SAVEPOINT BscPmfUIUAssignKpiGrp;
3164:
3165: SELECT COUNT(*)
3227: CLOSE c_kpis;
3228: END IF;
3229: rollback to BscPmfUIUAssignKpiGrp;
3230: x_return_status := FND_API.G_RET_STS_ERROR;
3231: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3232: ,p_data => x_msg_data);
3233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3234: IF (c_kpis%ISOPEN) THEN
3235: CLOSE c_kpis;
3235: CLOSE c_kpis;
3236: END IF;
3237: rollback to BscPmfUIUAssignKpiGrp;
3238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3239: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3240: ,p_data => x_msg_data);
3241: WHEN NO_DATA_FOUND THEN
3242: IF (c_kpis%ISOPEN) THEN
3243: CLOSE c_kpis;
3243: CLOSE c_kpis;
3244: END IF;
3245: rollback to BscPmfUIUAssignKpiGrp;
3246: x_return_status := FND_API.G_RET_STS_ERROR;
3247: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3248: ,p_data => x_msg_data);
3249: WHEN OTHERS THEN
3250: IF (c_kpis%ISOPEN) THEN
3251: CLOSE c_kpis;
3251: CLOSE c_kpis;
3252: END IF;
3253: rollback to BscPmfUIUAssignKpiGrp;
3254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3255: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3256: ,p_data => x_msg_data);
3257:
3258: end Assign_KPI_Group;
3259:
3276:
3277: l_Bsc_kpi_Entity_Rec BSC_KPI_PUB.Bsc_kpi_Entity_Rec;
3278: l_time_stamp varchar(200);
3279: Begin
3280: FND_MSG_PUB.Initialize;
3281: x_return_status := FND_API.G_RET_STS_SUCCESS;
3282: SAVEPOINT BscPmfUIUAssignAnaOpt;
3283: --DBMS_OUTPUT.PUT_LINE('Begin BSC_PMF_UI_WRAPPER.Assign_Analysis_Option');
3284: FND_MSG_PUB.Initialize;
3280: FND_MSG_PUB.Initialize;
3281: x_return_status := FND_API.G_RET_STS_SUCCESS;
3282: SAVEPOINT BscPmfUIUAssignAnaOpt;
3283: --DBMS_OUTPUT.PUT_LINE('Begin BSC_PMF_UI_WRAPPER.Assign_Analysis_Option');
3284: FND_MSG_PUB.Initialize;
3285:
3286: IF p_time_stamp_to_check IS NOT NULL then
3287: l_time_stamp := get_KPI_Time_Stamp(p_kpi_id);
3288: IF l_time_stamp IS NULL or l_time_stamp <> p_time_stamp_to_check then
3286: IF p_time_stamp_to_check IS NOT NULL then
3287: l_time_stamp := get_KPI_Time_Stamp(p_kpi_id);
3288: IF l_time_stamp IS NULL or l_time_stamp <> p_time_stamp_to_check then
3289: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_CHANGED');
3290: FND_MSG_PUB.ADD;
3291: RAISE FND_API.G_EXC_ERROR;
3292: END if;
3293: ELSE
3294: Populate_Option_Dependency_Rec (
3335: EXCEPTION
3336: WHEN FND_API.G_EXC_ERROR THEN
3337: rollback to BscPmfUIUAssignAnaOpt;
3338: x_return_status := FND_API.G_RET_STS_ERROR;
3339: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3340: ,p_data => x_msg_data);
3341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3342: rollback to BscPmfUIUAssignAnaOpt;
3343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3340: ,p_data => x_msg_data);
3341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3342: rollback to BscPmfUIUAssignAnaOpt;
3343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3344: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3345: ,p_data => x_msg_data);
3346: WHEN NO_DATA_FOUND THEN
3347: rollback to BscPmfUIUAssignAnaOpt;
3348: x_return_status := FND_API.G_RET_STS_ERROR;
3345: ,p_data => x_msg_data);
3346: WHEN NO_DATA_FOUND THEN
3347: rollback to BscPmfUIUAssignAnaOpt;
3348: x_return_status := FND_API.G_RET_STS_ERROR;
3349: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3350: ,p_data => x_msg_data);
3351: WHEN OTHERS THEN
3352: rollback to BscPmfUIUAssignAnaOpt;
3353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3350: ,p_data => x_msg_data);
3351: WHEN OTHERS THEN
3352: rollback to BscPmfUIUAssignAnaOpt;
3353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3354: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3355: ,p_data => x_msg_data);
3356:
3357: End Assign_Analysis_Option;
3358:
3377: l_time_stamp varchar(200);
3378:
3379:
3380: Begin
3381: FND_MSG_PUB.Initialize;
3382: x_return_status := FND_API.G_RET_STS_SUCCESS;
3383: SAVEPOINT BscPmfUIUnAssignAnaOpt;
3384:
3385: IF p_time_stamp_to_check IS NOT NULL then
3385: IF p_time_stamp_to_check IS NOT NULL then
3386: l_time_stamp := get_KPI_Time_Stamp(p_kpi_id);
3387: IF l_time_stamp IS NULL or l_time_stamp <> p_time_stamp_to_check then
3388: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_CHANGED');
3389: FND_MSG_PUB.ADD;
3390: RAISE FND_API.G_EXC_ERROR;
3391: END if;
3392: ELSE
3393: Populate_Option_Dependency_Rec (
3436: EXCEPTION
3437: WHEN FND_API.G_EXC_ERROR THEN
3438: rollback to BscPmfUIUnAssignAnaOpt;
3439: x_return_status := FND_API.G_RET_STS_ERROR;
3440: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3441: ,p_data => x_msg_data);
3442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3443: rollback to BscPmfUIUnAssignAnaOpt;
3444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3441: ,p_data => x_msg_data);
3442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3443: rollback to BscPmfUIUnAssignAnaOpt;
3444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3445: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3446: ,p_data => x_msg_data);
3447: WHEN NO_DATA_FOUND THEN
3448: rollback to BscPmfUIUnAssignAnaOpt;
3449: x_return_status := FND_API.G_RET_STS_ERROR;
3446: ,p_data => x_msg_data);
3447: WHEN NO_DATA_FOUND THEN
3448: rollback to BscPmfUIUnAssignAnaOpt;
3449: x_return_status := FND_API.G_RET_STS_ERROR;
3450: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3451: ,p_data => x_msg_data);
3452: WHEN OTHERS THEN
3453: rollback to BscPmfUIUnAssignAnaOpt;
3454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3451: ,p_data => x_msg_data);
3452: WHEN OTHERS THEN
3453: rollback to BscPmfUIUnAssignAnaOpt;
3454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3455: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3456: ,p_data => x_msg_data);
3457:
3458: End Unassign_Analysis_Option;
3459:
3474: x_msg_data varchar2(3000);
3475: temp varchar2(5);
3476:
3477: Begin
3478: FND_MSG_PUB.Initialize;
3479: x_return_status := FND_API.G_RET_STS_SUCCESS;
3480: --DBMS_OUTPUT.PUT_LINE('Begin BSC_PMF_UI_WRAPPER.Is_Analysis_Option_Selected');
3481:
3482: -- it return Empty if option does not exist
3531: temp varchar2(5);
3532: l_count number;
3533:
3534: Begin
3535: FND_MSG_PUB.Initialize;
3536: x_return_status := FND_API.G_RET_STS_SUCCESS;
3537: --DBMS_OUTPUT.PUT_LINE('Begin BSC_PMF_UI_WRAPPER.Is_Leaf_Analysis_Option ');
3538:
3539:
3603: ) IS
3604:
3605: l_count number;
3606: Begin
3607: FND_MSG_PUB.Initialize;
3608: x_return_status := FND_API.G_RET_STS_SUCCESS;
3609: --DBMS_OUTPUT.PUT_LINE('Begin BSC_PMF_UI_WRAPPER.Populate_Option_Dependency_Rec');
3610:
3611: -- Evaluate if the Analysis option Exist in the Metadata
3620:
3621: if l_count = 0 then
3622: -- l_count = 0 means the option does not exist
3623: --DBMS_OUTPUT.PUT_LINE('--BSC_PMF_UI_WRAPPER.Populate_Option_Dependency_Rec - BSC_NO_VALUE_FOUND ');
3624: FND_MSG_PUB.Initialize;
3625: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3626: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', 'Populate_Option_Dependency_Rec');
3627: FND_MSG_PUB.ADD;
3628: RAISE FND_API.G_EXC_ERROR;
3623: --DBMS_OUTPUT.PUT_LINE('--BSC_PMF_UI_WRAPPER.Populate_Option_Dependency_Rec - BSC_NO_VALUE_FOUND ');
3624: FND_MSG_PUB.Initialize;
3625: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3626: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', 'Populate_Option_Dependency_Rec');
3627: FND_MSG_PUB.ADD;
3628: RAISE FND_API.G_EXC_ERROR;
3629: end if;
3630:
3631: p_Bsc_kpi_Entity_Rec.Bsc_kpi_Id := p_kpi_id;
3679: EXCEPTION
3680:
3681: WHEN FND_API.G_EXC_ERROR THEN
3682: x_return_status := FND_API.G_RET_STS_ERROR;
3683: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3684: ,p_data => x_msg_data);
3685: raise;
3686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3684: ,p_data => x_msg_data);
3685: raise;
3686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3688: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3689: ,p_data => x_msg_data);
3690: raise;
3691: WHEN NO_DATA_FOUND THEN
3692: x_return_status := FND_API.G_RET_STS_ERROR;
3689: ,p_data => x_msg_data);
3690: raise;
3691: WHEN NO_DATA_FOUND THEN
3692: x_return_status := FND_API.G_RET_STS_ERROR;
3693: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3694: ,p_data => x_msg_data);
3695: raise;
3696: WHEN OTHERS THEN
3697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3694: ,p_data => x_msg_data);
3695: raise;
3696: WHEN OTHERS THEN
3697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3698: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3699: ,p_data => x_msg_data);
3700: raise;
3701:
3702: End Populate_Option_Dependency_Rec;
3724:
3725: ) is
3726:
3727: begin
3728: FND_MSG_PUB.Initialize;
3729: x_return_status := FND_API.G_RET_STS_SUCCESS;
3730: --DBMS_OUTPUT.PUT_LINE('Begin ChangeErrorMsg');
3731:
3732: if x_return_status is not null then
3730: --DBMS_OUTPUT.PUT_LINE('Begin ChangeErrorMsg');
3731:
3732: if x_return_status is not null then
3733:
3734: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3735: ,p_data => x_msg_data);
3736: --DBMS_OUTPUT.PUT_LINE( '--- Change_Error_Msg - x_return_status = ' || x_return_status );
3737: --DBMS_OUTPUT.PUT_LINE( '--- Change_Error_Msg - x_msg_data = ' || x_msg_data );
3738: if p_msg_name is not null then
3737: --DBMS_OUTPUT.PUT_LINE( '--- Change_Error_Msg - x_msg_data = ' || x_msg_data );
3738: if p_msg_name is not null then
3739: if instr(x_msg_data, p_msg_name) <> 0 then
3740: if p_initialize_flag = 'Y' then
3741: FND_MSG_PUB.Initialize;
3742: end if;
3743: FND_MESSAGE.SET_NAME('BSC',p_new_msg_name);
3744: IF p_token1 is not null then
3745: FND_MESSAGE.SET_TOKEN(p_token1, p_token1_value);
3746: end if;
3747: IF p_token2 is not null then
3748: FND_MESSAGE.SET_TOKEN(p_token2, p_token2_value);
3749: end if;
3750: FND_MSG_PUB.ADD;
3751: if p_sys_admin_flag = 'Y' then
3752: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3753: FND_MSG_PUB.ADD;
3754: end if;
3749: end if;
3750: FND_MSG_PUB.ADD;
3751: if p_sys_admin_flag = 'Y' then
3752: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3753: FND_MSG_PUB.ADD;
3754: end if;
3755: RAISE FND_API.G_EXC_ERROR;
3756: end if;
3757: elsif p_new_msg_name is not null then
3755: RAISE FND_API.G_EXC_ERROR;
3756: end if;
3757: elsif p_new_msg_name is not null then
3758: if p_initialize_flag = 'Y' then
3759: FND_MSG_PUB.Initialize;
3760: end if;
3761: FND_MESSAGE.SET_NAME('BSC', p_new_msg_name);
3762: IF p_token1 is not null then
3763: FND_MESSAGE.SET_TOKEN(p_token1, p_token1_value);
3764: end if;
3765: IF p_token2 is not null then
3766: FND_MESSAGE.SET_TOKEN(p_token2, p_token2_value);
3767: end if;
3768: FND_MSG_PUB.ADD;
3769: if p_sys_admin_flag = 'Y' then
3770: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3771: FND_MSG_PUB.ADD;
3772: end if;
3767: end if;
3768: FND_MSG_PUB.ADD;
3769: if p_sys_admin_flag = 'Y' then
3770: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3771: FND_MSG_PUB.ADD;
3772: end if;
3773: if x_return_status = FND_API.G_RET_STS_ERROR then
3774: RAISE FND_API.G_EXC_ERROR;
3775: else
3776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3777: end if;
3778: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3779: if p_initialize_flag = 'Y' then
3780: FND_MSG_PUB.Initialize;
3781: end if;
3782: FND_MESSAGE.SET_NAME('BSC','BSC_WARNING_DIMREL_IMPORTERR');
3783: FND_MESSAGE.SET_TOKEN('RETURN_STATUS', x_return_status);
3784: FND_MESSAGE.SET_TOKEN('RETURN_MESSAGE', x_msg_data);
3781: end if;
3782: FND_MESSAGE.SET_NAME('BSC','BSC_WARNING_DIMREL_IMPORTERR');
3783: FND_MESSAGE.SET_TOKEN('RETURN_STATUS', x_return_status);
3784: FND_MESSAGE.SET_TOKEN('RETURN_MESSAGE', x_msg_data);
3785: FND_MSG_PUB.ADD;
3786: if p_sys_admin_flag = 'Y' then
3787: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3788: FND_MSG_PUB.ADD;
3789: end if;
3784: FND_MESSAGE.SET_TOKEN('RETURN_MESSAGE', x_msg_data);
3785: FND_MSG_PUB.ADD;
3786: if p_sys_admin_flag = 'Y' then
3787: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3788: FND_MSG_PUB.ADD;
3789: end if;
3790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3791: end if;
3792:
3797: EXCEPTION
3798: WHEN FND_API.G_EXC_ERROR THEN
3799: x_return_status := FND_API.G_RET_STS_ERROR;
3800:
3801: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3802: ,p_data => x_msg_data);
3803: --DBMS_OUTPUT.PUT_LINE('End ChangeErrorMsg');
3804:
3805: WHEN OTHERS THEN
3803: --DBMS_OUTPUT.PUT_LINE('End ChangeErrorMsg');
3804:
3805: WHEN OTHERS THEN
3806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3807: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3808: ,p_data => x_msg_data);
3809: --DBMS_OUTPUT.PUT_LINE('End ChangeErrorMsg');
3810:
3811:
3833: cv RefCurTyp;
3834:
3835:
3836: BEGIN
3837: FND_MSG_PUB.Initialize;
3838: x_return_status := FND_API.G_RET_STS_SUCCESS;
3839:
3840: v_Bsc_Pmf_Dim_Rec.Dimension_Level_Short_Name := p_Short_Name;
3841:
3856: EXCEPTION
3857: WHEN FND_API.G_EXC_ERROR THEN
3858: rollback;
3859: x_return_status := FND_API.G_RET_STS_ERROR;
3860: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3861: ,p_data => x_msg_data);
3862: Change_Error_Msg(
3863: p_msg_name => 'BSC_PMF_LEVEL_NOT_EXISTS'
3864: ,p_new_msg_name => 'BSC_LVLREL_VIEW_NOTEXIST'
3873: );
3874: WHEN OTHERS THEN /*FND_API.G_EXC_UNEXPECTED_ERROR THEN */
3875: rollback;
3876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3877: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3878: ,p_data => x_msg_data);
3879: Change_Error_Msg(
3880: p_new_msg_name => ''
3881: ,x_return_status => x_return_status
3920: FROM BSC_SYS_DIM_LEVEL_RELS
3921: WHERE DIM_LEVEL_ID = v_Dim_Level_Id;
3922:
3923: BEGIN
3924: FND_MSG_PUB.Initialize;
3925: x_return_status := FND_API.G_RET_STS_SUCCESS;
3926: -- Ckeck the Imput parameter
3927: /*
3928: if p_Dim_Level_Id Is null then
4083: IF (c_parents%ISOPEN) THEN
4084: CLOSE c_parents;
4085: END IF;
4086: x_return_status := FND_API.G_RET_STS_ERROR;
4087: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4088: ,p_data => x_msg_data);
4089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4090: rollback;
4091: IF (c_parents%ISOPEN) THEN
4091: IF (c_parents%ISOPEN) THEN
4092: CLOSE c_parents;
4093: END IF;
4094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4095: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4096: ,p_data => x_msg_data);
4097: WHEN NO_DATA_FOUND THEN
4098: rollback;
4099: IF (c_parents%ISOPEN) THEN
4099: IF (c_parents%ISOPEN) THEN
4100: CLOSE c_parents;
4101: END IF;
4102: x_return_status := FND_API.G_RET_STS_ERROR;
4103: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4104: ,p_data => x_msg_data);
4105: WHEN OTHERS THEN
4106: rollback;
4107: IF (c_parents%ISOPEN) THEN
4107: IF (c_parents%ISOPEN) THEN
4108: CLOSE c_parents;
4109: END IF;
4110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4111: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4112: ,p_data => x_msg_data);
4113:
4114: END Update_RelationShips;
4115:
4129: h_sub_string VARCHAR2(32700);
4130: h_position NUMBER;
4131:
4132: BEGIN
4133: FND_MSG_PUB.Initialize;
4134: --DBMS_OUTPUT.PUT_LINE('Begin Decompose_String_List');
4135:
4136: IF x_string IS NOT NULL THEN
4137: h_sub_string := x_string;
4175: x_msg_data varchar2(3000);
4176: v_count number;
4177:
4178: begin
4179: FND_MSG_PUB.Initialize;
4180: x_return_status := FND_API.G_RET_STS_SUCCESS;
4181: --DBMS_OUTPUT.PUT_LINE('Begin Create_PMF_Relationship' );
4182:
4183: v_Dim_Level_Rec.Bsc_Source := 'PMF';
4261: l_index number;
4262: l_pos number;
4263:
4264: begin
4265: FND_MSG_PUB.Initialize;
4266: x_return_status := FND_API.G_RET_STS_SUCCESS;
4267: SAVEPOINT BscPmfUIOrdTabIndex;
4268:
4269: l_tab_id_string := p_tab_ids;
4306: EXCEPTION
4307: WHEN FND_API.G_EXC_ERROR THEN
4308: ROLLBACK TO BscPmfUIOrdTabIndex;
4309: IF (x_msg_data IS NULL) THEN
4310: FND_MSG_PUB.Count_And_Get
4311: ( p_encoded => FND_API.G_FALSE
4312: , p_count => x_msg_count
4313: , p_data => x_msg_data
4314: );
4317: x_return_status := FND_API.G_RET_STS_ERROR;
4318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4319: ROLLBACK TO BscPmfUIOrdTabIndex;
4320: IF (x_msg_data IS NULL) THEN
4321: FND_MSG_PUB.Count_And_Get
4322: ( p_encoded => FND_API.G_FALSE
4323: , p_count => x_msg_count
4324: , p_data => x_msg_data
4325: );
4370: l_rollback number := 0; -- flag to prevent rollback for a specific
4371: -- case.
4372:
4373: begin
4374: FND_MSG_PUB.Initialize;
4375: x_return_status := FND_API.G_RET_STS_SUCCESS;
4376: SAVEPOINT BscPmfUIUptTabParent;
4377: l_commit := FND_API.G_FALSE;
4378:
4397: -- this will eventually be removed.
4398: l_rollback := 1;
4399: FND_MESSAGE.SET_NAME('BSC','BSC_NO_PARENT_TAB');
4400: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_parent_tab_id);
4401: FND_MSG_PUB.ADD;
4402: RAISE FND_API.G_EXC_ERROR;
4403: end if;
4404:
4405: end if;
4412: select name into l_tab_name
4413: from BSC_TABS_VL where tab_id = p_tab_id;
4414: FND_MESSAGE.SET_NAME('BSC','BSC_TAB_SELF_REL');
4415: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_tab_name);
4416: FND_MSG_PUB.ADD;
4417: RAISE FND_API.G_EXC_ERROR;
4418: else
4419: --Evaluate circular parent reference to fixs bug 2406652--
4420: l_return_value := BSC_SCORECARD_PUB.is_child_tab_of( p_parent_tab_id, p_tab_id );
4426: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_tab_name);
4427: select name into l_tab_name
4428: from BSC_TABS_VL where tab_id = p_parent_tab_id;
4429: FND_MESSAGE.SET_TOKEN('BSC_TABCHILD', l_tab_name);
4430: FND_MSG_PUB.ADD;
4431: RAISE FND_API.G_EXC_ERROR;
4432: end if;
4433:
4434: end if;
4502: EXCEPTION
4503: WHEN FND_API.G_EXC_ERROR THEN
4504: ROLLBACK TO BscPmfUIUptTabParent;
4505: IF (x_msg_data IS NULL) THEN
4506: FND_MSG_PUB.Count_And_Get
4507: ( p_encoded => FND_API.G_FALSE
4508: , p_count => x_msg_count
4509: , p_data => x_msg_data
4510: );
4513: x_return_status := FND_API.G_RET_STS_ERROR;
4514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4515: ROLLBACK TO BscPmfUIUptTabParent;
4516: IF (x_msg_data IS NULL) THEN
4517: FND_MSG_PUB.Count_And_Get
4518: ( p_encoded => FND_API.G_FALSE
4519: , p_count => x_msg_count
4520: , p_data => x_msg_data
4521: );
4559: l_commit varchar2(15);
4560: l_measure_col BSC_SYS_MEASURES.MEASURE_COL%TYPE;
4561:
4562: begin
4563: FND_MSG_PUB.Initialize;
4564: x_return_status := FND_API.G_RET_STS_SUCCESS;
4565: SAVEPOINT BscPmfUICrtMeas;
4566: l_commit := FND_API.G_FALSE;
4567:
4601: EXCEPTION
4602: WHEN FND_API.G_EXC_ERROR THEN
4603: ROLLBACK TO BscPmfUICrtMeas;
4604: IF (x_msg_data IS NULL) THEN
4605: FND_MSG_PUB.Count_And_Get
4606: ( p_encoded => FND_API.G_FALSE
4607: , p_count => x_msg_count
4608: , p_data => x_msg_data
4609: );
4612: x_return_status := FND_API.G_RET_STS_ERROR;
4613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4614: ROLLBACK TO BscPmfUICrtMeas;
4615: IF (x_msg_data IS NULL) THEN
4616: FND_MSG_PUB.Count_And_Get
4617: ( p_encoded => FND_API.G_FALSE
4618: , p_count => x_msg_count
4619: , p_data => x_msg_data
4620: );
4657: l_count number;
4658: e_error exception;
4659:
4660: begin
4661: FND_MSG_PUB.Initialize;
4662: BSC_APPS.Init_Bsc_Apps;
4663: BSC_MESSAGE.Init;
4664:
4665: -- Create the measure
4753: l_region_code varchar2(30);
4754: l_function_code varchar2(30);
4755:
4756: begin
4757: FND_MSG_PUB.Initialize;
4758: x_return_status := FND_API.G_RET_STS_SUCCESS;
4759: -- When this call was first implemented, PMV had mistakenly advice on using
4760: -- the most recent region code to obtain the proper report for the given measure
4761: -- After further research it was determined that this wrapper should be making
4893: EXCEPTION
4894: WHEN FND_API.G_EXC_ERROR THEN
4895: rollback;
4896: x_return_status := FND_API.G_RET_STS_ERROR;
4897: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4898: ,p_data => x_msg_data);
4899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4900: rollback;
4901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4898: ,p_data => x_msg_data);
4899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4900: rollback;
4901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4902: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4903: ,p_data => x_msg_data);
4904: WHEN NO_DATA_FOUND THEN
4905: rollback;
4906: x_return_status := FND_API.G_RET_STS_ERROR;
4903: ,p_data => x_msg_data);
4904: WHEN NO_DATA_FOUND THEN
4905: rollback;
4906: x_return_status := FND_API.G_RET_STS_ERROR;
4907: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4908: ,p_data => x_msg_data);
4909: WHEN OTHERS THEN
4910: rollback;
4911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4908: ,p_data => x_msg_data);
4909: WHEN OTHERS THEN
4910: rollback;
4911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4912: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4913: ,p_data => x_msg_data);
4914:
4915:
4916: end Get_PMV_Report_Levels;
5091: l_kpi_id VARCHAR2(10);
5092: l_Time_Stamp VARCHAR2(100);
5093: BEGIN
5094: SAVEPOINT BscPmfUIAssignKpiTab;
5095: FND_MSG_PUB.Initialize;
5096: x_return_status := FND_API.G_RET_STS_SUCCESS;
5097:
5098: IF(p_kpi_ids IS NOT NULL) THEN
5099: l_kpi_ids := p_kpi_ids;
5128: EXCEPTION
5129: WHEN FND_API.G_EXC_ERROR THEN
5130: rollback TO BscPmfUIAssignKpiTab;
5131: x_return_status := FND_API.G_RET_STS_ERROR;
5132: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5133: ,p_data => x_msg_data);
5134:
5135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5136: rollback TO BscPmfUIAssignKpiTab;
5136: rollback TO BscPmfUIAssignKpiTab;
5137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5138: if( x_msg_data is null) then
5139:
5140: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5141: ,p_data => x_msg_data);
5142: end if;
5143:
5144: WHEN NO_DATA_FOUND THEN
5143:
5144: WHEN NO_DATA_FOUND THEN
5145: rollback TO BscPmfUIAssignKpiTab;
5146: x_return_status := FND_API.G_RET_STS_ERROR;
5147: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5148: ,p_data => x_msg_data);
5149:
5150: WHEN OTHERS THEN
5151: rollback TO BscPmfUIAssignKpiTab;
5323: BEGIN
5324:
5325: SAVEPOINT UpdatePeriodicityPropsPUB;
5326: x_return_status := FND_API.G_RET_STS_SUCCESS;
5327: FND_MSG_PUB.Initialize;
5328:
5329: FOR cd IN c_Kpi_Periodicities LOOP
5330: IF p_Periodicity_Id_Tbl IS NOT NULL AND p_Periods_In_Graph IS NOT NULL THEN
5331: FOR i IN 1..p_Periodicity_Id_Tbl.COUNT LOOP
5388: EXCEPTION
5389: WHEN FND_API.G_EXC_ERROR THEN
5390: ROLLBACK TO UpdatePeriodicityPropsPUB;
5391: IF (x_msg_data IS NULL) THEN
5392: FND_MSG_PUB.Count_And_Get
5393: ( p_encoded => FND_API.G_FALSE
5394: , p_count => x_msg_count
5395: , p_data => x_msg_data
5396: );
5398: x_return_status := FND_API.G_RET_STS_ERROR;
5399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5400: ROLLBACK TO UpdatePeriodicityPropsPUB;
5401: IF (x_msg_data IS NULL) THEN
5402: FND_MSG_PUB.Count_And_Get
5403: ( p_encoded => FND_API.G_FALSE
5404: , p_count => x_msg_count
5405: , p_data => x_msg_data
5406: );
5508:
5509: BEGIN
5510:
5511: SAVEPOINT BSCUpdKpiPeriodicities;
5512: FND_MSG_PUB.Initialize;
5513:
5514: x_return_status := FND_API.G_RET_STS_SUCCESS;
5515: l_periodicity_ids := TRIM(p_periodicity_ids);
5516: l_Dft_periodicity_id := NULL;
5523: IF(l_periodicity_ids IS NULL )THEN
5524: RETURN;
5525: -- It should give a message, but needs to be verified that it has no impact on Report Designer.
5526: /*FND_MESSAGE.SET_NAME('BSC','BSC_D_KPI_AT_LEAST_1_PERIOD');
5527: FND_MSG_PUB.ADD;
5528: RAISE FND_API.G_EXC_ERROR;*/
5529: END IF;
5530:
5531: OPEN c_Yearly_Periodicity;
5552: EXECUTE IMMEDIATE l_sql INTO l_count USING p_calendar_id;
5553:
5554: IF(l_count > 1) THEN
5555: FND_MESSAGE.SET_NAME('BSC','BSC_D_ONE_PERIOD_IN_SIM_TREE');
5556: FND_MSG_PUB.ADD;
5557: RAISE FND_API.G_EXC_ERROR;
5558: END IF;
5559: END IF;*/
5560:
5863: IF (c_share_kpis%ISOPEN) THEN
5864: CLOSE c_share_kpis;
5865: END IF;
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: );
5877: IF (c_share_kpis%ISOPEN) THEN
5878: CLOSE c_share_kpis;
5879: END IF;
5880: IF (x_msg_data IS NULL) THEN
5881: FND_MSG_PUB.Count_And_Get
5882: ( p_encoded => FND_API.G_FALSE
5883: , p_count => x_msg_count
5884: , p_data => x_msg_data
5885: );
5938: AND a.indicator = d.indicator
5939: AND b.tab_id = p_tab_id;
5940:
5941: BEGIN
5942: FND_MSG_PUB.Initialize;
5943: x_return_status := FND_API.G_RET_STS_SUCCESS;
5944: l_dep_obj_list := '';
5945: x_msg_data := '';
5946: l_exist_dependency := FND_API.G_FALSE;
5962: , x_msg_count => x_msg_count
5963: , x_msg_data => l_msg_data);
5964:
5965: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
5966: FND_MSG_PUB.Initialize;
5967: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
5968: FND_MSG_PUB.ADD;
5969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5970: END IF;
5964:
5965: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
5966: FND_MSG_PUB.Initialize;
5967: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
5968: FND_MSG_PUB.ADD;
5969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5970: END IF;
5971:
5972: IF (l_exist_dependency = FND_API.G_TRUE) THEN
5972: IF (l_exist_dependency = FND_API.G_TRUE) THEN
5973: FND_MESSAGE.SET_NAME('BSC','BSC_SCR_DELETE_VIEW_ERR');
5974: FND_MESSAGE.SET_TOKEN('SCR_NAME', l_scr_name);
5975: FND_MESSAGE.SET_TOKEN('DEP_OBJ_LIST',l_dep_obj_list);
5976: FND_MSG_PUB.ADD;
5977: FND_MSG_PUB.Count_And_Get(
5978: p_encoded => FND_API.G_FALSE
5979: , p_count => x_msg_count
5980: , p_data => x_msg_data);
5973: FND_MESSAGE.SET_NAME('BSC','BSC_SCR_DELETE_VIEW_ERR');
5974: FND_MESSAGE.SET_TOKEN('SCR_NAME', l_scr_name);
5975: FND_MESSAGE.SET_TOKEN('DEP_OBJ_LIST',l_dep_obj_list);
5976: FND_MSG_PUB.ADD;
5977: FND_MSG_PUB.Count_And_Get(
5978: p_encoded => FND_API.G_FALSE
5979: , p_count => x_msg_count
5980: , p_data => x_msg_data);
5981: return;
5992: -- an AG Report scenario.
5993: FND_MESSAGE.SET_NAME('BSC','BSC_AG_SCORECARD_DELETE');
5994: FND_MESSAGE.SET_TOKEN('SNAME', l_scr_name);
5995: FND_MESSAGE.SET_TOKEN('RNAME', l_scr_name);
5996: FND_MSG_PUB.ADD;
5997: ELSE
5998: FOR cd_kpi_function IN c_Kpi_function LOOP
5999: -- call the procedure to get the parent objects for each KPI
6000: l_dep_obj_name := cd_kpi_function.function_name;
6000: l_dep_obj_name := cd_kpi_function.function_name;
6001: l_objective_name := cd_kpi_function.name;
6002: l_parent_obj_table := BIS_RSG_PUB_API_PKG.GetParentObjects(l_dep_obj_name,'REPORT','PORTLET',l_ret_status,l_msg_data);
6003: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6004: FND_MSG_PUB.Initialize;
6005: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
6006: FND_MSG_PUB.ADD;
6007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6008: ELSE
6002: l_parent_obj_table := BIS_RSG_PUB_API_PKG.GetParentObjects(l_dep_obj_name,'REPORT','PORTLET',l_ret_status,l_msg_data);
6003: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6004: FND_MSG_PUB.Initialize;
6005: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
6006: FND_MSG_PUB.ADD;
6007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6008: ELSE
6009: IF (l_parent_obj_table.COUNT > 0) THEN
6010: l_index := l_parent_obj_table.first;
6024: l_dep_obj_list := l_dep_obj_list || '';
6025: FND_MESSAGE.SET_NAME('BSC','BSC_SCR_DELETE');
6026: FND_MESSAGE.SET_TOKEN('SCR_NAME', l_scr_name);
6027: FND_MESSAGE.SET_TOKEN('DEP_OBJ_LIST',l_dep_obj_list);
6028: FND_MSG_PUB.ADD;
6029: END IF;
6030: END IF;
6031: END LOOP;
6032: END IF;
6030: END IF;
6031: END LOOP;
6032: END IF;
6033:
6034: FND_MSG_PUB.Count_And_Get
6035: ( p_encoded => FND_API.G_FALSE
6036: , p_count => x_msg_count
6037: , p_data => x_msg_data
6038: );
6041: IF (c_scr%ISOPEN) THEN
6042: CLOSE c_scr;
6043: END IF;
6044: IF (x_msg_data IS NULL) THEN
6045: FND_MSG_PUB.Count_And_Get
6046: ( p_encoded => FND_API.G_FALSE
6047: , p_count => x_msg_count
6048: , p_data => x_msg_data
6049: );
6054: IF (c_scr%ISOPEN) THEN
6055: CLOSE c_scr;
6056: END IF;
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: );
6128: ,x_msg_count => l_msg_count
6129: ,x_msg_data => l_msg_data);
6130:
6131: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6132: FND_MSG_PUB.Initialize;
6133: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
6134: FND_MSG_PUB.ADD;
6135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6136: END IF;
6130:
6131: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6132: FND_MSG_PUB.Initialize;
6133: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
6134: FND_MSG_PUB.ADD;
6135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6136: END IF;
6137:
6138: IF (l_exist_dependency = FND_API.G_TRUE) THEN
6150:
6151: EXCEPTION
6152: WHEN FND_API.G_EXC_ERROR THEN
6153: IF (x_msg_data IS NULL) THEN
6154: FND_MSG_PUB.Count_And_Get
6155: ( p_encoded => FND_API.G_FALSE
6156: ,p_count => x_msg_count
6157: ,p_data => x_msg_data
6158: );
6159: END IF;
6160: x_return_status := FND_API.G_RET_STS_ERROR;
6161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6162: IF (x_msg_data IS NULL) THEN
6163: FND_MSG_PUB.Count_And_Get
6164: ( p_encoded => FND_API.G_FALSE
6165: ,p_count => x_msg_count
6166: ,p_data => x_msg_data
6167: );
6204: ,x_return_status => x_return_status
6205: ,x_msg_count => x_msg_count
6206: ,x_msg_data => x_msg_data);
6207: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6208: FND_MSG_PUB.Initialize;
6209: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
6210: FND_MSG_PUB.ADD;
6211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6212: END IF;
6206: ,x_msg_data => x_msg_data);
6207: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6208: FND_MSG_PUB.Initialize;
6209: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
6210: FND_MSG_PUB.ADD;
6211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6212: END IF;
6213:
6214: EXCEPTION
6213:
6214: EXCEPTION
6215: WHEN FND_API.G_EXC_ERROR THEN
6216: IF (x_msg_data IS NULL) THEN
6217: FND_MSG_PUB.Count_And_Get
6218: ( p_encoded => FND_API.G_FALSE
6219: ,p_count => x_msg_count
6220: ,p_data => x_msg_data
6221: );
6222: END IF;
6223: x_return_status := FND_API.G_RET_STS_ERROR;
6224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6225: IF (x_msg_data IS NULL) THEN
6226: FND_MSG_PUB.Count_And_Get
6227: ( p_encoded => FND_API.G_FALSE
6228: ,p_count => x_msg_count
6229: ,p_data => x_msg_data
6230: );
6258: l_count NUMBER;
6259: l_next_image_id BSC_SYS_IMAGES.image_id%TYPE;
6260: BEGIN
6261: SAVEPOINT AddOrUpdateTabLogo;
6262: FND_MSG_PUB.INITIALIZE;
6263: x_return_status := FND_API.G_RET_STS_SUCCESS;
6264:
6265:
6266: SELECT COUNT(0)
6409: l_str VARCHAR2(100);
6410: BEGIN
6411:
6412: SAVEPOINT CreateScorecardlogo;
6413: FND_MSG_PUB.INITIALIZE;
6414: x_return_status := FND_API.G_RET_STS_SUCCESS;
6415:
6416: SELECT BSC_SYS_IMAGE_ID_S.NEXTVAL
6417: INTO l_next_image_id
6481: l_image_id BSC_SYS_IMAGES_MAP_TL.image_id%TYPE;
6482:
6483: BEGIN
6484: SAVEPOINT DeleteTabLogo;
6485: FND_MSG_PUB.INITIALIZE;
6486: x_return_status := FND_API.G_RET_STS_SUCCESS;
6487:
6488: IF(p_tab_id IS NOT NULL) THEN
6489: FOR cd IN c_tab_logo LOOP