/*---------------------------------------------------------------*/
/* Swap Text Around Comma, Removes Comma, Fixes Spacing          */
/* T = XFLIP("MCDONALD, MARK")  returns "Mark McDonald"          */
/*---------------------------------------------------------------*/
  XFLIP:   PROCEDURE
    PARSE ARG X
    X = STRIP(X)
    X = SPACE(X,1," ")
    T = POS(",",X,1)
    IF T > 0 THEN X = SUBSTR(X,T+1)" "LEFT(X,T-1)
    XR = STRIP(X)
  RETURN (XR)
/*---------------------------------------------------------------*/