IB 837 TRANSMISSION (891)    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 S Z=0 F S Z=$O(IBXSAVE("OUTPT",Z)) Q:'Z S Z0=$P(IBXSAVE("OUTPT",Z),U,4) S IBXDATA(Z)=$S(Z0'=7:"UN",1:"MJ")
FORMAT CODE DESCRIPTION
This is a group data element so more than 1 occurrence of a value is
possible for the data element in the previously extract IBXSAVE array.  If
any service line data is found, the data is output.
If the type of service not = 7 (anesthesia), this is units (UN) and for
anesthesia, it's minutes (MJ)