| 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. |