+ elsif ( $record->{ "REC_TYPE" } eq "PSL" and exists $index->{ $record->{ "S_ID" } } )
+ {
+ ( $index_beg, $index_len ) = @{ $index->{ $record->{ "S_ID" } } };
+
+ $beg = $record->{ "S_BEG" } + $index_beg;
+ $len = $record->{ "S_END" } - $record->{ "S_BEG" } + 1;
+ }
+ elsif ( $record->{ "REC_TYPE" } eq "VMATCH" and exists $index->{ $record->{ "S_ID" } } )