procedure set_mascota