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