DECLARE
-- Local variables needed

	v_years_of_serv     NUMBER 	 := 0;
	v_intern_flag	    VARCHAR2(3)  := NULL;
	v_sick_accr_rate    VARCHAR2(10) := NULL;
	v_vac_accr_rate     VARCHAR2(10) := NULL;
	v_vac_percent_rate  NUMBER 	 := 0;
	v_sic_percent_rate  NUMBER 	 := 0;
	
	v_personal_dsp	    NUMBER	 := 0;
	v_famsick_dsp	    NUMBER	 := 0;
	v_military_dsp	    NUMBER	 := 0;

BEGIN
	
-- Set Accrual Rates for Employee 
  	 
-- Set the appropriate accrual rates for vacation & sick time
--  First determine if employee is an intern
BEGIN
   
  SELECT
   UPPER(attribute1)
  INTO
   v_intern_flag
  FROM
   fnd_flex_value_sets     fvs,
   fnd_flex_values         ffv
  WHERE
   ffv.flex_value_set_id = fvs.flex_value_set_id
   AND UPPER(fvs.flex_value_set_name) LIKE 'RIDOT%HR%JOB%CODE%'
   AND UPPER(NVL(ffv.attribute1, 'NO')) = 'YES'
   AND ffv.enabled_flag = 'Y'
   AND NVL(end_date_active, '31-DEC-4712') > TRUNC(sysdate)
   AND ffv.flex_value = :RIDOT_ACCRUAL_BAL_HIST.CLASS_CODE
  ;
		
EXCEPTION
  WHEN NO_DATA_FOUND THEN
     v_intern_flag := 'NO';
		
END;	
 
-- INTERNS DO NOT ACCRUE ANY TIME 
  IF v_intern_flag = 'YES' THEN
     v_vac_accr_rate :=  0.0;
     v_sick_accr_rate := 0.0;
 	 
  ELSE

-- Determine accrual rate of sick time - THIS IS BASED SOLELY ON WORKWEEK
		
       IF :RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK = 40 THEN
	  v_sic_percent_rate := .0625;
	  v_sick_accr_rate := LTRIM(TO_CHAR(ROUND(v_sic_percent_rate * (:RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK * 2), 1), '999999999.9'));
		 
       ELSIF :RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK IN (20, 35) THEN
	  v_sic_percent_rate := .0577;
	  v_sick_accr_rate := LTRIM(TO_CHAR(ROUND(v_sic_percent_rate * (:RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK * 2), 1), '999999999.9'));
       
       END IF;
		
-- Determine accrual rate of vacation time - THIS IS BASED ON WORKWEEK AND YEARS OF STATE SERVICE 
	
        IF :RIDOT_ACCRUAL_BAL_HIST.years_of_service_pp_based BETWEEN 0 AND 5.00 THEN
	   v_vac_percent_rate := .0308;
	   v_vac_accr_rate := LTRIM(TO_CHAR(ROUND(v_vac_percent_rate * (:RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK * 2), 1), '999999999.9'));
				ELSIF :RIDOT_ACCRUAL_BAL_HIST.years_of_service_pp_based BETWEEN 5.01 AND 10.00 THEN
	   v_vac_percent_rate := .0500;
	   v_vac_accr_rate := LTRIM(TO_CHAR(ROUND(v_vac_percent_rate * (:RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK * 2), 1), '999999999.9'));
				ELSIF :RIDOT_ACCRUAL_BAL_HIST.years_of_service_pp_based BETWEEN 10.01 AND 15.00 THEN
	   v_vac_percent_rate := .0538;
	   v_vac_accr_rate := LTRIM(TO_CHAR(ROUND(v_vac_percent_rate * (:RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK * 2), 1), '999999999.9'));
				ELSIF :RIDOT_ACCRUAL_BAL_HIST.years_of_service_pp_based BETWEEN 15.01 AND 20.00 THEN
	   v_vac_percent_rate := .0615;
	   v_vac_accr_rate := LTRIM(TO_CHAR(ROUND(v_vac_percent_rate * (:RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK * 2), 1), '999999999.9'));
				ELSIF :RIDOT_ACCRUAL_BAL_HIST.years_of_service_pp_based BETWEEN 20.01 AND 25.00 THEN
	   v_vac_percent_rate := .0654;
	   v_vac_accr_rate := LTRIM(TO_CHAR(ROUND(v_vac_percent_rate * (:RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK* 2), 1), '999999999.9'));

	ELSE
	   v_vac_percent_rate := .0731;
	   v_vac_accr_rate := LTRIM(TO_CHAR(ROUND(v_vac_percent_rate * (:RIDOT_ACCRUAL_BAL_HIST.STD_WORK_WEEK * 2), 1), '999999999.9'));
					
	END IF;

 END IF;	
            
 -- Assign the derived values to the appropriate display items on the canvas
 -- Accrual Rate Display
 :DSP_VACATION_ACCRUAL_RATE := v_vac_accr_rate;
 :DSP_SICK_ACCRUAL_RATE := v_sick_accr_rate;
 	
 -- Union Description Display
 --:DSP_UNION_DESCRIPTION := v_union_desc;

END;