426: if return_code <> 0 then
427: return;
428: end if;
429: */
430: xdp_procedure_builder.generatepackagename(p_ProcType => p_proc_type,
431: p_ProcName => p_proc_name,
432: p_Validate => true,
433: x_PackageName => lv_package_name,
434: x_ErrorCode => return_code,
436: if return_code <> 0 then
437: return;
438: end if;
439:
440: xdp_procedure_builder.generatepackagespec(p_PackageName => lv_package_name,
441: p_ProcType => p_proc_type,
442: p_ProcName => p_proc_name,
443: x_ErrorCode => return_code,
444: x_ErrorString => error_string);
483: error_string := 'Error: The procedure body is empty.';
484: return;
485: END IF;
486:
487: xdp_procedure_builder.generatepackagename(p_ProcType => p_proc_type,
488: p_ProcName => p_proc_name,
489: p_Validate => true,
490: x_PackageName => lv_package_name,
491: x_ErrorCode => return_code,
494: return;
495: end if;
496:
497: if p_Proc_type in
498: (xdp_procedure_builder.g_ConnectType, xdp_procedure_builder.g_DisconnectType) then
499: lv_ID := p_FeTypeID;
500: elsif p_Proc_type in (xdp_procedure_builder.g_FPType,
501: xdp_procedure_builder.g_LocateFEType,
502: xdp_procedure_builder.g_FAParamEvalType) then
496:
497: if p_Proc_type in
498: (xdp_procedure_builder.g_ConnectType, xdp_procedure_builder.g_DisconnectType) then
499: lv_ID := p_FeTypeID;
500: elsif p_Proc_type in (xdp_procedure_builder.g_FPType,
501: xdp_procedure_builder.g_LocateFEType,
502: xdp_procedure_builder.g_FAParamEvalType) then
503: lv_ID := p_FaID;
504: else
497: if p_Proc_type in
498: (xdp_procedure_builder.g_ConnectType, xdp_procedure_builder.g_DisconnectType) then
499: lv_ID := p_FeTypeID;
500: elsif p_Proc_type in (xdp_procedure_builder.g_FPType,
501: xdp_procedure_builder.g_LocateFEType,
502: xdp_procedure_builder.g_FAParamEvalType) then
503: lv_ID := p_FaID;
504: else
505: lv_ID := null;
498: (xdp_procedure_builder.g_ConnectType, xdp_procedure_builder.g_DisconnectType) then
499: lv_ID := p_FeTypeID;
500: elsif p_Proc_type in (xdp_procedure_builder.g_FPType,
501: xdp_procedure_builder.g_LocateFEType,
502: xdp_procedure_builder.g_FAParamEvalType) then
503: lv_ID := p_FaID;
504: else
505: lv_ID := null;
506: end if;
505: lv_ID := null;
506: end if;
507:
508: return_code := 0;
509: xdp_procedure_builder.generatepackagebody(p_PackageName => lv_package_name,
510: p_ProcType => p_proc_type,
511: p_ProcName => p_proc_name,
512: p_ProcBody => p_proc_body,
513: x_ErrorCode => return_code,