COMPILE ROUTINE FIX_Order_Recon(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Infom, obj_Order, obj_WO_Log, RList, RList, ErrMsg
DECLARE SUBROUTIne obj_WO_Step, Set_Status, Send_Info, obj_Vision
DECLARE FUNCTION Get_Status, Set_Printer

$INSERT ORDER_DET_EQU
$INSERT ORDER_EQU
$INSERT QUOTE_EQU

OPEN 'ORDER_RECON' TO FileIn ELSE
	debug
	GOTO Bail
END


SELECT FileIn

Done = 0
LOOP
	READNEXT RecKey ELSE Done = 1
UNTIL Done
	READ Rec FROM FileIn,RecKey THEN
		DEBUG
	END
REPEAT




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

END