Attribute VB_Name = "modBuildFile"
Option Explicit

Public conBuildFile As New ADODB.Connection

Public recCtScan As New ADODB.Recordset
Public recDrugSupplies As New ADODB.Recordset
Public recHeartStation As New ADODB.Recordset
Public recLaboratory As New ADODB.Recordset
Public recNuclear As New ADODB.Recordset
Public recPT As New ADODB.Recordset
Public recRespiratory As New ADODB.Recordset
Public recUltrasound As New ADODB.Recordset
Public recXray As New ADODB.Recordset
Public recOthers As New ADODB.Recordset
Public recRevenueCenters As New ADODB.Recordset
Public recMember As New ADODB.Recordset
Public Rec As New ADODB.Recordset
'commented by ange Reason: Ambiguous
'Public Function GetIsBenefits(strIdnum As String) As Boolean
'  Dim Rec As New ADODB.Recordset
'  Dim SQL As String
'
'  GetIsBenefits = False
'  SQL = "Select Isnull(PackageID,1) PackageID From Medicare..tbMedActual where IDNum = '" & strIdnum & "'"
'
'  With Rec
'    If .State > 0 Then .Close
'    .CursorLocation = adUseClient
'    .CursorType = adOpenDynamic
'    .LockType = adLockReadOnly
'    .Open SQL, user.SQLConnection
'
'    If .RecordCount > 0 Then
'        If !PackageID > 1 Then
'            GetIsBenefits = True
'        End If
'    End If
'    .Close
'  End With
'  Set Rec = Nothing
'End Function

Public Function GetPackageType(strIdnum As String) As Integer
    Dim SQL As String
    
   
    
    SQL = "Select IsNull(PackageID,'1') PackageID From Medicare..tbmedactual Where IDNum = '" & strIdnum & "'"
    
    With recMember
        If .State > 0 Then .Close
        .CursorLocation = adUseClient
        .Open SQL, user.SQLConnection, adOpenDynamic, adLockReadOnly
        
        If .RecordCount > 0 Then
            GetPackageType = CInt(!PackageID)
        Else
            GetPackageType = 1
        End If
        .Close
        
    End With
    Set recMember = Nothing
    
    GetPackageType = IIf(GetPackageType = 0, 1, GetPackageType)
    
End Function

Public Function GetPackageTypeDirect(strIdnum As String) As Integer


    Dim SQL As String
    
   
    
    SQL = "Select IsNull(PackageID,'1') PackageID From Medicare..tbmedpatient Where IDNum = '" & strIdnum & "'"
    
    With recMember
        If .State > 0 Then .Close
        .CursorLocation = adUseClient
        .Open SQL, user.SQLConnection, adOpenDynamic, adLockReadOnly
        
        If .RecordCount > 0 Then
            GetPackageTypeDirect = CInt(!PackageID)
        Else
            GetPackageTypeDirect = 1
        End If
        .Close
        
    End With
    Set recMember = Nothing
    
    GetPackageTypeDirect = IIf(GetPackageTypeDirect = 0, 1, GetPackageTypeDirect)
    
End Function