added LSL2 stored procedures

LSL2/STPROC/FIX_REACT_RUN.txt

@@ -0,0 +1,86 @@
+COMPILE ROUTINE FIX_REACT_RUN(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, RLIST, obj_React_Run, Set_Status, obj_Tables, RDS_REACT_RUN, FIX_LH, RList
+DECLARE SUBROUTINE Btree.Extract
+DECLARE FUNCTION Get_Status, Set_Printer, obj_React_Run, obj_Prod_Spec
+
+
+
+$INSERT OIPRINT_EQUATES
+
+$INSERT REACT_RUN_EQUATES
+$INSERT CLEAN_INSP_EQUATES
+$INSERT RDS_EQU
+$INSERT DICT_EQUATES
+$INSERT RLIST_EQUATES
+$INSERT WO_STEP_EQUATES
+
+
+
+OPEN 'REACT_RUN' TO ReactRunTable ELSE GOTO Bail
+OPEN 'RDS' TO RDSTable ELSE GOTO Bail
+OPEN 'CLEAN_INSP' TO CITable ELSE GOTO Bail
+
+OPEN 'DICT.REACT_RUN' TO DictReactRun ELSE GOTO Bail
+OPEN 'DICT.CLEAN_INSP' TO DictCleanInsp ELSE GOTO Bail
+
+
+
+DEBUG
+
+SelectSent = 'SELECT REACT_RUN WITH REACTOR_TYPE "GAN"'
+
+RList(SelectSent,TARGET_ACTIVELIST$,'','','')
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+Done = 0
+LOOP
+	READNEXT RDSNo ELSE Done = 1
+UNTIL Done
+	READ RRec FROM ReactRunTable,RDSNo THEN
+		
+		WriteFlag = 0
+		
+		slotCnt = COUNT(RRec<REACT_RUN_CARR_SLOT_ID$>,@VM) + (RRec<REACT_RUN_CARR_SLOT_ID$> NE '')
+		
+		FOR I = 1 TO slotCnt
+	
+			IF RRec<REACT_RUN_CARR_NCR_NO$,I> NE '' THEN
+				
+				IF RRec<REACT_RUN_CARR_WFR_ID$,I> = '' AND RRec<REACT_RUN_CARR_PREV_WFR_ID$,I> NE '' THEN
+			
+					RRec<REACT_RUN_CARR_WFR_ID$,I>			= RRec<REACT_RUN_CARR_PREV_WFR_ID$,I>
+					RRec<REACT_RUN_CARR_PREV_WFR_ID$,I>		= ''
+					
+					Send_Dyn(RDSNo:' SlotID: ':RRec<REACT_RUN_CARR_SLOT_ID$,I>:'  ':RRec<REACT_RUN_CARR_WFR_ID$,I>)
+					
+					WriteFlag = 1
+				END
+				
+			END
+		
+		NEXT I
+		
+		IF WriteFlag = 1 THEN
+			WRITE RRec ON ReactRunTable,RDSNo THEN
+				Send_Dyn('RDSNo: ':RDSNo: 'Written')
+			END	
+		END
+		
+		
+	
+	END	;* End of RRec Read
+REPEAT
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+
+
+END