ORA-06550,PLS-00103错误，求助！

        public int BlackInfoAdd(GM.Model.BLACKINFO model)

        {

            int rowsAffected;

            OracleParameter[] parameters = {

                new OracleParameter("ReturnValue",OracleType.Int16,4,ParameterDirection.ReturnValue,false,0,0,string.Empty,DataRowVersion.Default,null),

                    new OracleParameter("vFlag", OracleType.Number),

                    new OracleParameter("vprior", OracleType.Number),

                    new OracleParameter("vblackNumber", OracleType.Number)

                    };

            //parameters[0].Direction = ParameterDirection.ReturnValue;

            parameters[1].Value = model.FLAG;

            parameters[2].Value = model.PRIOR;

            parameters[3].Value = model.BLACKNUMBER;



            return DbHelperOra.RunProcedure("UP_BLACKINFO_ADD", parameters,out rowsAffected);

            

        }

-----------------------------------------



		public static int RunProcedure(string storedProcName, IDataParameter[] parameters, out int rowsAffected )

		{

			using (OracleConnection connection = new OracleConnection(connectionString))

			{

				int result;

				connection.Open();

				OracleCommand command = BuildIntCommand(connection,storedProcName, parameters );

				rowsAffected = command.ExecuteNonQuery();

				result = (int)command.Parameters["ReturnValue"].Value;

				//Connection.Close();

				return result;

			}

		}

CREATE OR REPLACE PROCEDURE EFENCE."UP_BLACKINFO_ADD" (

 ReturnValue OUT int,

vflag number,

vprior number,

vblackNumber number

)

AS

BEGIN

insert into BLACKINFO values(SEQ_BLACK_ID.NEXTVAL,vPrior,vFlag,vBlackNumber,null,0);



if (SQL%Rowcount=1) then

SELECT SEQ_BLACK_ID.CURRVAL INTO  ReturnValue FROM DUAL;

else

ReturnValue:=0;

end if;



END UP_BLACKINFO_ADD;