smart scanner metrics

LSL2/STPROC/OBJ_REACT_STATUS.txt

@@ -20,9 +20,9 @@ COMPILE FUNCTION obj_React_Status(Method,Parms)
 #pragma precomp SRP_PreCompiler
 
 DECLARE FUNCTION   Get_Status, Msg, Utility, obj_Tables, Dialog_Box,NextKey, Popup, Get_Property, Database_Services
-DECLARE FUNCTION   Error_Services, Environment_Services, Logging_Services, Override_Log_Services
+DECLARE FUNCTION   Error_Services, Environment_Services, Logging_Services, Override_Log_Services, GetTickCount
 DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, Btree.Extract, ErrMsg, Database_Services, Rlist
-DECLARE SUBROUTINE Logging_Services
+DECLARE SUBROUTINE Logging_Services, Mona_Services
 
 $INSERT LOGICAL
 $INSERT MSG_EQUATES
@@ -43,6 +43,13 @@ LogFilename       = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] :
 Headers           = 'Logging DTM' : @FM : 'User' : @FM : 'CassNo' : @FM : 'RDSNo' : @FM : 'Load DTM' : @FM : 'Service' : @FM : 'Notes'
 objReactStatusLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
 
+IsProd = Environment_Services('IsProd')
+If IsProd EQ True$ then
+	MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_OBJREACTSTATUS'
+end else
+	MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_OBJREACTSTATUS'
+end
+
 ErrTitle = 'Error in Stored Procedure "obj_React_Status"'
 ErrorMsg = ''
 
@@ -125,6 +132,9 @@ RETURN
 CassLoad:
 * * * * * * *
 
+    StartTick = GetTickCount()
+    MetricName = 'CassLoad'
+    
     ReactNo = Parms[1,@RM]
     WONo    = Parms[COL2()+1,@RM]
     CassNo  = Parms[COL2()+1,@RM]
@@ -202,6 +212,9 @@ CassLoad:
     IdleTime  = OCONV(ICONV(IdleTime*24,'MD2'),'MD2,')
 
     Result = IdleTime
+    
+    EndTick = GetTickCount()
+    Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
 
 RETURN
 
@@ -209,7 +222,9 @@ RETURN
 * * * * * * *
 CassUnload:
 * * * * * * *
-
+	StartTick = GetTickCount()
+    MetricName = 'CassUnload'
+	
     ReactNo   = Parms[1,@RM]
     WONo      = Parms[COL2()+1,@RM]
     CassNo    = Parms[COL2()+1,@RM]
@@ -270,6 +285,9 @@ CassUnload:
     If Error_Services('HasError') then
         ErrorMsg = Error_Services('GetMessage')
     end
+    
+    EndTick = GetTickCount()
+    Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
 
 RETURN
 
@@ -277,7 +295,9 @@ RETURN
 * * * * * * *
 ReactorLoad:
 * * * * * * *
-
+	StartTick = GetTickCount()
+    MetricName = 'ReactorLoad'
+	
     * EpiPro Reactor Load
 
     ReactNo = Parms[1,@RM]
@@ -361,13 +381,18 @@ ReactorLoad:
     end else
         ErrorMsg = 'Unable to read REACT_STATUS record ':ReactNo:' for update (':Method:').'
     end
+    
+    EndTick = GetTickCount()
+    Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
 
 RETURN
 
 * * * * * * *
 ReactorUnload:
 * * * * * * *
-
+	StartTick = GetTickCount()
+    MetricName = 'ReactorUnload'
+	
 * EpiPro Reactor Unload
 
     ReactNo   = Parms[1,@RM]
@@ -431,6 +456,9 @@ ReactorUnload:
     end else
         ErrorMsg = Error_Services('GetMessage')
     end
+    
+    EndTick = GetTickCount()
+    Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
 
 RETURN