| 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".
|
