|
|
 |
Vision Plan |
All eligible employees appointed half-time or more for a period of more than six months, and their eligible dependents, are automatically enrolled in the vision insurance plan.
- Premiums are paid by the CSU.
- May visit any licensed ophthalmologist, optometrist or dispensing optician of choice.
- By choosing a Select Network
provider in the Vision Service Plan (VSP), the insurance will cover more out-of-pocket costs.
To find a Select Network provider outside of California, log-in at
www.vsp.com or call VSP at (800) 877-7195.
- Administrator is Vision Service Plan (VSP).
The vision plan includes:
- One comprehensive eye exam every calendar year.
- One pair of lenses every other calendar year (or calendar year if your prescription
changes) and one frame every other calendar year.
- Contact lenses every other calendar year when contact lenses are provided in lieu of
all other lens and frame benefits.
Accessing Benefits
- Claim form is not required when using standard in-network benefits.
- For employees eligible for the Video Display Terminal benefit, print the VDT Claim Form (.pdf) and present this to the VSP Select Network doctor or non-VSP provider.
- Services provided by a non-VSP provider must be paid in full by the employee. For reimbursement, complete a VSP Out-of-Network Reimbursement form (.pdf).
More Information
|
|
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)
%>
|
