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