LEGACY UB-92 (744)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE LEGACY UB-92
SECURITY LEVEL NATIONAL,NO EDIT
DATA ELEMENT N-DIAGNOSES
PAD CHARACTER NO PAD REQUIRED
FORMAT CODE N C,Z,Z0,IBZ M IBZ=IBXDATA K IBXDATA S (C,Z)=0 F S Z=$O(IBZ(Z)) Q:'Z I '$$ECODE^IBCEU4(+IBZ(Z)) S C=C+1 S:C=1 IBXDATA=$P($G(^ICD9(+IBZ(Z),0)),U) I C>1 S IBXSAVE("DX",C)=+IBZ(Z)
FORMAT CODE DESCRIPTION
The principal dx is found in the first occurrence of the data element's
values.  The rest of the diagnoses are saved off in the IBXSAVE("DX") array
for later use.  Only allow 1 E-code.