FUNCTION eis_check_linelist_exists , id

; Open database for writing the new Line List entry
db_name   = 'eis_linelist_db'
dbhname   = find_with_def(db_name+'.dbh', 'ZDBASE')
validFile = FILE_TEST( dbhname , /READ)
IF (validFile NE 1) THEN stop

dbopen, db_name, unavail = unavail , 1
IF (unavail NE 0) THEN stop

constraint = STRJOIN(['ID = ',STRCOMPRESS(id,/REMOVE_ALL)],/SINGLE)
exists = dbfind(constraint , count = count , /SILENT)

RETURN , count

END