smart scanner metrics

LSL2/STPROC/OBJ_REACT_STATE.txt

@@ -15,10 +15,10 @@ COMPILE FUNCTION obj_React_State(Method,Parms)
 */
 
 
-DECLARE SUBROUTINE  Set_Status, Msg, obj_Tables, Send_Dyn, ErrMsg, Database_Services
+DECLARE SUBROUTINE  Set_Status, Msg, obj_Tables, Send_Dyn, ErrMsg, Database_Services, Mona_Services
 
 DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, Send_Dyn, Database_Services, Error_Services
-
+Declare function Environment_Services, GetTickCount
 
 $INSERT REACT_STATE_EQUATES
 $INSERT PROD_SPEC_EQUATES
@@ -28,6 +28,12 @@ $INSERT LOGICAL
 EQU CRLF$	TO \0D0A\
 EQU TAB$	TO \09\
 
+IsProd = Environment_Services('IsProd')
+If IsProd EQ True$ then
+	MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_OBJREACTSTATE'
+end else
+	MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_OBJREACTSTATE'
+end
 
 ErrTitle = 'Error in Stored Procedure "obj_React_State"'
 ErrorMsg = ''
@@ -62,6 +68,9 @@ RETURN Result
 ReactRunUnload:
 * * * * * * *
 
+StartTick = GetTickCount()
+MetricName = 'ReactRunUnload'
+
 * Upadate all parameters set at Reactor Unload signature  *
 
 ReactNo			= Parms[1,@RM]
@@ -115,6 +124,9 @@ end
 * otParms = FieldStore(otParms,@RM,4,0,RSRec)
 * obj_Tables('WriteRec',otParms)
 
+EndTick = GetTickCount()
+Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
+
 RETURN