|
|
 |
|
Employee Assistance Program (EAP) |
The Chancellor's Office offers employees an employee assistance program
(EAP), which provides free, confidential counseling and referral services. Pacificare
Behavioral Health administers the service. Employees and any members of their
household, including dependents living away from home, have 24-hour access to
services that cover:
- Emotional well-being: Stress and depression, family matters, domestic
violence, grief and loss
- Work issues: Co-worker relationships, job burnout, career planning,
performance concerns
- Parenting and child care: Becoming a parent/exploring adoption,
child-care options and referrals, parenting skills, strategies for
working parents
- Education: School selection, college searches/applications/scholarships,
tutoring, school performance, special needs
- Wellness services: StopSmoking program, Taking Care of Diabetes program,
Taking Charge of Depression program
- Legal assistance: Divorce, landlord/tenant conflicts, wills/consumer
issues, free 30-minute consultations, referral to legal specialists
- Financial planning: Help with credit reports, debt management,
budgeting, dealing with delinquent payments
- Substance abuse and recovery: Alcohol/drug abuse, eating disorders,
treatment centers/detox services, support groups/community services
- Resources for seniors: Elder care options and referrals, the aging
process, long-distance caregiving, community programs and services
|
|
Last Updated:
<%
'Dim strFileName
'Dim dtmLastModified
'Dim dtmLastModifiedDate
'Dim dtmLastModifiedTime
Dim strFileName, strFileNameCalendar, objFile, objFileSystemObject
Dim dtmLastModified, dtmLastModifiedDate, dtmLastModifiedTime
Dim sLastModifiedMonth
strFileName = Request.ServerVariables("SCRIPT_NAME")
strFileName = Replace(strFileName, "/", "\")
strFileName = Server.MapPath(strFileName)
Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystemObject.GetFile(strFileName)
dtmLastModified = objFile.DateLastModified
Set objFile = Nothing
Set objFileSystemObject = Nothing
dtmLastModifiedDate = FormatDateTime(dtmLastModified, 1)
dtmLastModifiedTime = FormatDateTime(dtmLastModified, 3)
Select Case Month(dtmLastModified)
Case 1
sLastModifiedMonth = "January"
Case 2
sLastModifiedMonth = "February"
Case 3
sLastModifiedMonth = "March"
Case 4
sLastModifiedMonth = "April"
Case 5
sLastModifiedMonth = "May"
Case 6
sLastModifiedMonth = "June"
Case 7
sLastModifiedMonth = "July"
Case 8
sLastModifiedMonth = "August"
Case 9
sLastModifiedMonth = "September"
Case 10
sLastModifiedMonth = "October"
Case 11
sLastModifiedMonth = "November"
Case 12
sLastModifiedMonth = "December"
End Select
Response.Write sLastModifiedMonth & " " & Day(dtmLastModified) & ", " & Year(dtmLastModified)
%>
|
