DBA Data[Home] [Help]

APPS.BSC_SCORECARD_PVT dependencies on FND_API

Line 40: p_commit IN varchar2 := FND_API.G_FALSE

36: G_PKG_NAME CONSTANT varchar2(30) := 'BSC_SCORECARD_PVT';
37: g_db_object varchar2(30) := null;
38:
39: procedure Create_Tab(
40: p_commit IN varchar2 := FND_API.G_FALSE
41: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
42: ,x_return_status OUT NOCOPY varchar2
43: ,x_msg_count OUT NOCOPY number
44: ,x_msg_data OUT NOCOPY varchar2

Line 58: x_return_status := FND_API.G_RET_STS_SUCCESS;

54: WHERE installed_flag IN ('I','B');
55:
56: begin
57: FND_MSG_PUB.Initialize;
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
59: SAVEPOINT CreateBSCTabPVT;
60: -- Check Tab Id does not exist.
61: IF p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id IS NOT NULL THEN
62:

Line 71: RAISE FND_API.G_EXC_ERROR;

67: IF l_Count <> 0 THEN
68: FND_MESSAGE.SET_NAME('BSC','BSC_TAB_ID_EXISTS');
69: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);
70: FND_MSG_PUB.ADD;
71: RAISE FND_API.G_EXC_ERROR;
72: END IF;
73:
74: -- Check for duplicate short_name
75: IF p_Bsc_Tab_Entity_Rec.Bsc_Short_Name IS NOT NULL THEN

Line 83: RAISE FND_API.G_EXC_ERROR;

79:
80: IF l_Count <> 0 THEN
81: FND_MESSAGE.SET_NAME('BSC','BSC_TAB_SHORT_NAME_NOT_UNIQUE');
82: FND_MSG_PUB.ADD;
83: RAISE FND_API.G_EXC_ERROR;
84: END IF;
85: END IF;
86:
87: ELSE

Line 91: RAISE FND_API.G_EXC_ERROR;

87: ELSE
88: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
89: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);
90: FND_MSG_PUB.ADD;
91: RAISE FND_API.G_EXC_ERROR;
92: END IF;
93:
94: g_db_object := 'BSC_TABS_B';
95:

Line 194: IF (p_commit = FND_API.G_TRUE) THEN

190:
191: END LOOP;
192: CLOSE c_language;
193:
194: IF (p_commit = FND_API.G_TRUE) THEN
195: COMMIT;
196: END IF;
197:
198: EXCEPTION

Line 199: WHEN FND_API.G_EXC_ERROR THEN

195: COMMIT;
196: END IF;
197:
198: EXCEPTION
199: WHEN FND_API.G_EXC_ERROR THEN
200: ROLLBACK TO CreateBSCTabPVT;
201: FND_MSG_PUB.Count_And_Get
202: ( p_encoded => FND_API.G_FALSE
203: , p_count => x_msg_count

Line 202: ( p_encoded => FND_API.G_FALSE

198: EXCEPTION
199: WHEN FND_API.G_EXC_ERROR THEN
200: ROLLBACK TO CreateBSCTabPVT;
201: FND_MSG_PUB.Count_And_Get
202: ( p_encoded => FND_API.G_FALSE
203: , p_count => x_msg_count
204: , p_data => x_msg_data
205: );
206: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

Line 206: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

202: ( p_encoded => FND_API.G_FALSE
203: , p_count => x_msg_count
204: , p_data => x_msg_data
205: );
206: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
207: x_return_status := FND_API.G_RET_STS_ERROR;
208: RAISE;
209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
210: ROLLBACK TO CreateBSCTabPVT;

Line 207: x_return_status := FND_API.G_RET_STS_ERROR;

203: , p_count => x_msg_count
204: , p_data => x_msg_data
205: );
206: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
207: x_return_status := FND_API.G_RET_STS_ERROR;
208: RAISE;
209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
210: ROLLBACK TO CreateBSCTabPVT;
211: FND_MSG_PUB.Count_And_Get

Line 209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

205: );
206: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
207: x_return_status := FND_API.G_RET_STS_ERROR;
208: RAISE;
209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
210: ROLLBACK TO CreateBSCTabPVT;
211: FND_MSG_PUB.Count_And_Get
212: ( p_encoded => FND_API.G_FALSE
213: , p_count => x_msg_count

Line 212: ( p_encoded => FND_API.G_FALSE

208: RAISE;
209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
210: ROLLBACK TO CreateBSCTabPVT;
211: FND_MSG_PUB.Count_And_Get
212: ( p_encoded => FND_API.G_FALSE
213: , p_count => x_msg_count
214: , p_data => x_msg_data
215: );
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

212: ( p_encoded => FND_API.G_FALSE
213: , p_count => x_msg_count
214: , p_data => x_msg_data
215: );
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
218: RAISE;
219: WHEN NO_DATA_FOUND THEN
220: ROLLBACK TO CreateBSCTabPVT;

Line 217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

213: , p_count => x_msg_count
214: , p_data => x_msg_data
215: );
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
218: RAISE;
219: WHEN NO_DATA_FOUND THEN
220: ROLLBACK TO CreateBSCTabPVT;
221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

217: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
218: RAISE;
219: WHEN NO_DATA_FOUND THEN
220: ROLLBACK TO CreateBSCTabPVT;
221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222: IF (x_msg_data IS NOT NULL) THEN
223: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Create_Tab ';
224: ELSE
225: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Create_Tab ';

Line 231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

227: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
228: RAISE;
229: WHEN OTHERS THEN
230: ROLLBACK TO CreateBSCTabPVT;
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232: IF (x_msg_data IS NOT NULL) THEN
233: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Create_Tab ';
234: ELSE
235: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Create_Tab ';

Line 245: p_commit IN varchar2 := FND_API.G_FALSE

241: /************************************************************************************
242: ************************************************************************************/
243:
244: procedure Retrieve_Tab(
245: p_commit IN varchar2 := FND_API.G_FALSE
246: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
247: ,x_Bsc_Tab_Entity_Rec IN OUT NOCOPY BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
248: ,x_return_status OUT NOCOPY VARCHAR2
249: ,x_msg_count OUT NOCOPY NUMBER

Line 310: WHEN FND_API.G_EXC_ERROR THEN

306: AND A.TAB_ID = p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id
307: AND B.LANGUAGE = USERENV('LANG')
308: AND D.LANGUAGE = USERENV('LANG');
309: EXCEPTION
310: WHEN FND_API.G_EXC_ERROR THEN
311: FND_MSG_PUB.Count_And_Get
312: ( p_encoded => FND_API.G_FALSE
313: , p_count => x_msg_count
314: , p_data => x_msg_data

Line 312: ( p_encoded => FND_API.G_FALSE

308: AND D.LANGUAGE = USERENV('LANG');
309: EXCEPTION
310: WHEN FND_API.G_EXC_ERROR THEN
311: FND_MSG_PUB.Count_And_Get
312: ( p_encoded => FND_API.G_FALSE
313: , p_count => x_msg_count
314: , p_data => x_msg_data
315: );
316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

Line 316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

312: ( p_encoded => FND_API.G_FALSE
313: , p_count => x_msg_count
314: , p_data => x_msg_data
315: );
316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
317: x_return_status := FND_API.G_RET_STS_ERROR;
318: RAISE;
319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
320: FND_MSG_PUB.Count_And_Get

Line 317: x_return_status := FND_API.G_RET_STS_ERROR;

313: , p_count => x_msg_count
314: , p_data => x_msg_data
315: );
316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
317: x_return_status := FND_API.G_RET_STS_ERROR;
318: RAISE;
319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
320: FND_MSG_PUB.Count_And_Get
321: ( p_encoded => FND_API.G_FALSE

Line 319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

315: );
316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
317: x_return_status := FND_API.G_RET_STS_ERROR;
318: RAISE;
319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
320: FND_MSG_PUB.Count_And_Get
321: ( p_encoded => FND_API.G_FALSE
322: , p_count => x_msg_count
323: , p_data => x_msg_data

Line 321: ( p_encoded => FND_API.G_FALSE

317: x_return_status := FND_API.G_RET_STS_ERROR;
318: RAISE;
319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
320: FND_MSG_PUB.Count_And_Get
321: ( p_encoded => FND_API.G_FALSE
322: , p_count => x_msg_count
323: , p_data => x_msg_data
324: );
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

321: ( p_encoded => FND_API.G_FALSE
322: , p_count => x_msg_count
323: , p_data => x_msg_data
324: );
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
326: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
327: RAISE;
328: WHEN NO_DATA_FOUND THEN
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 326: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

322: , p_count => x_msg_count
323: , p_data => x_msg_data
324: );
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
326: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
327: RAISE;
328: WHEN NO_DATA_FOUND THEN
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
330: IF (x_msg_data IS NOT NULL) THEN

Line 329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
326: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
327: RAISE;
328: WHEN NO_DATA_FOUND THEN
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
330: IF (x_msg_data IS NOT NULL) THEN
331: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Retrieve_Tab ';
332: ELSE
333: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Retrieve_Tab ';

Line 338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

334: END IF;
335: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
336: RAISE;
337: WHEN OTHERS THEN
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: IF (x_msg_data IS NOT NULL) THEN
340: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Retrieve_Tab ';
341: ELSE
342: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Retrieve_Tab ';

Line 353: p_commit IN varchar2 := FND_API.G_FALSE

349: /************************************************************************************
350: ************************************************************************************/
351:
352: procedure Update_Tab(
353: p_commit IN varchar2 := FND_API.G_FALSE
354: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
355: ,x_return_status OUT NOCOPY varchar2
356: ,x_msg_count OUT NOCOPY number
357: ,x_msg_data OUT NOCOPY varchar2

Line 368: x_return_status := FND_API.G_RET_STS_SUCCESS;

364: l_move_flag number := 0; --Flag to move Tabs.
365:
366: begin
367: FND_MSG_PUB.Initialize;
368: x_return_status := FND_API.G_RET_STS_SUCCESS;
369: SAVEPOINT UpdateBSCTabPVT;
370: -- Check that valid Tab id was entered.
371: if p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id is not null then
372: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_TABS_B'

Line 379: RAISE FND_API.G_EXC_ERROR;

375: if l_count = 0 then
376: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
377: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);
378: FND_MSG_PUB.ADD;
379: RAISE FND_API.G_EXC_ERROR;
380: end if;
381: else
382: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
383: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);

Line 385: RAISE FND_API.G_EXC_ERROR;

381: else
382: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
383: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);
384: FND_MSG_PUB.ADD;
385: RAISE FND_API.G_EXC_ERROR;
386: end if;
387:
388: -- Not all values will be passed. We need to make sure values not passed are not
389: -- changed by procedure, therefore we get what is there before we do any updates.

Line 526: IF (p_commit = FND_API.G_TRUE) THEN

522: ,x_msg_count
523: ,x_msg_data);
524: end if;
525:
526: IF (p_commit = FND_API.G_TRUE) THEN
527: COMMIT;
528: END IF;
529:
530: EXCEPTION

Line 531: WHEN FND_API.G_EXC_ERROR THEN

527: COMMIT;
528: END IF;
529:
530: EXCEPTION
531: WHEN FND_API.G_EXC_ERROR THEN
532: ROLLBACK TO UpdateBSCTabPVT;
533: FND_MSG_PUB.Count_And_Get
534: ( p_encoded => FND_API.G_FALSE
535: , p_count => x_msg_count

Line 534: ( p_encoded => FND_API.G_FALSE

530: EXCEPTION
531: WHEN FND_API.G_EXC_ERROR THEN
532: ROLLBACK TO UpdateBSCTabPVT;
533: FND_MSG_PUB.Count_And_Get
534: ( p_encoded => FND_API.G_FALSE
535: , p_count => x_msg_count
536: , p_data => x_msg_data
537: );
538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

Line 538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

534: ( p_encoded => FND_API.G_FALSE
535: , p_count => x_msg_count
536: , p_data => x_msg_data
537: );
538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
539: x_return_status := FND_API.G_RET_STS_ERROR;
540: RAISE;
541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
542: ROLLBACK TO UpdateBSCTabPVT;

Line 539: x_return_status := FND_API.G_RET_STS_ERROR;

535: , p_count => x_msg_count
536: , p_data => x_msg_data
537: );
538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
539: x_return_status := FND_API.G_RET_STS_ERROR;
540: RAISE;
541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
542: ROLLBACK TO UpdateBSCTabPVT;
543: FND_MSG_PUB.Count_And_Get

Line 541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

537: );
538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
539: x_return_status := FND_API.G_RET_STS_ERROR;
540: RAISE;
541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
542: ROLLBACK TO UpdateBSCTabPVT;
543: FND_MSG_PUB.Count_And_Get
544: ( p_encoded => FND_API.G_FALSE
545: , p_count => x_msg_count

Line 544: ( p_encoded => FND_API.G_FALSE

540: RAISE;
541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
542: ROLLBACK TO UpdateBSCTabPVT;
543: FND_MSG_PUB.Count_And_Get
544: ( p_encoded => FND_API.G_FALSE
545: , p_count => x_msg_count
546: , p_data => x_msg_data
547: );
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

544: ( p_encoded => FND_API.G_FALSE
545: , p_count => x_msg_count
546: , p_data => x_msg_data
547: );
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
550: RAISE;
551: WHEN NO_DATA_FOUND THEN
552: ROLLBACK TO UpdateBSCTabPVT;

Line 549: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

545: , p_count => x_msg_count
546: , p_data => x_msg_data
547: );
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
550: RAISE;
551: WHEN NO_DATA_FOUND THEN
552: ROLLBACK TO UpdateBSCTabPVT;
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

549: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
550: RAISE;
551: WHEN NO_DATA_FOUND THEN
552: ROLLBACK TO UpdateBSCTabPVT;
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: IF (x_msg_data IS NOT NULL) THEN
555: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Update_Tab ';
556: ELSE
557: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Update_Tab ';

Line 563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

559: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
560: RAISE;
561: WHEN OTHERS THEN
562: ROLLBACK TO UpdateBSCTabPVT;
563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: IF (x_msg_data IS NOT NULL) THEN
565: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Update_Tab ';
566: ELSE
567: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Update_Tab ';

Line 578: p_commit IN VARCHAR2 := FND_API.G_FALSE

574: /************************************************************************************
575: ************************************************************************************/
576:
577: procedure Delete_Tab(
578: p_commit IN VARCHAR2 := FND_API.G_FALSE
579: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
580: ,x_return_status OUT NOCOPY VARCHAR2
581: ,x_msg_count OUT NOCOPY NUMBER
582: ,x_msg_data OUT NOCOPY VARCHAR2

Line 614: x_return_status := FND_API.G_RET_STS_SUCCESS;

610:
611:
612: begin
613: FND_MSG_PUB.Initialize;
614: x_return_status := FND_API.G_RET_STS_SUCCESS;
615: SAVEPOINT DeleteBSCTabPVT;
616: -- Check that valid Tab id was entered.
617: if p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id is not null then
618:

Line 628: RAISE FND_API.G_EXC_ERROR;

624: if l_count = 0 then
625: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
626: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);
627: FND_MSG_PUB.ADD;
628: RAISE FND_API.G_EXC_ERROR;
629: end if;
630: else
631: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
632: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);

Line 634: RAISE FND_API.G_EXC_ERROR;

630: else
631: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
632: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);
633: FND_MSG_PUB.ADD;
634: RAISE FND_API.G_EXC_ERROR;
635: end if;
636:
637: -- Before we delete the tab we need to reset the tab id parent and tab_index
638: -- for the children of current tab.

Line 676: p_commit => FND_API.G_FALSE

672: -- The rules for unassign will apply while deleting tab also
673: FOR CD IN c_indic_in_tab LOOP
674:
675: BSC_PMF_UI_WRAPPER.Unassign_KPI(
676: p_commit => FND_API.G_FALSE
677: ,p_kpi_id => CD.INDICATOR
678: ,p_tab_id => p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id
679: ,x_return_status => x_return_status
680: ,x_msg_count => x_msg_count

Line 683: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN

679: ,x_return_status => x_return_status
680: ,x_msg_count => x_msg_count
681: ,x_msg_data => x_msg_data
682: );
683: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
686:
687: END LOOP;

Line 684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

680: ,x_msg_count => x_msg_count
681: ,x_msg_data => x_msg_data
682: );
683: IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
686:
687: END LOOP;
688:

Line 759: IF (p_commit = FND_API.G_TRUE) THEN

755:
756: -- Role-based scorecard security
757: Remove_Scorecard_Grants(p_tab_id => p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);
758:
759: IF (p_commit = FND_API.G_TRUE) THEN
760: COMMIT;
761: END IF;
762:
763: EXCEPTION

Line 764: WHEN FND_API.G_EXC_ERROR THEN

760: COMMIT;
761: END IF;
762:
763: EXCEPTION
764: WHEN FND_API.G_EXC_ERROR THEN
765: ROLLBACK TO DeleteBSCTabPVT;
766: IF(c_indic_in_tab%ISOPEN ) THEN
767: CLOSE c_indic_in_tab;
768: END IF;

Line 770: ( p_encoded => FND_API.G_FALSE

766: IF(c_indic_in_tab%ISOPEN ) THEN
767: CLOSE c_indic_in_tab;
768: END IF;
769: FND_MSG_PUB.Count_And_Get
770: ( p_encoded => FND_API.G_FALSE
771: , p_count => x_msg_count
772: , p_data => x_msg_data
773: );
774: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

Line 774: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

770: ( p_encoded => FND_API.G_FALSE
771: , p_count => x_msg_count
772: , p_data => x_msg_data
773: );
774: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
775: x_return_status := FND_API.G_RET_STS_ERROR;
776: RAISE;
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: ROLLBACK TO DeleteBSCTabPVT;

Line 775: x_return_status := FND_API.G_RET_STS_ERROR;

771: , p_count => x_msg_count
772: , p_data => x_msg_data
773: );
774: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
775: x_return_status := FND_API.G_RET_STS_ERROR;
776: RAISE;
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: ROLLBACK TO DeleteBSCTabPVT;
779: IF(c_indic_in_tab%ISOPEN ) THEN

Line 777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

773: );
774: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
775: x_return_status := FND_API.G_RET_STS_ERROR;
776: RAISE;
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: ROLLBACK TO DeleteBSCTabPVT;
779: IF(c_indic_in_tab%ISOPEN ) THEN
780: CLOSE c_indic_in_tab;
781: END IF;

Line 784: ( p_encoded => FND_API.G_FALSE

780: CLOSE c_indic_in_tab;
781: END IF;
782:
783: FND_MSG_PUB.Count_And_Get
784: ( p_encoded => FND_API.G_FALSE
785: , p_count => x_msg_count
786: , p_data => x_msg_data
787: );
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

784: ( p_encoded => FND_API.G_FALSE
785: , p_count => x_msg_count
786: , p_data => x_msg_data
787: );
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
790: RAISE;
791: WHEN NO_DATA_FOUND THEN
792: ROLLBACK TO DeleteBSCTabPVT;

Line 789: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

785: , p_count => x_msg_count
786: , p_data => x_msg_data
787: );
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
790: RAISE;
791: WHEN NO_DATA_FOUND THEN
792: ROLLBACK TO DeleteBSCTabPVT;
793: IF(c_indic_in_tab%ISOPEN ) THEN

Line 797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

793: IF(c_indic_in_tab%ISOPEN ) THEN
794: CLOSE c_indic_in_tab;
795: END IF;
796:
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_SCORECARD_PVT.Delete_Tab ';
800: ELSE
801: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Delete_Tab ';

Line 811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

807: IF(c_indic_in_tab%ISOPEN ) THEN
808: CLOSE c_indic_in_tab;
809: END IF;
810:
811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
812: IF (x_msg_data IS NOT NULL) THEN
813: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Delete_Tab ';
814: ELSE
815: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Delete_Tab ';

Line 826: p_commit IN varchar2 := FND_API.G_FALSE

822: /************************************************************************************
823: ************************************************************************************/
824:
825: procedure Create_Tab_Access(
826: p_commit IN varchar2 := FND_API.G_FALSE
827: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
828: ,x_return_status OUT NOCOPY varchar2
829: ,x_msg_count OUT NOCOPY number
830: ,x_msg_data OUT NOCOPY varchar2

Line 837: x_return_status := FND_API.G_RET_STS_SUCCESS;

833: l_count number;
834:
835: begin
836: FND_MSG_PUB.Initialize;
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838: SAVEPOINT CreateBSCTabAccessPVT;
839: -- Check that valid Tab id was entered.
840: if p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id is not null then
841: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Value( 'BSC_TABS_B'

Line 848: RAISE FND_API.G_EXC_ERROR;

844: if l_count = 0 then
845: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
846: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);
847: FND_MSG_PUB.ADD;
848: RAISE FND_API.G_EXC_ERROR;
849: end if;
850: else
851: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
852: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);

Line 854: RAISE FND_API.G_EXC_ERROR;

850: else
851: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
852: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id);
853: FND_MSG_PUB.ADD;
854: RAISE FND_API.G_EXC_ERROR;
855: end if;
856:
857: g_db_object := 'BSC_USER_TAB_ACCESS';
858:

Line 878: IF (p_commit = FND_API.G_TRUE) THEN

874: ,p_Bsc_Tab_Entity_Rec.Bsc_Last_Update_Login
875: ,sysdate
876: ,p_Bsc_Tab_Entity_Rec.Bsc_Resp_End_Date);
877:
878: IF (p_commit = FND_API.G_TRUE) THEN
879: COMMIT;
880: END IF;
881:
882: EXCEPTION

Line 883: WHEN FND_API.G_EXC_ERROR THEN

879: COMMIT;
880: END IF;
881:
882: EXCEPTION
883: WHEN FND_API.G_EXC_ERROR THEN
884: ROLLBACK TO CreateBSCTabAccessPVT;
885: FND_MSG_PUB.Count_And_Get
886: ( p_encoded => FND_API.G_FALSE
887: , p_count => x_msg_count

Line 886: ( p_encoded => FND_API.G_FALSE

882: EXCEPTION
883: WHEN FND_API.G_EXC_ERROR THEN
884: ROLLBACK TO CreateBSCTabAccessPVT;
885: FND_MSG_PUB.Count_And_Get
886: ( p_encoded => FND_API.G_FALSE
887: , p_count => x_msg_count
888: , p_data => x_msg_data
889: );
890: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

Line 890: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

886: ( p_encoded => FND_API.G_FALSE
887: , p_count => x_msg_count
888: , p_data => x_msg_data
889: );
890: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
891: x_return_status := FND_API.G_RET_STS_ERROR;
892: RAISE;
893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
894: ROLLBACK TO CreateBSCTabAccessPVT;

Line 891: x_return_status := FND_API.G_RET_STS_ERROR;

887: , p_count => x_msg_count
888: , p_data => x_msg_data
889: );
890: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
891: x_return_status := FND_API.G_RET_STS_ERROR;
892: RAISE;
893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
894: ROLLBACK TO CreateBSCTabAccessPVT;
895: FND_MSG_PUB.Count_And_Get

Line 893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

889: );
890: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
891: x_return_status := FND_API.G_RET_STS_ERROR;
892: RAISE;
893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
894: ROLLBACK TO CreateBSCTabAccessPVT;
895: FND_MSG_PUB.Count_And_Get
896: ( p_encoded => FND_API.G_FALSE
897: , p_count => x_msg_count

Line 896: ( p_encoded => FND_API.G_FALSE

892: RAISE;
893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
894: ROLLBACK TO CreateBSCTabAccessPVT;
895: FND_MSG_PUB.Count_And_Get
896: ( p_encoded => FND_API.G_FALSE
897: , p_count => x_msg_count
898: , p_data => x_msg_data
899: );
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

896: ( p_encoded => FND_API.G_FALSE
897: , p_count => x_msg_count
898: , p_data => x_msg_data
899: );
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
902: RAISE;
903: WHEN NO_DATA_FOUND THEN
904: ROLLBACK TO CreateBSCTabAccessPVT;

Line 901: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

897: , p_count => x_msg_count
898: , p_data => x_msg_data
899: );
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
902: RAISE;
903: WHEN NO_DATA_FOUND THEN
904: ROLLBACK TO CreateBSCTabAccessPVT;
905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

901: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
902: RAISE;
903: WHEN NO_DATA_FOUND THEN
904: ROLLBACK TO CreateBSCTabAccessPVT;
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_SCORECARD_PVT.Create_Tab_Access ';
908: ELSE
909: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Create_Tab_Access ';

Line 915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

911: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
912: RAISE;
913: WHEN OTHERS THEN
914: ROLLBACK TO CreateBSCTabAccessPVT;
915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
916: IF (x_msg_data IS NOT NULL) THEN
917: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Create_Tab_Access ';
918: ELSE
919: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Create_Tab_Access ';

Line 932: p_commit IN varchar2 := FND_API.G_FALSE

928:
929: -- Role-based scorecard security.
930: -- Initally, grant admin access to scorecard creater, and view access to all other designers.
931: procedure Create_Tab_Grants(
932: p_commit IN varchar2 := FND_API.G_FALSE
933: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
934: ,x_return_status OUT NOCOPY varchar2
935: ,x_msg_count OUT NOCOPY number
936: ,x_msg_data OUT NOCOPY varchar2

Line 943: x_return_status := FND_API.G_RET_STS_SUCCESS;

939: l_count number;
940:
941: begin
942: FND_MSG_PUB.Initialize;
943: x_return_status := FND_API.G_RET_STS_SUCCESS;
944: SAVEPOINT CreateBSCTabGrantsPVT;
945:
946: Insert_Scorecard_Grants(
947: p_tab_id => p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id

Line 950: IF (p_commit = FND_API.G_TRUE) THEN

946: Insert_Scorecard_Grants(
947: p_tab_id => p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id
948: ,p_user_name => FND_GLOBAL.USER_NAME);
949:
950: IF (p_commit = FND_API.G_TRUE) THEN
951: COMMIT;
952: END IF;
953:
954: EXCEPTION

Line 955: WHEN FND_API.G_EXC_ERROR THEN

951: COMMIT;
952: END IF;
953:
954: EXCEPTION
955: WHEN FND_API.G_EXC_ERROR THEN
956: ROLLBACK TO CreateBSCTabGrantsPVT;
957: FND_MSG_PUB.Count_And_Get
958: ( p_encoded => FND_API.G_FALSE
959: , p_count => x_msg_count

Line 958: ( p_encoded => FND_API.G_FALSE

954: EXCEPTION
955: WHEN FND_API.G_EXC_ERROR THEN
956: ROLLBACK TO CreateBSCTabGrantsPVT;
957: FND_MSG_PUB.Count_And_Get
958: ( p_encoded => FND_API.G_FALSE
959: , p_count => x_msg_count
960: , p_data => x_msg_data
961: );
962: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

Line 962: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

958: ( p_encoded => FND_API.G_FALSE
959: , p_count => x_msg_count
960: , p_data => x_msg_data
961: );
962: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
963: x_return_status := FND_API.G_RET_STS_ERROR;
964: RAISE;
965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
966: ROLLBACK TO CreateBSCTabGrantsPVT;

Line 963: x_return_status := FND_API.G_RET_STS_ERROR;

959: , p_count => x_msg_count
960: , p_data => x_msg_data
961: );
962: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
963: x_return_status := FND_API.G_RET_STS_ERROR;
964: RAISE;
965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
966: ROLLBACK TO CreateBSCTabGrantsPVT;
967: FND_MSG_PUB.Count_And_Get

Line 965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

961: );
962: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
963: x_return_status := FND_API.G_RET_STS_ERROR;
964: RAISE;
965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
966: ROLLBACK TO CreateBSCTabGrantsPVT;
967: FND_MSG_PUB.Count_And_Get
968: ( p_encoded => FND_API.G_FALSE
969: , p_count => x_msg_count

Line 968: ( p_encoded => FND_API.G_FALSE

964: RAISE;
965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
966: ROLLBACK TO CreateBSCTabGrantsPVT;
967: FND_MSG_PUB.Count_And_Get
968: ( p_encoded => FND_API.G_FALSE
969: , p_count => x_msg_count
970: , p_data => x_msg_data
971: );
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

968: ( p_encoded => FND_API.G_FALSE
969: , p_count => x_msg_count
970: , p_data => x_msg_data
971: );
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
974: RAISE;
975: WHEN NO_DATA_FOUND THEN
976: ROLLBACK TO CreateBSCTabGrantsPVT;

Line 973: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

969: , p_count => x_msg_count
970: , p_data => x_msg_data
971: );
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
974: RAISE;
975: WHEN NO_DATA_FOUND THEN
976: ROLLBACK TO CreateBSCTabGrantsPVT;
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

973: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
974: RAISE;
975: WHEN NO_DATA_FOUND THEN
976: ROLLBACK TO CreateBSCTabGrantsPVT;
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: IF (x_msg_data IS NOT NULL) THEN
979: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Create_Tab_Grants ';
980: ELSE
981: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Create_Tab_Grants ';

Line 987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

983: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
984: RAISE;
985: WHEN OTHERS THEN
986: ROLLBACK TO CreateBSCTabGrantsPVT;
987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
988: IF (x_msg_data IS NOT NULL) THEN
989: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Create_Tab_Grants ';
990: ELSE
991: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Create_Tab_Grants ';

Line 1002: p_commit IN varchar2 := FND_API.G_FALSE

998: /************************************************************************************
999: ************************************************************************************/
1000:
1001: procedure Move_Tab(
1002: p_commit IN varchar2 := FND_API.G_FALSE
1003: ,p_tab_id IN number
1004: ,p_tab_index IN number
1005: ,x_return_status OUT NOCOPY varchar2
1006: ,x_msg_count OUT NOCOPY number

Line 1021: x_return_status := FND_API.G_RET_STS_SUCCESS;

1017: l_sql varchar2(2000);
1018:
1019: begin
1020: FND_MSG_PUB.Initialize;
1021: x_return_status := FND_API.G_RET_STS_SUCCESS;
1022: SAVEPOINT MoveBSCTabPVT;
1023: l_sql := 'select distinct tab_id, tab_index ' ||
1024: ' from BSC_TABS_B ' ||
1025: ' where tab_index >= :1' ||

Line 1045: IF (p_commit = FND_API.G_TRUE) THEN

1041: set tab_index = l_Bsc_Tab_Entity_Tbl(i).Bsc_Tab_Index + 1
1042: where tab_id = l_Bsc_Tab_Entity_Tbl(i).Bsc_Tab_Id;
1043: end loop;
1044:
1045: IF (p_commit = FND_API.G_TRUE) THEN
1046: COMMIT;
1047: END IF;
1048:
1049: EXCEPTION

Line 1050: WHEN FND_API.G_EXC_ERROR THEN

1046: COMMIT;
1047: END IF;
1048:
1049: EXCEPTION
1050: WHEN FND_API.G_EXC_ERROR THEN
1051: ROLLBACK TO MoveBSCTabPVT;
1052: FND_MSG_PUB.Count_And_Get
1053: ( p_encoded => FND_API.G_FALSE
1054: , p_count => x_msg_count

Line 1053: ( p_encoded => FND_API.G_FALSE

1049: EXCEPTION
1050: WHEN FND_API.G_EXC_ERROR THEN
1051: ROLLBACK TO MoveBSCTabPVT;
1052: FND_MSG_PUB.Count_And_Get
1053: ( p_encoded => FND_API.G_FALSE
1054: , p_count => x_msg_count
1055: , p_data => x_msg_data
1056: );
1057: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

Line 1057: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

1053: ( p_encoded => FND_API.G_FALSE
1054: , p_count => x_msg_count
1055: , p_data => x_msg_data
1056: );
1057: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1058: x_return_status := FND_API.G_RET_STS_ERROR;
1059: RAISE;
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: ROLLBACK TO MoveBSCTabPVT;

Line 1058: x_return_status := FND_API.G_RET_STS_ERROR;

1054: , p_count => x_msg_count
1055: , p_data => x_msg_data
1056: );
1057: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1058: x_return_status := FND_API.G_RET_STS_ERROR;
1059: RAISE;
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: ROLLBACK TO MoveBSCTabPVT;
1062: FND_MSG_PUB.Count_And_Get

Line 1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1056: );
1057: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1058: x_return_status := FND_API.G_RET_STS_ERROR;
1059: RAISE;
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: ROLLBACK TO MoveBSCTabPVT;
1062: FND_MSG_PUB.Count_And_Get
1063: ( p_encoded => FND_API.G_FALSE
1064: , p_count => x_msg_count

Line 1063: ( p_encoded => FND_API.G_FALSE

1059: RAISE;
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: ROLLBACK TO MoveBSCTabPVT;
1062: FND_MSG_PUB.Count_And_Get
1063: ( p_encoded => FND_API.G_FALSE
1064: , p_count => x_msg_count
1065: , p_data => x_msg_data
1066: );
1067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1063: ( p_encoded => FND_API.G_FALSE
1064: , p_count => x_msg_count
1065: , p_data => x_msg_data
1066: );
1067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1068: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1069: RAISE;
1070: WHEN NO_DATA_FOUND THEN
1071: ROLLBACK TO MoveBSCTabPVT;

Line 1068: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

1064: , p_count => x_msg_count
1065: , p_data => x_msg_data
1066: );
1067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1068: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1069: RAISE;
1070: WHEN NO_DATA_FOUND THEN
1071: ROLLBACK TO MoveBSCTabPVT;
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1068: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1069: RAISE;
1070: WHEN NO_DATA_FOUND THEN
1071: ROLLBACK TO MoveBSCTabPVT;
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: IF (x_msg_data IS NOT NULL) THEN
1074: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Move_Tab ';
1075: ELSE
1076: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Move_Tab ';

Line 1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1078: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1079: RAISE;
1080: WHEN OTHERS THEN
1081: ROLLBACK TO MoveBSCTabPVT;
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083: IF (x_msg_data IS NOT NULL) THEN
1084: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Move_Tab ';
1085: ELSE
1086: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Move_Tab ';

Line 1097: p_commit IN varchar2 := FND_API.G_FALSE

1093: /************************************************************************************
1094: ************************************************************************************/
1095:
1096: procedure Update_Tab_Time_Stamp(
1097: p_commit IN varchar2 := FND_API.G_FALSE
1098: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
1099: ,x_return_status OUT NOCOPY varchar2
1100: ,x_msg_count OUT NOCOPY number
1101: ,x_msg_data OUT NOCOPY varchar2

Line 1106: x_return_status := FND_API.G_RET_STS_SUCCESS;

1102: ) is
1103:
1104: begin
1105: FND_MSG_PUB.Initialize;
1106: x_return_status := FND_API.G_RET_STS_SUCCESS;
1107: SAVEPOINT UpdateBSCTabTimStmPVT;
1108: update BSC_TABS_B
1109: set last_update_date = sysdate
1110: where tab_id = p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id;

Line 1112: IF (p_commit = FND_API.G_TRUE) THEN

1108: update BSC_TABS_B
1109: set last_update_date = sysdate
1110: where tab_id = p_Bsc_Tab_Entity_Rec.Bsc_Tab_Id;
1111:
1112: IF (p_commit = FND_API.G_TRUE) THEN
1113: COMMIT;
1114: END IF;
1115:
1116: EXCEPTION

Line 1117: WHEN FND_API.G_EXC_ERROR THEN

1113: COMMIT;
1114: END IF;
1115:
1116: EXCEPTION
1117: WHEN FND_API.G_EXC_ERROR THEN
1118: ROLLBACK TO UpdateBSCTabTimStmPVT;
1119: FND_MSG_PUB.Count_And_Get
1120: ( p_encoded => FND_API.G_FALSE
1121: , p_count => x_msg_count

Line 1120: ( p_encoded => FND_API.G_FALSE

1116: EXCEPTION
1117: WHEN FND_API.G_EXC_ERROR THEN
1118: ROLLBACK TO UpdateBSCTabTimStmPVT;
1119: FND_MSG_PUB.Count_And_Get
1120: ( p_encoded => FND_API.G_FALSE
1121: , p_count => x_msg_count
1122: , p_data => x_msg_data
1123: );
1124: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

Line 1124: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

1120: ( p_encoded => FND_API.G_FALSE
1121: , p_count => x_msg_count
1122: , p_data => x_msg_data
1123: );
1124: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1125: x_return_status := FND_API.G_RET_STS_ERROR;
1126: RAISE;
1127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1128: ROLLBACK TO UpdateBSCTabTimStmPVT;

Line 1125: x_return_status := FND_API.G_RET_STS_ERROR;

1121: , p_count => x_msg_count
1122: , p_data => x_msg_data
1123: );
1124: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1125: x_return_status := FND_API.G_RET_STS_ERROR;
1126: RAISE;
1127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1128: ROLLBACK TO UpdateBSCTabTimStmPVT;
1129: FND_MSG_PUB.Count_And_Get

Line 1127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1123: );
1124: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1125: x_return_status := FND_API.G_RET_STS_ERROR;
1126: RAISE;
1127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1128: ROLLBACK TO UpdateBSCTabTimStmPVT;
1129: FND_MSG_PUB.Count_And_Get
1130: ( p_encoded => FND_API.G_FALSE
1131: , p_count => x_msg_count

Line 1130: ( p_encoded => FND_API.G_FALSE

1126: RAISE;
1127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1128: ROLLBACK TO UpdateBSCTabTimStmPVT;
1129: FND_MSG_PUB.Count_And_Get
1130: ( p_encoded => FND_API.G_FALSE
1131: , p_count => x_msg_count
1132: , p_data => x_msg_data
1133: );
1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1130: ( p_encoded => FND_API.G_FALSE
1131: , p_count => x_msg_count
1132: , p_data => x_msg_data
1133: );
1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1135: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1136: RAISE;
1137: WHEN NO_DATA_FOUND THEN
1138: ROLLBACK TO UpdateBSCTabTimStmPVT;

Line 1135: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

1131: , p_count => x_msg_count
1132: , p_data => x_msg_data
1133: );
1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1135: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1136: RAISE;
1137: WHEN NO_DATA_FOUND THEN
1138: ROLLBACK TO UpdateBSCTabTimStmPVT;
1139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1135: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1136: RAISE;
1137: WHEN NO_DATA_FOUND THEN
1138: ROLLBACK TO UpdateBSCTabTimStmPVT;
1139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1140: IF (x_msg_data IS NOT NULL) THEN
1141: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Update_Tab_Time_Stamp ';
1142: ELSE
1143: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Update_Tab_Time_Stamp ';

Line 1149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1145: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1146: RAISE;
1147: WHEN OTHERS THEN
1148: ROLLBACK TO UpdateBSCTabTimStmPVT;
1149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1150: IF (x_msg_data IS NOT NULL) THEN
1151: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Update_Tab_Time_Stamp ';
1152: ELSE
1153: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Update_Tab_Time_Stamp ';

Line 1164: p_commit IN varchar2 := FND_API.G_FALSE

1160: /************************************************************************************
1161: ************************************************************************************/
1162:
1163: procedure Update_System_Time_Stamp(
1164: p_commit IN varchar2 := FND_API.G_FALSE
1165: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
1166: ,x_return_status OUT NOCOPY varchar2
1167: ,x_msg_count OUT NOCOPY number
1168: ,x_msg_data OUT NOCOPY varchar2

Line 1173: x_return_status := FND_API.G_RET_STS_SUCCESS;

1169: ) is
1170:
1171: begin
1172: FND_MSG_PUB.Initialize;
1173: x_return_status := FND_API.G_RET_STS_SUCCESS;
1174: SAVEPOINT UpdateBSCTabSysTimStmPVT;
1175: update BSC_SYS_INIT
1176: set last_update_date = sysdate
1177: where property_code = 'LOCK_SYSTEM';

Line 1179: IF (p_commit = FND_API.G_TRUE) THEN

1175: update BSC_SYS_INIT
1176: set last_update_date = sysdate
1177: where property_code = 'LOCK_SYSTEM';
1178:
1179: IF (p_commit = FND_API.G_TRUE) THEN
1180: COMMIT;
1181: END IF;
1182:
1183: EXCEPTION

Line 1184: WHEN FND_API.G_EXC_ERROR THEN

1180: COMMIT;
1181: END IF;
1182:
1183: EXCEPTION
1184: WHEN FND_API.G_EXC_ERROR THEN
1185: ROLLBACK TO UpdateBSCTabSysTimStmPVT;
1186: FND_MSG_PUB.Count_And_Get
1187: ( p_encoded => FND_API.G_FALSE
1188: , p_count => x_msg_count

Line 1187: ( p_encoded => FND_API.G_FALSE

1183: EXCEPTION
1184: WHEN FND_API.G_EXC_ERROR THEN
1185: ROLLBACK TO UpdateBSCTabSysTimStmPVT;
1186: FND_MSG_PUB.Count_And_Get
1187: ( p_encoded => FND_API.G_FALSE
1188: , p_count => x_msg_count
1189: , p_data => x_msg_data
1190: );
1191: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

Line 1191: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);

1187: ( p_encoded => FND_API.G_FALSE
1188: , p_count => x_msg_count
1189: , p_data => x_msg_data
1190: );
1191: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1192: x_return_status := FND_API.G_RET_STS_ERROR;
1193: RAISE;
1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1195: ROLLBACK TO UpdateBSCTabSysTimStmPVT;

Line 1192: x_return_status := FND_API.G_RET_STS_ERROR;

1188: , p_count => x_msg_count
1189: , p_data => x_msg_data
1190: );
1191: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1192: x_return_status := FND_API.G_RET_STS_ERROR;
1193: RAISE;
1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1195: ROLLBACK TO UpdateBSCTabSysTimStmPVT;
1196: FND_MSG_PUB.Count_And_Get

Line 1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1190: );
1191: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1192: x_return_status := FND_API.G_RET_STS_ERROR;
1193: RAISE;
1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1195: ROLLBACK TO UpdateBSCTabSysTimStmPVT;
1196: FND_MSG_PUB.Count_And_Get
1197: ( p_encoded => FND_API.G_FALSE
1198: , p_count => x_msg_count

Line 1197: ( p_encoded => FND_API.G_FALSE

1193: RAISE;
1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1195: ROLLBACK TO UpdateBSCTabSysTimStmPVT;
1196: FND_MSG_PUB.Count_And_Get
1197: ( p_encoded => FND_API.G_FALSE
1198: , p_count => x_msg_count
1199: , p_data => x_msg_data
1200: );
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1197: ( p_encoded => FND_API.G_FALSE
1198: , p_count => x_msg_count
1199: , p_data => x_msg_data
1200: );
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1203: RAISE;
1204: WHEN NO_DATA_FOUND THEN
1205: ROLLBACK TO UpdateBSCTabSysTimStmPVT;

Line 1202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);

1198: , p_count => x_msg_count
1199: , p_data => x_msg_data
1200: );
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1203: RAISE;
1204: WHEN NO_DATA_FOUND THEN
1205: ROLLBACK TO UpdateBSCTabSysTimStmPVT;
1206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1203: RAISE;
1204: WHEN NO_DATA_FOUND THEN
1205: ROLLBACK TO UpdateBSCTabSysTimStmPVT;
1206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1207: IF (x_msg_data IS NOT NULL) THEN
1208: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Update_System_Time_Stamp ';
1209: ELSE
1210: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Update_System_Time_Stamp ';

Line 1216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1212: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1213: RAISE;
1214: WHEN OTHERS THEN
1215: ROLLBACK TO UpdateBSCTabSysTimStmPVT;
1216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1217: IF (x_msg_data IS NOT NULL) THEN
1218: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PVT.Update_System_Time_Stamp ';
1219: ELSE
1220: x_msg_data := SQLERRM||' at BSC_SCORECARD_PVT.Update_System_Time_Stamp ';

Line 1354: RAISE FND_API.G_EXC_ERROR;

1350: IF l_count = 0 THEN
1351: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_TAB_ID');
1352: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_tab_id);
1353: FND_MSG_PUB.ADD;
1354: RAISE FND_API.G_EXC_ERROR;
1355: END IF;
1356: ELSE
1357: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
1358: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_tab_id);

Line 1360: RAISE FND_API.G_EXC_ERROR;

1356: ELSE
1357: FND_MESSAGE.SET_NAME('BSC','BSC_NO_TAB_ID_ENTERED');
1358: FND_MESSAGE.SET_TOKEN('BSC_TAB', p_tab_id);
1359: FND_MSG_PUB.ADD;
1360: RAISE FND_API.G_EXC_ERROR;
1361: END IF;
1362:
1363: /*User name can never be null, so no need to check for null condition*/
1364:

Line 1381: IF (l_success <> FND_API.G_TRUE) THEN

1377: ,x_grant_guid => l_grant_guid
1378: ,x_success => l_success
1379: ,x_errorcode => l_errorcode
1380: );
1381: IF (l_success <> FND_API.G_TRUE) THEN
1382: --DBMS_OUTPUT.PUT_LINE('BSC_SCORECARD_PVT.Grant_Scorecard_Access Failed: at FND_GRANTS_DELETE_PKG.GRANT_FUNCTION );
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: END IF;
1385:

Line 1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1379: ,x_errorcode => l_errorcode
1380: );
1381: IF (l_success <> FND_API.G_TRUE) THEN
1382: --DBMS_OUTPUT.PUT_LINE('BSC_SCORECARD_PVT.Grant_Scorecard_Access Failed: at FND_GRANTS_DELETE_PKG.GRANT_FUNCTION );
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: END IF;
1385:
1386: /****************************************************
1387: Except the current user other users will have the Viewer

Line 1411: IF (l_success <> FND_API.G_TRUE) THEN

1407: ,x_grant_guid => l_grant_guid
1408: ,x_success => l_success
1409: ,x_errorcode => l_errorcode
1410: );
1411: IF (l_success <> FND_API.G_TRUE) THEN
1412: --DBMS_OUTPUT.PUT_LINE('BSC_SCORECARD_PVT.Grant_Scorecard_Access Failed: at FND_GRANTS_DELETE_PKG.GRANT_FUNCTION );
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1414: END IF;
1415: END IF;

Line 1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1409: ,x_errorcode => l_errorcode
1410: );
1411: IF (l_success <> FND_API.G_TRUE) THEN
1412: --DBMS_OUTPUT.PUT_LINE('BSC_SCORECARD_PVT.Grant_Scorecard_Access Failed: at FND_GRANTS_DELETE_PKG.GRANT_FUNCTION );
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1414: END IF;
1415: END IF;
1416: END LOOP;
1417:

Line 1420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1416: END LOOP;
1417:
1418:
1419: EXCEPTION
1420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1421: BSC_MESSAGE.Add
1422: ( x_message => SQLERRM
1423: , x_source => 'BSC_SCORECARD_PVT.Insert_Scorecard_Grants'
1424: , x_mode => 'I'

Line 1428: WHEN FND_API.G_EXC_ERROR THEN

1424: , x_mode => 'I'
1425: );
1426:
1427:
1428: WHEN FND_API.G_EXC_ERROR THEN
1429: BSC_MESSAGE.Add
1430: ( x_message => SQLERRM
1431: , x_source => 'BSC_SCORECARD_PVT.Insert_Scorecard_Grants'
1432: , x_mode => 'I'

Line 1497: IF (l_success <> FND_API.G_TRUE) THEN

1493: , x_success => l_success
1494: , x_errcode => l_errorcode
1495: );
1496:
1497: IF (l_success <> FND_API.G_TRUE) THEN
1498: --DBMS_OUTPUT.PUT_LINE('BSC_SCORECARD_PVT.Remove_Scorecard_Grants Failed: at FND_GRANTS_DELETE_PKG.delete_grant );
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500: END IF;
1501: END LOOP; */

Line 1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1495: );
1496:
1497: IF (l_success <> FND_API.G_TRUE) THEN
1498: --DBMS_OUTPUT.PUT_LINE('BSC_SCORECARD_PVT.Remove_Scorecard_Grants Failed: at FND_GRANTS_DELETE_PKG.delete_grant );
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500: END IF;
1501: END LOOP; */
1502:
1503: SELECT OBJECT_ID

Line 1515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1511: AND INSTANCE_PK1_VALUE = TO_CHAR(p_tab_id)
1512: AND PROGRAM_NAME = 'BSC_PMD_GRANTS';
1513:
1514: EXCEPTION
1515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1516: BSC_MESSAGE.Add
1517: (
1518: x_message => SQLERRM
1519: , x_source => 'BSC_SCORECARD_PVT.Remove_Scorecard_Grants'