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

23
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 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 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 Rds_Services, SRP_DateTime, SRP_Math, obj_WO_Mat, Lot_Services, SRP_Array
Declare function Lot_Event_Services Declare function Lot_Event_Services, GetTickCount
Declare subroutine Error_Services, Database_Services, Logging_Services, Service_Services Declare subroutine Error_Services, Database_Services, Logging_Services, Service_Services, Mona_Services
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\RDS' LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\RDS'
LogDate = Oconv(Date(), 'D4/') 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' Headers = 'Logging DTM' : @FM : 'RDSNo' : @FM : 'WONo' : @FM : 'CassNo' : @FM : 'Reactor Type'
objLog3 = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$) 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 If KeyID then GoSub Initialize_System_Variables
Begin Case Begin Case
@ -615,6 +622,9 @@ return
WRITE_RECORD_PRE: WRITE_RECORD_PRE:
StartTick = GetTickCount()
MetricName = 'WriteRecordPre'
Shift = Record<RDS_SHIFT$> Shift = Record<RDS_SHIFT$>
If Num(Shift) then If Num(Shift) then
Begin Case Begin Case
@ -848,11 +858,16 @@ WRITE_RECORD_PRE:
End Case End Case
EndTick = GetTickCount()
Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
return return
WRITE_RECORD: WRITE_RECORD:
StartTick = GetTickCount()
MetricName = 'WriteRecord'
WONo = Record<RDS_WO$> WONo = Record<RDS_WO$>
ReactType = Xlate('WO_LOG', WONo, 'REACT_TYPE', 'X') ReactType = Xlate('WO_LOG', WONo, 'REACT_TYPE', 'X')
@ -964,6 +979,9 @@ WRITE_RECORD:
end end
end end
EndTick = GetTickCount()
Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
return return
@ -1045,3 +1063,4 @@ Restore_System_Variables:
return return

16
LSL2/STPROC/RDS_REACT_RUN.txt
View File

@ -1,7 +1,9 @@
COMPILE SUBROUTINE RDS_REACT_RUN(RDSNo) COMPILE SUBROUTINE RDS_REACT_RUN(RDSNo)
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, Send_Dyn, obj_WO_Step, Set_Status 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 Get_Status, Set_Printer, obj_RDS, obj_Prod_Spec, NextKey, MemberOf
Declare function Environment_Services, GetTickCount
$INSERT RDS_EQU $INSERT RDS_EQU
@ -12,6 +14,17 @@ $INSERT SURFACE_SCAN_EQUATES
$INSERT CLEAN_INSP_EQUATES $INSERT CLEAN_INSP_EQUATES
$INSERT QUOTE_SPEC_EQU $INSERT QUOTE_SPEC_EQU
$INSERT WO_MAT_EQUATES $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 IF NOT(ASSIGNED(RDSNo)) THEN RETURN
@ -306,6 +319,9 @@ READ RDSRec FROM RDSTable,RDSNo THEN
END END
*/ */
EndTick = GetTickCount()
Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
END ;* End of RDSRec READ END ;* End of RDSRec READ
* * * * * * * * * * * * * *