smart scanner metrics

LSL2/STPROC/OBJ_WO_MAT_LOG.txt

@@ -17,9 +17,9 @@ COMPILE FUNCTION obj_WO_Mat_Log(Method,Parms)
 
 
 DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Dialog_Box, NextKey, Popup, Get_Property, obj_RDS, Database_Services
-Declare function    Logging_Services, Environment_Services, RTI_CreateGUID, Error_Services, Datetime
+Declare function    Logging_Services, Environment_Services, RTI_CreateGUID, Error_Services, Datetime, GetTickCount
 DECLARE SUBROUTINE  Set_Status, Msg, obj_Tables, Send_Dyn, Btree.Extract, ErrMsg, Send_Dyn, RList, obj_WO_Log, Send_Event, obj_RDS
-DECLARE SUBROUTINE obj_WO_Mat, Send_Info, obj_Notes, Logging_Services, Database_Services, Lot_Event_Services
+DECLARE SUBROUTINE obj_WO_Mat, Send_Info, obj_Notes, Logging_Services, Database_Services, Lot_Event_Services, Mona_Services
 
 $INSERT MSG_EQUATES
 $INSERT WO_MAT_LOG_EQUATES
@@ -49,6 +49,13 @@ Headers     = 'Logging DTM'
 objLog      = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
 LoggingDTM  = LogDate : ' ' : LogTime   ; // Logging DTM
 
+IsProd = Environment_Services('IsProd')
+If IsProd EQ True$ then
+	MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_OBJWOMATLOG'
+end else
+	MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_OBJWOMATLOG'
+end
+
 ErrTitle = 'Error in Stored Procedure "obj_WO_Mat_Log"'
 ErrorMsg = ''
 
@@ -77,7 +84,9 @@ RETURN Result
 * * * * * * *
 Create:
 * * * * * * *
-
+	StartTick = GetTickCount()
+    MetricName = 'Create'
+	
     LogFile		= Parms[1,@RM]
     TransDTM	= Parms[COL2()+1,@RM]
     Action		= Parms[COL2()+1,@RM]
@@ -233,6 +242,8 @@ Create:
     	ErrorMsg = Error_Services('GetMessage')
     end
     
+    EndTick = GetTickCount()
+    Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
 RETURN
 
 
@@ -364,3 +375,4 @@ Post:
     
 RETURN
 
+