LEGACY HCFA-1500 (252)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE LEGACY HCFA-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 HCFA 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
by a comma and space, the state abbreviation, a space and the zip code,
formatted for zip plus 4 if appropriate.