Increased the MAX_NUM_CASS$ equate to 150 as we have a workorder with more than 96 WO_MAT ID's

.gitignore

@@ -1,3 +1,4 @@
 LSL2/STPROC/TEST_DANIEL*.txt
 LSL2/STPROC/TEST_DAKOTA.txt
 LSL2/STPROC/JONATHAN_SERVICES.txt
+LSL2/STPROC/CHASE_SERVICES.txt

LSL2/STPROC/OBJ_RDS.txt

@@ -1169,13 +1169,10 @@ MetPropFlag:
 	IF RDSRec = '' THEN RETURN
 	
 	WONo		= RDSRec<RDS_WO$>
-	WOStepKey	= RDSRec<RDS_WO_STEP_KEY$>
 	ReactNo	 	= RDSRec<RDS_REACTOR$>
 	PSNo		= RDSRec<RDS_PROD_SPEC_ID$>
 	
-	WOStepNo = FIELD(WOStepKey,'*',2)
-	
-	ReactRDSNos = XLATE('WO_REACT',WONo:'*':WOStepNo:'*':ReactNo,WO_REACT_RDS_NO$,'X')
+	ReactRDSNos = Rds_Services('GetRDSRunHistoryByReactorAndWO', ReactNo, WONo)
 	
 	LOCATE RDSNo IN ReactRDSNos USING @VM SETTING Pos THEN
 		Result = obj_PRS_Prop('GetIntervalFlag',PSNo:@RM:PropCd:@RM:Pos)
@@ -1242,3 +1239,4 @@ CalcThickTarget:
 	
 RETURN
 
+

LSL2/STPROC/OBJ_WO_REACT.txt

@@ -16,7 +16,7 @@ COMPILE FUNCTION obj_WO_React(Method,Parms)
 
 
 DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, obj_Prod_Spec, obj_WO_Mat_QA, GetTickCount
-Declare function Environment_Services
+Declare function Environment_Services, Database_Services
 DECLARE SUBROUTINE  Set_Status, Msg, obj_Tables, RList, ErrMsg, Btree.Extract, obj_WO_Mat_QA, Mona_Services
 
 $INSERT MSG_EQUATES
@@ -90,7 +90,6 @@ WOReactKey = WONo:'*':StepNo:'*':ReactNo
 otParms = 'WO_REACT':@RM:WOReactKey
 
 WOReactRec = obj_Tables('ReadOnlyRec',otParms)
-
 RDSNos	= WOReactRec<WO_REACT_RDS_NO$>
 CassNos = WOReactRec<WO_REACT_CASS_NO$>
 
@@ -105,13 +104,11 @@ Start		= QAMetData<COL$QA_MET_START>
 Interval	= QAMetData<COL$QA_MET_INTERVAL>
 Stage		= QAMetData<COL$QA_MET_STAGE>
 MetPropCd	= QAMetData<COL$QA_MET_PROP>
-
 GOSUB BuildAllTestPos		;* Set RDSNos, Start and Interval -> returns AllTestPos
 
-
 * * *   Find where the the RDS being added will be in the list.   * * *
 
-LOCATE RDSNo IN WOReactRec<WO_REACT_RDS_NO$> BY 'AR' USING @VM SETTING InsPos THEN
+LOCATE RDSNo IN WOReactRec<WO_REACT_RDS_NO$> USING @VM SETTING InsPos THEN
 
 	otParms = 'WO_REACT':@RM:WOReactKey
 	WOReactRec = obj_Tables('UnlockRec',otParms)
@@ -120,10 +117,9 @@ LOCATE RDSNo IN WOReactRec<WO_REACT_RDS_NO$> BY 'AR' USING @VM SETTING InsPos TH
 
 END ELSE
 
-	LOCATE InsPos IN AllTestPos BY 'AR' USING @VM SETTING TrimPos ELSE Null
+	LOCATE InsPos IN AllTestPos USING @VM SETTING TrimPos ELSE Null
 	
 	ChangePosList = FIELD(AllTestPos,@VM,TrimPos,SeqCnt)
-	
 	GOSUB RemSchedQA														;* Removes unsigned QAMet from cassettes scheduled past the box being removed
 	
 END
@@ -135,13 +131,12 @@ RDSNos	= WOReactRec<WO_REACT_RDS_NO$>			;* List after insert
 CassNos = WOReactRec<WO_REACT_CASS_NO$>			;* List after insert
 
 * * *   Now build list for cassette	
-		
-GOSUB BuildAllTestPos
 
+GOSUB BuildAllTestPos
 ChangePosList = FIELD(AllTestPos,@VM,TrimPos,SeqCnt)
 
 GOSUB AddSchedQA															;* Add QAMet spec data to cassettes now associated with the test positions after removing the RDS & Cassno from the lists
-	
+
 otParms = FIELDSTORE(otParms,@RM,4,0,WOReactRec)
 obj_Tables('WriteOnlyRec',otParms)												;* Done with updates to the WO_REACT record
 
@@ -194,19 +189,17 @@ MetPropCd	= QAMetData<COL$QA_MET_PROP>
 
 GOSUB BuildAllTestPos		;* Set RDSNos, Start and Interval -> returns AllTestPos
 
-
 IF AllTestPos NE '' THEN
 
 	* * *   Find where the the RDS being removed is in the list.   * * *
 
 	LOCATE RDSNo IN WOReactRec<WO_REACT_RDS_NO$> USING @VM SETTING RemPos THEN
 
-		LOCATE RemPos IN AllTestPos BY 'AR' USING @VM SETTING TrimPos ELSE Null
+		LOCATE RemPos IN AllTestPos USING @VM SETTING TrimPos ELSE Null
 		
 		ChangePosList = FIELD(AllTestPos,@VM,TrimPos,SeqCnt)
 		
 		GOSUB RemSchedQA														;* Removes unsigned QAMet from cassettes scheduled past the box being removed
-		
 	END ELSE
 		
 		otParms = 'WO_REACT':@RM:WOReactKey
@@ -225,11 +218,9 @@ CassNos = WOReactRec<WO_REACT_CASS_NO$>			;* List after removal
 * * *   Now build list for cassette	
 		
 GOSUB BuildAllTestPos
-
 ChangePosList = FIELD(AllTestPos,@VM,TrimPos,SeqCnt)
 
 GOSUB AddSchedQA															;* Add QAMet spec data to cassettes now associated with the test positions after removing the RDS & Cassno from the lists
-	
 otParms = FIELDSTORE(otParms,@RM,4,0,WOReactRec)
 // 10/12/18 Changed to WriteOnlyRec as per Francois' instructions. - djs
 obj_Tables('WriteOnlyRec',otParms)												;* Done with updates to the WO_REACT record
@@ -346,3 +337,4 @@ FOR I = 1 TO chgCnt
 NEXT I
 
 RETURN
+

LSL2/STPROC/WORK_ORDER_SERVICES.txt

@@ -50,7 +50,7 @@ $Insert VOIDED_LOT_EQUATES
 $Insert IFX_EQUATES
 $Insert CUST_EPI_PART_EQUATES
 
-Equ MAX_NUM_CASS$ to 96
+Equ MAX_NUM_CASS$ to 150
 
 Declare subroutine  Error_Services, Work_Order_Services, Memory_Services, RList, Database_Services, SRP_JSON
 Declare subroutine  Btree.Extract, Set_Status, obj_WO_Log, obj_Notes, Print_Wo_Mat_In_Labels, Print_Wo_Mat_Out_Labels
@@ -2326,3 +2326,4 @@ ClearCursors:
     
 return
 
+