sub SMSBcastCDR 
{
	my @array = @_; 
	foreach my $cdr_file (@array)
	{
		chomp $cdr_file;
		print "file name=$cdr_file\n";
		open (FPO,"$cdr_file") or die "Could not open $cdr_file\n";
		while (my $line = <FPO>)
		{
			#Tue Jun 09 2009 23:00:07.225|user2|KAuser2|2222|919846231229|1520095992858641|TextSMS|2009-Jun-09 23:00:07.225||150|Submitted||231229|0|Success|
			chomp ($line);
			my ($cdr_gen_time,$system_id,$msg_submission_time,$msg_delivery_time,$record_type,$last_failure_reason) = (split /\|/,$line)[0,1,7,8,10,14];
			#2009-Jun-09 23:00:07.225
			my ($year,$mon_txt,$day,$hr) = (split /[-:\s]+/, $msg_submission_time)[0,1,2,3];
			my $statsdate = "$hr:$year-$month_name{$mon_txt}-$day";
			if ($record_type eq "Flood_Control_Check")
			{
				#Mon Jul 19 2010 15:36:15.682
				$msg_submission_time=$cdr_gen_time;
				my ($mon_txt, $day, $year, $hr) =  (split /[-:\s]+/,$cdr_gen_time)[1,2,3,4];
				$statsdate = "$hr:$year-$month_name{$mon_txt}-$day";
			}
			#print "$record_type:$statsdate\n";
			if ($msg_submission_time ne "")
			{
				push (@date_list,$statsdate) unless $seen{$statsdate}++;
			}
			else
			{
				my ($txtdate, $time) = split(/\ /,$msg_delivery_time);
				my ($year,$mon_txt,$day) = split(/\-/,$txtdate);
				my $mon = $month_name{$mon_txt};
				my ($hr,$min,$sec) = split(/\:/,$time);
				$statsdate = "$hr:$year-$mon-$day";
				if ($msg_delivery_time ne "")
				{
					push (@date_list,$statsdate) unless $seen{$statsdate}++;
				}
			}
			$hour_info{$statsdate}{$hr}=0;
			$system_id_info{$statsdate}{$system_id} = 0;
			if ($record_type eq "Submitted")
			{
				$sub_data{$statsdate}{$system_id} ++;
				$sub_data{$statsdate}{'all'} ++;
			}
			elsif($record_type eq "DND_Check" || $record_type eq "Filter_Check" || $record_type eq "Special_Character_Check" || $record_type eq "Message_Length_Check" || $record_type eq "Invalid_Message" || $record_type eq "NID_Check" || $record_type eq "Mobile_No_Check" || $record_type eq "Flood_Control_Check")
			{
				push (@rej_error_list,$last_failure_reason) unless $rej_seen{$last_failure_reason}++;
				$rej_data{$statsdate}{$system_id} ++;
				$rej_data{$statsdate}{'all'} ++;
				$bcast_errcnt{$statsdate}{$system_id}{$last_failure_reason}++;
				$bcast_errcnt{$statsdate}{'all'}{$last_failure_reason}++;
			}
			elsif($record_type eq "SubmitResp")
			{
				if ($last_failure_reason ne "Success")
				{
					push (@rej_error_list,$last_failure_reason) unless $rej_seen{$last_failure_reason}++;
					$smsc_rej_data{$statsdate}{$system_id} ++;
					$smsc_rej_data{$statsdate}{'all'} ++;
					$bcast_errcnt{$statsdate}{$system_id}{$last_failure_reason}++;
					$bcast_errcnt{$statsdate}{'all'}{$last_failure_reason}++;
				}
			}
		}
		close (FP);
		`mv $cdr_file $bcastdir`;
	}
}