anchor.diff:  		undefined, Attributes, EnabledStatus, MultiSession) ->
   	add_service(Identity, Password, ProductRef,
   			[], Attributes, EnabledStatus, MultiSession);
  -add_service(Identity, Password, undefined,
  -		Chars, Attributes, EnabledStatus, MultiSession) ->
  -	add_service(Identity, Password, [], Chars,
  -			Attributes, EnabledStatus, MultiSession);
   add_service(Identity, undefined, ProductRef,
   		Chars, Attributes, EnabledStatus, MultiSession) ->
   	add_service(Identity, ocs:generate_password(),
  
positive.code: 	case mnesia:transaction(F1) of
  		{atomic, Service} ->
  			{ok, Service};
  		{aborted, Reason} ->
  			{error, Reason}
  	end.
  
negative.code: 	end;
  add_service(Identity, Password, ProductRef, Chars, Attributes,
  		EnabledStatus, MultiSession) when is_binary(Identity), size(Identity) > 0,
  		is_binary(Password), is_list(Attributes), is_boolean(EnabledStatus),
  		is_boolean(MultiSession) ->
  	F1 =  fun() ->
  			add_service1(Identity, Password, ProductRef,
  