| Name | Value |
|---|---|
| NAME | N-DRG USED |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | INDIVIDUAL ELEMENT |
| BASE FILE | BILL/CLAIMS |
| EXTRACT CODE | N Z,Z0,Z1 S Z=$$COBN^IBCEF(IBXIEN) I Z>1 S Z=Z-1 I $D(^IBM(361.1,"ABS",IBXIEN,Z)) S Z0="" F S Z0=$O(^IBM(361.1,"ABS",IBXIEN,Z,Z0),-1) Q:'Z0 S Z1=$G(^IBM(361.1,Z0,0)) I $P(Z1,U,16)=3,$P(Z1,U,10)'="" S IBXDATA=$P(Z1,U,10) Q |
| DESCRIPTION | If there is a valid processed EOB on file for the previous insurance company, extract the last DRG code used to calculate payment. |