added LSL2 stored procedures

LSL2/STPROC/FIX_WO_WFR.txt

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