anchor.diff:  				ProdValidity = validity_period(ProdSTime, ProdETime),
   				ProdPriceType = price_type(ProdPriceTypeS),
   				{ProdUnits, ProdSize} = product_unit_of_measure(ProdUOMesasure),
  +				Size = product_size(ProdUnits, octets, ProdSize),
   				RCPeriod = recurring_charge_period(RCPeriodS),
   				Price1 = #price{name = ProdName, description = ProdDescirption,
  -					type = ProdPriceType, units = ProdUnits, size = ProdSize,
  +					type = ProdPriceType, units = ProdUnits, size = Size,
   					currency = CurrencyCode, period = RCPeriod, validity = ProdValidity,
   					amount = ProdAmount},
   				case lists:keyfind("productOfferPriceAlteration", 1, Object) of
  
positive.code: 						{_, ProdAlterAmount} = lists:keyfind("taxIncludedAmount", 1,  ProdAlterPriceObj),
  						ProdAlterDescirption = proplists:get_value("description", ProdAlterObj, ""),
  						{ProdAlterUnits, ProdAlterSize} = product_unit_of_measure(ProdAlterUOMeasure),
  						ProdAlterSTime = timestamp(ProdAlterSTimeISO),
  						ProdAlterPriceType = price_type(ProdAlterPriceTypeS),
  						Alteration = #alteration{name = ProdAlterName, description = ProdAlterDescirption,
  							units = ProdAlterUnits , size = ProdAlterSize, amount = ProdAlterAmount},
  						Price2 = Price1#price{alteration = Alteration},
  						[Price2 | AccIn]
  					end
  
negative.code: 	when
  		UnitsOfMeasure	:: string(),
  		Result			:: {Units, Size},
  		Units				:: undefined | unit_of_measure(),
  		Size				:: undefined | pos_integer().
  %% @doc return units type and size of measurement of a product
  %% @private
  product_unit_of_measure("") ->
  	{undefined, undefined};
  product_unit_of_measure(UnitsOfMeasure) ->
  	LowerUOM = string:to_lower(UnitsOfMeasure),
  	product_unit_of_measure1(LowerUOM).
  