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: 	end;
  add_service(Identity, Password, ProductRef, Chars, Attributes,
  		EnabledStatus, MultiSession) when is_binary(Identity), size(Identity) > 0,
  		is_binary(Password), is_list(ProductRef), is_list(Attributes), is_boolean(EnabledStatus),
  		is_boolean(MultiSession) ->
  	F1 =  fun() ->
  			add_service1(Identity, Password, ProductRef,
  
negative.code: 			ProductRef, Chars, Attributes, EnabledStatus, MultiSession);
  add_service(undefined, Password, ProductRef, Chars,
  		Attributes, EnabledStatus, MultiSession) when is_binary(Password),
  		is_list(Attributes), is_boolean(EnabledStatus),
  		is_boolean(MultiSession) ->
  	F1 = fun() ->
  			F2 = fun F2(_, 0) ->
  