Attribute VB_Name = "modOtherDepts"
Option Explicit
Global PicFile As String
Global crxReport As New CrystalReport1
Global blnWithBarcode As Boolean
Public Sub OpenOtherMainReport(ByVal strReportFileName As String, strDatabaseName As String, ParamArray strParameters())
   Dim crxParameterField As CRAXDRT.ParameterFieldDefinition
   Dim intCtr As Integer
   Dim intTotalParam As Integer
   Dim crxtable As CRAXDRT.DatabaseTable
   Dim crxApplication As New CRAXDRT.Application
   Dim rs As New ADODB.Recordset
   intTotalParam = UBound(strParameters)

   Set Report = crxApplication.OpenReport(strReportFileName, 1)
   Report.ReportTitle = pstrHospitalName

   For Each crxtable In Report.Database.Tables
      crxtable.Location = strDatabaseName + Mid(crxtable.Location, InStr(1, crxtable.Location, "."))
'      crxtable.SetLogOnInfo pclsUser.ServerName, strDatabaseName, "sa", "" 10.06.15 For Other username
      crxtable.SetLogOnInfo pclsUser.ServerName, strDatabaseName, pclsUser.UserID, ""
   Next

   If intTotalParam >= 0 Then
      For Each crxParameterField In Report.ParameterFields
         If intTotalParam >= intCtr Then
            crxParameterField.AddCurrentValue strParameters(intCtr)
         Else
            Exit For
         End If
         intCtr = intCtr + 1
      Next

   End If

   Set crxParameterField = Nothing
   Set crxtable = Nothing
   Set crxApplication = Nothing

End Sub
Public Sub OpenOtherSubReport(ByVal strSubReport As String, strDatabaseName As String, ParamArray strParameters())
   Dim crxParameterField As CRAXDRT.ParameterFieldDefinition
   Dim intCtr As Integer
   Dim intTotalParam As Integer
   Dim crxtable As CRAXDRT.DatabaseTable
   Dim crxSubreport As CRAXDRT.Report
   
   intTotalParam = UBound(strParameters)
   Set crxSubreport = Report.OpenSubReport(strSubReport)
   For Each crxtable In crxSubreport.Database.Tables
      crxtable.Location = strDatabaseName + Mid(crxtable.Location, InStr(1, crxtable.Location, "."))
'      crxtable.SetLogOnInfo pclsUser.ServerName, strDatabaseName, "sa", ""
        crxtable.SetLogOnInfo pclsUser.ServerName, strDatabaseName, pclsUser.UserID, ""
   Next

   If intTotalParam >= 0 Then
      For Each crxParameterField In crxSubreport.ParameterFields
         If intTotalParam >= intCtr Then
            crxParameterField.AddCurrentValue strParameters(intCtr)
         Else
            Exit For
         End If
         intCtr = intCtr + 1
      Next
   End If
   Set crxParameterField = Nothing
   Set crxtable = Nothing
   Set crxSubreport = Nothing

End Sub

Public Sub OpenBillingReport(ByVal strReportFileName As String, ParamArray strParameters())
   Dim crxParameterField As CRAXDRT.ParameterFieldDefinition
   Dim intCtr As Integer
   Dim intTotalParam As Integer
   Dim crxtable As CRAXDRT.DatabaseTable
   Dim crxApplication As New CRAXDRT.Application

   intTotalParam = UBound(strParameters)
   If Not Report Is Nothing Then Set Report = Nothing
   Set Report = crxApplication.OpenReport(strReportFileName, 1)
   Report.ReportTitle = UAF(pstrHospitalName)
   Report.ReportComments = UAF(pstrHospitalAddress)
   
   For Each crxtable In Report.Database.Tables
      crxtable.Location = "Billing" + Mid(crxtable.Location, InStr(1, crxtable.Location, "."))
      crxtable.SetLogOnInfo pclsUser.ServerName, "Billing", pclsUser.UserID, pclsUser.serverpassword
      
   Next
  
   If intTotalParam >= 0 Then
      For Each crxParameterField In Report.ParameterFields
         If intTotalParam >= intCtr Then
            crxParameterField.AddCurrentValue strParameters(intCtr)
         Else
            Exit For
         End If
         intCtr = intCtr + 1
      Next
   End If
   Set crxParameterField = Nothing
   Set crxtable = Nothing
   Set crxApplication = Nothing

End Sub