my $importing_status = $visit_status{$history[$i]};
#print "importing_status = $importing_status\n";
#print "select * from tc_visit where family=$family_id and companionship=$comp_id and date='$visit_date'\n";
my $importing_status = $visit_status{$history[$i]};
#print "importing_status = $importing_status\n";
#print "select * from tc_visit where family=$family_id and companionship=$comp_id and date='$visit_date'\n";