IB 837 TRANSMISSION (828)    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,Z1 K IBXDATA S (Z,Z1)=0 F S Z=$O(IBXSAVE("CCAS",Z)) Q:'Z S Z0=0 F S Z0=$O(IBXSAVE("CCAS",Z,Z0)) Q:'Z0 S Z1=Z1+1 I $P($G(IBXSAVE("CCAS",Z,Z0,2)),U)'="" S IBXDATA(Z1)=$P(IBXSAVE("CCAS",Z,Z0,2),U)
FORMAT CODE DESCRIPTION
This data element relies on the previous extract of COB data for other
insurance into the IBXSAVE("CCAS",COB,n,2) array.  Extract the first piece
for this data, if not null.