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

Store RDS_TEST OOS results

Browse Source
This commit is contained in:
Chase Tucker
2025-11-11 06:54:30 -07:00
parent 624c6ce4b6
commit 6067d14419
3 changed files with 66 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
LSL2/STPROC/RDS_TEST_ACTIONS.txt
View File

@ -51,6 +51,7 @@ $insert RDS_TEST_EQUATES
$insert RDS_EQUATES
$insert WO_LOG_EQUATES
$insert WM_OUT_EQUATES
$Insert UNIT_EQUATES
Equ COMMA$ to ','
@ -208,8 +209,65 @@ WRITE_RECORD_PRE:
ActionFlow = ACTION_STOP$
Error_Services('Add', 'FS104:FQA has already been signed. Metrology test record cannot be updated!')
end
end
end else
If OrigRecord<RDS_TEST_THICK_OOS$> EQ '' then SaveRecord<RDS_TEST_THICK_OOS$> = False$
If OrigRecord<RDS_TEST_SHEETRHO_OOS$> EQ '' then SaveRecord<RDS_TEST_SHEETRHO_OOS$> = False$
If OrigRecord<RDS_TEST_RES_OOS$> EQ '' then SaveRecord<RDS_TEST_RES_OOS$> = False$
If OrigRecord<RDS_TEST_CRES_OOS$> EQ '' then SaveRecord<RDS_TEST_CRES_OOS$> = False$
// Check if thickness is out of spec
ThickMin = ICONV(Record<RDS_TEST_THICK_MIN$>, "MD1")
OrigThickMin = ICONV(OrigRecord<RDS_TEST_THICK_MIN$>, "MD1")
ThickMax = ICONV(Record<RDS_TEST_THICK_MAX$>, "MD1")
OrigThickMax = ICONV(OrigRecord<RDS_TEST_THICK_MAX$>, "MD1")
If (ThickMin NE '' and ThickMin NE OrigThickMin) or (ThickMax NE '' and ThickMax NE OrigThickMax) then
ThickMinSpec = Record<RDS_TEST_SPEC_THICK_MIN$>
ThickMaxSpec = Record<RDS_TEST_SPEC_THICK_MAX$>
ThickOutOfSpec = ThickMin LT ThickMinSpec or ThickMax GT ThickMaxSpec
SaveRecord<RDS_TEST_THICK_OOS$> = ThickOutOfSpec
end
SpecResUnits = Record<RDS_TEST_SPEC_RES_UNITS$>
Begin Case
Case SpecResUnits = UNIT_SHEETRHO_SPEC_UNITS$
// Check if sheetrho is out of spec
SheetRhoMin = Record<RDS_TEST_SHEETRHO_MIN$>
OrigSheetRhoMin = OrigRecord<RDS_TEST_SHEETRHO_MIN$>
SheetRhoMax = Record<RDS_TEST_SHEETRHO_MAX$>
OrigSheetRhoMax = OrigRecord<RDS_TEST_SHEETRHO_MAX$>
If SheetRhoMin NE OrigSheetRhoMin or SheetRhoMax NE OrigSheetRhoMax then
SheetRhoMinSpec = Record<RDS_TEST_SPEC_RES_MIN$>
SheetRhoMaxSpec = Record<RDS_TEST_SPEC_RES_MAX$>
SheetRhoOutOfSpec = SheetRhoMin LT SheetRhoMinSpec or SheetRhoMax GT SheetRhoMaxSpec
SaveRecord<RDS_TEST_SHEETRHO_OOS$> = SheetRhoOutOfSpec
end
Case SpecResUnits = UNIT_RES_SPEC_UNITS$
// Check if res is out of spec
ResMin = Record<RDS_TEST_RES_MIN$>
OrigResMin = OrigRecord<RDS_TEST_RES_MIN$>
ResMax = Record<RDS_TEST_RES_MAX$>
OrigResMax = OrigRecord<RDS_TEST_RES_MAX$>
If (ResMin NE '' and ResMin NE OrigResMin) or (ResMax NE '' and ResMax NE OrigResMax) then
ResSpecMin = Record<RDS_TEST_SPEC_RES_MIN$>*10
ResSpecMax = Record<RDS_TEST_SPEC_RES_MAX$>*10
ResOutOfSpec = (ResMin LT ResSpecMin) or (ResMax GT ResSpecMax)
SaveRecord<RDS_TEST_RES_OOS$> = ResOutOfSpec
end
// Check if cres is out of spec
HgCVMin = Record<RDS_TEST_HGCV1_RES_MIN$>
OrigHgCVMin = OrigRecord<RDS_TEST_HGCV1_RES_MIN$>
HgCVMax = Record<RDS_TEST_HGCV1_RES_MAX$>
OrigHgCVMax = OrigRecord<RDS_TEST_HGCV1_RES_MAX$>
If (HgCVMin NE '' and HgCVMin NE OrigHgCVMin) or (HgCVMax NE '' and HgCVMax NE OrigHgCVMax) then
HgCVMinSpec = Record<RDS_TEST_SPEC_CRES_MIN$>
HgCVMaxSpec = Record<RDS_TEST_SPEC_CRES_MAX$>
HgCVOutOfSpec = HgCVMin LT HgCVMinSpec or HgCVMax GT HgCVMaxSpec
SaveRecord<RDS_TEST_CRES_OOS$> = HgCVOutOfSpec
end
End Case
end
return
WRITE_RECORD: