'------------------------------------------------
'REVISION INFORMATION
'====================
'
' File Name: PBL_Loop_DT.grf
' File Date: 28 Mar. 2006
'
' Description: Detail Display for PID modules
' Version: 2.8
' Version Date: 28 Mar. 2006
' Use: with PBL loop Module
'
' Associated Displays
'   - N/A
'
' Changes compared to previous versions:
'     Version 2.7 (TCP):
'   - Increased character limit for descriptions under 'Variables'tab to 50.
'   - HighlighEnabled and IsSelectable for bmpTune set to True.
'   - Modified for Tab Main / Alarm animation issue on 8.3
'     Version 2.6 (UPD):
'   - Modified for 'grpFieldValue' visibility condition
'   - Removed dead code (e.g. Editcheckbox code)
'   - @mod@ replaced by ps_nm.CurrentValue in cFixPicture_LoadedTagGroup
'   - Device Tag animation property changed from object to format. Also modified for character length and alignment
'   - Visibility condition from HiHi Alarm datalink deleted
'   - Tabs addition script modified, NO DATA Tab made not selectable.
'     Version 2.5 (RLA):
'   - Added a call in LoadedTagGroup to a function in modMiscellaneous for display of module Description
'     in two lines.
'   - Limits for PID Simulate fixed at 0 to 100 and for AI simulate to respective XD Scales.
'   - The units displayed as " % " on I/O tab have been removed.
'   Version 2.4 (TCP):
'   - Added Reset required indication on Interlocks tab.
'   - Limited the character length of Interlock description to 50 characters and
'     Variable description TPX_D to 40 characters.
'   - Increased the character length of Alarm priority indication to 16 characters.
'   Version 2.3 (TCP):
'   - Disabled caching for this Picture in 'Edit Picture' menu
'   - Moved top level variables pb_initControl2,pn_Tab_Alm,pn_Tab_Diag,pn_Tab_Ilock,pn_Tab_IO,pn_Tab_Tune,
'     pn_Tab_Vars,strDummy,strDumm1,strDummy2,strDummy3,strDummyF in Group 'grpDetVariables'
'   Version 2.2 (MAP):
'   - Visibility and Click event for grpCompInfo modified
'   - Modified Click event for dtlOutArray1, dtlOutArray2, dtlOutArray3 and dtlOutArray4 for PID_ADV module
'   - Modified Click event for dtlValue1,dtlValue2,dtlValue3,dtlValue4,dtlValue5,dtlValue6,dtlValue7,
'     dtlValue8,dtlValue9,dtlValue10.
'   - Modified Click event for rctCB46,rctCB50,rctCB48,rctCB40,rctCB38,rctCB54,rctCB52,rctCB56,rctCB31,rctCB33,rctCB23,
'     rctCB60,rctCB21,rctCB36,rctCB25,rctCB27,rctCB29.
'   - Modified script in CFixPicture_LoadedTagGroup for grpSplitRange visibility
'   - Modified script in CFixPicture_LoadedTagGroup for dynLabelLinkTuning6,dynLabelLinkTuning7,dynLabelLinkLimit11,
'     dynLabelLinkLimit12 vertical positioning
'   - Modified script in CFixPicture_LoadedTagGroup for visibility and positioning of grpFieldValuePID, grpAI1,
'     grpAI2, grpAI3, grpAI4, grpUnits and grpDevActLim
'   Version 2.1 (MAP):
'   - Deteled Bitmap17 and added grpCondAlm. Added Boolean Variable "pn_condvis"
'   Version 2.0 (MAP):
'   - Script added to Set status of Simulate into GoodNonCascade/Bad NotConnected when Simulate is
'     Enabled/Disabled for PID1.
'   - Script added to Set status of Simulate into GoodNonCascade/Bad DeviceFailure when Simulate is
'     Enabled/Disabled for AI1, AI2, AI3 and AI4.
'   Version 1.9 (SVK):
'   - Added grpCompInfo to call up DetailFB PBL_PTGC_dt for PID_PTGC
'   - Added Deviation, PV Bad and SwitchOver Alarms and Deviation Alarm Limit settings in Alarms Tab
'     ( applicable to PID_2SEL Module Class )
'   - Modified parameter entry code for SP_LIM_HI,SP_LIM_LO,OUT_LIM_HI & OUT_LIM_LO
'   - Detail resized
'   Version 1.8 (SVK):
'   - Conditionally Disable text added for Dev Hi and Dev Lo alarms
'   - Condition Colors for Interlock using a Threshold table
'   - iFIX variable to define if Interlock or Variables are to be shown
'   - ESD interlocks can be any condition(s) 1 - 8
'   - Added IO/SIM indication for PID1 and AI2, AI3 or AI4
'   - Added Split Range Indication
'   - Variable Text added for clarity
'   Version 1.7 (PPK):
'   - Modified dataentry code for OUT_HI_LIM,OUT_LO_LIM,SP_HI_LIM & SP_LO_LIM
'   - Tune Button Changed
'   - Text TP01 to TP10 Added
'   - Relocated Structure and Beta, Gamma
'   - Modified code for Data entry points
'   - Checked and updated for NOT_CONFIG_OK, DECPT
'   - Code to display description in two lines moved to LoadedTagGroup
'   - Modified code for Priority adjust button- alarms tab
'   - Replaced static text 'Alarm Disabled' with 'Conditionally Disabled', relocated
'     to the right of the boxes and removed visibility animation for alarm groups
'   Version 1.6 (MMP):
'   - Added Open and Close alarms in Alarms tab
'   Version 1.5 (VKH):
'   - Added "Underline" for Diagnostics, Interlock tab
'   - Variables tab moved from Interlock tab, added to TabMain.
'   - Detail resized; Added [_NOT_CONFIG_OK_] in datalink; Added pushpin;
'     Visibility of group is set on Tabs; Limit entry for alarm (OP_LMTS)
'     routine modified, which now checks for error code
'   - Added External Interlock Information
'   - Conditional Alarm button added
'   - Added Interlock Alarm
'   - Detail renamed to PBL_Loop_DT.grf
'   Version 1.4 (ARJ):
'   - Added reference for "SIGlobals.fxg"
'   - Replaced 'Thisnode' with 'dvsys'
'   Version 1.3 (VKH):
'   - Added logic to assign Alarm Hysteresis to all Alarms
'   - Alarm indications are from /ALM1/XX_ENAB rather from XX_ALM_ENAB
'   Version 1.2 (SMV):
'   - Hide Alarm Enable, Suppress, and Priority when Conditional Alarm flags not set
'   - The text (Opr) comes from the Resource file
'   - Alarm Limits and Hysteresis from ALM1 block rather than PID1
'   - Operator Accessible Alarm Limits and
'     First Out Interlock Arrows refer Composites
'   Version 1.1 (MvB):
'   - IEPOP removed, reference to PBL.fds removed
'   Version 1.0 (SMV):
'   - Added More Interlocks button and bypass checkbox in Interlocks section
'   (No Version MvB):
'   - 1st issue, based on PBL_Loop_DT.grf V1.4
'
'-------------------------------------------------

Dim lError As Long
Dim iTabPreviousValue As Integer
Dim iTabNo As Integer
Dim EU100 As Double
Dim EU0 As Double
Const ErrorOffset As Single = 3.45
Const ErrorMult As Single = 10.78

Option Explicit

Private Sub bmpCompInfo_Click()
On Error GoTo ErrorHandler

    frsLoadfbDetail ps_nm.CurrentValue & "/PTGC", System.PicturePath & "\DetailFB\PBL_PTGC_dt", Me.pn_myMonitor.CurrentValue

Exit Sub
ErrorHandler:
        frsHandleError
End Sub

Private Sub bmpILOCK1_Click()
Dim strIlock As String
On Error GoTo ErrorHandler
Dim lError As Long
Dim strCmdStatus As String
strIlock = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/ILOCK_MOD.A_CV", lError, strCmdStatus, False)
If lError = 0 Then
    NavILOCK strIlock
Else
    MsgBox strCmdStatus, vbOKOnly, sResString(971)
End If
Exit Sub
ErrorHandler:
    frsHandleError
End Sub



Private Sub grpLinkABorder161_Click()
    
On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    EU100 = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
    EU0 = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
    GetPBLFormAlphaNum "DVSYS.@mod@/THRESHOLDS/TH/LO_LIM.A_CV", txtLoThreshold.Caption, False, EU100, EU0, False

Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub grpLinkBorder3_Click()

On Error GoTo ErrorHandler

    Dim blnOperEntry As Boolean
    Dim lError As Long
    Dim strLimitPath As String
    Dim dblHiLim As Double
    Dim dblLoLim As Double
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    blnOperEntry = frsreadvalue(ps_nm.CurrentValue & "/DEV_LIM.F_CV", lError, "", False)
    If (blnOperEntry = True) And (lError = 0) Then
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/DEV_LIM.F_CV"
    Else
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/DEV_LIM.F_CV"
    End If

    GetPBLFormAlphaNum strLimitPath, txtLabelLimit14.Caption, False, dblHiLim, dblLoLim, False

Exit Sub
ErrorHandler:
    HandleError
End Sub

Private Sub grpLinkWDecPt10_Click()
Dim blnFetch As Boolean
Dim Hi_L As Double
Dim Lo_L As Double
Dim Span As Double

On Error GoTo ErrorHandler
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
Hi_L = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
Lo_L = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
Span = Hi_L - Lo_L
Hi_L = Hi_L + (0.1) * Span
Lo_L = Lo_L - (0.1) * Span

    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/SP_HI_LIM.F_CV", txtLabelLimit11.Caption, False, Hi_L, Lo_L
Exit Sub
ErrorHandler:
    HandleError
End Sub

Private Sub grpLinkWDecPt11_Click()
Dim blnFetch As Boolean
Dim Hi_L As Double
Dim Lo_L As Double
Dim Span As Double

On Error GoTo ErrorHandler
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
Hi_L = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
Lo_L = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
Span = Hi_L - Lo_L
Hi_L = Hi_L + (0.1) * Span
Lo_L = Lo_L - (0.1) * Span

    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/SP_LO_LIM.F_CV", txtLabelLimit12.Caption, False, Hi_L, Lo_L
Exit Sub
ErrorHandler:
    HandleError
End Sub

Private Sub grpLinkWDecPt6_Click()

Dim blnFetch As Boolean
Dim Hi_L As Double
Dim Lo_L As Double
Dim Span As Double

On Error GoTo ErrorHandler
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
Hi_L = frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU100")
Lo_L = frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU0")
Span = Hi_L - Lo_L
Hi_L = Hi_L + (0.1) * Span
Lo_L = Lo_L - (0.1) * Span

    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/OUT_HI_LIM.F_CV", txtLabelLimit7.Caption, False, Hi_L, Lo_L
Exit Sub

ErrorHandler:
    HandleError
End Sub

Private Sub grpLinkWDecPt7_Click()

Dim blnFetch As Boolean
Dim Hi_L As Double
Dim Lo_L As Double
Dim Span As Double

On Error GoTo ErrorHandler
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
Hi_L = frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU100")
Lo_L = frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU0")
Span = Hi_L - Lo_L
Hi_L = Hi_L + (0.1) * Span
Lo_L = Lo_L - (0.1) * Span
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/OUT_LO_LIM.F_CV", txtLabelLimit8.Caption, False, Hi_L, Lo_L
Exit Sub
ErrorHandler:
    HandleError
End Sub

Private Sub rctCB69_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND9/DISABLE.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/CND9/DISABLE.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub grpLinkWDecPt8_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/ARW_HI_LIM.F_CV", txtLabelLimit9.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_HI_LIM.F_CV"), frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_LO_LIM.F_CV")
Exit Sub
ErrorHandler:
    HandleError
End Sub



Private Sub dtlUserFmt_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    GetPBLFormAlphaNum ps_nm.CurrentValue & "/ALM1/ALARM_HYS.F_CV", txtLabelLimit13.Caption, False, ALM_HYST_CONST, 0
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub bmpDVTune_Click()
On Error GoTo ErrorHandler
  If MsgBox(sResString(496), _
    vbYesNo, sResString(499)) = vbNo Then Exit Sub
  frsWriteValue "0", ps_nm.CurrentValue & "/MODELOCK/ENB_ML.F_CV"
  Dim strFB As String
  strFB = "PID1"
  frszDynamoOpenInsight Me, strFB
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub grpLinkWDecPt9_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/ARW_LO_LIM.F_CV", txtLabelLimit10.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_HI_LIM.F_CV"), frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_LO_LIM.F_CV")
Exit Sub

ErrorHandler:
    HandleError
End Sub

Private Sub grpLinkABorder14_Click()

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    EU100 = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
    EU0 = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
    GetPBLFormAlphaNum "DVSYS.@mod@/THRESHOLDS/TH/HI_HI_LIM.A_CV", txtHiHiThreshold.Caption, False, EU100, EU0, False

Exit Sub

ErrorHandler:
    HandleError
End Sub

Private Sub rctCB68_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND8/DISABLE.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/CND8/DISABLE.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub grpLinkABorder16_Click()

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    EU100 = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
    EU0 = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
    GetPBLFormAlphaNum "DVSYS.@mod@/THRESHOLDS/TH/HI_LIM.A_CV", txtHiThreshold.Caption, False, EU100, EU0, False

Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlValue10_Click()
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP10.A_CV", txtTP10.Caption, True, , , False
    
    Exit Sub
ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub

Private Sub grpLinkABorder17_Click()

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    EU100 = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
    EU0 = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
    GetPBLFormAlphaNum "DVSYS.@mod@/THRESHOLDS/TH/LO_LO_LIM.A_CV", txtLoLoThreshold.Caption, False, EU100, EU0, False

Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub pb_initControl3_OnTrue()
    'init diag dynamo
    frszDiagnosticControlInit TabStrip3
End Sub

Private Sub PopupMenu2(ByVal item As Long)
On Error GoTo ErrorHandler
    frsWriteValue Str(item - 1), ps_nm.CurrentValue & "/alarms.f_priad"
Exit Sub
ErrorHandler:
     frsHandleError
End Sub

Private Sub bmpUnPinned_Click()
On Error GoTo ErrorHandler
    frszIAUnPinned Me
    Exit Sub
ErrorHandler:
        frsHandleError
End Sub


Private Sub Bitmap20_Click()
On Error GoTo ErrorHandler
    'this event will open the conditional alarm parameter picture
    Dim symbol(1) As String
    Dim replace(1) As String
    Dim lngPos As Long
    Dim strNM As String
    Dim strM As String
    With frsVariables
    symbol(0) = "MOD"
    
    strNM = Me.ps_nm.CurrentValue
    lngPos = frsReverseInStr(, strNM, frsVariables.gs_node_delim.CurrentValue)
    If lngPos = 0 Then
        MsgBox strBadNM
    Else
        lngPos = lngPos + 1
        strM = Mid$(strNM, lngPos)
    End If
        
    replace(0) = strM
    frsClosePic "standard\PBLCAlarmLp"
    DoEvents
    If pn_myMonitor.CurrentValue = 2 Then
        frsOpenTGDPictureDynamic "standard\PBLCAlarmLp", symbol, replace, _
                                .gn_det_y2.CurrentValue, .gn_det_x2.CurrentValue, _
                                strM, strM
    Else
        frsOpenTGDPictureDynamic "standard\PBLCAlarmLp", symbol, replace, _
                                .gn_det_y.CurrentValue, .gn_det_x.CurrentValue, _
                                strM, strM
    End If
    End With
Exit Sub
ErrorHandler:
     frsHandleError
End Sub


Private Sub dtlValue9_Click()
    
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP09.A_CV", txtTP9.Caption, True, , , False
    
    Exit Sub
ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub


Private Sub dtlValue8_Click()
    
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP08.A_CV", txtTP8.Caption, True, , , False
    
    Exit Sub

ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub


Private Sub dtlValue7_Click()
    
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP07.A_CV", txtTP7.Caption, True, , , False
    
    Exit Sub

ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub

Private Sub rctCB67_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND7/DISABLE.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/CND7/DISABLE.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub dtlValue6_Click()
    
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP06.A_CV", txtTP6.Caption, True, , , False
    
    Exit Sub

ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub

Private Sub CFixPicture_Initialize()

Dim objTabstrip As TabStrip

On Error GoTo err_CFixPicture_Initialize

    'Limits
    txtLabelLimit1.Caption = sResString(353)
    txtLabelLimit2.Caption = sResString(352)
    txtLabelLimit3.Caption = sResString(456)
    txtLabelLimit4.Caption = sResString(457)
    txtLabelLimit5.Caption = sResString(350)
    txtLabelLimit6.Caption = sResString(351)
    txtLabelLimit7.Caption = sResString(458)
    txtLabelLimit8.Caption = sResString(459)
    txtLabelLimit9.Caption = sResString(460)
    txtLabelLimit10.Caption = sResString(461)
    txtLabelLimit11.Caption = sResString(462)
    txtLabelLimit12.Caption = sResString(463)
    txtLabelLimit13.Caption = sResString(464)
    txtLabelLimit14.Caption = sResString(286)
    txtLabelDP2.Caption = sResString(367)   '   (Opr) from Resource String
    txtLabelDP3.Caption = sResString(367)
    txtLabelDP4.Caption = sResString(367)
    txtLabelDP5.Caption = sResString(367)
    txtLabelDP6.Caption = sResString(367)
    txtLabelDP8.Caption = sResString(367)
    txtSettings.Caption = sResString(401)
    'Simulate
    Text9.Caption = sResString(451)
    Text10.Caption = sResString(451)
    Text11.Caption = sResString(451)
    txtLabel17.Caption = sResString(362)
    txtLabel14.Caption = sResString(363)
    txtLabel15.Caption = sResString(364)
    'Tuning
    txtLabelTuning1.Caption = sResString(465)
    txtLabelTuning2.Caption = sResString(466)
    txtLabelTuning3.Caption = sResString(467)
    txtLabelTuning4.Caption = sResString(468)
    txtLabelTuning5.Caption = sResString(469)
    txtLabelTuning6.Caption = sResString(470)
    txtLabelTuning7.Caption = sResString(471)
    txtLabelTuning85.Caption = sResString(472)
    txtLabelTuning86.Caption = sResString(472)
    txtLabelTuning87.Caption = sResString(473)
    txtLabelTuning88.Caption = sResString(473)
    txtLabelTuning9.Caption = sResString(474)
    txtUnitsTuning7.Caption = sResString(329)
    txtUnitsTuning6.Caption = sResString(329)
    txtUnitsTuning5.Caption = sResString(982)
    txtUnitsTuning4.Caption = sResString(982)
    txtUnitsTuning3.Caption = sResString(982)
    txtUnitsTuning2.Caption = sResString(982)
    'Structure
    txtStructure.Caption = sResString(475)
    'Alarms
    txtPriority.Caption = sResString(481)
    txtEnable.Caption = sResString(482)
    txtSuppress.Caption = sResString(483)
    txtLabelAlarm.Caption = sResString(357)
    txtLabelAlarm1.Caption = sResString(356)
    txtLabelAlarm2.Caption = sResString(484)
    txtLabelAlarm3.Caption = sResString(485)
    txtLabelAlarm4.Caption = sResString(354)
    txtLabelAlarm5.Caption = sResString(355)
    txtLabelAlarm6.Caption = sResString(486)
    txtLabelAlarm7.Caption = sResString(487)
    txtLabelAlarm9.Caption = sResString(978)
    txtLabelAlarm10.Caption = sResString(979)
    txtLabelAlarm11.Caption = sResString(975)
    txtLabelAlarm12.Caption = sResString(974)
    txtLabelAlarm13.Caption = sResString(977)
    txtLabelAlarm14.Caption = sResString(976)
    txtLabelAlarm15.Caption = sResString(286)       'V2.0 Deviation Alarm
    txtLabelAlarm16.Caption = sResString(1403)      'V2.0 Switch Over Alarm
    txtLabelAlarm17.Caption = sResString(1404)      'V2.0 PV Bad Alarm
    Text56.Caption = sResString(392)
    Text57.Caption = sResString(392)
    Text58.Caption = sResString(392)
    Text59.Caption = sResString(392)
    Text79.Caption = sResString(392)
    Text80.Caption = sResString(392)
    txtLabelAlarm8.Caption = sResString(958)
    'Interlocks
    
    txtFirst.Caption = sResString(476)
    txtOut.Caption = sResString(236)
    txtReset.Caption = sResString(365)
    txtIlockCond.Caption = sResString(478)
    txtIlockBypass.Caption = sResString(479)
    txtIlockHIM.Caption = sResString(1400)
    txtRstReq.Caption = sResString(368)

    txtLabelTrack1.Caption = sResString(480)
    txtILOCK1.Caption = sResString(504)
    'Diagnostics
    txtRestML.Caption = sResString(497)
    bmpDVTune.Description = sResString(495)
    ' Variables
    txtTP01.Caption = sResString(1111)
    txtTP2.Caption = sResString(1112)
    txtTP3.Caption = sResString(1113)
    txtTP4.Caption = sResString(1114)
    txtTP5.Caption = sResString(1115)
    txtTP6.Caption = sResString(1116)
    txtTP7.Caption = sResString(1117)
    txtTP8.Caption = sResString(1118)
    txtTP9.Caption = sResString(1119)
    txtTP10.Caption = sResString(1120)

    'Tooltips
    IA1.Description = sResString(139)

    'Reposition
    grpReset.HorizontalPosition = grpTextFirst.HorizontalPosition + grpTextFirst.Width + 0.5

    'Variables
    txtVarDescription.Caption = sResString(309)
    txtVarValue.Caption = sResString(26)
    
    'Compensation Information
    txtComp.Caption = sResString(287)
    txtInfo.Caption = sResString(288)

    'Inibition Maintenance Flag
    txt_M_Inhib.Caption = sResString(1601)
    
    'Suppress All Allarms Flag
    txt_All_Supress.Caption = sResString(725)
    
Exit Sub

err_CFixPicture_Initialize:
    MsgBox Err & ": " & Error, vbOKOnly, "Error..."
    Resume Next

End Sub

Private Sub rctCB63_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND3/DISABLE.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/CND3/DISABLE.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub dtlValue5_Click()
    
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP05.A_CV", txtTP5.Caption, True, , , False
    
    Exit Sub

ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub

Private Sub bmpPinned_Click()
On Error GoTo ErrorHandler
    frszIAPinned Me
    Exit Sub
ErrorHandler:
        frsHandleError
End Sub

Private Sub dtlValue4_Click()
    
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP04.A_CV", txtTP4.Caption, True, , , False
    
    Exit Sub

ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub


Private Sub dtlValue3_Click()
    
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP03.A_CV", txtTP3.Caption, True, , , False
    
    Exit Sub

ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub

Private Sub bmpModTrend_Click()
On Error GoTo ErrorHandler
    frszDynamoOpenTrend Me
    Exit Sub
ErrorHandler:
        frsHandleError
End Sub

Private Sub rctCB15_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue("DVSYS.@MOD@/THRESHOLDS/TH_ENABLE.F_CV")
iSim = -iSim + 2 * pn_OnValue15.CurrentValue - 1
frsWriteValue Str(iSim), "DVSYS.@MOD@/THRESHOLDS/TH_ENABLE.F_CV"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB66_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND6/DISABLE.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/CND6/DISABLE.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB62_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND2/DISABLE.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/CND2/DISABLE.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub dtlValue2_Click()
    
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP02.A_CV", txtTP2.Caption, True, , , False
    
    Exit Sub

ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub

Private Sub Rect67_Click()

    On Error GoTo ErrorHandler

    Dim chk As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    chk = frsreadvalue(ps_nm.CurrentValue & "/ALM_SUP.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        chk = Not (chk <> 0)
        frsWriteValue Str(Abs(chk)), ps_nm.CurrentValue & "/ALM_SUP.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError
End Sub

Private Sub grpClrErrBtn4_Click()
' setval #ps_merror_nma 0
On Error GoTo ErrorHandler
    frsWriteValue "0", ps_nm.CurrentValue & "/MERROR.F_CV"
Exit Sub
ErrorHandler:
    frsHandleError
End Sub


Private Sub dtlValue1_Click()
    
    On Error GoTo ErrorHandler
    
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TP01.A_CV", txtTP01.Caption, True, , , False
    
    Exit Sub

ErrorHandler:
    blnDataEntryFrmFlag = False
    frsHandleError
End Sub

Private Sub rctCB65_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND5/DISABLE.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/CND5/DISABLE.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB79_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_9.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_9.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB78_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_8.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_8.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB77_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_7.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_7.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB76_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_6.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_6.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB75_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_5.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_5.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB74_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_4.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_4.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB73_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_3.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_3.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB72_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_2.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_2.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB71_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_1.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/HOLD_MAN_1.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB61_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND1/DISABLE.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/CND1/DISABLE.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB64_Click()

    On Error GoTo ErrorHandler

    Dim iSim As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND4/DISABLE.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        iSim = Not (iSim <> 0)
        frsWriteValue Str(Abs(iSim)), ps_nm.CurrentValue & "/INTERLOCK/CND4/DISABLE.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub grpLinkWDecPt_Click()

On Error GoTo ErrorHandler

    Dim blnOperEntry As Boolean
    Dim lError As Long
    Dim strLimitPath As String
    Dim dblHiLim As Double
    Dim dblLoLim As Double
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    blnOperEntry = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/HI_HI_LIM_OP_ENB.F_CV", lError, "", False)

    If (blnOperEntry = True) And (lError = 0) Then
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/HI_HI_LIM_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/HI_HI_LIM_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/OP_LMTS/HI_HI_LIM_OPER.F_CV"
    Else
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/ALM1/HI_HI_LIM.A_CV"
    End If

    GetPBLFormAlphaNum strLimitPath, txtLabelLimit1.Caption, False, dblHiLim, dblLoLim, False

Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlOutArray3_Click()

Dim blnFetch As Boolean
Dim lError As Long
Dim astring As String

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    astring = frsreadvalue(ps_nm.CurrentValue & "/AO2/PV_SCALE.F_EU100", lError, "", False)
    If lError = 0 Then
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[3].A_CV", txtArray3.Caption & " " & txtOutputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/AO2/PV_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/AO2/PV_SCALE.F_EU0"), False
    Else
        GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[3].A_CV", txtArray3.Caption & " " & txtOutputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/OUT2_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/OUT2_SCALE.F_EU0"), False
    End If
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlOutArray4_Click()

Dim blnFetch As Boolean
Dim lError As Long
Dim astring As String

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    astring = frsreadvalue(ps_nm.CurrentValue & "/AO2/PV_SCALE.F_EU100", lError, "", False)
    If lError = 0 Then
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[4].A_CV", txtArray4.Caption & " " & txtOutputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/AO2/PV_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/AO2/PV_SCALE.F_EU0"), False
    Else
        GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[4].A_CV", txtArray4.Caption & " " & txtOutputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/OUT2_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/OUT2_SCALE.F_EU0"), False
    End If
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlSimValAI4_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/AI4/SIMULATE.F_SVALUE", Text100.Caption & " " & txtLabel14.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/AI4/XD_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/AI4/XD_SCALE.F_EU0"), False
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlSimValAI3_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/AI3/SIMULATE.F_SVALUE", Text97.Caption & " " & txtLabel14.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/AI3/XD_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/AI3/XD_SCALE.F_EU0"), False
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlInArray3_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/IN_ARRAY[3].A_CV", txtArray3.Caption & " " & txtInputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU0"), False
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlSimValAI2_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/AI2/SIMULATE.F_SVALUE", Text94.Caption & " " & txtLabel14.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/AI2/XD_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/AI2/XD_SCALE.F_EU0"), False
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlOutArray2_Click()

Dim blnFetch As Boolean
Dim lError As Long
Dim astring As String

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    astring = frsreadvalue(ps_nm.CurrentValue & "/AO1/PV_SCALE.F_EU100", lError, "", False)
    If lError = 0 Then
        GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[2].A_CV", txtArray2.Caption & " " & txtOutputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/AO1/PV_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/AO1/PV_SCALE.F_EU0"), False
    Else
        GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[2].A_CV", txtArray2.Caption & " " & txtOutputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/OUT1_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/OUT1_SCALE.F_EU0"), False
    End If
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlInArray4_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/IN_ARRAY[4].A_CV", txtArray4.Caption & " " & txtInputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU0"), False
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlOutArray1_Click()

Dim blnFetch As Boolean
Dim lError As Long
Dim astring As String

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    astring = frsreadvalue(ps_nm.CurrentValue & "/AO1/PV_SCALE.F_EU100", lError, "", False)
    If lError = 0 Then
        GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[1].A_CV", txtArray1.Caption & " " & txtOutputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/AO1/PV_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/AO1/PV_SCALE.F_EU0"), False
    Else
        GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[1].A_CV", txtArray1.Caption & " " & txtOutputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/OUT1_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/OUT1_SCALE.F_EU0"), False
    End If
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlSimValAI1_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    
    'GetPBLFormAlphaNum ps_nm.CurrentValue & "/AI1/SIMULATE.F_SVALUE", Text91.Caption & " " & txtLabel14.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/XD_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/XD_SCALE.F_EU0"), False

    'Added by GSA for PID-FR. To be delete after tests if necessary
    Dim lError As Long
    frsreadvalue ps_nm.CurrentValue & "/XD_SCALE.F_EU100", lError, , False
    If lError = 0 Then
        GetPBLFormAlphaNum ps_nm.CurrentValue & "/AI1/SIMULATE.F_SVALUE", Text91.Caption & " " & txtLabel14.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/XD_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/XD_SCALE.F_EU0"), False
    Else
        GetPBLFormAlphaNum ps_nm.CurrentValue & "/AI1/SIMULATE.F_SVALUE", Text91.Caption & " " & txtLabel14.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/AI1/OUT_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/AI1/OUT_SCALE.F_EU0"), False
    End If
    
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlSimValPID_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/SIMULATE.F_SVALUE", Text88.Caption & " " & txtLabel14.Caption, False, 100, 0, False
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlInArray2_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/IN_ARRAY[2].A_CV", txtArray2.Caption & " " & txtInputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU0"), False
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub dtlInArray1_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/SPLTR1/IN_ARRAY[1].A_CV", txtArray1.Caption & " " & txtInputArray.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/PID1/OUT_SCALE.F_EU0"), False
Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub grpLinkWDecPt12_Click()


On Error GoTo ErrorHandler

    Dim blnOperEntry As Boolean
    Dim lError As Long
    Dim strLimitPath As String
    Dim dblHiLim As Double
    Dim dblLoLim As Double
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    blnOperEntry = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/LO_LIM_OP_ENB.F_CV", lError, "", False)
    If (blnOperEntry = True) And (lError = 0) Then
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/LO_LIM_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/LO_LIM_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/OP_LMTS/LO_LIM_OPER.F_CV"
    Else
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/ALM1/LO_LIM.F_CV"
    End If

    GetPBLFormAlphaNum strLimitPath, txtLabelLimit5.Caption, False, dblHiLim, dblLoLim, False

Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub grpLinkWDecPt13_Click()


On Error GoTo ErrorHandler

    Dim blnOperEntry As Boolean
    Dim lError As Long
    Dim strLimitPath As String
    Dim dblHiLim As Double
    Dim dblLoLim As Double
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    blnOperEntry = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/LO_LO_LIM_OP_ENB.F_CV", lError, "", False)
    If (blnOperEntry = True) And (lError = 0) Then
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/LO_LO_LIM_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/LO_LO_LIM_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/OP_LMTS/LO_LO_LIM_OPER.F_CV"
    Else
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/ALM1/LO_LO_LIM.F_CV"
    End If

    GetPBLFormAlphaNum strLimitPath, txtLabelLimit6.Caption, False, dblHiLim, dblLoLim, False

Exit Sub
ErrorHandler:
    HandleError

End Sub

Private Sub rctCB59_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/VLV2_CLOSE_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue56.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/VLV2_CLOSE_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB51_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/CLOSE_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue48.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/CLOSE_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub rctCB39_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/OPEN_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue34.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/OPEN_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub bmpReset4_Click()
    
    On Error GoTo ErrorHandler
    Dim lngError As Long
    Dim ResetRequired As Boolean
    Dim ResetPath As String
    ResetPath = ps_nm.CurrentValue & "/INTERLOCK/RESET_REQD.F_CV"
    ResetRequired = frsreadvalue(ResetPath, lngError, , False)
    If (ResetRequired = True) And (lngError = 0) Then
        If MsgBox(sResString(365) & " " & sResString(958) & "?", vbYesNo + vbQuestion, _
                  sResString(958) & " " & sResString(365)) = vbYes Then
            frsWriteValue "1", ps_nm.CurrentValue & "/INTERLOCK/reset_d.f_cv"
        End If
    End If
    frsWriteValue "1", ps_nm.CurrentValue & "/INTERLOCK/bfi1/reset_in.f_cv"

    Exit Sub

ErrorHandler:
    frsHandleError
End Sub


Private Sub rctCB30_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/MODULE_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue27.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/MODULE_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub rctCB55_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/VLV1_CLOSE_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue52.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/VLV1_CLOSE_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub rctCB57_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/VLV2_OPEN_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue54.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/VLV2_OPEN_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub rctCB80_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/PVBAD_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue43.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/PVBAD_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB49_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/SWITCHOVER_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue41.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/SWITCHOVER_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub dtlUserFmt1_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/GAIN.F_CV", txtLabelTuning1.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False
Exit Sub

ErrorHandler:
    HandleError
End Sub


Private Sub rctCB47_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/SEL_DEV_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue39.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/SEL_DEV_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub dtlUserFmt2_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/RESET.F_CV", txtLabelTuning2.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False
Exit Sub

ErrorHandler:
    HandleError
End Sub


Private Sub rctCB37_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue37.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/INTERLOCK_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub dtlUserFmt3_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/RATE.F_CV", txtLabelTuning3.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False

Exit Sub

ErrorHandler:
    HandleError
End Sub

Private Sub Bitmap19_Click()
On Error GoTo ErrorHandler
      Dim lngindex As Long
      lngindex = frszAdjustPriority(Me)
      If lngindex >= 0 Then frsWriteValue Str(lngindex), ps_nm.CurrentValue & "/ALARMS.F_PRIAD"
'    frsCreatePopupMenu  'internet.popupmenu Clear replaced
'    frsAddMenuItem "0"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "1"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "2"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "3"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "4"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "5"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "6"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "7"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "8"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "9"  'internet.popupmenu AddItem replaced
'    frsAddMenuItem "10" 'internet.popupmenu AddItem replaced
'    frsAddMenuItem "11" 'internet.popupmenu AddItem replaced
'    frsAddMenuItem "12" 'internet.popupmenu AddItem replaced
'    PopupMenu2 frsShowPopupMenu()   'internet.popupmenu Popup replaced
    
Exit Sub
ErrorHandler:
     frsHandleError
End Sub

Private Sub dtlUserFmt4_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/PV_FTIME.F_CV", txtLabelTuning4.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False

Exit Sub

ErrorHandler:
    HandleError
End Sub

Private Sub dtlUserFmt5_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/SP_FTIME.F_CV", txtLabelTuning5.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False
Exit Sub
ErrorHandler:
    HandleError
End Sub

Private Sub IA1_Click()

On Error GoTo ErrorHandler

    Dim objNM As Object
    Dim strNM As String
    Dim objMyMonitor As Object
    Dim objCurrLink As Object
    Dim lngPos As Long
    If frsObjExists("ps_nm", Me, objNM) Then
        If frsObjExists("pn_mymonitor", Me, objMyMonitor) Then
            If StrComp(objNM.CurrentValue, "") <> 0 Then
                strNM = objNM.CurrentValue
            Else
                If frsObjExists("ps_CurrentLink", Me, objCurrLink) Then
                    If StrComp(objCurrLink.CurrentValue, "") <> 0 Then
                        strNM = objCurrLink.CurrentValue
                        lngPos = InStr(1, strNM, frsVariables.gs_mod_delim.CurrentValue)
                        
                        If lngPos > 0 Then
                            strNM = Left(strNM, lngPos)
                        End If
                    End If
                Else
                    MsgBox strCurrentLinkError
                    Exit Sub
                End If
            End If
        Else
            MsgBox strMyMonitorError
            Exit Sub
        End If
    Else
        MsgBox strNMError
        Exit Sub
    End If
            
    If StrComp(strNM, "") = 0 Then
        MsgBox strNoSelectErr
    Else
       frsLoadFaceplate strNM, objMyMonitor.CurrentValue
    End If
    'frsClosePic Me.Name
    Set objNM = Nothing
    Set objMyMonitor = Nothing
    Set objCurrLink = Nothing
    Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dtlUserFmt7_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/FF_GAIN.F_CV", txtLabelTuning9.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False
Exit Sub

ErrorHandler:
    HandleError
End Sub

Private Sub Group282_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/BIAS.F_CV", txtLabelTuning87.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False
Exit Sub
ErrorHandler:
    HandleError
End Sub

Private Sub Rect66_Click()

    On Error GoTo ErrorHandler

    Dim chk As Integer
    Dim lError As Long
    Dim strCmdStatus As String
    chk = frsreadvalue(ps_nm.CurrentValue & "/M_INHIB.F_CV", lError, strCmdStatus, False)
    If lError = 0 Then
        chk = Not (chk <> 0)
        frsWriteValue Str(Abs(chk)), ps_nm.CurrentValue & "/M_INHIB.F_CV"
    Else
        MsgBox strCmdStatus, vbOKOnly, sResString(971)
    End If

    Exit Sub

ErrorHandler:
    frsHandleError
End Sub

Private Sub rctCB53_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/VLV1_OPEN_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue50.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/VLV1_OPEN_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB34_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/DV_LO_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue31.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/DV_LO_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub Group284_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/BIAS.F_CV", txtLabelTuning88.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False
Exit Sub
ErrorHandler:
    HandleError
End Sub

Private Sub pb_initControl_OnTrue()

On Error GoTo ErrorHandler

    'init border control
    frszBorderCheck frsBorderObject, lneTopWhite, _
                   lneLeftWhite, lneBottomGray, _
                   lneBottomBlack, lneRightGray, _
                   lneRightBlack, blnBorderInitDone
                   
Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub Group279_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/IDEADBAND.F_CV", txtLabelTuning86.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/PV_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/PV_SCALE.F_EU0")
Exit Sub
ErrorHandler:
    HandleError
End Sub


Private Sub grpLabelBorderTuning9_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLinkUserFormat grpLabelBorderTuning9
Exit Sub
ErrorHandler:
    frsHandleError
End Sub


Private Sub rctCB50_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/PVBAD_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue42.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/PVBAD_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB29_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/MODULE_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue26.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/MODULE_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub rctCB48_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/SWITCHOVER_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue40.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/SWITCHOVER_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB40_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/CLOSE_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue35.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/CLOSE_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub Group277_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/IDEADBAND.F_CV", txtLabelTuning85.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/PV_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/PV_SCALE.F_EU0")
Exit Sub

ErrorHandler:
    HandleError
End Sub

Private Sub rctCB46_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/SEL_DEV_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue38.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/SEL_DEV_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB38_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/OPEN_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue33.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/OPEN_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB58_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/VLV2_CLOSE_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue55.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/VLV2_CLOSE_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB36_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue36.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/INTERLOCK_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub grpLinkWDecPt1_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/SP_RATE_DN.F_CV", txtLabelTuning6.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False
Exit Sub

ErrorHandler:
    HandleError

End Sub
Private Sub grpLinkWDecPt2_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If
    GetPBLFormAlphaNum ps_nm.CurrentValue & "/PID1/SP_RATE_UP.F_CV", txtLabelTuning7.Caption, False, MIS_HI_TIME, MIS_LO_TIME, False
Exit Sub
ErrorHandler:
    HandleError

End Sub

Private Sub grpLinkWDecPt3_Click()

On Error GoTo ErrorHandler

    Dim blnOperEntry As Boolean
    Dim lError As Long
    Dim strLimitPath As String
    Dim dblHiLim As Double
    Dim dblLoLim As Double
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    blnOperEntry = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/HI_LIM_OP_ENB.F_CV", lError, "", False)
    If (blnOperEntry = True) And (lError = 0) Then
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/HI_LIM_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/HI_LIM_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/OP_LMTS/HI_LIM_OPER.F_CV"
    Else
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/PID1/PV_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/ALM1/HI_LIM.F_CV"
    End If

    GetPBLFormAlphaNum strLimitPath, txtLabelLimit2.Caption, False, dblHiLim, dblLoLim, False

Exit Sub
ErrorHandler:
    HandleError

End Sub


Private Sub rctCB32_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/DV_HI_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue29.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/DV_HI_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub grpLinkWDecPt4_Click()

On Error GoTo ErrorHandler

    Dim blnOperEntry As Boolean
    Dim lError As Long
    Dim strLimitPath As String
    Dim dblHiLim As Double
    Dim dblLoLim As Double
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    blnOperEntry = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/DV_HI_OP_ENB.F_CV", lError, "", False)
    If (blnOperEntry = True) And (lError = 0) Then
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/DV_HI_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/DV_HI_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/OP_LMTS/DV_HI_OPER.F_CV"
    Else
        dblHiLim = DV_HI_CONST
        dblLoLim = DV_LO_CONST
        strLimitPath = ps_nm.CurrentValue & "/ALM1/DV_HI_LIM.F_CV"
    End If

    GetPBLFormAlphaNum strLimitPath, txtLabelLimit3.Caption, False, dblHiLim, dblLoLim, False

Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub rctCB56_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/VLV2_OPEN_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue53.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/VLV2_OPEN_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB54_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/VLV1_CLOSE_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue51.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/VLV1_CLOSE_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB45_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/AI4/SIMULATE.F_ENABLE")
iSim = -iSim + 3
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/AI4/SIMULATE.F_ENABLE"

If iSim = 2 Then
     frsWriteValue "128", "DVSYS.@MOD@/AI4/SIMULATE.f_sstatus"  'Set status of Simulate In to good non Cascade
   Else
     frsWriteValue "12", "DVSYS.@MOD@/AI4/SIMULATE.f_sstatus"  'Set status of Simulate In to Bad Device Failure
   End If

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB44_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/AI3/SIMULATE.F_ENABLE")
iSim = -iSim + 3
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/AI3/SIMULATE.F_ENABLE"

If iSim = 2 Then
     frsWriteValue "128", "DVSYS.@MOD@/AI3/SIMULATE.f_sstatus"  'Set status of Simulate In to good non Cascade
   Else
     frsWriteValue "12", "DVSYS.@MOD@/AI3/SIMULATE.f_sstatus"  'Set status of Simulate In to Bad Device Failure
   End If

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB43_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/AI2/SIMULATE.F_ENABLE")
iSim = -iSim + 3
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/AI2/SIMULATE.F_ENABLE"

If iSim = 2 Then
     frsWriteValue "128", "DVSYS.@MOD@/AI2/SIMULATE.f_sstatus"  'Set status of Simulate In to good non Cascade
   Else
     frsWriteValue "12", "DVSYS.@MOD@/AI2/SIMULATE.f_sstatus"  'Set status of Simulate In to Bad Device Failure
   End If

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB42_Click()

Dim iSim As Integer
Dim lError As Long

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/AI1/SIMULATE.F_ENABLE")
iSim = -iSim + 3
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/AI1/SIMULATE.F_ENABLE"
frsreadvalue ps_nm.CurrentValue & "/AO1/SIMULATE.F_ENABLE", lError, , False
If lError = 0 Then frsWriteValue Str(iSim), ps_nm.CurrentValue & "/AO1/SIMULATE.F_ENABLE"

If iSim = 2 Then
     frsWriteValue "128", "DVSYS.@MOD@/AI1/SIMULATE.f_sstatus"  'Set status of Simulate In to good non Cascade
   Else
     frsWriteValue "12", "DVSYS.@MOD@/AI1/SIMULATE.f_sstatus"  'Set status of Simulate In to Bad Device Failure
   End If

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB41_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/PID1/SIMULATE.F_ENABLE")
iSim = -iSim + 3
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/PID1/SIMULATE.F_ENABLE"

If iSim = 2 Then
     frsWriteValue "128", "DVSYS.@MOD@/PID1/SIMULATE.f_sstatus"  'Set status of Simulate In to good non Cascade
   Else
     frsWriteValue "11", "DVSYS.@MOD@/PID1/SIMULATE.f_sstatus"  'Set status of Simulate In to Bad Not Connected
   End If

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub grpLinkWDecPt5_Click()

On Error GoTo ErrorHandler

    Dim blnOperEntry As Boolean
    Dim lError As Long
    Dim strLimitPath As String
    Dim dblHiLim As Double
    Dim dblLoLim As Double
    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    blnOperEntry = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/DV_LO_OP_ENB.F_CV", lError, "", False)
    If (blnOperEntry = True) And (lError = 0) Then
        dblHiLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/DV_LO_SCALE.F_EU100")
        dblLoLim = frsreadvalue(ps_nm.CurrentValue & "/OP_LMTS/DV_LO_SCALE.F_EU0")
        strLimitPath = ps_nm.CurrentValue & "/OP_LMTS/DV_LO_OPER.F_CV"
    Else
        dblHiLim = DV_HI_CONST
        dblLoLim = DV_LO_CONST
        strLimitPath = ps_nm.CurrentValue & "/ALM1/DV_LO_LIM.F_CV"
    End If

    GetPBLFormAlphaNum strLimitPath, txtLabelLimit4.Caption, False, dblHiLim, dblLoLim, False

Exit Sub
ErrorHandler:
    HandleError

End Sub

Private Sub rctCB28_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/LO_LO_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue25.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/LO_LO_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctEntry_Click()

Dim blnFetch As Boolean

On Error GoTo ErrorHandler

    If blnDataEntryFrmFlag = True Then
        Exit Sub
    End If

    GetPBLFormAlphaNum ps_nm.CurrentValue & "/TRK_VAL.F_CV", txtLabelTrack1.Caption, False, frsreadvalue(ps_nm.CurrentValue & "/PID1/TRK_SCALE.F_EU100"), frsreadvalue(ps_nm.CurrentValue & "/PID1/TRK_SCALE.F_EU0")

Exit Sub

ErrorHandler:
    HandleError

End Sub

Private Sub rctCBT14_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/MODELOCK/ENB_ML.F_CV")
iSim = -iSim + 2 * pn_OnValue14.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/MODELOCK/ENB_ML.F_CV"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB33_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/DV_LO_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue30.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/DV_LO_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub dynLabelLinkLimit12_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt dynLabelLinkLimit12
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub grpMonitor2_Edit()
'This event will configure the grpMonitor2 object for the current picture.
'The object needs to be configured because it reference a picture variable
'that is outside of the dyname.  When the object is copied to a new picture,
'the path will not automatically update.
On Error GoTo ErrorHandler
    Dim objMyMonitor As Object
    If frsObjExists("pn_MyMonitor", Me, objMyMonitor) Then
        AnimatedCurrentValue12.Source = objMyMonitor.FullyQualifiedName & ".CurrentValue"
    Else
        MsgBox strSwitchMonitorError
        AnimatedCurrentValue12.Source = pn_CurMon2.FullyQualifiedName & ".Description"
    End If
    'the pause and visiblity changes are so the configuration person can see the object
    'in config mode.
    frsSuspendAll 1
    bmpHorMon6.Visible = True
    bmpHorMon5.Visible = True
    bmpVerMon5.Visible = True
    bmpVerMon6.Visible = True
    
'Final Cleanup
Set objMyMonitor = Nothing
Exit Sub
ErrorHandler:
        frsHandleError

End Sub

Private Sub PopUpPositioning_Edit()
On Error GoTo ErrorHandler
    If PopUpPositioning.Name <> frsVariables.gs_PopUpPositionName.CurrentValue Then
        MsgBox strPopupPositionError
        Exit Sub
    End If
    frszOpenPopupDynamo PopUpPositioning
Exit Sub
ErrorHandler:
     frsHandleError
End Sub

Private Sub CFixPicture_LoadedTagGroup(ByVal bstrTagGroupName As String)
On Error GoTo ErrorHandler

Dim lError2 As Long
Dim lError1 As Long
Dim dValue As Long   'V2.0 variable for Deviation active Alarm
Dim lError3 As Long  'V2.0 variable to check DEV_ALM parameter
Dim sValue As Long
Dim sValue1 As Long
Dim ObjTest As Object
Dim Obj2SelAlm As Object 'V2.0 variable to define DevAlarm group
Dim ObjDevLim As Object 'V2.0 variable to define DevAlarm Limit group
Dim aError As Long
Dim bError As Long
Dim cError As Long
Dim dError As Long
Dim fError As Long
Dim gError As Long
Dim hError As Long
Dim iError As Long
Dim jError As Long
Dim kError As Long
Dim SimUnitsOffset As Long
Dim strValue As String
Dim lngReadStatus As Long
Dim grpFieldValueoffset As Long
'To display Compensation Information
Dim eValue As Long
Dim eError As Long
'For FF check
Dim AIlError As Long
Dim astring As Long
'Code to display module description in two lines
Dim DescStr As String
Dim firstline As String
Dim secondline As String
Dim lError As Long
Dim strCmdStatus As String
Dim lret As Integer

frszDvsysDetailInit Me
'Set the name of module into the faceplate title bar
Me.Parent.activewindow.Caption = Right(ps_nm.CurrentValue, Len(ps_nm.CurrentValue) - InStr(1, ps_nm.CurrentValue, "."))

DescStr = frsreadvalue(ps_nm.CurrentValue & "/DESC.A_CV", lError, strCmdStatus, False)  'Desciption of Module

If lError = 0 Then
    lret = DESC(DescStr, firstline, secondline)
               'Write First Line into the caption of DESCLINK1
                 DESCLINK1.Caption = firstline
                 DESCLINK1.Alignment = Center
               ' Write Second Line into the caption of DESCLINK2
                 DESCLINK2.Caption = secondline
                 DESCLINK2.Alignment = Center
Else
    MsgBox strCmdStatus, vbOKOnly, sResString(971)
End If
    
    grpAIUnits.HorizontalPosition = 20.2116406575765
    dynLabelLinkTuning6.VerticalPosition = 20.065485015546
    dynLabelLinkTuning7.VerticalPosition = 21.502610764049

    astring = frsreadvalue(ps_nm.CurrentValue & "/PID1/ALERT_KEY.F_CV", AIlError, "", False)
    
    If (AIlError = 0) Then
        'Fieldbus block
        dynLabelLinkTuning5.Visible = False
        dynLabelLinkTuning7.VerticalPosition = 20.1475123740669
        dynLabelLinkTuning6.VerticalPosition = 18.710386625564
        Group241.Visible = False
        dynLabelLinkTuning8.Visible = False
        grpStructure2.Visible = False
        dynLabelLinkTuning9.Visible = False
        dynLabelLinkLimit9.Visible = False
        dynLabelLinkLimit10.Visible = False
        dynLabelLinkLimit11.VerticalPosition = 15.7249686673165
        dynLabelLinkLimit12.VerticalPosition = 17.0847880909695
        grpPID.Visible = False
        grpAIUnits.HorizontalPosition = grpPID.HorizontalPosition
    Else
        'Normal block
        dynLabelLinkTuning5.Visible = True
        Group241.Visible = True
        dynLabelLinkTuning8.Visible = True
        grpStructure2.Visible = True
        dynLabelLinkTuning9.Visible = True
        dynLabelLinkLimit9.Visible = True
        dynLabelLinkLimit10.Visible = True
        dynLabelLinkLimit11.VerticalPosition = 18.6158452326117
        dynLabelLinkLimit12.VerticalPosition = 19.9756646562646
        grpPID.Visible = True
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(dtlUserFmt5, "fmtUserFmt5")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/SP_FTIME.F_CV"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(dtlStructure, "Format444")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/STRUCTURE.A_CV"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(Group276, "AnimatedVisible132")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/STRUCTURE.F_CV > 4"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(DataLink94, "Format507")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/IDEADBAND.A_CVDECPT[PV_SCALE]"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(Group278, "AnimatedVisible95")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/STRUCTURE.F_CV < 3"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(DataLink95, "Format508")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/IDEADBAND.A_CVDECPT[PV_SCALE]"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(Group281, "AnimatedVisible102")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/STRUCTURE.F_CV = 3"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(DataLink96, "Format509")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/BIAS.A_CVDECPT[OUT_SCALE]"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(Group283, "AnimatedVisible107")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/STRUCTURE.F_CV = 4"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(DataLink97, "Format510")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/BIAS.A_CVDECPT[OUT_SCALE]"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(grpStructure2, "AnimatedVisible71")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/STRUCTURE.F_CV[_NOT_CONFIG_OK_] = 7"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(dynLabelLinkTuning9, "AnimatedVisible1")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/pid1/ff_enable.f_cv = 1"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(DataLink80, "Format485")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/BETA.F_CV"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(DataLink81, "Format486")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/GAMMA.F_CV"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(dtlDecPtOne8, "Format504")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/ARW_HI_LIM.A_CVDECPT[OUT_SCALE]"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(dtlDecPtOne9, "Format498")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/ARW_LO_LIM.A_CVDECPT[OUT_SCALE]"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(dtlFieldValPID, "AnimateFieldValAI5")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/Simulate.f_fValue"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(dtlSimValPID, "fmtUserFmt9")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/Simulate.f_sValue"
        End If
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(txtCheckMarkPID, "AnimateVisSimPID")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/PID1/SIMULATE.F_ENABLE = 2"
        End If
    End If
    'To check if multiple AIs are Present
    SimUnitsOffset = 6.1193935816603
    grpFieldValuePID.Visible = True
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AI1/OUT.F_CV", aError, "", False)
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AI2/OUT.F_CV", bError, "", False)
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AI3/OUT.F_CV", cError, "", False)
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AI4/OUT.F_CV", dError, "", False)
    If aError = 0 Then
        'AI1 Preset
        grpAI1.Visible = True
        grpFieldValuePID.Visible = False
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(dtlSimValAI1, "AnimateSimValAI")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/AI1/SIMULATE.F_SVALUE"
        End If
        Set ObjTest = FindLocalObject(dtlFieldValAI1, "AnimateFieldValAI")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/AI1/SIMULATE.F_FVALUE"
        End If
        Set ObjTest = FindLocalObject(txtCheckMarkAI1, "AnimateVisSimAI")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/AI1/SIMULATE.F_ENABLE = 2"
        End If
        If bError = 0 Then
            'AI2 Preset
            grpAI2.Visible = True
            Set ObjTest = Nothing
            Set ObjTest = FindLocalObject(dtlSimValAI2, "AnimateSimValAI")
            If Not ObjTest Is Nothing Then
                ObjTest.Source = ps_nm.CurrentValue & "/AI2/SIMULATE.F_SVALUE"
            End If
            Set ObjTest = FindLocalObject(dtlFieldValAI2, "AnimateFieldValAI")
            If Not ObjTest Is Nothing Then
                ObjTest.Source = ps_nm.CurrentValue & "/AI2/SIMULATE.F_FVALUE"
            End If
            Set ObjTest = FindLocalObject(txtCheckMarkAI2, "AnimateVisSimAI")
            If Not ObjTest Is Nothing Then
                ObjTest.Source = ps_nm.CurrentValue & "/AI2/SIMULATE.F_ENABLE = 2"
            End If
            If cError = 0 Then
                'AI3 Preset
                grpAI3.Visible = True
                Set ObjTest = Nothing
                Set ObjTest = FindLocalObject(dtlSimValAI3, "AnimateSimValAI")
                If Not ObjTest Is Nothing Then
                    ObjTest.Source = ps_nm.CurrentValue & "/AI3/SIMULATE.F_SVALUE"
                End If
                Set ObjTest = FindLocalObject(dtlFieldValAI3, "AnimateFieldValAI")
                If Not ObjTest Is Nothing Then
                    ObjTest.Source = ps_nm.CurrentValue & "/AI3/SIMULATE.F_FVALUE"
                End If
                Set ObjTest = FindLocalObject(txtCheckMarkAI3, "AnimateVisSimAI")
                If Not ObjTest Is Nothing Then
                    ObjTest.Source = ps_nm.CurrentValue & "/AI3/SIMULATE.F_ENABLE = 2"
                End If
                If dError = 0 Then
                    'AI4 Preset
                    grpAI4.Visible = True
                    Set ObjTest = Nothing
                    Set ObjTest = FindLocalObject(dtlSimValAI4, "AnimateSimValAI")
                    If Not ObjTest Is Nothing Then
                        ObjTest.Source = ps_nm.CurrentValue & "/AI4/SIMULATE.F_SVALUE"
                    End If
                    Set ObjTest = FindLocalObject(dtlFieldValAI4, "AnimateFieldValAI")
                    If Not ObjTest Is Nothing Then
                        ObjTest.Source = ps_nm.CurrentValue & "/AI4/SIMULATE.F_FVALUE"
                    End If
                    Set ObjTest = FindLocalObject(txtCheckMarkAI4, "AnimateVisSimAI")
                    If Not ObjTest Is Nothing Then
                        ObjTest.Source = ps_nm.CurrentValue & "/AI4/SIMULATE.F_ENABLE = 2"
                    End If
                Else
                    grpAI4.Visible = False
                End If
            Else
                grpAI3.Visible = False
                grpAI4.Visible = False
            End If
        Else
            grpAI2.Visible = False
            grpAI3.Visible = False
            grpAI4.Visible = False
        End If
    Else
        grpAI1.Visible = False
        grpAI2.Visible = False
        grpAI3.Visible = False
        grpAI4.Visible = False
    End If
    
    'To check if Split Range is Present
    sValue = frsreadvalue(ps_nm.CurrentValue & "/SPLTR1/CAS_IN.F_CV", lError, "", False)
    If lError = 0 Then
        'Split Range is Preset
        grpSplitRange.Visible = True
        Set ObjTest = Nothing
        Set ObjTest = FindLocalObject(dtlInArray1, "fmtInArray")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/SPLTR1/IN_ARRAY[1].A_CV"
        End If
        Set ObjTest = FindLocalObject(dtlOutArray1, "fmtOutArray")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[1].A_CV"
        End If
        Set ObjTest = FindLocalObject(dtlInArray2, "fmtInArray")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/SPLTR1/IN_ARRAY[2].A_CV"
        End If
        Set ObjTest = FindLocalObject(dtlOutArray2, "fmtOutArray")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[2].A_CV"
        End If
        Set ObjTest = FindLocalObject(dtlInArray3, "fmtInArray")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/SPLTR1/IN_ARRAY[3].A_CV"
        End If
        Set ObjTest = FindLocalObject(dtlOutArray3, "fmtOutArray")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[3].A_CV"
        End If
        Set ObjTest = FindLocalObject(dtlInArray4, "fmtInArray")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/SPLTR1/IN_ARRAY[4].A_CV"
        End If
        Set ObjTest = FindLocalObject(dtlOutArray4, "fmtOutArray")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = ps_nm.CurrentValue & "/SPLTR1/OUT_ARRAY[4].A_CV"
        End If
        strValue = frsreadvalue(ps_nm.CurrentValue & "/OUTPUT_1.A_CV", lError, "", False)
        If lError = 0 Then
            txtArray1.Caption = strValue
            txtArray2.Caption = strValue
        End If
        strValue = frsreadvalue(ps_nm.CurrentValue & "/OUTPUT_2.A_CV", lError, "", False)
        If lError = 0 Then
            txtArray3.Caption = strValue
            txtArray4.Caption = strValue
        End If
    Else
        grpSplitRange.Visible = False
    End If
        
    Set ObjTest = FindLocalObject(Me, "grpPriorityAdj")              '"RectDiagErrorLine"
  
    'V2.0 define DevAlarm group Objects
    Set Obj2SelAlm = FindLocalObject(Me, "grp_2Sel")
    Set ObjDevLim = FindLocalObject(Me, "grpDevActLim")
    Obj2SelAlm.VerticalPosition = 26.8338135892794
    
    sValue = frsreadvalue(ps_nm.CurrentValue & "/READBACK.F_CV", lError2, "", False)
    sValue1 = frsreadvalue(ps_nm.CurrentValue & "/READBACK1.F_CV", lError1, "", False)
   
    'V2.0 checking for Deviation Alarm presence; Applicable to only Modules with Input Selection
    dValue = frsreadvalue(ps_nm.CurrentValue & "/DEV_LIM.F_CV", lError3, "", False) 'V2.0 checking DEV_ALM parameter
        
    'V2.0 positioning of grpPriorityAdj without deviation alrm and valve alarm groups
    If lError2 <> 0 And lError3 <> 0 Then
        GRP1_OPN_CLS.Visible = False
        GRP2_OPN_CLS.Visible = False
        Obj2SelAlm.Visible = False
        ObjTest.VerticalPosition = 26.8338135892794
    End If
   
    'V2.0 positioning of grpPriorityAdj with deviation alrm and without valve alarm groups
    If lError3 = 0 Then
        GRP1_OPN_CLS.Visible = False
        GRP2_OPN_CLS.Visible = False
        Obj2SelAlm.Visible = True
        ObjTest.VerticalPosition = 31.4805750487138
        fmtPriority14.Source = ps_nm.CurrentValue & "/SEL_DEV_ALM.A_PRI[_NOT_CONFIG_OK_]"
        avChkMrk27.Source = ps_nm.CurrentValue & "/SEL_DEV_ALM.F_ENAB[_NOT_CONFIG_OK_] = 1"
        avChkMrk30.Source = ps_nm.CurrentValue & "/SEL_DEV_ALM.F_OPSUP[_NOT_CONFIG_OK_] = 1"
        fmtPriority16.Source = ps_nm.CurrentValue & "/PVBAD_ALM.A_PRI[_NOT_CONFIG_OK_]"
        avChkMrk33.Source = ps_nm.CurrentValue & "/PVBAD_ALM.F_ENAB[_NOT_CONFIG_OK_] = 1"
        avChkMrk34.Source = ps_nm.CurrentValue & "/PVBAD_ALM.F_OPSUP[_NOT_CONFIG_OK_] = 1"
        fmtPriority15.Source = ps_nm.CurrentValue & "/SWITCHOVER_ALM.A_PRI[_NOT_CONFIG_OK_]"
        avChkMrk31.Source = ps_nm.CurrentValue & "/SWITCHOVER_ALM.F_ENAB[_NOT_CONFIG_OK_] = 1"
        avChkMrk32.Source = ps_nm.CurrentValue & "/SWITCHOVER_ALM.F_OPSUP[_NOT_CONFIG_OK_] = 1"
    End If
    
    'V2.0 positioning of grpPriorityAdj without 2SeL alrms and with valve alarm group2
    If lError2 = 0 And lError1 = 0 And lError3 <> 0 Then
        GRP2_OPN_CLS.Visible = True
        GRP1_OPN_CLS.Visible = False
        Obj2SelAlm.Visible = False
        ObjTest.VerticalPosition = 32.9769262905316
        fmtPriority10.Source = ps_nm.CurrentValue & "/VLV1_OPEN_ALM.A_PRI[_NOT_CONFIG_OK_]"
        fmtPriority11.Source = ps_nm.CurrentValue & "/VLV1_CLOSE_ALM.A_PRI[_NOT_CONFIG_OK_]"
        fmtPriority12.Source = ps_nm.CurrentValue & "/VLV2_OPEN_ALM.A_PRI[_NOT_CONFIG_OK_]"
        fmtPriority13.Source = ps_nm.CurrentValue & "/VLV2_CLOSE_ALM.A_PRI[_NOT_CONFIG_OK_]"
        avChkMrk38.Source = ps_nm.CurrentValue & "/VLV1_OPEN_ALM.F_ENAB[_NOT_CONFIG_OK_] = 1"
        avChkMrk39.Source = ps_nm.CurrentValue & "/VLV1_OPEN_ALM.F_OPSUP[_NOT_CONFIG_OK_] = 1"
        avChkMrk40.Source = ps_nm.CurrentValue & "/VLV1_CLOSE_ALM.F_ENAB[_NOT_CONFIG_OK_] = 1"
        avChkMrk41.Source = ps_nm.CurrentValue & "/VLV1_CLOSE_ALM.F_OPSUP[_NOT_CONFIG_OK_] = 1"
        avChkMrk42.Source = ps_nm.CurrentValue & "/VLV2_OPEN_ALM.F_ENAB[_NOT_CONFIG_OK_] = 1"
        avChkMrk43.Source = ps_nm.CurrentValue & "/VLV2_OPEN_ALM.F_OPSUP[_NOT_CONFIG_OK_] = 1"
        avChkMrk44.Source = ps_nm.CurrentValue & "/VLV2_CLOSE_ALM.F_ENAB[_NOT_CONFIG_OK_] = 1"
        avChkMrk45.Source = ps_nm.CurrentValue & "/VLV2_CLOSE_ALM.F_OPSUP[_NOT_CONFIG_OK_] = 1"
    End If
    
    'V2.0 positioning of grpPriorityAdj without 2SeL alrms and with valve alarm group1
    If lError2 = 0 And lError1 <> 0 And lError3 <> 0 Then
        GRP1_OPN_CLS.Visible = True
        GRP2_OPN_CLS.Visible = False
        Obj2SelAlm.Visible = False
        ObjTest.VerticalPosition = 29.9053699399055
        fmtPriority8.Source = ps_nm.CurrentValue & "/OPEN_ALM.A_PRI[_NOT_CONFIG_OK_]"
        avChkMrk24.Source = ps_nm.CurrentValue & "/OPEN_ALM.F_ENAB[_NOT_CONFIG_OK_] = 1"
        avChkMrk25.Source = ps_nm.CurrentValue & "/OPEN_ALM.F_OPSUP[_NOT_CONFIG_OK_] = 1"
        fmtPriority9.Source = ps_nm.CurrentValue & "/CLOSE_ALM.A_PRI[_NOT_CONFIG_OK_]"
        avChkMrk26.Source = ps_nm.CurrentValue & "/CLOSE_ALM.F_ENAB[_NOT_CONFIG_OK_] = 1"
        avChkMrk37.Source = ps_nm.CurrentValue & "/CLOSE_ALM.F_OPSUP[_NOT_CONFIG_OK_] = 1"
    End If
    
    Set ObjTest = Nothing
   
   'V2.0 Hiding Deviation Act Alarm Limitgroup in Alarm Limits Tab
    If lError3 = 0 Then
        ObjDevLim.Visible = True
        fmtUserFmt6.Source = ps_nm.CurrentValue & "/DEV_LIM.F_CV[_NOT_CONFIG_OK_]"
    Else
        ObjDevLim.Visible = False
    End If
    
    
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AI1/ALERT_KEY.F_CV", hError, "", False)
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AI2/ALERT_KEY.F_CV", iError, "", False)
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AO1/ALERT_KEY.F_CV", jError, "", False)
    sValue = frsreadvalue(ps_nm.CurrentValue & "/PID1/ALERT_KEY.F_CV", kError, "", False)
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AI3/ALERT_KEY.F_CV", fError, "", False)
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AI4/ALERT_KEY.F_CV", gError, "", False)


    If (hError = 0) Or (iError = 0) Or (jError = 0) Or (kError = 0) Or (fError = 0) Or (gError = 0) Then
        bmpFieldBus.Visible = True
    Else
        bmpFieldBus.Visible = False
    End If
            
    'Added by GSA 01/03/07
    sValue = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND5/OUT_D.F_CV", lError, "", False)
    If lError <> 0 Then
        Set ObjTest = Nothing
        Set ObjTest = frsFindLocObj(grpInterlock5, "Lookup")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = "0"
        End If
    End If
    sValue = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND6/OUT_D.F_CV", lError, "", False)
    If lError <> 0 Then
        Set ObjTest = Nothing
        Set ObjTest = frsFindLocObj(grpInterlock6, "Lookup")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = "0"
        End If
    End If
    sValue = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND7/OUT_D.F_CV", lError, "", False)
    If lError <> 0 Then
        Set ObjTest = Nothing
        Set ObjTest = frsFindLocObj(grpInterlock7, "Lookup")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = "0"
        End If
    End If
    sValue = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/CND8/OUT_D.F_CV", lError, "", False)
    If lError <> 0 Then
        Set ObjTest = Nothing
        Set ObjTest = frsFindLocObj(grpInterlock8, "Lookup")
        If Not ObjTest Is Nothing Then
            ObjTest.Source = "0"
        End If
    End If
    
    TabMain.Value = 0
    DiscreteTabInit TabMain
    DiscreteAlarmTabInit TabAlarm
   
    TabStrip3.Visible = True
    
    'checking for Composite PTGC_COMP
    eValue = frsreadvalue(ps_nm.CurrentValue & "/PTGC/FLOW_COMP.F_CV", eError, "", False)
    
    If (eError = 0) Then
        grpCompInfo.Visible = True
    Else
        grpCompInfo.Visible = False
    End If
    
    frsreadvalue ps_nm.CurrentValue & "/alm1/hi_hys.f_cv", lngReadStatus, , False
    If lngReadStatus = 0 Then
       Me.pn_condvis.CurrentValue = 1
       grpDevActLim.VerticalPosition = 24.4491103660301
    Else
       Me.pn_condvis.CurrentValue = 0
       grpDevActLim.VerticalPosition = 25.856892732193
    End If
    
    astring = frsreadvalue(ps_nm.CurrentValue & "/AI1/ALERT_KEY.F_CV", AIlError, "", False)
    
    If (AIlError = 0) Then
        'Fieldbus block
        grpSimValueData1.Visible = False
    Else
        'Normal block
        grpSimValueData1.Visible = True
    End If
    
    astring = frsreadvalue(ps_nm.CurrentValue & "/AI2/ALERT_KEY.F_CV", AIlError, "", False)
    
    If (AIlError = 0) Then
        'Fieldbus block
        grpSimValueData2.Visible = False
    Else
        'Normal block
        grpSimValueData2.Visible = True
    End If
    
    astring = frsreadvalue(ps_nm.CurrentValue & "/AI3/ALERT_KEY.F_CV", AIlError, "", False)
    
    If (AIlError = 0) Then
        'Fieldbus block
        grpSimValueData3.Visible = False
    Else
        'Normal block
        grpSimValueData3.Visible = True
    End If
    
    astring = frsreadvalue(ps_nm.CurrentValue & "/AI4/ALERT_KEY.F_CV", AIlError, "", False)
    
    If (AIlError = 0) Then
        'Fieldbus block
        grpSimValueData4.Visible = False
    Else
        'Normal block
        grpSimValueData4.Visible = True
    End If
    
    grpFieldValueoffset = 15.8228712521289
    If (kError = 0) And ((hError = 0) Or (aError <> 0)) And ((iError = 0) Or (bError <> 0)) And ((fError = 0) Or (cError <> 0)) And ((gError = 0) Or (dError <> 0)) Then
         grpFieldValue.VerticalPosition = grpCheckBox14.VerticalPosition
         grpSim.Visible = False
    Else
         grpFieldValue.VerticalPosition = grpFieldValueoffset
         grpSim.Visible = True
    End If
    
    sValue = frsreadvalue(ps_nm.CurrentValue & "/AI1/SIMULATE.F_FVALUE", aError, "", False)
    sValue = frsreadvalue(ps_nm.CurrentValue & "/PID1/SIMULATE.F_FVALUE", bError, "", False)
    
    If (aError = 0) Or (bError = 0) Then
        grpFieldValue.Visible = True
    Else
        grpFieldValue.Visible = False
    End If
    
    grpFieldValueData1.VerticalPosition = grpFieldValue.VerticalPosition
    grpFieldValueData2.VerticalPosition = grpFieldValue.VerticalPosition
    grpFieldValueData3.VerticalPosition = grpFieldValue.VerticalPosition
    grpFieldValueData4.VerticalPosition = grpFieldValue.VerticalPosition
    grpFieldValuePID.VerticalPosition = grpFieldValue.VerticalPosition

Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub rctCB52_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/VLV1_OPEN_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue49.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/VLV1_OPEN_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB26_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/LO_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue25.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/LO_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB27_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/LO_LO_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue24.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/LO_LO_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub bmpVerMon5_Click()
On Error GoTo ErrorHandler
    frszDetSwitchMonitor Me
    'Set the name of module into the faceplate title bar
    Me.Parent.activewindow.Caption = Right(ps_nm.CurrentValue, Len(ps_nm.CurrentValue) - InStr(1, ps_nm.CurrentValue, "."))
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub pb_initControl4_OnTrue()
    'this init control checks that the path
    'is correct in this dynamo.  The check is needed
    'since the dynamo references a picture variable
    'that is not in the dynamo.
On Error GoTo ErrorHandler
    Dim strPicName As String
    strPicName = AnimatedCurrentValue12.Source
    'This will extract the picname fromt the source
    strPicName = Left(strPicName, InStr(1, strPicName, ".") - 1)
    'if this is not the currentpictures name, the dynamo need to be initialized
    If strPicName <> Name Then
        MsgBox strPreMonitorObject & Name & strPostInitControl
    End If
    Exit Sub
ErrorHandler:
        frsHandleError
End Sub

Private Sub bmpClosePicture_Click()
On Error GoTo ErrorHandler
    frszDetailClosePictureButton Me
    Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dynLabelLinkTuning7_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt dynLabelLinkTuning7
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub rctCB31_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/DV_HI_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue28.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/DV_HI_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub CFixPicture_SelectionChanged()
On Error GoTo ErrorHandler
    frszpicCurLink Me.ContainedSelections, ps_CurrentLink
    Exit Sub
ErrorHandler:
    frsHandleError

End Sub

Private Sub rctCB25_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/LO_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue24.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/LO_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub dynLabelLinkLimit11_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt dynLabelLinkLimit11
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub CFixPicture_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Double, ByVal Y As Double)
On Error GoTo ErrorHandler
    If Button = vbKeyRButton Then
        frszCreateAnEPMMenu Me  'Track #36546 - Removed IEPOP1 on : 2/28/03
    End If
Exit Sub
ErrorHandler:
     frsHandleError
End Sub


Private Sub dynLabelLinkLimit10_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt dynLabelLinkLimit10
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dynLabelLinkTuning6_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt dynLabelLinkTuning6
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub bmpVerMon6_Click()
On Error GoTo ErrorHandler
    frszDetSwitchMonitor Me
    'Set the name of module into the faceplate title bar
    Me.Parent.activewindow.Caption = Right(ps_nm.CurrentValue, Len(ps_nm.CurrentValue) - InStr(1, ps_nm.CurrentValue, "."))
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub bmpHorMon5_Click()
On Error GoTo ErrorHandler
    frszDetSwitchMonitor Me
    'Set the name of module into the faceplate title bar
    Me.Parent.activewindow.Caption = Right(ps_nm.CurrentValue, Len(ps_nm.CurrentValue) - InStr(1, ps_nm.CurrentValue, "."))
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub bmpHorMon6_Click()
On Error GoTo ErrorHandler
    frszDetSwitchMonitor Me
    'Set the name of module into the faceplate title bar
    Me.Parent.activewindow.Caption = Right(ps_nm.CurrentValue, Len(ps_nm.CurrentValue) - InStr(1, ps_nm.CurrentValue, "."))
Exit Sub
ErrorHandler:
    frsHandleError
End Sub
Private Sub rctCB24_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/HI_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue25.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/HI_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub


Private Sub dynLabelLinkTrack_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt dynLabelLinkTrack
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub rctCB22_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/HI_HI_ALM.F_OPSUP")
iSim = -iSim + 2 * pn_OnValue19.CurrentValue - 1
frsWriteValue Str(iSim), ps_nm.CurrentValue & "/HI_HI_ALM.F_OPSUP"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub dynLabelLinkLimit9_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt dynLabelLinkLimit9
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub rctCB60_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/HI_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue24.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/HI_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub grpDevActLim_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLinkUserFormat grpDevActLim
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub rctCB23_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/HI_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue24.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/HI_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub grpAlmHysLim_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLinkUserFormat grpAlmHysLim
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub grpDevLoAlm_Edit()
'***************************************************
' In config mode of iFIX this method is called when
' double click of the dyanmo is done or when using
' the right button menu item "Custom..."
'***************************************************
On Error GoTo ErrorHandler
  
    'Open Form for a Dynamo - in this case Alarm Row Dynamo
    'Need to pass in:
    '   Name of the picture
    '   Name of the dynamo object container that FindReplace will use
    '   Name of objects to specificly change on the form.  In this case
    '   The label and the Priority Link
'    frsOFDAlarmRow bhcDyn.Name, grpDevLoAlm.Name, txtLabel3.Name, fmtPriority3.Name
    frszOFDAlarmRow grpDevLoAlm

Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub grpLoLoAlmLim_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt grpLoLoAlmLim
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub rctCB21_Click()

Dim iSim As Integer

On Error GoTo ErrorHandler

iSim = frsreadvalue(ps_nm.CurrentValue & "/HI_HI_ALM.F_ENAB")
iSim = -iSim + 2 * pn_OnValue18.CurrentValue - 1
frsWriteValue CStr(iSim), ps_nm.CurrentValue & "/HI_HI_ALM.F_ENAB"

Exit Sub

ErrorHandler:
    frsHandleError

End Sub

Private Sub grpLoAlmLim_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt grpLoAlmLim
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub grpDvHiAlmLim_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt grpDvHiAlmLim
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Public Sub Check_ESD_Ilocks()
    
    Dim sValue As String
    Dim lError As Long
    
    On Error GoTo ErrorHandler
    
    Dim objChkBox As Object
    Dim CheckBoxName As String
    Dim strIlockDesc As String
    Dim i As Integer
    For i = 1 To 8
        CheckBoxName = "grpCheckBox" & i
        strIlockDesc = ps_nm.CurrentValue & "/INTERLOCK/CND" & i & "/DESC.A_CV"
        'Modified by GSA 01/03/07
        sValue = frsreadvalue(strIlockDesc, lError, , False)
        If lError = 0 Then
            Set objChkBox = frsFindLocObj(grpInterlocks, CheckBoxName)
            If UCase(Left(frsreadvalue(strIlockDesc), Len(SIGlobals.strSafetyIlockDesc.CurrentValue))) = UCase(SIGlobals.strSafetyIlockDesc.CurrentValue) Then
                objChkBox.Visible = False
            Else
                objChkBox.Visible = True
            End If
        End If
    Next
    Set objChkBox = Nothing
    
    Exit Sub

ErrorHandler:
     frsHandleError
End Sub

Public Sub DiscreteTabInit(objTabstrip As Object)
'this function will initialize the tabstrip of a discrete control
On Error GoTo ErrorHandler
    
    Dim lError As Long
    Dim sValue As String
    iTabNo = 0
    
    objTabstrip.Tabs.Clear
    objTabstrip.Tabs.Add "", ""
    objTabstrip.Tabs.Add "", ""

    sValue = frsreadvalue(ps_nm.CurrentValue & "/INTERLOCK/INTERLOCK.F_CV", lError, "", False)
    If lError = 0 Then
'Interlocks Defined
        If iTabNo = 0 Then
            objTabstrip.Tabs(0).Name = "Page1"
            objTabstrip.Tabs(0).Caption = sResString(952)
        Else
            If iTabNo = 1 Then
                objTabstrip.Tabs(1).Name = "Page2"
                objTabstrip.Tabs(1).Caption = sResString(952)
            Else
                objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(952)
            End If
        End If
        pn_Tab_Ilock.CurrentValue = iTabNo
        iTabNo = iTabNo + 1
    'Interlock Tab Line
        If (pn_Tab_Ilock.CurrentValue <= 3) Then
            RectInterlockLine.HorizontalPosition = ErrorOffset + (pn_Tab_Ilock.CurrentValue * ErrorMult)
        Else
            RectInterlockLine.HorizontalPosition = ErrorOffset + ((pn_Tab_Ilock.CurrentValue - 4) * ErrorMult)
        End If
        grpInterlockLine.Visible = True
    'Check for Safety Ilocks
        Check_ESD_Ilocks
    Else
'Interlocks Not Defined
        pn_Tab_Ilock.CurrentValue = 10
        grpInterlockLine.Visible = True
    End If
    
'Tuning Tab
    If iTabNo = 0 Then
        objTabstrip.Tabs(0).Name = "Page1"
        objTabstrip.Tabs(0).Caption = sResString(955)
    Else
        If iTabNo = 1 Then
            objTabstrip.Tabs(1).Name = "Page2"
            objTabstrip.Tabs(1).Caption = sResString(955)
        Else
            objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(955)
        End If
    End If
    pn_Tab_Tune.CurrentValue = iTabNo
    iTabNo = iTabNo + 1

    sValue = frsreadvalue(ps_nm.CurrentValue & "/TP01.F_CV", lError, "", False)
    If lError = 0 Then
'Variables Defined
        If iTabNo = 0 Then
            objTabstrip.Tabs(0).Name = "Page1"
            objTabstrip.Tabs(0).Caption = sResString(957)
        Else
            If iTabNo = 1 Then
                objTabstrip.Tabs(1).Name = "Page2"
                objTabstrip.Tabs(1).Caption = sResString(957)
            Else
                objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(957)
            End If
        End If
        pn_Tab_Vars.CurrentValue = iTabNo
        iTabNo = iTabNo + 1
    Else
'Variables Not Defined
        pn_Tab_Vars.CurrentValue = 13
    End If

'Alarm/Limits Tab
    If iTabNo = 0 Then
        objTabstrip.Tabs(0).Name = "Page1"
        objTabstrip.Tabs(0).Caption = sResString(954)
    Else
        If iTabNo = 1 Then
            objTabstrip.Tabs(1).Name = "Page2"
            objTabstrip.Tabs(1).Caption = sResString(954)
        Else
            objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(954)
        End If
    End If
    pn_Tab_Alm.CurrentValue = iTabNo
    iTabNo = iTabNo + 1

'I/O Tab
    If iTabNo = 0 Then
        objTabstrip.Tabs(0).Name = "Page1"
        objTabstrip.Tabs(0).Caption = sResString(946)
    Else
        If iTabNo = 1 Then
            objTabstrip.Tabs(1).Name = "Page2"
            objTabstrip.Tabs(1).Caption = sResString(946)
        Else
            objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(946)
        End If
    End If
    pn_Tab_IO.CurrentValue = iTabNo
    iTabNo = iTabNo + 1

'Diagnostics Tab
    objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(948)
    pn_Tab_Diag.CurrentValue = iTabNo
    iTabNo = iTabNo + 1
'Diagnostics Tab Line
    If (pn_Tab_Diag.CurrentValue <= 3) Then
        RectDiagErrorLine.HorizontalPosition = ErrorOffset + (pn_Tab_Diag.CurrentValue * ErrorMult)
    Else
        RectDiagErrorLine.HorizontalPosition = ErrorOffset + ((pn_Tab_Diag.CurrentValue - 4) * ErrorMult)
    End If

'Thresholds Tab
  frsreadvalue ps_nm.CurrentValue & "/THRESHOLDS/HI_ACT.F_CV", lError, "", False
  If lError = 0 Then
      iTabNo = iTabNo + 1
      objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(374)
  Else
    pn_Tab_Thresholds.CurrentValue = -1
  End If

'Fill Empty Tabs until 8
  While iTabNo < 8
    objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(980)
    iTabNo = iTabNo + 1
  Wend
'    If (iTabNo >= 5) Then
'        objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(980)
'        objTabstrip.Tabs.Add "Page" & Str(iTabNo + 2), sResString(980)
'        objTabstrip.Tabs.Add "Page" & Str(iTabNo + 3), sResString(980)
'    End If
'    If (iTabNo = 6) Then
'        objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(980)
'        objTabstrip.Tabs.Add "Page" & Str(iTabNo + 2), sResString(980)
'    End If
'    If (iTabNo = 7) Then
'        objTabstrip.Tabs.Add "Page" & Str(iTabNo + 1), sResString(980)
'    End If
    
    objTabstrip.Value = 0

    Exit Sub
ErrorHandler:
     frsHandleError
End Sub

Private Sub grpDvLoAlmLim_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt grpDvLoAlmLim
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dynLabelLinkLimit8_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt dynLabelLinkLimit8
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Public Sub DiscreteAlarmTabInit(objTabstrip As Object)
'this function will initialize the tabstrip of a discrete control
On Error GoTo ErrorHandler
    objTabstrip.TabFixedWidth = (((objTabstrip.Width) * DETAIL_TAB_CONST) / 2) - 1
    objTabstrip.Tabs(0).Name = "Page1"
    objTabstrip.Tabs(0).Caption = "                   " & sResString(453) & "                      "
    objTabstrip.Tabs(1).Name = "Page2"
    objTabstrip.Tabs(1).Caption = "                   " & sResString(450) & "                        "
    objTabstrip.Visible = True
    objTabstrip.Value = 0
Exit Sub
ErrorHandler:
     frsHandleError
End Sub
Private Sub grpDevHiAlm_Edit()
'***************************************************
' In config mode of iFIX this method is called when
' double click of the dyanmo is done or when using
' the right button menu item "Custom..."
'***************************************************
On Error GoTo ErrorHandler
  
    'Open Form for a Dynamo - in this case Alarm Row Dynamo
    'Need to pass in:
    '   Name of the picture
    '   Name of the dynamo object container that FindReplace will use
    '   Name of objects to specificly change on the form.  In this case
    '   The label and the Priority Link
'    frsOFDAlarmRow bhcDyn.Name, grpDevHiAlm.Name, txtLabel2.Name, fmtPriority2.Name
    frszOFDAlarmRow grpDevHiAlm

Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub grpHiAlmLim_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt grpHiAlmLim
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub grpHiHiAlmLim_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt grpHiHiAlmLim
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dynLabelLinkTuning1_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLinkUserFormat dynLabelLinkTuning1
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dynLabelLinkTuning2_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLinkUserFormat dynLabelLinkTuning2
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dynLabelLinkTuning3_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLinkUserFormat dynLabelLinkTuning3
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dynLabelLinkTuning4_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLinkUserFormat dynLabelLinkTuning4
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dynLabelLinkLimit7_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLink3DecPt dynLabelLinkLimit7
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub dynLabelLinkTuning5_Edit()
On Error GoTo ErrorHandler
    frszOFDLabelLinkUserFormat dynLabelLinkTuning5
Exit Sub
ErrorHandler:
    frsHandleError
End Sub

Private Sub TabMain_Change()

    On Error GoTo ErrorHandler

    If TabMain.Value > (iTabNo - 1) Then
        TabMain.Value = iTabPreviousValue
    End If
    iTabPreviousValue = TabMain.Value

    Exit Sub

ErrorHandler:
    frsHandleError
End Sub

Private Sub DisplayDiagLine(iDiagTabPosition As Integer, iNoOfTabs As Integer, objTabstrip As Object, sLineObjName As String)

On Error GoTo ErrorHandler

Dim dTabwidth As Double
Dim objRectLine As Object
Dim objLinearAnim As Object
Dim sSource As String
iDiagTabPosition = iDiagTabPosition - 1

Set objRectLine = FindLocalObject(Me, sLineObjName)             '"RectDiagErrorLine"
If Not objRectLine Is Nothing Then
    Set objLinearAnim = FindLocalObject(objRectLine, "LinearPosition")
    If Not objLinearAnim Is Nothing Then
        
        On Error Resume Next
        objLinearAnim.Source = ""
        On Error GoTo ErrorHandler
        
        dTabwidth = ((objTabstrip.Width) / (iNoOfTabs / 2))
        If iNoOfTabs > 3 Then
            If (iDiagTabPosition < (iNoOfTabs / 2)) Then
                objRectLine.HorizontalPosition = objTabstrip.HorizontalPosition + (dTabwidth * iDiagTabPosition) '+ 3
                sSource = Me.Name & ".grpTable.TabMain.Value < " & (iNoOfTabs / 2)
            Else
                objRectLine.HorizontalPosition = objTabstrip.HorizontalPosition + (dTabwidth * (iDiagTabPosition - (iNoOfTabs / 2))) '+ 3
                sSource = Me.Name & ".grpTable.TabMain.Value >= " & (iNoOfTabs / 2)
            End If
        Else
                dTabwidth = ((objTabstrip.Width) / 3)
                objRectLine.HorizontalPosition = objTabstrip.HorizontalPosition + (dTabwidth * iDiagTabPosition) '+ 3
                sSource = Me.Name & ".grpTable.TabMain.Value > " & 12
        End If
        objRectLine.Width = dTabwidth
        objLinearAnim.Source = sSource
        If ((iNoOfTabs / 2) Mod 2) = 0 And (iNoOfTabs <> 3) Then
            objRectLine.HorizontalPosition = objRectLine.HorizontalPosition + 3
            objRectLine.Width = objRectLine.Width - 6
        Else
            objRectLine.HorizontalPosition = objRectLine.HorizontalPosition + 1
            objRectLine.Width = objRectLine.Width - 2.5
        End If
    End If
End If

'Final Cleanup
Set objRectLine = Nothing
Set objLinearAnim = Nothing

Exit Sub
ErrorHandler:
     frsHandleError
End Sub