1: PACKAGE BODY BSC_COMMON_DIM_LEVELS_PUB AS
2: /* $Header: BSCPCDLB.pls 120.3 2007/02/20 17:04:07 psomesul ship $ */
3:
4: -------------------------------------------------------------------------------------------------------------------
5: -- Check_Common_Dim_Levels
111:
112: --DBMS_OUTPUT.PUT_LINE('End Check_Common_Dim_Levels');
113: /*
114: BSC_MESSAGE.Add(x_message => 'completed run Check_Common_Dim_Levels',
115: x_source => 'BSC_COMMON_DIM_LEVELS_PUB',
116: x_mode => 'I');
117: commit;
118: */
119:
141: WHEN NO_DATA_FOUND THEN
142: ROLLBACK TO BSCCheDimLevsPUB;
143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144: IF (x_msg_data IS NOT NULL) THEN
145: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels ';
146: ELSE
147: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels ';
148: END IF;
149: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144: IF (x_msg_data IS NOT NULL) THEN
145: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels ';
146: ELSE
147: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels ';
148: END IF;
149: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
150: RAISE;
151: WHEN OTHERS THEN
151: WHEN OTHERS THEN
152: ROLLBACK TO BSCCheDimLevsPUB;
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154: IF (x_msg_data IS NOT NULL) THEN
155: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels ';
156: ELSE
157: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels ';
158: END IF;
159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154: IF (x_msg_data IS NOT NULL) THEN
155: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels ';
156: ELSE
157: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels ';
158: END IF;
159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
160: RAISE;
161: END Check_Common_Dim_Levels;
233: end if;
234: ROLLBACK TO BSCCheDimLevsDL_PUB;
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236: IF (x_msg_data IS NOT NULL) THEN
237: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_DL';
238: ELSE
239: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_DL';
240: END IF;
241: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236: IF (x_msg_data IS NOT NULL) THEN
237: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_DL';
238: ELSE
239: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_DL';
240: END IF;
241: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
242: RAISE;
243: END Check_Common_Dim_Levels_DL;
317: end if;
318: ROLLBACK TO BSCCheckCDimByDim;
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: IF (x_msg_data IS NOT NULL) THEN
321: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_by_Dim';
322: ELSE
323: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_by_Dim';
324: END IF;
325: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: IF (x_msg_data IS NOT NULL) THEN
321: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_by_Dim';
322: ELSE
323: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_by_Dim';
324: END IF;
325: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
326: RAISE;
327: END Check_Common_Dim_Levels_by_Dim;
535:
536: --debug messages
537: /*
538: BSC_MESSAGE.Add(x_message => 'completed run Find_Common_Dim_Levels',
539: x_source => 'BSC_COMMON_DIM_LEVELS_PUB',
540: x_mode => 'I');
541: commit;
542: */
543: EXCEPTION
561: RAISE;
562: WHEN NO_DATA_FOUND THEN
563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: IF (x_msg_data IS NOT NULL) THEN
565: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Find_Common_Dim_Levels ';
566: ELSE
567: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Find_Common_Dim_Levels ';
568: END IF;
569: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: IF (x_msg_data IS NOT NULL) THEN
565: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Find_Common_Dim_Levels ';
566: ELSE
567: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Find_Common_Dim_Levels ';
568: END IF;
569: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
570: RAISE;
571: WHEN OTHERS THEN
570: RAISE;
571: WHEN OTHERS THEN
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
573: IF (x_msg_data IS NOT NULL) THEN
574: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Find_Common_Dim_Levels ';
575: ELSE
576: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Find_Common_Dim_Levels ';
577: END IF;
578: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
573: IF (x_msg_data IS NOT NULL) THEN
574: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Find_Common_Dim_Levels ';
575: ELSE
576: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Find_Common_Dim_Levels ';
577: END IF;
578: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
579: RAISE;
580: END Find_Common_Dim_Levels;
659: RAISE;
660: WHEN NO_DATA_FOUND THEN
661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
662: IF (x_msg_data IS NOT NULL) THEN
663: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Retrieve_Common_Dim_Levels ';
664: ELSE
665: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Retrieve_Common_Dim_Levels ';
666: END IF;
667: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
662: IF (x_msg_data IS NOT NULL) THEN
663: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Retrieve_Common_Dim_Levels ';
664: ELSE
665: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Retrieve_Common_Dim_Levels ';
666: END IF;
667: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
668: RAISE;
669: WHEN OTHERS THEN
668: RAISE;
669: WHEN OTHERS THEN
670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
671: IF (x_msg_data IS NOT NULL) THEN
672: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Retrieve_Common_Dim_Levels ';
673: ELSE
674: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Retrieve_Common_Dim_Levels ';
675: END IF;
676: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
671: IF (x_msg_data IS NOT NULL) THEN
672: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Retrieve_Common_Dim_Levels ';
673: ELSE
674: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Retrieve_Common_Dim_Levels ';
675: END IF;
676: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
677: RAISE;
678: END Retrieve_Common_Dim_Levels;
759: WHEN NO_DATA_FOUND THEN
760: ROLLBACK TO BSCChkDimLevDefPUB;
761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
762: IF (x_msg_data IS NOT NULL) THEN
763: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Dim_Level_Default_Value ';
764: ELSE
765: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Dim_Level_Default_Value ';
766: END IF;
767: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
762: IF (x_msg_data IS NOT NULL) THEN
763: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Dim_Level_Default_Value ';
764: ELSE
765: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Dim_Level_Default_Value ';
766: END IF;
767: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
768: RAISE;
769: WHEN OTHERS THEN
769: WHEN OTHERS THEN
770: ROLLBACK TO BSCChkDimLevDefPUB;
771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: IF (x_msg_data IS NOT NULL) THEN
773: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Dim_Level_Default_Value ';
774: ELSE
775: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Dim_Level_Default_Value ';
776: END IF;
777: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: IF (x_msg_data IS NOT NULL) THEN
773: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Check_Dim_Level_Default_Value ';
774: ELSE
775: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Check_Dim_Level_Default_Value ';
776: END IF;
777: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
778: RAISE;
779: END Check_Dim_Level_Default_Value;
833: IF(p_Kpi_Id IS NOT NULL) THEN
834: l_Kpi_Id := p_Kpi_Id;
835: FOR cd IN c_tab_id LOOP
836: l_tab_id := cd.tab_id;
837: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels
838: (
839: p_Tab_Id => l_tab_id
840: ,x_return_status => x_return_status
841: ,x_msg_count => x_msg_count
841: ,x_msg_count => x_msg_count
842: ,x_msg_data => x_msg_data
843: );
844: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
845: --DBMS_OUTPUT.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set Failed: at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels');
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848: END LOOP;
849: /***************For Shared Indiactors ***********************************/
859: FETCH c_tab_id INTO l_tab_id;
860: EXIT WHEN c_tab_id%NOTFOUND;
861: CLOSE c_tab_id;
862:
863: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels
864: (
865: p_Tab_Id => l_tab_id
866: ,x_return_status => x_return_status
867: ,x_msg_count => x_msg_count
867: ,x_msg_count => x_msg_count
868: ,x_msg_data => x_msg_data
869: );
870: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
871: --DBMS_OUTPUT.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set Failed: at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels');
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: END IF;
874: END LOOP;
875:
874: END LOOP;
875:
876: ELSIF(p_Dim_Level_Id IS NOT NULL) THEN
877:
878: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels_DL
879: (
880: p_Dim_Level_Id => p_Dim_Level_Id
881: ,x_return_status => x_return_status
882: ,x_msg_count => x_msg_count
882: ,x_msg_count => x_msg_count
883: ,x_msg_data => x_msg_data
884: );
885: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
886: --DBMS_OUTPUT.PUT_LINE('BSC_BIS_KPI_MEAS_PUB.Create_Dim_Set Failed: at BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels');
887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
888: END IF;
889: END IF;
890:
909: RAISE;
910: WHEN NO_DATA_FOUND THEN
911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: IF (x_msg_data IS NOT NULL) THEN
913: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button ';
914: ELSE
915: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button ';
916: END IF;
917: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: IF (x_msg_data IS NOT NULL) THEN
913: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button ';
914: ELSE
915: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button ';
916: END IF;
917: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
918: RAISE;
919: WHEN OTHERS THEN
918: RAISE;
919: WHEN OTHERS THEN
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921: IF (x_msg_data IS NOT NULL) THEN
922: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button ';
923: ELSE
924: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button ';
925: END IF;
926: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921: IF (x_msg_data IS NOT NULL) THEN
922: x_msg_data := x_msg_data||' -> BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button ';
923: ELSE
924: x_msg_data := SQLERRM||' at BSC_COMMON_DIM_LEVELS_PUB.Validate_List_Button ';
925: END IF;
926: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
927: RAISE;
928: END Validate_List_Button;
928: END Validate_List_Button;
929:
930:
931:
932: END BSC_COMMON_DIM_LEVELS_PUB;