IB 837 TRANSMISSION (389)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE IB 837 TRANSMISSION
SECURITY LEVEL NATIONAL,NO EDIT
DATA ELEMENT N-GET FROM PREVIOUS EXTRACT
PAD CHARACTER NO PAD REQUIRED
FORMAT CODE S IBXDATA=$S($P($G(IBXSAVE("BILLING PRV",IBXIEN,"C",1,0)),U,1)]"":"EI",1:"")
FORMAT CODE DESCRIPTION
Kept N-CURRENT INS POLICY TYPE because didn't want to touch previous logic 
that may set array or TMP.
the format code sets array to string with QUALIF and ID for the first 
seven insurances in file #355.97 except some.