FUNCTION eis_report_zero_seq_id_entries; , seq_id

;replace call to astrolib
defsysv,'!DEBUG', 0
defsysv,'!TEXTUNIT', 0
defsysv,'!PRIV', 2
defsysv,'!TEXTOUT', EXIST = EXIST

;status      = eis_open_db(/TIME, /UPDATE)
status      = eis_open_db(/SCIENCE)
items       = db_info('entries')
seq_id_list = lindgen(items[0])
count_list  = -1
index       = 0

FOR i = 0, items[0] -1  DO BEGIN

    index = i
    r = dbfind('ID = ' + STRCOMPRESS(seq_id_list[i],/REMOVE_ALL) , $
                           count = count , /SILENT)
;    r = dbfind('SEQUENCE_ID = ' + STRCOMPRESS(seq_id_list[i],/REMOVE_ALL) , $
;                           count = count , /SILENT)
    IF (count NE 1) THEN BEGIN

        CASE count_list[0] OF
            -1   : count_list = i
            ELSE : count_list = [count_list , i]
        ENDCASE

    ENDIF

ENDFOR

print,'Got to index = ' + STRCOMPRESS(index,/REMOVE)

; Here's the result....
;
;print,list
;       0       8      27     118     119     131     136     139     147     
;							157     172    178    184     213     238     263     274     284
;       365     371    376    385     389     394     400     420     434
;       437     460    465    495     505

; dbfind count of seq_id(0) gets r = ...
;               8      27     118     119     131     136     139     147
;        157    172    178    184     213     238     263     274     284
;        365    371    376    385     389     394     400     420     434
;        437    460    465    495     505
;
; Interesting, eh?
;

; timeline db items[0] = 511
; science  db items[0] = 511


RETURN , count_list

END