anchor.diff:  to_json_object('XCN', Col, _D)-> unicode:characters_to_binary(Col); %% broken data exists and less important
   
   to_json_object(Name, Col, Depth)->
  -    ?debugVal({Name, Col, Depth}),
       to_record(Name, Col, Depth).
   
   get_separator(0) -> "[\\^]";
  
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.
  
  