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