jhutchings
Member
- Joined
- Feb 7, 2014
- Messages
- 11
- Programming Experience
- 1-3
VB.NET:
Imports System.Threading.Thread
Imports System.Threading
Imports System.Threading.ThreadPool
Imports ParseTool.GlobalVariables
Module Main
Private Delegate Sub IKA()
Private Delegate Sub Tentative()
Private Delegate Sub PedDental()
Private Delegate Sub Pathways()
Private Delegate Sub VJHold()
Public loop1 As Boolean = False
Sub Main()
Dim dIKA As IKA = New IKA(AddressOf IKAGroupBills.Process)
Dim dTent As Tentative = New Tentative(AddressOf TentativeLetters.Process)
Dim dDental As PedDental = New PedDental(AddressOf PediatricDental.Process)
Dim dPathways As Pathways = New Pathways(AddressOf PathaysQuickStartGuides.Process)
Dim dVJHold As VJHold = New VJHold(AddressOf VJHoldCode.Process)
Do Until loop1 = True
Dim pickUpIKA = Dir("P:\inetpub\ftproot\IH\IKA_BILLING\*.zip")
Dim pickUpPD = Dir("P:\inetpub\ftproot\IH\Ped Dental Data_Prod\*.xlsx")
Dim pickUpPQSG = Dir("P:\inetpub\ftproot\IH\QuickStart_Prod\*.txt")
Dim pickUpTENT = Dir("p:\inetpub\ftproot\as400\archive\tentative letters\tentative*.txt")
Dim pickUpVJ = Dir("P:\inetpub\wwwroot\PrintTrack\VJHold\*.xlsx")
Try
Console.WriteLine("Checking for IKA Group Bills")
If pickUpIKA <> "" Then
Console.WriteLine("Processing IKA Group Bills")
dIKA()
Console.WriteLine("IKA Group Bills Finished")
Console.WriteLine()
Else
Console.WriteLine("No IKA Group Bills")
Console.WriteLine()
End If
Catch ex As Exception
ErrorLog.CreateLog("IKA Group Bills", ex)
Console.WriteLine("Error with IKA Group Bills")
Console.WriteLine()
End Try
Try
Console.WriteLine("Checking for Pediatric Dental Files")
If pickUpPD <> "" Then
Console.WriteLine("Processing Pediatric Dental Files")
dDental()
Console.WriteLine("Pediatric Dental Files Finished")
Console.WriteLine()
Else
Console.WriteLine("No Pediatric Dental Files")
Console.WriteLine()
End If
Catch ex As Exception
ErrorLog.CreateLog("Pediatric Dental", ex)
Console.WriteLine("Error with Pediatric Dental Files")
Console.WriteLine()
End Try
Try
Console.WriteLine("Checking for Pathways Quick Start Guides Files")
If pickUpPQSG <> "" Then
Console.WriteLine("Processing Pathways Quick Start Guides Files")
dPathways()
Console.WriteLine("Pathways Quick Start Guides Files Finished")
Console.WriteLine()
Else
Console.WriteLine("No Pathways Quick Start Guide Files")
Console.WriteLine()
End If
Catch ex As Exception
ErrorLog.CreateLog("Pathways QSG", ex)
Console.WriteLine("Error with Pathways Quick Start Guides")
Console.WriteLine()
End Try
Try
Console.WriteLine("Checking for Tentative Letters")
If pickUpTENT <> "" Then
Console.WriteLine("Processing Tentative Letters")
dTent()
Console.WriteLine("Tentative Letters Finished")
Console.WriteLine()
Else
Console.WriteLine("No Tentative Letters")
Console.WriteLine()
End If
Catch ex As Exception
ErrorLog.CreateLog("Tentative Letters", ex)
Console.WriteLine("Error with Tentative Letters")
Console.WriteLine()
End Try
Try
Console.WriteLine("Checking for VJ Hold Codes")
If pickUpVJ <> "" Then
Console.WriteLine("Processing VJ Hold Codes")
dVJHold()
Console.WriteLine("VJ Hold Codes Finished")
Console.WriteLine()
Else
Console.WriteLine("No VJ Hold Codes")
Console.WriteLine()
End If
Catch ex As Exception
ErrorLog.CreateLog("VJ Hold Codes", ex)
Console.WriteLine("Error with VJ Hold Codes")
Console.WriteLine()
End Try
Thread.Sleep(50000)
Loop
End Sub
End Module
I was wondering if there was a better way to write this code. I am building a parser that finds specific files in different folders and then processes them. However I feel like there is a better way to write this code and I am not sure where to start.
Can anyone help/point me in the right direction.
Last edited: