diff options
| author |  Benjamin Jones <bjones@galois.com> | 2013-10-25 16:53:11 -0700 |
|---|---|---|
| committer | Benjamin Jones <bjones@galois.com> | 2013-10-25 16:53:11 -0700 |
| commit | dd5cfc60bb8fdc8cea4335c8a24937afbd65c090 (patch) | |
| tree | 7b840157c69c5040475b06cce07f8d1fd9cc2b54 | |
| parent | 860bdc583ef67c63380a001280f4600b4a8504cb (diff) | |
ASM guideline 8.5 and test files
| -rw-r--r-- | guidelines/ASM/.gitignore | 1 | ||||
| -rw-r--r-- | guidelines/ASM/asm-8.5.js | 93 | ||||
| -rw-r--r-- | guidelines/ASM/test-8.5.html | 24 | ||||
| -rw-r--r-- | guidelines/ASM/test-guideline.json | 5 | ||||
| -rw-r--r-- | guidelines/ASM/test_L4_LSG_FURN_1.htm | 23151 |
5 files changed, 23274 insertions, 0 deletions
diff --git a/guidelines/ASM/.gitignore b/guidelines/ASM/.gitignore new file mode 100644 index 0000000..1e107f5 --- /dev/null +++ b/guidelines/ASM/.gitignore @@ -0,0 +1 @@ +examples diff --git a/guidelines/ASM/asm-8.5.js b/guidelines/ASM/asm-8.5.js new file mode 100644 index 0000000..c74181d --- /dev/null +++ b/guidelines/ASM/asm-8.5.js @@ -0,0 +1,93 @@ +/* + * Abnormal Situation Management - Guidelines + * + * 8.5 - p2: Use consistent numeric formats to enable quick reading. + * Notes: Don't use leading 0's for integer values, *do* provide leading 0 for + * fractional values < 1, justify columns on decimal point, include units. + * Some easy, some hard. (how do we map units to numbers? can we get the screen + * coordinates for every '.' in the dom?) + * + */ +exports.name='Inconsistent numerical formatting'; +exports.description='Use consistent numeric formats to enable quick reading.'; + +exports.rule = function (report) { + + // Predicate used on DOM elements below. + var hasText = function(i) { return ($5(this).text().trim().length); }; + + // Rule specifications: + // (we assume re's below run on strings which already match the general + // number format given in getNums.) + var bads = [ { re: '[+-]?0\\d' // e.g. 032 + , msg: 'numbers larger than 1 should not lead with a zero' } + + , { re: '^[+-]?\\.\\d' // e.g. -.145 + , msg: 'fractional numbers less than 1 should have a leading zero' } + + , { re: '\\.$' // e.g. 32. + , msg: 'numbers should not end with a decimal' } ]; + + /* Returns a function from a rule specification. */ + var checkBad = function(b) { + var res = {}; + var f = function (n) { + var r = new RegExp(b.re); + if (r.exec(n)) { return true; } + else { return false; } + }; + res.fcn = f; + res.rule = b; // save the rule + return res; + }; + var fcns = _.map(bads, checkBad); + + // DOM element -> it's full text content including children separeted by + // spaces. We do this instead of just calling text() or .textContent because + // we want text of children separeted from each other with whitespace. + var betterText= function (e) { + if (!$5(e).children()) { + return $5(e).text(); + } + else { + // extract text from the children recursively + var ctxts = _.map($5(e).children(), betterText); + // remove the children and extract text + ctxts.push($(e).clone().children().remove().end().text()); + return ctxts.join(' '); + } + }; + + /* Returns an array of the numbers found in the given DOM node's text. */ + var getNums = function (e) { + //var txt = $5(e).text().trim(); + var txt = betterText(e); + var re = new RegExp('(^|\\b)[+-]?(\\d+(\\.)?\\d*|\\.\\d+)(\\b|$)', 'g'); + var matches = [], found; + while (found = re.exec(txt)) { + matches.push(found[0]); + } + // FUUUCCCKKKK + return matches; + }; + + // Main rule query + $5("*").filter(hasText).each(function(i, elt) { + var nums = getNums(elt); + _.each(fcns, function (rul, ii, l) { + var m = _.map(nums, rul.fcn); + if (_.some(m)) { // some number in nums is bad for this rule + // check if a child node has the same problem + var childNums = _.flatten(_.map($5(elt).children(), getNums)); + if (_.some(_.map(childNums, rul.fcn))) { + return; // don't report it, break out of _.each iteration + } + else { // no child has the same problem + report.error(rul.msg, elt); + } + } + }); + }); + +} + diff --git a/guidelines/ASM/test-8.5.html b/guidelines/ASM/test-8.5.html new file mode 100644 index 0000000..66c6d14 --- /dev/null +++ b/guidelines/ASM/test-8.5.html @@ -0,0 +1,24 @@ +<html> + <head> + <title>Test asm 8.5</title> + </head> + <body> + + <p> + Hello World! + </p> + + <table> + <tbody> + <tr><td>123</td><td>bob -123.0</td></tr> + <tr><td>.445</td><td>-0452 foo</td></tr> + <tr><td>27818.</td><td>my age is 6.</td></tr> + <tr><td>27818</td><td>my age is 7</td></tr> + </tbody> + </table> + + <p>-.3333333</p> + + <p>00123</p> + +</body></html> diff --git a/guidelines/ASM/test-guideline.json b/guidelines/ASM/test-guideline.json new file mode 100644 index 0000000..8ccec82 --- /dev/null +++ b/guidelines/ASM/test-guideline.json @@ -0,0 +1,5 @@ +{ "name": "ASM guideline-test" +, "description": "Test ASM guidelines" +, "license": "BSD3" +, "rules": [ "asm-8.5.js" ] +} diff --git a/guidelines/ASM/test_L4_LSG_FURN_1.htm b/guidelines/ASM/test_L4_LSG_FURN_1.htm new file mode 100644 index 0000000..b4019e2 --- /dev/null +++ b/guidelines/ASM/test_L4_LSG_FURN_1.htm @@ -0,0 +1,23151 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
+<HTML xmlns:v = "urn:schemas-microsoft-com:vml" xmlns:o =
+"urn:schemas-microsoft-com:office:office" xmlns:p =
+"urn:schemas-microsoft-com:office:powerpoint" xmlns:w =
+"urn:schemas-microsoft-com:office:word"><HEAD><TITLE></TITLE>
+<META http-equiv=Content-Type content="text/html; charset=windows-1252">
+<META content=5.4 name=DisplayVersion-PS>
+<META content="Create a blank HMIWeb display." name=HMIWebTemplateDescription>
+<STYLE>v\:* {
+ BEHAVIOR: url(#default#VML)
+}
+o\:* {
+ BEHAVIOR: url(#default#VML)
+}
+p\:* {
+ BEHAVIOR: url(#default#VML)
+}
+w\:* {
+ BEHAVIOR: url(#default#VML)
+}
+.shape {
+ BEHAVIOR: url(#default#VML)
+}
+</STYLE>
+
+<OBJECT id=HDXPageBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:56144F51-84F2-11D3-8114-00C04F68E0F9></OBJECT>
+<OBJECT id=HDXVectorFactory
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:45A29A51-418F-11D4-816B-00C04F68E0F9></OBJECT>
+<OBJECT id=HDXAlphaBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:00FD97E5-43FE-11D3-964E-00609738C4CB></OBJECT>
+<OBJECT id=HDXPushButtonBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:ACB6C25A-20A8-11D4-B86C-00C04F6022AA></OBJECT>
+<OBJECT id=HSCComboboxBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:87E1DD39-48A6-4188-95F5-26ECF7D6493B></OBJECT>
+<OBJECT id=HSCCheckBoxBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:65CF3A90-0165-4CAE-8DF2-6242FA186238></OBJECT>
+<OBJECT id=HSCIndicatorBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:ABAAEE25-63F3-4F67-9C1C-0AC96A186A73></OBJECT>
+<OBJECT id=HoverBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:51A1B6EC-7507-4A0B-A06D-5FA2742F033D></OBJECT>
+<OBJECT id=HDXPopupBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:034DB16E-AE01-11D3-BE8D-00C04F7915FE></OBJECT>
+<OBJECT id=BindingBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:31C15D64-63ED-11D3-80D0-00C04F6847A2></OBJECT>
+<OBJECT id=HSCShapeLinkBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:0A7E026C-957B-4548-9BB7-7835EF5F8D4D></OBJECT>
+<OBJECT id=HSCActiveXDocumentBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:A4FE97D2-5EC5-4273-A00F-88D8447A0D9A></OBJECT>
+<OBJECT id=HSCBreakpointBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:43C8EF2D-9001-43BA-9ECA-82818E8281D5></OBJECT>
+<OBJECT id=HDXLevelFillBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:9E860844-C032-46A8-A3F7-FB950475A292></OBJECT>
+<OBJECT id=HDXElementsFactory
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:2592890C-11DD-4818-BB62-9640E4A050D1></OBJECT>
+<OBJECT id=AlarmStateIconFactory
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:32C06040-FF05-4F15-90EB-9C56D098D188></OBJECT>
+<OBJECT id=DTFormat
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:9E5DB1FD-CE13-4459-BA06-30845E6633AB></OBJECT>
+<OBJECT id=HSCScriptDataBehavior
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:15C2FF21-998F-4226-A7A9-221580D5F19F></OBJECT>
+<OBJECT id=StnEvtReflector
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:F5585C3E-DFE6-41A7-98EF-FD6E9547809D></OBJECT>
+<OBJECT id=DisplayDataRepository
+style="LEFT: 0px; WIDTH: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 0px"
+codeBase="" classid=clsid:0113964D-CFC2-453a-BA5F-DF740C170064></OBJECT>
+<META content="MSHTML 6.00.5730.11" name=GENERATOR><LINK id=HDXStylesheet
+href=".\..\_CSS\HCS.CSS" type=text/css rel=stylesheet>
+<SCRIPT language=VBScript event=onperiodicupdate for=Page defer>call GSH_ONPERIODIC_FOCUSUPDATEHANDLER</SCRIPT>
+
+<SCRIPT language=VBScript defer>Const PAGE_DISPLAYTYPE = 4
+dim g_PageCurrentFocusTag
+g_PageCurrentFocusTag = ""
+dim g_PageShapesInit
+g_PageShapesInit = 0
+dim g_PageCurrentTagLabelVisible
+g_PageCurrentTagLabelVisible = ""</SCRIPT>
+
+<SCRIPT language=VBScript event=onunload for=Page
+defer> call GSH_PageUnload</SCRIPT>
+
+<SCRIPT language=VBScript event=onpagecomplete for=Page defer>on error resume next
+
+Dim sType2FileName,sType3FileName,sType4FileName
+'****************** To Do Begins ****************************************
+'Enter the type of the graphic. Valid entries are 2/3/4
+ Const DisplayType = 4
+
+' Enter the default display file names in UPPER case without the .HTM extensions e.g sgType2FileName = "CokeDr_T2"
+' If a file doesn't exist, leave blank (e.g. "")
+
+ sType2FileName = "L2_LSG_RXN"
+ sType3FileName = "L3_LSG_FURN"
+ sType4FileName = "L4_LSG_FURN_1"
+
+'****************** To Do Ends ****************************************
+call GSH_initDisplay (DisplayType, sType2FileName, sType3FileName, sType4FileName, me)</SCRIPT>
+</HEAD>
+<SCRIPT language=VBScript event=onmousedown for=shape071_rec_DataScript defer>If (me.parentElement.parentElement.GetCustomProperty(GSH_CPVALUE,GSH_CPDISPLAYLEVEL) = 2) then + If window.event.button = 2 Then call GSH_TYPE2TABRBUTTONCLICK(me.parentElement.parentElement) else call GSH_NAVTAB_LCLICK (me.parentElement.parentElement) end if +Else + call GSH_NAVTAB_LCLICK (me.parentElement.parentElement) +End if</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=shape001 defer> dim VERSION + VERSION = "1.3.10" + call GSH_PRINT_VERSION(me,VERSION)</SCRIPT>
+
+<SCRIPT language=VBScript id=9AD748A9-63A3-4F20-B029-8144F6FB00EA defer
+shaperefcount="1">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''' General Script Holder Shape ''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' +' COPYRIGHT (c) 2007, 2008, 2009, 2010 +' Human Centered Solutions, LLP +' +' ALL RIGHTS RESERVED +' +' This software is copyrighted work and the intellectual property of +' Human Centered Solutions, LLP. This software can not be used without +' the expressed written consent of Human Centered Solutions, LLP. +' +' +'Purpose: +' Keeper of constants, functions, sub procedures used +' through out the HCS advanced operator interface displays and shape +' library. +'Standards: +'1. All names of objects in this shape are prefixed with "GSH_" +'2. All constant should be all capital letters +'3. All subroutines/functions related to page display must be put in the "PAGE DISPLAY" section +'4. All subroutines/functions related to faceplate display must be put in the "FACEPLATE DISPLAY" section +'5. All subroutines related to all shapes in general must be put in the "SHAPE GENERAL" section +'6. All subroutines related to SCADA shapes must be put in the "SCADA SPECIFIC" section +'7. All subroutines related to C200 shapes must be put in the "C200 SPECIFIC" section +'8. All subroutines related to TPS shapes must be put in the "TPS SPECIFIC" section +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +''''''''''''''''Debugging tools '''''''''''''''''''''''''''''''''''''''' +'Logging Method Options +'0=None +'1=Msgbox +'2=Logfile at C:\Documents and Settings\All Users\Application Data\Honeywell\HMIWebLog +'3=All of Above +Const GSH_LOGGING_MODE = 2 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure Log Start '''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' Used to Log Information at the beginning of functions or procedures +' must be implemented in each function or procedure +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub gsh_log_s(txt) + gsh_log "START>" & txt +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure Log End '''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' Used to Log Information at the end of functions or procedures +' must be implemented in each function or procedure +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub gsh_log_e(txt) + gsh_log "END>" & txt +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure Log '''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' Used to Log Information to either the server display log file or +' message boxes (alerts) on the GUI. Uses constants to control behavior +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub gsh_log(txt) +Select Case GSH_LOGGING_MODE + Case 1 + msgbox txt + Case 2 + window.external.Parent.LogMessage txt + Case 3 + window.external.Parent.LogMessage txt + msgbox txt + Case else + Exit sub + End Select +end sub + +'COLORS +Const GSH_EMERGCOLOR = "#FF0000" +Const GSH_HIGHCOLOR = "#FFBE00" +Const GSH_LOWCOLOR = "#C800C8" +Const GSH_PRINCIPLEFOCUSCOLOR = "#00008C" +Const GSH_ASSOCIATEDFOCUSCOLOR = "#C8DCFF" +Const GSH_DISPLAYBKGRNDCOLOR = "#EBEBEB" +Const GSH_OBJECTOUTLINECOLOR = "#AAAAAA" +Const GSH_INDICATORFILLCOLOR = "#E2E2E2" +Const GSH_OFFNORMALCOLOR = "#FF00A8" +Const GSH_DISABLEDALARMCOLOR = "#FF00A8" +Const GSH_NORMALCOLOR = "#B4B4B4" +Const GSH_ALARMOUTLINETHICKNESS = 3 +Const GSH_FOCUSOUTLINETHICKNESS = 2 +Const GSH_OUTLINETHICKNESS = 1 +Const GSH_FILLTRANSPARENT = 1 +Const GSH_FILLSOLID = 0 +Const GSH_LEVELINDICATORFLOATHEIGHT = 15 +'GRAY SCALE +Const GSH_LIGHTGRAYCOLOR = "#B4B4B4" +Const GSH_WHITE = "#FFFFFF" +Const GSH_LIGHTLIGHTGRAYCOLOR = "#E1E1E1" +Const GSH_DARKGRAYCOLOR = "#787878" + +'CSS Styles .... must match hcs.css file +'Focus +Const GSH_CSSFOCUSASSOCIATED = "FocusAssociated" +Const GSH_CSSFOCUSASSOCIATEDTABORGANIZER = "FocusAssociatedTabOrganizer" +'TODO:clean up +Const GSH_CSSFOCUSPRINCIPAL = "FocusPrincipal" +Const GSH_CSSFOCUSNONE = "FocusNone" +Const GSH_CSSFOCUSOFFNORMAL = "FocusOffNormal" +Const GSH_CSS_ALARMDISABLED = "AlarmDisabled" +Const GSH_CSSANALOGINDICATORDISABLEDALARM = "AlarmDisabled" +Const GSH_CSSANALOGINDICATORNORMAL = "AnalogIndicatorNormal" +Const GSH_CSSANALOGINDICATOROFFNORMAL = "AnalogIndicatorOffNormal" +Const GSH_CSSBGALARM_NONE = "BarGraphAlarmNone" +Const GSH_CSSBGALARM_ACKEMERG = "BarGraphAlarmEmergencyAcknowledged" +Const GSH_CSSBGALARM_UNACKEMERG = "BarGraphAlarmEmergencyUnAcknowledged" +Const GSH_CSSBGALARM_UNACKHIGH = "BarGraphAlarmHighUnAcknowledged" +Const GSH_CSSBGALARM_ACKHIGH = "BarGraphAlarmHighAcknowledged" +Const GSH_CSSBGALARM_UNACKLOW = "BarGraphAlarmLowUnAcknowledged" +Const GSH_CSSBGALARM_ACKLOW = "BarGraphAlarmLowAcknowledged" +Const GSH_CSSBGALARM_DISABLED = "BarGraphAlarmDisabled" +Const GSH_CSSMOTORINDICATORDISABLEDALARM = "AlarmDisabled"'"MotorIndicatorDisabledAlarm" +Const GSH_CSSMOTORINDICATORNORMAL = "MotorIndicatorNormal" +Const GSH_CSSMOTOROFF = "MotorIndicatorMotorNotRunning" +Const GSH_CSSMOTORON = "MotorIndicatorMotorRunning" +Const GSH_CSSMINIMOTORINDICATORDISABLEDALARM = "MiniMotorIndicatorDisabledAlarm" +Const GSH_CSSMINIMOTORINDICATORNORMAL = "MiniMotorIndicatorNormal" +Const GSH_CSSLEVELINDICATORDISABLEDALARM = "LevelIndicatorDisabledAlarm" +Const GSH_CSSLEVELINDICATORBADPV = "LevelIndicatorBadPV" +Const GSH_CSSLEVELINDICATORNORMAL = "LevelIndicatorNormal" +Const GSH_CSSLEVELINDICATORFLOAT = "LevelIndicatorFloat" +Const GSH_CSSLEVELINDICATORSP = "LevelIndicatorSP" +Const GSH_CSSLEVELINDICATORBADPVTEXT = "LevelIndicatorBadPVText" +Const GSH_CSSLEVELINDICATORNORMALPVTEXT = "LevelIndicatorNormalPVText" +const GSH_CSSLVLINDICATORSMALLALARMWIDTH="LineWidth2" +Const GSH_CSSDIGITALINDICATORDISABLEDALARM = "AlarmDisabled"'"DigitalIndicatorDisabledAlarm" +Const GSH_CSSDIGITALINDICATORNORMAL = "DigitalIndicatorNormal" +Const GSH_CSSDIGITALINDICATOROFFNORMAL = "DigitalIndicatorOffNormal" +Const GSH_CSSDIGITALOUTPUTINDICATORNORMAL = "DigitalOutputIndicatorNormal" +Const GSH_CSSDIGITALOUTPUTINDICATORDISABLEDALARM = "AlarmDisabled"'"DigitalOutputIndicatorDisabledAlarm" +Const GSH_CSSDIGITALOUTPUTINDICATORDEFAULT = "" +Const GSH_CSSGROUPANALOGNORMAL = "GroupAnalogNormal" +Const GSH_CSSGROUPANALOGDISABLEDALARM = "AlarmDisabled"'"GroupAnalogDisabledAlarm" +Const GSH_CSSGROUPDATAENTRY = "Group_DataEntry" +Const GSH_CSSGROUPDIGITALCOMPOSITEDISABLEDALARM = "AlarmDisabled"'"GroupDigitalCompositeDisabledAlarm" +Const GSH_CSSGROUPDIGITALCOMPOSITENORMAL = "GroupDigitalCompositeNormal" +Const GSH_CSSGROUPDIGITALCOMPOSITEDEFAULT = "" +Const GSH_CSSGROUPDIGITALINPUTDISABLEDALARM = "AlarmDisabled"'"GroupDigitalInputDisabledAlarm" +Const GSH_CSSGROUPDIGITALINPUTNORMAL = "GroupDigitalInputNormal" +Const GSH_CSSGROUPDIGITALINPUTDEFAULT = "" +Const GSH_CSSGROUPORSELDISABLEDALARM = "AlarmDisabled"'"GroupOrselDisabledAlarm" +Const GSH_CSSGROUPORSELNORMAL = "GroupOrselNormal" +Const GSH_CSSGROUPORSELDEFAULT = "" +Const GSH_CSSGROUPREGULATORYCONTROLDISABLEDALARM = "AlarmDisabled"'"GroupRegulatoryControlDisabledAlarm" +Const GSH_CSSGROUPREGULATORYCONTROLNORMAL = "GroupRegulatoryControlNormal" +Const GSH_CSSGROUPREGULATORYCONTROLDEFAULT = "" +Const GSH_CSSNUMERICINDICATORNORMAL = "NumericIndicatorNormal" +Const GSH_CSSREGULATORYCONTROLINDICATORDISABLEDALARM = "AlarmDisabled"' "RegulatoryControlIndicatorDisabledAlarm" +Const GSH_CSSREGULATORYCONTROLINDICATORNORMAL = "RegulatoryControlIndicatorNormal" +Const GSH_CSSVALVEDIGITALOPEN = "ValveDigitalOpen" +Const GSH_CSSVALVEDIGITALCLOSED = "ValveDigitalClosed" +Const GSH_CSSVALVEDIGITALTRAVEL = "ValveDigitalTravel" +Const GSH_CSSVALVEDIGITALDISABLEDALARM = "AlarmDisabled"'"ValveDigitalDisabledAlarm" +Const GSH_CSSVALVEREGULATORYCONTROLSATURATED = "RegulatoryControlValveSaturated" +Const GSH_CSSVALVEREGULATORYCONTROLNORMAL = "RegulatoryControlValveNormal" +Const GSH_CSSREGULATORYCONTROLVALVEOFFNORMAL = "RegulatoryControlValveOffNormal" +Const GSH_CSSTABFOCUSNORMAL = "TabFocusNormal" +Const GSH_CSSTABOUTLINENORMAL = "TabOutlineNormal" +Const GSH_CSSTABORGANIZEROUTLINENORMAL = "TabOrganizerOutlineNormal" +Const GSH_CSSValveOutlineBackground= "ValveOutlineBackground" +Const GSH_CSSANALOGOUTPUTINDICATORNORMAL = "AnalogOutputIndicatorNormal" +Const GSH_CSSSENSORNORMAL = "SensorNormal" +Const GSH_CSSWHITE = "White" +Const GSH_CSSFOCUSNONEOFFNORMAL = "FocusNoneOffNormal" +Const GSH_CSSFIRSTOUT_ON = "FirstOutLineOn" +Const GSH_CSSFIRSTOUT_OFF = "FirstoutLineOff" +Const GSH_CSSMOTOROFFNORMALFILL = "OffNormalLineFill" +Const GSH_CSSFRAMEMF = "FrameMF" 'added 07Jan08 for MF Frames when normal and not in focus +Const GSH_CSSSAFILL = "SituationAwarenessOn" 'added 28May09 for SA Frame color +Const GSH_CSSSSOLOUTOFLIMIT = "SOLOutOfLimit" 'added 14Sept09 for SOL color +Const GSH_CSSSSOLINLIMIT = "SOLWithinLimit" 'added 14Sept09 for SOL color +Const GSH_CSSOFFNORMALLINEFILL = "OffNormalLineFill" 'added 7Dec09 for TPS Bypass Status +Const GSH_CSSNORMALLINEFILL = "NormalLineFill" 'NormalLineFill +Const GSH_CSSLINEUTILITY = "LineUtility" 'added 7Dec09 for TPS Bypass Status + + +'Added Nov 19, 2009 for TPS digital color box +Const GSH_FILLEDREDCOLOR = "FilledRed" +Const GSH_FILLEDGREENCOLOR = "FilledGreen" +Const GSH_FILLEDYELLOWCOLOR = "FilledYellow" + +'Alarms +Const GSH_CSSALARMEMERGENCYACK = "AlarmEmergencyAcknowledged" +Const GSH_CSSALARMHIGHACK = "AlarmHighAcknowledged" +Const GSH_CSSALARMLOWACK = "AlarmLowAcknowledged" +Const GSH_CSSALARMEMERGENCYUNACK = "AlarmEmergencyUnAcknowledged" +Const GSH_CSSALARMHIGHUNACK = "AlarmHighUnAcknowledged" +Const GSH_CSSALARMLOWUNACK = "AlarmLowUnAcknowledged" +Const GSH_CSSALARMNONE = "AlarmNone" +Const GSH_CSSSENSORDISABLEDALARM = "SensorAlarmDisabled" +Const GSH_CSSSENSORALARMEMERGENCYACK = "SensorAlarmEmergencyAcknowledged" +Const GSH_CSSSENSORALARMHIGHACK = "SensorAlarmHighAcknowledged" +Const GSH_CSSSENSORALARMLOWACK = "SensorAlarmLowAcknowledged" +Const GSH_CSSSENSORALARMEMERGENCYUNACK = "SensorAlarmEmergencyUnAcknowledged" +Const GSH_CSSSENSORALARMHIGHUNACK = "SensorAlarmHighUnAcknowledged" +Const GSH_CSSSENSORALARMLOWUNACK = "SensorAlarmLowUnAcknowledged" +Const GSH_CSSSENSORALARMNONE = "SensorAlarmNone" + +'Display Static Objects +Const GSH_CSSFOCUSASSOCIATED_COLOUR = "FocusAssociated_Colour" +Const GSH_CSSBLACK = "Black" +Const GSH_CSSDARK_GRAY = "Dark_Gray" +Const GSH_CSSEQUIPMENT_GRAY = "Equipment_Gray" +Const GSH_CSSLIGHT_GRAY = "Light_Gray" +Const GSH_CSSBACKGROUND_GRAY = "Background_Gray" + +'Custom Properties +'Types of CP's +Const GSH_CPVALUE = "Value" +Const GSH_CPPOINT = "Point" +Const GSH_CPPARAMETER = "Parameter" +'Names of CP's .... the values must match those in each shape +Const GSH_CPPOINTTYPE = "PointType" +Const GSH_CPENTITY = "Entity" +Const GSH_CPGROUPPOINT = "GroupPoint" +Const GSH_CPENTITYALARM = "EntityAlarm" +Const GSH_CPASSOCTYPE2 = "AssocLevel2" +Const GSH_CPASSOCTYPE3 = "AssocLevel3" +Const GSH_CPASSOCTYPE4 = "AssocLevel4" +Const GSH_CPDISPLAYLEVEL = "DisplayLevel" +Const GSH_CPDISPLAYNAME = "DisplayName" +Const GSH_CPTABLABEL = "TabLabel" +Const GSH_CPASSOCLEVEL4 = "AssocLevel4" +Const GSH_CPLABEL = "Label" +const GSH_CPRANGEMAX = "RangeMax" +const GSH_CPRANGEMIN = "RangeMin" +Const GSH_CPHIDEPV = "HidePV" +const GSH_CPSALOWERLIMIT = "LowerSALimit" +const GSH_CPSAUPPERLIMIT = "UpperSALimit" + +Const GSH_CPENTITY_ALARMGROUP = "Entity_AlarmGroup" +Const GSH_CPENTITY_LOWTRIP = "EntityLowTrip" +Const GSH_CPENTITY_HIGHTRIP = "EntityHighTrip" +Const GSH_CPENTITY_SPHI = "Entity_SPHi" +Const GSH_CPENTITY_SPLO = "Entity_SPLo" + +Const GSH_CPENTITY_RES = "Entity_Reset" +Const GSH_CPENTITY_SOR = "Entity_SOR" +Const GSH_CPENTITY_MOS = "Entity_MOS" +Const GSH_CPENTITY_HHFF = "Entity_HH_Fail" +Const GSH_CPENTITY_LLFF = "Entity_LL_Fail" +Const GSH_CPENTITY_HHHTRIP = "Entity_HHH_Trip" +Const GSH_CPENTITY_LLLTRIP = "Entity_LLL_Trip" +Const GSH_CPENTITY_HHTRIP = "Entity_HH_Trip" +Const GSH_CPENTITY_LLTRIP = "Entity_LL_Trip" +Const GSH_CPENTITY_DEVIATION = "Entity_Deviation" + +Const GSH_CPPARAM_RES_PARA = "Entity_Reset_Para" +Const GSH_CPPARAM_SOR_PARA = "Entity_SOR_Para" +Const GSH_CPPARAM_MOS_PARA = "Entity_MOS_Para" +'Const GSH_CPPARAM_HHFF_PARA = "Entity_HH_Fail_Para" +'Const GSH_CPPARAM_LLFF_PARA = "Entity_LL_Fail_Para" +Const GSH_CPPARAM_HHHTRIP_PARA = "Entity_HHH_Trip_Para" +Const GSH_CPPARAM_LLLTRIP_PARA = "Entity_LLL_TRIP_Para" +Const GSH_CPPARAM_HHTRIP_PARA = "Entity_HH_Trip_Para" +Const GSH_CPPARAM_LLTRIP_PARA = "Entity_LL_Trip_Para" +Const GSH_CPPARAM_DEVIATION_PARA = "Entity_Deviation_Para" + +Const GSH_CPPARAM_ENTITY_SPHI_PARA = "Entity_SPHi_Para" +Const GSH_CPPARAM_ENTITY_SPLO_PARA = "Entity_SPLo_Para" + +Const GSH_CPX1 = "X1_Position" +Const GSH_CPX2 = "X2_Position" +Const GSH_CPX3 = "X3_Position" +Const GSH_CPDIVERTMIN = "DivertMin" +Const GSH_CPDIVERTMAX = "DivertMax" +Const GSH_CPTHROUGHMIN = "ThroughMin" +Const GSH_CPTHROUGHMAX = "ThroughMax" +Const GSH_CPINPUTDIRECTION = "InputDirection" +Const GSH_CPJUSTIFYLABEL = "JustifyLabel" + +'Point Types ... the values here are the only possibles for the PointType Custom property +'entered by the display designer at design time. +Const GSH_CPPOINTTYPE_SCADA = "SCADA" +Const GSH_CPPOINTTYPE_TPS = "TPS" +Const GSH_CPPOINTTYPE_C200 = "C200" +Const GSH_CPPOINTTYPE_C300 = "C300" + +'PARAMETERS TEMPLATE IS GSH_'<pointtype>_PARAM_<item>' +Const GSH_EXPERION_PARAM_ALARMPRIORITY= "ALARMPRIORITY" +Const GSH_EXPERION_PARAM_UNACKALARMEXISTS = "UNACKALARMEXISTS" +Const GSH_SCADA_PARAM_ALARMDISABLED = "ALARMDISABLED" +const GSH_SCADA_PARAM_ALARMPRIORITY = "ALARMPRIORITY" +Const GSH_SCADA_PARAM_INITIALIZATION = "INITMAN" +Const GSH_SCADA_PARAM_INTRANSMITTERHIGHALARM = "InTransmitterHighAlarm" +Const GSH_SCADA_PARAM_INTRANSMITTERLOWALARM = "InTransmitterLowAlarm" +Const GSH_SCADA_PARAM_INUNREASONABLYHIGHALARM = "InUnreasonablyHighAlarm" +Const GSH_SCADA_PARAM_INUNREASONABLYLOWALARM = "InUnreasonablyLowAlarm" +Const GSH_SCADA_PARAM_MODATTR = "MODATTR" +Const GSH_SCADA_PARAM_MODE = "MODE" +Const GSH_SCADA_PARAM_MODEINERROR = "ModeInError" +Const GSH_SCADA_PARAM_PVINERROR = "PVInError" +Const GSH_SCADA_PARAM_PVSOURCE = "PVSOURCE" +Const GSH_SCADA_PARAM_PVTVINERROR = "PVTVInError" +Const GSH_SCADA_PARAM_OPINERROR = "OutputInError" +Const GSH_SCADA_PARAM_RAMP = "TVPROC" +Const GSH_SCADA_PARAM_REDTAG = "REDTAG" +Const GSH_SCADA_PARAM_SHUTDOWN = "SHUTDOWN" +Const GSH_SCADA_PARAM_SPINERROR = "SetPointInError" +Const GSH_SCADA_PARAM_SSTSMSG = "STSMSG" +Const GSH_SCADA_PARAM_TOTALDISABLEDALARMS ="TOTALDISABLEDALARMS" +const GSH_SCADA_PARAM_UNACKALARMEXISTS = "UNACKALARMEXISTS" +Const GSH_SCADA_PARAM_WINDUP = "ARWOP" +Const GSH_TPS_PARAM_ALARM_ACKNOWLEGED = "ACKSTAT" +Const GSH_TPS_PARAM_ALARM_ENABLED = "ALENBST" +Const GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY = "HIGHALPR" +Const GSH_TPS_PARAM_INITIALIZATION = "INITMAN" +Const GSH_TPS_PARAM_MODATTR = "MODATTR" +Const GSH_TPS_PARAM_MODE = "MODE" +Const GSH_TPS_PARAM_PVINERROR = "PVInError" +Const GSH_TPS_PARAM_PVSOURCE = "PVSOURCE" +Const GSH_TPS_PARAM_RAMP = "TVPROC" +Const GSH_TPS_PARAM_RAMPOPTION ="SPOPT" +Const GSH_TPS_PARAM_RAMPTARGETVALUE = "SPTV" +Const GSH_TPS_PARAM_RAMPTIMEVALUE = "RAMPTIME" +Const GSH_TPS_PARAM_REDTAG = "REDTAG" +Const GSH_TPS_PARAM_SHUTDOWN = "SHUTDOWN" +Const GSH_TPS_PARAM_STATUSMESSAGE = "STSMSG" +Const GSH_TPS_PARAM_TOTALDISABLEDALARMS = "TOTALDISABLEDALARMS" +Const GSH_TPS_PARAM_WINDUP = "ARWOP" +Const GSH_TPS_PARAM_ALARMMSG = "HIGHAL" +Const GSH_C200_PARAM_ALARMDISABLED = "ALMENBSTATE" +Const GSH_C200_PARAM_ALARMMSG ="HIALM.TYPE" +Const GSH_C200_PARAM_BADPVFL = "PVSTSFL.BAD" +Const GSH_C200_PARAM_MODEATTR = "MODEATTR" +Const GSH_C200_PARAM_PVSOURCE = "PVSource" +Const GSH_C200_PARAM_RAMPOPTION ="SPTVOPT" +Const GSH_C200_PARAM_RAMPTIMEVALUE = "SPTVTIME" +Const GSH_C200_PARAM_RAMPTARGETVALUE = "SPTV" +Const GSH_C200_PARAM_WINDUP = "ARWOP" + +Const GSH_CPPARAM_BADMODE = "CP_BADMODE" +Const GSH_CPPARAM_BADOP = "CP_BADOP" +Const GSH_CPPARAM_BADPV = "CP_BadPV" +Const GSH_CPPARAM_BADPVTV = "CP_BADPVTV" +Const GSH_CPPARAM_BADSP = "CP_BADSP" +Const GSH_CPPARAM_HIGHTRIP = "CP_HighTripPV" +Const GSH_CPPARAM_INITIALIZATION = "CP_INITIALIZATION" +Const GSH_CPPARAM_LOWTRIP = "CP_LowTripPV" +Const GSH_CPPARAM_MODATTR = "CP_MODATTR" +Const GSH_CPPARAM_MODE = "CP_Mode" +Const GSH_CPPARAM_MODEATTR = "CP_MODEATTR" +Const GSH_CPPARAM_OFFNORMAL = "CP_OFFNORMAL" +Const GSH_CPPARAM_OP = "CP_OP" +Const GSH_CPPARAM_PV = "CP_PV" +Const GSH_CPPARAM_PVTV = "CP_PVTV" +Const GSH_CPPARAM_RAMP = "CP_RAMP" +Const GSH_CPPARAM_REDTAG = "CP_RedTag" +Const GSH_CPPARAM_STSMSG = "CP_STSMSG" +Const GSH_CPPARAM_SELINPUT = "CP_SELINPUT" +Const GSH_CPPARAM_SELOUT = "CP_SELOUT" +Const GSH_CPPARAM_SHUTDOWN = "CP_SHUTDOWN" +Const GSH_CPPARAM_SP = "CP_SP" +Const GSH_CPPARAM_SPHIGH = "CP_SPHIGH" +Const GSH_CPPARAM_SPLOW = "CP_SPLOW" +Const GSH_CPPARAM_STATUSMSG = "CP_STATUSMSG" +Const GSH_CPPARAM_VLV1 = "CP_VLV1" +Const GSH_CPPARAM_VLV2 = "CP_VLV2" +Const GSH_CPPARAM_WINDUP = "CP_WINDUP" +Const GSH_CPPARAM_LOCALMAN = "CP_LOCALMAN" +Const GSH_CPPARAM_INTERLOCK = "CP_INTERLOCK" +Const GSH_CPPARAM_IP1 = "CP_IP1" +Const GSH_CPPARAM_IP2 = "CP_IP2" +Const GSH_CPPARAM_IP3 = "CP_IP3" +Const GSH_CPPARAM_IP4 = "CP_IP4" +Const GSH_CPTRENDDIR="TrendDir" +'Added for showing alarm lines on C200 SA levels (May 29 2009, CL) +Const GSH_CPPARAM_AlarmPriority1 = "CP_AlarmPriority1" +Const GSH_CPPARAM_AlarmPriority2 = "CP_AlarmPriority2" +Const GSH_CPPARAM_AlarmPriority3 = "CP_AlarmPriority3" +Const GSH_CPPARAM_AlarmPriority4 = "CP_AlarmPriority4" +Const GSH_CPPARAM_AlarmLimit1 = "CP_AlarmLimit1" +Const GSH_CPPARAM_AlarmLimit2 = "CP_AlarmLimit2" +Const GSH_CPPARAM_AlarmLimit3 = "CP_AlarmLimit3" +Const GSH_CPPARAM_AlarmLimit4 = "CP_AlarmLimit4" + +Const GSH_EXPECTEDVAL1 = "CP_ExpectedVal1" +Const GSH_EXPECTEDVAL2 = "CP_ExpectedVal2" + +Const GSH_SCADA_INITIALIZATION_VALUE = -1 +Const GSH_TPS_INITIALIZATION_VALUE = -1 +Const GSH_WINDUP_HI = "HI" +Const GSH_WINDUP_LO = "LO" +Const GSH_WINDUP_HILO = "HILO" +Const GSH_WINDUP_INIT = "INITIALIZATION" +Const GSH_WINDUP_NONE = "NONE" +Const GSH_RAMPING_RUN = "RUN" +Const GSH_RAMPING_PRESET = "PRESET" +Const GSH_RAMPING_NONE = "OFF" +Const GSH_CAS = "CAS" +Const GSH_AUTO = "AUTO" +Const GSH_MAN = "MAN" +Const GSH_OFF = "OFF" +Const GSH_PRESET = "PRESET" +Const GSH_RUN = "RUN" +Const GSH_PROCESSVALUE = "PV" +Const GSH_SETPOINTVALUE = "SP" +Const GSH_OUTPUTVALUE = "OP" +Const GSH_OPHI = "OPHI" 'Added 03Jan2008 - JE for Scada_AO_fp +Const GSH_OPLO = "OPLO" 'Added 03Jan2008 - JE for Scada_AO_fp +Const GSH_PVTVVALUE = "PVTV" +const GSH_MODEVALUE = "MODE" +Const GSH_RAMPVALUE = "SPTV" +Const GSH_INTERLOCK = "SI" +Const GSH_LOCALMAN = "LOCALMAN" +Const GSH_F1_1 = "F1_1" +Const GSH_F1_0 = "F1_0" +Const GSH_F2_1 = "F2_1" +Const GSH_F2_0 = "F2_0" +Const GSH_F3_1 = "F3_1" +Const GSH_F3_0 = "F3_0" +Const GSH_F4_1 = "F4_1" +Const GSH_F4_0 = "F4_0" +'Const GSH_RAMPTARGETVALUE = "SPTV" 'REPLACED BY GSH_C200_PARAM_RAMPTARGETVALUE Apr 18 +'Const GSH_RAMPTIMEVALUE = "SPTVTIME" 'REPLACED BY GSH_C200_PARAM_RAMPTIMEVALUE Apr 18 +'Const GSH_RAMPSTATUSVALUE = "SPTVSTATE" 'not used? + +'ALARMS + +'Alarm Code +Const GSH_NOALARMCODE = "NONE" +Const GSH_ACKLOW = "ACKLOW" +Const GSH_ACKHIGH = "ACKHIGH" +Const GSH_ACKEMERG = "ACKEMERGENGY" +Const GSH_UNACKLOW = "UNACKL0W" +Const GSH_UNACKHIGH = "UNACKHIGH" +Const GSH_UNACKEMERG = "UNACKEMERGENGY" + +const GSH_NOACTION = "NOACTION" +const GSH_EMERGENCY = "EMERGNCY" +const GSH_HIGH = "HIGH" +const GSH_LOW = "LOW" +Const GSH_ON = "ON" +const GSH_NONE = "NONE" +Const GSH_EMPTYSTRING = "" + +const GSH_NOALARM = "NOALARM" +const GSH_UNAKALRM = "UNAKALRM" +const GSH_AKDALRM = "AKDALRM" + +Const GSH_ALARMLIM1 = "alarmlimit1" +Const GSH_ALARMLIM2 = "alarmlimit2" +Const GSH_ALARMLIM3 = "alarmlimit3" +Const GSH_ALARMLIM4 = "alarmlimit4" +Const GSH_ALARMTYPE1 = "alarmtype1" +Const GSH_ALARMTYPE2 = "alarmtype2" +Const GSH_ALARMTYPE3 = "alarmtype3" +Const GSH_ALARMTYPE4 = "alarmtype4" +Const GSH_ALARMPRI1 = "alarm1priority" +Const GSH_ALARMPRI2 = "alarm2priority" +Const GSH_ALARMPRI3 = "alarm3priority" +Const GSH_ALARMPRI4 = "alarm4priority" + +Const GSH_EUHI = "EUHI" +Const GSH_EULO = "EULO" +Const GSH_PVEUHI = "PVEUHI" +Const GSH_PVEULO = "PVEULO" + +Const GSH_TOTALLOWACKALARMS = "TOTALLOWACKALARMS" +Const GSH_TOTALHIGHACKALARMS = "TOTALHIGHACKALARMS" +Const GSH_TOTALURGENTACKALARMS = "TOTALURGENTACKALARMS" +Const GSH_TOTALLOWUNACKALARMS = "TOTALLOWUNACKALARMS" +Const GSH_TOTALHIGHUNACKALARMS = "TOTALHIGHUNACKALARMS " +Const GSH_TOTALURGENTUNACKALARMS = "TOTALURGENTUNACKALARMS" + +'REMOVED CAUSE NOT USED +'const GSH_DISABLED = "ALARM DISABLED" +'const GSH_ENABLED = "ALARM ENABLED" +Const GSH_ENABLE = "ENABLE" +const GSH_BADDATA = "BADDATA" +const GSH_GOODDATA = "GOODDATA" +Const GSH_TRUE = "true" +Const GSH_FALSE = "false" + +'Registy +Const GSH_REGISTRY_BASE = "HKCU\SOFTWARE\HCS\" +Const GSH_REGISTRY_DISPLAYNAMES = "DisplayNames\" +Const GSH_REGISTRY_DISPLAYINFO = "DisplayInformation\" +Const GSH_REGISTRY_DISPLAYCOMM = "HMIDisplay\DisplayCommunication\" +Const GSH_REGISTRY_LOG = "HMIDisplay\Log\" +Const GSH_REGISTRY_OPDEVMONITOR="OPDevMonitor\" +Const GSH_REGISTRY_DEMANDTRD = "HKCU\SOFTWARE\Matrikon\Operator Trend\DemandTrend\" +Const GSH_REGISTRY_SETTINGS = "Settings" +Const GSH_REGISTRY_MENUCONFIG = "MenuConfig\" +Const GSH_REGISTRY_MENUCONFIG_EQUIPMENT = "MenuConfig_Equipment\" +Const GSH_REGISTRY_TAGINFORMATION = "TagInformation\" +Const GSH_REGISTRY_FACEPLATE_TAGS = "HMIDisplay\FaceplateTags\" +Const GSH_REGISTRY_OPERATORTREND = "HKCU\SOFTWARE\Matrikon\Operator Trend\" +Const GSH_REGISTRY_DETAILTREND = "HKCU\SOFTWARE\Matrikon\Operator Trend\DetailTrend\" +Const GSH_REGISTRY_TRENDCONFIG = "HKCU\SOFTWARE\Matrikon\Operator Trend\TrendConfig\" +Const GSH_REGISTRY_STSMSGLISTS = "StatusMessage\" + +Const GSH_REGKEY_ACTIVE = "Active" +Const GSH_REGKEY_AUTOSCALE = "AUTOSCALE" + +'10/06/2008 (CL) +Const GSH_REGKEY_TREND_RANGE_HIGH = "TREND_RANGE_HIGH" +Const GSH_REGKEY_TREND_RANGE_LOW = "TREND_RANGE_LOW" + +Const GSH_REGKEY_CMDSTR = "CmdDspStr" +Const GSH_REGKEY_CMDSTRING = "Command" +Const GSH_REGKEY_FACEPLATE_CURRENT = "current" +Const GSH_REGKEY_FACEPLATE_PRIOR = "prior" +Const GSH_REGKEY_FPPAGEDELAY = "FaceplateFocusUpdateDelay" +Const GSH_REGKEY_FPPAGEDELAY_DEFAULTMS = "3000" +Const GSH_REGKEY_DEMANDTREND = "DemandTrend" +Const GSH_REGKEY_DEMANDTRENDPREV = "DemandTrendPrevious" +Const GSH_REGKEY_DESCR = "Description" +Const GSH_REGKEY_DISPLAYLOC = "DisplayLocation" +Const GSH_REGKEY_FacePlateFN = "faceplateFileName" +Const GSH_REGKEY_FOCUSTAG = "FocusTag" +Const GSH_REGKEY_HDAPATH = "HDA_ITEM_PATH" +'Added 08/21/2008 (CL) to work with Sasol PHD historian interface +'Issue#21: http://wss-edm-1/clients/hcs/services/ISE-HCS8227/ClientProjectAccess/Lists/Issue%20Tracker/DispForm.aspx?ID=21 +Const GSH_REGKEY_USESHORTNAME_FOR_HDAPATH = "USE_SHORTNAME_FOR_HDA_ITEMPATH" +Const GSH_REGKEY_ITEMALIAS = "ITEM_ALIAS" +Const GSH_REGKEY_KEYWORD= "Keyword" +Const GSH_REGKEY_LEVELPAGEDELAY = "LevelPageFocusUpdateDelay" +Const GSH_REGKEY_LEVELPAGEDELAY_DEFAULTMS = "500" +Const GSH_REGKEY_NMODATTR = "NMODATTR" +Const GSH_REGKEY_NMODE = "NMODE" +Const GSH_REGKEY_NUMCMDS = "NoofCommands" +Const GSH_REGKEY_NUMOFT3 = "NumberOfType3" +Const GSH_REGKEY_NUMTRENDPARAMS = "NoOfTrendingParams" +Const GSH_REGKEY_OPCKEY1PREFIX = "OPC_KEY_1_PREFIX" +Const GSH_REGKEY_OPCKEY2PREFIX = "OPC_KEY_2_PREFIX" +Const GSH_REGKEY_OPCITEMPATH = "OPC_ITEM_PATH" +Const GSH_REGKEY_OPC2ITEMPATH = "OPC2_ITEM_PATH" +Const GSH_REGKEY_PATHPREFIX = "PATHPREFIX" +Const GSH_REGKEY_PRIORT3 = "PriorType3" +Const GSH_REGKEY_PRIORT4 = "PriorType4" +Const GSH_REGKEY_PVNORMAL_STATE = "PVNormalState" +Const GSH_REGKEY_OPNORMAL_STATE = "OPNormalState" +Const GSH_REGKEY_PV_NORMAL_STATE = "PVNormalState" +Const GSH_REGKEY_SA_STATE = "SAState" +Const GSH_REGKEY_SOL_HI = "SOLHILimit" +Const GSH_REGKEY_SOL_LO = "SOLLOLimit" +Const GSH_REGKEY_OP_NORMAL_STATE = "OPNormalState" +Const GSH_REGKEY_T1FN = "Type1FileName" +Const GSH_REGKEY_T2FN = "Type2FileName" +Const GSH_REGKEY_T3FN = "Type3FileName" +Const GSH_REGKEY_T4FN = "Type4FileName" +Const GSH_REGKEY_TagFacePlate = "faceplate" +Const GSH_REGKEY_TAGFAM = "TagFamily" +Const GSH_REGKEY_TAGDESCRIPTION = "TagDescription" +Const GSH_REGKEY_TAGEUDESC = "EUDESC" +Const GSH_REGKEY_TAGNAME_ALIAS = "TagName_Alias" +Const GSH_REGKEY_TAGNAMEHDA = "TagName_HDA" +Const GSH_REGKEY_TRENDPARAM = "TrendParam" + +'10/06/2008 (CL) +Const GSH_REGKEY_EUHIGH = "EUHIGH" +Const GSH_REGKEY_EULOW = "EULOW" + +Const GSH_REGKEY_TRENDSTEPPED = "Stepped" +Const GSH_REGKEY_TRENDTRACE = "Trace_" +Const GSH_REGKEY_TREND_YMAX = "Y_MAX" +Const GSH_REGKEY_TREND_YMIN = "Y_MIN" +Const GSH_REGKEY_USET4 = "UseT4Default" +Const GSH_REGKEY_UNITS = "EUDesc" +Const GSH_REGKEY_SAME_SATELLITE_LINK = "SAME_SATELLITE_LINK" + +Const GSH_REGKEY_STSMSGLIST = "StsMsgList" +Const GSH_REGKEY_STATUSMESSAGE = "StatusMessage" +Const GSH_REGKEY_TAGNAMELABLESTATUS = "TagNameLabelVisibilityStatus" + +'registry key for OPDevMonitor shapes +Const GSH_REGKEY_OPDEVMON_NOOFOP="NoOfOPs" +Const GSH_REGKEY_OPDEVMON_DEADBAND="DeadBand" +Const GSH_REGKEY_OPDEVMON_FILTER="Filter" +Const GSH_REGKEY_OPDEVMON_RESETDATE="ResetDate" +Const GSH_REGKEY_OPDEVMON_RESETTIME="ResetTime" +Const GSH_REGKEY_OPDEVMON_DIFF_OLD="Diff_Old" +Const GSH_REGKEY_OPDEVMON_ENTITY="Entity" +Const GSH_REGKEY_OPDEVMON_OPPARAMETER="OPParameter" +Const GSH_REGKEY_OPDEVMON_OPREFVAL="OPRefVal" + +'TODO - CHANGE KEY BELOW FORMAT +Const GSH_PVFORMATKEY = "PVFORMAT" + +Const GSH_DISPLAYDEFAULT_LOC = "" +Const GSH_BINARY = "REG_BINARY" +Const GSH_TEXT = "REG_SZ" +Const GSH_DWORD = "REG_DWORD" +Const GSH_DISPLAYFILEEXTENSION = ".htm" +'Const GSH_CSSTAGNAMELABEL = "TagNameLabel" + +'Station Data Repository +Const GSH_SDR_CURRENTPOINT = "CurrentPoint" +Const GSH_SDR_INTERIMPOINT = "InterimPoint" +' +Const GSH_DEFAULTPVFORMAT = "D1" +Const GSH_DEFAULT_NULL = "default null" +Const GSH_NOT_IMPLEMENTED = "Not Implemented" +'Shape Library Constants - do not modify +Const GSH_SHAPEPREFIX = "shape" 'used when comparing against the prefix of objects on displays +Const GSH_GSHShapeName = "shapegsh" 'name of General Script holder shape, in order to omit on reloading +Const GSH_HIDDEN = "hidden" 'used in object visibility property of any object +Const GSH_VISIBLE = "visible" 'used in object visibility property of any object + +Const GSH_SVIEW_TYPE2 = "Level2Display" +Const GSH_SVIEW_TYPE3 = "Level3Display" +Const GSH_SVIEW_TYPE4 = "Level4Display" +Const GSH_GRPSCRIPT_OBJNAME = "rec_DataScript" + +'Specific to Regulator Control Indicator +Const GSH_REGULATORYCONTORLINDICATOR_RUN = "R" +Const GSH_REGULATORYCONTORLINDICATOR_PRESET = "P" +Const GSH_MODE_AUTO_TEXT_INDICATOR = "A" +Const GSH_MODE_MAN_TEXT_INDICATOR = "M" +Const GSH_MODE_CASC_TEXT_INDICATOR = "C" +Const GSH_MODE_BCAS_TEXT_INDICATOR = "B" +Const GSH_MODE_COMP_TEXT_INDICATOR = "P" +Const GSH_MODE_AUTO = "AUTO" +Const GSH_MODE_MAN = "MAN" +Const GSH_MODE_CASC = "CASC" +Const GSH_MODE_BCAS = "BCAS" +Const GSH_MODE_COMP = "COMP" + +Const GSH_INTERLOCK_TXT = "I" +Const GSH_LOCALMAN_TXT = "L" + +'Specific to Digital Valve +Const GSH_VALVEDIGITALOFFNORMAL = "ValveDigitalOffNormal" +Const GSH_VALVEDIGITALPOSITION_OPEN = "OPEN" +Const GSH_VALVEDIGITALPOSITION_CLOSED = "CLOSED" +Const GSH_VALVEDIGITALPOSITION_TRAVEL = "TRAVEL" + +'Specific to Valve +Const GSH_TRAVEL = "TRAVEL" +Const GSH_MOVING = "MOVING" +Const GSH_MOVING_TEXT = "MOVING" +Const GSH_REDTAG = "REDTAG" +Const GSH_REDTAG_TEXT = "REDTAG" +Const GSH_HANDJACK = "HANDJACK" +Const GSH_HANDJACK_TEXT = "HANDJK" +Const GSH_ISOLATED = "ISOLATED" +Const GSH_ISOLATED_TEXT = "ISOLATD" +Const GSH_BADPV = "BadPV" +Const GSH_SHUTDOWN_TEXT_MESSAGE = "S/D" +Const GSH_BYPASSED = "BYPASSED" +Const GSH_BYPASSED_TEXT_MESSAGE = "BYPASS" +Const GSH_MODE_PROGRAM = "PROGRAM" +Const GSH_MODE_PROGRAM_TEXT = "P-" +const GSH_PVNORMALSTATE_OFFNORMAL = "NONE" +Const GSH_ALLOWOPEDIT_MODE = "MAN" +Const GSH_ALLOWSPEDIT_MODE = "AUTO" +Const GSH_BADPV_TEXT = "---" +Const GSH_BADOP_TEXT = "---" +Const GSH_BADMODE_TEXT = "---" +Const GSH_BADPVTV_TEXT = "---" +Const GSH_NODATA = "1.#QNAN" +Const GSH_LEVELINDICATORDECIMALS = 1 +Const GSH_OUTPUTINDICATORDECIMALS = 1 +Const GSH_SELX1 = 1 +Const GSH_SELX2 = 2 +Const GSH_SELX3 = 3 +Const GSH_CPIN1 = "IN1_Position" +Const GSH_CPIN2 = "IN2_Position" +Const GSH_SELIN1 = "Off" +Const GSH_SELIN2 = "On" +Const GSH_LEFT = "LEFT" +Const GSH_RIGHT = "RIGHT" +Const GSH_CENTER = "CENTER" + +'Groups Timeout (Seconds) +Const GSH_GroupTimeout = 10 + +'Faceplates +Const GSH_FacePlateTagNameTimeout = 10 +'Const GSH_FPTIMEOUT = 7 +'10/01/2008 Changed to 12 to give operator more time as requested by Sasol (CL) +Const GSH_FPTIMEOUT = 12 +Const GSH_FP_TAGNAMEENTRY_TIMEOUT = 20 +Const GSH_DETAILTRENDUPDATEPERIOD_SECS = 5 +Const GSH_FP_SHOWNAMESBTNUPDATEPERIOD_SECS = 10 +Const GSH_FP_DEFAULTFACEPLATE = "GENERAL_FP" +Const GSH_FP_PVHH = 9 +Const GSH_FP_PVHH_LABEL = "HiHi" +Const GSH_FP_PVH = 7 +Const GSH_FP_PVH_LABEL = "Hi" +Const GSH_FP_PVL = 6 +Const GSH_FP_PVL_LABEL = "Lo" +Const GSH_FP_PVLL = 8 +Const GSH_FP_PVLL_LABEL = "LoLo" + +'Global Variables + +dim GSH_DetailTrendUpdateTimerId +dim GSH_GroupTimerId +dim GSH_FPTimerId +dim GSH_FP_ShowNamesBtnTimerId +dim changeOP,mode,mdfcs,countOP,countSP, IgnoreServerDelects +dim g_PageLoadCompleted +dim g_PageLoadTimerID + +changeOP=false +mode=100 +mdfcs=true +countOP=0 +countSP=0 +SpHitLimit = 0 +RiseUpDown = 0 +IgnoreServerDelects = 0 +g_PageLoadCompleted = false + +Const GSH_C200_DEVCTLA_STATENUMOFFSET = 4 + +'Used for all Digital Shapes +Const GSH_STATETXT_DOESNOTEXIST_LBL = "---" + +'Test: Make WshShell create once on page load. +'Will remove it at onpageunload +dim WshShell +set WshShell = CreateObject("WScript.Shell") + +sub GSH_PageUnload + set WshShell = Nothing +end sub +'-------------------------------------START SHAPE GENERAL----------------------------------------------' +' .oooooo. oooo +'d8P' `Y8b `888 +'888 .ooooo. ooo. .oo. .ooooo. oooo d8b .oooo. 888 +'888 d88' `88b `888P"Y88b d88' `88b `888""8P `P )88b 888 +'888 ooooo 888ooo888 888 888 888ooo888 888 .oP"888 888 +'`88. .88' 888 .o 888 888 888 .o 888 d8( 888 888 +' `Y8bood8P' `Y8bod8P' o888o o888o `Y8bod8P' d888b `Y888""8o o888o +'------------------------------------------------------------------------------------------------------- +'''''''''''''''''''''''''''''''''''''''''''''''''' +' Error handling function +' How to use: +' sub/function sub/functionName(args) +' on error resume next +' ...........do something. +' if Err then +' call GSH_SHAPE_ERROR_HANDLING("sub/functionName",oShape) +' end if +' end sub/function +' +'''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHAPE_ERROR_HANDLING(subName,oShape) + oShape.title = "Shape contains Error. Please check log file for details" + gsh_log("ERROR: " &Err.description &" at " &subName &" for " &oShape.id) + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL +' msgbox("ERROR: " &Err.description &" at " &subName &" for " &oShape.id) + Err.clear +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''' +' Error handling function +' How to use: +' sub/function sub/functionName(args) +' on error resume next +' ...........do something. +' if Err then +' call GSH_ERROR_HANDLING("sub/functionName") +' end if +' end sub/function +' +'''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ERROR_HANDLING(subName) + gsh_log("ERROR: " &Err.description &" at " &subName) + Err.clear +end sub +'''''''''''''''''''''''''''''''''''''''''' +'GSH_PRINT_VERSION +' Require +'''''''''''''''''''''''''''''''''''''''''' +sub GSH_PRINT_VERSION(oShape, versionString) +on error resume next + dim tempString, strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_LOG & "VERSION_LOG" + tempString = GSH_READREGISTRY(strRegLocation,defaultString) + If(StrComp(tempString,"On",vbtextcompare) = 0) then + gsh_log("VERSION> shapeID = " &oShape.id &", Shape File = " &oShape.src &" version_" &versionString) + end if + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_PRINT_VERSION",oShape) + end if +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_SETTOOLTIP''''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape - object whose tool tip is being set +'Action: Determines if the custom property Entity exists. Sets the Tag +' name alias as the tool tip, but if the alias does not exist then +' displays tagname as tool tip +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETTOOLTIP(oShape) + dim sEntityPoint + sEntityPoint = UCASE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY)) + if strcomp(sEntityPoint, "", vbtextcompare) <> 0 then + oShape.title = GSH_READTAGINFORMATIONKEYVALUE(sEntityPoint, GSH_REGKEY_TAGNAME_ALIAS, sEntityPoint) + end if +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Read Registry'''''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' strRegLocation - Path of Registry Item +' defaultString - Default Value if error of nothing found +'Returns: +' value of registry item or parameter of defaultString +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_READREGISTRY(strRegLocation, defaultString) +'gsh_log_s("GSH_READREGISTRY strRegLocation=" & strRegLocation & ",defaultString=" & defaultString) +on error resume next +' dim WshShell, + dim tempString, tempReturn +' set WshShell = CreateObject("WScript.Shell") + tempString = WshShell.RegRead (cstr(strRegLocation)) + if strcomp(tempString,"",vbtextcompare)=0 or tempString = null then + tempReturn = defaultString + else + tempReturn = tempString + End If +' set WshShell = Nothing + GSH_READREGISTRY = tempReturn + + +'gsh_log_e("GSH_READREGISTRY returning >>>" & tempReturn&"<<< Time <<" &RegistryReadTime) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: Write toRegistry'''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' strRegLocation - Path of Registry item +' strValue - Registry item value +' strType - type of Registry item (use constants defined: GSH_BINARY, GSH_TEXT,GSH_DWORD) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_WRITETOREGISTRY(strRegLocation,strValue,strType) +'gsh_log_s("GSH_WRITETOREGISTRY " & "strRegLocation=" & strRegLocation & ",strValue=" & strValue & ",strType=" & strType ) + +' dim WshShell +' set WshShell = CreateObject("WScript.Shell") + WshShell.RegWrite cstr(strRegLocation), cstr(strValue), cstr(strType) +' set WshShell = Nothing +'gsh_log_e("GSH_WRITETOREGISTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Read Tag Information Key Value'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' strTagName - Part of path to Registry Item in "TagInformation" +' strKey - Part of path to Registry Item +' defaultString - Default Value if error or nothing found +'Returns: +' value of registry item or parameter of defaultString +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_READTAGINFORMATIONKEYVALUE(strTagName, strKey, defaultString) +'gsh_log_s("GSH_READTAGINFORMATIONKEYVALUE" & " strTagName=" & strTagName & ",strKey=" & strKey & ",defaultString=" & defaultString) +on error resume next + dim tempString, strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_BASE & "TagInformation\" &strTagName & "\" & strKey +' gsh_log ("GSH_READTAGINFORMATIONKEYVALUE checkPoint strRegLocation=" & strRegLocation) + tempString = GSH_READREGISTRY(strRegLocation,defaultString) + if strcomp(tempString,"",vbtextcompare)=0 then + tempReturn = defaultString + else + tempReturn = tempString + End If + GSH_READTAGINFORMATIONKEYVALUE = tempReturn +'gsh_log_e("GSH_READTAGINFORMATIONKEYVALUE returning >>> " & tempReturn&"<<<" ) +end function +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Read Display Information Key Value'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' strTagName - Part of path to Registry Item in "TagInformation" +' strKey - Part of path to Registry Item +' defaultString - Default Value if error or nothing found +'Returns: +' value of registry item or parameter of defaultString +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_READDISPLAYINFO(strTagName, strKey, defaultString) +'gsh_log_s("GSH_READDISPLAYINFO" & " strTagName=" & strTagName & ",strKey=" & strKey & ",defaultString=" & defaultString) + dim tempString, strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_DISPLAYINFO &strTagName & "\" & strKey + 'gsh_log("GSH_READDISPLAYINFO checkPoint strRegLocation=" & strRegLocation) + tempString = GSH_READREGISTRY( strRegLocation,defaultString) + if tempString = "" then + tempReturn = defaultString + else + tempReturn = tempString + End If + GSH_READDISPLAYINFO = tempReturn +'gsh_log_e("GSH_READDISPLAYINFO returning >>> " & tempReturn&"<<<" ) +end function +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'SHOULD RENAME +' +'Function: GSH_READDISPLAYNAMES'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sdefaultLocation - Default OS Path if error or nothing found +'Returns: +' String, OS path of display files +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_READDISPLAYNAMES(sdefaultLocation) +'gsh_log_s("GSH_READDISPLAYNAMES" & " sdefaultLocation=" & sdefaultLocation) + dim tempString, tempReturn + 'gsh_log("GSH_READDISPLAYNAMES checkPoint strRegLocation=" & GSH_REGISTRY_BASE & GSH_REGISTRY_DISPLAYNAMES & GSH_REGKEY_DISPLAYLOC) + tempString = GSH_READREGISTRY ( GSH_REGISTRY_BASE & GSH_REGISTRY_DISPLAYNAMES & GSH_REGKEY_DISPLAYLOC,"" ) + if tempString = "" then + tempReturn = sdefaultLocation + else + tempReturn = tempString + End If + GSH_READDISPLAYNAMES = tempReturn +'gsh_log_e("GSH_READDISPLAYNAMES returning >>>" & tempReturn&"<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: READ DISPLAY COMMUNICATION KEY VALUE ''''''''''''''''''''''''' +'Parameters: +' strKey - Part of path to Registry Item +' defaultString - Default Value if error or nothing found +'Returns: +' value of registry item or parameter of defaultString +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_READDISPLAYCOMMUNICATIONKEYVALUE(strKey, defaultString) +'gsh_log_s("GSH_READDISPLAYCOMMUNICATIONKEYVALUE" & " strKey=" & strKey & ",defaultString=" & defaultString ) + dim tempString, strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_DISPLAYCOMM & strKey + 'gsh_log("GSH_GETDISPLAYCOMMUNICATIONKEY checkPoint strRegLocation=" & strRegLocation) + tempString = GSH_READREGISTRY(strRegLocation,defaultString) + if tempString = "" then + tempReturn = defaultString + else + tempReturn = tempString + End If + GSH_READDISPLAYCOMMUNICATIONKEYVALUE = tempReturn +'gsh_log_e("GSH_READDISPLAYCOMMUNICATIONKEYVALUE returning >>>" & tempReturn&"<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_READSTSMSGLISTSKEYVALUE ''''''''''''''''''''''''' +'Parameters: +' strKey - Part of path to Registry Item (ex. RegCtl\StatusMessage1 +' defaultString - Default Value if error or nothing found +'Returns: +' value of registry item or parameter of defaultString +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_READSTSMSGLISTSKEYVALUE(strKey, defaultString) +'gsh_log_s("GSH_READSTSMSGLISTSKEYVALUE" & " strKey=" & strKey & ",defaultString=" & defaultString ) + dim tempString, strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_STSMSGLISTS & strKey +' gsh_log("GSH_READSTSMSGLISTSKEYVALUE checkPoint strRegLocation=" & strRegLocation) + tempString = GSH_READREGISTRY(strRegLocation,defaultString) + if tempString = "" then + tempReturn = defaultString + else + tempReturn = tempString + End If + GSH_READSTSMSGLISTSKEYVALUE = tempReturn +'gsh_log_e("GSH_READSTSMSGLISTSKEYVALUE returning >>>" & tempReturn&"<<<") +end function + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE''''''''''''''''''''''''''''''' +'Parameters: +' strKey - Part of path to Registry Item +' strValue - Value of string key +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE(strKey, strValue) +'gsh_log_s("GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE " & "strKey=" & strKey & ",strValue=" & strValue ) + dim strRegLocation + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_DISPLAYCOMM & strKey + 'gsh_log("GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE checkPoint strRegLocation=" & strRegLocation) + GSH_WRITETOREGISTRY strRegLocation,strValue,"REG_SZ" +'gsh_log_e("GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: GSH_WRITEDISPLAYINFORMATION''''''''''''''''''''''''''''''''' +'Parameters: +' strTagName - Part of path to Registry Item +' strKey - Part of path to Registry Item +' strValue - Value of string key +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_WRITEDISPLAYINFORMATION(strTagName, strKey, strValue) +'gsh_log_s("GSH_WRITEDISPLAYINFORMATION " & "strTagName=" & strTagName & ",strKey=" & strKey & ",strValue=" & strValue ) + dim strRegLocation + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_DISPLAYINFO &strTagName& "\" & strKey +' gsh_log("GSH_WriteDisplayInformation checkPoint strRegLocation=" & strRegLocation) + GSH_WRITETOREGISTRY strRegLocation,strValue,"REG_SZ" +'gsh_log_e("GSH_WRITEDISPLAYINFORMATION") +end sub + + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: GSH_HIDESUBSHAPE'''''''''''''''''''''''''''''''''''''''''''' +' Hides the sub shapes within the HCS Shape +'Parameters: +' oShape - object to hide +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_HIDESUBSHAPE(oObject) +'gsh_log_s("GSH_HIDESUBSHAPE "& "oObject=" & oObject.id) + oObject.style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_HIDESUBSHAPE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: GSH_SHOWSUBSHAPE'''''''''''''''''''''''''''''''''''''''''''' +' Shows the sub shapes within the HCS Shape +'Parameters: +' oObject - object to show +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHOWSUBSHAPE(oObject) +'gsh_log_s("GSH_SHOWSUBSHAPE "& "oObject=" & oObject.id) + oObject.style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_SHOWSUBSHAPE") +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: Shape Clicked +' Called when user clicks HCS shape on display +'Parameters: +' oShape - HCS Shape (Example: Analog Indicator +'Sept 30, 2009 - Added associated Level 2 support for loading Level2 from L1 shapes (CL) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHAPECLICKED(oShape) +on error resume next + Dim sAssocDispT2, sAssocDispT3, sAssocDispT4 + + 'Determine what is the associated display Type3 + sAssocDispT2 = UCase(oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPASSOCTYPE2)) + + 'Determine what is the associated display Type3 + sAssocDispT3 = UCase(oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPASSOCTYPE3)) + 'Determine what is the associated display Type4 from the shape custom property + sAssocDispT4 = Ucase(oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPASSOCTYPE4)) + 'call GSH_SHAPECLICKEDPARAMETERS(oShape, sAssocDispT3, sAssocDispT4) + call GSH_SHAPECLICKEDPARAMETERS1(oShape, sAssocDispT2, sAssocDispT3, sAssocDispT4) +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: Shape Clicked No Assoc Display +' Called when user clicks HCS shape on display +'Parameters: +' oShape - HCS Shape (Example: Analog Indicator +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHAPECLICKEDNOASSOCDISP(oShape) +on error resume next + call GSH_SHAPECLICKEDPARAMETERS1(oShape, "", "", "") +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: Shape Clicked Parameters +' Called when user clicks HCS shape on display +'Parameters: +' oShape - HCS Shape (Example: Analog Indicator +' sAssocDispT3 - Associated Display Type 3 +' sAssocDispT4 - Associated Display Type 4 +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHAPECLICKEDPARAMETERS(oShape, sAssocDispT3, sAssocDispT4) +on error resume next +'gsh_log_s("Performance Time: GSH_SHAPECLICKED "& "oShape=" & oShape.id &" , sAssocDispT3="&sAssocDispT3) + Dim sOnDispT2, shapeTagName, vTagFamily, iPageNavigateDelayMs + 'Determine what is on display Type2 from Display Communication Mailbox + sOnDispT2 = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T2FN,"") + shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + call GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(GSH_FALSE) 'Reset all tagname labels to hidden + 'Store Tag Name in Display Communication Mailbox + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_FOCUSTAG,shapeTagName + 'Get Tag Family using Tag Information in Registry + vTagFamily = GSH_READTAGINFORMATIONKEYVALUE(shapeTagName, GSH_REGKEY_TAGFAM, "") + 'Store Tag Family in Display Communication Mailbox + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_TAGFAM,vTagFamily + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE "AssocDisplay3",sAssocDispT3 + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE "AssocDisplay4",sAssocDispT4 + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_USET4,"NO" 'Ensure that T4Default is not on. Assume there will always be an AssocL3 and L4 specified together. + iPageNavigateDelayMs = cint(GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_FPPAGEDELAY,GSH_REGKEY_FPPAGEDELAY_DEFAULTMS)) + call setTimeout ("GSH_UpdateFaceplate()", iPageNavigateDelayMs) + call window.external.RaiseCustomEvent("ShapeClicked","OnShapeClickEvent",sAssocDispT3&"%"&sAssocDispT4) +'gsh_log_e("Performance Time:GSH_SHAPECLICKED iPageNavigateDelayMs="& iPageNavigateDelayMs) +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: GSH_SHAPECLICKEDPARAMETERS1 +' Called when user clicks HCS shape on display +'Parameters: +' oShape - HCS Shape (Example: Analog Indicator +' sAssocDispT2 - Associated Display Type 2 +' sAssocDispT3 - Associated Display Type 3 +' sAssocDispT4 - Associated Display Type 4 +'Sept 30, 2009 - Added associated Level 2 support for loading Level2 from L1 shapes (CL) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHAPECLICKEDPARAMETERS1(oShape, sAssocDispT2, sAssocDispT3, sAssocDispT4) +on error resume next +'gsh_log_s("Performance Time: GSH_SHAPECLICKEDPARAMETERS1 "& "oShape=" & oShape.id) + Dim sOnDispT2 + Dim sOnDispT3 + Dim sOnDispT4 + Dim vTagFamily + Dim sTemp + Dim sErrorMsg + Dim shapeTagName + Dim objShpFocus + Dim sFaceplate +'initialize local variables + + If(g_PageLoadCompleted) then + + g_PageLoadCompleted = false + window.clearTimeout g_PageLoadTimerID + g_PageLoadTimerID=window.setTimeout("g_PageLoadCompleted = true",1500) + + shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + + 'Determine what is on display Type3 from Display Communication Mailbox + sOnDispT2 = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T2FN,"") + + 'Determine what is on display Type3 from Display Communication Mailbox + sOnDispT3 = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T3FN,"") + 'Determine what is on display Type4 + sOnDispT4 = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T4FN,"") + sDisplayLocation = GSH_READDISPLAYNAMES("") + call GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(GSH_FALSE) 'Reset all tagname labels to hidden + 'Store Tag Name in Display Communication Mailbox + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_FOCUSTAG,shapeTagName + + 'Get Tag Family using Tag Information in Registry + vTagFamily = GSH_READTAGINFORMATIONKEYVALUE(shapeTagName, GSH_REGKEY_TAGFAM, "") + 'Store Tag Family in Display Communication Mailbox + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_TAGFAM,vTagFamily + call GSH_UpdateFaceplate() + + If strcomp(sAssocDispT2,"",vbtextcompare)<>0 and strcomp(Ucase(sOnDispT2),sAssocDispT2,vbtextcompare)<>0 Then + sTemp = sDisplayLocation & sAssocDispT2 & GSH_DISPLAYFILEEXTENSION + 'call GSH_WRITEDISPLAYINFORMATION ("", GSH_REGKEY_PRIORT2, sAssocDispT2) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T2FN,sAssocDispT2) + window.navigate(sTemp) + End If + + If strcomp(sAssocDispT3,"",vbtextcompare)<>0 and strcomp(Ucase(sOnDispT3),sAssocDispT3,vbtextcompare)<>0 Then + sTemp = sDisplayLocation & sAssocDispT3 & GSH_DISPLAYFILEEXTENSION + call GSH_WRITEDISPLAYINFORMATION (sOnDispT2, GSH_REGKEY_PRIORT3, sAssocDispT3) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T3FN,sAssocDispT3) + window.navigate(sTemp) + End If + + If strcomp(sAssocDispT4,"",vbtextcompare)<>0 Then + If Ucase(sOnDispT4) <> sAssocDispT4 Then + sTemp = sDisplayLocation & sAssocDispT4 & GSH_DISPLAYFILEEXTENSION + ''25June08 - JE + 'call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sPriorT4) + 'Should be this line instead + call GSH_WRITEDISPLAYINFORMATION (sOnDispT2, GSH_REGKEY_PRIORT4, sAssocDispT4) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sAssocDispT4) + window.navigate(sTemp) + End if + ' Else + '''Should not need to set this to on - 25June08 - JE + ''' GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_USET4,"YES" + End If + + else +' gsh_log("GSH_SHAPECLICKEDPARAMETERS1:gPageLoadcompleted = false") + End If +'gsh_log_e("Performance Time:GSH_SHAPECLICKEDPARAMETERS1") +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: GSH_ONSHAPECLICKEVENTHANDLER +' Event Handling routine on each Level Display for the CustomEvent "OnShapeClickEvent" +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ONSHAPECLICKEVENTHANDLER +'gsh_log_s "GSH_ONSHAPECLICKEVENTHANDLER >>> "& PAGE_DISPLAYTYPE + dim sAssocDisp, sOnDisp, sOnDispT2 + 'Determine what is on display Type2 from Display Communication Mailbox + sOnDispT2 = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T2FN,"") + 'Determine what is on display from Display Communication Mailbox + sOnDisp = GSH_READDISPLAYCOMMUNICATIONKEYVALUE("Type"&cstr(PAGE_DISPLAYTYPE)&"Filename","") + if (PAGE_DISPLAYTYPE = 2) then + GSH_UPDATESHAPESONDISPLAY sOnDisp&GSH_DISPLAYFILEEXTENSION + else + sAssocDisp = GSH_READDISPLAYCOMMUNICATIONKEYVALUE("AssocDisplay"&cstr(PAGE_DISPLAYTYPE),"") + If strcomp(sAssocDisp,"",vbtextcompare) <> 0 Then + If strcomp(sOnDisp,sAssocDisp,vbtextcompare)<>0 Then + dim iPageNavigateDelayMs + call GSH_WRITEDISPLAYINFORMATION (sOnDispT2, "PriorType"&cstr(PAGE_DISPLAYTYPE), sAssocDisp) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE ("Type"&cstr(PAGE_DISPLAYTYPE)&"Filename",sAssocDisp) + iPageNavigateDelayMs = cint(GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_LEVELPAGEDELAY,GSH_REGKEY_LEVELPAGEDELAY_DEFAULTMS)) + call setTimeout ("GSH_UPDATEDISPLAYPAGE()", iPageNavigateDelayMs) + Else + GSH_UPDATESHAPESONDISPLAY sOnDisp&GSH_DISPLAYFILEEXTENSION + End If + Else + GSH_UPDATESHAPESONDISPLAY sOnDisp&GSH_DISPLAYFILEEXTENSION 'Update all shapes on Display Type4 + End If + End if +'gsh_log_e "GSH_ONSHAPECLICKEVENTHANDLER iPageNavigateDelayMs="&iPageNavigateDelayMs +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: GSH_ONPERIODIC_FOCUSUPDATEHANDLER +' Event Handling routine on each Level Display for the CustomEvent "OnShapeClickEvent" +' 06/20/2007 Added a check to see if the TagNameLabelVisible tag has changed +' if so then update the TagNameLabelShapes with GSH_UPDATETAGNAMELABELONDISPLAY +' 06/27/07 calls GSH_UPDATEPAGELINKONDISPLAY when the PageLinkAlarmGroup has changed +' 07/25/07 only calls GSH_UPDATEPAGELINKONDISPLAY when the PAGE_DISPLAYTYPE = 2 +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ONPERIODIC_FOCUSUPDATEHANDLER +On error resume next +'gsh_log_s "GSH_ONPERIODIC_FOCUSUPDATEHANDLER >>> "& PAGE_DISPLAYTYPE & "," & g_PageShapesInit + + if g_PageShapesInit = 1 then + dim sOnDisp, sFocusTagName, sRegPageLinkAlarmGroup + sFocusTagName = GSH_READDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_FOCUSTAG,"NoTag") +' gsh_log "sFocusTagName ="&sFocusTagName&", g_PageCurrentFocusTag = "&g_PageCurrentFocusTag + if strcomp(sFocusTagName,g_PageCurrentFocusTag,vbtextcompare) <> 0 then + 'Determine what is on display from Display Communication Mailbox + sOnDisp = GSH_READDISPLAYCOMMUNICATIONKEYVALUE ("Type"&cstr(PAGE_DISPLAYTYPE)&"Filename","") + if (strcomp(sOnDisp,"",vbtextcompare) <> 0) or (PAGE_DISPLAYTYPE = 1) then + GSH_UPDATESHAPESONDISPLAY sOnDisp + End if + g_PageCurrentFocusTag = sFocusTagName + End If + + dim currentTagLabelVisible + currentTagLabelVisible = GSH_TAGNAMELABEL_GET_VISIBILITYSTATUS + if strcomp(currentTagLabelVisible,g_PageCurrentTagLabelVisible,vbtextcompare) <> 0 then + GSH_UPDATETAGNAMELABELONDISPLAY sOnDisp + g_PageCurrentTagLabelVisible = currentTagLabelVisible + End if + if (PAGE_DISPLAYTYPE = 2) then + sRegPageLinkAlarmGroup = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_PAGELINKALARMGROUP,"NoPgLink") + if strcomp(sRegPageLinkAlarmGroup,g_PageCurrentPageLink,vbtextcompare) <> 0 and (PAGE_DISPLAYTYPE = 2) then + GSH_UPDATEPAGELINKONDISPLAY sOnDisp + g_PageCurrentPageLink = sRegPageLinkAlarmGroup + End if + end if + End If +'gsh_log_e "GSH_ONPERIODIC_FOCUSUPDATEHANDLER " +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Is Alarming Enabled +'Parameters: +' oDataBoundObject - HCS Group Shape +' pointName - the point name +' parameter - Alarm disabled paramter. i.e.: +' GSH_SCADA_PARAM_ALARMDISABLED for SCADA points +' GSH_C200_PARAM_ALARMDISABLED for C200 points +' GSH_TPS_PARAM_ALARMDISABLED for TPS points +' and so on +'Returns: +' boolean +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_ISALARMINGENABLED(oDataBoundObject, pointName, parameter) +'gsh_log_s("GSH_ISALARMINGENABLED oDataBoundObject=" & oDataBoundObject.id & ", pointName=" & pointName &", parameter = " ¶meter) +on error resume next + + Dim tempReturn + + if (GSH_GETPARAMETERVALUE(oDataBoundObject, pointName, parameter) <> 0) then + tempReturn = true + else + tempReturn = false + end if + GSH_ISALARMINGENABLED = tempReturn + +'gsh_log_e("GSH_ISALARMINGENABLED returning >>>" & cstr(tempReturn) & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Is TPS Alarming Enabled +' TPS point is different: +' ALENBST = 0 -> enabled +' ALENBST = 1 -> disabled +' ALENBST = 0 -> inhibit +'Parameters: +' oDataBoundObject - HCS Group Shape +' pointName - the point name +' +'Returns: +' boolean +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_TPS_ISALARMINGENABLED(oDataBoundObject, pointName, parameter) +'gsh_log_s("GSH_TPS_ISALARMINGENABLED oDataBoundObject=" & oDataBoundObject.id & ", pointName=" & pointName &", parameter = " ¶meter) +on error resume next + + Dim tempReturn + + if (GSH_GETPARAMETERVALUE(oDataBoundObject, pointName, parameter) <> 0) then + tempReturn = false + else + tempReturn = true + end if + GSH_TPS_ISALARMINGENABLED = tempReturn + +'gsh_log_e("GSH_TPS_ISALARMINGENABLED returning >>>" & cstr(tempReturn) & "<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Is Alarming Disabled +'Parameters: +' oDataBoundObject - HCS Group Shape +' pointName - the point name +' parameter - Alarm disabled paramter. i.e.: +' GSH_SCADA_PARAM_ALARMDISABLED for SCADA points +' GSH_C200_PARAM_ALARMDISABLED for C200 points +' GSH_TPS_PARAM_ALARMDISABLED for TPS points +' and so on +'Returns: +' boolean +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_ISALARMINGDISABLED(oDataBoundObject, pointName, parameter) +'gsh_log_s("GSH_ISALARMINGDISABLED oDataBoundObject=" & oDataBoundObject.id & ", pointName=" & pointName &", parameter = " ¶meter) +on error resume next + + Dim tempReturn + + if (GSH_GETPARAMETERVALUE(oDataBoundObject, pointName, parameter) <> 0) then + tempReturn = true + else + tempReturn = false + end if + GSH_ISALARMINGDISABLED = tempReturn + +'gsh_log_e("GSH_ISALARMINGDISABLED returning >>>" & cstr(tempReturn) & "<<<") +end function + + +'---------------------- START REGULATORY CONTROL INDICATOR GENERAL ----------------- + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SETREGULATORYCONTROLINDICATORFOCUS'''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETREGULATORYCONTROLINDICATORFOCUS(oDataBoundObject) +'gsh_log_s("GSH_SETREGULATORYCONTROLINDICATORFOCUS oDataBoundObject=" & oDataBoundObject.id) +on error resume next + call GSH_SETSHAPEFOCUS(oDataBoundObject) + if (not(oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, outline must be transparent + 'alert(1) + oDataBoundObject.objects("outline").fillstyle = GSH_FILLTRANSPARENT +'added 17july2008 + else + oDataBoundObject.objects("outline").fillstyle = GSH_FILLSOLID + end if +'gsh_log_e("GSH_SETREGULATORYCONTROLINDICATORFOCUS") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SETREGULATORYCONTROLINDICATORMODE''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETREGULATORYCONTROLINDICATORMODE(oDataBoundObject) +'gsh_log_s("GSH_SETREGULATORYCONTROLINDICATORMODE oDataBoundObject=" & oDataBoundObject.id) +on error resume next +dim sMode, tempText + sMode = "MODE" 'default + Select Case GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,GSH_CPPOINTTYPE,GSH_CPVALUE) + Case GSH_CPPOINTTYPE_SCADA + sMode = GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE) + Case GSH_CPPOINTTYPE_TPN + sMode = GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_TPN_PARAM_MODE) + Case GSH_CPPOINTTYPE_C200 + sMode = GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_TPN_PARAM_MODE) + CASE GSH_CPPOINTTYPE_C300 +' sMode = GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_TPN_PARAM_MODE) + End Select + Select Case sMode + Case GSH_MODE_AUTO + tempText = GSH_MODE_AUTO_TEXT_INDICATOR + Case GSH_MODE_MAN + tempText = GSH_MODE_MAN_TEXT_INDICATOR + Case GSH_MODE_CASC + tempText = GSH_MODE_CASC_TEXT_INDICATOR + Case GSH_MODE_BCAS + tempText = GSH_MODE_BCAS_TEXT_INDICATOR + Case GSH_MODE_COMP + tempText = GSH_MODE_COMP_TEXT_INDICATOR + End Select +oDataBoundObject.parentelement.parentelement.objects("txt_mode").value = tempText +'gsh_log_e("GSH_SETREGULATORYCONTROLINDICATORMODE set mode indicator to >>" & tempText & "<<") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGULATORYCONTROLINDICATORSHOWNORMAL''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' mode = +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGULATORYCONTROLINDICATORSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_REGULATORYCONTROLINDICATORSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'Disable Alarms + call GSH_SHOWNOALARM(oDataBoundObject) + oDataBoundObject.objects("txt_AnalogValue").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("txt_Initialization").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_ramp").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_mode").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_REGULATORYCONTROLINDICATORShowNormal") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGULATORYCONTROLINDICATORSHOWOFFNORMAL'''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGULATORYCONTROLINDICATORSHOWOFFNORMAL(oDataBoundObject) +'gsh_log_s("GSH_REGULATORYCONTROLINDICATORSHOWOFFNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + if (oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if +'gsh_log_e("GSH_REGULATORYCONTROLINDICATORSHOWOFFNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGULATORYCONTROLINDICATORSHOWBADPV'''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGULATORYCONTROLINDICATORSHOWBADPV(oDataBoundObject) +'gsh_log_s("GSH_REGULATORYCONTROLINDICATORSHOWBADPV oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("txt_Analogvalue").value = GSH_BADPV_TEXT + oDataBoundObject.objects("txt_AnalogValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_REGULATORYCONTROLINDICATORSHOWBADPV") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGULATORYCONTROLINDICATORSHOWCOMMUNICATIONERROR''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGULATORYCONTROLINDICATORSHOWCOMMUNICATIONERROR(oDataBoundObject) +'gsh_log_s("GSH_REGULATORYCONTROLINDICATORSHOWCOMMUNICATIONERROR oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'SAME BEHAVIOR AS BAD PV + GSH_REGULATORYCONTROLINDICATORSHOWBADPV(oDataBoundObject) +'gsh_log_e("GSH_REGULATORYCONTROLINDICATORSHOWCOMMUNICATIONERROR") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGULATORYCONTROLINDICATORSHOWDISABLEDALARM'''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGULATORYCONTROLINDICATORSHOWDISABLEDALARM(oDataBoundObject) +'gsh_log_s("GSH_REGULATORYCONTROLINDICATORSHOWDISABLEDALARM oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'Change focus outline color + oDataBoundObject.objects("outline").styleClass = GSH_CSSREGULATORYCONTROLINDICATORDISABLEDALARM +'gsh_log_e("GSH_REGULATORYCONTROLINDICATORSHOWDISABLEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGULATORYCONTROLINDICATORSHOWINITIALIZATION''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGULATORYCONTROLINDICATORSHOWINITIALIZATION(oDataBoundObject) +'gsh_log_s("GSH_REGULATORYCONTROLINDICATORSHOWINITIALIZATION oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("txt_Intialization").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_REGULATORYCONTROLINDICATORSHOWINITIALIZATION") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGULATORYCONTROLINDICATORSHOW_RAMP'''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' txtValue = text to be shown in RAMP shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGULATORYCONTROLINDICATORSHOW_RAMP(oDataBoundObject,txtValue) +'gsh_log_s("GSH_REGULATORYCONTROLINDICATORSHOW_RAMP oDataBoundObject=" & oDataBoundObject.id & ",txtValue =" &txtValue ) +on error resume next + oDataBoundObject.objects("txt_ramp").value = txtValue + oDataBoundObject.objects("txt_ramp").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_REGULATORYCONTROLINDICATORSHOW_RAMP") +end sub + +'---------------------- END REGULATORY CONTROL INDICATOR GENERAL ----------------- + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_ISDATABAD +'Parameters: +' oDataScriptObject - data bound object within HCS shape +' bCheckNAN - check for PV value that is not a number +' bCheckPVSts - check if PVSts indicate that PV value is bad +'Returns: +' true of false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_ISDATABAD(oDataScriptObject, parameter, bCheckNAN, bCheckPVSts) +'gsh_log_s("GSH_ISDATABAD " & "oDataScriptObject=" & oDataScriptObject.ID &" parameter = " ¶meter) +on error resume next + Dim bValueIsNAN, bPVInError, bAllTests + bValueIsNAN = false + bPVInError = false + +' gsh_log_e("bValueIsNAN " & oDataScriptObject.IsNan(GSH_CPENTITY & "." & parameter)) + if bCheckNAN then + if oDataScriptObject.IsNan(GSH_CPENTITY & "." & parameter) then bValueIsNAN = true + end if + +' gsh_log_e("bCheckPVSts " &GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_CPPARAM_BADPV)) + if bCheckPVSts then + if (GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_CPPARAM_BADPV)<> 0) then + bPVInError = true + end if + end if + + bAllTests = ( bValueIsNAN or bPVInError ) + +'gsh_log_e("GSH_ISDATABAD returing " & bAllTests ) +GSH_ISDATABAD = bAllTests +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_Show_StatusMessageFlag'''''''''''''''''''''''''''''''''''''''''' +'Show Status Message flag on a C200/TPS Regulatory Control shapes. +' stsMsg_flag = 0 => Off (No Message shown) - Default +' stsMsg_flag = 1 => Bypass (shown as Bypass) +' stsMsg_flag = 2 => HandJack (shown as Hand) +' stsMsg_flag = 3 => Isolated (shown as Isolate) +'08/08/07 - Created the sub routine (Cuong Ly) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_Show_StatusMessageFlag(oShape, stsMsg_flag) + + if IsNumeric(stsMsg_flag) then + + Select Case stsMsg_flag + Case 0 + 'hide the message + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN + Case 1 + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_BYPASSED_TEXT_MESSAGE) + Case 2 + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_HANDJACK_TEXT) + Case 3 + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_ISOLATED_TEXT) + Case else + 'hide the message + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN + End Select + end if + +end sub + + + + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: GSH_UPDATEDISPLAYPAGE +' Used in conjunction with GSH_ONSHAPECLICKEVENTHANDLER to launch associated page +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_UPDATEDISPLAYPAGE + Dim sOnDisp + sOnDisp = GSH_READDISPLAYCOMMUNICATIONKEYVALUE("Type"&cstr(PAGE_DISPLAYTYPE)&"Filename","") + if strcomp(sOnDisp, "", vbtextcompare) <> 0 then + window.navigate( sOnDisp & GSH_DISPLAYFILEEXTENSION ) + end if +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_UpdateFaceplate +' Launches new faceplate based on Registry Display Communication info +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_UpdateFaceplate() +'gsh_log_s("GSH_UpdateFaceplate") +dim sTagname, sTagFaceplate + + sTagname = GSH_READDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_FOCUSTAG ,"") + sTagFaceplate = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_TagFacePlate, "") +' GSH_UpdateFaceplate_Old(sTagName) + +' gsh_log("sTagName="&sTagname) +' gsh_log("sTagFaceplate="&sTagFaceplate) + + if strcomp(sTagFaceplate,"",vbtextcompare) <> 0 then + HDXPopupbehavior.CreatePopupWindow Ucase(sTagFaceplate) & GSH_DISPLAYFILEEXTENSION&"?"&"currentpoint="&sTagname,10,10,1 + else + HDXPopupbehavior.CreatePopupWindow GSH_READDISPLAYNAMES("") & GSH_FP_DEFAULTFACEPLATE & GSH_DISPLAYFILEEXTENSION&"?"&"currentpoint="&sTagname,10,10,1 + end if +'gsh_log_e("GSH_UpdateFaceplate sTagFaceplate = "&sTagFaceplate&", sTagname ="&sTagname) +end sub + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: Set Shape Focus +' Determines proper focusing for shape +'Parameters: +' oShape - HCS Shape that needs to test for focusing, must have shp_focus sub shape +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETSHAPEFOCUS(oShape) +'gsh_log_s("GSH_SETSHAPEFOCUS " & "oShape=" & oShape.id) +On error resume next + call GSH_SHOWSUBSHAPE(oShape.objects("focus")) + Dim shapeTag, shapeFocusStyle + shapeTag = GSH_GETSHAPETAG(oShape) + If GSH_DOESSHAPEREQUIRESPRINCIPLEFOCUS(shapeTag) then + shapeFocusStyle = GSH_CSSFOCUSPRINCIPAL + else if GSH_DOESSHAPEREQUIRESASSOCIATEDFOCUS(shapeTag) then + shapeFocusStyle = GSH_CSSFOCUSASSOCIATED + else + shapeFocusStyle = GSH_CSSFOCUSNONE + end if + end if + 'apply focus style + oShape.objects("focus").styleClass = shapeFocusStyle +'gsh_log_e("GSH_SETSHAPEFOCUS shapeFocusStyle, err = " &shapeFocusStyle & ", " & err) +end sub + +sub GSH_SETSASHAPEFOCUS(oShape, objectName) +'gsh_log_s("GSH_SETSHAPEFOCUS " & "oShape=" & oShape.id) +On error resume next + call GSH_SHOWSUBSHAPE(oShape.objects(objectName)) + Dim shapeTag, shapeFocusStyle + shapeTag = GSH_GETSHAPETAG(oShape) + If GSH_DOESSHAPEREQUIRESPRINCIPLEFOCUS(shapeTag) then + shapeFocusStyle = GSH_CSSFOCUSASSOCIATED +' gsh_log "Pfocus" + else if GSH_DOESSHAPEREQUIRESASSOCIATEDFOCUS(shapeTag) then + shapeFocusStyle = GSH_CSSFOCUSASSOCIATED +' gsh_log "Afocus" + else + shapeFocusStyle = GSH_CSSFOCUSNONE +' GSH_LOG "Nofocus" + end if + end if +'apply focus style + oShape.objects(objectName).styleClass = shapeFocusStyle +'gsh_log_e("GSH_SETSHAPEFOCUS shapeForcusStyle = " &shapeFocusStyle) +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function Does Shape Require Principle Focus +' Determines if shape tag matches tag currently in focus +'Parameters: +' shapeTag - tagname +'Returns: +' true (tagname passed in matches focusTag in Registry) +' false (tagnmae passed in does not match focusTag in Registry) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_DOESSHAPEREQUIRESPRINCIPLEFOCUS(shapeTag) +'gsh_log_s("GSH_DOESSHAPEREQUIRESPRINCIPLEFOCUS " & "shapeTag=" & shapeTag) +On error resume next + Dim tempReturn,currentFocusTag + tempReturn = false 'default + currentFocusTag = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_FOCUSTAG,"") + 'gsh_log("GSH_DOESSHAPEREQUIRESPRINCIPLEFOCUS comparing currentFocusTag="¤tFocusTag&" to shapeTag="&shapeTag) + if (strComp(currentFocusTag,shapeTag,vbTextCompare)=0) then + tempReturn = true + end if + GSH_DOESSHAPEREQUIRESPRINCIPLEFOCUS = tempReturn +'gsh_log_e("GSH_DOESSHAPEREQUIRESPRINCIPLEFOCUS retruning >>> " & cstr(tempReturn) & "<<<") +end function + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function Does Shape Require Associated Focus +' Determines if tag family or tag passed in matches current tag family +' in registry +'Parameters: +' shapeTag - tagname +'Returns: +' true (tagFamily information of tagname passed in matches tagFamily in Registry) +' false (tagFamily information of tagname passed in does not matche tagFamily in Registry) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_DOESSHAPEREQUIRESASSOCIATEDFOCUS(shapeTag) +'gsh_log_s("GSH_DOESSHAPEREQUIRESASSOCIATEDFOCUS " & "shapeTag=" & shapeTag) +on error resume next + Dim tempReturn,shapeTagFamily, currentTagFamily + tempReturn = false 'default + currentTagFamily = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_TAGFAM,"") + shapeTagFamily = GSH_READTAGINFORMATIONKEYVALUE(shapeTag,GSH_REGKEY_TAGFAM,"") + 'gsh_log("GSH_DOESSHAPEREQUIRESASSOCIATEDFOCUS comparing currentTagFamily="¤tTagFamily&" to shapeTagFamily="&shapeTagFamily) + if shapeTagFamily <> "" then + if (strComp(currentTagFamily, shapeTagFamily, vbTextCompare) = 0) then + tempReturn = true + end if + end if + GSH_DOESSHAPEREQUIRESASSOCIATEDFOCUS = tempReturn +'gsh_log_e("GSH_DOESSHAPEREQUIRESASSOCIATEDFOCUS retruning >>> " & cstr(tempReturn) & "<<<") +end function + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function Get Shape Tag +' Gets the tag associated with the Shape (a custom property) +'Parameters: +' oShape - HCS Shape with a custom property of type 'Point' and named 'Entity' +'Returns: +' Shape Custom property GSH_CPENTITY ("Entity") +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETSHAPETAG(oShape) +'gsh_log_s("GSH_GETSHAPETAG " & "oShape=" & oShape.id) +on error resume next + Dim tempReturn + tempReturn = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPENTITY, GSH_CPPOINT) + GSH_GETSHAPETAG = tempReturn +'gsh_log_e("GSH_GETSHAPETAG returning >>>" & tempReturn & "<<<" ) +end function + + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Is Alarming Disabled +'Parameters: +' oDataBoundObject - HCS Group Shape +'Returns: +' boolean +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_ISALARMINGDISABLED(oDataBoundObject) +'gsh_log_s("GSH_SCADA_ISALARMINGDISABLED oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim tempReturn + tempReturn = GSH_SCADA_ISALARMINGDISABLEDPARAMETER(oDataBoundObject, GSH_CPENTITY) +GSH_SCADA_ISALARMINGDISABLED = tempReturn +'gsh_log_e("GSH_SCADA_ISALARMINGDISABLED returning >>>" & cstr(tempReturn) & "<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Is Alarming Disabled Parameter +'Parameters: +' oDataBoundObject - HCS Group Shape +' paramName - Parameter Name +'Returns: +' boolean +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_ISALARMINGDISABLEDPARAMETER(oDataBoundObject, pointName) +'gsh_log_s("GSH_ISALARMINGDISABLEDPARAMETER oDataBoundObject=" & oDataBoundObject.id & ", pointName=" & pointName) +on error resume next +Dim tempReturn +tempReturn = false +Select Case GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,GSH_CPPOINTTYPE,GSH_CPVALUE) + Case GSH_CPPOINTTYPE_SCADA + if (GSH_GETPARAMETERVALUE(oDataBoundObject, pointName, GSH_SCADA_PARAM_ALARMDISABLED) <> 0) then + tempReturn = true + end if + Case GSH_CPPOINTTYPE_C200 + tempReturn = false + Case GSH_CPPOINTTYPE_C300 + tempReturn = false + case else + tempReturn = false + End Select +GSH_ISALARMINGDISABLEDPARAMETER = tempReturn +'gsh_log_e("GSH_ISALARMINGDISABLEDPARAMETER returning >>>" & cstr(tempReturn) & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Is Alarming Disabled Parameter +'Parameters: +' oDataBoundObject - HCS Group Shape +' paramName - Parameter Name +'Returns: +' boolean +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_ISALARMINGDISABLEDPARAMETER(oDataBoundObject, pointName) +'gsh_log_s("GSH_SCADA_ISALARMINGDISABLEDPARAMETER oDataBoundObject=" & oDataBoundObject.id & ", pointName=" & pointName) +on error resume next +Dim tempReturn +tempReturn = false + if (GSH_GETPARAMETERVALUE(oDataBoundObject, pointName, GSH_SCADA_PARAM_ALARMDISABLED) <> 0) then + tempReturn = true + end if +GSH_SCADA_ISALARMINGDISABLEDPARAMETER = tempReturn +'gsh_log_e("GSH_SCADA_ISALARMINGDISABLEDPARAMETER returning >>>" & cstr(tempReturn) & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Get Shape Custom Property +'Parameters: +' oShape - HCS Shape +'Returns: +' The value of the Custom Property +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,propertyName, propertyType) +'gsh_log_s("GSH_GETSHAPE_CUSTOM_PROPERTY " & "oShape=" & oShape.id & ",propertyName=" & propertyName& ",propertyType=" & propertyType) +on error resume next + Dim tempReturn + tempReturn = oShape.GetCustomProperty(propertyType,propertyName) + GSH_GETSHAPE_CUSTOM_PROPERTY = tempReturn +'gsh_log_e("GSH_GETSHAPE_CUSTOM_PROPERTY returning >>>" & tempReturn&"<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Get Shape Custom Property +'Parameters: +' oShape - HCS Shape +'Returns: +' The value of the Custom Property +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETSHAPE_CUSTOM_PROPERTY(oShape,propertyName, propertyType, propertyValue) +'gsh_log_s("GSH_SETSHAPE_CUSTOM_PROPERTY " & "oShape=" & oShape.id & ",propertyName=" & propertyName& ",propertyType=" & propertyType & ",propertyValue=" & propertyValue) +on error resume next + + oShape.SetCustomProperty propertyType, propertyName, propertyValue + +'gsh_log_e("GSH_SETSHAPE_CUSTOM_PROPERTY returning >>>" & tempReturn&"<<<") +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Is PV Data Bad +'Parameters: +' oDataScriptObject - data bound object within HCS shape +' bCheckNAN - check for PV value that is not a number +' bCheckTransmitter - check device sending data for errors +' bCheckRange - check PV value for value way out of range (station configurable unreasonably hi / lo alarm +'Returns: +' true of false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_ISDATABAD(oDataScriptObject,bCheckNAN,bCheckTransmitter,bCheckRange) +'gsh_log_s("GSH_SCADA_ISDATABAD " & "oDataScriptObject=" & oDataScriptObject.ID) +on error resume next + Dim bPVInError +' , bInUnreasonablyLowAlarm, bInUnreasonablyHighAlarm, bInTransmitterLowAlarm, bInTransmitterHighAlarm + bPVInError = false +' bInUnreasonablyLowAlarm = false +' bInUnreasonablyHighAlarm = false +' bInTransmitterLowAlarm = false +' bInTransmitterHighAlarm = false + if bCheckNAN then + if GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_CPPARAM_BADPV)<> 0 then + bPVInError = true + end if + end if + 'gsh_log ("PVInError"&bPVInError) +' if bCheckTransmitter then +' bInTransmitterLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_SCADA_PARAM_INTRANSMITTERLOWALARM)) +' bInTransmitterHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_SCADA_PARAM_INTRANSMITTERHIGHALARM)) +' end if +' if bCheckRange then +' bInUnreasonablyLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_SCADA_PARAM_INUNREASONABLYLOWALARM)) +' bInUnreasonablyHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_SCADA_PARAM_INUNREASONABLYHIGHALARM)) +' end if +' bAllTests = bPVInError +' bAllTests = ( bPVInError or bInUnreasonablyLowAlarm or bInUnreasonablyHighAlarm or bInTransmitterLowAlarm or bInTransmitterHighAlarm ) +'GSH_SCADA_ISDATABAD = bAllTests +GSH_SCADA_ISDATABAD = bPVInError +'gsh_log_e("GSH_SCADA_ISDATABAD returing " & bAllTests ) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_FP_SCADA_IsDataBad +'Parameters: +' oDataScriptObject - data bound object within HCS shape +' bCheckNAN - check for PV value that is not a number +' bCheckTransmitter - check device sending data for errors +' bCheckRange - check PV value for value way out of range (station configurable unreasonably hi / lo alarm +'Returns: +' true of false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_FP_SCADA_IsDataBad(oDataScriptObject,bCheckNAN,bCheckTransmitter,bCheckRange) +'gsh_log_s("GSH_FP_SCADA_IsDataBad " & "oDataScriptObject=" & oDataScriptObject.ID) +on error resume next + Dim bPVInError, bInUnreasonablyLowAlarm, bInUnreasonablyHighAlarm, bInTransmitterLowAlarm, bInTransmitterHighAlarm + bPVInError = false + bInUnreasonablyLowAlarm = false + bInUnreasonablyHighAlarm = false + bInTransmitterLowAlarm = false + bInTransmitterHighAlarm = false + if bCheckNAN then + if (oDataScriptObject.DataValue(GSH_SDR_CURRENTPOINT&"."&GSH_SCADA_PARAM_PVINERROR)<> 0) then : bPVInError = true: end if + end if + if bCheckTransmitter then + 'bInTransmitterLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_SCADA_PARAM_INTRANSMITTERLOWALARM)) + 'bInTransmitterHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_SCADA_PARAM_INTRANSMITTERHIGHALARM)) + end if + if bCheckRange then + 'bInUnreasonablyLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_SCADA_PARAM_INUNREASONABLYLOWALARM)) + 'bInUnreasonablyHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_SCADA_PARAM_INUNREASONABLYHIGHALARM)) + end if + bAllTests = ( bPVInError or bInUnreasonablyLowAlarm or bInUnreasonablyHighAlarm or bInTransmitterLowAlarm or bInTransmitterHighAlarm ) +GSH_FP_SCADA_IsDataBad = bAllTests +'gsh_log_e("GSH_FP_SCADA_IsDataBad returning " & bAllTests ) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Compare Highest Alarm Priority '''''''''''''''''''''''''''''' +'Parameters: +' iAlarmCode1 = Alarm Code 1 +' iAlarmCode2 = Alarm Code 2 +'Returns: Alarm Code = GSH_ACKLOW, GSH_ACKHIGH, GSH_ACKEMERG, +' GSH_UNACKLOW, GSH_UNACKHIGH, GSH_UNACKEMERG, GSH_NOALARMCODE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_COMPAREHIGHESTALARMPRIORITY(iAlarmCode1, iAlarmCode2) +'gsh_log_s("GSH_COMPAREHIGHESTALARMPRIORITY iAlarmCode1=" & iAlarmCode1 & ", iAlarmCode2=" & iAlarmCode2) +on error resume next + +Dim iAlarmCode + + iAlarmCode = GSH_NOALARMCODE + + if ((iAlarmCode1 = GSH_UNACKEMERG) or (iAlarmCode2 = GSH_UNACKEMERG)) then + iAlarmCode = GSH_UNACKEMERG + elseif ((iAlarmCode1 = GSH_UNACKHIGH) or (iAlarmCode2 = GSH_UNACKHIGH)) then + iAlarmCode = GSH_UNACKHIGH + elseif ((iAlarmCode1 = GSH_UNACKLOW) or (iAlarmCode2 = GSH_UNACKLOW)) then + iAlarmCode = GSH_UNACKLOW + elseif ((iAlarmCode1 = GSH_ACKEMERG) or (iAlarmCode2 = GSH_ACKEMERG)) then + iAlarmCode = GSH_ACKEMERG + elseif ((iAlarmCode1 = GSH_ACKHIGH) or (iAlarmCode2 = GSH_ACKHIGH)) then + iAlarmCode = GSH_ACKHIGH + elseif((iAlarmCode1 = GSH_ACKLOW) or (iAlarmCode2 = GSH_ACKLOW)) then + iAlarmCode = GSH_ACKLOW + end if + + + GSH_COMPAREHIGHESTALARMPRIORITY = iAlarmCode +'gsh_log_e("GSH_COMPAREHIGHESTALARMPRIORITY returing " & iAlarmCode) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Get Highest Alarm Priority '''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = data bound object within an HCS shape +'Returns: Alarm Code = GSH_ACKLOW, GSH_ACKHIGH, GSH_ACKEMERG, +' GSH_UNACKLOW, GSH_UNACKHIGH, GSH_UNACKEMERG, GSH_NOALARMCODE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETHIGHESTALARMPRIORITY(oDataBoundObject) +'gsh_log_s("GSH_GETHIGHESTALARMPRIORITY oDataBoundObject=" & oDataBoundObject.id) +on error resume next + +Dim iAlarmCode + + iAlarmCode = GSH_GETHIGHESTALARMPRIORITYPARAMETER(oDataBoundObject, GSH_CPENTITY) + GSH_GETHIGHESTALARMPRIORITY = iAlarmCode +'gsh_log_e("GSH_GETHIGHESTALARMPRIORITY returing " & iAlarmCode) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'TODO: hardcoded to fix. +'Function: Get Highest Alarm Priority Parameter''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = data bound object within an HCS shape +' paraName - Script Data parameter Name +'Returns: Alarm Code = GSH_ACKLOW, GSH_ACKHIGH, GSH_ACKEMERG, +' GSH_UNACKLOW, GSH_UNACKHIGH, GSH_UNACKEMERG, GSH_NOALARMCODE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETHIGHESTALARMPRIORITYPARAMETER(oDataBoundObject, pointName) +'gsh_log_s("GSH_GETHIGHESTALARMPRIORITYPARAMETER oDataBoundObject=" & oDataBoundObject.id & ", pointName=" & pointName) +on error resume next + Dim iAlarmCode, iAlarmSeverity, iUnackAlarmExists + iUnackAlarmExists = 0 + iAlarmSeverity = 0 + + '0 = no, 1 = low, 2= high, 3= urgent + iAlarmSeverity = oDataBoundObject.AlarmSeverity(pointName & "." & GSH_CPPARAM_PV) + + if oDataBoundObject.UnacknowledgedAlarm(pointName & "." & GSH_CPPARAM_PV) then + iUnackAlarmExists = 1 + else + iUnackAlarmExists = 0 + end if + iAlarmCode = GSH_NOALARMCODE + +' gsh_log "GSH_GETHIGHESTALARMPRIORITYPARAMETER error Alarm Severity = " & iAlarmSeverity & ", Unacknowledged Alarm = " & oDataBoundObject.UnacknowledgedAlarm(pointName & "." & GSH_CPPARAM_PV) + + select case(2*iAlarmSeverity+iUnackAlarmExists) + case 0 + iAlarmCode = GSH_NOALARMCODE + case 1 + iAlarmCode = GSH_NOALARMCODE + case 2 + iAlarmCode = GSH_ACKLOW + case 3 + iAlarmCode = GSH_UNACKLOW + case 4 + iAlarmCode = GSH_ACKHIGH + case 5 + iAlarmCode = GSH_UNACKHIGH + case 6 + iAlarmCode = GSH_ACKEMERG + case 7 + iAlarmCode = GSH_UNACKEMERG + case else + 'gsh_log "GSH_GETHIGHESTALARMPRIORITYPARAMETER error Alarm Severity = " & iAlarmSeverity & ", Unacknowledged Alarm = " & oDataBoundObject.UnacknowledgedAlarm(pointName & "." & GSH_CPPARAM_PV) + end select + 'return alarm code + GSH_GETHIGHESTALARMPRIORITYPARAMETER = iAlarmCode +'gsh_log "GSH_GETHIGHESTALARMPRIORITYPARAMETER info Alarm Severity = " & iAlarmSeverity & ", Unacknowledged Alarm = " & oDataBoundObject.UnacknowledgedAlarm(pointName & "." & GSH_CPPARAM_PV) +'gsh_log_e("GSH_GETHIGHESTALARMPRIORITYPARAMETER returing " & iAlarmCode) +end function + + + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_GETHIGHESTALARMPRIORITY_OP '''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = data bound object within an HCS shape +'Returns: Alarm Code = GSH_ACKLOW, GSH_ACKHIGH, GSH_ACKEMERG, +' GSH_UNACKLOW, GSH_UNACKHIGH, GSH_UNACKEMERG, GSH_NOALARMCODE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETHIGHESTALARMPRIORITY_OP(oDataBoundObject) +'gsh_log_s("GSH_GETHIGHESTALARMPRIORITY_OP oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim iAlarmCode + iAlarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oDataBoundObject, GSH_CPENTITY, GSH_CPPARAM_OP) + GSH_GETHIGHESTALARMPRIORITY_OP = iAlarmCode +'gsh_log_e("GSH_GETHIGHESTALARMPRIORITY_OP returing " & iAlarmCode) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = data bound object within an HCS shape +' paraName - Script Data parameter Name +'Returns: Alarm Code = GSH_ACKLOW, GSH_ACKHIGH, GSH_ACKEMERG, +' GSH_UNACKLOW, GSH_UNACKHIGH, GSH_UNACKEMERG, GSH_NOALARMCODE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oDataBoundObject, pointName, parameter) +'gsh_log_s("GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER oDataBoundObject=" & oDataBoundObject.id & ", paraName=" & pointName & "." ¶meter) +on error resume next + Dim iAlarmCode, iAlarmSeverity, iUnackAlarmExists + '0 = no, 1 = low, 2= high, 3= urgent + + iAlarmSeverity = oDataBoundObject.AlarmSeverity(pointName & "." & parameter) + + if oDataBoundObject.UnacknowledgedAlarm(pointName & "." & parameter) then + iUnackAlarmExists = 1 + else + iUnackAlarmExists = 0 + end if + iAlarmCode = GSH_NOALARMCODE + + select case(2*iAlarmSeverity+iUnackAlarmExists) + case 0 + iAlarmCode = GSH_NOALARMCODE + case 1 + iAlarmCode = GSH_NOALARMCODE + case 2 + iAlarmCode = GSH_ACKLOW + case 3 + iAlarmCode = GSH_UNACKLOW + case 4 + iAlarmCode = GSH_ACKHIGH + case 5 + iAlarmCode = GSH_UNACKHIGH + case 6 + iAlarmCode = GSH_ACKEMERG + case 7 + iAlarmCode = GSH_UNACKEMERG + case else + + end select + 'return alarm code +' gsh_log "GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER info Alarm Severity = " & iAlarmSeverity & ", Unacknowledged Alarm = " & oDataBoundObject.UnacknowledgedAlarm(pointName & "." & parameter) +' gsh_log_e("GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER returing " & iAlarmCode) + + GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER = iAlarmCode +end function + +function GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oDataBoundObject, pointName, parameter) +'gsh_log_s("GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER oDataBoundObject=" & oDataBoundObject.id & ", paraName=" & pointName & "." ¶meter) +on error resume next + Dim iAlarmCode, iAlarmPriority, iUnackAlarmExists + '0 = no, 1 = low, 2= high, 3= urgent + + iAlarmPriority = oDataBoundObject.DataValue(pointName & "." & parameter) + + if oDataBoundObject.UnacknowledgedAlarm(pointName & "." & parameter) then + iUnackAlarmExists = 1 + else + iUnackAlarmExists = 0 + end if + iAlarmCode = GSH_NOALARMCODE + + select case(2*iAlarmPriority+iUnackAlarmExists) + case 0 + iAlarmCode = GSH_NOALARMCODE + case 1 + iAlarmCode = GSH_NOALARMCODE + case 2 + iAlarmCode = GSH_ACKLOW + case 3 + iAlarmCode = GSH_UNACKLOW + case 4 + iAlarmCode = GSH_ACKHIGH + case 5 + iAlarmCode = GSH_UNACKHIGH + case 6 + iAlarmCode = GSH_ACKEMERG + case 7 + iAlarmCode = GSH_UNACKEMERG + case else +' gsh_log "GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER error Alarm Severity = " & iAlarmSeverity & ", Unacknowledged Alarm = " & oDataBoundObject.UnacknowledgedAlarm(pointName & "." & parameter) + end select + 'return alarm code + 'gsh_log "GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER info iAlarmPriority = " & iAlarmPriority & ", Unacknowledged Alarm = " &iUnackAlarmExists + + GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER = iAlarmCode +'gsh_log_e("GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER returing " & iAlarmCode) +end function + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Get Point PVSource ''''''''' '''''''''''''''''''''''''''''''''' +'Parameters: +' oShape - data bound object within an HCS Shape +'Returns: GSH_AUTO, GSH_MAN +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'return: GSH_AUTO, GSH_MAN +'Might be able to OMIT! +function GSH_GET_POINT_PVSOURCE(oDataBoundObject) +'gsh_log_s("GSH_GET_POINT_PVSOURCE " & "oDataBoundObject=" & oDataBoundObject.id) +on error resume next + dim tempReturn + Select Case GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject,GSH_CPVALUE,GSH_CPPOINTTYPE) + Case GSH_CPPOINTTYPE_SCADA + select case oDataBoundObject.DataValue(GSH_CPENTITY&"."&GSH_SCADA_PARAM_PVSOURCE) + case 0 + tempReturn = GSH_MAN + case 1 + tempReturn = GSH_AUTO + case else + tempReturn = GSH_AUTO 'Default + end select + Case GSH_CPPOINTTYPE_TPN + select case oDataBoundObject.DataValue(GSH_CPENTITY&"."&GSH_TPN_PARAM_PVSOURCE) + case 0 + tempReturn = GSH_MAN + case 1 + tempReturn = GSH_AUTO + case else + tempReturn = GSH_AUTO 'Default + end select + Case GSH_CPPOINTTYPE_C200 + tempReturn = GSH_NONE + CASE GSH_CPPOINTTYPE_C300 + tempReturn = GSH_NONE + End Select + GSH_GET_POINT_PVSOURCE = tempReturn +'gsh_log_e("GSH_GET_POINT_PVSOURCE returning >>>"&tempReturn&"<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Format Decimal Points''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject - data bound alphanumeric of HCS shape +'Returns: +' variant of formatted text to correct decimal places +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FORMATDECIMALPOINTS(oDataBoundObject) +'gsh_log_s("GSH_FORMATDECIMALPOINTS " & "oDataBoundObject=" & oDataBoundObject.id) +on error resume next + dim temp + temp = Right(GSH_READTAGINFORMATIONKEYVALUE(oDataBoundObject.parentElement.parentElement.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + oDataBoundObject.numericDisplayFormat = "%." & Right(GSH_READTAGINFORMATIONKEYVALUE(oDataBoundObject.parentElement.parentElement.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) & "f" +'gsh_log_e("GSH_FORMATDECIMALPOINTS decimal points=" & temp) +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Format State Descriptor''''''''''''''''''''''''''''''''''''''' +'Parameters: stateValue - Value +'Returns: State value with 1st letter upper case and rest lowercase +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_FORMATSTATEDESCRIPTOR(sValue) +'gsh_log_s("GSH_FORMATSTATEDESCRIPTOR " & "sValue= " & sValue) +on error resume next + Dim formatValue + formatValue = Ucase(Left(sValue, 1)) & LCase(Right(sValue, len(sValue) - 1)) + GSH_FORMATSTATEDESCRIPTOR = formatValue +'gsh_log_e("GSH_FORMATSTATEDESCRIPTOR returns "& formatValue) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Get Parameter Value +'Parameters: +' oDataBoundObject - HCS Shape with Entity (of type Point)Custom Property and Scripted Data tab +' enabled with parameters of entity (point) +' pointName - Name of the point +' pointParameter - parameter of point (must be set up in scripted data tab +'Returns: +' DataValue of pointName.pointParameter from Experion point database +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETPARAMETERVALUE(oDataBoundObject, pointName, pointParameter) +'gsh_log_s("GSH_GETPARAMETERVALUE " & "oDataBoundObject=" & oDataBoundObject.id & ",pointName=" & pointName & ",pointParameter=" & pointParameter) + Dim tempReturn +' gsh_log("GSH_GETPARAMETERVALUE>>" & oDataBoundObject.DataValue(pointName&"."&pointParameter)) + tempReturn = oDataBoundObject.DataValue(pointName&"."&pointParameter) + GSH_GETPARAMETERVALUE = tempReturn +'gsh_log_e("GSH_GETPARAMETERVALUE returning >>>" & tempReturn&"<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: Get Entity Parameter Value +'Parameters: +' oDataBoundObject - HCS Shape with Entity (of type Point) Custom Property and Scripted Data tab +' enabled with parameters of entity (point) +' parameter - parameter of point (must be set up in scripted data tab +'Returns: +' DataValue of GSH_CPENTITY("Entity").parameter from Experion point database +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,parameter) +'gsh_log_s("GSH_GETENTITYPARAMETERVALUE " & "oDataBoundObject=" & oDataBoundObject.id & ",parameter=" & parameter) + Dim tempReturn +' gsh_log("GSH_GETENTITYPARAMETERVALUE>>" & oDataBoundObject.DataValue(GSH_CPENTITY&"."¶meter)) + + tempReturn = oDataBoundObject.DataValue(GSH_CPENTITY&"."¶meter) + If (StrComp(tempReturn,"1.#QNAN",vbTextCompare)=0) then + tempReturn = GSH_BADPV_TEXT + end If + + GSH_GETENTITYPARAMETERVALUE = tempReturn +'gsh_log_e("GSH_GETENTITYPARAMETERVALUE returning >>>" & tempReturn&"<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: Show High Alarm +' sets the common High Alarm behaviour of HCS Shapes by using CSS +'Parameters: +' oShape - HCS Shape with 'shp_outline (object) with internal object named 'outline' +' shp_EAlarm, shp_HAlarm, shp_LAlarm +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHOWHIGHALARM(oShape,unAcknowledged) +'gsh_log_s("GSH_SHOWHIGHALARM oShape=" & oShape.id & ",unAcknowledged=" & cstr(unAcknowledged)) +on error resume next + oShape.objects("outline").style.visibility = GSH_VISIBLE +' oShape.objects("outlinestatic").style.visibility = GSH_VISIBLE + oShape.objects("txt_HAlarm").style.visibility = GSH_VISIBLE + oShape.objects("rec_HAlarm").style.visibility = GSH_VISIBLE + if unAcknowledged then oShape.objects("outline").styleClass = GSH_CSSALARMHIGHUNACK else oShape.objects("outline").styleClass = GSH_CSSALARMHIGHACK end if + oShape.objects("txt_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ovl_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("plg_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_EAlarm").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_SHOWHIGHALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: Show Low Alarm +' sets the common Low Alarm behaviour of HCS Shapes by using CSS +'Parameters: +' oShape - HCS Shape with 'shp_outline (object) with internal object named 'outline' +' shp_EAlarm, shp_HAlarm, shp_LAlarm +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHOWLOWALARM(oShape,unAcknowledged) +'gsh_log_s("GSH_SHOWLOWALARM oShape=" & oShape.id & ",unAcknowledged=" & cstr(unAcknowledged)) +on error resume next + + oShape.objects("txt_LAlarm").style.visibility = GSH_VISIBLE + oShape.objects("ovl_LAlarm").style.visibility = GSH_VISIBLE + if unAcknowledged then oShape.objects("outline").styleClass = GSH_CSSALARMLOWUNACK else oShape.objects("outline").styleClass = GSH_CSSALARMLOWACK end if + oShape.objects("txt_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("rec_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("plg_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("outline").style.visibility = GSH_VISIBLE +' oShape.objects("outlinestatic").style.visibility = GSH_VISIBLE + +'gsh_log_e("GSH_SHOWLOWALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: Show Emergency Alarm +' sets the common Emergency Alarm behaviour of HCS Shapes by using CSS +'Parameters: +' oShape - HCS Shape with 'shp_outline (object) with internal object named 'outline' +' shp_EAlarm, shp_HAlarm, shp_LAlarm +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHOWEMERGENCYALARM(oShape,unAcknowledged) +'gsh_log_s("GSH_SHOWEMERGENCYALARM oShape=" & oShape.id & ",unAcknowledged=" & cstr(unAcknowledged)) +on error resume next + oShape.objects("outline").style.visibility = GSH_VISIBLE +' oShape.objects("outlinestatic").style.visibility = GSH_VISIBLE + oShape.objects("txt_EAlarm").style.visibility = GSH_VISIBLE + oShape.objects("plg_EAlarm").style.visibility = GSH_VISIBLE + if unAcknowledged then oShape.objects("outline").styleClass = GSH_CSSALARMEMERGENCYUNACK else oShape.objects("outline").styleClass = GSH_CSSALARMEMERGENCYACK end if + oShape.objects("txt_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("rec_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ovl_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_LAlarm").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_SHOWEMERGENCYALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: Show No Alarm +' sets the common Alarm objects to not visible when point is not in alarm. +'Parameters: +' oShape - HCS Shape with 'shp_outline (object) with internal object named 'outline' +' shp_EAlarm, shp_HAlarm, shp_LAlarm +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHOWNOALARM(oShape) +'gsh_log_s("GSH_SHOWNOALARM oShape=" & oShape.id) +on error resume next + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("outline").styleClass = GSH_CSSALARMNONE +' oShape.objects("outlinestatic").style.visibility = GSH_HIDDEN + oShape.objects("txt_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("plg_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("rec_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ovl_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_LAlarm").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_SHOWNOALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'INIT DISPLAY '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_INITDISPLAY(DisplayType, sT2FileName, sT3FileName, sT4FileName, displayObject) +on error resume next +'gsh_log_s("GSH_INITDISPLAY " & "DisplayType=" & DisplayType & ",sT2FileName=" & sT2FileName & ",sT3FileName=" & sT3FileName & ",sT4FileName=" & sT4FileName & ",displayObject=" & displayObject.id) + Dim sDisplayLocation + Dim sTemp + Dim sUseT4Default + sDisplayLocation = GSH_READDISPLAYNAMES(GSH_DISPLAYDEFAULT_LOC) + Select Case DisplayType + Case 2 + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_T2FN,sT2FileName + Case 3 + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_T3FN,sT3FileName + GSH_WRITEDISPLAYINFORMATION sT2FileName, GSH_REGKEY_PRIORT3, sT3FileName + +''' was commented out 1June08 - but lost the right click to level 4n from tabs - JE + sUseT4Default = GSH_READDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_USET4,"NO") + If sUseT4Default = "YES" And sT4FileName <> "" Then + sTemp = sDisplayLocation & sT4FileName & GSH_DISPLAYFILEEXTENSION + 'GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_T4FN,sT4FileName + + 'Sept 12, 2008 - use window.external.CurrentPage instread of using safeview (CL) + 'because the safeview's function SetFocus does not work. + 'window.navigate call does not work either as it will display L4 on L3 place. + window.external.CurrentPage = sTemp + 'GSH_INVOKEDISPLAY GSH_SVIEW_TYPE4,sTemp + 'window.navigate(sTemp) + + + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_USET4,"NO" + End If +'' to here + Case 4 + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_T4FN,sT4FileName + GSH_WRITEDISPLAYINFORMATION sT2FileName, GSH_REGKEY_PRIORT4, sT4FileName + End Select + g_PageCurrentFocusTag = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_FOCUSTAG,"") + g_PageShapesInit = 1 + + g_PageLoadTimerID=window.setTimeout("g_PageLoadCompleted = true",1500/DisplayType) +'gsh_log_e("GSH_INITDISPLAY DisplayType=" & DisplayType) +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'INIT Faceplate ''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_INITFACEPLATE(sFaceplateFileName, displayObject) +'gsh_log_s("GSH_INITFACEPLATE " & "sFaceplateFileName=" & sFaceplateFileName & ",displayObject=" & displayObject.id) +on error resume next + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_FacePlateFN,sFaceplateFileName + txt_Description.value = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_REGKEY_DESCR, defaultString) + txt_Keyword.value = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_REGKEY_KEYWORD, defaultString) + txt_Units.value = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_REGKEY_UNITS, defaultString) + txt_alarmlim1.value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_ALARMLIM1) + txt_alarmlim2.value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_ALARMLIM2) + txt_alarmlim3.value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_ALARMLIM3) + txt_alarmlim4.value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_ALARMLIM4) + txt_euhi.value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_EUHI) + txt_eulo.value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_EULO) + +'Setup Alarm Limits +call showAlarmLimits + + call FP_RetrieveRegistryValues + call GSH_DetailTrendInitialize(ConAlpTagname.value) + call GSH_STARTDETAILTRENDTIMER(ConAlpTagname) +'gsh_log_e("GSH_INITFACEPLATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_INVOKEDISPLAY +'Use this function to open a URL in a specified Safeview Window +'sWindowType = SafeView Window Type +'sURL = URL of the Display +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_INVOKEDISPLAY (sWindowType, sURL) +'gsh_log_s("GSH_INVOKEDISPLAY sWindowType="&sWindowType&", sURL="&sURL) + dim sview + set sview = GetObject("" ,"Honeywell.Workspace.Client") + If sview.IsManagerActive = true then + 'dim bResult + 'bResult = sview.SetOutputFocus(sWindowType) + 'Sept12,2008 - Comment out because bResult is alway false (CL) + 'gsh_log("SetOutputFocus result "&bResult) + 'if bResult then + ' window.external.CurrentPage = sURL + 'end if + End if + window.external.CurrentPage = sURL + 'window.navigate(sURL) + set sview = nothing +'gsh_log_e("GSH_INVOKEDISPLAY") +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_UPDATESHAPESONDISPLAY +' This function fires the focus.onupdate event for all shapes' on the page +' It is called from the GSH_ONSHAPECLICKEVENTHANDLER on the page level +'***Assumes that the shape structure contains an object called +'*** focus +'sURL = URL of the Display +'06/07/07 removed check for shapename; now shapes can be renamed on the display +'06/07/07 use rec_datascript.onupdate instead of focus.update because it's +' still performant and has consistent updates for all shapes e.g. valves and levels +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_UPDATESHAPESONDISPLAY (sURL) +'gsh_log_s("GSH_UPDATESHAPESONDISPLAY sURL="&sURL) + +on error resume next + +Dim tempShape + For k=0 To (window.external.Page.children.length - 1) + set tempShape = window.external.Page.children(k).Objects("focus") +' set tempShape = window.external.Page.children(k).Objects("rec_datascript") + if tempShape then + tempShape.onupdate + end if + Next +set tempShape = nothing +'gsh_log_e("GSH_UPDATESHAPESONDISPLAY Focus SuppressedOnPgInit sURL="&sURL) +end sub + +' +'-------------------------------------END SHAPE GENERAL----------------------------------------------' +' + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' GSH_UPDATETAGNAMELABELONDISPLAY +' Updates the state of the TagNameLabel shape based on TagNameLabelVisible flag +' in the StationDataRespository +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_UPDATETAGNAMELABELONDISPLAY (sURL) +'gsh_log_s("GSH_UPDATETAGNAMELABELONDISPLAY sURL="&sURL) +on error resume next +Dim tempShape + For k=0 To (window.external.Page.children.length - 1) + set tempShape = window.external.Page.children(k).Objects("TagNameLabel_Script") + if tempShape then + tempShape.onupdate + end if + Next +set tempShape = nothing +'gsh_log_e("GSH_UPDATETAGNAMELABELONDISPLAY sURL="&sURL) +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' GSH_UPDATE_OPDEVMON_ONDISPLAY +' Updates the state of the OPDevMonitor shapes +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_UPDATE_OPDEVMON_ONDISPLAY (sURL) +'gsh_log_s("GSH_UPDATE_OPDEVMON_ONDISPLAY sURL="&sURL) +on error resume next +Dim tempShape + For k=0 To (window.external.Page.children.length - 1) + set tempShape = window.external.Page.children(k).Objects("OPDevMonitor_Script") + if tempShape then + tempShape.onupdate + end if + Next +set tempShape = nothing +'gsh_log_e("GSH_UPDATE_OPDEVMON_ONDISPLAY sURL="&sURL) +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' GSH_UPDATEPAGELINKONDISPLAY +' Updates the state of the GEN_PageLink shape based on PageLinkAlarmGroup +' in the Registry +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_UPDATEPAGELINKONDISPLAY (sURL) +'gsh_log_s("GSH_UPDATEPAGELINKONDISPLAY sURL="&sURL) +on error resume next +Dim tempShape + For k=0 To (window.external.Page.children.length - 1) + set tempShape = window.external.Page.children(k).Objects("PageLink_Script") + if tempShape then + tempShape.onupdate + end if + Next +set tempShape = nothing +'gsh_log_e("GSH_UPDATEPAGELINKONDISPLAY sURL="&sURL) +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GETDEMANDTREND''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sSection - registry section +' sKey - registry subkey +' sDefaultString - Default string if error of nothing found +'Returns: +' String, value of specified Demand\Trend subkey +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETDEMANDTREND(strSection,strKey,defaultString) +'gsh_log_s("GSH_GETDEMANDTREND " & "strSection=" & strSection & ",strKey=" & strKey & ",defaultString=" & defaultString ) +on error resume next + dim strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_DEMANDTRD & strSection & "\" & strKey + tempReturn = GSH_READREGISTRY(strRegLocation,defaultString) + GSH_GETDEMANDTREND = tempReturn +'gsh_log_e("GSH_GETDEMANDTREND returning " & tempReturn) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SETDEMANDTREND''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sSection - registry section +' sKey - registry subkey +' sDefaultString - Default string if error of nothing found +'Returns: +' String, value of specified Demand\Trend subkey +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETDEMANDTREND(strSection,strKey,strValue) +'gsh_log_s("GSH_SETDEMANDTREND " & "strSection=" & strSection & ",strKey=" & strKey & ",strValue=" & strValue ) +on error resume next + dim strRegLocation + strRegLocation = GSH_REGISTRY_DEMANDTRD & strSection & "\"& strKey +' 'gsh_log("GSH_SETDEMANDTREND checkPoint strRegLocation=" & strRegLocation) + GSH_WRITETOREGISTRY strRegLocation,strValue,"REG_SZ" +'gsh_log_e("GSH_SETDEMANDTREND") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SETANYTREND''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sTrendApp - trend application name +' sSection - registry section +' sKey - registry subkey +' sDefaultString - Default string if error of nothing found +'Returns: +' String, value of specified Demand\Trend subkey +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETANYTREND(strTrendApp,strSection,strKey,strValue) +'gsh_log_s("GSH_SETANYTREND " & "strTrendApp=" & strTrendApp & ", strSection=" & strSection & ", strKey=" & strKey & ", strValue=" & strValue ) +on error resume next + dim strRegLocation + strRegLocation = GSH_REGISTRY_OPERATORTREND & "\" & strTrendApp & "\" & strSection & "\"& strKey +' gsh_log("GSH_SETANYTREND checkPoint strRegLocation=" & strRegLocation) + GSH_WRITETOREGISTRY strRegLocation,strValue,"REG_SZ" +'gsh_log_e("GSH_SETANYTREND") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GETMENUCONFIG''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sKey - registry subkey +' sDefaultString - Default string if error of nothing found +'Returns: +' String, value of specified MenuConfig subkey +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETMENUCONFIG(strKey,defaultString) +'gsh_log_s("GSH_GETMENUCONFIG " & "strKey=" & strKey & ",defaultString=" & defaultString ) +on error resume next + dim strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_MENUCONFIG & strKey + 'gsh_log("GSH_GETMENUCONFIG checkPoint strRegLocation=" & strRegLocation) + tempReturn = GSH_READREGISTRY(strRegLocation,defaultString) + GSH_GETMENUCONFIG = tempReturn +'gsh_log_e("GSH_GETMENUCONFIG returning & " & tempReturn) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GETMENUCONFIG_EQUIPMENT''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sKey - registry subkey +' sDefaultString - Default string if error of nothing found +'Returns: +' String, value of specified MenuConfig subkey +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETMENUCONFIG_EQUIPMENT(strKey,defaultString) +'gsh_log_s("GSH_GETMENUCONFIG_EQUIPMENT " & "strKey=" & strKey & ",defaultString=" & defaultString ) +on error resume next + dim strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_MENUCONFIG_EQUIPMENT & strKey +' gsh_log("GSH_GETMENUCONFIG_EQUIPMENT checkPoint strRegLocation=" & strRegLocation) + tempReturn = GSH_READREGISTRY(strRegLocation,defaultString) + GSH_GETMENUCONFIG_EQUIPMENT = tempReturn +'gsh_log_e("GSH_GETMENUCONFIG_EQUIPMENT returning " & tempReturn) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_RIGHTCLICK '''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_RIGHTCLICK(oDataBoundObject) +'gsh_log_s("GSH_RIGHTCLICK " & "oDataBoundObject=" & oDataBoundObject) +Dim sTagName + sTagName = oDataBoundObject.getCustomProperty("point","Entity") + call GSH_RIGHTCLICKTAGNAME(oDataBoundObject, sTagName) +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_RIGHTCLICKTAGNAME ''''''''''''''''''''''''''''''''''''''''''''''''' +'06/01/07 Added sTagNameHDA from the TagInformation because the Historian names do not match the tagname +'06/01/07 parse out the function block for storing the itemAlias +'08/21/2008 (CL) Add a check to determine if we should use shortname for HDA Item path in order to work with Sasol PHD historian interface (Issue#21) +'10/06/2008 (CL) Add writing value of tag euhigh and eulow to trend range high and trend range low to allow the trend use +' the range from registry when the range is not available from the historian +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_RIGHTCLICKTAGNAME(oDataBoundObject, sTagName) +'gsh_log_s("GSH_RIGHTCLICKTAGNAME " & "oDataBoundObject=" & oDataBoundObject & " sTagName=" & sTagName) +Dim DispStr(), asCommandStr(), asTrendParams(),asDeleteParams(8), asTraceNames(8), asStepped(8),asPVFormat(8), asActive(8), asTrendParamShort(8), asEUHIGH(8), asEULOW(8) +Dim nRetVal,nNumTrendParams, nNumCommands, nCount, nIndex, nAddIndex, nDeleteIndex, nCommandIndex, nCancelIndex, istrLen, iPosition +Dim nNumTrends, vTrendAvail, sParseStr, sTemp, nActiveCount, sPathPrefix, sPVFormat, sTagNameAlias, sPVeuhigh, sPVeulow + 'Check Registry for Tag Name Alias + sTagNameAlias = GSH_READTAGINFORMATIONKEYVALUE(sTagName, GSH_REGKEY_TAGNAME_ALIAS, sTagName) + nIndex = 0 + nNumTrends = 8 + nNumTrendParams = GSH_READTAGINFORMATIONKEYVALUE(sTagName, "NoOfTrendingParams", 0) + nNumCommands = GSH_GETMENUCONFIG(GSH_REGKEY_NUMCMDS, 0) + sPVFormat = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT) + sPathPrefix = GSH_GETDEMANDTREND (GSH_REGISTRY_SETTINGS,GSH_REGKEY_PATHPREFIX, "") + + '10/06/2008 CL + sPVeuhigh = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_EUHIGH, 0) + sPVeulow = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_EULOW, 0) + + If nNumTrendParams > 0 Then + ReDim asTrendParams(nNumTrendParams-1) + End If + + If nNumCommands > 0 Then + ReDim asCommandStr(nNumCommands-1) + End If + + nActiveCount = 0 + For nCount = 1 To nNumTrends Step 1 + asTraceNames(nCount) = GSH_GETDEMANDTREND (GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, "") + asActive(nCount) = GSH_GETDEMANDTREND (GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, "OFF") + asDeleteParams(nCount) = "" + If asActive(nCount) <> "OFF" Then + nActiveCount = nActiveCount + 1 + asDeleteParams(nCount) = asTraceNames(nCount) + End If + Next + + If (nNumTrendParams > 0) Then + For nCount = 1 To nNumTrendParams Step 1 + asTrendParams(nCount-1) = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TRENDPARAM & nCount, "") + istrLen = len(asTrendParams(nCount-1)) + iPosition= Instr(1, asTrendParams(nCount-1) , ".",vbtextcompare) + asTrendParamShort(nCount-1) = right(asTrendParams(nCount-1), istrLen - iPosition) + asStepped(nCount) = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TRENDSTEPPED & nCount, "OFF") + Select Case asTrendParamShort(nCount-1) +' Select Case asTrendParams(nCount-1) + Case "PV" + asPVFormat(nCount) = sPVFormat + + '10/06/2008 CL + asEUHIGH(nCount) = sPVeuhigh + asEULOW(nCount) = sPVeulow + Case "SP" + asPVFormat(nCount) = sPVFormat + asEUHIGH(nCount) = sPVeuhigh + asEULOW(nCount) = sPVeulow + Case "OP" + asPVFormat(nCount) = "D1" + asEUHIGH(nCount) = 106.9 + asEULOW(nCount) = -6.9 + Case Else + asPVFormat(nCount) = "D1" + asEUHIGH(nCount) = 100 + asEULOW(nCount) = 0 + End Select + Next + End If + + If (nNumCommands > 0) Then + For nCount = 1 To nNumCommands Step 1 + asCommandStr(nCount-1) = GSH_GETMENUCONFIG(GSH_REGKEY_CMDSTR & nCount, "") + Next + End If + + dim tempNumber + tempNumber = nNumTrendParams + 5 + nNumCommands + nActiveCount + + ReDim DispStr(tempNumber) + DispStr(nIndex) = "Tag : " & sTagNameAlias + nIndex = nIndex + 1 + DispStr(nIndex) = "" + nIndex = nIndex + 1 + If (nNumTrendParams > 0) Then + nAddIndex = nIndex + For nCount = 0 To UBound(asTrendParams) Step 1 + DispStr(nIndex) = "Add Trace " & sTagNameAlias & "." & asTrendParams(nCount) + nIndex = nIndex + 1 + Next + End If + If (nActiveCount > 0) Then + DispStr(nIndex) = "" + nIndex = nIndex + 1 + nDeleteIndex = nIndex + For nCount = 1 To nNumTrends Step 1 + If asDeleteParams(nCount) <> "" Then + DispStr(nIndex) = "Delete Trace " & asDeleteParams(nCount) + nIndex = nIndex + 1 + End If + Next + DispStr(nIndex) = "" + nIndex = nIndex + 1 + Else + DispStr(nIndex) = "" + nIndex = nIndex + 1 + End If + If (nNumCommands > 0) Then + nCommandIndex = nIndex + For nCount = 0 To UBound(asCommandStr) Step 1 + DispStr(nIndex) = asCommandStr(nCount) + nIndex = nIndex + 1 + Next + End If + nCancelIndex = nIndex + + If nNumCommands = 0 Then + nCommandIndex = nCancelIndex + End If + + 'CallAgain: + nRetVal = 0 + do while nRetVal = 0 + + Dim ArrMenu ' As ArrPopupMenuX + Set ArrMenu = CreateObject("ArrPopupMenuXControl.ArrPopupMenuX") + ArrMenu.ShowMenuArr DispStr + nRetVal = ArrMenu.Item + If nActiveCount = 0 Then 'added this to handle case when all traces are inactive + nDeleteIndex = nAddIndex + nNumTrendParams + End If + loop + Set ArrMenu = Nothing + Dim sOPC1_PathPrefix,sOPC2_PathPrefix, sTagNameHDA, bUseShortNameForHDA + sOPC1_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY1PREFIX,"") + sOPC2_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY2PREFIX,"") + bUseShortNameForHDA = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_USESHORTNAME_FOR_HDAPATH,"") + + If ((nRetVal >= nAddIndex) And (nRetVal < nDeleteIndex)) Then + For nCount = 1 To nNumTrends Step 1 + If asActive(nCount) = GSH_OFF Then + sTagNameHDA = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TAGNAMEHDA, sTagName) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, sTagNameAlias & "." & asTrendParamShort(nRetVal - nAddIndex) + + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPCITEMPATH, sOPC1_PathPrefix & sTagName & "." & asTrendParams(nRetVal - nAddIndex) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPC2ITEMPATH, sOPC2_PathPrefix & sTagName & "." & asTrendParams(nRetVal - nAddIndex) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, GSH_ON + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TRENDSTEPPED, asStepped(nRetVal - nAddIndex + 1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_PVFORMATKEY, asPVFormat(nRetVal - nAddIndex + 1) + + 'Added 10/06/2008 (CL) add to allows trend to use range from registry if they are not available from historian + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_HIGH, asEUHIGH(nRetVal - nAddIndex + 1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_LOW, asEULOW(nRetVal - nAddIndex + 1) + + 'Added 08/21/2008 (CL) to work with Sasol PHD historian interface + 'Issue#21: http://wss-edm-1/clients/hcs/services/ISE-HCS8227/ClientProjectAccess/Lists/Issue%20Tracker/DispForm.aspx?ID=21 + If(UCASE(bUseShortNameForHDA) = "ON") then + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTrendParamShort(nRetVal - nAddIndex) + + Else + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTrendParams(nRetVal - nAddIndex) + End If + + Exit Sub + End If + Next + msgbox "Sorry ! No Traces available. Please delete a Trace before adding a new one." & Chr(13),,"HMI Operator Interface" + ElseIf ((nRetVal >= nDeleteIndex) And (nRetVal < nCommandIndex)) Then + nCount = nRetVal - nDeleteIndex + 1 + nDelete = 1 + For n = 1 To nNumTrends ' Step 1 + 'gsh_log("nCount"&nCount&",n"&n&", nDelete"&nDelete) + If asActive(n) <> GSH_OFF Then + If nDelete = nCount Then + 'gsh_log ("DELETE TRACE_"&n) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE&n,GSH_REGKEY_ACTIVE, GSH_OFF + Exit Sub + End If + nDelete = nDelete + 1 + End If + Next + + ElseIf (nRetVal >= nCommandIndex) And (nRetVal < nCancelIndex) Then + 'gsh_log("GSH_RIGHTCLICKTAGNAME nRetVal=" & nRetVal) + Dim nLen, nTemp, sCommandLeft, sCommandRight, sCommand + sParseStr = GSH_GETMENUCONFIG(GSH_REGKEY_CMDSTRING & ((nRetVal-nCommandIndex)+1), "") + nLen = Len(sParseStr) + nTemp = Instr(1,sParseStr,"XXXXXX",1) + + If nTemp = 0 Then ' do not need to add tag name to command + sCommand = sParseStr + Else + sCommandLeft = left(sParseStr,(nTemp - 1)) + nTemp = nLen - nTemp - 5 + If nTemp < 1 Then + sCommandRight = "" + Else + sCommandRight = right(sParseStr,(nTemp)) + End If + sCommand = sCommandLeft & sTagName & sCommandRight + End If + 'gsh_log("GSH_RIGHTCLICKTAGNAME sCommand=" & sCommand) + id = window.parent.external.shell(sCommand,1) + ElseIf (nRetVal = nCancelIndex) Then +' gsh_log_e("GSH_RIGHTCLICKTAGNAME1") + Exit Sub + End If +' gsh_log_e("GSH_RIGHTCLICKTAGNAME2") + Exit Sub +'gsh_log_e("GSH_RIGHTCLICKTAGNAME3") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_RIGHTCLICKEQUIPMENTNAME ''''''''''''''''''''''''''''''''''''''''''''''''' +'25Mar2008 created for Sasol - JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_RIGHTCLICKEQUIPMENTNAME(oDataBoundObject) +'gsh_log_s("GSH_RIGHTCLICKEQUIPMENTNAME ") +Dim DispStr(), asCommandStr() +Dim nRetVal, nNumCommands, nCount, nIndex, nCommandIndex, nCancelIndex, istrLen, iPosition +Dim sParseStr, sTemp, sPathPrefix, sEquipmentName, sSearchstring + + sEquipmentName = oDataBoundObject.GetCustomProperty("Value","TxtLabel") + sSearchstring = oDataBoundObject.GetCustomProperty("Value","Searchstring") + + nIndex = 0 + nNumCommands = GSH_GETMENUCONFIG_EQUIPMENT(GSH_REGKEY_NUMCMDS, 0) +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME sEquipmentName=" & sEquipmentName & ",nIndex=" & nIndex & ",nNumCommands=" & nNumCommands) + + nActiveCount = 0 + If nNumCommands > 0 Then + ReDim asCommandStr(nNumCommands-1) + For nCount = 1 To nNumCommands Step 1 + asCommandStr(nCount-1) = GSH_GETMENUCONFIG_EQUIPMENT(GSH_REGKEY_CMDSTR & nCount, "") + Next + End If + + dim tempNumber + tempNumber = 5 + nNumCommands +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME tempNumber=" &tempNumber) + + ReDim DispStr(tempNumber) +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME Dim of DispStr=" & UBound(DispStr)) + DispStr(nIndex) = "Tag : " & sEquipmentName + nIndex = nIndex + 1 + DispStr(nIndex) = "" + nIndex = nIndex + 1 +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME nIndex=" &nIndex) + + If (nNumCommands > 0) Then + nCommandIndex = nIndex + For nCount = 0 To UBound(asCommandStr) Step 1 + DispStr(nIndex) = asCommandStr(nCount) + nIndex = nIndex + 1 + Next + End If +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME after nNumCommands nIndex=" &nIndex) + nCancelIndex = nIndex +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME DispStr populated: nIndex=" & nIndex) + + 'Debugging +' For nCount = 0 To nIndex Step 1 +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME nCount=" &nCount&"DispStr(nCount)"& DispStr(nCount)) +' Next +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME nCommandIndex=" &nCommandIndex) + + If nNumCommands = 0 Then + nCommandIndex = nCancelIndex + End If + + 'CallAgain: + nRetVal = 0 + do while nRetVal = 0 + + Dim ArrMenu ' As ArrPopupMenuX + Set ArrMenu = CreateObject("ArrPopupMenuXControl.ArrPopupMenuX") + ArrMenu.ShowMenuArr DispStr + nRetVal = ArrMenu.Item +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME nRetVal=" & nRetVal) + loop + Set ArrMenu = Nothing + If (nRetVal >= nCommandIndex) And (nRetVal < nCancelIndex) Then +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME nRetVal=" & nRetVal) + Dim nLen, nTemp, sCommandLeft, sCommandRight, sCommand + sParseStr = GSH_GETMENUCONFIG_EQUIPMENT(GSH_REGKEY_CMDSTRING & ((nRetVal-nCommandIndex)+1), "") + nLen = Len(sParseStr) + nTemp = Instr(1,sParseStr,"XXXXXX",1) + + If nTemp = 0 Then ' do not need to add search string to command + sCommand = sParseStr + Else + sCommandLeft = left(sParseStr,(nTemp - 1)) + nTemp = nLen - nTemp - 5 + If nTemp < 1 Then + sCommandRight = "" + Else + sCommandRight = right(sParseStr,(nTemp)) + End If + sCommand = sCommandLeft & sSearchString & sCommandRight + End If +' gsh_log("GSH_RIGHTCLICKEQUIPMENTNAME sCommand=" & CStr(sCommand) & " sCommandLeft=" & sCommandLeft &" sCommandRight=" & sCommandRight) + id = window.parent.external.shell(CStr(sCommand),1) + ElseIf (nRetVal = nCancelIndex) Then +' gsh_log_e("GSH_RIGHTCLICKEQUIPMENTNAME1") + Exit Sub + End If +' gsh_log_e("GSH_RIGHTCLICKEQUIPMENTNAME2") + Exit Sub +'gsh_log_e("GSH_RIGHTCLICKEQUIPMENTNAME3") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GET_POINT_RAMPING_VALUE'''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = grp subshape name or me, if calling within subshape +'Returns GSH_RAMPING_NONE or GSH_RAMPING_RUN or GSH_RAMPING_PRESET or value from control database +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GET_POINT_RAMPING_VALUE(oDataBoundObject) +'gsh_log_s("GSH_GET_POINT_RAMPING_VALUE oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim tempReturn +tempReturn = GSH_RAMPING_NONE + Select Case GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_RAMP) + Case GSH_RAMPING_RUN + tempReturn = GSH_RAMPING_RUN + Case GSH_RAMPING_PRESET + tempReturn = GSH_RAMPING_PRESET + Case else + tempReturn = GSH_RAMPING_NONE + End Select +GSH_GET_POINT_RAMPING_VALUE = tempReturn +'gsh_log_e("GSH_GET_POINT_RAMPING_VALUE returning >>>" & tempReturn & "<<<") +end function + +function GSH_SHOWWINDUPSTATUS(sWindupCode,oShape) +'gsh_log_s("GSH_SHOWWINDUPSTATUS " & "sWindupCode=" & sWindupCode & ",oShape=" & oShape.id) +dim tempReturn: tempReturn = true + Select Case sWindupCode + Case GSH_WINDUP_LO + oShape.objects("plg_OpLow").style.visibility = GSH_VISIBLE + Case GSH_WINDUP_HI + oShape.objects("plg_OpHigh").style.visibility = GSH_VISIBLE + Case GSH_WINDUP_INIT + oShape.objects("txt_Initialization").style.visibility = GSH_VISIBLE + Case else + tempReturn = false 'do nothing because visibility is hidden by default and in Show Normal + end Select +GSH_SHOWWINDUPSTATUS = tempReturn +'gsh_log_e("GSH_SHOWWINDUPSTATUS returns >>>>>>>>> "&tempReturn) +end function +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_C200_ISALARMINGDISABLEDPARAMETER +'Parameters: +' oDataBoundObject - HCS Group Shape +' pointName - point Name +'Returns: +' boolean +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_ISALARMINGDISABLEDPARAMETER(oDataBoundObject, pointName) +'gsh_log_s("GSH_C200_ISALARMINGDISABLEDPARAMETER oDataBoundObject=" & oDataBoundObject.id & ", pointName=" & pointName) +on error resume next + Dim tempReturn + tempReturn = GSH_GETPARAMETERVALUE(oDataBoundObject, pointName, GSH_C200_PARAM_ALARMDISABLED) + if ( tempReturn = 0) then: tempReturn = true: else: tempReturn = false: end if +GSH_C200_ISALARMINGDISABLEDPARAMETER = tempReturn +'gsh_log_e("GSH_C200_ISALARMINGDISABLEDPARAMETER returning >>>" & cstr(tempReturn) & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_ANALOG_POINT_IS_OFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oDataBoundObject,sPointName,sOffNormalParam) +'gsh_log_s("GSH_C200_ANALOG_POINT_IS_OFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ",sOffNormalParam=" & sOffNormalParam ) +on error resume next +Dim tempReturn + +'''''Jamie Jan. 24, 2010''''' + + tempReturn = false + temp = GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam) + if strComp(temp,GSH_NODATA,vbTextCompare)<> 0 then + if strComp(temp,GSH_AUTO,vbTextCompare) <> 0 then + tempReturn = true + end if + end if +GSH_C200_ANALOG_POINT_IS_OFFNORMAL = tempReturn +'gsh_log_e("GSH_C200_ANALOG_POINT_IS_OFFNORMAL returning >>>" & tempReturn & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITAL_POINT_IS_OFFNORMAL''''''''''''''''''''''''''''''''' +'Function: only checks if Digital State is offnormal +'Parameters: +' oDataBoundObject = id of object with script data tab +' sPointName = Point name from to access tagname +' sDigitalStateTxt = string value to compare to registry tag info to determine if its offnormal +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oDataBoundObject,sPointName, sDigitalStateTxt) +'gsh_log_s("GSH_C200_DIGITAL_POINT_IS_OFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName) +on error resume next + Dim sTagname, sIsDigitalStateOffnormal + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + sIsDigitalStateOffnormal = GSH_DIGITAL_GETOFFNORMALSTATUS(sTagname, GSH_REGKEY_PVNORMAL_STATE, sDigitalStateTxt) + GSH_C200_DIGITAL_POINT_IS_OFFNORMAL = sIsDigitalStateOffnormal +'gsh_log_e("GSH_C200_DIGITAL_POINT_IS_OFFNORMAL returning >>>" & sIsDigitalStateOffnormal & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITAL_POINT_OP_ISOFFNORMAL''''''''''''''''''''''''''''''''' +'Function: only checks if Digital State is offnormal +'Parameters: +' oDataBoundObject = id of object with script data tab +' sPointName = Point name from to access tagname +' sDigitalStateTxt = string value to compare to registry tag info to determine if its offnormal +'Returns true or false +'Author: Didi Ekaette - August 1, 2007 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_DIGITAL_POINT_OP_ISOFFNORMAL(oDataBoundObject,sPointName, sDigitalStateTxt) +'gsh_log_s("GSH_C200_DIGITAL_POINT_OP_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName) +on error resume next + Dim sTagname, sIsDigitalStateOffnormal + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + sIsDigitalStateOffnormal = GSH_DIGITAL_GETOFFNORMALSTATUS(sTagname, GSH_REGKEY_OPNORMAL_STATE, sDigitalStateTxt) + GSH_C200_DIGITAL_POINT_OP_ISOFFNORMAL = sIsDigitalStateOffnormal +'gsh_log_e("GSH_C200_DIGITAL_POINT_IS_OFFNORMAL returning >>>" & sIsDigitalStateOffnormal & "<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITAL_GETOFFNORMALSTATUS''''''''''''''''''''''''''''''''' +'Parameters: +' sTagname = tag to access registry info for +' sRegKey = where to access registry tag information(GSH_REGKEY_PV_NORMAL_STATE, GSH_REGKEY_NMODATTR, GSH_REGKEY_NMODE) +' sParameterValue = string value to compare to registry tag info to determine if its offnormal +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_DIGITAL_GETOFFNORMALSTATUS(sTagname, sRegKey, sParameterValue) +'gsh_log_s("GSH_DIGITAL_GETOFFNORMALSTATUS sTagname="&sTagname&", sRegKey="&sRegKey&", sParameterValue="&sParameterValue) +on error resume next + Dim sOffNormalIndicatorStatus, sPVNormalState: sOffNormalIndicatorStatus = false + sPVNormalState = GSH_READTAGINFORMATIONKEYVALUE(sTagname, sRegKey, GSH_NONE) + if (strComp(sPVNormalState,GSH_NONE,vbTextCompare) <> 0) then 'if Registry key is not None + if (strComp(sParameterValue,sPVNormalState,vbTextCompare) <> 0) then + sOffNormalIndicatorStatus = true + end if + end if +GSH_DIGITAL_GETOFFNORMALSTATUS = sOffNormalIndicatorStatus +'gsh_log_e("GSH_DIGITAL_GETOFFNORMALSTATUS returning >>>" & sOffNormalIndicatorStatus & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_DIGITAL_GETOFFNORMALINDSTATUS''''''''''''''''''''''''''''''''' +'Parameters: +' sTagname = tag to access registry info for +' sRegKey = where to access registry tag information(GSH_REGKEY_PV_NORMAL_STATE, GSH_REGKEY_NMODATTR, GSH_REGKEY_NMODE) +' sParameterValue = string value to compare to registry tag info to determine if its offnormal +'Returns GSH_HIDDEN or GSH_VISIBLE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_FP_DIGITAL_GETOFFNORMALINDSTATUS(sTagname, sRegKey, sParameterValue) +'gsh_log_s("GSH_FP_DIGITAL_GETOFFNORMALINDSTATUS sTagname="&sTagname&", sParameterValue="&sParameterValue) +on error resume next + Dim sOffNormalIndicatorStatus, sPVNormalState: sOffNormalIndicatorStatus = GSH_HIDDEN + sPVNormalState = GSH_READTAGINFORMATIONKEYVALUE(sTagname, sRegKey, GSH_NONE) + if (strComp(sPVNormalState,GSH_NONE,vbTextCompare) <> 0) then 'if Registry key is not None + if (strComp(sParameterValue,sPVNormalState,vbTextCompare) <> 0) then + sOffNormalIndicatorStatus = GSH_VISIBLE + end if + end if +GSH_FP_DIGITAL_GETOFFNORMALINDSTATUS = sOffNormalIndicatorStatus +'gsh_log_e("GSH_FP_DIGITAL_GETOFFNORMALINDSTATUS returning >>>" & sOffNormalIndicatorStatus & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITAL_OP_POINT_IS_OFFNORMAL''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Returns true or false +'06/09/07 not needed for digital output indicator +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'function GSH_C200_DIGITAL_OP_POINT_IS_OFFNORMAL(oDataBoundObject,sPointName) +'gsh_log_s("GSH_C200_DIGITAL_OP_POINT_IS_OFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName) +'on error resume next + 'Dim tempReturn,shapePoint, bOffNormalTest1, sPVNormalState + 'shapePoint = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + 'tempReturn = false + 'bOffNormalTest1 = false + 'sPVNormalState = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_PV_NORMAL_STATE, GSH_PVNORMALSTATE_OFFNORMAL) + 'if (strComp(sPVNormalState,GSH_PVNORMALSTATE_OFFNORMAL,vbTextCompare) <> 0) then 'if Registry PVNormalState is None + 'if (strComp(GSH_GETPARAMETERVALUE(oDataBoundObject,sPointName, GSH_CPPARAM_OP),sPVNormalState,vbTextCompare) <> 0) then + 'bOffNormalTest1 = true + 'end if + 'end if +'GSH_C200_DIGITAL_OP_POINT_IS_OFFNORMAL = bOffNormalTest1 +'gsh_log_e("GSH_C200_DIGITAL_OP_POINT_IS_OFFNORMAL returning >>>" & bOffNormalTest1 & "<<<") +'end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_REGCTL_POINT_ISOFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +' In addition to Analog point off normal check, checks other RegCtl offnormal conditions +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +' sParamName = Name of the param to check isNAN +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_REGCTL_POINT_ISOFFNORMAL(oDataBoundObject,sPointName,sOffNormalParam) +'gsh_log_s("GSH_C200_REGCTL_POINT_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ",sOffNormalParam=" & sOffNormalParam ) +on error resume next +Dim tempReturn,shapePoint, bOffNormalTest1,bOffNormalTest2, bOffNormalTest3 +Dim sNModAttr, sNMode + shapePoint = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + bOffNormalTest1 = false + bOffNormalTest2 = false + bOffNormalTest3 = false + tempReturn = false 'default + +'''''Jamie Jan. 24, 2010''''' + temp = GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam) + if strComp(temp,GSH_NODATA,vbTextCompare)<> 0 then + if strComp(temp,GSH_AUTO,vbTextCompare) <> 0 then + bOffNormalTest1 = true + end if + end if +' if (strcomp(GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam),GSH_AUTO,vbtextcompare)<>0) then +' bOffNormalTest1 = true +' end if + sNModAttr = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODATTR, GSH_NONE) + dim modAttr + modAttr = GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR) + if (strComp(sNModAttr,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NModAttr is None + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR),sNModAttr,vbTextCompare) <> 0) then + bOffNormalTest2 = true + end if + end if + sNMode = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODE, GSH_NONE) + if (strComp(sNMode,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NMode key is "None" + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE),sNMode,vbTextCompare) <> 0) then + bOffNormalTest3 = true + end if + end if + tempReturn = ( ( bOffNormalTest1 ) or ( bOffNormalTest2) or (bOffNormalTest3) ) + GSH_C200_REGCTL_POINT_ISOFFNORMAL = tempReturn +'gsh_log_e("GSH_C200_REGCTL_POINT_ISOFFNORMAL returning >>>"&bOffNormalTest1& " " & bOffNormalTest2 & " " & bOffNormalTest3 & cstr(tempReturn) & "<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_ValveREGCTL_POINT_ISOFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +' In addition to Analog point off normal check, checks other RegCtl offnormal conditions +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +' sParamName = Name of the param to check isNAN +'Returns true or false +'13/08/07 - Create the function to handle the cases where Mode and ModeAttr can be blank. +' In those cases, their values should not be used for checking offnormal. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_ValveREGCTL_POINT_ISOFFNORMAL(oDataBoundObject,sPointName,sOffNormalParam) +'gsh_log_s("GSH_C200_ValveREGCTL_POINT_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ",sOffNormalParam=" & sOffNormalParam ) +on error resume next +Dim tempReturn,shapePoint, bOffNormalTest1,bOffNormalTest2, bOffNormalTest3 +Dim sNModAttr, sNMode +Dim sModAttr, sMode + + shapePoint = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + bOffNormalTest1 = false + bOffNormalTest2 = false + bOffNormalTest3 = false + tempReturn = false 'default + if (strcomp(GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam),GSH_AUTO,vbtextcompare)<>0) then + bOffNormalTest1 = true + end if + + 'Check for ModeAttr + sNModAttr = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODATTR, GSH_NONE) + + sModAttr = GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR) + if (strComp(sNModAttr,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NModAttr is None + if (strComp(sModAttr,GSH_NODATA,vbTextCompare) <> 0 and strComp(sModAttr,sNModAttr,vbTextCompare) <> 0) then + bOffNormalTest2 = true + end if + end if + + sNMode = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODE, GSH_NONE) + sMode = GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE) + + if (strComp(sNMode,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NMode key is "None" + if (strComp(sModAttr,GSH_NODATA,vbTextCompare) <> 0 and strComp(sMode,sNMode,vbTextCompare) <> 0) then + bOffNormalTest3 = true + end if + end if + + tempReturn = ( ( bOffNormalTest1 ) or ( bOffNormalTest2) or (bOffNormalTest3) ) + + GSH_C200_ValveREGCTL_POINT_ISOFFNORMAL = tempReturn + +' gsh_log("sNModAttr = " &sNModAttr &" sModAttr = " &sModAttr) +' gsh_log_e("GSH_C200_ValveREGCTL_POINT_ISOFFNORMAL returning >>>"&bOffNormalTest1& " " & bOffNormalTest2 & " " & bOffNormalTest3 & cstr(tempReturn) & "<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_ANALOG_MODE_ISOFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +' In addition to Analog point off normal check, checks other RegCtl offnormal conditions +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +' sParamName = Name of the param to check isNAN +'Returns true or false +'Author: Didi Ekaette - Aug 3, 2007 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_ANALOG_MODE_ISOFFNORMAL(oDataBoundObject,sPointName) +'gsh_log_s("GSH_C200_ANALOG_MODE_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName ) +on error resume next +Dim tempReturn,shapePoint, bOffNormalTest1, bOffNormalTest2 +Dim sNModAttr, sNMode + shapePoint = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + bOffNormalTest1 = false + bOffNormalTest2 = false + tempReturn = false 'default + sNModAttr = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODATTR, GSH_NONE) + + if (strComp(sNModAttr,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NModAttr is None + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR),sNModAttr,vbTextCompare) <> 0) then + bOffNormalTest1 = true + end if + end if + sNMode = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODE, GSH_NONE) + if (strComp(sNMode,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NMode key is "None" + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE),sNMode,vbTextCompare) <> 0) then + bOffNormalTest2 = true + end if + end if + tempReturn = ( ( bOffNormalTest1) or (bOffNormalTest2) ) +GSH_C200_ANALOG_MODE_ISOFFNORMAL = tempReturn +'gsh_log_e("GSH_C200_ANALOG_MODE_ISOFFNORMAL returning >>>" & bOffNormalTest1 & " " & bOffNormalTest2 & cstr(tempReturn) & "<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +' In addition to Analog point off normal check, checks other RegCtl offnormal conditions +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL(oDataBoundObject,sPointName) +'gsh_log_s("GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ",sOffNormalParam=" & sOffNormalParam ) +on error resume next +Dim tempReturn,shapePoint, bOffNormalTest1,bOffNormalTest2 +Dim sNModAttr, sNMode + shapePoint = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + bOffNormalTest1 = false + bOffNormalTest2 = false + tempReturn = false 'default + sNModAttr = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODATTR, GSH_NONE) + if (strComp(sNModAttr,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NModAttr is None + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR),sNModAttr,vbTextCompare) <> 0) then + bOffNormalTest1 = true + end if + end if + sNMode = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODE, GSH_NONE) + if (strComp(sNMode,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NMode key is "None" + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE),sNMode,vbTextCompare) <> 0) then + bOffNormalTest2 = true + end if + end if + tempReturn = ( ( bOffNormalTest1 ) or ( bOffNormalTest2) ) +GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL = tempReturn +'gsh_log_e("GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL returning >>>"&bOffNormalTest1& " " & bOffNormalTest2 & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''GSH_SCADA_POINT_MODE_ISOFFNORMAL '''''''''''''''''''''''''' +'''''' Check if the given object is off normal in term of MODE ''''' +''parameter: oScriptDataObject: the data object to be checked '''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_POINT_MODE_ISOFFNORMAL(oScriptDataObject) + + dim shapePoint, offNormalTest, sNMode + + shapePoint = GSH_GETSHAPETAG(oScriptDataObject.parentElement.parentElement) + offNormalTest = false + sNMode = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODE, GSH_NONE) + + if (strComp(sNMode,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NMode key is "None" + if (strComp(GSH_GETENTITYPARAMETERVALUE(oScriptDataObject,GSH_CPPARAM_MODE),sNMode,vbTextCompare) <> 0) then + offNormalTest = true + end if + end if + + GSH_SCADA_POINT_MODE_ISOFFNORMAL = offNormalTest +end function + + +'GSH_C200_AUTOMAN_POINT_ISOFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_AUTOMAN_POINT_ISOFFNORMAL(oDataBoundObject,sPointName) +'gsh_log_s("GSH_C200_AUTOMAN_POINT_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName ) +on error resume next +Dim tempReturn,shapePoint, bOffNormalTest1,bOffNormalTest2 +Dim sNModAttr, sNMode + shapePoint = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + bOffNormalTest1 = false:bOffNormalTest2 = false: tempReturn = false 'default + sNModAttr = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODATTR, GSH_NONE) + if (strComp(sNModAttr,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NModAttr is None + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR),sNModAttr,vbTextCompare) <> 0) then + bOffNormalTest1 = true + end if + end if + sNMode = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODE, GSH_NONE) + if (strComp(sNMode,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NMode key is "None" + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE),sNMode,vbTextCompare) <> 0) then + bOffNormalTest2 = true + end if + end if + tempReturn = ( bOffNormalTest1 ) or ( bOffNormalTest2) +GSH_C200_AUTOMAN_POINT_ISOFFNORMAL = tempReturn +'gsh_log_e("GSH_C200_AUTOMAN_POINT_ISOFFNORMAL returning >>>"&bOffNormalTest1& " " & bOffNormalTest2 & " " & cstr(tempReturn) & "<<<") +end function +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_REGCTLGAP_DACA_POINT_ISOFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +' In addition to Analog point off normal check, checks other RegCtl offnormal conditions +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +' sParamName = Name of the param to check isNAN +' 08/13/07 - Add the check if sModAttr <> "" then do check for modeAttr. Reference issue #439 (Cuong Ly) +' 09/06/07 - Remove ModeAttr check because DACA function block does not has ModeAttr parameter. +' and rename function to GSH_C200_REGCTLGAP_DACA_POINT_ISOFFNORMAL (CL) +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_REGCTLGAP_DACA_POINT_ISOFFNORMAL(oDataBoundObject,sPointName,sOffNormalParam) +'gsh_log_s("GSH_C200_REGCTLGAP_DACA_POINT_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ",sOffNormalParam=" & sOffNormalParam ) +on error resume next +Dim tempReturn, bOffNormalTest1 + + bOffNormalTest1 = false + tempReturn = false 'default + if (strcomp(GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam),GSH_AUTO,vbtextcompare)<>0) then + bOffNormalTest1 = true + end if + + + tempReturn = bOffNormalTest1 +GSH_C200_REGCTLGAP_DACA_POINT_ISOFFNORMAL = tempReturn +'gsh_log_e("GSH_C200_REGCTLGAP_DACA_POINT_ISOFFNORMAL returning >>>"&bOffNormalTest1& " " & bOffNormalTest2 &" " & cstr(tempReturn) & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL(oDataBoundObject,sPointName,sOffNormalParam, sDigitalStateText) +'gsh_log_s("GSH_C200_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ",sOffNormalParam=" & sOffNormalParam & ",sDigitalStateText=" & sDigitalStateText) +on error resume next + Dim tempReturn,sTagname, bOffNormalTest1,bOffNormalTest2, bOffNormalTest3, sPVNormalState,sNModAttr + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + tempReturn = false: bOffNormalTest1 = false: bOffNormalTest2 = false: bOffNormalTest3 = false + if (strcomp(GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam),GSH_AUTO,vbTextCompare)<>0) then + bOffNormalTest1 = true + end if + bOffNormalTest2 = GSH_DIGITAL_GETOFFNORMALSTATUS(sTagname, GSH_REGKEY_PVNORMAL_STATE, sDigitalStateText) + bOffNormalTest3 = GSH_DIGITAL_GETOFFNORMALSTATUS(sTagname, GSH_REGKEY_NMODATTR, GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR)) + 'gsh_log("bOffNormalTest1="& bOffNormalTest1 &",bOffNormalTest2="&bOffNormalTest2& ",bOffNormalTest3="&bOffNormalTest3) + tempReturn = (bOffNormalTest1 or bOffNormalTest2 or bOffNormalTest3) +GSH_C200_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL = tempReturn +'gsh_log_e("GSH_C200_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL returning >>>" & tempReturn & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_SELECTOROUTPUT_POINT_ISOFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +' In addition to Analog point off normal check, checks other RegCtl offnormal conditions +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sPointName = Entity +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_SELECTOROUTPUT_POINT_ISOFFNORMAL(oDataBoundObject,sPointName) +'gsh_log_s("GSH_C200_SELECTOROUTPUT_POINT_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName ) +on error resume next +Dim tempReturn,shapePoint, bOffNormalTest1, sNMode + shapePoint = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + bOffNormalTest1 = false + tempReturn = false 'default + sNMode = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODE, GSH_NONE) + if (strComp(sNMode,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NMode key is "None" + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE),sNMode,vbTextCompare) <> 0) then + bOffNormalTest1 = true + end if + end if + tempReturn = bOffNormalTest1 +GSH_C200_SELECTOROUTPUT_POINT_ISOFFNORMAL = tempReturn +'gsh_log_e("GSH_C200_SELECTOROUTPUT_POINT_ISOFFNORMAL returning >>>" & cstr(tempReturn) & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_IS_POINT_OFF_NORMAL removed Apr 13, 2007 + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOG_POINT_IS_OFFNORMAL no longer needed as it was only checking if PV was NaN +' approved by HCS issue #284 06/08/07 + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOG_SCADA_POINT_IS_OFFNORMAL no longer needed as it was only checking if PV was NaN +' approved by HCS issue #284 06/08/07 + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITAL_SCADA_POINT_IS_OFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +' In addition to other offnormal checks, this function also checks PVNormalState in the Registry +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +' sParamName = Name of the param to compare to PVNormalState, eg. PV or OP +' sOffNormalParam = name of the off normal param to check, eg. PVSource +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oDataBoundObject,sPointName,sPVStateText) +'gsh_log_s("GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ", sPVStateText=" &sPVStateText) + Dim sIsDigitalStateOffnormal,sTagname, nPVNumValue, sPVNormalState: sIsDigitalStateOffnormal = false + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(ODataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + sPVNormalState = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_PV_NORMAL_STATE, GSH_NONE) + if (strComp(sPVNormalState,GSH_NONE,vbTextCompare) <> 0) then 'if Registry PVNormalState is NOT None + if (strComp(sPVStateText,sPVNormalState,vbTextCompare) <> 0) then + sIsDigitalStateOffnormal = true + end if + end if +GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL =sIsDigitalStateOffnormal +'gsh_log_e("GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL returning >>>" & sIsDigitalStateOffnormal & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITAL_SCADA_POINT_OP_ISOFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +' In addition to other offnormal checks, this function also checks OPNormalState in the Registry +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +' sParamName = Name of the param to compare to OPNormalState +' sOffNormalParam = name of the off normal param to check, eg. OPSource +'Returns true or false +'Author: Didi Ekaette August 1, 2007 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_DIGITAL_POINT_OP_ISOFFNORMAL(oDataBoundObject,sPointName,sOPStateText) +'gsh_log_s("GSH_SCADA_DIGITAL_POINT_OP_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ", sOPStateText=" &sOPStateText) + Dim sIsDigitalStateOffnormal,sTagname, nOPNumValue, sOPNormalState: sIsDigitalStateOffnormal = false + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(ODataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + sOPNormalState = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_OP_NORMAL_STATE, GSH_NONE) + if (strComp(sOPNormalState,GSH_NONE,vbTextCompare) <> 0) then 'if Registry OPNormalState is NOT None + if (strComp(sOPStateText,sOPNormalState,vbTextCompare) <> 0) then + sIsDigitalStateOffnormal = true + end if + end if +GSH_SCADA_DIGITAL_POINT_OP_ISOFFNORMAL =sIsDigitalStateOffnormal +'gsh_log_e("GSH_SCADA_DIGITAL_POINT_OP_ISOFFNORMAL returning >>>" & sIsDigitalStateOffnormal & "<<<") +end function + + +'NOTE: This function is replaced by GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oDataBoundObject,sPointName,sPVStateText) +'function above + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGCTL_POINT_ISOFFNORMAL remove Apr 13, 2007''''''''''''''''''' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' +''''''''''''''''''''''''''''''''''''' +' Only checks if Mode is offnormal +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +' sParamName = Name of the param to check isNAN +'Returns true or false +'06/08/07 Optimized code as this function no longer needs to call GSH_ANALOG_POINT_IS_OFFNORMAL +' and only checks mode. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oScriptDataObject,sTagName,sParamName) +'gsh_log_s("GSH_REGCTL_SCADA_POINT_ISOFFNORMAL oScriptDataObject=" & oScriptDataObject.id & ",sTagName=" &sTagName) +on error resume next +Dim tempReturn,shapePoint, sNMode + shapePoint = GSH_GETSHAPETAG(oScriptDataObject.parentElement.parentElement) + tempReturn = false 'default + sNMode = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODE, GSH_NONE) + if (strComp(sNMode,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NMode key is "None" + if (strComp(GSH_GETENTITYPARAMETERVALUE(oScriptDataObject,GSH_CPPARAM_MODE),sNMode,vbTextCompare) <> 0) then + tempReturn = true + end if + end if +GSH_REGCTL_SCADA_POINT_ISOFFNORMAL = tempReturn +'gsh_log_e("GSH_REGCTL_SCADA_POINT_ISOFFNORMAL returning >>>" & cstr(tempReturn) & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_C200_ANALOG_ISDATABAD +'Parameters: +' oDataScriptObject - data bound object within HCS shape +' bCheckNAN - check for PV value that is not a number +' bCheckTransmitter - check device sending data for errors +' bCheckRange - check PV value for value way out of range (station configurable unreasonably hi / lo alarm +'Returns: +' true of false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_ANALOG_ISDATABAD(oDataScriptObject,bCheckPVSts,bCheckTransmitter,bCheckRange) +'gsh_log_s("GSH_C200_ANALOG_ISDATABAD " & "oDataScriptObject=" & oDataScriptObject.ID) +on error resume next + Dim bPVInError, bAllTests, bInUnreasonablyLowAlarm, bInUnreasonablyHighAlarm, bInTransmitterLowAlarm, bInTransmitterHighAlarm + bPVInError = false + bInUnreasonablyLowAlarm = false + bInUnreasonablyHighAlarm = false + bInTransmitterLowAlarm = false + bInTransmitterHighAlarm = false + if bCheckPVSts then + if GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_CPPARAM_BADPV)<> 0 or oDataScriptObject.IsNan(GSH_CPENTITY & "." & GSH_CPPARAM_PV) then bPVInError = true end if + end if + 'gsh_log ("GSH_C200_ANALOG_ISDATABAD PVInError = "&bPVInError) + if bCheckTransmitter then + bInTransmitterLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INTRANSMITTERLOWALARM)) + bInTransmitterHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INTRANSMITTERHIGHALARM)) + end if + if bCheckRange then + bInUnreasonablyLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INUNREASONABLYLOWALARM)) + bInUnreasonablyHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INUNREASONABLYHIGHALARM)) + end if + bAllTests = ( bPVInError or bInUnreasonablyLowAlarm or bInUnreasonablyHighAlarm or bInTransmitterLowAlarm or bInTransmitterHighAlarm ) +GSH_C200_ANALOG_ISDATABAD = bAllTests +'gsh_log_e("GSH_C200_ANALOG_ISDATABAD returing " & bAllTests ) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_C200_DIGITAL_ISDATABAD (used in faceplates) +'Parameters: +' oDataScriptObject - data bound object within HCS shape +' bCheckNAN - check for PV value that is not a number +' bCheckTransmitter - check device sending data for errors +' bCheckRange - check PV value for value way out of range (station configurable unreasonably hi / lo alarm +'Returns: +' true of false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_DIGITAL_ISDATABAD(oDataScriptObject,bCheckPVSts,bCheckTransmitter,bCheckRange) +'gsh_log_s("GSH_C200_DIGITAL_ISDATABAD " & "oDataScriptObject=" & oDataScriptObject.ID) +on error resume next + Dim bPVInError, bAllTests, bInUnreasonablyLowAlarm, bInUnreasonablyHighAlarm, bInTransmitterLowAlarm, bInTransmitterHighAlarm + bPVInError = false + bInUnreasonablyLowAlarm = false + bInUnreasonablyHighAlarm = false + bInTransmitterLowAlarm = false + bInTransmitterHighAlarm = false + if bCheckPVSts then + if GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_CPPARAM_PV)<> 0 then bPVInError = true end if + end if + 'gsh_log ("GSH_C200_DIGITAL_ISDATABAD PVInError"&bPVInError) + if bCheckTransmitter then + bInTransmitterLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INTRANSMITTERLOWALARM)) + bInTransmitterHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INTRANSMITTERHIGHALARM)) + end if + if bCheckRange then + bInUnreasonablyLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INUNREASONABLYLOWALARM)) + bInUnreasonablyHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INUNREASONABLYHIGHALARM)) + end if + bAllTests = ( bPVInError or bInUnreasonablyLowAlarm or bInUnreasonablyHighAlarm or bInTransmitterLowAlarm or bInTransmitterHighAlarm ) +GSH_C200_DIGITAL_ISDATABAD = bAllTests +'gsh_log_e("GSH_C200_DIGITAL_ISDATABAD returing " & bAllTests ) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_C200_DIGITALCOMPOSITE_ISDATABAD +'Parameters: +' oDataScriptObject - data bound object within HCS shape +'Returns: true of false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_DIGITALCOMPOSITE_ISDATABAD(oDataScriptObject) +'gsh_log_s("GSH_C200_DIGITALCOMPOSITE_ISDATABAD " & "oDataScriptObject=" & oDataScriptObject.ID) +on error resume next + Dim bPVInError + bPVInError = false + 'oDataBoundObject.DataValue(GSH_CPENTITY&"."¶meter) + if strComp(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_CPPARAM_PV),"Bad",vbtextcompare) = 0 then + bPVInError = true + end if + GSH_C200_DIGITALCOMPOSITE_ISDATABAD = bPVInError +'gsh_log_e("GSH_C200_DIGITALCOMPOSITE_ISDATABAD returing " & bPVInError ) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_C200_REGCTL_ISDATABAD +'Parameters: +' oDataScriptObject - data bound object within HCS shape +' bCheckNAN - check for PV value that is not a number +' bCheckTransmitter - check device sending data for errors +' bCheckRange - check PV value for value way out of range (station configurable unreasonably hi / lo alarm +'Returns: +' true of false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_C200_REGCTL_ISDATABAD(oDataScriptObject,bCheckPVSts,bCheckTransmitter,bCheckRange) +'gsh_log_s("GSH_C200_REGCTL_ISDATABAD " & "oDataScriptObject=" & oDataScriptObject.ID) +on error resume next + Dim bPVInError, bAllTests, bInUnreasonablyLowAlarm, bInUnreasonablyHighAlarm, bInTransmitterLowAlarm, bInTransmitterHighAlarm + bPVInError = false + bInUnreasonablyLowAlarm = false + bInUnreasonablyHighAlarm = false + bInTransmitterLowAlarm = false + bInTransmitterHighAlarm = false + if bCheckPVSts then + if GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_CPPARAM_BADPV)<> 0 then bPVInError = true end if + end if +' gsh_log ("GSH_C200_REGCTL_ISDATABAD PVInError"&bPVInError) + if bCheckTransmitter then + bInTransmitterLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INTRANSMITTERLOWALARM)) + bInTransmitterHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INTRANSMITTERHIGHALARM)) + end if + if bCheckRange then + bInUnreasonablyLowAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INUNREASONABLYLOWALARM)) + bInUnreasonablyHighAlarm = cbool(GSH_GETENTITYPARAMETERVALUE(oDataScriptObject,GSH_C200_PARAM_INUNREASONABLYHIGHALARM)) + end if + bAllTests = ( bPVInError or bInUnreasonablyLowAlarm or bInUnreasonablyHighAlarm or bInTransmitterLowAlarm or bInTransmitterHighAlarm ) +GSH_C200_REGCTL_ISDATABAD = bAllTests +'gsh_log_e("GSH_C200_REGCTL_ISDATABAD returing " & bAllTests ) +end function + +'GSH_IS_POINT_INITIALIZING remove 06/27/07 + +'Returns GSH_WINDUP_HI, GSH_WINDUP_LO, GSH_WINDUP_INIT or GSH_WINDUP_NONE +function GSH_GET_POINT_WINDUP_VALUE(oDataBoundObject) +'gsh_log_s("GSH_GET_POINT_WINDUP_VALUE oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim tempReturn + tempReturn = GSH_WINDUP_NONE + tempReturn = GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_WINDUP ) +' gsh_log "tempReturn ="& tempReturn + Select Case tempReturn + Case GSH_WINDUP_HI + tempReturn = GSH_WINDUP_HI + Case GSH_WINDUP_LO + tempReturn = GSH_WINDUP_LO + Case GSH_WINDUP_HILO + tempReturn = GSH_WINDUP_INIT + Case else + tempReturn = GSH_WINDUP_NONE + End Select + GSH_GET_POINT_WINDUP_VALUE = tempReturn +'gsh_log_e("GSH_GET_POINT_WINDUP_VALUE returning >>>" & tempReturn & "<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ISINFOCUS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_ISINFOCUS(oDataBoundObject) +'gsh_log_s("GSH_ISINFOCUS oDataBoundObject=" & oDataBoundObject.id) +on error resume next + dim tempReturn + tempReturn = (not(oDataBoundObject.parentElement.objects("focus").styleClass = GSH_CSSFOCUSNONE)) + GSH_ISINFOCUS = tempReturn +'gsh_log_e("GSH_ISINFOCUS returning >>>>"&tempReturn&"<<<<") +end function + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SHOWALARMS'''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHOWALARMS(sAlarmPriority,bUnAcknowledge,oShape) +'gsh_log_s("GSH_SHOWALARMS " & "sAlarmPriority=" & sAlarmPriority & ",bUnAcknowledge=" & bUnAcknowledge & ",oShape=" & oShape.id) + select case sAlarmPriority + Case 0 'GSH_NOALARMCODE + Case 3 'GSH_UNACKEMERG + call GSH_SHOWEMERGENCYALARM(oShape,bUnAcknowledge) + Case 2 'GSH_UNACKHIGH + call GSH_SHOWHIGHALARM(oShape,bUnAcknowledge) + Case 1 'GSH_UNACKLOW + call GSH_SHOWLOWALARM(oShape,bUnAcknowledge) + End Select +'gsh_log_e("GSH_SHOWALARMS ") +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_SHOWPOINTALARMS +'Parameters: +' sAlarmCode - Code that describes alarm priority and ack status +' oShape - reference to the shape going into alarm +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHOWPOINTALARMS(sAlarmCode,oShape) +'gsh_log_s("GSH_SHOWPOINTALARMS " & "sAlarmCode=" & sAlarmCode & ",oShape=" & oShape.id) + Select Case sAlarmCode + Case GSH_NOALARMCODE + call GSH_SHOWNOALARM(oShape) + Case GSH_UNACKEMERG + call GSH_SHOWEMERGENCYALARM(oShape,true) + Case GSH_UNACKHIGH + call GSH_SHOWHIGHALARM(oShape,true) + Case GSH_UNACKLOW + call GSH_SHOWLOWALARM(oShape,true) + Case GSH_ACKEMERG + call GSH_SHOWEMERGENCYALARM(oShape,false) + Case GSH_ACKHIGH + call GSH_SHOWHIGHALARM(oShape,false) + Case GSH_ACKLOW + call GSH_SHOWLOWALARM(oShape,false) + Case Else + call GSH_SHOWNOALARM(oShape) + End Select +'gsh_log_e("GSH_SHOWPOINTALARMS ") +end sub +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_SHOWALARMS_WOOUTLINE +'Parameters: +' sAlarmCode - Code that describes alarm priority and ack status +' oShape - reference to the shape going into alarm +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SHOWALARMS_WOOUTLINE(sAlarmCode,oShape) +'gsh_log_s ("GSH_SHOWALARMS_WOOUTLINE " & "sAlarmCode=" & sAlarmCode & ",oShape=" & oShape.id) + Select Case sAlarmCode + Case GSH_NOALARMCODE + oShape.objects("txt_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("plg_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("rec_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ovl_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_NONE + Case GSH_UNACKEMERG + oShape.objects("txt_EAlarm").style.visibility = GSH_VISIBLE + oShape.objects("plg_EAlarm").style.visibility = GSH_VISIBLE + oShape.objects("txt_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("rec_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ovl_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_UNACKEMERG + Case GSH_ACKEMERG + oShape.objects("txt_EAlarm").style.visibility = GSH_VISIBLE + oShape.objects("plg_EAlarm").style.visibility = GSH_VISIBLE + oShape.objects("txt_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("rec_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ovl_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_ACKEMERG + Case GSH_UNACKHIGH + oShape.objects("txt_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("plg_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_HAlarm").style.visibility = GSH_VISIBLE + oShape.objects("rec_HAlarm").style.visibility = GSH_VISIBLE + oShape.objects("ovl_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_UNACKHIGH + Case GSH_ACKHIGH + oShape.objects("txt_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("plg_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_HAlarm").style.visibility = GSH_VISIBLE + oShape.objects("rec_HAlarm").style.visibility = GSH_VISIBLE + oShape.objects("ovl_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_ACKHIGH + Case GSH_UNACKLOW + oShape.objects("txt_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("plg_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("rec_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ovl_LAlarm").style.visibility = GSH_VISIBLE + oShape.objects("txt_LAlarm").style.visibility = GSH_VISIBLE + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_UNACKLOW + Case GSH_ACKLOW + oShape.objects("txt_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("plg_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("rec_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ovl_LAlarm").style.visibility = GSH_VISIBLE + oShape.objects("txt_LAlarm").style.visibility = GSH_VISIBLE + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_ACKLOW + Case Else + 'Show no alarms + oShape.objects("txt_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("plg_EAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("rec_HAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ovl_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("txt_LAlarm").style.visibility = GSH_HIDDEN + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_NONE + End Select +'gsh_log_e("GSH_SHOWALARMS_WOOUTLINE ") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TYPE2TABRBUTTONCLICK''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = subshape name or me, if calling within subshape +' +' Revised Jan 2, 2008 - JE to support smaller lists of displays and menu for selected L2 tab +' May 27, 2008 - fix problem when Registry key GSH_REGKEY_NUMOFT3 does not existed or = 0 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TYPE2TABRBUTTONCLICK(oShape) +'gsh_log_s("GSH_TYPE2TABRBUTTONCLICK oShape = "& oShape) +'On Error GoTo ErrorHandler + + Dim DispStr(), asAssocDisplays(), asAssocLabels() + Dim nRetVal, nAssocDisplays, nCnt, nIndex, nCancelIndex, nStartIndex + Dim sTabDisplayName, sTabLabel, sTemp, sPriorT3, sPriorT4, sPriorT4A, sDispLocation + Dim ArrMenu + + sDispLocation = GSH_READDISPLAYNAMES("") + sTabDisplayName = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPDISPLAYNAME) + sTabLabel = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPTABLEVEL) + + 'if the clicked tab is the same as the current Type 2 Diplay, exit sub + ' Remove this check to provide continuous shortcut menu --- JE - Jan 2, 2008 +'' If sTabDisplayName = GSH_READDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T2FN,"") Then +'' Exit Sub +'' End If + + nAssocDisplays = CSng(GSH_READDISPLAYINFO(sTabDisplayName, GSH_REGKEY_NUMOFT3, "0")) + if nAssocDisplays > 0 then 'this was set for nAssocDisplays > 3 --- JE - Jan 2, 2008 changed to >0 + ReDim asAssocDisplays(nAssocDisplays) + ReDim asAssocLabels(nAssocDisplays) + else 'add this path so that the next for loop won't produce error when #OfAssociatedDisplay = 0) (CL - May 27,2008) + Set ArrMenu = CreateObject("ArrPopupMenuXControl.ArrPopupMenuX") + ReDim DispStr(1) + DispStr(0) = "No associated display available" + ArrMenu.ShowMenuArr DispStr + Set ArrMenu = Nothing + Exit Sub + end if + + For nCnt = 1 To nAssocDisplays + sDisplay = "File3_" & nCnt + sLabel = "Label3_" & nCnt + asAssocDisplays(nCnt) = GSH_READDISPLAYINFO(sTabDisplayName, sDisplay, "") + 'gsh_log("asAssocDisplays("&nCnt&") is "&asAssocDisplays(nCnt)) + + asAssocLabels(nCnt) = GSH_READDISPLAYINFO(sTabDisplayName, sLabel, "") + Next + + asAssocDisplays(0) = sTabDisplayName + asAssocLabels(0) = sTabLabel + + nIndex = 0 + ' If nAssocDisplays <= 0 Then +' Exit Sub +' Else + ReDim DispStr(nAssocDisplays+4) + DispStr(nIndex) = sTabLabel + 'gsh_log("DispStr("&nIndex&") is "&DispStr(nIndex)) + nIndex = nIndex + 1 + DispStr(nIndex) = "" + 'gsh_log("DispStr("&nIndex&") is "&DispStr(nIndex)) + nStartIndex = nIndex + + nIndex = nIndex + 1 + For nCnt = 1 To nAssocDisplays + DispStr(nIndex) = asAssocLabels(nCnt) + 'gsh_log("DispStr("&nIndex&") is "&DispStr(nIndex)) + nIndex = nIndex + 1 + Next + + nCancelIndex = nIndex + + 'CallAgain: +' Dim ArrMenu + Set ArrMenu = CreateObject("ArrPopupMenuXControl.ArrPopupMenuX") + ArrMenu.ShowMenuArr DispStr + nRetVal = ArrMenu.Item + Set ArrMenu = Nothing +' gsh_log ("GSH_TYPE2TABRBUTTONCLICK nRetVal = "&nRetVal) + + If nRetVal < 0 Then + Exit Sub + Else + If nRetVal = nCancelIndex Then + Exit Sub + ElseIf nRetVal = 0 Then + If asAssocDisplays(0) <> "" Then + sTemp = sDispLocation & sTabDisplayName & GSH_DISPLAYFILEEXTENSION +' gsh_log("sTemp is "&sTemp) + 'path of the Prior Type3 Display page + sPriorT3 = GSH_READDISPLAYINFO(sTabDisplayName,"PriorType3","") +' gsh_log ("sPriorT3 = "& sPriorT3) + sPriorT3A = sDispLocation & sPriorT3 & GSH_DISPLAYFILEEXTENSION + 'path of the Prior Type4 Display page + sPriorT4 = GSH_READDISPLAYINFO(sTabDisplayName,"PriorType4","") +' gsh_log ("sPriorT4 = "& sPriorT4) + sPriorT4A = sDispLocation & sPriorT4 & GSH_DISPLAYFILEEXTENSION + call GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(GSH_FALSE) 'Reset all tagname labels to hidden + If sTabDisplayName <> "" Then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T2FN,sTabDisplayName) + 'gsh_log("Navigating to sTemp "&sTemp) + window.navigate(sTemp) + End If + If sPriorT3 <> "" Then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T3FN,sPriorT3) + window.navigate(sPriorT3A) + End If + If sPriorT4 <> "" Then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sPriorT4) + window.navigate(sPriorT4A) + End If + End If + Else + 'Selected Tab is a Type2 Display + If asAssocDisplays(nRetVal-nStartIndex) <> "" Then + call GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(GSH_FALSE) 'Reset all tagname labels to hidden + 'Selected Associated Type3 Display from RClick Menu + sTemp = sDispLocation & asAssocDisplays(nRetVal-nStartIndex) & GSH_DISPLAYFILEEXTENSION + If asAssocDisplays(nRetVal-nStartIndex) <> "" Then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_USET4,"YES") + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T3FN,asAssocDisplays(nRetVal-nStartIndex)) +' gsh_log("Navigating to sTemp "&sTemp) + window.navigate(sTemp) + End If + sTemp = sDispLocation & sTabDisplayName & GSH_DISPLAYFILEEXTENSION + If sTabDisplayName <> "" Then + ' Added check for current Type 2 as now allow right click on active Type 2 display ---- JE Jan. 2, 2008 + 'if the clicked tab is the same as the current Type 2 Diplay, exit sub + If sTabDisplayName = GSH_READDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T2FN,"") Then + Exit Sub + End if + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T2FN,sTabDisplayName) +' gsh_log("Navigating to sTemp "&sTemp) + window.navigate(sTemp) + End If + End If + End If + End If +' End If +'gsh_log_e("GSH_TYPE2TABRBUTTONCLICK") +end sub + + +'09/04/2007 - Added g_PageLoadCompleted check to make sure the page is completely loaded +' before user click b/c this generate problem of L4 loaded on L2 or L3 location. (CL) +'01/11/2008 - Modified so that the function will find and load a L3 page which is on the same +' satellite instead of loading the Prior L3 when the SAME_SATELLITE_LINK option in +' the registry is set to ON +'27Feb2008 - Added function to define the L4 display if the satellie option is on (JE) +'04Mar2008 - Added L1 tab handling +'18July2008 - Remove duplicated call to L4 display at the end of Case 2. +' +'Note: avoid using window.external.Parent.stationWindows because it might cause problems that requires +' the whole station to restart + +Sub GSH_NAVTAB_LCLICK (oShape) +'gsh_log_s("GSH_NAVTAB_LCLICK oShape = "& oShape.id &"Page Load Completed = " &g_PageLoadCompleted) + + + If(g_PageLoadCompleted) then + + Dim sTemp, sPriorT3, sPriorT3A, sPriorT4, sPriorT4A, sDispLocation, sDisplayName, sAssocDisplayName, sT2FileOnDisplay, sT3FileOnDisplay, sT4FileOnDisplay + sDispLocation = GSH_READDISPLAYNAMES("") + sDisplayName = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPDISPLAYNAME) + Dim displayLevel + displayLevel = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPDISPLAYLEVEL) + + window.clearTimeout g_PageLoadTimerID + g_PageLoadCompleted = false + g_PageLoadTimerID=window.setTimeout("g_PageLoadCompleted = true",2400/displayLevel) + + Select Case displayLevel + Case 1 + sTemp = sDispLocation & sDisplayName & ".htm" + If sDisplayName <> "" Then + window.navigate(sTemp) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T1FN,sDisplayName) + End if + Case 2 + sAssocDisplayName = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPASSOCLEVEL4) ' Added June 25, 2008 - JE - to catch L4_Blanks for Wintershall + sT2FileOnDisplay = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T2FN,"") + + + 'Compare DisplayName to Currently Displayed Type2FileName + If Ucase(sDisplayName) <> UCase(sT2FileOnDisplay) Then + + 'path of the Type2 Display page + sTemp = sDispLocation & sDisplayName & ".htm" + 'path of the Prior Type3 Display page + 'sPriorT3 = GSH_READDISPLAYINFO(sDisplayName,"PriorType3","") + sPriorT3 = FIND_L3PAGE(sDisplayName) + sPriorT3A = sDispLocation & sPriorT3 & ".htm" + 'path of the Prior Type4 Display page + + sPriorT4 = GSH_READDISPLAYINFO(sDisplayName,"PriorType4","") + + If sAssocDisplayName = "" Then ' Added June 25, 2008 + sPriorT4 = FIND_L4PAGE(sDisplayName,sPriorT3) + sPriorT4A = sDispLocation & sPriorT4 & ".htm" + Else ' + sPriorT4 = sAssocDisplayName ' + sPriorT4A = sDispLocation & sPriorT4 & ".htm" ' + End if + ' + call GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(GSH_FALSE) 'Reset all tagname labels to hidden + + + + '' Moved T4 Call ahead of T2 to try and stop the T4 being put into wrong window - 25June08 JE + If sPriorT4 <> "" Then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sPriorT4) + window.navigate(sPriorT4A) + End If + + + If sPriorT3 <> "" Then 'Navigate to L3 display first so that the PageLinkAlarmGroup is updated before the L2 display is refreshed. + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T3FN,sPriorT3) + window.navigate(sPriorT3A) + End If + + If sDisplayName <> "" Then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T2FN,sDisplayName) + window.navigate(sTemp) + End If + + End If + Case 3 + sAssocDisplayName = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPASSOCLEVEL4) + + 'path of the Type3 Display page + sTemp = sDispLocation & sDisplayName & ".htm" + sT3FileOnDisplay = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T3FN,"") + 'Compare DisplayName to Currently Displayed Type3FileName + + If Ucase(sTemp) <> Ucase(sT3FileOnDisplay) Then + + 'path of the Prior Type4 Display page + sPriorT4 = sDispLocation & sAssocDisplayName & ".htm" + + call GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(GSH_FALSE) 'Reset all tagname labels to hidden + + If sAssocDisplayName <> "" Then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sAssocDisplayName) + window.navigate(sPriorT4) + End If + + If sDisplayName <> "" Then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T3FN,sDisplayName) + window.navigate(sTemp) + End If + End If + Case 4 + sT4FileOnDisplay = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T4FN,"") + call GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(GSH_FALSE) 'Reset all tagname labels to hidden + 'Compare DisplayName to Currently Displayed Type4FileName + If Ucase(sDisplayName) <> Ucase(sT4FileOnDisplay) Then + 'path of the Type4 Display page + sTemp = sDispLocation & sDisplayName & ".htm" + If sDisplayName <> "" Then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sDisplayName) + window.navigate(sTemp) + + End If + End If + End Select + + End If +'gsh_log_e("GSH_NAVTAB_LCLICK") +End Sub + +function FIND_L3PAGE(sDisplayName) +'gsh_log_s("FIND_L3PAGE sDisplayName = "& sDisplayName) + + dim same_satellite_link, L3_page, i + + L3_page = "" + + same_satellite_link = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_SAME_SATELLITE_LINK,GSH_NONE) + + if strcomp (same_satellite_link, GSH_ON, vbtextcompare) <> 0 then + L3_page = GSH_READDISPLAYINFO(sDisplayName,"PriorType3","") + else + dim last_L3_page, satellite_code, satellite, numOfType3 + last_L3_page = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T3FN,GSH_NONE) + satellite_code = Mid(last_L3_page, 1, 4) + satellite_code = Replace(satellite_code, "_", "") + + numOfType3 = GSH_READDISPLAYINFO(sDisplayName,GSH_REGKEY_NUMOFT3,0) + dim type3Tmp + + for i=1 to numOfType3 + type3Tmp = GSH_READDISPLAYINFO(sDisplayName,"File3_"&i,"") + satellite = Mid(type3Tmp, 1, 4) 'new + satellite = Replace(satellite, "_", "") 'new + if strcomp (satellite,satellite_code, vbtextcompare) = 0 then + ' if InStr(type3Tmp,satellite_code)>0 then + L3_page=type3Tmp +' gsh_log("L3_page = " & L3_page) + Exit For + end if + next + 'This is for exceptional handle b/c the for loop should practically + 'handle all the cases. + if strcomp (L3_page, "", vbtextcompare) = 0 then + L3_page = GSH_READDISPLAYINFO(sDisplayName,"PriorType3","") +' gsh_log ("into exception L3_Page = " & L3_page) + end if + + end if + FIND_L3PAGE = L3_page +'gsh_log_e("FIND_L3PAGE oShape L3_PAGE="&L3_page) +end function + +function FIND_L4PAGE(sDisplayName,sL3Name) +'gsh_log_s("FIND_L4PAGE sDisplayName = "& sDisplayName) + + dim same_satellite_link, L4_page, i + + L4_page = "" + + same_satellite_link = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_SAME_SATELLITE_LINK,GSH_NONE) + + if strcomp (same_satellite_link, GSH_ON, vbtextcompare) <> 0 then + L4_page = GSH_READDISPLAYINFO(sDisplayName,"PriorType4","") + else + dim last_L3_page, satellite_code, satellite, numOfType3 + last_L3_page = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T3FN,GSH_NONE) + L4_page = Replace(sL3Name, "_L3_", "_L4_") + L4_page = L4_page & "_1" +' gsh_log("L4_page="&L4_page) + 'just in case + if strcomp (L4_page, "", vbtextcompare) = 0 then +' L4_page = GSH_READDISPLAYINFO(sDisplayName,"PriorType3","") - April 11, 2008 JE + L4_page = GSH_READDISPLAYINFO(sDisplayName,"PriorType4","") + end if + end if + FIND_L4PAGE = L4_page +'gsh_log_e("FIND_L4PAGE oShape L4_PAGE="&L4_page) +end function + +Const GSH_REGKEY_PAGELINKALARMGROUP = "PageLinkAlarmGroup" +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: GSH_PAGELINK_LCLICK +' Updates the PageLinkAlarmGroup registry key; Updates shapes on L2 Display; +' Launches associated L3 and L4 displays +'Parameters: +' oShape - required to access the Shape property CPEntity value +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_PAGELINK_LCLICK (oShape) +'gsh_log_s("GSH_PAGELINK_LCLICK oShape = "& oShape.id) + Dim sTemp, sDispLocation, sPgLinkTagName + Dim sAssocDisplayName3, sAssocDisplayName4, sT2FileOnDisplay, sT3FileOnDisplay, sT4FileOnDisplay + 'Store Tag Name in Display Communication Mailbox + sPgLinkTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_PAGELINKALARMGROUP,sPgLinkTagName + call GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(GSH_FALSE) 'Reset all tagname labels to hidden + 'Compare DisplayName to Currently Displayed Type2FileName + sDispLocation = GSH_READDISPLAYNAMES("") + sT2FileOnDisplay = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T2FN,"") + 'Update all shapes on Display Level 2 + GSH_UPDATESHAPESONDISPLAY sT2FileOnDisplay & GSH_DISPLAYFILEEXTENSION + 'Launch the associated display Level 3 if not currently displayed + sAssocDisplayName3 = UCase(oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPASSOCTYPE3)) + sT3FileOnDisplay = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T3FN,"") + If sAssocDisplayName3 <> "" Then + If Ucase(sT3FileOnDisplay) <> sAssocDisplayName3 Then + sTemp = sDisplayLocation & sAssocDisplayName3 & GSH_DISPLAYFILEEXTENSION + call GSH_WRITEDISPLAYINFORMATION (sT2FileOnDisplay, GSH_REGKEY_PRIORT3, sAssocDisplayName3) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T3FN,sAssocDisplayName3) + window.navigate(sTemp) + End If + 'Else What To do if custom prop is empty? Error Msg? + End if + 'Launch the associated display Type4 if not currently displayed + sAssocDisplayName4 = UCase(oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPASSOCTYPE4)) + sT4FileOnDisplay = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T4FN,"") + If sAssocDisplayName4 <> "" Then + If Ucase(sT4FileOnDisplay) <> sAssocDisplayName4 Then + sTemp = sDisplayLocation & sAssocDisplayName4 & GSH_DISPLAYFILEEXTENSION + call GSH_WRITEDISPLAYINFORMATION (sT2FileOnDisplay, GSH_REGKEY_PRIORT4, sAssocDisplayName4) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sAssocDisplayName4) + window.navigate(sTemp) + End If + Else 'What To do if custom prop is empty? + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_USET4,"YES") + End If +'gsh_log_e("GSH_PAGELINK_LCLICK") +End Sub + +Sub GSH_PAGELINK_ONUPDATE (oShape) +'gsh_log_s("GSH_PAGELINK_ONUPDATE oShape = "& oShape.id & " flag = "& flag) +on error resume next + call GSH_INITTABNORMAL(oShape) + If (strComp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_PAGELINKALARMGROUP,""),vbTextCompare) = 0) Then + call GSH_INITTABFOCUS (oShape) + End If + dim sAlarmPriority, bUnack + sAlarmPriority = GSH_GETALARMGROUPPRIORITYPARAMETER(oShape.objects("PageLink_Script"),GSH_CPENTITY) + bUnack = GSH_GETALARMGROUPUNACKPARAMETER(oShape.objects("PageLink_Script"),GSH_CPENTITY) + 'gsh_log ("sAlarmPriority = " & sAlarmPriority & "bUnack = " & bUnack ) + call GSH_SHOWALARMS (sAlarmPriority, bUnack, oShape) +'gsh_log_e("GSH_PAGELINK_ONUPDATE") +End Sub + +sub GSH_TABORGANIZER_UPDATEFOCUS (oShape) +Dim sFN(4) + 'oShape.Objects("focus").StyleClass = GSH_CSSTABFOCUSNORMAL + oShape.Objects("focus").StyleClass = GSH_CSSTABORAGANIZEROUTLINENORMAL 'Added 09Jan08 JE + For i = 1 to 4 + sFN(i) = oShape.GetCustomProperty("Text", "Filename"&i) + If (strComp(sFN(i),GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T2FN,""),vbTextCompare) = 0) Then + oShape.Objects("focus").StyleClass = GSH_CSSFOCUSASSOCIATEDTABORGANIZER 'GSH_CSSFOCUSASSOCIATED + exit for + end if + Next +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_NAVTAB_ONUPDATE +' Event handler for GEN_NAVIGATIONTAB shape. +' 05/31/07 Check if Entity is blank. If so then do not update alarms. AL(332) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_NAVTAB_ONUPDATE (oShape) +'gsh_log_s("GSH_NAVTAB_ONUPDATE oShape = "& oShape.id) +on error resume next + call GSH_INITTABNORMAL(oShape) + Dim sRegKey + sRegKey = 0 + Select Case oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPDISPLAYLEVEL) + Case 1 + sRegKey = GSH_REGKEY_T1FN + Case 2 + sRegKey = GSH_REGKEY_T2FN + Case 3 + sRegKey = GSH_REGKEY_T3FN + Case 4 + sRegKey = GSH_REGKEY_T4FN + End Select + If (strComp(oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPDISPLAYNAME),GSH_READDISPLAYCOMMUNICATIONKEYVALUE(sRegKey,""),vbTextcompare) = 0) Then + call GSH_INITTABFOCUS (oShape) + End If + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT, GSH_CPENTITY), "", VBTEXTCOMPARE) <> 0 then + If oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPDISPLAYLEVEL) = 1 then + ' skip alarm checking + exit sub + else + dim sAlarmPriority, bUnack + sAlarmPriority = GSH_GETALARMGROUPPRIORITYPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITY) + bUnack = GSH_GETALARMGROUPUNACKPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITY) + 'gsh_log ("sAlarmPriority = " & sAlarmPriority & " bUnack = " & bUnack ) + oShape.Objects("focus").linewidth = 0 + + if(sAlarmPriority > 0) then + call GSH_SHOWALARMS (sAlarmPriority, bUnack, oShape) + else + call GSH_SHOWNOALARM(oShape) + oShape.Objects("outline").styleClass = GSH_CSSTABOUTLINENORMAL + ' gsh_log ("setting outline") + end if + end if + end if +'gsh_log_e("GSH_NAVTAB_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_GETALARMGROUPPRIORITYPARAMETER''''''''''''''''''''''''' +'Alarm Groups are Experion Points aggregates all point types +'Parameters: +' oDataBoundObject = data bound object within an HCS shape +' paraName - Script Data parameter Name +'Returns: Alarm Code = GSH_ACKLOW, GSH_ACKHIGH, GSH_ACKEMERG, +' GSH_UNACKLOW, GSH_UNACKHIGH, GSH_UNACKEMERG, GSH_NOALARMCODE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETALARMGROUPPRIORITYPARAMETER(oDataBoundObject, pointName) +'gsh_log_s("GSH_GETALARMGROUPPRIORITYPARAMETER oDataBoundObject=" & oDataBoundObject.id & ", pointName=" & pointName) +on error resume next + Dim iAlarmCode + iAlarmCode = 0 + 'Check total alarms + iAlarmCode = GSH_GETPARAMETERVALUE(oDataBoundObject, pointName, GSH_EXPERION_PARAM_ALARMPRIORITY) + 'return alarm code + GSH_GETALARMGROUPPRIORITYPARAMETER = iAlarmCode +'gsh_log_e("GSH_GETALARMGROUPPRIORITYPARAMETER returning " & iAlarmCode) +end function +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_GETALARMGROUPPRIORITYPARAMETER''''''''''''''''''''''''' +'Alarm Groups are Experion Points aggregates all point types +'Parameters: +' oDataBoundObject = data bound object within an HCS shape +' paraName - Script Data parameter Name +'Returns: Alarm Code = GSH_ACKLOW, GSH_ACKHIGH, GSH_ACKEMERG, +' GSH_UNACKLOW, GSH_UNACKHIGH, GSH_UNACKEMERG, GSH_NOALARMCODE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETALARMGROUPUNACKPARAMETER(oDataBoundObject, pointName) +'gsh_log_s("GSH_GETALARMGROUPUNACKPARAMETER oDataBoundObject=" & oDataBoundObject.id & ", paraName=" & pointName) +on error resume next + Dim bUnack + bUnack = false + if (oDataBoundObject.DataValue(pointName & "." & GSH_EXPERION_PARAM_UNACKALARMEXISTS) = 1) then + bUnack = True + end if + GSH_GETALARMGROUPUNACKPARAMETER = bUnack +'gsh_log_e("GSH_GETALARMGROUPUNACKPARAMETER returning " & bUnack) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_INITTABNORMAL'''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_INITTABNORMAL(oShape) +'gsh_log_s("GSH_INITTABNORMAL " & "oShape=" & oShape.id) + oShape.Objects("focus").styleClass = GSH_CSSTABFOCUSNORMAL + oShape.Objects("outline").styleClass = GSH_CSSTABOUTLINENORMAL +'gsh_log_e("GSH_INITTABNORMAL ") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_INITTABFOCUS'''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_INITTABFOCUS(oShape) +'gsh_log_s("GSH_INITTABFOCUS " & "oShape=" & oShape.id) + 'show these objects + oShape.Objects("focus").StyleClass = GSH_CSSFOCUSASSOCIATED + oShape.Objects("outline").styleClass = GSH_CSSTABOUTLINENORMAL +'gsh_log_e("GSH_INITTABFOCUS ") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GEN_SETSHAPEFOCUS'''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape object +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GEN_SETSHAPEFOCUS(oShape) +'gsh_log_s("GSH_GEN_SETSHAPEFOCUS oShape=" & oShape.id) +on error resume next + call GSH_SETSHAPEFOCUS(oShape) + if (strcomp(oShape.objects("focus").styleClass,GSH_CSSFOCUSNONE,vbtextcompare) = 0) then + oShape.objects("outline").fillstyle = GSH_FILLSOLID + else + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT 'in focus, outline must be transparent + end if +'gsh_log_e("GSH_GEN_SETSHAPEFOCUS") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'ANALOGINDICATOR Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOGINDICATORSETFOCUS''''' +'Parameters: oShape = Shape object +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ANALOGINDICATORSETFOCUS(oShape) +'gsh_log_s("GSH_ANALOGINDICATORSETFOCUS oShape=" & oShape.id) +on error resume next + call GSH_SETSHAPEFOCUS(oShape) + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + end if +'gsh_log_e("GSH_ANALOGINDICATORSETFOCUS") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOGINDICATORSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ANALOGINDICATORSHOWNORMAL(oShape) +'gsh_log_s("GSH_ANALOGINDICATORSHOWNORMAL oShape=" & oShape.id) +on error resume next + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("focus").style.visibility = GSH_HIDDEN + call GSH_SHOWNOALARM(oShape) +'gsh_log_e("GSH_ANALOGINDICATORSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOGINDICATOR_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'06/08/07 Removing offnormal check from all Scada analog shapes AL(284) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ANALOGINDICATOR_SCADA_ONUPDATE (oShape, flag) +on error resume next + + If flag = 0 then + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSSANALOGINDICATORDISABLEDALARM + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + '06/08/07 Removing offnormal check from all Scada analog shapes AL(284) + End If + + If flag = 0 then + + 'Bad Data Check + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + oShape.objects("txt_PVvalue").value = "---" + Else + oShape.objects("txt_PVvalue").value = GSH_FormatPVText(oShape,oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV)) + End If + End If +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'DIGITALINDICATOR Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALINDICATORSETFOCUS''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = calling shape. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALINDICATORSETFOCUS(oShape) +'gsh_log_s("GSH_DIGITALINDICATORSETFOCUS oShape=" & oShape.id) +on error resume next + call GSH_SETSHAPEFOCUS(oShape) + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show DIGITAL value and outline + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + end if +'gsh_log_e("GSH_DIGITALINDICATORSETFOCUS") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALINDICATORSHOWNORMAL''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = calling shape. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALINDICATORSHOWNORMAL(oShape) +'gsh_log_s("GSH_DIGITALINDICATORSHOWNORMAL oShape=" & oShape.id) +on error resume next + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + call GSH_SHOWNOALARM(oShape) + oShape.objects("shp_focus").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_DIGITALINDICATORSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALINDICATOR_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital value does not change often) only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALINDICATOR_SCADA_ONUPDATE (oShape, flag) +on error resume next + + +If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If +End If + +If flag <=1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + dim sPVStateTxt + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + +If flag = 0 then + 'Bad Data Check + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + oShape.objects("txt_PVvalue").value = "---" + Else + oShape.objects("txt_PVvalue").value = sPVStateTxt + End If + +End If +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALINDICATOR_SCADA_P6A_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital value does not change often) only to increase performance +'12/19/2007: Added to handle SCADA_DI_P6A shape +'01/11/2008: Modified to handle the change that input parameter are F1,..,F4 instread of F1_0, F1_1, ... +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALINDICATOR_SCADA_P6A_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_DIGITALINDICATOR_SCADA_P6A_ONUPDATE oShape=" & oShape.id) +on error resume next + + +' If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) +' End If + +' If flag <=1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + dim alarmPara + alarmPara = GSH_CPPARAM_IP1 + + 'Find value of GSH_CPPARAM_PV_IP1 + dim input1_val, input2_val, expected_input1_val, expected_input2_val, sPVStateTxt + + sPVStateTxt = GSH_NONE + input1_val = Cint(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_IP1)) + input2_val = Cint(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_IP2)) + + expected_input1_val = Cint(oShape.GetCustomProperty(GSH_CPVALUE,GSH_EXPECTEDVAL1)) + expected_input2_val = Cint(oShape.GetCustomProperty(GSH_CPVALUE,GSH_EXPECTEDVAL2)) + + if((input1_val=expected_input1_val) And (input2_val=expected_input2_val)) then + sPVStateTxt = GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),"BothOn","") + elseif ((input1_val=expected_input1_val) And (input2_val<>expected_input2_val)) then + sPVStateTxt = GSH_GET_STATE_TEXT_P6A(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), oShape.GetCustomProperty(GSH_CPPARAMETER,GSH_CPPARAM_IP1)&"_"&input1_val) + alarmPara=GSH_CPPARAM_IP1 + elseif ((input1_val<>expected_input1_val) And (input2_val=expected_input2_val)) then + sPVStateTxt = GSH_GET_STATE_TEXT_P6A(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), oShape.GetCustomProperty(GSH_CPPARAMETER,GSH_CPPARAM_IP2)&"_"&input2_val) + alarmPara=GSH_CPPARAM_IP2 + else + sPVStateTxt = GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),"BothOff","") + end if + + + oShape.objects("txt_PVvalue").value = sPVStateTxt + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"), GSH_CPENTITY, alarmPara),oShape) + End If + + 'Check for Off Normal if not in focus - To be checked with Rich if need offnormal checking +' if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then +' if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sPVStateTxt) then +' if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then +' oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL +' else +' oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL +' end if +' end if +' end if +' End If + + +'gsh_log_e("GSH_DIGITALINDICATOR_SCADA_P6A_ONUPDATE oShape=") + +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALINDICATOR_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital value does not change often) only to increase performance +'Author: Didi Ekaette July 31, 2007 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALOUTPUTINDICATORALARMS_ONUPDATE (oShape, flag) +on error resume next + +If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITY_OP(oShape.objects("rec_DataScript")),oShape) + End If +End If + +If flag <=1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + dim sOPStateTxt + sOPStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_DIGITAL_POINT_OP_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sOPStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + +If flag = 0 then + oShape.objects("txt_OPvalue").value = sOPStateTxt +End if + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALINDICATOR_SCADA_NOFORMAT_ONUPDATE''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALINDICATOR_SCADA_NOFORMAT_ONUPDATE (oShape) +on error resume next +call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + +'Alarming +if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED +else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) +End If + + +'Set the focus +call GSH_DIGITALINDICATORSETFOCUS(oShape) + +'Check for Off Normal if not in focus +if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_DIGITAL_SCADA_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_PV, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if +end if + +'Bad Data Check +If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + oShape.objects("txt_PVvalue").value = "---" +Else + oShape.objects("txt_PVvalue").value = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV) +End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'MOTORINDICATOR Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MOTORINDICATORSETFOCUS replaced BY GSH_GEN_SETSHAPEFOCUS + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MOTORINDICATORSHOWNORMAL''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MOTORINDICATORSHOWNORMAL(oShape) +'gsh_log_s("GSH_MOTORINDICATORSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + call GSH_SHOWNOALARM(oShape) + oShape.objects("outline").styleClass = GSH_CSSMOTORINDICATORNORMAL +'gsh_log_e("GSH_MOTORINDICATORShowNormal") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MOTORINDICATORMOTORSETRUNSTATE'''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape object +' currentState = Entity's PV value +' sTagName = Shape Tag Name +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MOTORINDICATORMOTORSETRUNSTATE(oShape,currentState, sTagName) +'gsh_log_s("GSH_MOTORINDICATORMOTORSETRUNSTATE oShape=" & oShape.id & "currentState=" & currentState & "sTagName=" & sTagName) +on error resume next +Dim sRecMotorCssStyle + Dim sStateTxt0, sStateTxt1, sStateTxt2, sStateStyle0, sStateStyle1, sStateStyle2 + sStateTxt0 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"StateTxt(0)","") + sStateTxt1 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"StateTxt(1)","") + sStateTxt2 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"StateTxt(2)","") + sStateStyle0 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE(0)","") + sStateStyle1 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE(1)","") + sStateStyle2 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE(2)","") + 'gsh_log("GSH_MOTORINDICATORMOTORSETRUNSTATE checkpoint1 sStateTxt0 = "&sStateTxt0&",sStateTxt1 = "&sStateTxt1&",sStateTxt2 = "&sStateTxt2&",currentState = "¤tState) + + sRecMotorCssStyle = GSH_CSSMOTORINDICATORMOTOROFFNORMAL + If strComp(currentState,sStateTxt0,vbTextCompare)=0 Then + sRecMotorCssStyle = sStateStyle0 + Else If strComp(currentState,sStateTxt1,vbTextCompare)=0 Then + sRecMotorCssStyle = sStateStyle1 + Else If strComp(currentState,sStateTxt2,vbTextCompare)=0 Then + sRecMotorCssStyle = sStateStyle2 + Else + sRecMotorCssStyle = GSH_CSSMOTORINDICATORMOTOROFFNORMAL + End If + End If + End If + + oShape.objects("rec_Motor").styleClass = sRecMotorCssStyle +'gsh_log_e("GSH_MOTORINDICATORMOTORSETRUNSTATE set to "& sRecMotorCssStyle) +end sub + +sub GSH_MOTORINDICATORSETNUMERICSTATE(oShape,nNumericStateValue,sParameterName) +'gsh_log_s("GSH_MOTORINDICATORSETNUMERICSTATE oShape=" & oShape.id & "nNumericStateValue=" & nNumericStateValue) +on error resume next + Dim sTagName, sStateStyle + sTagName = GSH_GETSHAPETAG(oShape) + sStateStyle = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE("&nNumericStateValue&")",GSH_CSSMOTOROFFNORMALFILL) + oShape.objects("rec_Motor").styleClass = sStateStyle +'gsh_log_e("GSH_MOTORINDICATORSETNUMERICSTATE set to "& sStateStyle) +end sub + +'sub GSH_MOTORINDICATOR_P6A_SETNUMERICSTATE(oShape,nNumericStateValue,sParameterName) +'gsh_log_s("GSH_MOTORINDICATOR_P6A_SETNUMERICSTATE oShape=" & oShape.id & "nNumericStateValue=" & nNumericStateValue) +'on error resume next +' Dim sTagName, sStateStyle +' sTagName = GSH_GETSHAPETAG(oShape) +' sStateStyle = GSH_READTAGINFORMATIONKEYVALUE(sTagName,sParameterName&"STATESTYLE",GSH_CSSMOTORINDICATORMOTOROFFNORMAL) +' oShape.objects("rec_Motor").styleClass = sStateStyle +'gsh_log_e("GSH_MOTORINDICATOR_P6A_SETNUMERICSTATE set to "& sStateStyle) +'end sub + +sub GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericStateValue,sParameterName) +'gsh_log_s("GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE oShape=" & oShape.id & "nNumericStateValue=" & nNumericStateValue) +on error resume next + Dim sTagName, sStateStyle + sTagName = GSH_GETSHAPETAG(oShape) +' gsh_log("GSH_ValveDigitalSetValveState checkpoint1 sStateStyle = "&sStateStyle) + sStateStyle = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE("&nNumericStateValue&")",GSH_CSSVALVEDIGITALTRAVEL) + oShape.objects("txt_PVValue").style.visibility = GSH_HIDDEN + If strComp(sStateStyle,GSH_CSSVALVEDIGITALTRAVEL,vbTextCompare)=0 Then 'if the style is travel then make txt_PVValue visible + oShape.objects("txt_PVValue").style.visibility = GSH_VISIBLE + end if + call GSH_ValveDigitalSetValveCSSStyle(oShape,sStateStyle) +'gsh_log_e("GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_MOTORINDICATOR_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 06/13/07 use GSH_GEN_SETSHAPEFOCUS to display focus +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_SCADA_MOTORINDICATOR_ONUPDATE(oShape, flag) +On Error Resume Next + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'check offnormal + dim sPVStateTxt + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_MOTORINDICATOR_P6A_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 12/19/2007: Added the function to handle MOTORINDICATOR_P6A shape (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_SCADA_MOTORINDICATOR_P6A_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_SCADA_MOTORINDICATOR_P6A_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + + + dim alarmPara + alarmPara = GSH_CPPARAM_IP1 + + 'set motor to running or not based on registry + 'Find value of GSH_CPPARAM_PV_IP1 + dim input1_val, input2_val, expected_input1_val, expected_input2_val, sPVStateTxt + + sPVStateTxt = GSH_NONE + input1_val = Cint(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_IP1)) + input2_val = Cint(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_IP2)) + + expected_input1_val = Cint(oShape.GetCustomProperty(GSH_CPVALUE,GSH_EXPECTEDVAL1)) + expected_input2_val = Cint(oShape.GetCustomProperty(GSH_CPVALUE,GSH_EXPECTEDVAL2)) + + if((input1_val=expected_input1_val) And (input2_val=expected_input2_val)) then + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,2,GSH_CPPARAM_IP1) + elseif ((input1_val=expected_input1_val) And (input2_val<>expected_input2_val)) then + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,0,GSH_CPPARAM_IP1) + alarmPara=GSH_CPPARAM_IP1 + elseif ((input1_val<>expected_input1_val) And (input2_val=expected_input2_val)) then + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,1,GSH_CPPARAM_IP1) + alarmPara=GSH_CPPARAM_IP2 + else + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,2,GSH_CPPARAM_IP1) + end if + + dim activeInput + activeInput = GSH_CPPARAM_PV_IP1 + + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"), GSH_CPENTITY, activeInput),oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'check offnormal + 'if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + ' if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + ' if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + ' oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + ' else + ' oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + ' end if + ' end if + 'end if + End If +'gsh_log_e("GSH_SCADA_MOTORINDICATOR_P6A_ONUPDATE") +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'MOTORINDICATORMULTIPLEALARMS Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_MOTORINDICATORWITHALARMS_ONUPDATE'''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 06/12/07 use GSH_GEN_SETSHAPEFOCUS to display focus +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_SCADA_MOTORINDICATORWITHALARMS_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_SCADA_MOTORINDICATORWITHALARMS_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + + 'Alarming: Don't check alarm disabled for this alarm group (OK'd by Jamie) + dim sAlarmPriority, bUnack + sAlarmPriority = GSH_GETALARMGROUPPRIORITYPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITYALARM) + bUnack = GSH_GETALARMGROUPUNACKPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITYALARM) + 'gsh_log ("sAlarmPriority = " & sAlarmPriority & "bUnack = " & bUnack ) + call GSH_SHOWALARMS (sAlarmPriority, bUnack, oShape) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'check offnormal + dim sPVStateTxt + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +'gsh_log_e("GSH_SCADA_MOTORINDICATORWITHALARMS_ONUPDATE") +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MINIMOTORINDICATORSHOWNORMAL''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MINIMOTORINDICATORSHOWNORMAL(oShape) +'gsh_log_s("GSH_MINIMOTORINDICATORSHOWNORMAL oShape=" & oShape.id) +on error resume next + call GSH_SHOWNOALARM(oShape) +'gsh_log_e("GSH_MINIMOTORINDICATORShowNormal") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_MINIMOTORINDICATOR_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital value does not change often) only to increase performance +' 06/13/07 use GSH_GEN_SETSHAPEFOCUS to display focus +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_SCADA_MINIMOTORINDICATOR_ONUPDATE(oShape, flag) + On Error Resume Next + + if flag = 0 then + call GSH_MINIMOTORINDICATORSHOWNORMAL(oShape) + + 'set motor to running or not based on registry + dim sTagName + sTagName = GSH_GETSHAPETAG(oShape) + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSSMINIMOTORINDICATORDISABLEDALARM + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'check offnormal + dim sPVStateTxt + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV,oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' REGULATAORYCONTROLINDICATOR Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGULATORYCONTROLINDICATOR_SCADA_ONUPDATE''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGULATORYCONTROLINDICATOR_SCADA_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_REGULATORYCONTROLINDICATOR_SCADA_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + If flag = 0 then + call GSH_REGULATORYCONTROLINDICATORSHOWNORMAL(oShape) + call GSH_SETREGULATORYCONTROLINDICATORMODE(oShape.objects("rec_DataScript")) + + 'Check the points alarming + if GSH_SCADA_ISALARMINGDISABLED(oShape.objects("rec_DataScript")) Then + 'Alarm is Disabled + call GSH_REGULATORYCONTROLINDICATORSHOWDISABLEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + End If + + + If flag <= 1 then + 'Check Focus + 'call GSH_SETREGULATORYCONTROLINDICATORFOCUS(oShape) + call GSH_GEN_SETSHAPEFOCUS (oShape) + + 'Check for Off Normal if not in focus + + 'if (not(GSH_ISREGULATORYCONTROLINDICATOR_INFOCUS(oShape))) then + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_PV)) then + call GSH_REGULATORYCONTROLINDICATORSHOWOFFNORMAL(oShape) + end if + end if + End If + + If flag = 0 then + 'PV Data Check + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true, false, false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + 'Set Mode + oShape.objects("txt_mode").value = Left(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE), 1) + + End If +'gsh_log_e("GSH_REGULATORYCONTROLINDICATOR_SCADA_ONUPDATE") +End Sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'ANALOGOUTPUTINDICATOR Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOGOUTPUTINDICATORSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS 06/12/07 + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOGOUTPUTINDICATOR_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ANALOGOUTPUTINDICATOR_SCADA_ONUPDATE (oShape, flag) +on error resume next + +If flag = 0 then + oShape.objects("outline").styleClass = GSH_CSSANALOGOUTPUTINDICATORNORMAL +End If + +If flag <=1 then + 'call GSH_ANALOGOUTPUTINDICATORSETFOCUS(oShape) --> replaced by + call GSH_GEN_SETSHAPEFOCUS (oShape) +End If + +If flag =0 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + +End If +'gsh_log_e("GSH_ANALOGOUTPUTINDICATOR_SCADA_ONUPDATE value = " &oShape.objects("txt_OPvalue").value) +End sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOGOUTPUTINDICATOR_ALARMS_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'Author: Didi Ekaette July 30, 2007 +'Jan10,2008: Remove Offnormal checking. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ANALOGOUTPUTINDICATORALARMS_ONUPDATE (oShape, flag) +on error resume next + +If flag <= 1 then + call GSH_SHOWNOALARM(oShape) + call GSH_SETREGULATORYCONTROLINDICATORMODE(oShape.objects("rec_DataScript")) + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSSANALOGINDICATORDISABLEDALARM + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITY_OP(oShape.objects("rec_DataScript")),oShape) + End If + + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + +End If + +If flag = 0 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) +End If + +End sub + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_OPDEVMONITOR_SCADA_ONUPDATE +'Update function for the shape SCADA_OPDEVIATION +'10/03/2008 - Create this new shape & Add code to handle it (Cuong Ly) +' +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_OPDEVMONITOR_SCADA_ONUPDATE(oShape, flag) +' gsh_log_s("GSH_OPDEVMONITOR_SCADA_ONUPDATE oShapeId =" &oShape.id) + + call GSH_C200_OPDEVMONITOR_SHOWNORMAL(oShape) + ' No alarm checking (OK by Jamie) + + If flag <=1 then + + 'Do focus and offnormal checking here. It is important that all shape generic functionalities are + 'done before shape specific ones + call GSH_SETSHAPEFOCUS(oShape) + + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline +' oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("plg_LeftCover001").styleClass = GSH_CSSFOCUSASSOCIATED + oShape.objects("plg_LeftCover002").styleClass = GSH_CSSFOCUSASSOCIATED + oShape.objects("line007").styleClass = GSH_CSSFOCUSASSOCIATED + oShape.objects("line009").styleClass = GSH_CSSFOCUSASSOCIATED + end if + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_POINT_MODE_ISOFFNORMAL(oShape.objects("OPDevMonitor_Script")) then + + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End if + + If flag = 0 then + + 'We do not want shape to reload it self when Value changes, the changes will affect in next update + oShape.autoReloadContent=false + + 'Get OP value + dim opRefVal, deadBand, filterVal, lastRefTime, diff_old + + 'Get the Deadband, filter, OPRefVal and the lastRefTime + + opRefVal = Cdbl(oShape.GetCustomProperty("Value","OPRefVal")) + deadBand = Cdbl(oShape.GetCustomProperty("Value","DeadBand")) + filterVal = oShape.GetCustomProperty("Value","Filter") + lastRefTime = oShape.GetCustomProperty("Value","LastRefTime") + diff_old = oShape.GetCustomProperty("Value","Diff_Old") + + dim diff_cur, deviation, opVal, diff_prev + opVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("OPDevMonitor_Script"),GSH_CPPARAM_OP) + + if(StrComp(opVal,GSH_BADPV_TEXT, vbtextcompare)=0) then + exit sub + end if + + 'Reference OP value is not set, + if(opRefVal < -99.0) then + opRefVal = opVal + oShape.SetCustomProperty "Value","OPRefVal",opVal + oShape.SetCustomProperty "Value","LastRefTime",now + oShape.objects("plg_OPRefValue").style.pixelleft = GSH_GET_OPREFPOSITION(oShape,opRefVal) + exit sub + end if + + 'Get the RefTime from Registry. + dim opDevMonRegistryBase, refTime + opDevMonRegistryBase = GSH_REGISTRY_BASE & GSH_REGISTRY_OPDEVMONITOR + refTime = GSH_READREGISTRY(opDevMonRegistryBase & GSH_REGKEY_OPDEVMON_RESETTIME, GSH_EMPTYSTRING) + + 'If the RefTime > lastRefTime then update OPRefVal to current OPVal & update lastRefTime to RefTime + 'Need to give it a time buffer (i.e within 10s)? + if((StrComp(refTime,GSH_EMPTYSTRING)<>0) AND (CDate(refTime) > CDate(lastRefTime))) then + oShape.SetCustomProperty "Value","OPRefVal",opVal + opRefVal = opVal + oShape.SetCustomProperty "Value","LastRefTime",refTime + oShape.SetCustomProperty "Value","Diff_Old",0 + diff_old = 0 + oShape.objects("plg_OPRefValue").style.pixelleft = GSH_GET_OPREFPOSITION(oShape,opRefVal) + end if + + 'Calculate OPDeviation + diff_prev = diff_old + diff_cur = opVal - opRefVal + diff_old = (diff_cur + diff_old)*filterVal + oShape.SetCustomProperty "Value","Diff_Old", diff_old + +' gsh_log("diff_cur = " &diff_cur &" diff_old = " &diff_old &" diff_prev = " &diff_prev) + + 'Set ButterFlies + if diff_cur > 0 then + oShape.objects("ind_OPDevBarRight").value = diff_cur + oShape.objects("ind_OPDevBarLeft").value = 0 + elseif diff_cur < 0 then + oShape.objects("ind_OPDevBarRight").value = 0 + oShape.objects("ind_OPDevBarLeft").value = diff_cur + else + oShape.objects("ind_OPDevBarRight").value = 0 + oShape.objects("ind_OPDevBarLeft").value = 0 + end if + + 'Set arrows - TODO: should this compare absolute value? + if ((diff_cur-diff_prev) > deadBand) then + 'set arrow to right + oShape.objects("grp_RightArrow").style.visibility = GSH_VISIBLE + oShape.objects("grp_LeftArrow").style.visibility = GSH_HIDDEN + elseif ((diff_prev - diff_cur) > deadBand) then + 'set arrow to the left + oShape.objects("grp_RightArrow").style.visibility = GSH_HIDDEN + oShape.objects("grp_LeftArrow").style.visibility = GSH_VISIBLE + else + 'hide arrows + oShape.objects("grp_RightArrow").style.visibility = GSH_HIDDEN + oShape.objects("grp_LeftArrow").style.visibility = GSH_HIDDEN + end if + + End If + +' gsh_log_e("GSH_OPDEVMONITOR_SCADA_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_OPDEVMONITOR_SCADA_ONUPDATE",oShape) + end if + +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'Author: Didi Ekaette July 30, 2007 +'Jan10,2008: Rename to GSH_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE (oShape, flag) +on error resume next + +If flag <= 1 then + call GSH_SHOWNOALARM(oShape) + call GSH_SETREGULATORYCONTROLINDICATORMODE(oShape.objects("rec_DataScript")) + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSSANALOGINDICATORDISABLEDALARM + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITY_OP(oShape.objects("rec_DataScript")),oShape) + End If + + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_OP)) then + call GSH_REGULATORYCONTROLINDICATORSHOWOFFNORMAL(oShape) + end if + end if + +End If + +If flag = 0 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) +End If + +End sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'SENSOR Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SENSOR_SCADA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: shape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SENSOR_SCADA_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_SENSOR_SCADA_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + If flag = 0 then + call GSH_SENSORSHOWNORMAL(oShape) + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + 'Alarm is Disabled + call GSH_SENSORSHOWSUPPRESSEDALARM(oShape) + else + 'alarming is enabled, get highest priority and change shape accordingly + Select Case GSH_GETHIGHESTALARMPRIORITY(oShape.objects("rec_DataScript")) + Case GSH_UNACKEMERG + call GSH_SENSORSHOWEMERGENCYALARM(oShape,true) + Case GSH_UNACKHIGH + call GSH_SENSORSHOWHIGHALARM(oShape,true) + Case GSH_UNACKLOW + call GSH_SENSORSHOWLOWALARM(oShape,true) + Case GSH_ACKEMERG + call GSH_SENSORSHOWEMERGENCYALARM(oShape,false) + Case GSH_ACKHIGH + call GSH_SENSORSHOWHIGHALARM(oShape,false) + Case GSH_ACKLOW + call GSH_SENSORSHOWLOWALARM(oShape,false) + Case Else + End Select + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_SETSHAPEFOCUS(oShape) + 'No Offnormal check as this shape could be a digital flag or analog point. + 'gsh_log_e("GSH_SENSOR_SCADA_ONUPDATE") + End If +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SENSORSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SENSORSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_SENSORSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'Disable Alarms + call GSH_SHOWNOALARM(oDataBoundObject) + oDataBoundObject.objects("ovl_sensor").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("ovl_sensor").styleClass = GSH_CSSSENSORNORMAL +'gsh_log_e("GSH_SENSORSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SENSORSHOWHIGHALARM'''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SENSORSHOWHIGHALARM(oDataBoundObject,unAcknowledged) +'gsh_log_s("GSH_SENSORSHOWHIGHALARM oDataBoundObject=" & oDataBoundObject.id & "unAcknowledged=" & cstr(unAcknowledged)) + 'show + call GSH_ShowHighAlarm(oDataBoundObject,unAcknowledged) + oDataBoundObject.objects("ovl_sensor").style.visibility = GSH_VISIBLE + if unAcknowledged then + oDataBoundObject.objects("ovl_sensor").styleClass = GSH_CSSSENSORALARMHIGHUNACK + + else + oDataBoundObject.objects("ovl_sensor").styleClass = GSH_CSSSENSORALARMHIGHACK + end if +'gsh_log_e("GSH_SENSORSHOWHIGHALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SENSORSHOWLOWALARM''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SENSORSHOWLOWALARM(oDataBoundObject,unAcknowledged) +'gsh_log_s("GSH_SENSORSHOWLOWALARM oDataBoundObject=" & oDataBoundObject.id & "unAcknowledged=" & cstr(unAcknowledged)) + 'show + call GSH_ShowLowAlarm(oDataBoundObject,unAcknowledged) + oDataBoundObject.objects("ovl_sensor").style.visibility = GSH_VISIBLE + if unAcknowledged then + oDataBoundObject.objects("ovl_sensor").styleClass = GSH_CSSSENSORALARMLOWUNACK + else + oDataBoundObject.objects("ovl_sensor").styleClass = GSH_CSSSENSORALARMLOWACK + end if +'gsh_log_e("GSH_SENSORSHOWLOWALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SENSORSHOWEMERGENCYALARM''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SENSORSHOWEMERGENCYALARM(oDataBoundObject,unAcknowledged) +'gsh_log_s("GSH_SENSORSHOWEMERGENCYALARM oDataBoundObject=" & oDataBoundObject.id & "unAcknowledged=" & cstr(unAcknowledged)) + 'show + call GSH_ShowEmergencyAlarm(oDataBoundObject,unAcknowledged) + oDataBoundObject.objects("ovl_sensor").style.visibility = GSH_VISIBLE + if unAcknowledged then + oDataBoundObject.objects("ovl_sensor").styleClass = GSH_CSSSENSORALARMEMERGENCYUNACK + else + oDataBoundObject.objects("ovl_sensor").styleClass = GSH_CSSSENSORALARMEMERGENCYACK + end if +'gsh_log_e("GSH_SENSORSHOWEMERGENCYALARM") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SENSORSHOWDISABLEDALARM''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SENSORSHOWDISABLEDALARM(oDataBoundObject) +'gsh_log_s("GSH_SENSORSHOWDISABLEDALARM oDataBoundObject=" & oDataBoundObject.id) + oDataBoundObject.objects("ovl_sensor").styleClass = GSH_CSSSENSORDISABLEDALARM +'gsh_log_e("GSH_SENSORSHOWDISABLEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SENSORSHOWSUPPRESSEDALARM''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SENSORSHOWSUPPRESSEDALARM(oDataBoundObject) +'gsh_log_s("GSH_SENSORSHOWSUPPRESSEDALARM oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("ovl_sensor").styleClass = GSH_CSSSENSORDISABLEDALARM +'gsh_log_e("GSH_SENSORSHOWSUPPRESSEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SENSOR_ISPOINTOFFNORMAL removed Apr 13, 2007 (AL)'''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SENSORSHOWOFFNORMAL'''''''''''''''''''''''''''' +'Parameters: oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SENSORSHOWOFFNORMAL(oDataBoundObject) +'gsh_log_s("GSH_SENSORSHOWOFFNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL +'gsh_log_e("GSH_SENSORSHOWOFFNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'MULTIPLESENSORS Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIPLESENSORS_SCADA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'06/08/07 Removing offnormal check from all Scada analog shapes AL(284) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIPLESENSORS_SCADA_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_MULTIPLESENSORS_SCADA_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + If flag = 0 then + call GSH_MULTIPLESENSORSSHOWNORMAL(oShape) + + 'Alarming + 'Check Alarming disabled + if (GSH_SCADA_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"), GSH_CPENTITY) or GSH_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"), GSH_CPENTITYALARM)) Then + 'Alarm is Disabled + call GSH_MULTIPLESENSORSSHOWSUPPRESSEDALARM(oShape) + end if + 'Get Highest Alarm + iAlarmCode1 = GSH_GETHIGHESTALARMPRIORITYParameter(oShape.objects("rec_DataScript"), GSH_CPENTITY) + iAlarmCode2 = GSH_GETHIGHESTALARMPRIORITYParameter(oShape.objects("rec_DataScript"), GSH_CPENTITYALARM) + iAlarmCode = GSH_COMPAREHIGHESTALARMPRIORITY(iAlarmCode1, iAlarmCode2) + + 'alert("iAlarmCode2 = " &iAlarmCode2) + + Select Case iAlarmCode + Case GSH_UNACKEMERG + call GSH_MULTIPLESENSORSSHOWEMERGENCYALARM(oShape,true) + Case GSH_UNACKHIGH + call GSH_MULTIPLESENSORSSHOWHIGHALARM(oShape,true) + Case GSH_UNACKLOW + call GSH_MULTIPLESENSORSSHOWLOWALARM(oShape,true) + Case GSH_ACKEMERG + call GSH_MULTIPLESENSORSSHOWEMERGENCYALARM(oShape,false) + Case GSH_ACKHIGH + call GSH_MULTIPLESENSORSSHOWHIGHALARM(oShape,false) + Case GSH_ACKLOW + call GSH_MULTIPLESENSORSSHOWLOWALARM(oShape,false) + Case Else + 'No Alarms + End Select + End If + + If flag <= 1 then + 'Set the focus + call GSH_MULTIPLESENSORSSETFOCUS(oShape) +'06/08/07 Removing offnormal check from all Scada analog shapes AL(284) + End If + +'gsh_log_e("GSH_MULTIPLESENSORS_SCADA_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIPLESENSORSSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIPLESENSORSSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_MULTIPLESENSORSSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'Disable Alarms + call GSH_SHOWNOALARM(oDataBoundObject) + oDataBoundObject.objects("plg_MultipleSensors").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("plg_MultipleSensors").styleClass = GSH_CSSSENSORNORMAL +'gsh_log_e("GSH_MULTIPLESENSORSSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIPLESENSORSSHOWHIGHALARM'''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIPLESENSORSSHOWHIGHALARM(oDataBoundObject,unAcknowledged) +'gsh_log_s("GSH_MULTIPLESENSORSSHOWHIGHALARM oDataBoundObject=" & oDataBoundObject.id & "unAcknowledged=" & cstr(unAcknowledged)) + 'show + call GSH_ShowHighAlarm(oDataBoundObject,unAcknowledged) + oDataBoundObject.objects("plg_MultipleSensors").style.visibility = GSH_VISIBLE + if unAcknowledged then + oDataBoundObject.objects("plg_MultipleSensors").styleClass = GSH_CSSSENSORALARMHIGHUNACK + + else + oDataBoundObject.objects("plg_MultipleSensors").styleClass = GSH_CSSSENSORALARMHIGHACK + end if +'gsh_log_e("GSH_MULTIPLESENSORSSHOWHIGHALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIPLESENSORSSHOWLOWALARM''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIPLESENSORSSHOWLOWALARM(oDataBoundObject,unAcknowledged) +'gsh_log_s("GSH_MULTIPLESENSORSSHOWLOWALARM oDataBoundObject=" & oDataBoundObject.id & "unAcknowledged=" & cstr(unAcknowledged)) + 'show + call GSH_ShowLowAlarm(oDataBoundObject,unAcknowledged) + oDataBoundObject.objects("plg_MultipleSensors").style.visibility = GSH_VISIBLE + if unAcknowledged then + oDataBoundObject.objects("plg_MultipleSensors").styleClass = GSH_CSSSENSORALARMLOWUNACK + else + oDataBoundObject.objects("plg_MultipleSensors").styleClass = GSH_CSSSENSORALARMLOWACK + end if +'gsh_log_e("GSH_MULTIPLESENSORSSHOWLOWALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIPLESENSORSSHOWEMERGENCYALARM''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIPLESENSORSSHOWEMERGENCYALARM(oDataBoundObject,unAcknowledged) +'gsh_log_s("GSH_MULTIPLESENSORSSHOWEMERGENCYALARM oDataBoundObject=" & oDataBoundObject.id & "unAcknowledged=" & cstr(unAcknowledged)) + 'show + call GSH_ShowEmergencyAlarm(oDataBoundObject,unAcknowledged) + oDataBoundObject.objects("plg_MultipleSensors").style.visibility = GSH_VISIBLE + if unAcknowledged then + oDataBoundObject.objects("plg_MultipleSensors").styleClass = GSH_CSSSENSORALARMEMERGENCYUNACK + else + oDataBoundObject.objects("plg_MultipleSensors").styleClass = GSH_CSSSENSORALARMEMERGENCYACK + end if +'gsh_log_e("GSH_MULTIPLESENSORSSHOWEMERGENCYALARM") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIPLESENSORSSHOWDISABLEDALARM''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIPLESENSORSSHOWDISABLEDALARM(oDataBoundObject) +'gsh_log_s("GSH_MULTIPLESENSORSSHOWDISABLEDALARM oDataBoundObject=" & oDataBoundObject.id) + oDataBoundObject.objects("plg_MultipleSensors").styleClass = GSH_CSSSENSORDISABLEDALARM +'gsh_log_e("GSH_MULTIPLESENSORSSHOWDISABLEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIPLESENSORSSHOWSUPPRESSEDALARM''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIPLESENSORSSHOWSUPPRESSEDALARM(oDataBoundObject) +'gsh_log_s("GSH_MULTIPLESENSORSSHOWSUPPRESSEDALARM oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("plg_MultipleSensors").styleClass = GSH_CSSSENSORDISABLEDALARM +'gsh_log_e("GSH_MULTIPLESENSORSSHOWSUPPRESSEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIPLESENSORSSETFOCUS''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIPLESENSORSSETFOCUS(oDataBoundObject) +'gsh_log_s("GSH_MULTIPLESENSORSSETFOCUS oDataBoundObject=" & oDataBoundObject.id) +on error resume next + call GSH_SETSHAPEFOCUS(oDataBoundObject) +'gsh_log_e("GSH_MULTIPLESENSORSSETFOCUS") +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Group Analog Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPANALOG_SCADA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'06/08/07 Removing offnormal check from all Scada analog shapes AL(284) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPANALOG_SCADA_ONUPDATE(oShape, flag) +on error resume next + If flag = 0 then + call GSH_GROUPANALOGSHOWNORMAL(oShape) + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + call GSH_GROUPANALOGSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + End If + + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS (oShape) + '06/08/07 Removing offnormal check from all Scada analog shapes AL(284) + End If + + If flag = 0 then + 'PV Data Check + If NOT(GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true, false, false)) Then + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + Else + call GSH_GROUPANALOGSHOWBADPV(oShape) + End If + End If + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPANALOGSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPANALOGSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPANALOGSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagKeyword, stagName + 'Disable Alarms + call GSH_SHOWNOALARM(oDataBoundObject) + 'Show objects + oDataBoundObject.objects("outline").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPANALOGNORMAL + oDataBoundObject.objects("txt_AnalogValue").style.visibility = GSH_VISIBLE + 'Read Values from Registry + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + stagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + 'Assign values + 'gsh_log ("tagName = "&tagname) + oDataBoundObject.objects("txt_tagname").value = stagName + oDataBoundObject.objects("txt_keyword").value = tagKeyword +'gsh_log_e("GSH_GROUPANALOGSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPANALOGSHOWOFFNORMAL'''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPANALOGSHOWOFFNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPANALOGSHOWOFFNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + if (oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if +'gsh_log_e("GSH_GROUPANALOGSHOWOFFNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPANALOGSHOWBADPV''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPANALOGSHOWBADPV(oDataBoundObject) +'gsh_log_s("GSH_GROUPANALOGSHOWBADPV oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("txt_AnalogValue").value = GSH_BADPV_TEXT +'gsh_log_e("GSH_GROUPANALOGSHOWBADPV") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPANALOGSHOWSUPPRESSEDALARM''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPANALOGSHOWSUPPRESSEDALARM(oDataBoundObject) +'gsh_log_s("GSH_GROUPANALOGSHOWSUPPRESSEDALARM oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPANALOGDISABLEDALARM +'gsh_log_e("GSH_GROUPANALOGSHOWSUPPRESSEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPANALOGSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS 06/12/07 + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITESHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: ' oDataBoundObject = subshape name or me, if calling within subshape +'Used for C200 and SCADA +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITESHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITESHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagKeyword, tagName + 'Disable Alarms + call GSH_SHOWNOALARM(oDataBoundObject) + 'Show values + oDataBoundObject.objects("outline").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPDIGITALCOMPOSITENORMAL + 'Read Values from Registry + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + tagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + 'Assign values to textboxes + oDataBoundObject.objects("txt_tagname").value = tagName + oDataBoundObject.objects("txt_keyword").value = tagKeyword +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITESHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITESHOWOFFNORMAL'''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITESHOWOFFNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITESHOWOFFNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITESHOWOFFNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITESHOWBADPV''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITESHOWBADPV(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITESHOWBADPV oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("txt_DigitalValue").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("txt_DigitalValue").value = GSH_BADPV_TEXT +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITESHOWBADPV") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITESHOWSUPPRESSEDALARM''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITESHOWSUPPRESSEDALARM(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITESHOWSUPPRESSEDALARM oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPDIGITALCOMPOSITEDISABLEDALARM +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITESHOWSUPPRESSEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITESETFOCUS''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITESETFOCUS(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITESETFOCUS oDataBoundObject=" & oDataBoundObject.id) +on error resume next + call GSH_SETSHAPEFOCUS(oDataBoundObject) + if (not(oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must change outline fill to transparent + oDataBoundObject.objects("outline").fillstyle = GSH_FILLTRANSPARENT + end if +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITESETFOCUS") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITESETVALVECSSSTYLE'''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITESETVALVECSSSTYLE(oShape,style) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITESETVALVECSSSTYLE oShape=" & oShape.id&",style="&style) +on error resume next + 'gsh_log("GSH_GROUPDIGITALCOMPOSITESETVALVECSSSTYLE CHECKPOINT") + oShape.objects("outline").styleClass = style +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITESETVALVECSSSTYLE") +end sub + +'GSH_GROUPDIGITALCOMPOSITESETVALVESTATE''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITESETVALVESTATE(oShape,currentState) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITESETVALVESTATE oShape=" & oShape.id & "currentState=" & currentState) +on error resume next +Dim sTagName + + Dim sStateTxt0, sStateTxt1,sStateTxt2, sStateStyle0, sStateStyle1, sStateStyle2 + sTagName = GSH_GETSHAPETAG(oShape) + sStateTxt0 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"StateTxt(0)","") + sStateTxt1 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"StateTxt(1)","") + sStateTxt2 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"StateTxt(2)","") + sStateStyle0 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE(0)","") + sStateStyle1 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE(1)","") + sStateStyle2 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE(2)","") + 'gsh_log("GSH_GROUPDIGITALCOMPOSITESETVALVESTATE checkpoint1 sStateTxt0 = "&sStateTxt0&",sStateTxt1 = "&sStateTxt1&",sStateTxt2 = "&sStateTxt2&",currentState = "¤tState) + + If currentState = sStateTxt0 Then + call GSH_GROUPDIGITALCOMPOSITESETVALVECSSSTYLE(oShape,sStateStyle0) + Else If currentState = sStateTxt1 Then + call GSH_GROUPDIGITALCOMPOSITESETVALVECSSSTYLE(oShape,sStateStyle1) + Else If currentState = sStateTxt2 Then + call GSH_GROUPDIGITALCOMPOSITESETVALVECSSSTYLE(oShape,sStateStyle2) + Else + call GSH_GROUPDIGITALCOMPOSITESETVALVECSSSTYLE(oShape,GSH_CSSGROUPDIGITALCOMPOSITEDEFAULT) + End If + End If + End If +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITESETVALVESTATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPDIGITALCOMPOSITEHIDEMODEENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITEHIDEMODEENTRY(oShape) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITEHIDEMODEENTRY oShape=" & oShape.id) + window.clearInterval(GSH_GroupTimerId) + oShape.objects("cmb_ModAttrValue").style.visibility = GSH_HIDDEN + oShape.objects("txt_ModAttrValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITEHIDEMODEENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPDIGITALCOMPOSITESHOWMODEENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITESHOWMODEENTRY(oShape) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITESHOWMODEENTRY oShape=" & oShape.id) + oShape.objects("cmb_ModAttrValue").style.visibility = GSH_VISIBLE + oShape.objects("txt_ModAttrValue").style.visibility = GSH_HIDDEN + window.clearInterval(GSH_GroupTimerId) + GSH_GroupTimerId = window.setInterval("GSH_GROUPDIGITALCOMPOSITEHIDEMODEENTRY(" & oShape.id & ")", GSH_GroupTimeout * 1000) +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITESHOWMODEENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPDIGITALCOMPOSITEHIDEOPENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITEHIDEOPENTRY(oShape) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITEHIDEOPENTRY oShape=" & oShape.id) + window.clearInterval(GSH_GroupTimerId) + oShape.objects("cmb_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("txt_OPValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITEHIDEOPENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPDIGITALCOMPOSITESHOWOPENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITESHOWOPENTRY(oShape) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITESHOWOPENTRY oShape=" & oShape.id) + oShape.objects("cmb_OPValue").style.visibility = GSH_VISIBLE + oShape.objects("txt_OPValue").style.visibility = GSH_HIDDEN + window.clearInterval(GSH_GroupTimerId) + GSH_GroupTimerId = window.setInterval("GSH_GROUPDIGITALCOMPOSITEHIDEOPENTRY(" & oShape.id & ")", GSH_GroupTimeout * 1000) +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITESHOWOPENTRY") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Group Digital Input Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_GROUPDIGITALINPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape - Shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital value does not change often) only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_GROUPDIGITALINPUT_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_SCADA_GROUPDIGITALINPUT_ONUPDATE oShape = " & oShape.id) +on error resume next + +If flag = 0 then + GSH_GROUPDIGITALINPUTSHOWNORMAL(oShape) + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + 'Alarm is Disabled + call GSH_GROUPDIGITALINPUTSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If +End If + +If flag <= 1 then + 'Set the focus + 'call GSH_GROUPDIGITALINPUTSETFOCUS(oShape) + call GSH_GEN_SETSHAPEFOCUS (oShape) + + 'Check for Off Normal if not in focus + dim sPVStateTxt + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV,oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sPVStateTxt) then + call GSH_GROUPDIGITALINPUTSHOWOFFNORMAL(oShape) + end if + end if + +End If + +If flag = 0 then + + 'PV Data Check + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true, false, false) Then + call GSH_GROUPDIGITALINPUTSHOWBADPV(oShape) + else + oShape.objects("txt_DigitalValue").value = sPVStateTxt + End If + 'gsh_log_e("GSH_SCADA_GROUPDIGITALINPUT_ONUPDATE") +End If +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALINPUTSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALINPUTSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALINPUTSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagKeyword, tagName + 'Disable Alarms + call GSH_SHOWNOALARM(oDataBoundObject) + 'Show values + oDataBoundObject.objects("outline").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPDIGITALINPUTNORMAL + oDataBoundObject.objects("txt_DigitalValue").style.visibility = GSH_VISIBLE + 'Read Values from Registry + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + tagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + 'Assign values to textboxes + oDataBoundObject.objects("txt_tagname").value = tagName + oDataBoundObject.objects("txt_keyword").value = tagKeyword +'gsh_log_e("GSH_GROUPDIGITALINPUTSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALINPUTSHOWOFFNORMAL'''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALINPUTSHOWOFFNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALINPUTSHOWOFFNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + if (oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if +'gsh_log_e("GSH_GROUPDIGITALINPUTSHOWOFFNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALINPUTSHOWBADPV''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALINPUTSHOWBADPV(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALINPUTSHOWBADPV oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'call GSH_HIDESUBSHAPE(oDataBoundObject.objects("alp_AnalogValue")) + 'oDataBoundObject.objects("txt_PVvalue").value = "---" + 'call GSH_SHOWSUBSHAPE(oDataBoundObject.objects("shp_BadPVText")) + oDataBoundObject.objects("txt_DigitalValue").value = GSH_BADPV_TEXT +'gsh_log_e("GSH_GROUPDIGITALINPUTSHOWBADPV") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALINPUTSHOWSUPPRESSEDALARM''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALINPUTSHOWSUPPRESSEDALARM(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALINPUTSHOWSUPPRESSEDALARM oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPDIGITALINPUTDISABLEDALARM +'gsh_log_e("GSH_GROUPDIGITALINPUTSHOWSUPPRESSEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALINPUTSETFOCUS''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALINPUTSETFOCUS(oDataBoundObject) +'gsh_log_s("GSH_GROUPDIGITALINPUTSETFOCUS oDataBoundObject=" & oDataBoundObject.id) +on error resume next + call GSH_SETSHAPEFOCUS(oDataBoundObject) + if (not(oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must change outline fill to transparent + oDataBoundObject.objects("outline").fillstyle = GSH_FILLTRANSPARENT + end if +'gsh_log_e("GSH_GROUPDIGITALINPUTSETFOCUS") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALINPUTSETVALVECSSSTYLE'''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALINPUTSETVALVECSSSTYLE(oShape,style) +'gsh_log_s("GSH_GROUPDIGITALINPUTSETVALVECSSSTYLE oShape=" & oShape.id&",style="&style) +on error resume next + 'gsh_log("GSH_GROUPDIGITALINPUTSETVALVECSSSTYLE CHECKPOINT") + oShape.objects("outline").styleClass = style +'gsh_log_e("GSH_GROUPDIGITALINPUTSETVALVECSSSTYLE") +end sub + +'GSH_GROUPDIGITALINPUTSETVALVESTATE''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALINPUTSETVALVESTATE(oShape,currentState) +'gsh_log_s("GSH_GROUPDIGITALINPUTSETVALVESTATE oShape=" & oShape.id & "currentState=" & currentState) +on error resume next +Dim sTagName + + Dim sStateTxt0, sStateTxt1,sStateTxt2, sStateStyle0, sStateStyle1, sStateStyle2 + sTagName = GSH_GETSHAPETAG(oShape) + sStateTxt0 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"StateTxt(0)","") + sStateTxt1 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"StateTxt(1)","") + sStateTxt2 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"StateTxt(2)","") + sStateStyle0 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE(0)","") + sStateStyle1 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE(1)","") + sStateStyle2 = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE(2)","") + 'gsh_log("GSH_GROUPDIGITALINPUTSETVALVESTATE checkpoint1 sStateTxt0 = "&sStateTxt0&",sStateTxt1 = "&sStateTxt1&",sStateTxt2 = "&sStateTxt2&",currentState = "¤tState) + + If currentState = sStateTxt0 Then + call GSH_GROUPDIGITALINPUTSETVALVECSSSTYLE(oShape,sStateStyle0) + Else If currentState = sStateTxt1 Then + call GSH_GROUPDIGITALINPUTSETVALVECSSSTYLE(oShape,sStateStyle1) + Else If currentState = sStateTxt2 Then + call GSH_GROUPDIGITALINPUTSETVALVECSSSTYLE(oShape,sStateStyle2) + Else + call GSH_GROUPDIGITALINPUTSETVALVECSSSTYLE(oShape,GSH_CSSGROUPDIGITALINPUTDEFAULT) + End If + End If + End If +'gsh_log_e("GSH_GROUPDIGITALINPUTSETVALVESTATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Group Orsel Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSEL_SCADA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape +'06/08/07 Removing offnormal check from all Scada analog shapes AL(284) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSEL_SCADA_ONUPDATE(oShape, flag) + +on error resume next + + If flag = 0 then + GSH_GROUPORSELSHOWNORMAL(oShape) + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + call GSH_GROUPORSELSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + End If + + + If flag <= 1 then + 'Set the focus + call GSH_GROUPORSELSETFOCUS(oShape) + + End If + + If flag = 0 then + '06/08/07 Removing offnormal check from all Scada analog shapes AL(284) + 'Display OP Value + oShape.objects("txt_OPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP)) + + 'Display Mode Data + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + + End If + 'Set Outline fill color White + oShape.objects("outline").styleClass = GSH_CSSWHITE +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSELSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPORSELSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagKeyword, tagName + 'Read Values from Registry + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + tagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + 'Assign values to textboxes + oDataBoundObject.objects("txt_tagname").value = tagName + oDataBoundObject.objects("txt_keyword").value = tagKeyword + 'Disable Alarms + call GSH_SHOWNOALARM(oDataBoundObject) + 'Show values + oDataBoundObject.objects("outline").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPORSELNORMAL + oDataBoundObject.objects("txt_statusmessage").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_Initialization").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_GROUPORSELSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSEL_ISPOINTOFFNORMAL removed Apr 13, 2007'''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSELSHOWOFFNORMAL'''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSHOWOFFNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPORSELSHOWOFFNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + if (oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if +'gsh_log_e("GSH_GROUPORSELSHOWOFFNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSELSHOWSUPPRESSEDALARM''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSHOWSUPPRESSEDALARM(oDataBoundObject) +'gsh_log_s("GSH_GROUPORSELSHOWSUPPRESSEDALARM oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPORSELDISABLEDALARM +'gsh_log_e("GSH_GROUPORSELSHOWSUPPRESSEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSELSETFOCUS''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSETFOCUS(oDataBoundObject) +'gsh_log_s("GSH_GROUPORSELSETFOCUS oDataBoundObject=" & oDataBoundObject.id) +on error resume next + call GSH_SETSHAPEFOCUS(oDataBoundObject) + if (not(oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must change outline fill to transparent + oDataBoundObject.objects("outline").fillstyle = GSH_FILLTRANSPARENT + end if +'gsh_log_e("GSH_GROUPORSELSETFOCUS") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSELSHOWINITIALIZATION''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSHOWINITIALIZATION(oDataBoundObject) +'gsh_log_s("GSH_GROUPORSELSHOWINITIALIZATION oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("txt_Initialization").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPORSELSHOWINITIALIZATION") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSELSHOWWINDUP_LOW''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSHOWWINDUP_LOW(oDataBoundObject) +'gsh_log_s("GSH_GROUPORSELSHOWWINDUP_LOW oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'show + 'call GSH_GROUPORSELSHOWNORMAL(oDataBoundObject) + oDataBoundObject.objects("plg_OpLow").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPORSELSHOWWINDUP_LOW") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSELSHOWWINDUP_HIGH'''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSHOWWINDUP_HIGH(oDataBoundObject) +'gsh_log_s("GSH_GROUPORSELSHOWWINDUP_HIGH oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'show + 'call GSH_GROUPORSELSHOWNORMAL(oDataBoundObject) + oDataBoundObject.objects("plg_OpHigh").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPORSELSHOWWINDUP_HIGH") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPORSELSETSTATUS'''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSETSTATUS(oDataBoundObject, sValue) +'gsh_log_s("GSH_GROUPORSELSETSTATUS oDataBoundObject=" & oDataBoundObject.id & " value=" & sValue) +on error resume next + oDataBoundObject.objects("txt_status").value = sValue + oDataBoundObject.objects("txt_status").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPORSELSETSTATUS") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPORSELHIDEMODEENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELHIDEMODEENTRY(oShape) +'gsh_log_s("GSH_GROUPORSELHIDEMODEENTRY oShape=" & oShape.id) + window.clearInterval(GSH_GroupTimerId) + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + oShape.objects("txt_ModeValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPORSELHIDEMODEENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPORSELSHOWMODEENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSHOWMODEENTRY(oShape) +'gsh_log_s("GSH_GROUPORSELSHOWMODEENTRY oShape=" & oShape.id) + oShape.objects("cmb_ModeValue").style.visibility = GSH_VISIBLE + oShape.objects("txt_ModeValue").style.visibility = GSH_HIDDEN + window.clearInterval(GSH_GroupTimerId) + GSH_GroupTimerId = window.setInterval("GSH_GROUPORSELHIDEMODEENTRY(" & oShape.id & ")", GSH_GroupTimeout * 1000) +'gsh_log_e("GSH_GROUPORSELSHOWMODEENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPORSELHIDEMODEENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELHIDEOPENTRY(oShape) +'gsh_log_s("GSH_GROUPORSELHIDEOPENTRY oShape=" & oShape.id) + window.clearInterval(GSH_GroupTimerId) + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_GROUPORSELHIDEOPENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPORSELSHOWOPENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPORSELSHOWOPENTRY(oShape) +'gsh_log_s("GSH_GROUPORSELSHOWOPENTRY oShape=" & oShape.id) + oShape.objects("alp_OPValue").style.visibility = GSH_VISIBLE + window.clearInterval(GSH_GroupTimerId) + GSH_GroupTimerId = window.setInterval("GSH_GROUPORSELHIDEOPENTRY(" & oShape.id & ")", GSH_GroupTimeout * 1000) +'gsh_log_e("GSH_GROUPORSELSHOWOPENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Group Regulatory Control Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROL_SCADA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve problem +' that the combox or alp entry was open, +' but no entry made, then other tag is selected as focus tag. (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROL_SCADA_ONUPDATE(oShape, flag) + +on error resume next + + If flag = 0 then + GSH_GROUPREGULATORYCONTROLSHOWNORMAL(oShape) + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + 'Alarm is Disabled + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + 'call GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in principle focus + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_SPValue").style.visibility = GSH_HIDDEN + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if (GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_PV)) then + call GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL(oShape) + 'gsh_log_e("GSH_GROUPREGULATORYCONTROL_SCADA_ONUPDATE SHAPE IS OFF NORMAL") + end if + end if + End If + + + If flag = 0 then + 'PV Bad Data Check + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true, false, false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + 'oShape.objects("txt_OPValue").value = FormatNumber(oShape.objects("alp_OPValue").value,GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + 'oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,oShape.objects("alp_SPValue").value) + 'oShape.objects("txt_ModeValue").value = oShape.objects("cmb_ModeValue").value + oShape.objects("txt_OPValue").value = FormatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SP)) + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + End If +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Group Regulatory Control Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROL_SCADA_SM_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROL_SCADA_SM_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_GROUPREGULATORYCONTROL_SCADA_SM_ONUPDATE oShape = " &oShape.id) +on error resume next + call GSH_GROUPREGULATORYCONTROL_SCADA_ONUPDATE(oShape, flag) + + dim val_stsMsg, tagName, stsMsgType, numOfMessage + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG)) + + if (val_stsMsg > 0) then + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + numOfMessage = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & "NoOfMessages", "0") + if val_stsMsg >0 and val_stsMsg <=numOfMessage then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &val_stsMsg, "") + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) + end if + end if +'gsh_log_e("GSH_GROUPREGULATORYCONTROL_SCADA_SM_ONUPDATE") +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPAO_SCADA_SM_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPAO_SCADA_SM_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_GROUPAO_SCADA_SM_ONUPDATE oShape = " &oShape.id) +on error resume next + call GSH_GROUPAO_SCADA_ONUPDATE(oShape, flag) + dim val_stsMsg, tagName, stsMsgType, numOfMessage + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG)) + if (val_stsMsg > 0) then + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + numOfMessage = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & "NoOfMessages", "0") + if val_stsMsg >0 and val_stsMsg <=numOfMessage then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &val_stsMsg, "") + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) + end if + end if +'gsh_log_e("GSH_GROUPAO_SCADA_SM_ONUPDATE") +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITE_SCADA_SM_ONUPDATE'''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITE_SCADA_SM_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITE_SCADA_SM_ONUPDATE oShape = " &oShape.id) +on error resume next + call GSH_GROUPDIGITALCOMPOSITE_SCADA_ONUPDATE(oShape, flag) + dim val_stsMsg, tagName, stsMsgType, numOfMessage + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG)) + if (val_stsMsg > 0) then + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + numOfMessage = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & "NoOfMessages", "0") + if val_stsMsg >0 and val_stsMsg <=numOfMessage then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &val_stsMsg, "") + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) + end if + end if +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITE_SCADA_SM_ONUPDATE") +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITE_SCADA_SM_P6A_ONUPDATE'''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITE_SCADA_SM_P6A_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITE_SCADA_SM_P6A_ONUPDATE oShape = " &oShape.id) +on error resume next + call GSH_GROUPDIGITALCOMPOSITE_SCADA_P6A_ONUPDATE(oShape, flag) + dim val_stsMsg, tagName, stsMsgType, numOfMessage + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG)) + if (val_stsMsg > 0) then + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + numOfMessage = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & "NoOfMessages", "0") + if val_stsMsg >0 and val_stsMsg <=numOfMessage then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &val_stsMsg, "") + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) + end if + end if +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITE_SCADA_SM_P6A_ONUPDATE") +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDO_SCADA_SM_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDO_SCADA_SM_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_GROUPDO_SCADA_SM_ONUPDATE oShape = " &oShape.id) +on error resume next + call GSH_GROUPDO_SCADA_ONUPDATE(oShape, flag) + dim val_stsMsg, tagName, stsMsgType, numOfMessage + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG)) + if (val_stsMsg > 0) then + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + numOfMessage = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & "NoOfMessages", "0") + if val_stsMsg >0 and val_stsMsg <=numOfMessage then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &val_stsMsg, "") + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) + end if + end if +'gsh_log_e("GSH_GROUPDO_SCADA_SM_ONUPDATE") +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: ' oDataBoundObject = subshape name or me, if calling within subshape +'Used in ALL MULITFP Reg Ctl based! +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagKeyword, tagName + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + tagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + 'Assign values to textboxes + oDataBoundObject.objects("txt_tagname").value = tagName + oDataBoundObject.objects("txt_keyword").value = tagKeyword + 'Disable Alarms + call GSH_SHOWNOALARM(oDataBoundObject) + 'Show values + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPREGULATORYCONTROLNORMAL + oDataBoundObject.objects("outline").style.visibility = GSH_VISIBLE +' oDataBoundObject.objects("txt_ModeValue").style.visibility = GSH_VISIBLE +' oDataBoundObject.objects("txt_OPValue").style.visibility = GSH_VISIBLE +' oDataBoundObject.objects("txt_SPValue").style.visibility = GSH_VISIBLE +' oDataBoundObject.objects("txt_AnalogValue").style.visibility = GSH_VISIBLE + 'Hide Bad Value +' oDataBoundObject.objects("alp_OPValue").style.visibility = GSH_HIDDEN +' oDataBoundObject.objects("alp_SPValue").style.visibility = GSH_HIDDEN +' oDataBoundObject.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_statusmessage").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpHigh").style.visibility = GSH_HIDDEN +' oDataBoundObject.objects("txt_Intialization").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_Initialization").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_ramp").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL'''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next + if (oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOWBADPV''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWBADPV(oDataBoundObject) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWBADPV oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("txt_AnalogValue").value = GSH_BADPV_TEXT + oDataBoundObject.objects("txt_AnalogValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWBADPV") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOWBADSPHIGH''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWBADSPHIGH(oDataBoundObject) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWBADPV oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("txt_SPHighValue").value = GSH_BADPV_TEXT + oDataBoundObject.objects("txt_SPHighValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWBADPV") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOWBADSPLOW''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWBADSPLOW(oDataBoundObject) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWBADPV oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("txt_SPLowValue").value = GSH_BADPV_TEXT + oDataBoundObject.objects("txt_SPLowValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWBADPV") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oDataBoundObject) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPREGULATORYCONTROLDISABLEDALARM +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GEN_SETSHAPEFOCUS(oShape) replaces GSH_GROUPREGULATORYCONTROLSETFOCUS + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOWINITIALIZATION''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWINITIALIZATION(oDataBoundObject) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWINITIALIZATION oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("txt_Intialization").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWINITIALIZATION") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOWWINDUP_LOW''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWWINDUP_LOW(oDataBoundObject) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWWINDUP_LOW oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'show + 'call GSH_GROUPREGULATORYCONTROLSHOWNORMAL(oDataBoundObject) + oDataBoundObject.objects("plg_OpLow").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWWINDUP_LOW") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOWWINDUP_HIGH'''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWWINDUP_HIGH(oDataBoundObject) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWWINDUP_HIGH oDataBoundObject=" & oDataBoundObject.id) +on error resume next + 'show + 'call GSH_GROUPREGULATORYCONTROLSHOWNORMAL(oDataBoundObject) + oDataBoundObject.objects("plg_OpHigh").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWWINDUP_HIGH") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSETSTATUS'''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSETSTATUS(oDataBoundObject, sValue) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSETSTATUS oDataBoundObject=" & oDataBoundObject.id & " value=" & sValue) +on error resume next + oDataBoundObject.objects("txt_status").value = sValue + oDataBoundObject.objects("txt_status").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSETSTATUS") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPREGULATORYCONTROLSHOW_RAMP'''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' txtValue = text to be shown in RAMP shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oDataBoundObject,txtValue) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOW_RAMP oDataBoundObject=" & oDataBoundObject.id & ",txtValue =" &txtValue ) +on error resume next + oDataBoundObject.objects("txt_ramp").value = txtValue + oDataBoundObject.objects("txt_ramp").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOW_RAMP") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPREGULATORYCONTROLHIDEMODEENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLHIDEMODEENTRY(oShape) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLHIDEMODEENTRY oShape=" & oShape.id) + window.clearInterval(GSH_GroupTimerId) + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + oShape.objects("txt_ModeValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_GROUPREGULATORYCONTROLHIDEMODEENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPREGULATORYCONTROLSHOWMODEENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWMODEENTRY(oShape) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWMODEENTRY oShape=" & oShape.id) + oShape.objects("cmb_ModeValue").style.visibility = GSH_VISIBLE + oShape.objects("txt_ModeValue").style.visibility = GSH_HIDDEN + window.clearInterval(GSH_GroupTimerId) + GSH_GroupTimerId = window.setInterval("GSH_GROUPREGULATORYCONTROLHIDEMODEENTRY(" & oShape.id & ")", GSH_GroupTimeout * 1000) +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWMODEENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPREGULATORYCONTROLHIDEOPENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLHIDEOPENTRY(oShape) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLHIDEOPENTRY oShape=" & oShape.id) + window.clearInterval(GSH_GroupTimerId) + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_GROUPREGULATORYCONTROLHIDEOPENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPREGULATORYCONTROLSHOWOPENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWOPENTRY(oShape) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWOPENTRY oShape=" & oShape.id) + oShape.objects("alp_OPValue").style.visibility = GSH_VISIBLE + window.clearInterval(GSH_GroupTimerId) + GSH_GroupTimerId = window.setInterval("GSH_GROUPREGULATORYCONTROLHIDEOPENTRY(" & oShape.id & ")", GSH_GroupTimeout * 1000) +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWOPENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPREGULATORYCONTROLHIDESPENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLHIDESPENTRY(oShape) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLHIDESPENTRY oShape=" & oShape.id) + window.clearInterval(GSH_GroupTimerId) + oShape.objects("alp_SPValue").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_GROUPREGULATORYCONTROLHIDESPENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GROUPREGULATORYCONTROLSHOWSPENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPREGULATORYCONTROLSHOWSPENTRY(oShape) +'gsh_log_s("GSH_GROUPREGULATORYCONTROLSHOWSPENTRY oShape=" & oShape.id) + oShape.objects("alp_SPValue").style.visibility = GSH_VISIBLE + window.clearInterval(GSH_GroupTimerId) + GSH_GroupTimerId = window.setInterval("GSH_GROUPREGULATORYCONTROLHIDESPENTRY(" & oShape.id & ")", GSH_GroupTimeout * 1000) +'gsh_log_e("GSH_GROUPREGULATORYCONTROLSHOWSPENTRY") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Group SCADA AO Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPAO_SCADA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve problem +' that the combox or alp entry was open, +' but no entry made, then other tag is selected as focus tag. (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPAO_SCADA_ONUPDATE(oShape, flag) +on error resume next + + If flag = 0 then + GSH_GROUPAOSHOWNORMAL(oShape) + End If + + If flag <= 1 then + 'Set the focus + 'call GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in principle focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if (GSH_SCADA_POINT_MODE_ISOFFNORMAL(oShape.objects("rec_DataScript"))) then + call GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL(oShape) + end if + end if + End If + + + If flag = 0 then + + oShape.objects("txt_OPValue").value = FormatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPAOSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPAOSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GGSH_GROUPAOSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagKeyword, tagName + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + tagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + 'Assign values to textboxes + oDataBoundObject.objects("txt_tagname").value = tagName + oDataBoundObject.objects("txt_keyword").value = tagKeyword + 'Disable Alarms + 'call GSH_SHOWNOALARM(oDataBoundObject) + 'Show values + oDataBoundObject.objects("txt_ModeValue").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("txt_OPValue").style.visibility = GSH_VISIBLE + 'Hide Bad Value +'gsh_log_e("GSH_GROUPAOSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'DIGITALOUTPUTINDICATOR Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALOUTPUTINDICATORSETFOCUS''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALOUTPUTINDICATORSETFOCUS(oDataBoundObject) +'gsh_log_s("GSH_DIGITALOUTPUTINDICATORSETFOCUS oDataBoundObject=" & oDataBoundObject.id) +on error resume next + call GSH_SETSHAPEFOCUS(oDataBoundObject) + if (not(oDataBoundObject.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must change outline fill to transparent + oDataBoundObject.objects("outline").fillstyle = GSH_FILLTRANSPARENT + end if +'gsh_log_e("GSH_DIGITALOUTPUTINDICATORSETFOCUS") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALOUTPUTINDICATORSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALOUTPUTINDICATORSHOWNORMAL(oShape) +'gsh_log_s("GSH_DIGITALOUTPUTINDICATORSHOWNORMAL oShape=" & oShape.id) +on error resume next + call GSH_SHOWNOALARM(oShape) + oShape.objects("shp_focus").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_DIGITALOUTPUTINDICATORSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALOUTPUTINDICATOR_SCADA_ONUPDATE''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'06/09/07 Check for Off Normal is not needed per RM +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALOUTPUTINDICATOR_SCADA_ONUPDATE (oShape, flag) +on error resume next +Dim sOPStateTxt +If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) +End If + +If flag <=1 then + 'Set the focus + 'call GSH_DIGITALOUTPUTINDICATORSETFOCUS(oShape) + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal is not needed per RM 06/09/07 + sOPStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + oShape.objects("txt_OPvalue").value = sOPStateTxt +End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'NUMERICINDICATOR Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_NUMERICINDICATORSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS 06/12/07 + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_NUMERICINDICATOR_SCADA_ONUPDATE replaced by GSH_SCADA_NUMERICINDICATOR_ONUPDATE May 4,2007 +'Parameters: oShape = shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 06/12/07 GSH_GEN_SETSHAPEFOCUS replaced GSH_NUMERICINDICATORSETFOCUS +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_NUMERICINDICATOR_ONUPDATE (oShape, flag) +on error resume next + + If flag = 0 then + oShape.objects("outline").styleClass = GSH_CSSNUMERICINDICATORNORMAL + End If + If flag <=1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) + End If + If flag = 0 then + 'Bad Data Check removed at request of Rich + oShape.objects("txt_PVvalue").value = GSH_FormatPVText(oShape,oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV)) + End If +End sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FormatPVText: Round value to appropriate number of decimal places for point +'Parameters: +' oShape: calling shape +' txtIn: value to be rounded +'Returns: +' Round value (text) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_FormatPVText(oShape,txtIn) + Dim tempReturn, numOfDecimals +' july 8, 2008 - added extra bad value check - je +' If StrComp(txtIn,"1.#QNAN")= 0 then + If (StrComp(txtIn,"1.#QNAN")= 0) or (StrComp(txtIn,"---")= 0) then + tempReturn = GSH_BADPV_TEXT + else + 'gsh_log_s("GSH_FormatPVText oShape=" & oShape.id & ", txtIn=" & txtIn) + numOfDecimals = CInt(Right(GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1)) + tempReturn = FormatNumber(txtIn, numOfDecimals,-2, 0, 0) + 'gsh_log_e("GSH_FormatPVText returning: " & tempReturn) + End If + gsh_FormatPVText = tempReturn +end function + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FormatPVTextTag: Round value to appropriate number of decimal places for point +'Parameters: +' oShape: calling shape +' txtIn: value to be rounded +'Returns: +' Round value (text) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_FormatPVTextTag(tagName,txtIn) +'gsh_log_s("GSH_FormatPVTextTag tagName=" & tagName & ", txtIn=" & txtIn) +Dim tempReturn +tempReturn = FormatNumber(txtIn,Right(GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1),-2, 0, 0) +gsh_FormatPVTextTag = tempReturn +'gsh_log_e("GSH_FormatPVTextTag returning: " & tempReturn) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ShapeMouseDown: Handler for all shape on mouse down (exception: group shapes & equipment label) +'Parameters: +' oShape: calling shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ShapeMouseDown(oShape) +'gsh_log_s("GSH_ShapeMouseDown oShape=" & oShape.id) +If window.event.button = 2 Then call GSH_RIGHTCLICK(oShape) else call GSH_SHAPECLICKED(oShape) end if +'gsh_log_e("GSH_ShapeMouseDown") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_EquipLabelMouseDown: Handler for equipment label shape on mouse down +'Parameters: +' oShape: Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_EquipmentLabelMouseDown(oShape) +'gsh_log_s("GSH_EquipmentLabelMouseDown oShape=" & oShape.id) + call GSH_RIGHTCLICKEQUIPMENTNAME(oShape) +'gsh_log_e("GSH_EquipmentLabelMouseDown") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' GSH_OFFPAGECONNECTOR_ONSHAPELOAD Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_OFFPAGECONNECTOR_ONSHAPELOAD'''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_OFFPAGECONNECTOR_ONSHAPELOAD(oShape) +'gsh_log_s("GSH_OFFPAGECONNECTOR_ONSHAPELOAD oShape=" & oShape.id) + if (oShape.GetCustomProperty("Value","AssocLevel2") <> "") or (oShape.GetCustomProperty("Value","AssocLevel3") <> "") or (oShape.GetCustomProperty("Value","AssocLevel4") <> "") then + oShape.objects("plgShadow").style.visibility = GSH_VISIBLE + end if +'gsh_log_e("GSH_OFFPAGECONNECTOR_ONSHAPELOAD") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_OFFPAGECONNECTOR_ONCLICK''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_OFFPAGECONNECTOR_ONCLICK(oShape) +'gsh_log_s("GSH_OFFPAGECONNECTOR_ONCLICK oShape=" & oShape.id) +Dim sOnDispT2,sOnDispT3,sOnDispT4 +Dim sTemp,sDisplayName,sAssocT2Name, sAssocT3Name, sAssocT4Name, sDispLocation + sAssocT2Name = oShape.GetCustomProperty("Value","AssocLevel2") + sAssocT3Name = oShape.GetCustomProperty("Value","AssocLevel3") + sAssocT4Name = oShape.GetCustomProperty("Value","AssocLevel4") + sDispLocation = GSH_ReadDisplayNames("") +if (sAssocT2Name <> "") or (sAssocT3Name <> "") or (sAssocT4Name <> "") then + call GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(GSH_FALSE) 'Reset all tagname labels to hidden +end if +if strcomp(sAssocT2Name,"",vbtextcompare)<>0 then + sOnDispT2 = Ucase(GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T2FN,"")) + sDisplayName = Ucase(sAssocT2Name) + If strcomp(sAssocT2Name,sOnDispT2,vbtextcompare)<>0 Then + sTemp = GSH_sDispLocation & sDisplayName & ".htm" + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T2FN,sDisplayName) + window.navigate(sTemp) + End If +End if +if strcomp(sAssocT3Name,"",vbtextcompare)<>0 then + sOnDispT3 = Ucase(GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T3FN,"")) + sDisplayName = Ucase(sAssocT3Name) + If strcomp(sAssocT3Name,sOnDispT3,vbtextcompare)<>0 Then + sTemp = sDispLocation & sDisplayName & ".htm" + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T3FN,sDisplayName) + window.navigate(sTemp) + End If +End if +if strcomp(sAssocT4Name,"",vbtextcompare)<>0 then + sOnDispT4 = Ucase(GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_T4FN,"")) + sDisplayName = Ucase(sAssocT4Name) + If strcomp(sAssocT4Name,sOnDispT4,vbtextcompare)<>0 Then + sTemp = sDispLocation & sDisplayName & ".htm" + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sDisplayName) + window.navigate(sTemp) + End If +End if +'gsh_log_e("GSH_OFFPAGECONNECTOR_ONCLICK") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_OFFPAGECONNECTOR_L1AS_ONCLICK''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_OFFPAGECONNECTOR_L1AS_ONCLICK(oShape) +'gsh_log_s("GSH_OFFPAGECONNECTOR_L1AS_ONCLICK oShape=" & oShape.id) +Dim sOnDispT1 +Dim sTemp,sDisplayName,sAssocT1Name, sDispLocation + sAssocT1Name = oShape.GetCustomProperty("Value","AssocLevel1") + sDispLocation = GSH_ReadDisplayNames("") +if strcomp(sAssocT1Name,"",vbtextcompare)<>0 then + sDisplayName = Ucase(sAssocT1Name) + sTemp = GSH_sDispLocation & sDisplayName & ".htm" + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE ("Type1ASFileName",sDisplayName) + window.navigate(sTemp) +End If +'gsh_log_e("GSH_OFFPAGECONNECTOR_L1AS_ONCLICK") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' TAGNAMELABEL Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TAGNAMELABEL_ONSHAPELOAD'''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TAGNAMELABEL_ONSHAPELOAD(oShape) +'gsh_log_s("GSH_TAGNAMELABEL_ONSHAPELOAD oShape=" & oShape.id) +on error resume next + oShape.objects("txt_TagName").style.textAlign = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPJUSTIFYLABEL) + + if (strcomp(GSH_TAGNAMELABEL_GET_VISIBILITYSTATUS,GSH_TRUE, vbtextcompare) = 0) then + oShape.objects("txt_TagName").style.visibility = GSH_VISIBLE + else: oShape.objects("txt_TagName").style.visibility = GSH_HIDDEN + end if +'gsh_log_e("GSH_TAGNAMELABEL_ONSHAPELOAD") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TAGNAMELABEL_ONUPDATE'''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TAGNAMELABEL_ONUPDATE(oShape) +'gsh_log_s("GSH_TAGNAMELABEL_ONUPDATE oShape=" & oShape.id) +On Error resume next + dim strTurnOnTagNameLabel + strTurnOnTagNameLabel = GSH_TAGNAMELABEL_GET_VISIBILITYSTATUS + + If ((strComp(strTurnOnTagNameLabel,GSH_TRUE,vbtextcompare))=0) Then + oShape.objects("txt_TagName").style.visibility = GSH_VISIBLE + else + oShape.objects("txt_TagName").style.visibility = GSH_HIDDEN + End If +'gsh_log_e("TAGNAMELABEL_ONUPDATE") + +End Sub + + +' +'GSH_TAGNAMELABEL_GETVISIBILITY() +'look up the registry to get the current visibility +'status of the TAGNAMELABEL shape +' +'04/29/2008: Update for version 1.1.2 to replace the use of StationDataRepository(CL) +function GSH_TAGNAMELABEL_GET_VISIBILITYSTATUS +'gsh_log_s("GSH_TAGNAMELABEL_GET_VISIBILITYSTATUS") +on error resume next + + dim labelIsVisible + + labelIsVisible = GSH_READDISPLAYCOMMUNICATIONKEYVALUE(GSH_REGKEY_TAGNAMELABLESTATUS,GSH_FALSE) + +' gsh_log_e("GSH_TAGNAMELABEL_GET_VISIBILITYSTATUS labelIsVisible = " &labelIsVisible) + GSH_TAGNAMELABEL_GET_VISIBILITYSTATUS = labelIsVisible +end function + +' +'GSH_TAGNAMELABEL_SETVISIBILITY() +'set the visibility status of the TAGNAMELABEL shape +' +'04/29/2008: Update for version 1.1.2 to replace the use of StationDataRepository(CL) +sub GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(status) +'gsh_log_s("GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS status=" &status) +on error resume next + + if(strComp(status,GSH_TRUE,vbtextcompare)<>0 AND strComp(status,GSH_FALSE,vbtextcompare)<>0) then + gsh_log("ERROR: status = " &status & " is invalid. Please use GSH_TRUE or GSH_FALSE") + else + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_TAGNAMELABLESTATUS,status + end if + + +'gsh_log_e("GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS") +End sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' TAGNAMEALIASLABEL Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TAGNAMEALIASLABEL_ONSHAPELOAD'''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TAGNAMEALIASLABEL_ONSHAPELOAD(oShape) +'gsh_log_s("GSH_TAGNAMEALIASLABEL_ONSHAPELOAD oShape=" & oShape.id) +on error resume next + dim sTagLabel, shapePoint + oShape.objects("txt_TagName").style.textAlign = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPJUSTIFYLABEL) + shapePoint = oShape.GetCustomProperty(GSH_CPVALUE,"TagName") + sTagLabel = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + If (strcomp(sTagLabel,shapePoint,vbtextcompare)<>0) then + oShape.objects("txt_TagName").value = sTagLabel + End If + if (strcomp(GSH_TAGNAMELABEL_GET_VISIBILITYSTATUS, GSH_TRUE, vbtextcompare) = 0) then + oShape.objects("txt_TagName").style.visibility = GSH_VISIBLE + else: oShape.objects("txt_TagName").style.visibility = GSH_HIDDEN + end if +'gsh_log_e("GSH_TAGNAMEALIASLABEL_ONSHAPELOAD") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' TAGEUDESCLABEL Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TAGEUDESCLABEL_ONSHAPELOAD'''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TAGEUDESCLABEL_ONSHAPELOAD(oShape) +'gsh_log_s("GSH_TAGEUDESCLABEL_ONSHAPELOAD oShape=" & oShape.id) +on error resume next + dim sTagEULabel, shapePoint + oShape.objects("txt_TagEUDescName").style.textAlign = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPJUSTIFYLABEL) + shapePoint = oShape.GetCustomProperty(GSH_CPVALUE,"TagName") + sTagEULabel = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGEUDESC, shapePoint) + If (strcomp(sTagEULabel,shapePoint,vbtextcompare)<>0) then + oShape.objects("txt_TagEUDESC").value = sTagLabel + End If +'gsh_log_e("GSH_TAGEUDESC_ONSHAPELOAD") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'LevelIndicator Shape Section: Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_LevelIndicator_SCADA_OnUpdate''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'06/08/07 Removing offnormal check from all Scada analog shapes AL(284) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelIndicator_SCADA_OnUpdate(oShape, flag) +'gsh_log_s("GSH_LevelIndicator_SCADA_OnUpdate oShape="&oShape.id) +On Error Resume Next +If flag <= 1 then + 'Initialize Shape + call GSH_LevelIndicatorShowNormal(oShape) + 'Check Alarms + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + 'Alarm is Disabled + call GSH_LevelIndicatorShowDisbledAlarm(oShape) + else + call GSH_SHOWLEVELALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + call GSH_LevelIndicatorSetFocus(oShape) + '06/08/07 Removing offnormal check from all Scada analog shapes AL(284) +'End If +'If flag = 0 then + 'Check for Bad PV + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End if +End If +'gsh_log_e("GSH_LevelIndicator_SCADA_OnUpdate") +end sub + +'06/04/07 Added else case, if FocusNone +'06/07/07 Removed else case as if was causing problems when status is FocusNone and Alarming +sub GSH_LevelIndicatorSetFocus(oShape) +'gsh_log_s("GSH_LevelIndicatorSetFocus oShape=" & oShape.id) +on error resume next + call GSH_SETSHAPEFOCUS(oShape) + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +' else +' oShape.objects("outline").style.visibility = GSH_HIDDEN +' oShape.objects("outline").fillstyle = GSH_FILLSOLID +' oShape.objects("txt_PVvalue").style.visibility = GSH_HIDDEN + end if +'gsh_log_e("GSH_LevelIndicatorSetFocus") +end sub + +sub GSH_LevelIndicatorShowNormal(oShape) +'gsh_log_s("GSH_LevelIndicatorShowNormal oShape=" & oShape.id) + oShape.objects("rec_IndicatorFloat").style.visibility = GSH_VISIBLE + oShape.objects("rec_IndicatorRange").style.visibility = GSH_VISIBLE + oShape.objects("txt_BadPVIndicator").style.visibility = GSH_HIDDEN + oShape.objects("txt_PVValue").style.visibility = GSH_HIDDEN + oShape.objects("txt_PVvalue").styleClass = GSH_CSSLEVELINDICATORNORMALPVTEXT + call GSH_LevelIndicatorShowNoAlarm(oShape) 'call GSH_SHOWNOALARM(oShape) + oShape.objects("outline").style.visibility = GSH_HIDDEN + oShape.objects("rec_IndicatorFloat").styleClass = GSH_CSSLEVELINDICATORFLOAT + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLEVELINDICATORNORMAL +'gsh_log_e("GSH_LevelIndicatorShowNormal") +end sub + +sub GSH_LevelIndicatorShowOffNormal(oShape) +'gsh_log_s("GSH_LevelIndicatorShowOffNormal oShape=" & oShape.id) + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("txt_PVValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_LevelIndicatorShowOffNormal") +end sub + +sub GSH_LevelIndicatorShowHighAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorShowHighAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + 'show + call GSH_ShowHighAlarm(oShape,unAcknowledged) + if unAcknowledged then + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMHIGHUNACK + else + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMHIGHACK + end if + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_LevelIndicatorShowHighAlarm") +end sub + +sub GSH_LevelIndicatorShowNoAlarm(oShape) +'gsh_log_s("GSH_LevelIndicatorShowNoAlarm oShape=" & oShape.id) + call GSH_ShowNoAlarm(oShape) + oShape.objects("outline").style.visibility = GSH_HIDDEN + oShape.objects("txt_PVvalue").style.visibility = GSH_HIDDEN + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLEVELINDICATORNORMAL +'gsh_log_e("GSH_LevelIndicatorShowNoAlarm") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_LevelIndicatorShowLowAlarm: Show Low Alarm behavior for shape'''''' +'Parameters: +' oShape = calling shape +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelIndicatorShowLowAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorShowLowAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + 'show + call GSH_ShowLowAlarm(oShape,unAcknowledged) + if unAcknowledged then + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMLOWUNACK + else + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMLOWACK + end if + oShape.objects("txt_PVValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_LevelIndicatorShowLowAlarm") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_LevelIndicatorShowEmergencyAlarm: Show Emerg behavior for Shape ''' +'Parameters: +' oShape = Calling shape +' unAcknowledged - true or false , true if you want to show UnAcknowledged Alarm Behavior +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelIndicatorShowEmergencyAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorShowEmergencyAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + 'show + call GSH_ShowEmergencyAlarm(oShape,unAcknowledged) + if unAcknowledged then + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMEMERGENCYUNACK + else + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMEMERGENCYACK + end if + oShape.objects("txt_PVValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_LevelIndicatorShowEmergencyAlarm") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_LevelIndicatorShowDisbledAlarm: Show shape in disabled alarm state +'Parameters: +' oShape = calling shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelIndicatorShowDisbledAlarm(oShape) +'gsh_log_s("GSH_LevelIndicatorShowDisbledAlarm oShape=" & oShape.id) + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLEVELINDICATORDISABLEDALARM + oShape.objects("outline").styleClass = GSH_CSSLEVELINDICATORDISABLEDALARM +'gsh_log_e("GSH_LevelIndicatorShowDisbledAlarm") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'LevelIndicatorSmallSMALL Shape Section +' Contains all functions specific to the Level Indicator Small shape +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'06/08/07 Removing offnormal check from all Scada analog shapes AL(284) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelIndicatorSmall_SCADA_OnUpdate(oShape, flag) +'gsh_log_s("GSH_LevelIndicatorSmall_SCADA_OnUpdate, oshape=" & oShape.id) +On Error Resume Next + If flag <= 1 then + 'Initialize Shape + call GSH_LevelIndicatorShowNormal(oShape) + 'Check Alarms + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + 'Alarm is Disabled + call GSH_LevelIndicatorShowDisbledAlarm(oShape) + else + 'alarming is enabled, get highest priority and change shape accordingly + Select Case GSH_GETHIGHESTALARMPRIORITY(oShape.objects("rec_DataScript")) + Case GSH_NOALARMCODE + call GSH_LevelIndicatorShowNoAlarm(oShape) + Case GSH_UNACKEMERG + call GSH_LevelIndicatorSmallShowEmergencyAlarm(oShape,True) + Case GSH_UNACKHIGH + call GSH_LevelIndicatorSmallShowHighAlarm(oShape,true) + Case GSH_UNACKLOW + call GSH_LevelIndicatorSmallShowLowAlarm(oShape,true) + Case GSH_ACKEMERG + call GSH_LevelIndicatorSmallShowEmergencyAlarm(oShape,false) + Case GSH_ACKHIGH + call GSH_LevelIndicatorSmallShowHighAlarm(oShape,false) + Case GSH_ACKLOW + call GSH_LevelIndicatorSmallShowLowAlarm(oShape,false) + Case Else + call GSH_LevelIndicatorShowNoAlarm(oShape) + End Select + End If + call GSH_LEVELINDICATORSETFOCUS(oShape) + '06/08/07 Removing offnormal check from all Scada analog shapes AL(284) +'End If + +'If flag = 0 then + 'Check for Bad PV + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If +End If +'gsh_log_e("GSH_LevelIndicatorSmall_SCADA_OnUpdate") +end sub + +sub GSH_LevelIndicatorSmallShowHighAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorSmallShowHighAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_LevelIndicatorShowHighAlarm(oShape,unAcknowledged) + 'Make Alarm outline width smaller + oShape.objects("outline").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH +'gsh_log_e("GSH_LevelIndicatorSmallShowHighAlarm") +end sub + +sub GSH_LevelIndicatorSmallShowLowAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorSmallShowLowAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_LevelIndicatorShowLowAlarm(oShape,unAcknowledged) + 'Make Alarm outline width smaller + oShape.objects("outline").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH +'gsh_log_e("GSH_LevelIndicatorSmallShowLowAlarm") +end sub + +sub GSH_LevelIndicatorSmallShowEmergencyAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorSmallShowEmergencyAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_LevelIndicatorShowEmergencyAlarm(oShape,unAcknowledged) + 'Make Alarm outline width smaller + oShape.objects("outline").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH +'gsh_log_e("GSH_LevelIndicatorSmallShowEmergencyAlarm") +end sub + +sub GSH_LevelIndicatorSmallShowDisbledAlarm(oShape) +'gsh_log_s("GSH_LevelIndicatorSmallShowDisbledAlarm oShape=" & oShape.id ) + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLEVELINDICATORDISABLEDALARM + oShape.objects("outline").styleClass = GSH_CSSLEVELINDICATORDISABLEDALARM +'gsh_log_e("GSH_LevelIndicatorSmallShowDisbledAlarm") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'LEVEL INDICATOR REGULATORY CONTROL Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelIndicatorRegulatoryControl_SCADA_OnUpdate(oShape, flag) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControl_SCADA_OnUpdate oShape="&oShape.id) +On Error Resume Next + + If flag <= 1 then + call GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_datascript")) Then + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + else + call GSH_SHOWLEVELALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + 'End If + + + 'If flag <= 1 then + 'Check Focus + call GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_PV)) then + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) + end if + end if + + 'End If + + + 'If flag = 0 then + 'Check for bad value + If GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + call GSH_LevelIndicatorShowSPFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If + End If +'gsh_log_e("GSH_LevelIndicatorRegulatoryControl_SCADA_OnUpdate") +end sub + +' 06/04/07 Changed to sub and added else case for when focus is none. +' 06/05/07 Changed back because it affected the alarm display without focus. +sub GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControlSetFocus oShape=" & oShape.id) +on error resume next + call GSH_SETSHAPEFOCUS(oShape) + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("outline").style.visibility = GSH_VISIBLE + end if +'gsh_log_e("GSH_LevelIndicatorRegulatoryControlSetFocus") +end sub + +sub GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControlShowNormal oShape=" & oShape.id) + call GSH_LevelIndicatorShowNoAlarm(oShape) + oShape.objects("txt_PVvalue").style.visibility = GSH_HIDDEN + oShape.objects("txt_PVvalue").styleClass = GSH_CSSLEVELINDICATORNORMALPVTEXT + oShape.objects("txt_BadPVIndicator").style.visibility = GSH_HIDDEN + oShape.objects("outline").styleClass = GSH_CSSLEVELINDICATORNORMAL'GSH_CSSLEVELINDICATORREGULATORYCONTROLNORMAL + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLEVELINDICATORNORMAL'GSH_CSSLEVELINDICATORREGULATORYCONTROLNORMAL + oShape.objects("rec_IndicatorFloat").style.visibility = GSH_VISIBLE + oShape.objects("rec_IndicatorFloat").styleClass = GSH_CSSLEVELINDICATORFLOAT'GSH_CSSLEVELINDICATORREGULATORYCONTROLNORMAL + oShape.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oShape.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oShape.objects("txt_initialization").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_LevelIndicatorRegulatoryControlShowNormal") +end sub + +sub GSH_LevelIndicatorRegulatoryControlShowNoAlarm(oShape) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControlShowNoAlarm oShape=" & oShape.id) + call GSH_ShowNoAlarm(oShape) + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLEVELINDICATORNORMAL + oShape.objects("outline").style.visibility = GSH_HIDDEN + oShape.objects("txt_PVvalue").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_LevelIndicatorRegulatoryControlShowNoAlarm") +end sub + +sub GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControlShowOffNormal oShape=" & oShape.id) +on error resume next + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT +'gsh_log_e("GSH_LevelIndicatorRegulatoryControlShowOffNormal") +end sub + +sub GSH_LevelIndicatorRegulatoryControlShowHighAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControlShowHighAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_ShowHighAlarm(oShape,unAcknowledged) + if unAcknowledged then + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMHIGHUNACK + else + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMHIGHACK + end if + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_LevelIndicatorRegulatoryControlShowHighAlarm") +end sub + +sub GSH_LevelIndicatorRegulatoryControlShowLowAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControlShowLowAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_ShowLowAlarm(oShape,unAcknowledged) + if unAcknowledged then + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMLOWUNACK + else + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMLOWACK + end if + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_LevelIndicatorRegulatoryControlShowLowAlarm") +end sub + +sub GSH_LevelIndicatorRegulatoryControlShowEmergencyAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControlShowEmergencyAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_ShowEmergencyAlarm(oShape,unAcknowledged) + if unAcknowledged then + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMEMERGENCYUNACK + else + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMEMERGENCYACK + end if + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_LevelIndicatorRegulatoryControlShowEmergencyAlarm") +end sub + +sub GSH_LevelIndicatorShowPVFloat(oShape) +'gsh_log_s("GSH_LevelIndicatorShowPVFloat oShape=" & oShape.id) + Dim iNumPixels, iBottom + Dim iRangeHi, iRangeLo, iPV + 'Calculate pv value + iRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + iRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + iPV = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + iNumPixels = 0 + if (iPV > iRangeHi) then + iNumPixels = oShape.objects("rec_IndicatorRange").style.pixelheight +' iNumPixels = oShape.objects("LinePVRange").style.pixelheight + ElseIf (iPV < iRangeLo) then + iNumPixels = 0 + else + iNumPixels = (oShape.objects("rec_IndicatorRange").style.pixelheight * ((iPV - iRangeLo) / (iRangeHi - iRangeLo))) +' iNumPixels = (oShape.objects("LinePVRange").style.pixelheight * ((iPV - iRangeLo) / (iRangeHi - iRangeLo))) + end if + iBottom = (oShape.objects("rec_IndicatorRange").style.pixelheight + oShape.objects("rec_IndicatorRange").style.pixeltop) + oShape.objects("rec_IndicatorFloat").style.pixeltop = iBottom - iNumPixels - (oShape.objects("rec_IndicatorFloat").style.pixelheight / 2) +' gsh_log(oShape.objects("rec_IndicatorFloat").id & " pixeltop=" & oShape.objects("rec_IndicatorFloat").style.pixeltop) +'gsh_log_e("GSH_LevelIndicatorShowPVFloat") +end sub + +sub GSH_LevelIndicatorShowSPFloat(oShape) +'gsh_log_s("GSH_LevelIndicatorShowSPFloat oShape=" & oShape.id) + oShape.objects("plg_SPIndicator").style.pixeltop = cint(GSH_LEVELINDICATOR_SPFLOATPOSITION (oShape,GSH_CPPARAM_SP)-(oShape.objects("plg_SPIndicator").style.pixelheight / 2)) +'gsh_log_e("GSH_LevelIndicatorShowSPFloat") +end sub + +function GSH_LEVELINDICATOR_SPFLOATPOSITION(oShape, SPParam) +'gsh_log_s("GSH_LEVELINDICATOR_SPFLOATPOSITION oShape=" & oShape.id) + Dim iNumPixels, iBottom + Dim iRangeHi, iRangeLo, iSP + 'Calculate pv value + iRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + iRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + 'gsh_log("iRangeHi=" & iRangeHi & ", iRangeLo=" & iRangeLo) + iSP = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"), SPParam) + 'gsh_log("SP=" & iSP) + if (iSP > iRangeHi) then + iNumPixels = oShape.objects("rec_IndicatorRange").style.pixelheight + ElseIf (iSP < iRangeLo) then + iNumPixels = 0 + else + iNumPixels = (oShape.objects("rec_IndicatorRange").style.pixelheight * ((iSP - iRangeLo) / (iRangeHi - iRangeLo))) + end if + iBottom = (oShape.objects("rec_IndicatorRange").style.pixelheight + oShape.objects("rec_IndicatorRange").style.pixeltop) + Dim iPosition : iPosition = cint(iBottom - iNumPixels ) + GSH_LEVELINDICATOR_SPFLOATPOSITION = iPosition +'gsh_log_e("GSH_LEVELINDICATOR_SPFLOATPOSITION returns >>>>>>>>>>>>"&iPosition) +end function + +sub GSH_LevelIndicatorShowBadPV(oShape) +'gsh_log_s("GSH_LevelIndicatorShowBadPV oShape=" & oShape.id) + oShape.objects("txt_PVvalue").styleClass = GSH_CSSLEVELINDICATORBADPVTEXT + oShape.objects("txt_PVvalue").value = "---" + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLEVELINDICATORBADPV + oShape.objects("rec_IndicatorFloat").style.visibility = GSH_HIDDEN + oShape.objects("txt_BadPVIndicator").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_LevelIndicatorShowBadPV") +end sub + +sub GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm oShape=" & oShape.id) + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLEVELINDICATORDISABLEDALARM + oShape.objects("outline").styleClass = GSH_CSSLEVELINDICATORDISABLEDALARM + oShape.objects("outline").style.visibility = GSH_HIDDEN + oShape.objects("txt_PVvalue").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'LEVEL INDICATOR REGULATORY CONTROL_GAPVARIN Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelIndicatorRegulatoryControl_GAPVarIn_SCADA_OnUpdate(oShape, flag) +'gsh_log_s("GSH_LevelIndicatorRegulatoryControl_GAPVarIn_SCADA_OnUpdate oShape="&oShape.id) +On Error Resume Next + + If flag <= 1 then + call GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_datascript")) Then + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + else + call GSH_SHOWLEVELALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + 'End If + + + 'If flag <= 1 then + 'Check Focus + call GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_PV)) then + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) + end if + end if + + 'End If + + + 'If flag = 0 then + 'Check for bad value + If GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) +' call GSH_LevelIndicatorShowSPFloat(oShape) + dim vsphi, vsplo + vsphi = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY_SPHI &"." &GSH_CPPARAM_ENTITY_SPHI_PARA) + vsplo = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY_SPLO &"." &GSH_CPPARAM_ENTITY_SPLO_PARA) + + oShape.objects("plg_SPIndicator1").style.pixeltop = cint(GSH_LEVELINDICATOR_SPFLOATPOSITION_GAPVarIn(oShape,vsphi) - (oShape.objects("plg_SPIndicator2").style.pixelheight / 2)) + oShape.objects("plg_SPIndicator2").style.pixeltop = cint(GSH_LEVELINDICATOR_SPFLOATPOSITION_GAPVarIn(oShape,vsplo)- (oShape.objects("plg_SPIndicator1").style.pixelheight / 2)) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If + + 'When SPHigh or SPLow value is Nan -> do not show the marker + if not(isNAN(vsphi)) then + oShape.objects("plg_SPIndicator1").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_SPIndicator1").style.visibility = GSH_HIDDEN + end if + + if not(isNAN(vsplo)) then + oShape.objects("plg_SPIndicator2").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_SPIndicator2").style.visibility = GSH_HIDDEN + end if + + End If +'gsh_log_e("GSH_LevelIndicatorRegulatoryControl_GAPVarIn_SCADA_OnUpdate") +end sub + +function GSH_LEVELINDICATOR_SPFLOATPOSITION_GAPVARIN(oShape,InputVal) +'gsh_log_s("GSH_LEVELINDICATOR_SPFLOATPOSITION_GAPVarIn oShape=" & oShape.id) + Dim iNumPixels, iBottom + Dim iRangeHi, iRangeLo, iSP + 'Calculate pv value + iRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + iRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) +' gsh_log("iRangeHi=" & iRangeHi & ", iRangeLo=" & iRangeLo) + iSP = InputVal + 'iSP = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"), SPParam) +' gsh_log("SP=" & iSP) + if (iSP > iRangeHi) then + iNumPixels = oShape.objects("rec_IndicatorRange").style.pixelheight + ElseIf (iSP < iRangeLo) then + iNumPixels = 0 + else + iNumPixels = (oShape.objects("rec_IndicatorRange").style.pixelheight * ((iSP - iRangeLo) / (iRangeHi - iRangeLo))) +' gsh_log("iNumPixels=" & iNumPixels) + end if + iBottom = (oShape.objects("rec_IndicatorRange").style.pixelheight + oShape.objects("rec_IndicatorRange").style.pixeltop) + Dim iPosition : iPosition = cint(iBottom - iNumPixels) + GSH_LEVELINDICATOR_SPFLOATPOSITION_GAPVARIN = iPosition +'gsh_log_e("GSH_LEVELINDICATOR_SPFLOATPOSITION_GAPVARIN returns >>>>>>>>>>>>"&iPosition) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'LevelIndicatorRegCtlSmall Shape Section +' Contains all functions specific to the shape +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +sub GSH_LevelIndicatorRegCtlSmall_SCADA_OnUpdate(oShape, flag) +'gsh_log_s("GSH_LevelIndicatorRegCtlSmall_SCADA_OnUpdate oShape="&oShape.id) +On Error Resume Next + +If flag <= 1 then + GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_datascript")) Then + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + else + 'alarming is enabled, get highest priority and change shape accordingly + Select Case GSH_GETHIGHESTALARMPRIORITY(oShape.objects("rec_datascript")) + Case GSH_NOALARMCODE + call GSH_LevelIndicatorRegulatoryControlShowNoAlarm(oShape) + Case GSH_UNACKEMERG + call GSH_LevelIndicatorRegCtlSmallShowEmergencyAlarm(oShape,True) + Case GSH_UNACKHIGH + call GSH_LevelIndicatorRegCtlSmallShowHighAlarm(oShape,true) + Case GSH_UNACKLOW + call GSH_LevelIndicatorRegCtlSmallShowLowAlarm(oShape,true) + Case GSH_ACKEMERG + call GSH_LevelIndicatorRegCtlSmallShowEmergencyAlarm(oShape,false) + Case GSH_ACKHIGH + call GSH_LevelIndicatorRegCtlSmallShowHighAlarm(oShape,false) + Case GSH_ACKLOW + call GSH_LevelIndicatorRegCtlSmallShowLowAlarm(oShape,false) + Case Else + call GSH_LevelIndicatorRegulatoryControlShowNoAlarm(oShape) + End Select + End If +'End If + +'If flag <= 1 then + GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_PV)) then + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) + end if + end if + +'End If + + +'If flag = 0 then + 'Check for bad value + If GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + call GSH_LevelIndicatorShowSPFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If +End If + +'gsh_log_e("GSH_LevelIndicatorRegCtlSmall_SCADA_OnUpdate") +end sub + +sub GSH_LevelIndicatorRegCtlSmallShowHighAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorRegCtlSmallShowHighAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_LevelIndicatorRegulatoryControlShowHighAlarm(oShape,unAcknowledged) + 'Make Alarm outline width smaller compared to regular size + oShape.objects("outline").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH +'gsh_log_e("GSH_LevelIndicatorRegCtlSmallShowHighAlarm") +end sub + +sub GSH_LevelIndicatorRegCtlSmallShowLowAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorRegCtlSmallShowLowAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_LevelIndicatorRegulatoryControlShowLowAlarm(oShape,unAcknowledged) + 'Make Alarm outline width smaller compared to regular size + oShape.objects("outline").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH +'gsh_log_e("GSH_LevelIndicatorRegCtlSmallShowLowAlarm") +end sub + +sub GSH_LevelIndicatorRegCtlSmallShowEmergencyAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_LevelIndicatorRegCtlSmallShowEmergencyAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_LevelIndicatorRegulatoryControlShowEmergencyAlarm(oShape,unAcknowledged) + 'Make Alarm outline width smaller compared to regular size + oShape.objects("outline").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH +'gsh_log_e("GSH_LevelIndicatorRegCtlSmallShowEmergencyAlarm") +end sub + +sub GSH_LevelIndicatorRegCtlSmallShowDisbledAlarm(oShape) +'gsh_log_s("GSH_LevelIndicatorRegCtlSmallShowDisbledAlarm oShape=" & oShape.id ) + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLEVELINDICATORDISABLEDALARM + oShape.objects("outline").styleClass = GSH_CSSLEVELINDICATORDISABLEDALARM + 'Make Alarm outline width smaller + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH + oShape.objects("outline").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_LevelIndicatorRegCtlSmallShowDisbledAlarm") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' VALVE_DIGITAL Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_VALVEDIGITAL_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_VALVEDIGITAL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_SCADA_ValveDigital_OnUpdate oShape=" & oShape.id) +on error resume next + + If flag <= 1 then + Dim nNumericState + nNumericState = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + call GSH_ValveDigitalShowNormal(oShape) + call GSH_SCADA_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState) + if (GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript"))) Then 'Alarm is Disabled + call GSH_ValveDigitalShowDisabledAlarm(oShape) + else 'alarming is enabled, get highest priority and change shape accordingly + Select Case GSH_GETHIGHESTALARMPRIORITY(oShape.objects("rec_DataScript")) + Case GSH_NOALARMCODE + 'call GSH_ValveDigitalShowNormal(oShape) + Case GSH_UNACKEMERG + call GSH_ValveDigitalShowEmergencyAlarm(oShape,true) + Case GSH_UNACKHIGH + call GSH_ValveDigitalShowHighAlarm(oShape,true) + Case GSH_UNACKLOW + call GSH_ValveDigitalShowLowAlarm(oShape,true) + Case GSH_ACKEMERG + call GSH_ValveDigitalShowEmergencyAlarm(oShape,false) + Case GSH_ACKHIGH + call GSH_ValveDigitalShowHighAlarm(oShape,false) + Case GSH_ACKLOW + call GSH_ValveDigitalShowLowAlarm(oShape,false) + End Select + End If + 'End If + + 'If flag <= 1 then + 'focus + call GSH_ValveDigitalSetFocus(oShape) + + 'Check for Off Normal if not in focus + dim sPVStateTxt + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV,oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sPVStateTxt) then + call GSH_ValveDigitalShowOffNormal(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + End If + + If flag = 0 then + 'Bad Data Check + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_ValveDigitalShowBadPV(oShape) + else + oShape.objects("txt_PVvalue").value = sPVStateTxt + End If + + End If +'gsh_log_e("GSH_SCADA_ValveDigital_OnUpdate") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' VALVE_DIGITAL Shape Section +' Contains all functions specific to the shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_VALVEDIGITAL_P6A_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'01/11/2008: Added to handle P6A VALVE DIGITAL shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_VALVEDIGITAL_P6A_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_SCADA_VALVEDIGITAL_P6A_ONUPDATE oShape=" & oShape.id) +on error resume next + + + Dim nNumericState +' nNumericState = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_IP1) + call GSH_ValveDigitalShowNormal(oShape) + + 'Find value of GSH_CPPARAM_PV_IP1 + dim input1_val, input2_val, expected_input1_val, expected_input2_val, sPVStateTxt + + sPVStateTxt = GSH_NONE + input1_val = Cint(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_IP1)) + input2_val = Cint(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_IP2)) + + expected_input1_val = Cint(oShape.GetCustomProperty(GSH_CPVALUE,GSH_EXPECTEDVAL1)) + expected_input2_val = Cint(oShape.GetCustomProperty(GSH_CPVALUE,GSH_EXPECTEDVAL2)) + + + if((input1_val=expected_input1_val) And (input2_val=expected_input2_val)) then + nNumericState = 3 + sPVStateTxt = GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),"BothOn","") + elseif ((input1_val=expected_input1_val) And (input2_val<>expected_input2_val)) then + nNumericState = 0 + sPVStateTxt = GSH_GET_STATE_TEXT_P6A(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), oShape.GetCustomProperty(GSH_CPPARAMETER,GSH_CPPARAM_IP1)&"_"&input1_val) + alarmPara=GSH_CPPARAM_IP1 + elseif ((input1_val<>expected_input1_val) And (input2_val=expected_input2_val)) then + nNumericState = 1 + sPVStateTxt = GSH_GET_STATE_TEXT_P6A(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), oShape.GetCustomProperty(GSH_CPPARAMETER,GSH_CPPARAM_IP2)&"_"&input2_val) + alarmPara=GSH_CPPARAM_IP2 + else + nNumericState = 3 + sPVStateTxt = GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),"BothOff","") + end if + + call GSH_SCADA_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState) + + oShape.objects("txt_PVvalue").value = sPVStateTxt + + call GSH_ValveDigitalSetFocus(oShape) + + + +'gsh_log_e("GSH_SCADA_VALVEDIGITAL_P6A_ONUPDATE") + +end sub + +sub GSH_ValveDigitalSetValveCSSStyle(oShape,style) +'gsh_log_s("GSH_ValveDigitalSetValveCSSStyle oShape=" & oShape.id&",style="&style) +on error resume next + oShape.objects("plg_ValveDigitalPic").styleClass = style +'gsh_log_e("GSH_ValveDigitalSetValveCSSStyle") +end sub + +'sub GSH_ValveDigitalSetValveState(oShape,currentState) replaced by GSH_SCADA_VALVEDIGITALSETVALVENUMERICSTATE May1 + +sub GSH_SCADA_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericStateValue) +'gsh_log_s("GSH_SCADA_VALVEDIGITALSETVALVENUMERICSTATE oShape=" & oShape.id & "nNumericStateValue=" & nNumericStateValue) +on error resume next + Dim sTagName, sStateStyle + sTagName = GSH_GETSHAPETAG(oShape) + sStateStyle = GSH_READTAGINFORMATIONKEYVALUE(sTagName,"STATESTYLE("&nNumericStateValue&")",GSH_CSSVALVEDIGITALTRAVEL) +' gsh_log("GSH_SCADA_VALVEDIGITALSETVALVENUMERICSTATE checkpoint1 sStateStyle = "&sStateStyle) + + oShape.objects("txt_PVValue").style.visibility = GSH_HIDDEN + If strComp(sStateStyle,GSH_CSSVALVEDIGITALTRAVEL,vbTextCompare)=0 Then 'if the style is travel then make txt_PVValue visible + oShape.objects("txt_PVValue").style.visibility = GSH_VISIBLE + end if + call GSH_ValveDigitalSetValveCSSStyle(oShape,sStateStyle) +'gsh_log_e("GSH_SCADA_VALVEDIGITALSETVALVENUMERICSTATE") +end sub + +sub GSH_ValveDigitalSetFocus(oShape) +'gsh_log_s("GSH_ValveDigitalSetFocus oShape=" & oShape.id) +on error resume next + call GSH_SETSHAPEFOCUS(oShape) + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT '-> show noalarm (at shownornmal) fill the outline -> reset the fill here + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + 'oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_LineCover").styleClass = GSH_CSSFOCUSASSOCIATED_COLOUR + oShape.objects("txt_PVValue").style.visibility = GSH_VISIBLE + end if + +'gsh_log_e("GSH_ValveDigitalSetFocus") +end sub + +sub GSH_ValveDigitalBnBSetFocus(oShape) +'gsh_log_s("GSH_ValveDigitalSetFocus oShape=" & oShape.id) +on error resume next + call GSH_SETSHAPEFOCUS(oShape) + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT '-> show noalarm (at shownornmal) fill the outline -> reset the fill here + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + 'oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_LineCover1").styleClass = GSH_CSSFOCUSASSOCIATED_COLOUR + oShape.objects("txt_PVValue1").style.visibility = GSH_VISIBLE + oShape.objects("rec_LineCover2").styleClass = GSH_CSSFOCUSASSOCIATED_COLOUR + oShape.objects("txt_PVValue2").style.visibility = GSH_VISIBLE + oShape.objects("rec_LineCover3").styleClass = GSH_CSSFOCUSASSOCIATED_COLOUR + oShape.objects("txt_PVValue3").style.visibility = GSH_VISIBLE + else + oShape.objects("rec_LineCover1").styleClass = GSH_CSSBACKGROUND_GRAY + oShape.objects("txt_PVValue1").style.visibility = GSH_HIDDEN + oShape.objects("rec_LineCover2").styleClass = GSH_CSSBACKGROUND_GRAY + oShape.objects("txt_PVValue2").style.visibility = GSH_HIDDEN + oShape.objects("rec_LineCover3").styleClass = GSH_CSSBACKGROUND_GRAY + oShape.objects("txt_PVValue3").style.visibility = GSH_HIDDEN + end if + +'gsh_log_e("GSH_ValveDigitalSetFocus") +end sub + +sub GSH_ValveDigitalShowNormal(oShape) +'gsh_log_s("GSH_ValveDigitalShowNormal oShape=" & oShape.id) +on error resume next + oShape.objects("rec_LineCover").styleClass = GSH_CSSBACKGROUND_GRAY + oShape.objects("txt_PVValue").style.visibility = GSH_HIDDEN + oShape.objects("focus").style.visibility = GSH_HIDDEN + call GSH_ShowNoAlarm(oShape) +'gsh_log_e("GSH_ValveDigitalShowNormal") +end sub + +sub GSH_ValveDigitalShowOffNormal(oShape) +'gsh_log_s("GSH_ValveDigitalShowOffNormal oShape=" & oShape.id) +on error resume next + oShape.objects("focus").style.visibility = GSH_VISIBLE + oShape.objects("focus").styleClass = GSH_VALVEDIGITALOFFNORMAL + oShape.objects("txt_PVValue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_ValveDigitalShowOffNormal") +end sub + +sub GSH_ValveDigitalShowDisabledAlarm(oShape) +'gsh_log_s("GSH_ValveDigitalShowDisabledAlarm oShape=" & oShape.id) +on error resume next + oShape.objects("outline").styleClass = GSH_CSSVALVEDIGITALDISABLEDALARM +'gsh_log_e("GSH_ValveDigitalShowDisabledAlarm") +end sub + +sub GSH_ValveDigitalShowBadPV(oShape) +'gsh_log_s("GSH_ValveDigitalShowBadPV oShape=" & oShape.id) +on error resume next + call GSH_ValveDigitalSetValveCSSStyle(oShape,GSH_CSSVALVEDIGITALTRAVEL) + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("txt_PVvalue").value = gsh_badpv +'gsh_log_e("GSH_ValveDigitalShowBadPV") +end sub + +sub GSH_ValveDigitalShowEmergencyAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_ValveDigitalShowEMERGENCYAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_ShowEmergencyAlarm(oShape,unAcknowledged) + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_ValveDigitalShowEmergencyAlarm") +end sub + +sub GSH_ValveDigitalShowHighAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_ValveDigitalShowHighAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_ShowHighAlarm(oShape,unAcknowledged) + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_ValveDigitalShowHighAlarm") +end sub + +sub GSH_ValveDigitalShowLowAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_ValveDigitalShowLowAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) + call GSH_ShowLowAlarm(oShape,unAcknowledged) + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_ValveDigitalShowLowAlarm") +end sub + + + + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' Regulatory Control Valve Shape Section: Contains all functions specific to the shape +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ValveRegulatoryControl_SCADA_OnUpdate(oShape, flag) +'gsh_log_s("GSH_ValveRegulatoryControlOnUpdate oShape=" & oShape.id) + + If flag <= 1 then + call GSH_ValveRegulatoryControlShowNormal(oShape) + + Dim OPValue,stsmsg, redTag, initMan + OPValue = oShape.objects("ind_OPStem").value + If (OPValue <= 5) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else if ( (OPValue > 5) and (OPValue < 95) ) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if: end if + + + + 'Check the points alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + 'Alarm is Disabled + call GSH_ValveRegulatoryControlShowDisabledAlarm(oShape) + else + 'alarming is enabled, get highest priority and change shape accordingly + + 'gsh_log_e("GSH_ValveRegulatoryControlOnUpdate <<" & GSH_GETHIGHESTALARMPRIORITY_OP(oShape.objects("rec_DataScript"))) + Select Case GSH_GETHIGHESTALARMPRIORITY_OP(oShape.objects("rec_DataScript")) + Case GSH_NOALARMCODE + Call GSH_ValveRegulatoryControlShowNoAlarm(oShape) + Case GSH_UNACKEMERG + call GSH_ValveRegulatoryControlShowEmergencyAlarm(oShape,true) + Case GSH_UNACKHIGH + call GSH_ValveRegulatoryControlShowHighAlarm(oShape,true) + Case GSH_UNACKLOW + call GSH_ValveRegulatoryControlShowLowAlarm(oShape,true) + Case GSH_ACKEMERG + call GSH_ValveRegulatoryControlShowEmergencyAlarm(oShape,false) + Case GSH_ACKHIGH + call GSH_ValveRegulatoryControlShowHighAlarm(oShape,false) + Case GSH_ACKLOW + call GSH_ValveRegulatoryControlShowLowAlarm(oShape,false) + Case Else + call GSH_ValveRegulatoryControlShowNoAlarm(oShape) + End Select + End If + 'End If + + 'If flag <= 1 then + + 'Focus + call GSH_ValveRegulatoryControlSetFocus(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_PV)) then + call GSH_ValveRegulatoryControlShowOffNormal(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + + End If + + If flag = 0 then + 'Update Value (added Jun 7th) + oShape.objects("txt_OPValue").value = FormatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + + 'Make the focus transparent for valves + 'oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground --> outline is always transparent + End If + + 'gsh_log_e("GSH_ValveRegulatoryControlOnUpdate") +end sub + +sub GSH_ValveRegulatoryControlSetFocus(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlSetFocus oShape=" & oShape.id) +on error resume next + + call GSH_SetShapeFocus(oShape) + + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + call GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,false) + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("rec_LineCover").styleClass = GSH_CSSFOCUSASSOCIATED_COLOUR + oShape.objects("txt_OPValue").style.visibility = GSH_VISIBLE 'changed AL + else + oShape.objects("rec_LineCover").styleClass = GSH_CSSBACKGROUND_GRAY + end if + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT '-> set alarm filled the outline -> set it back to transparent here +'gsh_log_e("GSH_ValveRegulatoryControlSetFocus") +end sub + +sub GSH_ValveRegulatoryControlShowNormal(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlShowNormal oShape=" & oShape.id) +on error resume next + 'oShape.objects("txt_OPValue").value = FormatNumber(oShape.objects("ind_OPBottom").value,GSH_OUTPUTINDICATORDECIMALS) + oShape.objects("rec_LineCover").styleClass = GSH_CSSBACKGROUND_GRAY + oShape.objects("txt_OPValue").style.visibility = GSH_HIDDEN 'changed AL + oShape.objects("ind_OPBottom").style.visibility = GSH_VISIBLE + call GSH_ValveRegulatoryControlShowNoAlarm(oShape) + call GSH_ValveRegulatoryControlShowNoStatusMessage(oShape) + call GSH_ValveRegulatoryControlShowNoWindUp(oShape) +'gsh_log_e("GSH_ValveRegulatoryControlShowNormal") +end sub + +sub GSH_ValveRegulatoryControlShowOffNormal(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlShowOffNormal oShape=" & oShape.id) +on error resume next + oShape.objects("focus").style.visibility = GSH_VISIBLE + oShape.objects("focus").styleClass = GSH_CSSREGULATORYCONTROLVALVEOFFNORMAL + call GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,true) +'gsh_log_e("GSH_ValveRegulatoryControlShowOffNormal") +end sub + +sub GSH_ValveRegulatoryControlShowEmergencyAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_ValveRegulatoryControlShowEmergencyAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) +on error resume next + call GSH_ShowEmergencyAlarm(oShape,unAcknowledged) + call GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,false) +'gsh_log_e("GSH_ValveRegulatoryControlShowEmergencyAlarm") +end sub + +sub GSH_ValveRegulatoryControlShowDisabledAlarm(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlShowDisabledAlarm oShape=" & oShape.id) +on error resume next + call GSH_ShowNoAlarm(oShape) + call GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,true) + oShape.objects("outline").styleClass = GSH_CSSREGULATORYCONTROLINDICATORDISABLEDALARM +'gsh_log_e("GSH_ValveRegulatoryControlShowDisabledAlarm") +end sub + +sub GSH_ValveRegulatoryControlShowHighAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_ValveRegulatoryControlShowHighAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) +on error resume next + call GSH_ShowHighAlarm(oShape,unAcknowledged) + call GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,false) +'gsh_log_e("GSH_ValveRegulatoryControlShowHighAlarm") +end sub + +sub GSH_ValveRegulatoryControlShowLowAlarm(oShape,unAcknowledged) +'gsh_log_s("GSH_ValveRegulatoryControlShowLowAlarm oShape=" & oShape.id & "unAcknowledged=" & cstr(unAcknowledged)) +on error resume next + call GSH_ShowLowAlarm(oShape,unAcknowledged) + call GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,false) +'gsh_log_e("GSH_ValveRegulatoryControlShowLowAlarm") +end sub + +sub GSH_ValveRegulatoryControlShowNoAlarm(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlShowNoAlarm oShape=" & oShape.id) +on error resume next + call GSH_ShowNoAlarm(oShape) + call GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,true) +'gsh_log_e("GSH_ValveRegulatoryControlShowNoAlarm") +end sub + +sub GSH_ValveRegulatoryControlShowNoWindUp(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlShowNoWindUp oShape=" & oShape.id) +on error resume next + oShape.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oShape.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oShape.objects("txt_initialization").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_ValveRegulatoryControlShowNoWindUp") +end sub + +sub GSH_ValveRegulatoryControlShowNoStatusMessage(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlShowNoStatusMessage oShape=" & oShape.id) +on error resume next + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_ValveRegulatoryControlShowNoStatusMessage") +end sub + +sub GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) +'gsh_log_s("GSH_ValveRegulatoryControlShowStatusMessage oShape=" & oShape.id & ",message="&message) +on error resume next + oShape.objects("txt_statusmessage").style.visibility = GSH_VISIBLE + oShape.objects("txt_statusmessage").value = message +'gsh_log_e("GSH_ValveRegulatoryControlShowStatusMessage") +end sub + +sub GSH_ValveRegulatoryControlShowInitialization(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlShowInitialization oShape=" & oShape.id) +on error resume next + oShape.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oShape.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oShape.objects("txt_initialization").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_ValveRegulatoryControlShowInitialization") +end sub + +sub GSH_ValveRegulatoryControlShowWindLow(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlShowWindLow oShape=" & oShape.id) +on error resume next + oShape.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oShape.objects("txt_initialization").style.visibility = GSH_HIDDEN + oShape.objects("plg_OpLow").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_ValveRegulatoryControlShowWindLow") +end sub + +sub GSH_ValveRegulatoryControlShowWindHigh(oShape) +'gsh_log_s("GSH_ValveRegulatoryControlShowWindHigh oShape=" & oShape.id) +on error resume next + oShape.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oShape.objects("txt_initialization").style.visibility = GSH_HIDDEN + oShape.objects("plg_OpHigh").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_ValveRegulatoryControlShowWindHigh") +end sub + +sub GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,ShowBottomFlowdicator) +'gsh_log_s("GSH_ValveRegulatoryControlShowBottomFlowIndicator oShape="&oShape.id&" "& CSTR(ShowBottomFlowdicator)) +on error resume next + if (ShowBottomFlowdicator) then + oShape.Objects("ind_OPBottom").style.visibility = GSH_VISIBLE + oShape.Objects("rec_MidLineBottom").style.visibility = GSH_VISIBLE + oShape.objects("txt_OPValue").style.visibility = GSH_HIDDEN + else + oShape.Objects("ind_OPBottom").style.visibility = GSH_HIDDEN + oShape.Objects("rec_MidLineBottom").style.visibility = GSH_HIDDEN + oShape.objects("txt_OPValue").style.visibility = GSH_VISIBLE + end if +'gsh_log_e("GSH_ValveRegulatoryControlShowBottomFlowIndicator") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GETOPERATORTREND''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sSection - registry section +' sKey - registry subkey +' sDefaultString - Default string if error of nothing found +'Returns: +' String, value of specified Demand\Trend subkey +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETOPERATORTREND(strApp, strSection,strKey,defaultString) +'gsh_log_s("GSH_GETOPERATORTREND strApp=" & strApp & "strSection=" & strSection & ",strKey=" & strKey & ",defaultString=" & defaultString ) +on error resume next + dim strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_OPERATORTREND & strApp & "\"& strSection & "\"& strKey + tempReturn = GSH_READREGISTRY(strRegLocation,defaultString) + GSH_GETOPERATORTREND = tempReturn +'gsh_log_e("GSH_GETOPERATORTREND returning " & tempReturn) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SETOPERATORTREND''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sSection - registry section +' sKey - registry subkey +' sDefaultString - Default string if error of nothing found +'Returns: +' String, value of specified DetailTrend subkey +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETOPERATORTREND(strApp,strSection,strKey,strValue) +'gsh_log_s("GSH_SETOPERATORTREND strApp=" & strApp & "strSection=" & strSection & ",strKey=" & strKey & ",strValue=" & strValue ) +on error resume next + dim strRegLocation + strRegLocation = GSH_REGISTRY_OPERATORTREND & strApp & "\"& strSection & "\"& strKey + 'gsh_log("GSH_SETOPERATORTREND checkPoint strRegLocation=" & strRegLocation) + GSH_WRITETOREGISTRY strRegLocation,strValue,"REG_SZ" +'gsh_log_e("GSH_SETOPERATORTREND") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GETDETAILTREND''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sSection - registry section +' sKey - registry subkey +' sDefaultString - Default string if error of nothing found +'Returns: +' String, value of specified DetailTrend subkey +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETDETAILTREND(strSection,strKey,defaultString) +'gsh_log_s("GSH_GETDETAILTREND " & "strSection=" & strSection & ",strKey=" & strKey & ",defaultString=" & defaultString ) +on error resume next + dim strRegLocation, tempReturn + strRegLocation = GSH_REGISTRY_DETAILTREND & strSection & "\"& strKey + tempReturn = GSH_READREGISTRY(strRegLocation,defaultString) + GSH_GETDETAILTREND = tempReturn +'gsh_log_e("GSH_GETDETAILTREND returning & " & tempReturn) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SETDETAILTREND''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sSection - registry section +' sKey - registry subkey +' sDefaultString - Default string if error of nothing found +'Returns: +' String, value of specified DetailTrend subkey +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETDETAILTREND(strSection,strKey,strValue) +'gsh_log_s("GSH_SETDETAILTREND " & "strSection=" & strSection & ",strKey=" & strKey & ",strValue=" & strValue ) +on error resume next + dim strRegLocation + strRegLocation = GSH_REGISTRY_DETAILTREND & strSection & "\"& strKey + 'gsh_log("GSH_SETDETAILTREND checkPoint strRegLocation=" & strRegLocation) + GSH_WRITETOREGISTRY strRegLocation,strValue,"REG_SZ" +'gsh_log_e("GSH_SETDETAILTREND") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_DetailTrendInitialize''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' sTagName - Tag name to initialize the detail trend with +' 06/01/07 Added HDA, OPC1 and OPC2 pathprefixes because the Historian +' tagname is different from the tagname and there may be a funnel OPC interface +'06/01/07 parse out the function block for storing the itemAlias +'10/06/2008 (CL) Add writing value of tag euhigh and eulow to trend range high and trend range low to allow the trend use +' the range from registry when the range is not available from the historian +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_FP_DetailTrendInitialize(sTagName) +'Run on page load event for faceplate. +'On Error GoTo errorhandler +on error resume next + +'gsh_log_s("GSH_FP_DetailTrendInitialize sTagName = " &sTagName) + +Dim arYMax(4), arYMin(4), asAutoScale(4), asTrendParams(4), asActive(4), asTrendParamShort(4), asPVeuhigh(4), asPVeulow(4) +Dim asTraceNames(4), asTraceActive(4), asTraceParams(4), asStepped(4), asPVFormat(4) +Dim sPathPrefix, nTrendingParams, nCount, nNumTrends, nIndex, sPVFormat, sItemAlias, sPVeuhigh, sPVeulow +Dim istrLen, iPosition + + nIndex = 0 + nNumTrends = 4 + nTrendingParams = GSH_READTAGINFORMATIONKEYVALUE(sTagName, "NoOfTrendingParams", 0) + sPVFormat = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT) + sPathPrefix = GSH_GETDEMANDTREND (GSH_REGISTRY_SETTINGS,GSH_REGKEY_PATHPREFIX, "") + sItemAlias = sTagName + + '10/06/2008 CL + sPVeuhigh = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_EUHIGH, 0) + sPVeulow = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_EULOW, 0) + + If nTrendingParams > 0 Then + sItemAlias = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TAGNAME_ALIAS, sTagName) + For nCount = 1 To nTrendingParams + asTrendParams(nCount) = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TRENDPARAM & nCount, "") + istrLen = len(asTrendParams(nCount)) + iPosition= Instr(1, asTrendParams(nCount) , ".",vbtextcompare) + asTrendParamShort(nCount) = right(asTrendParams(nCount), istrLen - iPosition) + asStepped(nCount) = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TRENDSTEPPED & nCount, "OFF") +' Select Case asTrendParams(nCount) + Select Case asTrendParamShort(nCount) + Case "PV" + asAutoScale(nCount) = "ON" + asPVFormat(nCount) = sPVFormat + + asPVeuhigh(nCount) = sPVeuhigh + asPVeulow(nCount) = sPVeulow + + Case "SP" + asAutoScale(nCount) = "ON" + asPVFormat(nCount) = sPVFormat + asPVeuhigh(nCount) = sPVeuhigh + asPVeulow(nCount) = sPVeulow + + Case "OP" + asAutoScale(nCount) = "OFF" + asPVFormat(nCount) = "D1" + arYMax(nCount) = 106.9 + arYMin(nCount) = -6.9 + asPVeuhigh(nCount) = 106.9 + asPVeulow(nCount) = -6.9 + call GSH_SETDETAILTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMAX,arYMax(nCount)) + call GSH_SETDETAILTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMIN,arYMin(nCount)) + Case "MODE" + asAutoScale(nCount) = "ON" + asPVeuhigh(nCount) = 100 + asPVeulow(nCount) = 0 + Case Else + asAutoScale(nCount) = "ON" + End Select + Next + End If + + For nCount = 1 To nNumTrends + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, "OFF" + Next + + For nCount = 1 To nTrendingParams + ' asTraceParams(nCount) = sTagName & "." & asTrendParams(nCount) + asTraceActive(nCount) = "ON" + Next + + Dim sOPC1_PathPrefix,sOPC2_PathPrefix, sTagNameHDA + sOPC1_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY1PREFIX,"") + sOPC2_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY2PREFIX,"") + bUseShortNameForHDA = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_USESHORTNAME_FOR_HDAPATH,"") + + For nCount = 1 To nTrendingParams + sTagNameHDA = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TAGNAMEHDA, sTagName) + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, sItemAlias & "." & asTrendParamShort(nCount) + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPCITEMPATH, sOPC1_PathPrefix & sTagName& "." & asTrendParams(nCount) + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPC2ITEMPATH, sOPC2_PathPrefix & sTagName& "." & asTrendParams(nCount) + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, asTraceActive(nCount) + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, asAutoScale(nCount) + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TRENDSTEPPED, asStepped(nCount) + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_PVFORMATKEY, asPVFormat(nCount) + + 'Added 10/06/2008 (CL) add to allows trend to use range from registry if they are not available from historian + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_HIGH, asPVeuhigh(nCount) + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_LOW, asPVeulow(nCount) + + 'Added 09/07/2008 (JE) to work with Sasol PHD historian interface + 'Issue#21: http://wss-edm-1/clients/hcs/services/ISE-HCS8227/ClientProjectAccess/Lists/Issue%20Tracker/DispForm.aspx?ID=21 + If(UCASE(bUseShortNameForHDA) = "ON") then + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTrendParamShort(nCount) + Else + GSH_SETDETAILTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTrendParams(nCount) + End If + Next + +'gsh_log_e("GSH_FP_DetailTrendInitialize") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DETAILTRENDPERIODICUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Function: Reset the Trend Scales for outputs & setpoints +'Returns: +' sTagName - Tag name on which to update the detail trend info +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DETAILTRENDPERIODICUPDATE(sTagName) +'gsh_log_s ("GSH_DETAILTRENDPERIODICUPDATE sTagName =" & sTagName ) + +if (strcomp(sTagName,"",vbtextcompare)<> 0) then + Dim arYMax(4) + Dim arYMin(4) + Dim nTrendingParams + + nTrendingParams = GSH_READTAGINFORMATIONKEYVALUE(sTagName, "NoOfTrendingParams", 0) + If nTrendingParams > 2 Then + arYMax(2) = GSH_GETDETAILTREND(GSH_REGKEY_TRENDTRACE & "2",GSH_REGKEY_TREND_YMAX,"100") + arYMin(2) = GSH_GETDETAILTREND(GSH_REGKEY_TRENDTRACE & "2",GSH_REGKEY_TREND_YMIN,"0") + + arYMax(1) = arYMax(2) + arYMin(1) = arYMin(2) + call GSH_SETDETAILTREND(GSH_REGKEY_TRENDTRACE & "1",GSH_REGKEY_AUTOSCALE,"OFF") + call GSH_SETDETAILTREND(GSH_REGKEY_TRENDTRACE & "1",GSH_REGKEY_TREND_YMAX,arYMax(1)) + call GSH_SETDETAILTREND(GSH_REGKEY_TRENDTRACE & "1",GSH_REGKEY_TREND_YMIN,arYMin(1)) + + arYMax(3) = 106.9 + arYMin(3) = -6.9 + call GSH_SETDETAILTREND(GSH_REGKEY_TRENDTRACE & "3",GSH_REGKEY_AUTOSCALE,"OFF") + call GSH_SETDETAILTREND(GSH_REGKEY_TRENDTRACE & "3",GSH_REGKEY_TREND_YMAX,arYMax(3)) + call GSH_SETDETAILTREND(GSH_REGKEY_TRENDTRACE & "3",GSH_REGKEY_TREND_YMIN,arYMin(3)) + End If +end if +'gsh_log_e ("GSH_DETAILTRENDPERIODICUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'DIGITALMULTIPLE SHAPE SPECIFIC CODE +' 09/19/2007 - Add alarm checking (ref issue# 859) (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_DIGITALMULTIPLE_SETLABEL (oShape) +'gsh_log_s("GSH_SCADA_DIGITALMULTIPLE_SETLABEL oShape="&oShape.id) + + dim results(1) + dim bOffNormal, bInAlarm + dim alarmCode + bOffNormal = false + bInAlarm = false + + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_RES),"",vbtextcompare)<>0 then + + + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_dataScript"),GSH_CPENTITY_RES) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_RES, GSH_PROCESSVALUE) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "RES" + GSH_SCADA_DIGITALMULTIPLE_SETLABEL = results + exit function + end if + end if + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_MOS),"",vbtextcompare)<>0 then + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_MOS) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_MOS, GSH_PROCESSVALUE) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "MOS" + GSH_SCADA_DIGITALMULTIPLE_SETLABEL = results + exit function + end if + end if + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_SOR),"",vbtextcompare)<>0 then + + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_SOR) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_SOR, GSH_PROCESSVALUE) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "SOR" + GSH_SCADA_DIGITALMULTIPLE_SETLABEL = results + exit function + end if + end if + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_HHFF),"",vbtextcompare)<>0 then + + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_HHFF) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_HHFF, GSH_PROCESSVALUE) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "FFH" + GSH_SCADA_DIGITALMULTIPLE_SETLABEL = results + exit function + end if + end if + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_LLFF),"",vbtextcompare)<>0 then + + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_LLFF) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_LLFF, GSH_PROCESSVALUE) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "FFL" + GSH_SCADA_DIGITALMULTIPLE_SETLABEL = results + exit function + end if + end if + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_HHTRIP),"",vbtextcompare)<>0 then + dim sCPLabel, sCPChar + sCPLabel = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + sCPChar = left(sCPLabel,1) + + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_HHTRIP) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_HHTRIP, GSH_PROCESSVALUE) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = sCPChar & "H" + GSH_SCADA_DIGITALMULTIPLE_SETLABEL = results + exit function + end if + end if + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_LLTRIP),"",vbtextcompare)<>0 then + dim sCPLabel2, sCPChar2 + sCPLabel2 = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + sCPChar2 = left(sCPLabel2,1) + + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_LLTRIP) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_LLTRIP, GSH_PROCESSVALUE) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = sCPChar2 & "L" + GSH_SCADA_DIGITALMULTIPLE_SETLABEL = results + exit function + end if + end if + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_DEVIATION),"",vbtextcompare)<>0 then + + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_DEVIATION) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_DEVIATION, GSH_PROCESSVALUE) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "DEV" + GSH_SCADA_DIGITALMULTIPLE_SETLABEL = results + exit function + end if + end if + + results(0) = 0 + results(1) = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + GSH_SCADA_DIGITALMULTIPLE_SETLABEL = results + +'gsh_log_s("GSH_SCADA_DIGITALMULTIPLE_SETLABEL results(0) ="&results(0) &"bOffNormal = " &bOffNormal &"bInAlarm = " &bInAlarm) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_DIGITALMULTIPLE_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital value does not change often) only to increase performance +' 06/01/07 Remove offnormal check for the Entity point because it can be Analog or Digital +' 09/01/07 Add check so that when shape is in alarm, it does not show offnormal +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_DIGITALMULTIPLE_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_SCADA_DIGITALMULTIPLE_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + dim counter, inresults, alarmStatus + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + inresults = GSH_SCADA_DIGITALMULTIPLE_SETLABEL(oShape) + oShape.objects("txt_PVvalue").value = inresults(1) 'Determine label text + 'Alarming: Don't check alarm disabled for this alarm group (OK'd by Jamie) + dim sAlarmPriority, bUnack + sAlarmPriority = GSH_GETALARMGROUPPRIORITYPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITY_ALARMGROUP) + bUnack = GSH_GETALARMGROUPUNACKPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITY_ALARMGROUP) + +' gsh_log ("sAlarmPriority = " & sAlarmPriority & "bUnack = " & bUnack ) + + call GSH_SHOWALARMS (sAlarmPriority, bUnack, oShape) + + End If + + If flag <= 1 then + 'Set the focus + call GSH_DIGITALMULTIPLESETFOCUS(oShape) + + 'check for offnormal + dim sCPLabel,sPVStateTxt + sCPLabel = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_PROCESSVALUE,oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + 'Add check so that when shape is in alarm, it does not show offnormal + if (inresults(0) = 1 and sAlarmPriority=0) then 'strcomp(oShape.objects("txt_PVvalue").value, sCPLabel, vbtextcompare) <> 0 then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +'gsh_log_e("GSH_SCADA_DIGITALMULTIPLE_ONUPDATE") +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital value does not change often) only to increase performance +' 12/18/2007: Add this function to handle P6A Digital Multiple shape (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + dim counter, alarmStatus + dim inresults + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + inresults = GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL(oShape) + + oShape.objects("txt_PVvalue").value = inresults(1) 'Determine label text + 'Alarming: Don't check alarm disabled for this alarm group (OK'd by Jamie) + dim sAlarmPriority, bUnack + sAlarmPriority = GSH_GETALARMGROUPPRIORITYPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITY_ALARMGROUP) + bUnack = GSH_GETALARMGROUPUNACKPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITY_ALARMGROUP) + + call GSH_SHOWALARMS (sAlarmPriority, bUnack, oShape) + + End If + + If flag <= 1 then + 'Set the focus + + call GSH_DIGITALMULTIPLESETFOCUS(oShape) + + 'check for offnormal + dim sCPLabel,sPVStateTxt + sCPLabel = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_PROCESSVALUE,oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + 'Add check so that when shape is in alarm, it does not show offnormal + if (inresults(0) = 1 and sAlarmPriority=0) then 'strcomp(oShape.objects("txt_PVvalue").value, sCPLabel, vbtextcompare) <> 0 then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL +' gsh_log "Focus None, Offnormal" + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL +' gsh_log "Focus, Offnormal" + end if + end if + end if + End If +'gsh_log_e("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_ONUPDATE") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL +' 12/18/2007: Add this function to handle P6A Digital Multiple shape (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL (oShape) +'gsh_log_s("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL oShape="&oShape.id) + + dim results(1) + dim bOffNormal, bInAlarm + dim alarmCode + bOffNormal = false + bInAlarm = false + + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_RES),"",vbtextcompare)<>0 then + +' bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_RES) + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL(oShape.objects("rec_dataScript"),GSH_CPENTITY_RES,GSH_CPPARAM_RES_PARA) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_RES, GSH_CPPARAM_RES_PARA) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "RES" +' gsh_log("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL results(0) ="&results(0) &" results(1) = " &results(1) &" bOffNormal = " &bOffNormal &" bInAlarm = " &bInAlarm) + GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL = results + exit function + end if + end if + + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_MOS),"",vbtextcompare)<>0 then + +' bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_MOS) + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL(oShape.objects("rec_dataScript"),GSH_CPENTITY_MOS,GSH_CPPARAM_MOS_PARA) + + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_MOS, GSH_CPPARAM_MOS_PARA) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "MOS" +' gsh_log("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL MOS results(0) ="&results(0) &" results(1) = " &results(1) &" bOffNormal = " &bOffNormal &" bInAlarm = " &bInAlarm) + GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL = results + exit function + end if + end if + + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_SOR),"",vbtextcompare)<>0 then + +' bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_SOR) + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL(oShape.objects("rec_dataScript"),GSH_CPENTITY_SOR,GSH_CPPARAM_SOR_PARA) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_SOR, GSH_CPPARAM_SOR_PARA) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "SOR" +' gsh_log("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL SOR results(0) ="&results(0) &" results(1) = " &results(1) &" bOffNormal = " &bOffNormal &" bInAlarm = " &bInAlarm) + GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL = results + exit function + end if + end if + + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_HHHTRIP),"",vbtextcompare)<>0 then + dim sCPLabelHHH, sCPCharHHH + sCPLabelHHH = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + sCPCharHHH = left(sCPLabelHHH,1) + +' bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_HHFF) + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL(oShape.objects("rec_dataScript"),GSH_CPENTITY_HHHTRIP,GSH_CPPARAM_HHHTRIP_PARA) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_HHFF, GSH_CPPARAM_HHFF_PARA) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = sCPCharHHH & "HH" +' results(1) = "FHH" +' gsh_log("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL HHH_Trip results(0) ="&results(0) &" results(1) = " &results(1) &" bOffNormal = " &bOffNormal &" bInAlarm = " &bInAlarm) + GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL = results + exit function + end if + end if + + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_LLLTRIP),"",vbtextcompare)<>0 then + dim sCPLabelLLL, sCPCharLLL + sCPLabelLLL = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + sCPCharLLL = left(sCPLabel,1) + +' bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_LLFF) + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL(oShape.objects("rec_dataScript"),GSH_CPENTITY_LLLTRIP,GSH_CPPARAM_LLLTRIP_PARA) + + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_LLFF, GSH_CPPARAM_LLFF_PARA) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = sCPCharLLL & "LL" +' results(1) = "FLL" +' gsh_log("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL LLL_Trip results(0) ="&results(0) &" results(1) = " &results(1) &" bOffNormal = " &bOffNormal &" bInAlarm = " &bInAlarm) + GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL = results + exit function + end if + end if + + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_HHTRIP),"",vbtextcompare)<>0 then + dim sCPLabel, sCPChar + sCPLabel = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + sCPChar = left(sCPLabel,1) + +' bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_HHTRIP) + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL(oShape.objects("rec_dataScript"),GSH_CPENTITY_HHTRIP,GSH_CPPARAM_HHTRIP_PARA) + + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_HHTRIP, GSH_CPPARAM_HHTRIP_PARA) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = sCPChar & "H" +' gsh_log("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL HHTrip results(0) ="&results(0) &" results(1) = " &results(1) &" bOffNormal = " &bOffNormal &" bInAlarm = " &bInAlarm) + GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL = results + exit function + end if + end if + + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_LLTRIP),"",vbtextcompare)<>0 then + dim sCPLabel2, sCPChar2 + sCPLabel2 = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + sCPChar2 = left(sCPLabel2,1) + +' bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_LLTRIP) + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL(oShape.objects("rec_dataScript"),GSH_CPENTITY_LLTRIP,GSH_CPPARAM_LLTRIP_PARA) + + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_LLTRIP, GSH_CPPARAM_LLTRIP_PARA) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = sCPChar2 & "L" +' gsh_log("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL LLTrip results(0) ="&results(0) &" results(1) = " &results(1) &" bOffNormal = " &bOffNormal &" bInAlarm = " &bInAlarm) + GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL = results + exit function + end if + end if + + if strcomp(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_DEVIATION),"",vbtextcompare)<>0 then + + bOffNormal = GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oShape.objects("rec_datascript"),GSH_CPENTITY_DEVIATION) + alarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_datascript"),GSH_CPENTITY_DEVIATION, GSH_CPPARAM_DEVIATION_PARA) + + if strcomp(alarmCode,GSH_NOALARMCODE,vbtextcompare)<>0 then + bInAlarm = true + end if + + if (bOffNormal or bInAlarm) then + results(0) = 1 + results(1) = "DEV" +' gsh_log("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL DEV results(0) ="&results(0) &" results(1) = " &results(1) &" bOffNormal = " &bOffNormal &" bInAlarm = " &bInAlarm) + GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL = results + exit function + end if + end if + + results(0) = 0 + results(1) = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL = results + +'gsh_log_e("GSH_SCADA_DIGITALMULTIPLE_VARIABLEINPUT_SETLABEL results(0) ="&results(0) &"bOffNormal = " &bOffNormal &"bInAlarm = " &bInAlarm) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALMULTIPLESETFOCUS''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = calling shape. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALMULTIPLESETFOCUS(oShape) +'gsh_log_s("GSH_DIGITALMULTIPLESETFOCUS oShape=" & oShape.id) +on error resume next + call GSH_SHOWSUBSHAPE(oShape.objects("focus")) + Dim shapeTag, shapeFocusStyle + shapeTag = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPENTITY, GSH_CPPOINT) + If GSH_DOESSHAPEREQUIRESPRINCIPLEFOCUS(shapeTag) then + shapeFocusStyle = GSH_CSSFOCUSPRINCIPAL + 'gsh_log "Pfocus" + else if GSH_DOESSHAPEREQUIRESASSOCIATEDFOCUS(shapeTag) then + shapeFocusStyle = GSH_CSSFOCUSASSOCIATED + 'gsh_log "Afocus" + else + shapeFocusStyle = GSH_CSSFOCUSNONE + 'GSH_LOG "Nofocus" + end if: end if + oShape.objects("focus").styleClass = shapeFocusStyle + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show DIGITAL value and outline + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + end if +'gsh_log_e("GSH_DIGITALMULTIPLESETFOCUS") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL(oDataBoundObject, sPointName) +'gsh_log_s("GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL ODataBoundObject = "& ODataBoundObject.ID & ",sPointName = " & sPointName) +on error resume next + Dim tempReturn,sTagname, sPVStateText, sPVNormalState + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(ODataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + tempReturn = false + nPVNumValue = ODataBoundObject.DataValue(sPointName &"."&GSH_PROCESSVALUE) + sPVStateText = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "StateTxt("&nPVNumValue&")", GSH_STATETXT_DOESNOTEXIST_LBL) +' if strcomp(sTagname, GSH_NONE, vbtextcompare) <> 0 then 'if the shape point name is "NONE" (already checking this before calling this fnc) + sPVNormalState = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_PV_NORMAL_STATE, GSH_NONE) + if (strComp(sPVNormalState,GSH_NONE,vbTextCompare) <> 0) then 'if Registry PVNormalState is NOT None + if (strComp(sPVStateText,sPVNormalState,vbTextCompare) <> 0) then + tempReturn = true + end if + end if +' end if +GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL = tempReturn +'gsh_log_e("GSH_SCADA_DIGITALMULTIPLE_POINT_IS_OFFNORMAL returning >>>" & tempReturn & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL(oDataBoundObject, sPointName, sPointNamePara) +'gsh_log_s("GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL ODataBoundObject = "& ODataBoundObject.ID & ",sPointName = " & sPointName) +on error resume next + Dim tempReturn,sTagname, sPVStateText, sPVNormalState + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(ODataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + tempReturn = false + nPVNumValue = ODataBoundObject.DataValue(sPointName &"."&GSH_PROCESSVALUE) + nPVNumValue = ODataBoundObject.DataValue(sPointName &"."&sPointNamePara) + sPVStateText = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "StateTxt("&nPVNumValue&")", GSH_STATETXT_DOESNOTEXIST_LBL) + if strcomp(sTagname, GSH_NONE, vbtextcompare) <> 0 then 'if the shape point name is "NONE" (already checking this before calling this fnc) + sPVNormalState = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_PV_NORMAL_STATE, GSH_NONE) + if (strComp(sPVNormalState,GSH_NONE,vbTextCompare) <> 0) then 'if Registry PVNormalState is NOT None + if (strComp(sPVStateText,sPVNormalState,vbTextCompare) <> 0) then + tempReturn = true + end if + end if + end if +GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL = tempReturn +'gsh_log_e("GSH_SCADA_DIGITALMULTIPLE_POINT_VARIN_IS_OFFNORMAL returning >>>" & tempReturn & "<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'SCADA_ANALOGTRIP SHAPE SPECIFIC CODE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_ANALOGTRIP_INIT(oShape) + dim sTagName, sEntityName, sDataValue + sTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + oShape.objects("txtTagNameAlias").value = GSH_READTAGINFORMATIONKEYVALUE(sTagName, GSH_REGKEY_TAGNAME_ALIAS, sTagName) + oShape.objects("txtTagDescription").value = GSH_READTAGINFORMATIONKEYVALUE(sTagName, GSH_REGKEY_TAGDESCRIPTION, sTagName) + sEntityName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_LOWTRIP) + if strcomp (sEntityName, "", vbtextcompare) = 0 then + oShape.objects("txt_PVLowTripValue").value = " " + else + oShape.objects("txt_PVLowTripValue").value = GSH_FormatPVTextTag(sTagName,oShape.objects("rec_DataStatic").DataValue(GSH_CPENTITY_LOWTRIP & "." & GSH_CPPARAM_LOWTRIP)) + end if + sEntityName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY_HIGHTRIP) + if strcomp (sEntityName, "", vbtextcompare) = 0 then + oShape.objects("txt_PVHighTripValue").value = " " + else + oShape.objects("txt_PVHighTripValue").value = GSH_FormatPVTextTag(sTagName,oShape.objects("rec_DataStatic").DataValue(GSH_CPENTITY_HIGHTRIP & "." & GSH_CPPARAM_HIGHTRIP)) + end if +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITE_SCADA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' Jun 13, 2007, Added by CL to handle Scada_MF_DigitalComposite shape +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve problem +' that the combox or alp entry was open, +' but no entry made, then other tag is selected as focus tag. (CL) +sub GSH_GROUPDIGITALCOMPOSITE_SCADA_ONUPDATE(oShape, flag) +on error resume next +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITE_SCADA_ONUPDATE shapeID = "& oShape.id) + If flag <= 1 then + + GSH_GROUPDIGITALCOMPOSITESHOWNORMAL(oShape) + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN 'Hide RedTag + + 'Alarming + if GSH_SCADA_ISALARMINGDISABLED(oShape.objects("rec_DataScript")) Then + 'Alarm is Disabled + call GSH_GROUPDIGITALCOMPOSITESHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"), GSH_CPENTITY),oShape) + End If + + dim sPVStateTxt + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + + 'PV Data Check + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"), true, false, false) Then + call GSH_GROUPDIGITALCOMPOSITESHOWBADPV(oShape) + else + oShape.objects("txt_DigitalValue").value = sPVStateTxt + End If + + 'Set the focus + 'call GSH_GROUPDIGITALCOMPOSITESETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("cmb_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + End If + + If flag = 0 then + 'Status message + dim val_redTag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + end if + + 'Display OP Value + dim sOPStateTxt + + sOPStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + oShape.objects("txt_OPValue").value = sOPStateTxt + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + End If + +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDIGITALCOMPOSITE_SCADA_P6A_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +'12/18/2007: Added to handle SCADA_DC_P6A shape. Works with SCADA_MF_DigitalComposit shape as well (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPDIGITALCOMPOSITE_SCADA_P6A_ONUPDATE(oShape, flag) +on error resume next +'gsh_log_s("GSH_GROUPDIGITALCOMPOSITE_SCADA_P6A_ONUPDATE shapeID = "& oShape.id) +' If flag <= 1 then + + GSH_GROUPDIGITALCOMPOSITESHOWNORMAL(oShape) + + 'Find value of GSH_CPPARAM_PV_IP1 + dim input1_val, input2_val, expected_input1_val, expected_input2_val, sPVStateTxt + + sPVStateTxt = GSH_NONE + input1_val = Cint(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_IP1)) + input2_val = Cint(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_IP2)) + + expected_input1_val = Cint(oShape.GetCustomProperty(GSH_CPVALUE,GSH_EXPECTEDVAL1)) + expected_input2_val = Cint(oShape.GetCustomProperty(GSH_CPVALUE,GSH_EXPECTEDVAL2)) + + if((input1_val=expected_input1_val) And (input2_val=expected_input2_val)) then + sPVStateTxt = GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),"BothOn","") + elseif ((input1_val=expected_input1_val) And (input2_val<>expected_input2_val)) then + sPVStateTxt = GSH_GET_STATE_TEXT_P6A(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), oShape.GetCustomProperty(GSH_CPPARAMETER,GSH_CPPARAM_IP1)&"_"&input1_val) + alarmPara=GSH_CPPARAM_IP1 + elseif ((input1_val<>expected_input1_val) And (input2_val=expected_input2_val)) then + sPVStateTxt = GSH_GET_STATE_TEXT_P6A(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), oShape.GetCustomProperty(GSH_CPPARAMETER,GSH_CPPARAM_IP2)&"_"&input2_val) + alarmPara=GSH_CPPARAM_IP2 + else + sPVStateTxt = GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),"BothOff","") + end if + + oShape.objects("txt_DigitalValue").value = sPVStateTxt + + 'Alarming + if GSH_SCADA_ISALARMINGDISABLED(oShape.objects("rec_DataScript")) Then + 'Alarm is Disabled + call GSH_GROUPDIGITALCOMPOSITESHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"), GSH_CPENTITY, alarmPara),oShape) + End If + + 'Set the focus + 'call GSH_GROUPDIGITALCOMPOSITESETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus - To be checked with Rich if need offnormal checking +' if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then +' +' oShape.objects("cmb_OPValue").style.visibility = GSH_HIDDEN +' oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN +' +' 'Added new to handle SCADA_DC_P6A shape with separate parameter checking for offnormal. +' +' if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sPVStateTxt) then +' if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then +' oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL +' else +' oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL +' end if +' end if +' end if + +' End If + +' If flag = 0 then + + 'Display OP Value + dim sOPStateTxt + + 'Do not look into the registry b/c states set in the registry works for Fx_x parameter, not OP states + sOPStateTxt = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP) +' sOPStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + oShape.objects("txt_OPValue").value = sOPStateTxt + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) +' End If +'gsh_log_e("GSH_GROUPDIGITALCOMPOSITE_SCADA_P6A_ONUPDATE") +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GET_STATE_TEXT_P6A +' +' +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GET_STATE_TEXT_P6A(sTagname, sParaname) +'gsh_log_s("GSH_GET_STATE_TEXT_P6A parameter_name = "&sParaname &"sTagname="&sTagname) + + dim sStateTxt + sStateTxt = GSH_EMPTYSTRING + if strcomp (sParaname, GSH_F1_0, vbtextcompare) = 0 then + sStateTxt = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT(0)", GSH_EMPTYSTRING) + elseif strcomp (sParaname, GSH_F1_1, vbtextcompare) = 0 then + sStateTxt = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT(1)", GSH_EMPTYSTRING) + elseif strcomp (sParaname, GSH_F2_0, vbtextcompare) = 0 then + sStateTxt = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT(2)", GSH_EMPTYSTRING) + elseif strcomp (sParaname, GSH_F2_1, vbtextcompare) = 0 then + sStateTxt = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT(3)", GSH_EMPTYSTRING) + elseif strcomp (sParaname, GSH_F3_0, vbtextcompare) = 0 then + sStateTxt = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT(4)", GSH_EMPTYSTRING) + elseif strcomp (sParaname, GSH_F3_1, vbtextcompare) = 0 then + sStateTxt = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT(5)", GSH_EMPTYSTRING) + elseif strcomp (sParaname, GSH_F4_0, vbtextcompare) = 0 then + sStateTxt = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT(6)", GSH_EMPTYSTRING) + elseif strcomp (sParaname, GSH_F4_1, vbtextcompare) = 0 then + sStateTxt = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT(7)", GSH_EMPTYSTRING) + end if + + + GSH_GET_STATE_TEXT_P6A = sStateTxt +'gsh_log_e("GSH_GET_STATE_TEXT_P6A sStateTxt="&sStateTxt) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPDO_SCADA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' Jun 13, 2007, Added by CL to handle Scada_MF_DigitalComposite shape +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve problem +' that the combox or alp entry was open, +' but no entry made, then other tag is selected as focus tag. (CL) +sub GSH_GROUPDO_SCADA_ONUPDATE(oShape, flag) +on error resume next +'gsh_log_s("GSH_GROUPDO_SCADA_ONUPDATE shapeID = "& oShape.id) + If flag <= 1 then + + GSH_GROUPDIGITALCOMPOSITESHOWNORMAL(oShape) + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN 'Hide RedTag + + 'Set the focus + 'call GSH_GROUPDIGITALCOMPOSITESETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("cmb_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + End If + + If flag = 0 then + 'Status message + dim val_redTag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + end if + + 'Display OP Value + dim sOPStateTxt + + sOPStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + oShape.objects("txt_OPValue").value = sOPStateTxt + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + End If +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_ANALOGINDICATOR_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_ANALOGINDICATOR_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_C200_ANALOGINDICATOR_ONUPDATE oShape" & oShape.id) +on error resume next + +If flag = 0 then + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSSANALOGINDICATORDISABLEDALARM + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +End If + +If flag <=1 then + 'Set the focus + 'call GSH_ANALOGINDICATORSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + + +If flag = 0 then + 'Bad Data Check + If GSH_C200_ANALOG_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + oShape.objects("txt_PVvalue").value = "---" + Else + oShape.objects("txt_PVvalue").value = GSH_FormatPVText(oShape,oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV)) + End If +End If +'GSH_LOG_E ("GSH_C200_ANALOGINDICATOR_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_NUMERICINDICATOR_ALARMS_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +' Author: Didi Ekaette August 2, 2007 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_NUMERICINDICATOR_ALARMS_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_C200_NUMERICINDICATOR_ALARMS_ONUPDATE oShape" & oShape.id) +on error resume next +If flag = 0 then + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSSANALOGINDICATORDISABLEDALARM + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If +End If + +If flag <=1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Remove Check for Off Normal +End If + + +If flag = 0 then + 'Bad Data Check + If GSH_C200_ANALOG_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + oShape.objects("txt_PVvalue").value = "---" + Else + oShape.objects("txt_PVvalue").value = GSH_FormatPVText(oShape,oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV)) + End If +End If +'GSH_LOG_E ("GSH_C200_NUMERICINDICATOR_ALARMS_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_ANALOGOUTPUTINDICATORALARMS_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +'Author: Didi Ekaette July 30,2007 +'Jan102008: Remove offnormal checking (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_ANALOGOUTPUTINDICATORALARMS_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_C200_ANALOGOUTPUTINDICATORALARMS_ONUPDATE oShape" & oShape.id) +on error resume next + +If flag <= 1 then + + call GSH_SHOWNOALARM(oShape) + 'call GSH_SETREGULATORYCONTROLINDICATORMODE(oShape.objects("rec_DataScript")) + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSSANALOGINDICATORDISABLEDALARM + else +' gsh_log("C200_AO alarm code = " &GSH_GETHIGHESTALARMPRIORITY_OP(oShape.objects("rec_DataScript"))) + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + +End If + +If flag = 0 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) +End If + +'GSH_LOG_E ("GSH_C200_ANALOGOUTPUTINDICATORALARMS_ONUPDATE") +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +'Author: Didi Ekaette July 30,2007 +'Jan102008: Renamed from GSH_C200_ANALOGOUTPUTINDICATORALARMS_ONUPDATE (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_C200_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE oShape" & oShape.id) +on error resume next + +If flag <= 1 then + + call GSH_SHOWNOALARM(oShape) + call GSH_SETREGULATORYCONTROLINDICATORMODE(oShape.objects("rec_DataScript")) + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSSANALOGINDICATORDISABLEDALARM + else +' gsh_log("C200_AO alarm code = " &GSH_GETHIGHESTALARMPRIORITY_OP(oShape.objects("rec_DataScript"))) + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_ANALOG_MODE_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + +If flag = 0 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) +End If + +'GSH_LOG_E ("GSH_C200_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_REGCTLINDICATOR_ONUPDATE''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_REGCTLINDICATOR_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_REGCTLINDICATOR_ONUPDATE oShape=" & oShape.id) + +On Error Resume Next + +' gsh_log("Flag = " &flag &"Alarm Code = " &GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY)) + +' gsh_log("Alarm Code GEN function = " &GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_PROCESSVALUE)) + If flag = 0 then + call GSH_REGULATORYCONTROLINDICATORSHOWNORMAL(oShape) + + call GSH_SETREGULATORYCONTROLINDICATORMODE(oShape.objects("rec_DataScript")) + + 'Check the points alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_REGULATORYCONTROLINDICATORSHOWDISABLEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + + 'This might give out highest alarm (including returning alarm) + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + End If + + If flag <= 1 then + + 'Check Focus + call GSH_SETREGULATORYCONTROLINDICATORFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + If flag = 0 then + + 'PV Data Check + If GSH_C200_ANALOG_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + 'Set Mode + oShape.objects("txt_mode").value = Left(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE), 1) + + 'Check the point ramping + Select Case GSH_GET_POINT_RAMPING_VALUE(oShape.objects("rec_DataScript")) + Case GSH_RAMPING_RUN + call GSH_REGULATORYCONTROLINDICATORSHOW_RAMP(oShape,Left(GSH_RAMPING_RUN,1)) + Case GSH_RAMPING_PRESET + call GSH_REGULATORYCONTROLINDICATORSHOW_RAMP(oShape,Left(GSH_RAMPING_PRESET,1)) + Case else + 'do nothing because visibility is hidden by default and in Show Normal + end Select + 'Check the point Windup + dim sWindupStatus + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) + + End If +'gsh_log_e("GSH_C200_REGCTLINDICATOR_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_AUTOMAN_ONUPDATE''''''''''''''''''''''''' +'Parameters: oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +' 06/12/07 Removed initman check because it is redundant to Windup = HILO +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_AUTOMAN_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_AUTOMAN_ONUPDATE oShape=" & oShape.id) +On Error Resume Next +If flag = 0 then + call GSH_REGULATORYCONTROLINDICATORSHOWNORMAL(oShape) + 'Check the points alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_REGULATORYCONTROLINDICATORSHOWDISABLEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +End If +If flag <= 1 then + 'call GSH_SETREGULATORYCONTROLINDICATORFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS (oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_AUTOMAN_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If +If flag = 0 then + oShape.objects("txt_OPValue").value = formatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + oShape.objects("txt_mode").value = Left(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE), 1) + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) +End If +'gsh_log_e("GSH_C200_AUTOMAN_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'TODO: hardcoded to fix. +'Function: Get Highest Alarm Priority Parameter''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = data bound object within an HCS shape +' paraName - Script Data parameter Name +'Returns: Alarm Code = GSH_ACKLOW, GSH_ACKHIGH, GSH_ACKEMERG, +' GSH_UNACKLOW, GSH_UNACKHIGH, GSH_UNACKEMERG, GSH_NOALARMCODE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_GETHIGHESTALARMPRIORITYPROPERTY(oAlarmWordBoundObject) +''gsh_log_s("GSH_GETHIGHESTALARMPRIORITYPROPERTY oAlarmWordBoundObject=" & oAlarmWordBoundObject.id) +on error resume next +dim alarmword, alarmunack +' gsh_log ("oAlarmWordBoundObject.alarm = " &oAlarmWordBoundObject.alarm) + alarmword = (oAlarmWordBoundObject.alarm) and 1023 + alarmunack = (oAlarmWordBoundObject.alarm) and 2048 +' gsh_log "alarmword = " & hex(alarmword) & ", alarmunack = " & hex(alarmunack) '&h30, &h20, &h10 + + Dim iAlarmCode, iAlarmSeverity, iUnackAlarmExists + '0 = no, 1 = low, 2= high, 3= urgent + iAlarmSeverity = (alarmword/16) + if alarmunack = 2048 then + iUnackAlarmExists = 0 + else + iUnackAlarmExists = 1 + end if + iAlarmCode = GSH_NOALARMCODE + + select case(2*iAlarmSeverity+iUnackAlarmExists) + case 0 + iAlarmCode = GSH_NOALARMCODE + case 1 + iAlarmCode = GSH_NOALARMCODE + case 2 + iAlarmCode = GSH_ACKLOW + case 3 + iAlarmCode = GSH_UNACKLOW + case 4 + iAlarmCode = GSH_ACKHIGH + case 5 + iAlarmCode = GSH_UNACKHIGH + case 6 + iAlarmCode = GSH_ACKEMERG + case 7 + iAlarmCode = GSH_UNACKEMERG + case else +' gsh_log "GSH_GETHIGHESTALARMPRIORITYPROPERTY error Alarm Severity = " & iAlarmSeverity & ", Unacknowledged Alarm = " & iUnackAlarmExists + end select + 'return alarm code + GSH_GETHIGHESTALARMPRIORITYPROPERTY = iAlarmCode +'gsh_log "GSH_GETHIGHESTALARMPRIORITYPROPERTY info Alarm Severity = " & iAlarmSeverity & ", Unacknowledged Alarm = " & iUnackAlarmExists +'gsh_log_e("GSH_GETHIGHESTALARMPRIORITYPROPERTY returing " & iAlarmCode) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITALINDICATOR_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/06/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/13/07 Add GSH_GETHIGHESTALARMPRIORITYPROPERTY to the onupdate and +' added two new script data references: TOTALALARMS and unackalarmexists as well as +' a ConAlpAlarmValue object +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_DIGITALINDICATOR_ONUPDATE (oShape, flag) 'This version displays the StateTxt from the Registry +on error resume next + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")), oShape) + End If + 'No Bad Data Check + oShape.objects("txt_PVvalue").value = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + 'gsh_log "GSH_C200_DIGITALINDICATOR_ONUPDATE alarmpriority"&GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) + End If + If flag <= 1 then + 'Set the focus + 'call GSH_DIGITALINDICATORSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, oShape.objects("txt_PVvalue").value) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITALOUTPUTINDICATORALARMS_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/06/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/13/07 Add GSH_GETHIGHESTALARMPRIORITYPROPERTY to the onupdate and +' added two new script data references: TOTALALARMS and unackalarmexists as well as +' a ConAlpAlarmValue object +'Author: Didi Ekaette July 31, 2007 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_DIGITALOUTPUTINDICATORALARMS_ONUPDATE (oShape, flag) 'This version displays the StateTxt from the Registry +on error resume next + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + 'call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")), oShape) + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITY_OP(oShape.objects("rec_DataScript")),oShape) + End If + 'No Bad Data Check + 'oShape.objects("txt_PVvalue").value = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + oShape.objects("txt_OPvalue").value = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + + 'gsh_log "GSH_C200_DIGITALINDICATOR_ONUPDATE alarmpriority"&GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) + End If + If flag <= 1 then + 'Set the focus + 'call GSH_DIGITALINDICATORSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_OP_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, oShape.objects("txt_OPvalue").value) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +end sub + +'GSH_DIGITAL_GETSTATE is replaced by GSH_SCADA_DIGITAL_GETSTATE and GSH_C200_DIGITAL_GETSTATE on May 4, 2007 --- Why???? The two functions are the same + + +'These 3 functions below will be replaced by GSH_DIGITAL_GETSTATE when refactoring +function GSH_SCADA_DIGITAL_GETSTATE (sTagname, sPointName, sParameterName, oDataBoundSDObj) +'gsh_log_s "GSH_SCADA_DIGITAL_GETSTATE <<<<<<<<< sTagname="&sTagname&", sPointName="&sPointName&", sParameterName="&sParameterName&",oDataBoundSDObj ="&oDataBoundSDObj.id +dim nParameterNumericValue, sStateText + nParameterNumericValue = oDataBoundSDObj.DataValue(sPointName&"."&sParameterName) + sStateText = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT("&nParameterNumericValue&")", GSH_NONE) + GSH_SCADA_DIGITAL_GETSTATE = sStateText +'gsh_log_e "GSH_SCADA_DIGITAL_GETSTATE returns >>>>>>>>" &sStateText +end function + +function GSH_C200_DIGITAL_GETSTATE (sTagname, sPointName, sParameterName, oDataBoundSDObj) +'gsh_log_s "GSH_C200_DIGITAL_GETSTATE <<<<<<<<< sTagname="&sTagname&", sPointName="&sPointName&", sParameterName="&sParameterName&",oDataBoundSDObj ="&oDataBoundSDObj.id +dim nParameterNumericValue, sStateText + nParameterNumericValue = oDataBoundSDObj.DataValue(sPointName&"."&sParameterName) +'gsh_log "GSH_C200_DIGITAL_GETSTATE nParameterNumericValue = " & nParameterNumericValue + sStateText = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT("&nParameterNumericValue&")", GSH_NONE) + GSH_C200_DIGITAL_GETSTATE = sStateText +'gsh_log_e "GSH_C200_DIGITAL_GETSTATE returns >>>>>>>>" &sStateText +end function + +function GSH_FP_C200_DIGITAL_GETSTATE (sTagname, sPointName, sParameterName, oDataBoundSDObj, sFuncBlock) +'gsh_log_s "GSH_FP_C200_DIGITAL_GETSTATE <<<<<<<<< sTagname="&sTagname&", sPointName="&sPointName&", sParameterName="&sParameterName&",oDataBoundSDObj ="&oDataBoundSDObj.id +dim nParameterNumericValue, sStateText + nParameterNumericValue = oDataBoundSDObj.DataValue(sPointName&"."&sParameterName) + sStateText = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT("&nParameterNumericValue&")", GSH_NONE) + GSH_FP_C200_DIGITAL_GETSTATE = sStateText +'gsh_log_e "GSH_FP_C200_DIGITAL_GETSTATE returns >>>>>>>>" &sStateText +end function + +function GSH_TPS_DIGITAL_GETSTATE (sTagname, sPointName, sParameterName, oDataBoundSDObj) +'gsh_log_s "GSH_TPS_DIGITAL_GETSTATE <<<<<<<<< sTagname="&sTagname&", sPointName="&sPointName&", sParameterName="&sParameterName&",oDataBoundSDObj ="&oDataBoundSDObj.id +dim sParameterTextValue + sParameterTextValue = oDataBoundSDObj.DataValue(sPointName&"."&sParameterName) +' sStateText = GSH_READTAGINFORMATIONKEYVALUE(sTagname, "STATETXT("&nParameterNumericValue&")", "MOVING") + GSH_TPS_DIGITAL_GETSTATE = sParameterTextValue +'gsh_log_e "GSH_TPS_DIGITAL_GETSTATE returns >>>>>>>>" &sStateText +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITALINDICATOR_NOFORMAT_ONUPDATE'''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_DIGITALINDICATOR_NOFORMAT_ONUPDATE (oShape) +on error resume next +call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + +'Alarming +if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED +else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) +End If + +'Set the focus +call GSH_DIGITALINDICATORSETFOCUS(oShape) + +'Check for Off Normal if not in focus +if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if +end if + +'No Bad Data Check + oShape.objects("txt_PVvalue").value = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV) +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPDIGITALCOMPOSITE_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/06/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/14/07 replaced GSH_GETHIGHESTALARMPRIORITYPARAMETER with GSH_GETHIGHESTALARMPRIORITYPROPERTY +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve problem that the combox was open, +' but no entry made, then other tag is selected as focus tag. +' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPDIGITALCOMPOSITE_ONUPDATE(oShape, flag) +on error resume next + + If flag = 0 then + GSH_GROUPDIGITALCOMPOSITESHOWNORMAL(oShape) + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN 'Hide RedTag + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_GROUPDIGITALCOMPOSITESHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")),oShape) + End If + + 'PV Data Check + If GSH_C200_DIGITALCOMPOSITE_ISDATABAD(oShape.objects("rec_DataScript")) Then + call GSH_GROUPDIGITALCOMPOSITESHOWBADPV(oShape) + else + oShape.objects("txt_DigitalValue").value = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + End If + + End If + + If flag <= 1 then + 'Set the focus + 'call GSH_GROUPDIGITALCOMPOSITESETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + 'hide OP combobox if it was opened + oShape.objects("cmb_OPValue").style.visibility = GSH_HIDDEN + + if GSH_C200_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL, oShape.objects("txt_DigitalValue").value) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + End If + + If flag = 0 then + 'Status message + dim val_redTag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + end if + + 'Display OP Value +' sOPStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + oShape.objects("txt_OPValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP) + End If +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPDIGITALCOMPOSITE_SM_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 02/19/08 Created to add in Status Message checking +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPDIGITALCOMPOSITE_SM_ONUPDATE(oShape, flag) +on error resume next + + If flag = 0 then + GSH_GROUPDIGITALCOMPOSITESHOWNORMAL(oShape) + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN 'Hide RedTag + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_GROUPDIGITALCOMPOSITESHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")),oShape) + End If + + 'PV Data Check + If GSH_C200_DIGITALCOMPOSITE_ISDATABAD(oShape.objects("rec_DataScript")) Then + call GSH_GROUPDIGITALCOMPOSITESHOWBADPV(oShape) + else + oShape.objects("txt_DigitalValue").value = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + End If + + End If + + If flag <= 1 then + 'Set the focus + 'call GSH_GROUPDIGITALCOMPOSITESETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + 'hide OP combobox if it was opened + oShape.objects("cmb_OPValue").style.visibility = GSH_HIDDEN + + if GSH_C200_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL, oShape.objects("txt_DigitalValue").value) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + End If + + If flag = 0 then + 'Status message + dim val_redTag, val_stsMsg, tagName, stsMsgType + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG)) + + if strcomp(val_redTag,GSH_ON,vbtextcompare) = 0 then + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + else if (val_stsMsg > 0) then + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + if val_stsMsg >0 and stsMsgType <> "" then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &val_stsMsg, "") + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) + end if + end if + end if + + 'Display OP Value + sOPStateTxt = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP) + oShape.objects("txt_OPValue").value = sOPStateTxt + 'oShape.objects("txt_OPValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP) + End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_SELXDESC_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 04Mar2008 Created shape for Winz +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_SELXDESC_ONUPDATE (oShape, flag) 'This version displays the SELXDESC parameter +on error resume next + If flag = 0 then + call GSH_REGULATORYCONTROLINDICATORSHOWNORMAL(oShape) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY), oShape) + End If + 'No Bad Data Check + oShape.objects("txt_PVvalue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_SELXDESC") + oShape.objects("txt_mode").value = Left(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE), 1) + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) + End If + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_AUTOMAN_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_MULTIFPREGCTLSPLIT_ONUPDATE''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'06/05/07 Added flag parameter to execute only focus status update or all +'06/06/07 Optimize code, use ShowWindupStatus; modified RedTag code. +' removed initman check code because it's a duplicate of Windup = HILO +' 06/14/07 use GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL to check offnormal +' no longer checking PVSOURCE because there is no PV. +' 06/14/07 Changed shape design and function. Therefore removed RedTag, +' Ramp, SP and PV values, use general alarm function +' 06/15/07 remove reference to txt_statusmessage +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve problem that the combox was open, +' but no entry made, then other tag is selected as focus tag. (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_MULTIFPREGCTLSPLIT_ONUPDATE(oShape,flag) +'gsh_log_s "GSH_C200_MULTIFPREGCTLSPLIT_ONUPDATE oShape="&oShape&", flag="&flag +on error resume next +if flag = 0 then + GSH_GROUPREGULATORYCONTROLSHOWNORMAL(oShape) + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +End If +If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_Valve1").style.visibility = GSH_HIDDEN + oShape.objects("alp_Valve2").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If +if flag = 0 then + 'Display OP Value + oShape.objects("txt_Valve1").value = formatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_VLV1),GSH_OUTPUTINDICATORDECIMALS) + oShape.objects("txt_Valve2").value = formatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_VLV2),GSH_OUTPUTINDICATORDECIMALS) + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) + 'Initman check was redundant to Windup = HILO, it was removed. +End If +'gsh_log_e "GSH_C200_MULTIFPREGCTLSPLIT_ONUPDATE" +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIFPREGCTLGAP_SHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: ' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIFPREGCTLGAP_SHOWNORMAL(oShape) +'gsh_log_s("GSH_MULTIFPREGCTLGAP_SHOWNORMAL oShape=" & oShape.id) +on error resume next +Dim shapePoint, tagKeyword, tagName + 'Disable Alarms + call GSH_SHOWNOALARM(oShape) + 'Show values + oShape.objects("outline").styleClass = GSH_CSSGROUPREGULATORYCONTROLNORMAL + oShape.objects("outline").style.visibility = GSH_VISIBLE + 'Read Values from Registry + shapePoint = GSH_GETSHAPETAG(oShape) + tagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + 'Assign values to textboxes + oShape.objects("txt_tagname").value = tagName + oShape.objects("txt_keyword").value = tagKeyword +'gsh_log_e("GSH_MULTIFPREGCTLGAP_SHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_MULTIFPREGCTLGAP_ONUPDATE''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/05/07 Added flag parameter to execute only focus status update or all +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve +' problem that the combox or alp entry was open, +' but no entry made, then other tag is selected as focus tag. (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_MULTIFPREGCTLGAP_ONUPDATE(oShape, flag) +on error resume next + if flag = 0 then + GSH_MULTIFPREGCTLGAP_SHOWNORMAL(oShape) + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + End If + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_SPHighValue").style.visibility = GSH_HIDDEN + oShape.objects("alp_SPLowValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + + End If + if flag = 0 then + 'PV Data Check + If GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + if not((oShape.objects("rec_DataScript")).isNAN(GSH_CPENTITY &"." &GSH_CPPARAM_SPHIGH)) then + 'Display SP High or Low values (if any is configured for the point) + oShape.objects("txt_SPHighValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SPHIGH)) + else + call GSH_GROUPREGULATORYCONTROLSHOWBADSPHIGH(oShape) + end if + + if not((oShape.objects("rec_DataScript")).isNAN(GSH_CPENTITY &"." &GSH_CPPARAM_SPLOW)) then + oShape.objects("txt_SPLowValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SPLOW)) + else + call GSH_GROUPREGULATORYCONTROLSHOWBADSPLOW(oShape) + end if + End If +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_MULTIFPREGCTLGAP_DACA_ONUPDATE''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'08/31/07 Create function to handle the C200_MF_GAP_DACA shape. +'09/04/07 Add check for SPLow and SPHigh for NAN value, +' If it is NAN, show "---". +' Take out the check for empty SPHI and SP low parameter +' b/c these causes invalid reference on server (CL) +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve problem that the alp_text was open, +' but no entry made, then other tag is selected as focus tag. (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_MULTIFPREGCTLGAP_DACA_ONUPDATE(oShape, flag) +on error resume next +'gsh_log_s("GSH_C200_MULTIFPREGCTLGAP_DACA_ONUPDATE oShape="&oShape.id) + if flag = 0 then + GSH_MULTIFPREGCTLGAP_SHOWNORMAL(oShape) + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + End If + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_SPHighValue").style.visibility = GSH_HIDDEN + oShape.objects("alp_SPLowValue").style.visibility = GSH_HIDDEN + + if GSH_C200_REGCTLGAP_DACA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + End If + if flag = 0 then + 'PV Data Check + If GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + + if not((oShape.objects("rec_DataScript")).isNAN(GSH_CPENTITY &"." &GSH_CPPARAM_SPHIGH)) then + 'Display SP High or Low values (if any is configured for the point) + oShape.objects("txt_SPHighValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SPHIGH)) + else + call GSH_GROUPREGULATORYCONTROLSHOWBADSPHIGH(oShape) + end if + + if not((oShape.objects("rec_DataScript")).isNAN(GSH_CPENTITY &"." &GSH_CPPARAM_SPLOW)) then + oShape.objects("txt_SPLowValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SPLOW)) + else + call GSH_GROUPREGULATORYCONTROLSHOWBADSPLOW(oShape) + end if + + End If +'gsh_log_e("GSH_C200_MULTIFPREGCTLGAP_DACA_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIFPHIDEENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIFPHIDEENTRY(ObjID) +'gsh_log_s("GSH_MULTIFPHIDEENTRY ObjID=" & ObjID.id ) + window.clearInterval(GSH_GroupTimerId) + ObjID.style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_MULTIFPHIDEENTRY") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPMULTIFPSHOWENTRY'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = Shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MULTIFPSHOWENTRY(ObjID) +'gsh_log_s("GSH_MULTIFPSHOWENTRY ObjID=" & ObjID.id) + ObjID.style.visibility = GSH_VISIBLE + window.clearInterval(GSH_GroupTimerId) + GSH_GroupTimerId = window.setInterval("call GSH_MULTIFPHIDEENTRY(" & ObjID.id & ")", GSH_GroupTimeout * 1000) +' page.all(ObjID.id).focus + +'gsh_log_e("GSH_MULTIFPSHOWENTRY >>>>>>>>>>>"&"call GSH_MULTIFPHIDEENTRY(" & ObjID.id & ")") +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE'''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'06/05/07 Added flag parameter to execute only focus status update or all +'04Jan08 Revised normal outline - JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(oShape, flag) +on error resume next +if flag = 0 then + GSH_GROUPREGULATORYCONTROLSHOWNORMAL(oShape) + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN 'Hide RedTag + + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +End If + +if flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + + 'Check for Off Normal and hide text entry and combobox if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_SPValue").style.visibility = GSH_HIDDEN + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + +if flag = 0 then + 'PV Data Check + If GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + 'Display OP Value + 'oShape.objects("txt_OPValue").value = formatNumber(alp_OPValue.value,GSH_OUTPUTINDICATORDECIMALS) + oShape.objects("txt_OPValue").value = FormatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + + 'Display SP Value + 'oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,alp_SPValue.value) + oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SP)) + + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + 'Status message + dim val_redTag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if strcomp(val_redTag,GSH_ON,vbtextcompare) = 0 then + oShape.objects("txt_statusmessage") = GSH_REDTAG_TEXT + oShape.objects("txt_statusmessage").style.visibility = GSH_VISIBLE + end if + 'Set Ramping + Select case GSH_GET_POINT_RAMPING_VALUE(oShape.objects("rec_DataScript")) + Case GSH_RAMPING_RUN + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_RUN,1)) + Case GSH_RAMPING_PRESET + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_PRESET,1)) + Case else + 'do nothing because visibility is hidden by default and in Show Normal + end select +End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPREGULATORYCONTROL_SM_ONUPDATE'''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 02/19/08 Created from GROUPREGULATORYCONTROL for StatusMessage addition +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPREGULATORYCONTROL_SM_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_GROUPREGULATORYCONTROL_SM_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +on error resume next +if flag = 0 then + GSH_GROUPREGULATORYCONTROLSHOWNORMAL(oShape) + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN 'Hide RedTag + + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +End If + +if flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + + 'Check for Off Normal and hide text entry and combobox if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_SPValue").style.visibility = GSH_HIDDEN + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + +'if flag = 0 then + 'PV Data Check + If GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + 'Display OP Value + 'oShape.objects("txt_OPValue").value = formatNumber(alp_OPValue.value,GSH_OUTPUTINDICATORDECIMALS) + oShape.objects("txt_OPValue").value = FormatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + + 'Display SP Value + 'oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,alp_SPValue.value) + oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SP)) + + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + 'RedTag and Status Message + dim val_redTag, val_stsMsg, tagName, stsMsgType, numOfMessage + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG)) + + if strcomp(val_redTag,GSH_ON,vbtextcompare) = 0 then + oShape.objects("txt_statusmessage") = GSH_REDTAG_TEXT + oShape.objects("txt_statusmessage").style.visibility = GSH_VISIBLE +' gsh_log "val_redTag = " & val_redTag + else if (val_stsMsg > 0) then + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + numOfMessage = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & "NoOfMessages", "0") +' gsh_log "numOfMessage = " & numOfMessage + + if val_stsMsg >0 and val_stsMsg <=numOfMessage then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &val_stsMsg, "") + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) + end if + end if + + 'Set Ramping + Select case GSH_GET_POINT_RAMPING_VALUE(oShape.objects("rec_DataScript")) + Case GSH_RAMPING_RUN + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_RUN,1)) + Case GSH_RAMPING_PRESET + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_PRESET,1)) + Case else + 'do nothing because visibility is hidden by default and in Show Normal + end select +End If +'gsh_log_e("GSH_C200_GROUPREGULATORYCONTROL_SM_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPRATIOTRACK_ONUPDATE'''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'08 July 2008 Added for Sasol - JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPRATIOTRACK_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_GROUPRATIOTRACK_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +on error resume next + +if flag = 0 then + GSH_GROUPREGULATORYCONTROLSHOWNORMAL(oShape) + + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +end if + +if flag <=1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + + 'Hide text entry and combobox if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + oShape.objects("alp_SPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + end if +End If +' +'if flag = 0 then + dim txtFormat + txtFormat = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_RFormat") + numOfDecimals = CInt(Right(txtFormat,1)) + 'PV Data Check + txtIn = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + If (StrComp(txtIn,"1.#QNAN")= 0) or (StrComp(txtIn,"---")= 0) then + tempReturn = GSH_BADPV_TEXT + else + tempReturn = FormatNumber(txtIn, numOfDecimals,-2, 0, 0) + end if + oShape.objects("txt_AnalogValue").value = tempReturn + + 'Display SP Value + txtIn = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SP) + If (StrComp(txtIn,"1.#QNAN")= 0) or (StrComp(txtIn,"---")= 0) then + tempReturn = GSH_BADPV_TEXT + else + tempReturn = FormatNumber(txtIn, numOfDecimals,-2, 0, 0) + end if + oShape.objects("txt_SPValue").value = tempReturn + 'Ratio Mode + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) +'End If +'gsh_log_e("GSH_C200_GROUPRATIOTRACK_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_REGCTLBOX_ONUPDATE'''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'20Feb08 Created new shape for Sasol - JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_REGCTLBOX_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_REGCTLBOX_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +on error resume next +if flag = 0 then + + call GSH_REGCTLBOXSHOWNORMAL(oShape) + + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +End If + +if flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + + 'Check for Off Normal and hide text entry and combobox if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + +if flag = 0 then + 'PV Data Check + If GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + 'Display OP Value + oShape.objects("txt_OPValue").value = FormatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + + 'Display SP Value + oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SP)) + + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + 'Set Ramping + Select case GSH_GET_POINT_RAMPING_VALUE(oShape.objects("rec_DataScript")) + Case GSH_RAMPING_RUN + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_RUN,1)) + Case GSH_RAMPING_PRESET + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_PRESET,1)) + Case else + 'do nothing because visibility is hidden by default and in Show Normal + end select +End If +'gsh_log_e("GSH_C200_REGCTLBOX_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_REGCTLBOX_ENH_ONUPDATE'''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'21July08 Created new shape for Sasol - JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_REGCTLBOX_ENH_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_REGCTLBOX_ENH_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +on error resume next +if flag = 0 then + + call GSH_REGCTLBOXSHOWNORMAL(oShape) + + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +End If + +if flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + + 'Check for Off Normal and hide text entry and combobox if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + +if flag = 0 then + 'PV Data Check + If GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + 'Display OP Value + oShape.objects("txt_OPValue").value = FormatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + + 'Display SP Value + oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SP)) + + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + +End If +'gsh_log_e("GSH_C200_REGCTLBOX_ENH_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGCTLBOXSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: ' oDataBoundObject = subshape name or me, if calling within subshape +'Used in ALL MULITFP Reg Ctl based! +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGCTLBOXSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_REGCTLBOXSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagName + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + tagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + 'Assign values to textboxes + oDataBoundObject.objects("txt_tagname").value = tagName + 'Disable Alarms + call GSH_SHOWNOALARM(oDataBoundObject) + 'Show values + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPREGULATORYCONTROLNORMAL + oDataBoundObject.objects("outline").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_Initialization").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_ramp").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_REGCTLBOXSHOWNORMAL") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_LEVELREGCTLGAP_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_LEVELREGCTLGAP_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_LEVELREGCTLGAP_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +On Error Resume Next +If flag <= 1 then + GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + else + call GSH_SHOWLEVELALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + + call GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) 'Check Focus + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) + end if + end if + + 'Check for bad value + If GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + oShape.objects("plg_SPIndicator1").style.pixeltop = cint(GSH_LEVELINDICATOR_SPFLOATPOSITION (oShape,GSH_CPPARAM_SPHIGH)- (oShape.objects("plg_SPIndicator2").style.pixelheight / 2)) + oShape.objects("plg_SPIndicator2").style.pixeltop = cint(GSH_LEVELINDICATOR_SPFLOATPOSITION (oShape,GSH_CPPARAM_SPLOW)- (oShape.objects("plg_SPIndicator1").style.pixelheight / 2)) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If + +End If +If flag = 0 then + + 'When SPHigh or SPLow value is Nan -> do not show the marker + if not((oShape.objects("rec_DataScript")).isNAN(GSH_CPENTITY &"." &GSH_CPPARAM_SPHIGH)) then + oShape.objects("plg_SPIndicator1").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_SPIndicator1").style.visibility = GSH_HIDDEN + end if + + if not((oShape.objects("rec_DataScript")).isNAN(GSH_CPENTITY &"." &GSH_CPPARAM_SPLOW)) then + oShape.objects("plg_SPIndicator2").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_SPIndicator2").style.visibility = GSH_HIDDEN + end if + +End If +'gsh_log_e("GSH_C200_LEVELREGCTLGAP_ONUPDATE") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_LEVELREGCTLGAP_DACA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 08/31/07 Function to handle LevelGap_data shape. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_LEVELREGCTLGAP_DACA_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_LEVELREGCTLGAP_DACA_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +On Error Resume Next +If flag <= 1 then + GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + else + call GSH_SHOWLEVELALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +'End If +'If flag <= 1 then + call GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) 'Check Focus + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_REGCTLGAP_DACA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) + end if + end if + + 'Check for bad value + If GSH_C200_ANALOG_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + oShape.objects("plg_SPIndicator1").style.pixeltop = cint(GSH_LEVELINDICATOR_SPFLOATPOSITION (oShape,GSH_CPPARAM_SPHIGH)- (oShape.objects("plg_SPIndicator2").style.pixelheight / 2)) + oShape.objects("plg_SPIndicator2").style.pixeltop = cint(GSH_LEVELINDICATOR_SPFLOATPOSITION (oShape,GSH_CPPARAM_SPLOW)- (oShape.objects("plg_SPIndicator1").style.pixelheight / 2)) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If + +End If +If flag = 0 then + + 'When SPHigh or SPLow value is Nan -> do not show the marker + if not((oShape.objects("rec_DataScript")).isNAN(GSH_CPENTITY &"." &GSH_CPPARAM_SPHIGH)) then + oShape.objects("plg_SPIndicator1").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_SPIndicator1").style.visibility = GSH_HIDDEN + end if + + if not((oShape.objects("rec_DataScript")).isNAN(GSH_CPENTITY &"." &GSH_CPPARAM_SPLOW)) then + oShape.objects("plg_SPIndicator2").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_SPIndicator2").style.visibility = GSH_HIDDEN + end if + +End If +'gsh_log_e("GSH_C200_LEVELREGCTLGAP_DACA_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_LEVELREGCTL_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +' 06/04/07 Remove Initman because already using ARWOP HILO. +' 06/04/07 Replace Windup select statement with GSH_SHOWWINDUPSTATUS +' 01/14/08 Add the check for alarms in both ctl and fun block when there is alarm (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_LEVELREGCTL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_LEVELREGCTL_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +On Error Resume Next +If flag <= 1 then + GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + else + call GSH_SHOWLEVELALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + 'call GSH_SHOWLEVELALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +'End If +'If flag <= 1 then + call GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) + end if + end if + + 'Check for bad value + If GSH_C200_ANALOG_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + call GSH_LevelIndicatorShowSPFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If +End If + + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + +'gsh_log_e("GSH_C200_LEVELREGCTL_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITALOUTPUTINDICATOR_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/06/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/09/07 Check for Off Normal not required; Removed. +' GSH_DIGITALOUTPUTINDICATORSETFOCUS(oShape) replaced by GSH_GEN_SETSHAPEFOCUS(oShape) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_DIGITALOUTPUTINDICATOR_ONUPDATE (oShape, flag) +on error resume next + +' gsh_log_s("GSH_C200_DIGITALOUTPUTINDICATOR_ONUPDATE") + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + 'oShape.objects("shp_focus").style.visibility = GSH_HIDDEN + End If + If flag <= 1 then + 'Alarming not needed + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'No Check for Off Normal required + 'End If + 'If flag = 0 then + 'Display OP Value + Dim sOPStateTxt + + sOPStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + + oShape.objects("txt_OPvalue").value = sOPStateTxt + 'oShape.objects("txt_OPvalue").value = oShape.objects("rec_DataScript") + + End If +' gsh_log_e("GSH_C200_DIGITALOUTPUTINDICATOR_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_ANALOGOUTPUTINDICATOR_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +' 06/12/07 GSH_GEN_SETSHAPEFOCUS replaced GSH_NUMERICINDICATORSETFOCUS +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_ANALOGOUTPUTINDICATOR_ONUPDATE (oShape, flag) +on error resume next +If flag = 0 then + oShape.objects("outline").styleClass = GSH_CSSANALOGOUTPUTINDICATORNORMAL + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) +end if +If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) +end if +End sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_ValveRegulatoryControl_OnUpdate'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/12/07 Removed initman check because it is redundant to Windup = HILO +' 06/12/07 Fixed incorrect display of txt_OPvalue +' 06/12/07 Alarms must use GSH_GETHIGHESTALARMPRIORITY_OP +' 08/08/07 Add: check & show status message flag on status message text. Reference issue #370 (Cuong Ly) +' Fix potential problem of sticky redTag +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_VALVEREGCTL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_VALVEREGCTL_ONUPDATE oShape=" & oShape.id) + + If flag <= 1 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + call GSH_ValveRegulatoryControlShowNormal(oShape) + Dim OPValue,stsmsg, val_redTag, initMan + OPValue = oShape.objects("ind_OPStem").value + If (OPValue <= 5) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else if ( (OPValue > 5) and (OPValue < 95) ) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if: end if + 'Check the points alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_ValveRegulatoryControlShowDisabledAlarm(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + + 'Assumption: Reg tag and status message are mutual exclusive + 'Status message + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + 'red tag + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) +' else + 'Check status Message +' dim val_stsMsg +' val_stsMsg = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG) +' call GSH_Show_StatusMessageFlag(oShape, val_stsMsg) + end if + + 'End If + + 'If flag <= 1 then + 'Focus + call GSH_ValveRegulatoryControlSetFocus(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_C200_ValveREGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL)) then + 'if (GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL)) then + call GSH_ValveRegulatoryControlShowOffNormal(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + End If + + If flag = 0 then + 'Check the point Windup + dim sWindupStatus + sWindupStatus = GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")) + call GSH_SHOWWINDUPSTATUS(sWindupStatus,oShape) + + 'Make the focus transparent for valves + oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + End If +'gsh_log_e("GSH_C200_VALVEREGCTL_ONUPDATE") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_VALVEAUTOMAN_OnUpdate'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 02/22/08 Created shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_VALVEAUTOMAN_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_VALVEAUTOMAN_ONUPDATE oShape=" & oShape.id) + + If flag <= 1 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + call GSH_ValveRegulatoryControlShowNormal(oShape) + Dim OPValue,stsmsg, val_redTag, initMan + OPValue = oShape.objects("ind_OPStem").value + If (OPValue <= 5) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else if ( (OPValue > 5) and (OPValue < 95) ) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if: end if + 'Check the points alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_ValveRegulatoryControlShowDisabledAlarm(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + + 'Red Tag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + 'red tag + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + end if + + 'If flag <= 1 then + 'Focus + call GSH_ValveRegulatoryControlSetFocus(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + call GSH_ValveRegulatoryControlShowOffNormal(oShape) + end if + end if + End If + + If flag = 0 then + 'Check the point Windup + dim sWindupStatus + sWindupStatus = GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")) + call GSH_SHOWWINDUPSTATUS(sWindupStatus,oShape) + + 'Make the focus transparent for valves + oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + End If +'gsh_log_e("GSH_C200_VALVEAUTOMAN_ONUPDATE") +end sub +' +' GSH_C200_STATUSMESSAGE_ONUPDATE +' +'10/12/07 - Status Message shape to put on shapes that require status message to be shown +' however, because stsMessage parameter is not available on every points -> they need +' to be manually put on when needed. +' Only apply to Winz at the moment. (CL) +''04/30/08 - Add isNAN checking condition to handle bad value +sub GSH_C200_STATUSMESSAGE_ONUPDATE(oShape) +'gsh_log_s("GSH_C200_STATUSMESSAGE_ONUPDATE oShape=" & oShape.id) + 'Get Status Message value + dim val_stsMsg, tagName, stsMsgType + if not(oShape.objects("txt_statusMessage")).isNAN(GSH_CPENTITY &"." &GSH_CPPARAM_STSMSG) then + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("txt_statusMessage"),GSH_CPPARAM_STSMSG)) + else + val_stsMsg = 0 + end if + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + call GSH_Show_StatusMessage(oShape, val_stsMsg, stsMsgType) +'gsh_log_e("GSH_C200_STATUSMESSAGE_ONUPDATE oShape=" & oShape.id) +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_Show_StatusMessage'''''''''''''''''''''''''''''''''''''''''' +' stsMsg_flag = 0 => Off (No Message shown) - Default +' stsMsg_flag = 1 => Bypass (shown as Bypass) +' stsMsg_flag = 2 => HandJack (shown as Hand) +' stsMsg_flag = 3 => Isolated (shown as Isolate) +'08/08/07 - Created the sub routine (Cuong Ly) +'10/12/07 - Modified to work with C200_StatusMessage shape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_Show_StatusMessage(oShape, stsMsg_flag, stsMsgType) +'gsh_log_s("GSH_Show_StatusMessage stsMsg_flag = "&stsMsg_flag & " stsMsgType= " &stsMsgType) + dim message, numOfMessage + + numOfMessage = cInt(GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & "NoOfMessages", "0")) + + if stsMsg_flag >0 and stsMsg_flag <=numOfMessage and stsMsgType <> "" then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &stsMsg_flag, "") + oShape.objects("txt_statusmessage").style.visibility = GSH_VISIBLE + oShape.objects("txt_statusmessage").value = message + else + oShape.objects("txt_statusMessage").style.visibility = GSH_HIDDEN + end if +'gsh_log_e("GSH_Show_StatusMessage") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_VALVEDIGITAL_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape handle +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/06/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/14/07 replaced GSH_GETHIGHESTALARMPRIORITYPARAMETER with GSH_GETHIGHESTALARMPRIORITYPROPERTY +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_VALVEDIGITAL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_ValveDigital_OnUpdate oShape=" & oShape.id) +on error resume next + + If flag <= 1 then + Dim nNumericState + nNumericState = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + call GSH_ValveDigitalShowNormal(oShape) + call GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_ValveDigitalShowDisabledAlarm(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")),oShape) + End If + + 'End If + + 'If flag <= 1 then + 'focus + call GSH_ValveDigitalSetFocus(oShape) + 'Check for Off Normal if not in focus + dim sStateTxt: sStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_C200_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL, sStateTxt)) then + call GSH_ValveDigitalShowOffNormal(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + + End If + 'Make the focus transparent for valves + 'oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + + If flag = 0 then + 'Bad Data Check + If GSH_C200_DIGITALCOMPOSITE_ISDATABAD(oShape.objects("rec_DataScript")) Then + call GSH_ValveDigitalShowBadPV(oShape) + else + oShape.objects("txt_PVvalue").value = sStateTxt + End If + + End If +'gsh_log_e("GSH_C200_VALVEDIGITAL_ONUPDATE oShape") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_VALVEDIGITAL_LM_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape handle +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 08/14/2007 - Create the function to handle ValveDigital_LM shapes with Localman and Interlock indicators +' Reference issue #524 (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_VALVEDIGITAL_LM_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_VALVEDIGITAL_LM_ONUPDATE oShape=" & oShape.id) +on error resume next + + If flag <= 1 then + Dim nNumericState + nNumericState = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + call GSH_ValveDigitalShowNormal(oShape) + call GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_ValveDigitalShowDisabledAlarm(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")),oShape) + End If + + 'End If + + 'If flag <= 1 then + 'focus + call GSH_ValveDigitalSetFocus(oShape) + 'Check for Off Normal if not in focus + dim sStateTxt: sStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_C200_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL, sStateTxt)) then + call GSH_ValveDigitalShowOffNormal(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + + End If + 'Make the focus transparent for valves + 'oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + + If flag = 0 then + 'Bad Data Check + If GSH_C200_DIGITALCOMPOSITE_ISDATABAD(oShape.objects("rec_DataScript")) Then + call GSH_ValveDigitalShowBadPV(oShape) + else + oShape.objects("txt_PVvalue").value = sStateTxt + End If + + 'Check for Localman and Interlock status + dim bLocalMan, bInterlock + bInterlock = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_INTERLOCK) + + if(bInterlock) then + oShape.objects("txt_Localman").value = GSH_INTERLOCK_TXT + oShape.objects("txt_Localman").style.visibility = GSH_VISIBLE + else + bLocalMan = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_LOCALMAN) + if(bLocalMan) then + oShape.objects("txt_Localman").value = GSH_LOCALMAN_TXT + oShape.objects("txt_Localman").style.visibility = GSH_VISIBLE + else + oShape.objects("txt_Localman").style.visibility = GSH_HIDDEN + end if + end if + + End If +'gsh_log_e("GSH_C200_VALVEDIGITAL_LM_ONUPDATE oShape") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_VALVEDIGITALFLAG_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Functions the same as Valve Digital but the Offnormal check only exists for Normal State +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/06/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/13/07 Replace GSH_GETHIGHESTALARMPRIORITYPARAMETER by GSH_GETHIGHESTALARMPRIORITYPROPERTY +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_VALVEDIGITALFLAG_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_VALVEDIGITALFLAG_ONUPDATE oShape=" & oShape.id) +on error resume next + + 'flag check here is not necessary, but can leave it for consistency + If flag <= 1 then + Dim nNumericState + nNumericState = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + call GSH_ValveDigitalShowNormal(oShape) + call GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_ValveDigitalShowDisabledAlarm(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")), oShape) + End If + + 'focus + call GSH_ValveDigitalSetFocus(oShape) + 'Check for Off Normal if not in focus + dim sStateTxt: sStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sStateTxt) then + call GSH_ValveDigitalShowOffNormal(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + End If + + 'Make the focus transparent for valves + 'oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground -> should set to be transparent, now done in GSH_ValveDigitalSetFocus + + If flag = 0 then + 'NO Bad Data Check on FLAGA + oShape.objects("txt_PVvalue").value = sStateTxt + End If + + +'gsh_log_e("GSH_C200_VALVEDIGITALFLAG_ONUPDATE oShape") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_MOTORINDICATOR_ONUPDATE''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/13/07 use GSH_GEN_SETSHAPEFOCUS to display focus +' 06/13/07 Use GSH_GETHIGHESTALARMPRIORITYPROPERTY instead of GSH_GETHIGHESTALARMPRIORITYPARAMETER +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_C200_MOTORINDICATOR_ONUPDATE(oShape, flag) +On Error Resume Next + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")), oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + dim sPVStateTxt + sPVStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV,oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_MOTORINDICATOR_LM_ONUPDATE''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 08/14/2007 - Create the function to handle MotoIndicator_lm shapes with Localman and Interlock indicators +' Reference issue #524 (CL) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_C200_MOTORINDICATOR_LM_ONUPDATE(oShape, flag) +On Error Resume Next + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")), oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + dim sPVStateTxt + sPVStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV,oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + 'This piece of code need to be testd on site + If flag = 0 then + 'Check for Localman and Interlock status + dim bLocalMan, bInterlock + bInterlock = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_INTERLOCK) + + if(bInterlock) then + oShape.objects("txt_Localman").value = GSH_INTERLOCK_TXT + oShape.objects("txt_Localman").style.visibility = GSH_VISIBLE + else + bLocalMan = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_LOCALMAN) + if(bLocalMan) then + oShape.objects("txt_Localman").value = GSH_LOCALMAN_TXT + oShape.objects("txt_Localman").style.visibility = GSH_VISIBLE + else + oShape.objects("txt_Localman").style.visibility = GSH_HIDDEN + end if + end if + end if + +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_LevelIndicator_OnUpdate''''''''''''''''''''''''''''''''''''''' +'Parameters:oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_LevelIndicator_OnUpdate(oShape, flag) +'gsh_log_s("GSH_C200_LevelIndicator_OnUpdate oShape="&oShape.id & ", flag="&flag) +On Error Resume Next +If flag <= 1 then + call GSH_LevelIndicatorShowNormal(oShape) + 'Check Alarms + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_LevelIndicatorShowDisbledAlarm(oShape) + else + 'alarming is enabled, get highest priority(if any) and change shape accordingly + call GSH_SHOWLEVELALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +'End If +'If flag <= 1 then + call GSH_LevelIndicatorSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorSHOWOFFNORMAL(oShape) + end if + end if + +'End If +'If flag = 0 then + 'Check for Bad PV + If GSH_C200_ANALOG_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If +End If +'gsh_log_e("GSH_C200_LevelIndicator_OnUpdate") +end sub + +sub GSH_SHOWLEVELALARMS(sAlarmPriority,oShape) + Select Case sAlarmPriority + Case GSH_NOALARMCODE + call GSH_LevelIndicatorShowNoAlarm(oShape) + Case GSH_UNACKEMERG + call GSH_LevelIndicatorShowEmergencyAlarm(oShape,True) + Case GSH_UNACKHIGH + call GSH_LevelIndicatorShowHighAlarm(oShape,true) + Case GSH_UNACKLOW + call GSH_LevelIndicatorShowLowAlarm(oShape,true) + Case GSH_ACKEMERG + call GSH_LevelIndicatorShowEmergencyAlarm(oShape,false) + Case GSH_ACKHIGH + call GSH_LevelIndicatorShowHighAlarm(oShape,false) + Case GSH_ACKLOW + call GSH_LevelIndicatorShowLowAlarm(oShape,false) + Case Else + call GSH_LevelIndicatorShowNoAlarm(oShape) + End Select +end sub + +sub GSH_SHOWLEVELSMALLALARMS(sAlarmPriority,oShape) + call GSH_SHOWLEVELALARMS(sAlarmPriority,oShape) + 'Make Alarm outline width smaller + oShape.objects("outline").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSLVLINDICATORSMALLALARMWIDTH +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPANALOG_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'06/05/07 Added flag parameter to execute only focus status update or all +' 06/12/07 GSH_GEN_SETSHAPEFOCUS replaced GSH_GROUPANALOGSETFOCUS +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPANALOG_ONUPDATE(oShape,flag) +on error resume next +if flag = 0 then + call GSH_GROUPANALOGSHOWNORMAL(oShape) + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_GROUPANALOGSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +End If +If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'Set the focus + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_GROUPANALOGSHOWOFFNORMAL(oShape) + end if + end if + +End If +If flag = 0 then + 'PV Data Check + If NOT(GSH_C200_ANALOG_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false)) Then + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + Else + call GSH_GROUPANALOGSHOWBADPV(oShape) + End If +End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPAUTOMANSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' 06/13/07 Added GSH_SHOWNOALARM to initialize the state of the alarms +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPAUTOMANSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPAUTOMANSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagKeyword, tagName + call GSH_SHOWNOALARM(oDataBoundObject) + 'Show values +' oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPREGULATORYCONTROLNORMAL +' oDataBoundObject.objects("outline").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_statusmessage").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_Initialization").style.visibility = GSH_HIDDEN + 'Read Values from Registry + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + tagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + 'Assign values to textboxes + oDataBoundObject.objects("txt_tagname").value = tagName + oDataBoundObject.objects("txt_keyword").value = tagKeyword +'gsh_log_e("GSH_GROUPAUTOMANSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPAUTOMAN_ONUPDATE''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/10/07 Optimized windup code with GSH_ShowWindupStatus. +' 06/12/07 Add alarming code referencing CP_OP and fix focus display. +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve problem that the combox was open, +' but no entry made, then other tag is selected as focus tag. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPAUTOMAN_ONUPDATE(oShape, flag) +on error resume next + If flag = 0 then + GSH_GROUPAUTOMANSHOWNORMAL(oShape) + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_C200_AUTOMAN_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + If flag = 0 then + 'Display OP Value + oShape.objects("txt_OPValue").value = formatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + 'RedTag message + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + end if + End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPAUTOMAN_SM_ONUPDATE'''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus +' 02/19/08 Created from C200_GROUPAUTOMAN for StatusMessage addition +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPAUTOMAN_SM_ONUPDATE(oShape, flag) +'gsh_log_s("C200_GROUPAUTOMAN_SM oShape = " & oShape.id) +on error resume next + If flag = 0 then + GSH_GROUPAUTOMANSHOWNORMAL(oShape) + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_C200_AUTOMAN_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + If flag = 0 then + 'Display OP Value + oShape.objects("txt_OPValue").value = formatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + +' 'RedTag and Status Message + dim val_redTag, val_stsMsg, tagName, stsMsgType, numOfMessage + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG)) +' + if strcomp(val_redTag,GSH_ON,vbtextcompare) = 0 then + oShape.objects("txt_statusmessage") = GSH_REDTAG_TEXT + oShape.objects("txt_statusmessage").style.visibility = GSH_VISIBLE + else if (val_stsMsg > 0) then + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + numOfMessage = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & "NoOfMessages", "0") + if val_stsMsg >0 and val_stsMsg <=numOfMessage then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &val_stsMsg, "") + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) + end if + end if + end if + End If +'gsh_log_e("GSH_C200_GROUPAUTOMAN_SM") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPDIGITALINPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape - Shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/06/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/13/07 Replace GSH_GETHIGHESTALARMPRIORITYPARAMETER by GSH_GETHIGHESTALARMPRIORITYPROPERTY +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPDIGITALINPUT_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_GROUPDIGITALINPUT_ONUPDATE oShape = " & oShape.id) +on error resume next + + If flag = 0 then + GSH_GROUPDIGITALINPUTSHOWNORMAL(oShape) + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_GROUPDIGITALINPUTSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")), oShape) + End If + + oShape.objects("txt_DigitalValue").value = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + + End If + + If flag <= 1 then + 'Set the focus + 'call GSH_GROUPDIGITALINPUTSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + If GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, oShape.objects("txt_DigitalValue").value) then + call GSH_GROUPDIGITALINPUTSHOWOFFNORMAL(oShape) + end if + end if + + End If + +'gsh_log_e("GSH_C200_GROUPDIGITALINPUT_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPORSEL_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'06/05/07 Added flag parameter to execute only focus status update or all +'06/05/07 Added Redtag and Windup +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPORSEL_ONUPDATE(oShape, flag) +on error resume next +if flag = 0 then + GSH_GROUPORSELSHOWNORMAL(oShape) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_GROUPORSELSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_WINDUP),oShape) + End If +End If +If flag <= 1 then + call GSH_GROUPORSELSETFOCUS(oShape) 'Set the focus + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then 'Check for Off Normal if not in focus + if GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_GROUPORSELSHOWOFFNORMAL(oShape) + end if + end if +End If + +If flag = 0 then + 'Display OP Value + oShape.objects("txt_OPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP)) + 'Display Mode Data + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + + + 'oShape.objects("txt_OPValue").value = GSH_FormatPVText(oShape,alp_OPValue.value) + 'oShape.objects("txt_ModeValue").value = cmb_ModeValue.value + + 'Set Outline fill color White + oShape.objects("outline").styleClass = GSH_CSSWHITE + + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + 'Status message + dim val_redTag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if strcomp(val_redTag,GSH_ON,vbtextcompare) = 0 then + oShape.objects("txt_statusmessage") = GSH_REDTAG_TEXT + oShape.objects("txt_statusmessage").style.visibility = GSH_VISIBLE + end if + +End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_MOTORINDICATORWITHALARMS_ONUPDATE'''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/13/07 use GSH_GEN_SETSHAPEFOCUS to display focus +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_C200_MOTORINDICATORWITHALARMS_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_C200_MOTORINDICATORWITHALARMS_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + 'Alarming: Don't check alarm disabled for this alarm group (OK'd by Jamie) + dim sAlarmPriority, bUnack + sAlarmPriority = GSH_GETALARMGROUPPRIORITYPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITYALARM) + bUnack = GSH_GETALARMGROUPUNACKPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITYALARM) +' gsh_log ("sAlarmPriority = " & sAlarmPriority & "bUnack = " & bUnack ) + call GSH_SHOWALARMS (sAlarmPriority, bUnack, oShape) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + dim sPVStateTxt + sPVStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV,oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +'gsh_log_e("GSH_C200_MOTORINDICATORWITHALARMS_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_MOTORINDICATORWITHALARMS_LM_ONUPDATE'''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 08/14/2007 - Create the function to handle MotorWithAlarms_lm shapes with Localman and Interlock indicators +' Reference issue #524 (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_C200_MOTORINDICATORWITHALARMS_LM_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_C200_MOTORINDICATORWITHALARMS_LM_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + 'Alarming: Don't check alarm disabled for this alarm group (OK'd by Jamie) + dim sAlarmPriority, bUnack + sAlarmPriority = GSH_GETALARMGROUPPRIORITYPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITYALARM) + bUnack = GSH_GETALARMGROUPUNACKPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITYALARM) + 'gsh_log ("sAlarmPriority = " & sAlarmPriority & "bUnack = " & bUnack ) + call GSH_SHOWALARMS (sAlarmPriority, bUnack, oShape) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + dim sPVStateTxt + sPVStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV,oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + 'This piece of code need to be testd on site + If flag = 0 then + 'Check for Localman and Interlock status + dim bLocalMan, bInterlock + bInterlock = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_INTERLOCK) + + if(bInterlock) then + oShape.objects("txt_Localman").value = GSH_INTERLOCK_TXT + oShape.objects("txt_Localman").style.visibility = GSH_VISIBLE + else + bLocalMan = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_LOCALMAN) + if(bLocalMan) then + oShape.objects("txt_Localman").value = GSH_LOCALMAN_TXT + oShape.objects("txt_Localman").style.visibility = GSH_VISIBLE + else + oShape.objects("txt_Localman").style.visibility = GSH_HIDDEN + end if + end if + end if + +'gsh_log_e("GSH_C200_MOTORINDICATORWITHALARMS_LM_ONUPDATE") +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MULTIPLESENSORS_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/12/07 Added else statement to alarm display to show alarms if alarms are not disabled +' 06/14/07 replaced GSH_GETHIGHESTALARMPRIORITYPARAMETER with GSH_GETHIGHESTALARMPRIORITYPROPERTY +' 06/20/07 Replace GSH_GETHIGHESTALARMPRIORITYPROPERTY by GSH_GETHIGHESTALARMPRIORITYWITHALARMPARAMETERS to have the C200_SensorMulitple works +' as they need to work with both Tag.DACA.PV and Tag.A1.PV. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_MULTIPLESENSORS_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_MULTIPLESENSORS_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + If flag = 0 then + call GSH_MULTIPLESENSORSSHOWNORMAL(oShape) + 'Alarming + if (GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) or GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITYALARM)) Then + call GSH_MULTIPLESENSORSSHOWSUPPRESSEDALARM(oShape) + else + 'Get Highest Alarm +' iAlarmCode1 = GSH_GETHIGHESTALARMPRIORITYWITHALARMPARAMETERS(oShape.objects("rec_DataScript"),GSH_CPENTITY) +' iAlarmCode2 = GSH_GETHIGHESTALARMPRIORITYWITHALARMPARAMETERS(oShape.objects("rec_DataScript"),GSH_CPENTITYALARM) + iAlarmCode1 = GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITYALARM,GSH_EXPERION_PARAM_ALARMPRIORITY) + iAlarmCode2 = GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY) + + iAlarmCode = GSH_COMPAREHIGHESTALARMPRIORITY(iAlarmCode1, iAlarmCode2) + Select Case iAlarmCode + Case GSH_UNACKEMERG + call GSH_MULTIPLESENSORSSHOWEMERGENCYALARM(oShape,true) + Case GSH_UNACKHIGH + call GSH_MULTIPLESENSORSSHOWHIGHALARM(oShape,true) + Case GSH_UNACKLOW + call GSH_MULTIPLESENSORSSHOWLOWALARM(oShape,true) + Case GSH_ACKEMERG + call GSH_MULTIPLESENSORSSHOWEMERGENCYALARM(oShape,false) + Case GSH_ACKHIGH + call GSH_MULTIPLESENSORSSHOWHIGHALARM(oShape,false) + Case GSH_ACKLOW + call GSH_MULTIPLESENSORSSHOWLOWALARM(oShape,false) + Case Else + 'No Alarms + End Select + end if + End If + + If flag <= 1 then + + 'Set the focus + call GSH_MULTIPLESENSORSSETFOCUS(oShape) + 'No Offnormal check as this shape could be a digital flag or analog point. + 'gsh_log_e("GSH_C200_MULTIPLESENSORS_ONUPDATE") + End If +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_NUMERICINDICATOR_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/12/07 GSH_GEN_SETSHAPEFOCUS replaced GSH_NUMERICINDICATORSETFOCUS +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_NUMERICINDICATOR_ONUPDATE (oShape, flag) +on error resume next + If flag = 0 then + oShape.objects("outline").styleClass = GSH_CSSNUMERICINDICATORNORMAL + End If + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'GSH_NUMERICINDICATORSETFOCUS(oShape) + End If + If flag = 0 then + 'Bad Data Check removed by Request of Rich M May3,2007. + oShape.objects("txt_PVvalue").value = GSH_FormatPVText(oShape,oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV)) + End If +End sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_RATIOTRACKINDICATOR_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 08/July/2008 New Shape - JE +' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_RATIOTRACKINDICATOR_ONUPDATE (oShape, flag) +on error resume next + If flag = 0 then + oShape.objects("outline").styleClass = GSH_CSSNUMERICINDICATORNORMAL + End If + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'GSH_NUMERICINDICATORSETFOCUS(oShape) + End If + If flag = 0 then +' do own PVFormatting as using RTFormat not PVFormat + txtIn = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV) + If StrComp(txtIn,"1.#QNAN",vbTextcompare)= 0 then + oShape.objects("txt_PVvalue").value = "---" + else + numOfDecimals = CInt(Right(GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), "RTFORMAT", GSH_DEFAULTPVFORMAT),1)) + tempReturn = FormatNumber(txtIn, numOfDecimals,-2, 0, 0) + oShape.objects("txt_PVvalue").value = tempReturn + end if + End If +End sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'LevelIndicatorSmall Shape Section +' Contains all functions specific to the Level Indicator Small shape +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Added flag parameter to execute only focus status update or all +' 08/05/08 Remove flag checking because we have to do everything in all the cases(CL), otherwise badPV does not show correctly +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_LevelIndicatorSmall_OnUpdate(oShape, flag) +'gsh_log_s("GSH_C200_LevelIndicatorSmall_OnUpdate, oshape=" & oShape.id & "w flag = "&flag) +On Error Resume Next + + call GSH_LevelIndicatorShowNormal(oShape) + 'Check Alarms + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_LevelIndicatorShowDisbledAlarm(oShape) + else + call GSH_SHOWLEVELSMALLALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If +'End If +'If flag <=1 then + call GSH_LEVELINDICATORSETFOCUS(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + IF GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorSHOWOFFNORMAL(oShape) + end if + end if + + + + 'Check for Bad PV + If GSH_C200_ANALOG_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If + +'gsh_log_e("GSH_C200_LevelIndicatorSmall_OnUpdate") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_LevelIndicatorRegCtlSmall_OnUpdate'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/04/07 Remove Initman because already using ARWOP HILO. +' 06/04/07 Replace Windup select statement with GSH_SHOWWINDUPSTATUS +' 06/05/07 Added flag parameter to execute only focus status update or all +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_LevelIndicatorRegCtlSmall_OnUpdate(oShape, flag) +'gsh_log_s("GSH_C200_LevelIndicatorRegCtlSmall_OnUpdate oShape="&oShape.id& ", flag = "&flag) +On Error Resume Next +If flag <= 1 then + GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + else + + 'alarming is enabled, get highest priority and change shape accordingly + Select Case GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY) + Case GSH_NOALARMCODE + call GSH_LevelIndicatorRegulatoryControlShowNoAlarm(oShape) + Case GSH_UNACKEMERG + call GSH_LevelIndicatorRegCtlSmallShowEmergencyAlarm(oShape,True) + Case GSH_UNACKHIGH + call GSH_LevelIndicatorRegCtlSmallShowHighAlarm(oShape,true) + Case GSH_UNACKLOW + call GSH_LevelIndicatorRegCtlSmallShowLowAlarm(oShape,true) + Case GSH_ACKEMERG + call GSH_LevelIndicatorRegCtlSmallShowEmergencyAlarm(oShape,false) + Case GSH_ACKHIGH + call GSH_LevelIndicatorRegCtlSmallShowHighAlarm(oShape,false) + Case GSH_ACKLOW + call GSH_LevelIndicatorRegCtlSmallShowLowAlarm(oShape,false) + Case Else + call GSH_LevelIndicatorRegulatoryControlShowNoAlarm(oShape) + End Select + End If +'End If +'If flag <= 1 then + call GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) 'Check Focus + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) + end if + end if + + 'Check for bad value + IF GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) THEN + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + call GSH_LevelIndicatorShowSPFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), GSH_LEVELINDICATORDECIMALS) + End If + +End If + +If flag = 0 then + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) +End If +'gsh_log_e("GSH_C200_LevelIndicatorRegCtlSmall_OnUpdate") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_MOTORINDICATORSMALL_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/13/07 use GSH_GEN_SETSHAPEFOCUS to display focus +' 06/13/07 Replace GSH_GETHIGHESTALARMPRIORITYPARAMETER by GSH_GETHIGHESTALARMPRIORITYPROPERTY +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_C200_MOTORINDICATORSMALL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_MOTORINDICATORSMALL_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next + + If flag = 0 then + call GSH_MINIMOTORINDICATORSHOWNORMAL(oShape) + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSSMINIMOTORINDICATORDISABLEDALARM + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")), oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + dim sPVStateTxt + sPVStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +'gsh_log_e("GSH_C200_MOTORINDICATORSMALL_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_MOTORINDICATORSMALL_LM_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 08/14/2007 - Create the function to handle MotoIndicatorSmall_lm shapes with Localman and Interlock indicators +' Reference issue #524 (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_C200_MOTORINDICATORSMALL_LM_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_MOTORINDICATORSMALL_LM_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next + + If flag = 0 then + call GSH_MINIMOTORINDICATORSHOWNORMAL(oShape) + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSSMINIMOTORINDICATORDISABLEDALARM + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")), oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + dim sPVStateTxt + sPVStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + 'This piece of code need to be testd on site + If flag = 0 then + 'Check for Localman and Interlock status + dim bLocalMan, bInterlock + bInterlock = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_INTERLOCK) + + if(bInterlock) then + oShape.objects("txt_Localman").value = GSH_INTERLOCK_TXT + oShape.objects("txt_Localman").style.visibility = GSH_VISIBLE + else + bLocalMan = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_LOCALMAN) + if(bLocalMan) then + oShape.objects("txt_Localman").value = GSH_LOCALMAN_TXT + oShape.objects("txt_Localman").style.visibility = GSH_VISIBLE + else + oShape.objects("txt_Localman").style.visibility = GSH_HIDDEN + end if + end if + end if +'gsh_log_e("GSH_C200_MOTORINDICATORSMALL_LM_ONUPDATE") +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_SENSOR_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/13/07 Replace GSH_GETHIGHESTALARMPRIORITY(oShape.objects("rec_DataScript")) by GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")) +' 06/20/07 Replace GSH_GETHIGHESTALARMPRIORITYPROPERTY by GSH_GETHIGHESTALARMPRIORITYWITHALARMPARAMETERS to have the C200_Sensor work +' as they need to work with both Tag.DACA.PV and Tag.A1.PV. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_SENSOR_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_SENSOR_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + If flag = 0 then + call GSH_SENSORSHOWNORMAL(oShape) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_SENSORSHOWSUPPRESSEDALARM(oShape) + else + 'alarming is enabled, get highest priority and change shape accordingly +' Select Case GSH_GETHIGHESTALARMPRIORITYWITHALARMPARAMETERS(oShape.objects("rec_DataScript"),GSH_CPENTITY) + Select Case GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY) + Case GSH_UNACKEMERG + call GSH_SENSORSHOWEMERGENCYALARM(oShape,true) + Case GSH_UNACKHIGH + call GSH_SENSORSHOWHIGHALARM(oShape,true) + Case GSH_UNACKLOW + call GSH_SENSORSHOWLOWALARM(oShape,true) + Case GSH_ACKEMERG + call GSH_SENSORSHOWEMERGENCYALARM(oShape,false) + Case GSH_ACKHIGH + call GSH_SENSORSHOWHIGHALARM(oShape,false) + Case GSH_ACKLOW + call GSH_SENSORSHOWLOWALARM(oShape,false) + Case Else + End Select + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_SETSHAPEFOCUS(oShape) + 'No Offnormal check as this shape could be a digital flag or analog point. + 'gsh_log_e("GSH_C200_SENSOR_ONUPDATE") + End If +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_SELECTOROUTPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/14/07 GSH_SELECTOROUTPUTSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS +' 06/14/07 Added alarm checking for GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_SELECTOROUTPUT_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_SELECTOROUTPUT_ONUPDATE oShape=" & oShape.id) + +On Error Resume Next + + If flag = 0 then + call GSH_SELECTOROUTPUTSHOWNORMAL(oShape) + call GSH_SELECTOROUTPUTSHOWSELECTOR(oShape, GSH_CPPARAM_SELINPUT) + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_SELECTOROUTPUT_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + +'gsh_log_e("GSH_C200_SELECTOROUTPUT_ONUPDATE") + +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SELECTOROUTPUTSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' 06/14/07 initialized the state of alarms +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SELECTOROUTPUTSHOWNORMAL(oShape) +'gsh_log_s("GSH_SELECTOROUTPUTSHOWNORMAL oShape=" & oShape.id) +on error resume next + call GSH_SHOWNOALARM(oShape) + oShape.objects("linLeft").style.visibility = GSH_HIDDEN + oShape.objects("linRight").style.visibility = GSH_HIDDEN + oShape.objects("linTop").style.visibility = GSH_HIDDEN + oShape.objects("focus").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_SELECTOROUTPUTSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SELECTOROUTPUTSHOWSELECTOR'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape +' paramSelector = custom parameter +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SELECTOROUTPUTSHOWSELECTOR(oShape, paramSelector) +'gsh_log_s("GSH_SELECTOROUTPUTSHOWSELECTOR oShape=" & oShape.id & ", paramSelector=" & paramSelector) +on error resume next + dim xinput, selOrientation + xinput = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),paramSelector) + ' Determine selector orientation (LEFT, RIGHT, CENTER) + selOrientation = GSH_NONE + select case xinput + case GSH_SELX1 + ' Retrive custom parameter X1 + selOrientation = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPX1, GSH_CPVALUE) + case GSH_SELX2 + ' Retrive custom parameter X2 + selOrientation = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPX2, GSH_CPVALUE) + case GSH_SELX3 + ' Retrive custom parameter X3 + selOrientation = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPX3, GSH_CPVALUE) + end select + 'Set Orientation + call GSH_SELECTOROUTPUTSETORIENTATION(oShape, selOrientation) +'gsh_log_e("GSH_SELECTOROUTPUTSHOWSELECTOR") + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SELECTOROUTPUTSETORIENTATION'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape +' selOrientation = orientation (LEFT, RIGHT, CENTER) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SELECTOROUTPUTSETORIENTATION(oShape, selOrientation) +'gsh_log_s("GSH_SELECTOROUTPUTSETORIENTATION oShape=" & oShape.id & ", selOrientation=" & selOrientation) +on error resume next + + if (strcomp(selOrientation,GSH_LEFT,vbtextcompare)=0) then + oShape.objects("linLeft").style.visibility = GSH_VISIBLE + ElseIf (strcomp(selOrientation,GSH_RIGHT,vbtextcompare)=0 ) then + oShape.objects("linRight").style.visibility = GSH_VISIBLE + ElseIf (strcomp(selOrientation,GSH_CENTER,vbtextcompare)=0 ) then + oShape.objects("linTop").style.visibility = GSH_VISIBLE + else + 'Do Nothing + end if +'gsh_log_e("GSH_SELECTOROUTPUTSETORIENTATION") + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SELECTOROUTPUTSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS 06/14/07 + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPSELECTORINPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape +' 06/14/07 GSH_GROUPSELECTORINPUTSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPSELECTORINPUT_ONUPDATE(oShape, flag) +on error resume next + If flag = 0 then + call GSH_GROUPSELECTORINPUTSHOWNORMAL(oShape) + End If + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) + End If + If flag = 0 then + 'Get SELOUT value + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SELOUT)) + End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPSELECTORINPUTSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPSELECTORINPUTSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPSELECTORINPUTSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagKeyword, sTagName + 'Show objects + oDataBoundObject.objects("outline").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPANALOGNORMAL + oDataBoundObject.objects("txt_AnalogValue").style.visibility = GSH_VISIBLE + 'Read Values from Registry + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + sTagname = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + oDataBoundObject.objects("txt_tagname").value = sTagname + oDataBoundObject.objects("txt_keyword").value = tagKeyword +'gsh_log_e("GSH_GROUPSELECTORINPUTSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPSELECTORINPUTSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS 06/14/07 + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPSELECTOROUTPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/14/07 GSH_GROUPSELECTOROUTPUTSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS +' 06/14/07 removed check for initman because it is redundant with the check for Windup = HILO +' 06/14/07 optimized select case code by replacing it with SHOWWINDUPSTATUS +' 06/14/07 use GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER for alarming +' 09/14/07 hide OP combobox when the shape is not in principle focus to solve problem +' that the combox or alp entry was open, +' but no entry made, then other tag is selected as focus tag. (CL) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPSELECTOROUTPUT_ONUPDATE(oShape, flag) +on error resume next + + + If flag = 0 then + GSH_GROUPSELECTOROUTPUTSHOWNORMAL(oShape) + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_GROUPSELECTOROUTPUTSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + End If + + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_C200_SELECTOROUTPUT_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + If flag = 0 then + 'Display OP Value (no check for bad data needed) + oShape.objects("txt_OPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP)) + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) + 'Status message + dim val_redTag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + end if + 'No Ramping needed + End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_GROUPSELECTOROUTPUT_SM_ONUPDATE''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 02/19/08 Created from C200_GROUPSELECTOROUTPUT for StatusMessage addition +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_GROUPSELECTOROUTPUT_SM_ONUPDATE(oShape, flag) +on error resume next + + If flag = 0 then + GSH_GROUPSELECTOROUTPUTSHOWNORMAL(oShape) + 'Alarming + If GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + call GSH_GROUPSELECTOROUTPUTSHOWSUPPRESSEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + End If + + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_C200_SELECTOROUTPUT_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + If flag = 0 then + 'Display OP Value (no check for bad data needed) + oShape.objects("txt_OPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP)) + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) + + 'RedTag and Status Message + dim val_redTag, val_stsMsg, tagName, stsMsgType + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + val_stsMsg = cInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG)) + + if (val_redTag = GSH_ON) then + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + else if (val_stsMsg > 0) then + 'Get custom status messages from registry + tagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(tagName, GSH_REGKEY_STSMSGLIST, "") + if val_stsMsg >0 and stsMsgType <> "" then + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &val_stsMsg, "") + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,message) + end if + end if + end if + End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPSELECTOROUTPUTSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPSELECTOROUTPUTSHOWNORMAL(oDataBoundObject) +'gsh_log_s("GSH_GROUPSELECTOROUTPUTSHOWNORMAL oDataBoundObject=" & oDataBoundObject.id) +on error resume next +Dim shapePoint, tagKeyword, tagName + shapePoint = GSH_GETSHAPETAG(oDataBoundObject) + tagName = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_TAGNAME_ALIAS, shapePoint) + tagKeyword = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_KEYWORD, defaultString) + 'Assign values to textboxes + oDataBoundObject.objects("txt_tagname").value = tagName + oDataBoundObject.objects("txt_keyword").value = tagKeyword + call GSH_SHOWNOALARM(oDataBoundObject) + 'Show values + oDataBoundObject.objects("outline").style.visibility = GSH_VISIBLE + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPORSELNORMAL + oDataBoundObject.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_Initialization").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_status").style.visibility = GSH_HIDDEN + oDataBoundObject.objects("txt_statusmessage").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_GROUPSELECTOROUTPUTSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GROUPSELECTOROUTPUTSHOWSUPPRESSEDALARM''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GROUPSELECTOROUTPUTSHOWSUPPRESSEDALARM(oDataBoundObject) +'gsh_log_s("GSH_GROUPSELECTOROUTPUTSHOWSUPPRESSEDALARM oDataBoundObject=" & oDataBoundObject.id) +on error resume next + oDataBoundObject.objects("outline").styleClass = GSH_CSSGROUPORSELDISABLEDALARM +'gsh_log_e("GSH_GROUPSELECTOROUTPUTSHOWSUPPRESSEDALARM") +end sub + +'GSH_GROUPSELECTOROUTPUTSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS 06/14/07 +'GSH_GROUPSELECTOROUTPUTSHOW_RAMP removed function May 11'''''''''''''' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_SELECTORINPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/14/07 GSH_GSH_SELECTORINPUTSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_SELECTORINPUT_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_SELECTORINPUT_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + If flag = 0 then + call GSH_SELECTORINPUTSHOWNORMAL(oShape) + call GSH_SELECTORINPUTSHOWSELECTOR(oShape, GSH_CPPARAM_SELINPUT) + End If + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) + End If +'gsh_log_e("GSH_C200_SELECTORINPUT_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SELECTORINPUTSHOWNORMAL'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' 06/14/07 initialized the state of "outline" +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SELECTORINPUTSHOWNORMAL(oShape) +'gsh_log_s("GSH_SELECTORINPUTSHOWNORMAL oShape=" & oShape.id) +on error resume next + oShape.objects("outline").styleClass = GSH_CSSALARMNONE + oShape.objects("linLeft").style.visibility = GSH_HIDDEN + oShape.objects("linRight").style.visibility = GSH_HIDDEN + oShape.objects("linTop").style.visibility = GSH_HIDDEN + oShape.objects("focus").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_SELECTORINPUTSHOWNORMAL") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SELECTORINPUTSHOWSELECTOR'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape +' paramSelector = custom parameter +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SELECTORINPUTSHOWSELECTOR(oShape, paramSelector) +'gsh_log_s("GSH_SELECTORINPUTSHOWSELECTOR oShape=" & oShape.id & ", paramSelector=" & paramSelector) +on error resume next + dim ininput, selOrientation + ininput = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),paramSelector) + ' Determine selector orientation (LEFT, RIGHT, CENTER) + selOrientation = GSH_LEFT + if strcomp(ininput,GSH_SELIN1, vbTextCompare) = 0 then + selOrientation = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPIN1, GSH_CPVALUE) + else if strcomp(ininput,GSH_SELIN2, vbTextCompare) = 0 then + ' Retrive custom parameter IN2 + selOrientation = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPIN2, GSH_CPVALUE) + end if: end if + 'Set Orientation + call GSH_SELECTORINPUTSETORIENTATION(oShape, selOrientation) +'gsh_log_e("GSH_SELECTORINPUTSHOWSELECTOR") + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SELECTORINPUTSETORIENTATION'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape +' selOrientation = orientation (LEFT, RIGHT, CENTER) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SELECTORINPUTSETORIENTATION(oShape, selOrientation) +'gsh_log_s("GSH_SELECTORINPUTSETORIENTATION oShape=" & oShape.id & ", selOrientation=" & selOrientation) +on error resume next + + if (strcomp(selOrientation,GSH_LEFT,vbtextcompare)=0) then + oShape.objects("linLeft").style.visibility = GSH_VISIBLE + ElseIf (strcomp(selOrientation,GSH_RIGHT,vbtextcompare)=0 ) then + oShape.objects("linRight").style.visibility = GSH_VISIBLE + ElseIf (strcomp(selOrientation,GSH_CENTER,vbtextcompare)=0 ) then + oShape.objects("linTop").style.visibility = GSH_VISIBLE + else + 'Do Nothing + end if +'gsh_log_e("GSH_SELECTORINPUTSETORIENTATION") + +end sub + +'GSH_SELECTORINPUTSETFOCUS replaced by GSH_GEN_SETSHAPEFOCUS 06/14/07 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_VALVEANALOG3WAY_SCADA_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_VALVEANALOG3WAY_SCADA_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_VALVEANALOG3WAY_SCADA_ONUPDATE oShape=" & oShape.id) + + If flag <= 1 then + call GSH_VALVEANALOG3WAYSHOWNORMAL(oShape) + + Dim OPValue,stsmsg, val_redTag, initMan + OPValue = oShape.objects("ind_OPStem").value + If (OPValue <= 5) then + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else if ( (OPValue > 5) and (OPValue < 95) ) then + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if: end if + + call GSH_VALVEANALOG3WAYSHOWPORT(oShape) + + 'Check the points alarming + if GSH_SCADA_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_VALVEANALOG3WAYSHOWDISABLEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITY_OP(oShape.objects("rec_DataScript")),oShape) + End If + +' End If + +' If flag <= 1 then + 'Focus + call GSH_VALVEANALOG3WAYSETFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_PV)) then + call GSH_VALVEANALOG3WAYSHOWOFFNORMAL(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + + 'Make the focus transparent for valves + 'oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground --> outline is always transparent + End If + 'gsh_log_e("GSH_VALVEANALOG3WAY_SCADA_ONUPDATE") +end sub + + +' +' 10/12/2007 - Modified so that ValveAnalog3Way can show input flow that come from +' left (default) or right hand side. (CL) +' +sub GSH_VALVEANALOG3WAYSHOWPORT(oShape) +'gsh_log_s("GSH_VALVEANALOG3WAYSHOWPORT oShape=" & oShape.id) +on error resume next + Dim OPValue, divertMinValue, divertMaxValue, throughMinValue, throughMaxValue, inputDirection + Dim styleLeftPort, styleRightPort, styleDivertPort + + OPValue = CSng(oShape.objects("ind_OPStem").value) + 'gsh_log("OPValue=" & OPValue) + divertMinValue = CSng(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPDIVERTMIN, GSH_CPVALUE)) + divertMaxValue = CSng(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPDIVERTMAX, GSH_CPVALUE)) + throughMinValue = CSng(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPTHROUGHMIN, GSH_CPVALUE)) + throughMaxValue = CSng(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPTHROUGHMAX, GSH_CPVALUE)) + + 'gsh_log("divertMinValue=" & divertMinValue & ", divertMaxValue=" & divertMaxValue & ", throughMinValue=" & throughMinValue & ", throughMaxValue=" & throughMaxValue) + styleLeftPort = GSH_CSSVALVEREGULATORYCONTROLNORMAL + styleRightPort = GSH_CSSVALVEREGULATORYCONTROLNORMAL + styleDivertPort = GSH_CSSVALVEREGULATORYCONTROLNORMAL + + + if ((OPValue >= divertMinValue) or (OPValue >= throughMinValue)) then + styleLeftPort = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if + if (OPValue >= divertMinValue) and (OPValue <= divertMaxValue) then + styleDivertPort = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if + if ((OPValue >= throughMinValue) and (OPValue <= throughMaxValue)) then + styleRightPort = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if + + inputDirection = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPINPUTDIRECTION, GSH_CPVALUE) + + 'Input flow direction from the right hand side. + dim temp + If strComp(inputDirection,"right",vbTextCompare) = 0 Then + temp = styleLeftPort + styleLeftPort = styleRightPort + styleRightPort = temp + End If + + + 'Set style + oShape.objects("plg_LeftPort").styleClass = styleLeftPort + oShape.objects("plg_RightPort").styleClass = styleRightPort + oShape.objects("plg_DivertPort").styleClass = styleDivertPort + + 'gsh_log("Left Port styleClass=" & oShape.objects("plg_LeftPort").styleClass) + 'gsh_log("Right Port styleClass=" & oShape.objects("plg_RightPort").styleClass) + 'gsh_log("Divert Port styleClass=" & oShape.objects("plg_DivertPort").styleClass) +'gsh_log_e("GSH_VALVEANALOG3WAYSHOWPORT") +end sub + +sub GSH_VALVEANALOG3WAYSETFOCUS(oShape) +'gsh_log_s("GSH_VALVEANALOG3WAYSETFOCUS oShape=" & oShape.id) +on error resume next + call GSH_SetShapeFocus(oShape) + + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + call GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,false) + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("rec_LineCover").styleClass = GSH_CSSFOCUSASSOCIATED_COLOUR + oShape.objects("txt_OPValue").style.visibility = GSH_VISIBLE 'changed AL + else + oShape.objects("rec_LineCover").styleClass = GSH_CSSBACKGROUND_GRAY + end if + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT '-> set alarm filled the outline -> set it back to transparent here +'gsh_log_e("GSH_VALVEANALOG3WAYSETFOCUS") +end sub + +sub GSH_VALVEANALOG3WAYSHOWNORMAL(oShape) +'gsh_log_s("GSH_VALVEANALOG3WAYSHOWNORMAL oShape=" & oShape.id) +on error resume next + oShape.objects("txt_OPValue").value = FormatNumber(oShape.objects("ind_OPStem").value,GSH_OUTPUTINDICATORDECIMALS) + oShape.objects("rec_LineCover").styleClass = GSH_CSSBACKGROUND_GRAY + oShape.objects("txt_OPValue").style.visibility = GSH_HIDDEN 'changed AL + oShape.objects("ind_OPBottom").style.visibility = GSH_VISIBLE + call GSH_ShowNoAlarm(oShape) + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN + oShape.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oShape.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oShape.objects("txt_initialization").style.visibility = GSH_HIDDEN +'gsh_log_e("GSH_VALVEANALOG3WAYSHOWNORMAL") +end sub + +sub GSH_VALVEANALOG3WAYSHOWOFFNORMAL(oShape) +'gsh_log_s("GSH_VALVEANALOG3WAYSHOWOFFNORMAL oShape=" & oShape.id) +on error resume next + oShape.objects("focus").style.visibility = GSH_VISIBLE + oShape.objects("focus").styleClass = GSH_CSSREGULATORYCONTROLVALVEOFFNORMAL + call GSH_ValveRegulatoryControlShowBottomFlowIndicator(oShape,true) +'gsh_log_e("GSH_VALVEANALOG3WAYSHOWOFFNORMAL") +end sub + +sub GSH_VALVEANALOG3WAYSHOWDISABLEDALARM(oShape) +'gsh_log_s("GSH_VALVEANALOG3WAYSHOWDISABLEDALARM oShape=" & oShape.id) +on error resume next + call GSH_ShowNoAlarm(oShape) + call GSH_VALVEANALOG3WAYSHOWBOTTOMFLOWINDICATOR(oShape,true) + oShape.objects("outline").styleClass = GSH_CSSREGULATORYCONTROLINDICATORDISABLEDALARM +'gsh_log_e("GSH_VALVEANALOG3WAYSHOWDISABLEDALARM") +end sub + +sub GSH_VALVEANALOG3WAYSHOWBOTTOMFLOWINDICATOR(oShape,ShowBottomFlowdicator) +'gsh_log_s("GSH_VALVEANALOG3WAYSHOWBOTTOMFLOWINDICATOR oShape="&oShape&" "& CSTR(ShowBottomFlowdicator)) +on error resume next + if (ShowBottomFlowdicator) then + oShape.objects("txt_OPValue").style.visibility = GSH_HIDDEN + else + oShape.objects("txt_OPValue").style.visibility = GSH_VISIBLE + end if +'gsh_log_e("GSH_VALVEANALOG3WAYSHOWBOTTOMFLOWINDICATOR") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_VALVEANALOG3WAY_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/07/07 Added flag parameter to execute only focus & offnormal status update or all +' 06/10/07 Removed initman check because it is redundant to Windup = HILO +' 08/08/07 Add: check & show status message flag on status message text. Reference issue #370 (Cuong Ly) +' 12/09/07 Removed status message CP for now until database is ready - JE +' Fix potential problem of sticky red +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_VALVEANALOG3WAY_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_VALVEANALOG3WAY_ONUPDATE oShape=" & oShape.id) + + If flag <= 1 then + call GSH_VALVEANALOG3WAYSHOWNORMAL(oShape) + + Dim OPValue,stsmsg, val_redTag, initMan + OPValue = oShape.objects("ind_OPStem").value + If (OPValue <= 5) then + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else if ( (OPValue > 5) and (OPValue < 95) ) then + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if: end if + + call GSH_VALVEANALOG3WAYSHOWPORT(oShape) + + 'Check the points alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + 'Alarm is Disabled + call GSH_VALVEANALOG3WAYSHOWDISABLEDALARM(oShape) + else + call GSH_SHOWPOINTALARMS(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + End If + + 'Assumption: Reg tag and status message are mutual exclusive + 'Status message + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + 'red tag + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) +' else + 'Check status Message +' dim val_stsMsg +' val_stsMsg = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG) +' call GSH_Show_StatusMessageFlag(oShape, val_stsMsg) + end if + + 'End If + + 'If flag <= 1 then + 'Focus + call GSH_VALVEANALOG3WAYSETFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then +' if (GSH_C200_ValveREGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL)) then + if (GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL)) then + call GSH_VALVEANALOG3WAYSHOWOFFNORMAL(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + End If + + If flag = 0 then + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) + End If + + 'Make the focus transparent for valves + 'oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + +'gsh_log_e("GSH_C200_VALVEANALOG3WAY_ONUPDATE") +end sub + +sub GSH_VALVEANALOG3WAYSHOWSTATUSMESSAGE(oShape,message) +'gsh_log_s("GSH_VALVEANALOG3WAYSHOWSTATUSMESSAGE oShape=" & oShape.id & ",message="&message) +on error resume next + oShape.objects("txt_statusmessage").style.visibility = GSH_VISIBLE + oShape.objects("txt_statusmessage").value = message +'gsh_log_e("GSH_VALVEANALOG3WAYSHOWSTATUSMESSAGE") +end sub + +sub GSH_VALVEANALOG3WAYSHOWINITIALIZATION(oShape) +'gsh_log_s("GSH_VALVEANALOG3WAYSHOWINITIALIZATION oShape=" & oShape.id) +on error resume next + oShape.objects("plg_OpHigh").style.visibility = GSH_HIDDEN + oShape.objects("plg_OpLow").style.visibility = GSH_HIDDEN + oShape.objects("txt_initialization").style.visibility = GSH_VISIBLE +'gsh_log_e("GSH_VALVEANALOG3WAYSHOWINITIALIZATION") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALINDICATORSHORT_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital value does not change often) only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_DIGITALINDICATORSHORT_ONUPDATE (oShape, flag) +on error resume next + +If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY),oShape) + End If + +End If + +If flag <=1 then + 'Set the focus + 'call GSH_DIGITALINDICATORSETFOCUS(oShape) + call GSH_GEN_SETSHAPEFOCUS(oShape) + + + 'Check for Off Normal if not in focus + dim sPVStateTxt + sPVStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + +End If + +If flag = 0 then + 'Bad Data Check + If GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + oShape.objects("txt_PVvalue").value = "---" + Else + oShape.objects("txt_PVvalue").value = oShape.GetCustomProperty(GSH_CPVALUE,GSH_CPLABEL) + End If +End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITALINDICATORSHORT_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/06/07 Added flag parameter to execute only focus & offnormal status update or all +' 13/06/07 Use GSH_GETHIGHESTALARMPRIORITYPROPERTY of GSH_GETHIGHESTALARMPRIORITYPARAMETER +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_DIGITALINDICATORSHORT_ONUPDATE (oShape, flag) +on error resume next + + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + else + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")), oShape) + End If + End If + + If flag <= 1 then + 'Set the focus + 'call GSH_DIGITALINDICATORSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + dim sPVStateTxt + sPVStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sPVStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + End If +'Bad Data Check not needed +'Shape's Label is automatically assign to the Shape Custom property "Label" +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_FLAGINDICATOR_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_FLAGINDICATOR_ONUPDATE (oShape, flag) +on error resume next + + call GSH_GEN_SETSHAPEFOCUS(oShape) + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + dim sPVStateTxt + sPVStateTxt = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV) + oShape.objects("txt_PVvalue").value = sPVStateTxt +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_UpdateAlarmStatus +'Check alarm status and updates the text value for ConTxtAlmEnabled object +'Parameter: sAlarmStatusParamName = GSH_SCADA_PARAM_ALARMDISABLED or C200 param constant +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_UpdateAlarmStatus (sAlarmStatusParamName) +'gsh_log_s "GSH_FP_UpdateAlarmStatus sAlarmStatusParamName ="& sAlarmStatusParamName +dim sAlarmStatus + sAlarmStatus = "---" + if (ConTxtAlmEnabled.DataValue(GSH_SDR_CURRENTPOINT & "." & sAlarmStatusParamName)<> 0) then + 'if strcomp(ConTxtAlmEnabled.DataValue(GSH_SDR_CURRENTPOINT & "." & sAlarmStatusParamName),"DISABLED",vbTextCompare) = 0 then + sAlarmStatus = "Disabled" + Rec_AlmEnabledOffNorm.style.visibility = GSH_VISIBLE + else + sAlarmStatus = "Enabled" + Rec_AlmEnabledOffNorm.style.visibility = GSH_HIDDEN + end if + ConTxtAlmEnabled.value = sAlarmStatus +'gsh_log_e "GSH_FP_UpdateAlarmStatus" +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_SCADA_ShowAlarmLimits +'function: Sets the style and position of the 4 alarm limits on the PV Bar graph +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_SCADA_ShowAlarmLimits +dim alarmtype, alarmlim, alarmPri 'to do: handle null return from the limit and priority values +alarmtype = 0: alarmlim = 0: alarmPri = 0 + for i = 1 to 4 + alarmtype = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".ALARMTYPE" & i) + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".ALARM" & i & "PRIORITY") + page.all("txt_alarmtype"&i).value = GSH_FP_SCADA_GETALARMTYPELABEL(alarmtype) + if (alarmtype <> 0 and alarmPri <> 0) then + alarmlim = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".ALARMLIMIT" & i) + page.all("txt_alarmlim"&i).value = GSH_FormatPVTextTag(ConAlpTagname.value,alarmlim) + call GSH_FP_SCADA_ShowAlarmRec(page.all("RecAlarm"&i), alarmlim, alarmPri) + page.all("txt_alarmlim"&i).style.visibility = GSH_VISIBLE + page.all("txt_alarmtype"&i).style.visibility = GSH_VISIBLE + page.all("RecAlarm"&i).style.visibility = GSH_VISIBLE + end if + next +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_SCADA_GETALARMTYPELABEL +'function: Returns the text for the Alarm Limit label +'parameters: nAlarmType = numeric value for the Alarm Type +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_FP_SCADA_GETALARMTYPELABEL(nAlarmType) +'gsh_log_s("GSH_FP_SCADA_GETALARMTYPELABEL nAlarmType=" & nAlarmType) +Dim sLabel: sLabel = "" + select case nAlarmType + case GSH_FP_PVHH + sLabel = GSH_FP_PVHH_LABEL + case GSH_FP_PVH + sLabel = GSH_FP_PVH_LABEL + case GSH_FP_PVL + sLabel = GSH_FP_PVL_LABEL + case GSH_FP_PVLL + sLabel = GSH_FP_PVLL_LABEL + end select + GSH_FP_SCADA_GETALARMTYPELABEL = sLabel +'gsh_log_e("GSH_FP_SCADA_GETALARMTYPELABEL returns >>>>>>>>"&sLabel) +end function + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_SCADA_ShowAlarmRec +'function: Sets the style and position of one alarm limit on the PV Bar graph +'parameters: oRect = object ref to limit bar +' alarmlim = value of the limit, alarmPri = value of the alarm priority determines the style +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_SCADA_ShowAlarmRec(oRect, alarmlim, alarmPri) +'gsh_log_s("GSH_FP_ShowAlarmRec oRect=" & oRect.id & ", alarmlim=" & alarmlim & ", alarmPri=" & alarmPri) + dim iNumPixels, iBottom, iRange + 'Retrieve Type value & calculate rectangle position + iRange = cdbl(txt_euhi.value) - cdbl(txt_eulo.value) + if iRange = 0 then + oRect.style.visibility = GSH_HIDDEN + else + iNumPixels = (ConIndPV.style.pixelheight * ((cdbl(alarmlim) - cdbl(txt_eulo.value)) / iRange)) + iBottom = (ConIndPV.style.pixelheight + ConIndPV.style.pixeltop) + oRect.style.pixeltop = iBottom - iNumPixels - oRect.style.pixelheight + + 'Retrieve Priority value & set style sheet + select case alarmPri + case 1 + oRect.styleClass = "AlarmLowColor" + oRect.style.visibility = GSH_VISIBLE + case 2 + oRect.styleClass = "AlarmHighColor" + oRect.style.visibility = GSH_VISIBLE + case 3 + oRect.styleClass = "AlarmEmergColor" + oRect.style.visibility = GSH_VISIBLE + case else + oRect.style.visibility = GSH_HIDDEN + end select + end if +'gsh_log_e("GSH_FP_SCADA_ShowAlarmRec") +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_C200_ShowAlarmRec +'function: Sets the style and position of one alarm limit on the PV Bar graph +'parameters: oRect = object ref to limit bar +' alarmlim = value of the limit, alarmPri = value of the alarm priority determines the style +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_C200_ShowAlarmRec(oRect, alarmlim, alarmPri) +'gsh_log_s("GSH_FP_C200_ShowAlarmRec oRect=" & oRect.id & ", alarmlim=" & alarmlim & ", alarmPri=" & alarmPri) + dim iNumPixels, iBottom, iRange + 'Retrieve Type value & calculate rectangle position + iRange = cdbl(txt_euhi.value) - cdbl(txt_eulo.value) + if iRange = 0 then + oRect.style.visibility = GSH_HIDDEN + else + iNumPixels = (ConIndPV.style.pixelheight * ((cdbl(alarmlim) - cdbl(txt_eulo.value)) / iRange)) + iBottom = (ConIndPV.style.pixelheight + ConIndPV.style.pixeltop) + oRect.style.pixeltop = iBottom - iNumPixels - oRect.style.pixelheight +'Retrieve Priority value & set style sheet + select case alarmPri + case 2 + oRect.styleClass = "AlarmLowColor" + oRect.style.visibility = GSH_VISIBLE + case 3 + oRect.styleClass = "AlarmHighColor" + oRect.style.visibility = GSH_VISIBLE + case 4 + oRect.styleClass = "AlarmEmergColor" + oRect.style.visibility = GSH_VISIBLE + case else + oRect.style.visibility = GSH_HIDDEN + end select + end if +'gsh_log_e("GSH_FP_C200_ShowAlarmRec") +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TagNameEntryTimeout +'function: Hides timed out Tagname combobox object +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TagNameEntryTimeout + call GSH_HIDESUBSHAPE(cmb_tagnames) + call GSH_HIDESUBSHAPE(txt_newTagname) + btn_EnterTagName.disabled = false + window.clearInterval(GSH_FPTimerId) +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_clearTimerInterval +'function: Hides timed out entry object and clears the specified timer if ID is not 0. +'parameters: oTimedOutEntryObj = object ref to something like the SP entry box +' sTimerID = unique id of the time to be cleared or 0 if no time needs to be cleared +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_ClearTimerInterval(oTimedOutEntryObj, sTimerID) +'gsh_log_s("GSH_FP_ClearTimerInterval " & " oTimedOutEntryObj=" & oTimedOutEntryObj.id & " sTimerID=" & sTimerID) + call GSH_HIDESUBSHAPE(oTimedOutEntryObj) + call GSH_FP_TagNameEntryTimeout + if sTimerID <> 0 then + window.clearInterval(sTimerID) + end if +'gsh_log_e("GSH_FP_ClearTimerInterval ") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_DEMANDTRENDBTN_CLICK ''''''''''''''''''''''''''''''''''''''''''' +'06/01/07 Remove sPathPrefix because its not being used. +'06/01/07 Added sTagNameHDA from the TagInformation because the Historian names do not match the tagname +'06/01/07 parse out the function block for storing the itemAlias +'06/25/07 change asTraceParams to asTraceNames as asTraceParams does not exists causing registry not saved. +'08/21/2008 (CL) Add a check to determine if we should use shortname for HDA Item path in order to work with Sasol PHD historian interface (Issue#21) +'10/06/2008 (CL) Add writing value of tag euhigh and eulow to trend range high and trend range low to allow the trend use +' the range from registry when the range is not available from the historian +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_DEMANDTRENDBTN_CLICK(sTagName) + +'gsh_log_s("GSH_FP_DEMANDTRENDBTN_CLICK " & " sTagName=" & sTagName) +Dim DispStr(), asCommandStr(), asTrendParams() +Dim nRetVal, nNumTrendParams, nNumCommands, nCount +Dim nIndex, nAddIndex, nDeleteIndex, nCommandIndex, nCancelIndex +Dim nNumTrends, vTrendAvail, sParseStr, istrLen, iPosition +Dim asDeleteParams(9), asActive(8), asTraceNames(8), asAutoscale(8), arY_Max(8), arY_Min(8), asStepped(8), asPVFormat(8), asTrendParamShort(8), asEUHIGH(8), asEULOW(8) +Dim sTemp, nActiveCount, nSaveIndex, nCounter, sStepped, sPathPrefix, sPVFormat, asItemAliasName, sTagNameAlias, sPVeuhigh, sPVeulow + +on error resume next + sTagNameAlias = GSH_READTAGINFORMATIONKEYVALUE(sTagName, GSH_REGKEY_TAGNAME_ALIAS, sTagName) + nIndex = 0 + nNumTrends = 8 + nNumTrendParams = GSH_READTAGINFORMATIONKEYVALUE(sTagName, "NoOfTrendingParams", 0) + nNumCommands = GSH_GETMENUCONFIG(GSH_REGKEY_NUMCMDS, 0) + sPVFormat = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT) + sPathPrefix = GSH_GETDEMANDTREND (GSH_REGISTRY_SETTINGS,GSH_REGKEY_PATHPREFIX, "") + + '10/06/2008 CL + sPVeuhigh = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_EUHIGH, 0) + sPVeulow = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_EULOW, 0) + + If nNumTrendParams >0 Then + ReDim asTrendParams(nNumTrendParams-1) + End If + + If nNumCommands>0 Then + ReDim asCommandStr(nNumCommands-1) + End If + + nActiveCount = 0 + For nCount = 1 To nNumTrends Step 1 + asTraceNames(nCount) = GSH_GETDEMANDTREND (GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, "") + asActive(nCount) = GSH_GETDEMANDTREND (GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, "OFF") + asAutoscale(nCount) = GSH_GETDEMANDTREND (GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, "OFF") + asDeleteParams(nCount) = "" + If strComp(asActive(nCount),"ON",vbTextCompare) = 0 Then + nActiveCount = nActiveCount + 1 + asDeleteParams(nCount) = asTraceNames(nCount) + End If + Next + + If nActiveCount > 0 Then + nActiveCount = nActiveCount + 1 + End If + + If (nNumTrendParams > 0) Then + For nCount = 1 To nNumTrendParams Step 1 + asTrendParams(nCount-1) = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TRENDPARAM & nCount, "") + istrLen = len(asTrendParams(nCount-1)) + iPosition= Instr(1, asTrendParams(nCount-1) , ".",vbtextcompare) + asTrendParamShort(nCount-1) = right(asTrendParams(nCount-1), istrLen - iPosition) + asStepped(nCount) = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TRENDSTEPPED & nCount, "OFF") + Select Case asTrendParamShort(nCount-1) +' Select Case asTrendParams(nCount-1) + Case "PV" + asPVFormat(nCount) = sPVFormat + '10/06/2008 CL + asEUHIGH(nCount) = sPVeuhigh + asEULOW(nCount) = sPVeulow + Case "SP" + asPVFormat(nCount) = sPVFormat + '10/06/2008 CL + asEUHIGH(nCount) = sPVeuhigh + asEULOW(nCount) = sPVeulow + Case "OP" + asPVFormat(nCount) = "D1" + '10/06/2008 CL + asEUHIGH(nCount) = 106.9 + asEULOW(nCount) = -6.9 + End Select + Next + End If + + If (nNumCommands > 0) Then + For nCount = 1 To nNumCommands Step 1 + asCommandStr(nCount-1) = GSH_GETMENUCONFIG(GSH_REGKEY_CMDSTR & nCount, "") + Next + End If + + ReDim DispStr(nNumTrendParams + nNumCommands + 7 + nActiveCount) + + DispStr(nIndex) = "Tag : " & sTagNameAlias + nIndex = nIndex + 1 + DispStr(nIndex) = "" + nIndex = nIndex + 1 + + If (nNumTrendParams > 0) Then + nAddIndex = nIndex + For nCount = 0 To UBound(asTrendParams) Step 1 + DispStr(nIndex) = "Add Trace " & sTagNameAlias & "." & asTrendParams(nCount) + nIndex = nIndex + 1 + Next + + DispStr(nIndex) = "" + nIndex = nIndex + 1 + nDeleteIndex = nIndex + For nCount = 1 To nNumTrends + If asDeleteParams(nCount) <> "" Then + DispStr(nIndex) = "Delete Trace " & asDeleteParams(nCount) + nIndex = nIndex + 1 + End If + Next + + If nActiveCount > 0 Then + DispStr(nIndex) = "Delete ALL Demand Trend traces" + nIndex = nIndex + 1 + + DispStr(nIndex) = "" + nIndex = nIndex + 1 + End If + End If + + nSaveIndex = nIndex + + DispStr(nIndex) = "Save Demand Trend Setup" + nIndex = nIndex + 1 + + DispStr(nIndex) = "Restore Previous Demand Trend" + nIndex = nIndex + 1 + + DispStr(nIndex) = "" + nIndex = nIndex + 1 + + If (nNumCommands > 0) Then + nCommandIndex = nIndex + For nCount = 0 To UBound(asCommandStr) Step 1 + DispStr(nIndex) = asCommandStr(nCount) + nIndex = nIndex + 1 + Next + End If + + nCancelIndex = nIndex + 'Debugging + For nCount = 0 To nIndex Step 1 + 'gsh_log("GSH_DEMANDTRENDBTN nCount=" &nCount&"DispStr(nCount)"& DispStr(nCount)) + Next + + If nNumCommands = 0 Then + nCommandIndex = nCancelIndex + End If + +'CallAgain: + do while nRetVal = 0 + + Dim ArrMenu ' As ArrPopupMenuX + Set ArrMenu = CreateObject("ArrPopupMenuXControl.ArrPopupMenuX") + ArrMenu.ShowMenuArr DispStr + nRetVal = ArrMenu.Item + + If nActiveCount = 0 Then 'added this to handle case when all traces are inactive + nDeleteIndex = nAddIndex + 1 + End If + loop + + Set ArrMenu = Nothing + + If ((nRetVal >= nAddIndex) And (nRetVal < nDeleteIndex)) Then + Dim sOPC1_PathPrefix,sOPC2_PathPrefix, sTagNameHDA, bUseShortNameForHDA + sOPC1_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY1PREFIX,"") + sOPC2_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY2PREFIX,"") + bUseShortNameForHDA = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_USESHORTNAME_FOR_HDAPATH,"") + + For nCount = 1 To nNumTrends Step 1 + If asActive(nCount) = GSH_OFF Then + sTagNameHDA = GSH_READTAGINFORMATIONKEYVALUE(sTagName,GSH_REGKEY_TAGNAMEHDA, sTagName) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, sTagNameAlias & "." & asTrendParamShort(nRetVal - nAddIndex) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPCITEMPATH, sOPC1_PathPrefix & sPathPrefix & sTagName & "." & asTrendParams(nRetVal - nAddIndex) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPC2ITEMPATH, sOPC2_PathPrefix& sPathPrefix & sTagName & "." & asTrendParams(nRetVal - nAddIndex) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, GSH_ON + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TRENDSTEPPED, asStepped(nRetVal - nAddIndex + 1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_PVFORMATKEY, asPVFormat(nRetVal - nAddIndex + 1) + + 'Added 10/06/2008 (CL) add to allows trend to use range from registry if they are not available from historian + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_HIGH, asEUHIGH(nRetVal - nAddIndex + 1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_LOW, asEULOW(nRetVal - nAddIndex + 1) + + + 'Added 08/21/2008 (CL) to work with Sasol PHD historian interface + 'Issue#21: http://wss-edm-1/clients/hcs/services/ISE-HCS8227/ClientProjectAccess/Lists/Issue%20Tracker/DispForm.aspx?ID=21 + If(UCASE(bUseShortNameForHDA) = "ON") then + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTrendParamShort(nRetVal - nAddIndex) + + Else + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTrendParams(nRetVal - nAddIndex) + End If + + Exit Sub + End If + Next + Msgbox "Sorry ! No Traces available. Please delete a Trace before adding a new one." & Chr(13),,"HMI Operator Interface" + ElseIf ((nRetVal >= nDeleteIndex) And (nRetVal < nSaveIndex)) Then + nCount = nRetVal - nDeleteIndex + 1 + If nCount = nActiveCount Then + For nCount = 1 To nNumTrends + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, GSH_OFF + Next + Else + nDelete = 1 + For n = 1 To nNumTrends Step 1 + If asActive(n) <> "OFF" Then + If nDelete = nCount Then + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & n,GSH_REGKEY_ACTIVE, GSH_OFF + Exit Sub + End If + nDelete = nDelete + 1 + End If + Next + End If + ElseIf ((nRetVal >= nSaveIndex) And (nRetVal < nCommandIndex)) Then + nCnt = nRetVal - nSaveIndex + 1 + 'Saving demand trends to previous demand trend on registry + If nCnt = 1 Then + For nCount = 1 To nNumTrends + asItemAliasName = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, "") + asTraceNames(1) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, "") + asTraceNames(2) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPCITEMPATH, "") + asTraceNames(3) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPC2ITEMPATH, "") + asActive(1) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, "") + asAutoscale(1) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, "") + asStepped(1)= GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TRENDSTEPPED, "") + asPVFormat(1) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_PVFORMATKEY, "") + arY_Max(1) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMAX,"") + arY_Min(1) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMIN,"") + + '10/06/2008 (CL) + asEUHIGH(1) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_HIGH,"") + asEULOW(1) = GSH_GETDEMANDTREND(GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_LOW,"") + + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, asItemAliasName + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, asTraceNames(1) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPCITEMPATH, asTraceNames(2) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPC2ITEMPATH, asTraceNames(3) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, asActive(1) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, asAutoscale(1) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TRENDSTEPPED, asStepped(1) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_PVFORMATKEY, asPVFormat(1) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMAX, arY_Max(1) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMIN, arY_Min(1) + + '10/06/2008 (CL) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_HIGH, asEUHIGH(1) + GSH_SETOPERATORTREND GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_LOW, asEULOW(1) + + + Next + 'Restore previous demand strends to demand trend on Registry + Else + For nCount = 1 To nNumTrends + asItemAliasName = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, "") + asTraceNames(1) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, "") + asTraceNames(2) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPCITEMPATH, "") + asTraceNames(3) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPC2ITEMPATH, "") + asActive(1) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, "") + asAutoscale(1) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, "") + asStepped(1)= GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TRENDSTEPPED, "") + asPVFormat(1) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_PVFORMATKEY, "") + + '10/06/2008 (CL) + asEUHIGH(1) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV, GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_HIGH,"") + asEULOW(1) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV, GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_LOW,"") + + + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, asItemAliasName + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, asTraceNames(1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPCITEMPATH, asTraceNames(2) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPC2ITEMPATH, asTraceNames(3) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, asActive(1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TRENDSTEPPED, asStepped(1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_PVFORMATKEY, asPVFormat(1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, asAutoscale(1) + + '10/06/2008 (CL) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_HIGH, asEUHIGH(1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_RANGE_LOW, asEULOW(1) + + + If (strComp(asAutoscale(1),"Off",vbTextCompare) = 0) Then + arY_Max(1) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMAX,"") + arY_Min(1) = GSH_GETOPERATORTREND(GSH_REGKEY_DEMANDTRENDPREV,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMIN,"") + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMAX,arY_Max(1) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMIN,arY_Min(1) + End If + Next + End If + ElseIf ((nRetVal >= nCommandIndex) And (nRetVal < nCancelIndex)) Then + Dim nLen, nTemp, sCommandLeft, sCommandRight, sCommand + + sParseStr = GSH_GETMENUCONFIG(GSH_REGKEY_CMDSTRING & ((nRetVal-nCommandIndex)+1), "") + nLen = Len(sParseStr) + nTemp = Instr(1,sParseStr,"XXXXXX",1) + + If nTemp = 0 Then ' do not need to add tag name to command + sCommand = sParseStr +' gsh_log("GSH_RIGHTCLICKTAGNAME 1 sCommand=" & sCommand) + Else + sCommandLeft = left(sParseStr,(nTemp - 1)) + nTemp = nLen - nTemp - 5 + If nTemp < 1 Then + sCommandRight = "" + Else + sCommandRight = right(sParseStr,(nTemp)) + End If +' gsh_log("GSH_RIGHTCLICKTAGNAME 2 sCommand=" & sCommand) + + sCommand = sCommandLeft & sTagName & sCommandRight +' id = shell(sCommand,1) + End If + id = window.parent.external.shell(sCommand,1) + End If +'errorhandler: +'gsh_log_e("GSH_DEMANDTRENDBTN" ) + +End Sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Procedure: WRITE FACEPLATE TAGNAME KEY VALUE''''''''''''''''''''''''''''''' +'Parameters: +' strKey - Part of path to Registry Item +' strValue - Value of string key +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_WRITEFACEPLATETAGNAMEKEYVALUE(strKey, strValue) +'gsh_log_s("GSH_WRITEFACEPLATETAGNAMEKEYVALUE " & "strKey=" & strKey & ",strValue=" & strValue ) + dim strRegLocation + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_FACEPLATE_TAGS & strKey + 'gsh_log("GSH_WRITEFACEPLATETAGNAMEKEYVALUE checkPoint strRegLocation=" & strRegLocation) + GSH_WRITETOREGISTRY strRegLocation,strValue,"REG_SZ" +'gsh_log_e("GSH_WRITEFACEPLATETAGNAMEKEYVALUE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: READ FACEPLATE TAGNAME KEY VALUE ''''''''''''''''''''''''' +'Parameters: +' strKey - Part of path to Registry Item +' defaultString - Default Value if error or nothing found +'Returns: +' value of registry item or parameter of defaultString +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_READFACEPLATETAGNAMEKEYVALUE(strKey, defaultString) +'gsh_log_s("GSH_READFACEPLATETAGNAMEKEYVALUE" & " strKey=" & strKey & ",defaultString=" & defaultString ) + dim tempString, strRegLocationm, tempReturn + strRegLocation = GSH_REGISTRY_BASE & GSH_REGISTRY_FACEPLATE_TAGS & strKey + 'gsh_log("GSH_READFACEPLATETAGNAMEKEYVALUE checkPoint strRegLocation=" & strRegLocation) + tempString = GSH_READREGISTRY(strRegLocation,defaultString) + if tempString = "" then + tempReturn = defaultString + else + tempReturn = tempString + End If + GSH_READFACEPLATETAGNAMEKEYVALUE = tempReturn +'gsh_log_e("GSH_READFACEPLATETAGNAMEKEYVALUE returning >>>" & tempReturn&"<<<") +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'Function: GSH_FP_TAG_CHANGED '''''''''''''''''''''''''''''''''''''' +' Sets registry settings for faceplates +'Parameters: +' tagname - tag name of new tag user wants displayed in faceplate +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TAG_CHANGED(tagname) +on error resume next +'gsh_log_s("GSH_FP_TAG_CHANGED tagname=" & tagname) + + dim vTagFamily + + 'Make tagname the focus tag + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_FOCUSTAG,tagname + 'Need to take care of associate tags as well + vTagFamily = GSH_READTAGINFORMATIONKEYVALUE(tagname, GSH_REGKEY_TAGFAM, "") + 'Store Tag Family in Display Communication Mailbox + GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE GSH_REGKEY_TAGFAM,vTagFamily + + 'Update faceplate + call GSH_UpdateFaceplate + + 'Comment out by Cuong Ly on Jun 12, 2007 + 'call GSH_UpdateFaceplate(tagname) '-> GSH_UpdateFaceplate take no paramter. +'put new tagname into current +'move current to prior1, prior1 to prior2, etc + for cnt = 1 to 4 + call GSH_WRITEFACEPLATETAGNAMEKEYVALUE(GSH_REGKEY_FACEPLATE_PRIOR&cstr(6-cnt),GSH_READFACEPLATETAGNAMEKEYVALUE(GSH_REGKEY_FACEPLATE_PRIOR&cstr(6-cnt-1),"")) + Next + call GSH_WRITEFACEPLATETAGNAMEKEYVALUE(GSH_REGKEY_FACEPLATE_PRIOR&cstr(1),GSH_READFACEPLATETAGNAMEKEYVALUE(GSH_REGKEY_FACEPLATE_CURRENT,"")) + call GSH_WRITEFACEPLATETAGNAMEKEYVALUE(GSH_REGKEY_FACEPLATE_CURRENT,tagname) +'gsh_log_e("GSH_FP_TAG_CHANGED") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_SHOWNAMESBTN_ONCLICK +'Function: Toggles the visible flag for tag name labels and changes the +'button text label between Show and Hide Names, then updates all shapes +'06/27/07 Removed call to GSH_UPDATESHAPESONDISPLAY on all 3 displays +' this is now being handled by the onperiodicupdate event handler on each pg +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_FP_SHOWNAMESBTN_ONCLICK (oShape) +'gsh_log_S("GSH_FP_SHOWNAMESBTN_ONCLICK oShape = "& oShape.id) + +Dim sIsTagNameVisible, sPushbuttonLabel + sIsTagNameVisible = GSH_FALSE + sPushbuttonLabel = "Show Names" + if (strcomp(oShape.value,"Show Names", vbtextcompare) = 0) then + sIsTagNameVisible = GSH_TRUE + sPushbuttonLabel = "Hide Names" + end if + + GSH_TAGNAMELABEL_SET_VISIBILITYSTATUS(sIsTagNameVisible) + + oShape.value = sPushbuttonLabel +'gsh_log_e("GSH_FP_SHOWNAMESBTN_ONCLICK") +End Sub + +sub GSH_FP_SHOWNAMESBTNPERIODICUPDATE + Dim sPushbuttonLabel + sPushbuttonLabel = "Show Names" + dim tagLabelVisibility + tagLabelVisibility = GSH_TAGNAMELABEL_GET_VISIBILITYSTATUS() + if (strcomp(tagLabelVisibility,GSH_TRUE, vbtextcompare) = 0) then + sPushbuttonLabel = "Hide Names" + end if + btn_ShowNames.value = sPushbuttonLabel +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_ACKALARMBUTTONCLICK +'Function: Toggles the acknowlege alarm flag to trigger an acknowledge event +' in the alarm summary page +'TODO: update +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_ACKALARMBUTTONCLICK + on error resume next + ConAlpTagname.focus + window.external.Application.Document.ParentWindow.external.InvokeMenu2 "Acknowledge Alarm" +end sub + +function GSH_FP_VALIDATETAG (sTagname) +'gsh_log_s "GSH_FP_VALIDATETAG <<<<<<" & sTagname + dim sFaceplateName, tempReturn + + 'Comment out by Cuong Ly, Jun 12, 2007. Not sure what this does + 'but it gave error + 'call DisplayDataRepository.PutValue (GSH_SDR_INTERIMPOINT, sTagname) + +'for i=1 to 1000 +'GSH_LOG i +'next + 'if ConAlpTagname.DataExists(GSH_SDR_INTERIMPOINT & ".PointID") then + sFaceplateName = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_TagFacePlate, "Error") +' gsh_log "Data Exists? " & ConAlpTagname.DataExists(GSH_SDR_INTERIMPOINT & ".PointID") & " sFaceplateName? " & sFaceplateName +' if ConAlpTagname.DataExists(GSH_SDR_INTERIMPOINT & ".PointID") or strcomp(sFaceplateName, "Error",vbtextcompare) <> 0 then + + if strcomp(sFaceplateName, "Error",vbtextcompare) <> 0 then + tempReturn = true + else + tempReturn = false + end if + GSH_FP_VALIDATETAG = tempReturn +'gsh_log_e "GSH_FP_VALIDATETAG returns >>>>>>>>>>>" & tempReturn +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TXTNEWTAGNAME_ONCHANGE +'Function: Hides Tagname entry objects and updates the Current Point +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TXTNEWTAGNAME_ONCHANGE +'gsh_log_s "GSH_FP_TXTNEWTAGNAME_ONCHANGE" + txt_newTagname.style.visibility = "hidden" + cmb_tagnames.style.visibility = "hidden" + if (btn_EnterTagName.disabled) then 'added this check because this event was firing twice sequentially + if GSH_FP_VALIDATETAG (txt_newTagname.value) then + GSH_FP_TAG_CHANGED(txt_newTagname.value) + else + msgbox "This Tag does not exist." + end if + btn_EnterTagName.disabled = false + end if + window.clearInterval(GSH_FPTimerId) + txt_newTagname.CancelChange +'gsh_log_e "GSH_FP_TXTNEWTAGNAME_ONCHANGE" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_CMBTAGNAMES_ONACTIVATE +'Function: Refreshs the dropdown list to the last 5 tags used +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_CMBTAGNAMES_ONACTIVATE +'gsh_log_s "GSH_FP_CMBTAGNAMES_ONACTIVATE" +cmb_tagnames.ResetContent + for cnt = 1 to 5 + cmb_tagnames.AddString GSH_READFACEPLATETAGNAMEKEYVALUE(GSH_REGKEY_FACEPLATE_PRIOR&cstr(cnt),"") + Next +'gsh_log_e "GSH_FP_CMBTAGNAMES_ONACTIVATE" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_CMBTAGNAMES_ONCHANGE +'Function: Hides Tagname entry objects and updates the Current Point +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_CMBTAGNAMES_ONCHANGE +'gsh_log_s "GSH_FP_CMBTAGNAMES_ONCHANGE" + cmb_tagnames.style.visibility = "Hidden" + txt_newTagname.style.visibility = "hidden" + GSH_FP_TAG_CHANGED(cmb_tagnames.value) + btn_EnterTagName.disabled = false + window.clearInterval(GSH_FPTimerId) +'gsh_log_e "GSH_FP_CMBTAGNAMES_ONCHANGE" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_LAUNCHPOINTDETAILPAGE +'Function: Calls system detail page +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_LAUNCHPOINTDETAILPAGE +'gsh_log_s "GSH_FP_LAUNCHPOINTDETAILPAGE" + ConAlpTagname.focus + window.external.Application.Document.ParentWindow.external.InvokeMenu2 "Request Point Detail" +'gsh_log_e "GSH_FP_LAUNCHPOINTDETAILPAGE" +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_LAUNCHHOMEDISPLAYS +'Function: Launches T2, T3 and T4 for current point +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_LAUNCHHOMEDISPLAYS +'sh_log_s "GSH_FP_LAUNCHHOMEDISPLAYS" + Dim sOnDispT2, sOnDispT3, sOnDispT4, sHomeDispT2, sHomeDispT3, sHomeDispT4 + Dim sDispLocation + + sOnDispT2 = GSH_READDISPLAYCOMMUNICATIONKEYVALUE("Type2Filename","") + sOnDispT3 = GSH_READDISPLAYCOMMUNICATIONKEYVALUE("Type3Filename","") + sOnDispT4 = GSH_READDISPLAYCOMMUNICATIONKEYVALUE("Type4Filename","") + + sHomeDispT2 = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, "Type2HomeDispFN", "") + sHomeDispT3 = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, "Type3HomeDispFN", "") + sHomeDispT4 = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, "Type4HomeDispFN", "") + + sDispLocation = GSH_READDISPLAYNAMES("") + if strcomp(sHomeDispT3, "", vbtextcompare) <> 0 then + if strcomp(sOnDispT3, sHomeDispT3, vbtextcompare) <> 0 then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T3FN,sHomeDispT3) + window.navigate( sDispLocation & sHomeDispT3 & GSH_DISPLAYFILEEXTENSION ) + end if + end if + if strcomp(sHomeDispT4, "", vbtextcompare) <> 0 then + if strcomp(sOnDispT4, sHomeDispT4, vbtextcompare) <> 0 then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sHomeDispT4) + window.navigate( sDispLocation & sHomeDispT4 & GSH_DISPLAYFILEEXTENSION ) + end if + end if + if strcomp(sHomeDispT2, "", vbtextcompare) <> 0 then + if strcomp(sOnDispT2, sHomeDispT2, vbtextcompare) <> 0 then + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T2FN,sHomeDispT2) + window.navigate( sDispLocation & sHomeDispT2 & GSH_DISPLAYFILEEXTENSION ) + end if + end if +'sh_log_e "GSH_FP_LAUNCHHOMEDISPLAYS" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_ENTRYFIELD_ONCHANGE +'Function: If there is a change, hide the entry field, +' set the data value, and clear the Timer +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_ENTRYFIELD_ONCHANGE (oShapeObj, sParamName, nTimerID) +if not(isNull(oShapeObj.value) or isEmpty(oShapeObj.value)) then + call GSH_HIDESUBSHAPE(oShapeObj) + ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sParamName) = oShapeObj.value + window.clearInterval(nTimerID) + oShapeObj.CancelChange +end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_SHOWNOALARM +'Function: Unlike other shapes, the alarm status display on the fp doesn't +' show the outline when not in alarm. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_SHOWNOALARM(oShape) + call GSH_SHOWNOALARM(oShape) + oShape.objects("outline").style.visibility = GSH_HIDDEN +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_GENERAL_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, ShowNames Button, Detail Trend +' 06/08/07 Removed the line to write the current FP Filename to the +' Registry mailbox because it is no longer needed in GSH_UpdateFaceplate. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_GENERAL_ONPAGECOMPLETE +'gsh_log_s "GSH_FP_GENERAL_ONPAGECOMPLETE" +on error resume next + document.title = CSTR("fp") + + txt_Description.value = cStr(GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_REGKEY_TAGDESCRIPTION, defaultString)) + txt_Keyword.value = cStr(GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_REGKEY_KEYWORD, defaultString)) + txt_Units.value = cStr(GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_REGKEY_UNITS, defaultString)) + + 'Initialize the ShowNames button label + call GSH_FP_SHOWNAMESBTNPERIODICUPDATE + window.clearInterval(GSH_FP_ShowNamesBtnTimerId) + GSH_FP_ShowNamesBtnTimerId = window.setInterval("GSH_FP_SHOWNAMESBTNPERIODICUPDATE", GSH_FP_SHOWNAMESBTNUPDATEPERIOD_SECS * 1000) + 'Start the detail trend timer and periodic update function + call GSH_FP_DetailTrendInitialize(ConAlpTagname.value) + window.clearInterval(GSH_DetailTrendUpdateTimerId) + GSH_DetailTrendUpdateTimerId = window.setInterval("GSH_DETAILTRENDPERIODICUPDATE(" & ConAlpTagname.id & ")", GSH_DETAILTRENDUPDATEPERIOD_SECS * 1000) +'gsh_log_e "GSH_FP_GENERAL_ONPAGECOMPLETE" +end sub + + +sub GSH_FP_GENERAL_INIT_STSMSG(dataScriptObj, stsMsgComboObj, stsMsgOffNormalObj, point, parameter) +'gsh_log_s("GSH_FP_GENERAL_INIT_STSMSG") +on error resume next + dim i, message, stsMsgType, numOfMessage + + 'Enter states for the StsMsg combo + stsMsgComboObj.AddString(GSH_NONE) + stsMsgType = GSH_READTAGINFORMATIONKEYVALUE(dataScriptObj.value, GSH_REGKEY_STSMSGLIST, defaultString) + + + numOfMessage = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & "NoOfMessages", "0") + + dim stsMsg_flag + stsMsg_flag = dataScriptObj.DataValue(point &"." ¶meter) + + stsMsgComboObj.value = GSH_NONE + stsMsgOffNormalObj.style.visibility = GSH_HIDDEN + + for i = 1 to numOfMessage + message = GSH_READSTSMSGLISTSKEYVALUE(stsMsgType & "\" & GSH_REGKEY_STATUSMESSAGE &i, "") + ConCboStsMsg.AddString(message) + + if i = stsMsg_flag then + stsMsgComboObj.value = message + stsMsgOffNormalObj.style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e("GSH_FP_GENERAL_INIT_STSMSG") +end sub + + +sub GSH_FP_STSMSG_ONCHANGE(dataScriptObj, stsMsgComboObj, stsMsgOffNormalObj, point, parameter) + + if stsMsgComboObj.selectedIndex <> -1 then + dataScriptObj.DataValue(point & "." ¶meter) = stsMsgComboObj.selectedIndex + + if stsMsgComboObj.selectedIndex <> 0 then + stsMsgOffNormalObj.style.visibility = GSH_VISIBLE + else + stsMsgOffNormalObj.style.visibility = GSH_HIDDEN + end if + + end if + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_GENERAL_ONPAGEUNLOAD +'Function: clears timers +'08/14/2007 - add GSH_PageUnload function to clear WshShell object +' when faceplates are unloaded. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_GENERAL_ONPAGEUNLOAD +'gsh_log_s "GSH_FP_GENERAL_ONPAGEUNLOAD" + window.clearInterval(GSH_FP_ShowNamesBtnTimerId) + window.clearInterval(GSH_DetailTrendUpdateTimerId) + GSH_PageUnload +'gsh_log_e "GSH_FP_GENERAL_ONPAGEUNLOAD" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_ANALOG_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Alarm Limits, Detail Trend +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_ANALOG_ONPAGECOMPLETE +'gsh_log_s "GSH_FP_ANALOG_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE + dim nPVFormat + nPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + txt_euhi.value = FORMATNUMBER(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_EUHI),nPVFormat,-2, 0, 0) + txt_eulo.value = FORMATNUMBER(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_EULO),nPVFormat,-2, 0, 0) + call GSH_FP_SCADA_ShowAlarmLimits 'Setup Alarm Limits +'gsh_log_e "GSH_FP_ANALOG_ONPAGECOMPLETE" +end sub + + +sub GSH_FP_DIGITALOUTPUT_ONPAGECOMPLETE +'gsh_log_s "GSH_FP_DIGITALOUTPUT_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to 3 '(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".NumberOfInputStates")-1) + page.all("txt_OPState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".State" & i & "Descriptor") + + if strcomp(page.all("txt_OPState"&i).value,"",vbtextcompare)<>0 then + page.all("TxtOP"&i).style.visibility = GSH_VISIBLE + page.all("ShpStateOP"&i).style.visibility = GSH_VISIBLE + page.all("txt_OPState"&i).style.visibility = GSH_VISIBLE + end if + next +' call GSH_FP_DIGITAL_SHOWALARMSTATES 'Setup Alarm Limits +'gsh_log_e "GSH_FP_DIGITALOUTPUT_ONPAGECOMPLETE" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_DIGITAL_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Alarm Limits, Detail Trend +' 06/28/07 having the FP_Digital to handle 4 PV states +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_DIGITAL_ONPAGECOMPLETE +'gsh_log_s "GSH_FP_DIGITAL_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to 3 '(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".NumberOfInputStates")-1) + page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".State" & i & "Descriptor") + + if strcomp(page.all("txt_PVState"&i).value,"",vbtextcompare)<>0 then + page.all("TxtPV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStatePV"&i).style.visibility = GSH_VISIBLE + page.all("txt_PVState"&i).style.visibility = GSH_VISIBLE + end if + next +' call GSH_FP_DIGITAL_SHOWALARMSTATES 'Setup Alarm Limits +'gsh_log_e "GSH_FP_DIGITAL_ONPAGECOMPLETE" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TPS_DIGITAL_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Detail Trend +' 09/23/09 +' n is number of states +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TPS_DIGITAL_ONPAGECOMPLETE(n) +'gsh_log_s "GSH_FP_TPS_DIGITAL_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to (n-1) '(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".NumberOfInputStates")-1) + 'page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".Statetxt(" &i & ")") + page.all("txt_PVState"&i).value = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, "STATETXT(" &i &")", GSH_NONE) + if strcomp(page.all("txt_PVState"&i).value,"",vbtextcompare)<>0 then + page.all("TxtPV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStatePV"&i).style.visibility = GSH_VISIBLE + page.all("txt_PVState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_TPS_DIGITAL_ONPAGECOMPLETE" +end sub + +'GSH_FP_TPS_DIGITALOUTPUT_ONPAGECOMPLETE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TPS_DIGITAL_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Detail Trend +' 09/23/09 +' n is number of states +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TPS_DIGITALOUTPUT_ONPAGECOMPLETE(n) +'gsh_log_s "GSH_FP_TPS_DIGITALOUTPUT_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to (n-1) '(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".NumberOfInputStates")-1) + page.all("txt_OPState"&i).value = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, "STATETXT(" &i &")", GSH_NONE) + if strcomp(page.all("txt_OPState"&i).value,"",vbtextcompare)<>0 then + page.all("TxtOP"&i).style.visibility = GSH_VISIBLE + page.all("ShpStateOP"&i).style.visibility = GSH_VISIBLE + page.all("txt_OPState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_TPS_DIGITALOUTPUT_ONPAGECOMPLETE" +end sub + + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TPS_DIGITALCOMPOSITE_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Detail Trend +' 09/23/09 +' n is number of states +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TPS_DIGITALCOMPOSITE_ONPAGECOMPLETE(n) +'gsh_log_s "GSH_FP_TPS_DIGITAL_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE +' for i = 0 to (ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".NOSTATES")-1) + for i = 0 to (n-1) + page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".Statetxt(" &i & ")") + if strcomp(page.all("txt_PVState"&i).value,"",vbtextcompare)<>0 then + page.all("TxtPV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStatePV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStateOP"&i).style.visibility = GSH_VISIBLE + page.all("txt_PVState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_TPS_DIGITALCOMPOSITE_ONPAGECOMPLETE" +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TPS_DIGITALCOMPOSITE_HG_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Detail Trend +' 09/23/09 +' n is number of states +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TPS_DIGITALCOMPOSITE_HG_ONPAGECOMPLETE(n) +'gsh_log_s "GSH_FP_TPS_DIGITAL_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE +' for i = 0 to (ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".NOSTATES")-1) + for i = 0 to (n-1) + page.all("txt_PVState"&i).value = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, "STATETXT("&i&")", "") + if strcomp(page.all("txt_PVState"&i).value,"",vbtextcompare)<>0 then + page.all("TxtPV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStatePV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStateOP"&i).style.visibility = GSH_VISIBLE + page.all("txt_PVState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_TPS_DIGITALCOMPOSITE_HG_ONPAGECOMPLETE" +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TPS_DIGITAL_HG_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Detail Trend +' 09/23/09 +' n is number of states +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TPS_DIGITAL_HG_ONPAGECOMPLETE(n) +'gsh_log_s "GSH_FP_TPS_DIGITAL_HG_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to (n-1) '(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".NumberOfInputStates")-1) +' j = i+1 +'Option1 (prefer): Jamie to replace the parameters .StateiDescriptor by the correct TPS parameters +' page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".Statetxt(" & j & ")") + +'Option2: use states from the registry. Comment this out if we use option1 + page.all("txt_PVState"&i).value = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, "STATETXT("&i&")", "") + + if strcomp(page.all("txt_PVState"&i).value,"",vbtextcompare)<>0 then + page.all("TxtPV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStatePV"&i).style.visibility = GSH_VISIBLE + page.all("txt_PVState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_TPS_DIGITAL_HG_ONPAGECOMPLETE" +end sub + + +sub GSH_FP_SCADA_DIGITALCOMPOSITE_ONPAGECOMPLETE +'gsh_log_s "GSH_FP_SCADA_DIGITALCOMPOSITE_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to 3 '(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".NumberOfInputStates")-1) + page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".State" & i & "Descriptor") + + + if strcomp(page.all("txt_PVState"&i).value,"",vbtextcompare)<>0 then + page.all("TxtPV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStatePV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStateOP"&i).style.visibility = GSH_VISIBLE + page.all("txt_PVState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_SCADA_DIGITALCOMPOSITE_ONPAGECOMPLETE" +end sub + +sub GSH_FP_DIGITAL_SHOWALARMSTATES +'gsh_log_s("GSH_FP_DIGITAL_SHOWALARMSTATES") +dim alarmEnabled, alarmPri + for i = 0 to 1 + alarmEnabled = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".State"&i&"AlarmEnabled") + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".State"&i&"AlarmPriority") + call GSH_FP_DIGITAL_SHOWALARMLINE(page.all("TxtPV"&i), page.all("ShpState"&i),page.all("LinAlm"&i), alarmEnabled, alarmPri) + next +'gsh_log_e("GSH_FP_DIGITAL_SHOWALARMSTATES") +end sub + +sub GSH_FP_DIGITAL_SHOWALARMLINE(oLabel, oState, oLine, alarmEnabled, alarmPri) +'gsh_log_s("GSH_FP_DIGITAL_SHOWALARMLINE oLine=" & oLine.id & ", alarmEnabled=" & alarmEnabled & ", alarmPri=" & alarmPri) +On error resume next +If alarmPri>0 then + if alarmEnabled>0 then + select case alarmPri + case 1 oLine.styleClass="AlarmLowColor" + case 2 oLine.styleClass="AlarmHighColor" + case 3 oLine.styleClass="AlarmEmergColor" + end select + oLine.style.visibility = GSH_VISIBLE + end if + oLabel.style.visibility = GSH_VISIBLE + oState.style.visibility = GSH_VISIBLE +end if +'gsh_log_e("GSH_FP_DIGITAL_SHOWALARMLINE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' GSH_FP_DIGITAL_SHOWALARMBAR +' give the bar line correct color based on the given alarm code. +' +' 08/10/2007 - Add this function to show a bar beside +' state that has alarm. +' Do not check if a state has alarm enabled as it required additional +' parameter. +' Reference: issue #722 (Cuong Ly) +' +sub GSH_FP_DIGITAL_SHOWALARMBAR(numOfStates) + +'gsh_log_s("GSH_FP_DIGITAL_SHOWALARMBAR numOfStates = " &numOfStates) + + dim n, alarmPri + n = numOfStates-1 + for i = 0 to n + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".State"&i&"AlarmPriority") + alarmEnabled = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".State"&i&"AlarmEnabled") + + if alarmEnabled>0 then + if alarmPri > 0 then + select case alarmPri + case 1 page.all("ln_AlmBar"&i).styleClass=GSH_CSSALARMLOWACK + case 2 page.all("ln_AlmBar"&i).styleClass=GSH_CSSALARMHIGHACK + case 3 page.all("ln_AlmBar"&i).styleClass=GSH_CSSALARMEMERGENCYACK + end select + page.all("ln_AlmBar"&i).style.visibility = GSH_VISIBLE + else + page.all("ln_AlmBar"&i).style.visibility = GSH_HIDDEN + end if + else + page.all("ln_AlmBar"&i).style.visibility = GSH_HIDDEN + end if + next + +'gsh_log_e("GSH_FP_DIGITAL_SHOWALARMBAR ") + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_C200_DIGITAL_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Alarm Limits, Detail Trend +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_C200_DIGITAL_ONPAGECOMPLETE(sFunctionBlock) +'gsh_log_s("GSH_FP_C200_DIGITAL_ONPAGECOMPLETE >>>> sFunctionBlock = " & sFunctionBlock) + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to 1 + page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "StateText(" & i+4 & ")") + next +'gsh_log_e "GSH_FP_C200_DIGITAL_ONPAGECOMPLETE" +end sub + +sub GSH_FP_C200_DIGITALCOMPOSITE_ONPAGECOMPLETE(sFunctionBlock) +'gsh_log_s ("GSH_FP_C200_DIGITALCOMPOSITE_ONPAGECOMPLETE>>>> sFunctionBlock = " & sFunctionBlock) + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to (ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "NUMSTATES")-1) + if strcomp(page.all("txt_PVState"&i).value,"",vbtextcompare)<>0 then + page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "StateText(" & i+4 & ")") + page.all("TxtPV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStatePV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStateOP"&i).style.visibility = GSH_VISIBLE + page.all("txt_PVState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_C200_DIGITALCOMPOSITE_ONPAGECOMPLETE" +end sub + +sub GSH_FP_C200_DIGITALCOMPOSITE_NOOP_ONPAGECOMPLETE(sFunctionBlock) +' +'Added this subroutine for the No Output Faceplate - 04Jan2008 - JE +' +'gsh_log_s ("GSH_FP_C200_DIGITALCOMPOSITE_NOOP_ONPAGECOMPLETE>>>> sFunctionBlock = " & sFunctionBlock) + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to (ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "NUMSTATES")-1) + if strcomp(page.all("txt_PVState"&i).value,"",vbtextcompare)<>0 then + page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "StateText(" & i+4 & ")") + page.all("TxtPV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStatePV"&i).style.visibility = GSH_VISIBLE +' page.all("ShpStateOP"&i).style.visibility = GSH_VISIBLE + page.all("txt_PVState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_C200_DIGITALCOMPOSITE_NOOP_ONPAGECOMPLETE" +end sub + +sub GSH_FP_C200_DIGITALCOMPOSITE_NOPV_ONPAGECOMPLETE(sFunctionBlock) +'gsh_log_s ("GSH_FP_C200_DIGITALCOMPOSITE_NOPV_ONPAGECOMPLETE>>>> sFunctionBlock = " & sFunctionBlock) + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to (ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "NUMSTATES")-1) + if strcomp(page.all("txt_PVState"&i).value,"",vbtextcompare)<>0 then + page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "StateText(" & i+4 & ")") + page.all("TxtPV"&i).style.visibility = GSH_VISIBLE + page.all("ShpStateOP"&i).style.visibility = GSH_VISIBLE + page.all("txt_PVState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_C200_DIGITALCOMPOSITE_NOPV_ONPAGECOMPLETE" +end sub + +sub GSH_FP_C200_DIGITALOUTPUT_ONPAGECOMPLETE(sFunctionBlock) +'gsh_log_s ("GSH_FP_C200_DIGITALOUTPUT_ONPAGECOMPLETE>>>> sFunctionBlock = " & sFunctionBlock) + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to (ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "NUMSTATES")-1) + if strcomp(page.all("txt_OPState"&i).value,"",vbtextcompare)<>0 then + page.all("txt_OPState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "StateText(" & i+4 & ")") + page.all("TxtOP"&i).style.visibility = GSH_VISIBLE + page.all("ShpStateOP"&i).style.visibility = GSH_VISIBLE + page.all("txt_OPState"&i).style.visibility = GSH_VISIBLE + end if + next +'gsh_log_e "GSH_FP_C200_DIGITALOUTPUT_ONPAGECOMPLETE" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_C200_DIGITAL_FLAGA_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Alarm Limits, Detail Trend +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_C200_DIGITAL_FLAGA_ONPAGECOMPLETE(sFunctionBlock) +'gsh_log_s("GSH_FP_C200_DIGITAL_FLAGA_ONPAGECOMPLETE >>>> sFunctionBlock = " & sFunctionBlock) + call GSH_FP_GENERAL_ONPAGECOMPLETE + for i = 0 to 1 + page.all("txt_PVState"&i).value = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sFunctionBlock & "." & "StateText(" & i & ")") + next +'gsh_log_e "GSH_FP_C200_DIGITAL_FLAGA_ONPAGECOMPLETE" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_C200_SELO_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Alarm Limits, Detail Trend +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_C200_SELO_ONPAGECOMPLETE +'gsh_log_s "GSH_FP_C200_SELO_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE + For i = 3 to 4 + if not(ConAlpTagname.isNan(GSH_SDR_CURRENTPOINT &"."&CTLBLK&".X("&i&")")) then + page.all("TxtBypassX00"&i).style.visibility = GSH_VISIBLE + page.all("ConCboBypass"&i).style.visibility = GSH_VISIBLE + end if + Next +'gsh_log_e "GSH_FP_C200_SELO_ONPAGECOMPLETE" +end sub + +sub GSH_FP_C200_SHOWWINDUPSTATUS(sWindupCode) +'gsh_log_s("GSH_FP_C200_SHOWWINDUPSTATUS " & "sWindupCode=" & sWindupCode) +'dim tempReturn: tempReturn = true + + page.all("plg_OpLow").style.visibility = GSH_HIDDEN + page.all("plg_OpHigh").style.visibility = GSH_HIDDEN + page.all("txt_Initialization").style.visibility = GSH_HIDDEN + page.all("TxtInitialization").style.visibility = GSH_HIDDEN + + Select Case sWindupCode + Case GSH_WINDUP_LO + page.all("plg_OpLow").style.visibility = GSH_VISIBLE + Case GSH_WINDUP_HI + page.all("plg_OpHigh").style.visibility = GSH_VISIBLE + Case GSH_WINDUP_HILO + page.all("txt_Initialization").style.visibility = GSH_VISIBLE + page.all("TxtInitialization").style.visibility = GSH_VISIBLE + Case else + + end Select +'gsh_log_e("GSH_FP_C200_SHOWWINDUPSTATUS returns >>>>>>>>> "&tempReturn) +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_C200_ANALOG_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Alarm Limits, Detail Trend +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_C200_ANALOG_ONPAGECOMPLETE(sInputFunctionBlock, sControlFunctionBlock) +'gsh_log_s "GSH_FP_C200_ANALOG_ONPAGECOMPLETE sFunctionBlock "& sFunctionBlock + dim nPVFormat + call GSH_FP_GENERAL_ONPAGECOMPLETE + nPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + txt_euhi.value = formatnumber(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sControlFunctionBlock & ".PVEUHI"), nPVFormat) + txt_eulo.value = Formatnumber(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sControlFunctionBlock & ".PVEULO"), nPVFormat) + call GSH_FP_C200_ShowAlarmLimits (sInputFunctionBlock) 'Setup Alarm Limits +'gsh_log_e "GSH_FP_C200_ANALOG_ONPAGECOMPLETE" +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_C200_ShowAlarmLimits +'function: Sets the style and position of the 4 alarm limits on the PV Bar graph +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_C200_ShowAlarmLimits (sInputFunctionBlock) +dim alarmlim, alarmPri 'to do: handle null return from the limit and priority values + 'Alarm 1 + if ConAlpTagname.IsNan(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvllalm.tp") then + txt_alarmlim1.value = "---" + RecAlarm1.style.visibility = GSH_HIDDEN + else + alarmlim = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvllalm.tp") + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvllalm.pr") + If (alarmPri > 1) then + txt_alarmlim1.value = GSH_FormatPVTextTag(ConAlpTagname.value,alarmlim) + else + txt_alarmlim1.value = "---" + end if + call GSH_FP_C200_ShowAlarmRec(RecAlarm1, alarmlim, alarmPri) + end if + 'Alarm 2 + if ConAlpTagname.IsNan(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvloalm.tp") then + txt_alarmlim2.value = "---" + RecAlarm2.style.visibility = GSH_HIDDEN + else + alarmlim = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvloalm.tp") + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvloalm.pr") + If (alarmPri > 1) then + txt_alarmlim2.value = GSH_FormatPVTextTag(ConAlpTagname.value,alarmlim) + else + txt_alarmlim2.value = "---" + end if + call GSH_FP_C200_ShowAlarmRec(RecAlarm2, alarmlim, alarmPri) + end if + 'Alarm 3 + if ConAlpTagname.IsNan(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvhialm.tp") then + txt_alarmlim3.value = "---" + RecAlarm3.style.visibility = GSH_HIDDEN + else + alarmlim = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvhialm.tp") + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvhialm.pr") + If (alarmPri > 1) then + txt_alarmlim3.value = GSH_FormatPVTextTag(ConAlpTagname.value,alarmlim) + else + txt_alarmlim3.value = "---" + end if + call GSH_FP_C200_ShowAlarmRec(RecAlarm3, alarmlim, alarmPri) + end if + 'Alarm 4 + if ConAlpTagname.IsNan(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvhhalm.tp") then + txt_alarmlim4.value = "---" + RecAlarm4.style.visibility = GSH_HIDDEN + else + alarmlim = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvhhalm.tp") + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sInputFunctionBlock & ".pvhhalm.pr") + If (alarmPri > 1) then + txt_alarmlim4.value = GSH_FormatPVTextTag(ConAlpTagname.value,alarmlim) + else + txt_alarmlim4.value = "---" + end if + call GSH_FP_C200_ShowAlarmRec(RecAlarm4, alarmlim, alarmPri) + end if +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_C200_UpdateAlarmStatus +'Check alarm status and updates the text value for ConTxtAlmEnabled object +'Parameter: sAlarmStatusParamName = GSH_SCADA_PARAM_ALARMDISABLED or C200 param constant +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_C200_UpdateAlarmStatus (sAlarmStatusParamName) +'gsh_log_s "GSH_FP_C200_UpdateAlarmStatus" +dim sAlarmStatus + sAlarmStatus = "---" + if (ConTxtAlmEnabled.DataValue(GSH_SDR_CURRENTPOINT & "." & sAlarmStatusParamName) = 0) then + sAlarmStatus = "Disabled" + Rec_AlmEnabledOffNorm.style.visibility = GSH_VISIBLE + else + sAlarmStatus = "Enabled" + Rec_AlmEnabledOffNorm.style.visibility = GSH_HIDDEN + end if + ConTxtAlmEnabled.value = sAlarmStatus +'gsh_log_e "GSH_FP_C200_UpdateAlarmStatus" +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TPS_UpdateAlarmStatus +'Check alarm status and updates the text value for ConTxtAlmEnabled object +'Parameter: sAlarmStatusParamName = GSH_TPS_PARAM_ALARMDISABLED +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TPS_UpdateAlarmStatus (sAlarmStatusParamName) +'gsh_log_s "GSH_FP_TPS_UpdateAlarmStatus" +dim sAlarmStatus + sAlarmStatus = "---" + iAlarmStatus = ConTxtAlmEnabled.DataValue(GSH_SDR_CURRENTPOINT & "." & sAlarmStatusParamName) + if (iAlarmStatus = 0) then + sAlarmStatus = "Enabled" + Rec_AlmEnabledOffNorm.style.visibility = GSH_HIDDEN + elseif(iAlarmStatus = 1) then + sAlarmStatus = "Disabled" + Rec_AlmEnabledOffNorm.style.visibility = GSH_VISIBLE + else + sAlarmStatus = "Inhibit" + Rec_AlmEnabledOffNorm.style.visibility = GSH_VISIBLE + end if + ConTxtAlmEnabled.value = sAlarmStatus +'gsh_log_e "GSH_FP_TPS_UpdateAlarmStatus" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_C200_NUMERICA_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Alarm Limits, Detail Trend +' Added JE 14Jan08 +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_C200_NUMERICA_ONPAGECOMPLETE(sInputFunctionBlock, sControlFunctionBlock) +'gsh_log_s "GSH_FP_C200_NUMERICA_ONPAGECOMPLETE sFunctionBlock "& sFunctionBlock + dim nPVFormat + call GSH_FP_GENERAL_ONPAGECOMPLETE + nPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + txt_euhi.value = formatnumber(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sControlFunctionBlock & ".PVHILM"), nPVFormat) '.PVEUHI? + txt_eulo.value = Formatnumber(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & sControlFunctionBlock & ".PVLOLM"), nPVFormat) '.PVEULO? +'gsh_log_e "GSH_FP_C200_NUMERICA_ONPAGECOMPLETE" +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_HORIZONTALPVBAR_ONUPDATE +'Update function for the shape SCADA_HORIZONTALPVBAR +'Parameter: Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 06/15/07 Initialize alarm state with GSH_SHOWALARMS_WOOUTLINE +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_HORIZONTALPVBAR_ONUPDATE(oShape, flag) +'gsh_log_s "GSH_SCADA_HORIZONTALPVBAR_ONUPDATE" + If flag = 0 then + call GSH_SHOWALARMS_WOOUTLINE(GSH_NOALARMCODE,oShape) 'show normal + dim nPVValue, iPVValue, iRangeHi, iRangeLo + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_DISABLED + else + call GSH_SHOWALARMS_WOOUTLINE(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY), oShape) + End If + if GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true, false, false) then + oShape.objects("ind_PVBar").value = 0 + oShape.objects("txtBadPV").style.visibility = GSH_VISIBLE + else + oShape.objects("txtBadPV").style.visibility = GSH_HIDDEN + nPVValue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + ' gsh_log "PV="& nPVValue + iRangeHi = CInt(oShape.GetCustomProperty("Value", "txtHighLimit")) + iRangeLo = CInt(oShape.GetCustomProperty("Value", "txtLowLimit")) + if (nPVValue >= iRangeHi) then + iPVValue = 100 + ElseIf (nPVValue <= iRangeLo) then + iPVValue = 0 + else + iPVValue = Cint(((nPVValue-iRangeLo)* 100 )/ (iRangeHi - iRangeLo)) + end if + oShape.objects("ind_PVBar").value = iPVValue + ' gsh_log "PV - iRangeLo ="& nPVValue - iRangeLo & ", iRangeHi - iRangeLo="&iRangeHi - iRangeLo + end if + End If + + If flag <= 1 then + call GSH_SETSHAPEFOCUS(oShape) + End If +'gsh_log_e "GSH_SCADA_HORIZONTALPVBAR_ONUPDATE" +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_HORIZONTALPVBAR_ONUPDATE +'Update function for the shape C200_HORIZONTALPVBAR +'Parameter: Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 06/15/07 Initialize alarm state with GSH_SHOWALARMS_WOOUTLINE +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_HORIZONTALPVBAR_ONUPDATE(oShape, flag) +'gsh_log_s "GSH_C200_HORIZONTALPVBAR_ONUPDATE" + If flag = 0 then + call GSH_SHOWALARMS_WOOUTLINE(GSH_NOALARMCODE,oShape) 'show normal + dim nPVValue, iPVValue, iRangeHi, iRangeLo + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_DISABLED + else + call GSH_SHOWALARMS_WOOUTLINE(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY), oShape) + End If + + if GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true, false, false) then + oShape.objects("ind_PVBar").value = 0 + oShape.objects("txtBadPV").style.visibility = GSH_VISIBLE +' gsh_log "bad data" + else + oShape.objects("txtBadPV").style.visibility = GSH_HIDDEN + nPVValue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + iRangeHi = CInt(oShape.GetCustomProperty("Value", "txtHighLimit")) + iRangeLo = CInt(oShape.GetCustomProperty("Value", "txtLowLimit")) + if (nPVValue >= iRangeHi) then + iPVValue = 100 + ElseIf (nPVValue <= iRangeLo) then + iPVValue = 0 + else + iPVValue = Cint(((nPVValue-iRangeLo)* 100 )/ (iRangeHi - iRangeLo)) + end if + oShape.objects("ind_PVBar").value = iPVValue +' gsh_log "PV - iRangeLo ="& nPVValue - iRangeLo & ", iRangeHi - iRangeLo="&iRangeHi - iRangeLo + end if + End If + + If flag <= 1 then +' gsh_log "into focus" + call GSH_SETSHAPEFOCUS(oShape) + End If +'gsh_log_e "GSH_C200_HORIZONTALPVBAR_ONUPDATE" +end sub + + + + +'-------------------------------------START COMMON FUNCTIONS ------------------------------------------' +'.oPYo. +'8 8 +'8 .oPYo. ooYoYo. ooYoYo. .oPYo. odYo. +'8 8 8 8' 8 8 8' 8 8 8 8 8' `8 +'8 8 8 8 8 8 8 8 8 8 8 8 8 8 +'`YooP' `YooP' 8 8 8 8 8 8 `YooP' 8 8 +'------------------------------------------------------------------------------------------------------- + +' +' +' +sub GSH_SETSHAPEOFFNROMAL(oShape,isOffNormal) +'gsh_log_s("GSH_SETSHAPEOFFNROMAL oShape="&oShape.id &"isOffNormal=" &isOffNormal) + + if CBool(isOffNormal) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + elseif (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + +'gsh_log_e("GSH_SETSHAPEOFFNROMAL") +end sub + + +sub GSH_LevelIndicatorShowSALimits(oShape, iSAHigh, iSALow) +'gsh_log_s("GSH_LevelIndicatorShowSALimits oShape=" & oShape.id &"iSAHi = " &iSAHigh &"iSALo = " &iSALow) + Dim iNumPixels, iBottom + Dim iRangeHi, iRangeLo, iSAHi, iSALo + + iRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + iRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + iSAHi = CDbl(iSAHigh) + iSALo = CDbl(iSALow) + + iNumPixels = 0 + if (iSAHi >= iRangeHi) then + iNumPixels = 0 + oShape.objects("rec_SAHigh").style.visibility = GSH_HIDDEN + ElseIf (iSAHi < iRangeLo) then + iNumPixels = oShape.objects("linePVRange").style.pixelheight + else + iNumPixels = (oShape.objects("linePVRange").style.pixelheight * ((iRangeHi - iSAHi) / (iRangeHi - iRangeLo))) + end if + + oShape.objects("rec_SAHigh").style.pixeltop = oShape.objects("linePVRange").style.pixeltop + oShape.objects("rec_SAHigh").style.pixelheight = iNumPixels + + iNumPixels = 0 + if (iSALo > iRangeHi) then + iNumPixels = oShape.objects("linePVRange").style.pixelheight + ElseIf (iSALo <= iRangeLo) then + oShape.objects("rec_SALow").style.visibility = GSH_HIDDEN + else + iNumPixels = (oShape.objects("linePVRange").style.pixelheight * ((iSALo - iRangeLo) / (iRangeHi - iRangeLo))) + end if + + iBottom = (oShape.objects("linePVRange").style.pixelheight + oShape.objects("linePVRange").style.pixeltop) + + oShape.objects("rec_SALow").style.pixeltop = iBottom - iNumPixels + oShape.objects("rec_SALow").style.pixelheight = iNumPixels + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_LevelIndicatorShowSALimits",oShape) + end if + +'gsh_log_e("GSH_LevelIndicatorShowSALimits") +end sub + + +sub GSH_LevelRegCtl_SAGauge_SetFocus(oShape, isOffNormal) +'gsh_log_s("GSH_LevelRegCtl_SAGauge_SetFocus oShape="&oShape.id &"isOffNormal=" &isOffNormal) + + call GSH_SETSHAPEFOCUS(oShape) + + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_IndicatorRange").fillstyle = GSH_FILLTRANSPARENT + end if + + call GSH_SETSHAPEOFFNROMAL(oShape, isOffNormal) + + +'gsh_log_e("GSH_LevelRegCtl_SAGauge_SetFocus") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_LevelRegCtl_SAGauge_SetFocus",oShape) + end if + +end sub + +sub GSH_LevelRegCtl_SAGauge_ShowHideComponents(oShape, sAlarmCode, bInSA, isOffNormal) + + dim sHidePV + sHidePV = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPHIDEPV, GSH_CPVALUE) + if ((StrComp(sHidePV, GSH_ON,vbtextcompare) = 0) AND (StrComp(sAlarmCode, GSH_NONE,vbtextcompare) = 0) AND not(bInSA) AND (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + + oShape.objects("txt_PVvalue").style.visibility = GSH_HIDDEN + oShape.objects("outline").style.visibility = GSH_HIDDEN + oShape.objects("txt_Mode").style.visibility = GSH_HIDDEN + oShape.objects("outline_static").style.visibility = GSH_HIDDEN + else + 'Setting these two shapes as transparent get the outlines to show correctly, but does not work when in SA + if (not(bInSA) OR isOffNormal) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_IndicatorRange").fillstyle = GSH_FILLTRANSPARENT + end if + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("outline_static").style.visibility = GSH_VISIBLE + oShape.objects("txt_Mode").style.visibility = GSH_VISIBLE + end if + + +end sub + +sub GSH_LevelAnalog_SAGauge_ShowHideComponents(oShape, sAlarmCode, bInSA, isOffNormal) +'gsh_log_s("GSH_LevelAnalog_SAGauge_ShowHideComponents oShape = " &oShape.id &" sAlarmCode=" &sAlarmCode &" bInSA=" &bInSA &" isOffNormal=" &isOffNormal) + dim sHidePV + sHidePV = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPHIDEPV, GSH_CPVALUE) + + + if ((StrComp(sHidePV, GSH_ON,vbtextcompare) = 0) AND (StrComp(sAlarmCode, GSH_NONE,vbtextcompare) = 0) AND not(bInSA) AND (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + + oShape.objects("txt_PVvalue").style.visibility = GSH_HIDDEN + oShape.objects("outline").style.visibility = GSH_HIDDEN + oShape.objects("outline_static").style.visibility = GSH_HIDDEN + else + 'Setting these two shapes as transparent get the outlines to show correctly, but does not work when in SA + if (not(bInSA) OR isOffNormal) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_IndicatorRange").fillstyle = GSH_FILLTRANSPARENT + end if + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("outline_static").style.visibility = GSH_VISIBLE + end if + +'gsh_log_e("GSH_LevelAnalog_SAGauge_ShowHideComponents") +end sub + +sub GSH_QualityAnalog_SAGauge_ShowHideComponents(oShape, sAlarmCode, bInSA, isOffNormal) + + dim sHidePV + sHidePV = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPHIDEPV, GSH_CPVALUE) + if ((StrComp(sHidePV, GSH_ON,vbtextcompare) = 0) AND (StrComp(sAlarmCode, GSH_NONE,vbtextcompare) = 0) AND not(bInSA) AND (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + + oShape.objects("txt_PVvalue").style.visibility = GSH_HIDDEN + oShape.objects("outline").style.visibility = GSH_HIDDEN + oShape.objects("outline_static").style.visibility = GSH_HIDDEN + else + 'Setting these two shapes as transparent get the outlines to show correctly, but does not work when in SA + if (not(bInSA) OR isOffNormal) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_IndicatorRange").fillstyle = GSH_FILLTRANSPARENT + end if + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("outline_static").style.visibility = GSH_VISIBLE + end if + + +end sub + +sub GSH_OPDeviation_L1_ShowHideComponents(oShape, bInSA, isOffNormal) +'gsh_log_s("GSH_OPDeviation_L1_ShowHideComponents oShape = " &oShape.id & " bInSA = " &bInSA &" isOffNormal = " &isOffNormal) + dim sHidePV + sHidePV = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPHIDEPV, GSH_CPVALUE) + if ((StrComp(sHidePV, GSH_ON,vbtextcompare) = 0) AND not(bInSA) AND (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + + oShape.objects("txt_OPvalue").style.visibility = GSH_HIDDEN + oShape.objects("outline").style.visibility = GSH_HIDDEN + oShape.objects("txt_mode").style.visibility = GSH_HIDDEN + else + 'Setting these two shapes as transparent get the outlines to show correctly, but does not work when in SA + if (not(bInSA) OR isOffNormal) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_IndicatorRange").fillstyle = GSH_FILLTRANSPARENT + end if + oShape.objects("txt_OPvalue").style.visibility = GSH_VISIBLE + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("txt_mode").style.visibility = GSH_VISIBLE + end if + +'gsh_log_e("GSH_OPDeviation_L1_ShowHideComponents") +end sub + + +' +'GSH_SetObjectLocation_Vertical +'Calculate and set the location of the moving object in within the range object, in the vertical direction +' +'rangeObject: the range indicator object +'movingObject: is the shape whom location need to be set. +'value (double): the value need to determine where the moving object needed to be located +'rangeHi (double): max value of the range +'rangeLo (double): min value of the range +sub GSH_SetObjectLocation_Vertical(rangeObject, movingObject, value, rangeHi, rangeLo) +'gsh_log_s("GSH_SetObjectLocation_Vertical rangeObject = " &rangeObject.id &" movingObject = " &movingObject.id &" value = " &value &"rangeHi = " &rangeHi &"rangeLo = " &rangeLo) +On Error Resume Next + + Dim iNumPixels, iBottom + + iNumPixels = 0 + if (value > rangeHi) then + iNumPixels = rangeObject.style.pixelheight + ElseIf (value < rangeLo) then + iNumPixels = 0 + else + iNumPixels = (rangeObject.style.pixelheight * ((value - rangeLo) / (rangeHi - rangeLo))) + end if + iBottom = rangeObject.style.pixelheight + rangeObject.style.pixeltop + movingObject.style.pixeltop = iBottom - iNumPixels - (movingObject.style.pixelheight / 2) + + +' gsh_log_e("GSH_SetObjectLocation_Vertical movingObject.style.pixeltop = " &movingObject.style.pixeltop) + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SetObjectLocation_Vertical", movingObject) + end if +end sub + + +' +'GSH_SetObjectLocation_Horizontal +'Calculate and set the location of the moving object in within the range object, in the horizontal direction +' +'rangeObject: the range indicator object +'movingObject: is the shape which location need to be set. +'value (double): the value need to determine where the moving object needed to be located +'rangeHi (double): max value of the range +'rangeLo (double): min value of the range +sub GSH_SetObjectLocation_Horizontal(rangeObject, movingObject, value, rangeHi, rangeLo) +'gsh_log_s("GSH_SetObjectLocation_Horizontal rangeObject = " &rangeObject.id &" movingObject = " &movingObject.id &" value = " &value &"rangeHi = " &rangeHi &"rangeLo = " &rangeLo) +On Error Resume Next + + Dim iNumPixels + + iNumPixels = 0 + if (value > rangeHi) then + iNumPixels = rangeObject.style.pixelwidth + ElseIf (value < rangeLo) then + iNumPixels = 0 + else + iNumPixels = (rangeObject.style.pixelwidth * ((value - rangeLo) / (rangeHi - rangeLo))) + end if + + movingObject.style.pixelleft = rangeObject.style.pixelleft + iNumPixels - (movingObject.style.pixelwidth / 2) + + +' gsh_log_e("GSH_SetObjectLocation_Horizontal movingObject.style.pixelleft = " &movingObject.style.pixelleft) + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SetObjectLocation_Horizontal", movingObject) + end if +end sub + + + +' +'calculate and set location and width of the moving object within the range object (both location and width can variate). +'rMaxValue, rMinValue, rRangeHi, rRangeLo are doubles. +' +sub GSH_SetObjectLocationAndWidth_Horizontal(rangeObject, movingObject, rMaxValue, rMinValue, rRangeHi, rRangeLo) +On Error Resume Next +'gsh_log_s("GSH_SetObjectLocationAndWidth_Horizontal rangeObject = " &rangeObject.id &" movingObject = " &movingObject.id &" rMinValue = " &rMinValue &" rMaxValue = " &rMaxValue &"rRangeLo = " &rRangeLo &"rRangeHi = " &rRangeHi) + + Dim iWidth, iLeft, rRange + + if (rMaxValue > rRangeHi) then + rMaxValue = rRangeHi + end if + + if (rMinValue < rRangeLo) then + rMinValue = rRangeLo + end if + + rRange = rRangeHi - rRangeLo + + iWidth = rangeObject.style.pixelwidth * ((rMaxValue - rMinValue) / rRange) + + iLeft = rangeObject.style.pixelleft + rangeObject.style.pixelwidth * ((rMinValue - rRangeLo) / rRange) + + + movingObject.style.pixelwidth = iWidth + movingObject.style.pixelleft = iLeft + +'gsh_log_e("GSH_SetObjectLocationAndWidth_Horizontal") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SetObjectLocationAndWidth_Horizontal", movingObject) + end if + +end sub + + +function GSH_IsShapeInSA(iPV, iSAHi, iSALo) +' gsh_log_s("GSH_IsShapeInSA iPV = " &iPV &" iSAHi = " &iSAHi &" iSALo = " &iSALo) + + dim rPV, rSALo, rSAHi, bRetVal + rPV = CDbl(iPV) + rSALo = CDbl(iSALo) + rSAHi = CDbl(iSAHi) + bRetVal = false + + If ((rPV > rSAHi) Or (rPV < rSALo)) Then + bRetVal = true + End If + + +' gsh_log_e("GSH_IsShapeInSA bRetVal = " &bRetVal) + GSH_IsShapeInSA = bRetVal + +end function + +sub GSH_LevelRegCtl_SAGauge_InSA(oShape, iPV, iSAHi, iSALo) +' gsh_log_s("GSH_LevelRegCtl_SAGauge_InSA oShape="&oShape.id & " iPV = " &iPV &" iSAHi = " &iSAHi &" iSALo = " &iSALo) + + dim rPV, rSALo, rSAHi + rPV = CDbl(iPV) + rSALo = CDbl(iSALo) + rSAHi = CDbl(iSAHi) + + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + If ((rPV > rSAHi) Or (rPV < rSALo)) Then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("txt_Mode").style.visibility = GSH_VISIBLE + End If + + +' gsh_log_e("GSH_LevelRegCtl_SAGauge_InSA") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_LevelRegCtl_SAGauge_SetFocus",oShape) + end if + +end sub + +sub GSH_OPDeviation_SAGauge_InSA(oShape, iOP, iSAHi, iSALo) +' gsh_log_s("GSH_OPDeviation_SAGauge_InSA oShape="&oShape.id & " iOP = " &iOP &" iSAHi = " &iSAHi &" iSALo = " &iSALo) + + dim rOP, rSALo, rSAHi + rOP = CDbl(iOP) + rSALo = CDbl(iSALo) + rSAHi = CDbl(iSAHi) + + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + If ((rPV > rSAHi) Or (rPV < rSALo)) Then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("plg_RightCover").styleClass = GSH_CSSSAFILL + oShape.objects("plg_LeftCover").styleClass = GSH_CSSSAFILL + oShape.objects("line007").styleClass = GSH_CSSSAFILL + oShape.objects("line009").styleClass = GSH_CSSSAFILL + End If + + + +' gsh_log_e("GSH_OPDeviation_SAGauge_InSA") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_OPDeviation_SAGauge_InSA",oShape) + end if + +end sub + + +sub GSH_LevelRegCtl_SAGauge_RedrawPVRangeBar(oShape, recentPVMax, recentPVMin) +'gsh_log_s("GSH_LevelRegCtl_SAGauge_RedrawPVRangeBar oShape=" & oShape.id &" recentPVMax = " &recentPVMax &" recentPVMin = " &recentPVMin) + Dim iNumPixels, iBottom, iPVRangeBarHeight + Dim iRangeHi, iRangeLo, recentPVHi, recentPVLo + + iRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + iRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + recentPVHi = CDbl(recentPVMax) + recentPVLo = CDbl(recentPVMin) + + If(recentPVHi > iRangeHi) Then + recentPVHi = iRangeHi + End If + + If(recentPVLo < iRangeLo) Then + recentPVLo = iRangeLo + End If + + iPVRangeBarHeight = (oShape.objects("linePVRange").style.pixelheight * ((recentPVHi - recentPVLo) / (iRangeHi - iRangeLo))) + + If(iPVRangeBarHeight < 0.5) Then + oShape.objects("rec_RecentPVRangeBar").style.visibility = GSH_HIDDEN + Else + oShape.objects("rec_RecentPVRangeBar").style.visibility = GSH_VISIBLE + End If + + oShape.objects("rec_RecentPVRangeBar").style.pixelheight = iPVRangeBarHeight + + iNumPixels = (oShape.objects("linePVRange").style.pixelheight * ((iRangeHi - recentPVHi) / (iRangeHi - iRangeLo))) + + + oShape.objects("rec_RecentPVRangeBar").style.pixeltop = oShape.objects("linePVRange").style.pixeltop + iNumPixels + + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_LevelRegCtl_SAGauge_RedrawPVRangeBar",oShape) + end if + +'gsh_log_e("GSH_LevelRegCtl_SAGauge_RedrawPVRangeBar") +end sub + + +sub GSH_OPDeviation_SAGauge_RedrawOPRangeBar(oShape, recentOPMax, recentOPMin) +'gsh_log_s("GSH_OPDeviation_SAGauge_RedrawOPRangeBar oShape=" & oShape.id &" recentOPMax = " &recentOPMax &" recentOPMin = " &recentOPMin) + Dim iNumPixels, iBottom, iPVRangeBarHeight + Dim iRangeHi, iRangeLo, recentPVHi, recentPVLo + + iRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + iRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + recentOPHi = CDbl(recentOPMax) + recentOPLo = CDbl(recentOPMin) + + If(recentOPHi > iRangeHi) Then + recentOPHi = iRangeHi + End If + + If(recentOPLo < iRangeLo) Then + recentOPLo = iRangeLo + End If + + iRangeBarWidth = (oShape.objects("lineOPRange").style.pixelwidth * ((recentOPHi - recentOPLo) / (iRangeHi - iRangeLo))) + + If(iRangeBarWidth < 0.5) Then + oShape.objects("rec_RecentOPRangeBar").style.visibility = GSH_HIDDEN + Else + oShape.objects("rec_RecentOPRangeBar").style.visibility = GSH_VISIBLE + End If + + oShape.objects("rec_RecentOPRangeBar").style.pixelwidth = iRangeBarWidth + + iNumPixels = (oShape.objects("lineOPRange").style.pixelwidth * ((recentOPLo - iRangeLo) / (iRangeHi - iRangeLo))) + + + oShape.objects("rec_RecentOPRangeBar").style.pixelleft = oShape.objects("lineOPRange").style.pixelleft + iNumPixels + + 'oShape.objects("lineOPRange").style.pixelleft + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_OPDeviation_SAGauge_RedrawOPRangeBar",oShape) + end if + +'gsh_log_e("GSH_OPDeviation_SAGauge_RedrawOPRangeBar") +end sub + + + +sub GSH_LevelRegCtl_SAGauge_SetPVRangeBar(oShape, iPV) +'gsh_log_s("GSH_LevelRegCtl_SAGauge_RedrawPVRangeBar oShape=" & oShape.id &" iPV = " &iPV) + + 'Update recent PV values and reference time on the shape + 'We do not want shape to reload it self when Value changes, the changes will affect in next update + oShape.autoReloadContent=false + Dim lastRefTime, refTime + lastRefTime = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"LastRefTime", GSH_CPVALUE) + refTime = GSH_READREGISTRY(GSH_REGISTRY_BASE & GSH_REGISTRY_OPDEVMONITOR & GSH_REGKEY_OPDEVMON_RESETTIME, GSH_EMPTYSTRING) + + If(IsDate(lastRefTime) AND IsDate(refTime)) Then + 'reference time is reset + If(CDate(refTime) > CDate(lastRefTime)) Then + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentPVMax", GSH_CPVALUE, iPV) + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentPVMin", GSH_CPVALUE, iPV) + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "LastRefTime", GSH_CPVALUE, refTime) + oShape.objects("rec_RecentPVRangeBar").style.visibility = GSH_HIDDEN + Else + Dim recentPVMax, recentPVMin + recentPVMax = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"RecentPVMax", GSH_CPVALUE)) + recentPVMin = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"RecentPVMin", GSH_CPVALUE)) + + If(CDbl(recentPVMax) < CDbl(iPV)) Then + recentPVMax = iPV + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentPVMax", GSH_CPVALUE, iPV) + ElseIf(CDbl(recentPVMin) > CDbl(iPV)) Then + + recentPVMin = iPV + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentPVMin", GSH_CPVALUE, iPV) + End If + + 'redraw Recent PV Range bar + call GSH_LevelRegCtl_SAGauge_RedrawPVRangeBar(oShape, recentPVMax, recentPVMin) + End If + + Else + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentPVMax", GSH_CPVALUE, iPV) + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentPVMin", GSH_CPVALUE, iPV) + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "LastRefTime", GSH_CPVALUE, now) + oShape.objects("rec_RecentPVRangeBar").style.visibility = GSH_HIDDEN + End If + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_LevelRegCtl_SAGauge_SetPVRangeBar",oShape) + end if + +'gsh_log_e("GSH_LevelRegCtl_SAGauge_SetPVRangeBar") +end sub + + +sub GSH_OPDeviation_SAGauge_SetPVRangeBar(oShape, iOP) +'gsh_log_s("GSH_OPDeviation_SAGauge_SetPVRangeBar oShape=" & oShape.id &" iOP = " &iOP) +on Error resume next + 'Update recent PV values and reference time on the shape + 'We do not want shape to reload it self when Value changes, the changes will affect in next update + oShape.autoReloadContent=false + Dim lastRefTime, refTime + lastRefTime = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"LastRefTime", GSH_CPVALUE) + refTime = GSH_READREGISTRY(GSH_REGISTRY_BASE & GSH_REGISTRY_OPDEVMONITOR & GSH_REGKEY_OPDEVMON_RESETTIME, GSH_EMPTYSTRING) + + If(IsDate(lastRefTime) AND IsDate(refTime)) Then + 'reference time is reset + If(CDate(refTime) > CDate(lastRefTime)) Then + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentOPMax", GSH_CPVALUE, iOP) + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentOPMin", GSH_CPVALUE, iOP) + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "LastRefTime", GSH_CPVALUE, refTime) + oShape.objects("rec_RecentPVRangeBar").style.visibility = GSH_HIDDEN + Else + Dim recentMax, recentMin + recentMax = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"RecentOPMax", GSH_CPVALUE)) + recentMin = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"RecentOPMin", GSH_CPVALUE)) + + If(CDbl(recentMax) < CDbl(iOP)) Then + recentMax = iOP + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentOPMax", GSH_CPVALUE, iOP) + ElseIf(CDbl(recentMin) > CDbl(iOP)) Then + + recentMin = iOP + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentOPMin", GSH_CPVALUE, iOP) + End If + + 'redraw Recent PV Range bar + call GSH_OPDeviation_SAGauge_RedrawOPRangeBar(oShape, recentMax, recentMin) + End If + + Else + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentOPMax", GSH_CPVALUE, iOP) + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "RecentOPMin", GSH_CPVALUE, iOP) + call GSH_SETSHAPE_CUSTOM_PROPERTY(oShape, "LastRefTime", GSH_CPVALUE, now) + oShape.objects("rec_RecentOPRangeBar").style.visibility = GSH_HIDDEN + End If + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_OPDeviation_SAGauge_SetPVRangeBar",oShape) + end if + +'gsh_log_e("GSH_OPDeviation_SAGauge_SetPVRangeBar") +end sub + + +sub GSH_LevelRegCtl_QualitySAGauge_SetFocus(oShape) +'gsh_log_s("GSH_LevelRegCtl_QualitySAGauge_SetFocus oShape="&oShape.id) + + call GSH_SETSHAPEFOCUS(oShape) + + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_IndicatorRange").fillstyle = GSH_FILLTRANSPARENT +' oShape.objects("rec_IndicatorRange").style.visibility = GSH_VISIBLE + end if +' oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE +' oShape.objects("outline").style.visibility = GSH_VISIBLE + +'gsh_log_e("GSH_LevelRegCtl_QualitySAGauge_SetFocus") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_LevelRegCtl_SAGauge_SetFocus",oShape) + end if + +end sub + + + + + +sub GSH_QualitySAGauge_ShowSALimits(oShape, iSAHigh, iSALow) +'gsh_log_s("GSH_QualitySAGauge_ShowSALimits oShape=" & oShape.id &"iSAHi = " &iSAHigh &"iSALo = " &iSALow) + Dim iNumPixels, iLeft + Dim iRangeHi, iRangeLo, iSAHi, iSALo + + iRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + iRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + iSAHi = CDbl(iSAHigh) + iSALo = CDbl(iSALow) + + iNumPixels = 0 + if (iSAHi >= iRangeHi) then + iNumPixels = 0 + oShape.objects("rec_SAHigh").style.visibility = GSH_HIDDEN + ElseIf (iSAHi < iRangeLo) then + iNumPixels = oShape.objects("linePVRange").style.pixelwidth + else + iNumPixels = (oShape.objects("linePVRange").style.pixelwidth * ((iRangeHi - iSAHi) / (iRangeHi - iRangeLo))) + end if + + oShape.objects("rec_SAHigh").style.pixelleft = oShape.objects("linePVRange").style.pixelleft + oShape.objects("rec_SAHigh").style.pixelwidth = iNumPixels + iLeft = (oShape.objects("linePVRange").style.pixelwidth + oShape.objects("linePVRange").style.pixelleft) + oShape.objects("rec_SAHigh").style.pixelleft = iLeft - iNumPixels + + iNumPixels = 0 + if (iSALo > iRangeHi) then + iNumPixels = oShape.objects("linePVRange").style.pixelwidth + ElseIf (iSALo <= iRangeLo) then + oShape.objects("rec_SALow").style.visibility = GSH_HIDDEN + else + iNumPixels = (oShape.objects("linePVRange").style.pixelwidth * ((iSALo - iRangeLo) / (iRangeHi - iRangeLo))) + end if + + oShape.objects("rec_SALow").style.pixelwidth = iNumPixels + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_LevelIndicatorShowSALimits",oShape) + end if + +'gsh_log_e("GSH_QualitySAGauge_ShowSALimits") +end sub + + +' +'oShape: the HCS shape +'n: total number of alarm limit lines to show +sub GSH_SetAlarmLinesHorizontal(oShape, iRangeHi, iRangeLo, n) + + + dim alarmlim, alarmPri + alarmlim = 0: alarmPri = 0 + + for i = 1 to n + alarmPri = CDbl(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "ALARM" & i & "PRIORITY")) + + if (alarmPri > 0) and (alarmPri <=3) then + oShape.objects("LineAlarm"&i).style.visibility = GSH_VISIBLE + alarmlim = CDbl(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "AlarmLimit"&i)) + call GSH_SetObjectLocation_Horizontal(oShape.objects("linePVRange"), oShape.objects("LineAlarm"&i), alarmlim, iRangeHi, iRangeLo) + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + + next + +end sub + +' +'oShape: the HCS shape +'n: total number of alarm limit lines to show +sub GSH_SetAlarmLinesVertical(oShape, iRangeHi, iRangeLo, n) + + dim alarmlim, alarmPri + alarmlim = 0: alarmPri = 0 + + for i = 1 to n + alarmPri = CDbl(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "ALARM" & i & "PRIORITY")) + + if (alarmPri > 0) and (alarmPri <=3) then + + if not(oShape.objects("rec_DataScript").IsNan(GSH_CPENTITY & ".AlarmLimit" & i)) then + oShape.objects("LineAlarm"&i).style.visibility = GSH_VISIBLE + alarmlim = CDbl(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "AlarmLimit"&i)) + call GSH_SetObjectLocation_Vertical(oShape.objects("linePVRange"), oShape.objects("LineAlarm"&i), alarmlim, iRangeHi, iRangeLo) + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + + next + +end sub + + +sub GSH_QualitySAGauge_ShowPVFloat(oShape) +'gsh_log_s("GSH_QualitySAGauge_ShowPVFloat oShape=" & oShape.id) + Dim iNumPixels, iLeft + Dim iRangeHi, iRangeLo, iPV + 'Calculate pv value + iRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + iRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + iPV = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + iNumPixels = 0 + if (iPV > iRangeHi) then + iNumPixels = oShape.objects("linePVRange").style.pixelwidth + ElseIf (iPV < iRangeLo) then + iNumPixels = 0 + else + iNumPixels = (oShape.objects("linePVRange").style.pixelwidth * ((iPV - iRangeLo) / (iRangeHi - iRangeLo))) + end if + + oShape.objects("rec_IndicatorFloat").style.pixelleft = oShape.objects("linePVRange").style.pixelleft + iNumPixels - (oShape.objects("rec_IndicatorFloat").style.pixelwidth / 2) + +'gsh_log_e("GSH_QualitySAGauge_ShowPVFloat") +end sub + + + +'-------------------------------------START SCADA SPECIFIC ----------------------------------------------' +' .oooooo..o .oooooo. .o. oooooooooo. .o. +'d8P' `Y8 d8P' `Y8b .888. `888' `Y8b .888. +'Y88bo. 888 .8"888. 888 888 .8"888. +' `"Y8888o. 888 .8' `888. 888 888 .8' `888. +' `"Y88b 888 .88ooo8888. 888 888 .88ooo8888. +'oo .d8P `88b ooo .8' `888. 888 d88' .8' `888. +'8""88888P' `Y8bood8P' o88o o8888o o888bood8P' o88o o8888o +'------------------------------------------------------------------------------------------------------- + + + + + + + + +'------------------------------------------------------------------ +'SCADA L1 Shapes +'------------------------------------------------------------------ +sub GSH_SCADA_QualTrend_OnUpdate(oShape, flag) +'gsh_log_s("GSH_SCADA_QualTrend_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim isDataBad + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + call GSH_QualTrend_OnUpdate(oShape, flag, isDataBad) + +'gsh_log_e("GSH_SCADA_QualTrend_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SCADA_QualTrend_OnUpdate",oShape) + end if + +end sub + +sub GSH_SCADA_Quality_L1Deviation_FR_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_SCADA_Quality_L1Deviation_FR_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad, pvRefVal + isAlmEnabled = not(GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_datascript"))) + isOffNormal = false + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + pvRefVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"PVRefVal") + + call GSH_Quality_L1Deviation_FR_ONUPDATE(oShape, flag, isAlmEnabled, GSH_CPPARAM_PV, isOffNormal, isDataBad, pvRefVal) + + +'gsh_log_e("GSH_SCADA_Quality_L1Deviation_FR_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SCADA_Quality_L1Deviation_FR_ONUPDATE",oShape) + end if + +end sub + +sub GSH_SCADA_Quality_L1Deviation_Lo_ONUPDATE(oShape, flag) +'sh_log_s("GSH_SCADA_Quality_L1Deviation_Lo_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad, pvRefVal + isAlmEnabled = not(GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_datascript"))) + isOffNormal = false + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + pvRefVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"PVRefVal") + + call GSH_Quality_L1Deviation_Lo_ONUPDATE(oShape, flag, isAlmEnabled, GSH_CPPARAM_PV, isOffNormal, isDataBad, pvRefVal) + +'gsh_log_e("GSH_SCADA_Quality_L1Deviation_Lo_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SCADA_Quality_L1Deviation_Lo_ONUPDATE",oShape) + end if +end sub + +sub GSH_SCADA_Quality_L1Deviation_Hi_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_SCADA_Quality_L1Deviation_Hi_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad, pvRefVal + isAlmEnabled = not(GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_datascript"))) + isOffNormal = false + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + pvRefVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"PVRefVal") + + call GSH_Quality_L1Deviation_Hi_ONUPDATE(oShape, flag, isAlmEnabled, GSH_CPPARAM_PV, isOffNormal, isDataBad, pvRefVal) + + +'gsh_log_e("GSH_SCADA_Quality_L1Deviation_Hi_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SCADA_Quality_L1Deviation_Hi_ONUPDATE",oShape) + end if +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_QualityAnalog_L1Gauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_QualityAnalog_L1Gauge_FR_OnUpdate(oShape, flag) +'gsh_log_s("GSH_SCADA_QualityAnalog_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = not(GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_datascript"))) + isOffNormal = false + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + + call GSH_QualityAnalog_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, GSH_CPPARAM_PV, isOffNormal, isDataBad) + +'gsh_log_e("GSH_SCADA_QualityAnalog_L1Gauge_FR_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SCADA_QualityAnalog_L1Gauge_FR_OnUpdate",oShape) + end if + +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_LevelAnalog_SAGauge_FR_SCADA Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_LevelAnalog_L1Gauge_FR_OnUpdate(oShape, flag) +'gsh_log_s("GSH_SCADA_LevelAnalog_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = not(GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_datascript"))) + isOffNormal = false + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + + call GSH_LevelAnalog_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, GSH_CPPARAM_PV, isOffNormal, isDataBad) + +'gsh_log_e("GSH_SCADA_LevelAnalog_L1Gauge_FR_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SCADA_LevelAnalog_L1Gauge_FR_OnUpdate",oShape) + end if + + +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'LEVEL RegCtl GAUGE FULL RANGE Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_LevelRegCtl_L1Gauge_FR_OnUpdate(oShape, flag) +'gsh_log_s("GSH_SCADA_LevelRegCtl_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = not(GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_datascript"))) + isOffNormal = GSH_REGCTL_SCADA_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_CPPARAM_PV) + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + + call GSH_LevelRegCtl_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, GSH_CPPARAM_PV, isOffNormal, isDataBad) + +'gsh_log_e("GSH_SCADA_LevelRegCtl_L1Gauge_FR_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SCADA_LevelRegCtl_L1Gauge_FR_OnUpdate",oShape) + end if + + +end sub + +sub GSH_SALevelIndicatorRegulatoryControlShowNormal(oShape) +'gsh_log_s("GSH_SALevelIndicatorRegulatoryControlShowNormal") + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_IndicatorRange").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_IndicatorRange").style.visibility = GSH_VISIBLE + oShape.objects("txt_PVvalue").style.visibility = GSH_VISIBLE + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("txt_mode").style.visibility = GSH_VISIBLE + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN +' call GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) +'gsh_log_e("GSH_SALevelIndicatorRegulatoryControlShowNormal") +end sub + +sub GSH_SALevelIndicatorRegulatoryControlShowOffNormal(oShape) + oShape.objects("txt_mode").style.visibility = GSH_VISIBLE + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_ANALOGINDICATOR_SA_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_ANALOGINDICATOR_SA_SCADA_ONUPDATE (oShape, flag) +on error resume next + + call GSH_ANALOGINDICATOR_SCADA_ONUPDATE (oShape, flag) + + dim sAlarmCode, bInSA + bInSA = false + sAlarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_CPPARAM_PV) + + 'Check SA Bars Limit + rSAHi = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE))) + rSALo = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE))) + rPV = CDbl(FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV))) + + + If ((rPV > rSAHi) Or (rPV < rSALo)) Then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + bInSA = true + Else + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + End If + + if(not(bInSA) AND StrComp(sAlarmCode,GSH_NONE,vbtextcompare) <> 0) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + else + oShape.objects("outline").style.visibility = GSH_VISIBLE + end if + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_REGULATORYCONTROLINDICATOR_SA_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_REGULATORYCONTROLINDICATOR_SA_SCADA_ONUPDATE (oShape, flag) +on error resume next + + call GSH_REGULATORYCONTROLINDICATOR_SCADA_ONUPDATE (oShape, flag) + + dim sAlarmCode, bInSA + bInSA = false + sAlarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_CPPARAM_PV) + + 'Check SA Bars Limit + Dim rSAHi, rSALo, rPV + rSAHi = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE))) + rSALo = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE))) + rPV = CDbl(FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV))) + + If ((rPV > rSAHi) Or (rPV < rSALo)) Then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + bInSA = true + Else + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + End If + + if(not(bInSA) AND StrComp(sAlarmCode,GSH_NONE,vbtextcompare) <> 0) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + else + oShape.objects("outline").style.visibility = GSH_VISIBLE + end if + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DIGITALINDICATOR_L1_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DIGITALINDICATOR_L1_SCADA_ONUPDATE (oShape, flag) +on error resume next +'gsh_log_s("GSH_DIGITALINDICATOR_L1_SCADA_ONUPDATE oShape = " &oShape.id) + + call GSH_DIGITALINDICATOR_SCADA_ONUPDATE (oShape, flag) + + dim sPVState, sSAState + 'Check SA Condition + + sPVState = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + + Dim sTagname + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPENTITY, GSH_CPPOINT) + + 'gsh_log("sTagname = " &sTagname) + + sSAState = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_SA_STATE, GSH_NONE) + + 'gsh_log("sPVState " & sPVState & " sSAState = " &sSAState) + + If (StrComp(sPVState, sSAState, vbTextCompare) <> 0) Then + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + Else + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + End If + +' gsh_log_e("GSH_C200_DIGITALINDICATOR_L1_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_DIGITALINDICATOR_L1_SCADA_ONUPDATE",oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_OPDEVIATION_L1_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_OPDEVIATION_L1_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_SCADA_OPDEVIATION_L1_ONUPDATE oShape=" & oShape.id) +on error resume next + + dim isOffNormal + isOffNormal = GSH_SCADA_POINT_MODE_ISOFFNORMAL(oShape.objects("OPDevMonitor_Script")) + call GSH_OPDEVIATION_L1_ONUPDATE(oShape, flag, isOffNormal) + +'gsh_log_e("GSH_SCADA_OPDEVIATION_L1_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_SCADA_OPDEVIATION_L1_ONUPDATE",oShape) + end if +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_FIRSTOUT_ONUPDATE +'Update function for the shape SCADA_FIRSTOUT +'Parameter: Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_FIRSTOUT_ONUPDATE(oShape, flag) + If flag = 0 then + if GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) = 0 then + oShape.objects("lin_FirstOut").StyleClass = GSH_CSSFIRSTOUT_OFF + else + oShape.objects("lin_FirstOut").StyleClass = GSH_CSSFIRSTOUT_ON + end if + End If + If flag <= 1 then + call GSH_SETSHAPEFOCUS(oShape) + End If +end sub +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'SCADA_SPPVOPBAR Shape Specific Code +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SETSPINDICATOR_HORIZONTAL +'Determine the location of the SP float on a horizontal bar graph +'Parameter: Shape object, low limit, high limit. +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SETSPINDICATOR_HORIZONTAL(oShape, iRangeLo, iRangeHi) +'gsh_log_s("GSH_SETSPINDICATOR_HORIZONTAL oShape=" & oShape.id) + Dim iNumPixels, iXvalue, iSP + 'Calculate pv value +' gsh_log("iRangeHi=" & iRangeHi & ", iRangeLo=" & iRangeLo) + iSP = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SP) + if (iSP >= iRangeHi) then + iNumPixels = oShape.objects("ind_PVBar").style.pixelwidth + ElseIf (iSP <= iRangeLo) then + iNumPixels = 0 + else + iNumPixels = cint(oShape.objects("ind_PVBar").style.pixelwidth * ((iSP - iRangeLo) / (iRangeHi - iRangeLo))) + end if +' gsh_log("iNumPixels=" & iNumPixels) + iXvalue = oShape.objects("ind_PVBar").style.pixelLeft + oShape.objects("plg_SPIndicator").style.pixelLeft = iXvalue + iNumPixels - (oShape.objects("plg_SPIndicator").style.pixelwidth / 2) +' gsh_log(oShape.objects("plg_SPIndicator").id & " pixelLeft=" & oShape.objects("plg_SPIndicator").style.pixelLeft) +'gsh_log_e("GSH_SETSPINDICATOR_HORIZONTAL") +end sub +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +''''' Test if the SCADA_SPPVOPBAR is offnormal +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_SCADA_SPPVOPBAR_ISOFFNORMAL(oScriptDataObject) + + dim offNormalTest + offNormalTest = false + offNormalTest = GSH_SCADA_POINT_MODE_ISOFFNORMAL(oScriptDataObject) + + GSH_SCADA_SPPVOPBAR_ISOFFNORMAL = offNormalTest + +end function +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SCADA_SPPVOPBAR_ONUPDATE +'Update function for the shape SCADA_SPPVOPBAR +'Parameter: Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 06/15/07 Initialize alarm state with GSH_SHOWALARMS_WOOUTLINE +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SCADA_SPPVOPBAR_ONUPDATE(oShape, flag) + + If flag = 0 then + call GSH_SHOWALARMS_WOOUTLINE(GSH_NOALARMCODE,oShape) 'show normal + 'check if PV is bad then + if GSH_SCADA_ISDATABAD(oShape.objects("rec_DataScript"),true, false, false) or oShape.objects("rec_DataScript").IsNan(GSH_CPENTITY&"."&GSH_CPPARAM_PV) then + oShape.objects("ind_PVBar").value = 0 + oShape.objects("txtBadPV").style.visibility = GSH_VISIBLE + else + Dim iRangeHi, iRangeLo + iRangeHi = cint(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & ".EUHI")) + iRangeLo = cint(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & ".EULO")) + oShape.objects("ind_PVBar").value = Cint((GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)/(iRangeHi-iRangeLo))*100) + oShape.objects("txtBadPV").style.visibility = GSH_HIDDEN + end if + call GSH_SETSPINDICATOR_HORIZONTAL(oShape,iRangeLo,iRangeHi) + 'Alarming + if GSH_SCADA_IsAlarmingDisabled(oShape.objects("rec_DataScript")) Then + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_DISABLED + else + call GSH_SHOWALARMS_WOOUTLINE(GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY), oShape) + End If + End If + + If flag <= 1 then + call GSH_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_SCADA_SPPVOPBAR_ISOFFNORMAL(oShape.objects("rec_DataScript")) then + + 'alert("off normal") + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +end sub +'-------------------------------------START C200 SHAPE SPECIFIC----------------------------------------------' +' a88888b. d8888b. a8888a a8888a +'d8' `88 `88 d8' ..8b d8' ..8b +'88 .aaadP' 88 .P 88 88 .P 88 +'88 88' 88 d' 88 88 d' 88 +'Y8. .88 88. Y8'' .8P Y8'' .8P +' Y88888P' Y88888P Y8888P Y8888P +'------------------------------------------------------------------------------------------------------- + + + +'--------------------------------------------------------------------------- +'C200 L1 Shapes +'--------------------------------------------------------------------------- + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_LevelRegCtl_SAGauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_LevelRegCtl_SAGauge_FR_OnUpdate(oShape, flag) +'gsh_log_s("GSH_C200_LevelRegCtl_SAGauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = not(GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY)) + isOffNormal = GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + + call GSH_LevelRegCtl_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, GSH_EXPERION_PARAM_ALARMPRIORITY, isOffNormal, isDataBad) + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + +'gsh_log_e("GSH_C200_LevelRegCtl_SAGauge_FR_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_LevelRegCtl_SAGauge_FR_OnUpdate",oShape) + end if +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_LevelAnalog_L1Gauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_LevelAnalog_L1Gauge_FR_OnUpdate(oShape, flag) +'gsh_log_s("GSH_C200_LevelAnalog_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = not(GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY)) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + + call GSH_LevelAnalog_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, GSH_EXPERION_PARAM_ALARMPRIORITY, isOffNormal, isDataBad) + +' gsh_log_e("GSH_C200_LevelAnalog_L1Gauge_FR_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_LevelAnalog_L1Gauge_FR_OnUpdate",oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_QualityAnalog_L1Gauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_QualityAnalog_L1Gauge_FR_OnUpdate(oShape, flag) +'gsh_log_s("GSH_C200_QualityAnalog_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = not(GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY)) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + + + call GSH_QualityAnalog_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, GSH_EXPERION_PARAM_ALARMPRIORITY, isOffNormal, isDataBad) + +'gsh_log_e("GSH_C200_QualityAnalog_L1Gauge_FR_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_QualityAnalog_L1Gauge_FR_OnUpdate",oShape) + end if + +end sub + + + +sub GSH_C200_Quality_L1Deviation_FR_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_Quality_L1Deviation_FR_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = not(GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY)) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + pvRefVal = oShape.objects("rec_DataScript").DataValue("TargetEntity.PVRefVal") + + call GSH_Quality_L1Deviation_FR_ONUPDATE(oShape, flag, isAlmEnabled, GSH_EXPERION_PARAM_ALARMPRIORITY, isOffNormal, isDataBad, pvRefVal) + + +'gsh_log_e("GSH_C200_Quality_L1Deviation_FR_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_Quality_L1Deviation_FR_ONUPDATE",oShape) + end if + +end sub + + +sub GSH_C200_Quality_L1Deviation_Hi_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_C200_Quality_L1Deviation_Hi_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad, pvRefVal + isAlmEnabled = not(GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY)) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + pvRefVal = oShape.objects("rec_DataScript").DataValue("TargetEntity.PVRefVal") + + call GSH_Quality_L1Deviation_Hi_ONUPDATE(oShape, flag, isAlmEnabled, GSH_EXPERION_PARAM_ALARMPRIORITY, isOffNormal, isDataBad, pvRefVal) + +'gsh_log_e("GSH_C200_Quality_L1Deviation_Hi_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_Quality_L1Deviation_Hi_ONUPDATE",oShape) + end if +end sub + + + +sub GSH_C200_Quality_L1Deviation_Lo_ONUPDATE(oShape, flag) +'sh_log_s("GSH_C200_Quality_L1Deviation_Lo_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad, pvRefVal + isAlmEnabled = not(GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY)) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_SCADA_ISDATABAD(oShape.objects("rec_datascript"),true,false,false) + pvRefVal = oShape.objects("rec_DataScript").DataValue("TargetEntity.PVRefVal") + + call GSH_Quality_L1Deviation_Lo_ONUPDATE(oShape, flag, isAlmEnabled, GSH_EXPERION_PARAM_ALARMPRIORITY, isOffNormal, isDataBad, pvRefVal) + +'gsh_log_e("GSH_C200_Quality_L1Deviation_Lo_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_Quality_L1Deviation_Lo_ONUPDATE",oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_ANALOGINDICATOR_L1_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +' TODO: Need to refactor the code to make it efficient +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_ANALOGINDICATOR_L1_ONUPDATE (oShape, flag) +on error resume next + + call GSH_C200_ANALOGINDICATOR_ONUPDATE (oShape, flag) + + dim sAlarmCode, bInSA, bInOffnormal + bInSA = false + sAlarmCode = GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY) + bInOffnormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + + 'Check SA Bars Limit + rSAHi = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE))) + rSALo = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE))) + rPV = CDbl(FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV))) + + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + If ((rPV > rSAHi) Or (rPV < rSALo)) Then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + bInSA = true + End If + + + if(StrComp(sAlarmCode,GSH_NONE,vbtextcompare) <> 0 AND (bInOffnormal OR not(bInSA))) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + else + oShape.objects("outline").style.visibility = GSH_VISIBLE + end if + +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_DIGITALINDICATOR_L1_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_DIGITALINDICATOR_L1_ONUPDATE (oShape, flag) +on error resume next +'gsh_log_s("GSH_C200_DIGITALINDICATOR_L1_ONUPDATE oShape = " &oShape.id) + + call GSH_C200_DIGITALINDICATOR_ONUPDATE (oShape, flag) + + dim sAlarmCode, bInSA, bInOffnormal + bInSA = false + sAlarmCode = GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")) + bInOffnormal = GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, oShape.objects("txt_PVvalue").value) + + dim sPVState, sSAState + 'Check SA Condition + sPVState = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + + Dim sTagname + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPENTITY, GSH_CPPOINT) + +' gsh_log("sTagname = " &sTagname) + + sSAState = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_SA_STATE, GSH_NONE) + +' gsh_log("sPVState " & sPVState & " sSAState = " &sSAState) + + If (StrComp(sPVState, sSAState, vbTextCompare) <> 0) Then + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + Else + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + bInSA = true + End If + + if(StrComp(sAlarmCode,GSH_NONE,vbtextcompare) <> 0 AND (bInOffnormal OR not(bInSA))) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + else + oShape.objects("outline").style.visibility = GSH_VISIBLE + end if + +' gsh_log_e("GSH_C200_DIGITALINDICATOR_L1_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_DIGITALINDICATOR_L1_ONUPDATE",oShape) + end if +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_OPDEVIATION_L1_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_OPDEVIATION_L1_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_C200_OPDEVIATION_L1_ONUPDATE oShape=" & oShape.id) +on error resume next + + dim isOffNormal + isOffNormal = GSH_C200_ANALOG_MODE_ISOFFNORMAL(oShape.objects("OPDevMonitor_Script"), GSH_CPENTITY) + + call GSH_OPDEVIATION_L1_ONUPDATE (oShape, flag, isOffNormal) + +'gsh_log_e("GSH_C200_OPDEVIATION_L1_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_OPDEVIATION_L1_ONUPDATE",oShape) + end if +end sub +' +'oShape: the HCS shape +'n: total number of alarm limit lines to show +sub GSH_C200_SetAlarmLinesHorizontal(oShape, iRangeHi, iRangeLo, n) + dim alarmlim, alarmPri + alarmlim = 0: alarmPri = 0 + for i = 1 to n + alarmPri = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_AlarmPriority" & i)) + if (alarmPri > 0) and (alarmPri <=4) then + if not(oShape.objects("rec_DataScript").IsNan(GSH_CPENTITY & ".CP_AlarmLimit" & i)) then + alarmlim = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_AlarmLimit" & i)) + oShape.objects("LineAlarm"&i).style.visibility = GSH_VISIBLE + call GSH_SetObjectLocation_Horizontal(oShape.objects("linePVRange"), oShape.objects("LineAlarm"&i), alarmlim, iRangeHi, iRangeLo) + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + next +end sub + +sub GSH_C200_SetAlarmLinesVertical(oShape, rRangeHi, rRangeLo, n) +On Error Resume Next +'gsh_log_s("GSH_C200_SetAlarmLinesVertical oShape="&oShape.id) + dim alarmlim, alarmPri + alarmlim = 0: alarmPri = 0 + for i = 1 to n + alarmPri = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_AlarmPriority" & i)) + if (alarmPri > 0) and (alarmPri <=4) then + if not(oShape.objects("rec_DataScript").IsNan(GSH_CPENTITY & ".CP_AlarmLimit" & i)) then + oShape.objects("LineAlarm"&i).style.visibility = GSH_VISIBLE + alarmlim = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_AlarmLimit" & i)) + call GSH_SetObjectLocation_Vertical(oShape.objects("linePVRange"), oShape.objects("LineAlarm"&i), alarmlim, rRangeHi, rRangeLo) + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + next +'gsh_log_e("GSH_C200_SetAlarmLinesVertical") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_SetAlarmLinesVertical",oShape) + end if +end sub + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_SPPVOPBAR_ONUPDATE +'Update function for the shape SCADA_SPPVOPBAR +'Parameter: Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 07/31/2007 - Create this new shape & Add code to handle it (Cuong Ly) +' 09/03/2007 - Changed cint function to use int function as cint function +' can not handle large number (example 150000) (CL) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_SPPVOPBAR_ONUPDATE(oShape, flag) + +'gsh_log_s("GSH_C200_SPPVOPBAR_ONUPDATE ") + + If flag = 0 then + call GSH_SHOWALARMS_WOOUTLINE(GSH_NOALARMCODE,oShape) 'show normal + 'check if PV is bad then + If GSH_C200_REGCTL_ISDATABAD(oShape.objects("rec_DataScript"),true,false,false) Then + oShape.objects("ind_PVBar").value = 0 + oShape.objects("txtBadPV").style.visibility = GSH_VISIBLE + else + Dim iRangeHi, iRangeLo + + iRangeHi = int(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & ".DACA.PVEUHI")) + iRangeLo = int(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & ".DACA.PVEULO")) + oShape.objects("ind_PVBar").value = int((GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)/(iRangeHi-iRangeLo))*100) + oShape.objects("txtBadPV").style.visibility = GSH_HIDDEN +' gsh_log "iRangeHi="&iRangeHi-iRangeLo&", iRangeLo="&iRangeLo& ", PV="& GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) &", PVBar="& Cint((GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)/(iRangeHi-iRangeLo))*100) + End if + + call GSH_SETSPINDICATOR_HORIZONTAL(oShape,iRangeLo,iRangeHi) + End If + + If flag <= 1 then + + 'Alarming + if GSH_C200_ISALARMINGDISABLEDPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) Then + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_DISABLED + else + call GSH_SHOWALARMS_WOOUTLINE(GSH_C200_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY), oShape) + End If + + call GSH_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + 'TODO: Need to be tested + 'Check the point ramping + Select Case GSH_GET_POINT_RAMPING_VALUE(oShape.objects("rec_DataScript")) + Case GSH_RAMPING_RUN + call GSH_REGULATORYCONTROLINDICATORSHOW_RAMP(oShape,Left(GSH_RAMPING_RUN,1)) + Case GSH_RAMPING_PRESET + call GSH_REGULATORYCONTROLINDICATORSHOW_RAMP(oShape,Left(GSH_RAMPING_PRESET,1)) + Case else + oShape.objects("txt_ramp").style.visibility = GSH_HIDDEN + end Select + + End If +'gsh_log_e("GSH_C200_SPPVOPBAR_ONUPDATE ") +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_OPDEVMONITOR_ONUPDATE +'Update function for the shape GSH_C200_OPDEVIATION +'05/16/2008 - Create this new shape & Add code to handle it (Cuong Ly) +' +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_OPDEVMONITOR_ONUPDATE(oShape, flag) +' gsh_log_s("GSH_C200_OPDEVMONITOR_ONUPDATE oShapeId =" &oShape.id) + + call GSH_C200_OPDEVMONITOR_SHOWNORMAL(oShape) + ' No alarm checking (OK by Jamie) + + If flag <=1 then + + 'Do focus and offnormal checking here. It is important that all shape generic functionalities are + 'done before shape specific ones + call GSH_SETSHAPEFOCUS(oShape) + + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline +' oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("plg_LeftCover001").styleClass = GSH_CSSFOCUSASSOCIATED + oShape.objects("plg_LeftCover002").styleClass = GSH_CSSFOCUSASSOCIATED + oShape.objects("line007").styleClass = GSH_CSSFOCUSASSOCIATED + oShape.objects("line009").styleClass = GSH_CSSFOCUSASSOCIATED + end if + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_ANALOG_MODE_ISOFFNORMAL(oShape.objects("OPDevMonitor_Script"), GSH_CPENTITY) then + + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End if + + If flag = 0 then + + 'We do not want shape to reload it self when Value changes, the changes will affect in next update + oShape.autoReloadContent=false + + 'Get OP value + dim opRefVal, deadBand, filterVal, lastRefTime, diff_old + + 'Get the Deadband, filter, OPRefVal and the lastRefTime + + opRefVal = Cdbl(oShape.GetCustomProperty("Value","OPRefVal")) + deadBand = Cdbl(oShape.GetCustomProperty("Value","DeadBand")) + filterVal = oShape.GetCustomProperty("Value","Filter") + lastRefTime = oShape.GetCustomProperty("Value","LastRefTime") + diff_old = oShape.GetCustomProperty("Value","Diff_Old") + + dim diff_cur, deviation, opVal, diff_prev + opVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("OPDevMonitor_Script"),GSH_CPPARAM_OP) + + if(StrComp(opVal,GSH_BADPV_TEXT, vbtextcompare)=0) then + exit sub + end if + + 'Reference OP value is not set, + if(opRefVal < -99.0) then + opRefVal = opVal + oShape.SetCustomProperty "Value","OPRefVal",opVal + oShape.SetCustomProperty "Value","LastRefTime",now + oShape.objects("plg_OPRefValue").style.pixelleft = GSH_GET_OPREFPOSITION(oShape,opRefVal) + exit sub + end if + + 'Get the RefTime from Registry. + dim opDevMonRegistryBase, refTime + opDevMonRegistryBase = GSH_REGISTRY_BASE & GSH_REGISTRY_OPDEVMONITOR + refTime = GSH_READREGISTRY(opDevMonRegistryBase & GSH_REGKEY_OPDEVMON_RESETTIME, GSH_EMPTYSTRING) + + 'If the RefTime > lastRefTime then update OPRefVal to current OPVal & update lastRefTime to RefTime + 'Need to give it a time buffer (i.e within 10s)? + if((StrComp(refTime,GSH_EMPTYSTRING)<>0) AND (CDate(refTime) > CDate(lastRefTime))) then + oShape.SetCustomProperty "Value","OPRefVal",opVal + opRefVal = opVal + oShape.SetCustomProperty "Value","LastRefTime",refTime + oShape.SetCustomProperty "Value","Diff_Old",0 + diff_old = 0 + oShape.objects("plg_OPRefValue").style.pixelleft = GSH_GET_OPREFPOSITION(oShape,opRefVal) + end if + + 'Calculate OPDeviation + diff_prev = diff_old + diff_cur = opVal - opRefVal + diff_old = (diff_cur + diff_old)*filterVal + oShape.SetCustomProperty "Value","Diff_Old", diff_old + +' gsh_log("diff_cur = " &diff_cur &" diff_old = " &diff_old &" diff_prev = " &diff_prev) + + 'Set ButterFlies + if diff_cur > 0 then + oShape.objects("ind_OPDevBarRight").value = diff_cur + oShape.objects("ind_OPDevBarLeft").value = 0 + elseif diff_cur < 0 then + oShape.objects("ind_OPDevBarRight").value = 0 + oShape.objects("ind_OPDevBarLeft").value = diff_cur + else + oShape.objects("ind_OPDevBarRight").value = 0 + oShape.objects("ind_OPDevBarLeft").value = 0 + end if + + 'Set arrows - TODO: should this compare absolute value? + if ((diff_cur-diff_prev) > deadBand) then + 'set arrow to right + oShape.objects("grp_RightArrow").style.visibility = GSH_VISIBLE + oShape.objects("grp_LeftArrow").style.visibility = GSH_HIDDEN + elseif ((diff_prev - diff_cur) > deadBand) then + 'set arrow to the left + oShape.objects("grp_RightArrow").style.visibility = GSH_HIDDEN + oShape.objects("grp_LeftArrow").style.visibility = GSH_VISIBLE + else + 'hide arrows + oShape.objects("grp_RightArrow").style.visibility = GSH_HIDDEN + oShape.objects("grp_LeftArrow").style.visibility = GSH_HIDDEN + end if + + End If + +' gsh_log_e("GSH_C200_OPDEVMONITOR_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_C200_OPDEVMONITOR_ONUPDATE",oShape) + end if + +end sub + + +function GSH_GET_OPREFPOSITION(oShape, opRefVal) + + dim newPosition + dim opBarLeftPixel, opBarWidthPixel + opBarLeftPixel = oShape.objects("ind_OPBar").style.pixelleft + opBarWidthPixel = oShape.objects("ind_OPBar").style.pixelwidth + + if opRefVal <= 0 then + newPosition = opBarLeftPixel - 2 'There is a little offset + elseif opRefVal >= 100 then + newPosition = opBarWidthPixel + 2 'There is a little offset + else + newPosition = cint(opBarLeftPixel + (opBarWidthPixel - opBarLeftPixel)*(CInt(opRefVal))/100) + end if + + GSH_GET_OPREFPOSITION = newPosition + +end function + + +sub GSH_C200_OPDEVMONITOR_SHOWNORMAL(oShape) +'gsh_log_s("GSH_C200_OPDEVMONITOR_SHOWNORMAL oShapeID = " &oShape.id) + + oShape.objects("focus").style.visibility = GSH_HIDDEN + oShape.objects("grp_RightArrow").style.visibility = GSH_HIDDEN + oShape.objects("grp_LeftArrow").style.visibility = GSH_HIDDEN + oShape.objects("plg_LeftCover001").styleClass = GSH_CSSBACKGROUND_GRAY + oShape.objects("plg_LeftCover002").styleClass = GSH_CSSBACKGROUND_GRAY + oShape.objects("line007").styleClass = GSH_CSSBACKGROUND_GRAY + oShape.objects("line009").styleClass = GSH_CSSBACKGROUND_GRAY +' oShape.objects("ind_OPDevBarRight").value = 10 +' oShape.objects("ind_OPDevBarLeft").value = -10 +' call GSH_SHOWNOALARM(oShape) +'gsh_log_s("GSH_C200_OPDEVMONITOR_SHOWNORMAL") + +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_OPDEVIATIONRESET +'Update function for the shape GSH_C200_OPDEVIATIONRESET +'05/14/2008 - Create this new shape & Add code to handle it (Cuong Ly) +' +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_OPDEVIATIONRESET_ONLOAD(oShape) +' gsh_log_s("GSH_C200_OPDEVIATIONRESET_ONLOAD oShapeId =" &oShape.id) + + dim opDevMonRegistryBase + opDevMonRegistryBase = GSH_REGISTRY_BASE & GSH_REGISTRY_OPDEVMONITOR + + 'Set ResetTime and ResetDate to current time + GSH_WRITETOREGISTRY opDevMonRegistryBase & GSH_REGKEY_OPDEVMON_RESETTIME, Now,"REG_SZ" + oShape.objects("RefTime").value = FormatDateTime(now,vbShortDate) & " " &FormatDateTime(now,vbShortTime) + +' gsh_log_e("GSH_C200_OPDEVIATIONRESET_ONLOAD RefDate = " &Date &" RefTime = " &Time) + +end sub + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_C200_OPDEVIATIONRESET_ONCLICK +'Update function for the shape GSH_C200_OPDEVIATIONRESET +'05/14/2008 - Create this new shape & Add code to handle it (Cuong Ly) +' +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_C200_OPDEVIATIONRESET_ONCLICK(oShape) +' gsh_log_s("GSH_C200_OPDEVIATIONRESET_ONCLICK oShapeId =" &oShape.id) + + dim opDevMonRegistryBase + opDevMonRegistryBase = GSH_REGISTRY_BASE & GSH_REGISTRY_OPDEVMONITOR + + 'Set ResetTime and ResetDate to current time + GSH_WRITETOREGISTRY opDevMonRegistryBase & GSH_REGKEY_OPDEVMON_RESETTIME, Now,"REG_SZ" + oShape.objects("RefTime").value = FormatDateTime(now,vbShortDate) & " " &FormatDateTime(now,vbShortTime) + + 'Ask all the OPDevMonitor shapes to update themselves + GSH_UPDATE_OPDEVMON_ONDISPLAY("") + 'and other shapes as well + GSH_UPDATESHAPESONDISPLAY("") +' gsh_log_e("GSH_C200_OPDEVIATIONRESET_ONCLICK RefDate = " &Date &" RefTime = " &Time) + +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TRENDTARGET_CLICK +'06/01/07 Remove sPathPrefix because its not being used. +'06/01/07 Added sTagNameHDA from the TagInformation because the Historian names do not match the tagname +'06/01/07 parse out the function block for storing the itemAlias +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TRENDTARGET_CLICK(oShape) + Dim nCount, i, istrLen, iPosition, nNoOfTrends + Dim asTraceNames(9), asTrendParams(9), arAutoscale(9), anLower(9), anUpper(9) + Dim asStepped(9), asTrace(9), asTraceParams(9), asTraceNameAlias(9), asPVFormat(9), asTrendParamShort(9) + + Dim sOPC1_PathPrefix,sOPC2_PathPrefix, sTagNameHDA + sOPC1_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY1PREFIX,"") + sOPC2_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY2PREFIX,"") + bUseShortNameForHDA = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_USESHORTNAME_FOR_HDAPATH,"") + + nNoOfTrends = 8 + for i = 1 to nNoOfTrends + asTraceNames(i) = ucase(oShape.GetCustomProperty("Value","TrendTag"&i)) + asTrendParams(i) = oShape.GetCustomProperty("Value","TrendTag"&i&"Param") + arAutoscale(i) = oShape.GetCustomProperty("Value","Autoscale"& i) + anLower(i) = oShape.GetCustomProperty("Value","Lower"&i) + anUpper(i) = oShape.GetCustomProperty("Value","Upper"&i) + Next + + For nCount=1 To nNoOfTrends + If Left(asTraceNames(nCount),1) <> "" Then + asTraceParams(nCount) = ucase(GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount),GSH_REGKEY_TRENDPARAM & asTrendParams(nCount), "1")) + 'msgbox ("asTraceParams(nCount) = " & nCount & ", " & asTraceParams(nCount) ) + istrLen = len(cstr(asTraceParams(nCount))) + iPosition= Instr(1, asTraceParams(nCount) , ".",vbtextcompare) + asTrendParamShort(nCount) = right(asTraceParams(nCount), istrLen - iPosition) + + 'msgbox ("asTrendParamShort(nCount) = " & nCount & ", " & asTrendParamShort(nCount) ) + + asStepped(nCount) = GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount),GSH_REGKEY_TRENDSTEPPED & asTrendParams(nCount), "OFF") + asPVFormat(nCount) = GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount),GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT) + asTraceNameAlias(nCount) = GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount), GSH_REGKEY_TAGNAME_ALIAS, asTraceNames(nCount)) + sTagNameHDA = GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount),GSH_REGKEY_TAGNAMEHDA, asTraceNames(nCount)) + + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, asTraceNameAlias(nCount) & "." & asTrendParamShort(nCount) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPCITEMPATH, sOPC1_PathPrefix& asTraceNames(nCount) & "." & asTraceParams(nCount) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPC2ITEMPATH, sOPC2_PathPrefix &asTraceNames(nCount) & "." & asTraceParams(nCount) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, GSH_ON + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TRENDSTEPPED, asStepped(nCount) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_PVFORMATKEY, asPVFormat(nCount) + + 'Added 09/09/2008 (JE) to work with Sasol PHD historian interface + 'Issue#21: http://wss-edm-1/clients/hcs/services/ISE-HCS8227/ClientProjectAccess/Lists/Issue%20Tracker/DispForm.aspx?ID=21 + If(UCASE(bUseShortNameForHDA) = "ON") then + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTrendParamShort(nCount) + Else + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTraceParams(nCount) + End If + + If arAutoscale(nCount) <> 1 Then + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, "OFF" + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMAX, anUpper(nCount) + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMIN, anLower(nCount) + Else + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, "ON" + End If + Else + GSH_SETDEMANDTREND GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, GSH_OFF + End If + Next +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TRENDTARGET_VARIN_CLICK +' Feb. 27, 2008 Created to handle OVTrends as wells DemandTrend configuration - JE +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TRENDTARGET_VARIN_CLICK(oShape) + Dim nCount, i, istrLen, iPosition, nNoOfTrends + Dim asTraceNames(9), asTrendParams(9), arAutoscale(9), anLower(9), anUpper(9) + Dim asStepped(9), asTrace(9), asTraceParams(9), asTraceNameAlias(9), asPVFormat(9), asTrendParamShort(9) + Dim aTrendApp + + Dim sOPC1_PathPrefix,sOPC2_PathPrefix, sTagNameHDA, bUseShortNameForHDA + sOPC1_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY1PREFIX,"") + sOPC2_PathPrefix = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_OPCKEY2PREFIX,"") + bUseShortNameForHDA = GSH_READREGISTRY(GSH_REGISTRY_TRENDCONFIG&GSH_REGKEY_USESHORTNAME_FOR_HDAPATH,"") + aTrendApp = ucase(oShape.GetCustomProperty("Value","TrendApp")) + + nNoOfTrends = 8 + for i = 1 to nNoOfTrends + asTraceNames(i) = ucase(oShape.GetCustomProperty("Value","TrendTag"&i)) + asTrendParams(i) = oShape.GetCustomProperty("Value","TrendTag"&i&"Param") + arAutoscale(i) = oShape.GetCustomProperty("Value","Autoscale"&i) + anLower(i) = oShape.GetCustomProperty("Value","Lower"&i) + anUpper(i) = oShape.GetCustomProperty("Value","Upper"&i) + Next + + For nCount=1 To nNoOfTrends + If Left(asTraceNames(nCount),1) <> "" Then + asTraceParams(nCount) = ucase(GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount),GSH_REGKEY_TRENDPARAM & asTrendParams(nCount), "1")) + istrLen = len(cstr(asTraceParams(nCount))) + iPosition= Instr(1, asTraceParams(nCount) , ".",vbtextcompare) + asTrendParamShort(nCount) = right(asTraceParams(nCount), istrLen - iPosition) + asStepped(nCount) = GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount),GSH_REGKEY_TRENDSTEPPED & asTrendParams(nCount), "OFF") + asPVFormat(nCount) = GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount),GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT) + asTraceNameAlias(nCount) = GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount), GSH_REGKEY_TAGNAME_ALIAS, asTraceNames(nCount)) + sTagNameHDA = GSH_READTAGINFORMATIONKEYVALUE(asTraceNames(nCount),GSH_REGKEY_TAGNAMEHDA, asTraceNames(nCount)) + + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ITEMALIAS, asTraceNameAlias(nCount) & "." & asTrendParamShort(nCount) + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPCITEMPATH, sOPC1_PathPrefix& asTraceNames(nCount) & "." & asTraceParams(nCount) + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_OPC2ITEMPATH, sOPC2_PathPrefix &asTraceNames(nCount) & "." & asTraceParams(nCount) + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, GSH_ON + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TRENDSTEPPED, asStepped(nCount) + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_PVFORMATKEY, asPVFormat(nCount) + + 'Added 09/09/2008 (JE) to work with Sasol PHD historian interface + 'Issue#21: http://wss-edm-1/clients/hcs/services/ISE-HCS8227/ClientProjectAccess/Lists/Issue%20Tracker/DispForm.aspx?ID=21 + If(UCASE(bUseShortNameForHDA) = "ON") then + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTrendParamShort(nCount) + Else + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_HDAPATH, sTagNameHDA & "." & asTraceParams(nCount) + End If + + If arAutoscale(nCount) <> 1 Then + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, "OFF" + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMAX, anUpper(nCount) + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_TREND_YMIN, anLower(nCount) + Else + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_AUTOSCALE, "ON" + End If + Else + GSH_SETANYTREND aTrendApp,GSH_REGKEY_TRENDTRACE & nCount,GSH_REGKEY_ACTIVE, GSH_OFF + End If + Next +end sub + + + +Sub GSH_SV_RESET_LCLICK (oShape) +'gsh_log_s("GSH_SV_RESET_LCLICK oShape = "& oShape.id) + + Dim sT2DisplayName, sT3DisplayName, sT4DisplayName, sDispLocation, sDisplayName + sDispLocation = GSH_READDISPLAYNAMES("") + sT2DisplayName = oShape.GetCustomProperty("Value","L2_DisplayName") + sT3DisplayName = oShape.GetCustomProperty("Value","L3_DisplayName") + sT4DisplayName = oShape.GetCustomProperty("Value","L4_DisplayName") + + + sTemp = sDispLocation & sT2DisplayName & ".htm" + If sT2DisplayName <> "" Then + window.navigate(sTemp) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T2FN,sT2DisplayName) + End if + sTemp = sDispLocation & sT3DisplayName & ".htm" + If sT3DisplayName <> "" Then + window.navigate(sTemp) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T3FN,sT3DisplayName) + End if + sTemp = sDispLocation & sT4DisplayName & ".htm" + if sT4DisplayName <> "" Then + window.navigate(sTemp) + call GSH_WRITEDISPLAYCOMMUNICATIONKEYVALUE (GSH_REGKEY_T4FN,sT4DisplayName) + End if +'gsh_log_e("GSH_GSH_SV_RESET_LCLICK") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_CVINDICATOR_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'11July2008 Created shape for SASOL RMPCT +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_CVINDICATOR_SCADA_ONUPDATE (oShape, flag) +on error resume next + + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'cv Status + Dim Status + Status = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "Status") + + HighLimit = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "HighLimit")) + LowLimit = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "LowLimit")) + ReadValue = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "READVALUE")) + + dim sEntityPoint + sEntityPoint = UCASE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY)) + if strcomp(sEntityPoint, "", vbtextcompare) <> 0 then + EUHigh = csng(GSH_READTAGINFORMATIONKEYVALUE(sEntityPoint, "EUHigh", 100.0)) + EULow = csng(GSH_READTAGINFORMATIONKEYVALUE(sEntityPoint, "EULow", 0.0)) + end if + + 'ReadValue Data Check + If GSH_C200_ANALOG_ISDATABAD(ReadValue,true,false,false) Then + oShape.objects("txt_ReadValue").value = GSH_FormatPVText(oShape,ReadValue) + else + oShape.objects("txt_ReadValue").value = "---" + End If + + If HighLimit > EUHigh then ' not active - no constraint + HighLimit = EUHigh + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + else + if ReadValue > HighLimit then + oShape.objects("plg_opHigh").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + end if + end if + + If LowLimit < EULow then ' not active + LowLimit = EULow + oShape.objects("plg_opLow").style.visibility = GSH_HIDDEN + else + if ReadValue < LowLimit then + oShape.objects("plg_opLow").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_opLow").style.visibility = GSH_HIDDEN + end if + end if + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) and strComp(Status,"GOOD",vbtextCompare)<> 0 then + call GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL(oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_CVLABEL_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'18July2008 Created shape for SASOL RMPCT +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_CVLABEL_SCADA_ONUPDATE (oShape, flag) +on error resume next + + 'Focus + call GSH_ValveRegulatoryControlSetFocus(oShape) + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'cv Status + Dim Status + Status = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "Status") + + HighLimit = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "HighLimit")) + LowLimit = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "LowLimit")) + ReadValue = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "READVALUE")) + + dim sEntityPoint + sEntityPoint = UCASE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY)) + if strcomp(sEntityPoint, "", vbtextcompare) <> 0 then + EUHigh = csng(GSH_READTAGINFORMATIONKEYVALUE(sEntityPoint, "EUHigh", 100.0)) + EULow = csng(GSH_READTAGINFORMATIONKEYVALUE(sEntityPoint, "EULow", 0.0)) + end if + + If HighLimit > EUHigh then ' not active - no constraint + HighLimit = EUHigh + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + else + if ReadValue > HighLimit then + oShape.objects("plg_opHigh").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + end if + end if + + If LowLimit < EULow then ' not active + LowLimit = EULow + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + else + if ReadtValue < LowLimit then + oShape.objects("plg_opLow").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_opLow").style.visibility = GSH_HIDDEN + end if + end if + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) and strComp(Status,"GOOD",vbtextCompare)<> 0 then + call GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL(oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MVINDICATOR_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'11July2008 Created shape for SASOL RMPCT +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MVINDICATOR_SCADA_ONUPDATE (oShape, flag) +on error resume next + + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + call GSH_GEN_SETSHAPEFOCUS(oShape) + + Dim Status + Status = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "Status") + + HighLimit = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "HighLimit")) + LowLimit = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "LowLimit")) + SentValue = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "SentValue")) + + 'SentValue Data Check + If GSH_C200_ANALOG_ISDATABAD(SentValue,true,false,false) Then + oShape.objects("txt_SentValue").value = GSH_FormatPVText(oShape,SentValue) + else + oShape.objects("txt_SentValue").value = "---" + End If + + dim sEntityPoint + sEntityPoint = UCASE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY)) + if strcomp(sEntityPoint, "", vbtextcompare) <> 0 then + EUHigh = csng(GSH_READTAGINFORMATIONKEYVALUE(sEntityPoint, "EUHigh", 100.0)) + EULow = csng(GSH_READTAGINFORMATIONKEYVALUE(sEntityPoint, "EULow", 0.0)) + end if + + Range = EUHigh - EULow + + If HighLimit > EUHigh then ' not active - no constraint + HighLimit = EUHigh + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + else + if ((abs(HighLimit - SentValue)/Range) < 0.03) or (tempSentValue > tempHighLimit) then + oShape.objects("plg_opHigh").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + end if + end if + + If LowLimit < EULow then ' not active + LowLimit = EULow + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + else + if ((abs(LowLimit - SentValue)/Range) < 0.03) or (tempSentValue < tempLowLimit) then + oShape.objects("plg_opLow").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_opLow").style.visibility = GSH_HIDDEN + end if + end if + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL)then + If strComp(Status, "ON",vbtextCompare)<> 0 then + call GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL(oShape) + end if + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_MVLABEL_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'18July2008 Created shape for SASOL RMPCT +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_MVLABEL_SCADA_ONUPDATE (oShape, flag) +on error resume next + + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + + call GSH_GEN_SETSHAPEFOCUS(oShape) + + Dim Status + Status = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "Status") + + HighLimit = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "HighLimit")) + LowLimit = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "LowLimit")) + SentValue = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "SentValue")) + + dim sEntityPoint + sEntityPoint = UCASE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY)) + if strcomp(sEntityPoint, "", vbtextcompare) <> 0 then + EUHigh = csng(GSH_READTAGINFORMATIONKEYVALUE(sEntityPoint, "EUHigh", 100.0)) + EULow = csng(GSH_READTAGINFORMATIONKEYVALUE(sEntityPoint, "EULow", 0.0)) + end if + + Range = EUHigh - EULow + + If HighLimit > EUHigh then ' not active - no constraint + HighLimit = EUHigh + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + else + if ((abs(HighLimit - SentValue)/Range) < 0.03) or (tempSentValue > tempHighLimit) then + oShape.objects("plg_opHigh").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + end if + end if + + If LowLimit < EULow then ' not active + LowLimit = EULow + oShape.objects("plg_opHigh").style.visibility = GSH_HIDDEN + else + if ((abs(LowLimit - SentValue)/Range) < 0.03) or (tempSentValue < tempLowLimit) then + oShape.objects("plg_opLow").style.visibility = GSH_VISIBLE + else + oShape.objects("plg_opLow").style.visibility = GSH_HIDDEN + end if + end if + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) and strComp(Status, "GOOD",vbtextCompare)<> 0 then + call GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL(oShape) + end if +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DVINDICATOR_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'11July2008 Created shape for SASOL RMPCT +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DVINDICATOR_SCADA_ONUPDATE (oShape, flag) +on error resume next + + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'cv Status + Dim Status + Status = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "Status") + + 'ReadValue Data Check + ReadValue = csng(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "READVALUE")) + If GSH_C200_ANALOG_ISDATABAD(ReadValue,true,false,false) Then + oShape.objects("txt_ReadValue").value = GSH_FormatPVText(oShape,ReadValue) + else + oShape.objects("txt_ReadValue").value = "---" + End If + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) and strComp(tempStatus, "GOOD",vbtextCompare)<> 0 then + call GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL(oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_DVLABEL_SCADA_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'18July2008 Created shape for SASOL RMPCT +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_DVLABEL_SCADA_ONUPDATE (oShape, flag) +on error resume next + + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'cv Status + Dim Status + Status = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & "Status") + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) and strComp(tempStatus, "GOOD",vbtextCompare)<> 0 then + call GSH_GROUPREGULATORYCONTROLSHOWOFFNORMAL(oShape) + end if +end sub + +'--------------------------------------------START SHAPE COMMON------------------------------ + +'---------------------------------------------------------------------------------------------- + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_ALARM_SHOWSTATUS'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +'TODO: REMOVE GSH_TPS_ALARM_SHOWSTATUS when all TPS are switched to AlarmNum +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_ALARM_SHOWSTATUS (oShape, alarmPriorityParameter, alarmEnabledParameter, cssDisabledAlarmStyle) +on error resume next + 'Alarming + + 'if GSH_ISALARMINGENABLED(oShape.objects("rec_DataScript") ,GSH_CPENTITY, alarmEnabledParameter) Then + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript") ,GSH_CPENTITY, alarmEnabledParameter) Then + call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,alarmPriorityParameter),oShape) + else + oShape.objects("outline").styleClass = cssDisabledAlarmStyle + End If +End sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM ''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +'TODO: REMOVE GSH_TPS_ALARM_SHOWSTATUS when all TPS are switched to AlarmNum +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM (oShape, alarmEnabledParameter, cssDisabledAlarmStyle) +on error resume next + 'Alarming + + 'if GSH_ISALARMINGENABLED(oShape.objects("rec_DataScript") ,GSH_CPENTITY, alarmEnabledParameter) Then + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript") ,GSH_CPENTITY, alarmEnabledParameter) Then + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + oShape.objects("outline").styleClass = cssDisabledAlarmStyle + End If +End sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +''jan.25''' + +sub GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, parameterToCheck) +on error resume next + + dim sStateTxt + sStateTxt = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),parameterToCheck) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_DIGITALOUTPUT_OFFNORMAL_SHOWSTATUS (oShape, parameterToCheck) +on error resume next + + dim sStateTxt + sStateTxt = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),parameterToCheck) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_DIGITAL_POINT_OP_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, sStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End sub + + +' +' +' +sub GSH_COMMON_LOCALMAN_INTERLOCK_SHOWSTATUS(scriptObj, txt_LocalMan_Interlock) + 'Check for Localman and Interlock status + dim bLocalMan, bInterlock + bInterlock = GSH_GETENTITYPARAMETERVALUE(scriptObj,GSH_CPPARAM_INTERLOCK) + + if(bInterlock) then + txt_LocalMan_Interlock.value = GSH_INTERLOCK_TXT + txt_LocalMan_Interlock.style.visibility = GSH_VISIBLE + else + bLocalMan = GSH_GETENTITYPARAMETERVALUE(scriptObj,GSH_CPPARAM_LOCALMAN) + if(bLocalMan) then + txt_LocalMan_Interlock.value = GSH_LOCALMAN_TXT + txt_LocalMan_Interlock.style.visibility = GSH_VISIBLE + else + txt_LocalMan_Interlock.style.visibility = GSH_HIDDEN + end if + end if +end sub + +'------------------------------------------------------------ +'GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT +' This function required for TPS digital shapes b/c: +' TPS digital points allow force states +' which are unpreditable so we have to make PV references as State Description in stead of numeric +' In that case, we need this function to find the numeric state based on the statetext in order +' to find out which statestyle to use +' +' Sept 24,2009 - CL +'---------------------------------------------------------------- +function GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sStateTxt) +on error resume next +'gsh_log_s("GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT oShape=" & oShape.id & " sStateTxt = " &sStateTxt) + dim i, nNumericState, sTemp + + nNumericState = -1 + + 'Not sure if we need up to 5, but this is to get it work with demo points + for i=0 to 5 + sTemp = GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), "STATETXT("&i&")", GSH_NONE) + if strcomp(sStateTxt,sTemp,vbtextcompare)=0 then + nNumericState = i + end if + Next + GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT = nNumericState +'gsh_log_e("GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT nNumericState = " &nNumericState) +end function + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_COMMON_ANALOGOUTPUTINDICATOR_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_COMMON_ANALOGOUTPUTINDICATOR_ONUPDATE (oShape, flag) +on error resume next + If flag = 0 then + oShape.objects("outline").styleClass = GSH_CSSANALOGOUTPUTINDICATORNORMAL + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + end if + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) + end if +End sub + + +''''''''''''''''''''''''''''''''''''''''''''' +'Show Safe Operating Limit status +'''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_COMMON_SHOW_SOL_STATUS(oShape) +on error resume next +'gsh_log_s("GSH_COMMON_SHOW_SOL_STATUS oShape=" & oShape.id) + + 'Compare solHi and solLo with pvVal and change plg_SOL color accordingly + oShape.objects("plg_SOL").styleClass = GSH_CSSSSOLINLIMIT + oShape.objects("txt_SOL").style.visibility = GSH_HIDDEN + + If (not GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false)) Then + + Dim pvVal, solHi, solLo, sTagname + 'Check if PV is in SOL limit + pvVal = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV) + + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPENTITY, GSH_CPPOINT) + solHi = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_SOL_HI, GSH_NONE) + solLo = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_SOL_LO, GSH_NONE) + + 'Note: this nested condition ((solHi <> GSH_NONE) and (CDbl(solHi) < CDbl(pvVal))) + 'somehow does not work when solHi (or solLo) = GSH_NONE + 'So have to break them down + If (solHi <> GSH_NONE) Then + If (CDbl(solHi) < CDbl(pvVal)) Then + oShape.objects("plg_SOL").styleClass = GSH_CSSSSOLOUTOFLIMIT + oShape.objects("txt_SOL").style.visibility = GSH_VISIBLE + End If + End If + + If (solLo <> GSH_NONE) Then + If (CDbl(solLo) > CDbl(pvVal)) Then + oShape.objects("plg_SOL").styleClass = GSH_CSSSSOLOUTOFLIMIT + oShape.objects("txt_SOL").style.visibility = GSH_VISIBLE + End If + End If + + End If + +'gsh_log_e("GSH_COMMON_SHOW_SOL_STATUS oShape") + +End sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'*****Added by Jamie - Sept. 22 **** +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_ANALOG_POINT_IS_OFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_TPS_ANALOG_POINT_IS_OFFNORMAL(oDataBoundObject,sPointName,sOffNormalParam) +'gsh_log_s("GSH_TPS_ANALOG_POINT_IS_OFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ",sOffNormalParam=" & sOffNormalParam ) +on error resume next +Dim tempReturn + tempReturn = false + if strComp(GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam),GSH_MAN,vbTextCompare) = 0 then + tempReturn = true + end if +GSH_TPS_ANALOG_POINT_IS_OFFNORMAL = tempReturn +'gsh_log_e("GSH_TPS_ANALOG_POINT_IS_OFFNORMAL returning >>>" & tempReturn & "<<<") +end function + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_REGCTL_POINT_ISOFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +' In addition to Analog point off normal check, checks other RegCtl offnormal conditions +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' sTagName = TagName, eg. Entity or other literal tagname +' sParamName = Name of the param to check isNAN +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_TPS_REGCTL_POINT_ISOFFNORMAL(oDataBoundObject,sPointName,sOffNormalParam) +'gsh_log_s("GSH_TPS_REGCTL_POINT_ISOFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ",sOffNormalParam=" & sOffNormalParam ) +on error resume next +Dim tempReturn,shapePoint, bOffNormalTest1,bOffNormalTest2, bOffNormalTest3 +Dim sNModAttr, sNMode + shapePoint = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + bOffNormalTest1 = false + bOffNormalTest2 = false + bOffNormalTest3 = false + tempReturn = false 'default + +' gsh_log("offNormalParam = "&GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam)) + + if (strcomp(GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam),GSH_MAN,vbtextcompare) = 0) then + bOffNormalTest1 = true + end if + sNModAttr = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODATTR, GSH_NONE) + dim modAttr + modAttr = GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR) + +' gsh_log("modAttr = "&modAttr &"sNModAttr = " &sNModAttr) + + if (strComp(sNModAttr,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NModAttr is None + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR),sNModAttr,vbTextCompare) <> 0) then + bOffNormalTest2 = true + end if + end if + sNMode = GSH_READTAGINFORMATIONKEYVALUE(shapePoint, GSH_REGKEY_NMODE, GSH_NONE) +' gsh_log("sNMode = "&sNMode) +' gsh_log("GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE) = " &GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE)) + if (strComp(sNMode,GSH_NONE,vbTextCompare) <> 0) then 'if Registry NMode key is "None" + if (strComp(GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE),sNMode,vbTextCompare) <> 0) then + bOffNormalTest3 = true + end if + end if + tempReturn = ( ( bOffNormalTest1 ) or ( bOffNormalTest2) or (bOffNormalTest3) ) + GSH_TPS_REGCTL_POINT_ISOFFNORMAL = tempReturn +'gsh_log_e("GSH_TPS_REGCTL_POINT_ISOFFNORMAL returning >>>"&bOffNormalTest1& " " & bOffNormalTest2 & " " & bOffNormalTest3 & cstr(tempReturn) & "<<<") +end function + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL'''''''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Returns true or false +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +function GSH_TPS_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL(oDataBoundObject,sPointName,sOffNormalParam, sDigitalStateText) +'gsh_log_s("GSH_TPS_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL oDataBoundObject=" & oDataBoundObject.id & ",sPointName = " & sPointName & ",sOffNormalParam=" & sOffNormalParam & ",sDigitalStateText=" & sDigitalStateText) +on error resume next + Dim tempReturn,sTagname, bOffNormalTest1,bOffNormalTest2, bOffNormalTest4, bOffNormalTest3, sPVNormalState,sNModAttr + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(oDataBoundObject.parentelement.parentelement,sPointName, GSH_CPPOINT) + tempReturn = false: bOffNormalTest1 = false: bOffNormalTest2 = false: bOffNormalTest3 = false: bOffNormalTest4 = false + +''''jan. 25 '''' + temp = GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam) + if strComp(temp,GSH_NODATA,vbTextCompare)<> 0 then + if strComp(temp,GSH_AUTO,vbTextCompare) <> 0 then + bOffNormalTest1 = true + end if + end if +' if (strcomp(GSH_GETPARAMETERVALUE(oDataBoundObject, sPointName, sOffNormalParam),GSH_MAN,vbTextCompare) = 0) then +' bOffNormalTest1 = true +' end if + bOffNormalTest2 = GSH_DIGITAL_GETOFFNORMALSTATUS(sTagname, GSH_REGKEY_PVNORMAL_STATE, sDigitalStateText) + bOffNormalTest3 = GSH_DIGITAL_GETOFFNORMALSTATUS(sTagname, GSH_REGKEY_NMODATTR, GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODATTR)) + bOffNormalTest4 = GSH_DIGITAL_GETOFFNORMALSTATUS(sTagname, GSH_REGKEY_NMODE, GSH_GETENTITYPARAMETERVALUE(oDataBoundObject,GSH_CPPARAM_MODE)) + 'gsh_log("bOffNormalTest1="& bOffNormalTest1 &",bOffNormalTest2="&bOffNormalTest2& ",bOffNormalTest3="&bOffNormalTest3) + tempReturn = (bOffNormalTest1 or bOffNormalTest2 or bOffNormalTest3 or bOffNormalTest4) +GSH_TPS_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL = tempReturn +'gsh_log_e("GSH_TPS_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL returning >>>" & tempReturn & "<<<") +end function + +'---------------------------------------------END SHAPE COMMON ------------------------------- + +'--------------------------------------------START TPS SPECIFIC------------------------------ +'ooooooooooooo ooooooooo. .oooooo..o +'8' 888 `8 `888 `Y88. d8P' `Y8 +' 888 888 .d88' Y88bo. +' 888 888ooo88P' `"Y8888o. +' 888 888 `"Y88b +' 888 888 oo .d8P +' o888o o888o 8""88888P' +' sub routines +'---------------------------------------------------------------------------------------------- + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_ANALOGINDICATOR_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 01/29/2010: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_ANALOGINDICATOR_ALARMNUM_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_TPS_ANALOGINDICATOR_ALARMNUM_ONUPDATE oShape" & oShape.id) +on error resume next + + If flag = 0 then + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + 'Alarming + call GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM(oShape, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + End If + + If flag <=1 then + 'Set the focus + 'call GSH_ANALOGINDICATORSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + +'*****Changed by Jamie - Sept. 22 **** + if GSH_TPS_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + If flag = 0 then + 'Bad Data Check + If GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + oShape.objects("txt_PVvalue").value = "---" + Else + oShape.objects("txt_PVvalue").value = GSH_FormatPVText(oShape,oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV)) + + End If + End If +' GSH_LOG_E ("GSH_TPS_ANALOGINDICATOR_ALARMNUM_ONUPDATE") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_ANALOGINDICATOR_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 09/26/2008: Created by CL +' 01/29/2010: Updated alarm handling +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_ANALOGINDICATOR_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_TPS_ANALOGINDICATOR_ONUPDATE oShape" & oShape.id) +on error resume next + + If flag = 0 then + call GSH_ANALOGINDICATORSHOWNORMAL(oShape) + 'Alarming + call GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM(oShape, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + End If + + If flag <=1 then + 'Set the focus + 'call GSH_ANALOGINDICATORSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + +'*****Changed by Jamie - Sept. 22 **** + if GSH_TPS_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + If flag = 0 then + 'Bad Data Check + If GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + oShape.objects("txt_PVvalue").value = "---" + Else + oShape.objects("txt_PVvalue").value = GSH_FormatPVText(oShape,oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV)) + + End If + End If +' GSH_LOG_E ("GSH_TPS_ANALOGINDICATOR_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_ANALOGINDICATOR_SOL_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 09/26/2008: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_ANALOGINDICATOR_SOL_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_TPS_ANALOGINDICATOR_SOL_ONUPDATE oShape" & oShape.id) +on error resume next + + call GSH_TPS_ANALOGINDICATOR_ONUPDATE(oShape, flag) + + if flag = 0 then + call GSH_COMMON_SHOW_SOL_STATUS(oShape) + end if + +'GSH_LOG_E ("GSH_TPS_ANALOGINDICATOR_SOL_ONUPDATE oShape" & oShape.id) + +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_SOL_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 09/26/2008: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_SOL_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_TPS_SOL_ONUPDATE oShape" & oShape.id) +on error resume next + + If flag = 0 then + 'if the tag is in alarm - then SOL is outside of limits + oShape.objects("plg_SOL").styleClass = GSH_CSSSSOLINLIMIT + oShape.objects("txt_SOL").style.visibility = GSH_HIDDEN + If (strcomp(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")), GSH_NOALARMCODE, vbtextcompare) <> 0)then + oShape.objects("plg_SOL").styleClass = GSH_CSSSSOLOUTOFLIMIT + oShape.objects("txt_SOL").style.visibility = GSH_VISIBLE + End If + End If + + If flag <=1 then +' 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + End If + +'GSH_LOG_E ("GSH_TPS_SOL_ONUPDATE oShape" & oShape.id) +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_ANALOGOUTPUTINDICATORALARMS_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_ANALOGOUTPUTINDICATORALARMS_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_COMMON_ANALOGOUTPUTINDICATORALARMS_ONUPDATE oShape" & oShape.id) +on error resume next + + If flag = 0 then + oShape.objects("outline").styleClass = GSH_CSSANALOGOUTPUTINDICATORNORMAL + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + end if + + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) + end if + +'GSH_LOG_E ("GSH_TPS_ANALOGOUTPUTINDICATORALARMS_ONUPDATE") +end sub + +sub GSH_TPS_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE (oShape, flag) +'GSH_LOG_S ("GSH_TPS_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE oShape" & oShape.id) +on error resume next + + If flag = 0 then + oShape.objects("outline").styleClass = GSH_CSSANALOGOUTPUTINDICATORNORMAL + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + end if + + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_ANALOG_MODE_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + end if + + + + +'GSH_LOG_E ("GSH_TPS_ANALOGOUTPUTINDICATORALARMS_W_OFFNORMAL_ONUPDATE") + +end sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_DIGITALINDICATOR_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +'09/26/2008: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_DIGITALINDICATOR_ONUPDATE (oShape, flag) +on error resume next + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + + 'Alarming + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + 'No Bad Data Check + oShape.objects("txt_PVvalue").value = GSH_TPS_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + + End If + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + End If +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_DIGITALINDICATOR_NOALARMS_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +'09/21/2009: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_DIGITALINDICATOR_NOALARMS_ONUPDATE (oShape, flag) 'This version displays the StateTxt from the Registry +on error resume next + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + + 'No Bad Data Check + oShape.objects("txt_PVvalue").value = GSH_TPS_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + + End If + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_DIGITALINDICATORSHORT_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_DIGITALINDICATORSHORT_ONUPDATE (oShape, flag) +on error resume next + + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + 'Alarming + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + End If + + If flag <= 1 then + 'Set the focus + 'call GSH_DIGITALINDICATORSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + + End If +'Bad Data Check not needed +'Shape's Label is automatically assign to the Shape Custom property "Label" +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_DIGITALOUTPUTINDICATORALARMS_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_DIGITALOUTPUTINDICATORALARMS_ONUPDATE (oShape, flag) 'This version displays the StateTxt from the Registry +on error resume next + If flag = 0 then + call GSH_DIGITALINDICATORSHOWNORMAL(oShape) + 'Alarming + + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + oShape.objects("txt_OPvalue").value = GSH_TPS_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + + 'gsh_log "GSH_C200_DIGITALINDICATOR_ONUPDATE alarmpriority"&GSH_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY) + End If + If flag <= 1 then + 'Set the focus + 'call GSH_DIGITALINDICATORSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITALOUTPUT_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_OP) + End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_REGCTLINDICATOR_ONUPDATE''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_REGCTLINDICATOR_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_REGCTLINDICATOR_ONUPDATE oShape=" & oShape.id) + +On Error Resume Next + + If flag = 0 then + call GSH_REGULATORYCONTROLINDICATORSHOWNORMAL(oShape) + call GSH_SETREGULATORYCONTROLINDICATORMODE(oShape.objects("rec_DataScript")) + + 'Check the points alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'This call is for testing alarm in edmonton using simulation point + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + ''call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM(oShape, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + else + 'Alarm is Disabled + call GSH_REGULATORYCONTROLINDICATORSHOWDISABLEDALARM(oShape) + + End If + End If + + 'TODO: need to test on site + If flag <= 1 then + + 'Check Focus + call GSH_SETREGULATORYCONTROLINDICATORFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_TPS_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + If flag = 0 then + + 'PV Data Check + 'TODO: need to test on site + If GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + 'Set Mode + oShape.objects("txt_mode").value = Left(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE), 1) + + 'Check the point ramping + Select Case GSH_GET_POINT_RAMPING_VALUE(oShape.objects("rec_DataScript")) + Case GSH_RAMPING_RUN + call GSH_REGULATORYCONTROLINDICATORSHOW_RAMP(oShape,Left(GSH_RAMPING_RUN,1)) + Case GSH_RAMPING_PRESET + call GSH_REGULATORYCONTROLINDICATORSHOW_RAMP(oShape,Left(GSH_RAMPING_PRESET,1)) + Case else + 'do nothing because visibility is hidden by default and in Show Normal + end Select + 'Check the point Windup + dim sWindupStatus + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) + + End If +'gsh_log_e("GSH_TPS_REGCTLINDICATOR_ONUPDATE") +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_REGCTLINDICATOR_SOL_ONUPDATE''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_REGCTLINDICATOR_SOL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_REGCTLINDICATOR_SOL_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + call GSH_TPS_REGCTLINDICATOR_ONUPDATE(oShape, flag) + + if flag = 0 then + call GSH_COMMON_SHOW_SOL_STATUS(oShape) + end if + +'gsh_log_e("GSH_TPS_REGCTLINDICATOR_SOL_ONUPDATE") +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_GROUPANALOG_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/03/2009: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_GROUPANALOG_ONUPDATE(oShape,flag) +on error resume next +if flag = 0 then + call GSH_GROUPANALOGSHOWNORMAL(oShape) + + 'call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + call GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM(oShape, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) +End If +If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'Set the focus + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_TPS_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_GROUPANALOGSHOWOFFNORMAL(oShape) + end if + end if + +End If +If flag = 0 then + 'PV Data Check + If not(GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false)) Then + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + Else + call GSH_GROUPANALOGSHOWBADPV(oShape) + End If +End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_GROUPNUMERIC_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 03/18/2010: Created by JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_GROUPNUMERIC_ONUPDATE(oShape,flag) +on error resume next +if flag = 0 then + call GSH_GROUPANALOGSHOWNORMAL(oShape) +End If +If flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'Set the focus +End If +If flag = 0 then + 'Numeric - no PV Data Check + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) +End If +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_GROUPDIGITALCOMPOSITE_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 09/26/2008: Created by CL +' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_GROUPDIGITALCOMPOSITE_ONUPDATE(oShape, flag) +on error resume next + + If flag = 0 then + GSH_GROUPDIGITALCOMPOSITESHOWNORMAL(oShape) + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN 'Hide RedTag + + 'Alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")),oShape) + else + 'Alarm is Disabled + call GSH_GROUPDIGITALCOMPOSITESHOWSUPPRESSEDALARM(oShape) + End If + + 'PV Data Check + If GSH_C200_DIGITALCOMPOSITE_ISDATABAD(oShape.objects("rec_DataScript")) Then + call GSH_GROUPDIGITALCOMPOSITESHOWBADPV(oShape) + else + oShape.objects("txt_DigitalValue").value = GSH_TPS_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + End If + End If + + If flag <= 1 then + 'Set the focus + 'call GSH_GROUPDIGITALCOMPOSITESETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + 'hide OP combobox if it was opened + oShape.objects("cmb_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_MODEValue").style.visibility = GSH_HIDDEN + + if GSH_TPS_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL, oShape.objects("txt_DigitalValue").value) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + End If + + If flag = 0 then + 'Status message + dim val_redTag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + else + 'Check status Message + dim val_stsMsg + val_stsMsg = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG) + call GSH_Show_StatusMessageFlag(oShape, val_stsMsg) + end if + + 'Display OP Value +' sOPStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + oShape.objects("txt_OPValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP) + oShape.objects("txt_MODEValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + End If +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_GROUPDIGITALINPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape - Shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/03/09 - Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_GROUPDIGITALINPUT_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_GROUPDIGITALINPUT_ONUPDATE oShape = " & oShape.id) +on error resume next + + If flag = 0 then + GSH_GROUPDIGITALINPUTSHOWNORMAL(oShape) + + 'Alarming + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + oShape.objects("txt_DigitalValue").value = GSH_TPS_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + + End If + + If flag <= 1 then + 'Set the focus + 'call GSH_GROUPDIGITALINPUTSETFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + + End If + +'gsh_log_e("GSH_TPS_GROUPDIGITALINPUT_ONUPDATE") +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MF_DIGITALOUTPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus (b/c digital values are not changed often) +' Aug 27, 2009 - Added new +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_MF_DIGITALOUTPUT_ONUPDATE(oShape, flag) +on error resume next +'gsh_log_s("GSH_TPS_MF_DIGITALOUTPUT_ONUPDATE shapeID = "& oShape.id) + + GSH_GROUPDIGITALCOMPOSITESHOWNORMAL(oShape) + call GSH_GEN_SETSHAPEFOCUS(oShape) + + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + 'Display OP Value + dim sOPStateTxt + sOPStateTxt = GSH_SCADA_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_OP, oShape.objects("rec_DataScript")) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("cmb_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_SCADA_DIGITAL_POINT_OP_ISOFFNORMAL(oShape.objects("rec_DataScript"),GSH_CPENTITY, sOPStateTxt) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + + oShape.objects("txt_OPValue").value = sOPStateTxt + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_SELECTOROUTPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +'09/29/2008: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_SELECTOROUTPUT_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_SELECTOROUTPUT_ONUPDATE oShape=" & oShape.id) + +On Error Resume Next + + If flag = 0 then + call GSH_SELECTOROUTPUTSHOWNORMAL(oShape) + call GSH_SELECTOROUTPUTSHOWSELECTOR(oShape, GSH_CPPARAM_SELINPUT) + 'Alarming + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_SELECTOROUTPUT_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + +'gsh_log_e("GSH_TPS_SELECTOROUTPUT_ONUPDATE") + +End Sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_SELECTOROUTPUTFLAG_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +'11/18/2009: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_SELECTOROUTPUTFLAG_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_SELECTOROUTPUTFLAG_ONUPDATE oShape=" & oShape.id) + +On Error Resume Next + + If flag = 0 then + call GSH_SELECTOROUTPUTSHOWNORMAL(oShape) + call GSH_SELECTOROUTPUTFLAGSHOWSELECTOR(oShape, GSH_CPPARAM_PV) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + End If + +'gsh_log_e("GSH_TPS_SELECTOROUTPUTFLAG_ONUPDATE") + +End Sub +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_SELECTOROUTPUTSHOWSELECTOR'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape = shape +' paramSelector = custom parameter +'11/18/2009: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_SELECTOROUTPUTFLAGSHOWSELECTOR(oShape, paramSelector) +'gsh_log_s("GSH_SELECTOROUTPUTFLAGSHOWSELECTOR oShape=" & oShape.id & ", paramSelector=" & paramSelector) +on error resume next + dim xinput, selOrientation + 'xinput = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),paramSelector) + xinput = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & paramSelector) + 'xinput is expected to be 0 ,1 or 2 + xinput = xinput + 1 + + + ' Determine selector orientation (LEFT, RIGHT, CENTER) + selOrientation = GSH_NONE + select case xinput + case GSH_SELX1 + ' Retrive custom parameter X1 + selOrientation = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPX1, GSH_CPVALUE) + case GSH_SELX2 + ' Retrive custom parameter X2 + selOrientation = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPX2, GSH_CPVALUE) + case GSH_SELX3 + ' Retrive custom parameter X3 + selOrientation = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape, GSH_CPX3, GSH_CPVALUE) + end select + 'Set Orientation + call GSH_SELECTOROUTPUTSETORIENTATION(oShape, selOrientation) +'gsh_log_e("GSH_SELECTOROUTPUTFLAGSHOWSELECTOR orientation set = " &selOrientation) + +end sub + + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_SELXDESC_ONUPDATE'''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/04/2009 Created shape by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_SELXDESC_ONUPDATE (oShape, flag) 'This version displays the SELXDESC parameter +on error resume next + If flag = 0 then + call GSH_REGULATORYCONTROLINDICATORSHOWNORMAL(oShape) + 'Alarming + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + 'No Bad Data Check + oShape.objects("txt_PVvalue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_SELXDESC") + oShape.objects("txt_mode").value = Left(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE), 1) + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) + End If + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_AUTOMAN_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_AUTOMAN_ONUPDATE''''''''''''''''''''''''' +'Parameters: oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 09/29/2008: Created by CL. +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_AUTOMAN_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_AUTOMAN_ONUPDATE oShape=" & oShape.id) +On Error Resume Next +If flag = 0 then + call GSH_REGULATORYCONTROLINDICATORSHOWNORMAL(oShape) + 'Check the points alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'This call is for testing alarm in edmonton using simulation point + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_EXPERION_PARAM_ALARMPRIORITY),oShape) + call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + else + 'Alarm is Disabled + call GSH_REGULATORYCONTROLINDICATORSHOWDISABLEDALARM(oShape) + End If +End If +If flag <= 1 then + 'call GSH_SETREGULATORYCONTROLINDICATORFOCUS(oShape) replaced by + call GSH_GEN_SETSHAPEFOCUS (oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_AUTOMAN_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If +If flag = 0 then + oShape.objects("txt_OPValue").value = formatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + oShape.objects("txt_mode").value = Left(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE), 1) + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) +End If +'gsh_log_e("GSH_TPS_AUTOMAN_ONUPDATE") +End Sub + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_HORIZONTALPVBAR_ONUPDATE +'Update function for the shape C200_HORIZONTALPVBAR +'Parameter: Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 09/29/2008: Created by CL +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_HORIZONTALPVBAR_ONUPDATE(oShape, flag) +'gsh_log_s "GSH_TPS_HORIZONTALPVBAR_ONUPDATE" + If flag = 0 then + call GSH_SHOWALARMS_WOOUTLINE(GSH_NOALARMCODE,oShape) 'show normal + dim nPVValue, iPVValue, iRangeHi, iRangeLo + + 'Alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'call GSH_SHOWALARMS_WOOUTLINE(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWALARMS_WOOUTLINE(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_DISABLED + End If + + if GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + oShape.objects("ind_PVBar").value = 0 + oShape.objects("txtBadPV").style.visibility = GSH_VISIBLE + else + oShape.objects("txtBadPV").style.visibility = GSH_HIDDEN + nPVValue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + iRangeHi = CInt(oShape.GetCustomProperty("Value", "txtHighLimit")) + iRangeLo = CInt(oShape.GetCustomProperty("Value", "txtLowLimit")) + if (nPVValue >= iRangeHi) then + iPVValue = 100 + ElseIf (nPVValue <= iRangeLo) then + iPVValue = 0 + else + iPVValue = Cint(((nPVValue-iRangeLo)* 100 )/ (iRangeHi - iRangeLo)) + end if + oShape.objects("ind_PVBar").value = iPVValue + end if + End If + + If flag <= 1 then + call GSH_SETSHAPEFOCUS(oShape) + End If +'gsh_log_e "GSH_TPS_HORIZONTALPVBAR_ONUPDATE" +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_HORIZONTALPVBAR_NUMERIC_ONUPDATE +'Update function for the shape C200_HORIZONTALPVBAR +'Parameter: Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 09/29/2008: Created by CL +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_HORIZONTALPVBAR_NUMERIC_ONUPDATE(oShape, flag) +'gsh_log_s "GSH_TPS_HORIZONTALPVBAR_NUMERIC_ONUPDATE" + If flag = 0 then + dim nPVValue, iPVValue, iRangeHi, iRangeLo + + 'No Alarming + if GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + oShape.objects("ind_PVBar").value = 0 + oShape.objects("txtBadPV").style.visibility = GSH_VISIBLE + else + oShape.objects("txtBadPV").style.visibility = GSH_HIDDEN + nPVValue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + iRangeHi = CInt(oShape.GetCustomProperty("Value", "txtHighLimit")) + iRangeLo = CInt(oShape.GetCustomProperty("Value", "txtLowLimit")) + if (nPVValue >= iRangeHi) then + iPVValue = 100 + ElseIf (nPVValue <= iRangeLo) then + iPVValue = 0 + else + iPVValue = Cint(((nPVValue-iRangeLo)* 100 )/ (iRangeHi - iRangeLo)) + end if + oShape.objects("ind_PVBar").value = iPVValue + end if + End If + + If flag <= 1 then + call GSH_SETSHAPEFOCUS(oShape) + End If +'gsh_log_e "GSH_TPS_HORIZONTALPVBAR_NUMERIC_ONUPDATE" +end sub + + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_SPPVOPBAR_ONUPDATE +'Update function for the shape TPS_SPPVOPBAR +'Parameter: Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +' 07/04/2009 - Created (Cuong Ly) +' Note - use int function as cint function +' can not handle large number (example 150000) (CL) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_SPPVOPBAR_ONUPDATE(oShape, flag) +On Error Resume Next +'gsh_log_s("GSH_TPS_SPPVOPBAR_ONUPDATE ") + + If flag = 0 then + call GSH_SHOWALARMS_WOOUTLINE(GSH_NOALARMCODE,oShape) 'show normal + 'check if PV is bad then + if GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + oShape.objects("ind_PVBar").value = 0 + oShape.objects("txtBadPV").style.visibility = GSH_VISIBLE + else + Dim iRangeHi, iRangeLo + + iRangeHi = int(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & ".PVEUHI")) + iRangeLo = int(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & ".PVEULO")) + + oShape.objects("ind_PVBar").value = int((GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)/(iRangeHi-iRangeLo))*100) + oShape.objects("txtBadPV").style.visibility = GSH_HIDDEN +' gsh_log "iRangeHi="&iRangeHi-iRangeLo&", iRangeLo="&iRangeLo& ", PV="& GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) &", PVBar="& Cint((GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)/(iRangeHi-iRangeLo))*100) + End if + + call GSH_SETSPINDICATOR_HORIZONTAL(oShape,iRangeLo,iRangeHi) + End If + + If flag <= 1 then + + 'Alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'call GSH_SHOWALARMS_WOOUTLINE(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY), oShape) + call GSH_SHOWALARMS_WOOUTLINE(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")), oShape) + else + oShape.objects("ind_PVBar").styleClass = GSH_CSSBGALARM_DISABLED + End If + + call GSH_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_TPS_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + 'Check the point ramping + Select Case GSH_GET_POINT_RAMPING_VALUE(oShape.objects("rec_DataScript")) + Case GSH_RAMPING_RUN + call GSH_REGULATORYCONTROLINDICATORSHOW_RAMP(oShape,Left(GSH_RAMPING_RUN,1)) + Case GSH_RAMPING_PRESET + call GSH_REGULATORYCONTROLINDICATORSHOW_RAMP(oShape,Left(GSH_RAMPING_PRESET,1)) + Case else + oShape.objects("txt_ramp").style.visibility = GSH_HIDDEN + end Select + + End If + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_SPPVOPBAR_ONUPDATE",oShape) + end if +'gsh_log_e("GSH_TPS_SPPVOPBAR_ONUPDATE ") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_LevelIndicator_OnUpdate''''''''''''''''''''''''''''''''''''''' +'Parameters:oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 09/29/2008 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_LevelIndicator_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_LevelIndicator_OnUpdate oShape="&oShape.id & ", flag="&flag) +On Error Resume Next + If flag <= 1 then + call GSH_LevelIndicatorShowNormal(oShape) + 'Check Alarms + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'alarming is enabled, get highest priority(if any) and change shape accordingly + 'call GSH_SHOWLEVELALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWLEVELALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + 'Alarm is Disabled + call GSH_LevelIndicatorShowDisbledAlarm(oShape) + End If + + call GSH_LevelIndicatorSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_TPS_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorSHOWOFFNORMAL(oShape) + end if + end if + numOfDecimals = CInt(Right(GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1)) + 'Check for Bad PV + if GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), numOfDecimals) + End If + End If +'gsh_log_e("GSH_TPS_LevelIndicator_OnUpdate") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_LevelIndicator_Wide_ShowPV_OnUpdate''''''''''''''''''''''''''''''''''''''' +'Parameters:oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 09/29/2008 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_LevelIndicator_Wide_ShowPV_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_LevelIndicator_Wide_ShowPV_OnUpdate oShape="&oShape.id & ", flag="&flag) +On Error Resume Next + If flag <= 1 then + call GSH_LevelIndicatorShowNormal(oShape) + 'Check Alarms + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'alarming is enabled, get highest priority(if any) and change shape accordingly + 'call GSH_SHOWLEVELALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWLEVELALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + 'Alarm is Disabled + call GSH_LevelIndicatorShowDisbledAlarm(oShape) + End If + + call GSH_LevelIndicatorSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_TPS_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorSHOWOFFNORMAL(oShape) + end if + end if + numOfDecimals = CInt(Right(GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1)) + 'Check for Bad PV + if GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), numOfDecimals) + End If + + oShape.objects("txt_PVValue").style.visibility = GSH_VISIBLE + 'oShape.objects("txt_PVvalue").styleClass = GSH_CSSLEVELINDICATORNORMALPVTEXT + oShape.objects("outline").style.visibility = GSH_VISIBLE + + + End If +'gsh_log_e("GSH_TPS_LevelIndicator_Wide_ShowPV_OnUpdate") +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_LevelIndicator_Small_OnUpdate''''''''''''''''''''''''''''''''''''''' +'Parameters:oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/02/2008 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_LevelIndicator_Small_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_LevelIndicator_OnUpdate oShape="&oShape.id & ", flag="&flag) +On Error Resume Next + If flag <= 1 then + call GSH_LevelIndicatorShowNormal(oShape) + 'Check Alarms + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'alarming is enabled, get highest priority(if any) and change shape accordingly + 'call GSH_SHOWLEVELSMALLALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWLEVELSMALLALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + 'Alarm is Disabled + call GSH_LevelIndicatorShowDisbledAlarm(oShape) + End If + + call GSH_LevelIndicatorSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + if GSH_TPS_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorSHOWOFFNORMAL(oShape) + end if + end if + + numOfDecimals = CInt(Right(GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1)) + + 'Check for Bad PV + if GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), numOfDecimals) + End If + End If +'gsh_log_e("GSH_TPS_LevelIndicator_OnUpdate") +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_LEVELREGCTL_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 09/29/2008: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_LEVELREGCTL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_LEVELREGCTL_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +On Error Resume Next + If flag <= 1 then + GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'call GSH_SHOWLEVELALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWLEVELALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + + End If + 'End If + 'If flag <= 1 then + call GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_TPS_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) + end if + end if + + numOfDecimals = CInt(Right(GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1)) + + 'Check for bad value + If GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + call GSH_LevelIndicatorShowSPFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), numOfDecimals) + End If + End If + If flag = 0 then + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + End If +'gsh_log_e("GSH_TPS_LEVELREGCTL_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_LEVELREGCTL_Small_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +' 06/02/2009: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_LEVELREGCTL_SMALL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_LEVELREGCTL_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +On Error Resume Next + If flag <= 1 then + GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'call GSH_SHOWLEVELSMALLALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWLEVELSMALLALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + + End If + 'End If + 'If flag <= 1 then + call GSH_LevelIndicatorRegulatoryControlSetFocus(oShape) + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_TPS_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + call GSH_LevelIndicatorRegulatoryControlShowOffNormal(oShape) + end if + end if + + numOfDecimals = CInt(Right(GSH_READTAGINFORMATIONKEYVALUE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY), GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1)) + + 'Check for bad value + If GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + call GSH_LevelIndicatorShowPVFloat(oShape) + call GSH_LevelIndicatorShowSPFloat(oShape) + oShape.objects("txt_PVvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV), numOfDecimals) + End If + End If + If flag = 0 then + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + End If +'gsh_log_e("GSH_TPS_LEVELREGCTL_ONUPDATE") +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_GROUPAUTOMAN_ONUPDATE''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus +' 09/29/2008: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_GROUPAUTOMAN_ONUPDATE(oShape, flag) +on error resume next + If flag = 0 then + GSH_GROUPAUTOMANSHOWNORMAL(oShape) + 'Alarming + call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_C200_AUTOMAN_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + End If + + If flag = 0 then + 'Display OP Value + oShape.objects("txt_OPValue").value = formatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + 'RedTag message + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + else + 'Check status Message + dim val_stsMsg + val_stsMsg = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG) + call GSH_Show_StatusMessageFlag(oShape, val_stsMsg) + end if + End If +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_GROUPREGULATORYCONTROL_ONUPDATE'''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'09/29/2008 - Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_GROUPREGULATORYCONTROL_ONUPDATE(oShape, flag) +on error resume next +if flag = 0 then + GSH_GROUPREGULATORYCONTROLSHOWNORMAL(oShape) + oShape.objects("txt_statusmessage").style.visibility = GSH_HIDDEN 'Hide RedTag + + 'Alarming + If GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + End If +End If + +if flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + + 'Check for Off Normal and hide text entry and combobox if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + oShape.objects("alp_SPValue").style.visibility = GSH_HIDDEN + oShape.objects("alp_OPValue").style.visibility = GSH_HIDDEN + oShape.objects("cmb_ModeValue").style.visibility = GSH_HIDDEN + + if GSH_TPS_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + +if flag = 0 then + 'PV Data Check + If GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + 'Display OP Value + 'oShape.objects("txt_OPValue").value = formatNumber(alp_OPValue.value,GSH_OUTPUTINDICATORDECIMALS) + oShape.objects("txt_OPValue").value = FormatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + + 'Display SP Value + 'oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,alp_SPValue.value) + oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SP)) + + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + 'Assumption: Reg tag and status message are mutual exclusive + 'Status message + dim val_redTag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if strcomp(val_redTag,GSH_ON,vbtextcompare) = 0 then + oShape.objects("txt_statusmessage") = GSH_REDTAG_TEXT + oShape.objects("txt_statusmessage").style.visibility = GSH_VISIBLE + else + 'Check status Message + dim val_stsMsg + val_stsMsg = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG) + call GSH_Show_StatusMessageFlag(oShape, val_stsMsg) + end if + + 'Set Ramping + Select case GSH_GET_POINT_RAMPING_VALUE(oShape.objects("rec_DataScript")) + Case GSH_RAMPING_RUN + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_RUN,1)) + Case GSH_RAMPING_PRESET + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_PRESET,1)) + Case else + 'do nothing because visibility is hidden by default and in Show Normal + end select +End If +end sub + +'''Jan. 25 ''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATOR_ONUPDATE''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 09/29/2008 - Created by CL +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATOR_ONUPDATE(oShape, flag) +On Error Resume Next +'gsh_log_s("GSH_TPS_MOTORINDICATOR_ONUPDATE >>>>> Shape ="& oShape.id) + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + + 'set motor to running or not based on registry + Dim nNumericState, sPVvalue + sPVValue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sPVValue) + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + 'Alarming + 'call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + call GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM(oShape, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + End If +'gsh_log_e("GSH_TPS_MOTORINDICATOR_ONUPDATE ") +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATOR_LM_ONUPDATE''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/03/2009 - Create the function to handle TPS MotoIndicator_lm shapes with Localman and Interlock indicators +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATOR_LM_ONUPDATE(oShape, flag) +On Error Resume Next + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + + 'set motor to running or not based on registry + Dim nNumericState, sPVvalue + sPVValue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sPVValue) + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + 'Alarming + 'call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + call GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM(oShape, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + End If + + + If flag = 0 then + 'Check for Localman and Interlock status + call GSH_COMMON_LOCALMAN_INTERLOCK_SHOWSTATUS(oShape.objects("rec_DataScript"), oShape.objects("txt_Localman")) + + end if + +End Sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATORSMALL_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/03/09 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATORSMALL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_MOTORINDICATORSMALL_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next + + If flag = 0 then + call GSH_MINIMOTORINDICATORSHOWNORMAL(oShape) + 'set motor to running or not based on registry + Dim nNumericState, sPVvalue + sPVValue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sPVValue) + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + 'Alarming + 'call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSSMINIMOTORINDICATORDISABLEDALARM) + call GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM(oShape, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + End If +'gsh_log_e("GSH_TPS_MOTORINDICATORSMALL_ONUPDATE") +End Sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATORSMALL_NOALARMS_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 09/23/09 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATORSMALL_NOALARMS_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_MOTORINDICATORSMALL_NOALARMS_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next + + If flag = 0 then + call GSH_MINIMOTORINDICATORSHOWNORMAL(oShape) + 'set motor to running or not based on registry + Dim nNumericState, sPVvalue + sPVvalue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sPVvalue) + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + End If +'gsh_log_e("GSH_TPS_MOTORINDICATORSMALL_NOALARMS_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_MOTORINDICATORSMALL_NOALARMS_ONUPDATE",oShape) + end if +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATORSMALL_NOALARMS_NOFOCUS_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' 12/9/09 Created by JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATORSMALL_NOALARMS_NOFOCUS_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_MOTORINDICATORSMALL_NOALARMS_NOFOCUS_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next + + 'set motor to running or not based on shape custom property + Dim sPVvalue, sStateTxt_On + sPVvalue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + + sStateTxt_On = oShape.GetCustomProperty(GSH_CPVALUE,"STATETXT_ON") + + if (StrComp(sPVvalue,sStateTxt_On,vbtextcompare) <> 0) then + oShape.objects("rec_Motor").styleClass = "MOTORINDICATORMOTORNOTRUNNING" + else + oShape.objects("rec_Motor").styleClass = "MOTORINDICATORMOTORRUNNING" + end if + + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE + +'gsh_log_e("GSH_TPS_MOTORINDICATORSMALL_NOALARMS_NOFOCUS_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_MOTORINDICATORSMALL_NOALARMS_NOFOCUS_ONUPDATE",oShape) + end if +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATORSMALL_FLAG_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' 18/3/2010 Created by JE +' 24/3/2010 Modified by JE to add check for either On or True +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATORSMALL_FLAG_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_MOTORINDICATORSMALL_FLAG_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next + + 'set motor to running or not based on flag + Dim sPVvalue + sPVvalue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + + if (StrComp(sPVvalue,"ON",vbtextcompare) = 0) OR (StrComp(sPVvalue,"TRUE",vbtextcompare) = 0) then + oShape.objects("rec_Motor").styleClass = "MOTORINDICATORMOTORRUNNING" + else + oShape.objects("rec_Motor").styleClass = "MOTORINDICATORMOTORNOTRUNNING" + end if + + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE + +'gsh_log_e("GSH_TPS_MOTORINDICATORSMALL_FLAG_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_MOTORINDICATORSMALL_FLAG_ONUPDATE",oShape) + end if +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATORSMALL_NUMERIC_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' 19/3/2010 Created by JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATORSMALL_NUMERIC_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_MOTORINDICATORSMALL_NUMERIC_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next + + 'set motor to running or not based on numeric state (1=ON, everything else is OFF) + Dim sPVvalue + nPVvalue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + + if nPVvalue <> 1 then + oShape.objects("rec_Motor").styleClass = "MOTORINDICATORMOTORNOTRUNNING" + else + oShape.objects("rec_Motor").styleClass = "MOTORINDICATORMOTORRUNNING" + end if + + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE + +'gsh_log_e("GSH_TPS_MOTORINDICATORSMALL_NUMERIC_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_MOTORINDICATORSMALL_NUMERIC_ONUPDATE",oShape) + end if +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATORSMALL_LM_ONUPDATE''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/03/2009 - Create the function to handle TPS MotoIndicator_lm shapes with Localman and Interlock indicators +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATORSMALL_LM_ONUPDATE(oShape, flag) +On Error Resume Next + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + + 'Alarming + 'call GSH_TPS_ALARM_SHOWSTATUS(oShape, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSSMINIMOTORINDICATORDISABLEDALARM) + call GSH_TPS_ALARM_SHOWSTATUS_ALARMNUM(oShape, GSH_TPS_PARAM_ALARM_ENABLED, GSH_CSS_ALARMDISABLED) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + End If + + If flag = 0 then + 'Check for Localman and Interlock status + call GSH_COMMON_LOCALMAN_INTERLOCK_SHOWSTATUS(oShape.objects("rec_DataScript"), oShape.objects("txt_Localman")) + end if + +End Sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATORWITHALARMS_ONUPDATE'''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/03/09 - Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATORWITHALARMS_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_TPS_MOTORINDICATORWITHALARMS_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + Dim sPVvalue, nNumericState + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + + 'set motor to running or not based on registry + sPVValue = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sPVValue) + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + 'Alarming + call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITYALARM,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + End If + + +'gsh_log_e("GSH_TPS_MOTORINDICATORWITHALARMS_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MOTORINDICATORWITHALARMS_LM_ONUPDATE'''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/03/09 - Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_MOTORINDICATORWITHALARMS_LM_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_TPS_MOTORINDICATORWITHALARMS_LM_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + + If flag = 0 then + call GSH_MOTORINDICATORSHOWNORMAL(oShape) + + 'set motor to running or not based on registry + call GSH_MOTORINDICATORSETNUMERICSTATE(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV),GSH_CPPARAM_PV) + + 'Alarming + call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITYALARM,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + End If + + If flag = 0 then + 'Check for Localman and Interlock status + call GSH_COMMON_LOCALMAN_INTERLOCK_SHOWSTATUS(oShape.objects("rec_DataScript"), oShape.objects("txt_Localman")) + end if + +'gsh_log_e("GSH_TPS_MOTORINDICATORWITHALARMS_LM_ONUPDATE") +End Sub + +' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_REGCTLBOX_ONUPDATE'''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only +'09/30/2008 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_REGCTLBOX_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_REGCTLBOX_ONUPDATE oShape="&oShape.id& ", flag = "&flag) +on error resume next +if flag = 0 then + + call GSH_REGCTLBOXSHOWNORMAL(oShape) + + 'Alarming + If GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + call GSH_GROUPREGULATORYCONTROLSHOWSUPPRESSEDALARM(oShape) + End If +End If + +if flag <= 1 then + call GSH_GEN_SETSHAPEFOCUS(oShape) 'replaces GSH_GROUPREGULATORYCONTROLSETFOCUS(oShape) + + 'Check for Off Normal and hide text entry and combobox if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + if GSH_TPS_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if +End If + +if flag = 0 then + 'PV Data Check + If GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) Then + call GSH_GROUPREGULATORYCONTROLSHOWBADPV(oShape) + else + oShape.objects("txt_AnalogValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + End If + + 'Display OP Value + oShape.objects("txt_OPValue").value = FormatNumber(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS,-2,0,0) + + 'Display SP Value + oShape.objects("txt_SPValue").value = GSH_FormatPVText(oShape,GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_SP)) + + 'Check status Message + dim val_stsMsg + val_stsMsg = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG) + call GSH_Show_StatusMessageFlag(oShape, val_stsMsg) + + + 'ModAttr Data Check + If (GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODATTR) = GSH_MODE_PROGRAM) Then + oShape.objects("txt_ModeValue").value = GSH_MODE_PROGRAM_TEXT & GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + Else + oShape.objects("txt_ModeValue").value = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE) + end if + + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + + 'Set Ramping + Select case GSH_GET_POINT_RAMPING_VALUE(oShape.objects("rec_DataScript")) + Case GSH_RAMPING_RUN + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_RUN,1)) + Case GSH_RAMPING_PRESET + call GSH_GROUPREGULATORYCONTROLSHOW_RAMP(oShape,Left(GSH_RAMPING_PRESET,1)) + Case else + 'do nothing because visibility is hidden by default and in Show Normal + end select +End If +'gsh_log_e("GSH_TPS_REGCTLBOX_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_SENSOR_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 09/30/2008 - Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_SENSOR_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_SENSOR_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + + If flag = 0 then + call GSH_SENSORSHOWNORMAL(oShape) + 'Alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) then + 'alarming is enabled, get highest priority and change shape accordingly + 'Select Case GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY) + Select Case GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")) + Case GSH_UNACKEMERG + call GSH_SENSORSHOWEMERGENCYALARM(oShape,true) + Case GSH_UNACKHIGH + call GSH_SENSORSHOWHIGHALARM(oShape,true) + Case GSH_UNACKLOW + call GSH_SENSORSHOWLOWALARM(oShape,true) + Case GSH_ACKEMERG + call GSH_SENSORSHOWEMERGENCYALARM(oShape,false) + Case GSH_ACKHIGH + call GSH_SENSORSHOWHIGHALARM(oShape,false) + Case GSH_ACKLOW + call GSH_SENSORSHOWLOWALARM(oShape,false) + Case Else + End Select + else + 'Alarm is Disabled + call GSH_SENSORSHOWSUPPRESSEDALARM(oShape) + End If + End If + + If flag <= 1 then + call GSH_SETSHAPEFOCUS(oShape) + End If +' gsh_log_e("GSH_TPS_SENSOR_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_MULTIPLESENSORS_ONUPDATE''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/04/09 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_MULTIPLESENSORS_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_MULTIPLESENSORS_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + If flag = 0 then + call GSH_MULTIPLESENSORSSHOWNORMAL(oShape) + 'Alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) then + 'Get Highest Alarm + iAlarmCode1 = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITYALARM,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY) + iAlarmCode2 = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY) + + iAlarmCode = GSH_COMPAREHIGHESTALARMPRIORITY(iAlarmCode1, iAlarmCode2) + Select Case iAlarmCode + Case GSH_UNACKEMERG + call GSH_MULTIPLESENSORSSHOWEMERGENCYALARM(oShape,true) + Case GSH_UNACKHIGH + call GSH_MULTIPLESENSORSSHOWHIGHALARM(oShape,true) + Case GSH_UNACKLOW + call GSH_MULTIPLESENSORSSHOWLOWALARM(oShape,true) + Case GSH_ACKEMERG + call GSH_MULTIPLESENSORSSHOWEMERGENCYALARM(oShape,false) + Case GSH_ACKHIGH + call GSH_MULTIPLESENSORSSHOWHIGHALARM(oShape,false) + Case GSH_ACKLOW + call GSH_MULTIPLESENSORSSHOWLOWALARM(oShape,false) + Case Else + 'No Alarms + End Select + + else + call GSH_MULTIPLESENSORSSHOWSUPPRESSEDALARM(oShape) + + end if + End If + + If flag <= 1 then + 'Set the focus + call GSH_MULTIPLESENSORSSETFOCUS(oShape) + 'No Offnormal check as this shape could be a digital flag or analog point. + End If + 'gsh_log_e("GSH_TPS_MULTIPLESENSORS_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GEN_MULTIPLESENSORS_ALARMGROUP_ONUPDATE''''''''''''''''''''''''''''''''''''' +'Parameters: +' oShape: Shape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/04/09 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_GEN_MULTIPLESENSORS_ALARMGROUP_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_GEN_MULTIPLESENSORS_ALARMGROUP_ONUPDATE oShape=" & oShape.id) +On Error Resume Next + If flag = 0 then + call GSH_MULTIPLESENSORSSHOWNORMAL(oShape) + 'Alarming + + dim sAlarmPriority, bUnack + sAlarmPriority = GSH_GETALARMGROUPPRIORITYPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITYALARM) + bUnack = GSH_GETALARMGROUPUNACKPARAMETER(oShape.objects("rec_dataScript"),GSH_CPENTITYALARM) +' gsh_log ("sAlarmPriority = " & sAlarmPriority & " bUnack = " & bUnack ) + oShape.Objects("focus").linewidth = 0 + + if(sAlarmPriority > 0) then + call GSH_SHOWALARMS (sAlarmPriority, bUnack, oShape) + else + call GSH_SHOWNOALARM(oShape) + oShape.Objects("outline").styleClass = GSH_CSSTABOUTLINENORMAL + end if + End If + If flag <= 1 then + 'Set the focus + call GSH_MULTIPLESENSORSSETFOCUS(oShape) + 'No Offnormal check as this shape uses an alarm group. + End If +' gsh_log_e("GSH_GEN_MULTIPLESENSORS_ALARMGROUP_ONUPDATE") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEAUTOMAN_OnUpdate'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 09/30/08 Created shape by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEAUTOMAN_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEAUTOMAN_OnUpdate oShape=" & oShape.id) + + If flag <= 1 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + call GSH_ValveRegulatoryControlShowNormal(oShape) + Dim OPValue,stsmsg, val_redTag, initMan + OPValue = oShape.objects("ind_OPStem").value + If (OPValue <= 5) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else if ( (OPValue > 5) and (OPValue < 95) ) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if: end if + + 'Check the points alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + 'Alarm is Disabled + call GSH_ValveRegulatoryControlShowDisabledAlarm(oShape) + End If + + 'Red Tag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + 'red tag + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + end if + + 'If flag <= 1 then + 'Focus + call GSH_ValveRegulatoryControlSetFocus(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + call GSH_ValveRegulatoryControlShowOffNormal(oShape) + end if + end if + End If + + If flag = 0 then + 'Check the point Windup + dim sWindupStatus + sWindupStatus = GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")) + call GSH_SHOWWINDUPSTATUS(sWindupStatus,oShape) + + 'Make the focus transparent for valves + oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + End If +'gsh_log_e("GSH_TPS_VALVEAUTOMAN_OnUpdate") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEANALOG_OnUpdate'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 14/Feb/2010 Created shape by JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEANALOG_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEANALOG_OnUpdate oShape=" & oShape.id) + + If flag <= 1 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + call GSH_ValveRegulatoryControlShowNormal(oShape) + Dim OPValue,stsmsg, val_redTag, initMan + OPValue = oShape.objects("ind_OPStem").value + If (OPValue <= 5) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else if ( (OPValue > 5) and (OPValue < 95) ) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if: end if + + 'Red Tag + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + 'red tag + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + end if + + 'If flag <= 1 then + 'Focus + call GSH_ValveRegulatoryControlSetFocus(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if GSH_C200_REGCTLSPLIT_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY) then + call GSH_ValveRegulatoryControlShowOffNormal(oShape) + end if + end if + End If + + If flag = 0 then + 'Check the point Windup + 'Make the focus transparent for valves + oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + End If +'gsh_log_e("GSH_TPS_VALVEANALOG_OnUpdate") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEDIGITAL_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape handle +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/04/2009 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEDIGITAL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEDIGITAL_ONUPDATE oShape=" & oShape.id) +on error resume next + +Dim nNumericState, sStateTxt + + If flag <= 1 then + + sStateTxt = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sStateTxt) + +' nNumericState = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + call GSH_ValveDigitalShowNormal(oShape) + call GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) then + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")),oShape) + else + 'Alarm is Disabled + call GSH_ValveDigitalShowDisabledAlarm(oShape) + End If + + 'focus + call GSH_ValveDigitalSetFocus(oShape) + 'Check for Off Normal if not in focus + 'dim sStateTxt: sStateTxt = GSH_TPS_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if (GSH_TPS_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL, sStateTxt)) then + call GSH_ValveDigitalShowOffNormal(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + + End If + 'Make the focus transparent for valves + 'oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + + If flag = 0 then + 'Bad Data Check + If GSH_C200_DIGITALCOMPOSITE_ISDATABAD(oShape.objects("rec_DataScript")) Then + call GSH_ValveDigitalShowBadPV(oShape) + else + oShape.objects("txt_PVvalue").value = sStateTxt + End If + + + End If +'gsh_log_e("GSH_TPS_VALVEDIGITAL_ONUPDATE oShape") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEDIGITALOUTPUT_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = shape handle +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 15/02/2010 Created by JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEDIGITALOUTPUT_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEDIGITALOUTPUT_ONUPDATE oShape=" & oShape.id) +on error resume next + +Dim nNumericState, sStateTxt + + If flag <= 1 then + + sStateTxt = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sStateTxt) + + call GSH_ValveDigitalShowNormal(oShape) + call GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) then + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("ConAlpAlarmValue")),oShape) + else + 'Alarm is Disabled + call GSH_ValveDigitalShowDisabledAlarm(oShape) + End If + + 'focus + call GSH_ValveDigitalSetFocus(oShape) + 'Check for Off Normal if not in focus + 'dim sStateTxt: sStateTxt = GSH_TPS_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then +' if (GSH_TPS_DIGITALCOMPOSITE_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL, sStateTxt)) then +' call GSH_ValveDigitalShowOffNormal(oShape) +' 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground +' end if + end if + + End If + 'Make the focus transparent for valves + 'oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + + If flag = 0 then + 'Bad Data Check + If GSH_C200_DIGITALCOMPOSITE_ISDATABAD(oShape.objects("rec_DataScript")) Then + call GSH_ValveDigitalShowBadPV(oShape) + else + oShape.objects("txt_PVvalue").value = sStateTxt + End If + End If +'gsh_log_e("GSH_TPS_VALVEDIGITALOUTPUT_ONUPDATE oShape") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEDIGITALFLAG_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Functions the same as Valve Digital but the Offnormal check only exists for Normal State +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 06/04/09 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEDIGITALFLAG_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEDIGITALFLAG_ONUPDATE oShape=" & oShape.id) +on error resume next + + + dim sStateTxt, nNumericState + + sStateTxt = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sStateTxt) + + call GSH_ValveDigitalShowNormal(oShape) + call GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) then + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + call GSH_ValveDigitalShowDisabledAlarm(oShape) + End If + + 'focus + call GSH_ValveDigitalSetFocus(oShape) + + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + + + 'Make the focus transparent for valves + 'oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground -> should set to be transparent, now done in GSH_ValveDigitalSetFocus + + If flag = 0 then + 'dim sStateTxt + 'sStateTxt = GSH_C200_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + oShape.objects("txt_PVvalue").value = sStateTxt + End If + + +'gsh_log_e("GSH_TPS_VALVEDIGITALFLAG_ONUPDATE oShape") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEDIGITAL_NOALARMS_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Functions the same as Valve Digital but the Offnormal check only exists for Normal State +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 07/14/09 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEDIGITAL_NOALARMS_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEDIGITAL_NOALARMS_ONUPDATE oShape=" & oShape.id) +on error resume next + + + dim sStateTxt, nNumericState + + sStateTxt = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sStateTxt) + + call GSH_ValveDigitalShowNormal(oShape) + call GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + 'focus + call GSH_ValveDigitalSetFocus(oShape) + + 'Check for Off Normal if not in focus + call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + + If flag = 0 then + oShape.objects("txt_PVvalue").value = sStateTxt + End If + +'gsh_log_e("GSH_TPS_VALVEDIGITAL_NOALARMS_ONUPDATE oShape") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_VALVEDIGITAL_NOALARMS_ONUPDATE",oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEDIGITAL_SO_NOALARMS_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Functions the same as Valve Digital but the SO flag is a binary not a state +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' 14/Feb/2010 Created by JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEDIGITAL_SO_NOALARMS_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEDIGITAL_SO_NOALARMS_ONUPDATE oShape=" & oShape.id) +on error resume next + + dim sStateTxt, nNumericState, bState + + bOPNumeric = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + if bOPNumeric then + sStateTxt = "ON" + else + sStateTxt = "OFF" + end if + nNumericState = GSH_GET_DIGITAL_NUMERIC_FROM_STATETEXT(oShape, sStateTxt) + + call GSH_ValveDigitalShowNormal(oShape) + call GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + 'focus + call GSH_ValveDigitalSetFocus(oShape) + + 'No check for Off Normal on this tag type +' call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + + oShape.objects("txt_PVvalue").value = sStateTxt + +'gsh_log_e("GSH_TPS_VALVEDIGITAL_SO_NOALARMS_ONUPDATE oShape") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_VALVEDIGITAL_SO_NOALARMS_ONUPDATE",oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEREGCTL_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 09/30/2008: Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEREGCTL_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEREGCTL_ONUPDATE oShape=" & oShape.id) + + If flag <= 1 then + oShape.objects("txt_OPvalue").value = FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_OP),GSH_OUTPUTINDICATORDECIMALS) + call GSH_ValveRegulatoryControlShowNormal(oShape) + Dim OPValue,stsmsg, val_redTag, initMan + OPValue = oShape.objects("ind_OPStem").value + If (OPValue <= 5) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else if ( (OPValue > 5) and (OPValue < 95) ) then + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else + oShape.objects("plg_valveBody").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if: end if + 'Check the points alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then +' call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + 'Alarm is Disabled + call GSH_ValveRegulatoryControlShowDisabledAlarm(oShape) + End If + + 'Assumption: Reg tag and status message are mutual exclusive + 'Status message + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + 'red tag + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + else + 'Check status Message + dim val_stsMsg + val_stsMsg = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_STSMSG) + call GSH_Show_StatusMessageFlag(oShape, val_stsMsg) + end if + 'End If + + 'If flag <= 1 then + 'Focus + call GSH_ValveRegulatoryControlSetFocus(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + 'if (GSH_C200_ValveREGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL)) then + if (GSH_TPS_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL)) then + call GSH_ValveRegulatoryControlShowOffNormal(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + End If + + If flag = 0 then + 'Check the point Windup + dim sWindupStatus + sWindupStatus = GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")) + call GSH_SHOWWINDUPSTATUS(sWindupStatus,oShape) + + 'Make the focus transparent for valves + oShape.objects("outline").styleClass = GSH_CSSValveOutlineBackground + End If +'gsh_log_e("GSH_TPS_VALVEREGCTL_ONUPDATE") +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEANALOG3WAY_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/04/2009 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEANALOG3WAY_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEANALOG3WAY_ONUPDATE oShape=" & oShape.id) + + If flag <= 1 then + call GSH_VALVEANALOG3WAYSHOWNORMAL(oShape) + + Dim OPValue,stsmsg, val_redTag, initMan + OPValue = oShape.objects("ind_OPStem").value + If (OPValue <= 5) then + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else if ( (OPValue > 5) and (OPValue < 95) ) then + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLNORMAL + else + oShape.objects("wgp_valveTop").styleClass = GSH_CSSVALVEREGULATORYCONTROLSATURATED + end if: end if + + call GSH_VALVEANALOG3WAYSHOWPORT(oShape) + + 'Check the points alarming + if GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) Then + call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY),oShape) + else + call GSH_VALVEANALOG3WAYSHOWDISABLEDALARM(oShape) + End If + + 'Assumption: Reg tag and status message are mutual exclusive + val_redTag = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_REDTAG) + if (val_redTag = GSH_ON) then + 'red tag + call GSH_ValveRegulatoryControlShowStatusMessage(oShape,GSH_REDTAG_TEXT) + end if + + 'End If + + 'If flag <= 1 then + 'Focus + call GSH_VALVEANALOG3WAYSETFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then +' if (GSH_C200_ValveREGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL)) then + if (GSH_TPS_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL)) then + call GSH_VALVEANALOG3WAYSHOWOFFNORMAL(oShape) + 'oShape.objects("focus").styleClass = GSH_CSSValveOutlineBackground + end if + end if + End If + + If flag = 0 then + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_DataScript")),oShape) + End If + + +'gsh_log_e("GSH_TPS_VALVEANALOG3WAY_ONUPDATE") +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_LOGICSTATUS_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 12/01/09 Created by JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_LOGICSTATUS_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_LOGICSTATUS_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next + + 'Shape normal + oShape.objects("outline").style.visibility = GSH_VISIBLE + oShape.objects("outline").styleClass = GSH_CSSALARMNONE + + Dim nNormalState, nPVvalue + nNormalState = CInt(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"CP_Normal", GSH_CPVALUE)) + nPVvalue = CInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + + If flag = 0 then + + if nNormalState = nPVValue then + oShape.objects("linLogic").style.visibility = GSH_VISIBLE + else + oShape.objects("linLogic").style.visibility = GSH_HIDDEN + end if + End If + + If flag <= 1 then + 'Set the focus + call GSH_GEN_SETSHAPEFOCUS(oShape) + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + + if nNormalState <> nPVValue then + oShape.objects("focus").style.visibility = GSH_VISIBLE + oShape.objects("focus").styleClass = GSH_CSSREGULATORYCONTROLVALVEOFFNORMAL + end if + end if + End If +'gsh_log_e("GSH_TPS_LOGICSTATUS_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_LOGICSTATUS_ONUPDATE",oShape) + end if +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GEN_BYPASSSTATUS_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 12/06/09 Created by JE +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_GEN_BYPASSSTATUS_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_GEN_BYPASSSTATUS_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next + + Dim nPVvalue + nPVvalue = CInt(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + +'These shapes use alarm group tags - which are not real tags in the registry - so do not give them focus. +'if we want selectability - we need to add the alarm groups to the registry in future + + 'Set the focus, shape does not have outline show cannot use GSH_GEN_SETSHAPEFOCUS +' call GSH_SETSHAPEFOCUS(oShape) + + shapeFocusStyle = GSH_CSSFOCUSNONE + oShape.objects("focus").styleClass = shapeFocusStyle + + 'Set the colour of the oval + if nPVvalue > 0 then + oShape.objects("ovalBypass").styleClass = GSH_CSSOFFNORMALLINEFILL + oShape.objects("textLabel").style.visibility = GSH_VISIBLE + else + oShape.objects("ovalBypass").styleClass = GSH_CSSNORMALLINEFILL + oShape.objects("textLabel").style.visibility = GSH_HIDDEN + End If + +'gsh_log_e("GSH_GEN_BYPASSSTATUS_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_GEN_BYBPASSSTATUS_ONUPDATE",oShape) + end if +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_GSH_GEN_SETVALUE_ONCLICK''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 03/03/10 Created by JE to replace the ONACTIVATE (which was firing multiple shapes) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_GEN_SETVALUE_ONCLICK(oShape) +'gsh_log_s("GSH_GEN_SETVALUE_ONCLICK >>>>> Shape ="& oShape.id) + On Error Resume Next + + Dim tagName, parameterName, parameterValue, resultParameterValue + Dim userResponse, check + + tagName = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"Entity", GSH_CPPOINT) + parameterName = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"CP_Parameter", GSH_CPPARAMETER) + parameterValue = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"CP_Value",GSH_CPVALUE) + + userResponse = Msgbox("Confirm setting " &tagName &"." ¶meterName &" to " ¶meterValue &" ? ",vbYesNo) + + If userResponse = vbYes Then + check = oShape.objects("rec_DataScript").SetDataValueSynchronous(GSH_CPENTITY & "." & parameterName, parameterValue) + End If + +' If check = False Then +' Msgbox("Error: Failed to write " ¶meterValue &" to " &tagName &"." ¶meterName) +' End If + +'gsh_log_e("GSH_GEN_SETVALUE_ONCLICK") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_SERVICETANK_ONCLICK''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/03/10 Created by JE to replace the ONACTIVATE (which was firing multiple shapes) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_SERVICETANK_ONCLICK(oShape,iButton) +'gsh_log_s("GSH_TPS_SERVICETANK_ONCLICK >>>>> Shape ="& oShape.id) + On Error Resume Next + + Dim tagName, parameterName, parameterValue, resultParameterValue + Dim userResponse, check + + parameterName = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,"CP_PV", GSH_CPPARAMETER) + txtPBValue = "CP_PB" & iButton & "_Value" + nparameterValue = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,txtPBValue,GSH_CPVALUE) + + check = oShape.objects("rec_DataScript").SetDataValueSynchronous(GSH_CPENTITY & "." & parameterName, nparameterValue) + +'gsh_log_e("GSH_TPS_SERVICETANK_ONCLICK") +End Sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_SERVICETANK_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal +' 06/03/10 Created by JE to replace the ONACTIVATE (which was firing multiple shapes) +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Sub GSH_TPS_SERVICETANK_ONUPDATE(oShape) +'gsh_log_s("GSH_TPS_SERVICETANK_ONUPDATE >>>>> Shape ="& oShape.id) + On Error Resume Next +' +'Update dynamic elements +' + nPVValue = cInt(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV)) + + oShape.objects("textBoxTankNum").textcolor = GSH_DARKGRAYCOLOR + oShape.objects("polygonUp").fillcolor = GSH_LIGHTLIGHTGRAYCOLOR + oShape.objects("polygonDown").fillcolor = GSH_LIGHTLIGHTGRAYCOLOR + oShape.objects("oval001").fillcolor = GSH_LIGHTLIGHTGRAYCOLOR + oShape.objects("oval002").fillcolor = GSH_LIGHTLIGHTGRAYCOLOR + oShape.objects("oval003").fillcolor = GSH_LIGHTLIGHTGRAYCOLOR + oShape.objects("oval004").fillcolor = GSH_LIGHTLIGHTGRAYCOLOR + + Select Case nPVValue + Case 1 + oShape.objects("textBoxTankNum").textColor = GSH_OFFNORMALCOLOR + oShape.objects("oval001").fillcolor = GSH_DARKGRAYCOLOR + Case 2 + oShape.objects("textBoxTankNum").textColor = GSH_OFFNORMALCOLOR + oShape.objects("oval002").fillcolor = GSH_DARKGRAYCOLOR + oShape.objects("polygonUp").fillcolor = GSH_DARKGRAYCOLOR + Case 3 + oShape.objects("textBoxTankNum").textColor = GSH_OFFNORMALCOLOR + oShape.objects("oval003").fillcolor = GSH_DARKGRAYCOLOR + oShape.objects("polygonDown").fillcolor = GSH_DARKGRAYCOLOR + Case 4 + oShape.objects("textBoxTankNum").textColor = GSH_OFFNORMALCOLOR + oShape.objects("oval004").fillcolor = GSH_DARKGRAYCOLOR + End Select + +'gsh_log_e("GSH_TPS_SERVICETANK_ONUPDATE") +End Sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' TPS L1 Shapes +' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_ANALOGINDICATOR_L1_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_ANALOGINDICATOR_L1_ONUPDATE (oShape, flag) +on error resume next + + call GSH_TPS_ANALOGINDICATOR_ONUPDATE (oShape, flag) + + dim sAlarmCode, bInSA + bInSA = false +' sAlarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY) + sAlarmCode = GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")) + + 'Check SA Bars Limit + rSAHi = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE))) + rSALo = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE))) + rPV = CDbl(FormatNumber(oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV))) + + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + If ((rPV > rSAHi) Or (rPV < rSALo)) Then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + bInSA = true + End If + + if(not(bInSA) AND StrComp(sAlarmCode,GSH_NONE,vbtextcompare) <> 0) then + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + else + oShape.objects("outline").style.visibility = GSH_VISIBLE + end if +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_DIGITALINDICATOR_L1_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_DIGITALINDICATOR_L1_ONUPDATE (oShape, flag) +on error resume next +'gsh_log_s("GSH_TPS_DIGITALINDICATOR_L1_ONUPDATE oShape = " &oShape.id) + + call GSH_TPS_DIGITALINDICATOR_ONUPDATE (oShape, flag) + + dim sPVState, sSAState + 'Check SA Condition + sPVState = GSH_TPS_DIGITAL_GETSTATE(oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY),GSH_CPENTITY, GSH_CPPARAM_PV, oShape.objects("rec_DataScript")) + + Dim sTagname + sTagname = GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPENTITY, GSH_CPPOINT) + +' gsh_log("sTagname = " &sTagname) + + sSAState = GSH_READTAGINFORMATIONKEYVALUE(sTagname, GSH_REGKEY_SA_STATE, GSH_NONE) + +' msgbox("sPVState " & sPVState & " sSAState = " &sSAState) + + If (StrComp(sPVState, sSAState, vbTextCompare) <> 0) Then + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + Else + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + End If + +' gsh_log_e("GSH_TPS_DIGITALINDICATOR_L1_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_DIGITALINDICATOR_L1_ONUPDATE",oShape) + end if +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_LevelRegCtl_L1Gauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_LevelRegCtl_L1Gauge_FR_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_LevelRegCtl_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) + isOffNormal = GSH_C200_REGCTL_POINT_ISOFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) + + call GSH_LevelRegCtl_L1Gauge_FR_OnUpdate_new(oShape, flag, isAlmEnabled, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, isOffNormal, isDataBad) + + 'Check the point Windup + call GSH_SHOWWINDUPSTATUS(GSH_GET_POINT_WINDUP_VALUE(oShape.objects("rec_datascript")),oShape) + +'gsh_log_e("GSH_LevelAnalog_SAGauge_FR_SCADA_OnUpdate") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_LevelRegCtl_L1Gauge_FR_OnUpdate",oShape) + end if +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_LevelAnalog_L1Gauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_LevelAnalog_L1Gauge_FR_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_LevelAnalog_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + +'''Jan. 25 ''' + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) + + call GSH_LevelAnalog_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, isOffNormal, isDataBad) + +'gsh_log_e("GSH_TPS_LevelAnalog_L1Gauge_FR_OnUpdate") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_LevelAnalog_L1Gauge_FR_OnUpdate",oShape) + end if +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_QualityAnalog_L1Gauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_QualityAnalog_L1Gauge_FR_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_QualityAnalog_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad + isAlmEnabled = GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) + + call GSH_QualityAnalog_L1Gauge_FR_OnUpdate_new(oShape, flag, isAlmEnabled, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, isOffNormal, isDataBad) + +'gsh_log_e("GSH_TPS_QualityAnalog_L1Gauge_FR_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_QualityAnalog_L1Gauge_FR_OnUpdate",oShape) + end if + +end sub + + +sub GSH_TPS_Quality_L1Deviation_FR_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_Quality_L1Deviation_FR_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + + dim isAlmEnabled, isOffNormal, isDataBad, pvRefVal + isAlmEnabled = GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) + pvRefVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"PVRefVal") + + call GSH_Quality_L1Deviation_FR_ONUPDATE(oShape, flag, isAlmEnabled, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, isOffNormal, isDataBad, pvRefVal) + + +'gsh_log_e("GSH_TPS_Quality_L1Deviation_FR_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_Quality_L1Deviation_FR_ONUPDATE",oShape) + end if + +end sub + + + +sub GSH_TPS_Quality_L1Deviation_Hi_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_Quality_L1Deviation_Hi_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad, pvRefVal + isAlmEnabled = GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) + pvRefVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"PVRefVal") + + call GSH_Quality_L1Deviation_Hi_ONUPDATE(oShape, flag, isAlmEnabled, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, isOffNormal, isDataBad, pvRefVal) + +'gsh_log_e("GSH_TPS_Quality_L1Deviation_Hi_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_Quality_L1Deviation_Hi_ONUPDATE",oShape) + end if +end sub + + + +sub GSH_TPS_Quality_L1Deviation_Lo_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_Quality_L1Deviation_Lo_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + dim isAlmEnabled, isOffNormal, isDataBad, pvRefVal + isAlmEnabled = GSH_TPS_ISALARMINGENABLED(oShape.objects("rec_DataScript"),GSH_CPENTITY, GSH_TPS_PARAM_ALARM_ENABLED) + isOffNormal = GSH_C200_ANALOG_POINT_IS_OFFNORMAL(oShape.objects("rec_DataScript"), GSH_CPENTITY, GSH_CPPARAM_OFFNORMAL) + isDataBad = GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) + pvRefVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"PVRefVal") + + call GSH_Quality_L1Deviation_Lo_ONUPDATE(oShape, flag, isAlmEnabled, GSH_TPS_PARAM_ALARM_HIGHEST_PRORITY, isOffNormal, isDataBad, pvRefVal) + +'gsh_log_e("GSH_TPS_Quality_L1Deviation_Lo_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_Quality_L1Deviation_Lo_ONUPDATE",oShape) + end if +end sub + +sub GSH_TPS_QualTrend_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_QualTrend_OnUpdate oShape="&oShape.id) +On Error Resume Next + + 'Check for bad value + dim isDataBad + isDataBad = GSH_ISDATABAD(oShape.objects("rec_DataScript"), GSH_CPPARAM_PV, true, false) + + call GSH_QualTrend_OnUpdate(oShape, flag, isDataBad) + +'gsh_log_e("GSH_TPS_QualTrend_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_QualTrend_OnUpdate",oShape) + end if + +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_OPDEVIATION_L1_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_OPDEVIATION_L1_ONUPDATE (oShape, flag) +'gsh_log_s("GSH_TPS_OPDEVIATION_L1_ONUPDATE oShape=" & oShape.id) +on error resume next + + dim isOffNormal + isOffNormal = GSH_C200_ANALOG_MODE_ISOFFNORMAL(oShape.objects("OPDevMonitor_Script"), GSH_CPENTITY) + + call GSH_OPDEVIATION_L1_ONUPDATE(oShape, flag, isOffNormal) + + +' End If + +'gsh_log_e("GSH_TPS_OPDEVIATION_L1_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_OPDEVIATION_L1_ONUPDATE",oShape) + end if +end sub + +'nNumericStateValue = 0 -> not running +' = 1 -> running +'Styles are configurable from registry +sub GSH_SetRunStatus(oShape,nNumericStateValue) +'gsh_log_s("GSH_SetRunStatus oShape=" & oShape.id & "nNumericStateValue=" & nNumericStateValue) +on error resume next + Dim sTagName, sStateStyle, nValue + if (nNumericStateValue < 1) then + sStateStyle = GSH_CSSMOTOROFF + else + sStateStyle = GSH_CSSMOTORON + end if + oShape.objects("pol_RunSatus").styleClass = sStateStyle +'gsh_log_e("GSH_SetRunStatus set to "& sStateStyle) +end sub + +' +'Logic (Marcus & Jamie) +' Only one function code would work... so you create just one FunctionCode Parameter which can be set to 1 or 2 where: +' 1 = One of the three "CompareValue" must match +' 2 = CompareValue1 must match or the Input PV must be betwen CompareValue2 and CompareValue3 +' +' +sub GSH_TPS_RunStatus_OnUpdate(oShape, flag) +'gsh_log_s("GSH_TPS_RunStatus_OnUpdate oShape=" &oShape.id) +on error resume next + dim pvValue, cpValue1, cpValue2, cpValue3, functionCode + 'set shape status as not running + call GSH_SetRunStatus(oShape,0) + 'Get CompareValue1, 2 & 3. + cpValue1 = CDbl(oShape.GetCustomProperty(GSH_CPVALUE,"CompareValue1")) + cpValue2 = CDbl(oShape.GetCustomProperty(GSH_CPVALUE,"CompareValue2")) + cpValue3 = CDbl(oShape.GetCustomProperty(GSH_CPValue,"CompareValue3")) + functionCode = CInt(oShape.GetCustomProperty(GSH_CPVALUE,"FunctionCode")) + pvValue = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + if functionCode = 1 then + if pvValue = cpValue1 Or pvValue = cpValue2 Or pvValue = cpValue3 then + call GSH_SetRunStatus(oShape,1) + end if + elseif functionCode = 2 then + if pvValue = cpValue1 Or (pvValue <cpValue3 And pvValue > cpValue2) then + call GSH_SetRunStatus(oShape,1) + end if + end if +'gsh_log_e("GSH_TPS_RunStatus_OnUpdate") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_RunStatus_OnUpdate",oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_TPS_VALVEDIGITAL_BnB_NOALARMS_ONUPDATE'''''''''''''''''''''''''''''''''''''''''' +'Functions the same as Valve Digital but the Offnormal check only exists for Normal State +'Parameters: +' oDataBoundObject = subshape name or me, if calling within subshape +' flag = 0 -> do everything +' flag = 1 -> do focus & offnormal (b/c digital values are not changed often) +' +' Logic (Jamie): +' This will gets its indication from a single digital indicator (0 or 1) tag. +' When the value is 0 then the Bleed (upper) valve is open and the two process (horizontal) valves are closed. +' When the value is 1 then the Bleed valve is closed and the two proces valves are open. +' If the value is anything else - then all three valves are shown in Travel +' +' 11/25/09 Created by CL +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_TPS_VALVEDIGITAL_BnB_NOALARMS_ONUPDATE(oShape, flag) +'gsh_log_s("GSH_TPS_VALVEDIGITAL_BnB_NOALARMS_ONUPDATE oShape=" & oShape.id) +on error resume next + + + call GSH_ValveDigitalBnBSetFocus(oShape) + + 'Get pv value + dim nPV + nPV = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + + 'if pv = 0, then + 'Set Bleed (upper) valve style as open, set its text as "OPEN" + 'Set the other valve styles as opened, set their texts as "CLOSED" + if nPV = 0 then + oShape.objects("plg_ValveDigitalPic1").styleClass = GSH_CSSVALVEDIGITALOPEN + oShape.objects("plg_ValveDigitalPic2").styleClass = GSH_CSSVALVEDIGITALCLOSED + oShape.objects("plg_ValveDigitalPic3").styleClass = GSH_CSSVALVEDIGITALCLOSED + oShape.objects("txt_PVvalue1").value = "OPEN" + oShape.objects("txt_PVvalue2").value = "CLOSED" + oShape.objects("txt_PVvalue3").value = "CLOSED" + 'if pv = 1 then + 'Set Bleed valve style as closed, set its text as "CLOSED" + 'Set the other valve styles as open, set theirs texts as "OPEN" + elseif nPV = 1 then + oShape.objects("plg_ValveDigitalPic1").styleClass = GSH_CSSVALVEDIGITALCLOSED + oShape.objects("plg_ValveDigitalPic2").styleClass = GSH_CSSVALVEDIGITALOPEN + oShape.objects("plg_ValveDigitalPic3").styleClass = GSH_CSSVALVEDIGITALOPEN + oShape.objects("txt_PVvalue1").value = "CLOSED" + oShape.objects("txt_PVvalue2").value = "OPEN" + oShape.objects("txt_PVvalue3").value = "OPEN" + else + 'Set all three valves as travel + oShape.objects("plg_ValveDigitalPic1").styleClass = GSH_CSSVALVEDIGITALTRAVEL + oShape.objects("plg_ValveDigitalPic2").styleClass = GSH_CSSVALVEDIGITALTRAVEL + oShape.objects("plg_ValveDigitalPic3").styleClass = GSH_CSSVALVEDIGITALTRAVEL + oShape.objects("txt_PVvalue1").value = "TRAVEL" + oShape.objects("txt_PVvalue2").value = "TRAVEL" + oShape.objects("txt_PVvalue3").value = "TRAVEL" + end if + + 'call GSH_ValveDigitalShowNormal(oShape) + 'call GSH_C200_VALVEDIGITALSETVALVENUMERICSTATE(oShape,nNumericState,GSH_CPPARAM_PV) + + 'focus + 'call GSH_ValveDigitalSetFocus(oShape) + + 'Check for Off Normal if not in focus + 'call GSH_TPS_DIGITAL_OFFNORMAL_SHOWSTATUS (oShape, GSH_CPPARAM_PV) + + 'If flag = 0 then + ' oShape.objects("txt_PVvalue").value = sStateTxt + 'End If + + +'gsh_log_e("GSH_TPS_VALVEDIGITAL_BnB_NOALARMS_ONUPDATE oShape") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_TPS_VALVEDIGITAL_BnB_NOALARMS_ONUPDATE",oShape) + end if +end sub + + +''''''''''''''''''' End TPS L1 Shapes '''''''''''''''''''''' + + + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' _____ ____ ____ _____ _ _ +'|_ _| _ \/ ___| | ___|_ _ ___ ___ _ __ | | __ _| |_ ___ ___ +' | | | |_) \___ \ | |_ / _` |/ __/ _ \ '_ \| |/ _` | __/ _ \/ __| +' | | | __/ ___) | | _| (_| | (_| __/ |_) | | (_| | || __/\__ \ +' |_| |_| |____/ |_| \__,_|\___\___| .__/|_|\__,_|\__\___||___/ +' +''''''''''''''''''''''''''TPS Faceplates General ''''''''''''''''''''''''''''''''''' + + + '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TPS_ANALOG_SOL_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Alarm Limits, Detail Trend +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TPS_ANALOG_SOL_ONPAGECOMPLETE +'gsh_log_s "GSH_FP_TPS_ANALOG_SOL_ONPAGECOMPLETE" + call GSH_FP_TPS_ANALOG_ONPAGECOMPLETE + +' gsh_log("ConAlpTagname.value = " &ConAlpTagname.value) + 'Show SOL condition if there is any +' Dim solHi, solLo +' solHi = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_REGKEY_SOL_HI, GSH_NONE) +' solLo = GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_REGKEY_SOL_LO, GSH_NONE) + + dim nPVFormat + nPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + +' gsh_log("solHi = " &solHi & "solLo = " &solLo) + + If (txt_alarmtype2.style.visibility = GSH_VISIBLE) Then + txt_SOLHI.style.visibility = GSH_VISIBLE + Else + txt_SOLHI.style.visibility = GSH_HIDDEN + End If + + If (strcomp(txt_alarmtype3.style.visibility,GSH_HIDDEN,vbtextcompare) <> 0) Then + txt_SOLLO.style.visibility = GSH_VISIBLE + Else + txt_SOLLO.style.visibility = GSH_HIDDEN + End If + +'gsh_log_e "GSH_FP_TPS_ANALOG_SOL_ONPAGECOMPLETE" +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TPS_ANALOG_ONPAGECOMPLETE +'Function: Initializes objects on the faceplate based on the current point +' Description, Keyword, Eng Units, Alarm Limits, Detail Trend +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TPS_ANALOG_ONPAGECOMPLETE +'gsh_log_s "GSH_FP_TPS_ANALOG_ONPAGECOMPLETE" + call GSH_FP_GENERAL_ONPAGECOMPLETE + dim nPVFormat + nPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(ConAlpTagname.value, GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + txt_euhi.value = FORMATNUMBER(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_PVEUHI),nPVFormat,-2, 0, 0) + txt_eulo.value = FORMATNUMBER(ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & "." & GSH_PVEULO),nPVFormat,-2, 0, 0) + call GSH_FP_TPS_ShowAlarmLimits 'Setup Alarm Limits +'gsh_log_e "GSH_FP_TPS_ANALOG_ONPAGECOMPLETE" +end sub + +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_FP_TPS_ShowAlarmLimits +'function: Sets the style and position of the 4 alarm limits on the PV Bar graph +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_FP_TPS_ShowAlarmLimits +on error resume next +dim alarmlim, alarmPri 'to do: handle null return from the limit and priority values + 'Alarm 1 + if ConAlpTagname.IsNan(GSH_SDR_CURRENTPOINT & ".pvhhtp") then + txt_alarmlim1.value = "---" + RecAlarm1.style.visibility = GSH_HIDDEN + else + alarmlim = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".pvhhtp") + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".pvhhpr") + If (alarmPri > 1) then + txt_alarmlim1.value = GSH_FormatPVTextTag(ConAlpTagname.value,alarmlim) + else + txt_alarmlim1.value = "---" + end if + txt_alarmlim1.style.visibility = GSH_VISIBLE ''why do we need these two lines for TPS and not C200? + txt_alarmtype1.style.visibility = GSH_VISIBLE + call GSH_FP_C200_ShowAlarmRec(RecAlarm1, alarmlim, alarmPri) + end if + 'Alarm 2 + if ConAlpTagname.IsNan(GSH_SDR_CURRENTPOINT & ".pvhitp") then + txt_alarmlim2.value = "---" + RecAlarm2.style.visibility = GSH_HIDDEN + else + alarmlim = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".pvhitp") + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".pvhipr") + If (alarmPri > 1) then + txt_alarmlim2.value = GSH_FormatPVTextTag(ConAlpTagname.value,alarmlim) + else + txt_alarmlim2.value = "---" + end if + txt_alarmlim2.style.visibility = GSH_VISIBLE ''why do we need these two lines for TPS and not C200? + txt_alarmtype2.style.visibility = GSH_VISIBLE + call GSH_FP_C200_ShowAlarmRec(RecAlarm2, alarmlim, alarmPri) + end if + 'Alarm 3 + if ConAlpTagname.IsNan(GSH_SDR_CURRENTPOINT & ".pvlotp") then + txt_alarmlim3.value = "---" + RecAlarm3.style.visibility = GSH_HIDDEN + else + alarmlim = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".pvlotp") + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".pvlopr") + If (alarmPri > 1) then + txt_alarmlim3.value = GSH_FormatPVTextTag(ConAlpTagname.value,alarmlim) + else + txt_alarmlim3.value = "---" + end if + txt_alarmlim3.style.visibility = GSH_VISIBLE ''why do we need these two lines for TPS and not C200? + txt_alarmtype3.style.visibility = GSH_VISIBLE + call GSH_FP_C200_ShowAlarmRec(RecAlarm3, alarmlim, alarmPri) + end if + 'Alarm 4 + if ConAlpTagname.IsNan(GSH_SDR_CURRENTPOINT & ".pvlltp") then + txt_alarmlim4.value = "---" + RecAlarm4.style.visibility = GSH_HIDDEN + else + alarmlim = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".pvlltp") + alarmPri = ConAlpTagname.DataValue(GSH_SDR_CURRENTPOINT & ".pvllpr") + If (alarmPri > 1) then + txt_alarmlim4.value = GSH_FormatPVTextTag(ConAlpTagname.value,alarmlim) + else + txt_alarmlim4.value = "---" + end if + txt_alarmlim4.style.visibility = GSH_VISIBLE ''why do we need these for TPS and not C200? + txt_alarmtype4.style.visibility = GSH_VISIBLE + call GSH_FP_C200_ShowAlarmRec(RecAlarm4, alarmlim, alarmPri) + end if + + if Err then + call GSH_ERROR_HANDLING("GSH_FP_TPS_ShowAlarmLimits") + end if + +end sub + +'--------------------------------------------END TPS SPECIFIC------------------------------ + + +'------------------------------------------------------------------------------------------ +' Common L1 Shape +' +'------------------------------------------------------------------------------------------ + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_LevelRegCtl_L1Gauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelRegCtl_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, almPriorityParam, isOffNormal, isDataBad) +'gsh_log_s("GSH_LevelRegCtl_L1Gauge_FR_OnUpdate oShape="&oShape.id &" isOffNormal = " &isOffNormal) +On Error Resume Next + + Dim sAlarmCode, bInSA + + call GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + +' sAlarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,almPriorityParam) + sAlarmCode = GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")) + + If flag <= 1 then +' call GSH_SALevelIndicatorRegulatoryControlShowNormal(oShape) + + 'Check the points alarming + if CBool(isAlmEnabled) Then + call GSH_SHOWLEVELALARMS(sAlarmCode,oShape) + else + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + end if + + 'Check Focus + call GSH_LevelRegCtl_SAGauge_SetFocus(oShape, isOffNormal) + + + + 'Set Alarm Lines + Dim rRangeHi, rRangeLo + + rRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + rRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + +''' Jan2010 + + If flag = 0 Then + call GSH_C200_SetAlarmLinesVertical_new(oShape, rRangeHi, rRangeLo, 4) + End If + + 'Set SA Bars Limit + Dim iSAHi, iSALo + iSAHi = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE)) + iSALo = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE)) + call GSH_LevelIndicatorShowSALimits(oShape, iSAHi, iSALo) + + 'Check for bad value + If CBool(isDataBad) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + Dim iPV, iSP, iPVFormat, iPVFormated + + iPV = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + iSP = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"), GSH_CPPARAM_SP)) + 'Locate PV Float + call GSH_SetObjectLocation_Vertical(oShape.objects("linePVRange"), oShape.objects("rec_IndicatorFloat"), iPV, rRangeHi, rRangeLo) + + 'Locate SP Float + call GSH_SetObjectLocation_Vertical(oShape.objects("linePVRange"), oShape.objects("plg_SPIndicator"), iSP, rRangeHi, rRangeLo) + + shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + iPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(shapeTagName,GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + iPVFormated = FormatNumber(iPV, iPVFormat) + oShape.objects("txt_PVvalue").value = iPVFormated + + bInSA = GSH_IsShapeInSA(iPV, iSAHi, iSALo) + if (bInSA) then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + else + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + end if + + 'Set Recent PV range bar + call GSH_LevelRegCtl_SAGauge_SetPVRangeBar(oShape, iPV) + End If + + oShape.objects("txt_mode").value = Left(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE), 1) + + + call GSH_LevelRegCtl_SAGauge_ShowHideComponents(oShape, sAlarmCode, bInSA, isOffNormal) + + + End If + + +'gsh_log_e("GSH_LevelRegCtl_L1Gauge_FR_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_LevelRegCtl_L1Gauge_FR_OnUpdate",oShape) + end if +end sub + + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_LevelAnalog_L1Gauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelAnalog_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, almPriorityParam, isOffNormal, isDataBad) +'gsh_log_s("GSH_LevelAnalog_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + Dim sAlarmCode, bInSA + bInSA = false +' sAlarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,almPriorityParam) + sAlarmCode = GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")) + + call GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + + 'Check the points alarming + if CBool(isAlmEnabled) Then + 'call GSH_SHOWLEVELALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,almPriorityParam),oShape) + call GSH_SHOWLEVELALARMS(sAlarmCode,oShape) + else + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + + End If + + 'Check Focus & offnormal + call GSH_LevelRegCtl_SAGauge_SetFocus(oShape, isOffNormal) + + 'Set Alarm Lines + Dim rRangeHi, rRangeLo + + rRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + rRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + + shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + If flag = 0 Then + call GSH_C200_SetAlarmLinesVertical_new(oShape, rRangeHi, rRangeLo, 4, shapeTagName) + End If + + 'Set SA Bars Limit + Dim iSAHi, iSALo + iSAHi = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE)) + iSALo = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE)) + call GSH_LevelIndicatorShowSALimits(oShape, iSAHi, iSALo) + + 'Check for bad value + If CBool(isDataBad) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + Dim iPV, iSP, iPVFormat, iPVFormated + + iPV = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + iSP = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"), GSH_CPPARAM_SP)) + 'Locate PV Float + call GSH_SetObjectLocation_Vertical(oShape.objects("linePVRange"), oShape.objects("rec_IndicatorFloat"), iPV, rRangeHi, rRangeLo) + + shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + iPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(shapeTagName,GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + iPVFormated = FormatNumber(iPV, iPVFormat) + oShape.objects("txt_PVvalue").value = iPVFormated + + bInSA = GSH_IsShapeInSA(iPV, iSAHi, iSALo) + if (bInSA) then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + else + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + end if + + 'Set Recent PV range bar + call GSH_LevelRegCtl_SAGauge_SetPVRangeBar(oShape, iPV) + + End If + + call GSH_LevelAnalog_SAGauge_ShowHideComponents(oShape, sAlarmCode, bInSA, isOffNormal) + +' gsh_log_e("GSH_LevelAnalog_L1Gauge_FR_OnUpdate") + + if Err then +' call GSH_SHAPE_ERROR_HANDLING("GSH_LevelAnalog_L1Gauge_FR_OnUpdate",oShape) + end if +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_QualityAnalog_L1Gauge_FR_OnUpdate Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_QualityAnalog_L1Gauge_FR_OnUpdate(oShape, flag, isAlmEnabled, almPriorityParam, isOffNormal, isDataBad) +'gsh_log_s("GSH_TPS_QualityAnalog_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim sAlarmCode, bInSA + bInSA = false + sAlarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,almPriorityParam) + + call GSH_LevelIndicatorShowNormal(oShape) + + 'Check the points alarming + if CBool(isAlmEnabled) Then + call GSH_SHOWLEVELALARMS(sAlarmCode,oShape) + else + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + End If + + + 'Check Focus + 'call GSH_LevelRegCtl_QualitySAGauge_SetFocus(oShape) + + call GSH_LevelRegCtl_SAGauge_SetFocus(oShape, isOffNormal) + +' if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then +' if CBool(isOffNormal) then +' call GSH_LevelIndicatorSHOWOFFNORMAL(oShape) +' end if +' end if + + Dim rRangeHi, rRangeLo + rRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + rRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + + + If flag = 0 Then + 'Set Alarm Lines + call GSH_C200_SetAlarmLinesHorizontal(oShape, rRangeHi, rRangeLo, 4) + End If + + 'Set SA Bars Limit + Dim rSAHi, rSALo + rSAHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE)) + rSALo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE)) + + 'gsh_log("rSAHi = " &rSAHi & " rSALo = " &rSALo) + 'call GSH_QualitySAGauge_ShowSALimits(oShape, rSAHi, rSALo) + call GSH_SetObjectLocationAndWidth_Horizontal(oShape.objects("linePVRange"), oShape.objects("rec_SALow"), rSALo, rRangeLo, rRangeHi, rRangeLo) + call GSH_SetObjectLocationAndWidth_Horizontal(oShape.objects("linePVRange"), oShape.objects("rec_SAHigh"), rRangeHi, rSAHi, rRangeHi, rRangeLo) + + 'Check for bad value + If CBool(isDataBad) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + + Dim rPV, rPVFormat, rPVFormated + + rPV = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + rPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(shapeTagName,GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + rPVFormated = FormatNumber(rPV, rPVFormat) + oShape.objects("txt_PVvalue").value = rPVFormated + + call GSH_SetObjectLocation_Horizontal(oShape.objects("linePVRange"), oShape.objects("rec_IndicatorFloat"), rPV, rRangeHi, rRangeLo) + 'call GSH_LevelRegCtl_SAGauge_InSA(oShape, rPV, rSAHi, rSALo) + + bInSA = GSH_IsShapeInSA(iPV, iSAHi, iSALo) + if (bInSA) then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + else + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + end if + + End If + + call GSH_QualityAnalog_SAGauge_ShowHideComponents(oShape, sAlarmCode, bInSA, isOffNormal) + + + +'gsh_log_e("GSH_QualityAnalog_L1Gauge_FR_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_QualityAnalog_L1Gauge_FR_OnUpdate",oShape) + end if + +end sub + + + +' +'isDataBad: bool - identify if the PV data point is bad +' +' +sub GSH_QualTrend_OnUpdate(oShape, flag, isDataBad) +'gsh_log_s("GSH_QualTrend_OnUpdate oShape="&oShape.id) +On Error Resume Next + + oShape.objects("focus").style.visibility = GSH_HIDDEN + call GSH_SETSHAPEFOCUS(oShape) + + + + 'Check for bad value + If not(CBool(isDataBad)) Then + + + 'We do not want shape to reload it self when Value changes, the changes will affect in next update + oShape.autoReloadContent=false + + ' get the deadband, filter, PVRefVal and the last RefTime + pvRefVal = Cdbl(oShape.GetCustomProperty("Value","PVRefVal")) + tcFilterVal = Cdbl(oShape.GetCustomProperty("Value","TCFilter")) + 'TCFilter + lastRefTime = oShape.GetCustomProperty("Value","LastRefTime") + diff_old = oShape.GetCustomProperty("Value","Diff_Old") + modChange = Cdbl(oShape.GetCustomProperty("Value","ModerateChange")) + sigChange = Cdbl(oShape.GetCustomProperty("Value","SignificantChange")) + RangeMax = Cdbl(oShape.GetCustomProperty("Value","RangeMax")) + RangeMin = Cdbl(oShape.GetCustomProperty("Value","RangeMin")) + + + dim diff_cur, deviation, pvVal, diff_prev + pvVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + + + 'Reference PV value is not set, + 'Initialized on load + if(pvRefVal < -990.0) then + pvRefVal = PVVal + oShape.SetCustomProperty "Value","PVRefVal",pvVal + oShape.SetCustomProperty "Value","LastRefTime",now + oShape.objects("grp_nochange").rotation = 0 + oShape.objects("arrowHead").LineWidth = 1 + oShape.objects("arrowLine").LineWidth = 1 + oShape.objects("arrowHead").LineColor = GSH_DARKGRAYCOLOR + oShape.objects("arrowLine").LineColor = GSH_DARKGRAYCOLOR + oShape.objects("txtHours").value = 0 + exit sub + end if + + 'Get the RefTime from Registry. + dim opDevMonRegistryBase, refTime + opDevMonRegistryBase = GSH_REGISTRY_BASE & GSH_REGISTRY_OPDEVMONITOR + refTime = GSH_READREGISTRY(opDevMonRegistryBase & GSH_REGKEY_OPDEVMON_RESETTIME, GSH_EMPTYSTRING) + + 'If the RefTime > lastRefTime then update OPRefVal to current OPVal & update lastRefTime to RefTime +' 'Need to give it a time buffer (i.e within 10s)? +' 'Reset is applied + if((StrComp(refTime,GSH_EMPTYSTRING)<>0) AND (CDate(refTime) > CDate(lastRefTime))) then + oShape.SetCustomProperty "Value","PVRefVal",pvVal + pvRefVal = pvVal + oShape.SetCustomProperty "Value","LastRefTime",refTime + oShape.SetCustomProperty "Value","Diff_Old",0 + diff_old = 0 + oShape.objects("grp_nochange").rotation = 0 + oShape.objects("arrowHead").LineWidth = 1 'originally = 2, why? + oShape.objects("arrowLine").LineWidth = 1 + oShape.objects("arrowHead").LineColor = GSH_DARKGRAYCOLOR + oShape.objects("arrowLine").LineColor = GSH_DARKGRAYCOLOR + oShape.objects("txtHours").value = 0 + exit sub + end if + + 'Calculate the elapsed time to display + elapsedTime = DateDiff("h",CDate(refTime),now) + + oShape.objects("txtHours").value = CInt(elapsedTime) + + + dim dt + 'Sampling interval = PV update rate = 30s = 0.5 minutes + dt = 0.5 + + 'Calculate PVDeviation + diff_cur = ((pvVal - pvRefVal)/(RangeMax - RangeMin)) * 100.0 + + 'Use low-pass first order filter equation (http://en.wikipedia.org/wiki/Low-pass_filter) + diff_filtered = diff_cur + (diff_old-diff_cur)*(dt/(tcFilterVal+dt)) + + diff_old = diff_filtered + oShape.SetCustomProperty "Value","Diff_Old", diff_old + + 'Set Arrow + if diff_Filtered > sigChange then + oShape.objects("grp_nochange").rotation = -75 + oShape.objects("arrowHead").LineWidth = 3 + oShape.objects("arrowLine").LineWidth = 4 + oShape.objects("arrowHead").LineColor = GSH_CSSBLACK + oShape.objects("arrowLine").LineColor = GSH_CSSBLACK + elseif diff_Filtered > modChange then + oShape.objects("grp_nochange").rotation = -30 + oShape.objects("arrowHead").LineWidth = 2 + oShape.objects("arrowLine").LineWidth = 3 + oShape.objects("arrowHead").LineColor = GSH_CSSBLACK + oShape.objects("arrowLine").LineColor = GSH_CSSBLACK + elseif diff_Filtered < (-1.0*sigChange) then + oShape.objects("grp_nochange").rotation = 75 + oShape.objects("arrowHead").LineWidth = 3 + oShape.objects("arrowLine").LineWidth = 4 + oShape.objects("arrowHead").LineColor = GSH_CSSBLACK + oShape.objects("arrowLine").LineColor = GSH_CSSBLACK + elseif diff_Filtered < (-1.0*modChange) then + oShape.objects("grp_nochange").rotation = 30 + oShape.objects("arrowHead").LineWidth = 2 + oShape.objects("arrowLine").LineWidth = 3 + oShape.objects("arrowHead").LineColor = GSH_CSSBLACK + oShape.objects("arrowLine").LineColor = GSH_CSSBLACK + else + oShape.objects("grp_nochange").rotation = 0 + oShape.objects("arrowHead").LineWidth = 1 + oShape.objects("arrowLine").LineWidth = 1 + oShape.objects("arrowHead").LineColor = GSH_DARKGRAYCOLOR + oShape.objects("arrowLine").LineColor = GSH_DARKGRAYCOLOR + end if + else + oShape.objects("txtHours").value = GSH_BADPV_TEXT + end if + + +'gsh_log_e("GSH_QualTrend_OnUpdate") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_QualTrend_OnUpdate",oShape) + end if + +end sub + + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_OPDEVIATION_L1_ONUPDATE''''''''''''''''''''''''''''''''''''''''''' +'Parameters: oShape = Shape object +'Parameters: flag = 0 -> do everything +' flag = 1 -> do focus only +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_OPDEVIATION_L1_ONUPDATE (oShape, flag, isOffNormal) +'gsh_log_s("GSH_OPDEVIATION_L1_ONUPDATE oShape=" & oShape.id) +on error resume next + + call GSH_C200_OPDEVMONITOR_SHOWNORMAL(oShape) + ' No alarm checking + + + 'Do focus and offnormal checking here. It is important that all shape generic functionalities are + 'done before shape specific ones + oShape.objects("outline").styleClass = GSH_CSSALARMNONE + oShape.objects("rec_IndicatorRange").styleClass = GSH_CSSALARMNONE + call GSH_GEN_SETSHAPEFOCUS(oShape) + + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + oShape.objects("rec_IndicatorRange").fillstyle = GSH_FILLTRANSPARENT + end if + 'Check for Off Normal if not in focus + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if CBool(isOffNormal) then + if (oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + else + oShape.objects("focus").styleClass = GSH_CSSFOCUSOFFNORMAL + end if + end if + end if + + +' If flag = 0 then + + Dim iNumPixels, iLeft + Dim rRangeHi, rRangeLo, iOP + 'Calculate pv value + rRangeHi = Cdbl(oShape.GetCustomProperty("Value","RangeMax")) + rRangeLo = Cdbl(oShape.GetCustomProperty("Value","RangeMin")) + iOP = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("OPDevMonitor_Script"),GSH_CPPARAM_OP)) + oShape.objects("txt_OPValue").value = FormatNumber(iOP, 0) + modeVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("OPDevMonitor_Script"),GSH_CPPARAM_MODE) + oShape.objects("txt_mode").value = Left(modeVal,1) + + call GSH_SetObjectLocation_Horizontal(oShape.objects("lineOPRange"), oShape.objects("rec_IndicatorFloat"), iOP, rRangeHi, rRangeLo) + + + 'Set SA Bars Limit + Dim rSAHi, rSALo + rSAHi = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE))) + rSALo = CDbl(FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE))) + + call GSH_SetObjectLocationAndWidth_Horizontal(oShape.objects("lineOPRange"), oShape.objects("rec_SALow"), rSALo, rRangeLo, rRangeHi, rRangeLo) + call GSH_SetObjectLocationAndWidth_Horizontal(oShape.objects("lineOPRange"), oShape.objects("rec_SAHigh"), rRangeHi, rSAHi, rRangeHi, rRangeLo) + + dim bInSA + bInSA = GSH_IsShapeInSA(iOP, rSAHi, rSALo) + if (bInSA) then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + else + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + end if + + call GSH_OPDeviation_L1_ShowHideComponents(oShape, bInSA, isOffnormal) + + 'We do not want shape to reload it self when Value changes, the changes will affect in next update + oShape.autoReloadContent=false + + dim opRefVal, lastRefTime + + 'Get the OPRefVal and the lastRefTime + + opRefVal = Cdbl(oShape.GetCustomProperty("Value","OPRefVal")) + lastRefTime = oShape.GetCustomProperty("Value","LastRefTime") + + + dim diff_cur, deviation, opVal, diff_prev + opVal = iOP + + 'Get the RefTime from Registry. + dim opDevMonRegistryBase, refTime + opDevMonRegistryBase = GSH_REGISTRY_BASE & GSH_REGISTRY_OPDEVMONITOR + refTime = GSH_READREGISTRY(opDevMonRegistryBase & GSH_REGKEY_OPDEVMON_RESETTIME, GSH_EMPTYSTRING) + + + call GSH_OPDeviation_SAGauge_SetPVRangeBar(oShape, iOP) + + + 'Reference OP value is not set + If(IsDate(lastRefTime) AND IsDate(refTime)) Then + If(CDate(refTime) > CDate(lastRefTime)) Then + oShape.SetCustomProperty "Value","OPRefVal",opVal + opRefVal = opVal + oShape.SetCustomProperty "Value","LastRefTime",refTime + oShape.SetCustomProperty "Value","Diff_Old",0 + diff_old = 0 + call GSH_SetObjectLocation_Horizontal(oShape.objects("lineOPRange"), oShape.objects("plg_OPRefValue"), opRefVal, rRangeHi, rRangeLo) + End If + Else + opRefVal = opVal + oShape.SetCustomProperty "Value","OPRefVal",opVal + oShape.SetCustomProperty "Value","LastRefTime",now + call GSH_SetObjectLocation_Horizontal(oShape.objects("lineOPRange"), oShape.objects("plg_OPRefValue"), opRefVal, rRangeHi, rRangeLo) + + exit sub + End If + +'gsh_log_e("GSH_OPDEVIATION_L1_ONUPDATE") + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_OPDEVIATION_L1_ONUPDATE",oShape) + end if +end sub + + + +sub GSH_Quality_L1Deviation_FR_ONUPDATE(oShape, flag, isAlmEnabled, almPriorityParam, isOffNormal, isDataBad, pvRefVal) +'gsh_log_s("GSH_Quality_L1Deviation_FR_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + + call GSH_SHOWNOALARM(oShape) + oShape.objects("focus").style.visibility = GSH_HIDDEN + call GSH_SETSHAPEFOCUS(oShape) + + + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring + oShape.objects("plg_RightCover").fillcolor = rgb(255,232,180)'GSH_CSSFOCUSASSOCIATED + oShape.objects("plg_LeftCover").fillcolor = rgb(255,232,180)'GSH_CSSFOCUSASSOCIATED + else + oShape.objects("plg_RightCover").fillcolor = rgb(235,235,235)'GSH_CSSBACKGROUND_GRAY + oShape.objects("plg_LeftCover").fillcolor = rgb(235,235,235)'GSH_CSSBACKGROUND_GRAY + end if + + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if CBool(isOffNormal) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + oShape.objects("plg_RightCover").fillcolor = rgb(235,235,235)'GSH_CSSBACKGROUND_GRAY + end if + end if + + 'Alarming + if CBool(isAlmEnabled) Then + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,almPriorityParam),oShape) + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + End If + + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + + + If flag = 0 then + + 'We do not want shape to reload it self when Value changes, the changes will affect in next update + oShape.autoReloadContent=false + + 'Check for bad value + If not(CBool(isDataBad)) Then + + ' get the deadband, filter, PVRefVal and the last RefTime + filterVal = Cdbl(oShape.GetCustomProperty("Value","Filter")) + diff_old = oShape.GetCustomProperty("Value","Diff_Old") + modChange = Cdbl(oShape.GetCustomProperty("Value","ModerateChange")) + sigChange = Cdbl(oShape.GetCustomProperty("Value","SignificantChange")) + RangeMax = Cdbl(oShape.GetCustomProperty("Value","RangeMax")) + RangeMin = Cdbl(oShape.GetCustomProperty("Value","RangeMin")) + + dim diff_cur, deviation, pvVal, diff_prev + pvVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + + + 'Calculate PVDeviation + diff_cur = ((pvVal - pvRefVal)/(RangeMax - RangeMin)) * 100.0 + diff_Filtered = diff_cur + (diff_old-diff_cur)*filterVal + diff_old = diff_filtered + oShape.SetCustomProperty "Value","Diff_Old", diff_old + + 'Set ButterFlies + if diff_Filtered > sigChange then + oShape.objects("ind_OPDevBarRight").value = 100 + oShape.objects("ind_OPDevBarLeft").value = 0 + elseif diff_Filtered > modChange then + oShape.objects("ind_OPDevBarRight").value = 50 + oShape.objects("ind_OPDevBarLeft").value = 0 + elseif diff_Filtered < (-1.0*sigChange) then + oShape.objects("ind_OPDevBarRight").value = 0 + oShape.objects("ind_OPDevBarLeft").value = -100 + elseif diff_Filtered < (-1.0*modChange) then + oShape.objects("ind_OPDevBarRight").value = 0 + oShape.objects("ind_OPDevBarLeft").value = -50 + else + oShape.objects("ind_OPDevBarRight").value = 0 + oShape.objects("ind_OPDevBarLeft").value = 0 + end if + end if + end if + +'gsh_log_e("GSH_Quality_L1Deviation_FR_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_Quality_L1Deviation_FR_ONUPDATE",oShape) + end if + +end sub + + +sub GSH_Quality_L1Deviation_Hi_ONUPDATE(oShape, flag, isAlmEnabled, almPriorityParam, isOffNormal, isDataBad, pvRefVal) +'gsh_log_s("GSH_Quality_L1Deviation_Hi_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + + If flag <=1 then + + call GSH_SHOWNOALARM(oShape) + oShape.objects("focus").style.visibility = GSH_HIDDEN + call GSH_SETSHAPEFOCUS(oShape) + + + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + oShape.objects("plg_RightCover").fillcolor = rgb(255,232,180)'GSH_CSSFOCUSASSOCIATED + else + oShape.objects("plg_RightCover").fillcolor = rgb(235,235,235)'GSH_CSSBACKGROUND_GRAY + end if + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if CBool(isOffNormal) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + oShape.objects("plg_RightCover").fillcolor = rgb(235,235,235)'GSH_CSSBACKGROUND_GRAY + end if + end if + + 'Alarming + if CBool(isAlmEnabled) Then + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,almPriorityParam),oShape) + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + End If + + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + End if + + If flag = 0 then + + 'We do not want shape to reload it self when Value changes, the changes will affect in next update + oShape.autoReloadContent=false + + 'Check for bad value + If not(CBool(isDataBad)) Then + + + ' get the deadband, filter, PVRefVal and the last RefTime + filterVal = Cdbl(oShape.GetCustomProperty("Value","Filter")) + diff_old = oShape.GetCustomProperty("Value","Diff_Old") + modChange = Cdbl(oShape.GetCustomProperty("Value","ModerateChange")) + sigChange = Cdbl(oShape.GetCustomProperty("Value","SignificantChange")) + RangeMax = Cdbl(oShape.GetCustomProperty("Value","RangeMax")) + RangeMin = Cdbl(oShape.GetCustomProperty("Value","RangeMin")) + + dim diff_cur, deviation, pvVal, diff_prev + pvVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + + + 'Calculate PVDeviation + diff_cur = ((pvVal - pvRefVal)/(RangeMax - RangeMin)) * 100.0 + diff_Filtered = diff_cur + (diff_old-diff_cur)*filterVal + diff_old = diff_filtered + oShape.SetCustomProperty "Value","Diff_Old", diff_old + + 'Set ButterFlies + if diff_Filtered > sigChange then + oShape.objects("ind_OPDevBarRight").value = 100 + elseif diff_Filtered > modChange then + oShape.objects("ind_OPDevBarRight").value = 50 + else + oShape.objects("ind_OPDevBarRight").value = 0 + end if + end if + end if + +'gsh_log_e("GSH_Quality_L1Deviation_Hi_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_Quality_L1Deviation_Hi_ONUPDATE",oShape) + end if +end sub + + +sub GSH_Quality_L1Deviation_Lo_ONUPDATE(oShape, flag, isAlmEnabled, almPriorityParam, isOffNormal, isDataBad, pvRefVal) +'gsh_log_s("GSH_Quality_L1Deviation_Lo_ONUPDATE oShape="&oShape.id) +On Error Resume Next + + If flag <=1 then + call GSH_SHOWNOALARM(oShape) + oShape.objects("focus").style.visibility = GSH_HIDDEN + call GSH_SETSHAPEFOCUS(oShape) + + if (not(oShape.objects("focus").styleClass = GSH_CSSFOCUSNONE)) then + 'some type of focus is occuring, must show analog value and outline + oShape.objects("plg_LeftCover").fillcolor = rgb(255,232,180)'GSH_CSSFOCUSASSOCIATED + else + oShape.objects("plg_LeftCover").fillcolor = rgb(235,235,235)'GSH_CSSBACKGROUND_GRAY + end if + + if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then + if CBool(isOffNormal) then + oShape.objects("focus").styleClass = GSH_CSSFOCUSNONEOFFNORMAL + oShape.objects("plg_LeftCover").fillcolor = rgb(235,235,235)'GSH_CSSBACKGROUND_GRAY + end if + end if + + + 'Alarming + if CBool(isAlmEnabled) Then + 'call GSH_SHOWPOINTALARMS(GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,almPriorityParam),oShape) + call GSH_SHOWPOINTALARMS(GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")),oShape) + else + oShape.objects("outline").styleClass = GSH_CSS_ALARMDISABLED + End If + oShape.objects("outline").fillstyle = GSH_FILLTRANSPARENT + End if + + If flag = 0 then + + 'We do not want shape to reload it self when Value changes, the changes will affect in next update + oShape.autoReloadContent=false + + 'Check for bad value + If not(CBool(isDataBad)) Then + + Dim iPV + iPV = oShape.objects("rec_DataScript").DataValue(GSH_CPENTITY & "." & GSH_CPPARAM_PV) + + ' get the deadband, filter, PVRefVal and the last RefTime + filterVal = Cdbl(oShape.GetCustomProperty("Value","Filter")) + diff_old = oShape.GetCustomProperty("Value","Diff_Old") + modChange = Cdbl(oShape.GetCustomProperty("Value","ModerateChange")) + sigChange = Cdbl(oShape.GetCustomProperty("Value","SignificantChange")) + RangeMax = Cdbl(oShape.GetCustomProperty("Value","RangeMax")) + RangeMin = Cdbl(oShape.GetCustomProperty("Value","RangeMin")) + + dim diff_cur, deviation, pvVal, diff_prev + pvVal = GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV) + + + if(StrComp(pvVal,GSH_BADPV_TEXT, vbtextcompare)=0) then + exit sub + end if + + 'Calculate PVDeviation + diff_cur = ((pvVal - pvRefVal)/(RangeMax - RangeMin)) * 100.0 + diff_Filtered = diff_cur + (diff_old-diff_cur)*filterVal + diff_old = diff_filtered + oShape.SetCustomProperty "Value","Diff_Old", diff_old + + 'Set ButterFlies + if diff_Filtered < (-1.0*sigChange) then + oShape.objects("ind_OPDevBarLeft").value = -100 + elseif diff_Filtered < (-1.0*modChange) then + oShape.objects("ind_OPDevBarLeft").value = -50 + else + oShape.objects("ind_OPDevBarLeft").value = 0 + end if + end if + end if + +'gsh_log_e("GSH_Quality_L1Deviation_Lo_ONUPDATE") + + if Err then + call GSH_SHAPE_ERROR_HANDLING("GSH_Quality_L1Deviation_Lo_ONUPDATE",oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_LevelRegCtl_L1Gauge_FR_OnUpdate_new Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_LevelRegCtl_L1Gauge_FR_OnUpdate_new(oShape, flag, isAlmEnabled, almPriorityParam, isOffNormal, isDataBad) +'gsh_log_s("GSH_LevelRegCtl_L1Gauge_FR_OnUpdate_new oShape="&oShape.id &" isOffNormal = " &isOffNormal) +On Error Resume Next + + Dim sAlarmCode, bInSA + + call GSH_LevelIndicatorRegulatoryControlShowNormal(oShape) + + 'sAlarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,almPriorityParam) + sAlarmCode = GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")) + + If flag <= 1 then +' call GSH_SALevelIndicatorRegulatoryControlShowNormal(oShape) + + 'Check the points alarming + if CBool(isAlmEnabled) Then + call GSH_SHOWLEVELALARMS(sAlarmCode,oShape) + else + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + end if + + 'Check Focus + call GSH_LevelRegCtl_SAGauge_SetFocus(oShape, isOffNormal) + + 'Set Alarm Lines + Dim rRangeHi, rRangeLo + + rRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + rRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + + shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + If flag = 0 Then + call GSH_C200_SetAlarmLinesVertical_new(oShape, rRangeHi, rRangeLo, 4, shapeTagName) + End If + + 'Set SA Bars Limit + Dim iSAHi, iSALo + iSAHi = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE)) + iSALo = FormatNumber(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE)) + call GSH_LevelIndicatorShowSALimits(oShape, iSAHi, iSALo) + + 'Check for bad value + If CBool(isDataBad) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + Dim iPV, iSP, iPVFormat, iPVFormated + + iPV = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + iSP = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"), GSH_CPPARAM_SP)) + 'Locate PV Float + call GSH_SetObjectLocation_Vertical(oShape.objects("linePVRange"), oShape.objects("rec_IndicatorFloat"), iPV, rRangeHi, rRangeLo) + + 'Locate SP Float + call GSH_SetObjectLocation_Vertical(oShape.objects("linePVRange"), oShape.objects("plg_SPIndicator"), iSP, rRangeHi, rRangeLo) + +' shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + iPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(shapeTagName,GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + iPVFormated = FormatNumber(iPV, iPVFormat) + oShape.objects("txt_PVvalue").value = iPVFormated + + bInSA = GSH_IsShapeInSA(iPV, iSAHi, iSALo) + if (bInSA) then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + else + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + end if + + 'Set Recent PV range bar + call GSH_LevelRegCtl_SAGauge_SetPVRangeBar(oShape, iPV) + End If + oShape.objects("txt_mode").value = Left(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_MODE), 1) + call GSH_LevelRegCtl_SAGauge_ShowHideComponents(oShape, sAlarmCode, bInSA, isOffNormal) + End If +'gsh_log_e("GSH_LevelRegCtl_L1Gauge_FR_OnUpdate_new") + if Err then +' call GSH_SHAPE_ERROR_HANDLING("GSH_LevelRegCtl_L1Gauge_FR_OnUpdate_new",oShape) + end if +end sub + +sub GSH_C200_SetAlarmLinesVertical_new(oShape, rRangeHi, rRangeLo, n, shapeTagName) +On Error Resume Next +'gsh_log_s("GSH_C200_SetAlarmLinesVertical_new oShape="&oShape.id) + dim alarmlim, alarmPri + alarmlim = 0: alarmPri = 0 + for i = 1 to n + temp = "AlarmPriority" & i + temp1 = "AlarmLimit" & i +' alarmPri = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_AlarmPriority" & i)) + alarmPri = CDbl(GSH_READTAGINFORMATIONKEYVALUE(shapeTagName,temp, 0)) + if (alarmPri > 0) and (alarmPri <=4) then + if not(oShape.objects("rec_DataScript").IsNan(GSH_CPENTITY & ".CP_AlarmLimit" & i)) then + oShape.objects("LineAlarm"&i).style.visibility = GSH_VISIBLE + alarmlim = CDbl(GSH_READTAGINFORMATIONKEYVALUE(shapeTagName,temp1, 0)) +' alarmlim = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_AlarmLimit" & i)) + call GSH_SetObjectLocation_Vertical(oShape.objects("linePVRange"), oShape.objects("LineAlarm"&i), alarmlim, rRangeHi, rRangeLo) + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + next +'gsh_log_e("GSH_C200_SetAlarmLinesVertical_new") + if Err then +' call GSH_SHAPE_ERROR_HANDLING("GSH_C200_SetAlarmLinesVertical_new",oShape) + end if +end sub + +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'GSH_QualityAnalog_L1Gauge_FR_OnUpdate_new Shape Section +'Parameters: oShape = Shape object +' flag = 0 -> do everything +' flag = 1 -> do focus only to increase performance +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +sub GSH_QualityAnalog_L1Gauge_FR_OnUpdate_new(oShape, flag, isAlmEnabled, almPriorityParam, isOffNormal, isDataBad) +'gsh_log_s("GSH_TPS_QualityAnalog_L1Gauge_FR_OnUpdate oShape="&oShape.id) +On Error Resume Next + + dim sAlarmCode, bInSA + bInSA = false + 'sAlarmCode = GSH_GEN_GETHIGHESTALARMPRIORITYPARAMETER(oShape.objects("rec_DataScript"),GSH_CPENTITY,almPriorityParam) + sAlarmCode = GSH_GETHIGHESTALARMPRIORITYPROPERTY(oShape.objects("alarmNum")) + call GSH_LevelIndicatorShowNormal(oShape) + + 'Check the points alarming + if CBool(isAlmEnabled) Then + call GSH_SHOWLEVELALARMS(sAlarmCode,oShape) + else + call GSH_LevelIndicatorRegulatoryControlShowDisabledAlarm(oShape) + End If + + + 'Check Focus + 'call GSH_LevelRegCtl_QualitySAGauge_SetFocus(oShape) + + call GSH_LevelRegCtl_SAGauge_SetFocus(oShape, isOffNormal) + +' if (oShape.objects("focus").styleClass <> GSH_CSSFOCUSPRINCIPAL) then +' if CBool(isOffNormal) then +' call GSH_LevelIndicatorSHOWOFFNORMAL(oShape) +' end if +' end if + + Dim rRangeHi, rRangeLo + rRangeHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMAX, GSH_CPVALUE)) + rRangeLo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPRANGEMIN, GSH_CPVALUE)) + + shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + If flag = 0 Then + 'Set Alarm Lines + call GSH_C200_SetAlarmLinesHorizontal_new(oShape, rRangeHi, rRangeLo, 4, shapeTagName) + End If + + 'Set SA Bars Limit + Dim rSAHi, rSALo + rSAHi = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSAUPPERLIMIT, GSH_CPVALUE)) + rSALo = CDbl(GSH_GETSHAPE_CUSTOM_PROPERTY(oShape,GSH_CPSALOWERLIMIT, GSH_CPVALUE)) + + 'gsh_log("rSAHi = " &rSAHi & " rSALo = " &rSALo) + 'call GSH_QualitySAGauge_ShowSALimits(oShape, rSAHi, rSALo) + call GSH_SetObjectLocationAndWidth_Horizontal(oShape.objects("linePVRange"), oShape.objects("rec_SALow"), rSALo, rRangeLo, rRangeHi, rRangeLo) + call GSH_SetObjectLocationAndWidth_Horizontal(oShape.objects("linePVRange"), oShape.objects("rec_SAHigh"), rRangeHi, rSAHi, rRangeHi, rRangeLo) + + 'Check for bad value + If CBool(isDataBad) Then + call GSH_LevelIndicatorShowBadPV(oShape) + Else + Dim rPV, rPVFormat, rPVFormated + rPV = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),GSH_CPPARAM_PV)) + shapeTagName = oShape.GetCustomProperty(GSH_CPPOINT,GSH_CPENTITY) + rPVFormat = right(GSH_READTAGINFORMATIONKEYVALUE(shapeTagName,GSH_PVFORMATKEY, GSH_DEFAULTPVFORMAT),1) + rPVFormated = FormatNumber(rPV, rPVFormat) + oShape.objects("txt_PVvalue").value = rPVFormated + + call GSH_SetObjectLocation_Horizontal(oShape.objects("linePVRange"), oShape.objects("rec_IndicatorFloat"), rPV, rRangeHi, rRangeLo) + 'call GSH_LevelRegCtl_SAGauge_InSA(oShape, rPV, rSAHi, rSALo) + + bInSA = GSH_IsShapeInSA(iPV, iSAHi, iSALo) + if (bInSA) then + oShape.objects("rec_SAFrame").style.visibility = GSH_VISIBLE + else + oShape.objects("rec_SAFrame").style.visibility = GSH_HIDDEN + end if + End If + call GSH_QualityAnalog_SAGauge_ShowHideComponents(oShape, sAlarmCode, bInSA, isOffNormal) +'gsh_log_e("GSH_QualityAnalog_L1Gauge_FR_OnUpdate_new") + + if Err then +' call GSH_SHAPE_ERROR_HANDLING("GSH_QualityAnalog_L1Gauge_FR_OnUpdate_new",oShape) + end if +end sub + +' +'oShape: the HCS shape +'n: total number of alarm limit lines to show +sub GSH_C200_SetAlarmLinesHorizontal_new(oShape, iRangeHi, iRangeLo, n, shapeTagName) +'gsh_log_s("GSH_C200_SetAlarmLinesHorizontal_new ="&oShape.id) + dim alarmlim, alarmPri + alarmlim = 0: alarmPri = 0 + + for i = 1 to n + temp = "AlarmPriority" & i + temp1 = "AlarmLimit" & i + alarmPri = CDbl(GSH_READTAGINFORMATIONKEYVALUE(shapeTagName,temp, 0)) +' alarmPri = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_AlarmPriority" & i)) +' gsh_log_e("GSH_C200_SetAlarmLinesHorizontal_new temp alarmPri = ", alarmPri) + + if (alarmPri > 0) and (alarmPri <=4) then + + if not(oShape.objects("rec_DataScript").IsNan(GSH_CPENTITY & ".CP_AlarmLimit" & i)) then +' alarmlim = CDbl(GSH_GETENTITYPARAMETERVALUE(oShape.objects("rec_DataScript"),"CP_AlarmLimit" & i)) + alarmlim = CDbl(GSH_READTAGINFORMATIONKEYVALUE(shapeTagName,temp1, 0)) + oShape.objects("LineAlarm"&i).style.visibility = GSH_VISIBLE + call GSH_SetObjectLocation_Horizontal(oShape.objects("linePVRange"), oShape.objects("LineAlarm"&i), alarmlim, iRangeHi, iRangeLo) + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + else + oShape.objects("LineAlarm"&i).style.visibility = GSH_HIDDEN + end if + next +'gsh_log_e("GSH_C200_SetAlarmLinesHorizontal_new") +end sub + + + +'------------------------------- End L1 Common subroutines---------------------------------</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=shape070_rec_DataScript defer>If (me.parentElement.parentElement.GetCustomProperty(GSH_CPVALUE,GSH_CPDISPLAYLEVEL) = 2) then + If window.event.button = 2 Then call GSH_TYPE2TABRBUTTONCLICK(me.parentElement.parentElement) else call GSH_NAVTAB_LCLICK (me.parentElement.parentElement) end if +Else + call GSH_NAVTAB_LCLICK (me.parentElement.parentElement) +End if</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p7_4900PC0176_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p7_4900PC0176_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p7_4900PC0176_txt_ModeValue defer> p7_4900PC0176_rec_DataScript.click + p7_4900PC0176_alp_SPValue.style.visibility = GSH_HIDDEN + p7_4900PC0176_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p7_4900PC0176_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p7_4900PC0176_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p7_4900PC0176_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p7_4900PC0176_txt_OPValue defer> p7_4900PC0176_rec_DataScript.click + if strcomp(p7_4900PC0176_cmb_ModeValue.value,GSH_ALLOWOPEDIT_MODE,vbtextcompare)=0 then + p7_4900PC0176_cmb_ModeValue.style.visibility = GSH_HIDDEN + p7_4900PC0176_alp_SPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p7_4900PC0176_alp_OPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p7_4900PC0176_txt_SPValue defer> p7_4900PC0176_rec_DataScript.click + if strcomp(p7_4900PC0176_cmb_ModeValue.value,GSH_ALLOWSPEDIT_MODE,vbtextcompare)=0 then + p7_4900PC0176_cmb_ModeValue.style.visibility = GSH_HIDDEN + p7_4900PC0176_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p7_4900PC0176_alp_SPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p7_4900PC0176_alp_SPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p7_4900PC0176_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p7_4900PC0176_alp_OPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p7_4900PC0176_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p7_4900PC0176 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p8_4900FI3006_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p8_4900FI3006_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p8_4900FI3006 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p9e_4900TC3301_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9e_4900TC3301_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9e_4900TC3301_txt_ModeValue defer> p9e_4900TC3301_rec_DataScript.click + p9e_4900TC3301_alp_SPValue.style.visibility = GSH_HIDDEN + p9e_4900TC3301_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p9e_4900TC3301_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9e_4900TC3301_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9e_4900TC3301_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9e_4900TC3301_txt_OPValue defer> p9e_4900TC3301_rec_DataScript.click + if strcomp(p9e_4900TC3301_cmb_ModeValue.value,GSH_ALLOWOPEDIT_MODE,vbtextcompare)=0 then + p9e_4900TC3301_cmb_ModeValue.style.visibility = GSH_HIDDEN + p9e_4900TC3301_alp_SPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p9e_4900TC3301_alp_OPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9e_4900TC3301_txt_SPValue defer> p9e_4900TC3301_rec_DataScript.click + if strcomp(p9e_4900TC3301_cmb_ModeValue.value,GSH_ALLOWSPEDIT_MODE,vbtextcompare)=0 then + p9e_4900TC3301_cmb_ModeValue.style.visibility = GSH_HIDDEN + p9e_4900TC3301_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p9e_4900TC3301_alp_SPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9e_4900TC3301_alp_SPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9e_4900TC3301_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9e_4900TC3301_alp_OPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9e_4900TC3301_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p9e_4900TC3301 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p5_4900FY0212_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p5_4900FY0212_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p5_4900FY0212_alp_OPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p5_4900FY0212_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p5_4900FY0212_txt_OPValue defer> p5_4900FY0212_rec_DataScript.click + 'Check Mode = MAN to allow OP modifiable + if strcomp(p5_4900FY0212_cmb_ModeValue.value,GSH_ALLOWOPEDIT_MODE,vbtextcompare)=0 then + me.parentElement.parentElement.objects("p5_4900FY0212_cmb_ModeValue").style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY (p5_4900FY0212_alp_OPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p5_4900FY0212_txt_ModeValue defer> p5_4900FY0212_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p5_4900FY0212_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p5_4900FY0212_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p5_4900FY0212_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p5_4900FY0212 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p1_4900TC0145_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p1_4900TC0145_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p1_4900TC0145_txt_ModeValue defer> p1_4900TC0145_rec_DataScript.click + p1_4900TC0145_alp_SPValue.style.visibility = GSH_HIDDEN + p1_4900TC0145_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p1_4900TC0145_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p1_4900TC0145_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p1_4900TC0145_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p1_4900TC0145_txt_OPValue defer> p1_4900TC0145_rec_DataScript.click + if strcomp(p1_4900TC0145_cmb_ModeValue.value,GSH_ALLOWOPEDIT_MODE,vbtextcompare)=0 then + p1_4900TC0145_cmb_ModeValue.style.visibility = GSH_HIDDEN + p1_4900TC0145_alp_SPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p1_4900TC0145_alp_OPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p1_4900TC0145_txt_SPValue defer> p1_4900TC0145_rec_DataScript.click + if strcomp(p1_4900TC0145_cmb_ModeValue.value,GSH_ALLOWSPEDIT_MODE,vbtextcompare)=0 then + p1_4900TC0145_cmb_ModeValue.style.visibility = GSH_HIDDEN + p1_4900TC0145_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p1_4900TC0145_alp_SPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p1_4900TC0145_alp_SPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p1_4900TC0145_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p1_4900TC0145_alp_OPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p1_4900TC0145_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p1_4900TC0145 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p2_4900TC0074_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p2_4900TC0074_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p2_4900TC0074_txt_ModeValue defer> p2_4900TC0074_rec_DataScript.click + p2_4900TC0074_alp_SPValue.style.visibility = GSH_HIDDEN + p2_4900TC0074_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p2_4900TC0074_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p2_4900TC0074_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p2_4900TC0074_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p2_4900TC0074_txt_OPValue defer> p2_4900TC0074_rec_DataScript.click + if strcomp(p2_4900TC0074_cmb_ModeValue.value,GSH_ALLOWOPEDIT_MODE,vbtextcompare)=0 then + p2_4900TC0074_cmb_ModeValue.style.visibility = GSH_HIDDEN + p2_4900TC0074_alp_SPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p2_4900TC0074_alp_OPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p2_4900TC0074_txt_SPValue defer> p2_4900TC0074_rec_DataScript.click + if strcomp(p2_4900TC0074_cmb_ModeValue.value,GSH_ALLOWSPEDIT_MODE,vbtextcompare)=0 then + p2_4900TC0074_cmb_ModeValue.style.visibility = GSH_HIDDEN + p2_4900TC0074_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p2_4900TC0074_alp_SPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p2_4900TC0074_alp_SPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p2_4900TC0074_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p2_4900TC0074_alp_OPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p2_4900TC0074_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p2_4900TC0074 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p3_4900FC0212_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p3_4900FC0212_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p3_4900FC0212_txt_ModeValue defer> p3_4900FC0212_rec_DataScript.click + p3_4900FC0212_alp_SPValue.style.visibility = GSH_HIDDEN + p3_4900FC0212_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p3_4900FC0212_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p3_4900FC0212_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p3_4900FC0212_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p3_4900FC0212_txt_OPValue defer> p3_4900FC0212_rec_DataScript.click + if strcomp(p3_4900FC0212_cmb_ModeValue.value,GSH_ALLOWOPEDIT_MODE,vbtextcompare)=0 then + p3_4900FC0212_cmb_ModeValue.style.visibility = GSH_HIDDEN + p3_4900FC0212_alp_SPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p3_4900FC0212_alp_OPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p3_4900FC0212_txt_SPValue defer> p3_4900FC0212_rec_DataScript.click + if strcomp(p3_4900FC0212_cmb_ModeValue.value,GSH_ALLOWSPEDIT_MODE,vbtextcompare)=0 then + p3_4900FC0212_cmb_ModeValue.style.visibility = GSH_HIDDEN + p3_4900FC0212_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p3_4900FC0212_alp_SPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p3_4900FC0212_alp_SPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p3_4900FC0212_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p3_4900FC0212_alp_OPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p3_4900FC0212_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p3_4900FC0212 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p4_4900PC0216_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p4_4900PC0216_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p4_4900PC0216_txt_ModeValue defer> p4_4900PC0216_rec_DataScript.click + p4_4900PC0216_alp_SPValue.style.visibility = GSH_HIDDEN + p4_4900PC0216_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p4_4900PC0216_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p4_4900PC0216_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p4_4900PC0216_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p4_4900PC0216_txt_OPValue defer> p4_4900PC0216_rec_DataScript.click + if strcomp(p4_4900PC0216_cmb_ModeValue.value,GSH_ALLOWOPEDIT_MODE,vbtextcompare)=0 then + p4_4900PC0216_cmb_ModeValue.style.visibility = GSH_HIDDEN + p4_4900PC0216_alp_SPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p4_4900PC0216_alp_OPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p4_4900PC0216_txt_SPValue defer> p4_4900PC0216_rec_DataScript.click + if strcomp(p4_4900PC0216_cmb_ModeValue.value,GSH_ALLOWSPEDIT_MODE,vbtextcompare)=0 then + p4_4900PC0216_cmb_ModeValue.style.visibility = GSH_HIDDEN + p4_4900PC0216_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p4_4900PC0216_alp_SPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p4_4900PC0216_alp_SPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p4_4900PC0216_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p4_4900PC0216_alp_OPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p4_4900PC0216_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p4_4900PC0216 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p9_4900FFI3104_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9_4900FFI3104_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9_4900FFI3104_txt_ModeValue defer> p9_4900FFI3104_rec_DataScript.click + p9_4900FFI3104_alp_SPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p9_4900FFI3104_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9_4900FFI3104_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9_4900FFI3104_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9_4900FFI3104_txt_SPValue defer> p9_4900FFI3104_rec_DataScript.click + if strcomp(p9_4900FFI3104_cmb_ModeValue.value,GSH_ALLOWSPEDIT_MODE,vbtextcompare)=0 then + p9_4900FFI3104_cmb_ModeValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p9_4900FFI3104_alp_SPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9_4900FFI3104_alp_SPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9_4900FFI3104_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p9_4900FFI3104 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p9a_4900FC3104_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9a_4900FC3104_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9a_4900FC3104_txt_ModeValue defer> p9a_4900FC3104_rec_DataScript.click + p9a_4900FC3104_alp_SPValue.style.visibility = GSH_HIDDEN + p9a_4900FC3104_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p9a_4900FC3104_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9a_4900FC3104_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9a_4900FC3104_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9a_4900FC3104_txt_OPValue defer> p9a_4900FC3104_rec_DataScript.click + if strcomp(p9a_4900FC3104_cmb_ModeValue.value,GSH_ALLOWOPEDIT_MODE,vbtextcompare)=0 then + p9a_4900FC3104_cmb_ModeValue.style.visibility = GSH_HIDDEN + p9a_4900FC3104_alp_SPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p9a_4900FC3104_alp_OPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9a_4900FC3104_txt_SPValue defer> p9a_4900FC3104_rec_DataScript.click + if strcomp(p9a_4900FC3104_cmb_ModeValue.value,GSH_ALLOWSPEDIT_MODE,vbtextcompare)=0 then + p9a_4900FC3104_cmb_ModeValue.style.visibility = GSH_HIDDEN + p9a_4900FC3104_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p9a_4900FC3104_alp_SPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9a_4900FC3104_alp_SPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9a_4900FC3104_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9a_4900FC3104_alp_OPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9a_4900FC3104_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p9a_4900FC3104 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9b_4900TY3301_rec_DataScript defer> 'Set Tag of Shape in Display Communication Mailbox + call GSH_SHAPECLICKEDNOASSOCDISP(me.parentelement.parentelement)</SCRIPT>
+
+<SCRIPT language=VBScript event=onmousedown for=p9b_4900TY3301_rec_DataScript
+defer>If window.event.button = 2 Then + call GSH_RIGHTCLICK(me.parentElement.parentElement) +End If</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9b_4900TY3301_alp_OPValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9b_4900TY3301_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9b_4900TY3301_txt_OPValue defer> p9b_4900TY3301_rec_DataScript.click + 'Check Mode = MAN to allow OP modifiable + if strcomp(p9b_4900TY3301_cmb_ModeValue.value,GSH_ALLOWOPEDIT_MODE,vbtextcompare)=0 then + me.parentElement.parentElement.objects("p9b_4900TY3301_cmb_ModeValue").style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY (p9b_4900TY3301_alp_OPValue) + end if</SCRIPT>
+
+<SCRIPT language=VBScript event=onclick for=p9b_4900TY3301_txt_ModeValue defer> p9b_4900TY3301_alp_OPValue.style.visibility = GSH_HIDDEN + call GSH_MULTIFPSHOWENTRY(p9b_4900TY3301_cmb_ModeValue)</SCRIPT>
+
+<SCRIPT language=VBScript event=onchange for=p9b_4900TY3301_cmb_ModeValue defer> call GSH_MULTIFPHIDEENTRY(me) + p9b_4900TY3301_rec_DataScript.click</SCRIPT>
+
+<SCRIPT language=VBScript event=onshapeload for=p9b_4900TY3301 defer>call GSH_SETTOOLTIP(me)</SCRIPT>
+
+<BODY
+style="FONT-SIZE: 12pt; MARGIN: 0px; OVERFLOW: auto; ZOOM: 1; BACKGROUND-COLOR: transparent">
+<DIV class=Background_Gray id=Background
+style="MARGIN: 0px; WIDTH: 1156px; BACKGROUND-REPEAT: no-repeat; ZOOM: 1; POSITION: absolute; HEIGHT: 550px; BACKGROUND-COLOR: rgb(235,235,235)"></DIV>
+<DIV class=Background_Gray id=Page
+style="FONT-SIZE: 12pt; MARGIN: 0px; BEHAVIOR: url(#StnEvtReflector) url(#HDXPageBehavior) url(#DisplayDataRepository); WIDTH: 665px; ZOOM: 1; FONT-FAMILY: Arial; POSITION: absolute; HEIGHT: 330px; BACKGROUND-COLOR: transparent">
+<DIV class=hsc.shape.1 id=shape071
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 83px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 82px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1px; HEIGHT: 26px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:26;lineColorBlink:False;Width:82;"
+value = "1" src = ".\L4_LSG_FURN_1_files\GEN_NavigationTab.sha" parameters =
+"Point?Entity:L4_LSG_FURN_2_AA;Value?DisplayName:L4_LSG_FURN_2;Value?DisplayLevel:4;Value?TabLabel:Redund;Value?AssocLevel4:;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=shape071_grp_NavTab
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:26;lineColorBlink:False;Width:82;">
+<DIV class="hvg.base.1 " id=shape071_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 98.78%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 7.69%; HEIGHT: 84.61%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:#ebebeb;fillColorBlink:False;FillStyle:0;Height:22;LineColor:#939393;lineColorBlink:False;LineWidth:1;Roundness:50;styleClass:;Width:81;"></DIV>
+<DIV class="hvg.base.1 " id=shape071_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 2.43%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 93.9%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 15.38%; HEIGHT: 73.07%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:#ebebeb;fillColorBlink:False;FillStyle:0;Height:19;LineColor:#ebebeb;lineColorBlink:False;LineStyle:1;LineWidth:2;Roundness:40;styleClass:;Width:77;"></DIV>
+<DIV class=hvg.base.1 id=shape071_rec_HideTabBtm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 100%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 76.92%; HEIGHT: 23.07%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:#ebebeb;fillColorBlink:False;Height:6;LineColor:#ebebeb;lineColorBlink:False;LineStyle:1;LineWidth:2;Width:82;"></DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=shape071_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.21%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 19.51%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 7.69%; HEIGHT: 61.53%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=shape071_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 4.87%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 14.63%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.53%; HEIGHT: 46.15%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=shape071_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 4.87%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 14.63%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 15.38%; HEIGHT: 46.15%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=shape071_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 6.09%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.41%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.53%; HEIGHT: 46.15%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=shape071_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 4.87%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 14.63%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 15.38%; HEIGHT: 46.15%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=shape071_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 6.09%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 14.63%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.53%; HEIGHT: 46.15%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class=hvg.textbox.1 id=shape071_txtTabLabel
+style="FONT-WEIGHT: normal; FONT-SIZE: 11pt; LEFT: 21.95%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 73.17%; COLOR: #000000; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 7.69%; HEIGHT: 65.38%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;HDXBINDINGID:21;Height:17;indicateAlarmState:False;indicateScanState:False;lineColorBlink:False;LineStyle:0;textColor:#000000;textColorBlink:False;TotalRotation:0;Width:60;">Redund</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=shape071_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.78%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 84.61%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:22;Height:22;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:81;"
+onupdate="VBScript:call GSH_NAVTAB_ONUPDATE(me.parentElement.parentElement)"></DIV></DIV></DIV>
+<DIV class=hsc.shape.1 id=shape001
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 616px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 40px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 308px; HEIGHT: 19px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:0;lineColorBlink:False;Width:0;"
+value = "1" src = ".\L4_LSG_FURN_1_files\gsh.sha" parameters = "" linkType =
+"embedded" globalscripts =
+"2A03E0C4-741C-4145-A5C0-BE506EDF0681 4B605EA5-055E-4956-B67E-DE5BE60D4CCC 50F477B2-C5AC-4758-A02E-EB39E352D363 9AD748A9-63A3-4F20-B029-8144F6FB00EA A188CC3F-37F3-4431-8CA1-740C5D627030"
+styleClass = "">
+<DIV class="hvg.textbox.1 GSH_Style" id=shape001_textbox001
+style="FONT-WEIGHT: bold; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 100%; COLOR: #000000; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 100%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:19;lineColorBlink:False;LineStyle:0;styleClass:GSH_Style;textColor:#000000;textColorBlink:False;TotalRotation:0;Width:40;">GSH</DIV></DIV>
+<DIV class=hvg.base.1 id=line002
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 2px; BEHAVIOR: url(#HDXVectorFactory#line); OVERFLOW: hidden; WIDTH: 180px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 19px; HEIGHT: 1px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:1;LineColor:#b4b4b4;lineColorBlink:False;points:0 0 100 0 ;Width:180;"></DIV>
+<DIV class=hsc.shape.1 id=shape070
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 0px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 82px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 7px; HEIGHT: 26px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:26;lineColorBlink:False;Width:82;"
+value = "1" src = ".\L4_LSG_FURN_1_files\GEN_NavigationTab.sha" parameters =
+"Point?Entity:L4_LSG_FURN_1_AA;Value?DisplayName:L4_LSG_FURN_1;Value?DisplayLevel:4;Value?TabLabel:Furn;Value?AssocLevel4:;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=shape070_grp_NavTab
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:26;lineColorBlink:False;Width:82;">
+<DIV class="hvg.base.1 " id=shape070_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 98.78%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 7.69%; HEIGHT: 84.61%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:#ebebeb;fillColorBlink:False;FillStyle:0;Height:22;LineColor:#939393;lineColorBlink:False;LineWidth:1;Roundness:50;styleClass:;Width:81;"></DIV>
+<DIV class="hvg.base.1 " id=shape070_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 2.43%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 93.9%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 15.38%; HEIGHT: 73.07%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:#ebebeb;fillColorBlink:False;FillStyle:0;Height:19;LineColor:#ebebeb;lineColorBlink:False;LineStyle:1;LineWidth:2;Roundness:40;styleClass:;Width:77;"></DIV>
+<DIV class=hvg.base.1 id=shape070_rec_HideTabBtm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 100%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 76.92%; HEIGHT: 23.07%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:#ebebeb;fillColorBlink:False;Height:6;LineColor:#ebebeb;lineColorBlink:False;LineStyle:1;LineWidth:2;Width:82;"></DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=shape070_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.21%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 19.51%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 7.69%; HEIGHT: 61.53%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=shape070_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 4.87%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 14.63%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.53%; HEIGHT: 46.15%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=shape070_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 4.87%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 14.63%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 15.38%; HEIGHT: 46.15%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=shape070_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 6.09%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.41%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.53%; HEIGHT: 46.15%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=shape070_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 4.87%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 14.63%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 15.38%; HEIGHT: 46.15%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=shape070_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 6.09%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 14.63%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.53%; HEIGHT: 46.15%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class=hvg.textbox.1 id=shape070_txtTabLabel
+style="FONT-WEIGHT: normal; FONT-SIZE: 11pt; LEFT: 21.95%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 73.17%; COLOR: #000000; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 7.69%; HEIGHT: 65.38%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;HDXBINDINGID:0;Height:17;indicateAlarmState:False;indicateScanState:False;lineColorBlink:False;LineStyle:0;textColor:#000000;textColorBlink:False;TotalRotation:0;Width:60;">Furn</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=shape070_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.78%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 84.61%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:1;Height:22;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:81;"
+onupdate="VBScript:call GSH_NAVTAB_ONUPDATE(me.parentElement.parentElement)"></DIV></DIV></DIV>
+<DIV class=hsc.shape.1 id=p7_4900PC0176
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 551px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:0;lineColorBlink:False;Width:0;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_RegCtl.sha" parameters =
+"Point?Entity:4900PC0176;Parameter?CP_SP:PIDA.SP;Parameter?CP_PV:PIDA.PV;Parameter?CP_OP:PIDA.OP;Parameter?CP_Mode:PIDA.MODE;Parameter?CP_BadPV:PIDA.PVSTSFL.BAD;Parameter?CP_OffNormal:DACA.PVSOURCE;Parameter?CP_ModAttr:PIDA.MODEATTR;Parameter?CP_Ramp:PIDA.SPTVSTATE;Parameter?CP_RedTag:PIDA.REDTAG;Parameter?CP_Windup:PIDA.ARWOP;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p7_4900PC0176_grpRegCtl
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p7_4900PC0176_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 9.21%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:23;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p7_4900PC0176_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:24;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p7_4900PC0176_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:25;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p7_4900PC0176_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p7_4900PC0176_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p7_4900PC0176_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28.94%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p7_4900PC0176_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p7_4900PC0176_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p7_4900PC0176_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p7_4900PC0176_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p7_4900PC0176_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 10.86%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class=hvg.base.1 id=p7_4900PC0176_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 17.39%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 67.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.18%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:16;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:62;"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p7_4900PC0176_txt_AnalogValue
+style="FONT-SIZE: 9pt; LEFT: 20.65%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay"
+id=p7_4900PC0176_txt_statusmessage
+style="FONT-SIZE: 8pt; LEFT: 21.73%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 73.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:58;">RedTag</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay" id=p7_4900PC0176_txt_ramp
+style="FONT-WEIGHT: bold; FONT-SIZE: 8pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #ffffff; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 23.68%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:9;">R</DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p7_4900PC0176_plg_OpLow
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 0 50 100 0 0 100 0 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p7_4900PC0176_plg_OpHigh
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 100 50 0 0 100 100 100 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.textbox.1 OffNormalText" id=p7_4900PC0176_txt_Initialization
+style="FONT-WEIGHT: bold; FONT-SIZE: 16pt; LEFT: 86.95%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #b000b0; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:OffNormalText;textColor:rgb(176,0,176);textColorBlink:False;TotalRotation:0;Width:9;">*</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p7_4900PC0176_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:26;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 0)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p7_4900PC0176_rec_DataScript").onmousedown'
+id=p7_4900PC0176_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p7_4900PC0176_rec_DataScript").onmousedown'
+id=p7_4900PC0176_cmb_ModeValue
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 21.73%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:27;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">Combobox</SPAN>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p7_4900PC0176_rec_DataScript").onmousedown'
+id=p7_4900PC0176_txt_OPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p7_4900PC0176_rec_DataScript").onmousedown'
+id=p7_4900PC0176_txt_SPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 22.36%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, +255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, +0, 0);textColorBlink:False;TotalRotation:0;Width:58;">09.99</DIV><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p7_4900PC0176_rec_DataScript").onmousedown' id=p7_4900PC0176_alp_SPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:28;lineColor:transparent;numericDisplayFormat:%.2f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">9999.99</TEXTAREA><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p7_4900PC0176_rec_DataScript").onmousedown' id=p7_4900PC0176_alp_OPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);HDXBINDINGID:29;lineColor:transparent;numberOfChars:9;numericDisplayFormat:%.1f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);">9999.99</TEXTAREA></DIV></DIV>
+<DIV class=hsc.shape.1 id=p8_4900FI3006
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 3px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 179px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:0;lineColorBlink:False;Width:0;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_Analog.sha" parameters =
+"Point?Entity:4900FI3006;Parameter?CP_PV:DACA.PV;Parameter?CP_BadPV:DACA.PVSTSFL.BAD;Parameter?CP_OffNormal:DACA.PVSOURCE;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p8_4900FI3006_grp_AnalogMFP
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p8_4900FI3006_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 35.52%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:30;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p8_4900FI3006_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:31;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p8_4900FI3006_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:32;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPANALOG_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class=hvg.base.1 id=p8_4900FI3006_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 17.39%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 67.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.18%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:16;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:62;"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p8_4900FI3006_txt_AnalogValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:58;">9999.</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p8_4900FI3006_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p8_4900FI3006_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p8_4900FI3006_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 5.43%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28.94%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p8_4900FI3006_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p8_4900FI3006_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p8_4900FI3006_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p8_4900FI3006_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p8_4900FI3006_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p8_4900FI3006_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:33;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPANALOG_ONUPDATE(me.parentElement.parentElement, 0)"></DIV></DIV></DIV>
+<DIV class=hsc.shape.1 id=p9e_4900TC3301
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 369px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 179px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:0;lineColorBlink:False;Width:0;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_RegCtl.sha" parameters =
+"Point?Entity:4900TC3301;Parameter?CP_SP:PIDA.SP;Parameter?CP_PV:PIDA.PV;Parameter?CP_OP:PIDA.OP;Parameter?CP_Mode:PIDA.MODE;Parameter?CP_BadPV:PIDA.PVSTSFL.BAD;Parameter?CP_OffNormal:DACA.PVSOURCE;Parameter?CP_ModAttr:PIDA.MODEATTR;Parameter?CP_Ramp:PIDA.SPTVSTATE;Parameter?CP_RedTag:PIDA.REDTAG;Parameter?CP_Windup:PIDA.ARWOP;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p9e_4900TC3301_grpRegCtl
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p9e_4900TC3301_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 9.21%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:14;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p9e_4900TC3301_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:15;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p9e_4900TC3301_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:16;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9e_4900TC3301_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9e_4900TC3301_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p9e_4900TC3301_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28.94%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p9e_4900TC3301_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p9e_4900TC3301_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p9e_4900TC3301_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p9e_4900TC3301_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p9e_4900TC3301_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 10.86%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class=hvg.base.1 id=p9e_4900TC3301_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 17.39%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 67.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.18%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:16;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:62;"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9e_4900TC3301_txt_AnalogValue
+style="FONT-SIZE: 9pt; LEFT: 20.65%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay"
+id=p9e_4900TC3301_txt_statusmessage
+style="FONT-SIZE: 8pt; LEFT: 21.73%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 73.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:58;">RedTag</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay" id=p9e_4900TC3301_txt_ramp
+style="FONT-WEIGHT: bold; FONT-SIZE: 8pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #ffffff; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 23.68%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:9;">R</DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p9e_4900TC3301_plg_OpLow
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 0 50 100 0 0 100 0 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p9e_4900TC3301_plg_OpHigh
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 100 50 0 0 100 100 100 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.textbox.1 OffNormalText" id=p9e_4900TC3301_txt_Initialization
+style="FONT-WEIGHT: bold; FONT-SIZE: 16pt; LEFT: 86.95%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #b000b0; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:OffNormalText;textColor:rgb(176,0,176);textColorBlink:False;TotalRotation:0;Width:9;">*</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p9e_4900TC3301_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:17;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 0)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9e_4900TC3301_rec_DataScript").onmousedown'
+id=p9e_4900TC3301_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9e_4900TC3301_rec_DataScript").onmousedown'
+id=p9e_4900TC3301_cmb_ModeValue
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 21.73%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:19;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">Combobox</SPAN>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9e_4900TC3301_rec_DataScript").onmousedown'
+id=p9e_4900TC3301_txt_OPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9e_4900TC3301_rec_DataScript").onmousedown'
+id=p9e_4900TC3301_txt_SPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 22.36%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, +255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, +0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV><TEXTAREA +class="hsc.alpha.1 Group_DataEntry" +onmousedown='VBScript:me.parentElement.parentElement.objects("p9e_4900TC3301_rec_DataScript").onmousedown' +id=p9e_4900TC3301_alp_SPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; +FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: +url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: +hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: +1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; +POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: +rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: +none; ROWS: 1" tabIndex=0 +hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, +255);fillColorBlink:False;HDXBINDINGID:20;lineColor:transparent;numericDisplayFormat:%.2f;styleClass:Group_DataEntry;textColor:rgb(0, +0, 0);textColorBlink:False;">9999.99</TEXTAREA><TEXTAREA class="hsc.alpha.1 +Group_DataEntry" +onmousedown='VBScript:me.parentElement.parentElement.objects("p9e_4900TC3301_rec_DataScript").onmousedown' +id=p9e_4900TC3301_alp_OPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; +FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: +url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: +hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: +1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; +POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: +rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: +none; ROWS: 1" tabIndex=0 +hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, +255);HDXBINDINGID:34;lineColor:transparent;numberOfChars:9;numericDisplayFormat:%.1f;styleClass:Group_DataEntry;textColor:rgb(0, +0, 0);">-09.99</TEXTAREA></DIV></DIV>
+<DIV class=hsc.shape.1 id=p5_4900FY0212
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 369px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_Automan.sha" parameters =
+"Point?Entity:4900FY0212;Parameter?CP_OP:AUTOMANA.OP;Parameter?CP_Mode:AUTOMANA.MODE;Parameter?CP_ModAttr:AUTOMANA.MODEATTR;Parameter?CP_RedTag:AUTOMANA.REDTAG;Parameter?CP_Windup:AUTOMANA.ARWOP;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p5_4900FY0212_grp_C200MFAutoman
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p5_4900FY0212_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 40.78%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:35;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p5_4900FY0212_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:36;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p5_4900FY0212_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:37;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPAUTOMAN_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class=hvg.base.1 id=p5_4900FY0212_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 15.21%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 70.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48.02%; HEIGHT: 11.84%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:18;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:65;"></DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p5_4900FY0212_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 3.26%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 40.78%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p5_4900FY0212_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 41.44%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p5_4900FY0212_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 5.43%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 42.1%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p5_4900FY0212_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 7.6%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 41.44%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p5_4900FY0212_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 5.43%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 42.1%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p5_4900FY0212_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 41.44%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p5_4900FY0212_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p5_4900FY0212_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p5_4900FY0212_plg_OpLow
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 0 50 100 0 0 100 0 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p5_4900FY0212_plg_OpHigh
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 100 50 0 0 100 100 100 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.textbox.1 OffNormalText" id=p5_4900FY0212_txt_Initialization
+style="FONT-WEIGHT: bold; FONT-SIZE: 16pt; LEFT: 84.78%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #b000b0; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:OffNormalText;textColor:rgb(176,0,176);textColorBlink:False;TotalRotation:0;Width:9;">*</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p5_4900FY0212_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:38;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPAUTOMAN_ONUPDATE(me.parentElement.parentElement, 0)"></DIV><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p5_4900FY0212_rec_DataScript").onmousedown' id=p5_4900FY0212_alp_OPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);HDXBINDINGID:39;indicateScanState:0;lineColor:transparent;numberOfChars:9;numericDisplayFormat:%.1f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);">9999.99</TEXTAREA>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p5_4900FY0212_rec_DataScript").onmousedown'
+id=p5_4900FY0212_txt_OPValue
+style="FONT-SIZE: 9pt; LEFT: 19.56%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 49.34%; HEIGHT: 9.86%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:15;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p5_4900FY0212_rec_DataScript").onmousedown'
+id=p5_4900FY0212_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 19.56%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p5_4900FY0212_rec_DataScript").onmousedown'
+id=p5_4900FY0212_cmb_ModeValue
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 19.56%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:40;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">Combobox</SPAN></DIV></DIV>
+<DIV class=hsc.shape.1 id=p1_4900TC0145
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 3px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_RegCtl.sha" parameters =
+"Point?Entity:4900TC0145;Parameter?CP_SP:PIDA.SP;Parameter?CP_PV:PIDA.PV;Parameter?CP_OP:PIDA.OP;Parameter?CP_Mode:PIDA.MODE;Parameter?CP_BadPV:PIDA.PVSTSFL.BAD;Parameter?CP_OffNormal:DACA.PVSOURCE;Parameter?CP_ModAttr:PIDA.MODEATTR;Parameter?CP_Ramp:PIDA.SPTVSTATE;Parameter?CP_RedTag:PIDA.REDTAG;Parameter?CP_Windup:PIDA.ARWOP;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p1_4900TC0145_grpRegCtl
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p1_4900TC0145_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 9.21%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:41;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p1_4900TC0145_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:42;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p1_4900TC0145_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:43;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p1_4900TC0145_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p1_4900TC0145_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p1_4900TC0145_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28.94%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p1_4900TC0145_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p1_4900TC0145_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p1_4900TC0145_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p1_4900TC0145_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p1_4900TC0145_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 10.86%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class=hvg.base.1 id=p1_4900TC0145_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 17.39%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 67.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.18%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:16;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:62;"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p1_4900TC0145_txt_AnalogValue
+style="FONT-SIZE: 9pt; LEFT: 20.65%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay"
+id=p1_4900TC0145_txt_statusmessage
+style="FONT-SIZE: 8pt; LEFT: 21.73%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 73.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:58;">RedTag</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay" id=p1_4900TC0145_txt_ramp
+style="FONT-WEIGHT: bold; FONT-SIZE: 8pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #ffffff; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 23.68%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:9;">R</DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p1_4900TC0145_plg_OpLow
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 0 50 100 0 0 100 0 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p1_4900TC0145_plg_OpHigh
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 100 50 0 0 100 100 100 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.textbox.1 OffNormalText" id=p1_4900TC0145_txt_Initialization
+style="FONT-WEIGHT: bold; FONT-SIZE: 16pt; LEFT: 86.95%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #b000b0; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:OffNormalText;textColor:rgb(176,0,176);textColorBlink:False;TotalRotation:0;Width:9;">*</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p1_4900TC0145_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:44;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 0)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p1_4900TC0145_rec_DataScript").onmousedown'
+id=p1_4900TC0145_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p1_4900TC0145_rec_DataScript").onmousedown'
+id=p1_4900TC0145_cmb_ModeValue
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 21.73%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:45;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">Combobox</SPAN>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p1_4900TC0145_rec_DataScript").onmousedown'
+id=p1_4900TC0145_txt_OPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p1_4900TC0145_rec_DataScript").onmousedown'
+id=p1_4900TC0145_txt_SPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 22.36%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p1_4900TC0145_rec_DataScript").onmousedown' id=p1_4900TC0145_alp_SPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:46;lineColor:transparent;numericDisplayFormat:%.2f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">9999.99</TEXTAREA><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p1_4900TC0145_rec_DataScript").onmousedown' id=p1_4900TC0145_alp_OPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);HDXBINDINGID:47;lineColor:transparent;numberOfChars:9;numericDisplayFormat:%.1f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);">9999.99</TEXTAREA></DIV></DIV>
+<DIV class=hsc.shape.1 id=p2_4900TC0074
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 94px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_RegCtl.sha" parameters =
+"Point?Entity:4900TC0074;Parameter?CP_SP:PIDA.SP;Parameter?CP_PV:PIDA.PV;Parameter?CP_OP:PIDA.OP;Parameter?CP_Mode:PIDA.MODE;Parameter?CP_BadPV:PIDA.PVSTSFL.BAD;Parameter?CP_OffNormal:DACA.PVSOURCE;Parameter?CP_ModAttr:PIDA.MODEATTR;Parameter?CP_Ramp:PIDA.SPTVSTATE;Parameter?CP_RedTag:PIDA.REDTAG;Parameter?CP_Windup:PIDA.ARWOP;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p2_4900TC0074_grpRegCtl
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p2_4900TC0074_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 9.21%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:48;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p2_4900TC0074_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:49;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p2_4900TC0074_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:57;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p2_4900TC0074_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p2_4900TC0074_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p2_4900TC0074_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28.94%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p2_4900TC0074_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p2_4900TC0074_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p2_4900TC0074_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p2_4900TC0074_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p2_4900TC0074_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 10.86%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class=hvg.base.1 id=p2_4900TC0074_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 17.39%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 67.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.18%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:16;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:62;"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p2_4900TC0074_txt_AnalogValue
+style="FONT-SIZE: 9pt; LEFT: 20.65%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay"
+id=p2_4900TC0074_txt_statusmessage
+style="FONT-SIZE: 8pt; LEFT: 21.73%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 73.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:58;">RedTag</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay" id=p2_4900TC0074_txt_ramp
+style="FONT-WEIGHT: bold; FONT-SIZE: 8pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #ffffff; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 23.68%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:9;">R</DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p2_4900TC0074_plg_OpLow
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 0 50 100 0 0 100 0 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p2_4900TC0074_plg_OpHigh
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 100 50 0 0 100 100 100 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.textbox.1 OffNormalText" id=p2_4900TC0074_txt_Initialization
+style="FONT-WEIGHT: bold; FONT-SIZE: 16pt; LEFT: 86.95%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #b000b0; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:OffNormalText;textColor:rgb(176,0,176);textColorBlink:False;TotalRotation:0;Width:9;">*</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p2_4900TC0074_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:58;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 0)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p2_4900TC0074_rec_DataScript").onmousedown'
+id=p2_4900TC0074_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p2_4900TC0074_rec_DataScript").onmousedown'
+id=p2_4900TC0074_cmb_ModeValue
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 21.73%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:59;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">Combobox</SPAN>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p2_4900TC0074_rec_DataScript").onmousedown'
+id=p2_4900TC0074_txt_OPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p2_4900TC0074_rec_DataScript").onmousedown'
+id=p2_4900TC0074_txt_SPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 22.36%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p2_4900TC0074_rec_DataScript").onmousedown' id=p2_4900TC0074_alp_SPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:60;lineColor:transparent;numericDisplayFormat:%.2f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">9999.99</TEXTAREA><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p2_4900TC0074_rec_DataScript").onmousedown' id=p2_4900TC0074_alp_OPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);HDXBINDINGID:61;lineColor:transparent;numberOfChars:9;numericDisplayFormat:%.1f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);">9999.99</TEXTAREA></DIV></DIV>
+<DIV class=hsc.shape.1 id=p3_4900FC0212
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 185px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_RegCtl.sha" parameters =
+"Point?Entity:4900FC0212;Parameter?CP_SP:PIDA.SP;Parameter?CP_PV:PIDA.PV;Parameter?CP_OP:PIDA.OP;Parameter?CP_Mode:PIDA.MODE;Parameter?CP_BadPV:PIDA.PVSTSFL.BAD;Parameter?CP_OffNormal:DACA.PVSOURCE;Parameter?CP_ModAttr:PIDA.MODEATTR;Parameter?CP_Ramp:PIDA.SPTVSTATE;Parameter?CP_RedTag:PIDA.REDTAG;Parameter?CP_Windup:PIDA.ARWOP;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p3_4900FC0212_grpRegCtl
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p3_4900FC0212_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 9.21%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:62;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p3_4900FC0212_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:63;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p3_4900FC0212_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:64;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p3_4900FC0212_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p3_4900FC0212_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p3_4900FC0212_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28.94%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p3_4900FC0212_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p3_4900FC0212_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p3_4900FC0212_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p3_4900FC0212_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p3_4900FC0212_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 10.86%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class=hvg.base.1 id=p3_4900FC0212_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 17.39%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 67.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.18%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:16;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:62;"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p3_4900FC0212_txt_AnalogValue
+style="FONT-SIZE: 9pt; LEFT: 20.65%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay"
+id=p3_4900FC0212_txt_statusmessage
+style="FONT-SIZE: 8pt; LEFT: 21.73%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 73.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:58;">RedTag</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay" id=p3_4900FC0212_txt_ramp
+style="FONT-WEIGHT: bold; FONT-SIZE: 8pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #ffffff; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 23.68%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:9;">R</DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p3_4900FC0212_plg_OpLow
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 0 50 100 0 0 100 0 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p3_4900FC0212_plg_OpHigh
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 100 50 0 0 100 100 100 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.textbox.1 OffNormalText" id=p3_4900FC0212_txt_Initialization
+style="FONT-WEIGHT: bold; FONT-SIZE: 16pt; LEFT: 86.95%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #b000b0; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:OffNormalText;textColor:rgb(176,0,176);textColorBlink:False;TotalRotation:0;Width:9;">*</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p3_4900FC0212_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:65;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 0)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p3_4900FC0212_rec_DataScript").onmousedown'
+id=p3_4900FC0212_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p3_4900FC0212_rec_DataScript").onmousedown'
+id=p3_4900FC0212_cmb_ModeValue
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 21.73%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:66;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">Combobox</SPAN>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p3_4900FC0212_rec_DataScript").onmousedown'
+id=p3_4900FC0212_txt_OPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p3_4900FC0212_rec_DataScript").onmousedown'
+id=p3_4900FC0212_txt_SPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 22.36%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p3_4900FC0212_rec_DataScript").onmousedown' id=p3_4900FC0212_alp_SPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:67;lineColor:transparent;numericDisplayFormat:%.2f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">9999.99</TEXTAREA><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p3_4900FC0212_rec_DataScript").onmousedown' id=p3_4900FC0212_alp_OPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);HDXBINDINGID:68;lineColor:transparent;numberOfChars:9;numericDisplayFormat:%.1f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);">9999.99</TEXTAREA></DIV></DIV>
+<DIV class=hsc.shape.1 id=p4_4900PC0216
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 277px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_RegCtl.sha" parameters =
+"Point?Entity:4900PC0216;Parameter?CP_SP:PIDA.SP;Parameter?CP_PV:PIDA.PV;Parameter?CP_OP:PIDA.OP;Parameter?CP_Mode:PIDA.MODE;Parameter?CP_BadPV:PIDA.PVSTSFL.BAD;Parameter?CP_OffNormal:DACA.PVSOURCE;Parameter?CP_ModAttr:PIDA.MODEATTR;Parameter?CP_Ramp:PIDA.SPTVSTATE;Parameter?CP_RedTag:PIDA.REDTAG;Parameter?CP_Windup:PIDA.ARWOP;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p4_4900PC0216_grpRegCtl
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p4_4900PC0216_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 9.21%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:2;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p4_4900PC0216_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:3;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p4_4900PC0216_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:4;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p4_4900PC0216_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p4_4900PC0216_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p4_4900PC0216_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28.94%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p4_4900PC0216_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p4_4900PC0216_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p4_4900PC0216_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p4_4900PC0216_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p4_4900PC0216_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 10.86%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class=hvg.base.1 id=p4_4900PC0216_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 17.39%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 67.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.18%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:16;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:62;"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p4_4900PC0216_txt_AnalogValue
+style="FONT-SIZE: 9pt; LEFT: 20.65%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay"
+id=p4_4900PC0216_txt_statusmessage
+style="FONT-SIZE: 8pt; LEFT: 21.73%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 73.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:58;">RedTag</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay" id=p4_4900PC0216_txt_ramp
+style="FONT-WEIGHT: bold; FONT-SIZE: 8pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #ffffff; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 23.68%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:9;">R</DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p4_4900PC0216_plg_OpLow
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 0 50 100 0 0 100 0 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p4_4900PC0216_plg_OpHigh
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 100 50 0 0 100 100 100 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.textbox.1 OffNormalText" id=p4_4900PC0216_txt_Initialization
+style="FONT-WEIGHT: bold; FONT-SIZE: 16pt; LEFT: 86.95%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #b000b0; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:OffNormalText;textColor:rgb(176,0,176);textColorBlink:False;TotalRotation:0;Width:9;">*</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p4_4900PC0216_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:5;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 0)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p4_4900PC0216_rec_DataScript").onmousedown'
+id=p4_4900PC0216_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p4_4900PC0216_rec_DataScript").onmousedown'
+id=p4_4900PC0216_cmb_ModeValue
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 21.73%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:6;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">Combobox</SPAN>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p4_4900PC0216_rec_DataScript").onmousedown'
+id=p4_4900PC0216_txt_OPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p4_4900PC0216_rec_DataScript").onmousedown'
+id=p4_4900PC0216_txt_SPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 22.36%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p4_4900PC0216_rec_DataScript").onmousedown' id=p4_4900PC0216_alp_SPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:7;lineColor:transparent;numericDisplayFormat:%.2f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">9999.99</TEXTAREA><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p4_4900PC0216_rec_DataScript").onmousedown' id=p4_4900PC0216_alp_OPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);HDXBINDINGID:18;lineColor:transparent;numberOfChars:9;numericDisplayFormat:%.1f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);">9999.99</TEXTAREA></DIV></DIV>
+<DIV class=hsc.shape.1 id=p9_4900FFI3104
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 94px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 179px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:0;lineColorBlink:False;Width:0;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_RatioTrack.sha" parameters =
+"Point?Entity:4900FFI3104;Parameter?CP_SP:RATIOBIASA.RT;Parameter?CP_PV:RATIO_TRACKING.PV;Parameter?CP_Mode:RATIOBIASA.MODE;Parameter?CP_RFormat:RATIO_TRACKING.PVFORMAT;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p9_4900FFI3104_grpRatioTrack
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p9_4900FFI3104_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 9.21%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:69;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p9_4900FFI3104_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:70;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p9_4900FFI3104_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:71;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPRATIOTRACK_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class=hvg.textbox.1 id=p9_4900FFI3104_txtRT
+style="FONT-WEIGHT: normal; FONT-SIZE: 9pt; LEFT: 3.26%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 44.56%; COLOR: #bebebe; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 23.02%; HEIGHT: 15.78%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:24;lineColorBlink:False;LineStyle:0;textColor:#bebebe;textColorBlink:False;TotalRotation:0;Width:41;">RT</DIV>
+<DIV class=hvg.textbox.1 id=p9_4900FFI3104_txtRV
+style="FONT-WEIGHT: normal; FONT-SIZE: 9pt; LEFT: 3.26%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 44.56%; COLOR: #bebebe; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 37.5%; HEIGHT: 15.78%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:24;lineColorBlink:False;LineStyle:0;textColor:#bebebe;textColorBlink:False;TotalRotation:0;Width:41;">RV</DIV>
+<DIV class=hvg.textbox.1 id=p9_4900FFI3104_txtRM
+style="FONT-WEIGHT: normal; FONT-SIZE: 9pt; LEFT: 4.34%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 44.56%; COLOR: #bebebe; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 15.78%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:24;lineColorBlink:False;LineStyle:0;textColor:#bebebe;textColorBlink:False;TotalRotation:0;Width:41;">RM</DIV>
+<DIV class=hvg.base.1 id=p9_4900FFI3104_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 21.73%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 67.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:16;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:62;"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9_4900FFI3104_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9_4900FFI3104_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p9_4900FFI3104_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:72;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPRATIOTRACK_ONUPDATE(me.parentElement.parentElement, 0)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9_4900FFI3104_rec_DataScript").onmousedown'
+id=p9_4900FFI3104_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 26.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9_4900FFI3104_rec_DataScript").onmousedown'
+id=p9_4900FFI3104_cmb_ModeValue title=Combobox
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 26.08%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:73;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">Combobox</SPAN>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9_4900FFI3104_rec_DataScript").onmousedown'
+id=p9_4900FFI3104_txt_SPValue
+style="FONT-SIZE: 9pt; LEFT: 26.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 22.36%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p9_4900FFI3104_rec_DataScript").onmousedown' id=p9_4900FFI3104_alp_SPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" onclick='VBScript:msgbox("I am clicked")' tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:74;lineColor:transparent;lineColorBlink:False;numericDisplayFormat:%.2f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">9999.99</TEXTAREA>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9_4900FFI3104_txt_AnalogValue
+style="FONT-SIZE: 9pt; LEFT: 25%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:58;">.99</DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p9_4900FFI3104_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28.94%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p9_4900FFI3104_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 10.86%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p9_4900FFI3104_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 10.86%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p9_4900FFI3104_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 14.13%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p9_4900FFI3104_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 14.13%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p9_4900FFI3104_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 15.21%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV></DIV></DIV>
+<DIV class=hsc.shape.1 id=p9a_4900FC3104
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 185px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 179px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_RegCtl.sha" parameters =
+"Point?Entity:4900FC3104;Parameter?CP_SP:PIDA.SP;Parameter?CP_PV:PIDA.PV;Parameter?CP_OP:PIDA.OP;Parameter?CP_Mode:PIDA.MODE;Parameter?CP_BadPV:PIDA.PVSTSFL.BAD;Parameter?CP_OffNormal:DACA.PVSOURCE;Parameter?CP_ModAttr:PIDA.MODEATTR;Parameter?CP_Ramp:PIDA.SPTVSTATE;Parameter?CP_RedTag:PIDA.REDTAG;Parameter?CP_Windup:PIDA.ARWOP;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p9a_4900FC3104_grpRegCtl
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p9a_4900FC3104_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 9.21%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:50;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p9a_4900FC3104_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:51;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p9a_4900FC3104_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:52;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9a_4900FC3104_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9a_4900FC3104_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p9a_4900FC3104_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 28.94%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p9a_4900FC3104_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p9a_4900FC3104_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 8.69%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 30.26%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p9a_4900FC3104_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p9a_4900FC3104_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 9.78%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p9a_4900FC3104_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 10.86%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 29.6%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class=hvg.base.1 id=p9a_4900FC3104_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 17.39%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 67.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.18%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:16;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:62;"></DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9a_4900FC3104_txt_AnalogValue
+style="FONT-SIZE: 9pt; LEFT: 20.65%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 36.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay"
+id=p9a_4900FC3104_txt_statusmessage
+style="FONT-SIZE: 8pt; LEFT: 21.73%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 73.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:58;">RedTag</DIV>
+<DIV class="hvg.textbox.1 Group_StatusDisplay" id=p9a_4900FC3104_txt_ramp
+style="FONT-WEIGHT: bold; FONT-SIZE: 8pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #ffffff; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 23.68%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;FillStyle:0;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;styleClass:Group_StatusDisplay;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:9;">R</DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p9a_4900FC3104_plg_OpLow
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 0 50 100 0 0 100 0 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p9a_4900FC3104_plg_OpHigh
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 100 50 0 0 100 100 100 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.textbox.1 OffNormalText" id=p9a_4900FC3104_txt_Initialization
+style="FONT-WEIGHT: bold; FONT-SIZE: 16pt; LEFT: 86.95%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #b000b0; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:OffNormalText;textColor:rgb(176,0,176);textColorBlink:False;TotalRotation:0;Width:9;">*</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p9a_4900FC3104_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:53;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPREGULATORYCONTROL_ONUPDATE(me.parentElement.parentElement, 0)"></DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9a_4900FC3104_rec_DataScript").onmousedown'
+id=p9a_4900FC3104_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9a_4900FC3104_rec_DataScript").onmousedown'
+id=p9a_4900FC3104_cmb_ModeValue
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 21.73%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:54;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">Combobox</SPAN>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9a_4900FC3104_rec_DataScript").onmousedown'
+id=p9a_4900FC3104_txt_OPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48.68%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9a_4900FC3104_rec_DataScript").onmousedown'
+id=p9a_4900FC3104_txt_SPValue
+style="FONT-SIZE: 9pt; LEFT: 21.73%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 22.36%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p9a_4900FC3104_rec_DataScript").onmousedown' id=p9a_4900FC3104_alp_SPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:55;lineColor:transparent;numericDisplayFormat:%.2f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;">9999.99</TEXTAREA><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p9a_4900FC3104_rec_DataScript").onmousedown' id=p9a_4900FC3104_alp_OPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);HDXBINDINGID:56;lineColor:transparent;numberOfChars:9;numericDisplayFormat:%.1f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);">9999.99</TEXTAREA></DIV></DIV>
+<DIV class=hsc.shape.1 id=p9b_4900TY3301
+style="FONT-WEIGHT: 400; FONT-SIZE: 0px; LEFT: 277px; BEHAVIOR: url(#HSCShapeLinkBehavior) url(#HDXVectorFactory#shapelink); WIDTH: 92px; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 179px; HEIGHT: 152px; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;"
+value = "1" src = ".\L4_LSG_FURN_1_files\C200_MF_Automan.sha" parameters =
+"Point?Entity:4900TY3301;Parameter?CP_OP:AUTOMANA.OP;Parameter?CP_Mode:AUTOMANA.MODE;Parameter?CP_ModAttr:AUTOMANA.MODEATTR;Parameter?CP_RedTag:AUTOMANA.REDTAG;Parameter?CP_Windup:AUTOMANA.ARWOP;"
+linkType = "embedded" globalscripts = "" styleClass = "">
+<DIV class=hvg.group.1 id=p9b_4900TY3301_grp_C200MFAutoman
+style="FONT-SIZE: 0pt; LEFT: 0%; BEHAVIOR: url(#HDXVectorFactory#group); WIDTH: 100%; POSITION: absolute; TOP: 0%; HEIGHT: 100%"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;Height:152;lineColorBlink:False;Width:92;">
+<DIV class=hsc.alarmstate.1 id=p9b_4900TY3301_alarmstate title=""
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 65.21%; VISIBILITY: hidden; BEHAVIOR: url(#AlarmStateIconFactory#AlarmIcon) url(#BindingBehavior); WIDTH: 19.56%; FONT-STYLE: normal; FONT-FAMILY: Arial; WHITE-SPACE: nowrap; POSITION: absolute; TOP: 40.78%; HEIGHT: 11.84%; TEXT-ALIGN: center; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="acknowledged:True;HDXBINDINGID:8;priority:3;quality:0;rtn:False;showDisableIcon:False;showTooltip:False;sizeableIcon:True;staticIcon:False;"
+ObjectType="6"></DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1 FrameMF" id=p9b_4900TY3301_frame
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 0%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 98.91%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:9;Height:150;LineColor:rgb(225,225,225);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:FrameMF;Width:91;"></DIV>
+<DIV class="hvg.base.1 FocusC200 HSC.ScriptDataObject.1" id=p9b_4900TY3301_focus
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 95.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 97.36%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,230,210);fillColorBlink:False;FillStyle:0;HDXBINDINGID:10;Height:148;LineColor:rgb(0,0,0);lineColorBlink:False;LineStyle:1;LineWidth:2;styleClass:FocusC200;Width:88;"
+onupdate="VBScript:call GSH_C200_GROUPAUTOMAN_ONUPDATE(me.parentElement.parentElement, 1)"></DIV>
+<DIV class=hvg.base.1 id=p9b_4900TY3301_outline
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 15.21%; BEHAVIOR: url(#HDXVectorFactory#roundrect); OVERFLOW: hidden; WIDTH: 70.65%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 48.02%; HEIGHT: 11.84%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:18;LineColor:#b4b4b4;lineColorBlink:False;LineWidth:1;Roundness:80;Width:65;"></DIV>
+<DIV class="hvg.base.1 AlarmEmergColor" id=p9b_4900TY3301_plg_EAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 3.26%; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 17.39%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 40.78%; HEIGHT: 10.52%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,0,0);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,0,0);lineColorBlink:False;LineStyle:1;points:0.000000 50.000000 50.000000 100.000000 50.000000 100.000000 100.000000 50.000000 100.000000 50.000000 50.000000 0.000000 ;styleClass:AlarmEmergColor;Width:16;"></DIV>
+<DIV class="hvg.textbox.1 AlarmEmergText" id=p9b_4900TY3301_txt_EAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #ffffff; FONT-FAMILY: Arial; POSITION: absolute; TOP: 41.44%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(255,190,0);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmEmergText;textColor:rgb(255,255,255);textColorBlink:False;TotalRotation:0;Width:12;">U</DIV>
+<DIV class="hvg.base.1 AlarmHighColor" id=p9b_4900TY3301_rec_HAlarm
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 5.43%; BEHAVIOR: url(#HDXVectorFactory#rect); OVERFLOW: hidden; WIDTH: 13.04%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 42.1%; HEIGHT: 7.89%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255,160,0);fillColorBlink:False;Height:12;LineColor:rgb(255,160,0);lineColorBlink:False;LineStyle:1;styleClass:AlarmHighColor;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmHighText" id=p9b_4900TY3301_txt_HAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 7.6%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 11.95%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 41.44%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="fillColorBlink:False;FillStyle:1;Height:12;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmHighText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:11;">H</DIV>
+<DIV class="hvg.base.1 AlarmLowColor" id=p9b_4900TY3301_ovl_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 5.43%; BEHAVIOR: url(#HDXVectorFactory#oval); OVERFLOW: hidden; WIDTH: 13.04%; FONT-FAMILY: Arial; POSITION: absolute; TOP: 42.1%; HEIGHT: 7.89%"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:0;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:1;LineWidth:1;styleClass:AlarmLowColor;textColor:rgb(0,0,0);textColorBlink:False;Width:12;"></DIV>
+<DIV class="hvg.textbox.1 AlarmLowText" id=p9b_4900TY3301_txt_LAlarm
+style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; LEFT: 6.52%; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 13.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 41.44%; HEIGHT: 7.89%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(51,170,255);fillColorBlink:False;FillStyle:1;Height:12;LineColor:rgb(51,170,255);lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:AlarmLowText;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:12;">L</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9b_4900TY3301_txt_tagname
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 1.97%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">TagName</DIV>
+<DIV class="hvg.textbox.1 Group_DataDisplay" id=p9b_4900TY3301_txt_keyword
+style="FONT-SIZE: 9pt; LEFT: 1.08%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 97.82%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 11.84%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(235,235,235);fillColorBlink:False;FillStyle:1;Height:16;LineColor:rgb(235,235,235);lineColorBlink:False;LineStyle:0;LineWidth:1;styleClass:Group_DataDisplay;textColor:rgb(0,0,0);textColorBlink:False;TotalRotation:0;Width:90;">Keyword</DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p9b_4900TY3301_plg_OpLow
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 0 50 100 0 0 100 0 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.base.1 OffNormalLineFill" id=p9b_4900TY3301_plg_OpHigh
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 85.86%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#polygon); OVERFLOW: hidden; WIDTH: 10.86%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 50.65%; HEIGHT: 6.57%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:rgb(176,0,176);fillColorBlink:False;Height:10;LineColor:rgb(176,0,176);lineColorBlink:False;points:100 100 50 0 0 100 100 100 ;styleClass:OffNormalLineFill;Width:10;"></DIV>
+<DIV class="hvg.textbox.1 OffNormalText" id=p9b_4900TY3301_txt_Initialization
+style="FONT-WEIGHT: bold; FONT-SIZE: 16pt; LEFT: 84.78%; VISIBILITY: hidden; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 9.78%; COLOR: #b000b0; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.84%; HEIGHT: 9.21%; TEXT-ALIGN: left"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;Height:14;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:0;styleClass:OffNormalText;textColor:rgb(176,0,176);textColorBlink:False;TotalRotation:0;Width:9;">*</DIV>
+<DIV class="hvg.base.1 HSC.ScriptDataObject.1" id=p9b_4900TY3301_rec_DataScript
+style="FONT-WEIGHT: 400; FONT-SIZE: 12pt; LEFT: 1.08%; BEHAVIOR: url(#HDXVectorFactory#rect) url(#HSCScriptDataBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 97.82%; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0.65%; HEIGHT: 98.68%; TEXT-DECORATION: none"
+tabIndex=-1
+hdxproperties="FillColor:transparent;fillColorBlink:False;FillStyle:1;HDXBINDINGID:11;Height:150;LineColor:transparent;lineColorBlink:False;LineStyle:0;LineWidth:2;Width:90;"
+onupdate="VBScript:call GSH_C200_GROUPAUTOMAN_ONUPDATE(me.parentElement.parentElement, 0)"></DIV><TEXTAREA class="hsc.alpha.1 Group_DataEntry" onmousedown='VBScript:me.parentElement.parentElement.objects("p9b_4900TY3301_rec_DataScript").onmousedown' id=p9b_4900TY3301_alp_OPValue style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; LEFT: 6.52%; VISIBILITY: hidden; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HDXAlphaBehavior) url(#BindingBehavior) url(#HoverBehavior); OVERFLOW: hidden; WIDTH: 86.95%; COLOR: rgb(0,0,0); BORDER-TOP-STYLE: none; PADDING-TOP: 1px; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 84.86%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; WORD-WRAP: normal; BORDER-BOTTOM-STYLE: none; ROWS: 1" tabIndex=0 hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);HDXBINDINGID:12;indicateScanState:0;lineColor:transparent;numberOfChars:9;numericDisplayFormat:%.1f;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);">9999.99</TEXTAREA>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9b_4900TY3301_rec_DataScript").onmousedown'
+id=p9b_4900TY3301_txt_OPValue
+style="FONT-SIZE: 9pt; LEFT: 19.56%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 49.34%; HEIGHT: 9.86%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:15;lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">9999.99</DIV>
+<DIV class="hvg.textbox.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9b_4900TY3301_rec_DataScript").onmousedown'
+id=p9b_4900TY3301_txt_ModeValue
+style="FONT-SIZE: 9pt; LEFT: 19.56%; VISIBILITY: visible; BEHAVIOR: url(#HDXVectorFactory#text); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: #000000; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; TEXT-ALIGN: center"
+tabIndex=-1
+hdxproperties="FillColor:rgb(255, 255, 255);fillColorBlink:False;FillStyle:0;Height:16;LineColor:rgb(255,255,255);lineColorBlink:False;LineStyle:0;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;TotalRotation:0;Width:58;">Mode</DIV><SPAN
+class="hsc.combo.1 Group_DataEntry"
+onmousedown='VBScript:me.parentElement.parentElement.objects("p9b_4900TY3301_rec_DataScript").onmousedown'
+id=p9b_4900TY3301_cmb_ModeValue
+style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: transparent; LEFT: 19.56%; VISIBILITY: hidden; BORDER-BOTTOM-COLOR: transparent; PADDING-BOTTOM: 1px; BEHAVIOR: url(#HSCComboboxBehavior) url(#BindingBehavior); OVERFLOW: hidden; WIDTH: 63.04%; COLOR: rgb(0,0,0); BORDER-TOP-COLOR: transparent; TEXT-INDENT: 2px; PADDING-TOP: 1px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 61.18%; HEIGHT: 10.52%; BACKGROUND-COLOR: rgb(255,255,255); TEXT-ALIGN: center; BORDER-RIGHT-COLOR: transparent"
+tabIndex=0
+hdxproperties="borderStyle:none;borderWidth:1;fillColor:rgb(255, 255, 255);fillColorBlink:False;HDXBINDINGID:13;lineColor:transparent;lineColorBlink:False;styleClass:Group_DataEntry;textColor:rgb(0, 0, 0);textColorBlink:False;"></SPAN></DIV></DIV></DIV></BODY></HTML>
|