| FORMAT CODE |
N Y,Z K IBXSAVE("CADR") I $O(IBXDATA(0)) S Y=$G(IBXDATA(6)) D ZIPOUT^VAFADDR S:Y'="" $P(IBXSAVE("CADR"),U,6)=Y F Z=1:1:5,7 S:$D(IBXDATA(Z)) $P(IBXSAVE("CADR"),U,Z)=IBXDATA(Z) I Z=7 D CIADDR^IBCEF1(.IBXDATA,.IBXSAVE,1,2) |
| FORMAT CODE DESCRIPTION |
Data element extracts full address data into IBXDATA array,
saves the data in IBXSAVE("CADR")=Street addr 1^Street addr 2^Street addr 3^
City^State^Zip^claim office id # for later use and resets IBXDATA to street
1 and street 2 of address.
If the parameter says move the data to another column, set spaces at the
beginning to accommodate this.
|
