S IBXDATA=$P($$ICD9^IBACSV(+IBXDATA,$$BDATE^IBACSV(IBXIEN)),U) D PGDX^IBCEF31(2,IBX0,IBXDA,IBXLN,IBXCOL,.IBXSIZE,.IBXSAVE)
FORMAT CODE DESCRIPTION
Output the second diagnosis code. Check for any diagnosis codes that should
display in the second position on pages subsequent to page 1 and output
them.