FoxPro/Visual FoxPro - REPLACE

buenas programadores tengo una 2 campos en el primero guardo especialidad y el el otro su apellidos y codigo de los apellidos pero cuando no tenfgo su especialidad se guarda con N/E por ejemplo
vfp Perez 01
basic Fafan 02
pw Fano 03
N/E Villalta 04
NE Prado 05
N/E Villalta 04
como puedo hacer para reemplazar los codigo N/E con su respectivos codigo este es mi codigo.

selec tabla1
set order to codigo
thisform.refresh
seek codigo
if found()then
replace all especialidades with alltrim(thisform.combo2.value)
thisform.grid1.refresh
thisform.refresh

else
if messagebox("No se encontro el registro",36,"Mensaje del Sistema")=6
thisform.combo2.value=""
thisform.text5.value=""
thisform.grid1.column3.text1.setfocus
thisform.grid1.refresh
endif
endif

selec tabla1
set order to codigo
thisform.refresh
seek codigo
if found()then
xVa =alltrim(thisform.combo2.value
if EMPTY(xVa)
xVa ="N/E"
ENDIF


replace all especialidades with xva
thisform.grid1.refresh
thisform.refresh

else
if messagebox("No se encontro el registro",36,"Mensaje del Sistema")=6
thisform.combo2.value=""
thisform.text5.value=""
thisform.grid1.column3.text1.setfocus
thisform.grid1.refresh
endif
endif

Gracias Saul pero creo que no me deje entender de nuevo amigo ok
tengo un grid mostrando codigos del medico, apellidos y el servicio pero estos servicios muestra N/E en algunos medicos que significa No Especifica, etonces lo que quiero lograr hacer es selecionar el medico y luego buscar en el combo la especialidad y luego reemplazar los N/E por la especialidad correcta de acuerdo al medico, Gracias por la ayuda prestada, envio el codigo.
selec tabla1
set order to codigo
thisform.refresh
seek codigo
if found()then
replace all especialidad with alltrim(thisform.combo1.value)
thisform.grid1.refresh
thisform.refresh
else
if messagebox("No se encontro el registro",36,"Mensaje del Sistema")=6
thisform.combo2.value=""
thisform.grid1.column3.text1.setfocus
thisform.grid1.refresh
set filter to
endif
endif