<%@ LANGUAGE="VBSCRIPT" TRANSACTION=REQUIRED %> <% Option Explicit %> <% Dim m_PreTaxTotal, m_AfterTaxTotal, m_CreditsTotal, m_PaycheckTotal, _ m_MainPrompt, m_Title, m_BenefitYear 'Handle if Review or Open Enrollment If Request("Review") = 0 Then m_BenefitYear = Year(Date) + 1 CreateOpenEnrollmentBenefits m_Title = "Open Enrollment" m_MainPrompt = "To review or change a benefit, click the appropriate item in the " & _ "Benefit column.
" & _ "You can choose any available Plan for next year." Else m_BenefitYear = Year(Date) m_Title = "Review or Change Current Benefits" m_MainPrompt = "To review or change a benefit, click the appropriate item in the " & _ "Benefit column.
" & _ "After experiencing a qualifying event, you have a limited period to change a " & _ "current benefit." End If GetPreTaxTotal GetAfterTaxTotal GetCreditsTotal GetPaycheckTotal %> <%= m_Title%>
Return to Exploration Air Home Page
Return to Employee Benefit Home Page EMPLOYEE BENEFITS HOME PAGE 		<%= m_Title%> Click here to learn how this page works


<%= m_MainPrompt%>

<% ListBenefitSummary %>
Benefit Plan Tax Status Cost per Period
Cost of Pre-tax benefits: <% If IsNull(m_PreTaxTotal) Then m_PreTaxTotal = 0 %> <% = FormatCurrency(m_PreTaxTotal) %>
Cost of After-tax benefits: <% If IsNull(m_AfterTaxTotal) Then m_AfterTaxTotal = 0 %> <% = FormatCurrency(m_AfterTaxTotal) %>
Total cost of benefits: <% = FormatCurrency(m_PreTaxTotal + m_AfterTaxTotal) %>
Flex dollars: <% If IsNull(m_CreditsTotal) Then m_CreditsTotal = 0 %> <%= FormatCurrency(m_CreditsTotal)%>
With selected benefits your regular paycheck will pay: <% If IsNull(m_PaycheckTotal) Then m_PaycheckTotal = 0 %> <%= FormatCurrency(m_PaycheckTotal)%>


©1997 Microsoft Corporation. All rights reserved. Terms of Use.

<% ' ' If first time into Open Enrollment, Create Employee Benefit records for Open Enrollment year ' Sub CreateOpenEnrollmentBenefits Dim BenefitList, rstBenefitsForID Set BenefitList = Server.CreateObject("Benefit.BenefitList") Set rstBenefitsForID = BenefitList.BenefitsForID(Application("DSNBenefits"), Session("EmployeeID"), _ m_BenefitYear) If rstBenefitsForID.EOF Then Dim Employee Set Employee = Server.CreateObject("Benefit.Employee") Employee.NewBenefits Application("DSNBenefits"), Session("EmployeeId"), m_BenefitYear End If End Sub ' ' Generate the rows for a table consisting of the Benefits for the current employee ' Sub ListBenefitSummary Dim BenefitList, rstBenefitSummary Set BenefitList = Server.CreateObject("Benefit.BenefitList") Set rstBenefitSummary = BenefitList.SummaryForID(Application("DSNBenefits"), Session("EmployeeID"), _ m_BenefitYear) Do Until rstBenefitSummary.EOF Response.Write "" & Chr(13) Response.Write "" & Chr(13) & _ rstBenefitSummary("BenefitLabel") & "" & Chr(13) Response.Write " " Response.Write rstBenefitSummary("PlanLabel") Response.Write "" & Chr(13) Response.Write " " If rstBenefitSummary("PlanCost") > 0 Then Response.Write rstBenefitSummary("TaxStatusLabel") Else Response.Write " " End If Response.Write "" & Chr(13) Response.Write " " If rstBenefitSummary("PlanCost") > 0 Then Response.Write FormatCurrency(rstBenefitSummary("PlanCost")) Else Response.Write " " End If Response.Write "" & Chr(13) Response.Write "" & Chr(13) rstBenefitSummary.MoveNext Loop End Sub Sub GetPreTaxTotal Dim BenefitList, TaxStatusID 'For Tax Status of: PreTax TaxStatusID = 2 Set BenefitList = Server.CreateObject("Benefit.BenefitList") m_PreTaxTotal = BenefitList.GetTotalCost(Application("DSNBenefits"), Session("EmployeeID"), _ m_BenefitYear, TaxStatusID) End Sub Sub GetAfterTaxTotal Dim BenefitList, TaxStatusID 'For Tax Status of: AfterTax TaxStatusID = 1 Set BenefitList = Server.CreateObject("Benefit.BenefitList") m_AfterTaxTotal = BenefitList.GetTotalCost(Application("DSNBenefits"), Session("EmployeeID"), _ m_BenefitYear, TaxStatusID) End Sub Sub GetCreditsTotal Dim BenefitList Set BenefitList = Server.CreateObject("Benefit.BenefitList") m_CreditsTotal = BenefitList.GetTotalCredits(Application("DSNBenefits"), Session("EmployeeID"), _ m_BenefitYear) End Sub Sub GetPaycheckTotal Dim BenefitList Set BenefitList = Server.CreateObject("Benefit.BenefitList") m_PaycheckTotal = BenefitList.GetTotalPaycheck(Application("DSNBenefits"), Session("EmployeeID"), _ m_BenefitYear) End Sub %>