LEGACY UB-92 (609) IB FORM FIELD CONTENT (364.7)
Name
Value
FORM FIELD REFERENCE
LEGACY UB-92
SECURITY LEVEL
NATIONAL,NO EDIT
DATA ELEMENT
N-GET FROM PREVIOUS EXTRACT
PAD CHARACTER
NO PAD REQUIRED
FORMAT CODE
I $D(IBXSAVE("DX",8)) S IBXDATA=$P($G(^ICD9(+IBXSAVE("DX",8),0)),U) K IBXSAVE("DX",8)
FORMAT CODE DESCRIPTION
If there is an eighth diagnosis, print its name.