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