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.