Attribute VB_Name = "modMain"
Option Explicit

Public pclsUser As Object
Public ThisModule As New clsMEDSYS ' clsMEDSYS

Global strResultCode As String
Public pstrHospitalName As String

Public Report As CRAXDRT.Report

Public blnEnableValidation As Boolean

Public HospitalInfoCompanyName As String
Public HospitalInfoAddress As String
Public HospitalInfoPhoneNum As String
Public HospitalInfoFaxNum As String
Public HospitalInfoEmail As String
Public HospitalInfoReportFooter As String
Public HospitalInfoHasInPatients As String
Public HospitalInfoHasOutPatients As String
Public HospitalInfoIsGovernment As String

Public ProgEXEPath As String

Public msysMain As Object
Public Msys As Object
Public MSYSCreated As Boolean
Global WindowsDrive As String

Global isSent As Boolean
Global strRemarks As String
Global strSQL As String
Global strQueryAfterEmailSent As String

Global StopSpellCheck As Boolean

Global Fso As Object

Global Parameters As String

Public ChkTrace As Integer

Public mySignatureHospNum As String
Public mySignatureIDNum As String
Public mySignatureType As String

Global pdCurDate As Date
Global TransactionDate As Date

'for radiology
Public tbRadiologyrevenues() As String
Global revenuesLoaded As Boolean

Global PPLoaded As Boolean
Global RecPatProb As New ADODB.Recordset

Global PPIDNum  As String
Global RecPatProbIDNum As New ADODB.Recordset

Public RecAbbrev As New ADODB.Recordset
Public RecAbbrevLoaded As Boolean

Public Const KC_PASSWORD_KEY = "ROBERTFKAISER"
Global strUserName_Transaction As String
Global strUserCode_Transaction As String

Public Sub CreateMSYS()

    On Error GoTo ErrTrap
    
    If MSYSCreated = True Then Exit Sub
    
    Set msysMain = CreateObject("prjMSysMain.clsProgram")
    Set Msys = CreateObject("prjMSys.clsMSys")
    Set Msys.PROGRAM = msysMain
    
    Set pclsUser.MEDSYSClasses.msysMain = CreateObject("prjMSysMain.clsProgram")
    Set pclsUser.MEDSYSClasses.Msys = CreateObject("prjMSys.clsMSys")
    
    'Set pclsUser.MEDSYSClasses.msysMain = msysMain
    'Set pclsUser.MEDSYSClasses.Msys = Msys
    
    Set pclsUser.MEDSYSClasses.Msys.PROGRAM = msysMain

    'MsgBox pclsUser.MEDSYSClasses.myHolidayGreeting
    
    
    MSYSCreated = True
    Exit Sub
    
ErrTrap:
    'MsgBox "MSysMain and  MSys DLLS."
    MsgBox Err.Description
    
End Sub

Public Sub InitMSYSDatabase()
    
    If MSYSCreated = True Then
        'MsgBox pclsUser.ServerName
        msysMain.db.dbServerName = pclsUser.ServerName
        msysMain.db.DBUser = pclsUser.UserID
        msysMain.db.dbPassword = pclsUser.serverpassword
        
        msysMain.db.dbDriver = 1
        msysMain.db.DriverMethod = pclsUser.driverconnection

        If msysMain.db.Connect = True Then
        End If
 
 
        Set Msys.PROGRAM = msysMain
        Set ThisModule.PROGRAM = msysMain
    
        Set ThisModule.msysMain = msysMain
        Set ThisModule.Msys = Msys
        
        With pclsUser.MEDSYSClasses
        

            .msysMain.db.dbServerName = pclsUser.ServerName
            .msysMain.db.DBUser = pclsUser.UserID
            .msysMain.db.dbPassword = pclsUser.serverpassword
            
            .msysMain.db.dbDriver = 1
            .msysMain.db.DriverMethod = pclsUser.driverconnection
    
            If .msysMain.db.Connect = True Then
            End If
            
            pclsUser.MEDSYSClasses.Msys.PROGRAM.StaffAllowEdit = True
            
        End With
        
    End If
       
End Sub







'Public Sub PDFExport(strPath As String, strFileName As String)
'    'dep 1 = Lab
'    'dep 2 = Rad
'
'    'Dim DestControler As Printer
'    '        Dim pdfPrinter As Printer
'    '        Dim PrintREPORT As Object
'
'    '        Select Case DEP
'    '            Case 1
'    '                Set PrintREPORT = Report
'    '            Case 2
'    '                Set PrintREPORT = Report2
'    '        End Select
'
'    'Dim strDirectory As String **
'
'    'Check for default Printer
'    'Set DestControler = GetDefaultPrinter()
'    'get PDF Creator Details
'    'Set pdfPrinter = GetPDFCreatorDetails()
'
'    'strDirectory = PDFExport(strFileName) **
'    '+++++++++++++++++++++++++++++++++++++++++++++++++++++
'
'    Dim DestControler As Printer
'    Dim w As New WshNetwork
'    Set DestControler = GetDefaultPrinter()
'
'    If DestControler.DeviceName <> "PDFCreator" Then
'        w.SetDefaultPrinter "PDFCreator" ' Your printer name
'    End If
'    'Set w = Nothing
'
'
'
'
'    With PDFCreator
'        .cStart ("/NoProcessingAtStartup")
'        .cOption("UseAutosave") = 1
'        .cOption("UseAutosaveDirectory") = 1
'        .cOption("AutosaveDirectory") = strPath
'        .cOption("AutosaveFormat") = 0
'        .cOption("AutosaveFilename") = strFileName
'        .cPrinterStop = False
'        .cSaveOptions
'        .cDefaultPrinter = "PDFCreator"
'    End With
'    'testing kidney
'    'MsgBox strFileName
'    'for emailing credentials
'    EmailFilePath = strPath & "\" & strFileName & ".pdf"
'    EmailFileName = strFileName & ".pdf"
'
'
'    '++++++++++++++++++++++++++++++++++++++++++++++++++++
'    'set PDF Creator as Printer
'    '        With pdfPrinter
'    '            PrintREPORT.SelectPrinter .DriverName, .DeviceName, .Port
'    '        End With
'    '        PrintREPORT.DisplayProgressDialog = False
'    '        PrintREPORT.PrintOut False
'
'    'MsgBox "PDF has been successfully saved in " & strDirectory + "\" + strFileName
'
'    'set back to default printer
'    '        With DestControler
'    '            PrintREPORT.SelectPrinter .DriverName, .DeviceName, .Port
'    '        End With
'    '
'    '        Set DestControler = Nothing
'    '        Set pdfPrinter = Nothing
'    '
'
'End Sub

Public Sub ConvertNameKey(ByRef KeyAscii As Integer)
    Dim strKey As String
    
    KeyAscii = Asc(UCase(Chr$(KeyAscii)))
    
    If KeyAscii >= 32 Then
       strKey = UCase(Chr(KeyAscii))
       If strKey Like "[A-Z,--,Ñ, ]" Then _
          KeyAscii = Asc(strKey) Else _
          KeyAscii = 0
    End If
End Sub

Public Function StringLen(ByVal strVar As String) As Integer
   StringLen = Len(Trim$(strVar))
End Function

Public Function Null2Space(vType As Variant) As String
    If IsNull(vType) Then
        vType = " "
    Else
        vType = CStr(vType)
    End If
    Null2Space = vType
End Function

Public Function UpTrim$(Argvalue As String)
'Returns the upper-cased and trimmed format of a string variable

    UpTrim$ = UCase$(Trim$(Argvalue))

End Function

Public Sub LoadPatientProblems(IDNUM As String)

    If PPIDNum = IDNUM Then Exit Sub
    
    On Error GoTo ErrTrap
    
    If RecPatProbIDNum.State = 1 Then RecPatProbIDNum.Close
    RecPatProbIDNum.Open "SELECT A.PPCode,Description FROM STATION..tbPatientProblem A WITH (NOLOCK) LEFT OUTER JOIN Build_File..tbPatientProblem B WITH (NOLOCK) ON A.PPCODE=B.PPCODE WHERE A.IDNUM = '" & IDNUM & "'", pclsUser.sqlconnection, adOpenDynamic, adLockReadOnly
     
    PPIDNum = IDNUM
    
    Exit Sub
    
ErrTrap:
    MsgBox Err.Description
    
End Sub