| Name | Value |
|---|---|
| NAME | N-CURR INS CO FULL ADDRESS |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | GROUP ELEMENT |
| BASE FILE | BILL/CLAIMS |
| EXTRACT CODE | S IBXDATA="" I $P($G(^DGCR(399,IBXIEN,"M")),U,4)'="" N Z,Z0,Q S Z=$G(^("M")),Z0=$G(^("M1")),IBXDATA(1)=$P(Z,U,5),IBXDATA(2)=$P(Z,U,6),IBXDATA(3)=$P(Z0,U) S IBXDATA(7)=$$COID^IBCEF2(IBXIEN) F Q=4:1:6 S IBXDATA(Q)=$P(Z,U,Q+3) |
| DESCRIPTION | Extracts the bill mailing address street 1,2,3 into IBXDATA(1),(2),(3), the bill mailing address city into IBXDATA(4), the bill mailing address state into IBXDATA(5), the bill mailing address zip code without dashes into IBXDATA(6) and the claim office id into IBXDATA(7) for bill entry IBXIEN only if the mailing address name is not null. |