added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_REACT_MODE.txt

@@ -0,0 +1,40 @@
+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