COMPILE ROUTINE FIX_DICT_REACT_EVENT(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, Send_Dyn, obj_WO_Step, Set_Status, Btree.Extract, obj_RDS, RList, ErrMsg
DECLARE FUNCTION Get_Status, Set_Printer, obj_RDS, ErrMsg

$INSERT RDS_EQU
$INSERT WO_LOG_EQU
$INSERT ORDER_EQU
$INSERT PROD_SPEC_EQU
$INSERT DICT_EQUATES

EQU TARGET_ACTIVELIST$ TO 5

OPEN 'DICT.REACT_EVENT' TO FileIn ELSE
	debug
	GOTO Bail
END

SELECT FileIn

RecCnt = 0
FixCnt = 0
Done = 0
debug
LOOP
	READNEXT DictID ELSE Done = 1
UNTIL Done
	RecCnt += 1
	Send_Dyn(DictID)
	IF DictID = '' THEN
		debug
		
		
	END
	Send_Info(RecCnt:' - ':FixCnt)
REPEAT



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

END
