<% option explicit %> Transatlantic Times
Latest & World News
ANAC News & Updates
ANAC HOD Updates
ANAC Upper HOD Updates
ANAC State Chapter Updates
Legal Services
Agricultural Development
Educational Programs
HealthCare Updates
Economic, Corporate & Commercial Development
ANAC Community Center & Cultural Development
Democracy & Political Development
Log In
ANAC Members Log In Screen

Enter SSN and PWD and select "Find Me"

Social Security Number
           
Password
   
<% if Len(Request.querystring) > 0 then Dim cSQL, objConn, rsE, EName, FDate, snapPO, snapEPO, BF, IsFee, IsOption, rsMS, MS, DB DB = Request.QueryString.Item("DB") If Len(DB) = 0 Then DB = "1" End If If StrComp(DB, "1", vbTextCompare) = 0 Then Session("DBName") = "DSN=testdsn" ElseIf StrComp(DB, "2", vbTextCompare) = 0 Then Session("DBName") = "DSN=ciguk" ElseIf StrComp(DB, "3", vbTextCompare) = 0 Then Session("DBName") = "DSN=cignigeria" End If If Instr(1, Request.QueryString, "SubmitQuery") > 0 then If Len(Request.Form.Item("SSN")) > 0 And Len(Request.Form.Item("Zip")) > 0 then Set objConn = Server.CreateObject("ADODB.Connection") Set rsE = Server.CreateObject("ADODB.Recordset") cSQL = "SELECT Enrollees_ID, FirstName, LastName, MidInit From Enrollees Where SSN = '" & Request.Form.Item("SSN") & "' AND ZIP = '" & Request.Form.Item("ZIP") & "'" objConn.Open Session("DBName") rsE.Open cSQL, objconn If rsE.BOF And rsE.EOF Then Response.Write "

Enrollee Not Found!" Else rsE.MoveFirst Set rsMS = Server.CreateObject("ADODB.Recordset") cSQL = "SELECT LogInList FROM Company INNER JOIN Company_Enrollees ON Company.Company_ID = Company_Enrollees.Company_ID WHERE Company_Enrollees.Enrollee_ID = " & rsE.Fields("Enrollees_ID") rsMS.Open cSQL, objConn, 1 If rsMS.EOF And rsMS.BOF Then MS = "$" Else Select Case rsMS.Fields("LogInList") Case 1 MS = "$ " Case 2 MS = "L " Case 3 MS = "N" Case 4 MS = "G " End Select If Len(MS) = 0 Then MS = "$" End If End If rsMS.Close Set rsMS = Nothing EName = rsE.Fields("FirstName") If Len(rsE.Fields("MidInit")) > 0 Then EName = Ename & " " & rsE.Fields("MidInit") & "." end if EName = Ename & " " & rsE.Fields("LastName") Response.Write "

Enrollee: " & Ename & "

" Response.Write "

Recent Transactions

" & vbcr Response.Write "" & vbcr StartEnrolleeDetailSection "CHP Services", False, False BF = EnrolleeDetailBalanceForward(0, rsE.Fields("Enrollees_ID"), False, MS) IsFee = False IsOption = False FDate = DateAdd("m", -1, Date) cSQL = "SELECT EnrolleeTransactions.*, EnrolleeTransactions.PlanOptions_ID, EnrolleeTransactions.PlanOptions_ID, EnrolleeTransactions.OptionDebit From EnrolleeTransactions Where EnrolleeTransactions.Enrollees_ID = " & rsE.Fields("Enrollees_ID") & " And (EnrolleeTransactions.PlanOptions_ID = 0 Or (EnrolleeTransactions.PlanOptions_ID <> 0 And EnrolleeTransactions.OptionDebit = -1)) And Date >= #" & FDate & "# Order By Date, EnrolleeTransactions_ID" EnrolleeDetailTransactions cSQL, IsFee, IsOption, BF, rsE.Fields("Enrollees_ID"), MS cSQL = "Select * From EnrolleePlanOptions Where Enrollees_ID = " & rsE.Fields("Enrollees_ID") set snapEPO = Server.CreateObject("ADODB.Recordset") snapEPO.Open cSQL, objConn Do Until snapEPO.EOF = True set snapPO = Server.CreateObject("ADODB.Recordset") cSQL = "Select * From PlanOptions Where PlanOptions_ID = " & snapEPO.Fields("PlanOptions_ID") snapPO.Open cSQL, objConn StartEnrolleeDetailSection snapPO.Fields("OptionName"), True, snapPO.Fields("IsFee") If snapPO.Fields("IsFee") = False Then BF = EnrolleeDetailBalanceForward(snapPO.Fields("PlanOptions_ID"), rsE.Fields("Enrollees_ID"), True, MS) IsOption = True cSQL = "Select * From EnrolleeTransactions Where Enrollees_ID = " & rsE.Fields("Enrollees_ID") & " And PlanOptions_ID = " & snapPO.Fields("PlanOptions_ID") & " And Date >= #" & FDate & "# Order By Date, EnrolleeTransactions_ID" EnrolleeDetailTransactions cSQL, snapPO.Fields("IsFee"), IsOption, BF, rsE.Fields("Enrollees_ID"), MS Else BF = 0 End If snapPO.Close set snapPO = nothing snapEPO.MoveNext Loop Response.Write "
" & vbcr snapEPO.Close set snapEPO = nothing End If rsE.Close Set rsE = Nothing Set objConn = nothing elseIf Len(Request.Form.Item("SSN")) = 0 Then Response.Write "

Please enter SSN!

" else Response.Write "

Please enter password!

" end if end if end if %>

Front Page | About Us | How to Join | Member Services/Events | Contact | Forum & Chat
Press Release | Bills/Articles | Committee/Members | Executives & Congress Offices | ANAC Financials
Front Page Editor
Copyright © 2005 All Nigeria American Congress. All rights reserved. Reproduction in whole or in part without permission is prohibited


<% Function EnrolleeDetailBalanceForward(PlanOptions_ID, Enrollees_ID, IsOption, MS) Dim BF Dim FDate FDate = DateAdd("m", -1, Date) BF = 0 Response.Write "" Response.Write "" & FDate & "" & vbcr Response.Write "Balance Forward" & vbcr Response.Write "" & vbcr BF = OptionBalForward(FDate, Enrollees_ID, PlanOptions_ID, IsOption) If BF >=0 then Response.Write "" & FCurrency(BF, MS) & "" & vbcr else Response.Write "" & FCurrency(BF, MS) & "" & vbcr end if Response.Write "" & vbcr EnrolleeDetailBalanceForward = BF End Function Function EnrolleeDetailTransactions(DSQL, IsFee, IsOption, BF, Enrollees_ID, MS) Dim snapD Dim FDate Dim Amt Dim cSQL Dim snapED Dim PatientName Dim ServiceCode Dim snapS FDate = DateAdd("m", -1, Date) Set snapD = Server.CreateObject("ADODB.Recordset") snapD.Open DSQL, objConn Do Until snapD.EOF = True Response.Write "" & vbcr Response.Write "" & snapD.Fields("Date") & "" Response.Write "" & snapD.Fields("Description") If InStr(1, snapD.Fields("Description"), "Services", vbTextCompare) > 0 Then ServiceCode = Right(snapD.Fields("Description"), Len(snapD.Fields("Description")) - Len("Services: ")) cSQL = "Select * From Services Where Code = '" & ServiceCode & "'" set snapS = Server.CreateObject("ADODB.Recordset") snapS.Open cSQL, objConn If snapS.RecordCount <> 0 Then Response.Write " " & snapS.Fields("Name") end if snapS.Close set snapS = nothing If IsNull(snapD.Fields("EnrolleesDependants_ID")) = False Then Set snapED = Server.CreateObject("ADODB.Recordset") cSQL = "Select * From EnrolleeDependants Where EnrolleeDependants_ID = " & snapD.Fields("EnrolleesDependants_ID") snapED.Open cSQL, objConn If snapED.RecordCount <> 0 Then PatientName = Trim(snapED.Fields("LastName") & ", " & snapED.Fields("FirstName") & " " & snapED.Fields("MidInit")) Response.Write " " & PatientName End If snapED.Close set snapED = nothing End If end if Response.Write "" Amt = 0 If Len(snapD.Fields("Amount")) > 0 Then If Len(snapD.Fields("Quantity")) > 0 Then If IsOption = False Then If snapD.Fields("IsDebit") = True Then Amt = snapD.Fields("Quantity") * snapD.Fields("Amount") Else Amt = snapD.Fields("Quantity") * snapD.Fields("Amount") * -1 End If Else If snapD.Fields("OptionDebit") = True Then Amt = snapD.Fields("Quantity") * snapD.Fields("Amount") Else Amt = snapD.Fields("Quantity") * snapD.Fields("Amount") * -1 End If End If End If End If If Amt < 0 Then Response.Write "" & FCurrency(Amt, MS) & "" & vbcr Else Response.Write "" & FCurrency(Amt, MS) & "" & vbcr End If If IsFee = False Then BF = BF + Amt If BF < 0 Then Response.Write "" & FCurrency(BF, MS) & "" & vbcr Else Response.Write "" & FCurrency(BF, MS) & "" & vbcr End If End If snapD.MoveNext Response.Write "" & vbcr Loop snapD.Close set snapD = nothing End Function Function FCurrency(FVal, MS) Dim FStr, Pos, FStrL, FStrR FStr = FormatCurrency(FVal) Pos = Instr(1, FStr, "$", vbTextCompare) FStrL = Left(FStr, Pos - 1) FStrR = Right(FStr, Len(FStr) - Pos) FCurrency = FStrL & MS & " " & FStrR End Function Function OptionBalForward(BFDate, Enrollees_ID, PlanOptions_ID, IsOption) Dim BF Dim cSQL Dim snapT If PlanOptions_ID <> 0 Then cSQL = "Select * From EnrolleeTransactions Where Enrollees_ID = " & Enrollees_ID & " And PlanOptions_ID = " & PlanOptions_ID & " And Date < #" & BFDate & "# Order By Date, EnrolleeTransactions_ID" Else cSQL = "SELECT EnrolleeTransactions.*, EnrolleeTransactions.PlanOptions_ID, EnrolleeTransactions.PlanOptions_ID, EnrolleeTransactions.OptionDebit From EnrolleeTransactions Where EnrolleeTransactions.Enrollees_ID = " & Enrollees_ID & " And (EnrolleeTransactions.PlanOptions_ID = 0 Or (EnrolleeTransactions.PlanOptions_ID <> 0 And EnrolleeTransactions.OptionDebit = True)) And Date < #" & BFDate & "# Order By Date, EnrolleeTransactions_ID" End If Set snapT = Server.CreateObject("ADODB.Recordset") snapT.Open cSQL, objConn BF = 0 Do Until snapT.EOF = True If IsOption = False Then If snapT.Fields("IsDebit") = True Then BF = BF + snapT.Fields("Amount") * snapT.Fields("Quantity") Else BF = BF - snapT.Fields("Amount") * snapT.Fields("Quantity") End If Else If snapT.Fields("OptionDebit") = True Then BF = BF + snapT.Fields("Amount") * snapT.Fields("Quantity") Else BF = BF - snapT.Fields("Amount") * snapT.Fields("Quantity") End If End If snapT.MoveNext Loop snapT.Close set snapT = nothing OptionBalForward = BF End Function Sub StartEnrolleeDetailSection(SectionName, SkipRow, IsFee) If IsFee = True Then Exit Sub end if If SkipRow = True Then Response.Write "" & vbcr Response.Write "" & vbcr If IsFee = True Then Response.Write "" & SectionName & " Fee" & vbcr else Response.Write "" & SectionName & " Account" & vbcr end if Response.Write "" & vbcr Response.Write "" & vbcr Response.Write "" & vbcr else Response.Write "" & vbcr Response.Write "Date" & vbcr If IsFee = True Then Response.Write "" & SectionName & " Fee" & vbcr else Response.Write "" & SectionName & " Account" & vbcr end if Response.Write "Amount" & vbcr Response.Write "Balance" & vbcr Response.Write "" & vbcr end if End Sub %>