IB 837 TRANSMISSION (70)    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,R S (Z,R)=0 F S Z=$O(IBXSAVE("OCCS",Z)) Q:'Z S Z0=$$DT^IBCEFG1($P(IBXSAVE("OCCS",Z),U,2),"","D8") I Z0'="" S IBXDATA(Z)=Z0 D ID^IBCEF2(Z,"OS"_$$M^IBCEF2(.R))
FORMAT CODE DESCRIPTION
Each occurrence span code from date found in the IBXSAVE array previously
extracted is formatted into CCYYMMDD date format and is output on its own
OCSn entry where n is a record count that will allow it to be mapped into
one of the 12 available pieces of the 837 occurrence span code records
correctly.  This is done to accommodate Austin's translator and one of its
shortcomings.