@DiagGroupA = qw(2770 27700 27701 27702 27703 27707 27709);

@DiagGroupB = qw(277);

@UNSPECIFIED = qw(0704 07049);

foreach $diagnosis (@DiagGroupA) {
	$DiagGroupA_list{$diagnosis} = 1;
}
foreach $diagnosis (@DiagGroupB) {
	$DiagGroupB_list{$diagnosis} = 1;
}

foreach $diagnosis (@UNSPECIFIED) {
	#$DiagUNSPECIFIED_list{$diagnosis} = 1;