anchor.diff:  		ProdValidity = validity_period(ProdSTime, ProdETime),
   		if
   			ProdValidity =/= {error, format_error} ->
  -				ProdPriceType = price_type(ProdPriceTypeS),
   				{ProdUnits, ProdSize} = product_unit_of_measure(ProdUOMesasure),
   				Size = product_size(ProdUnits, octets, ProdSize),
   				RCPeriod = recurring_charge_period(RCPeriodS),
  
positive.code: 	Prices;
  po_price(erlang_term, [{struct, Object} | T], Prices) ->
  	try
  		{_, ProdName} = lists:keyfind("name", 1, Object),
  		{_,  {struct, VFObj}} = lists:keyfind("validFor", 1, Object),
  		{_, ProdSTime} = lists:keyfind("startDateTime", 1, VFObj),
  		{_, ProdETime} = lists:keyfind("endDateTime", 1, VFObj),
  		{_, ProdPriceTypeS} = lists:keyfind("priceType", 1, Object),
  		{_, {struct, ProdPriceObj}} = lists:keyfind("price", 1, Object),
  		{_, ProdAmount} = lists:keyfind("taxIncludedAmount", 1, ProdPriceObj),
  		{_, CurrencyCode} = lists:keyfind("currencyCode", 1, ProdPriceObj),
  
negative.code: find_status("pending_terminate") -> pending_terminate.
  
  -spec price_type(StringPriceType) -> PriceType when
  	StringPriceType :: string() | atom(),
  	PriceType		 :: recurring | one_time | usage | string().
  %% @private
  price_type("usage") -> usage;
  price_type("recurring") -> recurring;
  price_type("one_time") -> one_time;
  price_type(usage) -> "usage";
  price_type(recurring) -> "recurring";
  price_type(one_time) -> "one_time".
  
  