anchor.diff:  -module(database_call).
   -export([create_call/0, insert_call/4, get_call/1, list_calls/0,
  -	 insert_call_unique/4, set_data/2, delete_call_type/2, get_call_type/2]).
  +	 insert_call_unique/4, set_data_type/3, delete_call_type/2, get_call_type/2,
  +	 fetch_call/2, fetch_dialogue/2, delete_all_calls/0]).
   
   -include("database_call.hrl").
   
  
positive.code: 	    end,
      mnesia:transaction(F).
  
  list_calls() ->
      F = fun() ->
  		Q = query
  
negative.code: 	    end,
      mnesia:transaction(F).
  
  set_data_type(CallID, Data, Type) ->
      F = fun() ->
  		Q = query
  			[E || E <- table(call),
  			      E.callid = CallID,
  			      E.type = Type]
  		    end,
  		A = mnemosyne:eval(Q),
  		Update = fun(O) ->
  