Attribute VB_Name = "Module1"
Option Explicit

Public DBCoN As ADODB.Connection
Public pclsCodeSearch As Object
Public pclsAddressSearch As Object
Public Codesearch As Object
Public Searcher As Object
Public pclsUser As Object
Public pclsMasterSearch As Object
Public pclsMain As Object
Public UsrID As String

Global strTIN As String

Public Const cvarPediaAge = 14

Public Const cvarBirthPlace = 0
Public Const cvarTelNumber = 2
Public Const cvarHouseStreet = 1
Public Const cvarBarangay = 3
Public Const cvarTown = 4
Public Const cvarOccupation = 5
Public Const cvarNationality = 6
Public Const cvarReligion = 7
Public Const cvarCitizenship = 8
'Public Const cvarSpouse = 8
Public Const cvarBarangayCaptain = 9
Public Const cvarName = 0
Public Const cvarAddress = 1
Public Const cvarEmployer = 3
Public Const cvarRelationship = 3
Public Const cvarLastName = 0
Public Const cvarFirstName = 1
Public Const cvarMiddleName = 2
'
'

Public Const cvarPersonal = "P"
Public Const cvarCompany = "C"
Public Const cvarHMO = "I"
Public Const cvarSocialService = "S"
 
Public Const cvarGovEmp = "GE"
Public Const cvarGovEmpDependent = "GD"
Public Const cvarSeniorCitizen = "SM"
Public Const cvarNone = "-1"
Public Const cvarNKTIEmp = "KE"
Public Const cvarNKTIEmpDependent = "KD"
Public Const cvarBarangayOfficial = "BO"


'Public Const cvarGovHospital = "Gov Hospital"
'Public Const cvarPrivate = "Private"
'Public Const cvarPolitician = "Politician"
'Public Const cvarMedia = "Media"
'Public Const cvarCivic = "Civic"
'Public Const cvarGovAgency = "Gov Agency"
'Public Const cvarOthers = "Others"
'Public Const cvarWalkin = "Walk-in"


Public Const Ref0 = "Government Hospital"
Public Const Ref1 = "Private Hospital/Clinic"
Public Const Ref2 = "Politician/Private Individual"
Public Const Ref3 = "Media"
Public Const Ref4 = "Civic/Religious"
Public Const Ref5 = "Government Agency"
Public Const Ref6 = "Others"
Public Const Ref7 = "Walk-in"

Public Const Ref0c = "GH"
Public Const Ref1c = "CL"
Public Const Ref2c = "PV"
Public Const Ref3c = "ME"
Public Const Ref4c = "RE"
Public Const Ref5c = "GA"
Public Const Ref6c = "OT"
Public Const Ref7c = "WI"

Public Const cvarPay = "P"
Public Const cvarService = "S"
 
Public strEmployeecode As String
Public strEmployeename As String

Public Enum pStatus
    Max = 1
    Min = 0
End Enum
  
Public blnAllowEstimateAge As Boolean
Public pstrHospitalAddress As String
Public pstrHospitalMTS As String
Public pstrHospitalName As String
Public pdCurDate As Date
Public pstrPasswordSetting
Public gstrPatientPicturePath As String


Global SelectedRecID As String
Global SelectedRecDesc As String

Public Const cvarChild = "0"
Public Const cvarSingle = "1"
Public Const cvarMarried = "2"
Public Const cvarWidow = "3"
Public Const cvarSeparated = "4"
Public Const cvarDivorced = "5"
Public Const cvarLivein = "6"
Public Const cvarAnnulled = "7"

Public Const cvarNoGrade = "0"
Public Const cvarPreSchool = "1"
Public Const cvarElementary = "2"
Public Const cvarHighSchool = "3"
Public Const cvarPostSecondary = "4"
Public Const cvarCollege = "5"
Public Const cvarCollegeGraduate = "6"

'No Grade Completed
'Pre -School
'Elementary
'High School
'Post Secondary
'College
'College Graduate
'Higher

Public ReferralFrom()
Public ReferralFromMax As Integer

Public Demog As New clsDemographics


Public Sub ModInit()


    LoadReferredFrom
    
'      Dim recTemp As New ADODB.Recordset
'      Set recTemp = DBCoN.Execute("Select *, GetDate() as CurDate From Patient_Data..tbHospitalInfo")
'      With recTemp
'         pstrHospitalName = !Company
'         pstrHospitalAddress = !Address1
'         pdCurDate = !CurDate
'         pstrHospitalMTS = !MTSServerName
'        ' pstrPasswordSetting = !OPDPassword
'        ' strTIN = !TINNO & ""
'        ' gstrPatientPicturePath = !PatientPicturePath & ""
''         IsGeneric = !Bygeneric
'        .Close
'      End With
'
'      Set recTemp = Nothing
'
'
''        Set User = CreateObject("MEDSYS_User.clsCurrentUser")
'    Set pclsCodeSearch = CreateObject("CodeSearchForm.clsCodeSearch")
'    Set Searcher = CreateObject("CodeSearchForm.clsCodeSearch")
'    Set Codesearch = CreateObject("CodeSearchform.clsCodeSearch")
'    Set pclsAddressSearch = CreateObject("AddressSearchForm.clsAddressSearch")
''    Set pclsMasterSearch = CreateObject("Demograph_MasterSearch.clsPatientSearch")
'
''
''    pclsCodeSearch.MTS_Server = pstrHospitalMTS
'    pclsCodeSearch.SearchMode = True
'    pclsCodeSearch.Initialize_Classes
'    pclsCodeSearch.Connection = DBCoN
'    pclsCodeSearch.CompanyName = pstrHospitalName
'
''    pclsAddressSearch.MTS_Server = ""
''    pclsAddressSearch.CompanyName = pstrHospitalName
'    pclsAddressSearch.SearchMode = True
'    pclsAddressSearch.Initialize_Classes
'    pclsAddressSearch.Connection = DBCoN
'
'    If pclsMasterSearch.InitConnection(DBCoN, pstrHospitalMTS) Then
'        Set pclsMain = pclsMasterSearch.PatientClass
'    End If

End Sub


Public Sub OnlyNumbers(KeyAscii As Integer)
    Dim ch As String

    ch = Chr$(KeyAscii)
    If Not ( _
        (ch >= "0" And ch <= "9") _
    ) Then
        ' Cancel the character.
        KeyAscii = 0
    End If

End Sub
    
    
Private Sub LoadReferredFrom()

'    Dim SQLStr As String
'    SQLStr = "select [ReferredFromID],[Description]  From [Build_file].[dbo].[tbCoReferredFrom] order by referredfromid "
'
'    Dim Rec As New ADODB.Recordset
'
'    Rec.Open SQLStr, DBCoN, adOpenDynamic, adLockReadOnly
'
'    ReferralFromMax = -1
'
'    With Rec
'        Do While Not .EOF '
'
'            ReferralFromMax = ReferralFromMax + 1
'
'            ReDim Preserve ReferralFrom(1, ReferralFromMax)
'            ReferralFrom(0, ReferralFromMax) = .Fields("ReferredFromID")
'            ReferralFrom(1, ReferralFromMax) = .Fields("Description")
'
'            .MoveNext
'        Loop
'    End With
'
'    Rec.Close

    ReferralFromMax = 7
    ReDim ReferralFrom(1, ReferralFromMax)

    ReferralFrom(0, 0) = Ref0c
    ReferralFrom(0, 1) = Ref1c
    ReferralFrom(0, 2) = Ref2c
    ReferralFrom(0, 3) = Ref3c
    ReferralFrom(0, 4) = Ref4c
    ReferralFrom(0, 5) = Ref5c
    ReferralFrom(0, 6) = Ref6c
    ReferralFrom(0, 7) = Ref7c
    
    ReferralFrom(1, 0) = Ref0
    ReferralFrom(1, 1) = Ref1
    ReferralFrom(1, 2) = Ref2
    ReferralFrom(1, 3) = Ref3
    ReferralFrom(1, 4) = Ref4
    ReferralFrom(1, 5) = Ref5
    ReferralFrom(1, 6) = Ref6
    ReferralFrom(1, 7) = Ref7
    
    
End Sub





Public Function StringLen(ByVal strVar As String) As Integer
   StringLen = Len(Trim$(strVar))
End Function

Public Function FormatName(ByVal FirstName As String, ByVal MiddleName As String, ByVal LastName As String) As String
    FormatName = FirstName & "|" & MiddleName & "|" & LastName
End Function
 
Public Sub UnformatName(ByVal FullName As String, ByRef FirstName As String, ByRef MiddleName As String, ByRef LastName As String)

    Dim Title As String
    Dim RetStr As String

    If InStr(FullName, "MR.") > 0 Then
        Title = "MR."
        RetStr = Mid(FullName, 3)
    End If

    If InStr(FullName, "MRS.") > 0 Then
        Title = "MRS."
        RetStr = Mid(FullName, 4)
    End If

    ' If there is |, use it, if not use space
    If InStr(FullName, "|") > 0 Then
        FirstName = GetWord(FullName, "|")
        MiddleName = GetWord(FullName, "|")
    Else
        FirstName = GetWord(FullName, " ")
        MiddleName = GetWord(FullName, " ")
    End If
    
    If FullName = "" Then
        LastName = MiddleName
        MiddleName = ""
    Else
        LastName = FullName
    End If

End Sub

Public Function GetWord(ByRef WordGroup As String, ByVal Separator As String) As String

    Dim SepPos As Integer

    SepPos = InStr(WordGroup, Separator)
    If SepPos > 0 Then
        GetWord = Mid(WordGroup, 1, SepPos - 1)
        WordGroup = Mid(WordGroup, SepPos + Len(Separator))
    Else
        GetWord = WordGroup
        WordGroup = ""
    End If

End Function