Store RDS_TEST OOS results

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

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
 

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\