anchor.diff:  
   
   %%--------------------------------------------------------------------
  -%% Function:
  -%% Descrip.:
  -%% Returns : list() of #numbers.number field values XXX
  -%%--------------------------------------------------------------------
  -get_numbers_for_user(User) ->
  +%% Function: get_numbers_for_user(User)
  +%%           User = string()
  +%% Descrip.: Get numbers for User.
  +%% Returns : list() of string()
  +%%--------------------------------------------------------------------
  +get_numbers_for_user(User) when is_list(User) ->
       F = fun() ->
   		[ E#numbers.number || E <- mnesia:read({numbers, User}) ]
   	end,
  
positive.code: %%--------------------------------------------------------------------
  %% Function: insert_purge_phone(SipUser, Flags, Class, Expire,
  %%                              Address, CallId, CSeq)
  %%           SipUser =
  %%           Flags   = list of {Name,Value}
  %%           Name    = string() ?
  %%           Value   = string() ?
  %%           Class   = dynamic | ... ?
  %%           Expire  = integer()
  %%           Address = sipurl record()
  %%           CallId  = string()
  %%           CSeq    = integer()
  
negative.code: 				['$_']
  			       }])
  	end,
      mnesia:transaction(F).
  
  
  %%--------------------------------------------------------------------
  