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