Public dict As Object
Public modBmk As String
Public vTimestamp As String
Public ufAdd As ufAddPatient
Public ufMod As ufModPatient
Public NoActivity As Date
Public Function residentArray()

    Dim residents As Variant
    Dim x As Long, y As Long
    Dim TempTxt1 As String
    Dim TempTxt2 As String
    
    residents = Array("PGuilford", "TGuilford", "White", "Buckner", "Carlson", "Nguyen", "Varbanoff", "Beavers", "Dockery", "Kirk", "Smith", "Bowling", "Edwards", "Facelo", "McGee")
    
    For x = LBound(residents) To UBound(residents)
        For y = x To UBound(residents)
            If UCase(residents(y)) < UCase(residents(x)) Then
                TempTxt1 = residents(x)
                TempTxt2 = residents(y)
                residents(x) = TempTxt2
                residents(y) = TempTxt1
            End If
        Next y
    Next x
    
    residentArray = residents
    
End Function
Public Function codeArray()
    codeArray = Array("Full Code", "DNR/DNI", "DNR", "DNI", "Unknown")
End Function
Public Sub StartClock()
    NoActivity = Now + TimeValue("00:10:00")
    Application.OnTime NoActivity, "ShutDown"
End Sub
Public Sub StopClock()
    On Error Resume Next
    Application.OnTime NoActivity, "ShutDown"
End Sub
Public Sub ShutDown()
    'Application.DisplayAlerts = False
    
    winCaption = ActiveDocument.ActiveWindow.Caption & " - " & ThisDocument.Application.Caption
    
    If ActiveDocument.ActiveWindow.WindowState = wdWindowStateMinimize Then
        ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal
    Else
        AppActivate winCaption
    End If
    
    
    'With ActiveDocument
    '    .Save
        '.Close
    'End With
    
    SaveToRelativePath
    Application.Quit
End Sub