IB 837 TRANSMISSION (552)    IB FORM FIELD CONTENT (364.7)

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
REQUIRED NO
FORMAT CODE N Z K IBXDATA S Z=0 F S Z=$O(IBXSAVE("LAB/FAC",IBXIEN,"O",Z)) Q:'Z I $O(IBXSAVE("LAB/FAC",IBXIEN,"O",Z,0)) S IBXDATA(Z)=2
FORMAT CODE DESCRIPTION
OP3-4
Hard code "2".