anchor.diff:                                        
                                    ({{Property, Type, Length, _Text}, Col}) ->
                                         %% ?debugVal({Property, Type}),
  -                                      to_json_object(Property, Type, Length, Col, 0)
  +                                      to_json_object(Property, Type, Length, Col)
                         end,
                         lists:zip(MsgDef, Tokens)),
               Data = lists:filter(fun({_,null}) -> false;
  
positive.code:                      proplists:delete(<<"observation_value">>, Data)).
      
  
  to_json_object(Property, Type, _Len, Col, Depth) ->
      %% DAMN NONSENSE GUARD
      %% if length(Col) > Len ->
      %%         error({"too long text", Col, Len});
      %%    true ->
      {list_to_binary(Property), to_json_object(Type, Col, Depth)}.
  %%end.
  
  to_json_object('ST', Col, _D)-> unicode:characters_to_binary(Col);
  to_json_object('TX', Col, _D)-> unicode:characters_to_binary(Col);
  
negative.code:     D = decoder(),
      D(Json).
  
  to_json(#hl7msg{segments=_Segs} = HL7Msg) ->
      E = encoder(),
      case E(HL7Msg) of
          Bin when is_binary(Bin) -> Bin;
  