[Home] [Help]
132: end Fire_Api;
133:
134:
135: procedure Table_Generator(
136: p_commit IN VARCHAR2 := FND_API.G_TRUE
137: ,p_kpi_id number
138: ,p_meas_short_name varchar2
139: ,p_dim_level_short_name varchar2
140: ) is
157:
158: g_Bsc_Pmf_Dim_Tbl(l_tbl_cnt + 1).Dimension_Level_Short_Name := p_dim_level_short_name;
159:
160: if g_Fire = 'YES' then
161: BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Api( FND_API.G_FALSE
162: ,g_Bsc_Pmf_Ui_Rec
163: ,g_Bsc_Pmf_Dim_Tbl
164: ,0
165: ,l_bad_level
171: end loop;
172: g_Bsc_Pmf_Ui_Rec := null;
173:
174: end if;
175: IF (p_commit = FND_API.G_TRUE) THEN
176: COMMIT;
177: END IF;
178: EXCEPTION
179: WHEN FND_API.G_EXC_ERROR THEN
175: IF (p_commit = FND_API.G_TRUE) THEN
176: COMMIT;
177: END IF;
178: EXCEPTION
179: WHEN FND_API.G_EXC_ERROR THEN
180: rollback;
181: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
182: ,p_data => l_msg_data);
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: WHEN FND_API.G_EXC_ERROR THEN
180: rollback;
181: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
182: ,p_data => l_msg_data);
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: rollback;
185: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count
186: ,p_data => l_msg_data);
187: WHEN NO_DATA_FOUND THEN
201: -- BSC APIs because these commits will undo the indicator lock. The commit is
202: -- executed at the end of this procedure.
203:
204: PROCEDURE Add_Analysis_Option(
205: p_commit IN VARCHAR2 := FND_API.G_TRUE
206: ,p_option_name IN VARCHAR2
207: ,p_option_description IN VARCHAR2
208: ,p_meas_short_name IN VARCHAR2
209: ,p_dim_level_short_names IN VARCHAR2
223: l_sql varchar2(1000);
224:
225: l_kpi_id number;
226:
227: l_commit VARCHAR2(10) := FND_API.G_FALSE;
228: l_return_status VARCHAR2(100);
229: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
230: l_msg_count NUMBER;
231: l_msg_data VARCHAR2(255);
246:
247:
248: BEGIN
249: FND_MSG_PUB.Initialize;
250: x_return_status := FND_API.G_RET_STS_SUCCESS;
251: -- The first thing to do is not to allow
252:
253: l_analysis_option_rec.Kpi_id := p_kpi_id;
254: l_analysis_option_rec.Measure_Short_Name := p_meas_short_name;
349: end if;
350:
351: -- call the api to create analysis option
352: BSC_PMF_UI_API_PUB.Bsc_Pmf_Ui_Api(
353: FND_API.G_FALSE,
354: l_analysis_option_rec,
355: l_dim_levels_table,
356: 0,
357: x_bad_level,
360: x_msg_data);
361:
362: -- check value of x_bad_level, if not null then raise error.
363: if (x_bad_level is not null) then
364: RAISE FND_API.G_EXC_ERROR;
365: end if;
366:
367: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
368:
365: end if;
366:
367: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
368:
369: BSC_KPI_PUB.Update_Kpi_Time_Stamp( FND_API.G_FALSE
370: ,l_Bsc_Kpi_Entity_Rec
371: ,x_return_status
372: ,x_msg_count
373: ,x_msg_data);
389: BSC_DESIGNER_PVT.Duplicate_Record_by_Indicator('BSC_KPI_DIM_GROUPS', p_kpi_id, l_kpi_id);
390: BSC_DESIGNER_PVT.Duplicate_Record_by_Indicator('BSC_KPI_DIM_SETS_TL', p_kpi_id, l_kpi_id);
391: BSC_DESIGNER_PVT.Duplicate_Record_by_Indicator('BSC_KPI_DIM_LEVEL_PROPERTIES', p_kpi_id, l_kpi_id);
392:
393: BSC_KPI_PUB.Update_Kpi_Time_Stamp( FND_API.G_FALSE
394: ,l_Bsc_Kpi_Entity_Rec
395: ,x_return_status
396: ,x_msg_count
397: ,x_msg_data);
399: end loop;
400: close dc_value;
401:
402:
403: IF (p_commit = FND_API.G_TRUE) THEN
404: COMMIT;
405: END IF;
406:
407: EXCEPTION
404: COMMIT;
405: END IF;
406:
407: EXCEPTION
408: WHEN FND_API.G_EXC_ERROR THEN
409: ROLLBACK;
410: IF (x_msg_data IS NULL) THEN
411: FND_MSG_PUB.Count_And_Get
412: ( p_encoded => FND_API.G_FALSE
408: WHEN FND_API.G_EXC_ERROR THEN
409: ROLLBACK;
410: IF (x_msg_data IS NULL) THEN
411: FND_MSG_PUB.Count_And_Get
412: ( p_encoded => FND_API.G_FALSE
413: , p_count => x_msg_count
414: , p_data => x_msg_data
415: );
416: END IF;
413: , p_count => x_msg_count
414: , p_data => x_msg_data
415: );
416: END IF;
417: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
420: ROLLBACK;
421: IF (x_msg_data IS NULL) THEN
414: , p_data => x_msg_data
415: );
416: END IF;
417: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
420: ROLLBACK;
421: IF (x_msg_data IS NULL) THEN
422: FND_MSG_PUB.Count_And_Get
415: );
416: END IF;
417: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
420: ROLLBACK;
421: IF (x_msg_data IS NULL) THEN
422: FND_MSG_PUB.Count_And_Get
423: ( p_encoded => FND_API.G_FALSE
419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
420: ROLLBACK;
421: IF (x_msg_data IS NULL) THEN
422: FND_MSG_PUB.Count_And_Get
423: ( p_encoded => FND_API.G_FALSE
424: , p_count => x_msg_count
425: , p_data => x_msg_data
426: );
427: END IF;
424: , p_count => x_msg_count
425: , p_data => x_msg_data
426: );
427: END IF;
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
430: WHEN NO_DATA_FOUND THEN
431: ROLLBACK;
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
425: , p_data => x_msg_data
426: );
427: END IF;
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
430: WHEN NO_DATA_FOUND THEN
431: ROLLBACK;
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: IF (x_msg_data IS NOT NULL) THEN
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
430: WHEN NO_DATA_FOUND THEN
431: ROLLBACK;
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: IF (x_msg_data IS NOT NULL) THEN
434: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Add_Analysis_Option ';
435: ELSE
436: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Add_Analysis_Option ';
437: END IF;
438: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
439: WHEN OTHERS THEN
440: ROLLBACK;
441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
442: IF (x_msg_data IS NOT NULL) THEN
443: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Add_Analysis_Option ';
444: ELSE
445: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Add_Analysis_Option ';
451: ************************************************************************************/
452:
453: --Modified procedure. It does not return the kpi_group_id.
454: procedure Create_Kpi_Group(
455: p_commit IN VARCHAR2 := FND_API.G_TRUE
456: ,p_tab_id IN number
457: ,p_kpi_group_id IN number
458: ,x_return_status OUT NOCOPY varchar2
459: ,x_msg_count OUT NOCOPY number
469: --l_kpi_group_id number;
470:
471: begin
472: FND_MSG_PUB.Initialize;
473: x_return_status := FND_API.G_RET_STS_SUCCESS;
474: l_commit := FND_API.G_FALSE;
475: SAVEPOINT BSCCrtKPIGrpWrapper;
476:
477: --Call procedure to initialize Kpi Group Rec
470:
471: begin
472: FND_MSG_PUB.Initialize;
473: x_return_status := FND_API.G_RET_STS_SUCCESS;
474: l_commit := FND_API.G_FALSE;
475: SAVEPOINT BSCCrtKPIGrpWrapper;
476:
477: --Call procedure to initialize Kpi Group Rec
478: BSC_KPI_GROUP_PUB.Initialize_Kpi_Group_Rec(
480: ,x_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec
481: ,x_return_status => x_return_status
482: ,x_msg_count => x_msg_count
483: ,x_msg_data => x_msg_data);
484: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
486: END IF;
487:
488: -- set the passed values to the record.
481: ,x_return_status => x_return_status
482: ,x_msg_count => x_msg_count
483: ,x_msg_data => x_msg_data);
484: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
486: END IF;
487:
488: -- set the passed values to the record.
489: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Name := p_kpi_group_name;
534: ,p_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec
535: ,x_return_status => x_return_status
536: ,x_msg_count => x_msg_count
537: ,x_msg_data => x_msg_data);
538: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
540: END IF;
541: else
542: BSC_KPI_GROUP_PUB.Update_Kpi_Group( FND_API.G_FALSE
535: ,x_return_status => x_return_status
536: ,x_msg_count => x_msg_count
537: ,x_msg_data => x_msg_data);
538: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
540: END IF;
541: else
542: BSC_KPI_GROUP_PUB.Update_Kpi_Group( FND_API.G_FALSE
543: ,l_Bsc_Kpi_Group_Rec
538: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
540: END IF;
541: else
542: BSC_KPI_GROUP_PUB.Update_Kpi_Group( FND_API.G_FALSE
543: ,l_Bsc_Kpi_Group_Rec
544: ,x_return_status
545: ,x_msg_count
546: ,x_msg_data);
543: ,l_Bsc_Kpi_Group_Rec
544: ,x_return_status
545: ,x_msg_count
546: ,x_msg_data);
547: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
549: END IF;
550: end if;
551:
544: ,x_return_status
545: ,x_msg_count
546: ,x_msg_data);
547: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
549: END IF;
550: end if;
551:
552: IF (p_commit = FND_API.G_TRUE) THEN
548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
549: END IF;
550: end if;
551:
552: IF (p_commit = FND_API.G_TRUE) THEN
553: COMMIT;
554: END IF;
555:
556: EXCEPTION
553: COMMIT;
554: END IF;
555:
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: ROLLBACK TO BSCCrtKPIGrpWrapper;
559: IF (x_msg_data IS NULL) THEN
560: FND_MSG_PUB.Count_And_Get
561: ( p_encoded => FND_API.G_FALSE
557: WHEN FND_API.G_EXC_ERROR THEN
558: ROLLBACK TO BSCCrtKPIGrpWrapper;
559: IF (x_msg_data IS NULL) THEN
560: FND_MSG_PUB.Count_And_Get
561: ( p_encoded => FND_API.G_FALSE
562: , p_count => x_msg_count
563: , p_data => x_msg_data
564: );
565: END IF;
562: , p_count => x_msg_count
563: , p_data => x_msg_data
564: );
565: END IF;
566: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
567: x_return_status := FND_API.G_RET_STS_ERROR;
568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569: ROLLBACK TO BSCCrtKPIGrpWrapper;
570: IF (x_msg_data IS NULL) THEN
563: , p_data => x_msg_data
564: );
565: END IF;
566: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
567: x_return_status := FND_API.G_RET_STS_ERROR;
568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569: ROLLBACK TO BSCCrtKPIGrpWrapper;
570: IF (x_msg_data IS NULL) THEN
571: FND_MSG_PUB.Count_And_Get
564: );
565: END IF;
566: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
567: x_return_status := FND_API.G_RET_STS_ERROR;
568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569: ROLLBACK TO BSCCrtKPIGrpWrapper;
570: IF (x_msg_data IS NULL) THEN
571: FND_MSG_PUB.Count_And_Get
572: ( p_encoded => FND_API.G_FALSE
568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569: ROLLBACK TO BSCCrtKPIGrpWrapper;
570: IF (x_msg_data IS NULL) THEN
571: FND_MSG_PUB.Count_And_Get
572: ( p_encoded => FND_API.G_FALSE
573: , p_count => x_msg_count
574: , p_data => x_msg_data
575: );
576: END IF;
573: , p_count => x_msg_count
574: , p_data => x_msg_data
575: );
576: END IF;
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
578: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
579: WHEN NO_DATA_FOUND THEN
580: ROLLBACK TO BSCCrtKPIGrpWrapper;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: , p_data => x_msg_data
575: );
576: END IF;
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
578: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
579: WHEN NO_DATA_FOUND THEN
580: ROLLBACK TO BSCCrtKPIGrpWrapper;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: IF (x_msg_data IS NOT NULL) THEN
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
578: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
579: WHEN NO_DATA_FOUND THEN
580: ROLLBACK TO BSCCrtKPIGrpWrapper;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: IF (x_msg_data IS NOT NULL) THEN
583: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Kpi_Group ';
584: ELSE
585: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Kpi_Group ';
586: END IF;
587: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
588: WHEN OTHERS THEN
589: ROLLBACK TO BSCCrtKPIGrpWrapper;
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: IF (x_msg_data IS NOT NULL) THEN
592: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Kpi_Group ';
593: ELSE
594: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Kpi_Group ';
603: ************************************************************************************/
604:
605: --New procedure. It returns the kpi_group_id.
606: procedure Create_Kpi_Group(
607: p_commit IN VARCHAR2 := FND_API.G_FALSE
608: ,p_tab_id IN NUMBER -- It needs to pass NULL or -1 if you want to create a kpi group
609: ,p_kpi_group_id IN NUMBER
610: ,p_kpi_group_name IN VARCHAR2
611: ,p_kpi_group_help IN VARCHAR2
622: l_commit varchar2(10);
623:
624: begin
625: FND_MSG_PUB.Initialize;
626: x_return_status := FND_API.G_RET_STS_SUCCESS;
627: l_commit := FND_API.G_FALSE; --local commit flag.
628: SAVEPOINT BSCCrtKPIGrpWrapper;
629:
630: --Call procedure to initialize Kpi Group Rec
623:
624: begin
625: FND_MSG_PUB.Initialize;
626: x_return_status := FND_API.G_RET_STS_SUCCESS;
627: l_commit := FND_API.G_FALSE; --local commit flag.
628: SAVEPOINT BSCCrtKPIGrpWrapper;
629:
630: --Call procedure to initialize Kpi Group Rec
631: BSC_KPI_GROUP_PUB.Initialize_Kpi_Group_Rec(
634: ,x_return_status => x_return_status
635: ,x_msg_count => x_msg_count
636: ,x_msg_data => x_msg_data
637: );
638: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END IF;
641:
642: -- set the passed values to the record.
635: ,x_msg_count => x_msg_count
636: ,x_msg_data => x_msg_data
637: );
638: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END IF;
641:
642: -- set the passed values to the record.
643: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Name := p_kpi_group_name;
652: ,x_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec_Out
653: ,x_return_status => x_return_status
654: ,x_msg_count => x_msg_count
655: ,x_msg_data => x_msg_data);
656: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: END IF;
659:
660: x_kpi_group_id := l_Bsc_Kpi_Group_Rec_Out.Bsc_Kpi_Group_Id;
653: ,x_return_status => x_return_status
654: ,x_msg_count => x_msg_count
655: ,x_msg_data => x_msg_data);
656: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: END IF;
659:
660: x_kpi_group_id := l_Bsc_Kpi_Group_Rec_Out.Bsc_Kpi_Group_Id;
661:
659:
660: x_kpi_group_id := l_Bsc_Kpi_Group_Rec_Out.Bsc_Kpi_Group_Id;
661:
662: else
663: BSC_KPI_GROUP_PUB.Update_Kpi_Group( FND_API.G_FALSE
664: ,l_Bsc_Kpi_Group_Rec
665: ,x_return_status
666: ,x_msg_count
667: ,x_msg_data);
664: ,l_Bsc_Kpi_Group_Rec
665: ,x_return_status
666: ,x_msg_count
667: ,x_msg_data);
668: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671: end if;
672:
665: ,x_return_status
666: ,x_msg_count
667: ,x_msg_data);
668: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671: end if;
672:
673: IF (p_commit = FND_API.G_TRUE) THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671: end if;
672:
673: IF (p_commit = FND_API.G_TRUE) THEN
674: COMMIT;
675: END IF;
676:
677: --DBMS_OUTPUT.PUT_LINE('Created kpi_group_id '||x_kpi_group_id);
676:
677: --DBMS_OUTPUT.PUT_LINE('Created kpi_group_id '||x_kpi_group_id);
678:
679: EXCEPTION
680: WHEN FND_API.G_EXC_ERROR THEN
681: ROLLBACK TO BSCCrtKPIGrpWrapper;
682: IF (x_msg_data IS NULL) THEN
683: FND_MSG_PUB.Count_And_Get
684: ( p_encoded => FND_API.G_FALSE
680: WHEN FND_API.G_EXC_ERROR THEN
681: ROLLBACK TO BSCCrtKPIGrpWrapper;
682: IF (x_msg_data IS NULL) THEN
683: FND_MSG_PUB.Count_And_Get
684: ( p_encoded => FND_API.G_FALSE
685: , p_count => x_msg_count
686: , p_data => x_msg_data
687: );
688: END IF;
685: , p_count => x_msg_count
686: , p_data => x_msg_data
687: );
688: END IF;
689: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
692: ROLLBACK TO BSCCrtKPIGrpWrapper;
693: IF (x_msg_data IS NULL) THEN
686: , p_data => x_msg_data
687: );
688: END IF;
689: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
692: ROLLBACK TO BSCCrtKPIGrpWrapper;
693: IF (x_msg_data IS NULL) THEN
694: FND_MSG_PUB.Count_And_Get
687: );
688: END IF;
689: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
692: ROLLBACK TO BSCCrtKPIGrpWrapper;
693: IF (x_msg_data IS NULL) THEN
694: FND_MSG_PUB.Count_And_Get
695: ( p_encoded => FND_API.G_FALSE
691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
692: ROLLBACK TO BSCCrtKPIGrpWrapper;
693: IF (x_msg_data IS NULL) THEN
694: FND_MSG_PUB.Count_And_Get
695: ( p_encoded => FND_API.G_FALSE
696: , p_count => x_msg_count
697: , p_data => x_msg_data
698: );
699: END IF;
696: , p_count => x_msg_count
697: , p_data => x_msg_data
698: );
699: END IF;
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
702: WHEN NO_DATA_FOUND THEN
703: ROLLBACK TO BSCCrtKPIGrpWrapper;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
697: , p_data => x_msg_data
698: );
699: END IF;
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
702: WHEN NO_DATA_FOUND THEN
703: ROLLBACK TO BSCCrtKPIGrpWrapper;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: IF (x_msg_data IS NOT NULL) THEN
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
702: WHEN NO_DATA_FOUND THEN
703: ROLLBACK TO BSCCrtKPIGrpWrapper;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: IF (x_msg_data IS NOT NULL) THEN
706: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Kpi_Group with parameter x_kpi_group_id ';
707: ELSE
708: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Kpi_Group with parameter x_kpi_group_id ';
709: END IF;
710: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
711: WHEN OTHERS THEN
712: ROLLBACK TO BSCCrtKPIGrpWrapper;
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_PMF_UI_WRAPPER.Create_Kpi_Group with parameter x_kpi_group_id ';
716: ELSE
717: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Kpi_Group with parameter x_kpi_group_id ';
724: /************************************************************************************
725: ************************************************************************************/
726:
727: procedure Update_Kpi_Group(
728: p_commit IN VARCHAR2 := FND_API.G_TRUE
729: ,p_kpi_group_id number
730: ,p_kpi_group_name varchar2
731: ,x_return_status OUT NOCOPY varchar2
732: ,x_msg_count OUT NOCOPY number
741: l_kpi_group_id number;
742:
743: begin
744: FND_MSG_PUB.Initialize;
745: x_return_status := FND_API.G_RET_STS_SUCCESS;
746: SAVEPOINT BSCUpdKPIGrpWrapper;
747: l_commit := FND_API.G_TRUE;
748:
749: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id := p_kpi_group_id;
743: begin
744: FND_MSG_PUB.Initialize;
745: x_return_status := FND_API.G_RET_STS_SUCCESS;
746: SAVEPOINT BSCUpdKPIGrpWrapper;
747: l_commit := FND_API.G_TRUE;
748:
749: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id := p_kpi_group_id;
750: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Name := p_kpi_group_name;
751: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Help := p_kpi_group_help;
756: l_Bsc_Kpi_Group_Rec.Bsc_Language := NVL(USERENV('LANG'),'US');
757: l_Bsc_Kpi_Group_Rec.Bsc_Source_Language := 'US';
758:
759:
760: BSC_KPI_GROUP_PUB.Update_Kpi_Group( FND_API.G_FALSE
761: ,l_Bsc_Kpi_Group_Rec
762: ,x_return_status
763: ,x_msg_count
764: ,x_msg_data);
761: ,l_Bsc_Kpi_Group_Rec
762: ,x_return_status
763: ,x_msg_count
764: ,x_msg_data);
765: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
767: END IF;
768: IF (p_commit = FND_API.G_TRUE) THEN
769: COMMIT;
762: ,x_return_status
763: ,x_msg_count
764: ,x_msg_data);
765: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
767: END IF;
768: IF (p_commit = FND_API.G_TRUE) THEN
769: COMMIT;
770: END IF;
764: ,x_msg_data);
765: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
767: END IF;
768: IF (p_commit = FND_API.G_TRUE) THEN
769: COMMIT;
770: END IF;
771:
772: EXCEPTION
769: COMMIT;
770: END IF;
771:
772: EXCEPTION
773: WHEN FND_API.G_EXC_ERROR THEN
774: ROLLBACK TO BSCUpdKPIGrpWrapper;
775: IF (x_msg_data IS NULL) THEN
776: FND_MSG_PUB.Count_And_Get
777: ( p_encoded => FND_API.G_FALSE
773: WHEN FND_API.G_EXC_ERROR THEN
774: ROLLBACK TO BSCUpdKPIGrpWrapper;
775: IF (x_msg_data IS NULL) THEN
776: FND_MSG_PUB.Count_And_Get
777: ( p_encoded => FND_API.G_FALSE
778: , p_count => x_msg_count
779: , p_data => x_msg_data
780: );
781: END IF;
778: , p_count => x_msg_count
779: , p_data => x_msg_data
780: );
781: END IF;
782: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
783: x_return_status := FND_API.G_RET_STS_ERROR;
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
785: ROLLBACK TO BSCUpdKPIGrpWrapper;
786: IF (x_msg_data IS NULL) THEN
779: , p_data => x_msg_data
780: );
781: END IF;
782: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
783: x_return_status := FND_API.G_RET_STS_ERROR;
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
785: ROLLBACK TO BSCUpdKPIGrpWrapper;
786: IF (x_msg_data IS NULL) THEN
787: FND_MSG_PUB.Count_And_Get
780: );
781: END IF;
782: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
783: x_return_status := FND_API.G_RET_STS_ERROR;
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
785: ROLLBACK TO BSCUpdKPIGrpWrapper;
786: IF (x_msg_data IS NULL) THEN
787: FND_MSG_PUB.Count_And_Get
788: ( p_encoded => FND_API.G_FALSE
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
785: ROLLBACK TO BSCUpdKPIGrpWrapper;
786: IF (x_msg_data IS NULL) THEN
787: FND_MSG_PUB.Count_And_Get
788: ( p_encoded => FND_API.G_FALSE
789: , p_count => x_msg_count
790: , p_data => x_msg_data
791: );
792: END IF;
789: , p_count => x_msg_count
790: , p_data => x_msg_data
791: );
792: END IF;
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
795: WHEN NO_DATA_FOUND THEN
796: ROLLBACK TO BSCUpdKPIGrpWrapper;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: , p_data => x_msg_data
791: );
792: END IF;
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
795: WHEN NO_DATA_FOUND THEN
796: ROLLBACK TO BSCUpdKPIGrpWrapper;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: IF (x_msg_data IS NOT NULL) THEN
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
795: WHEN NO_DATA_FOUND THEN
796: ROLLBACK TO BSCUpdKPIGrpWrapper;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: IF (x_msg_data IS NOT NULL) THEN
799: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Kpi_Group ';
800: ELSE
801: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Kpi_Group ';
802: END IF;
803: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
804: WHEN OTHERS THEN
805: ROLLBACK TO BSCUpdKPIGrpWrapper;
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: IF (x_msg_data IS NOT NULL) THEN
808: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Kpi_Group ';
809: ELSE
810: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Kpi_Group ';
816: ************************************************************************************/
817:
818: --Modified procedure. It does not return the kpi_id.
819: procedure Create_Kpi(
820: p_commit IN VARCHAR2 := FND_API.G_TRUE
821: ,p_group_id IN number
822: ,p_responsibility_id IN number
823: ,x_return_status OUT NOCOPY varchar2
824: ,x_msg_count OUT NOCOPY number
833:
834:
835: begin
836: FND_MSG_PUB.Initialize;
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838: SAVEPOINT BSCCreateKPIWrapper;
839: l_commit := FND_API.G_FALSE;
840:
841: --Call procedure to initialize Kpi Entity Rec
835: begin
836: FND_MSG_PUB.Initialize;
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838: SAVEPOINT BSCCreateKPIWrapper;
839: l_commit := FND_API.G_FALSE;
840:
841: --Call procedure to initialize Kpi Entity Rec
842: BSC_KPI_PUB.Initialize_Kpi_Entity_Rec(
843: p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
844: ,x_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
845: ,x_return_status => x_return_status
846: ,x_msg_count => x_msg_count
847: ,x_msg_data => x_msg_data);
848: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
851:
852: -- set the passed values to the record.
845: ,x_return_status => x_return_status
846: ,x_msg_count => x_msg_count
847: ,x_msg_data => x_msg_data);
848: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
851:
852: -- set the passed values to the record.
853: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id := p_group_id;
860: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
861: ,x_return_status => x_return_status
862: ,x_msg_count => x_msg_count
863: ,x_msg_data => x_msg_data);
864: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
866: END IF;
867: IF (p_commit = FND_API.G_TRUE) THEN
868: COMMIT;
861: ,x_return_status => x_return_status
862: ,x_msg_count => x_msg_count
863: ,x_msg_data => x_msg_data);
864: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
866: END IF;
867: IF (p_commit = FND_API.G_TRUE) THEN
868: COMMIT;
869: END IF;
863: ,x_msg_data => x_msg_data);
864: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
866: END IF;
867: IF (p_commit = FND_API.G_TRUE) THEN
868: COMMIT;
869: END IF;
870:
871: EXCEPTION
868: COMMIT;
869: END IF;
870:
871: EXCEPTION
872: WHEN FND_API.G_EXC_ERROR THEN
873: ROLLBACK TO BSCCreateKPIWrapper;
874: IF (x_msg_data IS NULL) THEN
875: FND_MSG_PUB.Count_And_Get
876: ( p_encoded => FND_API.G_FALSE
872: WHEN FND_API.G_EXC_ERROR THEN
873: ROLLBACK TO BSCCreateKPIWrapper;
874: IF (x_msg_data IS NULL) THEN
875: FND_MSG_PUB.Count_And_Get
876: ( p_encoded => FND_API.G_FALSE
877: , p_count => x_msg_count
878: , p_data => x_msg_data
879: );
880: END IF;
877: , p_count => x_msg_count
878: , p_data => x_msg_data
879: );
880: END IF;
881: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO BSCCreateKPIWrapper;
885: IF (x_msg_data IS NULL) THEN
878: , p_data => x_msg_data
879: );
880: END IF;
881: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO BSCCreateKPIWrapper;
885: IF (x_msg_data IS NULL) THEN
886: FND_MSG_PUB.Count_And_Get
879: );
880: END IF;
881: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO BSCCreateKPIWrapper;
885: IF (x_msg_data IS NULL) THEN
886: FND_MSG_PUB.Count_And_Get
887: ( p_encoded => FND_API.G_FALSE
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO BSCCreateKPIWrapper;
885: IF (x_msg_data IS NULL) THEN
886: FND_MSG_PUB.Count_And_Get
887: ( p_encoded => FND_API.G_FALSE
888: , p_count => x_msg_count
889: , p_data => x_msg_data
890: );
891: END IF;
888: , p_count => x_msg_count
889: , p_data => x_msg_data
890: );
891: END IF;
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
894: WHEN NO_DATA_FOUND THEN
895: ROLLBACK TO BSCCreateKPIWrapper;
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
889: , p_data => x_msg_data
890: );
891: END IF;
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
894: WHEN NO_DATA_FOUND THEN
895: ROLLBACK TO BSCCreateKPIWrapper;
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897: IF (x_msg_data IS NOT NULL) THEN
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
894: WHEN NO_DATA_FOUND THEN
895: ROLLBACK TO BSCCreateKPIWrapper;
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897: IF (x_msg_data IS NOT NULL) THEN
898: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Kpi ';
899: ELSE
900: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Kpi ';
901: END IF;
902: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
903: WHEN OTHERS THEN
904: ROLLBACK TO BSCCreateKPIWrapper;
905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
906: IF (x_msg_data IS NOT NULL) THEN
907: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Kpi ';
908: ELSE
909: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Kpi ';
916: ************************************************************************************/
917:
918: --New procedure. It returns the kpi_id.
919: procedure Create_Kpi(
920: p_commit IN VARCHAR2 := FND_API.G_FALSE
921: ,p_group_id IN NUMBER
922: ,p_responsibility_id IN NUMBER
923: ,p_kpi_name IN VARCHAR2
924: ,p_kpi_help IN VARCHAR2
935: l_commit varchar2(10);
936:
937: begin
938: FND_MSG_PUB.Initialize;
939: x_return_status := FND_API.G_RET_STS_SUCCESS;
940: SAVEPOINT BSCCreateKPIWrapper;
941: l_commit := FND_API.G_FALSE; --local commit flag.
942:
943: --Call procedure to initialize Kpi Entity Rec
937: begin
938: FND_MSG_PUB.Initialize;
939: x_return_status := FND_API.G_RET_STS_SUCCESS;
940: SAVEPOINT BSCCreateKPIWrapper;
941: l_commit := FND_API.G_FALSE; --local commit flag.
942:
943: --Call procedure to initialize Kpi Entity Rec
944: BSC_KPI_PUB.Initialize_Kpi_Entity_Rec(
945: p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
946: ,x_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
947: ,x_return_status => x_return_status
948: ,x_msg_count => x_msg_count
949: ,x_msg_data => x_msg_data);
950: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
952: END IF;
953:
954: -- set the passed values to the record.
947: ,x_return_status => x_return_status
948: ,x_msg_count => x_msg_count
949: ,x_msg_data => x_msg_data);
950: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
952: END IF;
953:
954: -- set the passed values to the record.
955: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Group_Id := p_group_id;
973: ,x_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec_Out
974: ,x_return_status => x_return_status
975: ,x_msg_count => x_msg_count
976: ,x_msg_data => x_msg_data);
977: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
979: END IF;
980:
981: x_kpi_id := l_Bsc_Kpi_Entity_Rec_Out.Bsc_Kpi_Id;
974: ,x_return_status => x_return_status
975: ,x_msg_count => x_msg_count
976: ,x_msg_data => x_msg_data);
977: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
979: END IF;
980:
981: x_kpi_id := l_Bsc_Kpi_Entity_Rec_Out.Bsc_Kpi_Id;
982:
979: END IF;
980:
981: x_kpi_id := l_Bsc_Kpi_Entity_Rec_Out.Bsc_Kpi_Id;
982:
983: IF (p_commit = FND_API.G_TRUE) THEN
984: COMMIT;
985: END IF;
986:
987: --DBMS_OUTPUT.PUT_LINE('Created kpi_id '||x_kpi_id);
986:
987: --DBMS_OUTPUT.PUT_LINE('Created kpi_id '||x_kpi_id);
988:
989: EXCEPTION
990: WHEN FND_API.G_EXC_ERROR THEN
991: ROLLBACK TO BSCCreateKPIWrapper;
992: IF (x_msg_data IS NULL) THEN
993: FND_MSG_PUB.Count_And_Get
994: ( p_encoded => FND_API.G_FALSE
990: WHEN FND_API.G_EXC_ERROR THEN
991: ROLLBACK TO BSCCreateKPIWrapper;
992: IF (x_msg_data IS NULL) THEN
993: FND_MSG_PUB.Count_And_Get
994: ( p_encoded => FND_API.G_FALSE
995: , p_count => x_msg_count
996: , p_data => x_msg_data
997: );
998: END IF;
995: , p_count => x_msg_count
996: , p_data => x_msg_data
997: );
998: END IF;
999: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: ROLLBACK TO BSCCreateKPIWrapper;
1003: IF (x_msg_data IS NULL) THEN
996: , p_data => x_msg_data
997: );
998: END IF;
999: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: ROLLBACK TO BSCCreateKPIWrapper;
1003: IF (x_msg_data IS NULL) THEN
1004: FND_MSG_PUB.Count_And_Get
997: );
998: END IF;
999: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: ROLLBACK TO BSCCreateKPIWrapper;
1003: IF (x_msg_data IS NULL) THEN
1004: FND_MSG_PUB.Count_And_Get
1005: ( p_encoded => FND_API.G_FALSE
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: ROLLBACK TO BSCCreateKPIWrapper;
1003: IF (x_msg_data IS NULL) THEN
1004: FND_MSG_PUB.Count_And_Get
1005: ( p_encoded => FND_API.G_FALSE
1006: , p_count => x_msg_count
1007: , p_data => x_msg_data
1008: );
1009: END IF;
1006: , p_count => x_msg_count
1007: , p_data => x_msg_data
1008: );
1009: END IF;
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1012: WHEN NO_DATA_FOUND THEN
1013: ROLLBACK TO BSCCreateKPIWrapper;
1014: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1007: , p_data => x_msg_data
1008: );
1009: END IF;
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1012: WHEN NO_DATA_FOUND THEN
1013: ROLLBACK TO BSCCreateKPIWrapper;
1014: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1015: IF (x_msg_data IS NOT NULL) THEN
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1011: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1012: WHEN NO_DATA_FOUND THEN
1013: ROLLBACK TO BSCCreateKPIWrapper;
1014: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1015: IF (x_msg_data IS NOT NULL) THEN
1016: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Kpi with parameter x_kpi_id ';
1017: ELSE
1018: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Kpi with parameter x_kpi_id ';
1019: END IF;
1020: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1021: WHEN OTHERS THEN
1022: ROLLBACK TO BSCCreateKPIWrapper;
1023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1024: IF (x_msg_data IS NOT NULL) THEN
1025: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Kpi with parameter x_kpi_id ';
1026: ELSE
1027: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Kpi with parameter x_kpi_id ';
1033: /************************************************************************************
1034: ************************************************************************************/
1035:
1036: procedure Update_Kpi(
1037: p_commit IN VARCHAR2 := FND_API.G_TRUE
1038: ,p_kpi_id IN number
1039: ,x_return_status OUT NOCOPY varchar2
1040: ,x_msg_count OUT NOCOPY number
1041: ,x_msg_data OUT NOCOPY varchar2
1055: l_count number;
1056:
1057: begin
1058: FND_MSG_PUB.Initialize;
1059: x_return_status := FND_API.G_RET_STS_SUCCESS;
1060: SAVEPOINT BSCUpdateKPIWrapper;
1061: l_commit := FND_API.G_TRUE;
1062:
1063: l_count := 0;
1057: begin
1058: FND_MSG_PUB.Initialize;
1059: x_return_status := FND_API.G_RET_STS_SUCCESS;
1060: SAVEPOINT BSCUpdateKPIWrapper;
1061: l_commit := FND_API.G_TRUE;
1062:
1063: l_count := 0;
1064:
1065: -- We need to check if there is an update on the Indicator name in order
1091: FND_MESSAGE.SET_NAME('BSC','BSC_B_NO_SAMEKPI_TAB');
1092: FND_MESSAGE.SET_TOKEN('Indicator name: ', p_kpi_name);
1093: FND_MESSAGE.SET_TOKEN('Tab name: ', l_tab_name);
1094: FND_MSG_PUB.ADD;
1095: RAISE FND_API.G_EXC_ERROR;
1096: end if;
1097:
1098:
1099: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
1109: -- Properties, Update Defaults, etc.) then the call should be changed
1110: -- to the Public version. The UI only allows "Updates" on Master Indicators
1111: -- so it is assumed the Indicator currently being handled is the Masater Indicator.
1112:
1113: BSC_KPI_PVT.Update_Kpi( FND_API.G_FALSE
1114: ,l_Bsc_Kpi_Entity_Rec
1115: ,x_return_status
1116: ,x_msg_count
1117: ,x_msg_data);
1114: ,l_Bsc_Kpi_Entity_Rec
1115: ,x_return_status
1116: ,x_msg_count
1117: ,x_msg_data);
1118: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121:
1122:
1115: ,x_return_status
1116: ,x_msg_count
1117: ,x_msg_data);
1118: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121:
1122:
1123: -- The public version of the API determines how many shared indicators there
1142: loop
1143: fetch dc_value into l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
1144: exit when dc_value%NOTFOUND;
1145:
1146: BSC_KPI_PVT.Update_Kpi( FND_API.G_FALSE
1147: ,l_Bsc_Kpi_Entity_Rec
1148: ,x_return_status
1149: ,x_msg_count
1150: ,x_msg_data);
1147: ,l_Bsc_Kpi_Entity_Rec
1148: ,x_return_status
1149: ,x_msg_count
1150: ,x_msg_data);
1151: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153: END IF;
1154:
1155:
1148: ,x_return_status
1149: ,x_msg_count
1150: ,x_msg_data);
1151: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153: END IF;
1154:
1155:
1156: END LOOP;
1158:
1159: end if;
1160:
1161:
1162: IF (p_commit = FND_API.G_TRUE) THEN
1163: COMMIT;
1164: END IF;
1165:
1166: EXCEPTION
1163: COMMIT;
1164: END IF;
1165:
1166: EXCEPTION
1167: WHEN FND_API.G_EXC_ERROR THEN
1168: ROLLBACK TO BSCUpdateKPIWrapper;
1169: IF (x_msg_data IS NULL) THEN
1170: FND_MSG_PUB.Count_And_Get
1171: ( p_encoded => FND_API.G_FALSE
1167: WHEN FND_API.G_EXC_ERROR THEN
1168: ROLLBACK TO BSCUpdateKPIWrapper;
1169: IF (x_msg_data IS NULL) THEN
1170: FND_MSG_PUB.Count_And_Get
1171: ( p_encoded => FND_API.G_FALSE
1172: , p_count => x_msg_count
1173: , p_data => x_msg_data
1174: );
1175: END IF;
1172: , p_count => x_msg_count
1173: , p_data => x_msg_data
1174: );
1175: END IF;
1176: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1179: ROLLBACK TO BSCUpdateKPIWrapper;
1180: IF (x_msg_data IS NULL) THEN
1173: , p_data => x_msg_data
1174: );
1175: END IF;
1176: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1179: ROLLBACK TO BSCUpdateKPIWrapper;
1180: IF (x_msg_data IS NULL) THEN
1181: FND_MSG_PUB.Count_And_Get
1174: );
1175: END IF;
1176: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1179: ROLLBACK TO BSCUpdateKPIWrapper;
1180: IF (x_msg_data IS NULL) THEN
1181: FND_MSG_PUB.Count_And_Get
1182: ( p_encoded => FND_API.G_FALSE
1178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1179: ROLLBACK TO BSCUpdateKPIWrapper;
1180: IF (x_msg_data IS NULL) THEN
1181: FND_MSG_PUB.Count_And_Get
1182: ( p_encoded => FND_API.G_FALSE
1183: , p_count => x_msg_count
1184: , p_data => x_msg_data
1185: );
1186: END IF;
1183: , p_count => x_msg_count
1184: , p_data => x_msg_data
1185: );
1186: END IF;
1187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1188: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1189: WHEN NO_DATA_FOUND THEN
1190: ROLLBACK TO BSCUpdateKPIWrapper;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1184: , p_data => x_msg_data
1185: );
1186: END IF;
1187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1188: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1189: WHEN NO_DATA_FOUND THEN
1190: ROLLBACK TO BSCUpdateKPIWrapper;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: IF (x_msg_data IS NOT NULL) THEN
1187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1188: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1189: WHEN NO_DATA_FOUND THEN
1190: ROLLBACK TO BSCUpdateKPIWrapper;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: IF (x_msg_data IS NOT NULL) THEN
1193: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Kpi ';
1194: ELSE
1195: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Kpi ';
1196: END IF;
1197: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1198: WHEN OTHERS THEN
1199: ROLLBACK TO BSCUpdateKPIWrapper;
1200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1201: IF (x_msg_data IS NOT NULL) THEN
1202: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Kpi ';
1203: ELSE
1204: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Kpi ';
1211: ************************************************************************************/
1212:
1213: --It doesn't need to be modified for enhancement#3493589.
1214: procedure Create_Tab
1215: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
1216: , p_responsibility_id IN NUMBER
1217: , x_return_status OUT NOCOPY VARCHAR2
1218: , x_msg_count OUT NOCOPY NUMBER
1219: , x_msg_data OUT NOCOPY VARCHAR2
1224: l_commit VARCHAR2(10);
1225: l_tab_Id NUMBER;
1226: BEGIN
1227: FND_MSG_PUB.Initialize;
1228: x_return_status := FND_API.G_RET_STS_SUCCESS;
1229: SAVEPOINT BSCPMFUICrtTab;
1230: l_commit := FND_API.G_TRUE;
1231: BSC_PMF_UI_WRAPPER.Create_Tab
1232: ( p_commit => FND_API.G_FALSE
1226: BEGIN
1227: FND_MSG_PUB.Initialize;
1228: x_return_status := FND_API.G_RET_STS_SUCCESS;
1229: SAVEPOINT BSCPMFUICrtTab;
1230: l_commit := FND_API.G_TRUE;
1231: BSC_PMF_UI_WRAPPER.Create_Tab
1232: ( p_commit => FND_API.G_FALSE
1233: , p_responsibility_id => p_responsibility_id
1234: , p_parent_tab_id => NULL
1228: x_return_status := FND_API.G_RET_STS_SUCCESS;
1229: SAVEPOINT BSCPMFUICrtTab;
1230: l_commit := FND_API.G_TRUE;
1231: BSC_PMF_UI_WRAPPER.Create_Tab
1232: ( p_commit => FND_API.G_FALSE
1233: , p_responsibility_id => p_responsibility_id
1234: , p_parent_tab_id => NULL
1235: , p_owner_id => NULL
1236: , x_tab_id => l_tab_Id
1240: , p_tab_name => p_tab_name
1241: , p_tab_help => p_tab_help
1242: , p_tab_info => NULL
1243: );
1244: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1246: END IF;
1247:
1248: IF (p_commit = FND_API.G_TRUE) THEN
1241: , p_tab_help => p_tab_help
1242: , p_tab_info => NULL
1243: );
1244: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1246: END IF;
1247:
1248: IF (p_commit = FND_API.G_TRUE) THEN
1249: COMMIT;
1244: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1246: END IF;
1247:
1248: IF (p_commit = FND_API.G_TRUE) THEN
1249: COMMIT;
1250: END IF;
1251: EXCEPTION
1252: WHEN FND_API.G_EXC_ERROR THEN
1248: IF (p_commit = FND_API.G_TRUE) THEN
1249: COMMIT;
1250: END IF;
1251: EXCEPTION
1252: WHEN FND_API.G_EXC_ERROR THEN
1253: ROLLBACK TO BSCPMFUICrtTab;
1254: IF (x_msg_data IS NULL) THEN
1255: FND_MSG_PUB.Count_And_Get
1256: ( p_encoded => FND_API.G_FALSE
1252: WHEN FND_API.G_EXC_ERROR THEN
1253: ROLLBACK TO BSCPMFUICrtTab;
1254: IF (x_msg_data IS NULL) THEN
1255: FND_MSG_PUB.Count_And_Get
1256: ( p_encoded => FND_API.G_FALSE
1257: , p_count => x_msg_count
1258: , p_data => x_msg_data
1259: );
1260: END IF;
1257: , p_count => x_msg_count
1258: , p_data => x_msg_data
1259: );
1260: END IF;
1261: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1264: ROLLBACK TO BSCPMFUICrtTab;
1265: IF (x_msg_data IS NULL) THEN
1258: , p_data => x_msg_data
1259: );
1260: END IF;
1261: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1264: ROLLBACK TO BSCPMFUICrtTab;
1265: IF (x_msg_data IS NULL) THEN
1266: FND_MSG_PUB.Count_And_Get
1259: );
1260: END IF;
1261: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1264: ROLLBACK TO BSCPMFUICrtTab;
1265: IF (x_msg_data IS NULL) THEN
1266: FND_MSG_PUB.Count_And_Get
1267: ( p_encoded => FND_API.G_FALSE
1263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1264: ROLLBACK TO BSCPMFUICrtTab;
1265: IF (x_msg_data IS NULL) THEN
1266: FND_MSG_PUB.Count_And_Get
1267: ( p_encoded => FND_API.G_FALSE
1268: , p_count => x_msg_count
1269: , p_data => x_msg_data
1270: );
1271: END IF;
1268: , p_count => x_msg_count
1269: , p_data => x_msg_data
1270: );
1271: END IF;
1272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1273: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1274: WHEN NO_DATA_FOUND THEN
1275: ROLLBACK TO BSCPMFUICrtTab;
1276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1269: , p_data => x_msg_data
1270: );
1271: END IF;
1272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1273: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1274: WHEN NO_DATA_FOUND THEN
1275: ROLLBACK TO BSCPMFUICrtTab;
1276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1277: IF (x_msg_data IS NOT NULL) THEN
1272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1273: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1274: WHEN NO_DATA_FOUND THEN
1275: ROLLBACK TO BSCPMFUICrtTab;
1276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1277: IF (x_msg_data IS NOT NULL) THEN
1278: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Tab ';
1279: ELSE
1280: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Tab ';
1281: END IF;
1282: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1283: WHEN OTHERS THEN
1284: ROLLBACK TO BSCPMFUICrtTab;
1285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1286: IF (x_msg_data IS NOT NULL) THEN
1287: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Tab ';
1288: ELSE
1289: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Tab ';
1296:
1297: --modified procedure to correct the way to get the tab_id
1298: -- Modifed Procedure to accept SHORT_NAME
1299: PROCEDURE Create_Tab
1300: ( p_Commit IN VARCHAR2 := FND_API.G_TRUE --should be false
1301: , p_Responsibility_Id IN NUMBER
1302: , p_Parent_Tab_Id IN NUMBER
1303: , p_Owner_Id IN NUMBER
1304: , p_Short_Name IN VARCHAR2 := NULL
1316: l_commit VARCHAR2(10);
1317: l_parent_tab_id NUMBER := NULL;
1318: BEGIN
1319: FND_MSG_PUB.Initialize;
1320: x_return_status := FND_API.G_RET_STS_SUCCESS;
1321: SAVEPOINT BSCPMFUICrtTab1;
1322: l_commit := FND_API.G_FALSE;
1323: -- check value of parent_tab_id. If value is -2 then the tab about to be created is
1324: -- a root tab (no parent), else this new tab will have a parent.
1318: BEGIN
1319: FND_MSG_PUB.Initialize;
1320: x_return_status := FND_API.G_RET_STS_SUCCESS;
1321: SAVEPOINT BSCPMFUICrtTab1;
1322: l_commit := FND_API.G_FALSE;
1323: -- check value of parent_tab_id. If value is -2 then the tab about to be created is
1324: -- a root tab (no parent), else this new tab will have a parent.
1325: IF (p_parent_tab_id >= 0) THEN
1326: l_parent_tab_id := p_parent_tab_id;
1332: ,x_Bsc_Tab_Entity_Rec => l_Bsc_Tab_Entity_Rec
1333: ,x_return_status => x_return_status
1334: ,x_msg_count => x_msg_count
1335: ,x_msg_data => x_msg_data);
1336: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1338: END IF;
1339:
1340: -- set the passed values to the record.
1333: ,x_return_status => x_return_status
1334: ,x_msg_count => x_msg_count
1335: ,x_msg_data => x_msg_data);
1336: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1338: END IF;
1339:
1340: -- set the passed values to the record.
1341: l_Bsc_Tab_Entity_Rec.Bsc_Parent_Tab_Id := l_parent_tab_id;
1353: , x_Bsc_Tab_Entity_Rec => l_Bsc_Tab_Entity_Rec_Out
1354: , x_return_status => x_return_status
1355: , x_msg_count => x_msg_count
1356: , x_msg_data => x_msg_data);
1357: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1359: END IF;
1360:
1361: x_tab_id := l_Bsc_Tab_Entity_Rec_Out.Bsc_Tab_Id;
1354: , x_return_status => x_return_status
1355: , x_msg_count => x_msg_count
1356: , x_msg_data => x_msg_data);
1357: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1359: END IF;
1360:
1361: x_tab_id := l_Bsc_Tab_Entity_Rec_Out.Bsc_Tab_Id;
1362:
1364: l_Bsc_Tab_Entity_Rec_P.Bsc_Tab_Id := p_parent_tab_id;
1365:
1366: --Update the tab time stamp for parent tab.
1367: IF (p_parent_tab_id is not NULL) THEN
1368: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
1369: , l_Bsc_Tab_Entity_Rec_P
1370: , x_return_status
1371: , x_msg_count
1372: , x_msg_data);
1369: , l_Bsc_Tab_Entity_Rec_P
1370: , x_return_status
1371: , x_msg_count
1372: , x_msg_data);
1373: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1375: END IF;
1376: END IF;
1377:
1370: , x_return_status
1371: , x_msg_count
1372: , x_msg_data);
1373: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1375: END IF;
1376: END IF;
1377:
1378: --update the system time stamp.
1375: END IF;
1376: END IF;
1377:
1378: --update the system time stamp.
1379: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
1380: , l_Bsc_Tab_Entity_Rec
1381: , x_return_status
1382: , x_msg_count
1383: , x_msg_data);
1380: , l_Bsc_Tab_Entity_Rec
1381: , x_return_status
1382: , x_msg_count
1383: , x_msg_data);
1384: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386: END IF;
1387:
1388: IF (p_commit = FND_API.G_TRUE) THEN
1381: , x_return_status
1382: , x_msg_count
1383: , x_msg_data);
1384: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386: END IF;
1387:
1388: IF (p_commit = FND_API.G_TRUE) THEN
1389: COMMIT;
1384: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386: END IF;
1387:
1388: IF (p_commit = FND_API.G_TRUE) THEN
1389: COMMIT;
1390: END IF;
1391:
1392: --DBMS_OUTPUT.PUT_LINE('Created tab_id '||x_tab_id);
1392: --DBMS_OUTPUT.PUT_LINE('Created tab_id '||x_tab_id);
1393:
1394:
1395: EXCEPTION
1396: WHEN FND_API.G_EXC_ERROR THEN
1397: ROLLBACK TO BSCPMFUICrtTab1;
1398: IF (x_msg_data IS NULL) THEN
1399: FND_MSG_PUB.Count_And_Get
1400: ( p_encoded => FND_API.G_FALSE
1396: WHEN FND_API.G_EXC_ERROR THEN
1397: ROLLBACK TO BSCPMFUICrtTab1;
1398: IF (x_msg_data IS NULL) THEN
1399: FND_MSG_PUB.Count_And_Get
1400: ( p_encoded => FND_API.G_FALSE
1401: , p_count => x_msg_count
1402: , p_data => x_msg_data
1403: );
1404: END IF;
1401: , p_count => x_msg_count
1402: , p_data => x_msg_data
1403: );
1404: END IF;
1405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: ROLLBACK TO BSCPMFUICrtTab1;
1409: IF (x_msg_data IS NULL) THEN
1402: , p_data => x_msg_data
1403: );
1404: END IF;
1405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: ROLLBACK TO BSCPMFUICrtTab1;
1409: IF (x_msg_data IS NULL) THEN
1410: FND_MSG_PUB.Count_And_Get
1403: );
1404: END IF;
1405: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: ROLLBACK TO BSCPMFUICrtTab1;
1409: IF (x_msg_data IS NULL) THEN
1410: FND_MSG_PUB.Count_And_Get
1411: ( p_encoded => FND_API.G_FALSE
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: ROLLBACK TO BSCPMFUICrtTab1;
1409: IF (x_msg_data IS NULL) THEN
1410: FND_MSG_PUB.Count_And_Get
1411: ( p_encoded => FND_API.G_FALSE
1412: , p_count => x_msg_count
1413: , p_data => x_msg_data
1414: );
1415: END IF;
1412: , p_count => x_msg_count
1413: , p_data => x_msg_data
1414: );
1415: END IF;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1418: WHEN NO_DATA_FOUND THEN
1419: ROLLBACK TO BSCPMFUICrtTab1;
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1413: , p_data => x_msg_data
1414: );
1415: END IF;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1418: WHEN NO_DATA_FOUND THEN
1419: ROLLBACK TO BSCPMFUICrtTab1;
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421: IF (x_msg_data IS NOT NULL) THEN
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1418: WHEN NO_DATA_FOUND THEN
1419: ROLLBACK TO BSCPMFUICrtTab1;
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421: IF (x_msg_data IS NOT NULL) THEN
1422: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Tab ';
1423: ELSE
1424: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Tab ';
1425: END IF;
1426: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1427: WHEN OTHERS THEN
1428: ROLLBACK TO BSCPMFUICrtTab1;
1429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: IF (x_msg_data IS NOT NULL) THEN
1431: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Tab ';
1432: ELSE
1433: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Tab ';
1444: -- BSC APIs because these commits will undo the indicator lock. The commit is
1445: -- executed at the end of this procedure.
1446:
1447: procedure Update_Tab(
1448: p_commit IN VARCHAR2 := FND_API.G_TRUE
1449: ,p_tab_id IN number
1450: ,p_tab_name IN varchar2
1451: ,x_return_status OUT NOCOPY varchar2
1452: ,x_msg_count OUT NOCOPY number
1459: l_commit varchar2(10);
1460:
1461: begin
1462: FND_MSG_PUB.Initialize;
1463: x_return_status := FND_API.G_RET_STS_SUCCESS;
1464: SAVEPOINT BSCPMFUIUpdTab;
1465: BSC_PMF_UI_WRAPPER.Update_Tab
1466: ( p_commit => FND_API.G_FALSE
1467: , p_tab_id => p_tab_id
1462: FND_MSG_PUB.Initialize;
1463: x_return_status := FND_API.G_RET_STS_SUCCESS;
1464: SAVEPOINT BSCPMFUIUpdTab;
1465: BSC_PMF_UI_WRAPPER.Update_Tab
1466: ( p_commit => FND_API.G_FALSE
1467: , p_tab_id => p_tab_id
1468: , p_owner_id => NULL
1469: , p_tab_name => p_tab_name
1470: , x_return_status => x_return_status
1473: , p_tab_help => p_tab_help
1474: , p_tab_info => NULL
1475: , p_time_stamp => NULL
1476: );
1477: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1479: END IF;
1480:
1481:
1474: , p_tab_info => NULL
1475: , p_time_stamp => NULL
1476: );
1477: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1479: END IF;
1480:
1481:
1482: IF (p_commit = FND_API.G_TRUE) THEN
1478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1479: END IF;
1480:
1481:
1482: IF (p_commit = FND_API.G_TRUE) THEN
1483: COMMIT;
1484: END IF;
1485:
1486: EXCEPTION
1483: COMMIT;
1484: END IF;
1485:
1486: EXCEPTION
1487: WHEN FND_API.G_EXC_ERROR THEN
1488: ROLLBACK TO BSCPMFUIUpdTab;
1489: IF (x_msg_data IS NULL) THEN
1490: FND_MSG_PUB.Count_And_Get
1491: ( p_encoded => FND_API.G_FALSE
1487: WHEN FND_API.G_EXC_ERROR THEN
1488: ROLLBACK TO BSCPMFUIUpdTab;
1489: IF (x_msg_data IS NULL) THEN
1490: FND_MSG_PUB.Count_And_Get
1491: ( p_encoded => FND_API.G_FALSE
1492: , p_count => x_msg_count
1493: , p_data => x_msg_data
1494: );
1495: END IF;
1492: , p_count => x_msg_count
1493: , p_data => x_msg_data
1494: );
1495: END IF;
1496: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1497: x_return_status := FND_API.G_RET_STS_ERROR;
1498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1499: ROLLBACK TO BSCPMFUIUpdTab;
1500: IF (x_msg_data IS NULL) THEN
1493: , p_data => x_msg_data
1494: );
1495: END IF;
1496: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1497: x_return_status := FND_API.G_RET_STS_ERROR;
1498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1499: ROLLBACK TO BSCPMFUIUpdTab;
1500: IF (x_msg_data IS NULL) THEN
1501: FND_MSG_PUB.Count_And_Get
1494: );
1495: END IF;
1496: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1497: x_return_status := FND_API.G_RET_STS_ERROR;
1498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1499: ROLLBACK TO BSCPMFUIUpdTab;
1500: IF (x_msg_data IS NULL) THEN
1501: FND_MSG_PUB.Count_And_Get
1502: ( p_encoded => FND_API.G_FALSE
1498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1499: ROLLBACK TO BSCPMFUIUpdTab;
1500: IF (x_msg_data IS NULL) THEN
1501: FND_MSG_PUB.Count_And_Get
1502: ( p_encoded => FND_API.G_FALSE
1503: , p_count => x_msg_count
1504: , p_data => x_msg_data
1505: );
1506: END IF;
1503: , p_count => x_msg_count
1504: , p_data => x_msg_data
1505: );
1506: END IF;
1507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1509: WHEN NO_DATA_FOUND THEN
1510: ROLLBACK TO BSCPMFUIUpdTab;
1511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1504: , p_data => x_msg_data
1505: );
1506: END IF;
1507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1509: WHEN NO_DATA_FOUND THEN
1510: ROLLBACK TO BSCPMFUIUpdTab;
1511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1512: IF (x_msg_data IS NOT NULL) THEN
1507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1509: WHEN NO_DATA_FOUND THEN
1510: ROLLBACK TO BSCPMFUIUpdTab;
1511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1512: IF (x_msg_data IS NOT NULL) THEN
1513: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Tab ';
1514: ELSE
1515: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Tab ';
1516: END IF;
1517: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1518: WHEN OTHERS THEN
1519: ROLLBACK TO BSCPMFUIUpdTab;
1520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1521: IF (x_msg_data IS NOT NULL) THEN
1522: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Tab ';
1523: ELSE
1524: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Tab ';
1534: -- BSC APIs because these commits will undo the indicator lock. The commit is
1535: -- executed at the end of this procedure.
1536:
1537: procedure Update_Tab(
1538: p_commit IN VARCHAR2 := FND_API.G_TRUE
1539: ,p_tab_id IN number
1540: ,p_owner_id IN number
1541: ,p_tab_name IN varchar2
1542: ,x_return_status OUT NOCOPY varchar2
1557: FROM BSC_TABS_VL
1558: WHERE Tab_Id = l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id;
1559: begin
1560: FND_MSG_PUB.Initialize;
1561: x_return_status := FND_API.G_RET_STS_SUCCESS;
1562: SAVEPOINT BSCPMFUIUpdTab1;
1563: l_commit := FND_API.G_FALSE;
1564:
1565: IF (c_Tab_Name%ISOPEN) THEN
1559: begin
1560: FND_MSG_PUB.Initialize;
1561: x_return_status := FND_API.G_RET_STS_SUCCESS;
1562: SAVEPOINT BSCPMFUIUpdTab1;
1563: l_commit := FND_API.G_FALSE;
1564:
1565: IF (c_Tab_Name%ISOPEN) THEN
1566: CLOSE c_Tab_Name;
1567: END IF;
1572: IF (l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name IS NULL) THEN
1573: FND_MESSAGE.SET_NAME('BSC','BSC_MUSER_DELETE_MESSAGE');
1574: FND_MESSAGE.SET_TOKEN('TYPE', BSC_APPS.Get_Lookup_Value('BSC_UI_IVIEWER', 'SCORECARD'), TRUE);
1575: FND_MSG_PUB.ADD;
1576: RAISE FND_API.G_EXC_ERROR;
1577: END IF;
1578: IF ((p_tab_name IS NOT NULL) AND (l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name <> p_tab_name)) THEN
1579: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name := TRIM(p_tab_name);
1580:
1585: IF (l_Count <> 0) THEN
1586: FND_MESSAGE.SET_NAME('BSC', 'BSC_TAB_NAME_EXISTS');
1587: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name);
1588: FND_MSG_PUB.ADD;
1589: RAISE FND_API.G_EXC_ERROR;
1590: END IF;
1591: END IF;
1592:
1593: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Help := p_tab_help;
1608: ,x_return_status => x_return_status
1609: ,x_msg_count => x_msg_count
1610: ,x_msg_data => x_msg_data
1611: );
1612: IF ((x_return_status IS NOT NULL)AND(x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1614: END IF;
1615:
1616:
1609: ,x_msg_count => x_msg_count
1610: ,x_msg_data => x_msg_data
1611: );
1612: IF ((x_return_status IS NOT NULL)AND(x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1614: END IF;
1615:
1616:
1617: BSC_SCORECARD_PUB.Update_Tab( FND_API.G_FALSE
1613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1614: END IF;
1615:
1616:
1617: BSC_SCORECARD_PUB.Update_Tab( FND_API.G_FALSE
1618: ,l_Bsc_Tab_Entity_Rec
1619: ,x_return_status
1620: ,x_msg_count
1621: ,x_msg_data);
1618: ,l_Bsc_Tab_Entity_Rec
1619: ,x_return_status
1620: ,x_msg_count
1621: ,x_msg_data);
1622: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625:
1626: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
1619: ,x_return_status
1620: ,x_msg_count
1621: ,x_msg_data);
1622: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625:
1626: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
1627: ,l_Bsc_Tab_Entity_Rec
1622: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625:
1626: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
1627: ,l_Bsc_Tab_Entity_Rec
1628: ,x_return_status
1629: ,x_msg_count
1630: ,x_msg_data);
1627: ,l_Bsc_Tab_Entity_Rec
1628: ,x_return_status
1629: ,x_msg_count
1630: ,x_msg_data);
1631: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
1628: ,x_return_status
1629: ,x_msg_count
1630: ,x_msg_data);
1631: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
1636: ,l_Bsc_Tab_Entity_Rec
1631: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
1636: ,l_Bsc_Tab_Entity_Rec
1637: ,x_return_status
1638: ,x_msg_count
1639: ,x_msg_data);
1636: ,l_Bsc_Tab_Entity_Rec
1637: ,x_return_status
1638: ,x_msg_count
1639: ,x_msg_data);
1640: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1642: END IF;
1643:
1644: IF (p_commit = FND_API.G_TRUE) THEN
1637: ,x_return_status
1638: ,x_msg_count
1639: ,x_msg_data);
1640: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1642: END IF;
1643:
1644: IF (p_commit = FND_API.G_TRUE) THEN
1645: COMMIT;
1640: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1642: END IF;
1643:
1644: IF (p_commit = FND_API.G_TRUE) THEN
1645: COMMIT;
1646: END IF;
1647: --DBMS_OUTPUT.PUT_LINE('End Update_Tab ');
1648:
1646: END IF;
1647: --DBMS_OUTPUT.PUT_LINE('End Update_Tab ');
1648:
1649: EXCEPTION
1650: WHEN FND_API.G_EXC_ERROR THEN
1651: ROLLBACK TO BSCPMFUIUpdTab1;
1652: IF (c_Tab_Name%ISOPEN) THEN
1653: CLOSE c_Tab_Name;
1654: END IF;
1653: CLOSE c_Tab_Name;
1654: END IF;
1655: IF (x_msg_data IS NULL) THEN
1656: FND_MSG_PUB.Count_And_Get
1657: ( p_encoded => FND_API.G_FALSE
1658: , p_count => x_msg_count
1659: , p_data => x_msg_data
1660: );
1661: END IF;
1658: , p_count => x_msg_count
1659: , p_data => x_msg_data
1660: );
1661: END IF;
1662: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1663: x_return_status := FND_API.G_RET_STS_ERROR;
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665: ROLLBACK TO BSCPMFUIUpdTab1;
1666: IF (c_Tab_Name%ISOPEN) THEN
1659: , p_data => x_msg_data
1660: );
1661: END IF;
1662: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1663: x_return_status := FND_API.G_RET_STS_ERROR;
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665: ROLLBACK TO BSCPMFUIUpdTab1;
1666: IF (c_Tab_Name%ISOPEN) THEN
1667: CLOSE c_Tab_Name;
1660: );
1661: END IF;
1662: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1663: x_return_status := FND_API.G_RET_STS_ERROR;
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665: ROLLBACK TO BSCPMFUIUpdTab1;
1666: IF (c_Tab_Name%ISOPEN) THEN
1667: CLOSE c_Tab_Name;
1668: END IF;
1667: CLOSE c_Tab_Name;
1668: END IF;
1669: IF (x_msg_data IS NULL) THEN
1670: FND_MSG_PUB.Count_And_Get
1671: ( p_encoded => FND_API.G_FALSE
1672: , p_count => x_msg_count
1673: , p_data => x_msg_data
1674: );
1675: END IF;
1672: , p_count => x_msg_count
1673: , p_data => x_msg_data
1674: );
1675: END IF;
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1677: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1678: WHEN NO_DATA_FOUND THEN
1679: ROLLBACK TO BSCPMFUIUpdTab1;
1680: IF (c_Tab_Name%ISOPEN) THEN
1673: , p_data => x_msg_data
1674: );
1675: END IF;
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1677: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1678: WHEN NO_DATA_FOUND THEN
1679: ROLLBACK TO BSCPMFUIUpdTab1;
1680: IF (c_Tab_Name%ISOPEN) THEN
1681: CLOSE c_Tab_Name;
1679: ROLLBACK TO BSCPMFUIUpdTab1;
1680: IF (c_Tab_Name%ISOPEN) THEN
1681: CLOSE c_Tab_Name;
1682: END IF;
1683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1684: IF (x_msg_data IS NOT NULL) THEN
1685: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Tab ';
1686: ELSE
1687: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Tab ';
1691: ROLLBACK TO BSCPMFUIUpdTab1;
1692: IF (c_Tab_Name%ISOPEN) THEN
1693: CLOSE c_Tab_Name;
1694: END IF;
1695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1696: IF (x_msg_data IS NOT NULL) THEN
1697: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Tab ';
1698: ELSE
1699: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Tab ';
1705: /************************************************************************************
1706: ************************************************************************************/
1707:
1708: procedure Update_Analysis_Option(
1709: p_commit IN VARCHAR2 := FND_API.G_TRUE
1710: ,p_kpi_id IN number
1711: ,p_option_group_id IN number
1712: ,p_option_id IN number
1713: ,p_option_name IN varchar2
1723: l_commit varchar2(10);
1724:
1725: begin
1726: FND_MSG_PUB.Initialize;
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728: SAVEPOINT BSCPMFUIUpdAnaOpt;
1729: l_commit := FND_API.G_FALSE;
1730:
1731: l_Bsc_Option_Rec.Bsc_Kpi_Id := p_kpi_id;
1725: begin
1726: FND_MSG_PUB.Initialize;
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728: SAVEPOINT BSCPMFUIUpdAnaOpt;
1729: l_commit := FND_API.G_FALSE;
1730:
1731: l_Bsc_Option_Rec.Bsc_Kpi_Id := p_kpi_id;
1732: l_Bsc_Option_Rec.Bsc_Analysis_Group_Id := p_option_group_id;
1733: l_Bsc_Option_Rec.Bsc_Analysis_Option_Id := p_option_id;
1740: -- set some default values.
1741: l_Bsc_Option_Rec.Bsc_Language := 'US';
1742: l_Bsc_Option_Rec.Bsc_Source_Language := 'US';
1743:
1744: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options( FND_API.G_FALSE
1745: ,l_Bsc_Option_Rec
1746: ,x_return_status
1747: ,x_msg_count
1748: ,x_msg_data);
1745: ,l_Bsc_Option_Rec
1746: ,x_return_status
1747: ,x_msg_count
1748: ,x_msg_data);
1749: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1751: END IF;
1752:
1753: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
1746: ,x_return_status
1747: ,x_msg_count
1748: ,x_msg_data);
1749: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1751: END IF;
1752:
1753: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
1754: BSC_KPI_PUB.Update_Kpi_Time_Stamp( FND_API.G_FALSE
1750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1751: END IF;
1752:
1753: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
1754: BSC_KPI_PUB.Update_Kpi_Time_Stamp( FND_API.G_FALSE
1755: ,l_Bsc_Kpi_Entity_Rec
1756: ,x_return_status
1757: ,x_msg_count
1758: ,x_msg_data);
1755: ,l_Bsc_Kpi_Entity_Rec
1756: ,x_return_status
1757: ,x_msg_count
1758: ,x_msg_data);
1759: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1761: END IF;
1762:
1763: IF (p_commit = FND_API.G_TRUE) THEN
1756: ,x_return_status
1757: ,x_msg_count
1758: ,x_msg_data);
1759: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1761: END IF;
1762:
1763: IF (p_commit = FND_API.G_TRUE) THEN
1764: COMMIT;
1759: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1761: END IF;
1762:
1763: IF (p_commit = FND_API.G_TRUE) THEN
1764: COMMIT;
1765: END IF;
1766:
1767: EXCEPTION
1764: COMMIT;
1765: END IF;
1766:
1767: EXCEPTION
1768: WHEN FND_API.G_EXC_ERROR THEN
1769: rollback to BSCPMFUIUpdAnaOpt;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1772: ,p_data => x_msg_data);
1766:
1767: EXCEPTION
1768: WHEN FND_API.G_EXC_ERROR THEN
1769: rollback to BSCPMFUIUpdAnaOpt;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1772: ,p_data => x_msg_data);
1773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1774: rollback to BSCPMFUIUpdAnaOpt;
1769: rollback to BSCPMFUIUpdAnaOpt;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1772: ,p_data => x_msg_data);
1773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1774: rollback to BSCPMFUIUpdAnaOpt;
1775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1776: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1777: ,p_data => x_msg_data);
1771: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1772: ,p_data => x_msg_data);
1773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1774: rollback to BSCPMFUIUpdAnaOpt;
1775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1776: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1777: ,p_data => x_msg_data);
1778: WHEN NO_DATA_FOUND THEN
1779: rollback to BSCPMFUIUpdAnaOpt;
1776: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1777: ,p_data => x_msg_data);
1778: WHEN NO_DATA_FOUND THEN
1779: rollback to BSCPMFUIUpdAnaOpt;
1780: x_return_status := FND_API.G_RET_STS_ERROR;
1781: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1782: ,p_data => x_msg_data);
1783: WHEN OTHERS THEN
1784: rollback to BSCPMFUIUpdAnaOpt;
1781: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1782: ,p_data => x_msg_data);
1783: WHEN OTHERS THEN
1784: rollback to BSCPMFUIUpdAnaOpt;
1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1786: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1787: ,p_data => x_msg_data);
1788:
1789: end Update_Analysis_Option;
1791: /************************************************************************************
1792: ************************************************************************************/
1793:
1794: procedure Delete_Analysis_Option(
1795: p_commit IN VARCHAR2 := FND_API.G_TRUE
1796: ,p_kpi_id IN number
1797: ,p_option_group_id IN number
1798: ,p_option_id IN number
1799: ,x_return_status OUT NOCOPY varchar2
1823: l_tab_id number;
1824:
1825: begin
1826: FND_MSG_PUB.Initialize;
1827: x_return_status := FND_API.G_RET_STS_SUCCESS;
1828: l_commit := FND_API.G_FALSE;
1829:
1830: -- set some of the values for the Record Type
1831: l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id := p_kpi_id;
1824:
1825: begin
1826: FND_MSG_PUB.Initialize;
1827: x_return_status := FND_API.G_RET_STS_SUCCESS;
1828: l_commit := FND_API.G_FALSE;
1829:
1830: -- set some of the values for the Record Type
1831: l_Bsc_Anal_Opt_Rec.Bsc_Kpi_Id := p_kpi_id;
1832: l_Bsc_Anal_Opt_Rec.Bsc_Analysis_Group_Id := p_option_group_id;
1874: and option_id = p_option_id;
1875:
1876:
1877: -- Call Analysis Option API.
1878: BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options( FND_API.G_FALSE
1879: ,l_Bsc_Anal_Opt_Rec
1880: ,x_return_status
1881: ,x_msg_count
1882: ,x_msg_data);
1879: ,l_Bsc_Anal_Opt_Rec
1880: ,x_return_status
1881: ,x_msg_count
1882: ,x_msg_data);
1883: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886:
1887: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
1880: ,x_return_status
1881: ,x_msg_count
1882: ,x_msg_data);
1883: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886:
1887: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
1888: BSC_KPI_PUB.Update_Kpi_Time_Stamp( FND_API.G_FALSE
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886:
1887: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
1888: BSC_KPI_PUB.Update_Kpi_Time_Stamp( FND_API.G_FALSE
1889: ,l_Bsc_Kpi_Entity_Rec
1890: ,x_return_status
1891: ,x_msg_count
1892: ,x_msg_data);
1889: ,l_Bsc_Kpi_Entity_Rec
1890: ,x_return_status
1891: ,x_msg_count
1892: ,x_msg_data);
1893: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1895: END IF;
1896:
1897: -- Determine if the dimension set is being used by other options.
1890: ,x_return_status
1891: ,x_msg_count
1892: ,x_msg_data);
1893: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1895: END IF;
1896:
1897: -- Determine if the dimension set is being used by other options.
1898: select count(option_id)
1947: loop
1948: fetch dc_opt into l_Bsc_Dim_Set_Rec_Type.Bsc_Dim_Level_Group_Id;
1949: exit when dc_opt%NOTFOUND;
1950:
1951: BSC_DIMENSION_SETS_PVT.Delete_Dim_Group_In_Dset( FND_API.G_FALSE
1952: ,l_Bsc_Dim_Set_Rec_Type
1953: ,x_return_status
1954: ,x_msg_count
1955: ,x_msg_data);
1952: ,l_Bsc_Dim_Set_Rec_Type
1953: ,x_return_status
1954: ,x_msg_count
1955: ,x_msg_data);
1956: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1958: END IF;
1959:
1960: -- l_Bsc_Dim_Set_Rec_Type.Bsc_Action := 'RESET';
1953: ,x_return_status
1954: ,x_msg_count
1955: ,x_msg_data);
1956: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1958: END IF;
1959:
1960: -- l_Bsc_Dim_Set_Rec_Type.Bsc_Action := 'RESET';
1961:
1967: where indicator = l_Bsc_Dim_Set_Rec_Type.Bsc_Kpi_Id
1968: and dim_set_id = l_dim_set_id;
1969:
1970:
1971: BSC_DIMENSION_SETS_PVT.Delete_Dim_Levels( FND_API.G_FALSE
1972: ,l_Bsc_Dim_Set_Rec_Type
1973: ,x_return_status
1974: ,x_msg_count
1975: ,x_msg_data);
1972: ,l_Bsc_Dim_Set_Rec_Type
1973: ,x_return_status
1974: ,x_msg_count
1975: ,x_msg_data);
1976: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978: END IF;
1979:
1980: BSC_DIMENSION_SETS_PUB.Delete_Bsc_Kpi_Dim_Sets_Tl( FND_API.G_FALSE
1973: ,x_return_status
1974: ,x_msg_count
1975: ,x_msg_data);
1976: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978: END IF;
1979:
1980: BSC_DIMENSION_SETS_PUB.Delete_Bsc_Kpi_Dim_Sets_Tl( FND_API.G_FALSE
1981: ,l_Bsc_Dim_Set_Rec_Type
1976: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978: END IF;
1979:
1980: BSC_DIMENSION_SETS_PUB.Delete_Bsc_Kpi_Dim_Sets_Tl( FND_API.G_FALSE
1981: ,l_Bsc_Dim_Set_Rec_Type
1982: ,x_return_status
1983: ,x_msg_count
1984: ,x_msg_data);
1981: ,l_Bsc_Dim_Set_Rec_Type
1982: ,x_return_status
1983: ,x_msg_count
1984: ,x_msg_data);
1985: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1987: END IF;
1988:
1989: -- Need to call procedure for list button logic.
1982: ,x_return_status
1983: ,x_msg_count
1984: ,x_msg_data);
1985: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1987: END IF;
1988:
1989: -- Need to call procedure for list button logic.
1990: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels( FND_API.G_FALSE
1986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1987: END IF;
1988:
1989: -- Need to call procedure for list button logic.
1990: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels( FND_API.G_FALSE
1991: ,l_tab_id
1992: ,x_return_status
1993: ,x_msg_count
1994: ,x_msg_data);
1991: ,l_tab_id
1992: ,x_return_status
1993: ,x_msg_count
1994: ,x_msg_data);
1995: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: END IF;
1998:
1999: end loop;
1992: ,x_return_status
1993: ,x_msg_count
1994: ,x_msg_data);
1995: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: END IF;
1998:
1999: end loop;
2000:
2001: close dc_shr;
2002:
2003: end if;
2004:
2005: IF (p_commit = FND_API.G_TRUE) THEN
2006: COMMIT;
2007: END IF;
2008:
2009: EXCEPTION
2006: COMMIT;
2007: END IF;
2008:
2009: EXCEPTION
2010: WHEN FND_API.G_EXC_ERROR THEN
2011: rollback;
2012: x_return_status := FND_API.G_RET_STS_ERROR;
2013: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2014: ,p_data => x_msg_data);
2008:
2009: EXCEPTION
2010: WHEN FND_API.G_EXC_ERROR THEN
2011: rollback;
2012: x_return_status := FND_API.G_RET_STS_ERROR;
2013: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2014: ,p_data => x_msg_data);
2015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2016: rollback;
2011: rollback;
2012: x_return_status := FND_API.G_RET_STS_ERROR;
2013: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2014: ,p_data => x_msg_data);
2015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2016: rollback;
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2019: ,p_data => x_msg_data);
2013: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2014: ,p_data => x_msg_data);
2015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2016: rollback;
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2019: ,p_data => x_msg_data);
2020: WHEN NO_DATA_FOUND THEN
2021: rollback;
2018: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2019: ,p_data => x_msg_data);
2020: WHEN NO_DATA_FOUND THEN
2021: rollback;
2022: x_return_status := FND_API.G_RET_STS_ERROR;
2023: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2024: ,p_data => x_msg_data);
2025: WHEN OTHERS THEN
2026: rollback;
2023: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2024: ,p_data => x_msg_data);
2025: WHEN OTHERS THEN
2026: rollback;
2027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2028: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
2029: ,p_data => x_msg_data);
2030:
2031:
2035: /************************************************************************************
2036: ************************************************************************************/
2037:
2038: procedure Delete_Kpi(
2039: p_commit IN VARCHAR2 := FND_API.G_TRUE
2040: ,p_kpi_id IN NUMBER
2041: ,x_return_status OUT NOCOPY VARCHAR2
2042: ,x_msg_count OUT NOCOPY NUMBER
2043: ,x_msg_data OUT NOCOPY VARCHAR2
2063: AND ((B.Indicator = p_kpi_id) OR (B.Source_Indicator = p_kpi_id));
2064:
2065: begin
2066: FND_MSG_PUB.Initialize;
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2068: SAVEPOINT BSCDelKPIWrapper;
2069: l_commit := FND_API.G_TRUE;
2070:
2071: -- check if this Indicator has been assigned to a Tab.
2065: begin
2066: FND_MSG_PUB.Initialize;
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2068: SAVEPOINT BSCDelKPIWrapper;
2069: l_commit := FND_API.G_TRUE;
2070:
2071: -- check if this Indicator has been assigned to a Tab.
2072: select count(tab_id)
2073: into l_count
2091: l_Tabs_Tbl_Type(l_Row_Count).Bsc_tab_id := cd.Tab_Id;
2092: l_Row_Count := l_Row_Count + 1;
2093: END LOOP;
2094:
2095: BSC_KPI_PUB.Delete_Kpi( FND_API.G_FALSE
2096: ,l_Bsc_Kpi_Entity
2097: ,x_return_status
2098: ,x_msg_count
2099: ,x_msg_data);
2096: ,l_Bsc_Kpi_Entity
2097: ,x_return_status
2098: ,x_msg_count
2099: ,x_msg_data);
2100: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103: -- if indicator assigned to a tab then get tab id and update time stamp.
2104:
2097: ,x_return_status
2098: ,x_msg_count
2099: ,x_msg_data);
2100: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103: -- if indicator assigned to a tab then get tab id and update time stamp.
2104:
2105: FOR i IN 0..(l_Tabs_Tbl_Type.COUNT-1 ) LOOP
2108: , x_return_status => x_return_status
2109: , x_msg_count => x_msg_count
2110: , x_msg_data => x_msg_data
2111: );
2112: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2113: --DBMS_OUTPUT.PUT_LINE('BSC_PMF_UI_WRAPPER.Delete_Kpi Failed: at BSC_DIM_FILTERS_PUB.Check_Filters_Not_Apply');
2114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2115: END IF;
2116: END LOOP;
2110: , x_msg_data => x_msg_data
2111: );
2112: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2113: --DBMS_OUTPUT.PUT_LINE('BSC_PMF_UI_WRAPPER.Delete_Kpi Failed: at BSC_DIM_FILTERS_PUB.Check_Filters_Not_Apply');
2114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2115: END IF;
2116: END LOOP;
2117:
2118: if l_count > 0 then
2116: END LOOP;
2117:
2118: if l_count > 0 then
2119:
2120: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
2121: ,l_Bsc_Tab_Entity_Rec
2122: ,x_return_status
2123: ,x_msg_count
2124: ,x_msg_data);
2121: ,l_Bsc_Tab_Entity_Rec
2122: ,x_return_status
2123: ,x_msg_count
2124: ,x_msg_data);
2125: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2127: END IF;
2128:
2129: end if;
2122: ,x_return_status
2123: ,x_msg_count
2124: ,x_msg_data);
2125: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2127: END IF;
2128:
2129: end if;
2130:
2128:
2129: end if;
2130:
2131:
2132: IF (p_commit = FND_API.G_TRUE) THEN
2133: COMMIT;
2134: END IF;
2135:
2136: EXCEPTION
2133: COMMIT;
2134: END IF;
2135:
2136: EXCEPTION
2137: WHEN FND_API.G_EXC_ERROR THEN
2138:
2139: IF(c_Tab_Id%ISOPEN) THEN
2140: CLOSE c_Tab_Id;
2141: END IF;
2142:
2143: ROLLBACK TO BSCDelKPIWrapper;
2144: IF (x_msg_data IS NULL) THEN
2145: FND_MSG_PUB.Count_And_Get
2146: ( p_encoded => FND_API.G_FALSE
2147: , p_count => x_msg_count
2148: , p_data => x_msg_data
2149: );
2150: END IF;
2147: , p_count => x_msg_count
2148: , p_data => x_msg_data
2149: );
2150: END IF;
2151: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2152: x_return_status := FND_API.G_RET_STS_ERROR;
2153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2154:
2155: IF(c_Tab_Id%ISOPEN) THEN
2148: , p_data => x_msg_data
2149: );
2150: END IF;
2151: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2152: x_return_status := FND_API.G_RET_STS_ERROR;
2153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2154:
2155: IF(c_Tab_Id%ISOPEN) THEN
2156: CLOSE c_Tab_Id;
2149: );
2150: END IF;
2151: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2152: x_return_status := FND_API.G_RET_STS_ERROR;
2153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2154:
2155: IF(c_Tab_Id%ISOPEN) THEN
2156: CLOSE c_Tab_Id;
2157: END IF;
2157: END IF;
2158: ROLLBACK TO BSCDelKPIWrapper;
2159: IF (x_msg_data IS NULL) THEN
2160: FND_MSG_PUB.Count_And_Get
2161: ( p_encoded => FND_API.G_FALSE
2162: , p_count => x_msg_count
2163: , p_data => x_msg_data
2164: );
2165: END IF;
2162: , p_count => x_msg_count
2163: , p_data => x_msg_data
2164: );
2165: END IF;
2166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2167: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2168: WHEN NO_DATA_FOUND THEN
2169:
2170: IF(c_Tab_Id%ISOPEN) THEN
2163: , p_data => x_msg_data
2164: );
2165: END IF;
2166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2167: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2168: WHEN NO_DATA_FOUND THEN
2169:
2170: IF(c_Tab_Id%ISOPEN) THEN
2171: CLOSE c_Tab_Id;
2170: IF(c_Tab_Id%ISOPEN) THEN
2171: CLOSE c_Tab_Id;
2172: END IF;
2173: ROLLBACK TO BSCDelKPIWrapper;
2174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2175: IF (x_msg_data IS NOT NULL) THEN
2176: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Delete_Kpi ';
2177: ELSE
2178: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Delete_Kpi ';
2183: IF(c_Tab_Id%ISOPEN) THEN
2184: CLOSE c_Tab_Id;
2185: END IF;
2186: ROLLBACK TO BSCDelKPIWrapper;
2187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2188: IF (x_msg_data IS NOT NULL) THEN
2189: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Delete_Kpi ';
2190: ELSE
2191: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Delete_Kpi ';
2196: /************************************************************************************
2197: ************************************************************************************/
2198:
2199: procedure Delete_Kpi_Group(
2200: p_commit IN VARCHAR2 := FND_API.G_TRUE
2201: ,p_kpi_group_id IN number
2202: ,p_tab_id IN number
2203: ,x_return_status OUT NOCOPY varchar2
2204: ,x_msg_count OUT NOCOPY number
2210: l_count NUMBER;
2211: l_group_name BSC_TAB_IND_GROUPS_TL.name%TYPE;
2212: begin
2213: FND_MSG_PUB.Initialize;
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2215: SAVEPOINT BSCDelKPIGrpWrapper;
2216: l_commit := FND_API.G_TRUE;
2217:
2218: -- set some of the values for the Record Type
2212: begin
2213: FND_MSG_PUB.Initialize;
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2215: SAVEPOINT BSCDelKPIGrpWrapper;
2216: l_commit := FND_API.G_TRUE;
2217:
2218: -- set some of the values for the Record Type
2219: l_Bsc_Kpi_Group.Bsc_Kpi_Group_Id := p_kpi_group_id;
2220: l_Bsc_Kpi_Group.Bsc_Tab_Id := p_tab_id;
2219: l_Bsc_Kpi_Group.Bsc_Kpi_Group_Id := p_kpi_group_id;
2220: l_Bsc_Kpi_Group.Bsc_Tab_Id := p_tab_id;
2221: --before deleteing indicator group, delete all the indicators first
2222:
2223: BSC_KPI_GROUP_PUB.Delete_Kpi_Group( FND_API.G_FALSE
2224: ,l_Bsc_Kpi_Group
2225: ,x_return_status
2226: ,x_msg_count
2227: ,x_msg_data);
2224: ,l_Bsc_Kpi_Group
2225: ,x_return_status
2226: ,x_msg_count
2227: ,x_msg_data);
2228: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2230: END IF;
2231: IF (p_commit = FND_API.G_TRUE) THEN
2232: COMMIT;
2225: ,x_return_status
2226: ,x_msg_count
2227: ,x_msg_data);
2228: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2230: END IF;
2231: IF (p_commit = FND_API.G_TRUE) THEN
2232: COMMIT;
2233: END IF;
2227: ,x_msg_data);
2228: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2230: END IF;
2231: IF (p_commit = FND_API.G_TRUE) THEN
2232: COMMIT;
2233: END IF;
2234:
2235: EXCEPTION
2232: COMMIT;
2233: END IF;
2234:
2235: EXCEPTION
2236: WHEN FND_API.G_EXC_ERROR THEN
2237: ROLLBACK TO BSCDelKPIGrpWrapper;
2238: IF (x_msg_data IS NULL) THEN
2239: FND_MSG_PUB.Count_And_Get
2240: ( p_encoded => FND_API.G_FALSE
2236: WHEN FND_API.G_EXC_ERROR THEN
2237: ROLLBACK TO BSCDelKPIGrpWrapper;
2238: IF (x_msg_data IS NULL) THEN
2239: FND_MSG_PUB.Count_And_Get
2240: ( p_encoded => FND_API.G_FALSE
2241: , p_count => x_msg_count
2242: , p_data => x_msg_data
2243: );
2244: END IF;
2241: , p_count => x_msg_count
2242: , p_data => x_msg_data
2243: );
2244: END IF;
2245: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2246: x_return_status := FND_API.G_RET_STS_ERROR;
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: ROLLBACK TO BSCDelKPIGrpWrapper;
2249: IF (x_msg_data IS NULL) THEN
2242: , p_data => x_msg_data
2243: );
2244: END IF;
2245: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2246: x_return_status := FND_API.G_RET_STS_ERROR;
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: ROLLBACK TO BSCDelKPIGrpWrapper;
2249: IF (x_msg_data IS NULL) THEN
2250: FND_MSG_PUB.Count_And_Get
2243: );
2244: END IF;
2245: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2246: x_return_status := FND_API.G_RET_STS_ERROR;
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: ROLLBACK TO BSCDelKPIGrpWrapper;
2249: IF (x_msg_data IS NULL) THEN
2250: FND_MSG_PUB.Count_And_Get
2251: ( p_encoded => FND_API.G_FALSE
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: ROLLBACK TO BSCDelKPIGrpWrapper;
2249: IF (x_msg_data IS NULL) THEN
2250: FND_MSG_PUB.Count_And_Get
2251: ( p_encoded => FND_API.G_FALSE
2252: , p_count => x_msg_count
2253: , p_data => x_msg_data
2254: );
2255: END IF;
2252: , p_count => x_msg_count
2253: , p_data => x_msg_data
2254: );
2255: END IF;
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2257: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2258: WHEN NO_DATA_FOUND THEN
2259: ROLLBACK TO BSCDelKPIGrpWrapper;
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2253: , p_data => x_msg_data
2254: );
2255: END IF;
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2257: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2258: WHEN NO_DATA_FOUND THEN
2259: ROLLBACK TO BSCDelKPIGrpWrapper;
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2261: IF (x_msg_data IS NOT NULL) THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2257: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2258: WHEN NO_DATA_FOUND THEN
2259: ROLLBACK TO BSCDelKPIGrpWrapper;
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2261: IF (x_msg_data IS NOT NULL) THEN
2262: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Delete_Kpi_Group ';
2263: ELSE
2264: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Delete_Kpi_Group ';
2265: END IF;
2266: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2267: WHEN OTHERS THEN
2268: ROLLBACK TO BSCDelKPIGrpWrapper;
2269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2270: IF (x_msg_data IS NOT NULL) THEN
2271: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Delete_Kpi_Group ';
2272: ELSE
2273: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Delete_Kpi_Group ';
2283: -- BSC APIs because these commits will undo the indicator lock. The commit is
2284: -- executed at the end of this procedure.
2285:
2286: procedure Delete_Tab(
2287: p_commit IN VARCHAR2 := FND_API.G_TRUE
2288: ,p_tab_id IN number
2289: ,x_return_status OUT NOCOPY varchar2
2290: ,x_msg_count OUT NOCOPY number
2291: ,x_msg_data OUT NOCOPY varchar2
2305:
2306:
2307: begin
2308: FND_MSG_PUB.Initialize;
2309: x_return_status := FND_API.G_RET_STS_SUCCESS;
2310: SAVEPOINT BSCPMFUIDelete;
2311: l_commit := FND_API.G_FALSE;
2312:
2313: FOR cd_Share_Ind IN c_Share_Ind LOOP
2307: begin
2308: FND_MSG_PUB.Initialize;
2309: x_return_status := FND_API.G_RET_STS_SUCCESS;
2310: SAVEPOINT BSCPMFUIDelete;
2311: l_commit := FND_API.G_FALSE;
2312:
2313: FOR cd_Share_Ind IN c_Share_Ind LOOP
2314: -- call the procedure to delete share kpi from scorecard;
2315: -- Master Kpi will not be deleted.
2314: -- call the procedure to delete share kpi from scorecard;
2315: -- Master Kpi will not be deleted.
2316: l_Bsc_Kpi_Entity.Bsc_Kpi_Id := cd_Share_Ind.Indicator;
2317: BSC_KPI_PUB.Delete_Kpi
2318: ( p_commit => FND_API.G_FALSE
2319: , p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity
2320: , x_return_status => x_return_status
2321: , x_msg_count => x_msg_count
2322: , x_msg_data => x_msg_data
2320: , x_return_status => x_return_status
2321: , x_msg_count => x_msg_count
2322: , x_msg_data => x_msg_data
2323: );
2324: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2326: END IF;
2327: END LOOP;
2328:
2321: , x_msg_count => x_msg_count
2322: , x_msg_data => x_msg_data
2323: );
2324: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2326: END IF;
2327: END LOOP;
2328:
2329: -- set some of the values for the Record Type
2328:
2329: -- set some of the values for the Record Type
2330: l_Bsc_Tab_Entity.Bsc_Tab_Id := p_tab_id;
2331:
2332: BSC_SCORECARD_PUB.Delete_Tab( FND_API.G_FALSE
2333: ,l_Bsc_Tab_Entity
2334: ,x_return_status
2335: ,x_msg_count
2336: ,x_msg_data);
2333: ,l_Bsc_Tab_Entity
2334: ,x_return_status
2335: ,x_msg_count
2336: ,x_msg_data);
2337: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2339: END IF;
2340:
2341: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
2334: ,x_return_status
2335: ,x_msg_count
2336: ,x_msg_data);
2337: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2339: END IF;
2340:
2341: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
2342: ,l_Bsc_Tab_Entity
2337: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2339: END IF;
2340:
2341: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
2342: ,l_Bsc_Tab_Entity
2343: ,x_return_status
2344: ,x_msg_count
2345: ,x_msg_data);
2342: ,l_Bsc_Tab_Entity
2343: ,x_return_status
2344: ,x_msg_count
2345: ,x_msg_data);
2346: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2348: END IF;
2349:
2350:
2343: ,x_return_status
2344: ,x_msg_count
2345: ,x_msg_data);
2346: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2348: END IF;
2349:
2350:
2351: IF (p_commit = FND_API.G_TRUE) THEN
2347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2348: END IF;
2349:
2350:
2351: IF (p_commit = FND_API.G_TRUE) THEN
2352: COMMIT;
2353: END IF;
2354:
2355: -- Fix for bug 3459282
2363: );
2364:
2365:
2366: EXCEPTION
2367: WHEN FND_API.G_EXC_ERROR THEN
2368: ROLLBACK TO BSCPMFUIDelete;
2369: IF (x_msg_data IS NULL) THEN
2370: FND_MSG_PUB.Count_And_Get
2371: ( p_encoded => FND_API.G_FALSE
2367: WHEN FND_API.G_EXC_ERROR THEN
2368: ROLLBACK TO BSCPMFUIDelete;
2369: IF (x_msg_data IS NULL) THEN
2370: FND_MSG_PUB.Count_And_Get
2371: ( p_encoded => FND_API.G_FALSE
2372: , p_count => x_msg_count
2373: , p_data => x_msg_data
2374: );
2375: END IF;
2372: , p_count => x_msg_count
2373: , p_data => x_msg_data
2374: );
2375: END IF;
2376: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2377: x_return_status := FND_API.G_RET_STS_ERROR;
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2379: ROLLBACK TO BSCPMFUIDelete;
2380: IF (x_msg_data IS NULL) THEN
2373: , p_data => x_msg_data
2374: );
2375: END IF;
2376: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2377: x_return_status := FND_API.G_RET_STS_ERROR;
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2379: ROLLBACK TO BSCPMFUIDelete;
2380: IF (x_msg_data IS NULL) THEN
2381: FND_MSG_PUB.Count_And_Get
2374: );
2375: END IF;
2376: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2377: x_return_status := FND_API.G_RET_STS_ERROR;
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2379: ROLLBACK TO BSCPMFUIDelete;
2380: IF (x_msg_data IS NULL) THEN
2381: FND_MSG_PUB.Count_And_Get
2382: ( p_encoded => FND_API.G_FALSE
2378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2379: ROLLBACK TO BSCPMFUIDelete;
2380: IF (x_msg_data IS NULL) THEN
2381: FND_MSG_PUB.Count_And_Get
2382: ( p_encoded => FND_API.G_FALSE
2383: , p_count => x_msg_count
2384: , p_data => x_msg_data
2385: );
2386: END IF;
2383: , p_count => x_msg_count
2384: , p_data => x_msg_data
2385: );
2386: END IF;
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2389: WHEN NO_DATA_FOUND THEN
2390: ROLLBACK TO BSCPMFUIDelete;
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2384: , p_data => x_msg_data
2385: );
2386: END IF;
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2389: WHEN NO_DATA_FOUND THEN
2390: ROLLBACK TO BSCPMFUIDelete;
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2392: IF (x_msg_data IS NOT NULL) THEN
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2389: WHEN NO_DATA_FOUND THEN
2390: ROLLBACK TO BSCPMFUIDelete;
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2392: IF (x_msg_data IS NOT NULL) THEN
2393: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Delete_Tab ';
2394: ELSE
2395: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Delete_Tab ';
2396: END IF;
2397: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2398: WHEN OTHERS THEN
2399: ROLLBACK TO BSCPMFUIDelete;
2400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2401: IF (x_msg_data IS NOT NULL) THEN
2402: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Delete_Tab ';
2403: ELSE
2404: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Delete_Tab ';
2429: -- Assign the Share KPI to the Tab
2430: -- end if
2431:
2432: procedure Assign_KPI(
2433: p_commit IN VARCHAR2 := FND_API.G_FALSE
2434: ,p_kpi_id IN number
2435: ,p_tab_id IN number
2436: ,x_return_status IN OUT NOCOPY varchar2
2437: ,x_msg_count IN OUT NOCOPY number
2460:
2461: begin
2462: SAVEPOINT BscPmfUIAssignKpi;
2463: FND_MSG_PUB.Initialize;
2464: x_return_status := FND_API.G_RET_STS_SUCCESS;
2465:
2466: --l_commit := FND_API.G_FALSE;
2467:
2468:
2462: SAVEPOINT BscPmfUIAssignKpi;
2463: FND_MSG_PUB.Initialize;
2464: x_return_status := FND_API.G_RET_STS_SUCCESS;
2465:
2466: --l_commit := FND_API.G_FALSE;
2467:
2468:
2469: -- get the name, l_share_flag and Indicator source . It will be used for tab validation.
2470:
2480: -- if it's a share KPI it got the Master KPI Id
2481: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := l_kpi_source;
2482: end if;
2483: -- Evaluate if the KPI is unassign to the Tab:
2484: if Is_KPI_Assigned (l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id, p_tab_id ) = FND_API.G_FALSE then
2485:
2486: -- if the KPI is not assigned to the Tab yet
2487:
2488: l_Bsc_Kpi_Entity_Rec.Bsc_Tab_Id := p_tab_id;
2502: if l_same_name <> 0 then
2503: FND_MESSAGE.SET_NAME('BSC','BSC_B_NO_SAMEKPI_TAB');
2504: FND_MESSAGE.SET_TOKEN('Indicator name: ', l_kpi_name);
2505: FND_MSG_PUB.ADD;
2506: RAISE FND_API.G_EXC_ERROR;
2507: end if;
2508:
2509: -- need to get kpi group for this kpi.
2510: select distinct(ind_group_id)
2547: ,x_msg_count => x_msg_count
2548: ,x_msg_data => x_msg_data
2549: );
2550:
2551: IF ((x_return_status IS NOT NULL)AND(x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2553: END IF;
2554: -- if count is zero then ussigned KPI will be the master, else will be the shared one.
2555: if l_count = 0 then
2548: ,x_msg_data => x_msg_data
2549: );
2550:
2551: IF ((x_return_status IS NOT NULL)AND(x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2553: END IF;
2554: -- if count is zero then ussigned KPI will be the master, else will be the shared one.
2555: if l_count = 0 then
2556: -- about to create master KPI
2559:
2560:
2561:
2562:
2563: BSC_KPI_PUB.Create_Master_Kpi( FND_API.G_FALSE
2564: ,l_Bsc_Kpi_Entity_Rec
2565: ,x_return_status
2566: ,x_msg_count
2567: ,x_msg_data);
2564: ,l_Bsc_Kpi_Entity_Rec
2565: ,x_return_status
2566: ,x_msg_count
2567: ,x_msg_data);
2568: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2570: END IF;
2571:
2572: else
2565: ,x_return_status
2566: ,x_msg_count
2567: ,x_msg_data);
2568: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2570: END IF;
2571:
2572: else
2573: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Source_Ind := l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id;
2575: --DBMS_OUTPUT.PUT_LINE('BSC_PMF_UI_WRAPPER.Assign_KPI - Flag 8');
2576: --DBMS_OUTPUT.PUT_LINE('l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Source_Ind -'||l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Source_Ind );
2577:
2578:
2579: BSC_KPI_PUB.Create_Shared_Kpi( FND_API.G_FALSE
2580: ,l_Bsc_Kpi_Entity_Rec
2581: ,x_return_status
2582: ,x_msg_count
2583: ,x_msg_data);
2580: ,l_Bsc_Kpi_Entity_Rec
2581: ,x_return_status
2582: ,x_msg_count
2583: ,x_msg_data);
2584: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2586: END IF;
2587: end if;
2588:
2581: ,x_return_status
2582: ,x_msg_count
2583: ,x_msg_data);
2584: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2586: END IF;
2587: end if;
2588:
2589: -- Added to fix issue oin bug 2731675
2589: -- Added to fix issue oin bug 2731675
2590:
2591:
2592:
2593: BSC_COMMON_DIM_LEVELS_PUB.Check_Dim_Level_Default_Value( FND_API.G_FALSE
2594: ,p_tab_id
2595: ,x_return_status
2596: ,x_msg_count
2597: ,x_msg_data);
2594: ,p_tab_id
2595: ,x_return_status
2596: ,x_msg_count
2597: ,x_msg_data);
2598: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2600: END IF;
2601:
2602:
2595: ,x_return_status
2596: ,x_msg_count
2597: ,x_msg_data);
2598: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2600: END IF;
2601:
2602:
2603:
2607:
2608: -- Need to call procedure for list button logic.
2609:
2610:
2611: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels( FND_API.G_FALSE
2612: ,p_tab_id
2613: ,x_return_status
2614: ,x_msg_count
2615: ,x_msg_data);
2612: ,p_tab_id
2613: ,x_return_status
2614: ,x_msg_count
2615: ,x_msg_data);
2616: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2618: END IF;
2619:
2620:
2613: ,x_return_status
2614: ,x_msg_count
2615: ,x_msg_data);
2616: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2618: END IF;
2619:
2620:
2621:
2627: , x_msg_data => x_msg_data
2628: );
2629:
2630: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id := p_tab_id;
2631: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
2632: ,l_Bsc_Tab_Entity_Rec
2633: ,x_return_status
2634: ,x_msg_count
2635: ,x_msg_data);
2632: ,l_Bsc_Tab_Entity_Rec
2633: ,x_return_status
2634: ,x_msg_count
2635: ,x_msg_data);
2636: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2638: END IF;
2639:
2640:
2633: ,x_return_status
2634: ,x_msg_count
2635: ,x_msg_data);
2636: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2638: END IF;
2639:
2640:
2641:
2638: END IF;
2639:
2640:
2641:
2642: IF (p_commit = FND_API.G_TRUE) THEN
2643:
2644: COMMIT;
2645: END IF;
2646:
2648: --BSC_DEBUG.PUT_LINE('End BSC_PMF_UI_WRAPPER.Assign_KPI' );
2649: --BSC_DEBUG.finish;
2650:
2651: EXCEPTION
2652: WHEN FND_API.G_EXC_ERROR THEN
2653: ROLLBACK TO BscPmfUIAssignKpi;
2654: IF (x_msg_data IS NULL) THEN
2655: FND_MSG_PUB.Count_And_Get
2656: ( p_encoded => FND_API.G_FALSE
2652: WHEN FND_API.G_EXC_ERROR THEN
2653: ROLLBACK TO BscPmfUIAssignKpi;
2654: IF (x_msg_data IS NULL) THEN
2655: FND_MSG_PUB.Count_And_Get
2656: ( p_encoded => FND_API.G_FALSE
2657: , p_count => x_msg_count
2658: , p_data => x_msg_data
2659: );
2660: END IF;
2657: , p_count => x_msg_count
2658: , p_data => x_msg_data
2659: );
2660: END IF;
2661: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2662: x_return_status := FND_API.G_RET_STS_ERROR;
2663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2664: ROLLBACK TO BscPmfUIAssignKpi;
2665: IF (x_msg_data IS NULL) THEN
2658: , p_data => x_msg_data
2659: );
2660: END IF;
2661: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2662: x_return_status := FND_API.G_RET_STS_ERROR;
2663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2664: ROLLBACK TO BscPmfUIAssignKpi;
2665: IF (x_msg_data IS NULL) THEN
2666: FND_MSG_PUB.Count_And_Get
2659: );
2660: END IF;
2661: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2662: x_return_status := FND_API.G_RET_STS_ERROR;
2663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2664: ROLLBACK TO BscPmfUIAssignKpi;
2665: IF (x_msg_data IS NULL) THEN
2666: FND_MSG_PUB.Count_And_Get
2667: ( p_encoded => FND_API.G_FALSE
2663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2664: ROLLBACK TO BscPmfUIAssignKpi;
2665: IF (x_msg_data IS NULL) THEN
2666: FND_MSG_PUB.Count_And_Get
2667: ( p_encoded => FND_API.G_FALSE
2668: , p_count => x_msg_count
2669: , p_data => x_msg_data
2670: );
2671: END IF;
2668: , p_count => x_msg_count
2669: , p_data => x_msg_data
2670: );
2671: END IF;
2672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2673: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2674: WHEN NO_DATA_FOUND THEN
2675: ROLLBACK TO BscPmfUIAssignKpi;
2676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2669: , p_data => x_msg_data
2670: );
2671: END IF;
2672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2673: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2674: WHEN NO_DATA_FOUND THEN
2675: ROLLBACK TO BscPmfUIAssignKpi;
2676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2677: IF (x_msg_data IS NOT NULL) THEN
2672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2673: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
2674: WHEN NO_DATA_FOUND THEN
2675: ROLLBACK TO BscPmfUIAssignKpi;
2676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2677: IF (x_msg_data IS NOT NULL) THEN
2678: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Assign_KPI ';
2679: ELSE
2680: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Assign_KPI ';
2681: END IF;
2682: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
2683: WHEN OTHERS THEN
2684: ROLLBACK TO BscPmfUIAssignKpi;
2685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2686: IF (x_msg_data IS NOT NULL) THEN
2687: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Assign_KPI ';
2688: ELSE
2689: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Assign_KPI ';
2724: -- just remove group from tab.
2725:
2726:
2727: procedure Unassign_KPI(
2728: p_commit IN VARCHAR2 := FND_API.G_TRUE
2729: ,p_kpi_id IN number
2730: ,p_tab_id IN number
2731: ,x_return_status OUT NOCOPY varchar2
2732: ,x_msg_count OUT NOCOPY number
2754: l_Simulation_Tree_flag number;
2755:
2756: begin
2757: FND_MSG_PUB.Initialize;
2758: x_return_status := FND_API.G_RET_STS_SUCCESS;
2759: SAVEPOINT BscPmfUIUnAssignKpi;
2760: l_commit := FND_API.G_TRUE;
2761:
2762: --assign values.
2756: begin
2757: FND_MSG_PUB.Initialize;
2758: x_return_status := FND_API.G_RET_STS_SUCCESS;
2759: SAVEPOINT BscPmfUIUnAssignKpi;
2760: l_commit := FND_API.G_TRUE;
2761:
2762: --assign values.
2763: l_is_obj_in_production := FALSE;
2764: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
2784: l_Master_KPI_id := l_kpi_source;
2785: end if;
2786:
2787: -- Evaluate if the KPI is assigned to the Tab:
2788: if Is_KPI_Assigned (l_Master_KPI_id, p_tab_id ) = FND_API.G_TRUE then
2789:
2790: l_unassiged := 1;
2791:
2792: -- Get the KPI group id.
2821: ,x_msg_count => x_msg_count
2822: ,x_msg_data => x_msg_data
2823: ) ;
2824:
2825: IF ((x_return_status IS NOT NULL)AND(x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828: -- Delete the Share KPI
2829:
2822: ,x_msg_data => x_msg_data
2823: ) ;
2824:
2825: IF ((x_return_status IS NOT NULL)AND(x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828: -- Delete the Share KPI
2829:
2830:
2827: END IF;
2828: -- Delete the Share KPI
2829:
2830:
2831: BSC_KPI_PUB.Delete_Kpi( FND_API.G_FALSE
2832: ,l_Bsc_Kpi_Entity_Rec
2833: ,x_return_status
2834: ,x_msg_count
2835: ,x_msg_data);
2832: ,l_Bsc_Kpi_Entity_Rec
2833: ,x_return_status
2834: ,x_msg_count
2835: ,x_msg_data);
2836: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2838: END IF;
2839:
2840:
2833: ,x_return_status
2834: ,x_msg_count
2835: ,x_msg_data);
2836: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2838: END IF;
2839:
2840:
2841: else -- The KPI assiged to the Tab is the Master KPI
2859: end if;
2860: -- if l_kpi_count is 0 there are no shared KPIs. Delete Master from Tab. Reset flag.
2861: IF l_kpi_count = 0 then
2862:
2863: BSC_KPI_PUB.Delete_Kpi_In_Tab( FND_API.G_FALSE
2864: ,l_Bsc_Kpi_Entity_Rec
2865: ,x_return_status
2866: ,x_msg_count
2867: ,x_msg_data);
2864: ,l_Bsc_Kpi_Entity_Rec
2865: ,x_return_status
2866: ,x_msg_count
2867: ,x_msg_data);
2868: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2870: END IF;
2871:
2872: BSC_KPI_PUB.Update_Kpi_Time_Stamp( FND_API.G_FALSE
2865: ,x_return_status
2866: ,x_msg_count
2867: ,x_msg_data);
2868: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2870: END IF;
2871:
2872: BSC_KPI_PUB.Update_Kpi_Time_Stamp( FND_API.G_FALSE
2873: ,l_Bsc_Kpi_Entity_Rec
2868: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2870: END IF;
2871:
2872: BSC_KPI_PUB.Update_Kpi_Time_Stamp( FND_API.G_FALSE
2873: ,l_Bsc_Kpi_Entity_Rec
2874: ,x_return_status
2875: ,x_msg_count
2876: ,x_msg_data);
2873: ,l_Bsc_Kpi_Entity_Rec
2874: ,x_return_status
2875: ,x_msg_count
2876: ,x_msg_data);
2877: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2879: END IF;
2880:
2881: ELSIF l_kpi_count = 1 THEN
2874: ,x_return_status
2875: ,x_msg_count
2876: ,x_msg_data);
2877: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2879: END IF;
2880:
2881: ELSIF l_kpi_count = 1 THEN
2882: -- if l_kpi_count is one then
2884: IF (l_is_obj_in_production) THEN
2885: l_unassiged := 0;
2886: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_PROD_UNASSIGN');
2887: FND_MSG_PUB.ADD;
2888: RAISE FND_API.G_EXC_ERROR;
2889: ELSE
2890: IF (l_Simulation_Tree_flag = 0) THEN
2891: --- Delete Master KPI from Tab and Library.
2892: --- Make Shared KPI as the Master KPI to make it appear in library.
2899: WHERE source_indicator = l_Master_KPI_id );
2900:
2901: -- Once the shared KPI obtained then delete master KPI.
2902: -- call the public version of Delete_Kpi_Defaults.
2903: BSC_KPI_PUB.Delete_Kpi_Defaults( FND_API.G_FALSE
2904: , l_Bsc_Kpi_Entity_Rec
2905: , x_return_status
2906: , x_msg_count
2907: , x_msg_data);
2905: , x_return_status
2906: , x_msg_count
2907: , x_msg_data);
2908:
2909: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2911: END IF;
2912:
2913: -- Call the private version. The public version deletes all shared kpis.
2906: , x_msg_count
2907: , x_msg_data);
2908:
2909: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2911: END IF;
2912:
2913: -- Call the private version. The public version deletes all shared kpis.
2914: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
2911: END IF;
2912:
2913: -- Call the private version. The public version deletes all shared kpis.
2914: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_kpi_id;
2915: BSC_KPI_PVT.Delete_Kpi( FND_API.G_FALSE
2916: ,l_Bsc_Kpi_Entity_Rec
2917: ,x_return_status
2918: ,x_msg_count
2919: ,x_msg_data);
2916: ,l_Bsc_Kpi_Entity_Rec
2917: ,x_return_status
2918: ,x_msg_count
2919: ,x_msg_data);
2920: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2922: END IF;
2923: -- reset flags for Shared KPI as Master KPI.
2924: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Source_Ind := null;
2917: ,x_return_status
2918: ,x_msg_count
2919: ,x_msg_data);
2920: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2922: END IF;
2923: -- reset flags for Shared KPI as Master KPI.
2924: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Source_Ind := null;
2925: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Share_Flag := 1;
2924: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Source_Ind := null;
2925: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Share_Flag := 1;
2926: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := l_kpi_id;
2927:
2928: BSC_KPI_PVT.Update_Kpi( FND_API.G_FALSE
2929: , l_Bsc_Kpi_Entity_Rec
2930: , x_return_status
2931: , x_msg_count
2932: , x_msg_data);
2929: , l_Bsc_Kpi_Entity_Rec
2930: , x_return_status
2931: , x_msg_count
2932: , x_msg_data);
2933: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2935: END IF;
2936: -- Need to do this update directly because the procedure will see the null
2937: -- value for Source Indicator and it will update it with previos value, not
2930: , x_return_status
2931: , x_msg_count
2932: , x_msg_data);
2933: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2935: END IF;
2936: -- Need to do this update directly because the procedure will see the null
2937: -- value for Source Indicator and it will update it with previos value, not
2938: -- the null one.
2947: ,x_return_status => x_return_status
2948: ,x_msg_count => x_msg_count
2949: ,x_msg_data => x_msg_data
2950: );
2951: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2953: END IF;
2954: END IF;
2955: END IF;
2948: ,x_msg_count => x_msg_count
2949: ,x_msg_data => x_msg_data
2950: );
2951: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2953: END IF;
2954: END IF;
2955: END IF;
2956: ELSE
2958: l_unassiged := 0;
2959: FND_MESSAGE.SET_NAME('BSC','BSC_NO_MASTER_DELETE');
2960: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id);
2961: FND_MSG_PUB.ADD;
2962: RAISE FND_API.G_EXC_ERROR;
2963: end if;
2964: end if;
2965:
2966: if l_unassiged <> 0 then
2976:
2977: -- if l_kpi_count is zero then unassign group from Tab.
2978: if l_kpi_count = 0 then
2979:
2980: BSC_KPI_GROUP_PUB.Delete_Kpi_Group( FND_API.G_FALSE
2981: ,l_Bsc_Kpi_Group_Rec
2982: ,x_return_status
2983: ,x_msg_count
2984: ,x_msg_data);
2981: ,l_Bsc_Kpi_Group_Rec
2982: ,x_return_status
2983: ,x_msg_count
2984: ,x_msg_data);
2985: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2987: END IF;
2988: end if;
2989:
2982: ,x_return_status
2983: ,x_msg_count
2984: ,x_msg_data);
2985: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2987: END IF;
2988: end if;
2989:
2990:
2988: end if;
2989:
2990:
2991: -- Call procedure to handle list button logic.
2992: BSC_COMMON_DIM_LEVELS_PUB.Check_Common_Dim_Levels( FND_API.G_FALSE
2993: ,p_tab_id
2994: ,x_return_status
2995: ,x_msg_count
2996: ,x_msg_data);
2993: ,p_tab_id
2994: ,x_return_status
2995: ,x_msg_count
2996: ,x_msg_data);
2997: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2999: END IF;
3000:
3001: BSC_DIM_FILTERS_PUB.Check_Filters_Not_Apply
2994: ,x_return_status
2995: ,x_msg_count
2996: ,x_msg_data);
2997: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
2998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2999: END IF;
3000:
3001: BSC_DIM_FILTERS_PUB.Check_Filters_Not_Apply
3002: ( p_Tab_Id => p_tab_id
3003: , x_return_status => x_return_status
3004: , x_msg_count => x_msg_count
3005: , x_msg_data => x_msg_data
3006: );
3007: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3008: --DBMS_OUTPUT.PUT_LINE('BSC_PMF_UI_WRAPPER.Unassign_KPI Failed: at BSC_DIM_FILTERS_PUB.Check_Filters_Not_Apply');
3009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3010: END IF;
3011:
3005: , x_msg_data => x_msg_data
3006: );
3007: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3008: --DBMS_OUTPUT.PUT_LINE('BSC_PMF_UI_WRAPPER.Unassign_KPI Failed: at BSC_DIM_FILTERS_PUB.Check_Filters_Not_Apply');
3009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3010: END IF;
3011:
3012: -- Need to fix bug 3543675
3013: -- it pass null in order to syscronize KPIs not assigned to any tab
3018: , x_msg_data => x_msg_data
3019: );
3020:
3021: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id := p_tab_id;
3022: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
3023: ,l_Bsc_Tab_Entity_Rec
3024: ,x_return_status
3025: ,x_msg_count
3026: ,x_msg_data);
3023: ,l_Bsc_Tab_Entity_Rec
3024: ,x_return_status
3025: ,x_msg_count
3026: ,x_msg_data);
3027: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029: END IF;
3030: end if;
3031:
3024: ,x_return_status
3025: ,x_msg_count
3026: ,x_msg_data);
3027: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029: END IF;
3030: end if;
3031:
3032: BSC_CUSTOM_VIEW_PUB.Delete_Custom_View_Links
3030: end if;
3031:
3032: BSC_CUSTOM_VIEW_PUB.Delete_Custom_View_Links
3033: (
3034: p_commit => FND_API.G_FALSE
3035: , p_tab_id => p_tab_id
3036: , p_obj_id => p_kpi_id
3037: , x_return_status => x_return_status
3038: , x_msg_count => x_msg_count
3037: , x_return_status => x_return_status
3038: , x_msg_count => x_msg_count
3039: , x_msg_data => x_msg_data
3040: );
3041: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3043: END IF;
3044:
3045:
3038: , x_msg_count => x_msg_count
3039: , x_msg_data => x_msg_data
3040: );
3041: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3043: END IF;
3044:
3045:
3046: end if;
3044:
3045:
3046: end if;
3047:
3048: IF (p_commit = FND_API.G_TRUE) THEN
3049: COMMIT;
3050: END IF;
3051:
3052: EXCEPTION
3049: COMMIT;
3050: END IF;
3051:
3052: EXCEPTION
3053: WHEN FND_API.G_EXC_ERROR THEN
3054: ROLLBACK TO BscPmfUIUnAssignKpi;
3055: IF (x_msg_data IS NULL) THEN
3056: FND_MSG_PUB.Count_And_Get
3057: ( p_encoded => FND_API.G_FALSE
3053: WHEN FND_API.G_EXC_ERROR THEN
3054: ROLLBACK TO BscPmfUIUnAssignKpi;
3055: IF (x_msg_data IS NULL) THEN
3056: FND_MSG_PUB.Count_And_Get
3057: ( p_encoded => FND_API.G_FALSE
3058: , p_count => x_msg_count
3059: , p_data => x_msg_data
3060: );
3061: END IF;
3058: , p_count => x_msg_count
3059: , p_data => x_msg_data
3060: );
3061: END IF;
3062: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3063: x_return_status := FND_API.G_RET_STS_ERROR;
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065: ROLLBACK TO BscPmfUIUnAssignKpi;
3066: IF (x_msg_data IS NULL) THEN
3059: , p_data => x_msg_data
3060: );
3061: END IF;
3062: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3063: x_return_status := FND_API.G_RET_STS_ERROR;
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065: ROLLBACK TO BscPmfUIUnAssignKpi;
3066: IF (x_msg_data IS NULL) THEN
3067: FND_MSG_PUB.Count_And_Get
3060: );
3061: END IF;
3062: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
3063: x_return_status := FND_API.G_RET_STS_ERROR;
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065: ROLLBACK TO BscPmfUIUnAssignKpi;
3066: IF (x_msg_data IS NULL) THEN
3067: FND_MSG_PUB.Count_And_Get
3068: ( p_encoded => FND_API.G_FALSE
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065: ROLLBACK TO BscPmfUIUnAssignKpi;
3066: IF (x_msg_data IS NULL) THEN
3067: FND_MSG_PUB.Count_And_Get
3068: ( p_encoded => FND_API.G_FALSE
3069: , p_count => x_msg_count
3070: , p_data => x_msg_data
3071: );
3072: END IF;
3069: , p_count => x_msg_count
3070: , p_data => x_msg_data
3071: );
3072: END IF;
3073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3074: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3075: WHEN NO_DATA_FOUND THEN
3076: ROLLBACK TO BscPmfUIUnAssignKpi;
3077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3070: , p_data => x_msg_data
3071: );
3072: END IF;
3073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3074: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3075: WHEN NO_DATA_FOUND THEN
3076: ROLLBACK TO BscPmfUIUnAssignKpi;
3077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3078: IF (x_msg_data IS NOT NULL) THEN
3073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3074: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
3075: WHEN NO_DATA_FOUND THEN
3076: ROLLBACK TO BscPmfUIUnAssignKpi;
3077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3078: IF (x_msg_data IS NOT NULL) THEN
3079: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Unassign_KPI ';
3080: ELSE
3081: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Unassign_KPI ';
3082: END IF;
3083: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
3084: WHEN OTHERS THEN
3085: ROLLBACK TO BscPmfUIUnAssignKpi;
3086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3087: IF (x_msg_data IS NOT NULL) THEN
3088: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Unassign_KPI ';
3089: ELSE
3090: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Unassign_KPI ';
3118: where source_indicator = p_kpi_id)
3119: );
3120:
3121: if l_count <> 0 then
3122: return FND_API.G_TRUE;
3123: else
3124: return FND_API.G_FALSE;
3125: end if;
3126:
3120:
3121: if l_count <> 0 then
3122: return FND_API.G_TRUE;
3123: else
3124: return FND_API.G_FALSE;
3125: end if;
3126:
3127: EXCEPTION
3128: WHEN OTHERS THEN
3125: end if;
3126:
3127: EXCEPTION
3128: WHEN OTHERS THEN
3129: return FND_API.G_FALSE;
3130:
3131: End Is_KPI_Assigned;
3132:
3133: /************************************************************************************
3135:
3136: -- Revamped API to do proper rollback and handling
3137:
3138: procedure Assign_KPI_Group(
3139: p_commit IN VARCHAR2 := FND_API.G_TRUE
3140: ,p_kpi_Group_id IN number
3141: ,p_tab_id IN number
3142: ,x_return_status OUT NOCOPY varchar2
3143: ,x_msg_count OUT NOCOPY number
3158:
3159: BEGIN
3160:
3161: FND_MSG_PUB.Initialize;
3162: x_return_status := FND_API.G_RET_STS_SUCCESS;
3163: SAVEPOINT BscPmfUIUAssignKpiGrp;
3164:
3165: SELECT COUNT(*)
3166: INTO l_count
3174: l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id := p_kpi_Group_id;
3175: l_Bsc_Kpi_Group_Rec.Bsc_Language := USERENV('LANG');
3176:
3177: BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group(
3178: p_commit => FND_API.G_FALSE
3179: ,p_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec
3180: ,x_Bsc_Kpi_Group_Rec => l_Bsc_tab_Group_Rec
3181: ,x_return_status => x_return_status
3182: ,x_msg_count => x_msg_count
3181: ,x_return_status => x_return_status
3182: ,x_msg_count => x_msg_count
3183: ,x_msg_data => x_msg_data
3184: );
3185: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: END IF;
3188:
3189: l_Bsc_tab_Group_Rec.Bsc_Tab_Id := p_tab_id;
3182: ,x_msg_count => x_msg_count
3183: ,x_msg_data => x_msg_data
3184: );
3185: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: END IF;
3188:
3189: l_Bsc_tab_Group_Rec.Bsc_Tab_Id := p_tab_id;
3190: l_Bsc_tab_Group_Rec.Bsc_Kpi_Group_Id := p_kpi_Group_id;
3189: l_Bsc_tab_Group_Rec.Bsc_Tab_Id := p_tab_id;
3190: l_Bsc_tab_Group_Rec.Bsc_Kpi_Group_Id := p_kpi_Group_id;
3191:
3192: BSC_KPI_GROUP_PVT.Create_Kpi_Group(
3193: p_commit => FND_API.G_FALSE
3194: ,p_Bsc_Kpi_Group_Rec => l_Bsc_tab_Group_Rec
3195: ,x_return_status => x_return_status
3196: ,x_msg_count => x_msg_count
3197: ,x_msg_data => x_msg_data
3206: EXIT WHEN c_kpis%NOTFOUND;
3207:
3208:
3209: BSC_PMF_UI_WRAPPER.Assign_KPI(
3210: p_Commit => FND_API.G_FALSE
3211: ,p_kpi_id => l_kpi_id
3212: ,p_tab_id => p_tab_id
3213: ,x_return_status => x_return_status
3214: ,x_msg_count => x_msg_count
3213: ,x_return_status => x_return_status
3214: ,x_msg_count => x_msg_count
3215: ,x_msg_data => x_msg_data
3216: );
3217: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3219: END IF;
3220: END LOOP;
3221: CLOSE c_kpis;
3214: ,x_msg_count => x_msg_count
3215: ,x_msg_data => x_msg_data
3216: );
3217: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3219: END IF;
3220: END LOOP;
3221: CLOSE c_kpis;
3222: END IF;
3221: CLOSE c_kpis;
3222: END IF;
3223:
3224: EXCEPTION
3225: WHEN FND_API.G_EXC_ERROR THEN
3226: IF (c_kpis%ISOPEN) THEN
3227: CLOSE c_kpis;
3228: END IF;
3229: rollback to BscPmfUIUAssignKpiGrp;
3226: IF (c_kpis%ISOPEN) THEN
3227: CLOSE c_kpis;
3228: END IF;
3229: rollback to BscPmfUIUAssignKpiGrp;
3230: x_return_status := FND_API.G_RET_STS_ERROR;
3231: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3232: ,p_data => x_msg_data);
3233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3234: IF (c_kpis%ISOPEN) THEN
3229: rollback to BscPmfUIUAssignKpiGrp;
3230: x_return_status := FND_API.G_RET_STS_ERROR;
3231: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3232: ,p_data => x_msg_data);
3233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3234: IF (c_kpis%ISOPEN) THEN
3235: CLOSE c_kpis;
3236: END IF;
3237: rollback to BscPmfUIUAssignKpiGrp;
3234: IF (c_kpis%ISOPEN) THEN
3235: CLOSE c_kpis;
3236: END IF;
3237: rollback to BscPmfUIUAssignKpiGrp;
3238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3239: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3240: ,p_data => x_msg_data);
3241: WHEN NO_DATA_FOUND THEN
3242: IF (c_kpis%ISOPEN) THEN
3242: IF (c_kpis%ISOPEN) THEN
3243: CLOSE c_kpis;
3244: END IF;
3245: rollback to BscPmfUIUAssignKpiGrp;
3246: x_return_status := FND_API.G_RET_STS_ERROR;
3247: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3248: ,p_data => x_msg_data);
3249: WHEN OTHERS THEN
3250: IF (c_kpis%ISOPEN) THEN
3250: IF (c_kpis%ISOPEN) THEN
3251: CLOSE c_kpis;
3252: END IF;
3253: rollback to BscPmfUIUAssignKpiGrp;
3254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3255: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3256: ,p_data => x_msg_data);
3257:
3258: end Assign_KPI_Group;
3268: ,p_grandparent_option_id IN number
3269: ,x_return_status OUT NOCOPY varchar2
3270: ,x_msg_count OUT NOCOPY number
3271: ,x_msg_data OUT NOCOPY varchar2
3272: ,p_commit IN varchar2 /* := FND_API.G_TRUE */
3273: ,p_time_stamp_to_check IN varchar2 /* := null */
3274:
3275: ) IS
3276:
3277: l_Bsc_kpi_Entity_Rec BSC_KPI_PUB.Bsc_kpi_Entity_Rec;
3278: l_time_stamp varchar(200);
3279: Begin
3280: FND_MSG_PUB.Initialize;
3281: x_return_status := FND_API.G_RET_STS_SUCCESS;
3282: SAVEPOINT BscPmfUIUAssignAnaOpt;
3283: --DBMS_OUTPUT.PUT_LINE('Begin BSC_PMF_UI_WRAPPER.Assign_Analysis_Option');
3284: FND_MSG_PUB.Initialize;
3285:
3287: l_time_stamp := get_KPI_Time_Stamp(p_kpi_id);
3288: IF l_time_stamp IS NULL or l_time_stamp <> p_time_stamp_to_check then
3289: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_CHANGED');
3290: FND_MSG_PUB.ADD;
3291: RAISE FND_API.G_EXC_ERROR;
3292: END if;
3293: ELSE
3294: Populate_Option_Dependency_Rec (
3295: FND_API.G_FALSE
3291: RAISE FND_API.G_EXC_ERROR;
3292: END if;
3293: ELSE
3294: Populate_Option_Dependency_Rec (
3295: FND_API.G_FALSE
3296: ,p_kpi_id
3297: ,p_analysis_group_id
3298: ,p_option_id
3299: ,p_parent_option_id
3301: ,l_Bsc_kpi_Entity_Rec
3302: ,x_return_status
3303: ,x_msg_count
3304: ,x_msg_data );
3305: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308: BSC_KPI_PUB.Assign_Analysis_Option(
3309: l_Bsc_kpi_Entity_Rec
3302: ,x_return_status
3303: ,x_msg_count
3304: ,x_msg_data );
3305: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308: BSC_KPI_PUB.Assign_Analysis_Option(
3309: l_Bsc_kpi_Entity_Rec
3310: ,x_return_status
3309: l_Bsc_kpi_Entity_Rec
3310: ,x_return_status
3311: ,x_msg_count
3312: ,x_msg_data );
3313: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3315: END IF ;
3316: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
3317: FND_API.G_FALSE
3310: ,x_return_status
3311: ,x_msg_count
3312: ,x_msg_data );
3313: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3315: END IF ;
3316: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
3317: FND_API.G_FALSE
3318: ,l_Bsc_kpi_Entity_Rec
3313: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3315: END IF ;
3316: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
3317: FND_API.G_FALSE
3318: ,l_Bsc_kpi_Entity_Rec
3319: ,x_return_status
3320: ,x_msg_count
3321: ,x_msg_data );
3318: ,l_Bsc_kpi_Entity_Rec
3319: ,x_return_status
3320: ,x_msg_count
3321: ,x_msg_data );
3322: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3324: END IF ;
3325:
3326: IF p_commit = FND_API.G_TRUE THEN
3319: ,x_return_status
3320: ,x_msg_count
3321: ,x_msg_data );
3322: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3324: END IF ;
3325:
3326: IF p_commit = FND_API.G_TRUE THEN
3327: commit;
3322: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3324: END IF ;
3325:
3326: IF p_commit = FND_API.G_TRUE THEN
3327: commit;
3328: END IF;
3329:
3330: END IF;
3332:
3333: --DBMS_OUTPUT.PUT_LINE('End BSC_PMF_UI_WRAPPER.Assign_Analysis_Option');
3334:
3335: EXCEPTION
3336: WHEN FND_API.G_EXC_ERROR THEN
3337: rollback to BscPmfUIUAssignAnaOpt;
3338: x_return_status := FND_API.G_RET_STS_ERROR;
3339: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3340: ,p_data => x_msg_data);
3334:
3335: EXCEPTION
3336: WHEN FND_API.G_EXC_ERROR THEN
3337: rollback to BscPmfUIUAssignAnaOpt;
3338: x_return_status := FND_API.G_RET_STS_ERROR;
3339: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3340: ,p_data => x_msg_data);
3341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3342: rollback to BscPmfUIUAssignAnaOpt;
3337: rollback to BscPmfUIUAssignAnaOpt;
3338: x_return_status := FND_API.G_RET_STS_ERROR;
3339: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3340: ,p_data => x_msg_data);
3341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3342: rollback to BscPmfUIUAssignAnaOpt;
3343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3344: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3345: ,p_data => x_msg_data);
3339: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3340: ,p_data => x_msg_data);
3341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3342: rollback to BscPmfUIUAssignAnaOpt;
3343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3344: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3345: ,p_data => x_msg_data);
3346: WHEN NO_DATA_FOUND THEN
3347: rollback to BscPmfUIUAssignAnaOpt;
3344: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3345: ,p_data => x_msg_data);
3346: WHEN NO_DATA_FOUND THEN
3347: rollback to BscPmfUIUAssignAnaOpt;
3348: x_return_status := FND_API.G_RET_STS_ERROR;
3349: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3350: ,p_data => x_msg_data);
3351: WHEN OTHERS THEN
3352: rollback to BscPmfUIUAssignAnaOpt;
3349: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3350: ,p_data => x_msg_data);
3351: WHEN OTHERS THEN
3352: rollback to BscPmfUIUAssignAnaOpt;
3353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3354: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3355: ,p_data => x_msg_data);
3356:
3357: End Assign_Analysis_Option;
3368: ,p_grandparent_Option_id IN number
3369: ,x_return_status OUT NOCOPY varchar2
3370: ,x_msg_count OUT NOCOPY number
3371: ,x_msg_data OUT NOCOPY varchar2
3372: ,p_commit IN varchar2 /* := FND_API.G_TRUE */
3373: ,p_time_stamp_to_check IN varchar2 /* := null */
3374:
3375: ) IS
3376: l_Bsc_kpi_Entity_Rec BSC_KPI_PUB.Bsc_kpi_Entity_Rec;
3378:
3379:
3380: Begin
3381: FND_MSG_PUB.Initialize;
3382: x_return_status := FND_API.G_RET_STS_SUCCESS;
3383: SAVEPOINT BscPmfUIUnAssignAnaOpt;
3384:
3385: IF p_time_stamp_to_check IS NOT NULL then
3386: l_time_stamp := get_KPI_Time_Stamp(p_kpi_id);
3386: l_time_stamp := get_KPI_Time_Stamp(p_kpi_id);
3387: IF l_time_stamp IS NULL or l_time_stamp <> p_time_stamp_to_check then
3388: FND_MESSAGE.SET_NAME('BSC','BSC_KPI_CHANGED');
3389: FND_MSG_PUB.ADD;
3390: RAISE FND_API.G_EXC_ERROR;
3391: END if;
3392: ELSE
3393: Populate_Option_Dependency_Rec (
3394: FND_API.G_FALSE
3390: RAISE FND_API.G_EXC_ERROR;
3391: END if;
3392: ELSE
3393: Populate_Option_Dependency_Rec (
3394: FND_API.G_FALSE
3395: ,p_kpi_id
3396: ,p_analysis_group_id
3397: ,p_option_id
3398: ,p_parent_option_id
3400: ,l_Bsc_kpi_Entity_Rec
3401: ,x_return_status
3402: ,x_msg_count
3403: ,x_msg_data );
3404: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: END IF ;
3407:
3408: BSC_KPI_PUB.Unassign_Analysis_Option(
3401: ,x_return_status
3402: ,x_msg_count
3403: ,x_msg_data );
3404: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: END IF ;
3407:
3408: BSC_KPI_PUB.Unassign_Analysis_Option(
3409: l_Bsc_kpi_Entity_Rec
3409: l_Bsc_kpi_Entity_Rec
3410: ,x_return_status
3411: ,x_msg_count
3412: ,x_msg_data );
3413: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3415: END IF;
3416:
3417: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
3410: ,x_return_status
3411: ,x_msg_count
3412: ,x_msg_data );
3413: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3415: END IF;
3416:
3417: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
3418: FND_API.G_FALSE
3414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3415: END IF;
3416:
3417: BSC_KPI_PUB.Update_Kpi_Time_Stamp(
3418: FND_API.G_FALSE
3419: ,l_Bsc_kpi_Entity_Rec
3420: ,x_return_status
3421: ,x_msg_count
3422: ,x_msg_data );
3419: ,l_Bsc_kpi_Entity_Rec
3420: ,x_return_status
3421: ,x_msg_count
3422: ,x_msg_data );
3423: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3425: END IF;
3426:
3427: IF p_commit = FND_API.G_TRUE THEN
3420: ,x_return_status
3421: ,x_msg_count
3422: ,x_msg_data );
3423: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3425: END IF;
3426:
3427: IF p_commit = FND_API.G_TRUE THEN
3428: commit;
3423: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3425: END IF;
3426:
3427: IF p_commit = FND_API.G_TRUE THEN
3428: commit;
3429: END IF;
3430:
3431: END IF;
3433:
3434: --DBMS_OUTPUT.PUT_LINE('End BSC_PMF_UI_WRAPPER.Unassign_Analysis_Option');
3435:
3436: EXCEPTION
3437: WHEN FND_API.G_EXC_ERROR THEN
3438: rollback to BscPmfUIUnAssignAnaOpt;
3439: x_return_status := FND_API.G_RET_STS_ERROR;
3440: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3441: ,p_data => x_msg_data);
3435:
3436: EXCEPTION
3437: WHEN FND_API.G_EXC_ERROR THEN
3438: rollback to BscPmfUIUnAssignAnaOpt;
3439: x_return_status := FND_API.G_RET_STS_ERROR;
3440: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3441: ,p_data => x_msg_data);
3442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3443: rollback to BscPmfUIUnAssignAnaOpt;
3438: rollback to BscPmfUIUnAssignAnaOpt;
3439: x_return_status := FND_API.G_RET_STS_ERROR;
3440: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3441: ,p_data => x_msg_data);
3442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3443: rollback to BscPmfUIUnAssignAnaOpt;
3444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3445: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3446: ,p_data => x_msg_data);
3440: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3441: ,p_data => x_msg_data);
3442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3443: rollback to BscPmfUIUnAssignAnaOpt;
3444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3445: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3446: ,p_data => x_msg_data);
3447: WHEN NO_DATA_FOUND THEN
3448: rollback to BscPmfUIUnAssignAnaOpt;
3445: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3446: ,p_data => x_msg_data);
3447: WHEN NO_DATA_FOUND THEN
3448: rollback to BscPmfUIUnAssignAnaOpt;
3449: x_return_status := FND_API.G_RET_STS_ERROR;
3450: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3451: ,p_data => x_msg_data);
3452: WHEN OTHERS THEN
3453: rollback to BscPmfUIUnAssignAnaOpt;
3450: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3451: ,p_data => x_msg_data);
3452: WHEN OTHERS THEN
3453: rollback to BscPmfUIUnAssignAnaOpt;
3454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3455: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3456: ,p_data => x_msg_data);
3457:
3458: End Unassign_Analysis_Option;
3475: temp varchar2(5);
3476:
3477: Begin
3478: FND_MSG_PUB.Initialize;
3479: x_return_status := FND_API.G_RET_STS_SUCCESS;
3480: --DBMS_OUTPUT.PUT_LINE('Begin BSC_PMF_UI_WRAPPER.Is_Analysis_Option_Selected');
3481:
3482: -- it return Empty if option does not exist
3483: temp := '';
3481:
3482: -- it return Empty if option does not exist
3483: temp := '';
3484: -- populate the record l_Bsc_kpi_Entity_Rec with the parameters
3485: Populate_Option_Dependency_Rec ( FND_API.G_FALSE
3486: ,p_kpi_id
3487: ,p_analysis_group_id
3488: ,p_option_id
3489: ,p_parent_option_id
3491: ,l_Bsc_kpi_Entity_Rec
3492: ,x_return_status
3493: ,x_msg_count
3494: ,x_msg_data );
3495: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3497: END IF;
3498:
3499: -- Call main function
3492: ,x_return_status
3493: ,x_msg_count
3494: ,x_msg_data );
3495: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
3496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3497: END IF;
3498:
3499: -- Call main function
3500: temp := BSC_KPI_PUB.Is_Analysis_Option_Selected(
3532: l_count number;
3533:
3534: Begin
3535: FND_MSG_PUB.Initialize;
3536: x_return_status := FND_API.G_RET_STS_SUCCESS;
3537: --DBMS_OUTPUT.PUT_LINE('Begin BSC_PMF_UI_WRAPPER.Is_Leaf_Analysis_Option ');
3538:
3539:
3540: l_Bsc_kpi_Entity_Rec.Bsc_kpi_Id := p_kpi_id;
3589: /************************************************************************************
3590: ************************************************************************************/
3591:
3592: procedure Populate_Option_Dependency_Rec(
3593: p_commit IN VARCHAR2 := FND_API.G_TRUE
3594: ,p_kpi_id IN number
3595: ,p_analysis_group_id IN number
3596: ,p_option_id IN number
3597: ,p_parent_option_id IN number
3604:
3605: l_count number;
3606: Begin
3607: FND_MSG_PUB.Initialize;
3608: x_return_status := FND_API.G_RET_STS_SUCCESS;
3609: --DBMS_OUTPUT.PUT_LINE('Begin BSC_PMF_UI_WRAPPER.Populate_Option_Dependency_Rec');
3610:
3611: -- Evaluate if the Analysis option Exist in the Metadata
3612: select count(option_id)
3624: FND_MSG_PUB.Initialize;
3625: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
3626: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', 'Populate_Option_Dependency_Rec');
3627: FND_MSG_PUB.ADD;
3628: RAISE FND_API.G_EXC_ERROR;
3629: end if;
3630:
3631: p_Bsc_kpi_Entity_Rec.Bsc_kpi_Id := p_kpi_id;
3632: p_Bsc_kpi_Entity_Rec.Bsc_kpi_Group_Id := p_analysis_group_id;
3677:
3678:
3679: EXCEPTION
3680:
3681: WHEN FND_API.G_EXC_ERROR THEN
3682: x_return_status := FND_API.G_RET_STS_ERROR;
3683: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3684: ,p_data => x_msg_data);
3685: raise;
3678:
3679: EXCEPTION
3680:
3681: WHEN FND_API.G_EXC_ERROR THEN
3682: x_return_status := FND_API.G_RET_STS_ERROR;
3683: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3684: ,p_data => x_msg_data);
3685: raise;
3686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3682: x_return_status := FND_API.G_RET_STS_ERROR;
3683: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3684: ,p_data => x_msg_data);
3685: raise;
3686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3688: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3689: ,p_data => x_msg_data);
3690: raise;
3683: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3684: ,p_data => x_msg_data);
3685: raise;
3686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3688: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3689: ,p_data => x_msg_data);
3690: raise;
3691: WHEN NO_DATA_FOUND THEN
3688: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3689: ,p_data => x_msg_data);
3690: raise;
3691: WHEN NO_DATA_FOUND THEN
3692: x_return_status := FND_API.G_RET_STS_ERROR;
3693: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3694: ,p_data => x_msg_data);
3695: raise;
3696: WHEN OTHERS THEN
3693: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3694: ,p_data => x_msg_data);
3695: raise;
3696: WHEN OTHERS THEN
3697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3698: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3699: ,p_data => x_msg_data);
3700: raise;
3701:
3708:
3709: **********************************************************************************/
3710:
3711: procedure Change_Error_Msg(
3712: p_commit IN VARCHAR2 := FND_API.G_TRUE
3713: ,p_msg_name IN varchar2
3714: ,p_new_msg_name IN varchar2
3715: ,p_token1 IN varchar2
3716: ,p_token1_value IN varchar2
3725: ) is
3726:
3727: begin
3728: FND_MSG_PUB.Initialize;
3729: x_return_status := FND_API.G_RET_STS_SUCCESS;
3730: --DBMS_OUTPUT.PUT_LINE('Begin ChangeErrorMsg');
3731:
3732: if x_return_status is not null then
3733:
3751: if p_sys_admin_flag = 'Y' then
3752: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3753: FND_MSG_PUB.ADD;
3754: end if;
3755: RAISE FND_API.G_EXC_ERROR;
3756: end if;
3757: elsif p_new_msg_name is not null then
3758: if p_initialize_flag = 'Y' then
3759: FND_MSG_PUB.Initialize;
3769: if p_sys_admin_flag = 'Y' then
3770: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3771: FND_MSG_PUB.ADD;
3772: end if;
3773: if x_return_status = FND_API.G_RET_STS_ERROR then
3774: RAISE FND_API.G_EXC_ERROR;
3775: else
3776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3777: end if;
3770: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3771: FND_MSG_PUB.ADD;
3772: end if;
3773: if x_return_status = FND_API.G_RET_STS_ERROR then
3774: RAISE FND_API.G_EXC_ERROR;
3775: else
3776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3777: end if;
3778: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3772: end if;
3773: if x_return_status = FND_API.G_RET_STS_ERROR then
3774: RAISE FND_API.G_EXC_ERROR;
3775: else
3776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3777: end if;
3778: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3779: if p_initialize_flag = 'Y' then
3780: FND_MSG_PUB.Initialize;
3774: RAISE FND_API.G_EXC_ERROR;
3775: else
3776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3777: end if;
3778: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3779: if p_initialize_flag = 'Y' then
3780: FND_MSG_PUB.Initialize;
3781: end if;
3782: FND_MESSAGE.SET_NAME('BSC','BSC_WARNING_DIMREL_IMPORTERR');
3786: if p_sys_admin_flag = 'Y' then
3787: FND_MESSAGE.SET_NAME('BSC','BSC_CONTACT_SYS_AD');
3788: FND_MSG_PUB.ADD;
3789: end if;
3790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3791: end if;
3792:
3793: end if;
3794: --DBMS_OUTPUT.PUT_LINE('End ChangeErrorMsg');
3794: --DBMS_OUTPUT.PUT_LINE('End ChangeErrorMsg');
3795:
3796:
3797: EXCEPTION
3798: WHEN FND_API.G_EXC_ERROR THEN
3799: x_return_status := FND_API.G_RET_STS_ERROR;
3800:
3801: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3802: ,p_data => x_msg_data);
3795:
3796:
3797: EXCEPTION
3798: WHEN FND_API.G_EXC_ERROR THEN
3799: x_return_status := FND_API.G_RET_STS_ERROR;
3800:
3801: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3802: ,p_data => x_msg_data);
3803: --DBMS_OUTPUT.PUT_LINE('End ChangeErrorMsg');
3802: ,p_data => x_msg_data);
3803: --DBMS_OUTPUT.PUT_LINE('End ChangeErrorMsg');
3804:
3805: WHEN OTHERS THEN
3806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3807: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3808: ,p_data => x_msg_data);
3809: --DBMS_OUTPUT.PUT_LINE('End ChangeErrorMsg');
3810:
3815: Import_Dim_Level
3816: -------------------------------------------------------------------------------------------------------------------*/
3817:
3818: PROCEDURE Import_Dim_Level(
3819: p_commit IN VARCHAR2 := FND_API.G_TRUE
3820: ,p_Short_Name IN varchar2
3821: ,x_return_status OUT NOCOPY varchar2
3822: ,x_msg_count OUT NOCOPY number
3823: ,x_msg_data OUT NOCOPY varchar2
3823: ,x_msg_data OUT NOCOPY varchar2
3824: ) IS
3825:
3826: v_Bsc_Pmf_Dim_Rec BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type;
3827: v_commit varchar(5) := FND_API.G_FALSE;
3828: v_temp number;
3829: v_level_view_name varchar(200);
3830: v_sql varchar(300);
3831:
3834:
3835:
3836: BEGIN
3837: FND_MSG_PUB.Initialize;
3838: x_return_status := FND_API.G_RET_STS_SUCCESS;
3839:
3840: v_Bsc_Pmf_Dim_Rec.Dimension_Level_Short_Name := p_Short_Name;
3841:
3842: -- Get the BSC Dimension Level Id of the Imported PMF Level
3853: end if;
3854: --DBMS_OUTPUT.PUT_LINE('End Import_Dim_Level (wrapper) ' );
3855:
3856: EXCEPTION
3857: WHEN FND_API.G_EXC_ERROR THEN
3858: rollback;
3859: x_return_status := FND_API.G_RET_STS_ERROR;
3860: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3861: ,p_data => x_msg_data);
3855:
3856: EXCEPTION
3857: WHEN FND_API.G_EXC_ERROR THEN
3858: rollback;
3859: x_return_status := FND_API.G_RET_STS_ERROR;
3860: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3861: ,p_data => x_msg_data);
3862: Change_Error_Msg(
3863: p_msg_name => 'BSC_PMF_LEVEL_NOT_EXISTS'
3870: ,x_return_status => x_return_status
3871: ,x_msg_count => x_msg_count
3872: ,x_msg_data => x_msg_data
3873: );
3874: WHEN OTHERS THEN /*FND_API.G_EXC_UNEXPECTED_ERROR THEN */
3875: rollback;
3876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3877: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3878: ,p_data => x_msg_data);
3872: ,x_msg_data => x_msg_data
3873: );
3874: WHEN OTHERS THEN /*FND_API.G_EXC_UNEXPECTED_ERROR THEN */
3875: rollback;
3876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3877: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
3878: ,p_data => x_msg_data);
3879: Change_Error_Msg(
3880: p_new_msg_name => ''
3888: /*-------------------------------------------------------------------------------------------------------------------
3889: Update_RelationShips
3890: -------------------------------------------------------------------------------------------------------------------*/
3891: PROCEDURE Update_RelationShips(
3892: p_commit IN VARCHAR2 := FND_API.G_TRUE
3893: ,p_Dim_Level_Id IN number
3894: ,p_Short_Name IN varchar2
3895: ,p_Parents IN varchar2
3896: ,x_return_status OUT NOCOPY varchar2
3910: v_array_Dim_Levels t_of_Bsc_Dim_Level_Rec;
3911:
3912: v_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
3913: v_Bsc_Pmf_Dim_Rec BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type;
3914: v_commit varchar(5) := FND_API.G_FALSE;
3915:
3916: v_Dim_Level_Id number;
3917:
3918: CURSOR c_parents IS
3921: WHERE DIM_LEVEL_ID = v_Dim_Level_Id;
3922:
3923: BEGIN
3924: FND_MSG_PUB.Initialize;
3925: x_return_status := FND_API.G_RET_STS_SUCCESS;
3926: -- Ckeck the Imput parameter
3927: /*
3928: if p_Dim_Level_Id Is null then
3929: v_Dim_Level_Rec.Bsc_Level_Id := null;
4073: end if;
4074: end if;
4075: --DBMS_OUTPUT.PUT_LINE('End Update_RelationShip');
4076:
4077: IF (p_commit = FND_API.G_TRUE) THEN
4078: COMMIT;
4079: END IF;
4080: EXCEPTION
4081: WHEN FND_API.G_EXC_ERROR THEN
4077: IF (p_commit = FND_API.G_TRUE) THEN
4078: COMMIT;
4079: END IF;
4080: EXCEPTION
4081: WHEN FND_API.G_EXC_ERROR THEN
4082: rollback;
4083: IF (c_parents%ISOPEN) THEN
4084: CLOSE c_parents;
4085: END IF;
4082: rollback;
4083: IF (c_parents%ISOPEN) THEN
4084: CLOSE c_parents;
4085: END IF;
4086: x_return_status := FND_API.G_RET_STS_ERROR;
4087: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4088: ,p_data => x_msg_data);
4089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4090: rollback;
4085: END IF;
4086: x_return_status := FND_API.G_RET_STS_ERROR;
4087: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4088: ,p_data => x_msg_data);
4089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4090: rollback;
4091: IF (c_parents%ISOPEN) THEN
4092: CLOSE c_parents;
4093: END IF;
4090: rollback;
4091: IF (c_parents%ISOPEN) THEN
4092: CLOSE c_parents;
4093: END IF;
4094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4095: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4096: ,p_data => x_msg_data);
4097: WHEN NO_DATA_FOUND THEN
4098: rollback;
4098: rollback;
4099: IF (c_parents%ISOPEN) THEN
4100: CLOSE c_parents;
4101: END IF;
4102: x_return_status := FND_API.G_RET_STS_ERROR;
4103: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4104: ,p_data => x_msg_data);
4105: WHEN OTHERS THEN
4106: rollback;
4106: rollback;
4107: IF (c_parents%ISOPEN) THEN
4108: CLOSE c_parents;
4109: END IF;
4110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4111: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4112: ,p_data => x_msg_data);
4113:
4114: END Update_RelationShips;
4161: /*===========================================================================+
4162: | FUNCTION Create_PMF_Relationship
4163: +============================================================================*/
4164: procedure Create_PMF_Relationship (
4165: p_commit IN varchar := FND_API.G_FALSE
4166: ,p_SHORT_NAME IN VARCHAR2
4167: ,p_PARENT_SHORT_NAME IN VARCHAR2
4168: ,p_RELATION_COL IN VARCHAR2
4169:
4176: v_count number;
4177:
4178: begin
4179: FND_MSG_PUB.Initialize;
4180: x_return_status := FND_API.G_RET_STS_SUCCESS;
4181: --DBMS_OUTPUT.PUT_LINE('Begin Create_PMF_Relationship' );
4182:
4183: v_Dim_Level_Rec.Bsc_Source := 'PMF';
4184: v_Dim_Level_Rec.Bsc_Level_Short_Name := p_SHORT_NAME;
4201:
4202: if v_count <> 0 then
4203: --DBMS_OUTPUT.PUT_LINE(' Create_PMF_Relationship Deleting Relation ');
4204:
4205: BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation(FND_API.G_FALSE, v_Dim_Level_Rec
4206: ,x_return_status, x_msg_count, x_msg_data);
4207: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4209: END IF;
4203: --DBMS_OUTPUT.PUT_LINE(' Create_PMF_Relationship Deleting Relation ');
4204:
4205: BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation(FND_API.G_FALSE, v_Dim_Level_Rec
4206: ,x_return_status, x_msg_count, x_msg_data);
4207: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4209: END IF;
4210: end if;
4211: BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation(FND_API.G_FALSE, v_Dim_Level_Rec
4204:
4205: BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation(FND_API.G_FALSE, v_Dim_Level_Rec
4206: ,x_return_status, x_msg_count, x_msg_data);
4207: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4209: END IF;
4210: end if;
4211: BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation(FND_API.G_FALSE, v_Dim_Level_Rec
4212: ,x_return_status, x_msg_count, x_msg_data);
4207: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4209: END IF;
4210: end if;
4211: BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation(FND_API.G_FALSE, v_Dim_Level_Rec
4212: ,x_return_status, x_msg_count, x_msg_data);
4213: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4215: END IF;
4209: END IF;
4210: end if;
4211: BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation(FND_API.G_FALSE, v_Dim_Level_Rec
4212: ,x_return_status, x_msg_count, x_msg_data);
4213: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4215: END IF;
4216: IF (p_commit = FND_API.G_TRUE) THEN
4217: COMMIT;
4210: end if;
4211: BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation(FND_API.G_FALSE, v_Dim_Level_Rec
4212: ,x_return_status, x_msg_count, x_msg_data);
4213: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4215: END IF;
4216: IF (p_commit = FND_API.G_TRUE) THEN
4217: COMMIT;
4218: END IF;
4212: ,x_return_status, x_msg_count, x_msg_data);
4213: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4215: END IF;
4216: IF (p_commit = FND_API.G_TRUE) THEN
4217: COMMIT;
4218: END IF;
4219: --DBMS_OUTPUT.PUT_LINE('End Create_PMF_Relationship' );
4220:
4218: END IF;
4219: --DBMS_OUTPUT.PUT_LINE('End Create_PMF_Relationship' );
4220:
4221: EXCEPTION
4222: WHEN FND_API.G_EXC_ERROR THEN
4223: rollback;
4224: raise;
4225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4226: rollback;
4221: EXCEPTION
4222: WHEN FND_API.G_EXC_ERROR THEN
4223: rollback;
4224: raise;
4225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4226: rollback;
4227: raise;
4228: WHEN NO_DATA_FOUND THEN
4229: rollback;
4237: /************************************************************************************
4238: ************************************************************************************/
4239:
4240: procedure Order_Tab_Index(
4241: p_commit IN VARCHAR2 := FND_API.G_TRUE
4242: ,p_tab_ids IN varchar2
4243: ,x_return_status OUT NOCOPY varchar2
4244: ,x_msg_count OUT NOCOPY number
4245: ,x_msg_data OUT NOCOPY varchar2
4262: l_pos number;
4263:
4264: begin
4265: FND_MSG_PUB.Initialize;
4266: x_return_status := FND_API.G_RET_STS_SUCCESS;
4267: SAVEPOINT BscPmfUIOrdTabIndex;
4268:
4269: l_tab_id_string := p_tab_ids;
4270: l_index := 0;
4298: where tab_id = Bsc_Tab_Index(i).Bsc_Tab_Id;
4299:
4300: end loop;
4301:
4302: IF (p_commit = FND_API.G_TRUE) THEN
4303: COMMIT;
4304: END IF;
4305:
4306: EXCEPTION
4303: COMMIT;
4304: END IF;
4305:
4306: EXCEPTION
4307: WHEN FND_API.G_EXC_ERROR THEN
4308: ROLLBACK TO BscPmfUIOrdTabIndex;
4309: IF (x_msg_data IS NULL) THEN
4310: FND_MSG_PUB.Count_And_Get
4311: ( p_encoded => FND_API.G_FALSE
4307: WHEN FND_API.G_EXC_ERROR THEN
4308: ROLLBACK TO BscPmfUIOrdTabIndex;
4309: IF (x_msg_data IS NULL) THEN
4310: FND_MSG_PUB.Count_And_Get
4311: ( p_encoded => FND_API.G_FALSE
4312: , p_count => x_msg_count
4313: , p_data => x_msg_data
4314: );
4315: END IF;
4312: , p_count => x_msg_count
4313: , p_data => x_msg_data
4314: );
4315: END IF;
4316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4317: x_return_status := FND_API.G_RET_STS_ERROR;
4318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4319: ROLLBACK TO BscPmfUIOrdTabIndex;
4320: IF (x_msg_data IS NULL) THEN
4313: , p_data => x_msg_data
4314: );
4315: END IF;
4316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4317: x_return_status := FND_API.G_RET_STS_ERROR;
4318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4319: ROLLBACK TO BscPmfUIOrdTabIndex;
4320: IF (x_msg_data IS NULL) THEN
4321: FND_MSG_PUB.Count_And_Get
4314: );
4315: END IF;
4316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4317: x_return_status := FND_API.G_RET_STS_ERROR;
4318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4319: ROLLBACK TO BscPmfUIOrdTabIndex;
4320: IF (x_msg_data IS NULL) THEN
4321: FND_MSG_PUB.Count_And_Get
4322: ( p_encoded => FND_API.G_FALSE
4318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4319: ROLLBACK TO BscPmfUIOrdTabIndex;
4320: IF (x_msg_data IS NULL) THEN
4321: FND_MSG_PUB.Count_And_Get
4322: ( p_encoded => FND_API.G_FALSE
4323: , p_count => x_msg_count
4324: , p_data => x_msg_data
4325: );
4326: END IF;
4323: , p_count => x_msg_count
4324: , p_data => x_msg_data
4325: );
4326: END IF;
4327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4328: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4329: WHEN NO_DATA_FOUND THEN
4330: ROLLBACK TO BscPmfUIOrdTabIndex;
4331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4324: , p_data => x_msg_data
4325: );
4326: END IF;
4327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4328: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4329: WHEN NO_DATA_FOUND THEN
4330: ROLLBACK TO BscPmfUIOrdTabIndex;
4331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4332: IF (x_msg_data IS NOT NULL) THEN
4327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4328: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4329: WHEN NO_DATA_FOUND THEN
4330: ROLLBACK TO BscPmfUIOrdTabIndex;
4331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4332: IF (x_msg_data IS NOT NULL) THEN
4333: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Order_Tab_Index ';
4334: ELSE
4335: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Order_Tab_Index ';
4336: END IF;
4337: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4338: WHEN OTHERS THEN
4339: ROLLBACK TO BscPmfUIOrdTabIndex;
4340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4341: IF (x_msg_data IS NOT NULL) THEN
4342: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Order_Tab_Index ';
4343: ELSE
4344: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Order_Tab_Index ';
4350: /************************************************************************************
4351: ************************************************************************************/
4352:
4353: procedure Update_Tab_Parent(
4354: p_commit IN VARCHAR2 := FND_API.G_TRUE
4355: ,p_tab_id IN number
4356: ,p_parent_tab_id IN number
4357: ,x_return_status OUT NOCOPY varchar2
4358: ,x_msg_count OUT NOCOPY number
4371: -- case.
4372:
4373: begin
4374: FND_MSG_PUB.Initialize;
4375: x_return_status := FND_API.G_RET_STS_SUCCESS;
4376: SAVEPOINT BscPmfUIUptTabParent;
4377: l_commit := FND_API.G_FALSE;
4378:
4379: --DBMS_OUTPUT.PUT_LINE('Begin Update_Tab_Parent' );
4373: begin
4374: FND_MSG_PUB.Initialize;
4375: x_return_status := FND_API.G_RET_STS_SUCCESS;
4376: SAVEPOINT BscPmfUIUptTabParent;
4377: l_commit := FND_API.G_FALSE;
4378:
4379: --DBMS_OUTPUT.PUT_LINE('Begin Update_Tab_Parent' );
4380:
4381: --DBMS_OUTPUT.PUT_LINE(' Update_Tab_Parent p_tab_id = ' || p_tab_id );
4388: BSC_MULTI_USER_PVT.Tab_Details_Lock( p_parent_tab_id
4389: ,x_return_status
4390: ,x_msg_count
4391: ,x_msg_data);
4392: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4394: END IF;
4395: if x_return_status = 'D' then
4396: -- set the rollback flag so as not to do a rollback.
4389: ,x_return_status
4390: ,x_msg_count
4391: ,x_msg_data);
4392: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4394: END IF;
4395: if x_return_status = 'D' then
4396: -- set the rollback flag so as not to do a rollback.
4397: -- this will eventually be removed.
4398: l_rollback := 1;
4399: FND_MESSAGE.SET_NAME('BSC','BSC_NO_PARENT_TAB');
4400: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_parent_tab_id);
4401: FND_MSG_PUB.ADD;
4402: RAISE FND_API.G_EXC_ERROR;
4403: end if;
4404:
4405: end if;
4406:
4413: from BSC_TABS_VL where tab_id = p_tab_id;
4414: FND_MESSAGE.SET_NAME('BSC','BSC_TAB_SELF_REL');
4415: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_tab_name);
4416: FND_MSG_PUB.ADD;
4417: RAISE FND_API.G_EXC_ERROR;
4418: else
4419: --Evaluate circular parent reference to fixs bug 2406652--
4420: l_return_value := BSC_SCORECARD_PUB.is_child_tab_of( p_parent_tab_id, p_tab_id );
4421: if l_return_value = FND_API.G_TRUE then
4417: RAISE FND_API.G_EXC_ERROR;
4418: else
4419: --Evaluate circular parent reference to fixs bug 2406652--
4420: l_return_value := BSC_SCORECARD_PUB.is_child_tab_of( p_parent_tab_id, p_tab_id );
4421: if l_return_value = FND_API.G_TRUE then
4422: --DBMS_OUTPUT.PUT_LINE(' Update_Tab_Parent l_return_value = ' || l_return_value );
4423: FND_MESSAGE.SET_NAME('BSC','BSC_TAB_CIRCULAR_REL');
4424: select name into l_tab_name
4425: from BSC_TABS_VL where tab_id = p_tab_id;
4427: select name into l_tab_name
4428: from BSC_TABS_VL where tab_id = p_parent_tab_id;
4429: FND_MESSAGE.SET_TOKEN('BSC_TABCHILD', l_tab_name);
4430: FND_MSG_PUB.ADD;
4431: RAISE FND_API.G_EXC_ERROR;
4432: end if;
4433:
4434: end if;
4435:
4455: from BSC_TABS_B
4456: where tab_id = p_parent_tab_id;
4457:
4458: -- call update Tab procedure.
4459: BSC_SCORECARD_PUB.Update_Tab( FND_API.G_FALSE
4460: ,l_Bsc_Tab_Entity_Rec
4461: ,x_return_status
4462: ,x_msg_count
4463: ,x_msg_data);
4460: ,l_Bsc_Tab_Entity_Rec
4461: ,x_return_status
4462: ,x_msg_count
4463: ,x_msg_data);
4464: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4466: END IF;
4467:
4468: -- call time stamp for Tab
4461: ,x_return_status
4462: ,x_msg_count
4463: ,x_msg_data);
4464: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4466: END IF;
4467:
4468: -- call time stamp for Tab
4469: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
4465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4466: END IF;
4467:
4468: -- call time stamp for Tab
4469: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
4470: ,l_Bsc_Tab_Entity_Rec
4471: ,x_return_status
4472: ,x_msg_count
4473: ,x_msg_data);
4470: ,l_Bsc_Tab_Entity_Rec
4471: ,x_return_status
4472: ,x_msg_count
4473: ,x_msg_data);
4474: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4476: END IF;
4477: -- Update time stamp for parent tab.
4478: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id := p_parent_tab_id;
4471: ,x_return_status
4472: ,x_msg_count
4473: ,x_msg_data);
4474: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4476: END IF;
4477: -- Update time stamp for parent tab.
4478: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id := p_parent_tab_id;
4479: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
4475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4476: END IF;
4477: -- Update time stamp for parent tab.
4478: l_Bsc_Tab_Entity_Rec.Bsc_Tab_Id := p_parent_tab_id;
4479: BSC_SCORECARD_PUB.Update_Tab_Time_Stamp( FND_API.G_FALSE
4480: ,l_Bsc_Tab_Entity_Rec
4481: ,x_return_status
4482: ,x_msg_count
4483: ,x_msg_data);
4480: ,l_Bsc_Tab_Entity_Rec
4481: ,x_return_status
4482: ,x_msg_count
4483: ,x_msg_data);
4484: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4486: END IF;
4487: -- Update system time stamp.
4488: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
4481: ,x_return_status
4482: ,x_msg_count
4483: ,x_msg_data);
4484: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4486: END IF;
4487: -- Update system time stamp.
4488: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
4489: ,l_Bsc_Tab_Entity_Rec
4484: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4486: END IF;
4487: -- Update system time stamp.
4488: BSC_SCORECARD_PUB.Update_System_Time_Stamp( FND_API.G_FALSE
4489: ,l_Bsc_Tab_Entity_Rec
4490: ,x_return_status
4491: ,x_msg_count
4492: ,x_msg_data);
4489: ,l_Bsc_Tab_Entity_Rec
4490: ,x_return_status
4491: ,x_msg_count
4492: ,x_msg_data);
4493: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4495: END IF;
4496: IF (p_commit = FND_API.G_TRUE) THEN
4497: COMMIT;
4490: ,x_return_status
4491: ,x_msg_count
4492: ,x_msg_data);
4493: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4495: END IF;
4496: IF (p_commit = FND_API.G_TRUE) THEN
4497: COMMIT;
4498: END IF;
4492: ,x_msg_data);
4493: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4495: END IF;
4496: IF (p_commit = FND_API.G_TRUE) THEN
4497: COMMIT;
4498: END IF;
4499:
4500: --DBMS_OUTPUT.PUT_LINE('End Update_Tab_Parent' );
4499:
4500: --DBMS_OUTPUT.PUT_LINE('End Update_Tab_Parent' );
4501:
4502: EXCEPTION
4503: WHEN FND_API.G_EXC_ERROR THEN
4504: ROLLBACK TO BscPmfUIUptTabParent;
4505: IF (x_msg_data IS NULL) THEN
4506: FND_MSG_PUB.Count_And_Get
4507: ( p_encoded => FND_API.G_FALSE
4503: WHEN FND_API.G_EXC_ERROR THEN
4504: ROLLBACK TO BscPmfUIUptTabParent;
4505: IF (x_msg_data IS NULL) THEN
4506: FND_MSG_PUB.Count_And_Get
4507: ( p_encoded => FND_API.G_FALSE
4508: , p_count => x_msg_count
4509: , p_data => x_msg_data
4510: );
4511: END IF;
4508: , p_count => x_msg_count
4509: , p_data => x_msg_data
4510: );
4511: END IF;
4512: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4513: x_return_status := FND_API.G_RET_STS_ERROR;
4514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4515: ROLLBACK TO BscPmfUIUptTabParent;
4516: IF (x_msg_data IS NULL) THEN
4509: , p_data => x_msg_data
4510: );
4511: END IF;
4512: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4513: x_return_status := FND_API.G_RET_STS_ERROR;
4514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4515: ROLLBACK TO BscPmfUIUptTabParent;
4516: IF (x_msg_data IS NULL) THEN
4517: FND_MSG_PUB.Count_And_Get
4510: );
4511: END IF;
4512: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4513: x_return_status := FND_API.G_RET_STS_ERROR;
4514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4515: ROLLBACK TO BscPmfUIUptTabParent;
4516: IF (x_msg_data IS NULL) THEN
4517: FND_MSG_PUB.Count_And_Get
4518: ( p_encoded => FND_API.G_FALSE
4514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4515: ROLLBACK TO BscPmfUIUptTabParent;
4516: IF (x_msg_data IS NULL) THEN
4517: FND_MSG_PUB.Count_And_Get
4518: ( p_encoded => FND_API.G_FALSE
4519: , p_count => x_msg_count
4520: , p_data => x_msg_data
4521: );
4522: END IF;
4519: , p_count => x_msg_count
4520: , p_data => x_msg_data
4521: );
4522: END IF;
4523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4524: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4525: WHEN NO_DATA_FOUND THEN
4526: ROLLBACK TO BscPmfUIUptTabParent;
4527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4520: , p_data => x_msg_data
4521: );
4522: END IF;
4523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4524: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4525: WHEN NO_DATA_FOUND THEN
4526: ROLLBACK TO BscPmfUIUptTabParent;
4527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4528: IF (x_msg_data IS NOT NULL) THEN
4523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4524: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4525: WHEN NO_DATA_FOUND THEN
4526: ROLLBACK TO BscPmfUIUptTabParent;
4527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4528: IF (x_msg_data IS NOT NULL) THEN
4529: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Tab_Parent ';
4530: ELSE
4531: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Tab_Parent ';
4532: END IF;
4533: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4534: WHEN OTHERS THEN
4535: ROLLBACK TO BscPmfUIUptTabParent;
4536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4537: IF (x_msg_data IS NOT NULL) THEN
4538: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Tab_Parent ';
4539: ELSE
4540: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Tab_Parent ';
4547: /************************************************************************************
4548: ************************************************************************************/
4549:
4550: procedure Create_Measure(
4551: p_commit IN VARCHAR2 := FND_API.G_TRUE
4552: ,p_short_name IN varchar2
4553: ,x_return_status OUT NOCOPY varchar2
4554: ,x_msg_count OUT NOCOPY number
4555: ,x_msg_data OUT NOCOPY varchar2
4560: l_measure_col BSC_SYS_MEASURES.MEASURE_COL%TYPE;
4561:
4562: begin
4563: FND_MSG_PUB.Initialize;
4564: x_return_status := FND_API.G_RET_STS_SUCCESS;
4565: SAVEPOINT BscPmfUICrtMeas;
4566: l_commit := FND_API.G_FALSE;
4567:
4568: -- Get PMF measure long based on the shortname.
4562: begin
4563: FND_MSG_PUB.Initialize;
4564: x_return_status := FND_API.G_RET_STS_SUCCESS;
4565: SAVEPOINT BscPmfUICrtMeas;
4566: l_commit := FND_API.G_FALSE;
4567:
4568: -- Get PMF measure long based on the shortname.
4569: select distinct measure_name
4570: into l_Bsc_Dataset_Rec.Bsc_Dataset_Name
4585: l_Bsc_Dataset_Rec.Bsc_Measure_Col := p_short_name;
4586: end if;
4587:
4588:
4589: BSC_DATASETS_PUB.Create_Measures( FND_API.G_FALSE
4590: ,l_Bsc_Dataset_Rec
4591: ,x_return_status
4592: ,x_msg_count
4593: ,x_msg_data);
4590: ,l_Bsc_Dataset_Rec
4591: ,x_return_status
4592: ,x_msg_count
4593: ,x_msg_data);
4594: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4596: END IF;
4597: IF (p_commit = FND_API.G_TRUE) THEN
4598: COMMIT;
4591: ,x_return_status
4592: ,x_msg_count
4593: ,x_msg_data);
4594: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4596: END IF;
4597: IF (p_commit = FND_API.G_TRUE) THEN
4598: COMMIT;
4599: END IF;
4593: ,x_msg_data);
4594: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4596: END IF;
4597: IF (p_commit = FND_API.G_TRUE) THEN
4598: COMMIT;
4599: END IF;
4600:
4601: EXCEPTION
4598: COMMIT;
4599: END IF;
4600:
4601: EXCEPTION
4602: WHEN FND_API.G_EXC_ERROR THEN
4603: ROLLBACK TO BscPmfUICrtMeas;
4604: IF (x_msg_data IS NULL) THEN
4605: FND_MSG_PUB.Count_And_Get
4606: ( p_encoded => FND_API.G_FALSE
4602: WHEN FND_API.G_EXC_ERROR THEN
4603: ROLLBACK TO BscPmfUICrtMeas;
4604: IF (x_msg_data IS NULL) THEN
4605: FND_MSG_PUB.Count_And_Get
4606: ( p_encoded => FND_API.G_FALSE
4607: , p_count => x_msg_count
4608: , p_data => x_msg_data
4609: );
4610: END IF;
4607: , p_count => x_msg_count
4608: , p_data => x_msg_data
4609: );
4610: END IF;
4611: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4612: x_return_status := FND_API.G_RET_STS_ERROR;
4613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4614: ROLLBACK TO BscPmfUICrtMeas;
4615: IF (x_msg_data IS NULL) THEN
4608: , p_data => x_msg_data
4609: );
4610: END IF;
4611: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4612: x_return_status := FND_API.G_RET_STS_ERROR;
4613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4614: ROLLBACK TO BscPmfUICrtMeas;
4615: IF (x_msg_data IS NULL) THEN
4616: FND_MSG_PUB.Count_And_Get
4609: );
4610: END IF;
4611: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
4612: x_return_status := FND_API.G_RET_STS_ERROR;
4613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4614: ROLLBACK TO BscPmfUICrtMeas;
4615: IF (x_msg_data IS NULL) THEN
4616: FND_MSG_PUB.Count_And_Get
4617: ( p_encoded => FND_API.G_FALSE
4613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4614: ROLLBACK TO BscPmfUICrtMeas;
4615: IF (x_msg_data IS NULL) THEN
4616: FND_MSG_PUB.Count_And_Get
4617: ( p_encoded => FND_API.G_FALSE
4618: , p_count => x_msg_count
4619: , p_data => x_msg_data
4620: );
4621: END IF;
4618: , p_count => x_msg_count
4619: , p_data => x_msg_data
4620: );
4621: END IF;
4622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4623: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4624: WHEN NO_DATA_FOUND THEN
4625: ROLLBACK TO BscPmfUICrtMeas;
4626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4619: , p_data => x_msg_data
4620: );
4621: END IF;
4622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4623: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4624: WHEN NO_DATA_FOUND THEN
4625: ROLLBACK TO BscPmfUICrtMeas;
4626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4627: IF (x_msg_data IS NOT NULL) THEN
4622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4623: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
4624: WHEN NO_DATA_FOUND THEN
4625: ROLLBACK TO BscPmfUICrtMeas;
4626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4627: IF (x_msg_data IS NOT NULL) THEN
4628: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Measure ';
4629: ELSE
4630: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Measure ';
4631: END IF;
4632: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
4633: WHEN OTHERS THEN
4634: ROLLBACK TO BscPmfUICrtMeas;
4635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4636: IF (x_msg_data IS NOT NULL) THEN
4637: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Create_Measure ';
4638: ELSE
4639: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Create_Measure ';
4668: ,x_return_status => l_return_status
4669: ,x_msg_count => l_msg_count
4670: ,x_msg_data => l_msg_data
4671: );
4672: IF ((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4674: END IF;
4675: -- Verify that the dataset was created
4676: SELECT count(*)
4669: ,x_msg_count => l_msg_count
4670: ,x_msg_data => l_msg_data
4671: );
4672: IF ((l_return_status IS NOT NULL) AND (l_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4674: END IF;
4675: -- Verify that the dataset was created
4676: SELECT count(*)
4677: INTO l_count
4754: l_function_code varchar2(30);
4755:
4756: begin
4757: FND_MSG_PUB.Initialize;
4758: x_return_status := FND_API.G_RET_STS_SUCCESS;
4759: -- When this call was first implemented, PMV had mistakenly advice on using
4760: -- the most recent region code to obtain the proper report for the given measure
4761: -- After further research it was determined that this wrapper should be making
4762: -- the same call as Iviewer is, which does not coincide with PMVs advice.
4779: ,l_DimLevel_Viewby_Tbl
4780: ,x_return_status
4781: ,x_msg_count
4782: ,x_msg_data);
4783: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4785: END IF;
4786: -- loop over the TABLE RECORD obtained from above call. Parse it into the Dimension and dimension level.
4787: l_cntr := 1;
4780: ,x_return_status
4781: ,x_msg_count
4782: ,x_msg_data);
4783: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
4784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4785: END IF;
4786: -- loop over the TABLE RECORD obtained from above call. Parse it into the Dimension and dimension level.
4787: l_cntr := 1;
4788: for l_cntr in 1..l_DimLevel_Viewby_Tbl.count loop
4890: end if;
4891: *****************************************************************/
4892:
4893: EXCEPTION
4894: WHEN FND_API.G_EXC_ERROR THEN
4895: rollback;
4896: x_return_status := FND_API.G_RET_STS_ERROR;
4897: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4898: ,p_data => x_msg_data);
4892:
4893: EXCEPTION
4894: WHEN FND_API.G_EXC_ERROR THEN
4895: rollback;
4896: x_return_status := FND_API.G_RET_STS_ERROR;
4897: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4898: ,p_data => x_msg_data);
4899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4900: rollback;
4895: rollback;
4896: x_return_status := FND_API.G_RET_STS_ERROR;
4897: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4898: ,p_data => x_msg_data);
4899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4900: rollback;
4901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4902: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4903: ,p_data => x_msg_data);
4897: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4898: ,p_data => x_msg_data);
4899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4900: rollback;
4901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4902: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4903: ,p_data => x_msg_data);
4904: WHEN NO_DATA_FOUND THEN
4905: rollback;
4902: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4903: ,p_data => x_msg_data);
4904: WHEN NO_DATA_FOUND THEN
4905: rollback;
4906: x_return_status := FND_API.G_RET_STS_ERROR;
4907: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4908: ,p_data => x_msg_data);
4909: WHEN OTHERS THEN
4910: rollback;
4907: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4908: ,p_data => x_msg_data);
4909: WHEN OTHERS THEN
4910: rollback;
4911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4912: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
4913: ,p_data => x_msg_data);
4914:
4915:
4988: ,x_region_code => l_Region_Code
4989: );
4990:
4991: IF (l_region_code IS NULL) THEN
4992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4993: END IF;
4994:
4995: --DBMS_OUTPUT.PUT_LINE(' ******* After 1');
4996:
5002: , x_msg_count => l_msg_count
5003: , x_msg_data => l_msg_data
5004: );
5005:
5006: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5007: --DBMS_OUTPUT.PUT_LINE(' *** Error calling PMV API');
5008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5009: END IF;
5010:
5004: );
5005:
5006: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5007: --DBMS_OUTPUT.PUT_LINE(' *** Error calling PMV API');
5008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5009: END IF;
5010:
5011: FOR l_table_index IN 0..l_DimObj_ViewBy_Tbl.COUNT-1
5012: LOOP
5078:
5079:
5080: PROCEDURE Assign_Kpi_Tab
5081: (
5082: p_commit IN VARCHAR2 := FND_API.G_FALSE
5083: , p_tab_id IN NUMBER
5084: , p_kpi_ids IN VARCHAR2
5085: , x_return_status IN OUT NOCOPY VARCHAR2
5086: , x_msg_count IN OUT NOCOPY NUMBER
5092: l_Time_Stamp VARCHAR2(100);
5093: BEGIN
5094: SAVEPOINT BscPmfUIAssignKpiTab;
5095: FND_MSG_PUB.Initialize;
5096: x_return_status := FND_API.G_RET_STS_SUCCESS;
5097:
5098: IF(p_kpi_ids IS NOT NULL) THEN
5099: l_kpi_ids := p_kpi_ids;
5100: l_Time_Stamp := p_time_stamp;
5103: ) LOOP
5104:
5105: BSC_PMF_UI_WRAPPER.Assign_KPI
5106: (
5107: p_commit => FND_API.G_FALSE
5108: , p_kpi_id => l_kpi_id
5109: , p_tab_id => p_tab_id
5110: , x_return_status => x_return_status
5111: , x_msg_count => x_msg_count
5111: , x_msg_count => x_msg_count
5112: , x_msg_data => x_msg_data
5113: , p_time_stamp => l_Time_Stamp
5114: );
5115: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5117: END IF;
5118: -- retrieving the current value of timestamp from database which will
5119: --be assigned to p_time_stamp after the 1st cycle.
5112: , x_msg_data => x_msg_data
5113: , p_time_stamp => l_Time_Stamp
5114: );
5115: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5117: END IF;
5118: -- retrieving the current value of timestamp from database which will
5119: --be assigned to p_time_stamp after the 1st cycle.
5120:
5121: l_Time_Stamp := BSC_BIS_LOCKS_PVT.get_tab_time_stamp(p_tab_id);
5122: END LOOP;
5123: END IF;
5124:
5125: IF (p_commit = FND_API.G_TRUE) THEN
5126: COMMIT;
5127: END IF;
5128: EXCEPTION
5129: WHEN FND_API.G_EXC_ERROR THEN
5125: IF (p_commit = FND_API.G_TRUE) THEN
5126: COMMIT;
5127: END IF;
5128: EXCEPTION
5129: WHEN FND_API.G_EXC_ERROR THEN
5130: rollback TO BscPmfUIAssignKpiTab;
5131: x_return_status := FND_API.G_RET_STS_ERROR;
5132: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5133: ,p_data => x_msg_data);
5127: END IF;
5128: EXCEPTION
5129: WHEN FND_API.G_EXC_ERROR THEN
5130: rollback TO BscPmfUIAssignKpiTab;
5131: x_return_status := FND_API.G_RET_STS_ERROR;
5132: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5133: ,p_data => x_msg_data);
5134:
5135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5131: x_return_status := FND_API.G_RET_STS_ERROR;
5132: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5133: ,p_data => x_msg_data);
5134:
5135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5136: rollback TO BscPmfUIAssignKpiTab;
5137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5138: if( x_msg_data is null) then
5139:
5133: ,p_data => x_msg_data);
5134:
5135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5136: rollback TO BscPmfUIAssignKpiTab;
5137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5138: if( x_msg_data is null) then
5139:
5140: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5141: ,p_data => x_msg_data);
5142: end if;
5143:
5144: WHEN NO_DATA_FOUND THEN
5145: rollback TO BscPmfUIAssignKpiTab;
5146: x_return_status := FND_API.G_RET_STS_ERROR;
5147: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5148: ,p_data => x_msg_data);
5149:
5150: WHEN OTHERS THEN
5148: ,p_data => x_msg_data);
5149:
5150: WHEN OTHERS THEN
5151: rollback TO BscPmfUIAssignKpiTab;
5152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5153: IF (x_msg_data IS NOT NULL) THEN
5154: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Assign_Kpi_Tab ';
5155: ELSE
5156: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Assign_Kpi_Tab ';
5230: , x_return_status => x_return_status
5231: , x_msg_count => x_msg_count
5232: , x_msg_data => x_msg_data
5233: );
5234: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5236: END IF;
5237: END LOOP;
5238:
5231: , x_msg_count => x_msg_count
5232: , x_msg_data => x_msg_data
5233: );
5234: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5236: END IF;
5237: END LOOP;
5238:
5239: -- Reorder the sequence.
5283: -- API name : Update_Periodicity_Props
5284: -- Type : Private
5285: ************************************************************************************/
5286: PROCEDURE Update_Periodicity_Props(
5287: p_commit IN VARCHAR2 := FND_API.G_FALSE
5288: ,p_Indicator IN NUMBER
5289: ,p_calendar_id IN NUMBER
5290: ,p_Periods_In_Graph IN FND_TABLE_OF_NUMBER := NULL
5291: ,p_Periodicity_Id_Tbl IN FND_TABLE_OF_NUMBER := NULL
5322: AND p.calendar_id = p_calendar_id;
5323: BEGIN
5324:
5325: SAVEPOINT UpdatePeriodicityPropsPUB;
5326: x_return_status := FND_API.G_RET_STS_SUCCESS;
5327: FND_MSG_PUB.Initialize;
5328:
5329: FOR cd IN c_Kpi_Periodicities LOOP
5330: IF p_Periodicity_Id_Tbl IS NOT NULL AND p_Periods_In_Graph IS NOT NULL THEN
5350:
5351: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := p_Indicator;
5352: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Periodicity_Id := cd.periodicity_id;
5353: BSC_KPI_PUB.Update_Kpi_Periodicity (
5354: p_commit => FND_API.G_FALSE
5355: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
5356: ,x_return_status => x_return_status
5357: ,x_msg_count => x_msg_count
5358: ,x_msg_data => x_msg_data
5356: ,x_return_status => x_return_status
5357: ,x_msg_count => x_msg_count
5358: ,x_msg_data => x_msg_data
5359: ) ;
5360: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5362: END IF;
5363:
5364: IF p_cascade_shared THEN
5357: ,x_msg_count => x_msg_count
5358: ,x_msg_data => x_msg_data
5359: ) ;
5360: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5362: END IF;
5363:
5364: IF p_cascade_shared THEN
5365: FOR cd IN c_share_kpis LOOP
5364: IF p_cascade_shared THEN
5365: FOR cd IN c_share_kpis LOOP
5366: l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id := cd.Indicator;
5367: BSC_KPI_PUB.Update_Kpi_Periodicity (
5368: p_commit => FND_API.G_FALSE
5369: ,p_Bsc_Kpi_Entity_Rec => l_Bsc_Kpi_Entity_Rec
5370: ,x_return_status => x_return_status
5371: ,x_msg_count => x_msg_count
5372: ,x_msg_data => x_msg_data
5370: ,x_return_status => x_return_status
5371: ,x_msg_count => x_msg_count
5372: ,x_msg_data => x_msg_data
5373: );
5374: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5376: END IF;
5377: END LOOP;
5378: END IF;
5371: ,x_msg_count => x_msg_count
5372: ,x_msg_data => x_msg_data
5373: );
5374: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5376: END IF;
5377: END LOOP;
5378: END IF;
5379: END IF;
5380: END LOOP;
5381: END IF;
5382: END LOOP;
5383:
5384: IF p_Commit = FND_API.G_TRUE THEN
5385: COMMIT;
5386: END IF;
5387:
5388: EXCEPTION
5385: COMMIT;
5386: END IF;
5387:
5388: EXCEPTION
5389: WHEN FND_API.G_EXC_ERROR THEN
5390: ROLLBACK TO UpdatePeriodicityPropsPUB;
5391: IF (x_msg_data IS NULL) THEN
5392: FND_MSG_PUB.Count_And_Get
5393: ( p_encoded => FND_API.G_FALSE
5389: WHEN FND_API.G_EXC_ERROR THEN
5390: ROLLBACK TO UpdatePeriodicityPropsPUB;
5391: IF (x_msg_data IS NULL) THEN
5392: FND_MSG_PUB.Count_And_Get
5393: ( p_encoded => FND_API.G_FALSE
5394: , p_count => x_msg_count
5395: , p_data => x_msg_data
5396: );
5397: END IF;
5394: , p_count => x_msg_count
5395: , p_data => x_msg_data
5396: );
5397: END IF;
5398: x_return_status := FND_API.G_RET_STS_ERROR;
5399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5400: ROLLBACK TO UpdatePeriodicityPropsPUB;
5401: IF (x_msg_data IS NULL) THEN
5402: FND_MSG_PUB.Count_And_Get
5395: , p_data => x_msg_data
5396: );
5397: END IF;
5398: x_return_status := FND_API.G_RET_STS_ERROR;
5399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5400: ROLLBACK TO UpdatePeriodicityPropsPUB;
5401: IF (x_msg_data IS NULL) THEN
5402: FND_MSG_PUB.Count_And_Get
5403: ( p_encoded => FND_API.G_FALSE
5399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5400: ROLLBACK TO UpdatePeriodicityPropsPUB;
5401: IF (x_msg_data IS NULL) THEN
5402: FND_MSG_PUB.Count_And_Get
5403: ( p_encoded => FND_API.G_FALSE
5404: , p_count => x_msg_count
5405: , p_data => x_msg_data
5406: );
5407: END IF;
5404: , p_count => x_msg_count
5405: , p_data => x_msg_data
5406: );
5407: END IF;
5408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5409: WHEN NO_DATA_FOUND THEN
5410: ROLLBACK TO UpdatePeriodicityPropsPUB;
5411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5412: IF (x_msg_data IS NOT NULL) THEN
5407: END IF;
5408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5409: WHEN NO_DATA_FOUND THEN
5410: ROLLBACK TO UpdatePeriodicityPropsPUB;
5411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5412: IF (x_msg_data IS NOT NULL) THEN
5413: x_msg_data := x_msg_data||' ->BSC_PMF_UI_WRAPPER.Update_Periodicity_Props ';
5414: ELSE
5415: x_msg_data := SQLERRM||'BSC_PMF_UI_WRAPPER.Update_Periodicity_Props ';
5415: x_msg_data := SQLERRM||'BSC_PMF_UI_WRAPPER.Update_Periodicity_Props ';
5416: END IF;
5417: WHEN OTHERS THEN
5418: ROLLBACK TO UpdatePeriodicityPropsPUB;
5419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5420: IF (x_msg_data IS NOT NULL) THEN
5421: x_msg_data := x_msg_data||' ->BSC_PMF_UI_WRAPPER.Update_Periodicity_Props ';
5422: ELSE
5423: x_msg_data := SQLERRM||'BSC_PMF_UI_WRAPPER.Update_Periodicity_Props ';
5443:
5444: Creator : - William Cano APR 16 / 2003
5445: /********************************************************************************/
5446: procedure Update_Kpi_Periodicities(
5447: p_commit IN VARCHAR2 -- := FND_API.G_FALSE
5448: ,p_kpi_id IN NUMBER
5449: ,p_calendar_id IN NUMBER
5450: ,p_periodicity_ids IN VARCHAR2
5451: ,p_Dft_periodicity_id IN NUMBER
5510:
5511: SAVEPOINT BSCUpdKpiPeriodicities;
5512: FND_MSG_PUB.Initialize;
5513:
5514: x_return_status := FND_API.G_RET_STS_SUCCESS;
5515: l_periodicity_ids := TRIM(p_periodicity_ids);
5516: l_Dft_periodicity_id := NULL;
5517:
5518: /* The following validation apply for this API
5524: RETURN;
5525: -- It should give a message, but needs to be verified that it has no impact on Report Designer.
5526: /*FND_MESSAGE.SET_NAME('BSC','BSC_D_KPI_AT_LEAST_1_PERIOD');
5527: FND_MSG_PUB.ADD;
5528: RAISE FND_API.G_EXC_ERROR;*/
5529: END IF;
5530:
5531: OPEN c_Yearly_Periodicity;
5532: FETCH c_Yearly_Periodicity INTO l_Old_Number_Years,l_Old_Previous_Years;
5553:
5554: IF(l_count > 1) THEN
5555: FND_MESSAGE.SET_NAME('BSC','BSC_D_ONE_PERIOD_IN_SIM_TREE');
5556: FND_MSG_PUB.ADD;
5557: RAISE FND_API.G_EXC_ERROR;
5558: END IF;
5559: END IF;*/
5560:
5561: IF (l_cur_cal_id = p_calendar_id) THEN -- Calendar is not changed.
5733: , x_msg_count => x_msg_count
5734: , x_msg_data => x_msg_data
5735: );
5736:
5737: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
5738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5739: END IF;
5740:
5741: -- All the periodicities will be enabled.
5734: , x_msg_data => x_msg_data
5735: );
5736:
5737: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
5738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5739: END IF;
5740:
5741: -- All the periodicities will be enabled.
5742: -- Only default will be disabled, which is taken care in Update_Obj_Cal_properties.
5749: -- lock the KPI
5750: BSC_BIS_LOCKS_PUB.LOCK_KPI
5751: ( p_kpi_Id => l_Bsc_Kpi_Entity_Rec.Bsc_Kpi_Id
5752: , p_time_stamp => NULL
5753: , p_full_lock_flag => FND_API.G_FALSE
5754: , x_return_status => x_return_status
5755: , x_msg_count => x_msg_count
5756: , x_msg_data => x_msg_data
5757: );
5836: ,x_return_status => x_return_status
5837: ,x_msg_count => x_msg_count
5838: ,x_msg_data => x_msg_data
5839: );
5840: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5842: END IF;
5843:
5844: OPEN c_Yearly_Periodicity;
5837: ,x_msg_count => x_msg_count
5838: ,x_msg_data => x_msg_data
5839: );
5840: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5842: END IF;
5843:
5844: OPEN c_Yearly_Periodicity;
5845: FETCH c_Yearly_Periodicity INTO l_New_Number_Years,l_New_Previous_Years;
5852: BSC_DESIGNER_PVT.ActionFlag_Change(cd.indicator , BSC_DESIGNER_PVT.G_ActionFlag.GAA_Update);
5853: END LOOP;
5854: END IF;
5855:
5856: IF p_commit = FND_API.G_TRUE then
5857: commit;
5858: END IF;
5859:
5860: EXCEPTION
5857: commit;
5858: END IF;
5859:
5860: EXCEPTION
5861: WHEN FND_API.G_EXC_ERROR THEN
5862: ROLLBACK TO BSCUpdKpiPeriodicities;
5863: IF (c_share_kpis%ISOPEN) THEN
5864: CLOSE c_share_kpis;
5865: END IF;
5864: CLOSE c_share_kpis;
5865: END IF;
5866: IF (x_msg_data IS NULL) THEN
5867: FND_MSG_PUB.Count_And_Get
5868: ( p_encoded => FND_API.G_FALSE
5869: , p_count => x_msg_count
5870: , p_data => x_msg_data
5871: );
5872: END IF;
5869: , p_count => x_msg_count
5870: , p_data => x_msg_data
5871: );
5872: END IF;
5873: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5874: x_return_status := FND_API.G_RET_STS_ERROR;
5875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5876: ROLLBACK TO BSCUpdKpiPeriodicities;
5877: IF (c_share_kpis%ISOPEN) THEN
5870: , p_data => x_msg_data
5871: );
5872: END IF;
5873: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5874: x_return_status := FND_API.G_RET_STS_ERROR;
5875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5876: ROLLBACK TO BSCUpdKpiPeriodicities;
5877: IF (c_share_kpis%ISOPEN) THEN
5878: CLOSE c_share_kpis;
5871: );
5872: END IF;
5873: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
5874: x_return_status := FND_API.G_RET_STS_ERROR;
5875: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5876: ROLLBACK TO BSCUpdKpiPeriodicities;
5877: IF (c_share_kpis%ISOPEN) THEN
5878: CLOSE c_share_kpis;
5879: END IF;
5878: CLOSE c_share_kpis;
5879: END IF;
5880: IF (x_msg_data IS NULL) THEN
5881: FND_MSG_PUB.Count_And_Get
5882: ( p_encoded => FND_API.G_FALSE
5883: , p_count => x_msg_count
5884: , p_data => x_msg_data
5885: );
5886: END IF;
5883: , p_count => x_msg_count
5884: , p_data => x_msg_data
5885: );
5886: END IF;
5887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5888: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5889: WHEN OTHERS THEN
5890: ROLLBACK TO BSCUpdKpiPeriodicities;
5891: IF (c_share_kpis%ISOPEN) THEN
5884: , p_data => x_msg_data
5885: );
5886: END IF;
5887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5888: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
5889: WHEN OTHERS THEN
5890: ROLLBACK TO BSCUpdKpiPeriodicities;
5891: IF (c_share_kpis%ISOPEN) THEN
5892: CLOSE c_share_kpis;
5890: ROLLBACK TO BSCUpdKpiPeriodicities;
5891: IF (c_share_kpis%ISOPEN) THEN
5892: CLOSE c_share_kpis;
5893: END IF;
5894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5895: IF (x_msg_data IS NOT NULL) THEN
5896: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Update_Kpi_Periodicities ';
5897: ELSE
5898: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Update_Kpi_Periodicities ';
5939: AND b.tab_id = p_tab_id;
5940:
5941: BEGIN
5942: FND_MSG_PUB.Initialize;
5943: x_return_status := FND_API.G_RET_STS_SUCCESS;
5944: l_dep_obj_list := '';
5945: x_msg_data := '';
5946: l_exist_dependency := FND_API.G_FALSE;
5947:
5942: FND_MSG_PUB.Initialize;
5943: x_return_status := FND_API.G_RET_STS_SUCCESS;
5944: l_dep_obj_list := '';
5945: x_msg_data := '';
5946: l_exist_dependency := FND_API.G_FALSE;
5947:
5948: IF (c_scr%ISOPEN) THEN
5949: CLOSE c_scr;
5950: END IF;
5954: CLOSE c_scr;
5955:
5956: BSC_PMF_UI_WRAPPER.Check_Tabviews(
5957: p_tab_id => p_tab_id
5958: , p_list_dependency => FND_API.G_TRUE
5959: , x_exist_dependency => l_exist_dependency
5960: , x_dep_obj_list => l_dep_obj_list
5961: , x_return_status => l_ret_status
5962: , x_msg_count => x_msg_count
5961: , x_return_status => l_ret_status
5962: , x_msg_count => x_msg_count
5963: , x_msg_data => l_msg_data);
5964:
5965: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
5966: FND_MSG_PUB.Initialize;
5967: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
5968: FND_MSG_PUB.ADD;
5969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5965: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
5966: FND_MSG_PUB.Initialize;
5967: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
5968: FND_MSG_PUB.ADD;
5969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5970: END IF;
5971:
5972: IF (l_exist_dependency = FND_API.G_TRUE) THEN
5973: FND_MESSAGE.SET_NAME('BSC','BSC_SCR_DELETE_VIEW_ERR');
5968: FND_MSG_PUB.ADD;
5969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5970: END IF;
5971:
5972: IF (l_exist_dependency = FND_API.G_TRUE) THEN
5973: FND_MESSAGE.SET_NAME('BSC','BSC_SCR_DELETE_VIEW_ERR');
5974: FND_MESSAGE.SET_TOKEN('SCR_NAME', l_scr_name);
5975: FND_MESSAGE.SET_TOKEN('DEP_OBJ_LIST',l_dep_obj_list);
5976: FND_MSG_PUB.ADD;
5974: FND_MESSAGE.SET_TOKEN('SCR_NAME', l_scr_name);
5975: FND_MESSAGE.SET_TOKEN('DEP_OBJ_LIST',l_dep_obj_list);
5976: FND_MSG_PUB.ADD;
5977: FND_MSG_PUB.Count_And_Get(
5978: p_encoded => FND_API.G_FALSE
5979: , p_count => x_msg_count
5980: , p_data => x_msg_data);
5981: return;
5982: END IF;
5986: END IF;
5987:
5988: l_Is_Ag_Type_Scorecard := BSC_BIS_KPI_CRUD_PUB.is_Scorecard_From_Reports(l_scr_short_name);
5989:
5990: IF (l_Is_Ag_Type_Scorecard = FND_API.G_TRUE) THEN
5991: -- The scorecard, Report, Objective and Objective Group have the same name in
5992: -- an AG Report scenario.
5993: FND_MESSAGE.SET_NAME('BSC','BSC_AG_SCORECARD_DELETE');
5994: FND_MESSAGE.SET_TOKEN('SNAME', l_scr_name);
5999: -- call the procedure to get the parent objects for each KPI
6000: l_dep_obj_name := cd_kpi_function.function_name;
6001: l_objective_name := cd_kpi_function.name;
6002: l_parent_obj_table := BIS_RSG_PUB_API_PKG.GetParentObjects(l_dep_obj_name,'REPORT','PORTLET',l_ret_status,l_msg_data);
6003: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6004: FND_MSG_PUB.Initialize;
6005: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
6006: FND_MSG_PUB.ADD;
6007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6003: IF ((l_ret_status IS NOT NULL) AND (l_ret_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6004: FND_MSG_PUB.Initialize;
6005: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
6006: FND_MSG_PUB.ADD;
6007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6008: ELSE
6009: IF (l_parent_obj_table.COUNT > 0) THEN
6010: l_index := l_parent_obj_table.first;
6011: LOOP
6031: END LOOP;
6032: END IF;
6033:
6034: FND_MSG_PUB.Count_And_Get
6035: ( p_encoded => FND_API.G_FALSE
6036: , p_count => x_msg_count
6037: , p_data => x_msg_data
6038: );
6039: EXCEPTION
6036: , p_count => x_msg_count
6037: , p_data => x_msg_data
6038: );
6039: EXCEPTION
6040: WHEN FND_API.G_EXC_ERROR THEN
6041: IF (c_scr%ISOPEN) THEN
6042: CLOSE c_scr;
6043: END IF;
6044: IF (x_msg_data IS NULL) THEN
6042: CLOSE c_scr;
6043: END IF;
6044: IF (x_msg_data IS NULL) THEN
6045: FND_MSG_PUB.Count_And_Get
6046: ( p_encoded => FND_API.G_FALSE
6047: , p_count => x_msg_count
6048: , p_data => x_msg_data
6049: );
6050: END IF;
6047: , p_count => x_msg_count
6048: , p_data => x_msg_data
6049: );
6050: END IF;
6051: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6052: x_return_status := FND_API.G_RET_STS_ERROR;
6053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6054: IF (c_scr%ISOPEN) THEN
6055: CLOSE c_scr;
6048: , p_data => x_msg_data
6049: );
6050: END IF;
6051: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6052: x_return_status := FND_API.G_RET_STS_ERROR;
6053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6054: IF (c_scr%ISOPEN) THEN
6055: CLOSE c_scr;
6056: END IF;
6049: );
6050: END IF;
6051: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
6052: x_return_status := FND_API.G_RET_STS_ERROR;
6053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6054: IF (c_scr%ISOPEN) THEN
6055: CLOSE c_scr;
6056: END IF;
6057: IF (x_msg_data IS NULL) THEN
6055: CLOSE c_scr;
6056: END IF;
6057: IF (x_msg_data IS NULL) THEN
6058: FND_MSG_PUB.Count_And_Get
6059: ( p_encoded => FND_API.G_FALSE
6060: , p_count => x_msg_count
6061: , p_data => x_msg_data
6062: );
6063: END IF;
6060: , p_count => x_msg_count
6061: , p_data => x_msg_data
6062: );
6063: END IF;
6064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6065: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6066: WHEN NO_DATA_FOUND THEN
6067: IF (c_scr%ISOPEN) THEN
6068: CLOSE c_scr;
6061: , p_data => x_msg_data
6062: );
6063: END IF;
6064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6065: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
6066: WHEN NO_DATA_FOUND THEN
6067: IF (c_scr%ISOPEN) THEN
6068: CLOSE c_scr;
6069: END IF;
6066: WHEN NO_DATA_FOUND THEN
6067: IF (c_scr%ISOPEN) THEN
6068: CLOSE c_scr;
6069: END IF;
6070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6071: IF (x_msg_data IS NOT NULL) THEN
6072: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Delete_Tab ';
6073: ELSE
6074: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Delete_Tab ';
6077: WHEN OTHERS THEN
6078: IF (c_scr%ISOPEN) THEN
6079: CLOSE c_scr;
6080: END IF;
6081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6082: IF (x_msg_data IS NOT NULL) THEN
6083: x_msg_data := x_msg_data||' -> BSC_PMF_UI_WRAPPER.Delete_Tab ';
6084: ELSE
6085: x_msg_data := SQLERRM||' at BSC_PMF_UI_WRAPPER.Delete_Tab ';
6111: FROM BSC_TAB_VIEWS_VL
6112: WHERE tab_id = p_tab_id;
6113:
6114: BEGIN
6115: x_return_status := FND_API.G_RET_STS_SUCCESS;
6116: l_exist_dependency := FND_API.G_FALSE;
6117:
6118: FOR cd_tab_view IN c_tab_views LOOP
6119: l_tab_view_id := cd_tab_view.tab_view_id;
6112: WHERE tab_id = p_tab_id;
6113:
6114: BEGIN
6115: x_return_status := FND_API.G_RET_STS_SUCCESS;
6116: l_exist_dependency := FND_API.G_FALSE;
6117:
6118: FOR cd_tab_view IN c_tab_views LOOP
6119: l_tab_view_id := cd_tab_view.tab_view_id;
6120: l_tab_view_name := cd_tab_view.NAME;
6127: ,x_return_status => x_return_status
6128: ,x_msg_count => l_msg_count
6129: ,x_msg_data => l_msg_data);
6130:
6131: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6132: FND_MSG_PUB.Initialize;
6133: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
6134: FND_MSG_PUB.ADD;
6135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6131: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6132: FND_MSG_PUB.Initialize;
6133: FND_MESSAGE.SET_NAME('BIS',l_msg_data);
6134: FND_MSG_PUB.ADD;
6135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6136: END IF;
6137:
6138: IF (l_exist_dependency = FND_API.G_TRUE) THEN
6139: x_exist_dependency := l_exist_dependency;
6134: FND_MSG_PUB.ADD;
6135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6136: END IF;
6137:
6138: IF (l_exist_dependency = FND_API.G_TRUE) THEN
6139: x_exist_dependency := l_exist_dependency;
6140: l_dep_obj_list := l_dep_obj_list || l_temp_list;
6141: END IF;
6142:
6139: x_exist_dependency := l_exist_dependency;
6140: l_dep_obj_list := l_dep_obj_list || l_temp_list;
6141: END IF;
6142:
6143: EXIT WHEN (x_exist_dependency = FND_API.G_TRUE AND p_list_dependency = FND_API.G_FALSE);
6144:
6145:
6146: END LOOP;
6147:
6148: x_dep_obj_list := l_dep_obj_list;
6149:
6150:
6151: EXCEPTION
6152: WHEN FND_API.G_EXC_ERROR THEN
6153: IF (x_msg_data IS NULL) THEN
6154: FND_MSG_PUB.Count_And_Get
6155: ( p_encoded => FND_API.G_FALSE
6156: ,p_count => x_msg_count
6151: EXCEPTION
6152: WHEN FND_API.G_EXC_ERROR THEN
6153: IF (x_msg_data IS NULL) THEN
6154: FND_MSG_PUB.Count_And_Get
6155: ( p_encoded => FND_API.G_FALSE
6156: ,p_count => x_msg_count
6157: ,p_data => x_msg_data
6158: );
6159: END IF;
6156: ,p_count => x_msg_count
6157: ,p_data => x_msg_data
6158: );
6159: END IF;
6160: x_return_status := FND_API.G_RET_STS_ERROR;
6161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6162: IF (x_msg_data IS NULL) THEN
6163: FND_MSG_PUB.Count_And_Get
6164: ( p_encoded => FND_API.G_FALSE
6157: ,p_data => x_msg_data
6158: );
6159: END IF;
6160: x_return_status := FND_API.G_RET_STS_ERROR;
6161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6162: IF (x_msg_data IS NULL) THEN
6163: FND_MSG_PUB.Count_And_Get
6164: ( p_encoded => FND_API.G_FALSE
6165: ,p_count => x_msg_count
6160: x_return_status := FND_API.G_RET_STS_ERROR;
6161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6162: IF (x_msg_data IS NULL) THEN
6163: FND_MSG_PUB.Count_And_Get
6164: ( p_encoded => FND_API.G_FALSE
6165: ,p_count => x_msg_count
6166: ,p_data => x_msg_data
6167: );
6168: END IF;
6165: ,p_count => x_msg_count
6166: ,p_data => x_msg_data
6167: );
6168: END IF;
6169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6170: WHEN OTHERS THEN
6171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6172: IF (x_msg_data IS NOT NULL) THEN
6173: x_msg_data := x_msg_data||' -> Check_Tabviews';
6167: );
6168: END IF;
6169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6170: WHEN OTHERS THEN
6171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6172: IF (x_msg_data IS NOT NULL) THEN
6173: x_msg_data := x_msg_data||' -> Check_Tabviews';
6174: ELSE
6175: x_msg_data := SQLERRM||' at Check_Tabviews';
6190: l_param_search_string FND_FORM_FUNCTIONS_VL.PARAMETERS%TYPE;
6191: l_portlet_type VARCHAR2(20);
6192: l_temp_list VARCHAR2(1000);
6193: BEGIN
6194: x_return_status := FND_API.G_RET_STS_SUCCESS;
6195: x_exist_dependency := FND_API.G_FALSE;
6196: l_portlet_type := 'CUSTOM_VIEW_PORTLET';
6197: l_param_search_string := '%pRequestType=C&%pTabId=' || p_tab_id || '&pViewId=' || p_tab_view_id;
6198:
6191: l_portlet_type VARCHAR2(20);
6192: l_temp_list VARCHAR2(1000);
6193: BEGIN
6194: x_return_status := FND_API.G_RET_STS_SUCCESS;
6195: x_exist_dependency := FND_API.G_FALSE;
6196: l_portlet_type := 'CUSTOM_VIEW_PORTLET';
6197: l_param_search_string := '%pRequestType=C&%pTabId=' || p_tab_id || '&pViewId=' || p_tab_view_id;
6198:
6199: BIS_UTIL.Check_Object_Dependency(p_param_search_string => l_param_search_string
6203: ,x_dep_obj_list => x_dep_obj_list
6204: ,x_return_status => x_return_status
6205: ,x_msg_count => x_msg_count
6206: ,x_msg_data => x_msg_data);
6207: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6208: FND_MSG_PUB.Initialize;
6209: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
6210: FND_MSG_PUB.ADD;
6211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6207: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
6208: FND_MSG_PUB.Initialize;
6209: FND_MESSAGE.SET_NAME('BIS',x_msg_data);
6210: FND_MSG_PUB.ADD;
6211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6212: END IF;
6213:
6214: EXCEPTION
6215: WHEN FND_API.G_EXC_ERROR THEN
6211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6212: END IF;
6213:
6214: EXCEPTION
6215: WHEN FND_API.G_EXC_ERROR THEN
6216: IF (x_msg_data IS NULL) THEN
6217: FND_MSG_PUB.Count_And_Get
6218: ( p_encoded => FND_API.G_FALSE
6219: ,p_count => x_msg_count
6214: EXCEPTION
6215: WHEN FND_API.G_EXC_ERROR THEN
6216: IF (x_msg_data IS NULL) THEN
6217: FND_MSG_PUB.Count_And_Get
6218: ( p_encoded => FND_API.G_FALSE
6219: ,p_count => x_msg_count
6220: ,p_data => x_msg_data
6221: );
6222: END IF;
6219: ,p_count => x_msg_count
6220: ,p_data => x_msg_data
6221: );
6222: END IF;
6223: x_return_status := FND_API.G_RET_STS_ERROR;
6224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6225: IF (x_msg_data IS NULL) THEN
6226: FND_MSG_PUB.Count_And_Get
6227: ( p_encoded => FND_API.G_FALSE
6220: ,p_data => x_msg_data
6221: );
6222: END IF;
6223: x_return_status := FND_API.G_RET_STS_ERROR;
6224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6225: IF (x_msg_data IS NULL) THEN
6226: FND_MSG_PUB.Count_And_Get
6227: ( p_encoded => FND_API.G_FALSE
6228: ,p_count => x_msg_count
6223: x_return_status := FND_API.G_RET_STS_ERROR;
6224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6225: IF (x_msg_data IS NULL) THEN
6226: FND_MSG_PUB.Count_And_Get
6227: ( p_encoded => FND_API.G_FALSE
6228: ,p_count => x_msg_count
6229: ,p_data => x_msg_data
6230: );
6231: END IF;
6228: ,p_count => x_msg_count
6229: ,p_data => x_msg_data
6230: );
6231: END IF;
6232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6233: WHEN OTHERS THEN
6234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6235: IF (x_msg_data IS NOT NULL) THEN
6236: x_msg_data := x_msg_data||' -> Check_Tabview_Dependency';
6230: );
6231: END IF;
6232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6233: WHEN OTHERS THEN
6234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6235: IF (x_msg_data IS NOT NULL) THEN
6236: x_msg_data := x_msg_data||' -> Check_Tabview_Dependency';
6237: ELSE
6238: x_msg_data := SQLERRM||' at Check_Tabview_Dependency';
6259: l_next_image_id BSC_SYS_IMAGES.image_id%TYPE;
6260: BEGIN
6261: SAVEPOINT AddOrUpdateTabLogo;
6262: FND_MSG_PUB.INITIALIZE;
6263: x_return_status := FND_API.G_RET_STS_SUCCESS;
6264:
6265:
6266: SELECT COUNT(0)
6267: INTO l_count
6304: WHERE IMAGE_ID = p_image_id;
6305: EXCEPTION
6306: WHEN OTHERS THEN
6307: ROLLBACK TO AddOrUpdateTabLogo;
6308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6309: x_msg_data := 'Update to BSC_SYS_IMAGES failed' || SQLERRM;
6310: RETURN;
6311: END;
6312:
6347:
6348: EXCEPTION
6349: WHEN OTHERS THEN
6350: ROLLBACK TO AddOrUpdateTabLogo;
6351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6352: x_msg_data := 'Insertion to BSC_SYS_IMAGES_PKG failed' || SQLERRM;
6353: RETURN;
6354: END;
6355:
6384:
6385: EXCEPTION
6386: WHEN OTHERS THEN
6387: ROLLBACK TO AddOrUpdateTabLogo;
6388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6389: x_msg_data := SQLERRM;
6390: END Add_Or_Update_Tab_Logo;
6391:
6392:
6410: BEGIN
6411:
6412: SAVEPOINT CreateScorecardlogo;
6413: FND_MSG_PUB.INITIALIZE;
6414: x_return_status := FND_API.G_RET_STS_SUCCESS;
6415:
6416: SELECT BSC_SYS_IMAGE_ID_S.NEXTVAL
6417: INTO l_next_image_id
6418: FROM dual;
6434: );
6435:
6436: EXCEPTION
6437: WHEN OTHERS THEN
6438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6439: x_msg_data := 'Insertion to BSC_SYS_IMAGES_PKG failed' || SQLERRM;
6440: RAISE;
6441: END;
6442:
6455: );
6456: EXCEPTION
6457: WHEN others THEN
6458: ROLLBACK TO CreateScorecardlogo;
6459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6460: x_msg_data := SQLERRM;
6461: RAISE;
6462: END Create_Scorecard_logo;
6463:
6482:
6483: BEGIN
6484: SAVEPOINT DeleteTabLogo;
6485: FND_MSG_PUB.INITIALIZE;
6486: x_return_status := FND_API.G_RET_STS_SUCCESS;
6487:
6488: IF(p_tab_id IS NOT NULL) THEN
6489: FOR cd IN c_tab_logo LOOP
6490: l_image_id := cd.image_id;
6498:
6499: EXCEPTION
6500: WHEN others THEN
6501: ROLLBACK TO DeleteTabLogo;
6502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6503: x_msg_data := SQLERRM;
6504: RAISE;
6505: END Delete_Tab_Logo;
6506: