Name | Value |
---|---|
FORM FIELD REFERENCE | IB 837 TRANSMISSION |
SECURITY LEVEL | NATIONAL,NO EDIT |
DATA ELEMENT | N-CONDITION CODES |
PAD CHARACTER | NO PAD REQUIRED |
FORMAT CODE | K IBXDATA K:$O(IBFL(24,0))="" IBFL(24) N Z,Z0,Z1,R S (Z,Z0,R)=0 F S Z=$O(IBFL(24,Z)) K:'Z&'Z0 IBFL(24) Q:'Z S Z1=IBFL(24,Z) K IBFL(24,Z) I Z1'="" S Z0=Z0+1 S IBFL(24,Z0)=Z1 D ID^IBCEF2(Z0,"CC"_$$M^IBCEF2(.R)) |
FORMAT CODE DESCRIPTION | Data element's array reference is IBFL(24), not default of IBXDATA. This is a group data element so more than 1 occurrence of a value is possible for the data element in the IBFL(24) array. Each entry found is output on its own CCn entry where n is a record count that will allow it to be mapped into one of the 12 available pieces of the 837 condition code record correctly. This is done to accommodate Austin's translator and one of its shortcomings. |