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