]
BEGIN 

-- This code block writes the updated values to the 'RIDOT.RIDOT_EMP_LEAVE_BALANCES' Table

  UPDATE RIDOT.RIDOT_EMP_LEAVE_BALANCES
  SET vacation_hours = :RIDOT_EMP_LEAVE_BALANCES_V.VAC_HOURS,
  		sick_hours = :RIDOT_EMP_LEAVE_BALANCES_V.SIC_HOURS,
  		deferred_vac_hours = :RIDOT_EMP_LEAVE_BALANCES_V.DEF_HOURS,
  		personal_leave_hours_YTD = :RIDOT_EMP_LEAVE_BALANCES_V.PERS_HOURS,
  		family_sick_hours_YTD = :RIDOT_EMP_LEAVE_BALANCES_V.FAM_HOURS,
  		military_leave_hours_YTD = :RIDOT_EMP_LEAVE_BALANCES_V.MIL_HOURS,
  		last_update_date = :RIDOT_EMP_LEAVE_BALANCES_V.LAST_UPDATE_DATE
  WHERE RIDOT.RIDOT_EMP_LEAVE_BALANCES.EMPLOYEE_SSN = :RIDOT_EMP_LEAVE_BALANCES_V.SSN;
  commit;

-- This code block tells Forms what to display next dependant upon whether the update
-- was successful or not

IF NOT FORM_SUCCESS THEN
	Show_Window('Window_Save_Bad');
	Go_Item('BTN_OK1');
	Hide_Window('WINDOW_CONFIRM');
ELSE
	Show_Window('Window_Save_OK');
	Go_Item('BTN_OK');
	Hide_Window('WINDOW_CONFIRM');
END IF;
END;
[