| 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 | I $P($G(IBXSAVE("CADR")),U,5)'="" S IBXDATA=$$STATE^IBCEFG1($P(IBXSAVE("CADR"),U,5)) |
| 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. If header not yet extracted, format data
as state's 2-character abbreviation.
This data relies on the presence of the IBXSAVE("CADR") array that should
have been set in a previous data field.
|