PARAMETERS tcName IF PCOUNT()=0 lcRefDocName=[CUNNINGHAM LYNNE,] ELSE lcRefDocName=tcName ENDIF LOCAL lcReturn,lcLast,lcFirst,mi,lnLen lcRefDocName=ALLTRIM(lcRefDocName) * Replace any comma with [] lcNewName=STRTRAN(lcRefDocName,',',[]) lnWordCnt=GETWORDCOUNT(lcNewName) lcLastName=GETWORDNUM(lcNewName,1) lcFirstName=GETWORDNUM(lcNewName,2) lcMI=GETWORDNUM(lcNewName,3) lcReturn=[|]+lcLastName+[|]+lcFirstName+[|]+lcMI+[|] RETURN lcReturn