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

disabling missing auto calculated data notifications

Browse Source
This commit is contained in:
Infineon\StieberD 2025-02-04 09:08:25 -07:00
parent f1eb8e9812
commit 790d3e7b8c
1 changed files with 10 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
LSL2/STPROC/METROLOGY_SERVICES.txt
View File

@ -925,7 +925,7 @@ Service ImportBioRadData(RunData, FileName)
RDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', RDSLayerKeyID) RDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', RDSLayerKeyID)
If Error_Services('NoError') then If Error_Services('NoError') then
RDSTestKeyIDs = RDSLayerRec<RDS_LAYER_RDS_TEST_KEYS$> RDSTestKeyIDs = RDSLayerRec<RDS_LAYER_RDS_TEST_KEYS$>
// Verify the scan recipe matches the spec recipe // Verify the scan recipe matches the spec recipe
RecipeMatches = Metrology_Services('ScanRecipeMatchesRdsTestSpecThickMrecipe', RDSKeyID, LayerForValidation, ScanRecipe, RDSTestKeyIDs, ZoneForValidation) RecipeMatches = Metrology_Services('ScanRecipeMatchesRdsTestSpecThickMrecipe', RDSKeyID, LayerForValidation, ScanRecipe, RDSTestKeyIDs, ZoneForValidation)
If RecipeMatches EQ False$ then If RecipeMatches EQ False$ then
@ -1219,7 +1219,7 @@ end service
Service ImportHgCVData(RunData, FileName) Service ImportHgCVData(RunData, FileName)
Machine = 'HgCV' /* Resistivity */ Machine = 'HgCV' /* Resistivity */
FieldPos = 53 FieldPos = 53
FieldPosIncrement = 9 FieldPosIncrement = 9
@ -1462,7 +1462,7 @@ Service ImportHgCVData(RunData, FileName)
WOMatQARec<WO_MAT_QA_DATA_POINTS$, vPos, Index> = DataRow WOMatQARec<WO_MAT_QA_DATA_POINTS$, vPos, Index> = DataRow
Next Index Next Index
// ------------------------------------------------------------------------------------------------------------ // ------------------------------------------------------------------------------------------------------------
// Send data to SPC ------------------------------------------------------------------------------------------- // Send data to SPC -------------------------------------------------------------------------------------------
LogPath = Environment_Services('GetSpcFilesharePath') LogPath = Environment_Services('GetSpcFilesharePath')
SpcFileDtm = OConv(Datetime(), 'DT2^HS ') SpcFileDtm = OConv(Datetime(), 'DT2^HS ')
@ -2830,31 +2830,15 @@ CalculateResults:
end end
Database_Services('WriteDataRow', 'RDS_TEST', RDSTestKeyID, RDSTestRec, True$, False$, True$) Database_Services('WriteDataRow', 'RDS_TEST', RDSTestKeyID, RDSTestRec, True$, False$, True$)
ThkTestCheck = Xlate('RDS_TEST', RDSTestKeyID, RDS_TEST_THICK_AVG$, 'X')
ResTestCheck = Xlate('RDS_TEST', RDSTestKeyID, RDS_TEST_RES_AVG$, 'X') If Error_Services('NoError') then
SheetRhoTestCheck = Xlate('RDS_TEST', RDSTestKeyID, RDS_TEST_SHEETRHO_AVG$, 'X') Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Success - Calculated Results.')
HGCV1TestCheck = Xlate('RDS_TEST', RDSTestKeyID, RDS_TEST_HGCV1_RES_AVG$, 'X') end else
// Check to make sure data was written and alert if it wasn't Metrology_Services('LogResults', RDSKeyID, Machine, 'UID002', Service : ' : UID002 - ' : Error_Services('GetMessage'))
IF ResTestCheck EQ '' AND ThkTestCheck NE '' AND (SheetRhoTestCheck NE '' OR HGCV1TestCheck NE '')then end
Recipients = XLATE('SEC_GROUPS', 'OI_ADMIN', 'USER', 'X')
SentFrom = 'OI Admin'
Subject = 'Missing auto-calculated data detected'
Message = RDSTestRec<RDS_TEST_RDS_NO$> : ' : ' : RDSTestKeyID: ' failed to auto caluclate results on automated data upload. Failed on Database Write'
AttachWindow = ''
AttachKey = ''
SendToGroup = ''
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
end
If Error_Services('NoError') then
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Success - Calculated Results.')
end else
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID002', Service : ' : UID002 - ' : Error_Services('GetMessage'))
end end
end end
end
return return
@ -2987,4 +2971,3 @@ LoadRunDataToDatabase:
return return