1: PACKAGE BODY BSC_LAUNCH_PAD_PUB AS
2: /* $Header: BSCCVDEFB.pls 120.1 2006/05/22 21:28:16 akchan ship $ */
3:
4:
5: PROCEDURE Delete_LaunchPad_Links
263: /*********************************************************************************/
264:
265: PROCEDURE get_All_Root_Menu
266: (
267: x_Root_Menu_Tbl IN OUT NOCOPY BSC_LAUNCH_PAD_PUB.Bsc_LauchPad_Tbl_Type
268:
269: )IS
270: l_count NUMBER;
271:
311: , x_msg_count OUT NOCOPY NUMBER
312: , x_msg_data OUT NOCOPY VARCHAR2
313: )IS
314:
315: l_Root_Menu_Tbl BSC_LAUNCH_PAD_PUB.Bsc_LauchPad_Tbl_Type;
316: l_root_menu_count NUMBER;
317:
318: BEGIN
319: SAVEPOINT AddLaunchPadRootMenu;
365: WHEN NO_DATA_FOUND THEN
366: ROLLBACK TO AddLaunchPadRootMenu;
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
368: IF (x_msg_data IS NOT NULL) THEN
369: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Add_Launch_Pad_Root_Menu ';
370: ELSE
371: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Add_Launch_Pad_Root_Menu ';
372: END IF;
373:
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
368: IF (x_msg_data IS NOT NULL) THEN
369: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Add_Launch_Pad_Root_Menu ';
370: ELSE
371: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Add_Launch_Pad_Root_Menu ';
372: END IF;
373:
374: WHEN OTHERS THEN
375: ROLLBACK TO AddLaunchPadRootMenu;
374: WHEN OTHERS THEN
375: ROLLBACK TO AddLaunchPadRootMenu;
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377: IF (x_msg_data IS NOT NULL) THEN
378: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Add_Launch_Pad_Root_Menu ';
379: ELSE
380: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Add_Launch_Pad_Root_Menu ';
381: END IF;
382: END Add_Launch_Pad_Root_Menu;
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377: IF (x_msg_data IS NOT NULL) THEN
378: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Add_Launch_Pad_Root_Menu ';
379: ELSE
380: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Add_Launch_Pad_Root_Menu ';
381: END IF;
382: END Add_Launch_Pad_Root_Menu;
383:
384: /*****************************************************************************
486: , x_msg_count => x_msg_count
487: , x_msg_data => x_msg_data
488: );
489: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
490: --DBMS_OUTPUT.PUT_LINE('BSC_LAUNCH_PAD_PUB.Create_Launch_Pad Failed: at BSC_LAUNCH_PAD_PUB.Add_Launch_Pad_Root_Menu <'||x_msg_data||'>');
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492: END IF;
493:
494: /*************************************************************************
513: , x_msg_count => x_msg_count
514: , x_msg_data => x_msg_data
515: );
516: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
517: --DBMS_OUTPUT.PUT_LINE('BSC_LAUNCH_PAD_PUB.Create_MenuFunction_Link Failed: at BSC_LAUNCH_PAD_PUB.Create_Launch_Pad <'||x_msg_data||'>');
518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
519: END IF;
520: l_count := l_count + 1;
521: END LOOP;
550: WHEN NO_DATA_FOUND THEN
551: ROLLBACK TO CreateLaunchPad;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: IF (x_msg_data IS NOT NULL) THEN
554: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Create_Launch_Pad ';
555: ELSE
556: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Create_Launch_Pad ';
557: END IF;
558: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: IF (x_msg_data IS NOT NULL) THEN
554: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Create_Launch_Pad ';
555: ELSE
556: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Create_Launch_Pad ';
557: END IF;
558: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
559:
560: WHEN OTHERS THEN
560: WHEN OTHERS THEN
561: ROLLBACK TO CreateLaunchPad;
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: IF (x_msg_data IS NOT NULL) THEN
564: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Create_Launch_Pad ';
565: ELSE
566: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Create_Launch_Pad ';
567: END IF;
568: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: IF (x_msg_data IS NOT NULL) THEN
564: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Create_Launch_Pad ';
565: ELSE
566: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Create_Launch_Pad ';
567: END IF;
568: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
569:
570: END Create_Launch_Pad;
582:
583: PROCEDURE Retrieve_Launch_Pad
584: (
585: p_menu_id IN NUMBER
586: ,x_launch_pad_Rec IN OUT NOCOPY BSC_LAUNCH_PAD_PUB.Bsc_LauchPad_Rec_Type
587: ,x_return_status OUT NOCOPY VARCHAR2
588: ,x_msg_count OUT NOCOPY NUMBER
589: ,x_msg_data OUT NOCOPY VARCHAR2
590:
615: EXCEPTION
616: WHEN NO_DATA_FOUND THEN
617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
618: IF (x_msg_data IS NOT NULL) THEN
619: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Retrieve_Launch_Pad ';
620: ELSE
621: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Retrieve_Launch_Pad ';
622: END IF;
623: RAISE;
617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
618: IF (x_msg_data IS NOT NULL) THEN
619: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Retrieve_Launch_Pad ';
620: ELSE
621: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Retrieve_Launch_Pad ';
622: END IF;
623: RAISE;
624: WHEN OTHERS THEN
625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
623: RAISE;
624: WHEN OTHERS THEN
625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
626: IF (x_msg_data IS NOT NULL) THEN
627: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Retrieve_Tab_View ';
628: ELSE
629: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Retrieve_Tab_View ';
630: END IF;
631: RAISE;
625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
626: IF (x_msg_data IS NOT NULL) THEN
627: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Retrieve_Tab_View ';
628: ELSE
629: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Retrieve_Tab_View ';
630: END IF;
631: RAISE;
632: END Retrieve_Launch_Pad;
633:
644: /******************************************************************************/
645:
646: PROCEDURE Update_Launch_Pad
647: (
648: p_launch_pad_rec IN BSC_LAUNCH_PAD_PUB.Bsc_LauchPad_Rec_Type
649: ,x_return_status OUT NOCOPY VARCHAR2
650: ,x_msg_count OUT NOCOPY NUMBER
651: ,x_msg_data OUT NOCOPY VARCHAR2
652: ) IS
650: ,x_msg_count OUT NOCOPY NUMBER
651: ,x_msg_data OUT NOCOPY VARCHAR2
652: ) IS
653:
654: l_launch_pad_rec BSC_LAUNCH_PAD_PUB.Bsc_LauchPad_Rec_Type;
655: l_count NUMBER;
656:
657: BEGIN
658: SAVEPOINT UpdateLaunchPad;
734: WHEN NO_DATA_FOUND THEN
735: ROLLBACK TO UpdateLaunchPad;
736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
737: IF (x_msg_data IS NOT NULL) THEN
738: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
739: ELSE
740: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
741: END IF;
742: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
737: IF (x_msg_data IS NOT NULL) THEN
738: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
739: ELSE
740: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
741: END IF;
742: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
743:
744: WHEN OTHERS THEN
744: WHEN OTHERS THEN
745: ROLLBACK TO UpdateLaunchPad;
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
747: IF (x_msg_data IS NOT NULL) THEN
748: x_msg_data := x_msg_data||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
749: ELSE
750: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
751: END IF;
752: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
747: IF (x_msg_data IS NOT NULL) THEN
748: x_msg_data := x_msg_data||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
749: ELSE
750: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
751: END IF;
752: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
753: END Update_Launch_Pad;
754:
787: ,x_msg_count OUT NOCOPY NUMBER
788: ,x_msg_data OUT NOCOPY VARCHAR2
789: ) IS
790: l_check_val VARCHAR2(2);
791: l_launch_pad_rec BSC_LAUNCH_PAD_PUB.Bsc_LauchPad_Rec_Type;
792: l_fucntion_ids VARCHAR2(32000);
793: l_fucntion_id VARCHAR2(10);
794: l_sequence NUMBER;
795: l_menu_name FND_MENUS.menu_name%TYPE;
845: l_launch_pad_rec.Bsc_menu_name := l_menu_name;
846: l_launch_pad_rec.Bsc_user_menu_name := p_user_menu_name;
847: l_launch_pad_rec.Bsc_description := p_description;
848:
849: BSC_LAUNCH_PAD_PUB.Update_Launch_Pad
850: (
851: p_launch_pad_rec => l_launch_pad_rec
852: ,x_return_status => x_return_status
853: ,x_msg_count => x_msg_count
892: , x_msg_count => x_msg_count
893: , x_msg_data => x_msg_data
894: );
895: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
896: --DBMS_OUTPUT.PUT_LINE('BSC_LAUNCH_PAD_PUB.Create_MenuFunction_Link Failed: at BSC_LAUNCH_PAD_PUB.Create_Launch_Pad <'||x_msg_data||'>');
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899: l_count := l_count + 1;
900: END LOOP;
928: WHEN NO_DATA_FOUND THEN
929:
930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
931: IF (x_msg_data IS NOT NULL) THEN
932: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
933: ELSE
934: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
935: END IF;
936: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
931: IF (x_msg_data IS NOT NULL) THEN
932: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
933: ELSE
934: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
935: END IF;
936: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
937:
938: WHEN OTHERS THEN
938: WHEN OTHERS THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940:
941: IF (x_msg_data IS NOT NULL) THEN
942: x_msg_data := x_msg_data||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
943: ELSE
944: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
945: END IF;
946:
940:
941: IF (x_msg_data IS NOT NULL) THEN
942: x_msg_data := x_msg_data||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
943: ELSE
944: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad ';
945: END IF;
946:
947: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
948:
962: , x_return_status OUT NOCOPY VARCHAR2
963: , x_msg_count OUT NOCOPY NUMBER
964: , x_msg_data OUT NOCOPY VARCHAR2
965: )IS
966: l_Root_Menu_Tbl BSC_LAUNCH_PAD_PUB.Bsc_LauchPad_Tbl_Type;
967: l_root_menu_count NUMBER;
968: l_entry_sequence FND_MENU_ENTRIES.Entry_Sequence%TYPE;
969:
970: BEGIN
1114: ROLLBACK TO DelteLaunchPad;
1115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1116:
1117: IF (x_msg_data IS NOT NULL) THEN
1118: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Delte_Launch_Pad ';
1119: ELSE
1120: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Delte_Launch_Pad ';
1121: END IF;
1122:
1116:
1117: IF (x_msg_data IS NOT NULL) THEN
1118: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Delte_Launch_Pad ';
1119: ELSE
1120: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Delte_Launch_Pad ';
1121: END IF;
1122:
1123: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1124:
1202: ROLLBACK TO deletelaunchpadlinks;
1203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1204:
1205: IF (x_msg_data IS NOT NULL) THEN
1206: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Delete_LaunchPad_Links ';
1207: ELSE
1208: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Delete_LaunchPad_Links ';
1209: END IF;
1210:
1204:
1205: IF (x_msg_data IS NOT NULL) THEN
1206: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Delete_LaunchPad_Links ';
1207: ELSE
1208: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Delete_LaunchPad_Links ';
1209: END IF;
1210:
1211: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1212: END Delete_LaunchPad_Links;
1290: ROLLBACK TO deletemenufunctionlink;
1291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1292:
1293: IF (x_msg_data IS NOT NULL) THEN
1294: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Delete_MenuFunction_Link ';
1295: ELSE
1296: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Delete_MenuFunction_Link ';
1297: END IF;
1298:
1292:
1293: IF (x_msg_data IS NOT NULL) THEN
1294: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Delete_MenuFunction_Link ';
1295: ELSE
1296: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Delete_MenuFunction_Link ';
1297: END IF;
1298:
1299: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1300: END Delete_MenuFunction_Link;
1375:
1376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1377:
1378: IF (x_msg_data IS NOT NULL) THEN
1379: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Create_MenuFunction_Link ';
1380: ELSE
1381: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Create_MenuFunction_Link ';
1382: END IF;
1383:
1377:
1378: IF (x_msg_data IS NOT NULL) THEN
1379: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Create_MenuFunction_Link ';
1380: ELSE
1381: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Create_MenuFunction_Link ';
1382: END IF;
1383:
1384: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1385: END Create_MenuFunction_Link;
1489:
1490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1491:
1492: IF (x_msg_data IS NOT NULL) THEN
1493: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Create_Launch_Pad_Link ';
1494: ELSE
1495: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Create_Launch_Pad_Link ';
1496: END IF;
1497:
1491:
1492: IF (x_msg_data IS NOT NULL) THEN
1493: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Create_Launch_Pad_Link ';
1494: ELSE
1495: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Create_Launch_Pad_Link ';
1496: END IF;
1497:
1498: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1499:
1701:
1702: WHEN OTHERS THEN
1703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1704: IF (x_msg_data IS NOT NULL) THEN
1705: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Update_Launch_Pad_Link ';
1706: ELSE
1707: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad_Link ';
1708: END IF;
1709: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1704: IF (x_msg_data IS NOT NULL) THEN
1705: x_msg_data := x_msg_data||' -> BSC_LAUNCH_PAD_PUB.Update_Launch_Pad_Link ';
1706: ELSE
1707: x_msg_data := SQLERRM||' at BSC_LAUNCH_PAD_PUB.Update_Launch_Pad_Link ';
1708: END IF;
1709: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1710: END Update_Launch_Pad_Link;
1711:
1729:
1730: RETURN l_count;
1731: END is_Menu_Id_Valid;
1732:
1733: END BSC_LAUNCH_PAD_PUB;
1734: