Attribute VB_Name = "mod_RegOPDFunc"
'Option Explicit
'
'
'
'Public Function ConvertToDate(strYear As String, strMonth As String, strDay As String) As String
'   Dim intTemp As Integer
'   Dim strDate As String
'
'   strDate = Trim(strYear)
'   intTemp = Val(strMonth)
'   If intTemp >= 1 And intTemp <= 12 Then
'      strDate = strDate + "." + IIf(intTemp < 10, "0", "") + Trim(strMonth)
'      intTemp = Val(strDay)
'      If intTemp >= 1 And intTemp <= 31 Then
'         strDate = strDate + "." + IIf(intTemp < 10, "0", "") + Trim(strDay)
'      End If
'   End If
'   ConvertToDate = strDate
'End Function
'
'
'Public Function ChkSurname2(strName As String, Optional blnAllowBlank As Boolean = False, Optional blnLastName As Boolean = True) As Boolean
'   If Len(Trim$(strName)) = 0 Then
'      ChkSurname2 = blnAllowBlank
'   Else
'      strName = " " + strName + " "
'      If InStr(1, strName, " JR ") > 0 Or InStr(1, strName, " SR ") > 0 Or InStr(1, strName, " II") > 0 Or InStr(1, strName, " IV") > 0 Then
'         MsgBox "Please enter labels like Jr, Sr, II, VI or the like in the patient's firstname...", vbCritical
'         ChkSurname2 = False
'      Else
'         Dim recTemp As New ADODB.Recordset
'         Set recTemp = PatientSearch.patientclass.ExecuteCommand("Patient_Data..sp_Adm_ValidateLastName '" + Trim$(strName) + "'")
'         With recTemp
'            If .EOF And .BOF Then
'
'               If MsgBox("The " + IIf(blnLastName, "last name", "middle name") + " '" + strName + "' may not be spelled correctly. Select the 'Yes' botton if correct or 'No' botton if not...", vbCritical + vbYesNo) = vbYes Then
'                  ChkSurname2 = True
'               Else
'                  ChkSurname2 = False
'               End If
'            Else
'               ChkSurname2 = True
'            End If
'         End With
'         Set recTemp = Nothing
'
'      End If
'   End If
'End Function
'
'Public Sub ExtractName(ByVal strName As String, ByRef strLastName As String, ByRef strFirstName As String, ByRef strMiddleName As String)
'   Dim intpos As Integer
'   intpos = InStr(1, strName, ",", vbTextCompare)
'   If intpos > 0 Then
'      strLastName = Trim$(Mid$(strName, 1, intpos - 1))
'      strName = Trim$(Mid$(strName, intpos + 1))
'      intpos = InStr(1, strName, ",", vbTextCompare)
'      If intpos > 0 Then
'         strFirstName = Trim$(Mid$(strName, 1, intpos - 1))
'         strMiddleName = Trim$(Mid$(strName, intpos + 1))
'      Else
'         strFirstName = strName
'         strMiddleName = ""
'      End If
'   Else
'      strLastName = Trim$(strName)
'      strFirstName = ""
'      strMiddleName = ""
'   End If
'End Sub
'
'Public Function CheckHMOAccount(strAccountNum As String) As Boolean
'   Dim Rec As New ADODB.Recordset
'   Dim Sql As String
'
'   CheckHMOAccount = False
'
'   Sql = "Patient_Data..SP_AOPD_CheckCompanyAccount '" & strAccountNum & "'"
'
'   With Rec
'        If .State > 0 Then .Close
'        .CursorLocation = adUseClient
'        .Open Sql, pclsUser.sqlconnection, adOpenDynamic, adLockReadOnly
'
'        If .RecordCount > 0 Then
'            CheckHMOAccount = True
'        End If
'        .Close
'   End With
'   Set Rec = Nothing
'End Function
'