while ( @accumRow = $getAccums->fetchrow_array() )  
			{
				push(@accums,@accumRow);
				($currAccumId) = @accumRow;
				print ("currAccumId = @accumRow \n");
				$getSbscrpidFrmAccum->bind_param(1,$currAcct);
				$getSbscrpidFrmAccum->bind_param(2,$currAccumId);
				$getSbscrpidFrmAccum->execute()|| logDBIError(" execute failed for fetching sbscrpId from  Accum of  the Account $currAcct  ");
				while (@sbscrpRow = $getSbscrpidFrmAccum->fetchrow_array() ) 
				{
					( $sbscrp_id ) = @sbscrpRow;
				}
				$xmlFile = "GetUsgSummary_" . $currAcct ."_".$currAccumId.".xml";
		 		createXmlForUpd( $xmlFile, $currAcct,$sbscrp_id );
				$retValue = invokeServer( $currAcct , $xmlFile,$currAccumId );	
				if ( $retValue == ERROR ) 
				{
					logMessage( "API call failed for acct $currAcct with accumId @accumRow of subscriber $sbscrp_id \n");
				}
				else
				{
					open(FILE,"<","$retValue");
					my $accumId = 0;
					my @inclUnits = ();
					my ($inclUnits);
					my ($inclUnitsUsed);
					my ($shared);
				
					while(<FILE>)
					{
						if($_ =~ m/accumId="$currAccumId"/) 
						{
							@inclUnits = split(/ /,$_);
							($inclUnits) = grep(/inclUnits=/, @inclUnits);
							$inclUnits =~ s/inclUnits="([^"]+)"/$1/g;
							($inclUnitsUsed) = grep(/inclUnitsUsed=/, @inclUnits);
							$inclUnitsUsed =~ s/inclUnitsUsed="([^"]+)"/$1/g;
							($shared) = grep(/shared=/, @inclUnits);
							$shared =~ s/shared="([^"]+)"/$1/g;
							logMessage( "accumId=$currAccumId : $inclUnits : $inclUnitsUsed : $shared\n");
						}
					}
					close(FILE);
				}

			}