Name | Value |
---|---|
FORM FIELD REFERENCE | CMS-1500 |
SECURITY LEVEL | NATIONAL,NO EDIT |
DATA ELEMENT | N-CURRENT INS POLICY TYPE |
PAD CHARACTER | NO PAD REQUIRED |
FORMAT CODE | N Z S Z=IBXDATA D F^IBCEF("N-CURRENT INSURANCE CO TYPE") S IBXDATA=$J("",$S(Z=16!(Z="MB")!(Z="MA"):0,Z="TV"!(Z="MC"):7,Z="CH":14,$$CHAMPVA^IBCEU3(IBXIEN)&($P($G(^DIC(36,+$$CURR^IBCEF2(IBXIEN),0)),U,2)="Y"):23,IBXDATA=5:30,1:44))_"X" |
FORMAT CODE DESCRIPTION | Check appropriate box for type of insurance. CMS-1500, Box 1. Possibility of checking one box. FECA BLK LUNG is not an available selection. Choices are mainly extracted from the ELECTRONIC PLAN TYPE field (#.15) in FILE# 355.3. Also used for the Group Health Plan box is the 3.09 field in file 36 (if the value is 5). Code is basically setting IBXDATA=$J("",[some offset amount])_"X". |