328: l_TempProcBody varchar2(32767);
329: begin
330:
331: if p_ProcType = g_FPType then
332: xdp_procedure_builder_util.TranslateFPMacros(ProcName => p_ProcName,
333: ProcStr => p_ProcBody,
334: CompiledProc => l_TempProcBody);
335: elsif p_ProcType = g_ConnectType then
336: xdp_procedure_builder_util.TranslateConnMacros(ProcName => p_ProcName,
332: xdp_procedure_builder_util.TranslateFPMacros(ProcName => p_ProcName,
333: ProcStr => p_ProcBody,
334: CompiledProc => l_TempProcBody);
335: elsif p_ProcType = g_ConnectType then
336: xdp_procedure_builder_util.TranslateConnMacros(ProcName => p_ProcName,
337: ProcBody => p_ProcBody,
338: CompiledProc => l_TempProcBody);
339: elsif p_ProcType = g_DisconnectType then
340: xdp_procedure_builder_util.TranslateDisconnMacros(ProcName => p_ProcName,
336: xdp_procedure_builder_util.TranslateConnMacros(ProcName => p_ProcName,
337: ProcBody => p_ProcBody,
338: CompiledProc => l_TempProcBody);
339: elsif p_ProcType = g_DisconnectType then
340: xdp_procedure_builder_util.TranslateDisconnMacros(ProcName => p_ProcName,
341: ProcBody => p_ProcBody,
342: CompiledProc => l_TempProcBody);
343: else
344: xdp_procedure_builder_util.TranslateDefMacros(ProcName => p_ProcName,
340: xdp_procedure_builder_util.TranslateDisconnMacros(ProcName => p_ProcName,
341: ProcBody => p_ProcBody,
342: CompiledProc => l_TempProcBody);
343: else
344: xdp_procedure_builder_util.TranslateDefMacros(ProcName => p_ProcName,
345: ProcStr => p_ProcBody,
346: CompiledProc => l_TempProcBody);
347: end if;
348:
606: return;
607: else
608: -- Check the actual FE Attribute name's validity for the
609: -- FE Type
610: xdp_procedure_builder_util.ValidateFEAttributes(
611: p_ID, p_ProcBody,x_ErrorCode,x_ErrorString);
612: x_ErrorString := x_ErrorString || 'FE: ' || p_ID;
613: return;
614: end if;
679: -- OK so far
680: -- Now check the validity of parameter usage for each procedure type
681: if p_ProcType not in (g_ConnectType, g_DisconnectType, g_SvcWIMapType) then
682:
683: xdp_procedure_builder_util.ValidateFPParameters(
684: p_ID => p_ID,
685: p_ProcBody => p_ProcBody,
686: x_ErrorCode => x_ErrorCode,
687: x_ErrorString => x_ErrorString);