haz un select a la tabla verificando si existe el campo ps.
long ll_existe
select isnull(count(*),0) into: ll_existe from "tabla" where "campo_codigo" =: valor_que_vas_a_verificar;
if ll_existe>0 then
messagebox('','Valor existe')
end if
o tb puedes crearte un store procedure que te haga las validaciones.
