PRO eis_rebuild_pm_technical_db

CD    , '$HOME/eis_pm_db/technical_db'

SPAWN , "rm eis_linelist_db.dbf eis_linelist_db.dbh eis_linelist_db.dbx"
SPAWN , "rm eis_linename_db.dbf eis_linename_db.dbh eis_linename_db.dbx"
SPAWN , "rm eis_raster_db.dbf   eis_raster_db.dbh   eis_raster_db.dbx"
SPAWN , "rm eis_study_db.dbf    eis_study_db.dbh    eis_study_db.dbx"
SPAWN , "rm eis_study2_db.dbf   eis_study2_db.dbh   eis_study2_db.dbx"

SPAWN , "rm $HOME/eis_pm_db/study_descriptions/*"

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

dbcreate , 'eis_linelist_db' , 1 , 1 , 500000 , /EXTERNAL
dbcreate , 'eis_linename_db' , 1 , 1 , 500000 , /EXTERNAL
dbcreate , 'eis_raster_db'   , 1 , 1 , 500000 , /EXTERNAL
dbcreate , 'eis_study_db'    , 1 , 1 , 500000 , /EXTERNAL
dbcreate , 'eis_study2_db'   , 1 , 1 , 500000 , /EXTERNAL

path = EXPAND_PATH(GETENV('ancillary'))

;
; Save line list
;
RESTORE , CONCAT_DIR(path , 'll.sav')
ll.id = 1
db_save_linelist_entry_create , ll
;
; Save Raster
;
RESTORE , CONCAT_DIR(path , 'ra.sav')
ra.id = 1
db_save_raster_entry_create , ra
;
; Save Study
;
RESTORE , CONCAT_DIR(path , 'st.sav')
st.id = 1
db_save_study_entry_create , st


END