| FORMAT CODE |
N Z,Z0,SEQ K IBXSAVE("OTH_PAY_ADDR") I $O(IBXSAVE(1,0)) S (Z,Z0)=0 F S Z=$O(IBXSAVE(1,Z)) Q:'Z S Z0=Z0+1,SEQ=IBXSAVE(1,Z),IBXSAVE("OTH_PAY_ADDR",Z0)=$$ADD^IBCNADD(IBXIEN,SEQ) |
| FORMAT CODE DESCRIPTION |
The IBXSAVE input array should still exist from the piece 2 call to
Output:
IBXSAVE("OTH_PAY_ADDR",1)=address string for other payer#1
IBXSAVE("OTH_PAY_ADDR",2)=address string for other payer#2
Address string format:
[1] address line 1
[2] address line 2
[3] address line 3
[4] city
data element N-OTH INSURANCE SEQUENCE.
[5] state ien ptr to file 5
[6] zipcode
Utility call $$ADD^IBCNADD(IBXIEN,SEQ) to pull the payer address for the
payer at the specified payer sequence.
Input:
IBXSAVE(1)=current payer sequence letter
IBXSAVE(1,Z)=other payer sequence letters where Z is the payer sequence
number of the other payers
Loop through this to produce the output IBXSAVE array.
|
