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".