D:'$D(IBXSAVE("DX")) F^IBCEF("N-DIAGNOSES") S IBXDATA=$G(IBXSAVE("DX",5))
DESCRIPTION
Data element relies on previously extracted data in array IBXSAVE("DX")
from the HCFA DIAGNOSES. If IBXSAVE(""DX"") does not exist, extract the
field that sets it. The second in the sequence of diagnoses for bill
IBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).