;docformat='rst'
;+
;   Manages CIPS production processing: sets production flag, calls process_cips.pro
;   and sends PAN's to the PDC.
;
; :Author:
;    Lon Riesberg
;
;-
;+
; :Params:
;   start_time: in, required, double
;     the start time in as an AIM date;
;     will be in year day format if yd keyword is set
;   end_time: in, required, double
;     the end time in as an AIM date
;     will be in year day format if yd keyword is set
;   ret_info: out, required, structure
;     the structure in which the output data is returned
;
; :Keywords:
;   yd: in, optional, boolean, optional
;     if set the start_time and end_time are assumed to be in
;     the year dat format and in need of conversion to an aim date
;   retrieval_param: optional, boolean, optional
;     NOT CURRENTLY USED -- would be a flag for the ret_info structure
;   NO_3A: optional, boolean, optional
;     NOT CURRENTLY USED -- would cause 3A processing not to happen
;   just_1a: optional, boolean, optional
;      if set do only 1a processing
;   just_1b: optional, boolean, optional
;      if set do only 1b processing. ignored if 1a processing is set
;-
;+
; :Examples:
;    run_cips_production_processing, start_time, stop_time
;-

pro run_cips_production_processing, start_time, stop_time, ret_info, retrieval_param=retrieval_param, NO_3A=NO_3A, just_1a=just_1a, just_1b=just_1b, yd=yd

  set_cips_production_vars
  orbit_info_array = 0
  IF KEYWORD_SET( yd ) THEN BEGIN
  	start_time = ad2usec( start_time )
  	stop_time  = ad2usec( stop_time )
  ENDIF

  IF  SIZE( orbit_info_array, /TYPE ) NE 8 THEN BEGIN
    orbit_info_array = get_orbit_info(start_time, stop_time )
  ENDIF
  print, orbit_info_array.ORBIT_NUMBER
  
  yyyydoy = ROUND(usec2yd( start_time + ((start_time - stop_time)/2) ))
  
  year = FIX(yyyydoy / 1000)
  doy = yyyydoy - (year * 1000L)
  
  if (strcmp(!VERSION_2, '5.20')) then begin
    ; The current version 5 level 2 processing "appears" to corrupt the path and environment
    ;   variables. So disable level 3 processing for version 5
                                ;process_cips_v5, orbit_info_array,
                                ;ret_info, just_1a=just_1a, /NO_3A,
                                ;/no_raa
     process_cips_v5, orbit_info_array, ret_info, just_1a=just_1a, /NO_3A
     ;process_cips_v5, orbit_info_array, ret_info, just_1a=just_1a, /NO_3A, /NO_RAA
     ;process_cips_v5, orbit_info_array, ret_info, just_1a=just_1a
  endif else begin
    process_cips, orbit_info_array, ret_info, just_1a=just_1a, just_1b=just_1b
  endelse

end