[Home] [Help]
317:
318: BEGIN
319: SAVEPOINT AddLaunchPadRootMenu;
320: FND_MSG_PUB.Initialize;
321: x_return_status := FND_API.G_RET_STS_SUCCESS;
322:
323: get_All_Root_Menu(x_Root_Menu_Tbl => l_Root_Menu_Tbl);
324: l_root_menu_count :=0;
325:
339: l_root_menu_count := l_root_menu_count + 1;
340: END LOOP;
341:
342: EXCEPTION
343: WHEN FND_API.G_EXC_ERROR THEN
344: ROLLBACK TO AddLaunchPadRootMenu;
345: IF (x_msg_data IS NULL) THEN
346: FND_MSG_PUB.Count_And_Get
347: ( p_encoded => FND_API.G_FALSE
343: WHEN FND_API.G_EXC_ERROR THEN
344: ROLLBACK TO AddLaunchPadRootMenu;
345: IF (x_msg_data IS NULL) THEN
346: FND_MSG_PUB.Count_And_Get
347: ( p_encoded => FND_API.G_FALSE
348: , p_count => x_msg_count
349: , p_data => x_msg_data
350: );
351: END IF;
348: , p_count => x_msg_count
349: , p_data => x_msg_data
350: );
351: END IF;
352: x_return_status := FND_API.G_RET_STS_ERROR;
353:
354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
355: ROLLBACK TO AddLaunchPadRootMenu;
356: IF (x_msg_data IS NULL) THEN
350: );
351: END IF;
352: x_return_status := FND_API.G_RET_STS_ERROR;
353:
354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
355: ROLLBACK TO AddLaunchPadRootMenu;
356: IF (x_msg_data IS NULL) THEN
357: FND_MSG_PUB.Count_And_Get
358: ( p_encoded => FND_API.G_FALSE
354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
355: ROLLBACK TO AddLaunchPadRootMenu;
356: IF (x_msg_data IS NULL) THEN
357: FND_MSG_PUB.Count_And_Get
358: ( p_encoded => FND_API.G_FALSE
359: , p_count => x_msg_count
360: , p_data => x_msg_data
361: );
362: END IF;
359: , p_count => x_msg_count
360: , p_data => x_msg_data
361: );
362: END IF;
363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364:
365: WHEN NO_DATA_FOUND THEN
366: ROLLBACK TO AddLaunchPadRootMenu;
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364:
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:
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 ';
404: /******************************************************************************/
405:
406: PROCEDURE Create_Launch_Pad
407: (
408: p_commit IN VARCHAR2 := FND_API.G_FALSE
409: ,p_menu_name IN VARCHAR2 := NULL
410: ,p_user_menu_name IN VARCHAR2
411: ,p_menu_type IN VARCHAR2 :='UNKNOWN'
412: ,p_description IN VARCHAR2
429: BEGIN
430:
431: SAVEPOINT CreateLaunchPad;
432: FND_MSG_PUB.Initialize;
433: x_return_status := FND_API.G_RET_STS_SUCCESS;
434:
435: IF(p_user_menu_name IS NULL) THEN
436: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
437: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'NAME'), TRUE);
435: IF(p_user_menu_name IS NULL) THEN
436: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
437: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'NAME'), TRUE);
438: FND_MSG_PUB.ADD;
439: RAISE FND_API.G_EXC_ERROR;
440: END IF;
441:
442: SELECT FND_MENUS_S.NEXTVAL
443: INTO l_menu_id
459: IF (l_check_val<>'T') THEN
460:
461: FND_MESSAGE.SET_NAME('BSC','BSC_D_NAME_EXIST');
462: FND_MSG_PUB.ADD;
463: RAISE FND_API.G_EXC_ERROR;
464:
465: ELSE
466:
467: BSC_LAUNCH_PAD_PVT.INSERT_APP_MENU_VB
485: , x_return_status => x_return_status
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:
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: /*************************************************************************
495: Create the association between the menus and the fucntions
512: , x_return_status => x_return_status
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;
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;
522: END IF;
522: END IF;
523: END IF;
524:
525: EXCEPTION
526: WHEN FND_API.G_EXC_ERROR THEN
527: ROLLBACK TO CreateLaunchPad;
528: IF (x_msg_data IS NULL) THEN
529: FND_MSG_PUB.Count_And_Get
530: ( p_encoded => FND_API.G_FALSE
526: WHEN FND_API.G_EXC_ERROR THEN
527: ROLLBACK TO CreateLaunchPad;
528: IF (x_msg_data IS NULL) THEN
529: FND_MSG_PUB.Count_And_Get
530: ( p_encoded => FND_API.G_FALSE
531: , p_count => x_msg_count
532: , p_data => x_msg_data
533: );
534: END IF;
531: , p_count => x_msg_count
532: , p_data => x_msg_data
533: );
534: END IF;
535: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
536: x_return_status := FND_API.G_RET_STS_ERROR;
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: ROLLBACK TO CreateLaunchPad;
532: , p_data => x_msg_data
533: );
534: END IF;
535: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
536: x_return_status := FND_API.G_RET_STS_ERROR;
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: ROLLBACK TO CreateLaunchPad;
540: IF (x_msg_data IS NULL) THEN
534: END IF;
535: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
536: x_return_status := FND_API.G_RET_STS_ERROR;
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: ROLLBACK TO CreateLaunchPad;
540: IF (x_msg_data IS NULL) THEN
541: FND_MSG_PUB.Count_And_Get
542: ( p_encoded => FND_API.G_FALSE
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: ROLLBACK TO CreateLaunchPad;
540: IF (x_msg_data IS NULL) THEN
541: FND_MSG_PUB.Count_And_Get
542: ( p_encoded => FND_API.G_FALSE
543: , p_count => x_msg_count
544: , p_data => x_msg_data
545: );
546: END IF;
543: , p_count => x_msg_count
544: , p_data => x_msg_data
545: );
546: END IF;
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
549:
550: WHEN NO_DATA_FOUND THEN
551: ROLLBACK TO CreateLaunchPad;
544: , p_data => x_msg_data
545: );
546: END IF;
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
549:
550: WHEN NO_DATA_FOUND THEN
551: ROLLBACK TO CreateLaunchPad;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
549:
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 ';
558: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
559:
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 ';
590:
591: ) IS
592: BEGIN
593: FND_MSG_PUB.Initialize;
594: x_return_status := FND_API.G_RET_STS_SUCCESS;
595:
596: SELECT menu_id
597: ,menu_name
598: ,type
613: WHERE menu_id = p_menu_id;
614:
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 ';
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;
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 ';
656:
657: BEGIN
658: SAVEPOINT UpdateLaunchPad;
659: FND_MSG_PUB.Initialize;
660: x_return_status := FND_API.G_RET_STS_SUCCESS;
661:
662: IF(p_launch_pad_rec.Bsc_menu_id IS NOT NULL) THEN
663:
664: -- Bug #3236356
667: IF(l_count =0) THEN
668: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
669: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_launch_pad_rec.Bsc_menu_id);
670: FND_MSG_PUB.ADD;
671: RAISE FND_API.G_EXC_ERROR;
672: END IF;
673:
674: ELSE
675: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
674: ELSE
675: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
676: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_launch_pad_rec.Bsc_menu_id);
677: FND_MSG_PUB.ADD;
678: RAISE FND_API.G_EXC_ERROR;
679: END IF;
680:
681: Retrieve_Launch_Pad
682: (
718: ,X_LAST_UPDATE_LOGIN => 0
719: );
720:
721: EXCEPTION
722: WHEN FND_API.G_EXC_ERROR THEN
723: ROLLBACK TO UpdateLaunchPad;
724: IF (x_msg_data IS NULL) THEN
725: FND_MSG_PUB.Count_And_Get
726: ( p_encoded => FND_API.G_FALSE
722: WHEN FND_API.G_EXC_ERROR THEN
723: ROLLBACK TO UpdateLaunchPad;
724: IF (x_msg_data IS NULL) THEN
725: FND_MSG_PUB.Count_And_Get
726: ( p_encoded => FND_API.G_FALSE
727: , p_count => x_msg_count
728: , p_data => x_msg_data
729: );
730: END IF;
727: , p_count => x_msg_count
728: , p_data => x_msg_data
729: );
730: END IF;
731: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
732: x_return_status := FND_API.G_RET_STS_ERROR;
733:
734: WHEN NO_DATA_FOUND THEN
735: ROLLBACK TO UpdateLaunchPad;
728: , p_data => x_msg_data
729: );
730: END IF;
731: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
732: x_return_status := FND_API.G_RET_STS_ERROR;
733:
734: WHEN NO_DATA_FOUND THEN
735: ROLLBACK TO UpdateLaunchPad;
736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732: x_return_status := FND_API.G_RET_STS_ERROR;
733:
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 ';
742: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
743:
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 ';
774: Created by :- ashankar 29-OCT-2003
775: /******************************************************************************/
776: PROCEDURE Update_Launch_Pad
777: (
778: p_commit IN VARCHAR2 := FND_API.G_FALSE
779: ,p_menu_id IN NUMBER
780: ,p_menu_name IN VARCHAR2 := NULL
781: ,p_user_menu_name IN VARCHAR2
782: ,p_menu_type IN VARCHAR2
796: l_count NUMBER :=0;
797:
798: BEGIN
799: FND_MSG_PUB.Initialize;
800: x_return_status := FND_API.G_RET_STS_SUCCESS;
801:
802: l_menu_name := p_menu_name;
803:
804: IF(p_user_menu_name IS NULL) THEN
804: IF(p_user_menu_name IS NULL) THEN
805: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
806: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'NAME'), TRUE);
807: FND_MSG_PUB.ADD;
808: RAISE FND_API.G_EXC_ERROR;
809: END IF;
810:
811: IF(p_menu_id IS NOT NULL) THEN
812: -- Bug #3236356
814: IF(l_count =0) THEN
815: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
816: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
817: FND_MSG_PUB.ADD;
818: RAISE FND_API.G_EXC_ERROR;
819: END IF;
820:
821: ELSE
822: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
821: ELSE
822: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
823: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
824: FND_MSG_PUB.ADD;
825: RAISE FND_API.G_EXC_ERROR;
826: END IF;
827:
828:
829: IF(l_menu_name IS NULL) THEN
838:
839: IF (l_check_val<>'T') THEN
840: FND_MESSAGE.SET_NAME('BSC','BSC_D_NAME_EXIST');
841: FND_MSG_PUB.ADD;
842: RAISE FND_API.G_EXC_ERROR;
843: ELSE
844: l_launch_pad_rec.Bsc_menu_id := p_menu_id;
845: l_launch_pad_rec.Bsc_menu_name := l_menu_name;
846: l_launch_pad_rec.Bsc_user_menu_name := p_user_menu_name;
891: , x_return_status => x_return_status
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;
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;
901: END IF;
900: END LOOP;
901: END IF;
902: END IF;
903: EXCEPTION
904: WHEN FND_API.G_EXC_ERROR THEN
905:
906: IF (x_msg_data IS NULL) THEN
907: FND_MSG_PUB.Count_And_Get
908: ( p_encoded => FND_API.G_FALSE
904: WHEN FND_API.G_EXC_ERROR THEN
905:
906: IF (x_msg_data IS NULL) THEN
907: FND_MSG_PUB.Count_And_Get
908: ( p_encoded => FND_API.G_FALSE
909: , p_count => x_msg_count
910: , p_data => x_msg_data
911: );
912: END IF;
909: , p_count => x_msg_count
910: , p_data => x_msg_data
911: );
912: END IF;
913: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
914: x_return_status := FND_API.G_RET_STS_ERROR;
915:
916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
917:
910: , p_data => x_msg_data
911: );
912: END IF;
913: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
914: x_return_status := FND_API.G_RET_STS_ERROR;
915:
916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
917:
918: IF (x_msg_data IS NULL) THEN
912: END IF;
913: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
914: x_return_status := FND_API.G_RET_STS_ERROR;
915:
916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
917:
918: IF (x_msg_data IS NULL) THEN
919: FND_MSG_PUB.Count_And_Get
920: ( p_encoded => FND_API.G_FALSE
916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
917:
918: IF (x_msg_data IS NULL) THEN
919: FND_MSG_PUB.Count_And_Get
920: ( p_encoded => FND_API.G_FALSE
921: , p_count => x_msg_count
922: , p_data => x_msg_data
923: );
924: END IF;
921: , p_count => x_msg_count
922: , p_data => x_msg_data
923: );
924: END IF;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
927:
928: WHEN NO_DATA_FOUND THEN
929:
922: , p_data => x_msg_data
923: );
924: END IF;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
927:
928: WHEN NO_DATA_FOUND THEN
929:
930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
927:
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);
937:
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
969:
970: BEGIN
971: SAVEPOINT DeleteRootMenuLaunchPad;
972: FND_MSG_PUB.Initialize;
973: x_return_status := FND_API.G_RET_STS_SUCCESS;
974:
975: get_All_Root_Menu(x_Root_Menu_Tbl => l_Root_Menu_Tbl);
976: l_root_menu_count :=0;
977:
988: l_root_menu_count := l_root_menu_count + 1;
989: END LOOP;
990: EXCEPTION
991:
992: WHEN FND_API.G_EXC_ERROR THEN
993: ROLLBACK TO DeleteRootMenuLaunchPad;
994: IF (x_msg_data IS NULL) THEN
995: FND_MSG_PUB.Count_And_Get
996: ( p_encoded => FND_API.G_FALSE
992: WHEN FND_API.G_EXC_ERROR THEN
993: ROLLBACK TO DeleteRootMenuLaunchPad;
994: IF (x_msg_data IS NULL) THEN
995: FND_MSG_PUB.Count_And_Get
996: ( p_encoded => FND_API.G_FALSE
997: , p_count => x_msg_count
998: , p_data => x_msg_data
999: );
1000: END IF;
997: , p_count => x_msg_count
998: , p_data => x_msg_data
999: );
1000: END IF;
1001: x_return_status := FND_API.G_RET_STS_ERROR;
1002:
1003: WHEN OTHERS THEN
1004: ROLLBACK TO DeleteRootMenuLaunchPad;
1005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1001: x_return_status := FND_API.G_RET_STS_ERROR;
1002:
1003: WHEN OTHERS THEN
1004: ROLLBACK TO DeleteRootMenuLaunchPad;
1005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1006: IF (x_msg_data IS NOT NULL) THEN
1007: x_msg_data := x_msg_data||' -> BSC_CUSTOM_VIEW_PUB.Delete_Root_Menu_LaunchPad ';
1008: ELSE
1009: x_msg_data := SQLERRM||' at BSC_CUSTOM_VIEW_PUB.Delete_Root_Menu_LaunchPad ';
1038: l_count NUMBER;
1039: BEGIN
1040: SAVEPOINT DelteLaunchPad;
1041: FND_MSG_PUB.Initialize;
1042: x_return_status := FND_API.G_RET_STS_SUCCESS;
1043:
1044: IF(p_menu_id IS NOT NULL) THEN
1045:
1046: -- Bug #3236356
1049: IF(l_count =0) THEN
1050: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1051: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
1052: FND_MSG_PUB.ADD;
1053: RAISE FND_API.G_EXC_ERROR;
1054: END IF;
1055:
1056: ELSE
1057:
1057:
1058: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1059: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
1060: FND_MSG_PUB.ADD;
1061: RAISE FND_API.G_EXC_ERROR;
1062:
1063: END IF;
1064:
1065: FND_MENUS_PKG.DELETE_ROW
1095:
1096:
1097:
1098: EXCEPTION
1099: WHEN FND_API.G_EXC_ERROR THEN
1100:
1101: ROLLBACK TO DelteLaunchPad;
1102: IF (x_msg_data IS NULL) THEN
1103: FND_MSG_PUB.Count_And_Get
1100:
1101: ROLLBACK TO DelteLaunchPad;
1102: IF (x_msg_data IS NULL) THEN
1103: FND_MSG_PUB.Count_And_Get
1104: ( p_encoded => FND_API.G_FALSE
1105: , p_count => x_msg_count
1106: , p_data => x_msg_data
1107: );
1108: END IF;
1105: , p_count => x_msg_count
1106: , p_data => x_msg_data
1107: );
1108: END IF;
1109: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1110: x_return_status := FND_API.G_RET_STS_ERROR;
1111:
1112: WHEN OTHERS THEN
1113:
1106: , p_data => x_msg_data
1107: );
1108: END IF;
1109: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1110: x_return_status := FND_API.G_RET_STS_ERROR;
1111:
1112: WHEN OTHERS THEN
1113:
1114: ROLLBACK TO DelteLaunchPad;
1111:
1112: WHEN OTHERS THEN
1113:
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
1152:
1153: BEGIN
1154: SAVEPOINT deletelaunchpadlinks;
1155: FND_MSG_PUB.Initialize;
1156: x_return_status := FND_API.G_RET_STS_SUCCESS;
1157:
1158: IF(p_menu_id IS NULL) THEN
1159: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1160: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
1158: IF(p_menu_id IS NULL) THEN
1159: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1160: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
1161: FND_MSG_PUB.ADD;
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164:
1165: FOR cd IN c_Launch_Pad_Links LOOP
1166: DELETE FROM BSC_TAB_VIEW_LABELS_TL
1175: END LOOP;
1176:
1177:
1178: EXCEPTION
1179: WHEN FND_API.G_EXC_ERROR THEN
1180:
1181: IF(c_Launch_Pad_Links%ISOPEN) THEN
1182: CLOSE c_Launch_Pad_Links;
1183: END IF;
1184:
1185: ROLLBACK TO deletelaunchpadlinks;
1186: IF (x_msg_data IS NULL) THEN
1187: FND_MSG_PUB.Count_And_Get
1188: ( p_encoded => FND_API.G_FALSE
1189: , p_count => x_msg_count
1190: , p_data => x_msg_data
1191: );
1192: END IF;
1189: , p_count => x_msg_count
1190: , p_data => x_msg_data
1191: );
1192: END IF;
1193: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1194: x_return_status := FND_API.G_RET_STS_ERROR;
1195:
1196: WHEN OTHERS THEN
1197:
1190: , p_data => x_msg_data
1191: );
1192: END IF;
1193: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1194: x_return_status := FND_API.G_RET_STS_ERROR;
1195:
1196: WHEN OTHERS THEN
1197:
1198: IF(c_Launch_Pad_Links%ISOPEN) THEN
1199: CLOSE c_Launch_Pad_Links;
1200: END IF;
1201:
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
1239: WHERE menu_id = p_menu_id;
1240: BEGIN
1241: SAVEPOINT deletemenufunctionlink;
1242: FND_MSG_PUB.Initialize;
1243: x_return_status := FND_API.G_RET_STS_SUCCESS;
1244:
1245: IF(p_menu_id IS NULL) THEN
1246: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1247: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
1245: IF(p_menu_id IS NULL) THEN
1246: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1247: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
1248: FND_MSG_PUB.ADD;
1249: RAISE FND_API.G_EXC_ERROR;
1250: END IF;
1251:
1252:
1253: IF(c_menu_entries%ISOPEN) THEN
1263: );
1264: END LOOP;
1265:
1266: EXCEPTION
1267: WHEN FND_API.G_EXC_ERROR THEN
1268:
1269: IF(c_menu_entries%ISOPEN) THEN
1270: CLOSE c_menu_entries;
1271: END IF;
1272:
1273: ROLLBACK TO deletemenufunctionlink;
1274: IF (x_msg_data IS NULL) THEN
1275: FND_MSG_PUB.Count_And_Get
1276: ( p_encoded => FND_API.G_FALSE
1277: , p_count => x_msg_count
1278: , p_data => x_msg_data
1279: );
1280: END IF;
1277: , p_count => x_msg_count
1278: , p_data => x_msg_data
1279: );
1280: END IF;
1281: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1282: x_return_status := FND_API.G_RET_STS_ERROR;
1283:
1284: WHEN OTHERS THEN
1285:
1278: , p_data => x_msg_data
1279: );
1280: END IF;
1281: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1282: x_return_status := FND_API.G_RET_STS_ERROR;
1283:
1284: WHEN OTHERS THEN
1285:
1286: IF(c_menu_entries%ISOPEN) THEN
1287: CLOSE c_menu_entries;
1288: END IF;
1289:
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
1324: row_id VARCHAR2(30);
1325: l_user_id NUMBER ;
1326: BEGIN
1327: FND_MSG_PUB.Initialize;
1328: x_return_status := FND_API.G_RET_STS_SUCCESS;
1329:
1330: IF(p_menu_id IS NULL) THEN
1331: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1332: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
1330: IF(p_menu_id IS NULL) THEN
1331: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1332: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_menu_id);
1333: FND_MSG_PUB.ADD;
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336:
1337: IF (p_entry_sequence IS NULL) THEN
1338: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_ENTRY_SEQUENCE');
1336:
1337: IF (p_entry_sequence IS NULL) THEN
1338: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_ENTRY_SEQUENCE');
1339: FND_MSG_PUB.ADD;
1340: RAISE FND_API.G_EXC_ERROR;
1341: END IF;
1342:
1343: l_user_id := get_User_Id;
1344:
1358: ,X_LAST_UPDATE_LOGIN => 0
1359: );
1360:
1361: EXCEPTION
1362: WHEN FND_API.G_EXC_ERROR THEN
1363: IF (x_msg_data IS NULL) THEN
1364: FND_MSG_PUB.Count_And_Get
1365: ( p_encoded => FND_API.G_FALSE
1366: , p_count => x_msg_count
1361: EXCEPTION
1362: WHEN FND_API.G_EXC_ERROR THEN
1363: IF (x_msg_data IS NULL) THEN
1364: FND_MSG_PUB.Count_And_Get
1365: ( p_encoded => FND_API.G_FALSE
1366: , p_count => x_msg_count
1367: , p_data => x_msg_data
1368: );
1369: END IF;
1367: , p_data => x_msg_data
1368: );
1369: END IF;
1370:
1371: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1372: x_return_status := FND_API.G_RET_STS_ERROR;
1373:
1374: WHEN OTHERS THEN
1375:
1368: );
1369: END IF;
1370:
1371: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1372: x_return_status := FND_API.G_RET_STS_ERROR;
1373:
1374: WHEN OTHERS THEN
1375:
1376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1372: x_return_status := FND_API.G_RET_STS_ERROR;
1373:
1374: WHEN OTHERS THEN
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
1401: +============================================================================*/
1402:
1403: PROCEDURE Create_Launch_Pad_Link
1404: (
1405: p_commit IN VARCHAR2 := FND_API.G_FALSE
1406: , p_user_function_name IN VARCHAR2
1407: , p_url IN VARCHAR2
1408: , p_type IN VARCHAR2 :='WWW'
1409: , x_function_id OUT NOCOPY FND_FORM_FUNCTIONS.function_id% TYPE
1419: row_id VARCHAR2(30);
1420: l_url FND_FORM_FUNCTIONS.web_host_name%TYPE;
1421: BEGIN
1422: FND_MSG_PUB.Initialize;
1423: x_return_status := FND_API.G_RET_STS_SUCCESS;
1424:
1425: IF (p_user_function_name IS NULL) THEN
1426: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1427: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'FUCNTION_NAME'), TRUE);
1425: IF (p_user_function_name IS NULL) THEN
1426: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1427: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'FUCNTION_NAME'), TRUE);
1428: FND_MSG_PUB.ADD;
1429: RAISE FND_API.G_EXC_ERROR;
1430: END IF;
1431:
1432:
1433: SELECT FND_FORM_FUNCTIONS_S.NEXTVAL
1466: );
1467:
1468: x_function_id := l_function_id;
1469:
1470: IF (p_commit = FND_API.G_TRUE) THEN
1471: commit;
1472: END IF;
1473:
1474: EXCEPTION
1472: END IF;
1473:
1474: EXCEPTION
1475:
1476: WHEN FND_API.G_EXC_ERROR THEN
1477: IF (x_msg_data IS NULL) THEN
1478: FND_MSG_PUB.Count_And_Get
1479: ( p_encoded => FND_API.G_FALSE
1480: , p_count => x_msg_count
1475:
1476: WHEN FND_API.G_EXC_ERROR THEN
1477: IF (x_msg_data IS NULL) THEN
1478: FND_MSG_PUB.Count_And_Get
1479: ( p_encoded => FND_API.G_FALSE
1480: , p_count => x_msg_count
1481: , p_data => x_msg_data
1482: );
1483: END IF;
1481: , p_data => x_msg_data
1482: );
1483: END IF;
1484:
1485: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487:
1488: WHEN OTHERS THEN
1489:
1482: );
1483: END IF;
1484:
1485: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487:
1488: WHEN OTHERS THEN
1489:
1490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487:
1488: WHEN OTHERS THEN
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
1530:
1531: BEGIN
1532: SAVEPOINT deletelauchpadlink;
1533: FND_MSG_PUB.Initialize;
1534: x_return_status := FND_API.G_RET_STS_SUCCESS;
1535:
1536: IF(p_fucntion_id IS NOT NULL) THEN
1537:
1538: -- Bug #3236356
1544: IF(l_count =0) THEN
1545: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1546: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_fucntion_id);
1547: FND_MSG_PUB.ADD;
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550:
1551: ELSE
1552:
1552:
1553: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MENU_ID');
1554: FND_MESSAGE.SET_TOKEN('BSC_MENU', p_fucntion_id);
1555: FND_MSG_PUB.ADD;
1556: RAISE FND_API.G_EXC_ERROR;
1557:
1558: END IF;
1559:
1560: FND_FORM_FUNCTIONS_PKG.DELETE_ROW(X_FUNCTION_ID => p_fucntion_id);
1577: END LOOP;
1578:
1579: EXCEPTION
1580:
1581: WHEN FND_API.G_EXC_ERROR THEN
1582: --DBMS_OUTPUT.PUT_LINE('p_fucntion_id---> '||p_fucntion_id);
1583: IF (c_menu_functions%ISOPEN) THEN
1584: CLOSE c_menu_functions;
1585: END IF;
1586:
1587: ROLLBACK TO deletelauchpadlink;
1588: IF (x_msg_data IS NULL) THEN
1589: FND_MSG_PUB.Count_And_Get
1590: ( p_encoded => FND_API.G_FALSE
1591: , p_count => x_msg_count
1592: , p_data => x_msg_data
1593: );
1594: END IF;
1592: , p_data => x_msg_data
1593: );
1594: END IF;
1595:
1596: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1597: x_return_status := FND_API.G_RET_STS_ERROR;
1598:
1599: WHEN OTHERS THEN
1600: --DBMS_OUTPUT.PUT_LINE('p_fucntion_id others---> '||p_fucntion_id);
1593: );
1594: END IF;
1595:
1596: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1597: x_return_status := FND_API.G_RET_STS_ERROR;
1598:
1599: WHEN OTHERS THEN
1600: --DBMS_OUTPUT.PUT_LINE('p_fucntion_id others---> '||p_fucntion_id);
1601: IF (c_menu_functions%ISOPEN) THEN
1602: CLOSE c_menu_functions;
1603: END IF;
1604:
1605: ROLLBACK TO deletelauchpadlink;
1606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1607: IF (x_msg_data IS NOT NULL) THEN
1608: x_msg_data := x_msg_data||' -> BSC_CUSTOM_VIEW_PUB.delete_Custom_View ';
1609: ELSE
1610: x_msg_data := SQLERRM||' at BSC_CUSTOM_VIEW_PUB.delete_Custom_View ';
1626:
1627:
1628: PROCEDURE Update_Launch_Pad_Link
1629: (
1630: p_commit IN VARCHAR2 := FND_API.G_FALSE
1631: , p_user_function_name IN VARCHAR2
1632: , p_url IN VARCHAR2
1633: , p_type IN VARCHAR2 :='WWW'
1634: , p_function_id IN FND_FORM_FUNCTIONS.function_id% TYPE
1640: l_function_name FND_FORM_FUNCTIONS.function_name%TYPE;
1641:
1642: BEGIN
1643: FND_MSG_PUB.Initialize;
1644: x_return_status := FND_API.G_RET_STS_SUCCESS;
1645:
1646: IF (p_user_function_name IS NULL) THEN
1647: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1648: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'FUCNTION_NAME'), TRUE);
1646: IF (p_user_function_name IS NULL) THEN
1647: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1648: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'FUCNTION_NAME'), TRUE);
1649: FND_MSG_PUB.ADD;
1650: RAISE FND_API.G_EXC_ERROR;
1651: END IF;
1652:
1653: IF (p_user_function_name IS NULL) THEN
1654: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1653: IF (p_user_function_name IS NULL) THEN
1654: FND_MESSAGE.SET_NAME('BSC','BSC_REQ_FIELD_MISSING');
1655: FND_MESSAGE.SET_TOKEN('FIELD_NAME', BSC_APPS.Get_Lookup_Value('BSC_UI_COMMON', 'ADD_URL'), TRUE);
1656: FND_MSG_PUB.ADD;
1657: RAISE FND_API.G_EXC_ERROR;
1658: END IF;
1659:
1660: l_function_name := get_Form_Function_Name(p_function_id);
1661:
1681: , X_USER_ID => get_User_Id
1682: );
1683:
1684:
1685: IF (p_commit = FND_API.G_TRUE) THEN
1686: COMMIT;
1687: END IF;
1688:
1689: EXCEPTION
1687: END IF;
1688:
1689: EXCEPTION
1690:
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: IF (x_msg_data IS NULL) THEN
1693: FND_MSG_PUB.Count_And_Get
1694: ( p_encoded => FND_API.G_FALSE
1695: , p_count => x_msg_count
1690:
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: IF (x_msg_data IS NULL) THEN
1693: FND_MSG_PUB.Count_And_Get
1694: ( p_encoded => FND_API.G_FALSE
1695: , p_count => x_msg_count
1696: , p_data => x_msg_data
1697: );
1698: END IF;
1695: , p_count => x_msg_count
1696: , p_data => x_msg_data
1697: );
1698: END IF;
1699: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1700: x_return_status := FND_API.G_RET_STS_ERROR;
1701:
1702: WHEN OTHERS THEN
1703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1696: , p_data => x_msg_data
1697: );
1698: END IF;
1699: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1700: x_return_status := FND_API.G_RET_STS_ERROR;
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
1699: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1700: x_return_status := FND_API.G_RET_STS_ERROR;
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 ';