IB 837 TRANSMISSION (825)    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)),U)'="",$O(IBXSAVE("CCAS",Z,Z0,0)) S IBXDATA(Z1)=$P(IBXSAVE("CCAS",Z,Z0),U)
FORMAT CODE DESCRIPTION
This data element relies on the previous extract of COB data for other
insurance into the IBXSAVE("CCAS",COB,n) array.  Extract the first
piece for this data.