IB 837 TRANSMISSION (1018)    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 IBXSAVE("OSQ") N Q,OK M Q=IBXSAVE("PROVINF",IBXIEN,"O") S (C,Z)=0 F S Z=$O(Q(Z)) Q:'Z S OK=0 X "N A F A=1:1 Q:'$D(Q(Z,5,A)) I $P(Q(Z,5,A),U,4)'="""" S OK=1 Q" I OK S C=C+1,IBXDATA(C)=$G(Q(Z)),IBXSAVE("OSQ",Z)=C D:C>1 ID^IBCEF2(C,"OP8 ")
FORMAT CODE DESCRIPTION
Output if an ID exists for the 'other insurance'.  If more than 1 ins,
must output the record id.  Must kill the IBXSAVE("OSQ") array as this is
used to determine the current bill's sequence of other providers and which
IBXDATA array entry needs to be set for each.  IBXSAVE("OSQ") must be killed
at the last field for this record.
IBXSAVE("OSQ",n)=m where n = the sequence for the other insurance (if bill
is primary, 1=secondary, 2=tertiary; if bill is secondary, 1=primary,
2=tertiary; if bill is tertiary, 1=primary, 2=secondary).  And where
m = the IBXDATA(m) entry to set for the 'n' COB sequence.