im_future_absent_employees

one of the documented procedures in this installation of the ACS
Usage:
im_future_absent_employees   db   { coverage "30" }   { report_date "" }   { purpose "" }
What it does:
Returns a string that gives a list of recent employees
Defined in: /web/philip/tcl/intranet-status-report-defs.tcl

Source code:



    if { [empty_string_p $report_date] } {
	set report_date_sql "sysdate"
    } else {
	# add quotes for sql
	set report_date_sql "'$report_date'"
    }
    
    set sql "select u.user_id, u.first_names, u.last_name, u.email, uv.end_date, uv.description, uv.vacation_type,
                    to_char(uv.start_date,'Mon DD, YYYY') || ' - ' || to_char(uv.end_date,'Mon DD, YYYY') as dates
               from im_employees_active u, user_vacations uv
              where u.user_id = uv.user_id 
                and trunc(uv.start_date) > trunc(to_date($report_date_sql, 'YYYY-MM-DD'))
                and trunc(uv.start_date) <= trunc(to_date($report_date_sql, 'YYYY-MM-DD') + $coverage)
              order by uv.vacation_type, uv.start_date"

    return [im_absent_employees_helper $db $sql $purpose]



philg@mit.edu