| Name | Value |
|---|---|
| FORM FIELD REFERENCE | LEGACY UB-92 |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-CURR INSURANCE MAILING NAME |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | S:$$WNRBILL^IBEFUNC(IBXIEN) IBXDATA="MEDICARE" S:'$D(IBXSAVE("LM-UB")) IBXSAVE("LM-UB")=$P($G(^IBE(350.9,1,1)),U,31)-1 I IBXSAVE("LM-UB") S IBXDATA=$J("",IBXSAVE("LM-UB"))_IBXDATA |
| FORMAT CODE DESCRIPTION | Extracts the insurance company name from the first piece of IBXDATA. If MEDICARE WNR is current insurance, mailing name is MEDICARE. If the parameter says move the data to another column, set spaces at the beginning to accommodate this. |