| Name | Value |
|---|---|
| NAME | N-ALL INSURANCE COMPANIES |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | GROUP ELEMENT |
| BASE FILE | BILL/CLAIMS |
| EXTRACT CODE | N Z,IBZ D F^IBCEF("N-ALL INSURANCE CO 837 ID","IBZ") F Z=1,2,3 S IBXDATA(Z)=$P($G(^DIC(36,+$$POLICY^IBCEF(IBXIEN,1,$E("PST",Z)),0)),U)_U_$$COID^IBCEF2(IBXIEN)_U_$G(IBZ(Z)) |
| DESCRIPTION | Extracts the primary, secondary, and tertiary insurance company internal entry numbers into the first '^' piece of IBXDATA(1),(2),(3) for bill entry IBXIEN. The second '^' piece contains the claim office id number, if known and the third '^' piece contains the 837 ENVOY payer ID, if available. |