function sxt_orhis,index_out_qr, index_out, ser_map     
;

version=1.0 ; version# of This routine 

or_his_ind_temp={time:0l,day:0,version:version, $ ; times from OR times
               serial_num:0l,npfi:0,orhis:strarr(50)}

nout=n_elements(ser_map)
or_his_index=replicate(or_his_ind_temp,nout)
or_his_index.serial_num=ser_map
or_his_index.time=index_out.gen.time
or_his_index.day=index_out.gen.day
for pii=0,nout-1 do begin
   nser=where(gt_tagval(index_out_qr,/serial_num) eq ser_map(pii),orcnt)
   or_his_index(nser).npfi=orcnt
   pr_his_index,index_out_qr(nser),orhis
   orhis=['',strtrim(orhis,2)]
   ssb=where(orhis eq '',nb)
   if nb ne orcnt then begin 
      box_message,'Warning - unexpected HISTORY contents...
   endif else begin
      orhis(ssb)=anytim(index_out_qr(nser),/ecs)
      need=[0,1,2,5,6]
      hisinf=''
      for pjj=0,nb-1 do begin  
         thisp=nser(pjj)                        
         fovc='PFI FOV_CENTER: ' + $
              arr2str(index_out_qr(thisp).sxt.fov_center,/trim)
         hisinf=[temporary(hisinf),orhis([ssb(pjj)+need]),fovc,'']
      endfor
      or_his_index(pii).orhis=hisinf
   endelse
endfor

return,or_his_index
end