anchor.diff:  	end;
   po_alteration(json, ProdAlter) when is_record(ProdAlter, alteration)->
   	try
  -		Name = price_alter_name(json, ProdAlter),
  -		_STime = price_alter_vf(json, ProdAlter),
  -		PriceType = price_alter_price_type(json, ProdAlter),
  +		Name = prod_price_alter_name(json, ProdAlter),
  +		_STime = prod_price_alter_vf(json, ProdAlter),
  +		PriceType = prod_price_alter_price_type(json, ProdAlter),
   		UFM  = prod_price_ufm(json, ProdAlter),
  -		Description = price_alter_description(json, ProdAlter),
  -		Amount = price_alter_amount(json, ProdAlter),
  +		Description = prod_price_alter_description(json, ProdAlter),
  +		Amount = prod_price_alter_amount(json, ProdAlter),
   		PriceObj = {struct, [Amount]},
   		Price = {"price", PriceObj},
   		{"productOfferPriceAlteration",
  
positive.code: 			{error, 500}
  	end.
  
  -spec prod_price_name(Prefix, Price) -> Result
  	when
  		Prefix	:: erlang_term | json,
  
negative.code: %% @private
  po_alteration(erlang_term, ProdAlterObj) ->
  	try
  		ProdAlterName = prod_price_alter_name(erlang_term, ProdAlterObj),
  		_ProdAlterSTime = prod_price_alter_vf(erlang_term, ProdAlterObj),
  		ProdAlterPriceType = prod_price_alter_price_type(erlang_term, ProdAlterObj),
  		{_, ProdAlterUOMeasure} = lists:keyfind("unitOfMeasure", 1, ProdAlterObj),
  		{_, {struct, ProdAlterPriceObj}} = lists:keyfind("price", 1, ProdAlterObj),
  		ProdAlterAmount = prod_price_alter_amount(erlang_term, ProdAlterPriceObj),
  		ProdAlterDescirption = prod_price_alter_description(erlang_term, ProdAlterObj),
  		{ProdAlterUnits, ProdAlterSize} = prod_price_ufm(erlang_term, ProdAlterObj),
  		AlterSize = product_size(ProdAlterUnits, octets, ProdAlterSize),
  		#alteration{name = ProdAlterName, description = ProdAlterDescirption,
  