;+
;Project    :SolarB EIS
;
;Name       :eis_get_science_details
;
;Purpose    :extract science record and place in eis_science_component structure
;
;Category   :EIS timeline planning
;
;Written    :Chunkey Lepine, RAL, d.r.lepine@rl.ac.uk, 0044-1235-44-6515
;
;Version    :V0 February 2005
;           : study_id keyword added September 2005
;-
;______________________________________________________________________________
FUNCTION eis_get_science_details, entry, STUDY_ID=STUDY_ID

IF KEYWORD_SET(STUDY_ID) THEN RETURN , dbval(entry, 'STUDY_ID')

sci                = {eis_science_component}
sci.sequence_id    = dbval(entry , 'ID')
sci.solarb_science = dbval(entry , 'SOLARB_SCI')
sci.obs_id         = dbval(entry , 'OBS_ID')
sci.jop_id         = dbval(entry , 'JOP_ID')
sci.observer       = dbval(entry , 'OBSERVER')
sci.planner        = dbval(entry , 'PLANNER')
sci.tohbans        = dbval(entry , 'TOHBANS')
sci.obstitle       = dbval(entry , 'OBSTITLE')
sci.sci_obj        = dbval(entry , 'SCI_OBJ')
sci.obs_dec        = dbval(entry , 'OBS_DEC')
sci.join_sb        = dbval(entry , 'JOIN_SB')
sci.noaa_num       = dbval(entry , 'NOAA_NUM')
sci.eis_science    = dbval(entry , 'EIS_SCI')
sci.campaign       = dbval(entry , 'CAMPAIGN')
sci.notes          = dbval(entry , 'NOTES')
sci.disturbance    = dbval(entry , 'DISTURBANCE')
sci.target         = dbval(entry , 'TARGET')
sci.target_id      = dbval(entry , 'TARGET_ID')
sci.study_id       = dbval(entry , 'STUDY_ID')
sci.nRasters       = dbval(entry , 'N_RASTERS')
sci.nRepeats       = dbval(entry , 'N_REPEATS')
sci.slit_slot      = dbval(entry , 'SLIT_SLOT')
sci.duration       = dbval(entry , 'DURATION')
sci.volume         = dbval(entry , 'DATA_VOLUME')

e = dbval(entry,'AEC_RESPONSE')
    aec = sci.aec_response
    aec.respond_to_aec = e
sci.aec_response = aec

e = dbval(entry,'EIS_FLR_RES')
    flare = sci.eis_flare_response
    flare.respond_to_eis_flare = e[0]
    flare.response_study_id = e[1]
    flare.x_repoint = e[2]
    flare.y_repoint = e[3]
    flare.repoint_raster_index = e[4]
sci.eis_flare_response = flare

e = dbval(entry,'EIS_EVT_RES')
    event = sci.eis_event_response
    event.respond_to_eis_event = e[0]
    event.response_study_id = e[1]
    event.x_repoint = e[2]
    event.y_repoint = e[3]
    event.repoint_raster_index = e[4]
sci.eis_event_response = event

e = dbval(entry,'XRT_FLR_RES')
    xrt = sci.xrt_flare_response
    xrt.respond_to_xrt_flare = e[0]
    xrt.response_study_id = e[1]
    xrt.x_repoint = e[2]
    xrt.y_repoint = e[3]
    xrt.repoint_raster_index = e[4]
    xrt.xrt_flare_in_FOV = e[5]
    xrt.follow_on_study_id = e[6]
sci.xrt_flare_response = xrt

dbclose

; Get science-raster properties from science-raster table
n = sci.nRasters
FOR i = 0 , n-1 DO BEGIN

    sra = db_read_sciencestudyraster_entry(sci.sequence_id, i)
    IF (N_TAGS(sra) EQ 0) THEN RETURN , 0
    sci.studyRasters[i] = sra

ENDFOR

RETURN , sci

END