183: end if;
184:
185: if length(p_ProcName) > g_MaxProcLength then
186: x_ErrorCode := -191332;
187: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_NAME_TOO_LONG');
188: x_ErrorString := FND_MESSAGE.GET;
189: return;
190: end if;
191:
184:
185: if length(p_ProcName) > g_MaxProcLength then
186: x_ErrorCode := -191332;
187: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_NAME_TOO_LONG');
188: x_ErrorString := FND_MESSAGE.GET;
189: return;
190: end if;
191:
192: CheckIfDuplicate(p_ProcName => x_PackageName || '.' || p_ProcName,
195: p_DuplicateType => l_DupType);
196:
197: if l_IsDup then
198: x_ErrorCode := -191226;
199: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_NAME_EXISTS');
200: x_ErrorString := FND_MESSAGE.GET;
201: return;
202: end if;
203:
196:
197: if l_IsDup then
198: x_ErrorCode := -191226;
199: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_NAME_EXISTS');
200: x_ErrorString := FND_MESSAGE.GET;
201: return;
202: end if;
203:
204: end GeneratePackageName;
442: X_ERROR_STRING => x_ErrorString);
443:
444: if x_ErrorCode <> 0 then
445: x_ErrorCode := -197018;
446: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
447: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
448: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
449: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
450: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
443:
444: if x_ErrorCode <> 0 then
445: x_ErrorCode := -197018;
446: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
447: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
448: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
449: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
450: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
451:
444: if x_ErrorCode <> 0 then
445: x_ErrorCode := -197018;
446: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
447: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
448: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
449: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
450: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
451:
452: x_ErrorString := FND_MESSAGE.GET;
445: x_ErrorCode := -197018;
446: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
447: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
448: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
449: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
450: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
451:
452: x_ErrorString := FND_MESSAGE.GET;
453: end if;
446: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
447: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
448: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
449: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
450: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
451:
452: x_ErrorString := FND_MESSAGE.GET;
453: end if;
454: end GeneratePackageSpec;
448: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
449: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
450: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
451:
452: x_ErrorString := FND_MESSAGE.GET;
453: end if;
454: end GeneratePackageSpec;
455:
456: --
521: X_ERROR_STRING => x_ErrorString);
522:
523: if x_ErrorCode <> 0 then
524: x_ErrorCode := -197018;
525: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
526: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
527: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
528: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
529: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
522:
523: if x_ErrorCode <> 0 then
524: x_ErrorCode := -197018;
525: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
526: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
527: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
528: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
529: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
530:
523: if x_ErrorCode <> 0 then
524: x_ErrorCode := -197018;
525: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
526: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
527: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
528: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
529: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
530:
531: x_ErrorString := FND_MESSAGE.GET;
524: x_ErrorCode := -197018;
525: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
526: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
527: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
528: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
529: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
530:
531: x_ErrorString := FND_MESSAGE.GET;
532: end if;
525: FND_MESSAGE.SET_NAME('XDP', 'XDP_PROC_COMPILE_ERROR');
526: FND_MESSAGE.SET_TOKEN('PROC_TYPE', GetProcDispName(p_ProcType));
527: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
528: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
529: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
530:
531: x_ErrorString := FND_MESSAGE.GET;
532: end if;
533: end GeneratePackageBody;
527: FND_MESSAGE.SET_TOKEN('PROC_NAME', p_ProcName);
528: FND_MESSAGE.SET_TOKEN('ERR_CODE', x_ErrorCode);
529: FND_MESSAGE.SET_TOKEN('ERR_STR', x_ErrorString);
530:
531: x_ErrorString := FND_MESSAGE.GET;
532: end if;
533: end GeneratePackageBody;
534:
535: --
592: -- Connect/Disconnect Procedure
593: if pv_WIParamUsed or pv_FAParamUsed or
594: pv_OrderParamUsed or pv_LineParamUsed then
595: x_ErrorCode := -197019;
596: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
597: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
598: GetParamDispName(p_OrderParam => true,
599: p_LineParam => true,
600: p_WIParam => true,
593: if pv_WIParamUsed or pv_FAParamUsed or
594: pv_OrderParamUsed or pv_LineParamUsed then
595: x_ErrorCode := -197019;
596: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
597: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
598: GetParamDispName(p_OrderParam => true,
599: p_LineParam => true,
600: p_WIParam => true,
601: p_FAParam => true));
598: GetParamDispName(p_OrderParam => true,
599: p_LineParam => true,
600: p_WIParam => true,
601: p_FAParam => true));
602: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
603: GetProcDispName(p_ProcType));
604:
605: x_ErrorString := FND_MESSAGE.GET;
606: return;
601: p_FAParam => true));
602: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
603: GetProcDispName(p_ProcType));
604:
605: x_ErrorString := FND_MESSAGE.GET;
606: return;
607: else
608: -- Check the actual FE Attribute name's validity for the
609: -- FE Type
616: elsif p_ProcType = g_SvcWIMapType then
617: -- WI or FA Paramters cannot be used in a Svc-WI Mapping procedure
618: if pv_WIParamUsed or pv_FAParamUsed then
619: x_ErrorCode := -197019;
620: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
621: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
622: GetParamDispName(p_WIParam => true,
623: p_FAParam => true));
624: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
617: -- WI or FA Paramters cannot be used in a Svc-WI Mapping procedure
618: if pv_WIParamUsed or pv_FAParamUsed then
619: x_ErrorCode := -197019;
620: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
621: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
622: GetParamDispName(p_WIParam => true,
623: p_FAParam => true));
624: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
625: GetProcDispName(p_ProcType));
620: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
621: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
622: GetParamDispName(p_WIParam => true,
623: p_FAParam => true));
624: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
625: GetProcDispName(p_ProcType));
626:
627: x_ErrorString := FND_MESSAGE.GET;
628: return;
623: p_FAParam => true));
624: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
625: GetProcDispName(p_ProcType));
626:
627: x_ErrorString := FND_MESSAGE.GET;
628: return;
629: end if;
630: elsif p_ProcType = g_WIFAMapType then
631: -- FA Paramters cannot be used in a WI-FA Mapping procedure
630: elsif p_ProcType = g_WIFAMapType then
631: -- FA Paramters cannot be used in a WI-FA Mapping procedure
632: if pv_FAParamUsed then
633: x_ErrorCode := -197019;
634: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
635: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
636: GetParamDispName(p_FAParam => true));
637: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
638: GetProcDispName(p_ProcType));
631: -- FA Paramters cannot be used in a WI-FA Mapping procedure
632: if pv_FAParamUsed then
633: x_ErrorCode := -197019;
634: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
635: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
636: GetParamDispName(p_FAParam => true));
637: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
638: GetProcDispName(p_ProcType));
639:
633: x_ErrorCode := -197019;
634: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
635: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
636: GetParamDispName(p_FAParam => true));
637: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
638: GetProcDispName(p_ProcType));
639:
640: x_ErrorString := FND_MESSAGE.GET;
641: return;
636: GetParamDispName(p_FAParam => true));
637: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
638: GetProcDispName(p_ProcType));
639:
640: x_ErrorString := FND_MESSAGE.GET;
641: return;
642: end if;
643: elsif p_ProcType = g_WIWFStartType then
644: -- FA Paramters cannot be used in a WI Workflow Start Procedure
643: elsif p_ProcType = g_WIWFStartType then
644: -- FA Paramters cannot be used in a WI Workflow Start Procedure
645: if pv_FAParamUsed then
646: x_ErrorCode := -197019;
647: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
648: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
649: GetParamDispName(p_FAParam => true));
650: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
651: GetProcDispName(p_ProcType));
644: -- FA Paramters cannot be used in a WI Workflow Start Procedure
645: if pv_FAParamUsed then
646: x_ErrorCode := -197019;
647: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
648: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
649: GetParamDispName(p_FAParam => true));
650: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
651: GetProcDispName(p_ProcType));
652:
646: x_ErrorCode := -197019;
647: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
648: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
649: GetParamDispName(p_FAParam => true));
650: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
651: GetProcDispName(p_ProcType));
652:
653: x_ErrorString := FND_MESSAGE.GET;
654: return;
649: GetParamDispName(p_FAParam => true));
650: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
651: GetProcDispName(p_ProcType));
652:
653: x_ErrorString := FND_MESSAGE.GET;
654: return;
655: end if;
656: elsif p_ProcType = g_WIParamEvalType then
657: -- FA Paramters cannot be used in a WI Parameter Evaluation Procedure
656: elsif p_ProcType = g_WIParamEvalType then
657: -- FA Paramters cannot be used in a WI Parameter Evaluation Procedure
658: if pv_FAParamUsed then
659: x_ErrorCode := -197019;
660: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
661: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
662: GetParamDispName(p_FAParam => true));
663: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
664: GetProcDispName(p_ProcType));
657: -- FA Paramters cannot be used in a WI Parameter Evaluation Procedure
658: if pv_FAParamUsed then
659: x_ErrorCode := -197019;
660: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
661: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
662: GetParamDispName(p_FAParam => true));
663: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
664: GetProcDispName(p_ProcType));
665:
659: x_ErrorCode := -197019;
660: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_PARAM_USAGE');
661: FND_MESSAGE.SET_TOKEN('INVALID_PARAM_LIST',
662: GetParamDispName(p_FAParam => true));
663: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
664: GetProcDispName(p_ProcType));
665:
666: x_ErrorString := FND_MESSAGE.GET;
667: return;
662: GetParamDispName(p_FAParam => true));
663: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
664: GetProcDispName(p_ProcType));
665:
666: x_ErrorString := FND_MESSAGE.GET;
667: return;
668: end if;
669: elsif p_ProcType = g_FAParamEvalType then
670: -- No specific Macro usage limitations
715: x_ErrorCode := 0;
716: return;
717: else
718: x_ErrorCode := -197017;
719: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
720: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
721: 'SEND, SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
722: 'LOGIN, NOTIFY_ERROR, AUDIT');
723: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
716: return;
717: else
718: x_ErrorCode := -197017;
719: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
720: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
721: 'SEND, SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
722: 'LOGIN, NOTIFY_ERROR, AUDIT');
723: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
724: GetProcDispName(p_ProcType));
719: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
720: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
721: 'SEND, SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
722: 'LOGIN, NOTIFY_ERROR, AUDIT');
723: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
724: GetProcDispName(p_ProcType));
725: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
726: 'GET_PARAM_VALUE');
727:
721: 'SEND, SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
722: 'LOGIN, NOTIFY_ERROR, AUDIT');
723: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
724: GetProcDispName(p_ProcType));
725: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
726: 'GET_PARAM_VALUE');
727:
728: x_ErrorString := FND_MESSAGE.GET;
729: return;
724: GetProcDispName(p_ProcType));
725: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
726: 'GET_PARAM_VALUE');
727:
728: x_ErrorString := FND_MESSAGE.GET;
729: return;
730: end if;
731: elsif p_ProcType = g_DisconnectType then
732: -- FP related mactos - SEND_HTTP, GET_RESPONSE, NOTIFY_ERROR, AUDIT
740: p_MacroRespContains => true,
741: p_MacroAudit => true,
742: p_ProcBody => ValidateMacros.p_ProcBody) then
743: x_ErrorCode := -197017;
744: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
745: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
746: 'SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
747: 'LOGIN, NOTIFY_ERROR, AUDIT');
748: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
741: p_MacroAudit => true,
742: p_ProcBody => ValidateMacros.p_ProcBody) then
743: x_ErrorCode := -197017;
744: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
745: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
746: 'SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
747: 'LOGIN, NOTIFY_ERROR, AUDIT');
748: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
749: GetProcDispName(p_ProcType));
744: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
745: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
746: 'SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
747: 'LOGIN, NOTIFY_ERROR, AUDIT');
748: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
749: GetProcDispName(p_ProcType));
750: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
751: 'SEND, GET_PARAM_VALUE');
752:
746: 'SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
747: 'LOGIN, NOTIFY_ERROR, AUDIT');
748: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
749: GetProcDispName(p_ProcType));
750: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
751: 'SEND, GET_PARAM_VALUE');
752:
753: x_ErrorString := FND_MESSAGE.GET;
754: return;
749: GetProcDispName(p_ProcType));
750: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
751: 'SEND, GET_PARAM_VALUE');
752:
753: x_ErrorString := FND_MESSAGE.GET;
754: return;
755: else
756: x_ErrorCode := 0;
757: return;
767: p_MacroAudit => true,
768: p_ProcBody => ValidateMacros.p_ProcBody) then
769:
770: x_ErrorCode := -197017;
771: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
772: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
773: 'SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
774: 'NOTIFY_ERROR, AUDIT');
775: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
768: p_ProcBody => ValidateMacros.p_ProcBody) then
769:
770: x_ErrorCode := -197017;
771: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
772: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
773: 'SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
774: 'NOTIFY_ERROR, AUDIT');
775: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
776: GetProcDispName(p_ProcType));
771: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
772: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
773: 'SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
774: 'NOTIFY_ERROR, AUDIT');
775: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
776: GetProcDispName(p_ProcType));
777: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
778: 'SEND, LOGIN, GET_PARAM_VALUE');
779:
773: 'SEND_HTTP, GET_RESPONSE, GET_LONG_RESPONSE, ' ||
774: 'NOTIFY_ERROR, AUDIT');
775: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
776: GetProcDispName(p_ProcType));
777: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
778: 'SEND, LOGIN, GET_PARAM_VALUE');
779:
780: x_ErrorString := FND_MESSAGE.GET;
781: return;
776: GetProcDispName(p_ProcType));
777: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
778: 'SEND, LOGIN, GET_PARAM_VALUE');
779:
780: x_ErrorString := FND_MESSAGE.GET;
781: return;
782: else
783: x_ErrorCode := 0;
784: return;
789: if CheckForMacros (p_MacroLogin => true,
790: p_ProcBody => ValidateMacros.p_ProcBody) then
791:
792: x_ErrorCode := -197017;
793: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
794: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST', 'LOGIN');
795: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
796: GetProcDispName(p_ProcType));
797: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
790: p_ProcBody => ValidateMacros.p_ProcBody) then
791:
792: x_ErrorCode := -197017;
793: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
794: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST', 'LOGIN');
795: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
796: GetProcDispName(p_ProcType));
797: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
798: 'SEND, SEND_HTTP, GET_PARAM_VALUE, GET_RESPONSE ' ||
791:
792: x_ErrorCode := -197017;
793: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
794: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST', 'LOGIN');
795: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
796: GetProcDispName(p_ProcType));
797: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
798: 'SEND, SEND_HTTP, GET_PARAM_VALUE, GET_RESPONSE ' ||
799: 'GET_LONG_RESPONSE, NOTIFY_ERROR, AUDIT');
793: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_MACRO_USAGE');
794: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST', 'LOGIN');
795: FND_MESSAGE.SET_TOKEN('PROCEDURE_TYPE',
796: GetProcDispName(p_ProcType));
797: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
798: 'SEND, SEND_HTTP, GET_PARAM_VALUE, GET_RESPONSE ' ||
799: 'GET_LONG_RESPONSE, NOTIFY_ERROR, AUDIT');
800:
801: x_ErrorString := FND_MESSAGE.GET;
797: FND_MESSAGE.SET_TOKEN('VALID_MACRO_LIST',
798: 'SEND, SEND_HTTP, GET_PARAM_VALUE, GET_RESPONSE ' ||
799: 'GET_LONG_RESPONSE, NOTIFY_ERROR, AUDIT');
800:
801: x_ErrorString := FND_MESSAGE.GET;
802: return;
803:
804: end if;
805:
813: if CheckForMacros(
814: p_MacroSendHttp => true,
815: p_ProcBody => ValidateMacros.p_ProcBody) then
816: x_ErrorCode := -197017;
817: FND_MESSAGE.SET_NAME('XDP',
818: 'XDP_INVALID_MACRO_FOR_ADAPTER');
819: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
820: nvl(g_AdapterTypeDisp, g_AdapterType));
821: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
815: p_ProcBody => ValidateMacros.p_ProcBody) then
816: x_ErrorCode := -197017;
817: FND_MESSAGE.SET_NAME('XDP',
818: 'XDP_INVALID_MACRO_FOR_ADAPTER');
819: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
820: nvl(g_AdapterTypeDisp, g_AdapterType));
821: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
822: 'SEND_HTTP');
823: x_ErrorString := FND_MESSAGE.GET;
817: FND_MESSAGE.SET_NAME('XDP',
818: 'XDP_INVALID_MACRO_FOR_ADAPTER');
819: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
820: nvl(g_AdapterTypeDisp, g_AdapterType));
821: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
822: 'SEND_HTTP');
823: x_ErrorString := FND_MESSAGE.GET;
824: return;
825: else
819: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
820: nvl(g_AdapterTypeDisp, g_AdapterType));
821: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
822: 'SEND_HTTP');
823: x_ErrorString := FND_MESSAGE.GET;
824: return;
825: else
826: x_ErrorCode := 0;
827: return;
836: p_MacroGetResp => true,
837: p_MacroGetLongResp => true,
838: p_ProcBody => ValidateMacros.p_ProcBody) then
839: x_ErrorCode := -197017;
840: FND_MESSAGE.SET_NAME('XDP',
841: 'XDP_INVALID_MACRO_FOR_ADAPTER');
842: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
843: nvl(g_AdapterTypeDisp, g_AdapterType));
844: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
838: p_ProcBody => ValidateMacros.p_ProcBody) then
839: x_ErrorCode := -197017;
840: FND_MESSAGE.SET_NAME('XDP',
841: 'XDP_INVALID_MACRO_FOR_ADAPTER');
842: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
843: nvl(g_AdapterTypeDisp, g_AdapterType));
844: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
845: 'SEND_HTTP, SEND, GET_RESPONSE, GET_LONG_RESPONSE');
846:
840: FND_MESSAGE.SET_NAME('XDP',
841: 'XDP_INVALID_MACRO_FOR_ADAPTER');
842: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
843: nvl(g_AdapterTypeDisp, g_AdapterType));
844: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
845: 'SEND_HTTP, SEND, GET_RESPONSE, GET_LONG_RESPONSE');
846:
847: x_ErrorString := FND_MESSAGE.GET;
848: return;
843: nvl(g_AdapterTypeDisp, g_AdapterType));
844: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
845: 'SEND_HTTP, SEND, GET_RESPONSE, GET_LONG_RESPONSE');
846:
847: x_ErrorString := FND_MESSAGE.GET;
848: return;
849: else
850: x_ErrorCode := 0;
851: return;
857: p_MacroSend => true,
858: p_ProcBody => ValidateMacros.p_ProcBody) then
859:
860: x_ErrorCode := -197017;
861: FND_MESSAGE.SET_NAME('XDP',
862: 'XDP_INVALID_MACRO_FOR_ADAPTER');
863: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
864: nvl(g_AdapterTypeDisp, g_AdapterType));
865: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
859:
860: x_ErrorCode := -197017;
861: FND_MESSAGE.SET_NAME('XDP',
862: 'XDP_INVALID_MACRO_FOR_ADAPTER');
863: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
864: nvl(g_AdapterTypeDisp, g_AdapterType));
865: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
866: 'SEND');
867:
861: FND_MESSAGE.SET_NAME('XDP',
862: 'XDP_INVALID_MACRO_FOR_ADAPTER');
863: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
864: nvl(g_AdapterTypeDisp, g_AdapterType));
865: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
866: 'SEND');
867:
868: x_ErrorString := FND_MESSAGE.GET;
869: return;
864: nvl(g_AdapterTypeDisp, g_AdapterType));
865: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
866: 'SEND');
867:
868: x_ErrorString := FND_MESSAGE.GET;
869: return;
870: else
871: x_ErrorCode := 0;
872: return;
882: p_MacroGetLongResp => true,
883: p_ProcBody => ValidateMacros.p_ProcBody) then
884:
885: x_ErrorCode := -197017;
886: FND_MESSAGE.SET_NAME('XDP',
887: 'XDP_INVALID_MACRO_FOR_ADAPTER');
888: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
889: nvl(g_AdapterTypeDisp, g_AdapterType));
890: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
884:
885: x_ErrorCode := -197017;
886: FND_MESSAGE.SET_NAME('XDP',
887: 'XDP_INVALID_MACRO_FOR_ADAPTER');
888: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
889: nvl(g_AdapterTypeDisp, g_AdapterType));
890: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
891: 'SEND_HTTP, SEND, GET_RESPONSE,' ||
892: ' GET_LONG_RESPONSE');
886: FND_MESSAGE.SET_NAME('XDP',
887: 'XDP_INVALID_MACRO_FOR_ADAPTER');
888: FND_MESSAGE.SET_TOKEN('ADAPTER_TYPE',
889: nvl(g_AdapterTypeDisp, g_AdapterType));
890: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
891: 'SEND_HTTP, SEND, GET_RESPONSE,' ||
892: ' GET_LONG_RESPONSE');
893:
894: x_ErrorString := FND_MESSAGE.GET;
890: FND_MESSAGE.SET_TOKEN('INVALID_MACRO_LIST',
891: 'SEND_HTTP, SEND, GET_RESPONSE,' ||
892: ' GET_LONG_RESPONSE');
893:
894: x_ErrorString := FND_MESSAGE.GET;
895: return;
896: else
897: x_ErrorCode := 0;
898: return;
941: end if;
942: end if;
943:
944: if l_SQLStmt is not null then
945: FND_MESSAGE.SET_NAME('XDP','XDP_SQL_IN_PROC');
946: FND_MESSAGE.SET_TOKEN('SQLSTMT',l_SQLStmt);
947: x_ErrorString := FND_MESSAGE.GET;
948: end if;
949:
942: end if;
943:
944: if l_SQLStmt is not null then
945: FND_MESSAGE.SET_NAME('XDP','XDP_SQL_IN_PROC');
946: FND_MESSAGE.SET_TOKEN('SQLSTMT',l_SQLStmt);
947: x_ErrorString := FND_MESSAGE.GET;
948: end if;
949:
950: end CheckForSQL;
943:
944: if l_SQLStmt is not null then
945: FND_MESSAGE.SET_NAME('XDP','XDP_SQL_IN_PROC');
946: FND_MESSAGE.SET_TOKEN('SQLSTMT',l_SQLStmt);
947: x_ErrorString := FND_MESSAGE.GET;
948: end if;
949:
950: end CheckForSQL;
951: