LEGACY UB-92 (784) IB FORM FIELD CONTENT (364.7)
Name
Value
FORM FIELD REFERENCE
LEGACY UB-92
SECURITY LEVEL
NATIONAL,NO EDIT
DATA ELEMENT
N-AGENT CASHIER ZIP CODE
FORMAT CODE
I IBXDATA'="" S IBXSAVE("ACZIP")=$E(IBXDATA,1,5)_$S($E(IBXDATA,6,9)'="":"-"_$E(IBXDATA,6,9),1:"")
FORMAT CODE DESCRIPTION
If the agent cashier zip code is defined, save the zip code in array IBXSAVE for later use.