Attribute VB_Name = "modGlobaVariable"
Option Explicit


' Medsys Libraries
Global MedsysUser As Object
Global IsDirectConnectivity As Boolean
Global LinkedMode As Boolean
Global Medicare As Object
Global ZipCode As Object
Global MedicareType As Object
Global MemberList As Object
Global ListZipCode As Object
Global MedSysClass As Object
Global EmployerList As Object
Global Icd10 As Object
Global doctorList As Object
Global Doctor As Object

' Service
Global ServiceFacade As New clsServiceFacade

Global UserAccess As New clsUserAccess
Global ProgSettingsGbl As New clsProgramSettings
Global ProgramUtilities As New clsUtilities

Global Cf4ImplementationDate As Date
'arnold 1.17.2024
Global EsoaImplementationDate As Date
'------------------
'arnold 6.28.2024
Global Cf5ImplementationDate As Date
'------------------


' Settings
Global ServiceKey As PassKey
Global EcSettings As EClaimsSettings

' User Category
Global UserCategories() As UserCategoryType

Global glbUserCategory As String

Global gblWScript As Object

Global IsPatientSuffix As Boolean
Global ExtractPatientSuffix As Boolean
Global ExtractMemberSuffix As Boolean

Global PECWSUrl As String

Global DocumentDbName As String

Global DocumentTableName As String

Global IsDisplayErrMessageForm As Boolean

Global Const WM_CLOSE = &H10
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long