| 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 IBXSAVE N LN,NOKILL,IBPCE S LN=0 F S LN=$O(^TMP("IBXDATA",$J,IBXREC,IBXPG,LN)) Q:'LN S NOKILL=0 F IBPCE=4,6,8,10 S:$G(^TMP("IBXDATA",$J,IBXREC,IBXPG,LN,IBPCE))]"" NOKILL=1 I IBPCE=10,'NOKILL K ^TMP("IBXDATA",$J,IBXREC,IBXPG,LN) |
| FORMAT CODE DESCRIPTION | If pieces 4, 6, 8 and 10 are null remove the line from the output formatter. |