sub rerateandupdate (@)
{
	my $currAcct = shift;
	my $getAccumsForAcct = qq{ select distinct  usage_acum_seq_nbr from svc_price sp,svc_agrmnt_line_item sali,sbscrp_Asgm sa where sp.free_usage_across_acct_ind in ('Y','A') and sp.svc_name=sali.svc_name and sp.comm_svc_area_id=sali.comm_svc_area_id and sp.charge_type_cd='F' and sp.svc_price_expr_dt is null and svc_agrmnt_trmntn_dt is null  and sali.sbscrp_id=sa.sbscrp_id and sa.sbscrp_asgm_expr_dt is null and acct_nbr=:currAcct};
	my $getAccums = $lda->prepare($getAccumsForAcct);
	if(defined($getAccums))
	{
		$getAccums->execute();
		while (my @accums = $getAccums->fetchrow_array() ) {
			foreach(@accums)
			{
				    int returnCode = SUCCESS;
					my $xmlFile = "GetUsgSummary_" . $acct_nbr . ".xml";
					createXmlForUpd( $xmlFile, $acct_nbr, );
					    $returnCode = invokeServer( $acct_nbr , $xmlFile );

						if ( $returnCode != SUCCESS ) { return $returnCode; }

						 return $returnCode;		
	

			}


		}
	}
}