FoxPro/Visual FoxPro - problema con procedure

hola :tengo este parte de un programa,en el cual arme una funcion que me separa un sring de la forma nombre,apellido (lo recibe como parametro) en
nombre y apellido .el problema que tengo es que en la coorrida del mismo
me da un error cuando ejecuta la linea que hace el repla ya sea por parte1 o parte2
me dice que "no se encuentra la variable parte1 0 parte2" segun sea el caso.
pese a que las tengo definida con public.
desde ya gracias por la ayuda

*programa principal*

public parte1,parte2
parte1=" "
parte2=" "

SEPARAR_CAMPO(v_contenido)
do case
case (V_camp_proc='A')
repla (alltr(v_arch_college))+"."+"apel" with parte2
repla (alltr(v_arch_college))+"."+"nom" with parte1
case (V_camp_proc='D')
repla (alltr(v_arch_college))+"."+"apel" with parte1
repla (alltr(v_arch_college))+"."+"nom" with parte2
case (V_camp_proc='C')
repla (alltr(v_arch_college))+"."+"tipo" with parte1
repla (alltr(v_arch_college))+"."+"nom" with parte2

endcase
---------------------------------------------------------------
desarrollo de funcion

PROCEDURE SEPARAR_CAMPO
PARAMETER CADENA
PUBLIC PARTE1,PARTE2
RELEASE PARTE1,PARTE2

IF (AT(",",CADENA)>0 OR AT(" ",CADENA)>0) AND (V_camp_proc='A')
PARTE1=SUBS(CADENA,1,AT(",",CADENA)-1)
PARTE2=SUBS(CADENA,AT(",",CADENA)+1,LEN(CADENA))
ENDIF
IF AT(" ",CADENA)>0 AND V_camp_proc='C'
PARTE1=SUBS(CADENA,1,AT(" ",CADENA)-1)
PARTE2=SUBS(CADENA,AT(" ",CADENA)+1,LEN(CADENA))
ENDIF

endproc

elimina las siguientes lineas en la funcion

PUBLIC PARTE1,PARTE2
RELEASE PARTE1,PARTE2

y reemplazala por

parte1=" "
parte2=" "

Estas declarando de nuevo la variable publica dentro de la funcion y para colmo tambien la esta elimnando. No necesitas esas dos lineas ahi.