EXTRACT CODE |
N Z,A K IB S Z=$G(^DGCR(399,IBXIEN,"M")),A=0 S:$P(Z,U,5)'="" A=A+1,IB(A)=$P(Z,U,5) S:$P(Z,U,6)'="" A=A+1,IB(A)=$P(Z,U,6) S:$L($P($G(^("M1")),U)) A=A+1,IB(A)=$P(^("M1"),U) S IB("C")=$P(Z,U,7),IB("S")=$P(Z,U,8),IB("Z")=$TR($P(Z,U,9),"-") |
DESCRIPTION |
Replaced by data element #192 - N-CURR INS CO FULL ADDRESS 9/2000
The street mailing addresses for the bill returned as a group element
in IB(1-3) and then the mailing address city, state and zip returned in
IB("C"), IB("S") and IB("Z"). Note the zip code is stripped of any 'dashes'
it may contain.
|