IB 837 TRANSMISSION (806)    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 K IBXDATA I $P($G(IBXSAVE("CADR")),U,2)'="" S IBXDATA=$E($P(IBXSAVE("CADR"),U,2)_" "_$P(IBXSAVE("CADR"),U,3),1,30)
FORMAT CODE DESCRIPTION
If header data has already been extracted, array ^TMP("IBHDR1",$J) will
already exist.  Don't want to extract this field again, so kill data
element so there is no output.  Also don't output data element if its
value is null.
This data relies on the presence of the IBXSAVE("CADR") array that should
have been set in a previous data field.