S IBXSAVE("IDEM")=$$DT^IBCEFG1($P(IBXDATA,U),"","D8")_U_$P(IBXDATA,U,2)_U_$$NOPUNCT^IBCEF($P(IBXDATA,U,3),1) K IBXDATA
FORMAT CODE DESCRIPTION
Saves off data element in IBXSAVE array with the first '^' piece of the
data reformatted to a date format of CCYYMMDD and phone # stripped of
punctuation. No output.