N-DIAGNOSIS E-CODE (253) IB DATA ELEMENT DEFINITION (364.5)

Name	Value
NAME	N-DIAGNOSIS E-CODE
SECURITY LEVEL	NATIONAL,NO EDIT
TYPE OF ELEMENT	EXTRACTED VIA CODE
ELEMENT CATEGORY	INDIVIDUAL ELEMENT
BASE FILE	BILL/CLAIMS
EXTRACT CODE	S IBXDATA=$G(IBXSAVE("DX-E")) I '$D(IBXSAVE("DX-E")) N IBZ,Z,Z0,Z1 D F^IBCEF("N-DIAGNOSES","IBZ",,IBXIEN) S Z=0 F S Z=$O(IBZ(Z)) Q:'Z S Z0=$$ECODE^IBCEU4(+IBZ(Z),.Z1) I Z0,$G(Z1)'="" S (IBXSAVE("DX-E"),IBXDATA)=Z1 Q
DESCRIPTION	This data element finds the first 'E' code diagnosis for bill IBXIEN, if any. An 'E' code is a diagnosis that starts with the letter 'E'.