DBA Data[Home] [Help]

APPS.BSC_KPI_GROUP_PVT dependencies on BSC_KPI_GROUP_PVT

Line 1: PACKAGE BODY BSC_KPI_GROUP_PVT as

1: PACKAGE BODY BSC_KPI_GROUP_PVT as
2: /* $Header: BSCVKGPB.pls 120.0 2005/06/01 16:20:37 appldev noship $ */
3: /*
4: +======================================================================================+
5: | Copyright (c) 2001 Oracle Corporation, Redwood Shores, CA, USA |

Line 37: G_PKG_NAME CONSTANT varchar2(30) := 'BSC_KPI_GROUP_PVT';

33: +======================================================================================+
34:
35:
36: */
37: G_PKG_NAME CONSTANT varchar2(30) := 'BSC_KPI_GROUP_PVT';
38: g_db_object varchar2(30) := null;
39:
40: PROCEDURE Create_Kpi_Group(
41: p_commit IN VARCHAR2 := FND_API.G_FALSE

Line 200: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', 'BSC_KPI_GROUP_PVT.Create_Kpi_Group');

196: ROLLBACK TO BSCKPIGrpPVT;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: if (SQLCODE = -01400) then
199: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
200: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', 'BSC_KPI_GROUP_PVT.Create_Kpi_Group');
201: FND_MSG_PUB.ADD;
202: RAISE FND_API.G_EXC_ERROR;
203: end if;
204: IF (x_msg_data IS NOT NULL) THEN

Line 205: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Create_Kpi_Group ';

201: FND_MSG_PUB.ADD;
202: RAISE FND_API.G_EXC_ERROR;
203: end if;
204: IF (x_msg_data IS NOT NULL) THEN
205: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Create_Kpi_Group ';
206: ELSE
207: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Create_Kpi_Group ';
208: END IF;
209: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);

Line 207: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Create_Kpi_Group ';

203: end if;
204: IF (x_msg_data IS NOT NULL) THEN
205: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Create_Kpi_Group ';
206: ELSE
207: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Create_Kpi_Group ';
208: END IF;
209: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
210: RAISE;
211: WHEN OTHERS THEN

Line 215: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Create_Kpi_Group ';

211: WHEN OTHERS THEN
212: ROLLBACK TO BSCKPIGrpPVT;
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: IF (x_msg_data IS NOT NULL) THEN
215: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Create_Kpi_Group ';
216: ELSE
217: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Create_Kpi_Group ';
218: END IF;
219: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);

Line 217: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Create_Kpi_Group ';

213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: IF (x_msg_data IS NOT NULL) THEN
215: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Create_Kpi_Group ';
216: ELSE
217: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Create_Kpi_Group ';
218: END IF;
219: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
220: RAISE;
221: end Create_Kpi_Group;

Line 279: --BSC_DEBUG.PUT_LINE(' -- End BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group' );

275: IF (p_commit = FND_API.G_TRUE) THEN
276: COMMIT;
277: END IF;
278:
279: --BSC_DEBUG.PUT_LINE(' -- End BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group' );
280:
281:
282: EXCEPTION
283: WHEN FND_API.G_EXC_ERROR THEN

Line 304: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';

300: RAISE;
301: WHEN NO_DATA_FOUND THEN
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: IF (x_msg_data IS NOT NULL) THEN
304: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';
305: ELSE
306: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';
307: END IF;
308: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);

Line 306: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';

302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: IF (x_msg_data IS NOT NULL) THEN
304: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';
305: ELSE
306: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';
307: END IF;
308: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
309: RAISE;
310: WHEN OTHERS THEN

Line 313: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';

309: RAISE;
310: WHEN OTHERS THEN
311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
312: IF (x_msg_data IS NOT NULL) THEN
313: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';
314: ELSE
315: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';
316: END IF;
317: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);

Line 315: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';

311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
312: IF (x_msg_data IS NOT NULL) THEN
313: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';
314: ELSE
315: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group ';
316: END IF;
317: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
318: RAISE;
319: end Retrieve_Kpi_Group;

Line 342: --BSC_DEBUG.PUT_LINE(' -- Begin BSC_KPI_GROUP_PVT.Update_Kpi_Group' );

338: begin
339: FND_MSG_PUB.Initialize;
340: x_return_status := FND_API.G_RET_STS_SUCCESS;
341: SAVEPOINT BSCKPIUptPVT;
342: --BSC_DEBUG.PUT_LINE(' -- Begin BSC_KPI_GROUP_PVT.Update_Kpi_Group' );
343:
344: -- Check that valid Kpi group id was entered.
345: if p_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id is not null then
346:

Line 364: --BSC_DEBUG.PUT_LINE(' BSC_KPI_GROUP_PVT.Update_Kpi_Group - Flag 1' );

360: FND_MSG_PUB.ADD;
361: RAISE FND_API.G_EXC_ERROR;
362: end if;
363:
364: --BSC_DEBUG.PUT_LINE(' BSC_KPI_GROUP_PVT.Update_Kpi_Group - Flag 1' );
365:
366: select count(ind_group_id)
367: into l_name_count
368: from BSC_TAB_IND_GROUPS_TL

Line 373: --BSC_DEBUG.PUT_LINE(' BSC_KPI_GROUP_PVT.Update_Kpi_Group - Flag 2 ' );

369: where name = p_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Name
370: and ind_group_id <> p_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id
371: and tab_id = -1;
372:
373: --BSC_DEBUG.PUT_LINE(' BSC_KPI_GROUP_PVT.Update_Kpi_Group - Flag 2 ' );
374:
375: if l_name_count <> 0 then
376: FND_MESSAGE.SET_NAME('BSC','BSC_KGROUP_NAME_EXISTS');
377: FND_MESSAGE.SET_TOKEN('BSC_KGROUP', p_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Name);

Line 382: --BSC_DEBUG.PUT_LINE(' BSC_KPI_GROUP_PVT.Update_Kpi_Group - Flag 3 ' );

378: FND_MSG_PUB.ADD;
379: RAISE FND_API.G_EXC_ERROR;
380: end if;
381:
382: --BSC_DEBUG.PUT_LINE(' BSC_KPI_GROUP_PVT.Update_Kpi_Group - Flag 3 ' );
383:
384: -- Check that valid Tab id was entered, only if tab id is not -1.
385: IF p_Bsc_Kpi_Group_Rec.Bsc_Tab_Id <> -1 THEN
386: IF p_Bsc_Kpi_Group_Rec.Bsc_Tab_Id IS NOT NULL THEN

Line 487: --BSC_DEBUG.PUT_LINE(' BSC_KPI_GROUP_PVT.Update_Kpi_Group - Flag 4.5 ' );

483: ,name_justification = l_Bsc_Kpi_Group_Rec.Bsc_Name_Justif_In_Tab
484: where ind_group_id = l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Id;
485:
486: if l_update_TL = 1 then
487: --BSC_DEBUG.PUT_LINE(' BSC_KPI_GROUP_PVT.Update_Kpi_Group - Flag 4.5 ' );
488: update BSC_TAB_IND_GROUPS_TL
489: set csf_id = l_Bsc_Kpi_Group_Rec.Bsc_Csf_Id
490: ,name = l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Name
491: ,help = l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Help

Line 516: --BSC_DEBUG.PUT_LINE(' -- End BSC_KPI_GROUP_PVT.Update_Kpi_Group' );

512: if (p_commit = FND_API.G_TRUE) then
513: commit;
514: end if;
515:
516: --BSC_DEBUG.PUT_LINE(' -- End BSC_KPI_GROUP_PVT.Update_Kpi_Group' );
517:
518: EXCEPTION
519: WHEN FND_API.G_EXC_ERROR THEN
520: ROLLBACK TO BSCKPIUptPVT;

Line 543: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Update_Kpi_Group ';

539: WHEN NO_DATA_FOUND THEN
540: ROLLBACK TO BSCKPIUptPVT;
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: IF (x_msg_data IS NOT NULL) THEN
543: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Update_Kpi_Group ';
544: ELSE
545: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Update_Kpi_Group ';
546: END IF;
547: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);

Line 545: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Update_Kpi_Group ';

541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: IF (x_msg_data IS NOT NULL) THEN
543: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Update_Kpi_Group ';
544: ELSE
545: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Update_Kpi_Group ';
546: END IF;
547: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
548: RAISE;
549: WHEN OTHERS THEN

Line 553: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Update_Kpi_Group ';

549: WHEN OTHERS THEN
550: ROLLBACK TO BSCKPIUptPVT;
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: IF (x_msg_data IS NOT NULL) THEN
553: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Update_Kpi_Group ';
554: ELSE
555: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Update_Kpi_Group ';
556: END IF;
557: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);

Line 555: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Update_Kpi_Group ';

551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: IF (x_msg_data IS NOT NULL) THEN
553: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Update_Kpi_Group ';
554: ELSE
555: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Update_Kpi_Group ';
556: END IF;
557: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
558: RAISE;
559: end Update_Kpi_Group;

Line 683: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';

679: WHEN NO_DATA_FOUND THEN
680: ROLLBACK TO BSCKPIDeletePVT;
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
682: IF (x_msg_data IS NOT NULL) THEN
683: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';
684: ELSE
685: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';
686: END IF;
687: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);

Line 685: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';

681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
682: IF (x_msg_data IS NOT NULL) THEN
683: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';
684: ELSE
685: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';
686: END IF;
687: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
688: RAISE;
689: WHEN OTHERS THEN

Line 693: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';

689: WHEN OTHERS THEN
690: ROLLBACK TO BSCKPIDeletePVT;
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: IF (x_msg_data IS NOT NULL) THEN
693: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';
694: ELSE
695: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';
696: END IF;
697: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);

Line 695: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';

691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: IF (x_msg_data IS NOT NULL) THEN
693: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';
694: ELSE
695: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PVT.Delete_Kpi_Group ';
696: END IF;
697: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
698: RAISE;
699:

Line 705: end BSC_KPI_GROUP_PVT;

701:
702: /************************************************************************************
703: ************************************************************************************/
704:
705: end BSC_KPI_GROUP_PVT;