Attribute VB_Name = "modTemp"
Option Explicit

Public ZipCode As Object
Public MedicareType As Object
Public MemberList As Object
Public EmployerList As Object
Public Medicare As Object
Public ListZipCode As Object
Public Icd10 As Object
Public DoctorList As Object
Public Doctor As Object

Public user As Object
Public MEDSYSClass As Object
Public clsEClaims As Object

Global Finished As Boolean

Public Sub Main()
On Error GoTo ErrHandler
Dim objMessage As String

objMessage = "CreateObject Initialize : MEDSYS_User.clsCurrentUser" & vbCrLf
    Set user = CreateObject("MEDSYS_User.clsCurrentUser")
objMessage = "CreateObject Successful : MEDSYS_User.clsCurrentUser" & vbCrLf

objMessage = "CreateObject Initialize : MEDSYSClasses.clsMEDSYS" & vbCrLf
    Set MEDSYSClass = CreateObject("MEDSYSClasses.clsMEDSYS")
objMessage = "CreateObject Successful : MEDSYSClasses.clsMEDSYS" & vbCrLf

objMessage = "CreateObject Initialize : prjMedsysEClaims.clsEClaims" & vbCrLf
    Set clsEClaims = CreateObject("prjMedsysEClaims.clsEClaims")
objMessage = "CreateObject Successful : prjMedsysEClaims.clsEClaims" & vbCrLf

objMessage = "CreateObject Initialize : prjListEmployers.ListEmployers" & vbCrLf
    Set EmployerList = CreateObject("prjListEmployers.ListEmployers")
objMessage = "CreateObject Successful : prjListEmployers.ListEmployers" & vbCrLf

objMessage = "CreateObject Initialize : ClassMedicare.clsMedicare" & vbCrLf
    Set Medicare = CreateObject("ClassMedicare.clsMedicare")
objMessage = "CreateObject Successful : ClassMedicare.clsMedicare" & vbCrLf

objMessage = "CreateObject Initialize : ZipCodes.ZipCode" & vbCrLf
    Set ZipCode = CreateObject("ZipCodes.ZipCode")
objMessage = "CreateObject Successful : ZipCodes.ZipCode" & vbCrLf

objMessage = "CreateObject Initialize : ZipCodeList.clsZipCodeList" & vbCrLf
    Set ListZipCode = CreateObject("ZipCodeList.clsZipCodeList")
objMessage = "CreateObject Successful : ZipCodeList.clsZipCodeList" & vbCrLf

objMessage = "CreateObject Initialize : prjMedicareType.MedType" & vbCrLf
    Set MedicareType = CreateObject("prjMedicareType.MedType")
objMessage = "CreateObject Successful : prjMedicareType.MedType" & vbCrLf

objMessage = "CreateObject Initialize : prjListMembers.ListMembers" & vbCrLf
    Set MemberList = CreateObject("prjListMembers.ListMembers")
objMessage = "CreateObject Successful : prjListMembers.ListMembers" & vbCrLf

objMessage = "CreateObject Initialize : ICD10.ICDCodeSearch" & vbCrLf
    Set Icd10 = CreateObject("ICD10.ICDCodeSearch")
objMessage = "CreateObject Successful : ICD10.ICDCodeSearch" & vbCrLf

objMessage = "CreateObject Initialize : prjDoctorListDLL.clsDoctorList" & vbCrLf
    Set DoctorList = CreateObject("prjDoctorListDLL.clsDoctorList")
objMessage = "CreateObject Successful : prjDoctorListDLL.clsDoctorList" & vbCrLf

objMessage = "CreateObject Initialize : prjDoctorDLL.Doctor" & vbCrLf
    Set Doctor = CreateObject("prjDoctorDLL.Doctor")
objMessage = "CreateObject Successful : prjDoctorDLL.Doctor" & vbCrLf

    user.PasswordDeptCode = "2"
    user.ShowMain
    
    If user.Connected Then
        If ConnectAll Then
            MEDSYSClass.MedsysUser = user
            MEDSYSClass.EXEPath = App.Path
            user.SQLConnection.DefaultDatabase = "Medicare"
            user.SQLConnection.CommandTimeout = 120
            
            Set clsEClaims.MyMedsysUser = user
            Set clsEClaims.MyMedicareType = MedicareType
            Set clsEClaims.MyZipCode = ZipCode
            Set clsEClaims.MyMemberList = MemberList
            Set clsEClaims.MyMedicare = Medicare
            Set clsEClaims.MyListZipCode = ListZipCode
            Set clsEClaims.MyMedSysClass = MEDSYSClass
            Set clsEClaims.MyEmployerList = EmployerList
            Set clsEClaims.MyIcd10 = Icd10
            Set clsEClaims.MyDoctorList = DoctorList
            Set clsEClaims.MyDoctor = Doctor
            
            clsEClaims.MyLinkedMode = False
            
            Finished = clsEClaims.Initialize

            If Finished <> True Then
                clsEClaims.OpeneClaims True
            End If
            
            Do
              DoEvents
            Loop Until Finished ' Exit when Finished is True
        End If
    End If
    Exit Sub
ErrHandler:
    MsgBox objMessage & Err.Description, vbOKOnly + vbCritical
End Sub

Public Function ConnectAll()
    Dim blnConnected As Boolean
    Dim errDLL() As Variant
    Dim index As Integer
    errDLL = Array("CurrentUser", "ClassMedicare", "ZipCodes", "ZipCodeList", "MedicareType", "PRJLISTMEMBERS", "prjDoctorDLL", "prjDoctorListDLL", "PRJLISTEMPLOYERS")
On Error GoTo errtrap
    blnConnected = False
    index = 0
    If user.Connected Then
        index = index + 1
        If Medicare.InitConnection(user.SQLConnection.ConnectionString) Then
            index = index + 1
            If ZipCode.InitConnection(user.SQLConnection.ConnectionString) Then
                index = index + 1
                If ListZipCode.InitConnection(user.SQLConnection.ConnectionString) Then
                    index = index + 1
                    If MedicareType.InitConnection(user.SQLConnection.ConnectionString) Then
                        index = index + 1
                        If MemberList.InitConnection(user.SQLConnection.ConnectionString) Then
                            index = index + 1
                            If Doctor.InitConnection(user.SQLConnection.ConnectionString) Then
                                index = index + 1
                                If DoctorList.InitConnection(user.SQLConnection.ConnectionString) Then
                                   index = index + 1
                                        If EmployerList.InitConnection(user.SQLConnection.ConnectionString) Then
                                            index = index + 1
                                            blnConnected = True
                                        End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
   ConnectAll = blnConnected
Exit Function
errtrap:
    MsgBox errDLL(index) & ".dll was not able to connect to server.", vbCritical + vbOKOnly
End Function