phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adding addtional smart scanner metrics

Browse Source
This commit is contained in:
Chase Tucker
2025-06-19 11:58:27 -07:00
committed by Tucker Chase (CSC FI SPS MESLEO)
parent 17e320923f
commit 49f6cf505a
2 changed files with 38 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
LSL2/STPROC/RDS_ACTIONS.txt
View File

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