320: lv_prev_msg := FND_MESSAGE.get();
321:
322: IF ( lv_prev_msg IS NOT NULL ) THEN
323:
324: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
325: FND_LOG.string(fnd_log.level_statement, g_log_module_name || '.' || lv_proc_name, 'Previous error message: ' || lv_prev_msg);
326: END IF;
327:
328: END IF;
321:
322: IF ( lv_prev_msg IS NOT NULL ) THEN
323:
324: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
325: FND_LOG.string(fnd_log.level_statement, g_log_module_name || '.' || lv_proc_name, 'Previous error message: ' || lv_prev_msg);
326: END IF;
327:
328: END IF;
329:
372: POS_ENTERPRISE_UTIL_PKG.get_enterprise_party_name( lv_party_name, lv_exception_msg, lv_status);
373:
374: IF ( lv_status <> 'S' ) THEN
375:
376: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
377: FND_LOG.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Error getting the Enterprise Name: ' || lv_exception_msg);
378: END IF;
379:
380: RETURN '';
373:
374: IF ( lv_status <> 'S' ) THEN
375:
376: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
377: FND_LOG.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Error getting the Enterprise Name: ' || lv_exception_msg);
378: END IF;
379:
380: RETURN '';
381: ELSE
523:
524: BEGIN
525:
526:
527: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
528: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
529: END IF;
530:
531:
524: BEGIN
525:
526:
527: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
528: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
529: END IF;
530:
531:
532: lv_registration_key := WF_ENGINE.GetItemAttrText(p_itemtype, p_itemkey, 'REGISTRATION_KEY');
545: ln_reg_id, ln_app_id, lv_reg_type, p_itemkey_fieldname,
546: 'VARCHAR2', NULL, p_itemkey, NULL, NULL);
547:
548:
549: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
550: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
551: END IF;
552:
553:
546: 'VARCHAR2', NULL, p_itemkey, NULL, NULL);
547:
548:
549: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
550: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
551: END IF;
552:
553:
554: RETURN;
555:
556: EXCEPTION
557: WHEN OTHERS THEN
558:
559: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
560: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
561: END IF;
562:
563: RAISE;
556: EXCEPTION
557: WHEN OTHERS THEN
558:
559: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
560: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
561: END IF;
562:
563: RAISE;
564: END UpdItemTypeKeyHelper;
594:
595: BEGIN
596:
597:
598: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
599: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
600: END IF;
601:
602:
595: BEGIN
596:
597:
598: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
599: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
600: END IF;
601:
602:
603: ClearError;
606:
607: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY', TRUE);
608: IF ( lv_reg_key IS NULL ) THEN
609:
610: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
611: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
612: END IF;
613:
614: RAISE NO_DATA_FOUND;
607: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY', TRUE);
608: IF ( lv_reg_key IS NULL ) THEN
609:
610: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
611: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
612: END IF;
613:
614: RAISE NO_DATA_FOUND;
615: END IF;
627: IF ( lv_reg_status <> 'INVITED' AND lv_reg_status <> 'OSNREQUESTED' ) THEN
628: SetErrMsg(MSG_REG_LOCK_FAIL);
629: resultout := 'COMPLETE:ERROR';
630:
631: IF ( fnd_log.level_error >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
632: fnd_log.string(fnd_log.level_error, g_log_module_name || '.' || lv_proc_name, 'Registration status is '||lv_reg_status);
633: END IF;
634:
635: -- hack. just to raise an arbitrary exception
628: SetErrMsg(MSG_REG_LOCK_FAIL);
629: resultout := 'COMPLETE:ERROR';
630:
631: IF ( fnd_log.level_error >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
632: fnd_log.string(fnd_log.level_error, g_log_module_name || '.' || lv_proc_name, 'Registration status is '||lv_reg_status);
633: END IF;
634:
635: -- hack. just to raise an arbitrary exception
636: RAISE NO_DATA_FOUND;
638:
639: resultout := 'COMPLETE:SUCCESS';
640:
641:
642: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
643: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
644: END IF;
645:
646:
639: resultout := 'COMPLETE:SUCCESS';
640:
641:
642: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
643: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
644: END IF;
645:
646:
647: RETURN;
650:
651: EXCEPTION
652: WHEN OTHERS THEN
653:
654: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
655: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
656: END IF;
657:
658: IF ( CheckError() IS NULL ) THEN
651: EXCEPTION
652: WHEN OTHERS THEN
653:
654: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
655: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
656: END IF;
657:
658: IF ( CheckError() IS NULL ) THEN
659: SetErrMsg(MSG_UNEXPECTED_ERROR);
694:
695: BEGIN
696:
697:
698: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
699: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
700: END IF;
701:
702:
695: BEGIN
696:
697:
698: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
699: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
700: END IF;
701:
702:
703: ClearError;
707: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY', TRUE);
708:
709: IF ( lv_reg_key IS NULL ) THEN
710:
711: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
712: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
713: END IF;
714:
715: RAISE NO_DATA_FOUND;
708:
709: IF ( lv_reg_key IS NULL ) THEN
710:
711: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
712: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
713: END IF;
714:
715: RAISE NO_DATA_FOUND;
716: END IF;
724:
725: -- check the pre-condition of an approval process
726: IF ( lv_reg_status <> 'REGISTERED' ) THEN
727:
728: IF ( fnd_log.level_error >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
729: fnd_log.string(fnd_log.level_error, g_log_module_name || '.' || lv_proc_name, 'Registration status is '||lv_reg_status);
730: END IF;
731:
732: SetErrMsg(MSG_APPRV_LOCK_FAIL);
725: -- check the pre-condition of an approval process
726: IF ( lv_reg_status <> 'REGISTERED' ) THEN
727:
728: IF ( fnd_log.level_error >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
729: fnd_log.string(fnd_log.level_error, g_log_module_name || '.' || lv_proc_name, 'Registration status is '||lv_reg_status);
730: END IF;
731:
732: SetErrMsg(MSG_APPRV_LOCK_FAIL);
733: resultout := 'COMPLETE:ERROR';
736: END IF;
737:
738: resultout := 'COMPLETE:SUCCESS';
739:
740: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
741: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
742: END IF;
743:
744: RETURN;
737:
738: resultout := 'COMPLETE:SUCCESS';
739:
740: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
741: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
742: END IF;
743:
744: RETURN;
745:
747:
748: EXCEPTION
749: WHEN OTHERS THEN
750:
751: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
752: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
753: END IF;
754:
755: IF ( CheckError() IS NULL ) THEN
748: EXCEPTION
749: WHEN OTHERS THEN
750:
751: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
752: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
753: END IF;
754:
755: IF ( CheckError() IS NULL ) THEN
756: SetErrMsg(MSG_UNEXPECTED_ERROR);
789: lv_proc_name VARCHAR2(30) := 'LockRjct';
790: BEGIN
791:
792:
793: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
794: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
795: END IF;
796:
797: LockApprv(itemtype, itemkey, actid, funcmode, resultout);
790: BEGIN
791:
792:
793: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
794: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
795: END IF;
796:
797: LockApprv(itemtype, itemkey, actid, funcmode, resultout);
798:
795: END IF;
796:
797: LockApprv(itemtype, itemkey, actid, funcmode, resultout);
798:
799: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
800: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
801: END IF;
802:
803:
796:
797: LockApprv(itemtype, itemkey, actid, funcmode, resultout);
798:
799: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
800: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
801: END IF;
802:
803:
804: END LockRjct;
830: lv_proc_name VARCHAR2(30) := 'UpdInvTypeKey';
831: BEGIN
832:
833:
834: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
835: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
836: END IF;
837:
838:
831: BEGIN
832:
833:
834: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
835: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
836: END IF;
837:
838:
839: ClearError;
845: FND_REGISTRATION_UTILS_PKG.INVITATION_WF_ITEM_KEY);
846:
847: resultout := 'COMPLETE';
848:
849: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
850: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
851: END IF;
852:
853: RETURN;
846:
847: resultout := 'COMPLETE';
848:
849: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
850: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
851: END IF;
852:
853: RETURN;
854:
856:
857: EXCEPTION
858: WHEN OTHERS THEN
859:
860: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
861: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
862: END IF;
863:
864: -- do not raise exception. if something wrong, just skip it
857: EXCEPTION
858: WHEN OTHERS THEN
859:
860: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
861: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
862: END IF;
863:
864: -- do not raise exception. if something wrong, just skip it
865: resultout := 'COMPLETE';
892: lv_proc_name VARCHAR2(30) := 'UpdRegTypeKey';
893: BEGIN
894:
895:
896: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
897: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
898: END IF;
899:
900:
893: BEGIN
894:
895:
896: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
897: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
898: END IF;
899:
900:
901: IF ( funcmode = 'RUN' ) then
905: FND_REGISTRATION_UTILS_PKG.REGISTRATION_WF_ITEM_KEY);
906:
907: resultout := 'COMPLETE';
908:
909: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
910: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
911: END IF;
912:
913: RETURN;
906:
907: resultout := 'COMPLETE';
908:
909: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
910: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
911: END IF;
912:
913: RETURN;
914:
916:
917: EXCEPTION
918: WHEN OTHERS THEN
919:
920: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
921: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
922: END IF;
923:
924: -- do not raise exception. if something wrong, just skip it
917: EXCEPTION
918: WHEN OTHERS THEN
919:
920: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
921: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
922: END IF;
923:
924: -- do not raise exception. if something wrong, just skip it
925: resultout := 'COMPLETE';
952: lv_proc_name VARCHAR2(30) := 'UpdApprvTypeKey';
953: BEGIN
954:
955:
956: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
957: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
958: END IF;
959:
960:
953: BEGIN
954:
955:
956: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
957: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
958: END IF;
959:
960:
961: IF ( funcmode = 'RUN' ) then
965: FND_REGISTRATION_UTILS_PKG.APPROVAL_WF_ITEM_KEY);
966:
967: resultout := 'COMPLETE';
968:
969: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
970: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
971: END IF;
972:
973: RETURN;
966:
967: resultout := 'COMPLETE';
968:
969: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
970: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
971: END IF;
972:
973: RETURN;
974:
976:
977: EXCEPTION
978: WHEN OTHERS THEN
979:
980: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
981: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
982: END IF;
983:
984: -- do not raise exception. if something wrong, just skip it
977: EXCEPTION
978: WHEN OTHERS THEN
979:
980: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
981: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
982: END IF;
983:
984: -- do not raise exception. if something wrong, just skip it
985: resultout := 'COMPLETE';
1012: lv_proc_name VARCHAR2(30) := 'UpdRjctTypeKey';
1013: BEGIN
1014:
1015:
1016: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1017: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1018: END IF;
1019:
1020:
1013: BEGIN
1014:
1015:
1016: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1017: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1018: END IF;
1019:
1020:
1021: IF ( funcmode = 'RUN' ) then
1025: FND_REGISTRATION_UTILS_PKG.REJECTION_WF_ITEM_KEY);
1026:
1027: resultout := 'COMPLETE';
1028:
1029: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1030: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1031: END IF;
1032:
1033: RETURN;
1026:
1027: resultout := 'COMPLETE';
1028:
1029: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1030: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1031: END IF;
1032:
1033: RETURN;
1034:
1036:
1037: EXCEPTION
1038: WHEN OTHERS THEN
1039:
1040: IF ( fnd_log.level_error >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1041: fnd_log.string(fnd_log.level_error,g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1042: END IF;
1043:
1044: -- do not raise exception. if something wrong, just skip it
1037: EXCEPTION
1038: WHEN OTHERS THEN
1039:
1040: IF ( fnd_log.level_error >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1041: fnd_log.string(fnd_log.level_error,g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1042: END IF;
1043:
1044: -- do not raise exception. if something wrong, just skip it
1045: resultout := 'COMPLETE';
1096:
1097: BEGIN
1098:
1099:
1100: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1101: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1102: END IF;
1103:
1104:
1097: BEGIN
1098:
1099:
1100: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1101: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1102: END IF;
1103:
1104:
1105: IF ( funcmode = 'RUN' ) then
1106:
1107: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY', TRUE);
1108: IF ( lv_reg_key IS NULL ) THEN
1109:
1110: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1111: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
1112: END IF;
1113:
1114: RAISE NO_DATA_FOUND;
1107: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY', TRUE);
1108: IF ( lv_reg_key IS NULL ) THEN
1109:
1110: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1111: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
1112: END IF;
1113:
1114: RAISE NO_DATA_FOUND;
1115: END IF;
1122: FROM fnd_registrations
1123: WHERE registration_id = ln_reg_id;
1124: EXCEPTION WHEN OTHERS THEN
1125:
1126: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1127: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_id_invalid);
1128: END IF;
1129:
1130: RAISE;
1123: WHERE registration_id = ln_reg_id;
1124: EXCEPTION WHEN OTHERS THEN
1125:
1126: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1127: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_id_invalid);
1128: END IF;
1129:
1130: RAISE;
1131: END;
1131: END;
1132:
1133: IF ( lv_registrant_email IS NULL ) THEN
1134:
1135: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1136: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Email is null.');
1137: END IF;
1138:
1139: SetErrMsg(MSG_REG_DATA_MISSING);
1132:
1133: IF ( lv_registrant_email IS NULL ) THEN
1134:
1135: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1136: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Email is null.');
1137: END IF;
1138:
1139: SetErrMsg(MSG_REG_DATA_MISSING);
1140: resultout := 'COMPLETE:ERROR';
1148:
1149: lv_enterprise_name := GetEnterpriseName();
1150: IF ( lv_enterprise_name IS NULL ) THEN
1151:
1152: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1153: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Enterprise name is not found.');
1154: END IF;
1155:
1156: RAISE NO_DATA_FOUND;
1149: lv_enterprise_name := GetEnterpriseName();
1150: IF ( lv_enterprise_name IS NULL ) THEN
1151:
1152: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1153: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Enterprise name is not found.');
1154: END IF;
1155:
1156: RAISE NO_DATA_FOUND;
1157: END IF;
1168:
1169: lv_reg_page_url := GetRegPageURL(lv_reg_key, lv_registrant_lang);
1170: IF ( lv_reg_page_url IS NULL ) THEN
1171:
1172: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1173: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Invitation response page URL is not found.');
1174: END IF;
1175:
1176: RAISE NO_DATA_FOUND;
1169: lv_reg_page_url := GetRegPageURL(lv_reg_key, lv_registrant_lang);
1170: IF ( lv_reg_page_url IS NULL ) THEN
1171:
1172: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1173: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Invitation response page URL is not found.');
1174: END IF;
1175:
1176: RAISE NO_DATA_FOUND;
1177: END IF;
1179: WF_ENGINE.SetItemAttrText(itemtype, itemkey, 'REG_PAGE_URL', lv_reg_page_url);
1180:
1181: resultout := 'COMPLETE:SUCCESS';
1182:
1183: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1184: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1185: END IF;
1186:
1187: RETURN;
1180:
1181: resultout := 'COMPLETE:SUCCESS';
1182:
1183: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1184: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1185: END IF;
1186:
1187: RETURN;
1188:
1189: END IF;
1190: EXCEPTION
1191: WHEN OTHERS THEN
1192:
1193: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1194: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1195: END IF;
1196:
1197: IF ( CheckError() IS NULL ) THEN
1190: EXCEPTION
1191: WHEN OTHERS THEN
1192:
1193: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1194: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1195: END IF;
1196:
1197: IF ( CheckError() IS NULL ) THEN
1198: SetErrMsg(MSG_UNEXPECTED_ERROR);
1257:
1258: BEGIN
1259:
1260:
1261: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1262: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1263: END IF;
1264:
1265:
1258: BEGIN
1259:
1260:
1261: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1262: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1263: END IF;
1264:
1265:
1266: IF ( funcmode = 'RUN' ) then
1267:
1268: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY', TRUE);
1269: IF ( lv_reg_key IS NULL ) THEN
1270:
1271: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1272: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
1273: END IF;
1274:
1275: RAISE NO_DATA_FOUND;
1268: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY', TRUE);
1269: IF ( lv_reg_key IS NULL ) THEN
1270:
1271: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1272: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
1273: END IF;
1274:
1275: RAISE NO_DATA_FOUND;
1276: END IF;
1283: FROM fnd_registrations
1284: WHERE registration_id = ln_reg_id;
1285: EXCEPTION WHEN OTHERS THEN
1286:
1287: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1288: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_id_invalid);
1289: END IF;
1290:
1291: RAISE;
1284: WHERE registration_id = ln_reg_id;
1285: EXCEPTION WHEN OTHERS THEN
1286:
1287: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1288: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_id_invalid);
1289: END IF;
1290:
1291: RAISE;
1292: END;
1292: END;
1293:
1294: IF ( lv_first_name IS NULL OR lv_last_name IS NULL ) THEN
1295:
1296: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1297: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'First or last name is missing.');
1298: END IF;
1299:
1300: SetErrMsg(MSG_REG_DATA_MISSING);
1293:
1294: IF ( lv_first_name IS NULL OR lv_last_name IS NULL ) THEN
1295:
1296: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1297: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'First or last name is missing.');
1298: END IF;
1299:
1300: SetErrMsg(MSG_REG_DATA_MISSING);
1301: resultout := 'COMPLETE:ERROR';
1332: END;
1333:
1334: IF ( ln_approver_id IS NULL ) THEN
1335:
1336: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1337: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is missing');
1338: END IF;
1339:
1340: SetErrMsg(MSG_REG_DATA_MISSING);
1333:
1334: IF ( ln_approver_id IS NULL ) THEN
1335:
1336: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1337: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is missing');
1338: END IF;
1339:
1340: SetErrMsg(MSG_REG_DATA_MISSING);
1341: resultout := 'COMPLETE:ERROR';
1348: FROM fnd_user
1349: WHERE user_id = ln_approver_id;
1350: EXCEPTION WHEN OTHERS THEN
1351:
1352: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1353: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is INVALID');
1354: END IF;
1355:
1356: RAISE;
1349: WHERE user_id = ln_approver_id;
1350: EXCEPTION WHEN OTHERS THEN
1351:
1352: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1353: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is INVALID');
1354: END IF;
1355:
1356: RAISE;
1357: END;
1378: END IF;
1379:
1380: IF ( lv_vendor_name IS NULL ) THEN
1381:
1382: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1383: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Vendor name is not found.');
1384: END IF;
1385:
1386: SetErrMsg(MSG_REG_DATA_MISSING);
1379:
1380: IF ( lv_vendor_name IS NULL ) THEN
1381:
1382: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1383: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Vendor name is not found.');
1384: END IF;
1385:
1386: SetErrMsg(MSG_REG_DATA_MISSING);
1387: resultout := 'COMPLETE:ERROR';
1400:
1401: lv_enterprise_name := GetEnterpriseName();
1402: IF ( lv_enterprise_name IS NULL ) THEN
1403:
1404: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1405: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Enterprise name is not found.');
1406: END IF;
1407:
1408: RAISE NO_DATA_FOUND;
1401: lv_enterprise_name := GetEnterpriseName();
1402: IF ( lv_enterprise_name IS NULL ) THEN
1403:
1404: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1405: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Enterprise name is not found.');
1406: END IF;
1407:
1408: RAISE NO_DATA_FOUND;
1409: END IF;
1412:
1413: lv_approval_page_url := GetApprPageURL(lv_reg_key);
1414: IF ( lv_approval_page_url IS NULL ) THEN
1415:
1416: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1417: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approval page URL is not found.');
1418: END IF;
1419:
1420: RAISE NO_DATA_FOUND;
1413: lv_approval_page_url := GetApprPageURL(lv_reg_key);
1414: IF ( lv_approval_page_url IS NULL ) THEN
1415:
1416: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1417: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approval page URL is not found.');
1418: END IF;
1419:
1420: RAISE NO_DATA_FOUND;
1421: END IF;
1424:
1425: lv_logon_page_url := GetLogonPageURL('Y');
1426: IF ( lv_logon_page_url IS NULL ) THEN
1427:
1428: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1429: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Logon page URL is NOT FOUND.');
1430: END IF;
1431:
1432: RAISE NO_DATA_FOUND;
1425: lv_logon_page_url := GetLogonPageURL('Y');
1426: IF ( lv_logon_page_url IS NULL ) THEN
1427:
1428: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1429: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Logon page URL is NOT FOUND.');
1430: END IF;
1431:
1432: RAISE NO_DATA_FOUND;
1433: END IF;
1435: WF_ENGINE.SetItemAttrText(itemtype, itemkey, 'LOGON_PAGE_URL', lv_logon_page_url);
1436:
1437: resultout := 'COMPLETE:SUCCESS';
1438:
1439: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1440: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1441: END IF;
1442:
1443: RETURN;
1436:
1437: resultout := 'COMPLETE:SUCCESS';
1438:
1439: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1440: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1441: END IF;
1442:
1443: RETURN;
1444:
1446:
1447: EXCEPTION
1448: WHEN OTHERS THEN
1449:
1450: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1451: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1452: END IF;
1453:
1454: IF ( CheckError() IS NULL ) THEN
1447: EXCEPTION
1448: WHEN OTHERS THEN
1449:
1450: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1451: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1452: END IF;
1453:
1454: IF ( CheckError() IS NULL ) THEN
1455: SetErrMsg(MSG_UNEXPECTED_ERROR);
1530:
1531: BEGIN
1532:
1533:
1534: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1535: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1536: END IF;
1537:
1538:
1531: BEGIN
1532:
1533:
1534: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1535: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1536: END IF;
1537:
1538:
1539: IF ( funcmode = 'RUN' ) then
1541: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY',
1542: TRUE);
1543: IF ( lv_reg_key IS NULL ) THEN
1544:
1545: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1546: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
1547: END IF;
1548:
1549: RAISE NO_DATA_FOUND;
1542: TRUE);
1543: IF ( lv_reg_key IS NULL ) THEN
1544:
1545: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1546: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
1547: END IF;
1548:
1549: RAISE NO_DATA_FOUND;
1550: END IF;
1557: FROM fnd_registrations
1558: WHERE registration_id = ln_reg_id;
1559: EXCEPTION WHEN OTHERS THEN
1560:
1561: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1562: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_id_invalid);
1563: END IF;
1564:
1565: RAISE;
1558: WHERE registration_id = ln_reg_id;
1559: EXCEPTION WHEN OTHERS THEN
1560:
1561: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1562: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_id_invalid);
1563: END IF;
1564:
1565: RAISE;
1566: END;
1566: END;
1567:
1568: IF ( lv_requested_user_name IS NULL OR lv_user_email IS NULL OR lv_first_name IS NULL OR lv_last_name IS NULL OR lv_phone IS NULL) THEN
1569:
1570: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1571: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Requested user name, or email, or first name, or last name, or phone is missing');
1572: END IF;
1573:
1574: SetErrMsg(MSG_REG_DATA_MISSING);
1567:
1568: IF ( lv_requested_user_name IS NULL OR lv_user_email IS NULL OR lv_first_name IS NULL OR lv_last_name IS NULL OR lv_phone IS NULL) THEN
1569:
1570: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1571: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Requested user name, or email, or first name, or last name, or phone is missing');
1572: END IF;
1573:
1574: SetErrMsg(MSG_REG_DATA_MISSING);
1575: resultout := 'COMPLETE:ERROR';
1589:
1590: lv_enterprise_name := GetEnterpriseName();
1591: IF ( lv_enterprise_name IS NULL ) THEN
1592:
1593: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1594: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Enterprise name is not found.');
1595: END IF;
1596:
1597: RAISE NO_DATA_FOUND;
1590: lv_enterprise_name := GetEnterpriseName();
1591: IF ( lv_enterprise_name IS NULL ) THEN
1592:
1593: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1594: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Enterprise name is not found.');
1595: END IF;
1596:
1597: RAISE NO_DATA_FOUND;
1598: END IF;
1622: END;
1623:
1624: IF ( ln_approver_id IS NULL ) THEN
1625:
1626: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1627: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is missing');
1628: END IF;
1629:
1630: SetErrMsg(MSG_REG_DATA_MISSING);
1623:
1624: IF ( ln_approver_id IS NULL ) THEN
1625:
1626: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1627: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is missing');
1628: END IF;
1629:
1630: SetErrMsg(MSG_REG_DATA_MISSING);
1631: resultout := 'COMPLETE:ERROR';
1639: WHERE user_id = ln_approver_id;
1640:
1641: EXCEPTION WHEN OTHERS THEN
1642:
1643: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1644: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is INVALID');
1645: END IF;
1646:
1647: RAISE;
1640:
1641: EXCEPTION WHEN OTHERS THEN
1642:
1643: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1644: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is INVALID');
1645: END IF;
1646:
1647: RAISE;
1648: END;
1656: END;
1657:
1658: IF ( ln_vendor_id IS NULL ) THEN
1659:
1660: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1661: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Vendor ID is not found.');
1662: END IF;
1663:
1664: SetErrMsg(MSG_REG_DATA_MISSING);
1657:
1658: IF ( ln_vendor_id IS NULL ) THEN
1659:
1660: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1661: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Vendor ID is not found.');
1662: END IF;
1663:
1664: SetErrMsg(MSG_REG_DATA_MISSING);
1665: resultout := 'COMPLETE:ERROR';
1732:
1733: lv_logon_page_url := GetLogonPageURL('N');
1734: IF ( lv_logon_page_url IS NULL ) THEN
1735:
1736: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1737: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Logon page URL is NOT FOUND.');
1738: END IF;
1739:
1740: RAISE NO_DATA_FOUND;
1733: lv_logon_page_url := GetLogonPageURL('N');
1734: IF ( lv_logon_page_url IS NULL ) THEN
1735:
1736: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1737: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Logon page URL is NOT FOUND.');
1738: END IF;
1739:
1740: RAISE NO_DATA_FOUND;
1741: END IF;
1756: end if;
1757:
1758: resultout := 'COMPLETE:SUCCESS';
1759:
1760: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1761: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1762: END IF;
1763:
1764: RETURN;
1757:
1758: resultout := 'COMPLETE:SUCCESS';
1759:
1760: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1761: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1762: END IF;
1763:
1764: RETURN;
1765:
1767:
1768: EXCEPTION
1769: WHEN OTHERS THEN
1770:
1771: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1772: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1773: END IF;
1774:
1775: IF ( CheckError() IS NULL ) THEN
1768: EXCEPTION
1769: WHEN OTHERS THEN
1770:
1771: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1772: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1773: END IF;
1774:
1775: IF ( CheckError() IS NULL ) THEN
1776: SetErrMsg(MSG_UNEXPECTED_ERROR);
1830: lv_proc_name VARCHAR2(30) := 'SetRjctItemAttrValues';
1831: BEGIN
1832:
1833:
1834: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1835: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1836: END IF;
1837:
1838:
1831: BEGIN
1832:
1833:
1834: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1835: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
1836: END IF;
1837:
1838:
1839: IF ( funcmode = 'RUN' ) then
1840:
1841: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY', TRUE);
1842: IF ( lv_reg_key IS NULL ) THEN
1843:
1844: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1845: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
1846: END IF;
1847:
1848: RAISE NO_DATA_FOUND;
1841: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY', TRUE);
1842: IF ( lv_reg_key IS NULL ) THEN
1843:
1844: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1845: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
1846: END IF;
1847:
1848: RAISE NO_DATA_FOUND;
1849: END IF;
1856: FROM fnd_registrations
1857: WHERE registration_id = ln_reg_id;
1858: EXCEPTION WHEN OTHERS THEN
1859:
1860: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1861: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_id_invalid);
1862: END IF;
1863:
1864: RAISE;
1857: WHERE registration_id = ln_reg_id;
1858: EXCEPTION WHEN OTHERS THEN
1859:
1860: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1861: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_id_invalid);
1862: END IF;
1863:
1864: RAISE;
1865: END;
1865: END;
1866:
1867: IF ( lv_registrant_email IS NULL ) THEN
1868:
1869: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1870: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Email is MISSING');
1871: END IF;
1872:
1873: SetErrMsg(MSG_REG_DATA_MISSING);
1866:
1867: IF ( lv_registrant_email IS NULL ) THEN
1868:
1869: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1870: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Email is MISSING');
1871: END IF;
1872:
1873: SetErrMsg(MSG_REG_DATA_MISSING);
1874: resultout := 'COMPLETE:ERROR';
1881:
1882: lv_enterprise_name := GetEnterpriseName();
1883: IF ( lv_enterprise_name IS NULL ) THEN
1884:
1885: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1886: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Enterprise name is not found.');
1887: END IF;
1888:
1889: RAISE NO_DATA_FOUND;
1882: lv_enterprise_name := GetEnterpriseName();
1883: IF ( lv_enterprise_name IS NULL ) THEN
1884:
1885: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1886: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Enterprise name is not found.');
1887: END IF;
1888:
1889: RAISE NO_DATA_FOUND;
1890: END IF;
1914: END;
1915:
1916: IF ( ln_approver_id IS NULL ) THEN
1917:
1918: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1919: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is MISSING');
1920: END IF;
1921:
1922: SetErrMsg(MSG_REG_DATA_MISSING);
1915:
1916: IF ( ln_approver_id IS NULL ) THEN
1917:
1918: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1919: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is MISSING');
1920: END IF;
1921:
1922: SetErrMsg(MSG_REG_DATA_MISSING);
1923: resultout := 'COMPLETE:ERROR';
1931: WHERE user_id = ln_approver_id;
1932:
1933: EXCEPTION WHEN OTHERS THEN
1934:
1935: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1936: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is INVALID');
1937: END IF;
1938:
1939: RAISE;
1932:
1933: EXCEPTION WHEN OTHERS THEN
1934:
1935: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1936: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Approver ID is INVALID');
1937: END IF;
1938:
1939: RAISE;
1940: END;
1942: WF_ENGINE.SetItemAttrText(itemtype, itemkey, 'CONTACT_EMAIL', lv_contact_email);
1943:
1944: resultout := 'COMPLETE:SUCCESS';
1945:
1946: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1947: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1948: END IF;
1949:
1950: RETURN;
1943:
1944: resultout := 'COMPLETE:SUCCESS';
1945:
1946: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1947: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
1948: END IF;
1949:
1950: RETURN;
1951:
1952: END IF;
1953: EXCEPTION
1954: WHEN OTHERS THEN
1955:
1956: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1957: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1958: END IF;
1959:
1960: IF ( CheckError() IS NULL ) THEN
1953: EXCEPTION
1954: WHEN OTHERS THEN
1955:
1956: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1957: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
1958: END IF;
1959:
1960: IF ( CheckError() IS NULL ) THEN
1961: SetErrMsg(MSG_UNEXPECTED_ERROR);
1997:
1998: BEGIN
1999:
2000:
2001: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2002: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
2003: END IF;
2004:
2005:
1998: BEGIN
1999:
2000:
2001: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2002: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
2003: END IF;
2004:
2005:
2006: IF ( funcmode = 'RUN' ) then
2025: notification_preference => 'MAILHTM2',
2026: email_address => lv_user_email);
2027:
2028:
2029: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2030: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'ad hoc user created');
2031: END IF;
2032:
2033:
2026: email_address => lv_user_email);
2027:
2028:
2029: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2030: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'ad hoc user created');
2031: END IF;
2032:
2033:
2034:
2031: END IF;
2032:
2033:
2034:
2035: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2036: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'confirm guest user responsibility');
2037: END IF;
2038:
2039:
2032:
2033:
2034:
2035: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2036: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'confirm guest user responsibility');
2037: END IF;
2038:
2039:
2040: POS_ANON_PKG.confirm_has_resp('POS_SUPPLIER_GUEST_USER');
2039:
2040: POS_ANON_PKG.confirm_has_resp('POS_SUPPLIER_GUEST_USER');
2041:
2042:
2043: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2044: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'guest user responsibility confirmed');
2045: END IF;
2046:
2047:
2040: POS_ANON_PKG.confirm_has_resp('POS_SUPPLIER_GUEST_USER');
2041:
2042:
2043: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2044: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'guest user responsibility confirmed');
2045: END IF;
2046:
2047:
2048: resultout := 'COMPLETE:SUCCESS';
2046:
2047:
2048: resultout := 'COMPLETE:SUCCESS';
2049:
2050: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2051: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
2052: END IF;
2053:
2054: RETURN;
2047:
2048: resultout := 'COMPLETE:SUCCESS';
2049:
2050: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2051: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
2052: END IF;
2053:
2054: RETURN;
2055:
2057:
2058: EXCEPTION
2059: WHEN OTHERS THEN
2060:
2061: IF ( fnd_log.level_error >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2062: fnd_log.string(fnd_log.level_error,g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
2063: END IF;
2064:
2065: IF ( CheckError() IS NULL ) THEN
2058: EXCEPTION
2059: WHEN OTHERS THEN
2060:
2061: IF ( fnd_log.level_error >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2062: fnd_log.string(fnd_log.level_error,g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
2063: END IF;
2064:
2065: IF ( CheckError() IS NULL ) THEN
2066: SetErrMsg(MSG_UNEXPECTED_ERROR);
2153: FETCH l_resp_id_cur INTO ln_resp_id;
2154: CLOSE l_resp_id_cur;
2155: IF ln_resp_id IS NULL THEN
2156:
2157: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2158: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' ||
2159: lv_proc_name, 'Invalid responsibility key ' || p_resp_key);
2160: END IF;
2161:
2154: CLOSE l_resp_id_cur;
2155: IF ln_resp_id IS NULL THEN
2156:
2157: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2158: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' ||
2159: lv_proc_name, 'Invalid responsibility key ' || p_resp_key);
2160: END IF;
2161:
2162: RETURN;
2173:
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176:
2177: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2178: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' ||
2179: lv_proc_name, 'Failed to assign responsibility ' ||
2180: p_resp_key || '. sqlerrm: '||sqlerrm);
2181: END IF;
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176:
2177: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2178: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' ||
2179: lv_proc_name, 'Failed to assign responsibility ' ||
2180: p_resp_key || '. sqlerrm: '||sqlerrm);
2181: END IF;
2182:
2239: p_last_update_login => fnd_global.login_id);
2240: EXCEPTION
2241: WHEN OTHERS THEN
2242:
2243: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2244: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' ||
2245: lv_proc_name, 'failed in ICX_USER_SEC_ATTR_PVT.create_user_sec_attr, sqlerrm ' || Sqlerrm);
2246: END IF;
2247:
2240: EXCEPTION
2241: WHEN OTHERS THEN
2242:
2243: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2244: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' ||
2245: lv_proc_name, 'failed in ICX_USER_SEC_ATTR_PVT.create_user_sec_attr, sqlerrm ' || Sqlerrm);
2246: END IF;
2247:
2248: RAISE;
2253: END IF;
2254:
2255: IF ln_msg_count > 0 THEN
2256:
2257: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2258: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name,
2259: 'Failed to set securing attribute for ' ||
2260: ' user_id ' || p_user_id ||
2261: ', attribute code ' || p_attribute_code ||
2254:
2255: IF ln_msg_count > 0 THEN
2256:
2257: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2258: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name,
2259: 'Failed to set securing attribute for ' ||
2260: ' user_id ' || p_user_id ||
2261: ', attribute code ' || p_attribute_code ||
2262: ', app id ' || p_app_id ||
2269: END IF;
2270:
2271: IF ln_msg_count = 1 THEN
2272:
2273: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2274: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Error message: '||lv_exception_msg);
2275: END IF;
2276:
2277: RAISE NO_DATA_FOUND;
2270:
2271: IF ln_msg_count = 1 THEN
2272:
2273: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2274: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Error message: '||lv_exception_msg);
2275: END IF;
2276:
2277: RAISE NO_DATA_FOUND;
2278: ELSIF ln_msg_count > 1 THEN
2278: ELSIF ln_msg_count > 1 THEN
2279: FOR l_index IN 1..fnd_msg_pub.count_msg LOOP
2280: lv_exception_msg := fnd_msg_pub.get(l_index);
2281:
2282: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2283: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Error message no. ' || l_index || ': ' || lv_exception_msg);
2284: END IF;
2285:
2286: END LOOP;
2279: FOR l_index IN 1..fnd_msg_pub.count_msg LOOP
2280: lv_exception_msg := fnd_msg_pub.get(l_index);
2281:
2282: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2283: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Error message no. ' || l_index || ': ' || lv_exception_msg);
2284: END IF;
2285:
2286: END LOOP;
2287: RAISE NO_DATA_FOUND;
2328: FETCH l_cur INTO l_num;
2329: IF l_cur%found THEN
2330: CLOSE l_cur;
2331:
2332: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2333: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Responsibility Security Attribute for resp_id=' || p_resp_id || ' and attribute_code=' || p_sec_attr_code || ' exists.');
2334: END IF;
2335:
2336: RETURN;
2329: IF l_cur%found THEN
2330: CLOSE l_cur;
2331:
2332: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2333: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Responsibility Security Attribute for resp_id=' || p_resp_id || ' and attribute_code=' || p_sec_attr_code || ' exists.');
2334: END IF;
2335:
2336: RETURN;
2337: END IF;
2337: END IF;
2338: CLOSE l_cur;
2339: --
2340:
2341: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2342: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Creating Responsibility Security Attribute for resp_id=' || p_resp_id || ' and attribute_code=' || p_sec_attr_code);
2343: END IF;
2344:
2345:
2338: CLOSE l_cur;
2339: --
2340:
2341: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2342: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Creating Responsibility Security Attribute for resp_id=' || p_resp_id || ' and attribute_code=' || p_sec_attr_code);
2343: END IF;
2344:
2345:
2346: INSERT INTO ak_resp_security_attributes
2366: fnd_global.login_id
2367: );
2368:
2369:
2370: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2371: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Responsibility Security Attribute created');
2372: END IF;
2373:
2374:
2367: );
2368:
2369:
2370: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2371: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Responsibility Security Attribute created');
2372: END IF;
2373:
2374:
2375: EXCEPTION
2374:
2375: EXCEPTION
2376: WHEN OTHERS THEN
2377:
2378: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2379: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
2380: END IF;
2381:
2382: IF ( CheckError() IS NULL ) THEN
2375: EXCEPTION
2376: WHEN OTHERS THEN
2377:
2378: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2379: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
2380: END IF;
2381:
2382: IF ( CheckError() IS NULL ) THEN
2383: SetErrMsg(MSG_UNEXPECTED_ERROR);
2431: FETCH l_cur INTO l_num;
2432: IF l_cur%found THEN
2433: CLOSE l_cur;
2434:
2435: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2436: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'No need to set Responsibility Security Attribute value for resp_id=' || p_resp_id || ' and attribute_code=' || p_sec_attr_code);
2437: END IF;
2438:
2439: RETURN;
2432: IF l_cur%found THEN
2433: CLOSE l_cur;
2434:
2435: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2436: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'No need to set Responsibility Security Attribute value for resp_id=' || p_resp_id || ' and attribute_code=' || p_sec_attr_code);
2437: END IF;
2438:
2439: RETURN;
2440: END IF;
2440: END IF;
2441: CLOSE l_cur;
2442: --
2443:
2444: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2445: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Setting Responsibility Security Attribute value for resp_id=' || p_resp_id || ' and attribute_code=' || p_sec_attr_code);
2446: END IF;
2447:
2448:
2441: CLOSE l_cur;
2442: --
2443:
2444: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2445: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Setting Responsibility Security Attribute value for resp_id=' || p_resp_id || ' and attribute_code=' || p_sec_attr_code);
2446: END IF;
2447:
2448:
2449: INSERT INTO ak_resp_security_attr_values
2465: p_number_value
2466: );
2467:
2468:
2469: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2470: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Responsibility Security Attribute value set');
2471: END IF;
2472:
2473:
2466: );
2467:
2468:
2469: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2470: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, 'Responsibility Security Attribute value set');
2471: END IF;
2472:
2473:
2474: EXCEPTION
2473:
2474: EXCEPTION
2475: WHEN OTHERS THEN
2476:
2477: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2478: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
2479: END IF;
2480:
2481: IF ( CheckError() IS NULL ) THEN
2474: EXCEPTION
2475: WHEN OTHERS THEN
2476:
2477: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2478: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
2479: END IF;
2480:
2481: IF ( CheckError() IS NULL ) THEN
2482: SetErrMsg(MSG_UNEXPECTED_ERROR);
2521: FETCH l_app_id_cur INTO l_isp_appl_id;
2522: IF l_app_id_cur%notfound THEN
2523: CLOSE l_app_id_cur;
2524:
2525: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2526: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Application ID for POS is not found');
2527: END IF;
2528:
2529: RAISE NO_DATA_FOUND;
2522: IF l_app_id_cur%notfound THEN
2523: CLOSE l_app_id_cur;
2524:
2525: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2526: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'Application ID for POS is not found');
2527: END IF;
2528:
2529: RAISE NO_DATA_FOUND;
2530: END IF;
2610: FETCH l_resp_id_cur INTO ln_resp_id;
2611: CLOSE l_resp_id_cur;
2612: IF ln_resp_id IS NULL THEN
2613:
2614: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2615: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' ||
2616: lv_proc_name, 'Invalid responsibility key ' || p_resp_key);
2617: END IF;
2618:
2611: CLOSE l_resp_id_cur;
2612: IF ln_resp_id IS NULL THEN
2613:
2614: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2615: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' ||
2616: lv_proc_name, 'Invalid responsibility key ' || p_resp_key);
2617: END IF;
2618:
2619: RETURN;
2746:
2747: BEGIN
2748:
2749:
2750: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2751: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
2752: END IF;
2753:
2754:
2747: BEGIN
2748:
2749:
2750: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2751: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
2752: END IF;
2753:
2754:
2755: IF ( funcmode = 'RUN' ) then
2757: -- retrieve user info
2758: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY',TRUE);
2759: IF ( lv_reg_key IS NULL ) THEN
2760:
2761: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2762: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
2763: END IF;
2764:
2765: RAISE NO_DATA_FOUND;
2758: lv_reg_key := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'REGISTRATION_KEY',TRUE);
2759: IF ( lv_reg_key IS NULL ) THEN
2760:
2761: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2762: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, g_log_reg_key_notfound);
2763: END IF;
2764:
2765: RAISE NO_DATA_FOUND;
2766: END IF;
2813:
2814: IF lv_unencrypted_password IS NULL THEN
2815: lv_unencrypted_password := fnd_crypto.smallrandomnumber();
2816:
2817: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2818: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'unable to generate password');
2819: END IF;
2820:
2821: END IF;
2814: IF lv_unencrypted_password IS NULL THEN
2815: lv_unencrypted_password := fnd_crypto.smallrandomnumber();
2816:
2817: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2818: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'unable to generate password');
2819: END IF;
2820:
2821: END IF;
2822:
2838: NULL; -- good. to create user later
2839:
2840: WHEN OTHERS THEN
2841:
2842: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2843: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.selectfnduser', Sqlerrm);
2844: END IF;
2845:
2846: IF ( CheckError() IS NULL ) THEN
2839:
2840: WHEN OTHERS THEN
2841:
2842: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2843: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.selectfnduser', Sqlerrm);
2844: END IF;
2845:
2846: IF ( CheckError() IS NULL ) THEN
2847: SetErrMsg(MSG_USER_CREATION_FAIL);
2851: END;
2852:
2853: -- Create User Party in TCA
2854:
2855: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2856: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Creating vendor user');
2857: END IF;
2858:
2859: SELECT party_id INTO l_vendor_party_id FROM po_vendors WHERE vendor_id = ln_vendor_id;
2852:
2853: -- Create User Party in TCA
2854:
2855: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2856: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Creating vendor user');
2857: END IF;
2858:
2859: SELECT party_id INTO l_vendor_party_id FROM po_vendors WHERE vendor_id = ln_vendor_id;
2860:
2877: );
2878:
2879: IF l_return_status IS NULL OR l_return_status <> fnd_api.g_ret_sts_success THEN
2880:
2881: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2882: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'POS_VENDOR_UTIL_PKG error message: '||lv_exception_msg);
2883: END IF;
2884:
2885: SetErrMsg(MSG_VENDORUSER_CREATION_FAIL);
2878:
2879: IF l_return_status IS NULL OR l_return_status <> fnd_api.g_ret_sts_success THEN
2880:
2881: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2882: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name, 'POS_VENDOR_UTIL_PKG error message: '||lv_exception_msg);
2883: END IF;
2884:
2885: SetErrMsg(MSG_VENDORUSER_CREATION_FAIL);
2886: resultout := 'COMPLETE:ERROR';
2888: RAISE NO_DATA_FOUND;
2889: END IF;
2890:
2891:
2892: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2893: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Vendor user created');
2894: END IF;
2895:
2896: pos_user_admin_pkg.create_supplier_user_account
2889: END IF;
2890:
2891:
2892: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2893: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Vendor user created');
2894: END IF;
2895:
2896: pos_user_admin_pkg.create_supplier_user_account
2897: (p_user_name => lv_user_name,
2908: x_user_id => ln_user_fnd_id,
2909: x_password => lv_unencrypted_password
2910: );
2911:
2912: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2913: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Creating vendor user details');
2914: END IF;
2915:
2916: WF_ENGINE.SetItemAttrText(itemtype, itemkey, 'ASSIGNED_USER_NAME', upper(lv_user_name));
2909: x_password => lv_unencrypted_password
2910: );
2911:
2912: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2913: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Creating vendor user details');
2914: END IF;
2915:
2916: WF_ENGINE.SetItemAttrText(itemtype, itemkey, 'ASSIGNED_USER_NAME', upper(lv_user_name));
2917:
2928:
2929: -- Set user Responsibility
2930:
2931:
2932: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2933: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting user responsibility');
2934: END IF;
2935:
2936: OPEN l_user_resp_app_cur(ln_reg_id, 'POS_SUPPLIER_RESP_ID');
2929: -- Set user Responsibility
2930:
2931:
2932: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2933: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting user responsibility');
2934: END IF;
2935:
2936: OPEN l_user_resp_app_cur(ln_reg_id, 'POS_SUPPLIER_RESP_ID');
2937: ln_counter := 0;
2959:
2960: -- set supplier security attribute
2961:
2962:
2963: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2964: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting supplier security attribute');
2965: END IF;
2966:
2967: BEGIN
2960: -- set supplier security attribute
2961:
2962:
2963: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2964: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting supplier security attribute');
2965: END IF;
2966:
2967: BEGIN
2968: --SetSecAttr(ln_user_fnd_id, 'ICX_SUPPLIER_ORG_ID', ln_pos_app_id, NULL, NULL, ln_vendor_id);
2984: RAISE;
2985: END;
2986:
2987:
2988: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2989: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Supplier security attribute set');
2990: END IF;
2991:
2992:
2985: END;
2986:
2987:
2988: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2989: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Supplier security attribute set');
2990: END IF;
2991:
2992:
2993: -- set site security attribute
2991:
2992:
2993: -- set site security attribute
2994:
2995: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2996: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting site security attribute');
2997: END IF;
2998:
2999: OPEN l_site_cont_id_cur(ln_reg_id, 'POS_SUPPLIER_SITE_ID');
2992:
2993: -- set site security attribute
2994:
2995: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2996: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting site security attribute');
2997: END IF;
2998:
2999: OPEN l_site_cont_id_cur(ln_reg_id, 'POS_SUPPLIER_SITE_ID');
3000: ln_counter := 0;
3013: END LOOP;
3014: CLOSE l_site_cont_id_cur;
3015:
3016:
3017: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3018: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Site security attribute set');
3019: END IF;
3020:
3021:
3014: CLOSE l_site_cont_id_cur;
3015:
3016:
3017: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3018: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Site security attribute set');
3019: END IF;
3020:
3021:
3022: -- set contact security attribute
3020:
3021:
3022: -- set contact security attribute
3023:
3024: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3025: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting contact security attribute');
3026: END IF;
3027:
3028: OPEN l_site_cont_id_cur(ln_reg_id, 'POS_SUPPLIER_CONTACT_ID');
3021:
3022: -- set contact security attribute
3023:
3024: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3025: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting contact security attribute');
3026: END IF;
3027:
3028: OPEN l_site_cont_id_cur(ln_reg_id, 'POS_SUPPLIER_CONTACT_ID');
3029: ln_counter := 0;
3042: END LOOP;
3043: CLOSE l_site_cont_id_cur;
3044:
3045:
3046: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3047: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Contact security attribute set');
3048: END IF;
3049:
3050:
3043: CLOSE l_site_cont_id_cur;
3044:
3045:
3046: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3047: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Contact security attribute set');
3048: END IF;
3049:
3050:
3051: -- set user level APPS_WEB_AGENT profile option value
3059: X_VALUE => 'Local',
3060: X_LEVEL_NAME => 'USER',
3061: X_LEVEL_VALUE => to_char(ln_user_fnd_id),
3062: X_LEVEL_VALUE_APP_ID => NULL) ) THEN
3063: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3064: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SSO_LOCAL_LOGIN profile option value set');
3065: END IF;
3066: ELSE
3067: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3060: X_LEVEL_NAME => 'USER',
3061: X_LEVEL_VALUE => to_char(ln_user_fnd_id),
3062: X_LEVEL_VALUE_APP_ID => NULL) ) THEN
3063: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3064: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SSO_LOCAL_LOGIN profile option value set');
3065: END IF;
3066: ELSE
3067: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3068: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SSO_LOCAL_LOGIN profile option value fail');
3063: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3064: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SSO_LOCAL_LOGIN profile option value set');
3065: END IF;
3066: ELSE
3067: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3068: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SSO_LOCAL_LOGIN profile option value fail');
3069: END IF;
3070: END IF;
3071: END IF;
3064: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SSO_LOCAL_LOGIN profile option value set');
3065: END IF;
3066: ELSE
3067: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3068: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SSO_LOCAL_LOGIN profile option value fail');
3069: END IF;
3070: END IF;
3071: END IF;
3072:
3071: END IF;
3072:
3073: resultout := 'COMPLETE:SUCCESS';
3074:
3075: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3076: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3077: END IF;
3078:
3079: RETURN;
3072:
3073: resultout := 'COMPLETE:SUCCESS';
3074:
3075: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3076: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3077: END IF;
3078:
3079: RETURN;
3080:
3082:
3083: EXCEPTION
3084: WHEN OTHERS THEN
3085:
3086: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3087: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
3088: END IF;
3089:
3090: IF ( CheckError() IS NULL ) THEN
3083: EXCEPTION
3084: WHEN OTHERS THEN
3085:
3086: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3087: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', Sqlerrm);
3088: END IF;
3089:
3090: IF ( CheckError() IS NULL ) THEN
3091: SetErrMsg(MSG_UNEXPECTED_ERROR);
3124: lv_flag := ''; -- we want it to be case sensitive for now.
3125: If (owa_pattern.match(lv_external_web_agent,lv_pattern, lv_flag)) then
3126: -- The external profile still points to icx web site.
3127:
3128: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3129: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting user level APPS_WEB_AGENT profile option value');
3130: END IF;
3131:
3132: IF ( fnd_profile.save( x_name => 'APPS_WEB_AGENT',
3125: If (owa_pattern.match(lv_external_web_agent,lv_pattern, lv_flag)) then
3126: -- The external profile still points to icx web site.
3127:
3128: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3129: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'Setting user level APPS_WEB_AGENT profile option value');
3130: END IF;
3131:
3132: IF ( fnd_profile.save( x_name => 'APPS_WEB_AGENT',
3133: x_value => lv_external_web_agent,
3133: x_value => lv_external_web_agent,
3134: x_level_name => 'USER',
3135: x_level_value => p_userid ) ) THEN
3136:
3137: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3138: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_WEB_AGENT profile option value set');
3139: END IF;
3140:
3141: ELSE
3134: x_level_name => 'USER',
3135: x_level_value => p_userid ) ) THEN
3136:
3137: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3138: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_WEB_AGENT profile option value set');
3139: END IF;
3140:
3141: ELSE
3142:
3139: END IF;
3140:
3141: ELSE
3142:
3143: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3144: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_WEB_AGENT profile option value fail');
3145: END IF;
3146:
3147: END IF;
3140:
3141: ELSE
3142:
3143: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3144: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_WEB_AGENT profile option value fail');
3145: END IF;
3146:
3147: END IF;
3148:
3151: x_value => lv_ext_servlet_agent,
3152: x_level_name => 'USER',
3153: x_level_value => p_userid ) ) THEN
3154:
3155: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3156: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SERVLET_AGENT profile option value set');
3157: END IF;
3158:
3159: ELSE
3152: x_level_name => 'USER',
3153: x_level_value => p_userid ) ) THEN
3154:
3155: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3156: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SERVLET_AGENT profile option value set');
3157: END IF;
3158:
3159: ELSE
3160:
3157: END IF;
3158:
3159: ELSE
3160:
3161: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3162: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SERVLET_AGENT profile option value fail');
3163: END IF;
3164:
3165: END IF;
3158:
3159: ELSE
3160:
3161: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3162: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_SERVLET_AGENT profile option value fail');
3163: END IF;
3164:
3165: END IF;
3166:
3169: x_value => lv_ext_servlet_agent,
3170: x_level_name => 'USER',
3171: x_level_value => p_userid ) ) THEN
3172:
3173: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3174: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_FRAMEWORK_AGENT profile option value set');
3175: END IF;
3176:
3177: ELSE
3170: x_level_name => 'USER',
3171: x_level_value => p_userid ) ) THEN
3172:
3173: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3174: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_FRAMEWORK_AGENT profile option value set');
3175: END IF;
3176:
3177: ELSE
3178:
3175: END IF;
3176:
3177: ELSE
3178:
3179: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3180: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_FRAMEWORK_AGENT profile option value fail');
3181: END IF;
3182:
3183: END IF;
3176:
3177: ELSE
3178:
3179: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3180: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_FRAMEWORK_AGENT profile option value fail');
3181: END IF;
3182:
3183: END IF;
3184: ELSE
3186: x_value => lv_ext_servlet_agent,
3187: x_level_name => 'USER',
3188: x_level_value => p_userid ) ) THEN
3189:
3190: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3191: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_FRAMEWORK_AGENT profile option value set');
3192: END IF;
3193:
3194: ELSE
3187: x_level_name => 'USER',
3188: x_level_value => p_userid ) ) THEN
3189:
3190: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3191: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_FRAMEWORK_AGENT profile option value set');
3192: END IF;
3193:
3194: ELSE
3195:
3192: END IF;
3193:
3194: ELSE
3195:
3196: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3197: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_FRAMEWORK_AGENT profile option value fail');
3198: END IF;
3199:
3200: END IF;
3193:
3194: ELSE
3195:
3196: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3197: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_FRAMEWORK_AGENT profile option value fail');
3198: END IF;
3199:
3200: END IF;
3201: -- set only the framework agent. there is no way to set web agent
3205: x_value => lv_ext_servlet_agent,
3206: x_level_name => 'USER',
3207: x_level_value => p_userid ) ) THEN
3208:
3209: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3210: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_servlet_AGENT profile option value set');
3211: END IF;
3212:
3213: ELSE
3206: x_level_name => 'USER',
3207: x_level_value => p_userid ) ) THEN
3208:
3209: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3210: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_servlet_AGENT profile option value set');
3211: END IF;
3212:
3213: ELSE
3214:
3211: END IF;
3212:
3213: ELSE
3214:
3215: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3216: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_servlet_AGENT profile option value fail');
3217: END IF;
3218:
3219: END IF;
3212:
3213: ELSE
3214:
3215: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3216: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'User level APPS_servlet_AGENT profile option value fail');
3217: END IF;
3218:
3219: END IF;
3220: End if;
3220: End if;
3221:
3222: ELSE
3223:
3224: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3225: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'POS_EXTERNAL_URL is not set');
3226: END IF;
3227:
3228: END IF;
3221:
3222: ELSE
3223:
3224: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3225: fnd_log.string(fnd_log.level_procedure, g_log_module_name || '.' || lv_proc_name, 'POS_EXTERNAL_URL is not set');
3226: END IF;
3227:
3228: END IF;
3229:
3260:
3261: BEGIN
3262:
3263:
3264: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3265: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
3266: END IF;
3267:
3268:
3261: BEGIN
3262:
3263:
3264: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3265: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
3266: END IF;
3267:
3268:
3269: IF ( funcmode = 'RUN' ) then
3276: resultout := 'COMPLETE:N';
3277: END IF;
3278: END IF;
3279:
3280: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3281: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3282: END IF;
3283:
3284: RETURN;
3277: END IF;
3278: END IF;
3279:
3280: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3281: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3282: END IF;
3283:
3284: RETURN;
3285:
3286: EXCEPTION
3287: WHEN OTHERS THEN
3288: -- do not raise exception. if something wrong, just assume non-invitation
3289:
3290: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3291: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', sqlerrm);
3292: END IF;
3293:
3294: resultout := 'COMPLETE:N';
3287: WHEN OTHERS THEN
3288: -- do not raise exception. if something wrong, just assume non-invitation
3289:
3290: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3291: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', sqlerrm);
3292: END IF;
3293:
3294: resultout := 'COMPLETE:N';
3295: RETURN;
3322: lv_proc_name VARCHAR2(30) := 'CheckRejectMailSent';
3323: BEGIN
3324:
3325:
3326: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3327: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
3328: END IF;
3329:
3330:
3323: BEGIN
3324:
3325:
3326: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3327: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
3328: END IF;
3329:
3330:
3331: IF ( funcmode = 'RUN' ) then
3341:
3342: END IF;
3343:
3344:
3345: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3346: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3347: END IF;
3348:
3349:
3342: END IF;
3343:
3344:
3345: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3346: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3347: END IF;
3348:
3349:
3350: EXCEPTION WHEN OTHERS THEN
3349:
3350: EXCEPTION WHEN OTHERS THEN
3351: -- do not raise exception. if something wrong, just assume 'SENT'
3352:
3353: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3354: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', sqlerrm);
3355: END IF;
3356:
3357: resultout := 'COMPLETE:Y';
3350: EXCEPTION WHEN OTHERS THEN
3351: -- do not raise exception. if something wrong, just assume 'SENT'
3352:
3353: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3354: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', sqlerrm);
3355: END IF;
3356:
3357: resultout := 'COMPLETE:Y';
3358: RETURN;
3386:
3387: BEGIN
3388:
3389:
3390: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3391: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
3392: END IF;
3393:
3394:
3387: BEGIN
3388:
3389:
3390: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3391: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
3392: END IF;
3393:
3394:
3395: IF ( funcmode = 'RUN' ) then
3396:
3397: SetErrMsg(FND_REGISTRATION_UTILS_PKG.EVENT_SUCCESS);
3398: resultout := 'COMPLETE';
3399:
3400: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3401: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3402: END IF;
3403:
3404: RETURN;
3397: SetErrMsg(FND_REGISTRATION_UTILS_PKG.EVENT_SUCCESS);
3398: resultout := 'COMPLETE';
3399:
3400: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3401: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3402: END IF;
3403:
3404: RETURN;
3405: END IF;
3528:
3529: BEGIN
3530:
3531:
3532: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3533: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
3534: END IF;
3535:
3536:
3529: BEGIN
3530:
3531:
3532: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3533: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_start);
3534: END IF;
3535:
3536:
3537: IF ( funcmode = 'RUN' ) then
3544: resultout := 'COMPLETE:N';
3545: END IF;
3546: END IF;
3547:
3548: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3549: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3550: END IF;
3551:
3552: RETURN;
3545: END IF;
3546: END IF;
3547:
3548: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3549: fnd_log.string(fnd_log.level_procedure,g_log_module_name || '.' || lv_proc_name, g_log_proc_end);
3550: END IF;
3551:
3552: RETURN;
3553:
3554: EXCEPTION
3555: WHEN OTHERS THEN
3556: -- do not raise exception. if something's wrong, just assume non-osnrequest
3557:
3558: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3559: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', sqlerrm);
3560: END IF;
3561:
3562: resultout := 'COMPLETE:N';
3555: WHEN OTHERS THEN
3556: -- do not raise exception. if something's wrong, just assume non-osnrequest
3557:
3558: IF ( fnd_log.level_exception >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3559: fnd_log.string(fnd_log.level_exception, g_log_module_name || '.' || lv_proc_name || '.exception', sqlerrm);
3560: END IF;
3561:
3562: resultout := 'COMPLETE:N';
3563: RETURN;