| Name | Value |
|---|---|
| FORM FIELD REFERENCE | IB 837 TRANSMISSION |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-GET FROM PREVIOUS EXTRACT |
| FORMAT CODE | K IBXSAVE N A,L,Z S L=0 F S L=$O(^TMP("IBXDATA",$J,IBXREC,IBXPG,L)) Q:'L S A=0 X "S Z=2 F S Z=$O(^TMP(""IBXDATA"",$J,IBXREC,IBXPG,L,Z)) Q:'Z I $G(^(Z))'="""" S A=1 Q" I 'A K ^TMP("IBXDATA",$J,IBXREC,IBXPG,L) |
| FORMAT CODE DESCRIPTION | Check all the data elements on the record. If all but the 1st and second are null, force a null into the second element so no output occurs. |