Sub FixIrisAuthServIni_SCADevice(ByVal pRegNum As Integer)
        Dim pIrisAuthServIni As New PrivateIniFile("c:\iris\ini\IrisAuthSrvr.INI")
        IO.File.Copy("c:\iris\ini\IrisAuthSrvr.ini", "c:\iris\reginfo\Reg" & pRegNum & "\ini\IrisAuthSrvr.ini", True)
        IO.File.Copy("c:\iris\ini\HeartSIP.ini", "c:\iris\reginfo\Reg" & pRegNum & "\ini\HeartSIP.ini", True)
        pIrisAuthServIni.SetFileName("c:\iris\reginfo\Reg" & pRegNum & "\ini\IrisAuthSrvr.ini")
        pIrisAuthServIni.DeleteSection("SCADevice")
        If PosMaint.RegisterInformation(pRegNum).CreditCardComPort = eComPort.None Then Exit Sub
        pIrisAuthServIni.WriteString("SCADevice", "Device", "heartsip")
        pIrisAuthServIni.WriteString("SCADevice", "Port", PosMaint.RegisterInformation(pRegNum).CreditCardComPort.ToString)
        '*********************************************************************************************************
        'To fix an issue with HeartSIP we moved the timeout from 60 to 33
        '   33 seconds is 3 seconds more than the current device timeout.
        'PE 12/18/2019
        'PE 4/29/2020  Put the time back to 60 seconds.
        'PE 7/12/2022  Put the time to 180 seconds per Xenial recommendation
        '              Trying to fix a flaky Internet where the device timeout
        '              keeps reseting. The device default currently is 45 seconds
        '              This will let the device reset 4 times. (180/44 = 4.09)
        'PE 03/29/23   Added the transactioncancltimeout, current time is 15
        'PE 07/17/23   Added the RequestTimeout, set it to 20000
        pIrisAuthServIni.WriteString("SCADevice", "RequestTimeout", "20000")
        pIrisAuthServIni.WriteString("SCADevice", "Timeout", "180")
        pIrisAuthServIni.WriteString("SCADevice", "transactioncanceltimeout", "15")
        '*********************************************************************************************************
        pIrisAuthServIni.WriteString("SCADevice", "ConvertRBA", "c:\Iris\Ini\HeartSIP.ini")
        pIrisAuthServIni.WriteString("SCADevice", "TMS", "c:\Iris\Ini\HeartSIP.ini")
        pIrisAuthServIni.WriteString("SCADevice", "CheckSAFResults", "1")
        pIrisAuthServIni.WriteString("SCADevice", "CheckSAFResults", "1")
        '*********************************************************************************************************
        'PE 3/29/2023
        'Added EnableOutOfSyncMessage, set to 0
        pIrisAuthServIni.WriteString("SCADevice", "EnableOutOfSyncMessage", "0")
        '*********************************************************************************************************
        'PE 09/13/2022
        'Added the report timeout (Default 5 changed to 30 seconds)
        pIrisAuthServIni.WriteString("SCADevice", "ReportTimeout", "30000")
        '*********************************************************************************************************
        If PosMaint.RegisterInformation(pRegNum).IsDrive Then
            pIrisAuthServIni.WriteString("SCADevice", "ParmManual", "1")
            pIrisAuthServIni.WriteString("SCADevice", "SwipeAnyTime", "1") 'PE 6/27/22 set the switch to on to test issues with drive
        Else
            pIrisAuthServIni.WriteString("SCADevice", "ParmManual", "0")
            pIrisAuthServIni.WriteString("SCADevice", "SwipeAnyTime", "1")
        End If
        'Rem out till Xpient gets this wroking.
        'pIrisAuthServIni.WriteString("SCADevice", "VersionFileName", "C:\IRIS\Data\DeviceData\HeartSIP\HeartSIP_xsHeartSIP.ini")
    End Sub