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