Attribute VB_Name = "modPrintOut"
Option Explicit

Public Sub Draw_Electrophoresis()
    OpenMainReport App.Path & "\LabPrint_Electrophoresis.RPT", "LABORATORY", _
            strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "Electrophoresis Result Form", blnDirect
End Sub

Public Sub Draw_Crossmatching()
    OpenMainReport App.Path + "\LabPrint_Crossmatch.RPT", "LABORATORY", _
        strHospAdd, strRequestNum
    ShowReportViewer False, "Crossmatch Result", blnDirect
End Sub

Public Sub Draw_FlowCytometry()
    OpenMainReport App.Path & "\LabPrint_FlowCytometry.RPT", "LABORATORY", _
            strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "Flowcytometry Result", blnDirect
End Sub

Public Sub Draw_HLA_Screening()
    OpenMainReport App.Path & "\LabPrint_HLA_Screening.RPT", "LABORATORY", _
            strHospAdd, strRequestNum
    ShowReportViewer False, "HLA Antibody Screening Result", blnDirect
End Sub

Public Sub Draw_HLA_Specific()
    OpenMainReport App.Path & "\LabPrint_HLA_Specific.RPT", "LABORATORY", _
            strHospAdd, strRequestNum
    ShowReportViewer False, "HLA Antibody Specific Result", blnDirect
End Sub

Public Sub Draw_CYA()
    OpenMainReport App.Path & "\LabPrint_CYA.RPT", "LABORATORY", _
            strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "CYA Result", blnDirect
End Sub

Public Sub Draw_CS()
    OpenMainReport App.Path + "\LabPrint_CS.RPT", "LABORATORY", _
        strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "Kirby - Bauer Method", blnDirect
End Sub

Public Sub Draw_Histopath()
    OpenMainReport App.Path & "\LabPrint_Histopath.RPT", "LABORATORY", _
            strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum, "X", "False"
    ShowReportViewer False, "Surgical Pathology / Cytology Report", blnDirect
End Sub

Public Sub Draw_PreFormattedExams()
    OpenMainReport App.Path + "\LabPrint_PreFormattedExams.RPT", "LABORATORY", _
        strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    OpenSubReport "ShortForm.rpt", "LABORATORY", strRequestNum, CStr(intEntryMode)
    OpenSubReport "NormalValueFormat.rpt", "LABORATORY", strRequestNum, CStr(intEntryMode)
    OpenSubReport "ConversionFactor.rpt", "LABORATORY", strRequestNum, CStr(intEntryMode)
    OpenSubReport "SpecificFormat.rpt", "LABORATORY", strRequestNum, CStr(intEntryMode)
    ShowReportViewer False, "Department of Laboratory Medicine", blnDirect
End Sub

Public Sub Draw_StoneAnalysis()
    OpenMainReport App.Path & "\LabPrint_StoneAnalysis.RPT", "LABORATORY", _
            strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "Stone Analysis", blnDirect
End Sub

Public Sub Draw_Urinalysis()
    Select Case gblRequestInfo.strExamCode
        Case "97"
            OpenMainReport App.Path + "\LabPrint_Urinalysis_Bilirubin.RPT", "LABORATORY", _
                strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
            ShowReportViewer False, "", blnDirect
        Case "104"
            OpenMainReport App.Path + "\LabPrint_Urinalysis_spGravity.RPT", "LABORATORY", _
                strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
            ShowReportViewer False, "", blnDirect
        Case "106"
            OpenMainReport App.Path + "\LabPrint_Urinalysis.RPT", "LABORATORY", _
                strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
            ShowReportViewer False, "", blnDirect
        Case "108"
            OpenMainReport App.Path + "\LabPrint_Urinalysis_pH.RPT", "LABORATORY", _
                strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
            ShowReportViewer False, "", blnDirect
        Case "109"
            OpenMainReport App.Path + "\LabPrint_Urinalysis_Protein.RPT", "LABORATORY", _
                strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
            ShowReportViewer False, "", blnDirect
        Case "110"
            OpenMainReport App.Path + "\LabPrint_Urinalysis_Glucose.RPT", "LABORATORY", _
                strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
            ShowReportViewer False, "", blnDirect
        Case "111"
            OpenMainReport App.Path + "\LabPrint_Urinalysis_Urobilinogen.RPT", "LABORATORY", _
                strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
            ShowReportViewer False, "", blnDirect
        Case "1048"
            OpenMainReport App.Path + "\LabPrint_Urinalysis_Ketone.RPT", "LABORATORY", _
                strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
            ShowReportViewer False, "", blnDirect
    End Select
End Sub

Public Sub Draw_CMIStoolExam()
    OpenMainReport App.Path & "\LabPrint_StoolExam.RPT", "LABORATORY", _
            strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "Stool Examination Result", blnDirect
End Sub

Public Sub Draw_StoolExam()
    OpenMainReport App.Path & "\LabPrint_StoneAnalysis.RPT", "LABORATORY", _
            strHospName, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "Stone Analysis Result", blnDirect
End Sub

Public Sub Draw_Chemistry(Optional mSampleNum As String = "")
    If gblRequestInfo.strLabSectionID = "CCH" Then
        OpenMainReport App.Path & "\cch-qf-004.RPT", "LABORATORY", strCSNumber, mSampleNum, strHospName, strHospAdd
            ShowReportViewer False, "Clinical Chemistry Result", blnDirect
    ElseIf gblRequestInfo.strLabSectionID = "HEM" Then
        OpenMainReport App.Path & "\hem-qf-001.RPT", "LABORATORY", strCSNumber, mSampleNum, strHospName, strHospAdd
            ShowReportViewer False, "Hematology Result", blnDirect
    End If
End Sub

Public Sub Draw_Papsmear()
    OpenMainReport App.Path + "\LabPrint_Papsmear.RPT", "LABORATORY", _
        strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "Department of Laboratory Medicine", blnDirect
End Sub

Public Sub Draw_PreFormats()
    If gblRequestInfo.strFormType = "P" And gblRequestInfo.strLabSectionID = "FLW" Then
        OpenMainReport App.Path + "\LabPrint_Campath.RPT", "LABORATORY", _
            strHospAdd, strRequestNum, "1"
        OpenSubReport "mm3", "LABORATORY", strRequestNum, "1"
    Else
        If gblRequestInfo.strFormType = "2" And gblRequestInfo.strLabSectionID = "CEL" Then
            OpenMainReport App.Path + "\LabPrint_Interpretation.RPT", "LABORATORY", _
            strHospAdd, strRequestNum, "1"
        Else
            OpenMainReport App.Path + "\LabPrint_PreFormattedExams.RPT", "LABORATORY", _
                strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
            OpenSubReport "ShortForm.rpt", "LABORATORY", strRequestNum, "1"
            OpenSubReport "NormalValueFormat.rpt", "LABORATORY", strRequestNum, "1"
            OpenSubReport "ConversionFactor.rpt", "LABORATORY", strRequestNum, "1"
            OpenSubReport "SpecificFormat.rpt", "LABORATORY", strRequestNum, "1"
            OpenSubReport "NormalValueRangeFormat.rpt", "LABORATORY", strRequestNum, "1"
        End If
    End If
    ShowReportViewer False, "Department of Laboratory Medicine", blnDirect
End Sub

Public Sub Draw_Lupus()
    OpenMainReport App.Path & "\LabPrint_Lupus.RPT", "LABORATORY", _
            strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "CYA Result", blnDirect
End Sub

Public Sub Draw_NormalValueFormat(Optional mSampleNum As String = "")
    OpenMainReport App.Path & "\HEM-QF-001.rpt", "LABORATORY", strCSNumber, mSampleNum
          ShowReportViewer False, "Hematology Result", blnDirect
End Sub

Public Sub Draw_Fecalysis()
    If gblRequestInfo.strValueType = "F" Then
        OpenMainReport App.Path + "\LabPrint_FecalOccult.RPT", "LABORATORY", _
            strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    Else
        OpenMainReport App.Path + "\LabPrint_Fecalysis.RPT", "LABORATORY", _
            strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    End If
    ShowReportViewer False, "Clinical Microscopy Result", blnDirect
End Sub

Public Sub Draw_WithCutOff()
    OpenMainReport App.Path & "\LabPrint_WithCutOff_Result.RPT", "LABORATORY", _
        strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum, CStr(intMode)
    ShowReportViewer False, "Laboratory Result", blnDirect
End Sub

Public Sub Draw_ShortFormWithRemarks()
    OpenMainReport App.Path & "\LabPrint_ShortFormWIthRemark.RPT", "LABORATORY", _
        strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum, "1"
    ShowReportViewer False, "Laboratory Result", blnDirect
End Sub

Public Sub Draw_WithInterpretation()
    OpenMainReport App.Path & "\LabPrint_WithInterpretation.RPT", "LABORATORY", _
        strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "Laboratory Result With Interpretation", blnDirect
End Sub

Public Sub Draw_SemenAnalysis()
    OpenMainReport App.Path + "\LabPrint_SemenAnalysis.RPT", "LABORATORY", _
        strHospTitle, strHospAdd, strEmployeeName, gblRequestInfo.strPathologist, strRequestNum
    ShowReportViewer False, "Laboratory Result With Interpretation", blnDirect
End Sub