1: package body BSC_KPI_PUB as
2: /* $Header: BSCPKPPB.pls 120.12 2007/02/09 09:16:15 ashankar ship $ */
3: /*
4: +======================================================================================+
5: | Copyright (c) 2001 Oracle Corporation, Redwood Shores, CA, USA |
50: | 09-feb-2007 ashankar Simulation Tree Enhacement 5386112 |
51: +======================================================================================+
52: */
53:
54: G_PKG_NAME CONSTANT varchar2(30) := 'BSC_KPI_PUB';
55:
56:
57: --New procedure with OUT parameter
58: PROCEDURE Create_Kpi(
56:
57: --New procedure with OUT parameter
58: PROCEDURE Create_Kpi(
59: p_commit IN VARCHAR2 := FND_API.G_FALSE
60: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
61: ,x_Bsc_Kpi_Entity_Rec OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
62: ,x_return_status OUT NOCOPY VARCHAR2
63: ,x_msg_count OUT NOCOPY NUMBER
64: ,x_msg_data OUT NOCOPY VARCHAR2
57: --New procedure with OUT parameter
58: PROCEDURE Create_Kpi(
59: p_commit IN VARCHAR2 := FND_API.G_FALSE
60: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
61: ,x_Bsc_Kpi_Entity_Rec OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
62: ,x_return_status OUT NOCOPY VARCHAR2
63: ,x_msg_count OUT NOCOPY NUMBER
64: ,x_msg_data OUT NOCOPY VARCHAR2
65: ) IS
63: ,x_msg_count OUT NOCOPY NUMBER
64: ,x_msg_data OUT NOCOPY VARCHAR2
65: ) IS
66:
67: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
68: l_No_Ind NUMBER;
69: l_Count NUMBER;
70: BEGIN
71:
187: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
188: WHEN NO_DATA_FOUND THEN
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: IF (x_msg_data IS NOT NULL) THEN
191: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi with parameter x_Bsc_Kpi_Entity_Rec ';
192: ELSE
193: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi with parameter x_Bsc_Kpi_Entity_Rec ';
194: END IF;
195: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: IF (x_msg_data IS NOT NULL) THEN
191: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi with parameter x_Bsc_Kpi_Entity_Rec ';
192: ELSE
193: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi with parameter x_Bsc_Kpi_Entity_Rec ';
194: END IF;
195: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
196: WHEN OTHERS THEN
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
196: WHEN OTHERS THEN
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: IF (x_msg_data IS NOT NULL) THEN
199: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi with parameter x_Bsc_Kpi_Entity_Rec ';
200: ELSE
201: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi with parameter x_Bsc_Kpi_Entity_Rec ';
202: END IF;
203: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: IF (x_msg_data IS NOT NULL) THEN
199: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi with parameter x_Bsc_Kpi_Entity_Rec ';
200: ELSE
201: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi with parameter x_Bsc_Kpi_Entity_Rec ';
202: END IF;
203: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
204: end Create_Kpi;
205:
217: Please review and change for BSC5.3
218: */
219: procedure Create_Kpi(
220: p_commit IN varchar2 := FND_API.G_FALSE
221: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
222: ,x_return_status OUT NOCOPY varchar2
223: ,x_msg_count OUT NOCOPY number
224: ,x_msg_data OUT NOCOPY varchar2
225: ) is
223: ,x_msg_count OUT NOCOPY number
224: ,x_msg_data OUT NOCOPY varchar2
225: ) is
226:
227: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
228: l_Bsc_Kpi_Entity_Rec_Out BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
229:
230: begin
231: FND_MSG_PUB.Initialize;
224: ,x_msg_data OUT NOCOPY varchar2
225: ) is
226:
227: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
228: l_Bsc_Kpi_Entity_Rec_Out BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
229:
230: begin
231: FND_MSG_PUB.Initialize;
232: x_return_status := FND_API.G_RET_STS_SUCCESS;
233:
234: l_Bsc_Kpi_Entity_Rec := p_Bsc_Kpi_Entity_Rec;
235:
236: -- Call the create kpi API with OUT parameter for kpi entity record.
237: BSC_KPI_PUB.Create_Kpi( p_commit => p_commit
238: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
239: ,x_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec_Out
240: ,x_return_status => x_return_status
241: ,x_msg_count => x_msg_count
267: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
268: WHEN NO_DATA_FOUND THEN
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: IF (x_msg_data IS NOT NULL) THEN
271: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi ';
272: ELSE
273: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi ';
274: END IF;
275: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: IF (x_msg_data IS NOT NULL) THEN
271: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi ';
272: ELSE
273: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi ';
274: END IF;
275: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
276: WHEN OTHERS THEN
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
276: WHEN OTHERS THEN
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278: IF (x_msg_data IS NOT NULL) THEN
279: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi ';
280: ELSE
281: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi ';
282: END IF;
283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278: IF (x_msg_data IS NOT NULL) THEN
279: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi ';
280: ELSE
281: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi ';
282: END IF;
283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
284: end Create_Kpi;
285:
287: /************************************************************************************
288: ************************************************************************************/
289: --new procedure. Initializing the kpi entity record.
290: procedure Initialize_Kpi_Entity_Rec(
291: p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
292: ,x_Bsc_Kpi_Entity_Rec OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
293: ,x_return_status OUT NOCOPY varchar2
294: ,x_msg_count OUT NOCOPY number
295: ,x_msg_data OUT NOCOPY varchar2
288: ************************************************************************************/
289: --new procedure. Initializing the kpi entity record.
290: procedure Initialize_Kpi_Entity_Rec(
291: p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
292: ,x_Bsc_Kpi_Entity_Rec OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
293: ,x_return_status OUT NOCOPY varchar2
294: ,x_msg_count OUT NOCOPY number
295: ,x_msg_data OUT NOCOPY varchar2
296: ) is
335: EXCEPTION
336: WHEN OTHERS THEN
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
338: IF (x_msg_data IS NOT NULL) THEN
339: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Initialize_Kpi_Entity_Rec ';
340: ELSE
341: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Initialize_Kpi_Entity_Rec ';
342: END IF;
343: RAISE;
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
338: IF (x_msg_data IS NOT NULL) THEN
339: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Initialize_Kpi_Entity_Rec ';
340: ELSE
341: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Initialize_Kpi_Entity_Rec ';
342: END IF;
343: RAISE;
344: end Initialize_Kpi_Entity_Rec;
345:
348: ************************************************************************************/
349:
350: procedure Retrieve_Kpi(
351: p_commit IN varchar2 := FND_API.G_FALSE
352: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
353: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
354: ,x_return_status OUT NOCOPY varchar2
355: ,x_msg_count OUT NOCOPY number
356: ,x_msg_data OUT NOCOPY varchar2
349:
350: procedure Retrieve_Kpi(
351: p_commit IN varchar2 := FND_API.G_FALSE
352: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
353: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
354: ,x_return_status OUT NOCOPY varchar2
355: ,x_msg_count OUT NOCOPY number
356: ,x_msg_data OUT NOCOPY varchar2
357: ) is
399: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
400: WHEN NO_DATA_FOUND THEN
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402: IF (x_msg_data IS NOT NULL) THEN
403: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi ';
404: ELSE
405: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi ';
406: END IF;
407: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402: IF (x_msg_data IS NOT NULL) THEN
403: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi ';
404: ELSE
405: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi ';
406: END IF;
407: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
408: WHEN OTHERS THEN
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
408: WHEN OTHERS THEN
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410: IF (x_msg_data IS NOT NULL) THEN
411: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi ';
412: ELSE
413: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi ';
414: END IF;
415: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410: IF (x_msg_data IS NOT NULL) THEN
411: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi ';
412: ELSE
413: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi ';
414: END IF;
415: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
416:
417: end Retrieve_Kpi;
420: ************************************************************************************/
421:
422: procedure Update_Kpi(
423: p_commit IN varchar2 := FND_API.G_FALSE
424: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
425: ,x_return_status OUT NOCOPY varchar2
426: ,x_msg_count OUT NOCOPY number
427: ,x_msg_data OUT NOCOPY varchar2
428: ) is
426: ,x_msg_count OUT NOCOPY number
427: ,x_msg_data OUT NOCOPY varchar2
428: ) is
429:
430: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
431:
432: TYPE Recdc_value IS REF CURSOR;
433: dc_value Recdc_value;
434:
439: CURSOR c_Select_Indicator IS
440: SELECT INDICATOR
441: FROM BSC_KPIS_B
442: WHERE SOURCE_INDICATOR = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
443: AND PROTOTYPE_FLAG <> BSC_KPI_PUB.Delete_Kpi_Flag;
444:
445: begin
446: FND_MSG_PUB.Initialize;
447: x_return_status := FND_API.G_RET_STS_SUCCESS;
537: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
538: WHEN NO_DATA_FOUND THEN
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
540: IF (x_msg_data IS NOT NULL) THEN
541: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi ';
542: ELSE
543: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi ';
544: END IF;
545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
540: IF (x_msg_data IS NOT NULL) THEN
541: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi ';
542: ELSE
543: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi ';
544: END IF;
545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
546: WHEN OTHERS THEN
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
546: WHEN OTHERS THEN
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: IF (x_msg_data IS NOT NULL) THEN
549: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi ';
550: ELSE
551: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi ';
552: END IF;
553: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: IF (x_msg_data IS NOT NULL) THEN
549: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi ';
550: ELSE
551: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi ';
552: END IF;
553: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
554: end Update_Kpi;
555:
560: are filtered out from the KPI Dimension SHort_Names.
561: ************************************************************************************/
562:
563: PROCEDURE Get_KPI_Dim_ShortNames (
564: p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
565: ,x_dim_list OUT NOCOPY BSC_UTILITY.t_array_of_varchar2
566: ,x_return_status OUT NOCOPY varchar2
567: ,x_msg_count OUT NOCOPY number
568: ,x_msg_data OUT NOCOPY varchar2
593: EXCEPTION
594: WHEN OTHERS THEN
595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
596: IF (x_msg_data IS NOT NULL) THEN
597: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Get_KPI_Dim_ShortNames ';
598: ELSE
599: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Get_KPI_Dim_ShortNames ';
600: END IF;
601: END Get_KPI_Dim_ShortNames;
595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
596: IF (x_msg_data IS NOT NULL) THEN
597: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Get_KPI_Dim_ShortNames ';
598: ELSE
599: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Get_KPI_Dim_ShortNames ';
600: END IF;
601: END Get_KPI_Dim_ShortNames;
602:
603: /************************************************************************************
636: EXCEPTION
637: WHEN OTHERS THEN
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: IF (x_msg_data IS NOT NULL) THEN
640: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Unused_Imported_Dims ';
641: ELSE
642: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Unused_Imported_Dims ';
643: END IF;
644: END Delete_Unused_Imported_Dims;
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: IF (x_msg_data IS NOT NULL) THEN
640: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Unused_Imported_Dims ';
641: ELSE
642: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Unused_Imported_Dims ';
643: END IF;
644: END Delete_Unused_Imported_Dims;
645:
646: /************************************************************************************
647: ************************************************************************************/
648:
649: PROCEDURE Delete_Kpi(
650: p_commit IN VARCHAR2 := FND_API.G_FALSE
651: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
652: ,x_return_status OUT NOCOPY VARCHAR2
653: ,x_msg_count OUT NOCOPY NUMBER
654: ,x_msg_data OUT NOCOPY VARCHAR2
655: ) IS
656: CURSOR c_Select_Indicator IS
657: SELECT INDICATOR,CONFIG_TYPE
658: FROM BSC_KPIS_B
659: WHERE SOURCE_INDICATOR = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
660: AND PROTOTYPE_FLAG <> BSC_KPI_PUB.Delete_Kpi_Flag;
661:
662: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
663:
664: l_sql VARCHAR2(5000);
658: FROM BSC_KPIS_B
659: WHERE SOURCE_INDICATOR = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
660: AND PROTOTYPE_FLAG <> BSC_KPI_PUB.Delete_Kpi_Flag;
661:
662: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
663:
664: l_sql VARCHAR2(5000);
665:
666: l_share_flag NUMBER;
736: END IF;
737:
738: IF(l_config_type =7) THEN
739:
740: BSC_KPI_PUB.Delete_Sim_Tree_Data
741: (
742: p_commit => p_commit
743: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
744: , x_return_status => x_return_status
810:
811: END IF;
812:
813: IF(l_config_type =7) THEN
814: BSC_KPI_PUB.Delete_Sim_Tree_Data
815: (
816: p_commit => p_commit
817: , p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
818: , x_return_status => x_return_status
868: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
869: WHEN NO_DATA_FOUND THEN
870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
871: IF (x_msg_data IS NOT NULL) THEN
872: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi ';
873: ELSE
874: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi ';
875: END IF;
876: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
871: IF (x_msg_data IS NOT NULL) THEN
872: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi ';
873: ELSE
874: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi ';
875: END IF;
876: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
877: WHEN OTHERS THEN
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
876: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
877: WHEN OTHERS THEN
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
879: IF (x_msg_data IS NOT NULL) THEN
880: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi ';
881: ELSE
882: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi ';
883: END IF;
884: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
879: IF (x_msg_data IS NOT NULL) THEN
880: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi ';
881: ELSE
882: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi ';
883: END IF;
884: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
885:
886: end Delete_Kpi;
889: ************************************************************************************/
890:
891: procedure Create_Kpi_Defaults(
892: p_commit IN varchar2 := FND_API.G_FALSE
893: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
894: ,x_return_status OUT NOCOPY varchar2
895: ,x_msg_count OUT NOCOPY number
896: ,x_msg_data OUT NOCOPY varchar2
897: ) is
895: ,x_msg_count OUT NOCOPY number
896: ,x_msg_data OUT NOCOPY varchar2
897: ) is
898:
899: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
900:
901: l_Bsc_Dim_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
902:
903: begin
1024: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1025: WHEN NO_DATA_FOUND THEN
1026: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1027: IF (x_msg_data IS NOT NULL) THEN
1028: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Defaults ';
1029: ELSE
1030: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Defaults ';
1031: END IF;
1032: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1026: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1027: IF (x_msg_data IS NOT NULL) THEN
1028: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Defaults ';
1029: ELSE
1030: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Defaults ';
1031: END IF;
1032: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1033: WHEN OTHERS THEN
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1032: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1033: WHEN OTHERS THEN
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1035: IF (x_msg_data IS NOT NULL) THEN
1036: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Defaults ';
1037: ELSE
1038: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Defaults ';
1039: END IF;
1040: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1035: IF (x_msg_data IS NOT NULL) THEN
1036: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Defaults ';
1037: ELSE
1038: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Defaults ';
1039: END IF;
1040: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1041: end Create_Kpi_Defaults;
1042:
1044: ************************************************************************************/
1045:
1046: procedure Retrieve_Kpi_Defaults(
1047: p_commit IN varchar2 := FND_API.G_FALSE
1048: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1049: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1050: ,x_return_status OUT NOCOPY varchar2
1051: ,x_msg_count OUT NOCOPY number
1052: ,x_msg_data OUT NOCOPY varchar2
1045:
1046: procedure Retrieve_Kpi_Defaults(
1047: p_commit IN varchar2 := FND_API.G_FALSE
1048: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1049: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1050: ,x_return_status OUT NOCOPY varchar2
1051: ,x_msg_count OUT NOCOPY number
1052: ,x_msg_data OUT NOCOPY varchar2
1053: ) is
1140: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1141: WHEN NO_DATA_FOUND THEN
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1143: IF (x_msg_data IS NOT NULL) THEN
1144: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Defaults ';
1145: ELSE
1146: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Defaults ';
1147: END IF;
1148: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1143: IF (x_msg_data IS NOT NULL) THEN
1144: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Defaults ';
1145: ELSE
1146: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Defaults ';
1147: END IF;
1148: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1149: WHEN OTHERS THEN
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1148: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1149: WHEN OTHERS THEN
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151: IF (x_msg_data IS NOT NULL) THEN
1152: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Defaults ';
1153: ELSE
1154: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Defaults ';
1155: END IF;
1156: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151: IF (x_msg_data IS NOT NULL) THEN
1152: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Defaults ';
1153: ELSE
1154: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Defaults ';
1155: END IF;
1156: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1157: end Retrieve_Kpi_Defaults;
1158:
1160: ************************************************************************************/
1161:
1162: procedure Update_Kpi_Defaults(
1163: p_commit IN varchar2 := FND_API.G_FALSE
1164: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1165: ,x_return_status OUT NOCOPY varchar2
1166: ,x_msg_count OUT NOCOPY number
1167: ,x_msg_data OUT NOCOPY varchar2
1168: ) is
1272: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1273: WHEN NO_DATA_FOUND THEN
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275: IF (x_msg_data IS NOT NULL) THEN
1276: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Defaults ';
1277: ELSE
1278: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Defaults ';
1279: END IF;
1280: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275: IF (x_msg_data IS NOT NULL) THEN
1276: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Defaults ';
1277: ELSE
1278: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Defaults ';
1279: END IF;
1280: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1281: WHEN OTHERS THEN
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1280: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1281: WHEN OTHERS THEN
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: IF (x_msg_data IS NOT NULL) THEN
1284: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Defaults ';
1285: ELSE
1286: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Defaults ';
1287: END IF;
1288: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: IF (x_msg_data IS NOT NULL) THEN
1284: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Defaults ';
1285: ELSE
1286: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Defaults ';
1287: END IF;
1288: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1289: end Update_Kpi_Defaults;
1290:
1290:
1291:
1292: PROCEDURE Delete_Obj_Kpi_Measure_Props (
1293: p_commit IN VARCHAR2 := FND_API.G_FALSE
1294: , p_bsc_kpi_entity_rec IN BSC_KPI_PUB.bsc_kpi_entity_rec
1295: , x_return_status OUT NOCOPY VARCHAR2
1296: , x_msg_count OUT NOCOPY NUMBER
1297: , x_msg_data OUT NOCOPY VARCHAR2
1298: )
1363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1364: WHEN NO_DATA_FOUND THEN
1365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366: IF (x_msg_data IS NOT NULL) THEN
1367: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Obj_Kpi_Measure_Props ';
1368: ELSE
1369: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Obj_Kpi_Measure_Props ';
1370: END IF;
1371: WHEN OTHERS THEN
1365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366: IF (x_msg_data IS NOT NULL) THEN
1367: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Obj_Kpi_Measure_Props ';
1368: ELSE
1369: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Obj_Kpi_Measure_Props ';
1370: END IF;
1371: WHEN OTHERS THEN
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: IF (x_msg_data IS NOT NULL) THEN
1370: END IF;
1371: WHEN OTHERS THEN
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: IF (x_msg_data IS NOT NULL) THEN
1374: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Obj_Kpi_Measure_Props ';
1375: ELSE
1376: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Obj_Kpi_Measure_Props ';
1377: END IF;
1378: END Delete_Obj_Kpi_Measure_Props;
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: IF (x_msg_data IS NOT NULL) THEN
1374: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Obj_Kpi_Measure_Props ';
1375: ELSE
1376: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Obj_Kpi_Measure_Props ';
1377: END IF;
1378: END Delete_Obj_Kpi_Measure_Props;
1379: /************************************************************************************
1380: ************************************************************************************/
1380: ************************************************************************************/
1381:
1382: procedure Delete_Objective_Color_Data(
1383: p_commit IN varchar2 := FND_API.G_FALSE
1384: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1385: ,x_return_status OUT NOCOPY varchar2
1386: ,x_msg_count OUT NOCOPY number
1387: ,x_msg_data OUT NOCOPY varchar2
1388: ) is
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: WHEN OTHERS THEN
1415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1416: IF (x_msg_data IS NOT NULL) THEN
1417: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Objective_Color_Data ';
1418: ELSE
1419: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Objective_Color_Data ';
1420: END IF;
1421: end Delete_Objective_Color_Data;
1415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1416: IF (x_msg_data IS NOT NULL) THEN
1417: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Objective_Color_Data ';
1418: ELSE
1419: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Objective_Color_Data ';
1420: END IF;
1421: end Delete_Objective_Color_Data;
1422:
1423:
1425: ************************************************************************************/
1426:
1427: procedure Delete_Kpi_Defaults(
1428: p_commit IN varchar2 := FND_API.G_FALSE
1429: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1430: ,x_return_status OUT NOCOPY varchar2
1431: ,x_msg_count OUT NOCOPY number
1432: ,x_msg_data OUT NOCOPY varchar2
1433: ) is
1616: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1617: WHEN NO_DATA_FOUND THEN
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619: IF (x_msg_data IS NOT NULL) THEN
1620: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Defaults ';
1621: ELSE
1622: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Defaults ';
1623: END IF;
1624: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1619: IF (x_msg_data IS NOT NULL) THEN
1620: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Defaults ';
1621: ELSE
1622: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Defaults ';
1623: END IF;
1624: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1624: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1627: IF (x_msg_data IS NOT NULL) THEN
1628: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Defaults ';
1629: ELSE
1630: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Defaults ';
1631: END IF;
1632: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1627: IF (x_msg_data IS NOT NULL) THEN
1628: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Defaults ';
1629: ELSE
1630: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Defaults ';
1631: END IF;
1632: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1633: end Delete_Kpi_Defaults;
1634:
1636: ************************************************************************************/
1637:
1638: procedure Create_Kpi_Properties(
1639: p_commit IN varchar2 := FND_API.G_FALSE
1640: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1641: ,x_return_status OUT NOCOPY varchar2
1642: ,x_msg_count OUT NOCOPY number
1643: ,x_msg_data OUT NOCOPY varchar2
1644: ) is
1642: ,x_msg_count OUT NOCOPY number
1643: ,x_msg_data OUT NOCOPY varchar2
1644: ) is
1645:
1646: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
1647: l_count NUMBER;
1648:
1649: begin
1650: FND_MSG_PUB.Initialize;
1665: ,x_return_status
1666: ,x_msg_count
1667: ,x_msg_data);
1668:
1669: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Property_Code := BSC_KPI_PUB.Benchmark_Kpi_Property;
1670: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Property_Value := BSC_KPI_PUB.Benchmark_Kpi_Line_Graph;
1671: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Secondary_Value := '';
1672:
1673: BSC_KPI_PVT.Create_Kpi_Properties( p_commit
1666: ,x_msg_count
1667: ,x_msg_data);
1668:
1669: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Property_Code := BSC_KPI_PUB.Benchmark_Kpi_Property;
1670: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Property_Value := BSC_KPI_PUB.Benchmark_Kpi_Line_Graph;
1671: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Secondary_Value := '';
1672:
1673: BSC_KPI_PVT.Create_Kpi_Properties( p_commit
1674: ,l_Bsc_Kpi_Entity_Rec
1724: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1725: WHEN NO_DATA_FOUND THEN
1726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1727: IF (x_msg_data IS NOT NULL) THEN
1728: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Properties ';
1729: ELSE
1730: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Properties ';
1731: END IF;
1732: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1727: IF (x_msg_data IS NOT NULL) THEN
1728: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Properties ';
1729: ELSE
1730: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Properties ';
1731: END IF;
1732: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1733: WHEN OTHERS THEN
1734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1732: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1733: WHEN OTHERS THEN
1734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1735: IF (x_msg_data IS NOT NULL) THEN
1736: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Properties ';
1737: ELSE
1738: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Properties ';
1739: END IF;
1740: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1735: IF (x_msg_data IS NOT NULL) THEN
1736: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Properties ';
1737: ELSE
1738: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Properties ';
1739: END IF;
1740: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1741: end Create_Kpi_Properties;
1742:
1744: ************************************************************************************/
1745:
1746: procedure Retrieve_Kpi_Properties(
1747: p_commit IN varchar2 := FND_API.G_FALSE
1748: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1749: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1750: ,x_return_status OUT NOCOPY varchar2
1751: ,x_msg_count OUT NOCOPY number
1752: ,x_msg_data OUT NOCOPY varchar2
1745:
1746: procedure Retrieve_Kpi_Properties(
1747: p_commit IN varchar2 := FND_API.G_FALSE
1748: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1749: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1750: ,x_return_status OUT NOCOPY varchar2
1751: ,x_msg_count OUT NOCOPY number
1752: ,x_msg_data OUT NOCOPY varchar2
1753: ) is
1785: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1786: WHEN NO_DATA_FOUND THEN
1787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1788: IF (x_msg_data IS NOT NULL) THEN
1789: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Properties ';
1790: ELSE
1791: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Properties ';
1792: END IF;
1793: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1788: IF (x_msg_data IS NOT NULL) THEN
1789: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Properties ';
1790: ELSE
1791: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Properties ';
1792: END IF;
1793: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1794: WHEN OTHERS THEN
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1793: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1794: WHEN OTHERS THEN
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1796: IF (x_msg_data IS NOT NULL) THEN
1797: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Properties ';
1798: ELSE
1799: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Properties ';
1800: END IF;
1801: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1796: IF (x_msg_data IS NOT NULL) THEN
1797: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Properties ';
1798: ELSE
1799: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Properties ';
1800: END IF;
1801: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1802: end Retrieve_Kpi_Properties;
1803:
1805: ************************************************************************************/
1806:
1807: procedure Update_Kpi_Properties(
1808: p_commit IN varchar2 := FND_API.G_FALSE
1809: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1810: ,x_return_status OUT NOCOPY varchar2
1811: ,x_msg_count OUT NOCOPY number
1812: ,x_msg_data OUT NOCOPY varchar2
1813: ) is
1844: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1845: WHEN NO_DATA_FOUND THEN
1846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1847: IF (x_msg_data IS NOT NULL) THEN
1848: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Properties ';
1849: ELSE
1850: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Properties ';
1851: END IF;
1852: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1847: IF (x_msg_data IS NOT NULL) THEN
1848: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Properties ';
1849: ELSE
1850: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Properties ';
1851: END IF;
1852: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1853: WHEN OTHERS THEN
1854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1852: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1853: WHEN OTHERS THEN
1854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1855: IF (x_msg_data IS NOT NULL) THEN
1856: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Properties ';
1857: ELSE
1858: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Properties ';
1859: END IF;
1860: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1855: IF (x_msg_data IS NOT NULL) THEN
1856: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Properties ';
1857: ELSE
1858: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Properties ';
1859: END IF;
1860: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1861: end Update_Kpi_Properties;
1862:
1864: ************************************************************************************/
1865:
1866: procedure Delete_Kpi_Properties(
1867: p_commit IN varchar2 := FND_API.G_FALSE
1868: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1869: ,x_return_status OUT NOCOPY varchar2
1870: ,x_msg_count OUT NOCOPY number
1871: ,x_msg_data OUT NOCOPY varchar2
1872: ) is
1906: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1907: WHEN NO_DATA_FOUND THEN
1908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1909: IF (x_msg_data IS NOT NULL) THEN
1910: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Properties ';
1911: ELSE
1912: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Properties ';
1913: END IF;
1914: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1909: IF (x_msg_data IS NOT NULL) THEN
1910: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Properties ';
1911: ELSE
1912: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Properties ';
1913: END IF;
1914: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1915: WHEN OTHERS THEN
1916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1914: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1915: WHEN OTHERS THEN
1916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1917: IF (x_msg_data IS NOT NULL) THEN
1918: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Properties ';
1919: ELSE
1920: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Properties ';
1921: END IF;
1922: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1917: IF (x_msg_data IS NOT NULL) THEN
1918: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Properties ';
1919: ELSE
1920: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Properties ';
1921: END IF;
1922: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1923: end Delete_Kpi_Properties;
1924:
1926: ************************************************************************************/
1927:
1928: procedure Create_Kpi_Analysis(
1929: p_commit IN varchar2 := FND_API.G_FALSE
1930: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1931: ,x_return_status OUT NOCOPY varchar2
1932: ,x_msg_count OUT NOCOPY number
1933: ,x_msg_data OUT NOCOPY varchar2
1934: ) is
1966: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1967: WHEN NO_DATA_FOUND THEN
1968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1969: IF (x_msg_data IS NOT NULL) THEN
1970: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Analysis ';
1971: ELSE
1972: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Analysis ';
1973: END IF;
1974: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1969: IF (x_msg_data IS NOT NULL) THEN
1970: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Analysis ';
1971: ELSE
1972: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Analysis ';
1973: END IF;
1974: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1975: WHEN OTHERS THEN
1976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1974: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1975: WHEN OTHERS THEN
1976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1977: IF (x_msg_data IS NOT NULL) THEN
1978: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Analysis ';
1979: ELSE
1980: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Analysis ';
1981: END IF;
1982: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1977: IF (x_msg_data IS NOT NULL) THEN
1978: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Analysis ';
1979: ELSE
1980: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Analysis ';
1981: END IF;
1982: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1983: end Create_Kpi_Analysis;
1984:
1986: ************************************************************************************/
1987:
1988: procedure Retrieve_Kpi_Analysis(
1989: p_commit IN varchar2 := FND_API.G_FALSE
1990: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1991: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1992: ,x_return_status OUT NOCOPY varchar2
1993: ,x_msg_count OUT NOCOPY number
1994: ,x_msg_data OUT NOCOPY varchar2
1987:
1988: procedure Retrieve_Kpi_Analysis(
1989: p_commit IN varchar2 := FND_API.G_FALSE
1990: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1991: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1992: ,x_return_status OUT NOCOPY varchar2
1993: ,x_msg_count OUT NOCOPY number
1994: ,x_msg_data OUT NOCOPY varchar2
1995: ) is
2027: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2028: WHEN NO_DATA_FOUND THEN
2029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2030: IF (x_msg_data IS NOT NULL) THEN
2031: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Analysis ';
2032: ELSE
2033: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Analysis ';
2034: END IF;
2035: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2030: IF (x_msg_data IS NOT NULL) THEN
2031: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Analysis ';
2032: ELSE
2033: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Analysis ';
2034: END IF;
2035: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2036: WHEN OTHERS THEN
2037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2035: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2036: WHEN OTHERS THEN
2037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2038: IF (x_msg_data IS NOT NULL) THEN
2039: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Analysis ';
2040: ELSE
2041: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Analysis ';
2042: END IF;
2043: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2038: IF (x_msg_data IS NOT NULL) THEN
2039: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Analysis ';
2040: ELSE
2041: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Analysis ';
2042: END IF;
2043: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2044: end Retrieve_Kpi_Analysis;
2045:
2047: ************************************************************************************/
2048:
2049: procedure Update_Kpi_Analysis(
2050: p_commit IN varchar2 := FND_API.G_FALSE
2051: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2052: ,x_return_status OUT NOCOPY varchar2
2053: ,x_msg_count OUT NOCOPY number
2054: ,x_msg_data OUT NOCOPY varchar2
2055: ) is
2086: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2087: WHEN NO_DATA_FOUND THEN
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2089: IF (x_msg_data IS NOT NULL) THEN
2090: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Analysis ';
2091: ELSE
2092: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Analysis ';
2093: END IF;
2094: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2089: IF (x_msg_data IS NOT NULL) THEN
2090: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Analysis ';
2091: ELSE
2092: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Analysis ';
2093: END IF;
2094: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2095: WHEN OTHERS THEN
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2094: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2095: WHEN OTHERS THEN
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2097: IF (x_msg_data IS NOT NULL) THEN
2098: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Analysis ';
2099: ELSE
2100: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Analysis ';
2101: END IF;
2102: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2097: IF (x_msg_data IS NOT NULL) THEN
2098: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Analysis ';
2099: ELSE
2100: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Analysis ';
2101: END IF;
2102: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2103: end Update_Kpi_Analysis;
2104:
2106: ************************************************************************************/
2107:
2108: procedure Delete_Kpi_Analysis(
2109: p_commit IN varchar2 := FND_API.G_FALSE
2110: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2111: ,x_return_status OUT NOCOPY varchar2
2112: ,x_msg_count OUT NOCOPY number
2113: ,x_msg_data OUT NOCOPY varchar2
2114: ) is
2160: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2161: WHEN NO_DATA_FOUND THEN
2162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2163: IF (x_msg_data IS NOT NULL) THEN
2164: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Analysis ';
2165: ELSE
2166: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Analysis ';
2167: END IF;
2168: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2163: IF (x_msg_data IS NOT NULL) THEN
2164: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Analysis ';
2165: ELSE
2166: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Analysis ';
2167: END IF;
2168: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2169: WHEN OTHERS THEN
2170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2168: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2169: WHEN OTHERS THEN
2170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2171: IF (x_msg_data IS NOT NULL) THEN
2172: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Analysis ';
2173: ELSE
2174: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Analysis ';
2175: END IF;
2176: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2171: IF (x_msg_data IS NOT NULL) THEN
2172: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Analysis ';
2173: ELSE
2174: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Analysis ';
2175: END IF;
2176: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2177: end Delete_Kpi_Analysis;
2178:
2180: ************************************************************************************/
2181:
2182: procedure Create_Kpi_Periodicity(
2183: p_commit IN varchar2 := FND_API.G_FALSE
2184: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2185: ,x_return_status OUT NOCOPY varchar2
2186: ,x_msg_count OUT NOCOPY number
2187: ,x_msg_data OUT NOCOPY varchar2
2188: ) is
2220: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2221: WHEN NO_DATA_FOUND THEN
2222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2223: IF (x_msg_data IS NOT NULL) THEN
2224: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Periodicity ';
2225: ELSE
2226: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Periodicity ';
2227: END IF;
2228: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2223: IF (x_msg_data IS NOT NULL) THEN
2224: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Periodicity ';
2225: ELSE
2226: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Periodicity ';
2227: END IF;
2228: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2229: WHEN OTHERS THEN
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2228: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2229: WHEN OTHERS THEN
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2231: IF (x_msg_data IS NOT NULL) THEN
2232: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Periodicity ';
2233: ELSE
2234: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Periodicity ';
2235: END IF;
2236: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2231: IF (x_msg_data IS NOT NULL) THEN
2232: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Periodicity ';
2233: ELSE
2234: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Periodicity ';
2235: END IF;
2236: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2237: end Create_Kpi_Periodicity;
2238:
2240: ************************************************************************************/
2241:
2242: procedure Retrieve_Kpi_Periodicity(
2243: p_commit IN varchar2 := FND_API.G_FALSE
2244: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2245: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2246: ,x_return_status OUT NOCOPY varchar2
2247: ,x_msg_count OUT NOCOPY number
2248: ,x_msg_data OUT NOCOPY varchar2
2241:
2242: procedure Retrieve_Kpi_Periodicity(
2243: p_commit IN varchar2 := FND_API.G_FALSE
2244: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2245: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2246: ,x_return_status OUT NOCOPY varchar2
2247: ,x_msg_count OUT NOCOPY number
2248: ,x_msg_data OUT NOCOPY varchar2
2249: ) is
2281: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2282: WHEN NO_DATA_FOUND THEN
2283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2284: IF (x_msg_data IS NOT NULL) THEN
2285: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Periodicity ';
2286: ELSE
2287: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Periodicity ';
2288: END IF;
2289: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2284: IF (x_msg_data IS NOT NULL) THEN
2285: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Periodicity ';
2286: ELSE
2287: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Periodicity ';
2288: END IF;
2289: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2290: WHEN OTHERS THEN
2291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2289: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2290: WHEN OTHERS THEN
2291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2292: IF (x_msg_data IS NOT NULL) THEN
2293: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Periodicity ';
2294: ELSE
2295: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Periodicity ';
2296: END IF;
2297: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2292: IF (x_msg_data IS NOT NULL) THEN
2293: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Periodicity ';
2294: ELSE
2295: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Periodicity ';
2296: END IF;
2297: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2298: end Retrieve_Kpi_Periodicity;
2299:
2301: ************************************************************************************/
2302:
2303: procedure Update_Kpi_Periodicity(
2304: p_commit IN varchar2 := FND_API.G_FALSE
2305: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2306: ,x_return_status OUT NOCOPY varchar2
2307: ,x_msg_count OUT NOCOPY number
2308: ,x_msg_data OUT NOCOPY varchar2
2309: ) is
2340: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2341: WHEN NO_DATA_FOUND THEN
2342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2343: IF (x_msg_data IS NOT NULL) THEN
2344: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Periodicity ';
2345: ELSE
2346: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Periodicity ';
2347: END IF;
2348: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2343: IF (x_msg_data IS NOT NULL) THEN
2344: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Periodicity ';
2345: ELSE
2346: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Periodicity ';
2347: END IF;
2348: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2349: WHEN OTHERS THEN
2350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2348: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2349: WHEN OTHERS THEN
2350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2351: IF (x_msg_data IS NOT NULL) THEN
2352: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Periodicity ';
2353: ELSE
2354: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Periodicity ';
2355: END IF;
2356: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2351: IF (x_msg_data IS NOT NULL) THEN
2352: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Periodicity ';
2353: ELSE
2354: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Periodicity ';
2355: END IF;
2356: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2357: end Update_Kpi_Periodicity;
2358:
2360: ************************************************************************************/
2361:
2362: procedure Delete_Kpi_Periodicity(
2363: p_commit IN varchar2 := FND_API.G_FALSE
2364: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2365: ,x_return_status OUT NOCOPY varchar2
2366: ,x_msg_count OUT NOCOPY number
2367: ,x_msg_data OUT NOCOPY varchar2
2368: ) is
2399: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2400: WHEN NO_DATA_FOUND THEN
2401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2402: IF (x_msg_data IS NOT NULL) THEN
2403: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Periodicity ';
2404: ELSE
2405: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Periodicity ';
2406: END IF;
2407: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2402: IF (x_msg_data IS NOT NULL) THEN
2403: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Periodicity ';
2404: ELSE
2405: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Periodicity ';
2406: END IF;
2407: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2408: WHEN OTHERS THEN
2409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2407: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2408: WHEN OTHERS THEN
2409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2410: IF (x_msg_data IS NOT NULL) THEN
2411: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Periodicity ';
2412: ELSE
2413: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Periodicity ';
2414: END IF;
2415: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2410: IF (x_msg_data IS NOT NULL) THEN
2411: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Periodicity ';
2412: ELSE
2413: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Periodicity ';
2414: END IF;
2415: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2416: end Delete_Kpi_Periodicity;
2417:
2419: ************************************************************************************/
2420:
2421: procedure Create_Kpi_Data_Tables(
2422: p_commit IN varchar2 := FND_API.G_FALSE
2423: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2424: ,x_return_status OUT NOCOPY varchar2
2425: ,x_msg_count OUT NOCOPY number
2426: ,x_msg_data OUT NOCOPY varchar2
2427: ) is
2458: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2459: WHEN NO_DATA_FOUND THEN
2460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2461: IF (x_msg_data IS NOT NULL) THEN
2462: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Data_Tables ';
2463: ELSE
2464: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Data_Tables ';
2465: END IF;
2466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2461: IF (x_msg_data IS NOT NULL) THEN
2462: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Data_Tables ';
2463: ELSE
2464: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Data_Tables ';
2465: END IF;
2466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2467: WHEN OTHERS THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2467: WHEN OTHERS THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: IF (x_msg_data IS NOT NULL) THEN
2470: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Data_Tables ';
2471: ELSE
2472: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Data_Tables ';
2473: END IF;
2474: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: IF (x_msg_data IS NOT NULL) THEN
2470: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Data_Tables ';
2471: ELSE
2472: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Data_Tables ';
2473: END IF;
2474: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2475: end Create_Kpi_Data_Tables;
2476:
2478: ************************************************************************************/
2479:
2480: procedure Retrieve_Kpi_Data_Tables(
2481: p_commit IN varchar2 := FND_API.G_FALSE
2482: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2483: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2484: ,x_return_status OUT NOCOPY varchar2
2485: ,x_msg_count OUT NOCOPY number
2486: ,x_msg_data OUT NOCOPY varchar2
2479:
2480: procedure Retrieve_Kpi_Data_Tables(
2481: p_commit IN varchar2 := FND_API.G_FALSE
2482: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2483: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2484: ,x_return_status OUT NOCOPY varchar2
2485: ,x_msg_count OUT NOCOPY number
2486: ,x_msg_data OUT NOCOPY varchar2
2487: ) is
2519: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2520: WHEN NO_DATA_FOUND THEN
2521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2522: IF (x_msg_data IS NOT NULL) THEN
2523: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Data_Tables ';
2524: ELSE
2525: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Data_Tables ';
2526: END IF;
2527: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2522: IF (x_msg_data IS NOT NULL) THEN
2523: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Data_Tables ';
2524: ELSE
2525: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Data_Tables ';
2526: END IF;
2527: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2528: WHEN OTHERS THEN
2529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2527: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2528: WHEN OTHERS THEN
2529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2530: IF (x_msg_data IS NOT NULL) THEN
2531: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Data_Tables ';
2532: ELSE
2533: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Data_Tables ';
2534: END IF;
2535: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2530: IF (x_msg_data IS NOT NULL) THEN
2531: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Data_Tables ';
2532: ELSE
2533: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Data_Tables ';
2534: END IF;
2535: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2536: end Retrieve_Kpi_Data_Tables;
2537:
2539: ************************************************************************************/
2540:
2541: procedure Update_Kpi_Data_Tables(
2542: p_commit IN varchar2 := FND_API.G_FALSE
2543: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2544: ,x_return_status OUT NOCOPY varchar2
2545: ,x_msg_count OUT NOCOPY number
2546: ,x_msg_data OUT NOCOPY varchar2
2547: ) is
2578: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2579: WHEN NO_DATA_FOUND THEN
2580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2581: IF (x_msg_data IS NOT NULL) THEN
2582: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Data_Tables ';
2583: ELSE
2584: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Data_Tables ';
2585: END IF;
2586: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2581: IF (x_msg_data IS NOT NULL) THEN
2582: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Data_Tables ';
2583: ELSE
2584: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Data_Tables ';
2585: END IF;
2586: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2587: WHEN OTHERS THEN
2588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2586: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2587: WHEN OTHERS THEN
2588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2589: IF (x_msg_data IS NOT NULL) THEN
2590: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Data_Tables ';
2591: ELSE
2592: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Data_Tables ';
2593: END IF;
2594: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2589: IF (x_msg_data IS NOT NULL) THEN
2590: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Data_Tables ';
2591: ELSE
2592: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Data_Tables ';
2593: END IF;
2594: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2595: end Update_Kpi_Data_Tables;
2596:
2598: ************************************************************************************/
2599:
2600: procedure Delete_Kpi_Data_Tables(
2601: p_commit IN varchar2 := FND_API.G_FALSE
2602: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2603: ,x_return_status OUT NOCOPY varchar2
2604: ,x_msg_count OUT NOCOPY number
2605: ,x_msg_data OUT NOCOPY varchar2
2606: ) is
2637: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2638: WHEN NO_DATA_FOUND THEN
2639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2640: IF (x_msg_data IS NOT NULL) THEN
2641: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Data_Tables ';
2642: ELSE
2643: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Data_Tables ';
2644: END IF;
2645: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2640: IF (x_msg_data IS NOT NULL) THEN
2641: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Data_Tables ';
2642: ELSE
2643: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Data_Tables ';
2644: END IF;
2645: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2646: WHEN OTHERS THEN
2647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2645: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2646: WHEN OTHERS THEN
2647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2648: IF (x_msg_data IS NOT NULL) THEN
2649: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Data_Tables ';
2650: ELSE
2651: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Data_Tables ';
2652: END IF;
2653: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2648: IF (x_msg_data IS NOT NULL) THEN
2649: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Data_Tables ';
2650: ELSE
2651: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Data_Tables ';
2652: END IF;
2653: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2654: end Delete_Kpi_Data_Tables;
2655:
2657: ************************************************************************************/
2658:
2659: procedure Create_Kpi_Calculations(
2660: p_commit IN varchar2 := FND_API.G_FALSE
2661: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2662: ,x_return_status OUT NOCOPY varchar2
2663: ,x_msg_count OUT NOCOPY number
2664: ,x_msg_data OUT NOCOPY varchar2
2665: ) is
2663: ,x_msg_count OUT NOCOPY number
2664: ,x_msg_data OUT NOCOPY varchar2
2665: ) is
2666:
2667: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
2668:
2669: begin
2670: FND_MSG_PUB.Initialize;
2671: x_return_status := FND_API.G_RET_STS_SUCCESS;
2854: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2855: WHEN NO_DATA_FOUND THEN
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2857: IF (x_msg_data IS NOT NULL) THEN
2858: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Calculations ';
2859: ELSE
2860: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Calculations ';
2861: END IF;
2862: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2857: IF (x_msg_data IS NOT NULL) THEN
2858: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Calculations ';
2859: ELSE
2860: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Calculations ';
2861: END IF;
2862: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2863: WHEN OTHERS THEN
2864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2862: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2863: WHEN OTHERS THEN
2864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2865: IF (x_msg_data IS NOT NULL) THEN
2866: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Calculations ';
2867: ELSE
2868: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Calculations ';
2869: END IF;
2870: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2865: IF (x_msg_data IS NOT NULL) THEN
2866: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Calculations ';
2867: ELSE
2868: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Calculations ';
2869: END IF;
2870: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2871: end Create_Kpi_Calculations;
2872:
2874: ************************************************************************************/
2875:
2876: procedure Retrieve_Kpi_Calculations(
2877: p_commit IN varchar2 := FND_API.G_FALSE
2878: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2879: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2880: ,x_return_status OUT NOCOPY varchar2
2881: ,x_msg_count OUT NOCOPY number
2882: ,x_msg_data OUT NOCOPY varchar2
2875:
2876: procedure Retrieve_Kpi_Calculations(
2877: p_commit IN varchar2 := FND_API.G_FALSE
2878: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2879: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2880: ,x_return_status OUT NOCOPY varchar2
2881: ,x_msg_count OUT NOCOPY number
2882: ,x_msg_data OUT NOCOPY varchar2
2883: ) is
2915: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2916: WHEN NO_DATA_FOUND THEN
2917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2918: IF (x_msg_data IS NOT NULL) THEN
2919: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Calculations ';
2920: ELSE
2921: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Calculations ';
2922: END IF;
2923: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2918: IF (x_msg_data IS NOT NULL) THEN
2919: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Calculations ';
2920: ELSE
2921: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Calculations ';
2922: END IF;
2923: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2924: WHEN OTHERS THEN
2925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2923: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2924: WHEN OTHERS THEN
2925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2926: IF (x_msg_data IS NOT NULL) THEN
2927: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Calculations ';
2928: ELSE
2929: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Calculations ';
2930: END IF;
2931: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2926: IF (x_msg_data IS NOT NULL) THEN
2927: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Calculations ';
2928: ELSE
2929: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Calculations ';
2930: END IF;
2931: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
2932: end Retrieve_Kpi_Calculations;
2933:
2935: ************************************************************************************/
2936:
2937: procedure Update_Kpi_Calculations(
2938: p_commit IN varchar2 := FND_API.G_FALSE
2939: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2940: ,x_return_status OUT NOCOPY varchar2
2941: ,x_msg_count OUT NOCOPY number
2942: ,x_msg_data OUT NOCOPY varchar2
2943: ) is
2941: ,x_msg_count OUT NOCOPY number
2942: ,x_msg_data OUT NOCOPY varchar2
2943: ) is
2944:
2945: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
2946:
2947: begin
2948: FND_MSG_PUB.Initialize;
2949: x_return_status := FND_API.G_RET_STS_SUCCESS;
3114: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3115: WHEN NO_DATA_FOUND THEN
3116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3117: IF (x_msg_data IS NOT NULL) THEN
3118: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Calculations ';
3119: ELSE
3120: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Calculations ';
3121: END IF;
3122: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3117: IF (x_msg_data IS NOT NULL) THEN
3118: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Calculations ';
3119: ELSE
3120: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Calculations ';
3121: END IF;
3122: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3123: WHEN OTHERS THEN
3124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3122: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3123: WHEN OTHERS THEN
3124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3125: IF (x_msg_data IS NOT NULL) THEN
3126: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Calculations ';
3127: ELSE
3128: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Calculations ';
3129: END IF;
3130: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3125: IF (x_msg_data IS NOT NULL) THEN
3126: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Calculations ';
3127: ELSE
3128: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Calculations ';
3129: END IF;
3130: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3131:
3132: end Update_Kpi_Calculations;
3135: ************************************************************************************/
3136:
3137: procedure Delete_Kpi_Calculations(
3138: p_commit IN varchar2 := FND_API.G_FALSE
3139: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3140: ,x_return_status OUT NOCOPY varchar2
3141: ,x_msg_count OUT NOCOPY number
3142: ,x_msg_data OUT NOCOPY varchar2
3143: ) is
3174: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3175: WHEN NO_DATA_FOUND THEN
3176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3177: IF (x_msg_data IS NOT NULL) THEN
3178: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Calculations ';
3179: ELSE
3180: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Calculations ';
3181: END IF;
3182: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3177: IF (x_msg_data IS NOT NULL) THEN
3178: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Calculations ';
3179: ELSE
3180: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Calculations ';
3181: END IF;
3182: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3183: WHEN OTHERS THEN
3184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3182: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3183: WHEN OTHERS THEN
3184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3185: IF (x_msg_data IS NOT NULL) THEN
3186: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Calculations ';
3187: ELSE
3188: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Calculations ';
3189: END IF;
3190: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3185: IF (x_msg_data IS NOT NULL) THEN
3186: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Calculations ';
3187: ELSE
3188: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Calculations ';
3189: END IF;
3190: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3191:
3192: end Delete_Kpi_Calculations;
3199: ***********************************************************************************/
3200: PROCEDURE Create_Kpi_Access_For_Resp(
3201: p_commit IN VARCHAR2 := FND_API.G_FALSE
3202: ,p_Comma_Sep_Resposibility_Key IN VARCHAR2
3203: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3204: ,x_return_status OUT NOCOPY VARCHAR2
3205: ,x_msg_count OUT NOCOPY NUMBER
3206: ,x_msg_data OUT NOCOPY VARCHAR2
3207: )IS
3204: ,x_return_status OUT NOCOPY VARCHAR2
3205: ,x_msg_count OUT NOCOPY NUMBER
3206: ,x_msg_data OUT NOCOPY VARCHAR2
3207: )IS
3208: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
3209: l_Count NUMBER;
3210:
3211: CURSOR c_Resp_Ids IS
3212: SELECT responsibility_id
3265: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3266: WHEN NO_DATA_FOUND THEN
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3268: IF (x_msg_data IS NOT NULL) THEN
3269: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Access_For_Resp ';
3270: ELSE
3271: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Access_For_Resp ';
3272: END IF;
3273: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3268: IF (x_msg_data IS NOT NULL) THEN
3269: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Access_For_Resp ';
3270: ELSE
3271: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Access_For_Resp ';
3272: END IF;
3273: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3274: WHEN OTHERS THEN
3275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3273: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3274: WHEN OTHERS THEN
3275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3276: IF (x_msg_data IS NOT NULL) THEN
3277: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Access_For_Resp ';
3278: ELSE
3279: x_msg_data := SQLERRM||' AT BSC_KPI_PUB.Create_Kpi_Access_For_Resp ';
3280: END IF;
3281: END Create_Kpi_Access_For_Resp;
3275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3276: IF (x_msg_data IS NOT NULL) THEN
3277: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Access_For_Resp ';
3278: ELSE
3279: x_msg_data := SQLERRM||' AT BSC_KPI_PUB.Create_Kpi_Access_For_Resp ';
3280: END IF;
3281: END Create_Kpi_Access_For_Resp;
3282: /**************************************************************************************/
3283:
3282: /**************************************************************************************/
3283:
3284: PROCEDURE Create_Kpi_User_Access(
3285: p_commit IN VARCHAR2 := FND_API.G_FALSE
3286: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3287: ,x_return_status OUT NOCOPY VARCHAR2
3288: ,x_msg_count OUT NOCOPY NUMBER
3289: ,x_msg_data OUT NOCOPY VARCHAR2
3290: ) IS
3288: ,x_msg_count OUT NOCOPY NUMBER
3289: ,x_msg_data OUT NOCOPY VARCHAR2
3290: ) IS
3291:
3292: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
3293: l_responsibility_key FND_RESPONSIBILITY.RESPONSIBILITY_KEY%TYPE;
3294: l_Kpi_Short_Name BSC_KPIS_B.SHORT_NAME%TYPE;
3295: l_Comma_Sep_Resp_Key VARCHAR2(32000):= NULL;
3296:
3364: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3365: WHEN NO_DATA_FOUND THEN
3366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3367: IF (x_msg_data IS NOT NULL) THEN
3368: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_User_Access ';
3369: ELSE
3370: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_User_Access ';
3371: END IF;
3372: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3367: IF (x_msg_data IS NOT NULL) THEN
3368: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_User_Access ';
3369: ELSE
3370: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_User_Access ';
3371: END IF;
3372: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3373: WHEN OTHERS THEN
3374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3372: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3373: WHEN OTHERS THEN
3374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3375: IF (x_msg_data IS NOT NULL) THEN
3376: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_User_Access ';
3377: ELSE
3378: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_User_Access ';
3379: END IF;
3380: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3375: IF (x_msg_data IS NOT NULL) THEN
3376: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_User_Access ';
3377: ELSE
3378: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_User_Access ';
3379: END IF;
3380: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3381: end Create_Kpi_User_Access;
3382:
3384: ************************************************************************************/
3385:
3386: procedure Retrieve_Kpi_User_Access(
3387: p_commit IN varchar2 := FND_API.G_FALSE
3388: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3389: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3390: ,x_return_status OUT NOCOPY varchar2
3391: ,x_msg_count OUT NOCOPY number
3392: ,x_msg_data OUT NOCOPY varchar2
3385:
3386: procedure Retrieve_Kpi_User_Access(
3387: p_commit IN varchar2 := FND_API.G_FALSE
3388: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3389: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3390: ,x_return_status OUT NOCOPY varchar2
3391: ,x_msg_count OUT NOCOPY number
3392: ,x_msg_data OUT NOCOPY varchar2
3393: ) is
3425: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3426: WHEN NO_DATA_FOUND THEN
3427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3428: IF (x_msg_data IS NOT NULL) THEN
3429: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_User_Access ';
3430: ELSE
3431: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_User_Access ';
3432: END IF;
3433: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3428: IF (x_msg_data IS NOT NULL) THEN
3429: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_User_Access ';
3430: ELSE
3431: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_User_Access ';
3432: END IF;
3433: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3434: WHEN OTHERS THEN
3435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3433: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3434: WHEN OTHERS THEN
3435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3436: IF (x_msg_data IS NOT NULL) THEN
3437: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_User_Access ';
3438: ELSE
3439: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_User_Access ';
3440: END IF;
3441: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3436: IF (x_msg_data IS NOT NULL) THEN
3437: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_User_Access ';
3438: ELSE
3439: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_User_Access ';
3440: END IF;
3441: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3442: end Retrieve_Kpi_User_Access;
3443:
3445: ************************************************************************************/
3446:
3447: procedure Update_Kpi_User_Access(
3448: p_commit IN varchar2 := FND_API.G_FALSE
3449: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3450: ,x_return_status OUT NOCOPY varchar2
3451: ,x_msg_count OUT NOCOPY number
3452: ,x_msg_data OUT NOCOPY varchar2
3453: ) is
3484: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3485: WHEN NO_DATA_FOUND THEN
3486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3487: IF (x_msg_data IS NOT NULL) THEN
3488: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_User_Access ';
3489: ELSE
3490: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_User_Access ';
3491: END IF;
3492: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3487: IF (x_msg_data IS NOT NULL) THEN
3488: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_User_Access ';
3489: ELSE
3490: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_User_Access ';
3491: END IF;
3492: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3493: WHEN OTHERS THEN
3494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3492: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3493: WHEN OTHERS THEN
3494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3495: IF (x_msg_data IS NOT NULL) THEN
3496: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_User_Access ';
3497: ELSE
3498: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_User_Access ';
3499: END IF;
3500: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3495: IF (x_msg_data IS NOT NULL) THEN
3496: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_User_Access ';
3497: ELSE
3498: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_User_Access ';
3499: END IF;
3500: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3501: end Update_Kpi_User_Access;
3502:
3504: ************************************************************************************/
3505:
3506: procedure Delete_Kpi_User_Access(
3507: p_commit IN varchar2 := FND_API.G_FALSE
3508: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3509: ,x_return_status OUT NOCOPY varchar2
3510: ,x_msg_count OUT NOCOPY number
3511: ,x_msg_data OUT NOCOPY varchar2
3512: ) is
3543: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3544: WHEN NO_DATA_FOUND THEN
3545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3546: IF (x_msg_data IS NOT NULL) THEN
3547: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_User_Access ';
3548: ELSE
3549: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_User_Access ';
3550: END IF;
3551: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3546: IF (x_msg_data IS NOT NULL) THEN
3547: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_User_Access ';
3548: ELSE
3549: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_User_Access ';
3550: END IF;
3551: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3552: WHEN OTHERS THEN
3553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3551: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3552: WHEN OTHERS THEN
3553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3554: IF (x_msg_data IS NOT NULL) THEN
3555: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_User_Access ';
3556: ELSE
3557: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_User_Access ';
3558: END IF;
3559: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3554: IF (x_msg_data IS NOT NULL) THEN
3555: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_User_Access ';
3556: ELSE
3557: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_User_Access ';
3558: END IF;
3559: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3560:
3561: end Delete_Kpi_User_Access;
3565:
3566:
3567: procedure Create_Kpi_Default_Values(
3568: p_commit IN varchar2 := FND_API.G_FALSE
3569: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3570: ,x_return_status OUT NOCOPY varchar2
3571: ,x_msg_count OUT NOCOPY number
3572: ,x_msg_data OUT NOCOPY varchar2
3573: ) is
3571: ,x_msg_count OUT NOCOPY number
3572: ,x_msg_data OUT NOCOPY varchar2
3573: ) is
3574:
3575: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
3576:
3577: begin
3578: FND_MSG_PUB.Initialize;
3579: x_return_status := FND_API.G_RET_STS_SUCCESS;
3649: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3650: WHEN NO_DATA_FOUND THEN
3651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3652: IF (x_msg_data IS NOT NULL) THEN
3653: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Default_Values ';
3654: ELSE
3655: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Default_Values ';
3656: END IF;
3657: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3652: IF (x_msg_data IS NOT NULL) THEN
3653: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Default_Values ';
3654: ELSE
3655: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Default_Values ';
3656: END IF;
3657: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3658: WHEN OTHERS THEN
3659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3657: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3658: WHEN OTHERS THEN
3659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3660: IF (x_msg_data IS NOT NULL) THEN
3661: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Default_Values ';
3662: ELSE
3663: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Default_Values ';
3664: END IF;
3665: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3660: IF (x_msg_data IS NOT NULL) THEN
3661: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_Default_Values ';
3662: ELSE
3663: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_Default_Values ';
3664: END IF;
3665: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3666: end Create_Kpi_Default_Values;
3667:
3669: ************************************************************************************/
3670:
3671: procedure Retrieve_Kpi_Default_Values(
3672: p_commit IN varchar2 := FND_API.G_FALSE
3673: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3674: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3675: ,x_return_status OUT NOCOPY varchar2
3676: ,x_msg_count OUT NOCOPY number
3677: ,x_msg_data OUT NOCOPY varchar2
3670:
3671: procedure Retrieve_Kpi_Default_Values(
3672: p_commit IN varchar2 := FND_API.G_FALSE
3673: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3674: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3675: ,x_return_status OUT NOCOPY varchar2
3676: ,x_msg_count OUT NOCOPY number
3677: ,x_msg_data OUT NOCOPY varchar2
3678: ) is
3710: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3711: WHEN NO_DATA_FOUND THEN
3712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3713: IF (x_msg_data IS NOT NULL) THEN
3714: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Default_Values ';
3715: ELSE
3716: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Default_Values ';
3717: END IF;
3718: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3713: IF (x_msg_data IS NOT NULL) THEN
3714: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Default_Values ';
3715: ELSE
3716: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Default_Values ';
3717: END IF;
3718: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3719: WHEN OTHERS THEN
3720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3718: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3719: WHEN OTHERS THEN
3720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3721: IF (x_msg_data IS NOT NULL) THEN
3722: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Default_Values ';
3723: ELSE
3724: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Default_Values ';
3725: END IF;
3726: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3721: IF (x_msg_data IS NOT NULL) THEN
3722: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_Default_Values ';
3723: ELSE
3724: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_Default_Values ';
3725: END IF;
3726: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3727:
3728: end Retrieve_Kpi_Default_Values;
3731: ************************************************************************************/
3732:
3733: procedure Update_Kpi_Default_Values(
3734: p_commit IN varchar2 := FND_API.G_FALSE
3735: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3736: ,x_return_status OUT NOCOPY varchar2
3737: ,x_msg_count OUT NOCOPY number
3738: ,x_msg_data OUT NOCOPY varchar2
3739: ) is
3770: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3771: WHEN NO_DATA_FOUND THEN
3772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3773: IF (x_msg_data IS NOT NULL) THEN
3774: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Default_Values ';
3775: ELSE
3776: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Default_Values ';
3777: END IF;
3778: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3773: IF (x_msg_data IS NOT NULL) THEN
3774: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Default_Values ';
3775: ELSE
3776: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Default_Values ';
3777: END IF;
3778: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3779: WHEN OTHERS THEN
3780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3778: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3779: WHEN OTHERS THEN
3780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3781: IF (x_msg_data IS NOT NULL) THEN
3782: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Default_Values ';
3783: ELSE
3784: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Default_Values ';
3785: END IF;
3786: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3781: IF (x_msg_data IS NOT NULL) THEN
3782: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Default_Values ';
3783: ELSE
3784: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Default_Values ';
3785: END IF;
3786: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3787:
3788: end Update_Kpi_Default_Values;
3791: ************************************************************************************/
3792:
3793: procedure Delete_Kpi_Default_Values(
3794: p_commit IN varchar2 := FND_API.G_FALSE
3795: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3796: ,x_return_status OUT NOCOPY varchar2
3797: ,x_msg_count OUT NOCOPY number
3798: ,x_msg_data OUT NOCOPY varchar2
3799: ) is
3831: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3832: WHEN NO_DATA_FOUND THEN
3833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3834: IF (x_msg_data IS NOT NULL) THEN
3835: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Default_Values ';
3836: ELSE
3837: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Default_Values ';
3838: END IF;
3839: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3834: IF (x_msg_data IS NOT NULL) THEN
3835: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Default_Values ';
3836: ELSE
3837: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Default_Values ';
3838: END IF;
3839: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3840: WHEN OTHERS THEN
3841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3839: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3840: WHEN OTHERS THEN
3841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3842: IF (x_msg_data IS NOT NULL) THEN
3843: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Default_Values ';
3844: ELSE
3845: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Default_Values ';
3846: END IF;
3847: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3842: IF (x_msg_data IS NOT NULL) THEN
3843: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_Default_Values ';
3844: ELSE
3845: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_Default_Values ';
3846: END IF;
3847: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3848:
3849: end Delete_Kpi_Default_Values;
3856: -- the group first, if it hasn't been assigned.
3857:
3858: procedure Create_Kpi_In_Tab(
3859: p_commit IN varchar2 := FND_API.G_FALSE
3860: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3861: ,x_return_status OUT NOCOPY varchar2
3862: ,x_msg_count OUT NOCOPY number
3863: ,x_msg_data OUT NOCOPY varchar2
3864: ) is
3896: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3897: WHEN NO_DATA_FOUND THEN
3898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3899: IF (x_msg_data IS NOT NULL) THEN
3900: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_In_Tab ';
3901: ELSE
3902: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_In_Tab ';
3903: END IF;
3904: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3899: IF (x_msg_data IS NOT NULL) THEN
3900: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_In_Tab ';
3901: ELSE
3902: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_In_Tab ';
3903: END IF;
3904: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3905: WHEN OTHERS THEN
3906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3904: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3905: WHEN OTHERS THEN
3906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3907: IF (x_msg_data IS NOT NULL) THEN
3908: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_In_Tab ';
3909: ELSE
3910: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_In_Tab ';
3911: END IF;
3912: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3907: IF (x_msg_data IS NOT NULL) THEN
3908: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Kpi_In_Tab ';
3909: ELSE
3910: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Kpi_In_Tab ';
3911: END IF;
3912: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3913:
3914: end Create_Kpi_In_Tab;
3917: ************************************************************************************/
3918:
3919: procedure Retrieve_Kpi_In_Tab(
3920: p_commit IN varchar2 := FND_API.G_FALSE
3921: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3922: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3923: ,x_return_status OUT NOCOPY varchar2
3924: ,x_msg_count OUT NOCOPY number
3925: ,x_msg_data OUT NOCOPY varchar2
3918:
3919: procedure Retrieve_Kpi_In_Tab(
3920: p_commit IN varchar2 := FND_API.G_FALSE
3921: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3922: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3923: ,x_return_status OUT NOCOPY varchar2
3924: ,x_msg_count OUT NOCOPY number
3925: ,x_msg_data OUT NOCOPY varchar2
3926: ) is
3958: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3959: WHEN NO_DATA_FOUND THEN
3960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3961: IF (x_msg_data IS NOT NULL) THEN
3962: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_In_Tab ';
3963: ELSE
3964: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_In_Tab ';
3965: END IF;
3966: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3961: IF (x_msg_data IS NOT NULL) THEN
3962: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_In_Tab ';
3963: ELSE
3964: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_In_Tab ';
3965: END IF;
3966: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3967: WHEN OTHERS THEN
3968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3966: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3967: WHEN OTHERS THEN
3968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3969: IF (x_msg_data IS NOT NULL) THEN
3970: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_In_Tab ';
3971: ELSE
3972: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_In_Tab ';
3973: END IF;
3974: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3969: IF (x_msg_data IS NOT NULL) THEN
3970: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Retrieve_Kpi_In_Tab ';
3971: ELSE
3972: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Retrieve_Kpi_In_Tab ';
3973: END IF;
3974: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
3975: end Retrieve_Kpi_In_Tab;
3976:
3978: ************************************************************************************/
3979:
3980: procedure Update_Kpi_In_Tab(
3981: p_commit IN varchar2 := FND_API.G_FALSE
3982: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3983: ,x_return_status OUT NOCOPY varchar2
3984: ,x_msg_count OUT NOCOPY number
3985: ,x_msg_data OUT NOCOPY varchar2
3986: ) is
4028: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4029: WHEN NO_DATA_FOUND THEN
4030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4031: IF (x_msg_data IS NOT NULL) THEN
4032: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_In_Tab ';
4033: ELSE
4034: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_In_Tab ';
4035: END IF;
4036: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4031: IF (x_msg_data IS NOT NULL) THEN
4032: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_In_Tab ';
4033: ELSE
4034: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_In_Tab ';
4035: END IF;
4036: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4037: WHEN OTHERS THEN
4038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4036: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4037: WHEN OTHERS THEN
4038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4039: IF (x_msg_data IS NOT NULL) THEN
4040: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_In_Tab ';
4041: ELSE
4042: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_In_Tab ';
4043: END IF;
4044: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4039: IF (x_msg_data IS NOT NULL) THEN
4040: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_In_Tab ';
4041: ELSE
4042: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_In_Tab ';
4043: END IF;
4044: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4045:
4046: end Update_Kpi_In_Tab;
4049: ************************************************************************************/
4050:
4051: procedure Delete_Kpi_In_Tab(
4052: p_commit IN varchar2 := FND_API.G_FALSE
4053: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4054: ,x_return_status OUT NOCOPY varchar2
4055: ,x_msg_count OUT NOCOPY number
4056: ,x_msg_data OUT NOCOPY varchar2
4057: ) is
4089: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4090: WHEN NO_DATA_FOUND THEN
4091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4092: IF (x_msg_data IS NOT NULL) THEN
4093: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_In_Tab ';
4094: ELSE
4095: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_In_Tab ';
4096: END IF;
4097: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4092: IF (x_msg_data IS NOT NULL) THEN
4093: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_In_Tab ';
4094: ELSE
4095: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_In_Tab ';
4096: END IF;
4097: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4098: WHEN OTHERS THEN
4099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4097: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4098: WHEN OTHERS THEN
4099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4100: IF (x_msg_data IS NOT NULL) THEN
4101: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_In_Tab ';
4102: ELSE
4103: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_In_Tab ';
4104: END IF;
4105: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4100: IF (x_msg_data IS NOT NULL) THEN
4101: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Kpi_In_Tab ';
4102: ELSE
4103: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Kpi_In_Tab ';
4104: END IF;
4105: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4106:
4107: end Delete_Kpi_In_Tab;
4110: ************************************************************************************/
4111:
4112: procedure Update_Kpi_Time_Stamp(
4113: p_commit IN varchar2 := FND_API.G_FALSE
4114: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4115: ,x_return_status OUT NOCOPY varchar2
4116: ,x_msg_count OUT NOCOPY number
4117: ,x_msg_data OUT NOCOPY varchar2
4118: ) is
4149: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4150: WHEN NO_DATA_FOUND THEN
4151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4152: IF (x_msg_data IS NOT NULL) THEN
4153: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Time_Stamp ';
4154: ELSE
4155: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Time_Stamp ';
4156: END IF;
4157: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4152: IF (x_msg_data IS NOT NULL) THEN
4153: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Time_Stamp ';
4154: ELSE
4155: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Time_Stamp ';
4156: END IF;
4157: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4158: WHEN OTHERS THEN
4159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4157: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4158: WHEN OTHERS THEN
4159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4160: IF (x_msg_data IS NOT NULL) THEN
4161: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Time_Stamp ';
4162: ELSE
4163: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Time_Stamp ';
4164: END IF;
4165: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4160: IF (x_msg_data IS NOT NULL) THEN
4161: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Update_Kpi_Time_Stamp ';
4162: ELSE
4163: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Update_Kpi_Time_Stamp ';
4164: END IF;
4165: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4166:
4167: end Update_Kpi_Time_Stamp;
4170: ************************************************************************************/
4171:
4172: procedure Create_Master_Kpi(
4173: p_commit IN varchar2 := FND_API.G_FALSE
4174: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4175: ,x_return_status OUT NOCOPY varchar2
4176: ,x_msg_count OUT NOCOPY number
4177: ,x_msg_data OUT NOCOPY varchar2
4178: ) is
4209: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4210: WHEN NO_DATA_FOUND THEN
4211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4212: IF (x_msg_data IS NOT NULL) THEN
4213: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Master_Kpi ';
4214: ELSE
4215: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Master_Kpi ';
4216: END IF;
4217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4212: IF (x_msg_data IS NOT NULL) THEN
4213: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Master_Kpi ';
4214: ELSE
4215: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Master_Kpi ';
4216: END IF;
4217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4218: WHEN OTHERS THEN
4219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4218: WHEN OTHERS THEN
4219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4220: IF (x_msg_data IS NOT NULL) THEN
4221: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Master_Kpi ';
4222: ELSE
4223: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Master_Kpi ';
4224: END IF;
4225: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4220: IF (x_msg_data IS NOT NULL) THEN
4221: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Master_Kpi ';
4222: ELSE
4223: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Master_Kpi ';
4224: END IF;
4225: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4226:
4227: end Create_Master_Kpi;
4230: ************************************************************************************/
4231:
4232: procedure Create_Shared_Kpi(
4233: p_commit IN varchar2 := FND_API.G_FALSE
4234: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4235: ,x_return_status OUT NOCOPY varchar2
4236: ,x_msg_count OUT NOCOPY number
4237: ,x_msg_data OUT NOCOPY varchar2
4238: ) is
4236: ,x_msg_count OUT NOCOPY number
4237: ,x_msg_data OUT NOCOPY varchar2
4238: ) is
4239:
4240: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
4241:
4242: begin
4243: FND_MSG_PUB.Initialize;
4244: x_return_status := FND_API.G_RET_STS_SUCCESS;
4284: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4285: WHEN NO_DATA_FOUND THEN
4286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4287: IF (x_msg_data IS NOT NULL) THEN
4288: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Shared_Kpi ';
4289: ELSE
4290: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Shared_Kpi ';
4291: END IF;
4292: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4287: IF (x_msg_data IS NOT NULL) THEN
4288: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Shared_Kpi ';
4289: ELSE
4290: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Shared_Kpi ';
4291: END IF;
4292: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4293: WHEN OTHERS THEN
4294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4292: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4293: WHEN OTHERS THEN
4294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4295: IF (x_msg_data IS NOT NULL) THEN
4296: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Shared_Kpi ';
4297: ELSE
4298: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Shared_Kpi ';
4299: END IF;
4300: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4295: IF (x_msg_data IS NOT NULL) THEN
4296: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Create_Shared_Kpi ';
4297: ELSE
4298: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Create_Shared_Kpi ';
4299: END IF;
4300: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4301:
4302: end Create_Shared_Kpi;
4305: ************************************************************************************/
4306:
4307: procedure Set_Default_Option(
4308: p_commit IN varchar2 := FND_API.G_FALSE
4309: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4310: ,x_return_status OUT NOCOPY varchar2
4311: ,x_msg_count OUT NOCOPY number
4312: ,x_msg_data OUT NOCOPY varchar2
4313: ) is
4345: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4346: WHEN NO_DATA_FOUND THEN
4347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4348: IF (x_msg_data IS NOT NULL) THEN
4349: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Set_Default_Option ';
4350: ELSE
4351: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Set_Default_Option ';
4352: END IF;
4353: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4348: IF (x_msg_data IS NOT NULL) THEN
4349: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Set_Default_Option ';
4350: ELSE
4351: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Set_Default_Option ';
4352: END IF;
4353: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4354: WHEN OTHERS THEN
4355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4353: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4354: WHEN OTHERS THEN
4355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4356: IF (x_msg_data IS NOT NULL) THEN
4357: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Set_Default_Option ';
4358: ELSE
4359: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Set_Default_Option ';
4360: END IF;
4361: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4356: IF (x_msg_data IS NOT NULL) THEN
4357: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Set_Default_Option ';
4358: ELSE
4359: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Set_Default_Option ';
4360: END IF;
4361: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4362:
4363: end Set_Default_Option;
4366: ************************************************************************************/
4367:
4368: procedure Set_Default_Option_MG(
4369: p_commit IN varchar2 := FND_API.G_FALSE
4370: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4371: ,x_return_status OUT NOCOPY varchar2
4372: ,x_msg_count OUT NOCOPY number
4373: ,x_msg_data OUT NOCOPY varchar2
4374: ) is
4375:
4376: begin
4377: FND_MSG_PUB.Initialize;
4378: x_return_status := FND_API.G_RET_STS_SUCCESS;
4379: BSC_KPI_PUB.Set_Default_Option_MG( p_commit
4380: ,p_Bsc_Kpi_Entity_Rec
4381: ,x_return_status
4382: ,x_msg_count
4383: ,x_msg_data);
4405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4406: WHEN NO_DATA_FOUND THEN
4407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4408: IF (x_msg_data IS NOT NULL) THEN
4409: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Set_Default_Option_MG ';
4410: ELSE
4411: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Set_Default_Option_MG ';
4412: END IF;
4413: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4408: IF (x_msg_data IS NOT NULL) THEN
4409: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Set_Default_Option_MG ';
4410: ELSE
4411: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Set_Default_Option_MG ';
4412: END IF;
4413: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4414: WHEN OTHERS THEN
4415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4413: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4414: WHEN OTHERS THEN
4415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4416: IF (x_msg_data IS NOT NULL) THEN
4417: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Set_Default_Option_MG ';
4418: ELSE
4419: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Set_Default_Option_MG ';
4420: END IF;
4421: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4416: IF (x_msg_data IS NOT NULL) THEN
4417: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Set_Default_Option_MG ';
4418: ELSE
4419: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Set_Default_Option_MG ';
4420: END IF;
4421: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4422:
4423: end Set_Default_Option_MG;
4424:
4425: /************************************************************************************
4426: ************************************************************************************/
4427: procedure Assign_Analysis_Option(
4428: p_Bsc_kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_kpi_Entity_Rec
4429: ,x_return_status OUT NOCOPY varchar2
4430: ,x_msg_count OUT NOCOPY number
4431: ,x_msg_data OUT NOCOPY varchar2
4432: ) IS
4463: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4464: WHEN NO_DATA_FOUND THEN
4465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4466: IF (x_msg_data IS NOT NULL) THEN
4467: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Assign_Analysis_Option ';
4468: ELSE
4469: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Assign_Analysis_Option ';
4470: END IF;
4471: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4466: IF (x_msg_data IS NOT NULL) THEN
4467: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Assign_Analysis_Option ';
4468: ELSE
4469: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Assign_Analysis_Option ';
4470: END IF;
4471: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4472: WHEN OTHERS THEN
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4471: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4472: WHEN OTHERS THEN
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: IF (x_msg_data IS NOT NULL) THEN
4475: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Assign_Analysis_Option ';
4476: ELSE
4477: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Assign_Analysis_Option ';
4478: END IF;
4479: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: IF (x_msg_data IS NOT NULL) THEN
4475: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Assign_Analysis_Option ';
4476: ELSE
4477: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Assign_Analysis_Option ';
4478: END IF;
4479: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4480:
4481: End Assign_Analysis_Option;
4483: /************************************************************************************
4484: ************************************************************************************/
4485:
4486: procedure Unassign_Analysis_Option(
4487: p_Bsc_kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_kpi_Entity_Rec
4488: ,x_return_status OUT NOCOPY varchar2
4489: ,x_msg_count OUT NOCOPY number
4490: ,x_msg_data OUT NOCOPY varchar2
4491: ) IS
4522: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4523: WHEN NO_DATA_FOUND THEN
4524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4525: IF (x_msg_data IS NOT NULL) THEN
4526: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Unassign_Analysis_Option ';
4527: ELSE
4528: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Unassign_Analysis_Option ';
4529: END IF;
4530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4525: IF (x_msg_data IS NOT NULL) THEN
4526: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Unassign_Analysis_Option ';
4527: ELSE
4528: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Unassign_Analysis_Option ';
4529: END IF;
4530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4531: WHEN OTHERS THEN
4532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4531: WHEN OTHERS THEN
4532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4533: IF (x_msg_data IS NOT NULL) THEN
4534: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Unassign_Analysis_Option ';
4535: ELSE
4536: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Unassign_Analysis_Option ';
4537: END IF;
4538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4533: IF (x_msg_data IS NOT NULL) THEN
4534: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Unassign_Analysis_Option ';
4535: ELSE
4536: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Unassign_Analysis_Option ';
4537: END IF;
4538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4539:
4540: End Unassign_Analysis_Option;
4543: /************************************************************************************
4544: ************************************************************************************/
4545:
4546: function Is_Analysis_Option_Selected(
4547: p_Bsc_kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_kpi_Entity_Rec
4548: ,x_return_status OUT NOCOPY varchar2
4549: ,x_msg_count OUT NOCOPY number
4550: ,x_msg_data OUT NOCOPY varchar2
4551: ) return varchar2 IS
4583: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4584: WHEN NO_DATA_FOUND THEN
4585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4586: IF (x_msg_data IS NOT NULL) THEN
4587: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Is_Analysis_Option_Selected ';
4588: ELSE
4589: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Is_Analysis_Option_Selected ';
4590: END IF;
4591: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4586: IF (x_msg_data IS NOT NULL) THEN
4587: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Is_Analysis_Option_Selected ';
4588: ELSE
4589: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Is_Analysis_Option_Selected ';
4590: END IF;
4591: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4592: WHEN OTHERS THEN
4593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4591: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4592: WHEN OTHERS THEN
4593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4594: IF (x_msg_data IS NOT NULL) THEN
4595: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Is_Analysis_Option_Selected ';
4596: ELSE
4597: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Is_Analysis_Option_Selected ';
4598: END IF;
4599: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4594: IF (x_msg_data IS NOT NULL) THEN
4595: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Is_Analysis_Option_Selected ';
4596: ELSE
4597: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Is_Analysis_Option_Selected ';
4598: END IF;
4599: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4600:
4601: end Is_Analysis_Option_Selected;
4603: /************************************************************************************
4604: ************************************************************************************/
4605:
4606: function Is_Leaf_Analysis_Option(
4607: p_Bsc_kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_kpi_Entity_Rec
4608: ,x_return_status OUT NOCOPY varchar2
4609: ,x_msg_count OUT NOCOPY number
4610: ,x_msg_data OUT NOCOPY varchar2
4611: ) return varchar2 IS
4612: l_temp varchar2(5);
4613: Begin
4614: FND_MSG_PUB.Initialize;
4615: x_return_status := FND_API.G_RET_STS_SUCCESS;
4616: --DBMS_OUTPUT.PUT_LINE('Begin BSC_KPI_PUB.Is_Leaf_Analysis_Option ');
4617:
4618: l_temp := BSC_KPI_PVT.Is_Leaf_Analysis_Option(
4619: p_Bsc_kpi_Entity_Rec
4620: ,x_return_status
4620: ,x_return_status
4621: ,x_msg_count
4622: ,x_msg_data );
4623:
4624: --DBMS_OUTPUT.PUT_LINE('End BSC_KPI_PUB.Is_Leaf_Analysis_Option - return ' || l_temp );
4625:
4626: return l_temp;
4627:
4628: EXCEPTION
4648: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4649: WHEN NO_DATA_FOUND THEN
4650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4651: IF (x_msg_data IS NOT NULL) THEN
4652: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Is_Leaf_Analysis_Option ';
4653: ELSE
4654: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Is_Leaf_Analysis_Option ';
4655: END IF;
4656: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4651: IF (x_msg_data IS NOT NULL) THEN
4652: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Is_Leaf_Analysis_Option ';
4653: ELSE
4654: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Is_Leaf_Analysis_Option ';
4655: END IF;
4656: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4657: WHEN OTHERS THEN
4658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4656: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4657: WHEN OTHERS THEN
4658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4659: IF (x_msg_data IS NOT NULL) THEN
4660: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Is_Leaf_Analysis_Option ';
4661: ELSE
4662: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Is_Leaf_Analysis_Option ';
4663: END IF;
4664: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4659: IF (x_msg_data IS NOT NULL) THEN
4660: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Is_Leaf_Analysis_Option ';
4661: ELSE
4662: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Is_Leaf_Analysis_Option ';
4663: END IF;
4664: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
4665:
4666: end Is_Leaf_Analysis_Option;
4709: l_share_kpi NUMBER;
4710: l_master_tab NUMBER;
4711: l_share_tab NUMBER;
4712: l_commit varchar2(10);
4713: l_Bsc_Kpi_Entity_Rec BSC_KPI_PUB.Bsc_Kpi_Entity_Rec;
4714: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
4715:
4716: cursor c is select *
4717: from BSC_TABS_B
4788:
4789: -- Delete the Share KPI
4790: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := l_share_kpi;
4791: l_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id := l_share_tab;
4792: BSC_KPI_PUB.Delete_Kpi( l_commit
4793: ,l_Bsc_Kpi_Entity_Rec
4794: ,x_return_status
4795: ,x_msg_count
4796: ,x_msg_data);
4796: ,x_msg_data);
4797: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4799: END IF;
4800: BSC_KPI_PUB.Update_Kpi_Time_Stamp( l_commit
4801: ,l_Bsc_Kpi_Entity_Rec
4802: ,x_return_status
4803: ,x_msg_count
4804: ,x_msg_data);
4806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4807: END IF;
4808: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := l_master_kpi;
4809: l_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id := l_master_tab;
4810: BSC_KPI_PUB.Update_Kpi_Time_Stamp( l_commit
4811: ,l_Bsc_Kpi_Entity_Rec
4812: ,x_return_status
4813: ,x_msg_count
4814: ,x_msg_data);
4843:
4844: PROCEDURE Delete_Ind_Extra_Tables
4845: (
4846: p_commit IN VARCHAR2 := FND_API.G_FALSE
4847: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
4848: , x_return_status OUT NOCOPY VARCHAR2
4849: , x_msg_count OUT NOCOPY NUMBER
4850: , x_msg_data OUT NOCOPY VARCHAR2
4851:
4853: BEGIN
4854: FND_MSG_PUB.Initialize;
4855: x_return_status := FND_API.G_RET_STS_SUCCESS;
4856:
4857: BSC_KPI_PUB.Delete_Ind_User_Access
4858: (
4859: p_commit => p_commit
4860: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4861: , x_return_status => x_return_status
4865: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4867: END IF;
4868:
4869: BSC_KPI_PUB.Delete_Ind_Tree_Nodes
4870: (
4871: p_commit => p_commit
4872: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4873: , x_return_status => x_return_status
4877: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4879: END IF;
4880:
4881: BSC_KPI_PUB.Delete_Ind_Comments
4882: (
4883: p_commit => p_commit
4884: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4885: , x_return_status => x_return_status
4889: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4891: END IF;
4892:
4893: BSC_KPI_PUB.Delete_Ind_Sys_Prop
4894: (
4895: p_commit => p_commit
4896: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4897: , x_return_status => x_return_status
4901: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4903: END IF;
4904:
4905: BSC_KPI_PUB.Delete_Ind_Images
4906: (
4907: p_commit => p_commit
4908: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4909: , x_return_status => x_return_status
4913: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4915: END IF;
4916:
4917: BSC_KPI_PUB.Delete_Ind_SeriesColors
4918: (
4919: p_commit => p_commit
4920: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4921: , x_return_status => x_return_status
4925: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4927: END IF;
4928:
4929: BSC_KPI_PUB.Delete_Ind_Subtitles
4930: (
4931: p_commit => p_commit
4932: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4933: , x_return_status => x_return_status
4937: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4939: END IF;
4940:
4941: BSC_KPI_PUB.Delete_Ind_MM_Controls
4942: (
4943: p_commit => p_commit
4944: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4945: , x_return_status => x_return_status
4949: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4951: END IF;
4952:
4953: BSC_KPI_PUB.Delete_Ind_Shell_Cmds
4954: (
4955: p_commit => p_commit
4956: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4957: , x_return_status => x_return_status
4961: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4963: END IF;
4964:
4965: BSC_KPI_PUB.Delete_Ind_Cause_Effect_Rels
4966: (
4967: p_commit => p_commit
4968: , p_Bsc_Kpi_Entity_Rec => p_Bsc_Kpi_Entity_Rec
4969: , x_return_status => x_return_status
4997: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4998: WHEN NO_DATA_FOUND THEN
4999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5000: IF (x_msg_data IS NOT NULL) THEN
5001: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Extra_Tables ';
5002: ELSE
5003: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Extra_Tables ';
5004: END IF;
5005: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5000: IF (x_msg_data IS NOT NULL) THEN
5001: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Extra_Tables ';
5002: ELSE
5003: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Extra_Tables ';
5004: END IF;
5005: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5006: WHEN OTHERS THEN
5007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5005: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5006: WHEN OTHERS THEN
5007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5008: IF (x_msg_data IS NOT NULL) THEN
5009: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Extra_Tables ';
5010: ELSE
5011: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Extra_Tables ';
5012: END IF;
5013: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5008: IF (x_msg_data IS NOT NULL) THEN
5009: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Extra_Tables ';
5010: ELSE
5011: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Extra_Tables ';
5012: END IF;
5013: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5014: END Delete_Ind_Extra_Tables;
5015:
5021:
5022: PROCEDURE Delete_Ind_Cause_Effect_Rels
5023: (
5024: p_commit IN VARCHAR2 := FND_API.G_FALSE
5025: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5026: , x_return_status OUT NOCOPY VARCHAR2
5027: , x_msg_count OUT NOCOPY NUMBER
5028: , x_msg_data OUT NOCOPY VARCHAR2
5029: ) IS
5065: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5066: WHEN NO_DATA_FOUND THEN
5067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5068: IF (x_msg_data IS NOT NULL) THEN
5069: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Cause_Effect_Rels ';
5070: ELSE
5071: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Cause_Effect_Rels ';
5072: END IF;
5073: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5068: IF (x_msg_data IS NOT NULL) THEN
5069: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Cause_Effect_Rels ';
5070: ELSE
5071: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Cause_Effect_Rels ';
5072: END IF;
5073: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5074: WHEN OTHERS THEN
5075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5073: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5074: WHEN OTHERS THEN
5075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5076: IF (x_msg_data IS NOT NULL) THEN
5077: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Cause_Effect_Rels ';
5078: ELSE
5079: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Cause_Effect_Rels ';
5080: END IF;
5081: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5076: IF (x_msg_data IS NOT NULL) THEN
5077: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Cause_Effect_Rels ';
5078: ELSE
5079: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Cause_Effect_Rels ';
5080: END IF;
5081: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5082: END Delete_Ind_Cause_Effect_Rels;
5083:
5089:
5090: PROCEDURE Delete_Ind_Shell_Cmds
5091: (
5092: p_commit IN VARCHAR2 := FND_API.G_FALSE
5093: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5094: , x_return_status OUT NOCOPY VARCHAR2
5095: , x_msg_count OUT NOCOPY NUMBER
5096: , x_msg_data OUT NOCOPY VARCHAR2
5097: ) IS
5133: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5134: WHEN NO_DATA_FOUND THEN
5135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5136: IF (x_msg_data IS NOT NULL) THEN
5137: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Shell_Cmds ';
5138: ELSE
5139: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Shell_Cmds ';
5140: END IF;
5141: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5136: IF (x_msg_data IS NOT NULL) THEN
5137: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Shell_Cmds ';
5138: ELSE
5139: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Shell_Cmds ';
5140: END IF;
5141: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5142: WHEN OTHERS THEN
5143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5141: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5142: WHEN OTHERS THEN
5143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5144: IF (x_msg_data IS NOT NULL) THEN
5145: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Shell_Cmds ';
5146: ELSE
5147: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Shell_Cmds ';
5148: END IF;
5149: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5144: IF (x_msg_data IS NOT NULL) THEN
5145: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Shell_Cmds ';
5146: ELSE
5147: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Shell_Cmds ';
5148: END IF;
5149: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5150: END Delete_Ind_Shell_Cmds;
5151:
5157:
5158: PROCEDURE Delete_Ind_MM_Controls
5159: (
5160: p_commit IN VARCHAR2 := FND_API.G_FALSE
5161: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5162: , x_return_status OUT NOCOPY VARCHAR2
5163: , x_msg_count OUT NOCOPY NUMBER
5164: , x_msg_data OUT NOCOPY VARCHAR2
5165: ) IS
5201: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5202: WHEN NO_DATA_FOUND THEN
5203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5204: IF (x_msg_data IS NOT NULL) THEN
5205: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_MM_Controls ';
5206: ELSE
5207: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_MM_Controls ';
5208: END IF;
5209: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5204: IF (x_msg_data IS NOT NULL) THEN
5205: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_MM_Controls ';
5206: ELSE
5207: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_MM_Controls ';
5208: END IF;
5209: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5210: WHEN OTHERS THEN
5211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5209: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5210: WHEN OTHERS THEN
5211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5212: IF (x_msg_data IS NOT NULL) THEN
5213: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_MM_Controls ';
5214: ELSE
5215: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_MM_Controls ';
5216: END IF;
5217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5212: IF (x_msg_data IS NOT NULL) THEN
5213: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_MM_Controls ';
5214: ELSE
5215: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_MM_Controls ';
5216: END IF;
5217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5218: END Delete_Ind_MM_Controls;
5219:
5224: /********************************************************/
5225: PROCEDURE Delete_Ind_Subtitles
5226: (
5227: p_commit IN VARCHAR2 := FND_API.G_FALSE
5228: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5229: , x_return_status OUT NOCOPY VARCHAR2
5230: , x_msg_count OUT NOCOPY NUMBER
5231: , x_msg_data OUT NOCOPY VARCHAR2
5232: ) IS
5268: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5269: WHEN NO_DATA_FOUND THEN
5270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5271: IF (x_msg_data IS NOT NULL) THEN
5272: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Subtitles ';
5273: ELSE
5274: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Subtitles ';
5275: END IF;
5276: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5271: IF (x_msg_data IS NOT NULL) THEN
5272: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Subtitles ';
5273: ELSE
5274: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Subtitles ';
5275: END IF;
5276: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5277: WHEN OTHERS THEN
5278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5276: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5277: WHEN OTHERS THEN
5278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5279: IF (x_msg_data IS NOT NULL) THEN
5280: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Subtitles ';
5281: ELSE
5282: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Subtitles ';
5283: END IF;
5284: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5279: IF (x_msg_data IS NOT NULL) THEN
5280: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Subtitles ';
5281: ELSE
5282: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Subtitles ';
5283: END IF;
5284: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5285: END Delete_Ind_Subtitles;
5286:
5291: /********************************************************/
5292: PROCEDURE Delete_Ind_SeriesColors
5293: (
5294: p_commit IN VARCHAR2 := FND_API.G_FALSE
5295: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5296: , x_return_status OUT NOCOPY VARCHAR2
5297: , x_msg_count OUT NOCOPY NUMBER
5298: , x_msg_data OUT NOCOPY VARCHAR2
5299: ) IS
5335: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5336: WHEN NO_DATA_FOUND THEN
5337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5338: IF (x_msg_data IS NOT NULL) THEN
5339: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_SeriesColors ';
5340: ELSE
5341: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_SeriesColors ';
5342: END IF;
5343: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5338: IF (x_msg_data IS NOT NULL) THEN
5339: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_SeriesColors ';
5340: ELSE
5341: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_SeriesColors ';
5342: END IF;
5343: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5344: WHEN OTHERS THEN
5345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5343: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5344: WHEN OTHERS THEN
5345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5346: IF (x_msg_data IS NOT NULL) THEN
5347: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_SeriesColors ';
5348: ELSE
5349: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_SeriesColors ';
5350: END IF;
5351: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5346: IF (x_msg_data IS NOT NULL) THEN
5347: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_SeriesColors ';
5348: ELSE
5349: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_SeriesColors ';
5350: END IF;
5351: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5352: END Delete_Ind_SeriesColors;
5353:
5359:
5360: PROCEDURE Delete_Ind_Images
5361: (
5362: p_commit IN VARCHAR2 := FND_API.G_FALSE
5363: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5364: , x_return_status OUT NOCOPY VARCHAR2
5365: , x_msg_count OUT NOCOPY NUMBER
5366: , x_msg_data OUT NOCOPY VARCHAR2
5367: ) IS
5403: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5404: WHEN NO_DATA_FOUND THEN
5405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5406: IF (x_msg_data IS NOT NULL) THEN
5407: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Images ';
5408: ELSE
5409: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Images ';
5410: END IF;
5411: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5406: IF (x_msg_data IS NOT NULL) THEN
5407: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Images ';
5408: ELSE
5409: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Images ';
5410: END IF;
5411: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5412: WHEN OTHERS THEN
5413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5411: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5412: WHEN OTHERS THEN
5413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5414: IF (x_msg_data IS NOT NULL) THEN
5415: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Images ';
5416: ELSE
5417: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Images ';
5418: END IF;
5419: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5414: IF (x_msg_data IS NOT NULL) THEN
5415: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Images ';
5416: ELSE
5417: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Images ';
5418: END IF;
5419: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5420: END Delete_Ind_Images;
5421:
5426: /********************************************************/
5427: PROCEDURE Delete_Ind_Sys_Prop
5428: (
5429: p_commit IN VARCHAR2 := FND_API.G_FALSE
5430: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5431: , x_return_status OUT NOCOPY VARCHAR2
5432: , x_msg_count OUT NOCOPY NUMBER
5433: , x_msg_data OUT NOCOPY VARCHAR2
5434: ) IS
5470: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5471: WHEN NO_DATA_FOUND THEN
5472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5473: IF (x_msg_data IS NOT NULL) THEN
5474: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Sys_Prop ';
5475: ELSE
5476: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Sys_Prop ';
5477: END IF;
5478: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5473: IF (x_msg_data IS NOT NULL) THEN
5474: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Sys_Prop ';
5475: ELSE
5476: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Sys_Prop ';
5477: END IF;
5478: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5479: WHEN OTHERS THEN
5480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5478: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5479: WHEN OTHERS THEN
5480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5481: IF (x_msg_data IS NOT NULL) THEN
5482: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Sys_Prop ';
5483: ELSE
5484: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Sys_Prop ';
5485: END IF;
5486: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5481: IF (x_msg_data IS NOT NULL) THEN
5482: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Sys_Prop ';
5483: ELSE
5484: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Sys_Prop ';
5485: END IF;
5486: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5487: END Delete_Ind_Sys_Prop;
5488:
5494:
5495: PROCEDURE Delete_Ind_Comments
5496: (
5497: p_commit IN VARCHAR2 := FND_API.G_FALSE
5498: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5499: , x_return_status OUT NOCOPY VARCHAR2
5500: , x_msg_count OUT NOCOPY NUMBER
5501: , x_msg_data OUT NOCOPY VARCHAR2
5502: ) IS
5538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5539: WHEN NO_DATA_FOUND THEN
5540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5541: IF (x_msg_data IS NOT NULL) THEN
5542: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Comments ';
5543: ELSE
5544: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Comments ';
5545: END IF;
5546: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5541: IF (x_msg_data IS NOT NULL) THEN
5542: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Comments ';
5543: ELSE
5544: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Comments ';
5545: END IF;
5546: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5547: WHEN OTHERS THEN
5548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5546: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5547: WHEN OTHERS THEN
5548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5549: IF (x_msg_data IS NOT NULL) THEN
5550: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Comments ';
5551: ELSE
5552: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Comments ';
5553: END IF;
5554: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5549: IF (x_msg_data IS NOT NULL) THEN
5550: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Comments ';
5551: ELSE
5552: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Comments ';
5553: END IF;
5554: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5555: END Delete_Ind_Comments;
5556:
5562:
5563: PROCEDURE Delete_Ind_Tree_Nodes
5564: (
5565: p_commit IN VARCHAR2 := FND_API.G_FALSE
5566: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5567: , x_return_status OUT NOCOPY VARCHAR2
5568: , x_msg_count OUT NOCOPY NUMBER
5569: , x_msg_data OUT NOCOPY VARCHAR2
5570: ) IS
5606: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5607: WHEN NO_DATA_FOUND THEN
5608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5609: IF (x_msg_data IS NOT NULL) THEN
5610: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Tree_Nodes ';
5611: ELSE
5612: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Tree_Nodes ';
5613: END IF;
5614: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5609: IF (x_msg_data IS NOT NULL) THEN
5610: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Tree_Nodes ';
5611: ELSE
5612: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Tree_Nodes ';
5613: END IF;
5614: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5615: WHEN OTHERS THEN
5616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5614: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5615: WHEN OTHERS THEN
5616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5617: IF (x_msg_data IS NOT NULL) THEN
5618: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Tree_Nodes ';
5619: ELSE
5620: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Tree_Nodes ';
5621: END IF;
5622: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5617: IF (x_msg_data IS NOT NULL) THEN
5618: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_Tree_Nodes ';
5619: ELSE
5620: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_Tree_Nodes ';
5621: END IF;
5622: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5623: END Delete_Ind_Tree_Nodes;
5624:
5630:
5631: PROCEDURE Delete_Ind_User_Access
5632: (
5633: p_commit IN VARCHAR2 := FND_API.G_FALSE
5634: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5635: , x_return_status OUT NOCOPY VARCHAR2
5636: , x_msg_count OUT NOCOPY NUMBER
5637: , x_msg_data OUT NOCOPY VARCHAR2
5638: ) IS
5674: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5675: WHEN NO_DATA_FOUND THEN
5676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5677: IF (x_msg_data IS NOT NULL) THEN
5678: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_User_Access ';
5679: ELSE
5680: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_User_Access ';
5681: END IF;
5682: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5677: IF (x_msg_data IS NOT NULL) THEN
5678: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_User_Access ';
5679: ELSE
5680: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_User_Access ';
5681: END IF;
5682: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5683: WHEN OTHERS THEN
5684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5682: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5683: WHEN OTHERS THEN
5684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5685: IF (x_msg_data IS NOT NULL) THEN
5686: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_User_Access ';
5687: ELSE
5688: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_User_Access ';
5689: END IF;
5690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5685: IF (x_msg_data IS NOT NULL) THEN
5686: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Ind_User_Access ';
5687: ELSE
5688: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Ind_User_Access ';
5689: END IF;
5690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5691: END Delete_Ind_User_Access;
5692:
5693:
5694: PROCEDURE Delete_Sim_Tree_Data
5695: (
5696: p_commit IN VARCHAR2 := FND_API.G_FALSE
5697: , p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5698: , x_return_status OUT NOCOPY VARCHAR2
5699: , x_msg_count OUT NOCOPY NUMBER
5700: , x_msg_data OUT NOCOPY VARCHAR2
5701: )IS
5739: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5740: WHEN NO_DATA_FOUND THEN
5741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5742: IF (x_msg_data IS NOT NULL) THEN
5743: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Sim_Tree_Data ';
5744: ELSE
5745: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Sim_Tree_Data ';
5746: END IF;
5747: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5742: IF (x_msg_data IS NOT NULL) THEN
5743: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Sim_Tree_Data ';
5744: ELSE
5745: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Sim_Tree_Data ';
5746: END IF;
5747: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5748: WHEN OTHERS THEN
5749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5747: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5748: WHEN OTHERS THEN
5749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5750: IF (x_msg_data IS NOT NULL) THEN
5751: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Sim_Tree_Data ';
5752: ELSE
5753: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Sim_Tree_Data ';
5754: END IF;
5755: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5750: IF (x_msg_data IS NOT NULL) THEN
5751: x_msg_data := x_msg_data||' -> BSC_KPI_PUB.Delete_Sim_Tree_Data ';
5752: ELSE
5753: x_msg_data := SQLERRM||' at BSC_KPI_PUB.Delete_Sim_Tree_Data ';
5754: END IF;
5755: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5756:
5757: END Delete_Sim_Tree_Data;
5755: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
5756:
5757: END Delete_Sim_Tree_Data;
5758:
5759: END BSC_KPI_PUB;