added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_REACT_TUBE.txt

@@ -0,0 +1,47 @@
+COMPILE ROUTINE TEST_OBJ_REACT_TUBE(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_React_Tube
+DECLARE FUNCTION Get_Status,obj_Order
+
+
+TubeChange:
+* * * * * * *
+
+* This method is called from the WRITE event on the REACTOR_LOG window
+
+DEBUG
+
+ReactorNo		= '38'
+ChangeDTM		= "2/17/2010 13:32:00"
+ReactorLogID	= '377197'
+TubeSerial		= '091306R'
+ReactHrs		= '31299'
+ReactorCycles	= '31880'
+
+obj_React_Tube('TubeChange',ReactorNo:@RM:ChangeDTM:@RM:ReactorLogID:@RM:TubeSerial:@RM:ReactHrs:@RM:ReactorCycles)
+
+IF Get_Status(errCode) THEN
+	debug
+END
+
+
+GOTO Bail
+
+
+ReactorNo	= 32
+WaferQty	= 12
+
+obj_React_Tube('ReactUnload',ReactorNo:@RM:WaferQty)
+
+IF Get_Status(errCode) THEN
+	DEBUG
+END
+
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END