Name | Value |
---|---|
FORM FIELD REFERENCE | LEGACY UB-92 |
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,2) |
FORMAT CODE DESCRIPTION | Data element extracts full address data into IBXDATA array, saves the data in IBXSAVE("CADR")=Street addr 1^Street addr 2^Street addr 3^ City^State^Zip^claim office id # for later use and resets IBXDATA to street 1 and street 2 of address. If the parameter says move the data to another column, set spaces at the beginning to accommodate this. |