Attribute VB_Name = "modBillingRIS"
Option Explicit

Public gblArrRevenueID(20) As String
Public gblArrFormName(20) As String
Public gblArrRevenueType(20) As String
Public gblArrSectionName(20) As String
Public gblArrDeptID(20) As String
Public gblArrSlipSuffix(20) As String

Public gblArrtblNameRequests(20) As String
Public gblArrtblNameResults(20) As String
Public gblArrtblNameResultsHistory(20) As String


'Global strGrevenueid As String
Global strGType As String
Global strDeptID As String                  'Variable for Dept. Code.
Global strForm As String                    'Variable for Transaction Type.
Global strSectionID As String                 'Variable for Exams Sections
Global strFormName As String                'Variable for forms loaded.
Global strRevSuffix As String

Global strSectionName As String

Global strRequestTableName As String
Global strResultTableName As String
Global strResultHistoryTableName As String

Global gblTargetRevID As String
Global gblOpenQuantity As String


Public Function fnIsEmailCharged(strRevID As String, strItemCode As String) As Boolean
    
    fnIsEmailCharged = False
    
    Dim recA As New ADODB.Recordset
    Dim strSQL As String
    
    strSQL = "Select isnull(isEmailCharge,'0') as isEmailCharge from radiology..tbbillexamlisting where revenueid ='" & strRevID & "' "
    strSQL = strSQL & " and itemid ='" & strItemCode & "'"
    
    With recA
        .Open strSQL, pclsUser.SQLConnection, adOpenDynamic, adLockOptimistic
        
        If Not .EOF Then
            If !isEmailCharge & "" = "1" Then fnIsEmailCharged = True
        End If
        
    End With
    Set recA = Nothing
End Function