K IBXDATA I $D(IBXSAVE("PROC",1)) S IBXDATA=$P(IBXSAVE("PROC",1),U,2) K IBXSAVE("PROC",1)
FORMAT CODE DESCRIPTION
This data element relies on the existence of the IBXSAVE("PROC") array
previously extracted. If the first occurrence exists, output the date
found in its second '^' piece.