[Home] [Help]
149: , x_return_status OUT NOCOPY VARCHAR2
150: , x_msg_count OUT NOCOPY NUMBER
151: , x_msg_data OUT NOCOPY VARCHAR2
152: )IS
153: l_Dim_Set_Rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
154: l_dim_level_id bsc_sys_dim_levels_b.dim_level_id%TYPE;
155: BEGIN
156: SELECT
157: d.dim_level_id
171: l_Dim_Set_Rec.Bsc_Level_Name := p_level_table_name;
172: l_Dim_Set_Rec.Bsc_Level_Id := l_dim_level_id;
173:
174: --Update bsc_kpi_dim_levels_b with the default_key_value
175: BSC_DIMENSION_SETS_PUB.Retrieve_Dim_Levels (
176: p_Dim_Set_Rec => l_Dim_Set_Rec
177: ,x_Dim_Set_Rec => l_Dim_Set_Rec
178: ,x_return_status => x_return_status
179: ,x_msg_count => x_msg_count
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: END IF;
185:
186: l_Dim_Set_Rec.Bsc_Dset_Default_Key_Value := p_key_value;
187: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels (
188: p_commit => FND_API.G_FALSE
189: ,p_Dim_Set_Rec => l_Dim_Set_Rec
190: ,x_return_status => x_return_status
191: ,x_msg_count => x_msg_count
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197:
198: --Update bsc_kpi_dim_level_properties with the default_key_value
199: BSC_DIMENSION_SETS_PUB.Retrieve_Dim_Level_Properties (
200: p_Dim_Set_Rec => l_Dim_Set_Rec
201: ,x_Dim_Set_Rec => l_Dim_Set_Rec
202: ,x_return_status => x_return_status
203: ,x_msg_count => x_msg_count
206: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208: END IF;
209: l_Dim_Set_Rec.Bsc_Dset_Default_Key_Value := p_key_value;
210: BSC_DIMENSION_SETS_PUB.Update_Dim_Level_Properties (
211: p_commit => FND_API.G_FALSE
212: ,p_Dim_Set_Rec => l_Dim_Set_Rec
213: ,x_return_status => x_return_status
214: ,x_msg_count => x_msg_count
395: , x_msg_count OUT NOCOPY NUMBER
396: , x_msg_data OUT NOCOPY VARCHAR2
397: ) IS
398: l_Count NUMBER;
399: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
400:
401: CURSOR c_kpi_ids IS
402: SELECT indicator
403: FROM BSC_KPIS_B
425: , x_msg_count => x_msg_count
426: , x_msg_data => x_msg_data
427: );
428: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
429: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
431: END IF;
432: --repeat the same steps for all the shared indicators
433: FOR cd IN c_kpi_ids LOOP
441: , x_msg_count => x_msg_count
442: , x_msg_data => x_msg_data
443: );
444: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
445: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
447: END IF;
448: END LOOP;
449: END IF;
504: , x_msg_count OUT NOCOPY NUMBER
505: , x_msg_data OUT NOCOPY VARCHAR2
506: ) IS
507: l_Count NUMBER;
508: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
509:
510: CURSOR c_kpi_ids IS
511: SELECT indicator
512: FROM BSC_KPIS_B
519: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
520: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
521:
522: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
523: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
524: ( p_commit => FND_API.G_FALSE
525: , p_Dim_Set_Rec => l_bsc_dimset_rec
526: , x_return_status => x_return_status
527: , x_msg_count => x_msg_count
534:
535: --repeat the same steps for all the shared indicators
536: FOR cd IN c_kpi_ids LOOP
537: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
538: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
539: ( p_commit => FND_API.G_FALSE
540: , p_Dim_Set_Rec => l_bsc_dimset_rec
541: , x_return_status => x_return_status
542: , x_msg_count => x_msg_count
542: , x_msg_count => x_msg_count
543: , x_msg_data => x_msg_data
544: );
545: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
546: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Default_Kpi_Dim_Object Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: END IF;
549: END LOOP;
550: IF (p_commit = FND_API.G_TRUE) THEN
620: l_assigns VARCHAR2(32000);
621: l_assign BSC_SYS_DIM_GROUPS_TL.Short_Name%TYPE;
622: l_MTab_DimInx_Old BSC_BIS_KPI_MEAS_PUB.Dim_Index_Table_Type;
623: l_MTab_DimInx_New BSC_BIS_KPI_MEAS_PUB.Dim_Index_Table_Type;
624: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
625:
626: CURSOR c_dim_index IS
627: SELECT A.Dim_Group_Id
628: , A.Dim_Group_Index
678: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := l_MTab_DimInx_Old(i).p_dim_group_id;
679: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Index := l_current_index;
680: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
681: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
682: BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset
683: ( p_commit => FND_API.G_FALSE
684: , p_Dim_Set_Rec => l_bsc_dimset_rec
685: , p_create_Dim_Lev_Grp => FALSE
686: , x_return_status => x_return_status
687: , x_msg_count => x_msg_count
688: , x_msg_data => x_msg_data
689: );
690: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
691: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694: --for shared KPIs
695: FOR cd IN c_kpi_ids LOOP
693: END IF;
694: --for shared KPIs
695: FOR cd IN c_kpi_ids LOOP
696: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.Indicator;
697: BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset
698: ( p_commit => FND_API.G_FALSE
699: , p_Dim_Set_Rec => l_bsc_dimset_rec
700: , p_create_Dim_Lev_Grp => FALSE
701: , x_return_status => x_return_status
702: , x_msg_count => x_msg_count
703: , x_msg_data => x_msg_data
704: );
705: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
706: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709: END LOOP;
710: END IF;
719: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id := l_MTab_DimInx_New(l_tab_index).p_dim_group_id;
720: l_bsc_dimset_rec.Bsc_Dim_Level_Group_Index := l_current_index;
721: l_bsc_dimset_rec.Bsc_Kpi_Id := p_kpi_id;
722: l_bsc_dimset_rec.Bsc_Dim_Set_Id := p_dim_set_id;
723: BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset
724: ( p_commit => FND_API.G_FALSE
725: , p_Dim_Set_Rec => l_bsc_dimset_rec
726: , p_create_Dim_Lev_Grp => FALSE
727: , x_return_status => x_return_status
728: , x_msg_count => x_msg_count
729: , x_msg_data => x_msg_data
730: );
731: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
732: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
734: END IF;
735: --for shared KPIs
736: FOR cd IN c_kpi_ids LOOP
734: END IF;
735: --for shared KPIs
736: FOR cd IN c_kpi_ids LOOP
737: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.Indicator;
738: BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset
739: ( p_commit => FND_API.G_FALSE
740: , p_Dim_Set_Rec => l_bsc_dimset_rec
741: , p_create_Dim_Lev_Grp => FALSE
742: , x_return_status => x_return_status
743: , x_msg_count => x_msg_count
744: , x_msg_data => x_msg_data
745: );
746: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
747: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Order_Dims_In_DSets Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Group_In_Dset');
748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
749: END IF;
750: END LOOP;
751: END IF;
1524: , x_return_status OUT NOCOPY VARCHAR2 -- Send the KPI Time Stamp
1525: , x_msg_count OUT NOCOPY NUMBER
1526: , x_msg_data OUT NOCOPY VARCHAR2
1527: )IS
1528: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
1529: l_index NUMBER := 0;
1530: l_count NUMBER;
1531: l_count_independent_dim_obj NUMBER;
1532: l_kpi_name VARCHAR2(32000);
1610: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_BIS_LOCKS_PUB.LOCK_KPI');
1611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1612: END IF;
1613: -- END Granular Locking
1614: BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl--INSERT INTO BSC_KPI_DIM_SETS_TL
1615: ( p_commit => FND_API.G_FALSE
1616: , p_Dim_Set_Rec => l_bsc_dimset_rec
1617: , x_return_status => x_return_status
1618: , x_msg_count => x_msg_count
1618: , x_msg_count => x_msg_count
1619: , x_msg_data => x_msg_data
1620: );
1621: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1622: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1626: ( p_commit => FND_API.G_FALSE
1631: , x_msg_count => x_msg_count
1632: , x_msg_data => x_msg_data
1633: );
1634: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1635: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1637: END IF;
1638: -- START: Granular Locking, Change time stamp of Dim Set & KPI
1639: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
1669: SELECT NVL(MAX(dim_set_id) + 1, 0)
1670: INTO l_bsc_dimset_rec.bsc_dim_set_id
1671: FROM BSC_KPI_DIM_SETS_VL
1672: WHERE indicator = l_bsc_dimset_rec.bsc_kpi_id;
1673: BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl--INSERT INTO BSC_KPI_DIM_SETS_TL
1674: ( p_commit => FND_API.G_FALSE
1675: , p_Dim_Set_Rec => l_bsc_dimset_rec
1676: , x_return_status => x_return_status
1677: , x_msg_count => x_msg_count
1677: , x_msg_count => x_msg_count
1678: , x_msg_data => x_msg_data
1679: );
1680: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1681: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Bsc_Kpi_Dim_Sets_Tl');
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684: BSC_BIS_KPI_MEAS_PUB.Create_Dim_Grp_Lev_In_Dset
1685: ( p_commit => FND_API.G_FALSE
1690: , x_msg_count => x_msg_count
1691: , x_msg_data => x_msg_data
1692: );
1693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1694: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1697: -- START: Granular Locking, Change time stamp of Dim Set & KPI
1698: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
1824: , x_return_status OUT NOCOPY VARCHAR2
1825: , x_msg_count OUT NOCOPY NUMBER
1826: , x_msg_data OUT NOCOPY VARCHAR2
1827: )IS
1828: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
1829: l_count NUMBER := 0;
1830: l_count_independent_dim_obj NUMBER;
1831: l_kpi_name VARCHAR2(32000);
1832: BEGIN
1879: , x_msg_count => x_msg_count
1880: , x_msg_data => x_msg_data
1881: );
1882: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1883: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Assign_Unassign_Dimensions <'||x_msg_data||'>');
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886:
1887: /********************************************************
2116: , x_msg_count OUT NOCOPY NUMBER
2117: , x_msg_data OUT NOCOPY VARCHAR2
2118: )IS
2119:
2120: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
2121: l_count NUMBER := 0;
2122:
2123:
2124: CURSOR c_kpi_ids IS
2188: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET');
2189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2190: END IF;
2191: -- END Granular Locking
2192: BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl
2193: ( p_commit => FND_API.G_FALSE
2194: , p_Dim_Set_Rec => l_bsc_dimset_rec
2195: , x_return_status => x_return_status
2196: , x_msg_count => x_msg_count
2196: , x_msg_count => x_msg_count
2197: , x_msg_data => x_msg_data
2198: );
2199: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2200: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl');
2201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2202: END IF;
2203: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2204: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2242: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_SET');
2243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2244: END IF;
2245: -- END Granular Locking
2246: BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl
2247: ( p_commit => FND_API.G_FALSE
2248: , p_Dim_Set_Rec => l_bsc_dimset_rec
2249: , x_return_status => x_return_status
2250: , x_msg_count => x_msg_count
2250: , x_msg_count => x_msg_count
2251: , x_msg_data => x_msg_data
2252: );
2253: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2254: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Update_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Update_Bsc_Kpi_Dim_Sets_Tl');
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2258: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2388: , x_return_status OUT NOCOPY VARCHAR2
2389: , x_msg_count OUT NOCOPY NUMBER
2390: , x_msg_data OUT NOCOPY VARCHAR2
2391: )IS
2392: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
2393: l_count NUMBER := 0;
2394:
2395: CURSOR c_kpi_ids IS
2396: SELECT indicator
2462: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
2463: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
2464: BSC_DESIGNER_PVT.ActionFlag_Change(p_kpi_id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2465: END IF;
2466: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
2467: ( p_commit => FND_API.G_FALSE
2468: , p_Dim_Set_Rec => l_bsc_dimset_rec
2469: , x_return_status => x_return_status
2470: , x_msg_count => x_msg_count
2470: , x_msg_count => x_msg_count
2471: , x_msg_data => x_msg_data
2472: );
2473: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2474: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.DELETE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
2475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2476: END IF;
2477: --repeat the steps above for all the shared indicators
2478: FOR cd IN c_kpi_ids LOOP
2498: --IF (NVL(BSC_BIS_KPI_MEAS_PUB.get_DimensionSetSource(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id), 'BSC') = 'BSC') THEN
2499: IF (NOT BSC_BIS_KPI_MEAS_PUB.is_Pure_Pmf_Dim_Grp(l_bsc_dimset_rec.Bsc_Kpi_Id, l_bsc_dimset_rec.Bsc_Dim_Set_Id)) THEN
2500: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id, BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
2501: END IF;
2502: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
2503: ( p_commit => FND_API.G_FALSE
2504: , p_Dim_Set_Rec => l_bsc_dimset_rec
2505: , x_return_status => x_return_status
2506: , x_msg_count => x_msg_count
2506: , x_msg_count => x_msg_count
2507: , x_msg_data => x_msg_data
2508: );
2509: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2510: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.DELETE_DIM_SET Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
2511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2512: END IF;
2513: END IF;
2514: END LOOP;
2572: , x_return_status OUT NOCOPY VARCHAR2
2573: , x_msg_count OUT NOCOPY NUMBER
2574: , x_msg_data OUT NOCOPY VARCHAR2
2575: )IS
2576: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
2577: l_index NUMBER := 0;
2578: l_count NUMBER := 0;
2579: l_dim_short_names VARCHAR2(32000);
2580: l_dim_short_name BSC_SYS_DIM_GROUPS_TL.Short_Name%TYPE;
2727: , x_msg_count => x_msg_count
2728: , x_msg_data => x_msg_data
2729: );
2730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
2732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2733: END IF;
2734: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2735: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2781: , x_msg_count => x_msg_count
2782: , x_msg_data => x_msg_data
2783: );
2784: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2785: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
2786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2787: END IF;
2788: -- START: Granular Locking, Change time stamp of Dim Set & KPI
2789: BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET
2821: , x_msg_count => x_msg_count
2822: , x_msg_data => x_msg_data
2823: );
2824: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2825: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_Dims_To_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828: END IF;
2829:
3124: , x_return_status OUT NOCOPY VARCHAR2
3125: , x_msg_count OUT NOCOPY NUMBER
3126: , x_msg_data OUT NOCOPY VARCHAR2
3127: )IS
3128: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
3129: l_count NUMBER := 0;
3130: l_dim_short_names VARCHAR2(32000);
3131: l_dim_short_name BSC_SYS_DIM_GROUPS_TL.short_name%TYPE;
3132: l_kpi_flag_change BOOLEAN := FALSE;
3225: FROM BSC_SYS_DIM_GROUPS_VL
3226: WHERE short_name = l_dim_short_name;
3227: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id <'||l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id||'>');
3228: l_kpi_flag_change := TRUE;
3229: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
3230: ( p_commit => FND_API.G_FALSE
3231: , p_Dim_Set_Rec => l_bsc_dimset_rec
3232: , p_create_Dim_Lev_Grp => FALSE
3233: , x_return_status => x_return_status
3234: , x_msg_count => x_msg_count
3235: , x_msg_data => x_msg_data
3236: );
3237: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3238: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: END IF;
3241: END IF;
3242: END LOOP;
3292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3293: END IF;
3294: -- END Granular Locking
3295: --dbms_output.PUT_LINE('l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id <'||l_bsc_dimset_rec.Bsc_Dim_Level_Group_Id||'>');
3296: BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset
3297: ( p_commit => FND_API.G_FALSE
3298: , p_Dim_Set_Rec => l_bsc_dimset_rec
3299: , p_create_Dim_Lev_Grp => FALSE
3300: , x_return_status => x_return_status
3301: , x_msg_count => x_msg_count
3302: , x_msg_data => x_msg_data
3303: );
3304: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3305: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Group_In_Dset <'||x_msg_data||'>');
3306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308: END IF;
3309: END LOOP;
3354: , x_msg_data => x_msg_data
3355: );
3356:
3357: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3358: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Unassign_Dims_From_Dim_Set Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
3359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3360: END IF;
3361: IF (p_dim_short_names IS NOT NULL) THEN
3362: BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button
3434: , x_return_status OUT NOCOPY VARCHAR2
3435: , x_msg_count OUT NOCOPY NUMBER
3436: , x_msg_data OUT NOCOPY VARCHAR2
3437: )IS
3438: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
3439: l_index NUMBER := 0;
3440: l_count NUMBER;
3441: l_dim_short_names VARCHAR2(32000);
3442: l_dim_short_name BSC_SYS_DIM_GROUPS_TL.short_name%TYPE;
3524: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.LOCK_DIM_GROUP Failed: at Create_Dim_Grp_Lev_In_Dset');
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3527: -- END : Granular Locking
3528: BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset--insert into BSC_KPI_DIM_GROUPS
3529: ( p_commit => FND_API.G_FALSE
3530: , p_Dim_Set_Rec => l_bsc_dimset_rec
3531: , p_create_Dim_Lev_Grp => FALSE
3532: , x_return_status => x_return_status
3533: , x_msg_count => x_msg_count
3534: , x_msg_data => x_msg_data
3535: );
3536: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3537: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset <'||x_msg_data||'>');
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
3540: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
3541: ( p_commit => FND_API.G_FALSE
3536: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3537: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Group_In_Dset <'||x_msg_data||'>');
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
3540: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
3541: ( p_commit => FND_API.G_FALSE
3542: , p_Dim_Set_Rec => l_bsc_dimset_rec
3543: , x_return_status => x_return_status
3544: , x_msg_count => x_msg_count
3544: , x_msg_count => x_msg_count
3545: , x_msg_data => x_msg_data
3546: );
3547: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3548: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
3549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3550: END IF;
3551: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
3552: ( p_commit => FND_API.G_FALSE
3547: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3548: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
3549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3550: END IF;
3551: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
3552: ( p_commit => FND_API.G_FALSE
3553: , p_Dim_Set_Rec => l_bsc_dimset_rec
3554: , x_return_status => x_return_status
3555: , x_msg_count => x_msg_count
3555: , x_msg_count => x_msg_count
3556: , x_msg_data => x_msg_data
3557: );
3558: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3559: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
3560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3561: END IF;
3562: END IF;
3563: END LOOP;
3569: WHERE INDICATOR = l_bsc_dimset_rec.Bsc_Kpi_Id
3570: AND DIM_SET_ID = l_bsc_dimset_rec.Bsc_Dim_Set_Id;
3571: l_bsc_dimset_rec.Bsc_Dset_Dim_Level_Index := l_count + 1;
3572: END IF;
3573: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
3574: ( p_commit => FND_API.G_FALSE
3575: , p_Dim_Set_Rec => l_bsc_dimset_rec
3576: , x_return_status => x_return_status
3577: , x_msg_count => x_msg_count
3577: , x_msg_count => x_msg_count
3578: , x_msg_data => x_msg_data
3579: );
3580: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3581: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
3582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3584: END IF;
3585: -- START: Granular Locking, Change time stamp of Dim Set & KPI
3590: , x_msg_count => x_msg_count
3591: , x_msg_data => x_msg_data
3592: );
3593: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3594: --dbms_output.PUT_LINE('BSC_BIS_LOCKS_PUB.SET_TIME_STAMP_DIM_SET: at BSC_DIMENSION_SETS_PUB.Create_Dim_Grp_Lev_In_Dset');
3595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3596: END IF;
3597: --dbms_output.PUT_LINE('END Setting TIME STAMP');
3598: -- END: Granular Locking, Change time stamp of Dim Set & KPI
3654: , x_msg_count OUT NOCOPY NUMBER
3655: , x_msg_data OUT NOCOPY VARCHAR2
3656: )IS
3657:
3658: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
3659: l_count NUMBER := 0;
3660:
3661: CURSOR c_kpi_ids IS
3662: SELECT indicator
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
3725: , p_Dim_Set_Rec => l_bsc_dimset_rec
3726: , x_return_status => x_return_status
3727: , x_msg_count => x_msg_count
3727: , x_msg_count => x_msg_count
3728: , x_msg_data => x_msg_data
3729: );
3730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3731: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options Failed: at BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B <'||x_msg_data||'>');
3732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3733: END IF;
3734: --copied from VB Code
3735: BSC_DESIGNER_PVT.Deflt_Update_AOPTS(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
3753: , p_Dim_Set_Rec => l_bsc_dimset_rec
3754: , x_return_status => x_return_status
3755: , x_msg_count => x_msg_count
3755: , x_msg_count => x_msg_count
3756: , x_msg_data => x_msg_data
3757: );
3758: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3759: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Assign_DSet_Analysis_Options Failed: at BSC_DIMENSION_SETS_PUB.Update_Kpi_Analysis_Options_B <'||x_msg_data||'>');
3760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3761: END IF;
3762: BSC_DESIGNER_PVT.ActionFlag_Change(l_bsc_dimset_rec.Bsc_Kpi_Id , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure);
3763: END LOOP;
4075: , x_msg_count OUT NOCOPY NUMBER
4076: , x_msg_data OUT NOCOPY VARCHAR2
4077: ) IS
4078: l_Bsc_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
4079: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
4080: l_measure_short_name BSC_SYS_MEASURES.Short_Name%TYPE;
4081: l_dim_short_name BSC_SYS_DIM_GROUPS_TL.Short_Name%TYPE := 'DGRP_';
4082: l_temp_var VARCHAR2(32000);
4083: l_count NUMBER;
4521: SELECT level_table_name
4522: INTO l_bsc_dimset_rec.Bsc_Level_Name
4523: FROM BSC_SYS_DIM_LEVELS_B
4524: WHERE Short_Name = l_dim_obj_name;
4525: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels
4526: ( p_commit => FND_API.G_FALSE
4527: , p_Dim_Set_Rec => l_bsc_dimset_rec
4528: , x_return_status => x_return_status
4529: , x_msg_count => x_msg_count
4529: , x_msg_count => x_msg_count
4530: , x_msg_data => x_msg_data
4531: );
4532: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4533: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: -- default values and view by for shared indicators
4537: FOR cd IN c_kpi_ids LOOP
4535: END IF;
4536: -- default values and view by for shared indicators
4537: FOR cd IN c_kpi_ids LOOP
4538: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
4539: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels
4540: ( p_commit => FND_API.G_FALSE
4541: , p_Dim_Set_Rec => l_bsc_dimset_rec
4542: , x_return_status => x_return_status
4543: , x_msg_count => x_msg_count
4543: , x_msg_count => x_msg_count
4544: , x_msg_data => x_msg_data
4545: );
4546: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4547: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4549: END IF;
4550: END LOOP;
4551: END IF;
4559: SELECT level_table_name
4560: INTO l_bsc_dimset_rec.Bsc_Level_Name
4561: FROM BSC_SYS_DIM_LEVELS_B
4562: WHERE Short_Name = l_view_by_name;
4563: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels
4564: ( p_commit => FND_API.G_FALSE
4565: , p_Dim_Set_Rec => l_bsc_dimset_rec
4566: , x_return_status => x_return_status
4567: , x_msg_count => x_msg_count
4567: , x_msg_count => x_msg_count
4568: , x_msg_data => x_msg_data
4569: );
4570: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4571: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4573: END IF;
4574: -- default values and view by for shared indicators
4575: FOR cd IN c_kpi_ids LOOP
4573: END IF;
4574: -- default values and view by for shared indicators
4575: FOR cd IN c_kpi_ids LOOP
4576: l_bsc_dimset_rec.Bsc_Kpi_Id := cd.indicator;
4577: BSC_DIMENSION_SETS_PUB.Update_Dim_Levels
4578: ( p_commit => FND_API.G_FALSE
4579: , p_Dim_Set_Rec => l_bsc_dimset_rec
4580: , x_return_status => x_return_status
4581: , x_msg_count => x_msg_count
4581: , x_msg_count => x_msg_count
4582: , x_msg_data => x_msg_data
4583: );
4584: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4585: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.CREATE_DIM_GRP_LEV_IN_DSET Failed: at BSC_DIMENSION_SETS_PUB.Update_Dim_Levels <'||x_msg_data||'>');
4586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4587: END IF;
4588: END LOOP;
4589: END IF;
5345: l_dim_set_id NUMBER;
5346:
5347: l_Bsc_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
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;
6316: , x_return_status OUT NOCOPY VARCHAR2
6317: , x_msg_count OUT NOCOPY NUMBER
6318: , x_msg_data OUT NOCOPY VARCHAR2
6319: )IS
6320: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
6321: l_index NUMBER := 0;
6322: l_count NUMBER;
6323:
6324: CURSOR c_kpi_ids IS
6412: , x_msg_count => x_msg_count
6413: , x_msg_data => x_msg_data
6414: );
6415: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6416: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Objs_In_DSet');
6417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6418: END IF;
6419: END IF;
6420: --remove the default entry 'XXX' from BSC_KPI_DIM_LEVELS_B if exists
6444: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6446: END IF;
6447: -- END : Granular Locking
6448: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
6449: ( p_commit => FND_API.G_FALSE
6450: , p_Dim_Set_Rec => l_bsc_dimset_rec
6451: , x_return_status => x_return_status
6452: , x_msg_count => x_msg_count
6452: , x_msg_count => x_msg_count
6453: , x_msg_data => x_msg_data
6454: );
6455: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6456: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6458: END IF;
6459: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6460: ( p_commit => FND_API.G_FALSE
6455: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6456: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6458: END IF;
6459: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6460: ( p_commit => FND_API.G_FALSE
6461: , p_Dim_Set_Rec => l_bsc_dimset_rec
6462: , x_return_status => x_return_status
6463: , x_msg_count => x_msg_count
6463: , x_msg_count => x_msg_count
6464: , x_msg_data => x_msg_data
6465: );
6466: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6467: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
6468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6469: END IF;
6470: END LOOP;
6471: IF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.Normal)) THEN
6529: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_BIS_LOCKS_PUB.Lock_Dim_Group');
6530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6531: END IF;
6532: -- END : Granular Locking
6533: BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties--insert into BSC_KPI_DIM_LEVEL_PROPERTIES
6534: ( p_commit => FND_API.G_FALSE
6535: , p_Dim_Set_Rec => l_bsc_dimset_rec
6536: , x_return_status => x_return_status
6537: , x_msg_count => x_msg_count
6537: , x_msg_count => x_msg_count
6538: , x_msg_data => x_msg_data
6539: );
6540: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6541: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6543: END IF;
6544: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6545: ( p_commit => FND_API.G_FALSE
6540: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6541: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Level_Properties <'||x_msg_data||'>');
6542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6543: END IF;
6544: BSC_DIMENSION_SETS_PUB.Create_Dim_Levels
6545: ( p_commit => FND_API.G_FALSE
6546: , p_Dim_Set_Rec => l_bsc_dimset_rec
6547: , x_return_status => x_return_status
6548: , x_msg_count => x_msg_count
6548: , x_msg_count => x_msg_count
6549: , x_msg_data => x_msg_data
6550: );
6551: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6552: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Dim_Levels <'||x_msg_data||'>');
6553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6554: END IF;
6555: END LOOP;
6556: IF ((p_kpi_flag_change IS NOT NULL) AND (p_kpi_flag_change = BSC_DESIGNER_PVT.G_ActionFlag.Normal)) THEN
6592: , x_msg_count => x_msg_count
6593: , x_msg_data => x_msg_data
6594: );
6595: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6596: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6598: END IF;
6599: IF (p_commit = FND_API.G_TRUE) THEN
6600: COMMIT;
6652: , x_return_status OUT NOCOPY VARCHAR2
6653: , x_msg_count OUT NOCOPY NUMBER
6654: , x_msg_data OUT NOCOPY VARCHAR2
6655: )IS
6656: l_bsc_dimset_rec BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
6657: l_index NUMBER := 0;
6658: l_count NUMBER;
6659:
6660: CURSOR c_kpi_ids IS
6695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6696: END IF;
6697: FOR cd IN c_dim_level_id LOOP
6698: l_bsc_dimset_rec.Bsc_Level_Id := cd.dim_level_id;
6699: BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties
6700: ( p_commit => FND_API.G_FALSE
6701: , p_Dim_Set_Rec => l_bsc_dimset_rec
6702: , x_return_status => x_return_status
6703: , x_msg_count => x_msg_count
6703: , x_msg_count => x_msg_count
6704: , x_msg_data => x_msg_data
6705: );
6706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6707: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6709: END IF;
6710: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6711: ( p_commit => FND_API.G_FALSE
6706: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6707: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6709: END IF;
6710: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6711: ( p_commit => FND_API.G_FALSE
6712: , p_Dim_Set_Rec => l_bsc_dimset_rec
6713: , x_return_status => x_return_status
6714: , x_msg_count => x_msg_count
6714: , x_msg_count => x_msg_count
6715: , x_msg_data => x_msg_data
6716: );
6717: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6718: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels');
6719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6720: END IF;
6721: END LOOP;
6722: END LOOP;
6749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6750: END IF;
6751: FOR cd IN c_dim_level_id LOOP
6752: l_bsc_dimset_rec.Bsc_Level_Id := cd.dim_level_id;
6753: BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties
6754: ( p_commit => FND_API.G_FALSE
6755: , p_Dim_Set_Rec => l_bsc_dimset_rec
6756: , x_return_status => x_return_status
6757: , x_msg_count => x_msg_count
6757: , x_msg_count => x_msg_count
6758: , x_msg_data => x_msg_data
6759: );
6760: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6761: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: END IF;
6764: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6765: ( p_commit => FND_API.G_FALSE
6760: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6761: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Level_Properties');
6762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6763: END IF;
6764: BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels
6765: ( p_commit => FND_API.G_FALSE
6766: , p_Dim_Set_Rec => l_bsc_dimset_rec
6767: , x_return_status => x_return_status
6768: , x_msg_count => x_msg_count
6768: , x_msg_count => x_msg_count
6769: , x_msg_data => x_msg_data
6770: );
6771: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6772: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Delete_Dim_Levels');
6773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6774: END IF;
6775: END LOOP;
6776: END LOOP;
6795: , x_msg_count => x_msg_count
6796: , x_msg_data => x_msg_data
6797: );
6798: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6799: --dbms_output.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Delete_Dim_Objs_In_DSet Failed: at BSC_DIMENSION_SETS_PUB.Create_Default_Kpi_Dim_Object');
6800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6801: END IF;
6802: IF (p_commit = FND_API.G_TRUE) THEN
6803: COMMIT;
7440: l_old_Anal_Opt_Tbl BSC_ANALYSIS_OPTION_PUB.Bsc_Anal_Opt_Tbl_Type;
7441: l_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
7442: l_Anal_Opt_Tbl BSC_ANALYSIS_OPTION_PUB.Bsc_Anal_Opt_Tbl_Type;
7443: l_Bsc_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
7444: l_Bsc_Dim_Set_Rec_Type BSC_DIMENSION_SETS_PUB.Bsc_Dim_Set_Rec_Type;
7445: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
7446: l_count NUMBER;
7447: l_Default_Delete BOOLEAN := FALSE;
7448: l_ind_type BSC_KPIS_B.indicator_type%TYPE;