while (my @info = $sql_act_tran_ledg->fetchrow_array()) {
	my $trandate = $info[0];
	my $accounttype = $info[1];
	my $location = $info[2];
	my $node_sid = $info[3];
	my $reasontype = $info[4];
	my $reasonmsg = $info[5];
	my $date = substr($trandate,0,8);

	if ($last_location == 0) {
		$last_location = $location;
	}
	if ($location == $last_location) {
		$index = $index + 1;
	} else {
		$index = 0;
	}
	$activity_tran_ledg{$location}{$index}{"index"} = $index;
	$activity_tran_ledg{$location}{$index}{"trandate"} = $trandate;
	$activity_tran_ledg{$location}{$index}{"accounttype"} = $accounttype;
	$activity_tran_ledg{$location}{$index}{"location"} = $location;
	$activity_tran_ledg{$location}{$index}{"node_sid"} = $node_sid;
	$activity_tran_ledg{$location}{$index}{"reasontype"} = $reasontype;
	$activity_tran_ledg{$location}{$index}{"reasonmsg"} = $reasonmsg;
	$last_location = $location;
}