| 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 | Q:'$G(IBXSAVE("SERVFACFLAG")) N Z S Z=$G(IBXSAVE("SERVFACDATA")),IBXDATA=$$GETFAC^IBCEP8(+$P(Z,U,4),$P(Z,U,3),"3Z"),IBXDATA=$$NOPUNCT^IBCEF(IBXDATA,1) |
| FORMAT CODE DESCRIPTION | SUB-6 lab/facility zip code |