COMPILE ROUTINE TEST_OBJ_REACT_MODE(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_React_Mode
DECLARE FUNCTION Get_Status,obj_Order


/*
ReactNo		= Parms[1,@RM]
StartDTM	= Parms[COL2()+1,@RM]
UserID		= Parms[COL2()+1,@RM]
Mode		= Parms[COL2()+1,@RM]
Note		= Parms[COL2()+1,@RM]
ReactUtilID	= Parms[COL2()+1,@RM]
ReactLogID	= Parms[COL2()+1,@RM]
*/

CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
StartDTM = CurrDTM


debug

*obj_React_Mode('Create',99:@RM:StartDTM:@RM:@USERNAME:@RM:'PROD':@RM:'This is the start note....':@RM:123456:@RM:456789)

StartDTM = OCONV('14554.5691319444','DT4/^S')
EndDTM = CurrDTM


obj_React_Mode('Close',99:@RM:StartDTM:@RM:EndDTM:@RM:'This is the end note':@RM:'9876':@RM:'54321')



GOTO Bail

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

END
