Function OtborFio(FF, II, OO, DD)
   Dim FunStrok, F, I, O As String
   Dim D As Date
   Dim Rez As Boolean
   
   Rez = True
   F = ""
   I = ""
   O = ""
   
   FunStrok = UCase(PazyentyOtbor_FioSokr())
   
   If Len(FunStrok) >= 1 Then
      F = Left(FunStrok, 1)
   End If
   If Len(FunStrok) >= 2 Then
      I = Right(Left(FunStrok, 2), 1)
   End If
   If Len(FunStrok) >= 3 Then
      O = Right(Left(FunStrok, 3), 1)
   End If
   
   If UCase(Left(FF, 1)) <> F Then Rez = False
   If Rez And UCase(Left(II, 1)) <> I Then Rez = False
   If Rez And UCase(Left(OO, 1)) <> O Then Rez = False
   
   If Not IsNull(PazyentyOtbor_FDataRog()) Then
     D = PazyentyOtbor_FDataRog()
     If Rez And DD <> D Then Rez = False
   End If
   
   OtborFio = Rez
End Function