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