IB 837 TRANSMISSION (51)    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
FORMAT CODE K IBXDATA N Z,Z0 S Z=0 F S Z=$O(IBXSAVE("OCC",Z)) Q:'Z S Z0=$P(IBXSAVE("OCC",Z),U) S:Z0'="" IBXDATA(Z)=Z0
FORMAT CODE DESCRIPTION
Each occurrence code found in the IBXSAVE array previously extracted is
output.