Adding addtional smart scanner metrics

LSL2/STPROC/RDS_REACT_RUN.txt

@@ -1,7 +1,9 @@
 COMPILE SUBROUTINE RDS_REACT_RUN(RDSNo)
 
 DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, Send_Dyn, obj_WO_Step, Set_Status
+Declare subroutine Mona_Services
 DECLARE FUNCTION Get_Status, Set_Printer, obj_RDS, obj_Prod_Spec, NextKey, MemberOf
+Declare function Environment_Services, GetTickCount
 
 
 $INSERT RDS_EQU
@@ -12,6 +14,17 @@ $INSERT SURFACE_SCAN_EQUATES
 $INSERT CLEAN_INSP_EQUATES
 $INSERT QUOTE_SPEC_EQU
 $INSERT WO_MAT_EQUATES
+$Insert LOGICAL
+
+IsProd = Environment_Services('IsProd')
+If IsProd EQ True$ then
+	MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_RDSREACTRUN'
+end else
+	MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_RDSREACTRUN'
+end
+
+StartTick = GetTickCount()
+MetricName = 'RDSReactRun'
 
 IF NOT(ASSIGNED(RDSNo)) THEN RETURN
 
@@ -306,6 +319,9 @@ READ RDSRec FROM RDSTable,RDSNo THEN
 	END
 	*/
 	
+	EndTick = GetTickCount()
+    Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
+	
 END	;* End of RDSRec READ
 	
 * * * * * * *