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

58
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 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:

5
LSL2/STPROCINS/RDS_TEST_EQUATES.txt
View File

@ -5,7 +5,6 @@ compile insert RDS_TEST_EQUATES
Description : Insert for Table RDS_TEST
----------------------------------------*/
Equ RDS_TEST_MET_NO$ To 0
Equ RDS_TEST_RDS_NO$ To 1
Equ RDS_TEST_LS_ID$ To 2
@ -157,4 +156,8 @@ Equ RDS_TEST_OVERRIDE_DTM$ To 149
Equ RDS_TEST_COPY_FROM_RDS_TEST_ID$ To 150
Equ RDS_TEST_COPY_USER$ To 151
Equ RDS_TEST_COPY_DTM$ To 152
Equ RDS_TEST_THICK_OOS$ To 153
Equ RDS_TEST_SHEETRHO_OOS$ To 154
Equ RDS_TEST_CRES_OOS$ To 155
Equ RDS_TEST_RES_OOS$ To 156

4
LSL2/STPROCINS/UNIT_EQUATES.txt
View File

@ -9,5 +9,5 @@ Equ UNIT_MICROMETER$ To \E66D\
Equ UNIT_OHM_CM$ To \EA2D636D\
Equ UNIT_OHM_PER_SQ$ To \EA2FDC\
Equ UNIT_A$ To ''
Equ UNIT_SHEETRHO_SPEC_UNITS$ To \EA2FDC\
Equ UNIT_RES_SPEC_UNITS$ To \EA2D636D\