Adding addtional smart scanner metrics

LSL2/STPROC/RDS_ACTIONS.txt

@@ -65,8 +65,8 @@ Equ COMMA$ to ','
 Declare function    Error_Services, Database_Services, obj_RDS_Test, Logging_Services, Environment_Services
 Declare function    Tool_Parms_Services, Signature_Services, obj_WO_Mat_QA, Datetime, Override_Services
 Declare function	Rds_Services, SRP_DateTime, SRP_Math, obj_WO_Mat, Lot_Services, SRP_Array
-Declare function    Lot_Event_Services
-Declare subroutine  Error_Services, Database_Services, Logging_Services, Service_Services
+Declare function    Lot_Event_Services, GetTickCount
+Declare subroutine  Error_Services, Database_Services, Logging_Services, Service_Services, Mona_Services
 
 LogPath     = Environment_Services('GetApplicationRootPath') : '\LogFiles\RDS'
 LogDate     = Oconv(Date(), 'D4/')
@@ -81,6 +81,13 @@ LogFileName  = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' RDS
 Headers      = 'Logging DTM' : @FM : 'RDSNo' : @FM : 'WONo' : @FM : 'CassNo' : @FM : 'Reactor Type'
 objLog3      = 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_RDSACTIONS'
+end else
+	MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_RDSACTIONS'
+end	
+
 If KeyID then GoSub Initialize_System_Variables
 
 Begin Case
@@ -614,7 +621,10 @@ READONLY_RECORD:
 return
 
 WRITE_RECORD_PRE:
-
+	
+	StartTick = GetTickCount()
+    MetricName = 'WriteRecordPre'
+	
 	Shift = Record<RDS_SHIFT$>
     If Num(Shift) then
     	Begin Case
@@ -848,10 +858,15 @@ WRITE_RECORD_PRE:
             
     End Case
     
+    EndTick = GetTickCount()
+    Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
 return
 
 
 WRITE_RECORD:
+	
+	StartTick = GetTickCount()
+    MetricName = 'WriteRecord'
 
     WONo          = Record<RDS_WO$>
     
@@ -964,6 +979,9 @@ WRITE_RECORD:
         end
     end
     
+    EndTick = GetTickCount()
+    Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
+    
 return
 
 
@@ -1045,3 +1063,4 @@ Restore_System_Variables:
 return
 
 
+

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
 	
 * * * * * * *