anchor.diff:  
   to_record(Name, Col, Depth) ->
       Tokens0 = re:split(Col, get_separator(Depth), [{return,list},unicode]),
  -    ?debugVal(Name),
       case proplists:get_value(Name, ?HL7_PRIMITIVE_TYPES) of
           undefined ->
               error({unknown, Name});
  
positive.code:     %% if length(Col) > Len ->
      %%         error({"too long text", Col, Len});
      %%    true ->
      ?debugVal(Property),
      ?debugVal(Type),
      ?debugVal(Col),
      ?debugVal(Depth),
      {list_to_binary(Property), to_json_object(Type, Col, Depth)}.
  %%end.
  
  
negative.code:         ["MSH"|_] = Tokens ->
              Msg = 'MSH'(Tokens),
              {ok, Msg};
          O ->
              {error, {bad_format, O}}
      end.
  
  
  