573: l_org_name hr_operating_units.name%TYPE;
574:
575: BEGIN
576:
577: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ENTER');
579: END IF;
580:
581: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
574:
575: BEGIN
576:
577: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ENTER');
579: END IF;
580:
581: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
582: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
577: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ENTER');
579: END IF;
580:
581: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
582: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
583: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ERROR_MESG_SUPPR='||ERROR_MESG_SUPPR);
584: END IF;
585:
578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ENTER');
579: END IF;
580:
581: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
582: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
583: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ERROR_MESG_SUPPR='||ERROR_MESG_SUPPR);
584: END IF;
585:
586: --call mo_global api
579: END IF;
580:
581: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
582: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
583: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ERROR_MESG_SUPPR='||ERROR_MESG_SUPPR);
584: END IF;
585:
586: --call mo_global api
587: MO_GLOBAL.validate_orgid_pub_api(
588: ORG_ID,
589: ERROR_MESG_SUPPR,
590: STATUS);
591:
592: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
593: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'successfully executed MO_GLOBAL.validate_orgid_pub_api()');
594: END IF;
595:
596:
589: ERROR_MESG_SUPPR,
590: STATUS);
591:
592: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
593: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'successfully executed MO_GLOBAL.validate_orgid_pub_api()');
594: END IF;
595:
596:
597: --process output
600: AND ORG_ID is null THEN
601:
602: BEGIN
603:
604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
605: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'case: ORG_ID is null');
606: END IF;
607:
608: --try to pick first org that user has access to
601:
602: BEGIN
603:
604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
605: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'case: ORG_ID is null');
606: END IF;
607:
608: --try to pick first org that user has access to
609: SELECT
620: AND hr.organization_id = s.org_id
621: AND s.set_of_books_id > 0
622: AND rownum < 2;
623:
624: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
625: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_id='||l_org_id);
626: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_name='||l_org_name);
627: END IF;
628:
621: AND s.set_of_books_id > 0
622: AND rownum < 2;
623:
624: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
625: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_id='||l_org_id);
626: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_name='||l_org_name);
627: END IF;
628:
629: IF l_org_id is not null THEN
622: AND rownum < 2;
623:
624: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
625: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_id='||l_org_id);
626: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_name='||l_org_name);
627: END IF;
628:
629: IF l_org_id is not null THEN
630: ORG_ID := l_org_id;
633:
634: EXCEPTION
635: WHEN no_data_found THEN
636:
637: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception no_data_found in sql=SELECT hr.organization_id,hr.name FROM hr_operating_units hr WHERE mo_global.check_access(hr.organization_id) = "Y" AND rownum < 2');
639: END IF;
640:
641: --if an org is still not available let default behavior persist
634: EXCEPTION
635: WHEN no_data_found THEN
636:
637: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception no_data_found in sql=SELECT hr.organization_id,hr.name FROM hr_operating_units hr WHERE mo_global.check_access(hr.organization_id) = "Y" AND rownum < 2');
639: END IF;
640:
641: --if an org is still not available let default behavior persist
642:
645: END IF;
646:
647:
648:
649: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
650: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
652: END IF;
653:
646:
647:
648:
649: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
650: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
652: END IF;
653:
654: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
647:
648:
649: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
650: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
652: END IF;
653:
654: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
655: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'EXIT');
650: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
652: END IF;
653:
654: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
655: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'EXIT');
656: END IF;
657:
658: RETURN;
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
652: END IF;
653:
654: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
655: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'EXIT');
656: END IF;
657:
658: RETURN;
659:
661: EXCEPTION
662:
663: WHEN others THEN
664:
665: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
666: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception in MO_GLOBAL.validate_orgid_pub_api()');
667: END IF;
668:
669: --note there is similar handling in main block of this api to handle case ERROR_MESG_SUPPR = "N'
662:
663: WHEN others THEN
664:
665: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
666: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception in MO_GLOBAL.validate_orgid_pub_api()');
667: END IF;
668:
669: --note there is similar handling in main block of this api to handle case ERROR_MESG_SUPPR = "N'
670: IF ORG_ID is null THEN
669: --note there is similar handling in main block of this api to handle case ERROR_MESG_SUPPR = "N'
670: IF ORG_ID is null THEN
671: BEGIN
672:
673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
674: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'case: ORG_ID is null');
675: END IF;
676:
677: --try to pick first org that user has access to
670: IF ORG_ID is null THEN
671: BEGIN
672:
673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
674: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'case: ORG_ID is null');
675: END IF;
676:
677: --try to pick first org that user has access to
678: SELECT
689: AND hr.organization_id = s.org_id
690: AND s.set_of_books_id > 0
691: AND rownum < 2;
692:
693: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
694: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_id='||l_org_id);
695: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_name='||l_org_name);
696: END IF;
697:
690: AND s.set_of_books_id > 0
691: AND rownum < 2;
692:
693: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
694: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_id='||l_org_id);
695: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_name='||l_org_name);
696: END IF;
697:
698: IF l_org_id is null THEN
691: AND rownum < 2;
692:
693: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
694: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_id='||l_org_id);
695: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'l_org_name='||l_org_name);
696: END IF;
697:
698: IF l_org_id is null THEN
699:
696: END IF;
697:
698: IF l_org_id is null THEN
699:
700: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
701: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ERROR: raising APP_EXCEPTION.RAISE_EXCEPTION');
702: END IF;
703:
704: APP_EXCEPTION.RAISE_EXCEPTION;
697:
698: IF l_org_id is null THEN
699:
700: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
701: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ERROR: raising APP_EXCEPTION.RAISE_EXCEPTION');
702: END IF;
703:
704: APP_EXCEPTION.RAISE_EXCEPTION;
705:
707:
708: ORG_ID := l_org_id;
709: STATUS := 'R';
710:
711: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
712: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
714: END IF;
715:
708: ORG_ID := l_org_id;
709: STATUS := 'R';
710:
711: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
712: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
714: END IF;
715:
716: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
709: STATUS := 'R';
710:
711: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
712: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
714: END IF;
715:
716: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
717: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'EXIT');
712: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
714: END IF;
715:
716: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
717: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'EXIT');
718: END IF;
719:
720: RETURN;
713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'STATUS='||STATUS);
714: END IF;
715:
716: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
717: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'EXIT');
718: END IF;
719:
720: RETURN;
721:
723:
724: EXCEPTION
725: WHEN no_data_found THEN
726:
727: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception no_data_found in sql=SELECT hr.organization_id,hr.name FROM hr_operating_units hr WHERE mo_global.check_access(hr.organization_id) = "Y" AND rownum < 2');
729: END IF;
730:
731: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
724: EXCEPTION
725: WHEN no_data_found THEN
726:
727: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception no_data_found in sql=SELECT hr.organization_id,hr.name FROM hr_operating_units hr WHERE mo_global.check_access(hr.organization_id) = "Y" AND rownum < 2');
729: END IF;
730:
731: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
732: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ERROR: raising APP_EXCEPTION.RAISE_EXCEPTION');
727: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception no_data_found in sql=SELECT hr.organization_id,hr.name FROM hr_operating_units hr WHERE mo_global.check_access(hr.organization_id) = "Y" AND rownum < 2');
729: END IF;
730:
731: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
732: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ERROR: raising APP_EXCEPTION.RAISE_EXCEPTION');
733: END IF;
734:
735: --if an org is still not available let default behavior persist
728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception no_data_found in sql=SELECT hr.organization_id,hr.name FROM hr_operating_units hr WHERE mo_global.check_access(hr.organization_id) = "Y" AND rownum < 2');
729: END IF;
730:
731: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
732: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ERROR: raising APP_EXCEPTION.RAISE_EXCEPTION');
733: END IF;
734:
735: --if an org is still not available let default behavior persist
736: APP_EXCEPTION.RAISE_EXCEPTION;
740: --IF ORG_ID is not null
741: --let default behavior persist
742:
743:
744: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
745: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'case: ORG_ID is not null');
746: END IF;
747:
748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
741: --let default behavior persist
742:
743:
744: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
745: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'case: ORG_ID is not null');
746: END IF;
747:
748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
749: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ERROR: raising APP_EXCEPTION.RAISE_EXCEPTION');
744: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
745: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'case: ORG_ID is not null');
746: END IF;
747:
748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
749: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ERROR: raising APP_EXCEPTION.RAISE_EXCEPTION');
750: END IF;
751:
752: APP_EXCEPTION.RAISE_EXCEPTION;
745: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'case: ORG_ID is not null');
746: END IF;
747:
748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
749: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ERROR: raising APP_EXCEPTION.RAISE_EXCEPTION');
750: END IF;
751:
752: APP_EXCEPTION.RAISE_EXCEPTION;
753: END IF;