From 17e320923f88e5ece14e11b9cd8f85b847cf6ba8 Mon Sep 17 00:00:00 2001 From: "Ouellette Jonathan (CSC FI SPS MESLEO)" Date: Sat, 21 Jun 2025 01:33:55 +0200 Subject: [PATCH] Merged PR 19265: Moved call to MonA Metric setting above the local service error setting as th... Moved call to MonA Metric setting above the local service error setting as the call to that MonA service was clearing out errors and preventing them from making their way back to the GUI. --- LSL2/STPROC/TEST_RUN_SERVICES.txt | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/LSL2/STPROC/TEST_RUN_SERVICES.txt b/LSL2/STPROC/TEST_RUN_SERVICES.txt index a395513..eca5790 100644 --- a/LSL2/STPROC/TEST_RUN_SERVICES.txt +++ b/LSL2/STPROC/TEST_RUN_SERVICES.txt @@ -497,7 +497,11 @@ Service CreateTestRunRecord(RunTypeID, EqpType, EqpID, PSNo, RDSNo, UserID, TWLo ErrorMessage := 'User ID Missing. ' end end - end + end + + EndTick = GetTickCount() + Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick) + If ErrorMessage NE '' then LogData = '' LogData<1, 1> = LoggingDTM @@ -508,8 +512,7 @@ Service CreateTestRunRecord(RunTypeID, EqpType, EqpID, PSNo, RDSNo, UserID, TWLo Response = '' end - EndTick = GetTickCount() - Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick) + end service Service CreateTestRunWaferRecord(TestRunID, TWPartID, TWUsageTypeID, SourceLotId, Username) @@ -552,6 +555,10 @@ Service CreateTestRunWaferRecord(TestRunID, TWPartID, TWUsageTypeID, SourceLotId ErrorMessage := 'TWPartID parameter was not passed to CreateTestRunWaferRecord method. ' end end + + EndTick = GetTickCount() + Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick) + If ErrorMessage NE '' then LogData = '' LogData<1, 1> = LoggingDTM @@ -560,9 +567,7 @@ Service CreateTestRunWaferRecord(TestRunID, TWPartID, TWUsageTypeID, SourceLotId Logging_Services('AppendLog', objLogTR, LogData, @FM, @VM) Error_Services('Add', 'Error creating new test run record: ' : ErrorMessage) end - - EndTick = GetTickCount() - Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick) + end service Service UseTWFromLot(LotId, UsageQty, Username) @@ -832,3 +837,4 @@ end service +