LEGACY UB-92 (608) 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",7)) S IBXDATA=$P($G(^ICD9(+IBXSAVE("DX",7),0)),U) K IBXSAVE("DX",7)
FORMAT CODE DESCRIPTION
If there is a seventh diagnosis, print its name.