LEGACY HCFA-1500 (306)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE LEGACY HCFA-1500
SECURITY LEVEL NATIONAL,NO EDIT
DATA ELEMENT N-DIAGNOSES
PAD CHARACTER NO PAD REQUIRED
FORMAT CODE N IB,IBCT M IB=IBXDATA K IBXDATA X "N Z S (Z,IBCT)=0 F S Z=$O(IB(Z)) Q:'Z I $G(IB(Z)) S IBCT=IBCT+1 M IBXSAVE(""DX"",IBCT)=IB(Z)" S IBXDATA=$P($G(^ICD9(+$G(IBXSAVE("DX",1)),0)),U) D PGDX^IBCEF31(1,IBX0,IBXDA,IBXLN,IBXCOL,.IBXSIZE,.IBXSAVE)
FORMAT CODE DESCRIPTION
Save the diagnoses in the IBXSAVE array for later use. Output the
diagnosis code for the first diagnosis. Check for any diagnosis codes
that should display in the first position on pages subsequent to page 1
and output them.