| 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("CI_PID",1)),U,2)'="" S IBXDATA=$P($G(IBXSAVE("CI_PID",1)),U,2) |
| 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. Positions 1-5 are the id number as
assigned by ENVOY, positions 6-9 are the claim office id (default if there
is none is '0000'). Also don't output data element if its value is null.
|