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