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