procedimiento para cortar e insertar valores segun parametros

[serser]

En vez de

SET fono = SUBSTRING_INDEX(telefonos, ',', 1);

puedes poner estas dos líneas:

SET codigo = SUBSTRING_INDEX(SUBSTRING_INDEX(telefonos, ',', 1), '-', 1);
SET num_tfno= SUBSTRING_INDEX(SUBSTRING_INDEX(telefonos, ',', 1), '-', -1);

Y en el INSERT tienes 4 campos y sólo 3 valores, debería ser así:

VALUES(ultimoidpersona, codigo, num_tfno, 1);