# Walk through results set one row at a time
	while ( my (@row) = $sth->fetchrow_array())
	{
		my $LINK_ID = $row[0];
		my $POI_ID = $row[1];
		my $FAC_TYPE = $row[2];
		my $POI_NAME = $row[3];
		my $POI_LANGCD = $row[4];
		my $POI_NMTYPE = $row[5];
		my $POI_ST_NUM = $row[6];
 .....
		my $ACTION_COD = $row[26];
		my $COMMENTS = $row[27];
		my $POSITION_ = $row[28];
		my $TEST_ID = $row[29];