| Name | Value |
|---|---|
| FORM FIELD REFERENCE | LEGACY UB-92 |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-CURR INSURED FULL ADDRESS |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | I $TR(IBXDATA," ^")'="" N Q,Y S IBXSAVE("RP",1)=$P(IBXDATA,U,5),Q=1 X "N Z,A F Z=6,7 S A=$P(IBXDATA,U,Z) I A'="""" S Q=Q+1,IBXSAVE(""RP"",Q)=A" S Y=$P(IBXDATA,U,4) D ZIPOUT^VAFADDR S IBXSAVE("RP",Q+1)=$P(IBXDATA,U,2)_", "_$P(IBXDATA,U,3)_" "_Y |
| FORMAT CODE DESCRIPTION | Takes data extracted from current insured's address and the city/state/zip and saves the values in IBXSAVE array. |