Clearfaults - Andover Controls Infinity Manual

Technical Manuals Online! - http://www.tech-man.com

ClearFaults

Type: Program
FlowType: Fallthru
Description: Clears all faults when the FSCS "MASTER KEY" is
ON and the "CLEAR FAULTS" pushbutton is pressed.
Code:
Object CurrentPoint
String NameStg
Numeric Count
Begin_Prog:
'Clear Proof Sensor Timers
For Count = 1 to PlantTimer Size
PlantTimer[Count] = Time
Next Count
'Clear INFINET offline Timers
For Count = 1 to CtlrTimer Size
CtlrTimer[Count] = Time
Next Count
'Clear SelfTest Fault Indicator
Status4 = Off
OpenPoints:
If OpenList("Numeric", CurrentPoint) = Success then
Goto ReadPoints
Else
Print " ** Can Not Open Numeric List ** "
CloseList(CurrentPoint)
Stop
Endif
ReadPoints:
While GetObject(CurrentPoint) = Success
Print CurrentPoint Name to NameStg
If search(NameStg, ".Fail") or search(NameStg, ".OVRR") then
Set CurrentPoint Value = Off
Endif
Endwhile
ClosePointsList:
If CloseList(CurrentPoint) <> Success then
5-29
Smoke Control Programs
Infinity Smoke Control Guide
TOC