| Name | Value |
|---|---|
| FORM FIELD REFERENCE | UB-04 |
| 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) |
| FORMAT CODE DESCRIPTION |
Extract the current payer address and store the address components in the
[7] claim office ID (not used)
IBXSAVE("CADR") pieced string variable with the following pieces:
[1] address line 1
[2] address line 2
[3] address line 3
[4] city
[5] pointer to the state file
[6] external zip code with dashes
|