anchor.diff:          ["MSH"|_] = Tokens ->
               Msg = 'MSH'(Tokens),
               {ok, Msg};
  -        _O ->
  -            erlang:display(_O),
  -            {error, bad_format}
  +        O ->
  +            {error, {bad_format, O}}
       end.
   
   
  
positive.code: 
  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});
  
negative.code:     %% if length(Col) > Len ->
      %%         error({"too long text", Col, Len});
      %%    true ->
      {list_to_binary(Property), to_json_object(Type, Col, Depth)}.
  %%end.
  
  