Function RSoundex(FullString As String) As String
    '**************************************************************
    '**************************************************************
    'WRITTEN
    '2021-Apr-29
    '**************************************************************
    'PURPOSE
    'Convert the passed string to the Russell Soundex value:
    '*  Non-initial vowels, W, and H all act as dividers
    '*  Consecutive consonants with the same Soundex values are
    '   treated as one instance
    '*  The Soundex value is the initial letter plus up to three
    '   digits
    '**************************************************************
    'PROJECT
    '-NONE-
    '**************************************************************
    'CLIENT
    '-NONE-
    '**************************************************************
    'CHANGE HISTORY
    '-NONE-
    '**************************************************************
    'ARGUMENTS
    'FullString     String      Name to simplify
    '**************************************************************
    'RETURN
    'String     Russell Soundex value for passed string
    '**************************************************************
    'VARIABLES
    'sSdxC      String          Soundex value for sCurr
    'sSdxP      String          Soundex value for sPrev
    '**************************************************************
    'CONSTANTS
    '-NONE-
    '**************************************************************
    'CALLED BY
    'Query invocation
    '**************************************************************
    'CALLS
    'SoundexValue
    '**************************************************************

Function SoundexValue(SourceChar As String) As String
    '**************************************************************
    '**************************************************************
    'WRITTEN
    '2021-Apr-29
    '**************************************************************
    'PURPOSE
    'Return the Russell Soundex value for the passed letter
    '**************************************************************
    'PROJECT
    '-NONE-
    '**************************************************************
    'CLIENT
    '-NONE-
    '**************************************************************
    'CHANGE HISTORY
    '-NONE-
    '**************************************************************
    'ARGUMENTS
    'SourceChar     String  Letter to convert to Soundex number
    '**************************************************************
    'RETURN
    'String     Soundex value for passed letter
    '**************************************************************
    'VARIABLES
    '-NONE-
    '**************************************************************
    'CONSTANTS
    '-NONE-
    '**************************************************************
    'CALLED BY
    'RSoundex
    '**************************************************************
    'CALLS
    '-NONE-
    '**************************************************************