[Home] [Help]
51: */
52: G_PKG_NAME CONSTANT varchar2(30) := 'BSC_KPI_PVT';
53:
54: procedure Create_Kpi(
55: p_commit IN varchar2 := FND_API.G_FALSE
56: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
57: ,x_return_status OUT NOCOPY varchar2
58: ,x_msg_count OUT NOCOPY number
59: ,x_msg_data OUT NOCOPY varchar2
66: l_No_Ind NUMBER;
67:
68: begin
69: FND_MSG_PUB.Initialize;
70: x_return_status := FND_API.G_RET_STS_SUCCESS;
71: SAVEPOINT BscKpiPvt_CrtKPI;
72: --DBMS_OUTPUT.PUT_LINE(' -- Begin Create_Kpi ');
73:
74: -- Assign all values in the passed "Record" parameter to the locally defined
86: IF l_count <> 0 THEN
87: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_ID_EXISTS');
88: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
89: FND_MSG_PUB.ADD;
90: RAISE FND_API.G_EXC_ERROR;
91: END IF;
92: ELSE
93: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
94: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
92: ELSE
93: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
94: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
95: FND_MSG_PUB.ADD;
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
98:
99:
100: --DBMS_OUTPUT.PUT_LINE(' Create_Kpi - Flag 1');
113: FND_MESSAGE.SET_NAME('BSC','BSC_UNIQUE_NAME_REQUIRED');
114: FND_MESSAGE.SET_TOKEN('SHORT_NAME', BSC_APPS.GET_LOOKUP_VALUE('BSC_UI_BUILDER', 'MEASURE_SHORT_NAME'));
115: FND_MESSAGE.SET_TOKEN('NAME_VALUE', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Short_Name );
116: FND_MSG_PUB.ADD;
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119: END IF;
120:
121:
217: from BSC_KPIS_TL T
218: where T.INDICATOR = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
219: and T.LANGUAGE = L.LANGUAGE_CODE);
220:
221: if (p_commit = FND_API.G_TRUE) then
222: commit;
223: end if;
224:
225: select count(indicator)
228: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id ;
229:
230:
231: EXCEPTION
232: WHEN FND_API.G_EXC_ERROR THEN
233: ROLLBACK TO BscKpiPvt_CrtKPI;
234: FND_MSG_PUB.Count_And_Get
235: ( p_encoded => FND_API.G_FALSE
236: , p_count => x_msg_count
231: EXCEPTION
232: WHEN FND_API.G_EXC_ERROR THEN
233: ROLLBACK TO BscKpiPvt_CrtKPI;
234: FND_MSG_PUB.Count_And_Get
235: ( p_encoded => FND_API.G_FALSE
236: , p_count => x_msg_count
237: , p_data => x_msg_data
238: );
239: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
235: ( p_encoded => FND_API.G_FALSE
236: , p_count => x_msg_count
237: , p_data => x_msg_data
238: );
239: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
240: x_return_status := FND_API.G_RET_STS_ERROR;
241:
242: RAISE;
243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
236: , p_count => x_msg_count
237: , p_data => x_msg_data
238: );
239: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
240: x_return_status := FND_API.G_RET_STS_ERROR;
241:
242: RAISE;
243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
244: ROLLBACK TO BscKpiPvt_CrtKPI;
239: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
240: x_return_status := FND_API.G_RET_STS_ERROR;
241:
242: RAISE;
243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
244: ROLLBACK TO BscKpiPvt_CrtKPI;
245: FND_MSG_PUB.Count_And_Get
246: ( p_encoded => FND_API.G_FALSE
247: , p_count => x_msg_count
242: RAISE;
243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
244: ROLLBACK TO BscKpiPvt_CrtKPI;
245: FND_MSG_PUB.Count_And_Get
246: ( p_encoded => FND_API.G_FALSE
247: , p_count => x_msg_count
248: , p_data => x_msg_data
249: );
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
246: ( p_encoded => FND_API.G_FALSE
247: , p_count => x_msg_count
248: , p_data => x_msg_data
249: );
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
251: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
252: RAISE;
253: WHEN NO_DATA_FOUND THEN
254: ROLLBACK TO BscKpiPvt_CrtKPI;
247: , p_count => x_msg_count
248: , p_data => x_msg_data
249: );
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
251: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
252: RAISE;
253: WHEN NO_DATA_FOUND THEN
254: ROLLBACK TO BscKpiPvt_CrtKPI;
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
251: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
252: RAISE;
253: WHEN NO_DATA_FOUND THEN
254: ROLLBACK TO BscKpiPvt_CrtKPI;
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256: IF (x_msg_data IS NOT NULL) THEN
257: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi ';
258: ELSE
259: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Kpi ';
261: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
262: RAISE;
263: WHEN OTHERS THEN
264: ROLLBACK TO BscKpiPvt_CrtKPI;
265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
266: if (SQLCODE = -01400) then
267: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
268: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
269: FND_MSG_PUB.ADD;
266: if (SQLCODE = -01400) then
267: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
268: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
269: FND_MSG_PUB.ADD;
270: RAISE FND_API.G_EXC_ERROR;
271: end if;
272: IF (x_msg_data IS NOT NULL) THEN
273: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi ';
274: ELSE
282: ************************************************************************************/
283:
284:
285: procedure Retrieve_Kpi(
286: p_commit IN varchar2 := FND_API.G_FALSE
287: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
288: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
289: ,x_return_status OUT NOCOPY varchar2
290: ,x_msg_count OUT NOCOPY number
296: l_count number;
297:
298: begin
299: FND_MSG_PUB.Initialize;
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301: l_db_object := 'Retrieve_Kpi';
302:
303: SELECT DISTINCT A.CSF_ID
304: ,A.IND_GROUP_ID
362: AND A.INDICATOR = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
363: AND B.LANGUAGE = USERENV('LANG');
364: -- Fixed Third issue in bug 2635468
365:
366: IF (p_commit = FND_API.G_TRUE) THEN
367: COMMIT;
368: END IF;
369:
370: EXCEPTION
367: COMMIT;
368: END IF;
369:
370: EXCEPTION
371: WHEN FND_API.G_EXC_ERROR THEN
372: FND_MSG_PUB.Count_And_Get
373: ( p_encoded => FND_API.G_FALSE
374: , p_count => x_msg_count
375: , p_data => x_msg_data
369:
370: EXCEPTION
371: WHEN FND_API.G_EXC_ERROR THEN
372: FND_MSG_PUB.Count_And_Get
373: ( p_encoded => FND_API.G_FALSE
374: , p_count => x_msg_count
375: , p_data => x_msg_data
376: );
377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
373: ( p_encoded => FND_API.G_FALSE
374: , p_count => x_msg_count
375: , p_data => x_msg_data
376: );
377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: RAISE;
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: FND_MSG_PUB.Count_And_Get
374: , p_count => x_msg_count
375: , p_data => x_msg_data
376: );
377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: RAISE;
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: FND_MSG_PUB.Count_And_Get
382: ( p_encoded => FND_API.G_FALSE
376: );
377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: RAISE;
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: FND_MSG_PUB.Count_And_Get
382: ( p_encoded => FND_API.G_FALSE
383: , p_count => x_msg_count
384: , p_data => x_msg_data
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: RAISE;
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: FND_MSG_PUB.Count_And_Get
382: ( p_encoded => FND_API.G_FALSE
383: , p_count => x_msg_count
384: , p_data => x_msg_data
385: );
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: ( p_encoded => FND_API.G_FALSE
383: , p_count => x_msg_count
384: , p_data => x_msg_data
385: );
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
388: RAISE;
389: WHEN NO_DATA_FOUND THEN
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
383: , p_count => x_msg_count
384: , p_data => x_msg_data
385: );
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
388: RAISE;
389: WHEN NO_DATA_FOUND THEN
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391: FND_MSG_PUB.Initialize;
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
388: RAISE;
389: WHEN NO_DATA_FOUND THEN
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391: FND_MSG_PUB.Initialize;
392: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
393: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
394: FND_MSG_PUB.ADD;
391: FND_MSG_PUB.Initialize;
392: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
393: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
394: FND_MSG_PUB.ADD;
395: RAISE FND_API.G_EXC_ERROR;
396: WHEN OTHERS THEN
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: IF (x_msg_data IS NOT NULL) THEN
399: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi ';
393: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
394: FND_MSG_PUB.ADD;
395: RAISE FND_API.G_EXC_ERROR;
396: WHEN OTHERS THEN
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: IF (x_msg_data IS NOT NULL) THEN
399: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi ';
400: ELSE
401: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi ';
406: /************************************************************************************
407: ************************************************************************************/
408:
409: procedure Update_Kpi(
410: p_commit IN varchar2 := FND_API.G_FALSE
411: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
412: ,x_return_status OUT NOCOPY varchar2
413: ,x_msg_count OUT NOCOPY number
414: ,x_msg_data OUT NOCOPY varchar2
419: l_count number;
420:
421: begin
422: FND_MSG_PUB.Initialize;
423: x_return_status := FND_API.G_RET_STS_SUCCESS;
424: SAVEPOINT BscKpiPvt_UptKPI;
425: -- Check that valid id was entered.
426: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
427: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
430: if l_count = 0 then
431: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
432: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
433: FND_MSG_PUB.ADD;
434: RAISE FND_API.G_EXC_ERROR;
435: end if;
436: else
437: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
438: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
436: else
437: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
438: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
439: FND_MSG_PUB.ADD;
440: RAISE FND_API.G_EXC_ERROR;
441: end if;
442:
443:
444: -- Not all values will be passed. We need to make sure values not passed are not
570: ,SOURCE_LANG = userenv('LANG')
571: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
572: and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
573:
574: if (p_commit = FND_API.G_TRUE) then
575: commit;
576: end if;
577:
578:
576: end if;
577:
578:
579: EXCEPTION
580: WHEN FND_API.G_EXC_ERROR THEN
581: ROLLBACK TO BscKpiPvt_UptKPI;
582: FND_MSG_PUB.Count_And_Get
583: ( p_encoded => FND_API.G_FALSE
584: , p_count => x_msg_count
579: EXCEPTION
580: WHEN FND_API.G_EXC_ERROR THEN
581: ROLLBACK TO BscKpiPvt_UptKPI;
582: FND_MSG_PUB.Count_And_Get
583: ( p_encoded => FND_API.G_FALSE
584: , p_count => x_msg_count
585: , p_data => x_msg_data
586: );
587: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
583: ( p_encoded => FND_API.G_FALSE
584: , p_count => x_msg_count
585: , p_data => x_msg_data
586: );
587: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
588: x_return_status := FND_API.G_RET_STS_ERROR;
589: RAISE;
590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
591: ROLLBACK TO BscKpiPvt_UptKPI;
584: , p_count => x_msg_count
585: , p_data => x_msg_data
586: );
587: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
588: x_return_status := FND_API.G_RET_STS_ERROR;
589: RAISE;
590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
591: ROLLBACK TO BscKpiPvt_UptKPI;
592: FND_MSG_PUB.Count_And_Get
586: );
587: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
588: x_return_status := FND_API.G_RET_STS_ERROR;
589: RAISE;
590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
591: ROLLBACK TO BscKpiPvt_UptKPI;
592: FND_MSG_PUB.Count_And_Get
593: ( p_encoded => FND_API.G_FALSE
594: , p_count => x_msg_count
589: RAISE;
590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
591: ROLLBACK TO BscKpiPvt_UptKPI;
592: FND_MSG_PUB.Count_And_Get
593: ( p_encoded => FND_API.G_FALSE
594: , p_count => x_msg_count
595: , p_data => x_msg_data
596: );
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: ( p_encoded => FND_API.G_FALSE
594: , p_count => x_msg_count
595: , p_data => x_msg_data
596: );
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
599: RAISE;
600: WHEN NO_DATA_FOUND THEN
601: ROLLBACK TO BscKpiPvt_UptKPI;
594: , p_count => x_msg_count
595: , p_data => x_msg_data
596: );
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
599: RAISE;
600: WHEN NO_DATA_FOUND THEN
601: ROLLBACK TO BscKpiPvt_UptKPI;
602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
599: RAISE;
600: WHEN NO_DATA_FOUND THEN
601: ROLLBACK TO BscKpiPvt_UptKPI;
602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
603: IF (x_msg_data IS NOT NULL) THEN
604: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi ';
605: ELSE
606: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi ';
608: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
609: RAISE;
610: WHEN OTHERS THEN
611: ROLLBACK TO BscKpiPvt_UptKPI;
612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
613: IF (x_msg_data IS NOT NULL) THEN
614: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi ';
615: ELSE
616: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi ';
622: /************************************************************************************
623: ************************************************************************************/
624:
625: procedure Delete_Kpi(
626: p_commit IN varchar2 := FND_API.G_FALSE
627: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
628: ,x_return_status OUT NOCOPY varchar2
629: ,x_msg_count OUT NOCOPY number
630: ,x_msg_data OUT NOCOPY varchar2
634: l_Delete_Kpi_b BOOLEAN := TRUE;
635:
636: begin
637: FND_MSG_PUB.Initialize;
638: x_return_status := FND_API.G_RET_STS_SUCCESS;
639: SAVEPOINT BscKpiPvt_DelKPI;
640: -- Check that valid id was entered.
641: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
642: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
645: if l_count = 0 then
646: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
647: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
648: FND_MSG_PUB.ADD;
649: RAISE FND_API.G_EXC_ERROR;
650: end if;
651: else
652: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
653: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
651: else
652: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
653: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
654: FND_MSG_PUB.ADD;
655: RAISE FND_API.G_EXC_ERROR;
656: end if;
657:
658:
659: -- Added for Bug #3248729
682: END IF;
683:
684: -- Added for Bug #3248729
685:
686: if (p_commit = FND_API.G_TRUE) then
687: commit;
688: end if;
689:
690: EXCEPTION
687: commit;
688: end if;
689:
690: EXCEPTION
691: WHEN FND_API.G_EXC_ERROR THEN
692: ROLLBACK TO BscKpiPvt_DelKPI;
693: FND_MSG_PUB.Count_And_Get
694: ( p_encoded => FND_API.G_FALSE
695: , p_count => x_msg_count
690: EXCEPTION
691: WHEN FND_API.G_EXC_ERROR THEN
692: ROLLBACK TO BscKpiPvt_DelKPI;
693: FND_MSG_PUB.Count_And_Get
694: ( p_encoded => FND_API.G_FALSE
695: , p_count => x_msg_count
696: , p_data => x_msg_data
697: );
698: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
694: ( p_encoded => FND_API.G_FALSE
695: , p_count => x_msg_count
696: , p_data => x_msg_data
697: );
698: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
699: x_return_status := FND_API.G_RET_STS_ERROR;
700: RAISE;
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO BscKpiPvt_DelKPI;
695: , p_count => x_msg_count
696: , p_data => x_msg_data
697: );
698: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
699: x_return_status := FND_API.G_RET_STS_ERROR;
700: RAISE;
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO BscKpiPvt_DelKPI;
703: FND_MSG_PUB.Count_And_Get
697: );
698: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
699: x_return_status := FND_API.G_RET_STS_ERROR;
700: RAISE;
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO BscKpiPvt_DelKPI;
703: FND_MSG_PUB.Count_And_Get
704: ( p_encoded => FND_API.G_FALSE
705: , p_count => x_msg_count
700: RAISE;
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO BscKpiPvt_DelKPI;
703: FND_MSG_PUB.Count_And_Get
704: ( p_encoded => FND_API.G_FALSE
705: , p_count => x_msg_count
706: , p_data => x_msg_data
707: );
708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704: ( p_encoded => FND_API.G_FALSE
705: , p_count => x_msg_count
706: , p_data => x_msg_data
707: );
708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
709: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
710: RAISE;
711: WHEN NO_DATA_FOUND THEN
712: ROLLBACK TO BscKpiPvt_DelKPI;
705: , p_count => x_msg_count
706: , p_data => x_msg_data
707: );
708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
709: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
710: RAISE;
711: WHEN NO_DATA_FOUND THEN
712: ROLLBACK TO BscKpiPvt_DelKPI;
713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
709: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
710: RAISE;
711: WHEN NO_DATA_FOUND THEN
712: ROLLBACK TO BscKpiPvt_DelKPI;
713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
714: IF (x_msg_data IS NOT NULL) THEN
715: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi ';
716: ELSE
717: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi ';
719: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
720: RAISE;
721: WHEN OTHERS THEN
722: ROLLBACK TO BscKpiPvt_DelKPI;
723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
724: IF (x_msg_data IS NOT NULL) THEN
725: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi ';
726: ELSE
727: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi ';
733: /************************************************************************************
734: ************************************************************************************/
735:
736: procedure Create_Kpi_Defaults(
737: p_commit IN varchar2 := FND_API.G_FALSE
738: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
739: ,x_return_status OUT NOCOPY varchar2
740: ,x_msg_count OUT NOCOPY number
741: ,x_msg_data OUT NOCOPY varchar2
750: l_count number;
751:
752: begin
753: FND_MSG_PUB.Initialize;
754: x_return_status := FND_API.G_RET_STS_SUCCESS;
755: SAVEPOINT BscKpiPvt_CrtKPIDef;
756: --BSC_DEBUG.PUT_LINE('-- Begin Create_Kpi_Defaults');
757: --BSC_DEBUG.PUT_LINE(' Create_Kpi_Defaults - p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id = ' || p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
758:
774:
775: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
776: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
777: FND_MSG_PUB.ADD;
778: RAISE FND_API.G_EXC_ERROR;
779: end if;
780: else
781: --DBMS_OUTPUT.PUT_LINE(' Create_Kpi_Defaults - BSC_NO_KPI_ID_ENTERED');
782: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
781: --DBMS_OUTPUT.PUT_LINE(' Create_Kpi_Defaults - BSC_NO_KPI_ID_ENTERED');
782: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
783: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
784: FND_MSG_PUB.ADD;
785: RAISE FND_API.G_EXC_ERROR;
786: end if;
787:
788: --DBMS_OUTPUT.PUT_LINE(' Create_Kpi_Defaults - Flag 1');
789:
837: ,x_return_status
838: ,x_msg_count
839: ,x_msg_data);
840:
841: if (p_commit = FND_API.G_TRUE) then
842: commit;
843: end if;
844:
845: --DBMS_OUTPUT.PUT_LINE('-- Ene Create_Kpi_Defaults');
844:
845: --DBMS_OUTPUT.PUT_LINE('-- Ene Create_Kpi_Defaults');
846:
847: EXCEPTION
848: WHEN FND_API.G_EXC_ERROR THEN
849: ROLLBACK TO BscKpiPvt_CrtKPIDef;
850: FND_MSG_PUB.Count_And_Get
851: ( p_encoded => FND_API.G_FALSE
852: , p_count => x_msg_count
847: EXCEPTION
848: WHEN FND_API.G_EXC_ERROR THEN
849: ROLLBACK TO BscKpiPvt_CrtKPIDef;
850: FND_MSG_PUB.Count_And_Get
851: ( p_encoded => FND_API.G_FALSE
852: , p_count => x_msg_count
853: , p_data => x_msg_data
854: );
855: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
851: ( p_encoded => FND_API.G_FALSE
852: , p_count => x_msg_count
853: , p_data => x_msg_data
854: );
855: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
856: x_return_status := FND_API.G_RET_STS_ERROR;
857: RAISE;
858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
859: ROLLBACK TO BscKpiPvt_CrtKPIDef;
852: , p_count => x_msg_count
853: , p_data => x_msg_data
854: );
855: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
856: x_return_status := FND_API.G_RET_STS_ERROR;
857: RAISE;
858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
859: ROLLBACK TO BscKpiPvt_CrtKPIDef;
860: FND_MSG_PUB.Count_And_Get
854: );
855: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
856: x_return_status := FND_API.G_RET_STS_ERROR;
857: RAISE;
858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
859: ROLLBACK TO BscKpiPvt_CrtKPIDef;
860: FND_MSG_PUB.Count_And_Get
861: ( p_encoded => FND_API.G_FALSE
862: , p_count => x_msg_count
857: RAISE;
858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
859: ROLLBACK TO BscKpiPvt_CrtKPIDef;
860: FND_MSG_PUB.Count_And_Get
861: ( p_encoded => FND_API.G_FALSE
862: , p_count => x_msg_count
863: , p_data => x_msg_data
864: );
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: ( p_encoded => FND_API.G_FALSE
862: , p_count => x_msg_count
863: , p_data => x_msg_data
864: );
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
867: RAISE;
868: WHEN NO_DATA_FOUND THEN
869: ROLLBACK TO BscKpiPvt_CrtKPIDef;
862: , p_count => x_msg_count
863: , p_data => x_msg_data
864: );
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
867: RAISE;
868: WHEN NO_DATA_FOUND THEN
869: ROLLBACK TO BscKpiPvt_CrtKPIDef;
870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
867: RAISE;
868: WHEN NO_DATA_FOUND THEN
869: ROLLBACK TO BscKpiPvt_CrtKPIDef;
870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
871: if (SQLCODE = -01400) then
872: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
873: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
874: FND_MSG_PUB.ADD;
871: if (SQLCODE = -01400) then
872: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
873: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
874: FND_MSG_PUB.ADD;
875: RAISE FND_API.G_EXC_ERROR;
876: end if;
877: IF (x_msg_data IS NOT NULL) THEN
878: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Defaults ';
879: ELSE
882: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
883: RAISE;
884: WHEN OTHERS THEN
885: ROLLBACK TO BscKpiPvt_CrtKPIDef;
886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
887: IF (x_msg_data IS NOT NULL) THEN
888: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Defaults ';
889: ELSE
890: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Kpi_Defaults ';
896: /************************************************************************************
897: ************************************************************************************/
898:
899: procedure Retrieve_Kpi_Defaults(
900: p_commit IN varchar2 := FND_API.G_FALSE
901: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
902: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
903: ,x_return_status OUT NOCOPY varchar2
904: ,x_msg_count OUT NOCOPY number
913: l_count number;
914:
915: begin
916: FND_MSG_PUB.Initialize;
917: x_return_status := FND_API.G_RET_STS_SUCCESS;
918: l_db_object := 'Retrieve_Kpi_Defaults';
919:
920: -- Set values needed to retrieve default Dimension set.
921: l_Bsc_Dim_Rec.Bsc_Kpi_Id := p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
935: x_Bsc_Kpi_Entity_Rec.Bsc_Dim_Set_Id := x_Bsc_Dim_Rec.Bsc_Dim_Set_Id;
936: x_Bsc_Kpi_Entity_Rec.Bsc_Language := x_Bsc_Dim_Rec.Bsc_Language;
937: x_Bsc_Kpi_Entity_Rec.Bsc_Source_Language := x_Bsc_Dim_Rec.Bsc_Source_Language;
938:
939: if (p_commit = FND_API.G_TRUE) then
940: commit;
941: end if;
942:
943:
941: end if;
942:
943:
944: EXCEPTION
945: WHEN FND_API.G_EXC_ERROR THEN
946: FND_MSG_PUB.Count_And_Get
947: ( p_encoded => FND_API.G_FALSE
948: , p_count => x_msg_count
949: , p_data => x_msg_data
943:
944: EXCEPTION
945: WHEN FND_API.G_EXC_ERROR THEN
946: FND_MSG_PUB.Count_And_Get
947: ( p_encoded => FND_API.G_FALSE
948: , p_count => x_msg_count
949: , p_data => x_msg_data
950: );
951: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
947: ( p_encoded => FND_API.G_FALSE
948: , p_count => x_msg_count
949: , p_data => x_msg_data
950: );
951: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
952: x_return_status := FND_API.G_RET_STS_ERROR;
953: RAISE;
954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
955: FND_MSG_PUB.Count_And_Get
948: , p_count => x_msg_count
949: , p_data => x_msg_data
950: );
951: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
952: x_return_status := FND_API.G_RET_STS_ERROR;
953: RAISE;
954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
955: FND_MSG_PUB.Count_And_Get
956: ( p_encoded => FND_API.G_FALSE
950: );
951: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
952: x_return_status := FND_API.G_RET_STS_ERROR;
953: RAISE;
954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
955: FND_MSG_PUB.Count_And_Get
956: ( p_encoded => FND_API.G_FALSE
957: , p_count => x_msg_count
958: , p_data => x_msg_data
952: x_return_status := FND_API.G_RET_STS_ERROR;
953: RAISE;
954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
955: FND_MSG_PUB.Count_And_Get
956: ( p_encoded => FND_API.G_FALSE
957: , p_count => x_msg_count
958: , p_data => x_msg_data
959: );
960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
956: ( p_encoded => FND_API.G_FALSE
957: , p_count => x_msg_count
958: , p_data => x_msg_data
959: );
960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
961: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
962: RAISE;
963: WHEN NO_DATA_FOUND THEN
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
957: , p_count => x_msg_count
958: , p_data => x_msg_data
959: );
960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
961: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
962: RAISE;
963: WHEN NO_DATA_FOUND THEN
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965: FND_MSG_PUB.Initialize;
960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
961: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
962: RAISE;
963: WHEN NO_DATA_FOUND THEN
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965: FND_MSG_PUB.Initialize;
966: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
967: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
968: FND_MSG_PUB.ADD;
966: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
967: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
968: FND_MSG_PUB.ADD;
969: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
970: RAISE FND_API.G_EXC_ERROR;
971: WHEN OTHERS THEN
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: IF (x_msg_data IS NOT NULL) THEN
974: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Defaults ';
968: FND_MSG_PUB.ADD;
969: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
970: RAISE FND_API.G_EXC_ERROR;
971: WHEN OTHERS THEN
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: IF (x_msg_data IS NOT NULL) THEN
974: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Defaults ';
975: ELSE
976: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi_Defaults ';
982: /************************************************************************************
983: ************************************************************************************/
984:
985: procedure Update_Kpi_Defaults(
986: p_commit IN varchar2 := FND_API.G_FALSE
987: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
988: ,x_return_status OUT NOCOPY varchar2
989: ,x_msg_count OUT NOCOPY number
990: ,x_msg_data OUT NOCOPY varchar2
992:
993:
994: begin
995: FND_MSG_PUB.Initialize;
996: x_return_status := FND_API.G_RET_STS_SUCCESS;
997: -- This procedure does not really update anything. Public version handles the calls
998: -- to the other procedures.
999:
1000: if (p_commit = FND_API.G_TRUE) then
996: x_return_status := FND_API.G_RET_STS_SUCCESS;
997: -- This procedure does not really update anything. Public version handles the calls
998: -- to the other procedures.
999:
1000: if (p_commit = FND_API.G_TRUE) then
1001: commit;
1002: end if;
1003:
1004: EXCEPTION
1001: commit;
1002: end if;
1003:
1004: EXCEPTION
1005: WHEN FND_API.G_EXC_ERROR THEN
1006: FND_MSG_PUB.Count_And_Get
1007: ( p_encoded => FND_API.G_FALSE
1008: , p_count => x_msg_count
1009: , p_data => x_msg_data
1003:
1004: EXCEPTION
1005: WHEN FND_API.G_EXC_ERROR THEN
1006: FND_MSG_PUB.Count_And_Get
1007: ( p_encoded => FND_API.G_FALSE
1008: , p_count => x_msg_count
1009: , p_data => x_msg_data
1010: );
1011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1007: ( p_encoded => FND_API.G_FALSE
1008: , p_count => x_msg_count
1009: , p_data => x_msg_data
1010: );
1011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1012: x_return_status := FND_API.G_RET_STS_ERROR;
1013: RAISE;
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: FND_MSG_PUB.Count_And_Get
1008: , p_count => x_msg_count
1009: , p_data => x_msg_data
1010: );
1011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1012: x_return_status := FND_API.G_RET_STS_ERROR;
1013: RAISE;
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: FND_MSG_PUB.Count_And_Get
1016: ( p_encoded => FND_API.G_FALSE
1010: );
1011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1012: x_return_status := FND_API.G_RET_STS_ERROR;
1013: RAISE;
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: FND_MSG_PUB.Count_And_Get
1016: ( p_encoded => FND_API.G_FALSE
1017: , p_count => x_msg_count
1018: , p_data => x_msg_data
1012: x_return_status := FND_API.G_RET_STS_ERROR;
1013: RAISE;
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: FND_MSG_PUB.Count_And_Get
1016: ( p_encoded => FND_API.G_FALSE
1017: , p_count => x_msg_count
1018: , p_data => x_msg_data
1019: );
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1016: ( p_encoded => FND_API.G_FALSE
1017: , p_count => x_msg_count
1018: , p_data => x_msg_data
1019: );
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1022: RAISE;
1023: WHEN NO_DATA_FOUND THEN
1024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1017: , p_count => x_msg_count
1018: , p_data => x_msg_data
1019: );
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1022: RAISE;
1023: WHEN NO_DATA_FOUND THEN
1024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1025: IF (x_msg_data IS NOT NULL) THEN
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1022: RAISE;
1023: WHEN NO_DATA_FOUND THEN
1024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1025: IF (x_msg_data IS NOT NULL) THEN
1026: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Defaults ';
1027: ELSE
1028: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Defaults ';
1029: END IF;
1030: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1031: RAISE;
1032: WHEN OTHERS THEN
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1034: IF (x_msg_data IS NOT NULL) THEN
1035: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Defaults ';
1036: ELSE
1037: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Defaults ';
1043: /************************************************************************************
1044: ************************************************************************************/
1045:
1046: procedure Delete_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_return_status OUT NOCOPY varchar2
1050: ,x_msg_count OUT NOCOPY number
1051: ,x_msg_data OUT NOCOPY varchar2
1052: ) is
1053:
1054: begin
1055: FND_MSG_PUB.Initialize;
1056: x_return_status := FND_API.G_RET_STS_SUCCESS;
1057:
1058: if (p_commit = FND_API.G_TRUE) then
1059: commit;
1060: end if;
1054: begin
1055: FND_MSG_PUB.Initialize;
1056: x_return_status := FND_API.G_RET_STS_SUCCESS;
1057:
1058: if (p_commit = FND_API.G_TRUE) then
1059: commit;
1060: end if;
1061:
1062: EXCEPTION
1059: commit;
1060: end if;
1061:
1062: EXCEPTION
1063: WHEN FND_API.G_EXC_ERROR THEN
1064: FND_MSG_PUB.Count_And_Get
1065: ( p_encoded => FND_API.G_FALSE
1066: , p_count => x_msg_count
1067: , p_data => x_msg_data
1061:
1062: EXCEPTION
1063: WHEN FND_API.G_EXC_ERROR THEN
1064: FND_MSG_PUB.Count_And_Get
1065: ( p_encoded => FND_API.G_FALSE
1066: , p_count => x_msg_count
1067: , p_data => x_msg_data
1068: );
1069: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1065: ( p_encoded => FND_API.G_FALSE
1066: , p_count => x_msg_count
1067: , p_data => x_msg_data
1068: );
1069: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071: RAISE;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: FND_MSG_PUB.Count_And_Get
1066: , p_count => x_msg_count
1067: , p_data => x_msg_data
1068: );
1069: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071: RAISE;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: FND_MSG_PUB.Count_And_Get
1074: ( p_encoded => FND_API.G_FALSE
1068: );
1069: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071: RAISE;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: FND_MSG_PUB.Count_And_Get
1074: ( p_encoded => FND_API.G_FALSE
1075: , p_count => x_msg_count
1076: , p_data => x_msg_data
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071: RAISE;
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: FND_MSG_PUB.Count_And_Get
1074: ( p_encoded => FND_API.G_FALSE
1075: , p_count => x_msg_count
1076: , p_data => x_msg_data
1077: );
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: ( p_encoded => FND_API.G_FALSE
1075: , p_count => x_msg_count
1076: , p_data => x_msg_data
1077: );
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1079: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1080: RAISE;
1081: WHEN NO_DATA_FOUND THEN
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1075: , p_count => x_msg_count
1076: , p_data => x_msg_data
1077: );
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1079: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1080: RAISE;
1081: WHEN NO_DATA_FOUND THEN
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083: IF (x_msg_data IS NOT NULL) THEN
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1079: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1080: RAISE;
1081: WHEN NO_DATA_FOUND THEN
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083: IF (x_msg_data IS NOT NULL) THEN
1084: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Defaults ';
1085: ELSE
1086: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Defaults ';
1087: END IF;
1088: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1089: RAISE;
1090: WHEN OTHERS THEN
1091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1092: IF (x_msg_data IS NOT NULL) THEN
1093: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Defaults ';
1094: ELSE
1095: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Defaults ';
1101: /************************************************************************************
1102: ************************************************************************************/
1103:
1104: procedure Create_Kpi_Properties(
1105: p_commit IN varchar2 := FND_API.G_FALSE
1106: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1107: ,x_return_status OUT NOCOPY varchar2
1108: ,x_msg_count OUT NOCOPY number
1109: ,x_msg_data OUT NOCOPY varchar2
1114: l_count number;
1115:
1116: begin
1117: FND_MSG_PUB.Initialize;
1118: x_return_status := FND_API.G_RET_STS_SUCCESS;
1119: SAVEPOINT BscKpiPvt_CrtKPIProp;
1120: -- Check that valid id was entered.
1121: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1122: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1125: if l_count = 0 then
1126: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1127: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1128: FND_MSG_PUB.ADD;
1129: RAISE FND_API.G_EXC_ERROR;
1130: end if;
1131: else
1132: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1133: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1131: else
1132: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1133: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1134: FND_MSG_PUB.ADD;
1135: RAISE FND_API.G_EXC_ERROR;
1136: end if;
1137:
1138: l_db_object := 'BSC_KPI_PROPERTIES';
1139:
1145: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Property_Code
1146: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Property_Value
1147: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Secondary_Value);
1148:
1149: if (p_commit = FND_API.G_TRUE) then
1150: commit;
1151: end if;
1152:
1153:
1151: end if;
1152:
1153:
1154: EXCEPTION
1155: WHEN FND_API.G_EXC_ERROR THEN
1156: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1157: FND_MSG_PUB.Count_And_Get
1158: ( p_encoded => FND_API.G_FALSE
1159: , p_count => x_msg_count
1154: EXCEPTION
1155: WHEN FND_API.G_EXC_ERROR THEN
1156: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1157: FND_MSG_PUB.Count_And_Get
1158: ( p_encoded => FND_API.G_FALSE
1159: , p_count => x_msg_count
1160: , p_data => x_msg_data
1161: );
1162: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1158: ( p_encoded => FND_API.G_FALSE
1159: , p_count => x_msg_count
1160: , p_data => x_msg_data
1161: );
1162: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1163: x_return_status := FND_API.G_RET_STS_ERROR;
1164: RAISE;
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1159: , p_count => x_msg_count
1160: , p_data => x_msg_data
1161: );
1162: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1163: x_return_status := FND_API.G_RET_STS_ERROR;
1164: RAISE;
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1167: FND_MSG_PUB.Count_And_Get
1161: );
1162: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1163: x_return_status := FND_API.G_RET_STS_ERROR;
1164: RAISE;
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1167: FND_MSG_PUB.Count_And_Get
1168: ( p_encoded => FND_API.G_FALSE
1169: , p_count => x_msg_count
1164: RAISE;
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1167: FND_MSG_PUB.Count_And_Get
1168: ( p_encoded => FND_API.G_FALSE
1169: , p_count => x_msg_count
1170: , p_data => x_msg_data
1171: );
1172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1168: ( p_encoded => FND_API.G_FALSE
1169: , p_count => x_msg_count
1170: , p_data => x_msg_data
1171: );
1172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1174: RAISE;
1175: WHEN NO_DATA_FOUND THEN
1176: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1169: , p_count => x_msg_count
1170: , p_data => x_msg_data
1171: );
1172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1174: RAISE;
1175: WHEN NO_DATA_FOUND THEN
1176: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1174: RAISE;
1175: WHEN NO_DATA_FOUND THEN
1176: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1178: IF (x_msg_data IS NOT NULL) THEN
1179: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Defaults ';
1180: ELSE
1181: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Defaults ';
1183: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1184: RAISE;
1185: WHEN OTHERS THEN
1186: ROLLBACK TO BscKpiPvt_CrtKPIProp;
1187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1188: if (SQLCODE = -01400) then
1189: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
1190: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1191: FND_MSG_PUB.ADD;
1188: if (SQLCODE = -01400) then
1189: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
1190: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1191: FND_MSG_PUB.ADD;
1192: RAISE FND_API.G_EXC_ERROR;
1193: end if;
1194: IF (x_msg_data IS NOT NULL) THEN
1195: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Properties ';
1196: ELSE
1203: /************************************************************************************
1204: ************************************************************************************/
1205:
1206: procedure Retrieve_Kpi_Properties(
1207: p_commit IN varchar2 := FND_API.G_FALSE
1208: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1209: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1210: ,x_return_status OUT NOCOPY varchar2
1211: ,x_msg_count OUT NOCOPY number
1217: l_db_object varchar2(30);
1218:
1219: begin
1220: FND_MSG_PUB.Initialize;
1221: x_return_status := FND_API.G_RET_STS_SUCCESS;
1222: l_db_object := 'Retrieve_Kpi_Properties';
1223:
1224: select distinct property_value
1225: ,secondary_value
1228: from BSC_KPI_PROPERTIES
1229: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
1230: and property_code = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Property_Code;
1231:
1232: if (p_commit = FND_API.G_TRUE) then
1233: commit;
1234: end if;
1235: EXCEPTION
1236: WHEN FND_API.G_EXC_ERROR THEN
1232: if (p_commit = FND_API.G_TRUE) then
1233: commit;
1234: end if;
1235: EXCEPTION
1236: WHEN FND_API.G_EXC_ERROR THEN
1237: FND_MSG_PUB.Count_And_Get
1238: ( p_encoded => FND_API.G_FALSE
1239: , p_count => x_msg_count
1240: , p_data => x_msg_data
1234: end if;
1235: EXCEPTION
1236: WHEN FND_API.G_EXC_ERROR THEN
1237: FND_MSG_PUB.Count_And_Get
1238: ( p_encoded => FND_API.G_FALSE
1239: , p_count => x_msg_count
1240: , p_data => x_msg_data
1241: );
1242: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1238: ( p_encoded => FND_API.G_FALSE
1239: , p_count => x_msg_count
1240: , p_data => x_msg_data
1241: );
1242: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: RAISE;
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: FND_MSG_PUB.Count_And_Get
1239: , p_count => x_msg_count
1240: , p_data => x_msg_data
1241: );
1242: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: RAISE;
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: FND_MSG_PUB.Count_And_Get
1247: ( p_encoded => FND_API.G_FALSE
1241: );
1242: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: RAISE;
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: FND_MSG_PUB.Count_And_Get
1247: ( p_encoded => FND_API.G_FALSE
1248: , p_count => x_msg_count
1249: , p_data => x_msg_data
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: RAISE;
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: FND_MSG_PUB.Count_And_Get
1247: ( p_encoded => FND_API.G_FALSE
1248: , p_count => x_msg_count
1249: , p_data => x_msg_data
1250: );
1251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1247: ( p_encoded => FND_API.G_FALSE
1248: , p_count => x_msg_count
1249: , p_data => x_msg_data
1250: );
1251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1252: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1253: RAISE;
1254: WHEN NO_DATA_FOUND THEN
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248: , p_count => x_msg_count
1249: , p_data => x_msg_data
1250: );
1251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1252: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1253: RAISE;
1254: WHEN NO_DATA_FOUND THEN
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1252: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1253: RAISE;
1254: WHEN NO_DATA_FOUND THEN
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1257: FND_MSG_PUB.Initialize;
1258: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
1259: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1257: FND_MSG_PUB.Initialize;
1258: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
1259: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1260: FND_MSG_PUB.ADD;
1261: RAISE FND_API.G_EXC_ERROR;
1262: WHEN OTHERS THEN
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: IF (x_msg_data IS NOT NULL) THEN
1265: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Properties ';
1259: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1260: FND_MSG_PUB.ADD;
1261: RAISE FND_API.G_EXC_ERROR;
1262: WHEN OTHERS THEN
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: IF (x_msg_data IS NOT NULL) THEN
1265: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Properties ';
1266: ELSE
1267: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi_Properties ';
1273: /************************************************************************************
1274: ************************************************************************************/
1275:
1276: procedure Update_Kpi_Properties(
1277: p_commit IN varchar2 := FND_API.G_FALSE
1278: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1279: ,x_return_status OUT NOCOPY varchar2
1280: ,x_msg_count OUT NOCOPY number
1281: ,x_msg_data OUT NOCOPY varchar2
1286: l_count number;
1287:
1288: begin
1289: FND_MSG_PUB.Initialize;
1290: x_return_status := FND_API.G_RET_STS_SUCCESS;
1291: SAVEPOINT BscKpiPvt_UptKPIProp;
1292: -- Check that valid id was entered.
1293: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1294: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1297: if l_count = 0 then
1298: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1299: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1300: FND_MSG_PUB.ADD;
1301: RAISE FND_API.G_EXC_ERROR;
1302: end if;
1303: else
1304: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1305: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1303: else
1304: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1305: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1306: FND_MSG_PUB.ADD;
1307: RAISE FND_API.G_EXC_ERROR;
1308: end if;
1309:
1310: -- Not all values will be passed. We need to make sure values not passed are not
1311: -- changed by procedure, therefore we get what is there before we do any updates.
1335: ,secondary_value = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Secondary_Value
1336: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
1337: and property_code = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Property_Code;
1338:
1339: if (p_commit = FND_API.G_TRUE) then
1340: commit;
1341: end if;
1342:
1343:
1341: end if;
1342:
1343:
1344: EXCEPTION
1345: WHEN FND_API.G_EXC_ERROR THEN
1346: ROLLBACK TO BscKpiPvt_UptKPIProp;
1347: FND_MSG_PUB.Count_And_Get
1348: ( p_encoded => FND_API.G_FALSE
1349: , p_count => x_msg_count
1344: EXCEPTION
1345: WHEN FND_API.G_EXC_ERROR THEN
1346: ROLLBACK TO BscKpiPvt_UptKPIProp;
1347: FND_MSG_PUB.Count_And_Get
1348: ( p_encoded => FND_API.G_FALSE
1349: , p_count => x_msg_count
1350: , p_data => x_msg_data
1351: );
1352: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1348: ( p_encoded => FND_API.G_FALSE
1349: , p_count => x_msg_count
1350: , p_data => x_msg_data
1351: );
1352: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: RAISE;
1355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1356: ROLLBACK TO BscKpiPvt_UptKPIProp;
1349: , p_count => x_msg_count
1350: , p_data => x_msg_data
1351: );
1352: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: RAISE;
1355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1356: ROLLBACK TO BscKpiPvt_UptKPIProp;
1357: FND_MSG_PUB.Count_And_Get
1351: );
1352: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: RAISE;
1355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1356: ROLLBACK TO BscKpiPvt_UptKPIProp;
1357: FND_MSG_PUB.Count_And_Get
1358: ( p_encoded => FND_API.G_FALSE
1359: , p_count => x_msg_count
1354: RAISE;
1355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1356: ROLLBACK TO BscKpiPvt_UptKPIProp;
1357: FND_MSG_PUB.Count_And_Get
1358: ( p_encoded => FND_API.G_FALSE
1359: , p_count => x_msg_count
1360: , p_data => x_msg_data
1361: );
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1358: ( p_encoded => FND_API.G_FALSE
1359: , p_count => x_msg_count
1360: , p_data => x_msg_data
1361: );
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1364: RAISE;
1365: WHEN NO_DATA_FOUND THEN
1366: ROLLBACK TO BscKpiPvt_UptKPIProp;
1359: , p_count => x_msg_count
1360: , p_data => x_msg_data
1361: );
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1364: RAISE;
1365: WHEN NO_DATA_FOUND THEN
1366: ROLLBACK TO BscKpiPvt_UptKPIProp;
1367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1364: RAISE;
1365: WHEN NO_DATA_FOUND THEN
1366: ROLLBACK TO BscKpiPvt_UptKPIProp;
1367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1368: IF (x_msg_data IS NOT NULL) THEN
1369: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Properties ';
1370: ELSE
1371: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Properties ';
1373: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1374: RAISE;
1375: WHEN OTHERS THEN
1376: ROLLBACK TO BscKpiPvt_UptKPIProp;
1377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1378: IF (x_msg_data IS NOT NULL) THEN
1379: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Properties ';
1380: ELSE
1381: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Properties ';
1387: /************************************************************************************
1388: ************************************************************************************/
1389:
1390: procedure Delete_Kpi_Properties(
1391: p_commit IN varchar2 := FND_API.G_FALSE
1392: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1393: ,x_return_status OUT NOCOPY varchar2
1394: ,x_msg_count OUT NOCOPY number
1395: ,x_msg_data OUT NOCOPY varchar2
1398: l_count number;
1399:
1400: begin
1401: FND_MSG_PUB.Initialize;
1402: x_return_status := FND_API.G_RET_STS_SUCCESS;
1403: SAVEPOINT BscKpiPvt_DelKPIProp;
1404: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1405: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1406: ,'indicator'
1408: if l_count = 0 then
1409: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1410: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1411: FND_MSG_PUB.ADD;
1412: RAISE FND_API.G_EXC_ERROR;
1413: end if;
1414: else
1415: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1416: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1414: else
1415: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1416: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1417: FND_MSG_PUB.ADD;
1418: RAISE FND_API.G_EXC_ERROR;
1419: end if;
1420:
1421:
1422: delete from BSC_KPI_PROPERTIES
1421:
1422: delete from BSC_KPI_PROPERTIES
1423: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
1424:
1425: if (p_commit = FND_API.G_TRUE) then
1426: commit;
1427: end if;
1428:
1429: EXCEPTION
1426: commit;
1427: end if;
1428:
1429: EXCEPTION
1430: WHEN FND_API.G_EXC_ERROR THEN
1431: ROLLBACK TO BscKpiPvt_DelKPIProp;
1432: FND_MSG_PUB.Count_And_Get
1433: ( p_encoded => FND_API.G_FALSE
1434: , p_count => x_msg_count
1429: EXCEPTION
1430: WHEN FND_API.G_EXC_ERROR THEN
1431: ROLLBACK TO BscKpiPvt_DelKPIProp;
1432: FND_MSG_PUB.Count_And_Get
1433: ( p_encoded => FND_API.G_FALSE
1434: , p_count => x_msg_count
1435: , p_data => x_msg_data
1436: );
1437: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1433: ( p_encoded => FND_API.G_FALSE
1434: , p_count => x_msg_count
1435: , p_data => x_msg_data
1436: );
1437: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: RAISE;
1440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1441: ROLLBACK TO BscKpiPvt_DelKPIProp;
1434: , p_count => x_msg_count
1435: , p_data => x_msg_data
1436: );
1437: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: RAISE;
1440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1441: ROLLBACK TO BscKpiPvt_DelKPIProp;
1442: FND_MSG_PUB.Count_And_Get
1436: );
1437: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: RAISE;
1440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1441: ROLLBACK TO BscKpiPvt_DelKPIProp;
1442: FND_MSG_PUB.Count_And_Get
1443: ( p_encoded => FND_API.G_FALSE
1444: , p_count => x_msg_count
1439: RAISE;
1440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1441: ROLLBACK TO BscKpiPvt_DelKPIProp;
1442: FND_MSG_PUB.Count_And_Get
1443: ( p_encoded => FND_API.G_FALSE
1444: , p_count => x_msg_count
1445: , p_data => x_msg_data
1446: );
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1443: ( p_encoded => FND_API.G_FALSE
1444: , p_count => x_msg_count
1445: , p_data => x_msg_data
1446: );
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1448: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1449: RAISE;
1450: WHEN NO_DATA_FOUND THEN
1451: ROLLBACK TO BscKpiPvt_DelKPIProp;
1444: , p_count => x_msg_count
1445: , p_data => x_msg_data
1446: );
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1448: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1449: RAISE;
1450: WHEN NO_DATA_FOUND THEN
1451: ROLLBACK TO BscKpiPvt_DelKPIProp;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1448: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1449: RAISE;
1450: WHEN NO_DATA_FOUND THEN
1451: ROLLBACK TO BscKpiPvt_DelKPIProp;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: IF (x_msg_data IS NOT NULL) THEN
1454: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Properties ';
1455: ELSE
1456: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Properties ';
1458: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1459: RAISE;
1460: WHEN OTHERS THEN
1461: ROLLBACK TO BscKpiPvt_DelKPIProp;
1462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1463: IF (x_msg_data IS NOT NULL) THEN
1464: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Properties ';
1465: ELSE
1466: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Properties ';
1472: /************************************************************************************
1473: ************************************************************************************/
1474:
1475: procedure Create_Kpi_Analysis(
1476: p_commit IN varchar2 := FND_API.G_FALSE
1477: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1478: ,x_return_status OUT NOCOPY varchar2
1479: ,x_msg_count OUT NOCOPY number
1480: ,x_msg_data OUT NOCOPY varchar2
1489: no_kpi_id exception;
1490:
1491: begin
1492: FND_MSG_PUB.Initialize;
1493: x_return_status := FND_API.G_RET_STS_SUCCESS;
1494: SAVEPOINT BscKpiPvt_CrtKPIAnal;
1495: -- Check that valid id was entered.
1496: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1497: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1500: if l_count = 0 then
1501: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1502: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1503: FND_MSG_PUB.ADD;
1504: RAISE FND_API.G_EXC_ERROR;
1505: end if;
1506: else
1507: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1508: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1506: else
1507: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1508: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1509: FND_MSG_PUB.ADD;
1510: RAISE FND_API.G_EXC_ERROR;
1511: end if;
1512:
1513: l_db_object := 'BSC_KPI_ANALYSIS_GROUPS';
1514:
1575: ,x_return_status
1576: ,x_msg_count
1577: ,x_msg_data);
1578:
1579: if (p_commit = FND_API.G_TRUE) then
1580: commit;
1581: end if;
1582:
1583:
1581: end if;
1582:
1583:
1584: EXCEPTION
1585: WHEN FND_API.G_EXC_ERROR THEN
1586: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1587: FND_MSG_PUB.Count_And_Get
1588: ( p_encoded => FND_API.G_FALSE
1589: , p_count => x_msg_count
1584: EXCEPTION
1585: WHEN FND_API.G_EXC_ERROR THEN
1586: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1587: FND_MSG_PUB.Count_And_Get
1588: ( p_encoded => FND_API.G_FALSE
1589: , p_count => x_msg_count
1590: , p_data => x_msg_data
1591: );
1592: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1588: ( p_encoded => FND_API.G_FALSE
1589: , p_count => x_msg_count
1590: , p_data => x_msg_data
1591: );
1592: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: RAISE;
1595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1596: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1589: , p_count => x_msg_count
1590: , p_data => x_msg_data
1591: );
1592: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: RAISE;
1595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1596: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1597: FND_MSG_PUB.Count_And_Get
1591: );
1592: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: RAISE;
1595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1596: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1597: FND_MSG_PUB.Count_And_Get
1598: ( p_encoded => FND_API.G_FALSE
1599: , p_count => x_msg_count
1594: RAISE;
1595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1596: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1597: FND_MSG_PUB.Count_And_Get
1598: ( p_encoded => FND_API.G_FALSE
1599: , p_count => x_msg_count
1600: , p_data => x_msg_data
1601: );
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598: ( p_encoded => FND_API.G_FALSE
1599: , p_count => x_msg_count
1600: , p_data => x_msg_data
1601: );
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1603: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1604: RAISE;
1605: WHEN NO_DATA_FOUND THEN
1606: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1599: , p_count => x_msg_count
1600: , p_data => x_msg_data
1601: );
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1603: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1604: RAISE;
1605: WHEN NO_DATA_FOUND THEN
1606: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1603: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1604: RAISE;
1605: WHEN NO_DATA_FOUND THEN
1606: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1608: IF (x_msg_data IS NOT NULL) THEN
1609: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Properties ';
1610: ELSE
1611: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Properties ';
1613: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1614: RAISE;
1615: WHEN OTHERS THEN
1616: ROLLBACK TO BscKpiPvt_CrtKPIAnal;
1617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1618: if (SQLCODE = -01400) then
1619: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
1620: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1621: FND_MSG_PUB.ADD;
1618: if (SQLCODE = -01400) then
1619: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
1620: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1621: FND_MSG_PUB.ADD;
1622: RAISE FND_API.G_EXC_ERROR;
1623: end if;
1624: IF (x_msg_data IS NOT NULL) THEN
1625: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Analysis ';
1626: ELSE
1633: /************************************************************************************
1634: ************************************************************************************/
1635:
1636: procedure Retrieve_Kpi_Analysis(
1637: p_commit IN varchar2 := FND_API.G_FALSE
1638: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1639: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1640: ,x_return_status OUT NOCOPY varchar2
1641: ,x_msg_count OUT NOCOPY number
1647: l_db_object varchar2(30);
1648:
1649: begin
1650: FND_MSG_PUB.Initialize;
1651: x_return_status := FND_API.G_RET_STS_SUCCESS;
1652: l_db_object := 'Retrieve_Kpi_Analysis';
1653: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Anal_Group_Id IS NOT NULL) THEN
1654: select distinct analysis_group_id
1655: ,num_of_options
1685: ,x_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Ana_Group_Short_Name
1686: from BSC_KPI_ANALYSIS_GROUPS
1687: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
1688: END IF;
1689: if (p_commit = FND_API.G_TRUE) then
1690: commit;
1691: end if;
1692:
1693:
1691: end if;
1692:
1693:
1694: EXCEPTION
1695: WHEN FND_API.G_EXC_ERROR THEN
1696: FND_MSG_PUB.Count_And_Get
1697: ( p_encoded => FND_API.G_FALSE
1698: , p_count => x_msg_count
1699: , p_data => x_msg_data
1693:
1694: EXCEPTION
1695: WHEN FND_API.G_EXC_ERROR THEN
1696: FND_MSG_PUB.Count_And_Get
1697: ( p_encoded => FND_API.G_FALSE
1698: , p_count => x_msg_count
1699: , p_data => x_msg_data
1700: );
1701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1697: ( p_encoded => FND_API.G_FALSE
1698: , p_count => x_msg_count
1699: , p_data => x_msg_data
1700: );
1701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1703: RAISE;
1704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1705: FND_MSG_PUB.Count_And_Get
1698: , p_count => x_msg_count
1699: , p_data => x_msg_data
1700: );
1701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1703: RAISE;
1704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1705: FND_MSG_PUB.Count_And_Get
1706: ( p_encoded => FND_API.G_FALSE
1700: );
1701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1703: RAISE;
1704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1705: FND_MSG_PUB.Count_And_Get
1706: ( p_encoded => FND_API.G_FALSE
1707: , p_count => x_msg_count
1708: , p_data => x_msg_data
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1703: RAISE;
1704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1705: FND_MSG_PUB.Count_And_Get
1706: ( p_encoded => FND_API.G_FALSE
1707: , p_count => x_msg_count
1708: , p_data => x_msg_data
1709: );
1710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1706: ( p_encoded => FND_API.G_FALSE
1707: , p_count => x_msg_count
1708: , p_data => x_msg_data
1709: );
1710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1711: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1712: RAISE;
1713: WHEN NO_DATA_FOUND THEN
1714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1707: , p_count => x_msg_count
1708: , p_data => x_msg_data
1709: );
1710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1711: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1712: RAISE;
1713: WHEN NO_DATA_FOUND THEN
1714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1715: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1711: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1712: RAISE;
1713: WHEN NO_DATA_FOUND THEN
1714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1715: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1716: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
1717: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1718: FND_MSG_PUB.ADD;
1715: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1716: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
1717: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1718: FND_MSG_PUB.ADD;
1719: RAISE FND_API.G_EXC_ERROR;
1720: WHEN OTHERS THEN
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722: IF (x_msg_data IS NOT NULL) THEN
1723: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Analysis ';
1717: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
1718: FND_MSG_PUB.ADD;
1719: RAISE FND_API.G_EXC_ERROR;
1720: WHEN OTHERS THEN
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722: IF (x_msg_data IS NOT NULL) THEN
1723: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Analysis ';
1724: ELSE
1725: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi_Analysis ';
1731: /************************************************************************************
1732: ************************************************************************************/
1733:
1734: procedure Update_Kpi_Analysis(
1735: p_commit IN varchar2 := FND_API.G_FALSE
1736: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1737: ,x_return_status OUT NOCOPY varchar2
1738: ,x_msg_count OUT NOCOPY number
1739: ,x_msg_data OUT NOCOPY varchar2
1744: l_count number;
1745:
1746: begin
1747: FND_MSG_PUB.Initialize;
1748: x_return_status := FND_API.G_RET_STS_SUCCESS;
1749: SAVEPOINT BscKpiPvt_UpdKPIAnal;
1750: -- Check that valid id was entered.
1751: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
1752: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1755: if l_count = 0 then
1756: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1757: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1758: FND_MSG_PUB.ADD;
1759: RAISE FND_API.G_EXC_ERROR;
1760: end if;
1761: else
1762: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1763: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1761: else
1762: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1763: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1764: FND_MSG_PUB.ADD;
1765: RAISE FND_API.G_EXC_ERROR;
1766: end if;
1767:
1768: -- Not all values will be passed. We need to make sure values not passed are not
1769: -- changed by procedure, therefore we get what is there before we do any updates.
1835: ,short_name = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Ana_Group_Short_Name
1836: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
1837: END IF;
1838:
1839: if (p_commit = FND_API.G_TRUE) then
1840: commit;
1841: end if;
1842:
1843:
1841: end if;
1842:
1843:
1844: EXCEPTION
1845: WHEN FND_API.G_EXC_ERROR THEN
1846: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1847: FND_MSG_PUB.Count_And_Get
1848: ( p_encoded => FND_API.G_FALSE
1849: , p_count => x_msg_count
1844: EXCEPTION
1845: WHEN FND_API.G_EXC_ERROR THEN
1846: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1847: FND_MSG_PUB.Count_And_Get
1848: ( p_encoded => FND_API.G_FALSE
1849: , p_count => x_msg_count
1850: , p_data => x_msg_data
1851: );
1852: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1848: ( p_encoded => FND_API.G_FALSE
1849: , p_count => x_msg_count
1850: , p_data => x_msg_data
1851: );
1852: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: RAISE;
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1849: , p_count => x_msg_count
1850: , p_data => x_msg_data
1851: );
1852: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: RAISE;
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1857: FND_MSG_PUB.Count_And_Get
1851: );
1852: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: RAISE;
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1857: FND_MSG_PUB.Count_And_Get
1858: ( p_encoded => FND_API.G_FALSE
1859: , p_count => x_msg_count
1854: RAISE;
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1857: FND_MSG_PUB.Count_And_Get
1858: ( p_encoded => FND_API.G_FALSE
1859: , p_count => x_msg_count
1860: , p_data => x_msg_data
1861: );
1862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1858: ( p_encoded => FND_API.G_FALSE
1859: , p_count => x_msg_count
1860: , p_data => x_msg_data
1861: );
1862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1863: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1864: RAISE;
1865: WHEN NO_DATA_FOUND THEN
1866: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1859: , p_count => x_msg_count
1860: , p_data => x_msg_data
1861: );
1862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1863: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1864: RAISE;
1865: WHEN NO_DATA_FOUND THEN
1866: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1863: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1864: RAISE;
1865: WHEN NO_DATA_FOUND THEN
1866: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1868: IF (x_msg_data IS NOT NULL) THEN
1869: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Analysis ';
1870: ELSE
1871: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Analysis ';
1873: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1874: RAISE;
1875: WHEN OTHERS THEN
1876: ROLLBACK TO BscKpiPvt_UpdKPIAnal;
1877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1878: IF (x_msg_data IS NOT NULL) THEN
1879: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Analysis ';
1880: ELSE
1881: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Analysis ';
1887: /************************************************************************************
1888: ************************************************************************************/
1889:
1890: procedure Delete_Kpi_Analysis(
1891: p_commit IN varchar2 := FND_API.G_FALSE
1892: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
1893: ,x_return_status OUT NOCOPY varchar2
1894: ,x_msg_count OUT NOCOPY number
1895: ,x_msg_data OUT NOCOPY varchar2
1898: l_count number;
1899:
1900: begin
1901: FND_MSG_PUB.Initialize;
1902: x_return_status := FND_API.G_RET_STS_SUCCESS;
1903: SAVEPOINT BscKpiPvt_DelKPIAnal;
1904: -- Check that valid id was entered.
1905: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL) THEN
1906: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
1909: IF(l_count = 0 )THEN
1910: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1911: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1912: FND_MSG_PUB.ADD;
1913: RAISE FND_API.G_EXC_ERROR;
1914: END IF;
1915: ELSE
1916: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1917: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1915: ELSE
1916: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1917: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
1918: FND_MSG_PUB.ADD;
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1921:
1922: DELETE
1923: FROM bsc_kpi_analysis_groups
1943: FROM bsc_kpi_analysis_opt_user
1944: WHERE indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
1945:
1946:
1947: IF (p_commit = FND_API.G_TRUE) THEN
1948: COMMIT;
1949: END IF;
1950:
1951: EXCEPTION
1948: COMMIT;
1949: END IF;
1950:
1951: EXCEPTION
1952: WHEN FND_API.G_EXC_ERROR THEN
1953: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1954: FND_MSG_PUB.Count_And_Get
1955: ( p_encoded => FND_API.G_FALSE
1956: , p_count => x_msg_count
1951: EXCEPTION
1952: WHEN FND_API.G_EXC_ERROR THEN
1953: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1954: FND_MSG_PUB.Count_And_Get
1955: ( p_encoded => FND_API.G_FALSE
1956: , p_count => x_msg_count
1957: , p_data => x_msg_data
1958: );
1959: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1955: ( p_encoded => FND_API.G_FALSE
1956: , p_count => x_msg_count
1957: , p_data => x_msg_data
1958: );
1959: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1960: x_return_status := FND_API.G_RET_STS_ERROR;
1961: RAISE;
1962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1963: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1956: , p_count => x_msg_count
1957: , p_data => x_msg_data
1958: );
1959: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1960: x_return_status := FND_API.G_RET_STS_ERROR;
1961: RAISE;
1962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1963: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1964: FND_MSG_PUB.Count_And_Get
1958: );
1959: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1960: x_return_status := FND_API.G_RET_STS_ERROR;
1961: RAISE;
1962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1963: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1964: FND_MSG_PUB.Count_And_Get
1965: ( p_encoded => FND_API.G_FALSE
1966: , p_count => x_msg_count
1961: RAISE;
1962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1963: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1964: FND_MSG_PUB.Count_And_Get
1965: ( p_encoded => FND_API.G_FALSE
1966: , p_count => x_msg_count
1967: , p_data => x_msg_data
1968: );
1969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1965: ( p_encoded => FND_API.G_FALSE
1966: , p_count => x_msg_count
1967: , p_data => x_msg_data
1968: );
1969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1970: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1971: RAISE;
1972: WHEN NO_DATA_FOUND THEN
1973: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1966: , p_count => x_msg_count
1967: , p_data => x_msg_data
1968: );
1969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1970: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1971: RAISE;
1972: WHEN NO_DATA_FOUND THEN
1973: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1970: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1971: RAISE;
1972: WHEN NO_DATA_FOUND THEN
1973: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1975: IF (x_msg_data IS NOT NULL) THEN
1976: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Analysis ';
1977: ELSE
1978: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Analysis ';
1980: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1981: RAISE;
1982: WHEN OTHERS THEN
1983: ROLLBACK TO BscKpiPvt_DelKPIAnal;
1984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1985: IF (x_msg_data IS NOT NULL) THEN
1986: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Analysis ';
1987: ELSE
1988: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Analysis ';
1994: /************************************************************************************
1995: ************************************************************************************/
1996:
1997: procedure Delete_Objective_Color_Data(
1998: p_commit IN varchar2 := FND_API.G_FALSE
1999: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2000: ,x_return_status OUT NOCOPY varchar2
2001: ,x_msg_count OUT NOCOPY number
2002: ,x_msg_data OUT NOCOPY varchar2
2005: l_count number;
2006:
2007: begin
2008: FND_MSG_PUB.Initialize;
2009: x_return_status := FND_API.G_RET_STS_SUCCESS;
2010: SAVEPOINT BscKpiPvt_DelObjColo;
2011: -- Check that valid id was entered.
2012: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL) THEN
2013: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
2016: IF(l_count = 0 )THEN
2017: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2018: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2019: FND_MSG_PUB.ADD;
2020: RAISE FND_API.G_EXC_ERROR;
2021: END IF;
2022: ELSE
2023: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2024: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2022: ELSE
2023: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2024: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2025: FND_MSG_PUB.ADD;
2026: RAISE FND_API.G_EXC_ERROR;
2027: END IF;
2028:
2029: bsc_kpi_measure_props_pub.Delete_Obj_Kpi_Measure_Props (
2030: p_commit => FND_API.G_FALSE
2026: RAISE FND_API.G_EXC_ERROR;
2027: END IF;
2028:
2029: bsc_kpi_measure_props_pub.Delete_Obj_Kpi_Measure_Props (
2030: p_commit => FND_API.G_FALSE
2031: ,p_objective_id => p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
2032: ,p_cascade_shared => FALSE
2033: ,x_return_status => x_return_status
2034: ,x_msg_count => x_msg_count
2033: ,x_return_status => x_return_status
2034: ,x_msg_count => x_msg_count
2035: ,x_msg_data => x_Msg_Data
2036: );
2037: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2039: END IF;
2040:
2041: bsc_color_ranges_pub.Delete_Color_Prop_Ranges (
2034: ,x_msg_count => x_msg_count
2035: ,x_msg_data => x_Msg_Data
2036: );
2037: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2039: END IF;
2040:
2041: bsc_color_ranges_pub.Delete_Color_Prop_Ranges (
2042: p_commit => FND_API.G_FALSE
2038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2039: END IF;
2040:
2041: bsc_color_ranges_pub.Delete_Color_Prop_Ranges (
2042: p_commit => FND_API.G_FALSE
2043: ,p_objective_id => p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
2044: ,p_kpi_measure_id => NULL
2045: ,p_cascade_shared => FALSE
2046: ,x_return_status => x_return_status
2046: ,x_return_status => x_return_status
2047: ,x_msg_count => x_msg_count
2048: ,x_msg_data => x_Msg_Data
2049: );
2050: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052: END IF;
2053:
2054: bsc_kpi_measure_weights_pub.Del_Obj_Kpi_Measure_Weights (
2047: ,x_msg_count => x_msg_count
2048: ,x_msg_data => x_Msg_Data
2049: );
2050: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052: END IF;
2053:
2054: bsc_kpi_measure_weights_pub.Del_Obj_Kpi_Measure_Weights (
2055: p_commit => FND_API.G_FALSE
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052: END IF;
2053:
2054: bsc_kpi_measure_weights_pub.Del_Obj_Kpi_Measure_Weights (
2055: p_commit => FND_API.G_FALSE
2056: ,p_objective_id => p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
2057: ,x_return_status => x_return_status
2058: ,x_msg_count => x_msg_count
2059: ,x_msg_data => x_Msg_Data
2057: ,x_return_status => x_return_status
2058: ,x_msg_count => x_msg_count
2059: ,x_msg_data => x_Msg_Data
2060: );
2061: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2063: END IF;
2064:
2065: IF (p_commit = FND_API.G_TRUE) THEN
2058: ,x_msg_count => x_msg_count
2059: ,x_msg_data => x_Msg_Data
2060: );
2061: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2063: END IF;
2064:
2065: IF (p_commit = FND_API.G_TRUE) THEN
2066: COMMIT;
2061: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2063: END IF;
2064:
2065: IF (p_commit = FND_API.G_TRUE) THEN
2066: COMMIT;
2067: END IF;
2068:
2069: EXCEPTION
2066: COMMIT;
2067: END IF;
2068:
2069: EXCEPTION
2070: WHEN FND_API.G_EXC_ERROR THEN
2071: ROLLBACK TO BscKpiPvt_DelObjColo;
2072: FND_MSG_PUB.Count_And_Get
2073: ( p_encoded => FND_API.G_FALSE
2074: , p_count => x_msg_count
2069: EXCEPTION
2070: WHEN FND_API.G_EXC_ERROR THEN
2071: ROLLBACK TO BscKpiPvt_DelObjColo;
2072: FND_MSG_PUB.Count_And_Get
2073: ( p_encoded => FND_API.G_FALSE
2074: , p_count => x_msg_count
2075: , p_data => x_msg_data
2076: );
2077: x_return_status := FND_API.G_RET_STS_ERROR;
2073: ( p_encoded => FND_API.G_FALSE
2074: , p_count => x_msg_count
2075: , p_data => x_msg_data
2076: );
2077: x_return_status := FND_API.G_RET_STS_ERROR;
2078: RAISE;
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: ROLLBACK TO BscKpiPvt_DelObjColo;
2081: FND_MSG_PUB.Count_And_Get
2075: , p_data => x_msg_data
2076: );
2077: x_return_status := FND_API.G_RET_STS_ERROR;
2078: RAISE;
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: ROLLBACK TO BscKpiPvt_DelObjColo;
2081: FND_MSG_PUB.Count_And_Get
2082: ( p_encoded => FND_API.G_FALSE
2083: , p_count => x_msg_count
2078: RAISE;
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: ROLLBACK TO BscKpiPvt_DelObjColo;
2081: FND_MSG_PUB.Count_And_Get
2082: ( p_encoded => FND_API.G_FALSE
2083: , p_count => x_msg_count
2084: , p_data => x_msg_data
2085: );
2086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2082: ( p_encoded => FND_API.G_FALSE
2083: , p_count => x_msg_count
2084: , p_data => x_msg_data
2085: );
2086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2087: RAISE;
2088: WHEN NO_DATA_FOUND THEN
2089: ROLLBACK TO BscKpiPvt_DelObjColo;
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2087: RAISE;
2088: WHEN NO_DATA_FOUND THEN
2089: ROLLBACK TO BscKpiPvt_DelObjColo;
2090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2091: IF (x_msg_data IS NOT NULL) THEN
2092: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Objective_Color_Data ';
2093: ELSE
2094: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Objective_Color_Data ';
2095: END IF;
2096: RAISE;
2097: WHEN OTHERS THEN
2098: ROLLBACK TO BscKpiPvt_DelObjColo;
2099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2100: IF (x_msg_data IS NOT NULL) THEN
2101: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Objective_Color_Data ';
2102: ELSE
2103: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Objective_Color_Data ';
2108: /************************************************************************************
2109: ************************************************************************************/
2110:
2111: procedure Create_Kpi_Periodicity(
2112: p_commit IN varchar2 := FND_API.G_FALSE
2113: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2114: ,x_return_status OUT NOCOPY varchar2
2115: ,x_msg_count OUT NOCOPY number
2116: ,x_msg_data OUT NOCOPY varchar2
2123: l_count number;
2124:
2125: begin
2126: FND_MSG_PUB.Initialize;
2127: x_return_status := FND_API.G_RET_STS_SUCCESS;
2128: SAVEPOINT BscKpiPvt_CrtKPIPerid;
2129: -- Assign all values in the passed "Record" parameter to the locally defined
2130: -- "Record" variable.
2131: l_Bsc_Kpi_Entity_Rec := p_Bsc_Kpi_Entity_Rec;
2138: if l_count = 0 then
2139: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2140: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2141: FND_MSG_PUB.ADD;
2142: RAISE FND_API.G_EXC_ERROR;
2143: end if;
2144: else
2145: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2146: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2144: else
2145: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2146: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2147: FND_MSG_PUB.ADD;
2148: RAISE FND_API.G_EXC_ERROR;
2149: end if;
2150:
2151: -- Check that periodicity is valid. If periodicity is null then make it 5, default
2152: -- periodicity.
2157: if l_count = 0 then
2158: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_PERIODICITY_ID');
2159: FND_MESSAGE.SET_TOKEN('BSC_PERIODICITY', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id);
2160: FND_MSG_PUB.ADD;
2161: RAISE FND_API.G_EXC_ERROR;
2162: end if;
2163: else
2164: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id := 5;
2165: end if;
2200: ,l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_User_Level2_Default
2201: ,l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Current_Period
2202: ,sysdate);
2203:
2204: if (p_commit = FND_API.G_TRUE) then
2205: commit;
2206: end if;
2207:
2208:
2206: end if;
2207:
2208:
2209: EXCEPTION
2210: WHEN FND_API.G_EXC_ERROR THEN
2211: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2212: FND_MSG_PUB.Count_And_Get
2213: ( p_encoded => FND_API.G_FALSE
2214: , p_count => x_msg_count
2209: EXCEPTION
2210: WHEN FND_API.G_EXC_ERROR THEN
2211: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2212: FND_MSG_PUB.Count_And_Get
2213: ( p_encoded => FND_API.G_FALSE
2214: , p_count => x_msg_count
2215: , p_data => x_msg_data
2216: );
2217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2213: ( p_encoded => FND_API.G_FALSE
2214: , p_count => x_msg_count
2215: , p_data => x_msg_data
2216: );
2217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2218: x_return_status := FND_API.G_RET_STS_ERROR;
2219: RAISE;
2220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2221: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2214: , p_count => x_msg_count
2215: , p_data => x_msg_data
2216: );
2217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2218: x_return_status := FND_API.G_RET_STS_ERROR;
2219: RAISE;
2220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2221: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2222: FND_MSG_PUB.Count_And_Get
2216: );
2217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2218: x_return_status := FND_API.G_RET_STS_ERROR;
2219: RAISE;
2220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2221: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2222: FND_MSG_PUB.Count_And_Get
2223: ( p_encoded => FND_API.G_FALSE
2224: , p_count => x_msg_count
2219: RAISE;
2220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2221: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2222: FND_MSG_PUB.Count_And_Get
2223: ( p_encoded => FND_API.G_FALSE
2224: , p_count => x_msg_count
2225: , p_data => x_msg_data
2226: );
2227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2223: ( p_encoded => FND_API.G_FALSE
2224: , p_count => x_msg_count
2225: , p_data => x_msg_data
2226: );
2227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2228: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2229: RAISE;
2230: WHEN NO_DATA_FOUND THEN
2231: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2224: , p_count => x_msg_count
2225: , p_data => x_msg_data
2226: );
2227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2228: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2229: RAISE;
2230: WHEN NO_DATA_FOUND THEN
2231: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2228: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2229: RAISE;
2230: WHEN NO_DATA_FOUND THEN
2231: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2233: IF (x_msg_data IS NOT NULL) THEN
2234: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Periodicity ';
2235: ELSE
2236: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Kpi_Periodicity ';
2238: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2239: RAISE;
2240: WHEN OTHERS THEN
2241: ROLLBACK TO BscKpiPvt_CrtKPIPerid;
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2243: if (SQLCODE = -01400) then
2244: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
2245: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2246: FND_MSG_PUB.ADD;
2243: if (SQLCODE = -01400) then
2244: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
2245: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2246: FND_MSG_PUB.ADD;
2247: RAISE FND_API.G_EXC_ERROR;
2248: end if;
2249: IF (x_msg_data IS NOT NULL) THEN
2250: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Periodicity ';
2251: ELSE
2258: /************************************************************************************
2259: ************************************************************************************/
2260:
2261: procedure Retrieve_Kpi_Periodicity(
2262: p_commit IN varchar2 := FND_API.G_FALSE
2263: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2264: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2265: ,x_return_status OUT NOCOPY varchar2
2266: ,x_msg_count OUT NOCOPY number
2270: l_db_object varchar2(30);
2271:
2272: begin
2273: FND_MSG_PUB.Initialize;
2274: x_return_status := FND_API.G_RET_STS_SUCCESS;
2275:
2276: l_db_object := 'Retrieve_Kpi_Periodicity';
2277:
2278: select distinct display_order
2302: from BSC_KPI_PERIODICITIES
2303: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
2304: and periodicity_id = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id;
2305:
2306: if (p_commit = FND_API.G_TRUE) then
2307: commit;
2308: end if;
2309:
2310: EXCEPTION
2307: commit;
2308: end if;
2309:
2310: EXCEPTION
2311: WHEN FND_API.G_EXC_ERROR THEN
2312: FND_MSG_PUB.Count_And_Get
2313: ( p_encoded => FND_API.G_FALSE
2314: , p_count => x_msg_count
2315: , p_data => x_msg_data
2309:
2310: EXCEPTION
2311: WHEN FND_API.G_EXC_ERROR THEN
2312: FND_MSG_PUB.Count_And_Get
2313: ( p_encoded => FND_API.G_FALSE
2314: , p_count => x_msg_count
2315: , p_data => x_msg_data
2316: );
2317: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2313: ( p_encoded => FND_API.G_FALSE
2314: , p_count => x_msg_count
2315: , p_data => x_msg_data
2316: );
2317: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2318: x_return_status := FND_API.G_RET_STS_ERROR;
2319: RAISE;
2320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2321: FND_MSG_PUB.Count_And_Get
2314: , p_count => x_msg_count
2315: , p_data => x_msg_data
2316: );
2317: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2318: x_return_status := FND_API.G_RET_STS_ERROR;
2319: RAISE;
2320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2321: FND_MSG_PUB.Count_And_Get
2322: ( p_encoded => FND_API.G_FALSE
2316: );
2317: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2318: x_return_status := FND_API.G_RET_STS_ERROR;
2319: RAISE;
2320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2321: FND_MSG_PUB.Count_And_Get
2322: ( p_encoded => FND_API.G_FALSE
2323: , p_count => x_msg_count
2324: , p_data => x_msg_data
2318: x_return_status := FND_API.G_RET_STS_ERROR;
2319: RAISE;
2320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2321: FND_MSG_PUB.Count_And_Get
2322: ( p_encoded => FND_API.G_FALSE
2323: , p_count => x_msg_count
2324: , p_data => x_msg_data
2325: );
2326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2322: ( p_encoded => FND_API.G_FALSE
2323: , p_count => x_msg_count
2324: , p_data => x_msg_data
2325: );
2326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2327: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2328: RAISE;
2329: WHEN NO_DATA_FOUND THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2323: , p_count => x_msg_count
2324: , p_data => x_msg_data
2325: );
2326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2327: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2328: RAISE;
2329: WHEN NO_DATA_FOUND THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2327: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2328: RAISE;
2329: WHEN NO_DATA_FOUND THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2332: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
2333: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2334: FND_MSG_PUB.ADD;
2331: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2332: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
2333: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2334: FND_MSG_PUB.ADD;
2335: RAISE FND_API.G_EXC_ERROR;
2336: WHEN OTHERS THEN
2337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2338: IF (x_msg_data IS NOT NULL) THEN
2339: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Periodicity ';
2333: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2334: FND_MSG_PUB.ADD;
2335: RAISE FND_API.G_EXC_ERROR;
2336: WHEN OTHERS THEN
2337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2338: IF (x_msg_data IS NOT NULL) THEN
2339: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Periodicity ';
2340: ELSE
2341: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi_Periodicity ';
2347: /************************************************************************************
2348: ************************************************************************************/
2349:
2350: procedure Update_Kpi_Periodicity(
2351: p_commit IN varchar2 := FND_API.G_FALSE
2352: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2353: ,x_return_status OUT NOCOPY varchar2
2354: ,x_msg_count OUT NOCOPY number
2355: ,x_msg_data OUT NOCOPY varchar2
2360: l_count number;
2361:
2362: begin
2363: FND_MSG_PUB.Initialize;
2364: x_return_status := FND_API.G_RET_STS_SUCCESS;
2365: SAVEPOINT BscKpiPvt_UptKPIPerid;
2366: -- Check that valid id was entered.
2367: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2368: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
2371: if l_count = 0 then
2372: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2373: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2374: FND_MSG_PUB.ADD;
2375: RAISE FND_API.G_EXC_ERROR;
2376: end if;
2377: else
2378: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2379: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2377: else
2378: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2379: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2380: FND_MSG_PUB.ADD;
2381: RAISE FND_API.G_EXC_ERROR;
2382: end if;
2383:
2384: -- Not all values will be passed. We need to make sure values not passed are not
2385: -- changed by procedure, therefore we get what is there before we do any updates.
2449: ,last_update_date = l_Bsc_Kpi_Entity_Rec.Last_Update_Date
2450: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
2451: and periodicity_id = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id;
2452:
2453: if (p_commit = FND_API.G_TRUE) then
2454: commit;
2455: end if;
2456:
2457:
2455: end if;
2456:
2457:
2458: EXCEPTION
2459: WHEN FND_API.G_EXC_ERROR THEN
2460: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2461: FND_MSG_PUB.Count_And_Get
2462: ( p_encoded => FND_API.G_FALSE
2463: , p_count => x_msg_count
2458: EXCEPTION
2459: WHEN FND_API.G_EXC_ERROR THEN
2460: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2461: FND_MSG_PUB.Count_And_Get
2462: ( p_encoded => FND_API.G_FALSE
2463: , p_count => x_msg_count
2464: , p_data => x_msg_data
2465: );
2466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2462: ( p_encoded => FND_API.G_FALSE
2463: , p_count => x_msg_count
2464: , p_data => x_msg_data
2465: );
2466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2467: x_return_status := FND_API.G_RET_STS_ERROR;
2468: RAISE;
2469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2470: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2463: , p_count => x_msg_count
2464: , p_data => x_msg_data
2465: );
2466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2467: x_return_status := FND_API.G_RET_STS_ERROR;
2468: RAISE;
2469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2470: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2471: FND_MSG_PUB.Count_And_Get
2465: );
2466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2467: x_return_status := FND_API.G_RET_STS_ERROR;
2468: RAISE;
2469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2470: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2471: FND_MSG_PUB.Count_And_Get
2472: ( p_encoded => FND_API.G_FALSE
2473: , p_count => x_msg_count
2468: RAISE;
2469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2470: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2471: FND_MSG_PUB.Count_And_Get
2472: ( p_encoded => FND_API.G_FALSE
2473: , p_count => x_msg_count
2474: , p_data => x_msg_data
2475: );
2476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2472: ( p_encoded => FND_API.G_FALSE
2473: , p_count => x_msg_count
2474: , p_data => x_msg_data
2475: );
2476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2477: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2478: RAISE;
2479: WHEN NO_DATA_FOUND THEN
2480: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2473: , p_count => x_msg_count
2474: , p_data => x_msg_data
2475: );
2476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2477: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2478: RAISE;
2479: WHEN NO_DATA_FOUND THEN
2480: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2477: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2478: RAISE;
2479: WHEN NO_DATA_FOUND THEN
2480: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: IF (x_msg_data IS NOT NULL) THEN
2483: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Periodicity ';
2484: ELSE
2485: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Periodicity ';
2487: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2488: RAISE;
2489: WHEN OTHERS THEN
2490: ROLLBACK TO BscKpiPvt_UptKPIPerid;
2491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2492: IF (x_msg_data IS NOT NULL) THEN
2493: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Periodicity ';
2494: ELSE
2495: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Periodicity ';
2501: /************************************************************************************
2502: ************************************************************************************/
2503:
2504: procedure Delete_Kpi_Periodicity(
2505: p_commit IN varchar2 := FND_API.G_FALSE
2506: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2507: ,x_return_status OUT NOCOPY varchar2
2508: ,x_msg_count OUT NOCOPY number
2509: ,x_msg_data OUT NOCOPY varchar2
2512: l_count number;
2513:
2514: begin
2515: FND_MSG_PUB.Initialize;
2516: x_return_status := FND_API.G_RET_STS_SUCCESS;
2517: SAVEPOINT BscKpiPvt_DelKPIPerid;
2518: -- Check that valid id was entered.
2519: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2520: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
2523: if l_count = 0 then
2524: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2525: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2526: FND_MSG_PUB.ADD;
2527: RAISE FND_API.G_EXC_ERROR;
2528: end if;
2529: else
2530: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2531: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2529: else
2530: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2531: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2532: FND_MSG_PUB.ADD;
2533: RAISE FND_API.G_EXC_ERROR;
2534: end if;
2535:
2536: delete from BSC_KPI_PERIODICITIES
2537: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
2535:
2536: delete from BSC_KPI_PERIODICITIES
2537: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
2538:
2539: if (p_commit = FND_API.G_TRUE) then
2540: commit;
2541: end if;
2542:
2543: EXCEPTION
2540: commit;
2541: end if;
2542:
2543: EXCEPTION
2544: WHEN FND_API.G_EXC_ERROR THEN
2545: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2546: FND_MSG_PUB.Count_And_Get
2547: ( p_encoded => FND_API.G_FALSE
2548: , p_count => x_msg_count
2543: EXCEPTION
2544: WHEN FND_API.G_EXC_ERROR THEN
2545: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2546: FND_MSG_PUB.Count_And_Get
2547: ( p_encoded => FND_API.G_FALSE
2548: , p_count => x_msg_count
2549: , p_data => x_msg_data
2550: );
2551: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2547: ( p_encoded => FND_API.G_FALSE
2548: , p_count => x_msg_count
2549: , p_data => x_msg_data
2550: );
2551: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2552: x_return_status := FND_API.G_RET_STS_ERROR;
2553: RAISE;
2554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2555: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2548: , p_count => x_msg_count
2549: , p_data => x_msg_data
2550: );
2551: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2552: x_return_status := FND_API.G_RET_STS_ERROR;
2553: RAISE;
2554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2555: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2556: FND_MSG_PUB.Count_And_Get
2550: );
2551: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2552: x_return_status := FND_API.G_RET_STS_ERROR;
2553: RAISE;
2554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2555: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2556: FND_MSG_PUB.Count_And_Get
2557: ( p_encoded => FND_API.G_FALSE
2558: , p_count => x_msg_count
2553: RAISE;
2554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2555: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2556: FND_MSG_PUB.Count_And_Get
2557: ( p_encoded => FND_API.G_FALSE
2558: , p_count => x_msg_count
2559: , p_data => x_msg_data
2560: );
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2557: ( p_encoded => FND_API.G_FALSE
2558: , p_count => x_msg_count
2559: , p_data => x_msg_data
2560: );
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2563: RAISE;
2564: WHEN NO_DATA_FOUND THEN
2565: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2558: , p_count => x_msg_count
2559: , p_data => x_msg_data
2560: );
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2563: RAISE;
2564: WHEN NO_DATA_FOUND THEN
2565: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2563: RAISE;
2564: WHEN NO_DATA_FOUND THEN
2565: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2567: IF (x_msg_data IS NOT NULL) THEN
2568: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Periodicity ';
2569: ELSE
2570: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Periodicity ';
2572: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2573: RAISE;
2574: WHEN OTHERS THEN
2575: ROLLBACK TO BscKpiPvt_DelKPIPerid;
2576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2577: IF (x_msg_data IS NOT NULL) THEN
2578: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Periodicity ';
2579: ELSE
2580: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Periodicity ';
2587: /************************************************************************************
2588: ************************************************************************************/
2589:
2590: procedure Create_Kpi_Data_Tables(
2591: p_commit IN varchar2 := FND_API.G_FALSE
2592: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2593: ,x_return_status OUT NOCOPY varchar2
2594: ,x_msg_count OUT NOCOPY number
2595: ,x_msg_data OUT NOCOPY varchar2
2600: l_count number;
2601:
2602: begin
2603: FND_MSG_PUB.Initialize;
2604: x_return_status := FND_API.G_RET_STS_SUCCESS;
2605: SAVEPOINT BscKpiPvt_CrtKPIDaTab;
2606: -- Check that valid id was entered.
2607: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2608: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
2611: if l_count = 0 then
2612: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2613: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2614: FND_MSG_PUB.ADD;
2615: RAISE FND_API.G_EXC_ERROR;
2616: end if;
2617: else
2618: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2619: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2617: else
2618: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2619: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2620: FND_MSG_PUB.ADD;
2621: RAISE FND_API.G_EXC_ERROR;
2622: end if;
2623:
2624: l_db_object := 'BSC_KPI_DATA_TABLES';
2625:
2635: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Level_Comb
2636: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Table_Name
2637: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Filter_Condition);
2638:
2639: if (p_commit = FND_API.G_TRUE) then
2640: commit;
2641: end if;
2642:
2643:
2641: end if;
2642:
2643:
2644: EXCEPTION
2645: WHEN FND_API.G_EXC_ERROR THEN
2646: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2647: FND_MSG_PUB.Count_And_Get
2648: ( p_encoded => FND_API.G_FALSE
2649: , p_count => x_msg_count
2644: EXCEPTION
2645: WHEN FND_API.G_EXC_ERROR THEN
2646: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2647: FND_MSG_PUB.Count_And_Get
2648: ( p_encoded => FND_API.G_FALSE
2649: , p_count => x_msg_count
2650: , p_data => x_msg_data
2651: );
2652: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2648: ( p_encoded => FND_API.G_FALSE
2649: , p_count => x_msg_count
2650: , p_data => x_msg_data
2651: );
2652: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2653: x_return_status := FND_API.G_RET_STS_ERROR;
2654: RAISE;
2655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2656: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2649: , p_count => x_msg_count
2650: , p_data => x_msg_data
2651: );
2652: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2653: x_return_status := FND_API.G_RET_STS_ERROR;
2654: RAISE;
2655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2656: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2657: FND_MSG_PUB.Count_And_Get
2651: );
2652: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2653: x_return_status := FND_API.G_RET_STS_ERROR;
2654: RAISE;
2655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2656: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2657: FND_MSG_PUB.Count_And_Get
2658: ( p_encoded => FND_API.G_FALSE
2659: , p_count => x_msg_count
2654: RAISE;
2655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2656: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2657: FND_MSG_PUB.Count_And_Get
2658: ( p_encoded => FND_API.G_FALSE
2659: , p_count => x_msg_count
2660: , p_data => x_msg_data
2661: );
2662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2658: ( p_encoded => FND_API.G_FALSE
2659: , p_count => x_msg_count
2660: , p_data => x_msg_data
2661: );
2662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2663: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2664: RAISE;
2665: WHEN NO_DATA_FOUND THEN
2666: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2659: , p_count => x_msg_count
2660: , p_data => x_msg_data
2661: );
2662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2663: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2664: RAISE;
2665: WHEN NO_DATA_FOUND THEN
2666: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2663: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2664: RAISE;
2665: WHEN NO_DATA_FOUND THEN
2666: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2668: IF (x_msg_data IS NOT NULL) THEN
2669: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Data_Tables ';
2670: ELSE
2671: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Kpi_Data_Tables ';
2673: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2674: RAISE;
2675: WHEN OTHERS THEN
2676: ROLLBACK TO BscKpiPvt_CrtKPIDaTab;
2677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2678: if (SQLCODE = -01400) then
2679: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
2680: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2681: FND_MSG_PUB.ADD;
2678: if (SQLCODE = -01400) then
2679: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
2680: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2681: FND_MSG_PUB.ADD;
2682: RAISE FND_API.G_EXC_ERROR;
2683: end if;
2684: IF (x_msg_data IS NOT NULL) THEN
2685: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Data_Tables ';
2686: ELSE
2693: /************************************************************************************
2694: ************************************************************************************/
2695:
2696: procedure Retrieve_Kpi_Data_Tables(
2697: p_commit IN varchar2 := FND_API.G_FALSE
2698: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2699: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2700: ,x_return_status OUT NOCOPY varchar2
2701: ,x_msg_count OUT NOCOPY number
2705: l_db_object varchar2(30);
2706:
2707: begin
2708: FND_MSG_PUB.Initialize;
2709: x_return_status := FND_API.G_RET_STS_SUCCESS;
2710: l_db_object := 'Retrieve_Kpi_Data_Tables';
2711:
2712: select distinct level_comb
2713: ,table_name
2719: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
2720: and dim_set_id = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Dim_Set_Id
2721: and periodicity_id = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id;
2722:
2723: if (p_commit = FND_API.G_TRUE) then
2724: commit;
2725: end if;
2726:
2727: EXCEPTION
2724: commit;
2725: end if;
2726:
2727: EXCEPTION
2728: WHEN FND_API.G_EXC_ERROR THEN
2729: FND_MSG_PUB.Count_And_Get
2730: ( p_encoded => FND_API.G_FALSE
2731: , p_count => x_msg_count
2732: , p_data => x_msg_data
2726:
2727: EXCEPTION
2728: WHEN FND_API.G_EXC_ERROR THEN
2729: FND_MSG_PUB.Count_And_Get
2730: ( p_encoded => FND_API.G_FALSE
2731: , p_count => x_msg_count
2732: , p_data => x_msg_data
2733: );
2734: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2730: ( p_encoded => FND_API.G_FALSE
2731: , p_count => x_msg_count
2732: , p_data => x_msg_data
2733: );
2734: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2735: x_return_status := FND_API.G_RET_STS_ERROR;
2736: RAISE;
2737: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2738: FND_MSG_PUB.Count_And_Get
2731: , p_count => x_msg_count
2732: , p_data => x_msg_data
2733: );
2734: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2735: x_return_status := FND_API.G_RET_STS_ERROR;
2736: RAISE;
2737: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2738: FND_MSG_PUB.Count_And_Get
2739: ( p_encoded => FND_API.G_FALSE
2733: );
2734: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2735: x_return_status := FND_API.G_RET_STS_ERROR;
2736: RAISE;
2737: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2738: FND_MSG_PUB.Count_And_Get
2739: ( p_encoded => FND_API.G_FALSE
2740: , p_count => x_msg_count
2741: , p_data => x_msg_data
2735: x_return_status := FND_API.G_RET_STS_ERROR;
2736: RAISE;
2737: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2738: FND_MSG_PUB.Count_And_Get
2739: ( p_encoded => FND_API.G_FALSE
2740: , p_count => x_msg_count
2741: , p_data => x_msg_data
2742: );
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2739: ( p_encoded => FND_API.G_FALSE
2740: , p_count => x_msg_count
2741: , p_data => x_msg_data
2742: );
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2744: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2745: RAISE;
2746: WHEN NO_DATA_FOUND THEN
2747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2740: , p_count => x_msg_count
2741: , p_data => x_msg_data
2742: );
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2744: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2745: RAISE;
2746: WHEN NO_DATA_FOUND THEN
2747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2748: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2744: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2745: RAISE;
2746: WHEN NO_DATA_FOUND THEN
2747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2748: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2749: FND_MSG_PUB.Initialize;
2750: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
2751: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2749: FND_MSG_PUB.Initialize;
2750: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
2751: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2752: FND_MSG_PUB.ADD;
2753: RAISE FND_API.G_EXC_ERROR;
2754: WHEN OTHERS THEN
2755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2756: IF (x_msg_data IS NOT NULL) THEN
2757: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Data_Tables ';
2751: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
2752: FND_MSG_PUB.ADD;
2753: RAISE FND_API.G_EXC_ERROR;
2754: WHEN OTHERS THEN
2755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2756: IF (x_msg_data IS NOT NULL) THEN
2757: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Data_Tables ';
2758: ELSE
2759: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi_Data_Tables ';
2765: /************************************************************************************
2766: ************************************************************************************/
2767:
2768: procedure Update_Kpi_Data_Tables(
2769: p_commit IN varchar2 := FND_API.G_FALSE
2770: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2771: ,x_return_status OUT NOCOPY varchar2
2772: ,x_msg_count OUT NOCOPY number
2773: ,x_msg_data OUT NOCOPY varchar2
2778: l_count number;
2779:
2780: begin
2781: FND_MSG_PUB.Initialize;
2782: x_return_status := FND_API.G_RET_STS_SUCCESS;
2783: SAVEPOINT BscKpiPvt_UptKPIDaTab;
2784: -- Check that valid id was entered.
2785: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2786: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
2789: if l_count = 0 then
2790: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2791: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2792: FND_MSG_PUB.ADD;
2793: RAISE FND_API.G_EXC_ERROR;
2794: end if;
2795: else
2796: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2797: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2795: else
2796: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2797: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2798: FND_MSG_PUB.ADD;
2799: RAISE FND_API.G_EXC_ERROR;
2800: end if;
2801:
2802: -- Not all values will be passed. We need to make sure values not passed are not
2803: -- changed by procedure, therefore we get what is there before we do any updates.
2833: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
2834: and dim_set_id = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Dim_Set_Id
2835: and periodicity_id = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id;
2836:
2837: if (p_commit = FND_API.G_TRUE) then
2838: commit;
2839: end if;
2840:
2841: EXCEPTION
2838: commit;
2839: end if;
2840:
2841: EXCEPTION
2842: WHEN FND_API.G_EXC_ERROR THEN
2843: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2844: FND_MSG_PUB.Count_And_Get
2845: ( p_encoded => FND_API.G_FALSE
2846: , p_count => x_msg_count
2841: EXCEPTION
2842: WHEN FND_API.G_EXC_ERROR THEN
2843: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2844: FND_MSG_PUB.Count_And_Get
2845: ( p_encoded => FND_API.G_FALSE
2846: , p_count => x_msg_count
2847: , p_data => x_msg_data
2848: );
2849: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2845: ( p_encoded => FND_API.G_FALSE
2846: , p_count => x_msg_count
2847: , p_data => x_msg_data
2848: );
2849: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2850: x_return_status := FND_API.G_RET_STS_ERROR;
2851: RAISE;
2852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2853: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2846: , p_count => x_msg_count
2847: , p_data => x_msg_data
2848: );
2849: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2850: x_return_status := FND_API.G_RET_STS_ERROR;
2851: RAISE;
2852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2853: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2854: FND_MSG_PUB.Count_And_Get
2848: );
2849: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2850: x_return_status := FND_API.G_RET_STS_ERROR;
2851: RAISE;
2852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2853: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2854: FND_MSG_PUB.Count_And_Get
2855: ( p_encoded => FND_API.G_FALSE
2856: , p_count => x_msg_count
2851: RAISE;
2852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2853: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2854: FND_MSG_PUB.Count_And_Get
2855: ( p_encoded => FND_API.G_FALSE
2856: , p_count => x_msg_count
2857: , p_data => x_msg_data
2858: );
2859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2855: ( p_encoded => FND_API.G_FALSE
2856: , p_count => x_msg_count
2857: , p_data => x_msg_data
2858: );
2859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2860: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2861: RAISE;
2862: WHEN NO_DATA_FOUND THEN
2863: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2856: , p_count => x_msg_count
2857: , p_data => x_msg_data
2858: );
2859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2860: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2861: RAISE;
2862: WHEN NO_DATA_FOUND THEN
2863: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2860: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2861: RAISE;
2862: WHEN NO_DATA_FOUND THEN
2863: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
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_PVT.Update_Kpi_Data_Tables ';
2867: ELSE
2868: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Data_Tables ';
2870: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2871: RAISE;
2872: WHEN OTHERS THEN
2873: ROLLBACK TO BscKpiPvt_UptKPIDaTab;
2874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2875: IF (x_msg_data IS NOT NULL) THEN
2876: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Data_Tables ';
2877: ELSE
2878: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Data_Tables ';
2884: /************************************************************************************
2885: ************************************************************************************/
2886:
2887: procedure Delete_Kpi_Data_Tables(
2888: p_commit IN varchar2 := FND_API.G_FALSE
2889: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2890: ,x_return_status OUT NOCOPY varchar2
2891: ,x_msg_count OUT NOCOPY number
2892: ,x_msg_data OUT NOCOPY varchar2
2896: l_Delete_Kpi_Data BOOLEAN := TRUE;
2897:
2898: begin
2899: FND_MSG_PUB.Initialize;
2900: x_return_status := FND_API.G_RET_STS_SUCCESS;
2901: SAVEPOINT BscKpiPvt_DelKPIDaTab;
2902: -- Check that valid id was entered.
2903: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
2904: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
2907: if l_count = 0 then
2908: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
2909: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2910: FND_MSG_PUB.ADD;
2911: RAISE FND_API.G_EXC_ERROR;
2912: end if;
2913: else
2914: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2915: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2913: else
2914: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
2915: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2916: FND_MSG_PUB.ADD;
2917: RAISE FND_API.G_EXC_ERROR;
2918: end if;
2919:
2920: -- Added for Bug #3248729
2921: IF BSC_UTILITY.isBscInProductionMode THEN
2939: WHERE INDICATOR = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
2940:
2941: END IF;
2942:
2943: if (p_commit = FND_API.G_TRUE) then
2944: commit;
2945: end if;
2946: -- Added for Bug #3248729
2947:
2945: end if;
2946: -- Added for Bug #3248729
2947:
2948: EXCEPTION
2949: WHEN FND_API.G_EXC_ERROR THEN
2950: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2951: FND_MSG_PUB.Count_And_Get
2952: ( p_encoded => FND_API.G_FALSE
2953: , p_count => x_msg_count
2948: EXCEPTION
2949: WHEN FND_API.G_EXC_ERROR THEN
2950: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2951: FND_MSG_PUB.Count_And_Get
2952: ( p_encoded => FND_API.G_FALSE
2953: , p_count => x_msg_count
2954: , p_data => x_msg_data
2955: );
2956: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2952: ( p_encoded => FND_API.G_FALSE
2953: , p_count => x_msg_count
2954: , p_data => x_msg_data
2955: );
2956: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2957: x_return_status := FND_API.G_RET_STS_ERROR;
2958: RAISE;
2959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2960: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2953: , p_count => x_msg_count
2954: , p_data => x_msg_data
2955: );
2956: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2957: x_return_status := FND_API.G_RET_STS_ERROR;
2958: RAISE;
2959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2960: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2961: FND_MSG_PUB.Count_And_Get
2955: );
2956: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2957: x_return_status := FND_API.G_RET_STS_ERROR;
2958: RAISE;
2959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2960: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2961: FND_MSG_PUB.Count_And_Get
2962: ( p_encoded => FND_API.G_FALSE
2963: , p_count => x_msg_count
2958: RAISE;
2959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2960: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2961: FND_MSG_PUB.Count_And_Get
2962: ( p_encoded => FND_API.G_FALSE
2963: , p_count => x_msg_count
2964: , p_data => x_msg_data
2965: );
2966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2962: ( p_encoded => FND_API.G_FALSE
2963: , p_count => x_msg_count
2964: , p_data => x_msg_data
2965: );
2966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2967: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2968: RAISE;
2969: WHEN NO_DATA_FOUND THEN
2970: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2963: , p_count => x_msg_count
2964: , p_data => x_msg_data
2965: );
2966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2967: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2968: RAISE;
2969: WHEN NO_DATA_FOUND THEN
2970: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2967: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2968: RAISE;
2969: WHEN NO_DATA_FOUND THEN
2970: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2972: IF (x_msg_data IS NOT NULL) THEN
2973: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Data_Tables ';
2974: ELSE
2975: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Data_Tables ';
2977: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2978: RAISE;
2979: WHEN OTHERS THEN
2980: ROLLBACK TO BscKpiPvt_DelKPIDaTab;
2981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2982: IF (x_msg_data IS NOT NULL) THEN
2983: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Data_Tables ';
2984: ELSE
2985: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Data_Tables ';
2991: /************************************************************************************
2992: ************************************************************************************/
2993:
2994: procedure Create_Kpi_Calculations(
2995: p_commit IN varchar2 := FND_API.G_FALSE
2996: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
2997: ,x_return_status OUT NOCOPY varchar2
2998: ,x_msg_count OUT NOCOPY number
2999: ,x_msg_data OUT NOCOPY varchar2
3004: l_count number;
3005:
3006: begin
3007: FND_MSG_PUB.Initialize;
3008: x_return_status := FND_API.G_RET_STS_SUCCESS;
3009: SAVEPOINT BscKpiPvt_CrtKPICalc;
3010: -- Check that valid id was entered.
3011: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3012: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
3015: if l_count = 0 then
3016: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3017: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3018: FND_MSG_PUB.ADD;
3019: RAISE FND_API.G_EXC_ERROR;
3020: end if;
3021: else
3022: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3023: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3021: else
3022: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3023: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3024: FND_MSG_PUB.ADD;
3025: RAISE FND_API.G_EXC_ERROR;
3026: end if;
3027:
3028: l_db_object := 'BSC_KPI_CALCULATIONS';
3029:
3043: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_User_Level2
3044: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_User_Level2_Default
3045: ,p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Default_Value);
3046:
3047: if (p_commit = FND_API.G_TRUE) then
3048: commit;
3049: end if;
3050:
3051: EXCEPTION
3048: commit;
3049: end if;
3050:
3051: EXCEPTION
3052: WHEN FND_API.G_EXC_ERROR THEN
3053: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3054: FND_MSG_PUB.Count_And_Get
3055: ( p_encoded => FND_API.G_FALSE
3056: , p_count => x_msg_count
3051: EXCEPTION
3052: WHEN FND_API.G_EXC_ERROR THEN
3053: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3054: FND_MSG_PUB.Count_And_Get
3055: ( p_encoded => FND_API.G_FALSE
3056: , p_count => x_msg_count
3057: , p_data => x_msg_data
3058: );
3059: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3055: ( p_encoded => FND_API.G_FALSE
3056: , p_count => x_msg_count
3057: , p_data => x_msg_data
3058: );
3059: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3060: x_return_status := FND_API.G_RET_STS_ERROR;
3061: RAISE;
3062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3063: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3056: , p_count => x_msg_count
3057: , p_data => x_msg_data
3058: );
3059: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3060: x_return_status := FND_API.G_RET_STS_ERROR;
3061: RAISE;
3062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3063: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3064: FND_MSG_PUB.Count_And_Get
3058: );
3059: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3060: x_return_status := FND_API.G_RET_STS_ERROR;
3061: RAISE;
3062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3063: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3064: FND_MSG_PUB.Count_And_Get
3065: ( p_encoded => FND_API.G_FALSE
3066: , p_count => x_msg_count
3061: RAISE;
3062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3063: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3064: FND_MSG_PUB.Count_And_Get
3065: ( p_encoded => FND_API.G_FALSE
3066: , p_count => x_msg_count
3067: , p_data => x_msg_data
3068: );
3069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3065: ( p_encoded => FND_API.G_FALSE
3066: , p_count => x_msg_count
3067: , p_data => x_msg_data
3068: );
3069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3070: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3071: RAISE;
3072: WHEN NO_DATA_FOUND THEN
3073: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3066: , p_count => x_msg_count
3067: , p_data => x_msg_data
3068: );
3069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3070: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3071: RAISE;
3072: WHEN NO_DATA_FOUND THEN
3073: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3070: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3071: RAISE;
3072: WHEN NO_DATA_FOUND THEN
3073: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3075: IF (x_msg_data IS NOT NULL) THEN
3076: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Calculations ';
3077: ELSE
3078: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Kpi_Calculations ';
3080: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3081: RAISE;
3082: WHEN OTHERS THEN
3083: ROLLBACK TO BscKpiPvt_CrtKPICalc;
3084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3085: if (SQLCODE = -01400) then
3086: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
3087: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3088: FND_MSG_PUB.ADD;
3085: if (SQLCODE = -01400) then
3086: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
3087: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3088: FND_MSG_PUB.ADD;
3089: RAISE FND_API.G_EXC_ERROR;
3090: end if;
3091: IF (x_msg_data IS NOT NULL) THEN
3092: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Calculations ';
3093: ELSE
3100: /************************************************************************************
3101: ************************************************************************************/
3102:
3103: procedure Retrieve_Kpi_Calculations(
3104: p_commit IN varchar2 := FND_API.G_FALSE
3105: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3106: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3107: ,x_return_status OUT NOCOPY varchar2
3108: ,x_msg_count OUT NOCOPY number
3112: l_db_object varchar2(30);
3113:
3114: begin
3115: FND_MSG_PUB.Initialize;
3116: x_return_status := FND_API.G_RET_STS_SUCCESS;
3117: l_db_object := 'Retrieve_Kpi_Calculations';
3118:
3119: select distinct user_level0
3120: ,user_level1
3131: from BSC_KPI_CALCULATIONS
3132: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
3133: and calculation_id = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id;
3134:
3135: if (p_commit = FND_API.G_TRUE) then
3136: commit;
3137: end if;
3138:
3139: EXCEPTION
3136: commit;
3137: end if;
3138:
3139: EXCEPTION
3140: WHEN FND_API.G_EXC_ERROR THEN
3141: FND_MSG_PUB.Count_And_Get
3142: ( p_encoded => FND_API.G_FALSE
3143: , p_count => x_msg_count
3144: , p_data => x_msg_data
3138:
3139: EXCEPTION
3140: WHEN FND_API.G_EXC_ERROR THEN
3141: FND_MSG_PUB.Count_And_Get
3142: ( p_encoded => FND_API.G_FALSE
3143: , p_count => x_msg_count
3144: , p_data => x_msg_data
3145: );
3146: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3142: ( p_encoded => FND_API.G_FALSE
3143: , p_count => x_msg_count
3144: , p_data => x_msg_data
3145: );
3146: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3147: x_return_status := FND_API.G_RET_STS_ERROR;
3148: RAISE;
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: FND_MSG_PUB.Count_And_Get
3143: , p_count => x_msg_count
3144: , p_data => x_msg_data
3145: );
3146: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3147: x_return_status := FND_API.G_RET_STS_ERROR;
3148: RAISE;
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: FND_MSG_PUB.Count_And_Get
3151: ( p_encoded => FND_API.G_FALSE
3145: );
3146: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3147: x_return_status := FND_API.G_RET_STS_ERROR;
3148: RAISE;
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: FND_MSG_PUB.Count_And_Get
3151: ( p_encoded => FND_API.G_FALSE
3152: , p_count => x_msg_count
3153: , p_data => x_msg_data
3147: x_return_status := FND_API.G_RET_STS_ERROR;
3148: RAISE;
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: FND_MSG_PUB.Count_And_Get
3151: ( p_encoded => FND_API.G_FALSE
3152: , p_count => x_msg_count
3153: , p_data => x_msg_data
3154: );
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3151: ( p_encoded => FND_API.G_FALSE
3152: , p_count => x_msg_count
3153: , p_data => x_msg_data
3154: );
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3156: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3157: RAISE;
3158: WHEN NO_DATA_FOUND THEN
3159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3152: , p_count => x_msg_count
3153: , p_data => x_msg_data
3154: );
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3156: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3157: RAISE;
3158: WHEN NO_DATA_FOUND THEN
3159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3160: FND_MSG_PUB.Initialize;
3160: FND_MSG_PUB.Initialize;
3161: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3162: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3163: FND_MSG_PUB.ADD;
3164: RAISE FND_API.G_EXC_ERROR;
3165: WHEN OTHERS THEN
3166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3167: IF (x_msg_data IS NOT NULL) THEN
3168: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Calculations ';
3162: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3163: FND_MSG_PUB.ADD;
3164: RAISE FND_API.G_EXC_ERROR;
3165: WHEN OTHERS THEN
3166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3167: IF (x_msg_data IS NOT NULL) THEN
3168: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Calculations ';
3169: ELSE
3170: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi_Calculations ';
3176: /************************************************************************************
3177: ************************************************************************************/
3178:
3179: procedure Update_Kpi_Calculations(
3180: p_commit IN varchar2 := FND_API.G_FALSE
3181: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3182: ,x_return_status OUT NOCOPY varchar2
3183: ,x_msg_count OUT NOCOPY number
3184: ,x_msg_data OUT NOCOPY varchar2
3189: l_count number;
3190:
3191: begin
3192: FND_MSG_PUB.Initialize;
3193: x_return_status := FND_API.G_RET_STS_SUCCESS;
3194: SAVEPOINT BscKpiPvt_UptKPICalc;
3195: -- Check that valid id was entered.
3196: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3197: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
3200: if l_count = 0 then
3201: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3202: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3203: FND_MSG_PUB.ADD;
3204: RAISE FND_API.G_EXC_ERROR;
3205: end if;
3206: else
3207: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3208: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3206: else
3207: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3208: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3209: FND_MSG_PUB.ADD;
3210: RAISE FND_API.G_EXC_ERROR;
3211: end if;
3212:
3213: -- Check that valid id was entered.
3214: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id is not null then
3218: if l_count = 0 then
3219: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_CALCULATION_ID');
3220: FND_MESSAGE.SET_TOKEN('BSC_CALCULATION', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id);
3221: FND_MSG_PUB.ADD;
3222: RAISE FND_API.G_EXC_ERROR;
3223: end if;
3224: else
3225: FND_MESSAGE.SET_NAME('BSC','BSC_NO_CALCULATION_ID_ENTERED');
3226: FND_MESSAGE.SET_TOKEN('BSC_CALCULATION', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id);
3224: else
3225: FND_MESSAGE.SET_NAME('BSC','BSC_NO_CALCULATION_ID_ENTERED');
3226: FND_MESSAGE.SET_TOKEN('BSC_CALCULATION', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id);
3227: FND_MSG_PUB.ADD;
3228: RAISE FND_API.G_EXC_ERROR;
3229: end if;
3230:
3231: -- Not all values will be passed. We need to make sure values not passed are not
3232: -- changed by procedure, therefore we get what is there before we do any updates.
3271: ,default_value = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Default_Value
3272: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
3273: and calculation_id = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Calculation_Id;
3274:
3275: if (p_commit = FND_API.G_TRUE) then
3276: commit;
3277: end if;
3278:
3279: EXCEPTION
3276: commit;
3277: end if;
3278:
3279: EXCEPTION
3280: WHEN FND_API.G_EXC_ERROR THEN
3281: ROLLBACK TO BscKpiPvt_UptKPICalc;
3282: FND_MSG_PUB.Count_And_Get
3283: ( p_encoded => FND_API.G_FALSE
3284: , p_count => x_msg_count
3279: EXCEPTION
3280: WHEN FND_API.G_EXC_ERROR THEN
3281: ROLLBACK TO BscKpiPvt_UptKPICalc;
3282: FND_MSG_PUB.Count_And_Get
3283: ( p_encoded => FND_API.G_FALSE
3284: , p_count => x_msg_count
3285: , p_data => x_msg_data
3286: );
3287: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3283: ( p_encoded => FND_API.G_FALSE
3284: , p_count => x_msg_count
3285: , p_data => x_msg_data
3286: );
3287: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3288: x_return_status := FND_API.G_RET_STS_ERROR;
3289: RAISE;
3290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3291: ROLLBACK TO BscKpiPvt_UptKPICalc;
3284: , p_count => x_msg_count
3285: , p_data => x_msg_data
3286: );
3287: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3288: x_return_status := FND_API.G_RET_STS_ERROR;
3289: RAISE;
3290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3291: ROLLBACK TO BscKpiPvt_UptKPICalc;
3292: FND_MSG_PUB.Count_And_Get
3286: );
3287: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3288: x_return_status := FND_API.G_RET_STS_ERROR;
3289: RAISE;
3290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3291: ROLLBACK TO BscKpiPvt_UptKPICalc;
3292: FND_MSG_PUB.Count_And_Get
3293: ( p_encoded => FND_API.G_FALSE
3294: , p_count => x_msg_count
3289: RAISE;
3290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3291: ROLLBACK TO BscKpiPvt_UptKPICalc;
3292: FND_MSG_PUB.Count_And_Get
3293: ( p_encoded => FND_API.G_FALSE
3294: , p_count => x_msg_count
3295: , p_data => x_msg_data
3296: );
3297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3293: ( p_encoded => FND_API.G_FALSE
3294: , p_count => x_msg_count
3295: , p_data => x_msg_data
3296: );
3297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3298: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3299: RAISE;
3300: WHEN NO_DATA_FOUND THEN
3301: ROLLBACK TO BscKpiPvt_UptKPICalc;
3294: , p_count => x_msg_count
3295: , p_data => x_msg_data
3296: );
3297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3298: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3299: RAISE;
3300: WHEN NO_DATA_FOUND THEN
3301: ROLLBACK TO BscKpiPvt_UptKPICalc;
3302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3298: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3299: RAISE;
3300: WHEN NO_DATA_FOUND THEN
3301: ROLLBACK TO BscKpiPvt_UptKPICalc;
3302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3303: IF (x_msg_data IS NOT NULL) THEN
3304: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Calculations ';
3305: ELSE
3306: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Calculations ';
3308: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3309: RAISE;
3310: WHEN OTHERS THEN
3311: ROLLBACK TO BscKpiPvt_UptKPICalc;
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3313: IF (x_msg_data IS NOT NULL) THEN
3314: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Calculations ';
3315: ELSE
3316: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Calculations ';
3322: /************************************************************************************
3323: ************************************************************************************/
3324:
3325: procedure Delete_Kpi_Calculations(
3326: p_commit IN varchar2 := FND_API.G_FALSE
3327: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3328: ,x_return_status OUT NOCOPY varchar2
3329: ,x_msg_count OUT NOCOPY number
3330: ,x_msg_data OUT NOCOPY varchar2
3333: l_count number;
3334:
3335: BEGIN
3336: FND_MSG_PUB.Initialize;
3337: x_return_status := FND_API.G_RET_STS_SUCCESS;
3338: SAVEPOINT BscKpiPvt_DelKPICalc;
3339: -- Check that valid id was entered.
3340: IF(p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL) THEN
3341: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
3344: IF (l_count = 0) THEN
3345: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3346: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3347: FND_MSG_PUB.ADD;
3348: RAISE FND_API.G_EXC_ERROR;
3349: END IF;
3350: ELSE
3351: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3352: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3350: ELSE
3351: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3352: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3353: FND_MSG_PUB.ADD;
3354: RAISE FND_API.G_EXC_ERROR;
3355: END IF;
3356:
3357: DELETE
3358: FROM bsc_kpi_calculations
3361: DELETE
3362: FROM bsc_kpi_calculations_user
3363: WHERE indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
3364:
3365: IF (p_commit = FND_API.G_TRUE) THEN
3366: COMMIT;
3367: END IF;
3368:
3369: EXCEPTION
3366: COMMIT;
3367: END IF;
3368:
3369: EXCEPTION
3370: WHEN FND_API.G_EXC_ERROR THEN
3371: ROLLBACK TO BscKpiPvt_DelKPICalc;
3372: FND_MSG_PUB.Count_And_Get
3373: ( p_encoded => FND_API.G_FALSE
3374: , p_count => x_msg_count
3369: EXCEPTION
3370: WHEN FND_API.G_EXC_ERROR THEN
3371: ROLLBACK TO BscKpiPvt_DelKPICalc;
3372: FND_MSG_PUB.Count_And_Get
3373: ( p_encoded => FND_API.G_FALSE
3374: , p_count => x_msg_count
3375: , p_data => x_msg_data
3376: );
3377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3373: ( p_encoded => FND_API.G_FALSE
3374: , p_count => x_msg_count
3375: , p_data => x_msg_data
3376: );
3377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3378: x_return_status := FND_API.G_RET_STS_ERROR;
3379: RAISE;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: ROLLBACK TO BscKpiPvt_DelKPICalc;
3374: , p_count => x_msg_count
3375: , p_data => x_msg_data
3376: );
3377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3378: x_return_status := FND_API.G_RET_STS_ERROR;
3379: RAISE;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: ROLLBACK TO BscKpiPvt_DelKPICalc;
3382: FND_MSG_PUB.Count_And_Get
3376: );
3377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3378: x_return_status := FND_API.G_RET_STS_ERROR;
3379: RAISE;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: ROLLBACK TO BscKpiPvt_DelKPICalc;
3382: FND_MSG_PUB.Count_And_Get
3383: ( p_encoded => FND_API.G_FALSE
3384: , p_count => x_msg_count
3379: RAISE;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: ROLLBACK TO BscKpiPvt_DelKPICalc;
3382: FND_MSG_PUB.Count_And_Get
3383: ( p_encoded => FND_API.G_FALSE
3384: , p_count => x_msg_count
3385: , p_data => x_msg_data
3386: );
3387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3383: ( p_encoded => FND_API.G_FALSE
3384: , p_count => x_msg_count
3385: , p_data => x_msg_data
3386: );
3387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3388: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3389: RAISE;
3390: WHEN NO_DATA_FOUND THEN
3391: ROLLBACK TO BscKpiPvt_DelKPICalc;
3384: , p_count => x_msg_count
3385: , p_data => x_msg_data
3386: );
3387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3388: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3389: RAISE;
3390: WHEN NO_DATA_FOUND THEN
3391: ROLLBACK TO BscKpiPvt_DelKPICalc;
3392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3388: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3389: RAISE;
3390: WHEN NO_DATA_FOUND THEN
3391: ROLLBACK TO BscKpiPvt_DelKPICalc;
3392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3393: IF (x_msg_data IS NOT NULL) THEN
3394: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Calculations ';
3395: ELSE
3396: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Calculations ';
3398: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3399: RAISE;
3400: WHEN OTHERS THEN
3401: ROLLBACK TO BscKpiPvt_DelKPICalc;
3402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3403: IF (x_msg_data IS NOT NULL) THEN
3404: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Calculations ';
3405: ELSE
3406: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Calculations ';
3412: /************************************************************************************
3413: ************************************************************************************/
3414:
3415: procedure Create_Kpi_User_Access(
3416: p_commit IN varchar2 := FND_API.G_FALSE
3417: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3418: ,x_return_status OUT NOCOPY varchar2
3419: ,x_msg_count OUT NOCOPY number
3420: ,x_msg_data OUT NOCOPY varchar2
3425: l_count number;
3426:
3427: begin
3428: FND_MSG_PUB.Initialize;
3429: x_return_status := FND_API.G_RET_STS_SUCCESS;
3430: SAVEPOINT BscKpiPvt_CrtKPIUsrAcc;
3431: -- Check that valid id was entered.
3432: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3433: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
3436: if l_count = 0 then
3437: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3438: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3439: FND_MSG_PUB.ADD;
3440: RAISE FND_API.G_EXC_ERROR;
3441: end if;
3442: else
3443: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3444: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3442: else
3443: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3444: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3445: FND_MSG_PUB.ADD;
3446: RAISE FND_API.G_EXC_ERROR;
3447: end if;
3448:
3449: l_db_object := 'BSC_USER_KPI_ACCESS';
3450:
3470:
3471:
3472:
3473:
3474: if (p_commit = FND_API.G_TRUE) then
3475: commit;
3476: end if;
3477:
3478:
3476: end if;
3477:
3478:
3479: EXCEPTION
3480: WHEN FND_API.G_EXC_ERROR THEN
3481: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3482: FND_MSG_PUB.Count_And_Get
3483: ( p_encoded => FND_API.G_FALSE
3484: , p_count => x_msg_count
3479: EXCEPTION
3480: WHEN FND_API.G_EXC_ERROR THEN
3481: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3482: FND_MSG_PUB.Count_And_Get
3483: ( p_encoded => FND_API.G_FALSE
3484: , p_count => x_msg_count
3485: , p_data => x_msg_data
3486: );
3487: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3483: ( p_encoded => FND_API.G_FALSE
3484: , p_count => x_msg_count
3485: , p_data => x_msg_data
3486: );
3487: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3488: x_return_status := FND_API.G_RET_STS_ERROR;
3489: RAISE;
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3484: , p_count => x_msg_count
3485: , p_data => x_msg_data
3486: );
3487: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3488: x_return_status := FND_API.G_RET_STS_ERROR;
3489: RAISE;
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3492: FND_MSG_PUB.Count_And_Get
3486: );
3487: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3488: x_return_status := FND_API.G_RET_STS_ERROR;
3489: RAISE;
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3492: FND_MSG_PUB.Count_And_Get
3493: ( p_encoded => FND_API.G_FALSE
3494: , p_count => x_msg_count
3489: RAISE;
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3492: FND_MSG_PUB.Count_And_Get
3493: ( p_encoded => FND_API.G_FALSE
3494: , p_count => x_msg_count
3495: , p_data => x_msg_data
3496: );
3497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3493: ( p_encoded => FND_API.G_FALSE
3494: , p_count => x_msg_count
3495: , p_data => x_msg_data
3496: );
3497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3498: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3499: RAISE;
3500: WHEN NO_DATA_FOUND THEN
3501: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3494: , p_count => x_msg_count
3495: , p_data => x_msg_data
3496: );
3497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3498: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3499: RAISE;
3500: WHEN NO_DATA_FOUND THEN
3501: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3498: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3499: RAISE;
3500: WHEN NO_DATA_FOUND THEN
3501: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3503: if (SQLCODE = -01400) then
3504: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
3505: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3506: FND_MSG_PUB.ADD;
3503: if (SQLCODE = -01400) then
3504: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
3505: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3506: FND_MSG_PUB.ADD;
3507: RAISE FND_API.G_EXC_ERROR;
3508: end if;
3509: IF (x_msg_data IS NOT NULL) THEN
3510: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_User_Access ';
3511: ELSE
3514: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3515: RAISE;
3516: WHEN OTHERS THEN
3517: ROLLBACK TO BscKpiPvt_CrtKPIUsrAcc;
3518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3519: IF (x_msg_data IS NOT NULL) THEN
3520: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_User_Access ';
3521: ELSE
3522: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Kpi_User_Access ';
3528: /************************************************************************************
3529: ************************************************************************************/
3530:
3531: procedure Retrieve_Kpi_User_Access(
3532: p_commit IN varchar2 := FND_API.G_FALSE
3533: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3534: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3535: ,x_return_status OUT NOCOPY varchar2
3536: ,x_msg_count OUT NOCOPY number
3540: l_db_object varchar2(30);
3541:
3542: begin
3543: FND_MSG_PUB.Initialize;
3544: x_return_status := FND_API.G_RET_STS_SUCCESS;
3545: l_db_object := 'Retrieve_Kpi_User_Access';
3546:
3547: select distinct responsibility_id
3548: ,creation_date
3564: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
3565: and responsibility_id = p_Bsc_Kpi_Entity_Rec.Bsc_Responsibility_Id;
3566:
3567:
3568: if (p_commit = FND_API.G_TRUE) then
3569: commit;
3570: end if;
3571:
3572: EXCEPTION
3569: commit;
3570: end if;
3571:
3572: EXCEPTION
3573: WHEN FND_API.G_EXC_ERROR THEN
3574: FND_MSG_PUB.Count_And_Get
3575: ( p_encoded => FND_API.G_FALSE
3576: , p_count => x_msg_count
3577: , p_data => x_msg_data
3571:
3572: EXCEPTION
3573: WHEN FND_API.G_EXC_ERROR THEN
3574: FND_MSG_PUB.Count_And_Get
3575: ( p_encoded => FND_API.G_FALSE
3576: , p_count => x_msg_count
3577: , p_data => x_msg_data
3578: );
3579: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3575: ( p_encoded => FND_API.G_FALSE
3576: , p_count => x_msg_count
3577: , p_data => x_msg_data
3578: );
3579: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3580: x_return_status := FND_API.G_RET_STS_ERROR;
3581: RAISE;
3582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3583: FND_MSG_PUB.Count_And_Get
3576: , p_count => x_msg_count
3577: , p_data => x_msg_data
3578: );
3579: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3580: x_return_status := FND_API.G_RET_STS_ERROR;
3581: RAISE;
3582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3583: FND_MSG_PUB.Count_And_Get
3584: ( p_encoded => FND_API.G_FALSE
3578: );
3579: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3580: x_return_status := FND_API.G_RET_STS_ERROR;
3581: RAISE;
3582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3583: FND_MSG_PUB.Count_And_Get
3584: ( p_encoded => FND_API.G_FALSE
3585: , p_count => x_msg_count
3586: , p_data => x_msg_data
3580: x_return_status := FND_API.G_RET_STS_ERROR;
3581: RAISE;
3582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3583: FND_MSG_PUB.Count_And_Get
3584: ( p_encoded => FND_API.G_FALSE
3585: , p_count => x_msg_count
3586: , p_data => x_msg_data
3587: );
3588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3584: ( p_encoded => FND_API.G_FALSE
3585: , p_count => x_msg_count
3586: , p_data => x_msg_data
3587: );
3588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3589: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3590: RAISE;
3591: WHEN NO_DATA_FOUND THEN
3592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3585: , p_count => x_msg_count
3586: , p_data => x_msg_data
3587: );
3588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3589: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3590: RAISE;
3591: WHEN NO_DATA_FOUND THEN
3592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3593: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3589: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3590: RAISE;
3591: WHEN NO_DATA_FOUND THEN
3592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3593: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3594: FND_MSG_PUB.Initialize;
3595: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3596: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3594: FND_MSG_PUB.Initialize;
3595: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3596: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3597: FND_MSG_PUB.ADD;
3598: RAISE FND_API.G_EXC_ERROR;
3599: WHEN OTHERS THEN
3600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3601: IF (x_msg_data IS NOT NULL) THEN
3602: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_User_Access ';
3596: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
3597: FND_MSG_PUB.ADD;
3598: RAISE FND_API.G_EXC_ERROR;
3599: WHEN OTHERS THEN
3600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3601: IF (x_msg_data IS NOT NULL) THEN
3602: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_User_Access ';
3603: ELSE
3604: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi_User_Access ';
3610: /************************************************************************************
3611: ************************************************************************************/
3612:
3613: procedure Update_Kpi_User_Access(
3614: p_commit IN varchar2 := FND_API.G_FALSE
3615: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3616: ,x_return_status OUT NOCOPY varchar2
3617: ,x_msg_count OUT NOCOPY number
3618: ,x_msg_data OUT NOCOPY varchar2
3623: l_count number;
3624:
3625: begin
3626: FND_MSG_PUB.Initialize;
3627: x_return_status := FND_API.G_RET_STS_SUCCESS;
3628: SAVEPOINT BscKpiPvt_UptKPIUsrAcc;
3629: -- Check that valid id was entered.
3630: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3631: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
3634: if l_count = 0 then
3635: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3636: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3637: FND_MSG_PUB.ADD;
3638: RAISE FND_API.G_EXC_ERROR;
3639: end if;
3640: else
3641: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3642: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3640: else
3641: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3642: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3643: FND_MSG_PUB.ADD;
3644: RAISE FND_API.G_EXC_ERROR;
3645: end if;
3646:
3647: -- Not all values will be passed. We need to make sure values not passed are not
3648: -- changed by procedure, therefore we get what is there before we do any updates.
3693: ,start_date = l_Bsc_Kpi_Entity_Rec.Bsc_Resp_Start_Date
3694: ,end_date = l_Bsc_Kpi_Entity_Rec.Bsc_Resp_End_Date
3695: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
3696:
3697: if (p_commit = FND_API.G_TRUE) then
3698: commit;
3699: end if;
3700:
3701: EXCEPTION
3698: commit;
3699: end if;
3700:
3701: EXCEPTION
3702: WHEN FND_API.G_EXC_ERROR THEN
3703: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3704: FND_MSG_PUB.Count_And_Get
3705: ( p_encoded => FND_API.G_FALSE
3706: , p_count => x_msg_count
3701: EXCEPTION
3702: WHEN FND_API.G_EXC_ERROR THEN
3703: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3704: FND_MSG_PUB.Count_And_Get
3705: ( p_encoded => FND_API.G_FALSE
3706: , p_count => x_msg_count
3707: , p_data => x_msg_data
3708: );
3709: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3705: ( p_encoded => FND_API.G_FALSE
3706: , p_count => x_msg_count
3707: , p_data => x_msg_data
3708: );
3709: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3710: x_return_status := FND_API.G_RET_STS_ERROR;
3711: RAISE;
3712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3713: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3706: , p_count => x_msg_count
3707: , p_data => x_msg_data
3708: );
3709: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3710: x_return_status := FND_API.G_RET_STS_ERROR;
3711: RAISE;
3712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3713: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3714: FND_MSG_PUB.Count_And_Get
3708: );
3709: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3710: x_return_status := FND_API.G_RET_STS_ERROR;
3711: RAISE;
3712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3713: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3714: FND_MSG_PUB.Count_And_Get
3715: ( p_encoded => FND_API.G_FALSE
3716: , p_count => x_msg_count
3711: RAISE;
3712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3713: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3714: FND_MSG_PUB.Count_And_Get
3715: ( p_encoded => FND_API.G_FALSE
3716: , p_count => x_msg_count
3717: , p_data => x_msg_data
3718: );
3719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3715: ( p_encoded => FND_API.G_FALSE
3716: , p_count => x_msg_count
3717: , p_data => x_msg_data
3718: );
3719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3720: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3721: RAISE;
3722: WHEN NO_DATA_FOUND THEN
3723: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3716: , p_count => x_msg_count
3717: , p_data => x_msg_data
3718: );
3719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3720: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3721: RAISE;
3722: WHEN NO_DATA_FOUND THEN
3723: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3720: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3721: RAISE;
3722: WHEN NO_DATA_FOUND THEN
3723: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3725: IF (x_msg_data IS NOT NULL) THEN
3726: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_User_Access ';
3727: ELSE
3728: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_User_Access ';
3730: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3731: RAISE;
3732: WHEN OTHERS THEN
3733: ROLLBACK TO BscKpiPvt_UptKPIUsrAcc;
3734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3735: IF (x_msg_data IS NOT NULL) THEN
3736: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_User_Access ';
3737: ELSE
3738: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_User_Access ';
3744: /************************************************************************************
3745: ************************************************************************************/
3746:
3747: procedure Delete_Kpi_User_Access(
3748: p_commit IN varchar2 := FND_API.G_FALSE
3749: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3750: ,x_return_status OUT NOCOPY varchar2
3751: ,x_msg_count OUT NOCOPY number
3752: ,x_msg_data OUT NOCOPY varchar2
3755: l_count number;
3756:
3757: begin
3758: FND_MSG_PUB.Initialize;
3759: x_return_status := FND_API.G_RET_STS_SUCCESS;
3760: SAVEPOINT BscKpiPvt_DelKPIUsrAcc;
3761: -- Check that valid id was entered.
3762: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
3763: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
3766: if l_count = 0 then
3767: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3768: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3769: FND_MSG_PUB.ADD;
3770: RAISE FND_API.G_EXC_ERROR;
3771: end if;
3772: else
3773: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3774: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3772: else
3773: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3774: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3775: FND_MSG_PUB.ADD;
3776: RAISE FND_API.G_EXC_ERROR;
3777: end if;
3778:
3779: delete from BSC_USER_KPI_ACCESS
3780: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
3778:
3779: delete from BSC_USER_KPI_ACCESS
3780: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
3781:
3782: if (p_commit = FND_API.G_TRUE) then
3783: commit;
3784: end if;
3785:
3786: EXCEPTION
3783: commit;
3784: end if;
3785:
3786: EXCEPTION
3787: WHEN FND_API.G_EXC_ERROR THEN
3788: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3789: FND_MSG_PUB.Count_And_Get
3790: ( p_encoded => FND_API.G_FALSE
3791: , p_count => x_msg_count
3786: EXCEPTION
3787: WHEN FND_API.G_EXC_ERROR THEN
3788: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3789: FND_MSG_PUB.Count_And_Get
3790: ( p_encoded => FND_API.G_FALSE
3791: , p_count => x_msg_count
3792: , p_data => x_msg_data
3793: );
3794: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3790: ( p_encoded => FND_API.G_FALSE
3791: , p_count => x_msg_count
3792: , p_data => x_msg_data
3793: );
3794: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3795: x_return_status := FND_API.G_RET_STS_ERROR;
3796: RAISE;
3797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3798: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3791: , p_count => x_msg_count
3792: , p_data => x_msg_data
3793: );
3794: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3795: x_return_status := FND_API.G_RET_STS_ERROR;
3796: RAISE;
3797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3798: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3799: FND_MSG_PUB.Count_And_Get
3793: );
3794: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3795: x_return_status := FND_API.G_RET_STS_ERROR;
3796: RAISE;
3797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3798: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3799: FND_MSG_PUB.Count_And_Get
3800: ( p_encoded => FND_API.G_FALSE
3801: , p_count => x_msg_count
3796: RAISE;
3797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3798: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3799: FND_MSG_PUB.Count_And_Get
3800: ( p_encoded => FND_API.G_FALSE
3801: , p_count => x_msg_count
3802: , p_data => x_msg_data
3803: );
3804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3800: ( p_encoded => FND_API.G_FALSE
3801: , p_count => x_msg_count
3802: , p_data => x_msg_data
3803: );
3804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3805: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3806: RAISE;
3807: WHEN NO_DATA_FOUND THEN
3808: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3801: , p_count => x_msg_count
3802: , p_data => x_msg_data
3803: );
3804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3805: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3806: RAISE;
3807: WHEN NO_DATA_FOUND THEN
3808: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3805: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3806: RAISE;
3807: WHEN NO_DATA_FOUND THEN
3808: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3810: IF (x_msg_data IS NOT NULL) THEN
3811: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_User_Access ';
3812: ELSE
3813: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_User_Access ';
3815: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3816: RAISE;
3817: WHEN OTHERS THEN
3818: ROLLBACK TO BscKpiPvt_DelKPIUsrAcc;
3819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3820: IF (x_msg_data IS NOT NULL) THEN
3821: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_User_Access ';
3822: ELSE
3823: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_User_Access ';
3828:
3829: /************************************************************************************
3830: ************************************************************************************/
3831: procedure Create_Kpi_Default_Values(
3832: p_commit IN varchar2 := FND_API.G_FALSE
3833: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
3834: ,x_return_status OUT NOCOPY varchar2
3835: ,x_msg_count OUT NOCOPY number
3836: ,x_msg_data OUT NOCOPY varchar2
3843: l_count number;
3844:
3845: begin
3846: FND_MSG_PUB.Initialize;
3847: x_return_status := FND_API.G_RET_STS_SUCCESS;
3848: SAVEPOINT BscKpiPvt_CrtKPIDefVals;
3849: -- Assign all values in the passed "Record" parameter to the locally defined
3850: -- "Record" variable.
3851: l_Bsc_Kpi_Entity_Rec := p_Bsc_Kpi_Entity_Rec;
3858: if l_count = 0 then
3859: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
3860: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3861: FND_MSG_PUB.ADD;
3862: RAISE FND_API.G_EXC_ERROR;
3863: end if;
3864: else
3865: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3866: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3864: else
3865: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
3866: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
3867: FND_MSG_PUB.ADD;
3868: RAISE FND_API.G_EXC_ERROR;
3869: end if;
3870:
3871: -- If Analysis Option 0 name is null assign default.
3872: if l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Anal_Opt0_Name is null then
3974: WHERE T.indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
3975: AND T.LANGUAGE = L.LANGUAGE_CODE);
3976:
3977:
3978: if (p_commit = FND_API.G_TRUE) then
3979: commit;
3980: end if;
3981:
3982: EXCEPTION
3979: commit;
3980: end if;
3981:
3982: EXCEPTION
3983: WHEN FND_API.G_EXC_ERROR THEN
3984: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
3985: FND_MSG_PUB.Count_And_Get
3986: ( p_encoded => FND_API.G_FALSE
3987: , p_count => x_msg_count
3982: EXCEPTION
3983: WHEN FND_API.G_EXC_ERROR THEN
3984: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
3985: FND_MSG_PUB.Count_And_Get
3986: ( p_encoded => FND_API.G_FALSE
3987: , p_count => x_msg_count
3988: , p_data => x_msg_data
3989: );
3990: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3986: ( p_encoded => FND_API.G_FALSE
3987: , p_count => x_msg_count
3988: , p_data => x_msg_data
3989: );
3990: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3991: x_return_status := FND_API.G_RET_STS_ERROR;
3992: RAISE;
3993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3994: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
3987: , p_count => x_msg_count
3988: , p_data => x_msg_data
3989: );
3990: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3991: x_return_status := FND_API.G_RET_STS_ERROR;
3992: RAISE;
3993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3994: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
3995: FND_MSG_PUB.Count_And_Get
3989: );
3990: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3991: x_return_status := FND_API.G_RET_STS_ERROR;
3992: RAISE;
3993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3994: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
3995: FND_MSG_PUB.Count_And_Get
3996: ( p_encoded => FND_API.G_FALSE
3997: , p_count => x_msg_count
3992: RAISE;
3993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3994: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
3995: FND_MSG_PUB.Count_And_Get
3996: ( p_encoded => FND_API.G_FALSE
3997: , p_count => x_msg_count
3998: , p_data => x_msg_data
3999: );
4000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3996: ( p_encoded => FND_API.G_FALSE
3997: , p_count => x_msg_count
3998: , p_data => x_msg_data
3999: );
4000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4001: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4002: RAISE;
4003: WHEN NO_DATA_FOUND THEN
4004: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
3997: , p_count => x_msg_count
3998: , p_data => x_msg_data
3999: );
4000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4001: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4002: RAISE;
4003: WHEN NO_DATA_FOUND THEN
4004: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
4005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4001: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4002: RAISE;
4003: WHEN NO_DATA_FOUND THEN
4004: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
4005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4006: IF (x_msg_data IS NOT NULL) THEN
4007: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Default_Values ';
4008: ELSE
4009: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Kpi_Default_Values ';
4011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4012: RAISE;
4013: WHEN OTHERS THEN
4014: ROLLBACK TO BscKpiPvt_CrtKPIDefVals;
4015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4016: if (SQLCODE = -01400) then
4017: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
4018: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4019: FND_MSG_PUB.ADD;
4016: if (SQLCODE = -01400) then
4017: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
4018: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4019: FND_MSG_PUB.ADD;
4020: RAISE FND_API.G_EXC_ERROR;
4021: end if;
4022: IF (x_msg_data IS NOT NULL) THEN
4023: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_Default_Values ';
4024: ELSE
4031: /************************************************************************************
4032: ************************************************************************************/
4033:
4034: procedure Retrieve_Kpi_Default_Values(
4035: p_commit IN varchar2 := FND_API.G_FALSE
4036: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4037: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4038: ,x_return_status OUT NOCOPY varchar2
4039: ,x_msg_count OUT NOCOPY number
4043: l_db_object varchar2(30);
4044:
4045: begin
4046: FND_MSG_PUB.Initialize;
4047: x_return_status := FND_API.G_RET_STS_SUCCESS;
4048: l_db_object := 'Retrieve_Kpi_Default_Values';
4049:
4050: select distinct a.tab_id
4051: ,a.format_mask
4130: where a.indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
4131: and a.indicator = b.indicator
4132: and b.language = USERENV('LANG');
4133:
4134: if (p_commit = FND_API.G_TRUE) then
4135: commit;
4136: end if;
4137:
4138: EXCEPTION
4135: commit;
4136: end if;
4137:
4138: EXCEPTION
4139: WHEN FND_API.G_EXC_ERROR THEN
4140: FND_MSG_PUB.Count_And_Get
4141: ( p_encoded => FND_API.G_FALSE
4142: , p_count => x_msg_count
4143: , p_data => x_msg_data
4137:
4138: EXCEPTION
4139: WHEN FND_API.G_EXC_ERROR THEN
4140: FND_MSG_PUB.Count_And_Get
4141: ( p_encoded => FND_API.G_FALSE
4142: , p_count => x_msg_count
4143: , p_data => x_msg_data
4144: );
4145: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4141: ( p_encoded => FND_API.G_FALSE
4142: , p_count => x_msg_count
4143: , p_data => x_msg_data
4144: );
4145: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4146: x_return_status := FND_API.G_RET_STS_ERROR;
4147: RAISE;
4148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4149: FND_MSG_PUB.Count_And_Get
4142: , p_count => x_msg_count
4143: , p_data => x_msg_data
4144: );
4145: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4146: x_return_status := FND_API.G_RET_STS_ERROR;
4147: RAISE;
4148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4149: FND_MSG_PUB.Count_And_Get
4150: ( p_encoded => FND_API.G_FALSE
4144: );
4145: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4146: x_return_status := FND_API.G_RET_STS_ERROR;
4147: RAISE;
4148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4149: FND_MSG_PUB.Count_And_Get
4150: ( p_encoded => FND_API.G_FALSE
4151: , p_count => x_msg_count
4152: , p_data => x_msg_data
4146: x_return_status := FND_API.G_RET_STS_ERROR;
4147: RAISE;
4148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4149: FND_MSG_PUB.Count_And_Get
4150: ( p_encoded => FND_API.G_FALSE
4151: , p_count => x_msg_count
4152: , p_data => x_msg_data
4153: );
4154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4150: ( p_encoded => FND_API.G_FALSE
4151: , p_count => x_msg_count
4152: , p_data => x_msg_data
4153: );
4154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4155: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4156: RAISE;
4157: WHEN NO_DATA_FOUND THEN
4158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4151: , p_count => x_msg_count
4152: , p_data => x_msg_data
4153: );
4154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4155: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4156: RAISE;
4157: WHEN NO_DATA_FOUND THEN
4158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4155: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4156: RAISE;
4157: WHEN NO_DATA_FOUND THEN
4158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4160: FND_MSG_PUB.Initialize;
4161: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
4162: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4160: FND_MSG_PUB.Initialize;
4161: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
4162: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4163: FND_MSG_PUB.ADD;
4164: RAISE FND_API.G_EXC_ERROR;
4165: WHEN OTHERS THEN
4166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4167: IF (x_msg_data IS NOT NULL) THEN
4168: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Default_Values ';
4162: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4163: FND_MSG_PUB.ADD;
4164: RAISE FND_API.G_EXC_ERROR;
4165: WHEN OTHERS THEN
4166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4167: IF (x_msg_data IS NOT NULL) THEN
4168: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_Default_Values ';
4169: ELSE
4170: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi_Default_Values ';
4176: /************************************************************************************
4177: ************************************************************************************/
4178:
4179: procedure Update_Kpi_Default_Values(
4180: p_commit IN varchar2 := FND_API.G_FALSE
4181: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4182: ,x_return_status OUT NOCOPY varchar2
4183: ,x_msg_count OUT NOCOPY number
4184: ,x_msg_data OUT NOCOPY varchar2
4189: l_count number;
4190:
4191: begin
4192: FND_MSG_PUB.Initialize;
4193: x_return_status := FND_API.G_RET_STS_SUCCESS;
4194: SAVEPOINT BscKpiPvt_UpdKPIDefVals;
4195: -- Check that valid id was entered.
4196: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
4197: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
4200: if l_count = 0 then
4201: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4202: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4203: FND_MSG_PUB.ADD;
4204: RAISE FND_API.G_EXC_ERROR;
4205: end if;
4206: else
4207: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4208: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4206: else
4207: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4208: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4209: FND_MSG_PUB.ADD;
4210: RAISE FND_API.G_EXC_ERROR;
4211: end if;
4212:
4213: -- Not all values will be passed. We need to make sure values not passed are not
4214: -- changed by procedure, therefore we get what is there before we do any updates.
4389: ,SOURCE_LANG = userenv('LANG')
4390: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
4391: and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
4392:
4393: if (p_commit = FND_API.G_TRUE) then
4394: commit;
4395: end if;
4396:
4397: EXCEPTION
4394: commit;
4395: end if;
4396:
4397: EXCEPTION
4398: WHEN FND_API.G_EXC_ERROR THEN
4399: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4400: FND_MSG_PUB.Count_And_Get
4401: ( p_encoded => FND_API.G_FALSE
4402: , p_count => x_msg_count
4397: EXCEPTION
4398: WHEN FND_API.G_EXC_ERROR THEN
4399: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4400: FND_MSG_PUB.Count_And_Get
4401: ( p_encoded => FND_API.G_FALSE
4402: , p_count => x_msg_count
4403: , p_data => x_msg_data
4404: );
4405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4401: ( p_encoded => FND_API.G_FALSE
4402: , p_count => x_msg_count
4403: , p_data => x_msg_data
4404: );
4405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4406: x_return_status := FND_API.G_RET_STS_ERROR;
4407: RAISE;
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4402: , p_count => x_msg_count
4403: , p_data => x_msg_data
4404: );
4405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4406: x_return_status := FND_API.G_RET_STS_ERROR;
4407: RAISE;
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4410: FND_MSG_PUB.Count_And_Get
4404: );
4405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4406: x_return_status := FND_API.G_RET_STS_ERROR;
4407: RAISE;
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4410: FND_MSG_PUB.Count_And_Get
4411: ( p_encoded => FND_API.G_FALSE
4412: , p_count => x_msg_count
4407: RAISE;
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4410: FND_MSG_PUB.Count_And_Get
4411: ( p_encoded => FND_API.G_FALSE
4412: , p_count => x_msg_count
4413: , p_data => x_msg_data
4414: );
4415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4411: ( p_encoded => FND_API.G_FALSE
4412: , p_count => x_msg_count
4413: , p_data => x_msg_data
4414: );
4415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4416: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4417: RAISE;
4418: WHEN NO_DATA_FOUND THEN
4419: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4412: , p_count => x_msg_count
4413: , p_data => x_msg_data
4414: );
4415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4416: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4417: RAISE;
4418: WHEN NO_DATA_FOUND THEN
4419: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4416: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4417: RAISE;
4418: WHEN NO_DATA_FOUND THEN
4419: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4421: IF (x_msg_data IS NOT NULL) THEN
4422: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Default_Values ';
4423: ELSE
4424: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Default_Values ';
4426: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4427: RAISE;
4428: WHEN OTHERS THEN
4429: ROLLBACK TO BscKpiPvt_UpdKPIDefVals;
4430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4431: IF (x_msg_data IS NOT NULL) THEN
4432: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Default_Values ';
4433: ELSE
4434: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Default_Values ';
4441: /************************************************************************************
4442: ************************************************************************************/
4443:
4444: procedure Delete_Kpi_Default_Values(
4445: p_commit IN varchar2 := FND_API.G_FALSE
4446: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4447: ,x_return_status OUT NOCOPY varchar2
4448: ,x_msg_count OUT NOCOPY number
4449: ,x_msg_data OUT NOCOPY varchar2
4452: l_count number;
4453:
4454: begin
4455: FND_MSG_PUB.Initialize;
4456: x_return_status := FND_API.G_RET_STS_SUCCESS;
4457: SAVEPOINT BscKpiPvt_DelKPIDefVals;
4458: -- Check that valid id was entered.
4459: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
4460: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
4463: if l_count = 0 then
4464: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4465: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4466: FND_MSG_PUB.ADD;
4467: RAISE FND_API.G_EXC_ERROR;
4468: end if;
4469: else
4470: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4471: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4469: else
4470: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4471: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4472: FND_MSG_PUB.ADD;
4473: RAISE FND_API.G_EXC_ERROR;
4474: end if;
4475:
4476: delete from BSC_KPI_DEFAULTS_B
4477: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
4478:
4479: delete from BSC_KPI_DEFAULTS_TL
4480: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
4481:
4482: if (p_commit = FND_API.G_TRUE) then
4483: commit;
4484: end if;
4485:
4486: EXCEPTION
4483: commit;
4484: end if;
4485:
4486: EXCEPTION
4487: WHEN FND_API.G_EXC_ERROR THEN
4488: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4489: FND_MSG_PUB.Count_And_Get
4490: ( p_encoded => FND_API.G_FALSE
4491: , p_count => x_msg_count
4486: EXCEPTION
4487: WHEN FND_API.G_EXC_ERROR THEN
4488: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4489: FND_MSG_PUB.Count_And_Get
4490: ( p_encoded => FND_API.G_FALSE
4491: , p_count => x_msg_count
4492: , p_data => x_msg_data
4493: );
4494: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4490: ( p_encoded => FND_API.G_FALSE
4491: , p_count => x_msg_count
4492: , p_data => x_msg_data
4493: );
4494: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4495: x_return_status := FND_API.G_RET_STS_ERROR;
4496: RAISE;
4497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4498: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4491: , p_count => x_msg_count
4492: , p_data => x_msg_data
4493: );
4494: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4495: x_return_status := FND_API.G_RET_STS_ERROR;
4496: RAISE;
4497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4498: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4499: FND_MSG_PUB.Count_And_Get
4493: );
4494: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4495: x_return_status := FND_API.G_RET_STS_ERROR;
4496: RAISE;
4497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4498: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4499: FND_MSG_PUB.Count_And_Get
4500: ( p_encoded => FND_API.G_FALSE
4501: , p_count => x_msg_count
4496: RAISE;
4497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4498: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4499: FND_MSG_PUB.Count_And_Get
4500: ( p_encoded => FND_API.G_FALSE
4501: , p_count => x_msg_count
4502: , p_data => x_msg_data
4503: );
4504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4500: ( p_encoded => FND_API.G_FALSE
4501: , p_count => x_msg_count
4502: , p_data => x_msg_data
4503: );
4504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4505: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4506: RAISE;
4507: WHEN NO_DATA_FOUND THEN
4508: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4501: , p_count => x_msg_count
4502: , p_data => x_msg_data
4503: );
4504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4505: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4506: RAISE;
4507: WHEN NO_DATA_FOUND THEN
4508: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4505: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4506: RAISE;
4507: WHEN NO_DATA_FOUND THEN
4508: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4510: IF (x_msg_data IS NOT NULL) THEN
4511: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Default_Values ';
4512: ELSE
4513: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Default_Values ';
4515: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4516: RAISE;
4517: WHEN OTHERS THEN
4518: ROLLBACK TO BscKpiPvt_DelKPIDefVals;
4519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4520: IF (x_msg_data IS NOT NULL) THEN
4521: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_Default_Values ';
4522: ELSE
4523: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_Default_Values ';
4529: /************************************************************************************
4530: ************************************************************************************/
4531:
4532: procedure Create_Kpi_In_Tab(
4533: p_commit IN varchar2 := FND_API.G_FALSE
4534: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4535: ,x_return_status OUT NOCOPY varchar2
4536: ,x_msg_count OUT NOCOPY number
4537: ,x_msg_data OUT NOCOPY varchar2
4546:
4547: begin
4548: --DBMS_OUTPUT.PUT_LINE('-- Begin BSC_KPI_PVT.Create_Kpi_In_Tab');
4549: FND_MSG_PUB.Initialize;
4550: x_return_status := FND_API.G_RET_STS_SUCCESS;
4551: SAVEPOINT BscKpiPvt_CrtKPIInTab;
4552: -- Assign passed records to local record.
4553: l_Bsc_Kpi_Entity_Rec := p_Bsc_Kpi_Entity_Rec;
4554: --DBMS_OUTPUT.PUT_LINE('l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Prototype_Flag = ' || l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Prototype_Flag);
4561: if l_count = 0 then
4562: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4563: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4564: FND_MSG_PUB.ADD;
4565: RAISE FND_API.G_EXC_ERROR;
4566: end if;
4567: else
4568: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4569: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4567: else
4568: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4569: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4570: FND_MSG_PUB.ADD;
4571: RAISE FND_API.G_EXC_ERROR;
4572: end if;
4573:
4574: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Create_Kpi_In_Tab - Flag 1');
4575:
4585: if l_count = 0 then
4586: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
4587: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
4588: FND_MSG_PUB.ADD;
4589: RAISE FND_API.G_EXC_ERROR;
4590: end if;
4591: else
4592: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
4593: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
4591: else
4592: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
4593: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
4594: FND_MSG_PUB.ADD;
4595: RAISE FND_API.G_EXC_ERROR;
4596: end if;
4597: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Create_Kpi_In_Tab - Flag 4');
4598:
4599:
4685: ,x_msg_count
4686: ,x_msg_data);
4687:
4688:
4689: if (p_commit = FND_API.G_TRUE) then
4690: commit;
4691: end if;
4692:
4693: --DBMS_OUTPUT.PUT_LINE(' -- End BSC_KPI_PVT.Create_Kpi_In_Tab');
4693: --DBMS_OUTPUT.PUT_LINE(' -- End BSC_KPI_PVT.Create_Kpi_In_Tab');
4694:
4695:
4696: EXCEPTION
4697: WHEN FND_API.G_EXC_ERROR THEN
4698: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4699: FND_MSG_PUB.Count_And_Get
4700: ( p_encoded => FND_API.G_FALSE
4701: , p_count => x_msg_count
4696: EXCEPTION
4697: WHEN FND_API.G_EXC_ERROR THEN
4698: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4699: FND_MSG_PUB.Count_And_Get
4700: ( p_encoded => FND_API.G_FALSE
4701: , p_count => x_msg_count
4702: , p_data => x_msg_data
4703: );
4704: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4700: ( p_encoded => FND_API.G_FALSE
4701: , p_count => x_msg_count
4702: , p_data => x_msg_data
4703: );
4704: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4705: x_return_status := FND_API.G_RET_STS_ERROR;
4706: RAISE;
4707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4708: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4701: , p_count => x_msg_count
4702: , p_data => x_msg_data
4703: );
4704: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4705: x_return_status := FND_API.G_RET_STS_ERROR;
4706: RAISE;
4707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4708: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4709: FND_MSG_PUB.Count_And_Get
4703: );
4704: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4705: x_return_status := FND_API.G_RET_STS_ERROR;
4706: RAISE;
4707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4708: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4709: FND_MSG_PUB.Count_And_Get
4710: ( p_encoded => FND_API.G_FALSE
4711: , p_count => x_msg_count
4706: RAISE;
4707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4708: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4709: FND_MSG_PUB.Count_And_Get
4710: ( p_encoded => FND_API.G_FALSE
4711: , p_count => x_msg_count
4712: , p_data => x_msg_data
4713: );
4714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4710: ( p_encoded => FND_API.G_FALSE
4711: , p_count => x_msg_count
4712: , p_data => x_msg_data
4713: );
4714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4715: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4716: RAISE;
4717: WHEN NO_DATA_FOUND THEN
4718: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4711: , p_count => x_msg_count
4712: , p_data => x_msg_data
4713: );
4714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4715: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4716: RAISE;
4717: WHEN NO_DATA_FOUND THEN
4718: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4715: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4716: RAISE;
4717: WHEN NO_DATA_FOUND THEN
4718: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4720: IF (x_msg_data IS NOT NULL) THEN
4721: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_In_Tab ';
4722: ELSE
4723: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Kpi_In_Tab ';
4725: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4726: RAISE;
4727: WHEN OTHERS THEN
4728: ROLLBACK TO BscKpiPvt_CrtKPIInTab;
4729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4730: if (SQLCODE = -01400) then
4731: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
4732: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4733: FND_MSG_PUB.ADD;
4730: if (SQLCODE = -01400) then
4731: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
4732: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4733: FND_MSG_PUB.ADD;
4734: RAISE FND_API.G_EXC_ERROR;
4735: end if;
4736: IF (x_msg_data IS NOT NULL) THEN
4737: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Kpi_In_Tab ';
4738: ELSE
4745: /************************************************************************************
4746: ************************************************************************************/
4747:
4748: procedure Retrieve_Kpi_In_Tab(
4749: p_commit IN varchar2 := FND_API.G_FALSE
4750: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4751: ,x_Bsc_Kpi_Entity_Rec IN OUT NOCOPY BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4752: ,x_return_status OUT NOCOPY varchar2
4753: ,x_msg_count OUT NOCOPY number
4757: l_db_object varchar2(30);
4758:
4759: begin
4760: FND_MSG_PUB.Initialize;
4761: x_return_status := FND_API.G_RET_STS_SUCCESS;
4762: l_db_object := 'Retrieve_Kpi_In_Tab';
4763:
4764: select distinct tab_id
4765: ,bsc_model_flag
4781: from BSC_TAB_INDICATORS
4782: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
4783:
4784:
4785: if (p_commit = FND_API.G_TRUE) then
4786: commit;
4787: end if;
4788:
4789: EXCEPTION
4786: commit;
4787: end if;
4788:
4789: EXCEPTION
4790: WHEN FND_API.G_EXC_ERROR THEN
4791: FND_MSG_PUB.Count_And_Get
4792: ( p_encoded => FND_API.G_FALSE
4793: , p_count => x_msg_count
4794: , p_data => x_msg_data
4788:
4789: EXCEPTION
4790: WHEN FND_API.G_EXC_ERROR THEN
4791: FND_MSG_PUB.Count_And_Get
4792: ( p_encoded => FND_API.G_FALSE
4793: , p_count => x_msg_count
4794: , p_data => x_msg_data
4795: );
4796: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4792: ( p_encoded => FND_API.G_FALSE
4793: , p_count => x_msg_count
4794: , p_data => x_msg_data
4795: );
4796: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4797: x_return_status := FND_API.G_RET_STS_ERROR;
4798: RAISE;
4799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4800: FND_MSG_PUB.Count_And_Get
4793: , p_count => x_msg_count
4794: , p_data => x_msg_data
4795: );
4796: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4797: x_return_status := FND_API.G_RET_STS_ERROR;
4798: RAISE;
4799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4800: FND_MSG_PUB.Count_And_Get
4801: ( p_encoded => FND_API.G_FALSE
4795: );
4796: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4797: x_return_status := FND_API.G_RET_STS_ERROR;
4798: RAISE;
4799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4800: FND_MSG_PUB.Count_And_Get
4801: ( p_encoded => FND_API.G_FALSE
4802: , p_count => x_msg_count
4803: , p_data => x_msg_data
4797: x_return_status := FND_API.G_RET_STS_ERROR;
4798: RAISE;
4799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4800: FND_MSG_PUB.Count_And_Get
4801: ( p_encoded => FND_API.G_FALSE
4802: , p_count => x_msg_count
4803: , p_data => x_msg_data
4804: );
4805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4801: ( p_encoded => FND_API.G_FALSE
4802: , p_count => x_msg_count
4803: , p_data => x_msg_data
4804: );
4805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4806: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4807: RAISE;
4808: WHEN NO_DATA_FOUND THEN
4809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4802: , p_count => x_msg_count
4803: , p_data => x_msg_data
4804: );
4805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4806: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4807: RAISE;
4808: WHEN NO_DATA_FOUND THEN
4809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4810: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4806: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4807: RAISE;
4808: WHEN NO_DATA_FOUND THEN
4809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4810: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4811: FND_MSG_PUB.Initialize;
4812: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
4813: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4811: FND_MSG_PUB.Initialize;
4812: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
4813: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4814: FND_MSG_PUB.ADD;
4815: RAISE FND_API.G_EXC_ERROR;
4816: WHEN OTHERS THEN
4817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4818: IF (x_msg_data IS NOT NULL) THEN
4819: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_In_Tab ';
4813: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', l_db_object);
4814: FND_MSG_PUB.ADD;
4815: RAISE FND_API.G_EXC_ERROR;
4816: WHEN OTHERS THEN
4817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4818: IF (x_msg_data IS NOT NULL) THEN
4819: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Retrieve_Kpi_In_Tab ';
4820: ELSE
4821: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Retrieve_Kpi_In_Tab ';
4827: /************************************************************************************
4828: ************************************************************************************/
4829:
4830: procedure Update_Kpi_In_Tab(
4831: p_commit IN varchar2 := FND_API.G_FALSE
4832: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4833: ,x_return_status OUT NOCOPY varchar2
4834: ,x_msg_count OUT NOCOPY number
4835: ,x_msg_data OUT NOCOPY varchar2
4838: l_count number;
4839:
4840: begin
4841: FND_MSG_PUB.Initialize;
4842: x_return_status := FND_API.G_RET_STS_SUCCESS;
4843: SAVEPOINT BscKpiPvt_UpdKPIInTab;
4844: --DBMS_OUTPUT.PUT_LINE(' -- Begin BSC_KPI_PVT.Update_Kpi_In_Tab');
4845:
4846: -- Check that valid id was entered.
4851: if l_count = 0 then
4852: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4853: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4854: FND_MSG_PUB.ADD;
4855: RAISE FND_API.G_EXC_ERROR;
4856: end if;
4857: else
4858: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4859: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4857: else
4858: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4859: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4860: FND_MSG_PUB.ADD;
4861: RAISE FND_API.G_EXC_ERROR;
4862: end if;
4863:
4864: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Update_Kpi_In_Tab - Flag 1');
4865: --DBMS_OUTPUT.PUT_LINE(' p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Prototype_Flag = ' || p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Prototype_Flag);
4891: set default_value = 'T'
4892: where (default_value like 'D%')
4893: and indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
4894:
4895: if (p_commit = FND_API.G_TRUE) then
4896: commit;
4897: end if;
4898:
4899: --DBMS_OUTPUT.PUT_LINE(' -- End BSC_KPI_PVT.Update_Kpi_In_Tab ');
4898:
4899: --DBMS_OUTPUT.PUT_LINE(' -- End BSC_KPI_PVT.Update_Kpi_In_Tab ');
4900:
4901: EXCEPTION
4902: WHEN FND_API.G_EXC_ERROR THEN
4903: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4904: FND_MSG_PUB.Count_And_Get
4905: ( p_encoded => FND_API.G_FALSE
4906: , p_count => x_msg_count
4901: EXCEPTION
4902: WHEN FND_API.G_EXC_ERROR THEN
4903: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4904: FND_MSG_PUB.Count_And_Get
4905: ( p_encoded => FND_API.G_FALSE
4906: , p_count => x_msg_count
4907: , p_data => x_msg_data
4908: );
4909: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4905: ( p_encoded => FND_API.G_FALSE
4906: , p_count => x_msg_count
4907: , p_data => x_msg_data
4908: );
4909: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4910: x_return_status := FND_API.G_RET_STS_ERROR;
4911: RAISE;
4912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4913: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4906: , p_count => x_msg_count
4907: , p_data => x_msg_data
4908: );
4909: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4910: x_return_status := FND_API.G_RET_STS_ERROR;
4911: RAISE;
4912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4913: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4914: FND_MSG_PUB.Count_And_Get
4908: );
4909: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4910: x_return_status := FND_API.G_RET_STS_ERROR;
4911: RAISE;
4912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4913: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4914: FND_MSG_PUB.Count_And_Get
4915: ( p_encoded => FND_API.G_FALSE
4916: , p_count => x_msg_count
4911: RAISE;
4912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4913: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4914: FND_MSG_PUB.Count_And_Get
4915: ( p_encoded => FND_API.G_FALSE
4916: , p_count => x_msg_count
4917: , p_data => x_msg_data
4918: );
4919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4915: ( p_encoded => FND_API.G_FALSE
4916: , p_count => x_msg_count
4917: , p_data => x_msg_data
4918: );
4919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4920: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4921: RAISE;
4922: WHEN NO_DATA_FOUND THEN
4923: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4916: , p_count => x_msg_count
4917: , p_data => x_msg_data
4918: );
4919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4920: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4921: RAISE;
4922: WHEN NO_DATA_FOUND THEN
4923: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4920: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4921: RAISE;
4922: WHEN NO_DATA_FOUND THEN
4923: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4925: IF (x_msg_data IS NOT NULL) THEN
4926: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_In_Tab ';
4927: ELSE
4928: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_In_Tab ';
4930: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4931: RAISE;
4932: WHEN OTHERS THEN
4933: ROLLBACK TO BscKpiPvt_UpdKPIInTab;
4934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4935: IF (x_msg_data IS NOT NULL) THEN
4936: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_In_Tab ';
4937: ELSE
4938: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_In_Tab ';
4945: /************************************************************************************
4946: ************************************************************************************/
4947:
4948: procedure Delete_Kpi_In_Tab(
4949: p_commit IN varchar2 := FND_API.G_FALSE
4950: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
4951: ,x_return_status OUT NOCOPY varchar2
4952: ,x_msg_count OUT NOCOPY number
4953: ,x_msg_data OUT NOCOPY varchar2
4956: l_count number;
4957:
4958: begin
4959: FND_MSG_PUB.Initialize;
4960: x_return_status := FND_API.G_RET_STS_SUCCESS;
4961: SAVEPOINT BscKpiPvt_DelKPIInTab;
4962: -- Check that valid id was entered.
4963: if p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id is not null then
4964: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_KPIS_B'
4967: if l_count = 0 then
4968: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
4969: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4970: FND_MSG_PUB.ADD;
4971: RAISE FND_API.G_EXC_ERROR;
4972: end if;
4973: else
4974: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4975: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4973: else
4974: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
4975: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
4976: FND_MSG_PUB.ADD;
4977: RAISE FND_API.G_EXC_ERROR;
4978: end if;
4979:
4980: delete from BSC_TAB_INDICATORS
4981: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
4981: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
4982: -- Reminder: Check to see if tab id needs to be specified.
4983: -- and tab_id = p_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id;
4984:
4985: if (p_commit = FND_API.G_TRUE) then
4986: commit;
4987: end if;
4988:
4989: EXCEPTION
4986: commit;
4987: end if;
4988:
4989: EXCEPTION
4990: WHEN FND_API.G_EXC_ERROR THEN
4991: ROLLBACK TO BscKpiPvt_DelKPIInTab;
4992: FND_MSG_PUB.Count_And_Get
4993: ( p_encoded => FND_API.G_FALSE
4994: , p_count => x_msg_count
4989: EXCEPTION
4990: WHEN FND_API.G_EXC_ERROR THEN
4991: ROLLBACK TO BscKpiPvt_DelKPIInTab;
4992: FND_MSG_PUB.Count_And_Get
4993: ( p_encoded => FND_API.G_FALSE
4994: , p_count => x_msg_count
4995: , p_data => x_msg_data
4996: );
4997: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4993: ( p_encoded => FND_API.G_FALSE
4994: , p_count => x_msg_count
4995: , p_data => x_msg_data
4996: );
4997: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4998: x_return_status := FND_API.G_RET_STS_ERROR;
4999: RAISE;
5000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5001: ROLLBACK TO BscKpiPvt_DelKPIInTab;
4994: , p_count => x_msg_count
4995: , p_data => x_msg_data
4996: );
4997: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4998: x_return_status := FND_API.G_RET_STS_ERROR;
4999: RAISE;
5000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5001: ROLLBACK TO BscKpiPvt_DelKPIInTab;
5002: FND_MSG_PUB.Count_And_Get
4996: );
4997: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4998: x_return_status := FND_API.G_RET_STS_ERROR;
4999: RAISE;
5000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5001: ROLLBACK TO BscKpiPvt_DelKPIInTab;
5002: FND_MSG_PUB.Count_And_Get
5003: ( p_encoded => FND_API.G_FALSE
5004: , p_count => x_msg_count
4999: RAISE;
5000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5001: ROLLBACK TO BscKpiPvt_DelKPIInTab;
5002: FND_MSG_PUB.Count_And_Get
5003: ( p_encoded => FND_API.G_FALSE
5004: , p_count => x_msg_count
5005: , p_data => x_msg_data
5006: );
5007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5003: ( p_encoded => FND_API.G_FALSE
5004: , p_count => x_msg_count
5005: , p_data => x_msg_data
5006: );
5007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5008: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5009: RAISE;
5010: WHEN NO_DATA_FOUND THEN
5011: ROLLBACK TO BscKpiPvt_DelKPIInTab;
5004: , p_count => x_msg_count
5005: , p_data => x_msg_data
5006: );
5007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5008: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5009: RAISE;
5010: WHEN NO_DATA_FOUND THEN
5011: ROLLBACK TO BscKpiPvt_DelKPIInTab;
5012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5008: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5009: RAISE;
5010: WHEN NO_DATA_FOUND THEN
5011: ROLLBACK TO BscKpiPvt_DelKPIInTab;
5012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5013: IF (x_msg_data IS NOT NULL) THEN
5014: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_In_Tab ';
5015: ELSE
5016: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_In_Tab ';
5018: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5019: RAISE;
5020: WHEN OTHERS THEN
5021: ROLLBACK TO BscKpiPvt_DelKPIInTab;
5022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5023: IF (x_msg_data IS NOT NULL) THEN
5024: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Kpi_In_Tab ';
5025: ELSE
5026: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Kpi_In_Tab ';
5033: /************************************************************************************
5034: ************************************************************************************/
5035:
5036: procedure Update_Kpi_Time_Stamp(
5037: p_commit IN varchar2 := FND_API.G_FALSE
5038: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5039: ,x_return_status OUT NOCOPY varchar2
5040: ,x_msg_count OUT NOCOPY number
5041: ,x_msg_data OUT NOCOPY varchar2
5042: ) is
5043:
5044: begin
5045: FND_MSG_PUB.Initialize;
5046: x_return_status := FND_API.G_RET_STS_SUCCESS;
5047: SAVEPOINT BscKpiPvt_UptKPITimSta;
5048: update BSC_KPIS_B
5049: set last_update_date = sysdate
5050: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
5048: update BSC_KPIS_B
5049: set last_update_date = sysdate
5050: where indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
5051:
5052: if (p_commit = FND_API.G_TRUE) then
5053: commit;
5054: end if;
5055:
5056: EXCEPTION
5053: commit;
5054: end if;
5055:
5056: EXCEPTION
5057: WHEN FND_API.G_EXC_ERROR THEN
5058: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5059: FND_MSG_PUB.Count_And_Get
5060: ( p_encoded => FND_API.G_FALSE
5061: , p_count => x_msg_count
5056: EXCEPTION
5057: WHEN FND_API.G_EXC_ERROR THEN
5058: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5059: FND_MSG_PUB.Count_And_Get
5060: ( p_encoded => FND_API.G_FALSE
5061: , p_count => x_msg_count
5062: , p_data => x_msg_data
5063: );
5064: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5060: ( p_encoded => FND_API.G_FALSE
5061: , p_count => x_msg_count
5062: , p_data => x_msg_data
5063: );
5064: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5065: x_return_status := FND_API.G_RET_STS_ERROR;
5066: RAISE;
5067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5068: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5061: , p_count => x_msg_count
5062: , p_data => x_msg_data
5063: );
5064: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5065: x_return_status := FND_API.G_RET_STS_ERROR;
5066: RAISE;
5067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5068: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5069: FND_MSG_PUB.Count_And_Get
5063: );
5064: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5065: x_return_status := FND_API.G_RET_STS_ERROR;
5066: RAISE;
5067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5068: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5069: FND_MSG_PUB.Count_And_Get
5070: ( p_encoded => FND_API.G_FALSE
5071: , p_count => x_msg_count
5066: RAISE;
5067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5068: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5069: FND_MSG_PUB.Count_And_Get
5070: ( p_encoded => FND_API.G_FALSE
5071: , p_count => x_msg_count
5072: , p_data => x_msg_data
5073: );
5074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5070: ( p_encoded => FND_API.G_FALSE
5071: , p_count => x_msg_count
5072: , p_data => x_msg_data
5073: );
5074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5075: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5076: RAISE;
5077: WHEN NO_DATA_FOUND THEN
5078: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5071: , p_count => x_msg_count
5072: , p_data => x_msg_data
5073: );
5074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5075: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5076: RAISE;
5077: WHEN NO_DATA_FOUND THEN
5078: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5075: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5076: RAISE;
5077: WHEN NO_DATA_FOUND THEN
5078: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5080: IF (x_msg_data IS NOT NULL) THEN
5081: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Time_Stamp ';
5082: ELSE
5083: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Time_Stamp ';
5085: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5086: RAISE;
5087: WHEN OTHERS THEN
5088: ROLLBACK TO BscKpiPvt_UptKPITimSta;
5089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5090: IF (x_msg_data IS NOT NULL) THEN
5091: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Update_Kpi_Time_Stamp ';
5092: ELSE
5093: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Update_Kpi_Time_Stamp ';
5099: /************************************************************************************
5100: ************************************************************************************/
5101:
5102: procedure Create_Master_Kpi(
5103: p_commit IN varchar2 := FND_API.G_FALSE
5104: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5105: ,x_return_status OUT NOCOPY varchar2
5106: ,x_msg_count OUT NOCOPY number
5107: ,x_msg_data OUT NOCOPY varchar2
5120:
5121:
5122: begin
5123: FND_MSG_PUB.Initialize;
5124: x_return_status := FND_API.G_RET_STS_SUCCESS;
5125: SAVEPOINT BscKpiPvt_CrtMastKPI;
5126: --DBMS_OUTPUT.PUT_LINE('-- Begin BSC_KPI_PVT.Create_Master_Kpi');
5127:
5128: -- Check that valid id was entered.
5133: if l_count = 0 then
5134: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
5135: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
5136: FND_MSG_PUB.ADD;
5137: RAISE FND_API.G_EXC_ERROR;
5138: end if;
5139: else
5140: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
5141: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
5139: else
5140: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
5141: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
5142: FND_MSG_PUB.ADD;
5143: RAISE FND_API.G_EXC_ERROR;
5144: end if;
5145:
5146: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Create_Master_Kpi Flag 1');
5147:
5157: if l_count = 0 then
5158: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
5159: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
5160: FND_MSG_PUB.ADD;
5161: RAISE FND_API.G_EXC_ERROR;
5162: end if;
5163: else
5164: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
5165: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
5163: else
5164: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
5165: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id);
5166: FND_MSG_PUB.ADD;
5167: RAISE FND_API.G_EXC_ERROR;
5168: end if;
5169: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Create_Master_Kpi Flag 4');
5170:
5171:
5207: where indicator = l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
5208:
5209: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Create_Master_Kpi Flag 10');
5210:
5211: if (p_commit = FND_API.G_TRUE) then
5212: commit;
5213: end if;
5214:
5215: --DBMS_OUTPUT.PUT_LINE('-- End BSC_KPI_PVT.Create_Master_Kpi');
5215: --DBMS_OUTPUT.PUT_LINE('-- End BSC_KPI_PVT.Create_Master_Kpi');
5216:
5217:
5218: EXCEPTION
5219: WHEN FND_API.G_EXC_ERROR THEN
5220: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5221: FND_MSG_PUB.Count_And_Get
5222: ( p_encoded => FND_API.G_FALSE
5223: , p_count => x_msg_count
5218: EXCEPTION
5219: WHEN FND_API.G_EXC_ERROR THEN
5220: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5221: FND_MSG_PUB.Count_And_Get
5222: ( p_encoded => FND_API.G_FALSE
5223: , p_count => x_msg_count
5224: , p_data => x_msg_data
5225: );
5226: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5222: ( p_encoded => FND_API.G_FALSE
5223: , p_count => x_msg_count
5224: , p_data => x_msg_data
5225: );
5226: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5227: x_return_status := FND_API.G_RET_STS_ERROR;
5228: RAISE;
5229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5230: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5223: , p_count => x_msg_count
5224: , p_data => x_msg_data
5225: );
5226: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5227: x_return_status := FND_API.G_RET_STS_ERROR;
5228: RAISE;
5229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5230: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5231: FND_MSG_PUB.Count_And_Get
5225: );
5226: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5227: x_return_status := FND_API.G_RET_STS_ERROR;
5228: RAISE;
5229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5230: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5231: FND_MSG_PUB.Count_And_Get
5232: ( p_encoded => FND_API.G_FALSE
5233: , p_count => x_msg_count
5228: RAISE;
5229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5230: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5231: FND_MSG_PUB.Count_And_Get
5232: ( p_encoded => FND_API.G_FALSE
5233: , p_count => x_msg_count
5234: , p_data => x_msg_data
5235: );
5236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5232: ( p_encoded => FND_API.G_FALSE
5233: , p_count => x_msg_count
5234: , p_data => x_msg_data
5235: );
5236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5237: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5238: RAISE;
5239: WHEN NO_DATA_FOUND THEN
5240: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5233: , p_count => x_msg_count
5234: , p_data => x_msg_data
5235: );
5236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5237: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5238: RAISE;
5239: WHEN NO_DATA_FOUND THEN
5240: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5237: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5238: RAISE;
5239: WHEN NO_DATA_FOUND THEN
5240: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5242: IF (x_msg_data IS NOT NULL) THEN
5243: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Master_Kpi ';
5244: ELSE
5245: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Master_Kpi ';
5247: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5248: RAISE;
5249: WHEN OTHERS THEN
5250: ROLLBACK TO BscKpiPvt_CrtMastKPI;
5251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5252: IF (x_msg_data IS NOT NULL) THEN
5253: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Master_Kpi ';
5254: ELSE
5255: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Master_Kpi ';
5260:
5261: /************************************************************************************
5262: ************************************************************************************/
5263: procedure Create_Shared_Kpi(
5264: p_commit IN varchar2 := FND_API.G_FALSE
5265: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5266: ,x_return_status OUT NOCOPY varchar2
5267: ,x_msg_count OUT NOCOPY number
5268: ,x_msg_data OUT NOCOPY varchar2
5308:
5309:
5310: begin
5311: FND_MSG_PUB.Initialize;
5312: x_return_status := FND_API.G_RET_STS_SUCCESS;
5313: SAVEPOINT BscKpiPvt_CrtShaKPI;
5314: --DBMS_OUTPUT.PUT_LINE('-- Begin BSC_KPI_PVT.Create_Shared_Kpi');
5315:
5316: -- set the local RECORD equal to the passed RECORD.
5350: if l_count = 0 then
5351: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KGROUP_ID');
5352: FND_MESSAGE.SET_TOKEN('BSC_KGROUP',l_x_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id);
5353: FND_MSG_PUB.ADD;
5354: RAISE FND_API.G_EXC_ERROR;
5355: end if;
5356: else
5357: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KGROUP_ID_ENTERED');
5358: FND_MSG_PUB.ADD;
5355: end if;
5356: else
5357: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KGROUP_ID_ENTERED');
5358: FND_MSG_PUB.ADD;
5359: RAISE FND_API.G_EXC_ERROR;
5360: end if;
5361: l_x_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Share_Flag := 2;
5362: Create_Kpi( p_commit
5363: ,l_x_Bsc_Kpi_Entity_Rec
5436: ,x_return_status => x_return_status
5437: ,x_msg_count => x_msg_count
5438: ,x_msg_data => x_msg_data
5439: );
5440: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5442: END IF;
5443: END IF;
5444:
5437: ,x_msg_count => x_msg_count
5438: ,x_msg_data => x_msg_data
5439: );
5440: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5442: END IF;
5443: END IF;
5444:
5445:
5518: ,x_msg_data);*/
5519:
5520:
5521:
5522: if (p_commit = FND_API.G_TRUE) then
5523: commit;
5524: end if;
5525:
5526: --DBMS_OUTPUT.PUT_LINE('-- End BSC_KPI_PVT.Create_Shared_Kpi');
5525:
5526: --DBMS_OUTPUT.PUT_LINE('-- End BSC_KPI_PVT.Create_Shared_Kpi');
5527:
5528: EXCEPTION
5529: WHEN FND_API.G_EXC_ERROR THEN
5530: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5531: FND_MSG_PUB.Count_And_Get
5532: ( p_encoded => FND_API.G_FALSE
5533: , p_count => x_msg_count
5528: EXCEPTION
5529: WHEN FND_API.G_EXC_ERROR THEN
5530: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5531: FND_MSG_PUB.Count_And_Get
5532: ( p_encoded => FND_API.G_FALSE
5533: , p_count => x_msg_count
5534: , p_data => x_msg_data
5535: );
5536: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5532: ( p_encoded => FND_API.G_FALSE
5533: , p_count => x_msg_count
5534: , p_data => x_msg_data
5535: );
5536: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5537: x_return_status := FND_API.G_RET_STS_ERROR;
5538: RAISE;
5539: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5540: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5533: , p_count => x_msg_count
5534: , p_data => x_msg_data
5535: );
5536: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5537: x_return_status := FND_API.G_RET_STS_ERROR;
5538: RAISE;
5539: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5540: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5541: FND_MSG_PUB.Count_And_Get
5535: );
5536: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5537: x_return_status := FND_API.G_RET_STS_ERROR;
5538: RAISE;
5539: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5540: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5541: FND_MSG_PUB.Count_And_Get
5542: ( p_encoded => FND_API.G_FALSE
5543: , p_count => x_msg_count
5538: RAISE;
5539: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5540: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5541: FND_MSG_PUB.Count_And_Get
5542: ( p_encoded => FND_API.G_FALSE
5543: , p_count => x_msg_count
5544: , p_data => x_msg_data
5545: );
5546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5542: ( p_encoded => FND_API.G_FALSE
5543: , p_count => x_msg_count
5544: , p_data => x_msg_data
5545: );
5546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5547: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5548: RAISE;
5549: WHEN NO_DATA_FOUND THEN
5550: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5543: , p_count => x_msg_count
5544: , p_data => x_msg_data
5545: );
5546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5547: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5548: RAISE;
5549: WHEN NO_DATA_FOUND THEN
5550: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5547: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5548: RAISE;
5549: WHEN NO_DATA_FOUND THEN
5550: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5552: IF (x_msg_data IS NOT NULL) THEN
5553: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Shared_Kpi ';
5554: ELSE
5555: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Shared_Kpi ';
5557: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5558: RAISE;
5559: WHEN OTHERS THEN
5560: ROLLBACK TO BscKpiPvt_CrtShaKPI;
5561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5562: IF (x_msg_data IS NOT NULL) THEN
5563: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Create_Shared_Kpi ';
5564: ELSE
5565: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Create_Shared_Kpi ';
5589: l_sql varchar2(2000);
5590:
5591: begin
5592: FND_MSG_PUB.Initialize;
5593: x_return_status := FND_API.G_RET_STS_SUCCESS;
5594: SAVEPOINT BscKpiPvt_MoveTab;
5595: -- Check that valid id was entered.
5596: if p_tab_id is not null then
5597: l_cnt := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_TABS_B'
5600: if l_cnt = 0 then
5601: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
5602: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_tab_id);
5603: FND_MSG_PUB.ADD;
5604: RAISE FND_API.G_EXC_ERROR;
5605: end if;
5606: else
5607: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
5608: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_tab_id);
5606: else
5607: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
5608: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_tab_id);
5609: FND_MSG_PUB.ADD;
5610: RAISE FND_API.G_EXC_ERROR;
5611: end if;
5612:
5613: l_sql := 'select distinct tab_id, tab_index ' ||
5614: ' from BSC_TABS_B ' ||
5634:
5635: -- commit;
5636:
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_ERROR THEN
5639: ROLLBACK TO BscKpiPvt_MoveTab;
5640: FND_MSG_PUB.Count_And_Get
5641: ( p_encoded => FND_API.G_FALSE
5642: , p_count => x_msg_count
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_ERROR THEN
5639: ROLLBACK TO BscKpiPvt_MoveTab;
5640: FND_MSG_PUB.Count_And_Get
5641: ( p_encoded => FND_API.G_FALSE
5642: , p_count => x_msg_count
5643: , p_data => x_msg_data
5644: );
5645: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5641: ( p_encoded => FND_API.G_FALSE
5642: , p_count => x_msg_count
5643: , p_data => x_msg_data
5644: );
5645: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5646: x_return_status := FND_API.G_RET_STS_ERROR;
5647: RAISE;
5648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5649: ROLLBACK TO BscKpiPvt_MoveTab;
5642: , p_count => x_msg_count
5643: , p_data => x_msg_data
5644: );
5645: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5646: x_return_status := FND_API.G_RET_STS_ERROR;
5647: RAISE;
5648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5649: ROLLBACK TO BscKpiPvt_MoveTab;
5650: FND_MSG_PUB.Count_And_Get
5644: );
5645: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5646: x_return_status := FND_API.G_RET_STS_ERROR;
5647: RAISE;
5648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5649: ROLLBACK TO BscKpiPvt_MoveTab;
5650: FND_MSG_PUB.Count_And_Get
5651: ( p_encoded => FND_API.G_FALSE
5652: , p_count => x_msg_count
5647: RAISE;
5648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5649: ROLLBACK TO BscKpiPvt_MoveTab;
5650: FND_MSG_PUB.Count_And_Get
5651: ( p_encoded => FND_API.G_FALSE
5652: , p_count => x_msg_count
5653: , p_data => x_msg_data
5654: );
5655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5651: ( p_encoded => FND_API.G_FALSE
5652: , p_count => x_msg_count
5653: , p_data => x_msg_data
5654: );
5655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5656: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5657: RAISE;
5658: WHEN NO_DATA_FOUND THEN
5659: ROLLBACK TO BscKpiPvt_MoveTab;
5652: , p_count => x_msg_count
5653: , p_data => x_msg_data
5654: );
5655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5656: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5657: RAISE;
5658: WHEN NO_DATA_FOUND THEN
5659: ROLLBACK TO BscKpiPvt_MoveTab;
5660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5656: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5657: RAISE;
5658: WHEN NO_DATA_FOUND THEN
5659: ROLLBACK TO BscKpiPvt_MoveTab;
5660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5661: IF (x_msg_data IS NOT NULL) THEN
5662: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Move_Tab ';
5663: ELSE
5664: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Move_Tab ';
5666: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5667: RAISE;
5668: WHEN OTHERS THEN
5669: ROLLBACK TO BscKpiPvt_MoveTab;
5670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5671: IF (x_msg_data IS NOT NULL) THEN
5672: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Move_Tab ';
5673: ELSE
5674: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Move_Tab ';
5753: /************************************************************************************
5754: ************************************************************************************/
5755:
5756: procedure Set_Default_Option(
5757: p_commit IN varchar2 := FND_API.G_FALSE
5758: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
5759: ,x_return_status OUT NOCOPY varchar2
5760: ,x_msg_count OUT NOCOPY number
5761: ,x_msg_data OUT NOCOPY varchar2
5781: AND PROTOTYPE_FLAG <> BSC_KPI_PUB.Delete_Kpi_Flag;
5782:
5783: begin
5784: FND_MSG_PUB.Initialize;
5785: x_return_status := FND_API.G_RET_STS_SUCCESS;
5786: l_Bsc_Kpi_Entity_Rec := p_Bsc_Kpi_Entity_Rec;
5787: SAVEPOINT BscKpiPvt_SetDefOption;
5788: -- First step is to see if the default has been deselected. If it has, set another
5789: -- default if it is the Master KPI, if it is not the Master KPI, then reselect the
5883: end if; -- l_count
5884:
5885: -- Block for Force Default Option ends here.
5886:
5887: if (p_commit = FND_API.G_TRUE) then
5888: commit;
5889: end if;
5890:
5891:
5889: end if;
5890:
5891:
5892: EXCEPTION
5893: WHEN FND_API.G_EXC_ERROR THEN
5894: ROLLBACK TO BscKpiPvt_SetDefOption;
5895: FND_MSG_PUB.Count_And_Get
5896: ( p_encoded => FND_API.G_FALSE
5897: , p_count => x_msg_count
5892: EXCEPTION
5893: WHEN FND_API.G_EXC_ERROR THEN
5894: ROLLBACK TO BscKpiPvt_SetDefOption;
5895: FND_MSG_PUB.Count_And_Get
5896: ( p_encoded => FND_API.G_FALSE
5897: , p_count => x_msg_count
5898: , p_data => x_msg_data
5899: );
5900: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5896: ( p_encoded => FND_API.G_FALSE
5897: , p_count => x_msg_count
5898: , p_data => x_msg_data
5899: );
5900: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5901: x_return_status := FND_API.G_RET_STS_ERROR;
5902: RAISE;
5903: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5904: ROLLBACK TO BscKpiPvt_SetDefOption;
5897: , p_count => x_msg_count
5898: , p_data => x_msg_data
5899: );
5900: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5901: x_return_status := FND_API.G_RET_STS_ERROR;
5902: RAISE;
5903: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5904: ROLLBACK TO BscKpiPvt_SetDefOption;
5905: FND_MSG_PUB.Count_And_Get
5899: );
5900: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5901: x_return_status := FND_API.G_RET_STS_ERROR;
5902: RAISE;
5903: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5904: ROLLBACK TO BscKpiPvt_SetDefOption;
5905: FND_MSG_PUB.Count_And_Get
5906: ( p_encoded => FND_API.G_FALSE
5907: , p_count => x_msg_count
5902: RAISE;
5903: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5904: ROLLBACK TO BscKpiPvt_SetDefOption;
5905: FND_MSG_PUB.Count_And_Get
5906: ( p_encoded => FND_API.G_FALSE
5907: , p_count => x_msg_count
5908: , p_data => x_msg_data
5909: );
5910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5906: ( p_encoded => FND_API.G_FALSE
5907: , p_count => x_msg_count
5908: , p_data => x_msg_data
5909: );
5910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5911: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5912: RAISE;
5913: WHEN NO_DATA_FOUND THEN
5914: ROLLBACK TO BscKpiPvt_SetDefOption;
5907: , p_count => x_msg_count
5908: , p_data => x_msg_data
5909: );
5910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5911: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5912: RAISE;
5913: WHEN NO_DATA_FOUND THEN
5914: ROLLBACK TO BscKpiPvt_SetDefOption;
5915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5911: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5912: RAISE;
5913: WHEN NO_DATA_FOUND THEN
5914: ROLLBACK TO BscKpiPvt_SetDefOption;
5915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5916: IF (x_msg_data IS NOT NULL) THEN
5917: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Set_Default_Option ';
5918: ELSE
5919: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Set_Default_Option ';
5921: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
5922: RAISE;
5923: WHEN OTHERS THEN
5924: ROLLBACK TO BscKpiPvt_SetDefOption;
5925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5926: IF (x_msg_data IS NOT NULL) THEN
5927: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Set_Default_Option ';
5928: ELSE
5929: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Set_Default_Option ';
6098: /************************************************************************************
6099: ************************************************************************************/
6100:
6101: procedure Set_Default_Option_MG(
6102: p_commit IN varchar2 := FND_API.G_FALSE
6103: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.Bsc_Kpi_Entity_Rec
6104: ,x_return_status OUT NOCOPY varchar2
6105: ,x_msg_count OUT NOCOPY number
6106: ,x_msg_data OUT NOCOPY varchar2
6116: l_dependency2_flag number;
6117:
6118: begin
6119: FND_MSG_PUB.Initialize;
6120: x_return_status := FND_API.G_RET_STS_SUCCESS;
6121: SAVEPOINT BscKpiPvt_SetDefOptionMG;
6122: -- Get the source indicator for this shared kpi.
6123: SELECT Source_Indicator, Prototype_Flag
6124: INTO l_source_kpi, l_proto_flag
6258: end if;
6259:
6260: END IF;
6261:
6262: if (p_commit = FND_API.G_TRUE) then
6263: commit;
6264: end if;
6265:
6266:
6264: end if;
6265:
6266:
6267: EXCEPTION
6268: WHEN FND_API.G_EXC_ERROR THEN
6269: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6270: FND_MSG_PUB.Count_And_Get
6271: ( p_encoded => FND_API.G_FALSE
6272: , p_count => x_msg_count
6267: EXCEPTION
6268: WHEN FND_API.G_EXC_ERROR THEN
6269: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6270: FND_MSG_PUB.Count_And_Get
6271: ( p_encoded => FND_API.G_FALSE
6272: , p_count => x_msg_count
6273: , p_data => x_msg_data
6274: );
6275: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6271: ( p_encoded => FND_API.G_FALSE
6272: , p_count => x_msg_count
6273: , p_data => x_msg_data
6274: );
6275: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6276: x_return_status := FND_API.G_RET_STS_ERROR;
6277: RAISE;
6278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6279: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6272: , p_count => x_msg_count
6273: , p_data => x_msg_data
6274: );
6275: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6276: x_return_status := FND_API.G_RET_STS_ERROR;
6277: RAISE;
6278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6279: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6280: FND_MSG_PUB.Count_And_Get
6274: );
6275: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6276: x_return_status := FND_API.G_RET_STS_ERROR;
6277: RAISE;
6278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6279: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6280: FND_MSG_PUB.Count_And_Get
6281: ( p_encoded => FND_API.G_FALSE
6282: , p_count => x_msg_count
6277: RAISE;
6278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6279: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6280: FND_MSG_PUB.Count_And_Get
6281: ( p_encoded => FND_API.G_FALSE
6282: , p_count => x_msg_count
6283: , p_data => x_msg_data
6284: );
6285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6281: ( p_encoded => FND_API.G_FALSE
6282: , p_count => x_msg_count
6283: , p_data => x_msg_data
6284: );
6285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6286: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6287: RAISE;
6288: WHEN NO_DATA_FOUND THEN
6289: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6282: , p_count => x_msg_count
6283: , p_data => x_msg_data
6284: );
6285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6286: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6287: RAISE;
6288: WHEN NO_DATA_FOUND THEN
6289: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6286: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6287: RAISE;
6288: WHEN NO_DATA_FOUND THEN
6289: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6291: IF (x_msg_data IS NOT NULL) THEN
6292: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Set_Default_Option_MG ';
6293: ELSE
6294: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Set_Default_Option_MG ';
6296: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6297: RAISE;
6298: WHEN OTHERS THEN
6299: ROLLBACK TO BscKpiPvt_SetDefOptionMG;
6300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6301: IF (x_msg_data IS NOT NULL) THEN
6302: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Set_Default_Option_MG ';
6303: ELSE
6304: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Set_Default_Option_MG ';
6323: l_Bsc_kpi_Entity_Rec BSC_KPI_PUB.Bsc_kpi_Entity_Rec;
6324:
6325: Begin
6326: FND_MSG_PUB.Initialize;
6327: x_return_status := FND_API.G_RET_STS_SUCCESS;
6328: SAVEPOINT BscKpiPvt_AssAnaOpts;
6329: --DBMS_OUTPUT.PUT_LINE('Begin BSC_KPI_PVT.Assign_Analysis_Option');
6330:
6331: l_parent_option_id := 0;
6381: --DBMS_OUTPUT.PUT_LINE('End BSC_KPI_PVT.Assign_Analysis_Option');
6382:
6383:
6384: EXCEPTION
6385: WHEN FND_API.G_EXC_ERROR THEN
6386: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6387: FND_MSG_PUB.Count_And_Get
6388: ( p_encoded => FND_API.G_FALSE
6389: , p_count => x_msg_count
6384: EXCEPTION
6385: WHEN FND_API.G_EXC_ERROR THEN
6386: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6387: FND_MSG_PUB.Count_And_Get
6388: ( p_encoded => FND_API.G_FALSE
6389: , p_count => x_msg_count
6390: , p_data => x_msg_data
6391: );
6392: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6388: ( p_encoded => FND_API.G_FALSE
6389: , p_count => x_msg_count
6390: , p_data => x_msg_data
6391: );
6392: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6393: x_return_status := FND_API.G_RET_STS_ERROR;
6394: RAISE;
6395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6396: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6389: , p_count => x_msg_count
6390: , p_data => x_msg_data
6391: );
6392: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6393: x_return_status := FND_API.G_RET_STS_ERROR;
6394: RAISE;
6395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6396: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6397: FND_MSG_PUB.Count_And_Get
6391: );
6392: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6393: x_return_status := FND_API.G_RET_STS_ERROR;
6394: RAISE;
6395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6396: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6397: FND_MSG_PUB.Count_And_Get
6398: ( p_encoded => FND_API.G_FALSE
6399: , p_count => x_msg_count
6394: RAISE;
6395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6396: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6397: FND_MSG_PUB.Count_And_Get
6398: ( p_encoded => FND_API.G_FALSE
6399: , p_count => x_msg_count
6400: , p_data => x_msg_data
6401: );
6402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6398: ( p_encoded => FND_API.G_FALSE
6399: , p_count => x_msg_count
6400: , p_data => x_msg_data
6401: );
6402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6403: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6404: RAISE;
6405: WHEN NO_DATA_FOUND THEN
6406: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6399: , p_count => x_msg_count
6400: , p_data => x_msg_data
6401: );
6402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6403: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6404: RAISE;
6405: WHEN NO_DATA_FOUND THEN
6406: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6403: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6404: RAISE;
6405: WHEN NO_DATA_FOUND THEN
6406: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6408: IF (x_msg_data IS NOT NULL) THEN
6409: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Assign_Analysis_Option ';
6410: ELSE
6411: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Assign_Analysis_Option ';
6413: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6414: RAISE;
6415: WHEN OTHERS THEN
6416: ROLLBACK TO BscKpiPvt_AssAnaOpts;
6417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6418: IF (x_msg_data IS NOT NULL) THEN
6419: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Assign_Analysis_Option ';
6420: ELSE
6421: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Assign_Analysis_Option ';
6439: l_count number;
6440: l_Bsc_kpi_Entity_Rec BSC_KPI_PUB.Bsc_kpi_Entity_Rec;
6441: Begin
6442: FND_MSG_PUB.Initialize;
6443: x_return_status := FND_API.G_RET_STS_SUCCESS;
6444: SAVEPOINT BscKpiPvt_UnAssAnaOpts;
6445: --DBMS_OUTPUT.PUT_LINE('Begin BSC_KPI_PVT.Unassign_Analysis_Option');
6446:
6447: l_parent_option_id := 0;
6513:
6514: --DBMS_OUTPUT.PUT_LINE('End BSC_KPI_PVT.Unassign_Analysis_Option');
6515:
6516: EXCEPTION
6517: WHEN FND_API.G_EXC_ERROR THEN
6518: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6519: FND_MSG_PUB.Count_And_Get
6520: ( p_encoded => FND_API.G_FALSE
6521: , p_count => x_msg_count
6516: EXCEPTION
6517: WHEN FND_API.G_EXC_ERROR THEN
6518: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6519: FND_MSG_PUB.Count_And_Get
6520: ( p_encoded => FND_API.G_FALSE
6521: , p_count => x_msg_count
6522: , p_data => x_msg_data
6523: );
6524: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6520: ( p_encoded => FND_API.G_FALSE
6521: , p_count => x_msg_count
6522: , p_data => x_msg_data
6523: );
6524: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6525: x_return_status := FND_API.G_RET_STS_ERROR;
6526: RAISE;
6527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6528: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6521: , p_count => x_msg_count
6522: , p_data => x_msg_data
6523: );
6524: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6525: x_return_status := FND_API.G_RET_STS_ERROR;
6526: RAISE;
6527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6528: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6529: FND_MSG_PUB.Count_And_Get
6523: );
6524: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6525: x_return_status := FND_API.G_RET_STS_ERROR;
6526: RAISE;
6527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6528: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6529: FND_MSG_PUB.Count_And_Get
6530: ( p_encoded => FND_API.G_FALSE
6531: , p_count => x_msg_count
6526: RAISE;
6527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6528: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6529: FND_MSG_PUB.Count_And_Get
6530: ( p_encoded => FND_API.G_FALSE
6531: , p_count => x_msg_count
6532: , p_data => x_msg_data
6533: );
6534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6530: ( p_encoded => FND_API.G_FALSE
6531: , p_count => x_msg_count
6532: , p_data => x_msg_data
6533: );
6534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6535: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6536: RAISE;
6537: WHEN NO_DATA_FOUND THEN
6538: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6531: , p_count => x_msg_count
6532: , p_data => x_msg_data
6533: );
6534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6535: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6536: RAISE;
6537: WHEN NO_DATA_FOUND THEN
6538: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6535: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6536: RAISE;
6537: WHEN NO_DATA_FOUND THEN
6538: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6540: IF (x_msg_data IS NOT NULL) THEN
6541: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Unassign_Analysis_Option ';
6542: ELSE
6543: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Unassign_Analysis_Option ';
6545: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6546: RAISE;
6547: WHEN OTHERS THEN
6548: ROLLBACK TO BscKpiPvt_UnAssAnaOpts;
6549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6550: IF (x_msg_data IS NOT NULL) THEN
6551: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Unassign_Analysis_Option ';
6552: ELSE
6553: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Unassign_Analysis_Option ';
6574: l_Bsc_kpi_Entity_Rec BSC_KPI_PUB.Bsc_kpi_Entity_Rec;
6575: l_temp varchar2(5);
6576: Begin
6577: FND_MSG_PUB.Initialize;
6578: x_return_status := FND_API.G_RET_STS_SUCCESS;
6579: -- p_Bsc_kpi_Entity_Rec.Bsc_kpi_Id
6580: -- p_Bsc_kpi_Entity_Rec.Bsc_kpi_Group_Id
6581: -- p_Bsc_kpi_Entity_Rec.Bsc_Dependency_Flag
6582: -- p_Bsc_kpi_Entity_Rec.Bsc_kpi_Analysis_Option0
6610: and parent_option_id = l_parent_option_id
6611: and grandparent_option_id = l_grandparent_option_id
6612: and user_level1 <> 0;
6613:
6614: l_temp := FND_API.G_FALSE;
6615:
6616: -- count > 0 means the option is selected
6617: if l_count > 0 then
6618:
6617: if l_count > 0 then
6618:
6619: if p_Bsc_kpi_Entity_Rec.Bsc_Dependency_Flag = 0 or p_Bsc_kpi_Entity_Rec.Bsc_kpi_Group_Id = 0 then
6620: -- when option is not dependent
6621: l_temp := FND_API.G_TRUE;
6622: else
6623: -- Evalute if parent Parent Option is selected
6624: l_Bsc_kpi_Entity_Rec := p_Bsc_kpi_Entity_Rec;
6625: if p_Bsc_kpi_Entity_Rec.Bsc_kpi_Group_Id = 2 then
6643:
6644: return l_temp ;
6645:
6646: EXCEPTION
6647: WHEN FND_API.G_EXC_ERROR THEN
6648: FND_MSG_PUB.Count_And_Get
6649: ( p_encoded => FND_API.G_FALSE
6650: , p_count => x_msg_count
6651: , p_data => x_msg_data
6645:
6646: EXCEPTION
6647: WHEN FND_API.G_EXC_ERROR THEN
6648: FND_MSG_PUB.Count_And_Get
6649: ( p_encoded => FND_API.G_FALSE
6650: , p_count => x_msg_count
6651: , p_data => x_msg_data
6652: );
6653: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6649: ( p_encoded => FND_API.G_FALSE
6650: , p_count => x_msg_count
6651: , p_data => x_msg_data
6652: );
6653: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6654: x_return_status := FND_API.G_RET_STS_ERROR;
6655: RAISE;
6656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6657: FND_MSG_PUB.Count_And_Get
6650: , p_count => x_msg_count
6651: , p_data => x_msg_data
6652: );
6653: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6654: x_return_status := FND_API.G_RET_STS_ERROR;
6655: RAISE;
6656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6657: FND_MSG_PUB.Count_And_Get
6658: ( p_encoded => FND_API.G_FALSE
6652: );
6653: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6654: x_return_status := FND_API.G_RET_STS_ERROR;
6655: RAISE;
6656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6657: FND_MSG_PUB.Count_And_Get
6658: ( p_encoded => FND_API.G_FALSE
6659: , p_count => x_msg_count
6660: , p_data => x_msg_data
6654: x_return_status := FND_API.G_RET_STS_ERROR;
6655: RAISE;
6656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6657: FND_MSG_PUB.Count_And_Get
6658: ( p_encoded => FND_API.G_FALSE
6659: , p_count => x_msg_count
6660: , p_data => x_msg_data
6661: );
6662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6658: ( p_encoded => FND_API.G_FALSE
6659: , p_count => x_msg_count
6660: , p_data => x_msg_data
6661: );
6662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6663: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6664: RAISE;
6665: WHEN NO_DATA_FOUND THEN
6666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6659: , p_count => x_msg_count
6660: , p_data => x_msg_data
6661: );
6662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6663: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6664: RAISE;
6665: WHEN NO_DATA_FOUND THEN
6666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6667: IF (x_msg_data IS NOT NULL) THEN
6662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6663: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6664: RAISE;
6665: WHEN NO_DATA_FOUND THEN
6666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6667: IF (x_msg_data IS NOT NULL) THEN
6668: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Is_Analysis_Option_Selected ';
6669: ELSE
6670: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Is_Analysis_Option_Selected ';
6671: END IF;
6672: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6673: RAISE;
6674: WHEN OTHERS THEN
6675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6676: IF (x_msg_data IS NOT NULL) THEN
6677: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Is_Analysis_Option_Selected ';
6678: ELSE
6679: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Is_Analysis_Option_Selected ';
6701: l_temp varchar2(5);
6702:
6703: Begin
6704: FND_MSG_PUB.Initialize;
6705: x_return_status := FND_API.G_RET_STS_SUCCESS;
6706:
6707: --DBMS_OUTPUT.PUT_LINE('Begin BSC_KPI_PVT.Is_Leaf_Analysis_Option ');
6708:
6709: -- Get the paramters :
6730: -- Evaluate the parameter to know if the option is a leaf :
6731:
6732: if p_Bsc_kpi_Entity_Rec.Bsc_kpi_Group_Id = 2 then
6733: -- a Option from the Analysis Group 2 always is a Leaf
6734: l_temp := FND_API.G_TRUE;
6735: else
6736: -- See if there is some Analysis Group that depend of the current one
6737: select count(ANALYSIS_GROUP_ID)
6738: into l_count
6743: if l_count = 0 then
6744: -- l_count = 0 means there is not any dependency group from the current one
6745: -- then the current Option is a Leaf
6746: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Is_Leaf_Analysis_Option - NO Child Group ' );
6747: l_temp := FND_API.G_TRUE;
6748: else
6749: -- if l_count <> 0 means there is a dependency group
6750: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Is_Leaf_Analysis_Option - Child Group ' );
6751:
6765: -- l_count_child_options = 0 means there is not dependency option from
6766: -- the current one, then current option is a leaft
6767: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Is_Leaf_Analysis_Option - NO Child Options ' );
6768:
6769: l_temp := FND_API.G_TRUE;
6770: else
6771: -- l_count_child_options > 0 means there are dependency option from
6772: -- the current one then the current option is not a leaft
6773: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Is_Leaf_Analysis_Option - Child Options ' );
6771: -- l_count_child_options > 0 means there are dependency option from
6772: -- the current one then the current option is not a leaft
6773: --DBMS_OUTPUT.PUT_LINE(' BSC_KPI_PVT.Is_Leaf_Analysis_Option - Child Options ' );
6774:
6775: l_temp := FND_API.G_FALSE;
6776: end if;
6777: end if;
6778:
6779: end if;
6782:
6783: return l_temp ;
6784:
6785: EXCEPTION
6786: WHEN FND_API.G_EXC_ERROR THEN
6787: FND_MSG_PUB.Count_And_Get
6788: ( p_encoded => FND_API.G_FALSE
6789: , p_count => x_msg_count
6790: , p_data => x_msg_data
6784:
6785: EXCEPTION
6786: WHEN FND_API.G_EXC_ERROR THEN
6787: FND_MSG_PUB.Count_And_Get
6788: ( p_encoded => FND_API.G_FALSE
6789: , p_count => x_msg_count
6790: , p_data => x_msg_data
6791: );
6792: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6788: ( p_encoded => FND_API.G_FALSE
6789: , p_count => x_msg_count
6790: , p_data => x_msg_data
6791: );
6792: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6793: x_return_status := FND_API.G_RET_STS_ERROR;
6794: RAISE;
6795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6796: FND_MSG_PUB.Count_And_Get
6789: , p_count => x_msg_count
6790: , p_data => x_msg_data
6791: );
6792: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6793: x_return_status := FND_API.G_RET_STS_ERROR;
6794: RAISE;
6795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6796: FND_MSG_PUB.Count_And_Get
6797: ( p_encoded => FND_API.G_FALSE
6791: );
6792: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6793: x_return_status := FND_API.G_RET_STS_ERROR;
6794: RAISE;
6795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6796: FND_MSG_PUB.Count_And_Get
6797: ( p_encoded => FND_API.G_FALSE
6798: , p_count => x_msg_count
6799: , p_data => x_msg_data
6793: x_return_status := FND_API.G_RET_STS_ERROR;
6794: RAISE;
6795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6796: FND_MSG_PUB.Count_And_Get
6797: ( p_encoded => FND_API.G_FALSE
6798: , p_count => x_msg_count
6799: , p_data => x_msg_data
6800: );
6801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6797: ( p_encoded => FND_API.G_FALSE
6798: , p_count => x_msg_count
6799: , p_data => x_msg_data
6800: );
6801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6802: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6803: RAISE;
6804: WHEN NO_DATA_FOUND THEN
6805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6798: , p_count => x_msg_count
6799: , p_data => x_msg_data
6800: );
6801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6802: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6803: RAISE;
6804: WHEN NO_DATA_FOUND THEN
6805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6806: IF (x_msg_data IS NOT NULL) THEN
6801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6802: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6803: RAISE;
6804: WHEN NO_DATA_FOUND THEN
6805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6806: IF (x_msg_data IS NOT NULL) THEN
6807: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Is_Leaf_Analysis_Option ';
6808: ELSE
6809: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Is_Leaf_Analysis_Option ';
6810: END IF;
6811: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6812: RAISE;
6813: WHEN OTHERS THEN
6814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6815: IF (x_msg_data IS NOT NULL) THEN
6816: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Is_Leaf_Analysis_Option ';
6817: ELSE
6818: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Is_Leaf_Analysis_Option ';
6829: created by : ashankar 20-JUL-2005
6830: /********************************************************/
6831:
6832: PROCEDURE Delete_Ind_Cause_Effect_Rels(
6833: p_commit IN VARCHAR2 := FND_API.G_FALSE
6834: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
6835: ,x_return_status OUT NOCOPY VARCHAR2
6836: ,x_msg_count OUT NOCOPY NUMBER
6837: ,x_msg_data OUT NOCOPY VARCHAR2
6840: l_count NUMBER;
6841:
6842: BEGIN
6843: FND_MSG_PUB.Initialize;
6844: x_return_status := FND_API.G_RET_STS_SUCCESS;
6845: SAVEPOINT DelIndCauseEffectRels;
6846: -- Check that valid id was entered.
6847: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
6848: SELECT COUNT(0)
6853: IF (l_count = 0) THEN
6854: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
6855: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6856: FND_MSG_PUB.ADD;
6857: RAISE FND_API.G_EXC_ERROR;
6858: END IF;
6859: ELSE
6860: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
6861: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6859: ELSE
6860: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
6861: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6862: FND_MSG_PUB.ADD;
6863: RAISE FND_API.G_EXC_ERROR;
6864: END IF;
6865:
6866: DELETE
6867: FROM bsc_kpi_cause_effect_rels
6875: AND NVL(cause_level,BSC_KPI_PUB.c_IND_LEVEL)=BSC_KPI_PUB.c_IND_LEVEL
6876: AND NVL(effect_level,BSC_KPI_PUB.c_IND_LEVEL)=BSC_KPI_PUB.c_IND_LEVEL;
6877:
6878:
6879: IF (p_commit = FND_API.G_TRUE) THEN
6880: COMMIT;
6881: END IF;
6882:
6883: EXCEPTION
6880: COMMIT;
6881: END IF;
6882:
6883: EXCEPTION
6884: WHEN FND_API.G_EXC_ERROR THEN
6885: ROLLBACK TO DelIndCauseEffectRels;
6886: FND_MSG_PUB.Count_And_Get
6887: ( p_encoded => FND_API.G_FALSE
6888: , p_count => x_msg_count
6883: EXCEPTION
6884: WHEN FND_API.G_EXC_ERROR THEN
6885: ROLLBACK TO DelIndCauseEffectRels;
6886: FND_MSG_PUB.Count_And_Get
6887: ( p_encoded => FND_API.G_FALSE
6888: , p_count => x_msg_count
6889: , p_data => x_msg_data
6890: );
6891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6887: ( p_encoded => FND_API.G_FALSE
6888: , p_count => x_msg_count
6889: , p_data => x_msg_data
6890: );
6891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6892: x_return_status := FND_API.G_RET_STS_ERROR;
6893: RAISE;
6894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6895: ROLLBACK TO DelIndCauseEffectRels;
6888: , p_count => x_msg_count
6889: , p_data => x_msg_data
6890: );
6891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6892: x_return_status := FND_API.G_RET_STS_ERROR;
6893: RAISE;
6894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6895: ROLLBACK TO DelIndCauseEffectRels;
6896: FND_MSG_PUB.Count_And_Get
6890: );
6891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6892: x_return_status := FND_API.G_RET_STS_ERROR;
6893: RAISE;
6894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6895: ROLLBACK TO DelIndCauseEffectRels;
6896: FND_MSG_PUB.Count_And_Get
6897: ( p_encoded => FND_API.G_FALSE
6898: , p_count => x_msg_count
6893: RAISE;
6894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6895: ROLLBACK TO DelIndCauseEffectRels;
6896: FND_MSG_PUB.Count_And_Get
6897: ( p_encoded => FND_API.G_FALSE
6898: , p_count => x_msg_count
6899: , p_data => x_msg_data
6900: );
6901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6897: ( p_encoded => FND_API.G_FALSE
6898: , p_count => x_msg_count
6899: , p_data => x_msg_data
6900: );
6901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6902: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6903: RAISE;
6904: WHEN NO_DATA_FOUND THEN
6905: ROLLBACK TO DelIndCauseEffectRels;
6898: , p_count => x_msg_count
6899: , p_data => x_msg_data
6900: );
6901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6902: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6903: RAISE;
6904: WHEN NO_DATA_FOUND THEN
6905: ROLLBACK TO DelIndCauseEffectRels;
6906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6902: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6903: RAISE;
6904: WHEN NO_DATA_FOUND THEN
6905: ROLLBACK TO DelIndCauseEffectRels;
6906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6907: IF (x_msg_data IS NOT NULL) THEN
6908: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Cause_Effect_Rels ';
6909: ELSE
6910: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Cause_Effect_Rels ';
6912: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
6913: RAISE;
6914: WHEN OTHERS THEN
6915: ROLLBACK TO DelIndCauseEffectRels;
6916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6917: IF (x_msg_data IS NOT NULL) THEN
6918: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Cause_Effect_Rels ';
6919: ELSE
6920: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Cause_Effect_Rels ';
6932: /********************************************************/
6933:
6934: PROCEDURE Delete_Ind_Shell_Cmds
6935: (
6936: p_commit IN VARCHAR2 := FND_API.G_FALSE
6937: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
6938: ,x_return_status OUT NOCOPY VARCHAR2
6939: ,x_msg_count OUT NOCOPY NUMBER
6940: ,x_msg_data OUT NOCOPY VARCHAR2
6943: l_count NUMBER;
6944:
6945: BEGIN
6946: FND_MSG_PUB.Initialize;
6947: x_return_status := FND_API.G_RET_STS_SUCCESS;
6948: SAVEPOINT DeleteIndShellCmds;
6949:
6950: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
6951: SELECT COUNT(0)
6956: IF (l_count = 0) THEN
6957: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
6958: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6959: FND_MSG_PUB.ADD;
6960: RAISE FND_API.G_EXC_ERROR;
6961: END IF;
6962: ELSE
6963: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
6964: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6962: ELSE
6963: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
6964: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
6965: FND_MSG_PUB.ADD;
6966: RAISE FND_API.G_EXC_ERROR;
6967: END IF;
6968:
6969: DELETE
6970: FROM bsc_kpi_shell_cmds_tl
6974: FROM bsc_kpi_shell_cmds_user
6975: WHERE indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
6976:
6977:
6978: IF (p_commit = FND_API.G_TRUE) THEN
6979: COMMIT;
6980: END IF;
6981:
6982: EXCEPTION
6979: COMMIT;
6980: END IF;
6981:
6982: EXCEPTION
6983: WHEN FND_API.G_EXC_ERROR THEN
6984: ROLLBACK TO DeleteIndShellCmds;
6985: FND_MSG_PUB.Count_And_Get
6986: ( p_encoded => FND_API.G_FALSE
6987: , p_count => x_msg_count
6982: EXCEPTION
6983: WHEN FND_API.G_EXC_ERROR THEN
6984: ROLLBACK TO DeleteIndShellCmds;
6985: FND_MSG_PUB.Count_And_Get
6986: ( p_encoded => FND_API.G_FALSE
6987: , p_count => x_msg_count
6988: , p_data => x_msg_data
6989: );
6990: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6986: ( p_encoded => FND_API.G_FALSE
6987: , p_count => x_msg_count
6988: , p_data => x_msg_data
6989: );
6990: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6991: x_return_status := FND_API.G_RET_STS_ERROR;
6992: RAISE;
6993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6994: ROLLBACK TO DeleteIndShellCmds;
6987: , p_count => x_msg_count
6988: , p_data => x_msg_data
6989: );
6990: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6991: x_return_status := FND_API.G_RET_STS_ERROR;
6992: RAISE;
6993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6994: ROLLBACK TO DeleteIndShellCmds;
6995: FND_MSG_PUB.Count_And_Get
6989: );
6990: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6991: x_return_status := FND_API.G_RET_STS_ERROR;
6992: RAISE;
6993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6994: ROLLBACK TO DeleteIndShellCmds;
6995: FND_MSG_PUB.Count_And_Get
6996: ( p_encoded => FND_API.G_FALSE
6997: , p_count => x_msg_count
6992: RAISE;
6993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6994: ROLLBACK TO DeleteIndShellCmds;
6995: FND_MSG_PUB.Count_And_Get
6996: ( p_encoded => FND_API.G_FALSE
6997: , p_count => x_msg_count
6998: , p_data => x_msg_data
6999: );
7000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6996: ( p_encoded => FND_API.G_FALSE
6997: , p_count => x_msg_count
6998: , p_data => x_msg_data
6999: );
7000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7001: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7002: RAISE;
7003: WHEN NO_DATA_FOUND THEN
7004: ROLLBACK TO DeleteIndShellCmds;
6997: , p_count => x_msg_count
6998: , p_data => x_msg_data
6999: );
7000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7001: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7002: RAISE;
7003: WHEN NO_DATA_FOUND THEN
7004: ROLLBACK TO DeleteIndShellCmds;
7005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7001: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7002: RAISE;
7003: WHEN NO_DATA_FOUND THEN
7004: ROLLBACK TO DeleteIndShellCmds;
7005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7006: IF (x_msg_data IS NOT NULL) THEN
7007: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Shell_Cmds ';
7008: ELSE
7009: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Shell_Cmds ';
7011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7012: RAISE;
7013: WHEN OTHERS THEN
7014: ROLLBACK TO DeleteIndShellCmds;
7015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7016: IF (x_msg_data IS NOT NULL) THEN
7017: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Shell_Cmds ';
7018: ELSE
7019: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Shell_Cmds ';
7031: /********************************************************/
7032:
7033: PROCEDURE Delete_Ind_MM_Controls
7034: (
7035: p_commit IN VARCHAR2 := FND_API.G_FALSE
7036: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
7037: ,x_return_status OUT NOCOPY VARCHAR2
7038: ,x_msg_count OUT NOCOPY NUMBER
7039: ,x_msg_data OUT NOCOPY VARCHAR2
7042: l_count NUMBER;
7043:
7044: BEGIN
7045: FND_MSG_PUB.Initialize;
7046: x_return_status := FND_API.G_RET_STS_SUCCESS;
7047: SAVEPOINT DeleteIndMMControls;
7048:
7049: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7050: SELECT COUNT(0)
7055: IF (l_count = 0) THEN
7056: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7057: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7058: FND_MSG_PUB.ADD;
7059: RAISE FND_API.G_EXC_ERROR;
7060: END IF;
7061: ELSE
7062: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7063: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7061: ELSE
7062: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7063: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7064: FND_MSG_PUB.ADD;
7065: RAISE FND_API.G_EXC_ERROR;
7066: END IF;
7067:
7068: DELETE
7069: FROM bsc_kpi_mm_controls
7069: FROM bsc_kpi_mm_controls
7070: WHERE indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
7071:
7072:
7073: IF (p_commit = FND_API.G_TRUE) THEN
7074: COMMIT;
7075: END IF;
7076:
7077: EXCEPTION
7074: COMMIT;
7075: END IF;
7076:
7077: EXCEPTION
7078: WHEN FND_API.G_EXC_ERROR THEN
7079: ROLLBACK TO DeleteIndMMControls;
7080: FND_MSG_PUB.Count_And_Get
7081: ( p_encoded => FND_API.G_FALSE
7082: , p_count => x_msg_count
7077: EXCEPTION
7078: WHEN FND_API.G_EXC_ERROR THEN
7079: ROLLBACK TO DeleteIndMMControls;
7080: FND_MSG_PUB.Count_And_Get
7081: ( p_encoded => FND_API.G_FALSE
7082: , p_count => x_msg_count
7083: , p_data => x_msg_data
7084: );
7085: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7081: ( p_encoded => FND_API.G_FALSE
7082: , p_count => x_msg_count
7083: , p_data => x_msg_data
7084: );
7085: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7086: x_return_status := FND_API.G_RET_STS_ERROR;
7087: RAISE;
7088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7089: ROLLBACK TO DeleteIndMMControls;
7082: , p_count => x_msg_count
7083: , p_data => x_msg_data
7084: );
7085: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7086: x_return_status := FND_API.G_RET_STS_ERROR;
7087: RAISE;
7088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7089: ROLLBACK TO DeleteIndMMControls;
7090: FND_MSG_PUB.Count_And_Get
7084: );
7085: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7086: x_return_status := FND_API.G_RET_STS_ERROR;
7087: RAISE;
7088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7089: ROLLBACK TO DeleteIndMMControls;
7090: FND_MSG_PUB.Count_And_Get
7091: ( p_encoded => FND_API.G_FALSE
7092: , p_count => x_msg_count
7087: RAISE;
7088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7089: ROLLBACK TO DeleteIndMMControls;
7090: FND_MSG_PUB.Count_And_Get
7091: ( p_encoded => FND_API.G_FALSE
7092: , p_count => x_msg_count
7093: , p_data => x_msg_data
7094: );
7095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7091: ( p_encoded => FND_API.G_FALSE
7092: , p_count => x_msg_count
7093: , p_data => x_msg_data
7094: );
7095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7096: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7097: RAISE;
7098: WHEN NO_DATA_FOUND THEN
7099: ROLLBACK TO DeleteIndMMControls;
7092: , p_count => x_msg_count
7093: , p_data => x_msg_data
7094: );
7095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7096: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7097: RAISE;
7098: WHEN NO_DATA_FOUND THEN
7099: ROLLBACK TO DeleteIndMMControls;
7100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7096: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7097: RAISE;
7098: WHEN NO_DATA_FOUND THEN
7099: ROLLBACK TO DeleteIndMMControls;
7100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7101: IF (x_msg_data IS NOT NULL) THEN
7102: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_MM_Controls ';
7103: ELSE
7104: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_MM_Controls ';
7106: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7107: RAISE;
7108: WHEN OTHERS THEN
7109: ROLLBACK TO DeleteIndMMControls;
7110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7111: IF (x_msg_data IS NOT NULL) THEN
7112: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_MM_Controls ';
7113: ELSE
7114: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_MM_Controls ';
7124: /********************************************************/
7125:
7126: PROCEDURE Delete_Ind_Subtitles
7127: (
7128: p_commit IN VARCHAR2 := FND_API.G_FALSE
7129: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
7130: ,x_return_status OUT NOCOPY VARCHAR2
7131: ,x_msg_count OUT NOCOPY NUMBER
7132: ,x_msg_data OUT NOCOPY VARCHAR2
7135: l_count NUMBER;
7136:
7137: BEGIN
7138: FND_MSG_PUB.Initialize;
7139: x_return_status := FND_API.G_RET_STS_SUCCESS;
7140: SAVEPOINT DeleteIndSubtitles;
7141:
7142: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7143: SELECT COUNT(0)
7148: IF (l_count = 0) THEN
7149: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7150: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7151: FND_MSG_PUB.ADD;
7152: RAISE FND_API.G_EXC_ERROR;
7153: END IF;
7154: ELSE
7155: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7156: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7154: ELSE
7155: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7156: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7157: FND_MSG_PUB.ADD;
7158: RAISE FND_API.G_EXC_ERROR;
7159: END IF;
7160:
7161: DELETE
7162: FROM bsc_kpi_subtitles_tl
7162: FROM bsc_kpi_subtitles_tl
7163: WHERE indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
7164:
7165:
7166: IF (p_commit = FND_API.G_TRUE) THEN
7167: COMMIT;
7168: END IF;
7169:
7170: EXCEPTION
7167: COMMIT;
7168: END IF;
7169:
7170: EXCEPTION
7171: WHEN FND_API.G_EXC_ERROR THEN
7172: ROLLBACK TO DeleteIndSubtitles;
7173: FND_MSG_PUB.Count_And_Get
7174: ( p_encoded => FND_API.G_FALSE
7175: , p_count => x_msg_count
7170: EXCEPTION
7171: WHEN FND_API.G_EXC_ERROR THEN
7172: ROLLBACK TO DeleteIndSubtitles;
7173: FND_MSG_PUB.Count_And_Get
7174: ( p_encoded => FND_API.G_FALSE
7175: , p_count => x_msg_count
7176: , p_data => x_msg_data
7177: );
7178: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7174: ( p_encoded => FND_API.G_FALSE
7175: , p_count => x_msg_count
7176: , p_data => x_msg_data
7177: );
7178: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7179: x_return_status := FND_API.G_RET_STS_ERROR;
7180: RAISE;
7181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7182: ROLLBACK TO DeleteIndSubtitles;
7175: , p_count => x_msg_count
7176: , p_data => x_msg_data
7177: );
7178: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7179: x_return_status := FND_API.G_RET_STS_ERROR;
7180: RAISE;
7181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7182: ROLLBACK TO DeleteIndSubtitles;
7183: FND_MSG_PUB.Count_And_Get
7177: );
7178: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7179: x_return_status := FND_API.G_RET_STS_ERROR;
7180: RAISE;
7181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7182: ROLLBACK TO DeleteIndSubtitles;
7183: FND_MSG_PUB.Count_And_Get
7184: ( p_encoded => FND_API.G_FALSE
7185: , p_count => x_msg_count
7180: RAISE;
7181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7182: ROLLBACK TO DeleteIndSubtitles;
7183: FND_MSG_PUB.Count_And_Get
7184: ( p_encoded => FND_API.G_FALSE
7185: , p_count => x_msg_count
7186: , p_data => x_msg_data
7187: );
7188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7184: ( p_encoded => FND_API.G_FALSE
7185: , p_count => x_msg_count
7186: , p_data => x_msg_data
7187: );
7188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7189: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7190: RAISE;
7191: WHEN NO_DATA_FOUND THEN
7192: ROLLBACK TO DeleteIndSubtitles;
7185: , p_count => x_msg_count
7186: , p_data => x_msg_data
7187: );
7188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7189: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7190: RAISE;
7191: WHEN NO_DATA_FOUND THEN
7192: ROLLBACK TO DeleteIndSubtitles;
7193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7189: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7190: RAISE;
7191: WHEN NO_DATA_FOUND THEN
7192: ROLLBACK TO DeleteIndSubtitles;
7193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7194: IF (x_msg_data IS NOT NULL) THEN
7195: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Subtitles ';
7196: ELSE
7197: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Subtitles ';
7199: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7200: RAISE;
7201: WHEN OTHERS THEN
7202: ROLLBACK TO DeleteIndSubtitles;
7203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7204: IF (x_msg_data IS NOT NULL) THEN
7205: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Subtitles ';
7206: ELSE
7207: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Subtitles ';
7218: /********************************************************/
7219:
7220: PROCEDURE Delete_Ind_SeriesColors
7221: (
7222: p_commit IN VARCHAR2 := FND_API.G_FALSE
7223: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
7224: ,x_return_status OUT NOCOPY VARCHAR2
7225: ,x_msg_count OUT NOCOPY NUMBER
7226: ,x_msg_data OUT NOCOPY VARCHAR2
7229: l_count NUMBER;
7230:
7231: BEGIN
7232: FND_MSG_PUB.Initialize;
7233: x_return_status := FND_API.G_RET_STS_SUCCESS;
7234: SAVEPOINT DeleteIndSeriesColors;
7235:
7236: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7237: SELECT COUNT(0)
7242: IF (l_count = 0) THEN
7243: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7244: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7245: FND_MSG_PUB.ADD;
7246: RAISE FND_API.G_EXC_ERROR;
7247: END IF;
7248: ELSE
7249: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7250: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7248: ELSE
7249: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7250: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7251: FND_MSG_PUB.ADD;
7252: RAISE FND_API.G_EXC_ERROR;
7253: END IF;
7254:
7255: DELETE
7256: FROM bsc_kpi_series_colors
7256: FROM bsc_kpi_series_colors
7257: WHERE indicator = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
7258:
7259:
7260: IF (p_commit = FND_API.G_TRUE) THEN
7261: COMMIT;
7262: END IF;
7263:
7264: EXCEPTION
7261: COMMIT;
7262: END IF;
7263:
7264: EXCEPTION
7265: WHEN FND_API.G_EXC_ERROR THEN
7266: ROLLBACK TO DeleteIndSeriesColors;
7267: FND_MSG_PUB.Count_And_Get
7268: ( p_encoded => FND_API.G_FALSE
7269: , p_count => x_msg_count
7264: EXCEPTION
7265: WHEN FND_API.G_EXC_ERROR THEN
7266: ROLLBACK TO DeleteIndSeriesColors;
7267: FND_MSG_PUB.Count_And_Get
7268: ( p_encoded => FND_API.G_FALSE
7269: , p_count => x_msg_count
7270: , p_data => x_msg_data
7271: );
7272: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7268: ( p_encoded => FND_API.G_FALSE
7269: , p_count => x_msg_count
7270: , p_data => x_msg_data
7271: );
7272: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7273: x_return_status := FND_API.G_RET_STS_ERROR;
7274: RAISE;
7275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7276: ROLLBACK TO DeleteIndSeriesColors;
7269: , p_count => x_msg_count
7270: , p_data => x_msg_data
7271: );
7272: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7273: x_return_status := FND_API.G_RET_STS_ERROR;
7274: RAISE;
7275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7276: ROLLBACK TO DeleteIndSeriesColors;
7277: FND_MSG_PUB.Count_And_Get
7271: );
7272: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7273: x_return_status := FND_API.G_RET_STS_ERROR;
7274: RAISE;
7275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7276: ROLLBACK TO DeleteIndSeriesColors;
7277: FND_MSG_PUB.Count_And_Get
7278: ( p_encoded => FND_API.G_FALSE
7279: , p_count => x_msg_count
7274: RAISE;
7275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7276: ROLLBACK TO DeleteIndSeriesColors;
7277: FND_MSG_PUB.Count_And_Get
7278: ( p_encoded => FND_API.G_FALSE
7279: , p_count => x_msg_count
7280: , p_data => x_msg_data
7281: );
7282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7278: ( p_encoded => FND_API.G_FALSE
7279: , p_count => x_msg_count
7280: , p_data => x_msg_data
7281: );
7282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7284: RAISE;
7285: WHEN NO_DATA_FOUND THEN
7286: ROLLBACK TO DeleteIndSeriesColors;
7279: , p_count => x_msg_count
7280: , p_data => x_msg_data
7281: );
7282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7284: RAISE;
7285: WHEN NO_DATA_FOUND THEN
7286: ROLLBACK TO DeleteIndSeriesColors;
7287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7284: RAISE;
7285: WHEN NO_DATA_FOUND THEN
7286: ROLLBACK TO DeleteIndSeriesColors;
7287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7288: IF (x_msg_data IS NOT NULL) THEN
7289: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_SeriesColors ';
7290: ELSE
7291: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_SeriesColors ';
7293: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7294: RAISE;
7295: WHEN OTHERS THEN
7296: ROLLBACK TO DeleteIndSeriesColors;
7297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7298: IF (x_msg_data IS NOT NULL) THEN
7299: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_SeriesColors ';
7300: ELSE
7301: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_SeriesColors ';
7312: /********************************************************/
7313:
7314: PROCEDURE Delete_Ind_Images
7315: (
7316: p_commit IN VARCHAR2 := FND_API.G_FALSE
7317: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
7318: ,x_return_status OUT NOCOPY VARCHAR2
7319: ,x_msg_count OUT NOCOPY NUMBER
7320: ,x_msg_data OUT NOCOPY VARCHAR2
7323: l_count NUMBER;
7324:
7325: BEGIN
7326: FND_MSG_PUB.Initialize;
7327: x_return_status := FND_API.G_RET_STS_SUCCESS;
7328: SAVEPOINT DeleteIndImages;
7329:
7330: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7331: SELECT COUNT(0)
7336: IF (l_count = 0) THEN
7337: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7338: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7339: FND_MSG_PUB.ADD;
7340: RAISE FND_API.G_EXC_ERROR;
7341: END IF;
7342: ELSE
7343: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7344: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7342: ELSE
7343: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7344: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7345: FND_MSG_PUB.ADD;
7346: RAISE FND_API.G_EXC_ERROR;
7347: END IF;
7348:
7349: DELETE
7350: FROM bsc_sys_images
7361: DELETE
7362: FROM bsc_user_kpigraph_plugs
7363: WHERE indicator=p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
7364:
7365: IF (p_commit = FND_API.G_TRUE) THEN
7366: COMMIT;
7367: END IF;
7368:
7369: EXCEPTION
7366: COMMIT;
7367: END IF;
7368:
7369: EXCEPTION
7370: WHEN FND_API.G_EXC_ERROR THEN
7371: ROLLBACK TO DeleteIndImages;
7372: FND_MSG_PUB.Count_And_Get
7373: ( p_encoded => FND_API.G_FALSE
7374: , p_count => x_msg_count
7369: EXCEPTION
7370: WHEN FND_API.G_EXC_ERROR THEN
7371: ROLLBACK TO DeleteIndImages;
7372: FND_MSG_PUB.Count_And_Get
7373: ( p_encoded => FND_API.G_FALSE
7374: , p_count => x_msg_count
7375: , p_data => x_msg_data
7376: );
7377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7373: ( p_encoded => FND_API.G_FALSE
7374: , p_count => x_msg_count
7375: , p_data => x_msg_data
7376: );
7377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7378: x_return_status := FND_API.G_RET_STS_ERROR;
7379: RAISE;
7380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7381: ROLLBACK TO DeleteIndImages;
7374: , p_count => x_msg_count
7375: , p_data => x_msg_data
7376: );
7377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7378: x_return_status := FND_API.G_RET_STS_ERROR;
7379: RAISE;
7380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7381: ROLLBACK TO DeleteIndImages;
7382: FND_MSG_PUB.Count_And_Get
7376: );
7377: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7378: x_return_status := FND_API.G_RET_STS_ERROR;
7379: RAISE;
7380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7381: ROLLBACK TO DeleteIndImages;
7382: FND_MSG_PUB.Count_And_Get
7383: ( p_encoded => FND_API.G_FALSE
7384: , p_count => x_msg_count
7379: RAISE;
7380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7381: ROLLBACK TO DeleteIndImages;
7382: FND_MSG_PUB.Count_And_Get
7383: ( p_encoded => FND_API.G_FALSE
7384: , p_count => x_msg_count
7385: , p_data => x_msg_data
7386: );
7387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7383: ( p_encoded => FND_API.G_FALSE
7384: , p_count => x_msg_count
7385: , p_data => x_msg_data
7386: );
7387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7388: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7389: RAISE;
7390: WHEN NO_DATA_FOUND THEN
7391: ROLLBACK TO DeleteIndImages;
7384: , p_count => x_msg_count
7385: , p_data => x_msg_data
7386: );
7387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7388: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7389: RAISE;
7390: WHEN NO_DATA_FOUND THEN
7391: ROLLBACK TO DeleteIndImages;
7392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7388: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7389: RAISE;
7390: WHEN NO_DATA_FOUND THEN
7391: ROLLBACK TO DeleteIndImages;
7392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7393: IF (x_msg_data IS NOT NULL) THEN
7394: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Images ';
7395: ELSE
7396: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Images ';
7398: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7399: RAISE;
7400: WHEN OTHERS THEN
7401: ROLLBACK TO DeleteIndImages;
7402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7403: IF (x_msg_data IS NOT NULL) THEN
7404: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Images ';
7405: ELSE
7406: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Images ';
7417: /********************************************************/
7418:
7419: PROCEDURE Delete_Ind_Sys_Prop
7420: (
7421: p_commit IN VARCHAR2 := FND_API.G_FALSE
7422: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
7423: ,x_return_status OUT NOCOPY VARCHAR2
7424: ,x_msg_count OUT NOCOPY NUMBER
7425: ,x_msg_data OUT NOCOPY VARCHAR2
7428: l_count NUMBER;
7429:
7430: BEGIN
7431: FND_MSG_PUB.Initialize;
7432: x_return_status := FND_API.G_RET_STS_SUCCESS;
7433: SAVEPOINT DeleteIndSysProp;
7434:
7435: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7436: SELECT COUNT(0)
7441: IF (l_count = 0) THEN
7442: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7443: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7444: FND_MSG_PUB.ADD;
7445: RAISE FND_API.G_EXC_ERROR;
7446: END IF;
7447: ELSE
7448: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7449: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7447: ELSE
7448: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7449: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7450: FND_MSG_PUB.ADD;
7451: RAISE FND_API.G_EXC_ERROR;
7452: END IF;
7453:
7454: DELETE
7455: FROM bsc_sys_files
7483: FROM bsc_sys_user_options
7484: WHERE source_type = BSC_KPI_PUB.c_IND_TYPE
7485: AND source_code = p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
7486:
7487: IF (p_commit = FND_API.G_TRUE) THEN
7488: COMMIT;
7489: END IF;
7490:
7491: EXCEPTION
7488: COMMIT;
7489: END IF;
7490:
7491: EXCEPTION
7492: WHEN FND_API.G_EXC_ERROR THEN
7493: ROLLBACK TO DeleteIndSysProp;
7494: FND_MSG_PUB.Count_And_Get
7495: ( p_encoded => FND_API.G_FALSE
7496: , p_count => x_msg_count
7491: EXCEPTION
7492: WHEN FND_API.G_EXC_ERROR THEN
7493: ROLLBACK TO DeleteIndSysProp;
7494: FND_MSG_PUB.Count_And_Get
7495: ( p_encoded => FND_API.G_FALSE
7496: , p_count => x_msg_count
7497: , p_data => x_msg_data
7498: );
7499: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7495: ( p_encoded => FND_API.G_FALSE
7496: , p_count => x_msg_count
7497: , p_data => x_msg_data
7498: );
7499: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7500: x_return_status := FND_API.G_RET_STS_ERROR;
7501: RAISE;
7502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7503: ROLLBACK TO DeleteIndSysProp;
7496: , p_count => x_msg_count
7497: , p_data => x_msg_data
7498: );
7499: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7500: x_return_status := FND_API.G_RET_STS_ERROR;
7501: RAISE;
7502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7503: ROLLBACK TO DeleteIndSysProp;
7504: FND_MSG_PUB.Count_And_Get
7498: );
7499: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7500: x_return_status := FND_API.G_RET_STS_ERROR;
7501: RAISE;
7502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7503: ROLLBACK TO DeleteIndSysProp;
7504: FND_MSG_PUB.Count_And_Get
7505: ( p_encoded => FND_API.G_FALSE
7506: , p_count => x_msg_count
7501: RAISE;
7502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7503: ROLLBACK TO DeleteIndSysProp;
7504: FND_MSG_PUB.Count_And_Get
7505: ( p_encoded => FND_API.G_FALSE
7506: , p_count => x_msg_count
7507: , p_data => x_msg_data
7508: );
7509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7505: ( p_encoded => FND_API.G_FALSE
7506: , p_count => x_msg_count
7507: , p_data => x_msg_data
7508: );
7509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7510: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7511: RAISE;
7512: WHEN NO_DATA_FOUND THEN
7513: ROLLBACK TO DeleteIndSysProp;
7506: , p_count => x_msg_count
7507: , p_data => x_msg_data
7508: );
7509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7510: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7511: RAISE;
7512: WHEN NO_DATA_FOUND THEN
7513: ROLLBACK TO DeleteIndSysProp;
7514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7510: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7511: RAISE;
7512: WHEN NO_DATA_FOUND THEN
7513: ROLLBACK TO DeleteIndSysProp;
7514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7515: IF (x_msg_data IS NOT NULL) THEN
7516: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Sys_Prop ';
7517: ELSE
7518: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Sys_Prop ';
7520: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7521: RAISE;
7522: WHEN OTHERS THEN
7523: ROLLBACK TO DeleteIndSysProp;
7524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7525: IF (x_msg_data IS NOT NULL) THEN
7526: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Sys_Prop ';
7527: ELSE
7528: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Sys_Prop ';
7539: /********************************************************/
7540:
7541: PROCEDURE Delete_Ind_Comments
7542: (
7543: p_commit IN VARCHAR2 := FND_API.G_FALSE
7544: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
7545: ,x_return_status OUT NOCOPY VARCHAR2
7546: ,x_msg_count OUT NOCOPY NUMBER
7547: ,x_msg_data OUT NOCOPY VARCHAR2
7550: l_count NUMBER;
7551:
7552: BEGIN
7553: FND_MSG_PUB.Initialize;
7554: x_return_status := FND_API.G_RET_STS_SUCCESS;
7555: SAVEPOINT DeleteIndComments;
7556:
7557: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7558: SELECT COUNT(0)
7563: IF (l_count = 0) THEN
7564: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7565: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7566: FND_MSG_PUB.ADD;
7567: RAISE FND_API.G_EXC_ERROR;
7568: END IF;
7569: ELSE
7570: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7571: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7569: ELSE
7570: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7571: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7572: FND_MSG_PUB.ADD;
7573: RAISE FND_API.G_EXC_ERROR;
7574: END IF;
7575:
7576: DELETE
7577: FROM bsc_kpi_comments
7577: FROM bsc_kpi_comments
7578: WHERE indicator=p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
7579:
7580:
7581: IF (p_commit = FND_API.G_TRUE) THEN
7582: COMMIT;
7583: END IF;
7584:
7585: EXCEPTION
7582: COMMIT;
7583: END IF;
7584:
7585: EXCEPTION
7586: WHEN FND_API.G_EXC_ERROR THEN
7587: ROLLBACK TO DeleteIndComments;
7588: FND_MSG_PUB.Count_And_Get
7589: ( p_encoded => FND_API.G_FALSE
7590: , p_count => x_msg_count
7585: EXCEPTION
7586: WHEN FND_API.G_EXC_ERROR THEN
7587: ROLLBACK TO DeleteIndComments;
7588: FND_MSG_PUB.Count_And_Get
7589: ( p_encoded => FND_API.G_FALSE
7590: , p_count => x_msg_count
7591: , p_data => x_msg_data
7592: );
7593: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7589: ( p_encoded => FND_API.G_FALSE
7590: , p_count => x_msg_count
7591: , p_data => x_msg_data
7592: );
7593: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7594: x_return_status := FND_API.G_RET_STS_ERROR;
7595: RAISE;
7596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7597: ROLLBACK TO DeleteIndComments;
7590: , p_count => x_msg_count
7591: , p_data => x_msg_data
7592: );
7593: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7594: x_return_status := FND_API.G_RET_STS_ERROR;
7595: RAISE;
7596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7597: ROLLBACK TO DeleteIndComments;
7598: FND_MSG_PUB.Count_And_Get
7592: );
7593: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7594: x_return_status := FND_API.G_RET_STS_ERROR;
7595: RAISE;
7596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7597: ROLLBACK TO DeleteIndComments;
7598: FND_MSG_PUB.Count_And_Get
7599: ( p_encoded => FND_API.G_FALSE
7600: , p_count => x_msg_count
7595: RAISE;
7596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7597: ROLLBACK TO DeleteIndComments;
7598: FND_MSG_PUB.Count_And_Get
7599: ( p_encoded => FND_API.G_FALSE
7600: , p_count => x_msg_count
7601: , p_data => x_msg_data
7602: );
7603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7599: ( p_encoded => FND_API.G_FALSE
7600: , p_count => x_msg_count
7601: , p_data => x_msg_data
7602: );
7603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7604: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7605: RAISE;
7606: WHEN NO_DATA_FOUND THEN
7607: ROLLBACK TO DeleteIndComments;
7600: , p_count => x_msg_count
7601: , p_data => x_msg_data
7602: );
7603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7604: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7605: RAISE;
7606: WHEN NO_DATA_FOUND THEN
7607: ROLLBACK TO DeleteIndComments;
7608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7604: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7605: RAISE;
7606: WHEN NO_DATA_FOUND THEN
7607: ROLLBACK TO DeleteIndComments;
7608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7609: IF (x_msg_data IS NOT NULL) THEN
7610: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Comments ';
7611: ELSE
7612: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Comments ';
7614: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7615: RAISE;
7616: WHEN OTHERS THEN
7617: ROLLBACK TO DeleteIndComments;
7618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7619: IF (x_msg_data IS NOT NULL) THEN
7620: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Comments ';
7621: ELSE
7622: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Comments ';
7632: /********************************************************/
7633:
7634: PROCEDURE Delete_Ind_Tree_Nodes
7635: (
7636: p_commit IN VARCHAR2 := FND_API.G_FALSE
7637: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
7638: ,x_return_status OUT NOCOPY VARCHAR2
7639: ,x_msg_count OUT NOCOPY NUMBER
7640: ,x_msg_data OUT NOCOPY VARCHAR2
7643: l_count NUMBER;
7644:
7645: BEGIN
7646: FND_MSG_PUB.Initialize;
7647: x_return_status := FND_API.G_RET_STS_SUCCESS;
7648: SAVEPOINT DeleteIndTreeNodes;
7649:
7650: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7651: SELECT COUNT(0)
7656: IF (l_count = 0) THEN
7657: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7658: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7659: FND_MSG_PUB.ADD;
7660: RAISE FND_API.G_EXC_ERROR;
7661: END IF;
7662: ELSE
7663: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7664: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7662: ELSE
7663: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7664: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7665: FND_MSG_PUB.ADD;
7666: RAISE FND_API.G_EXC_ERROR;
7667: END IF;
7668:
7669: DELETE
7670: FROM bsc_kpi_tree_nodes_b
7674: FROM bsc_kpi_tree_nodes_tl
7675: WHERE indicator=p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
7676:
7677:
7678: IF (p_commit = FND_API.G_TRUE) THEN
7679: COMMIT;
7680: END IF;
7681:
7682: EXCEPTION
7679: COMMIT;
7680: END IF;
7681:
7682: EXCEPTION
7683: WHEN FND_API.G_EXC_ERROR THEN
7684: ROLLBACK TO DeleteIndTreeNodes;
7685: FND_MSG_PUB.Count_And_Get
7686: ( p_encoded => FND_API.G_FALSE
7687: , p_count => x_msg_count
7682: EXCEPTION
7683: WHEN FND_API.G_EXC_ERROR THEN
7684: ROLLBACK TO DeleteIndTreeNodes;
7685: FND_MSG_PUB.Count_And_Get
7686: ( p_encoded => FND_API.G_FALSE
7687: , p_count => x_msg_count
7688: , p_data => x_msg_data
7689: );
7690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7686: ( p_encoded => FND_API.G_FALSE
7687: , p_count => x_msg_count
7688: , p_data => x_msg_data
7689: );
7690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7691: x_return_status := FND_API.G_RET_STS_ERROR;
7692: RAISE;
7693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7694: ROLLBACK TO DeleteIndTreeNodes;
7687: , p_count => x_msg_count
7688: , p_data => x_msg_data
7689: );
7690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7691: x_return_status := FND_API.G_RET_STS_ERROR;
7692: RAISE;
7693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7694: ROLLBACK TO DeleteIndTreeNodes;
7695: FND_MSG_PUB.Count_And_Get
7689: );
7690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7691: x_return_status := FND_API.G_RET_STS_ERROR;
7692: RAISE;
7693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7694: ROLLBACK TO DeleteIndTreeNodes;
7695: FND_MSG_PUB.Count_And_Get
7696: ( p_encoded => FND_API.G_FALSE
7697: , p_count => x_msg_count
7692: RAISE;
7693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7694: ROLLBACK TO DeleteIndTreeNodes;
7695: FND_MSG_PUB.Count_And_Get
7696: ( p_encoded => FND_API.G_FALSE
7697: , p_count => x_msg_count
7698: , p_data => x_msg_data
7699: );
7700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7696: ( p_encoded => FND_API.G_FALSE
7697: , p_count => x_msg_count
7698: , p_data => x_msg_data
7699: );
7700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7702: RAISE;
7703: WHEN NO_DATA_FOUND THEN
7704: ROLLBACK TO DeleteIndTreeNodes;
7697: , p_count => x_msg_count
7698: , p_data => x_msg_data
7699: );
7700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7702: RAISE;
7703: WHEN NO_DATA_FOUND THEN
7704: ROLLBACK TO DeleteIndTreeNodes;
7705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7702: RAISE;
7703: WHEN NO_DATA_FOUND THEN
7704: ROLLBACK TO DeleteIndTreeNodes;
7705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7706: IF (x_msg_data IS NOT NULL) THEN
7707: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Tree_Nodes ';
7708: ELSE
7709: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Tree_Nodes ';
7711: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7712: RAISE;
7713: WHEN OTHERS THEN
7714: ROLLBACK TO DeleteIndTreeNodes;
7715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7716: IF (x_msg_data IS NOT NULL) THEN
7717: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_Tree_Nodes ';
7718: ELSE
7719: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_Tree_Nodes ';
7730: /********************************************************/
7731:
7732: PROCEDURE Delete_Ind_User_Access
7733: (
7734: p_commit IN VARCHAR2 := FND_API.G_FALSE
7735: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
7736: ,x_return_status OUT NOCOPY VARCHAR2
7737: ,x_msg_count OUT NOCOPY NUMBER
7738: ,x_msg_data OUT NOCOPY VARCHAR2
7741: l_count NUMBER;
7742:
7743: BEGIN
7744: FND_MSG_PUB.Initialize;
7745: x_return_status := FND_API.G_RET_STS_SUCCESS;
7746: SAVEPOINT DeleteIndUserAccess;
7747:
7748: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7749: SELECT COUNT(0)
7754: IF (l_count = 0) THEN
7755: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7756: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7757: FND_MSG_PUB.ADD;
7758: RAISE FND_API.G_EXC_ERROR;
7759: END IF;
7760: ELSE
7761: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7762: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7760: ELSE
7761: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7762: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7763: FND_MSG_PUB.ADD;
7764: RAISE FND_API.G_EXC_ERROR;
7765: END IF;
7766:
7767: DELETE
7768: FROM bsc_user_kpi_access
7768: FROM bsc_user_kpi_access
7769: WHERE indicator=p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
7770:
7771:
7772: IF (p_commit = FND_API.G_TRUE) THEN
7773: COMMIT;
7774: END IF;
7775:
7776: EXCEPTION
7773: COMMIT;
7774: END IF;
7775:
7776: EXCEPTION
7777: WHEN FND_API.G_EXC_ERROR THEN
7778: ROLLBACK TO DeleteIndUserAccess;
7779: FND_MSG_PUB.Count_And_Get
7780: ( p_encoded => FND_API.G_FALSE
7781: , p_count => x_msg_count
7776: EXCEPTION
7777: WHEN FND_API.G_EXC_ERROR THEN
7778: ROLLBACK TO DeleteIndUserAccess;
7779: FND_MSG_PUB.Count_And_Get
7780: ( p_encoded => FND_API.G_FALSE
7781: , p_count => x_msg_count
7782: , p_data => x_msg_data
7783: );
7784: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7780: ( p_encoded => FND_API.G_FALSE
7781: , p_count => x_msg_count
7782: , p_data => x_msg_data
7783: );
7784: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7785: x_return_status := FND_API.G_RET_STS_ERROR;
7786: RAISE;
7787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7788: ROLLBACK TO DeleteIndUserAccess;
7781: , p_count => x_msg_count
7782: , p_data => x_msg_data
7783: );
7784: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7785: x_return_status := FND_API.G_RET_STS_ERROR;
7786: RAISE;
7787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7788: ROLLBACK TO DeleteIndUserAccess;
7789: FND_MSG_PUB.Count_And_Get
7783: );
7784: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7785: x_return_status := FND_API.G_RET_STS_ERROR;
7786: RAISE;
7787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7788: ROLLBACK TO DeleteIndUserAccess;
7789: FND_MSG_PUB.Count_And_Get
7790: ( p_encoded => FND_API.G_FALSE
7791: , p_count => x_msg_count
7786: RAISE;
7787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7788: ROLLBACK TO DeleteIndUserAccess;
7789: FND_MSG_PUB.Count_And_Get
7790: ( p_encoded => FND_API.G_FALSE
7791: , p_count => x_msg_count
7792: , p_data => x_msg_data
7793: );
7794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7790: ( p_encoded => FND_API.G_FALSE
7791: , p_count => x_msg_count
7792: , p_data => x_msg_data
7793: );
7794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7795: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7796: RAISE;
7797: WHEN NO_DATA_FOUND THEN
7798: ROLLBACK TO DeleteIndUserAccess;
7791: , p_count => x_msg_count
7792: , p_data => x_msg_data
7793: );
7794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7795: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7796: RAISE;
7797: WHEN NO_DATA_FOUND THEN
7798: ROLLBACK TO DeleteIndUserAccess;
7799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7795: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7796: RAISE;
7797: WHEN NO_DATA_FOUND THEN
7798: ROLLBACK TO DeleteIndUserAccess;
7799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7800: IF (x_msg_data IS NOT NULL) THEN
7801: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_User_Access ';
7802: ELSE
7803: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_User_Access ';
7805: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7806: RAISE;
7807: WHEN OTHERS THEN
7808: ROLLBACK TO DeleteIndUserAccess;
7809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7810: IF (x_msg_data IS NOT NULL) THEN
7811: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_User_Access ';
7812: ELSE
7813: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_User_Access ';
7825: /********************************************************/
7826:
7827: PROCEDURE Delete_Sim_Tree_Data
7828: (
7829: p_commit IN VARCHAR2 := FND_API.G_FALSE
7830: ,p_Bsc_Kpi_Entity_Rec IN BSC_KPI_PUB.BSC_KPI_ENTITY_REC
7831: ,x_return_status OUT NOCOPY VARCHAR2
7832: ,x_msg_count OUT NOCOPY NUMBER
7833: ,x_msg_data OUT NOCOPY VARCHAR2
7846: );
7847:
7848: BEGIN
7849: FND_MSG_PUB.Initialize;
7850: x_return_status := FND_API.G_RET_STS_SUCCESS;
7851: SAVEPOINT DeleteSimTreeData;
7852:
7853: IF (p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id IS NOT NULL)THEN
7854: SELECT COUNT(0)
7859: IF (l_count = 0) THEN
7860: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
7861: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7862: FND_MSG_PUB.ADD;
7863: RAISE FND_API.G_EXC_ERROR;
7864: END IF;
7865: ELSE
7866: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7867: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7865: ELSE
7866: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
7867: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
7868: FND_MSG_PUB.ADD;
7869: RAISE FND_API.G_EXC_ERROR;
7870: END IF;
7871:
7872:
7873: SELECT short_name
7932: ,x_return_status => x_return_status
7933: ,x_msg_count => x_msg_count
7934: ,x_msg_data => x_msg_data
7935: );
7936: IF(x_return_status IS NOT NULL AND x_return_status <>FND_API.G_RET_STS_SUCCESS)THEN
7937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7938: END IF;
7939:
7940:
7933: ,x_msg_count => x_msg_count
7934: ,x_msg_data => x_msg_data
7935: );
7936: IF(x_return_status IS NOT NULL AND x_return_status <>FND_API.G_RET_STS_SUCCESS)THEN
7937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7938: END IF;
7939:
7940:
7941: BIS_AK_REGION_PUB.DELETE_REGION_AND_REGION_ITEMS
7946: ,x_msg_count => x_msg_count
7947: ,x_msg_data => x_msg_data
7948: );
7949:
7950: IF(x_return_status IS NOT NULL AND x_return_status <>FND_API.G_RET_STS_SUCCESS)THEN
7951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7952: END IF;
7953:
7954: END IF;
7947: ,x_msg_data => x_msg_data
7948: );
7949:
7950: IF(x_return_status IS NOT NULL AND x_return_status <>FND_API.G_RET_STS_SUCCESS)THEN
7951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7952: END IF;
7953:
7954: END IF;
7955:
7954: END IF;
7955:
7956:
7957:
7958: IF (p_commit = FND_API.G_TRUE) THEN
7959: COMMIT;
7960: END IF;
7961:
7962: EXCEPTION
7959: COMMIT;
7960: END IF;
7961:
7962: EXCEPTION
7963: WHEN FND_API.G_EXC_ERROR THEN
7964: ROLLBACK TO DeleteSimTreeData;
7965: FND_MSG_PUB.Count_And_Get
7966: ( p_encoded => FND_API.G_FALSE
7967: , p_count => x_msg_count
7962: EXCEPTION
7963: WHEN FND_API.G_EXC_ERROR THEN
7964: ROLLBACK TO DeleteSimTreeData;
7965: FND_MSG_PUB.Count_And_Get
7966: ( p_encoded => FND_API.G_FALSE
7967: , p_count => x_msg_count
7968: , p_data => x_msg_data
7969: );
7970: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7966: ( p_encoded => FND_API.G_FALSE
7967: , p_count => x_msg_count
7968: , p_data => x_msg_data
7969: );
7970: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7971: x_return_status := FND_API.G_RET_STS_ERROR;
7972: RAISE;
7973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7974: ROLLBACK TO DeleteSimTreeData;
7967: , p_count => x_msg_count
7968: , p_data => x_msg_data
7969: );
7970: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7971: x_return_status := FND_API.G_RET_STS_ERROR;
7972: RAISE;
7973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7974: ROLLBACK TO DeleteSimTreeData;
7975: FND_MSG_PUB.Count_And_Get
7969: );
7970: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
7971: x_return_status := FND_API.G_RET_STS_ERROR;
7972: RAISE;
7973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7974: ROLLBACK TO DeleteSimTreeData;
7975: FND_MSG_PUB.Count_And_Get
7976: ( p_encoded => FND_API.G_FALSE
7977: , p_count => x_msg_count
7972: RAISE;
7973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7974: ROLLBACK TO DeleteSimTreeData;
7975: FND_MSG_PUB.Count_And_Get
7976: ( p_encoded => FND_API.G_FALSE
7977: , p_count => x_msg_count
7978: , p_data => x_msg_data
7979: );
7980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7976: ( p_encoded => FND_API.G_FALSE
7977: , p_count => x_msg_count
7978: , p_data => x_msg_data
7979: );
7980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7981: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7982: RAISE;
7983: WHEN NO_DATA_FOUND THEN
7984: ROLLBACK TO DeleteSimTreeData;
7977: , p_count => x_msg_count
7978: , p_data => x_msg_data
7979: );
7980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7981: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7982: RAISE;
7983: WHEN NO_DATA_FOUND THEN
7984: ROLLBACK TO DeleteSimTreeData;
7985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7981: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
7982: RAISE;
7983: WHEN NO_DATA_FOUND THEN
7984: ROLLBACK TO DeleteSimTreeData;
7985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7986: IF (x_msg_data IS NOT NULL) THEN
7987: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_User_Access ';
7988: ELSE
7989: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_User_Access ';
7991: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
7992: RAISE;
7993: WHEN OTHERS THEN
7994: ROLLBACK TO DeleteSimTreeData;
7995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7996: IF (x_msg_data IS NOT NULL) THEN
7997: x_msg_data := x_msg_data||' -> BSC_KPI_PVT.Delete_Ind_User_Access ';
7998: ELSE
7999: x_msg_data := SQLERRM||' at BSC_KPI_PVT.Delete_Ind_User_Access ';