* Any Diagnosis Code
m.DiagCode = ALLTRIM(.Field001)
m.Diag&DiagCode = LEFT(ALLTRIM(UPPER(.Field003)),AT('^',.Field003)-1)

Regards
Bhavbhuti
___________________________________________
Softwares for Indian Businesses at:
http://venussoftop.tripod.com
___________________________________________
venussoftop@gmail.com
___________________________________________