File Naming Conventions for Opinions at the
Seventh Court of Appeals


Below is an example of how this type of name can be generated from a docket number and opinion identifier.

Public Sub CreateName(DockNum As String, Seq As String)

    Dim Yr As Integer
    Dim DNum As String
    Dim DNumLen As Integer
    Dim Dock As String
    Dim FName As String

    Yr = Mid(DockNum, 4, 2)
    'Extract the last three characters of the docket number
    DnumLen = InStr(7, DockNum, "-") - 7
    DNum = Mid(DockNum, 7, DNumLen)
    If Len(DNum) > 3 Then
        DNum = Right(DNum, 3)
    ElseIf Len(DNum) < 3 Then
        Do Until Len(DNum) = 3
           Dnum = "0" & DNum
        Loop
    End If

    'Determine if case is on Civil "V" or Criminal "R" docket
    Dock = UCase(Right(DockNum, 1))

    FName = Yr & "-" & DNum & Dock & Seq & ".WPD"

End Sub


Clint Sare 4/3/98