1: package body BSC_DIMENSION_SETS_PVT as
2: /* $Header: BSCVDMSB.pls 120.1 2005/07/21 05:31:50 ashankar noship $ */
3: /*
4: +======================================================================================+
5: | Copyright (c) 2001 Oracle Corporation, Redwood Shores, CA, USA |
39: | passed from the Public APIs |
40: | 21-JUL-2005 ashankar Bug#4314386 |
41: +======================================================================================+
42: */
43: G_PKG_NAME CONSTANT varchar2(30) := 'BSC_DIMENSION_SETS_PVT';
44: g_db_object varchar2(30) := null;
45:
46: --: This procedure is used to create dimension sets in a KPI. This is the entry
47: --: point for the Dimension Sets API.
116: WHEN NO_DATA_FOUND THEN
117: ROLLBACK TO CreateBSCDimGrpInDSetPvt;
118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: IF (x_msg_data IS NOT NULL) THEN
120: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Group_In_Dset ';
121: ELSE
122: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Group_In_Dset ';
123: END IF;
124: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: IF (x_msg_data IS NOT NULL) THEN
120: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Group_In_Dset ';
121: ELSE
122: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Group_In_Dset ';
123: END IF;
124: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
125: RAISE;
126: WHEN OTHERS THEN
126: WHEN OTHERS THEN
127: ROLLBACK TO CreateBSCDimGrpInDSetPvt;
128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: IF (x_msg_data IS NOT NULL) THEN
130: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Group_In_Dset ';
131: ELSE
132: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Group_In_Dset ';
133: END IF;
134: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: IF (x_msg_data IS NOT NULL) THEN
130: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Group_In_Dset ';
131: ELSE
132: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Group_In_Dset ';
133: END IF;
134: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
135: RAISE;
136: end Create_Dim_Group_In_Dset;
183: RAISE;
184: WHEN NO_DATA_FOUND THEN
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186: IF (x_msg_data IS NOT NULL) THEN
187: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Group_In_Dset ';
188: ELSE
189: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Group_In_Dset ';
190: END IF;
191: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186: IF (x_msg_data IS NOT NULL) THEN
187: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Group_In_Dset ';
188: ELSE
189: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Group_In_Dset ';
190: END IF;
191: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
192: RAISE;
193: WHEN OTHERS THEN
192: RAISE;
193: WHEN OTHERS THEN
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: IF (x_msg_data IS NOT NULL) THEN
196: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Group_In_Dset ';
197: ELSE
198: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Group_In_Dset ';
199: END IF;
200: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: IF (x_msg_data IS NOT NULL) THEN
196: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Group_In_Dset ';
197: ELSE
198: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Group_In_Dset ';
199: END IF;
200: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
201: RAISE;
202: end Retrieve_Dim_Group_In_Dset;
314: WHEN NO_DATA_FOUND THEN
315: ROLLBACK TO UpdateBSCDimGrpInDSetPvt;
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
317: IF (x_msg_data IS NOT NULL) THEN
318: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Group_In_Dset ';
319: ELSE
320: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Group_In_Dset ';
321: END IF;
322: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
317: IF (x_msg_data IS NOT NULL) THEN
318: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Group_In_Dset ';
319: ELSE
320: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Group_In_Dset ';
321: END IF;
322: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
323: RAISE;
324: WHEN OTHERS THEN
324: WHEN OTHERS THEN
325: ROLLBACK TO UpdateBSCDimGrpInDSetPvt;
326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327: IF (x_msg_data IS NOT NULL) THEN
328: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Group_In_Dset ';
329: ELSE
330: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Group_In_Dset ';
331: END IF;
332: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327: IF (x_msg_data IS NOT NULL) THEN
328: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Group_In_Dset ';
329: ELSE
330: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Group_In_Dset ';
331: END IF;
332: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
333: RAISE;
334: end Update_Dim_Group_In_Dset;
420: WHEN NO_DATA_FOUND THEN
421: ROLLBACK TO DeleteBSCDimGrpInDSetPvt;
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: IF (x_msg_data IS NOT NULL) THEN
424: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Group_In_Dset ';
425: ELSE
426: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Group_In_Dset ';
427: END IF;
428: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: IF (x_msg_data IS NOT NULL) THEN
424: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Group_In_Dset ';
425: ELSE
426: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Group_In_Dset ';
427: END IF;
428: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
429: RAISE;
430: WHEN OTHERS THEN
430: WHEN OTHERS THEN
431: ROLLBACK TO DeleteBSCDimGrpInDSetPvt;
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: IF (x_msg_data IS NOT NULL) THEN
434: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Group_In_Dset ';
435: ELSE
436: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Group_In_Dset ';
437: END IF;
438: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: IF (x_msg_data IS NOT NULL) THEN
434: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Group_In_Dset ';
435: ELSE
436: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Group_In_Dset ';
437: END IF;
438: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
439: RAISE;
440: end Delete_Dim_Group_In_Dset;
576: WHEN NO_DATA_FOUND THEN
577: ROLLBACK TO CreateBSCKpiDSetTlPvt;
578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
579: IF (x_msg_data IS NOT NULL) THEN
580: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Bsc_Kpi_Dim_Sets_Tl ';
581: ELSE
582: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Bsc_Kpi_Dim_Sets_Tl ';
583: END IF;
584: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
579: IF (x_msg_data IS NOT NULL) THEN
580: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Bsc_Kpi_Dim_Sets_Tl ';
581: ELSE
582: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Bsc_Kpi_Dim_Sets_Tl ';
583: END IF;
584: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
585: RAISE;
586: WHEN OTHERS THEN
586: WHEN OTHERS THEN
587: ROLLBACK TO CreateBSCKpiDSetTlPvt;
588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
589: IF (x_msg_data IS NOT NULL) THEN
590: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Bsc_Kpi_Dim_Sets_Tl ';
591: ELSE
592: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Bsc_Kpi_Dim_Sets_Tl ';
593: END IF;
594: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
589: IF (x_msg_data IS NOT NULL) THEN
590: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Bsc_Kpi_Dim_Sets_Tl ';
591: ELSE
592: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Bsc_Kpi_Dim_Sets_Tl ';
593: END IF;
594: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
595: RAISE;
596: end Create_Bsc_Kpi_Dim_Sets_Tl;
655: WHEN NO_DATA_FOUND THEN
656: ROLLBACK TO CreateBSCDimLevMdPVT;
657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
658: IF (x_msg_data IS NOT NULL) THEN
659: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Bsc_Kpi_Dim_Sets_Tl ';
660: ELSE
661: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Bsc_Kpi_Dim_Sets_Tl ';
662: END IF;
663: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
658: IF (x_msg_data IS NOT NULL) THEN
659: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Bsc_Kpi_Dim_Sets_Tl ';
660: ELSE
661: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Bsc_Kpi_Dim_Sets_Tl ';
662: END IF;
663: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
664: RAISE;
665: WHEN OTHERS THEN
665: WHEN OTHERS THEN
666: ROLLBACK TO CreateBSCDimLevMdPVT;
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: IF (x_msg_data IS NOT NULL) THEN
669: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Bsc_Kpi_Dim_Sets_Tl ';
670: ELSE
671: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Bsc_Kpi_Dim_Sets_Tl ';
672: END IF;
673: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: IF (x_msg_data IS NOT NULL) THEN
669: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Bsc_Kpi_Dim_Sets_Tl ';
670: ELSE
671: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Bsc_Kpi_Dim_Sets_Tl ';
672: END IF;
673: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
674: RAISE;
675: end Retrieve_Bsc_Kpi_Dim_Sets_Tl;
782: WHEN NO_DATA_FOUND THEN
783: ROLLBACK TO UpdateBSCKpiDSetTlPvt;
784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
785: IF (x_msg_data IS NOT NULL) THEN
786: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Bsc_Kpi_Dim_Sets_Tl ';
787: ELSE
788: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Bsc_Kpi_Dim_Sets_Tl ';
789: END IF;
790: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
785: IF (x_msg_data IS NOT NULL) THEN
786: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Bsc_Kpi_Dim_Sets_Tl ';
787: ELSE
788: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Bsc_Kpi_Dim_Sets_Tl ';
789: END IF;
790: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
791: RAISE;
792: WHEN OTHERS THEN
792: WHEN OTHERS THEN
793: ROLLBACK TO UpdateBSCKpiDSetTlPvt;
794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
795: IF (x_msg_data IS NOT NULL) THEN
796: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Bsc_Kpi_Dim_Sets_Tl ';
797: ELSE
798: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Bsc_Kpi_Dim_Sets_Tl ';
799: END IF;
800: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
795: IF (x_msg_data IS NOT NULL) THEN
796: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Bsc_Kpi_Dim_Sets_Tl ';
797: ELSE
798: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Bsc_Kpi_Dim_Sets_Tl ';
799: END IF;
800: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
801: RAISE;
802: end Update_Bsc_Kpi_Dim_Sets_Tl;
861: WHEN NO_DATA_FOUND THEN
862: ROLLBACK TO DeleteBSCKpiDSetTlPvt;
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: IF (x_msg_data IS NOT NULL) THEN
865: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Bsc_Kpi_Dim_Sets_Tl ';
866: ELSE
867: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Bsc_Kpi_Dim_Sets_Tl ';
868: END IF;
869: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: IF (x_msg_data IS NOT NULL) THEN
865: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Bsc_Kpi_Dim_Sets_Tl ';
866: ELSE
867: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Bsc_Kpi_Dim_Sets_Tl ';
868: END IF;
869: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
870: RAISE;
871: WHEN OTHERS THEN
871: WHEN OTHERS THEN
872: ROLLBACK TO DeleteBSCKpiDSetTlPvt;
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
874: IF (x_msg_data IS NOT NULL) THEN
875: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Bsc_Kpi_Dim_Sets_Tl ';
876: ELSE
877: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Bsc_Kpi_Dim_Sets_Tl ';
878: END IF;
879: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
874: IF (x_msg_data IS NOT NULL) THEN
875: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Bsc_Kpi_Dim_Sets_Tl ';
876: ELSE
877: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Bsc_Kpi_Dim_Sets_Tl ';
878: END IF;
879: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
880: RAISE;
881: end Delete_Bsc_Kpi_Dim_Sets_Tl;
977: WHEN NO_DATA_FOUND THEN
978: ROLLBACK TO CreateBSCDimLevPropPvt;
979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
980: IF (x_msg_data IS NOT NULL) THEN
981: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Level_Properties ';
982: ELSE
983: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Level_Properties ';
984: END IF;
985: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
980: IF (x_msg_data IS NOT NULL) THEN
981: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Level_Properties ';
982: ELSE
983: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Level_Properties ';
984: END IF;
985: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
986: RAISE;
987: WHEN OTHERS THEN
987: WHEN OTHERS THEN
988: ROLLBACK TO CreateBSCDimLevPropPvt;
989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
990: IF (x_msg_data IS NOT NULL) THEN
991: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Level_Properties ';
992: ELSE
993: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Level_Properties ';
994: END IF;
995: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
990: IF (x_msg_data IS NOT NULL) THEN
991: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Level_Properties ';
992: ELSE
993: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Level_Properties ';
994: END IF;
995: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
996: RAISE;
997: end Create_Dim_Level_Properties;
1061: RAISE;
1062: WHEN NO_DATA_FOUND THEN
1063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1064: IF (x_msg_data IS NOT NULL) THEN
1065: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Level_Properties ';
1066: ELSE
1067: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Level_Properties ';
1068: END IF;
1069: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1064: IF (x_msg_data IS NOT NULL) THEN
1065: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Level_Properties ';
1066: ELSE
1067: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Level_Properties ';
1068: END IF;
1069: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1070: RAISE;
1071: WHEN OTHERS THEN
1070: RAISE;
1071: WHEN OTHERS THEN
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: IF (x_msg_data IS NOT NULL) THEN
1074: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Level_Properties ';
1075: ELSE
1076: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Level_Properties ';
1077: END IF;
1078: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: IF (x_msg_data IS NOT NULL) THEN
1074: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Level_Properties ';
1075: ELSE
1076: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Level_Properties ';
1077: END IF;
1078: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1079: RAISE;
1080: end Retrieve_Dim_Level_Properties;
1235: WHEN NO_DATA_FOUND THEN
1236: ROLLBACK TO UpdateBSCDimLevPropPvt;
1237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1238: IF (x_msg_data IS NOT NULL) THEN
1239: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Level_Properties ';
1240: ELSE
1241: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Level_Properties ';
1242: END IF;
1243: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1238: IF (x_msg_data IS NOT NULL) THEN
1239: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Level_Properties ';
1240: ELSE
1241: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Level_Properties ';
1242: END IF;
1243: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1244: RAISE;
1245: WHEN OTHERS THEN
1245: WHEN OTHERS THEN
1246: ROLLBACK TO UpdateBSCDimLevPropPvt;
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248: IF (x_msg_data IS NOT NULL) THEN
1249: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Level_Properties ';
1250: ELSE
1251: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Level_Properties ';
1252: END IF;
1253: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248: IF (x_msg_data IS NOT NULL) THEN
1249: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Level_Properties ';
1250: ELSE
1251: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Level_Properties ';
1252: END IF;
1253: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1254: RAISE;
1255: end Update_Dim_Level_Properties;
1336: WHEN NO_DATA_FOUND THEN
1337: ROLLBACK TO DeleteBSCDimLevPropPvt;
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: IF (x_msg_data IS NOT NULL) THEN
1340: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Level_Properties ';
1341: ELSE
1342: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Level_Properties ';
1343: END IF;
1344: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: IF (x_msg_data IS NOT NULL) THEN
1340: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Level_Properties ';
1341: ELSE
1342: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Level_Properties ';
1343: END IF;
1344: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1345: RAISE;
1346: WHEN OTHERS THEN
1346: WHEN OTHERS THEN
1347: ROLLBACK TO DeleteBSCDimLevPropPvt;
1348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1349: IF (x_msg_data IS NOT NULL) THEN
1350: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Level_Properties ';
1351: ELSE
1352: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Level_Properties ';
1353: END IF;
1354: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1349: IF (x_msg_data IS NOT NULL) THEN
1350: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Level_Properties ';
1351: ELSE
1352: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Level_Properties ';
1353: END IF;
1354: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1355: RAISE;
1356: end Delete_Dim_Level_Properties;
1559: WHEN NO_DATA_FOUND THEN
1560: ROLLBACK TO DeleteBSCDimLevsPVT;
1561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1562: IF (x_msg_data IS NOT NULL) THEN
1563: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Levels ';
1564: ELSE
1565: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Levels ';
1566: END IF;
1567: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1562: IF (x_msg_data IS NOT NULL) THEN
1563: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Levels ';
1564: ELSE
1565: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Levels ';
1566: END IF;
1567: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1568: RAISE;
1569: WHEN OTHERS THEN
1569: WHEN OTHERS THEN
1570: ROLLBACK TO DeleteBSCDimLevsPVT;
1571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1572: IF (x_msg_data IS NOT NULL) THEN
1573: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Levels ';
1574: ELSE
1575: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Levels ';
1576: END IF;
1577: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1572: IF (x_msg_data IS NOT NULL) THEN
1573: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Create_Dim_Levels ';
1574: ELSE
1575: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Create_Dim_Levels ';
1576: END IF;
1577: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1578: RAISE;
1579: end Create_Dim_Levels;
1697: RAISE;
1698: WHEN NO_DATA_FOUND THEN
1699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1700: IF (x_msg_data IS NOT NULL) THEN
1701: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Levels ';
1702: ELSE
1703: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Levels ';
1704: END IF;
1705: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1700: IF (x_msg_data IS NOT NULL) THEN
1701: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Levels ';
1702: ELSE
1703: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Levels ';
1704: END IF;
1705: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1706: RAISE;
1707: WHEN OTHERS THEN
1706: RAISE;
1707: WHEN OTHERS THEN
1708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1709: IF (x_msg_data IS NOT NULL) THEN
1710: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Levels ';
1711: ELSE
1712: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Levels ';
1713: END IF;
1714: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1709: IF (x_msg_data IS NOT NULL) THEN
1710: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Levels ';
1711: ELSE
1712: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Retrieve_Dim_Levels ';
1713: END IF;
1714: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1715: RAISE;
1716: end Retrieve_Dim_Levels;
1970: WHEN NO_DATA_FOUND THEN
1971: ROLLBACK TO UpdateBSCDimLevsPVT;
1972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1973: IF (x_msg_data IS NOT NULL) THEN
1974: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Levels ';
1975: ELSE
1976: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Levels ';
1977: END IF;
1978: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1973: IF (x_msg_data IS NOT NULL) THEN
1974: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Levels ';
1975: ELSE
1976: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Levels ';
1977: END IF;
1978: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1979: RAISE;
1980: WHEN OTHERS THEN
1980: WHEN OTHERS THEN
1981: ROLLBACK TO UpdateBSCDimLevsPVT;
1982: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1983: IF (x_msg_data IS NOT NULL) THEN
1984: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Levels ';
1985: ELSE
1986: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Levels ';
1987: END IF;
1988: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1982: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1983: IF (x_msg_data IS NOT NULL) THEN
1984: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Dim_Levels ';
1985: ELSE
1986: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Dim_Levels ';
1987: END IF;
1988: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1989: RAISE;
1990: end Update_Dim_Levels;
2085: WHEN NO_DATA_FOUND THEN
2086: ROLLBACK TO DeleteBSCDimLevsPVT;
2087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2088: IF (x_msg_data IS NOT NULL) THEN
2089: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Levels ';
2090: ELSE
2091: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Levels ';
2092: END IF;
2093: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2088: IF (x_msg_data IS NOT NULL) THEN
2089: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Levels ';
2090: ELSE
2091: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Levels ';
2092: END IF;
2093: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2094: RAISE;
2095: WHEN OTHERS THEN
2095: WHEN OTHERS THEN
2096: ROLLBACK TO DeleteBSCDimLevsPVT;
2097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2098: IF (x_msg_data IS NOT NULL) THEN
2099: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Levels ';
2100: ELSE
2101: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Levels ';
2102: END IF;
2103: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2098: IF (x_msg_data IS NOT NULL) THEN
2099: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Delete_Dim_Levels ';
2100: ELSE
2101: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Delete_Dim_Levels ';
2102: END IF;
2103: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2104: RAISE;
2105: end Delete_Dim_Levels;
2181: WHEN NO_DATA_FOUND THEN
2182: ROLLBACK TO UpdateBSCKpiAnaOptsPVT;
2183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2184: IF (x_msg_data IS NOT NULL) THEN
2185: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Kpi_Analysis_Options_B ';
2186: ELSE
2187: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Kpi_Analysis_Options_B ';
2188: END IF;
2189: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2184: IF (x_msg_data IS NOT NULL) THEN
2185: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Kpi_Analysis_Options_B ';
2186: ELSE
2187: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Kpi_Analysis_Options_B ';
2188: END IF;
2189: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2190: RAISE;
2191: WHEN OTHERS THEN
2191: WHEN OTHERS THEN
2192: ROLLBACK TO UpdateBSCKpiAnaOptsPVT;
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2194: IF (x_msg_data IS NOT NULL) THEN
2195: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Kpi_Analysis_Options_B ';
2196: ELSE
2197: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Kpi_Analysis_Options_B ';
2198: END IF;
2199: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2194: IF (x_msg_data IS NOT NULL) THEN
2195: x_msg_data := x_msg_data||' -> BSC_DIMENSION_SETS_PVT.Update_Kpi_Analysis_Options_B ';
2196: ELSE
2197: x_msg_data := SQLERRM||' at BSC_DIMENSION_SETS_PVT.Update_Kpi_Analysis_Options_B ';
2198: END IF;
2199: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2200: RAISE;
2201: end Update_Kpi_Analysis_Options_B;
2202:
2203: /************************************************************************************
2204: ************************************************************************************/
2205:
2206: end BSC_DIMENSION_SETS_PVT;