COMPILE ROUTINE FIX_WO_WFR(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Send_Dyn,Send_Info, obj_WO_Log, Set_Status, obj_WO_Step, obj_WO_Wfr
DECLARE FUNCTION Get_Status, Set_Printer, obj_WO_Step

$INSERT WO_STEP_EQUATES
$INSERT WO_WFR_EQUATES
$INSERT PROD_SPEC_EQU
$INSERT WO_LOG_EQU
$INSERT RDS_EQU
$INSERT RLIST_EQUATES

@USER4 = @USERNAME

WfrId 		= '163138*10*14'
CurrDTM 	= "1/23/2017 09:00:00"
RunLoc		= '103575.1.'
CurrSlot	= '163138*10*14'
ToolID		= 'R69'
Scribe		= 'RNU2R243'

owwParms	 = WfrID:@RM				;* WfrID
owwParms	:= CurrDTM:@RM				;* EventDtm
owwParms	:= @USER4:@RM				;* EventBy
owwParms	:= 'LOAD':@RM				;* Event
owwParms	:= '':@RM					;* New Slot ID
owwParms	:= RunLoc:@RM				;* RPZ (RDSNo*Pocket*Zone)
owwParms	:= '':@RM					;* NCRNo
owwParms	:= '':@RM					;* TWUse ID 
owwParms	:= CurrSlot:@RM				;* Current Slot ID
owwParms	:= ToolID:@RM				;* New ToolID
owwParms	:= '':@RM					;* Curr Tool ID
owwParms 	:= '':@RM					;* NewInvLoc
owwParms	:= '':@RM					;* CurrInvLoc
owwParms 	:= 'I':@RM					;* Wfr Side
owwParms	:= '':@RM					;* NewCarrLocs
owwParms	:= '':@RM					;* CurrCarrLocs
owwParms	:= Scribe					;* Scribe			;* Added 9/7/2016 JCH
	
*obj_WO_Wfr('AddEvent',owwParms)





GOTO Bail




IF Get_Status(errCode) THEN DEBUG


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

END