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),"3C"),IBXDATA=$TR(IBXDATA,"-/.,()'"," ") |
FORMAT CODE DESCRIPTION | SUB-4 lab/facility city name |