CMS-1500 (1102)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE CMS-1500
SECURITY LEVEL NATIONAL,NO EDIT
DATA ELEMENT N-CURR INS CO FULL ADDRESS
PAD CHARACTER NO PAD REQUIRED
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.