anchor.diff:      insert_user(UserInfo).
   
   insert_user({ok, UserInfo}) ->
  -    {ok, UserPid} = gen_server:call(?MODULE,{insert,UserInfo}),
  -    ok = tts_user:set_user_info(UserInfo,UserPid),
  -    {ok, UserPid};
  +    {ok, UserId} = gen_server:call(?MODULE,{insert,UserInfo}),
  +    {ok, UserId};
   insert_user({error, not_found}) ->
       {error, not_found}.
   
   
   
  -atomic_insert_new_user(UserInfo) ->
  +sync_insert_new_user(UserInfo) ->
       UserIdList = maps:get(user_ids,UserInfo,[]),
  -    [UserId |_] = UserIdList,
  +    UserId = maps:get(uid, UserInfo),
       case add_new_user_entries(UserIdList,UserId,UserInfo) of
           ok -> 
               {ok, UserId};
  
positive.code: 	{ok, #state{}}.
  
  handle_call({insert,UserInfo}, _From, State) ->
      Result = atomic_insert_new_user(UserInfo),
      {reply, Result, State};
  handle_call(_Request, _From, State) ->
  	{reply, ignored, State}.
  
negative.code: 
  
  add_new_user_entries(Mappings,UserId, UserInfo) ->
      Timestamp = 1234,
      ok = tts_data:user_insert_data(UserId,UserInfo,Timestamp),
      ok = tts_data:user_insert_mappings(Mappings). 
  
  lookup_user(IssSub) ->
     tts_data:user_lookup_id(IssSub). 
  
  retrieve_user_info(Id) ->
      case tts_data:user_get_data(Id) of
          {ok, {Id, UserInfo, _TimeStamp}} ->
              {ok, UserInfo};
          Other -> Other
      end.
  
  %% delete_user_mappings(IssSubList) ->
  %%     tts_data:user_delete_mappings(IssSubList).
  