anchor.diff:  %%
   guarded_get_server_transaction_id_2543(Request, TopVia) when is_record(Request, request), is_record(TopVia, via) ->
       {URI, Header} = {Request#request.uri, Request#request.header},
  -    CallID = sipheader:callid(Header),
  -    CSeq = sipheader:cseq(Header),
  -    FromTag = sipheader:get_tag(keylist:fetch('from', Header)),
  -    ToTag = sipheader:get_tag(keylist:fetch('to', Header)),
  +    CallID = callid(Header),
  +    CSeq = cseq(Header),
  +    FromTag = get_tag(keylist:fetch('from', Header)),
  +    ToTag = get_tag(keylist:fetch('to', Header)),
       {URI, ToTag, FromTag, CallID, CSeq, TopVia}.
   
   
  
positive.code:     {URI, FromTag, CallID, FakeCSeq, TopVia}.
  
  remove_branch(Via) when is_record(Via, via) ->
      ParamDict = sipheader:param_to_dict(Via#via.param),
      NewDict = dict:erase("branch", ParamDict),
      Via#via{param=sipheader:dict_to_param(NewDict)}.
  
  %%--------------------------------------------------------------------
  %% Function: get_via_branch(TopVia)
  
negative.code: %%           ToTag   = string()
  %%--------------------------------------------------------------------
  dialogid(Header) when is_record(Header, keylist) ->
      CallID = callid(Header),
      FromTag = get_tag(keylist:fetch('from', Header)),
      ToTag = get_tag(keylist:fetch('to', Header)),
      {CallID, FromTag, ToTag}.
  
  %%--------------------------------------------------------------------
  