COMPILE ROUTINE TEST_obj_React_Item_Hist(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_React_Tube
DECLARE FUNCTION Get_Status,obj_Order, obj_React_Item_Hist

DEBUG

ReactNo	= '24'
RINo	= ''
RIType	= 'W'

HistKeys = obj_React_Item_Hist('GetHistory',ReactNo:@RM:RINo:@RM:RIType)

IF Get_Status(errCode) THEN
	debug
END

DEBUG


GOTO Bail

* * * * * * *
Bail:
* * * * * * *

END