| 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) |
| FORMAT CODE DESCRIPTION |
If the 1500 ADDRESS COLUMN parameter exists, move the text over to this
column by adding spaces at the start of it. Format the address so each
street address occupies one line, then a line containing city followed by
a comma and space, the state abbreviation, a space and the zip code,
formatted for zip plus 4 if appropriate.
|
