UB-04 (1354)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE UB-04
SECURITY LEVEL NATIONAL,NO EDIT
DATA ELEMENT N-GET FROM PREVIOUS EXTRACT
PAD CHARACTER NO PAD REQUIRED
FORMAT CODE I $D(IBXSAVE("DX",10)) S IBXDATA=$TR($P($$ICD9^IBACSV(+IBXSAVE("DX",10),$$BDATE^IBACSV(IBXIEN)),U),".")
FORMAT CODE DESCRIPTION
If there is a tenth diagnosis, print its name.