use warnings;
use strict;

my ( @results, %fields );
while(<>){
	s/\0//g;
	if (/(?<!from )INSERT INTO Photo/) {
		my @s = ( /([^(]+)(\([^)]+\))(.*)/ );
		push @results, \@s;
	}
}
my @final = sort{ $a->[1] cmp $b->[1]  } @results;
open OUT, ">results.txt" or die $!;
foreach( @final ) {
	my $fieldNames = $_->[1];
	if ( ! exists $fields{ $fieldNames } ) {
		$fields{ $fieldNames } = 1;
		print OUT @{ $_ }
	}
}
close OUT;

##</code><code>##

exec new_int_id 'documents', 'did'
go
INSERT documents ( did, DocID, Template ) VALUES ( 3093, '000000000000000000003093', 'Photo' )
go
SELECT * FROM documents WHERE did=3093
go
INSERT INTO Photo (AccessLevelID, ANRNumber, ColorID, ContactSheetID) VALUES (1, '225058', 1, 4)
go
exec new_int_id 'Photo', 'PhotoID'
go
exec new_str_id 'documents', 'DocId'
go
INSERT INTO Photo (QualityID, Remark, UniqueID, VolNum) VALUES (1, 'St. Nicolaasfeest -v. Moorsel', '211357', '1')
go