From 6067d14419ac7e5005c5beb40292a293b8b07362 Mon Sep 17 00:00:00 2001 From: Chase Tucker Date: Tue, 11 Nov 2025 06:54:30 -0700 Subject: [PATCH] Store RDS_TEST OOS results --- LSL2/STPROC/RDS_TEST_ACTIONS.txt | 62 ++++++++++++++++++++++++++++- LSL2/STPROCINS/RDS_TEST_EQUATES.txt | 5 ++- LSL2/STPROCINS/UNIT_EQUATES.txt | 4 +- 3 files changed, 66 insertions(+), 5 deletions(-) diff --git a/LSL2/STPROC/RDS_TEST_ACTIONS.txt b/LSL2/STPROC/RDS_TEST_ACTIONS.txt index 0763b3f..aef1242 100644 --- a/LSL2/STPROC/RDS_TEST_ACTIONS.txt +++ b/LSL2/STPROC/RDS_TEST_ACTIONS.txt @@ -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 EQ '' then SaveRecord = False$ + If OrigRecord EQ '' then SaveRecord = False$ + If OrigRecord EQ '' then SaveRecord = False$ + If OrigRecord EQ '' then SaveRecord = False$ + + // Check if thickness is out of spec + ThickMin = ICONV(Record, "MD1") + OrigThickMin = ICONV(OrigRecord, "MD1") + ThickMax = ICONV(Record, "MD1") + OrigThickMax = ICONV(OrigRecord, "MD1") + If (ThickMin NE '' and ThickMin NE OrigThickMin) or (ThickMax NE '' and ThickMax NE OrigThickMax) then + ThickMinSpec = Record + ThickMaxSpec = Record + ThickOutOfSpec = ThickMin LT ThickMinSpec or ThickMax GT ThickMaxSpec + SaveRecord = ThickOutOfSpec + end + + SpecResUnits = Record + + Begin Case + Case SpecResUnits = UNIT_SHEETRHO_SPEC_UNITS$ + // Check if sheetrho is out of spec + SheetRhoMin = Record + OrigSheetRhoMin = OrigRecord + SheetRhoMax = Record + OrigSheetRhoMax = OrigRecord + If SheetRhoMin NE OrigSheetRhoMin or SheetRhoMax NE OrigSheetRhoMax then + SheetRhoMinSpec = Record + SheetRhoMaxSpec = Record + SheetRhoOutOfSpec = SheetRhoMin LT SheetRhoMinSpec or SheetRhoMax GT SheetRhoMaxSpec + SaveRecord = SheetRhoOutOfSpec + end + Case SpecResUnits = UNIT_RES_SPEC_UNITS$ + // Check if res is out of spec + ResMin = Record + OrigResMin = OrigRecord + ResMax = Record + OrigResMax = OrigRecord + If (ResMin NE '' and ResMin NE OrigResMin) or (ResMax NE '' and ResMax NE OrigResMax) then + ResSpecMin = Record*10 + ResSpecMax = Record*10 + ResOutOfSpec = (ResMin LT ResSpecMin) or (ResMax GT ResSpecMax) + SaveRecord = ResOutOfSpec + end + + // Check if cres is out of spec + HgCVMin = Record + OrigHgCVMin = OrigRecord + HgCVMax = Record + OrigHgCVMax = OrigRecord + If (HgCVMin NE '' and HgCVMin NE OrigHgCVMin) or (HgCVMax NE '' and HgCVMax NE OrigHgCVMax) then + HgCVMinSpec = Record + HgCVMaxSpec = Record + HgCVOutOfSpec = HgCVMin LT HgCVMinSpec or HgCVMax GT HgCVMaxSpec + SaveRecord = HgCVOutOfSpec + end + End Case + end return WRITE_RECORD: diff --git a/LSL2/STPROCINS/RDS_TEST_EQUATES.txt b/LSL2/STPROCINS/RDS_TEST_EQUATES.txt index 8a094d5..b958921 100644 --- a/LSL2/STPROCINS/RDS_TEST_EQUATES.txt +++ b/LSL2/STPROCINS/RDS_TEST_EQUATES.txt @@ -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 diff --git a/LSL2/STPROCINS/UNIT_EQUATES.txt b/LSL2/STPROCINS/UNIT_EQUATES.txt index ac9f24f..0a70332 100644 --- a/LSL2/STPROCINS/UNIT_EQUATES.txt +++ b/LSL2/STPROCINS/UNIT_EQUATES.txt @@ -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\