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