IB 837 TRANSMISSION (209)    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
REQUIRED NO
FORMAT CODE D CLEANUP^IBCEFP1(.IBXSAVE) D:$$SNDS2^IBCEFP(.IBXDATA,1.5) ALLIDS^IBCEFP(IBXIEN,.IBXSAVE,1) S IBXDATA=$P($G(IBXSAVE("LAB/FAC",IBXIEN,"C",1,0)),U,1)
FORMAT CODE DESCRIPTION
Build the IBXSAVE array with the data needed to complete the SUB2 record.
Only build if $$SENDSF^IBCEF79(IBXIEN) is true.  We only send 
SUB2 if there is a SUB record.