create or alter procedure MDI_ADD_PARAMETER
(
  param_name varchar(31),
  param_domain varchar(31),
  proc_prefix varchar(31)
)
returns(proc varchar(50) ,stmt varchar(1024))

as
begin
 for
 select trim(r.rdb$procedure_name) from rdb$procedures r
 where r.rdb$procedure_name starting upper(:proc_prefix)
 into
   :proc
 do
   begin
     stmt = '
     insert into rdb$procedure_parameters
     (
        rdb$procedure_name,
        rdb$parameter_name,
        rdb$parameter_type,
        rdb$parameter_number,
        rdb$field_source
      )
      values
      ('''||
      :proc
      ||''',
      '''||:param_name||''',
      1,
      (select count(*) from rdb$procedure_parameters z where z.rdb$parameter_type=1 and z.rdb$procedure_name='''||:proc||'''),
      '''||:param_domain||'''
      );';
    execute statement :stmt;
    suspend;
  end
end