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. |