Public Sub InspectionSurveyAdd(ByVal strInspectionFormNumber As String, ByVal strBusinessTPID As String, ByVal intSiteSuffix As String, _
         ByVal strFacilityName As String, ByVal strFacilityAddress1 As String, ByVal strFacilityCity As String, _
         ByVal strFacilityState As String, ByVal strFacilityZIPCode As String, ByVal intFacilityLocationID As Integer, _
         ByVal strBusinessRepName As String, ByVal strBusinessRepTitle As String, ByVal strInspectionType As String, _
         ByVal intInspectionRoutineChecked As Integer, ByVal intInspectionReInspectionChecked As Integer, ByVal intInspectionReferralChecked As Integer, _
         ByVal intInspectionObservationChecked As Integer, ByVal strReferralType As String, ByVal intReferralCHPChecked As Integer, _
         ByVal intReferralCIWMBChecked As Integer, ByVal intReferralComplaintChecked As Integer, ByVal intReferralEducationalChecked As Integer, _
         ByVal intReferralOtherChecked As Integer, ByVal strInspectedBy As String, ByVal strInspectorID As String, _
         ByVal strInspectionDate As String, ByVal strTimeIn As String, ByVal intTimeInAM As Integer, ByVal intTimeInPM As Integer, _
         ByVal strTimeOut As String, ByVal intTimeOutAM As Integer, ByVal intTimeOutPM As Integer, ByVal intTireCount As Integer, _
         ByVal intLatitude As Integer, ByVal intLongitude As Integer, ByVal strOperationalStatus As String, _
         ByVal intOperationalActiveChecked As Integer, ByVal intOperationalClosedChecked As Integer, ByVal intOperationalInactiveChecked As Integer, _
         ByVal intOperationalPlannedChecked As Integer, ByVal intTirePassengerChecked As Integer, ByVal intTireAlteredChecked As Integer, _
         ByVal intTireTruckChecked As Integer, ByVal intTireOTRChecked As Integer, ByVal intRoleGeneratorChecked As Integer, _
         ByVal intRoleHaulerChecked As Integer, ByVal intRoleEndUseChecked As Integer, ByVal intStorageOutdoorChecked As Integer, _
         ByVal intStorageIndoorChecked As Integer, ByVal intStorageContainerChecked As Integer, ByVal intBusNewTireDealerChecked As Integer, _
         ByVal intBusUsedTireDealerChecked As Integer, ByVal intBusServiceStationChecked As Integer, ByVal intBusAutoRepairChecked As Integer, _
         ByVal intBusAutoBodyChecked As Integer, ByVal intBusHaulerChecked As Integer, ByVal intBusTruckingFleetChecked As Integer, _
         ByVal intBusCarDealerChecked As Integer, ByVal intBusTransformationChecked As Integer, ByVal intBusGovernmentChecked As Integer, _
         ByVal intBusCollectionChecked As Integer, ByVal intBusShredderChecked As Integer, ByVal intBusRetreaderChecked As Integer, _
         ByVal intBusCrumbRubberChecked As Integer, ByVal intBusOtherChecked As Integer, ByVal intBusDismantlerChecked As Integer, _
         ByVal intBusTDFChecked As Integer, ByVal intBusAgricultureChecked As Integer, ByVal strBusinessTypeOther As String, _
         ByVal intPRC42951V As Integer, ByVal intPRC42951A As Integer, ByVal intPRC42953V As Integer, ByVal intPRC42953A As Integer, _
         ByVal intPRC42956V As Integer, ByVal intPRC42956A As Integer, ByVal intCCR18459V As Integer, ByVal intCCR18459A As Integer, _
         ByVal intCCR184591V As Integer, ByVal intCCR184591A As Integer, ByVal intCCR1845921V As Integer, ByVal intCCR1845921A As Integer, _
         ByVal intCCR184593V As Integer, ByVal intCCR184593A As Integer, ByVal intCCR184602V As Integer, ByVal intCCR184602A As Integer, _
         ByVal intCCR18461V As Integer, ByVal intCCR18461A As Integer, ByVal intCCR18462V As Integer, ByVal intCCR18462A As Integer, _
         ByVal intOtherCodeV As Integer, ByVal intOtherCodeA As Integer, ByVal strOtherCodeValue As String, _
         ByVal intEnfLOVChecked As Integer, ByVal intEnfExtensionChecked As Integer, ByVal strComplianceDeadline As String, _
         ByVal intEnfReferredChecked As Integer, ByVal intEnfInComplianceChecked As Integer, ByVal strFormComments As String, ByVal strSurveyOrInspection As String, _
         ByVal intFormSurveyOnlyChecked As Integer, ByVal intFormSurveyInspChecked As Integer, ByVal intInspectionFormChecked As Integer, _
         ByVal intCommentsFormChecked As Integer, ByVal intCommentsPresent As Integer, ByVal intRepSignaturePresent As Integer, _
         ByVal intInspectorSignaturePresent As Integer, ByVal strInputDate As String, ByVal intFormTemplateNumber As Integer, _
         ByVal strFileName As String, ByVal strFilePath As String, ByVal strBatchNumber As String, _
         ByVal strBatchOperatorUsername As String, ByVal intUserID As Integer)