| Name | Value |
|---|---|
| NAME | N-EOB ENTRIES |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | GROUP ELEMENT |
| BASE FILE | BILL/CLAIMS |
| EXTRACT CODE | N Z,Z0,Z1 S Z=0 F S Z=$O(^IBM(361.1,"ABS",IBXIEN,Z)) Q:'Z S (Z1,Z0)=0 F S Z0=$O(^IBM(361.1,"ABS",IBXIEN,Z,Z0)) Q:'Z0 S Z1=Z1+1,IBXDATA(Z,Z1)=Z0 |
| DESCRIPTION | This element extracts the entry numbers for the bill in the EOB file. Data is returned in IBXDATA(COB seq,n). |