IB 837 TRANSMISSION (848)    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 N Z,Z0,IBZ K IBXDATA S (IBZ,Z0)=0 F S IBZ=$O(IBXSAVE("MOA",IBZ)) Q:'IBZ S Z0=Z0+1,Z=0 F S Z=$O(IBXSAVE("MOA",IBZ,Z)) Q:'Z I $P($G(IBXSAVE("MOA",IBZ,Z,3)),U,4)'="" S IBXDATA(Z0)=$P(IBXSAVE("MOA",IBZ,Z,3),U,4) Q
FORMAT CODE DESCRIPTION
This data element relies on the previous extract of COB data for other
insurance into the IBXSAVE("MOA",COB,n,3) array.  Extract the fourth
piece for this data.  Output only the first REMARKS CODE(2) found for each
COB sequence.