1219: , x_msg_data OUT NOCOPY VARCHAR2
1220: , p_tab_name IN VARCHAR2 := NULL
1221: , p_tab_help IN VARCHAR2 := NULL
1222: ) IS
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;
1309: , p_tab_name IN VARCHAR2 := NULL
1310: , p_tab_help IN VARCHAR2 := NULL
1311: , p_tab_info IN VARCHAR2 := NULL
1312: ) IS
1313: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
1314: l_Bsc_Tab_Entity_Rec_Out BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
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;
1310: , p_tab_help IN VARCHAR2 := NULL
1311: , p_tab_info IN VARCHAR2 := NULL
1312: ) IS
1313: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
1314: l_Bsc_Tab_Entity_Rec_Out BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
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
1311: , p_tab_info IN VARCHAR2 := NULL
1312: ) IS
1313: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
1314: l_Bsc_Tab_Entity_Rec_Out BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
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;
1326: l_parent_tab_id := p_parent_tab_id;
1327: END IF;
1328:
1329: --Call procedure to initialize Tab Entity Rec
1330: BSC_SCORECARD_PUB.Initialize_Tab_Entity_Rec(
1331: p_Bsc_Tab_Entity_Rec => l_Bsc_Tab_Entity_Rec
1332: ,x_Bsc_Tab_Entity_Rec => l_Bsc_Tab_Entity_Rec
1333: ,x_return_status => x_return_status
1334: ,x_msg_count => x_msg_count
1347: l_Bsc_Tab_Entity_Rec.Bsc_Short_Name := p_Short_Name;
1348:
1349:
1350:
1351: BSC_SCORECARD_PUB.Create_Tab( p_commit => l_commit
1352: , p_Bsc_Tab_Entity_Rec => l_Bsc_Tab_Entity_Rec
1353: , x_Bsc_Tab_Entity_Rec => l_Bsc_Tab_Entity_Rec_Out
1354: , x_return_status => x_return_status
1355: , x_msg_count => x_msg_count
1364: l_Bsc_Tab_Entity_Rec_P.Bsc_Tab_Id := p_parent_tab_id;
1365:
1366: --Update the tab time stamp for parent tab.
1367: IF (p_parent_tab_id is not NULL) THEN
1368: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
1369: , l_Bsc_Tab_Entity_Rec_P
1370: , x_return_status
1371: , x_msg_count
1372: , x_msg_data);
1375: END IF;
1376: END IF;
1377:
1378: --update the system time stamp.
1379: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
1380: , l_Bsc_Tab_Entity_Rec
1381: , x_return_status
1382: , x_msg_count
1383: , x_msg_data);
1453: ,x_msg_data OUT NOCOPY varchar2
1454: ,p_tab_help IN varchar2 DEFAULT null
1455: ) is
1456:
1457: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
1458:
1459: l_commit varchar2(10);
1460:
1461: begin
1547: ,p_time_stamp IN VARCHAR2 := NULL
1548:
1549: ) is
1550:
1551: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
1552:
1553: l_commit varchar2(10);
1554: l_Count NUMBER := 0;
1555: CURSOR c_Tab_Name IS
1613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1614: END IF;
1615:
1616:
1617: BSC_SCORECARD_PUB.Update_Tab( FND_API.G_FALSE
1618: ,l_Bsc_Tab_Entity_Rec
1619: ,x_return_status
1620: ,x_msg_count
1621: ,x_msg_data);
1622: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625:
1626: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
1627: ,l_Bsc_Tab_Entity_Rec
1628: ,x_return_status
1629: ,x_msg_count
1630: ,x_msg_data);
1631: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
1636: ,l_Bsc_Tab_Entity_Rec
1637: ,x_return_status
1638: ,x_msg_count
1639: ,x_msg_data);
2043: ,x_msg_data OUT NOCOPY VARCHAR2
2044: ) is
2045:
2046: l_Bsc_Kpi_Entity BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
2047: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
2048: l_commit VARCHAR2(10);
2049: l_count NUMBER;
2050: l_Tab_Id BSC_TABS_B.Tab_Id%TYPE;
2051: l_Row_Count NUMBER;
2116: END LOOP;
2117:
2118: if l_count > 0 then
2119:
2120: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
2121: ,l_Bsc_Tab_Entity_Rec
2122: ,x_return_status
2123: ,x_msg_count
2124: ,x_msg_data);
2290: ,x_msg_count OUT NOCOPY number
2291: ,x_msg_data OUT NOCOPY varchar2
2292: ) is
2293:
2294: l_Bsc_Tab_Entity BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
2295: l_Bsc_Kpi_Entity BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
2296: l_commit varchar2(10);
2297:
2298: CURSOR c_Share_Ind IS
2328:
2329: -- set some of the values for the Record Type
2330: l_Bsc_Tab_Entity.Bsc_Tab_Id := p_tab_id;
2331:
2332: BSC_SCORECARD_PUB.Delete_Tab( FND_API.G_FALSE
2333: ,l_Bsc_Tab_Entity
2334: ,x_return_status
2335: ,x_msg_count
2336: ,x_msg_data);
2337: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2339: END IF;
2340:
2341: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
2342: ,l_Bsc_Tab_Entity
2343: ,x_return_status
2344: ,x_msg_count
2345: ,x_msg_data);
2439: ,p_time_stamp IN varchar2 := NULL
2440: ) is
2441:
2442: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
2443: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
2444:
2445: l_commit varchar2(10);
2446: l_option_ids varchar2(300);
2447: l_kpi_name varchar2(250);
2627: , x_msg_data => x_msg_data
2628: );
2629:
2630: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id := p_tab_id;
2631: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
2632: ,l_Bsc_Tab_Entity_Rec
2633: ,x_return_status
2634: ,x_msg_count
2635: ,x_msg_data);
2736:
2737: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
2738: l_Bsc_Kpi_Group_Rec BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec;
2739: l_Bsc_Option_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
2740: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
2741:
2742: l_commit varchar2(10);
2743:
2744: l_count number;
3018: , x_msg_data => x_msg_data
3019: );
3020:
3021: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id := p_tab_id;
3022: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
3023: ,l_Bsc_Tab_Entity_Rec
3024: ,x_return_status
3025: ,x_msg_count
3026: ,x_msg_data);
4358: ,x_msg_count OUT NOCOPY number
4359: ,x_msg_data OUT NOCOPY varchar2
4360: ) is
4361:
4362: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
4363:
4364: l_commit varchar2(10);
4365: l_tab_name varchar2(105);
4366: l_tab_index number;
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 );
4421: if l_return_value = FND_API.G_TRUE then
4422: --DBMS_OUTPUT.PUT_LINE(' Update_Tab_Parent l_return_value = ' || l_return_value );
4423: FND_MESSAGE.SET_NAME('BSC','BSC_TAB_CIRCULAR_REL');
4424: select name into l_tab_name
4455: from BSC_TABS_B
4456: where tab_id = p_parent_tab_id;
4457:
4458: -- call update Tab procedure.
4459: BSC_SCORECARD_PUB.Update_Tab( FND_API.G_FALSE
4460: ,l_Bsc_Tab_Entity_Rec
4461: ,x_return_status
4462: ,x_msg_count
4463: ,x_msg_data);
4465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4466: END IF;
4467:
4468: -- call time stamp for Tab
4469: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
4470: ,l_Bsc_Tab_Entity_Rec
4471: ,x_return_status
4472: ,x_msg_count
4473: ,x_msg_data);
4475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4476: END IF;
4477: -- Update time stamp for parent tab.
4478: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id := p_parent_tab_id;
4479: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
4480: ,l_Bsc_Tab_Entity_Rec
4481: ,x_return_status
4482: ,x_msg_count
4483: ,x_msg_data);
4484: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4486: END IF;
4487: -- Update system time stamp.
4488: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
4489: ,l_Bsc_Tab_Entity_Rec
4490: ,x_return_status
4491: ,x_msg_count
4492: ,x_msg_data);