| Name | Value |
|---|---|
| FORM FIELD REFERENCE | IB 837 TRANSMISSION |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-CURR INS CO FULL ADDRESS |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | K IBXSAVE("CADR") I $D(IBXDATA) N Q,Y,Z S Q="CADR",Y=$G(IBXDATA(6)) D ZIPOUT^VAFADDR S:Y'="" $P(IBXSAVE(Q),U,6)=Y F Z=1:1:5,7 I $D(IBXDATA(Z)) S $P(IBXSAVE(Q),U,Z)=IBXDATA(Z) |
| FORMAT CODE DESCRIPTION |
Data element extracts address data into IBXDATA array
Save the data in IBXSAVE("CADR")=Street addr 1^Street addr 2^Street addr 3^
City^State^Zip^claim office id # for later use.
|