COMPILE FUNCTION obj_React_Run(Method,Parms)
#pragma precomp SRP_PreCompiler

/*
	Methods for REACT_RUN table
    
	02/20/2004 JCH - Initial Coding
     
    Properties:
     
    Methods:
    
    Create(DataStruct)		;* Create new record
	
	
*/

DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, obj_WO_Step, obj_RDS_Layer, obj_RDS_Test, obj_WM_In
DECLARE SUBROUTINE obj_Clean_Insp, Btree.Extract, Send_Info, obj_WO_Wfr, ErrMsg, obj_Post_Log, Logging_Services

DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey,  obj_Prod_Spec, Send_Dyn, obj_Clean_Insp
DECLARE FUNCTION obj_RDS_Test, obj_Test_Point_Map, obj_Popup, obj_WO_Wfr, Logging_Services, Environment_Services

$INSERT APP_INSERTS
$INSERT REACT_RUN_EQUATES
$INSERT REACTOR_EQUATES
$INSERT MSG_EQUATES
$INSERT WO_VERIFY_EQU
$INSERT WO_LOG_EQUATES
$INSERT WO_WFR_EQUATES
$INSERT RDS_LAYER_EQUATES
$INSERT RDS_TEST_EQUATES
$INSERT RUN_STAGE_EQUATES
$INSERT RUN_STAGE_WFR_EQUATES
$INSERT TOOL_EQUATES
$INSERT TOOL_CLASS_EQUATES
$INSERT POPUP_EQUATES
$INSERT LOGICAL
$INSERT QUOTE_SPEC_EQU
$INSERT PROD_SPEC_EQUATES
$INSERT WO_STEP_EQU
$INSERT WO_MAT_EQUATES


EQU COL$POCKET		TO 1	;* Susceptor Load columns
EQU COL$USAGE		TO 2
EQU COL$ZONE		TO 3
EQU COL$SAT_ID		TO 4
EQU COL$WAFER_TYPE	TO 5
EQU COL$IN_SLOT_ID 	TO 6
EQU COL$WFR_ID		TO 7
EQU COL$OUT_SLOT_ID	TO 8


EQU COL$WO_NO				TO 1	;* Data structure equates for EpiMetData
EQU COL$RDS_NO				TO 2
EQU COL$REACTOR				TO 3
EQU COL$Z1_MET_NO			TO 4
EQU COL$Z1_THICKNESS		TO 5
EQU COL$Z1_4PP_SHEET_RHO	TO 6
EQU COL$Z1_HGCV_RESL1		TO 7
EQU COL$Z1_HGCV_RESL2		TO 8
EQU COL$Z2_MET_NO			TO 9
EQU COL$Z2_THICKNESS		TO 10
EQU COL$Z2_4PP_SHEET_RHO	TO 11
EQU COL$Z2_HGCV_RESL1		TO 12
EQU COL$Z2_HGCV_RESL2		TO 13

EQU GWS$STAGE		TO 1		;* Used to extract data from 'GAN_WFR_STAGE' popup
EQU GWS$DESC		TO 2
EQU GWS$CHAR		TO 3
EQU GWS$TOOL_CLASS	TO 4

$INSERT PRS_LAYER_EQU	;* Used to return obj_Prod_Spec values

LogPath     = Environment_Services('GetApplicationRootPath') : '\LogFiles\REACT_RUN'
LogDate     = Oconv(Date(), 'D4/')
LogTime     = Oconv(Time(), 'MTS')
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' LOAD_WFR_CNT.csv'
Headers     = 'Logging DTM' : @FM : 'RDS Key ID' : @FM : 'LOAD_WFR_CNT'
objLog      = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ',', Headers, '', False$, False$)
LoggingDTM  = LogDate : ' ' : LogTime   ; // Logging DTM

ErrTitle = 'Error in Stored Procedure "obj_React_Run"'
ErrorMsg = ''
ErrCode  = ''

IF NOT(ASSIGNED(Method))	THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine'
IF NOT(ASSIGNED(Parms))		THEN Parms = ''

IF ErrorMsg NE '' THEN
	Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
	RETURN ''
END


Result = ''

BEGIN CASE

	CASE Method = 'RunStatus'		; GOSUB RunStatus
	CASE Method = 'Create'			; GOSUB Create
	CASE Method = 'GetMetKeys'		; GOSUB GetMetKeys
	CASE Method = 'Delete'			; GOSUB Delete
	CASE Method = 'ChangeFlag'		; GOSUB ChangeFlag
	CASE Method = 'EpiMetData'		; GOSUB EpiMetData
	CASE Method = 'SetSchedQty'		; GOSUB SetSchedQty
	CASE Method = 'WafersUnloaded'	; GOSUB WafersUnloaded
	CASE Method = 'Zone'			; GOSUB Zone
	CASE Method = 'SigProfile'		; GOSUB SigProfile
	CASE Method = 'SigBy'			; GOSUB SigBy
	CASE Method = 'SigDTM'			; GOSUB SigDTM
	CASE Method = 'WfrsUnloadedDt'	; GOSUB WfrsUnloadedDt
	CASE Method = 'AddCI'			; GOSUB AddCI
	CASE Method = 'GetCINo'			; GOSUB GetCINo
	CASE Method = 'LoadMat'			; GOSUB LoadMat
	CASE Method = 'ReturnMat'		; GOSUB ReturnMat
	CASE Method = 'UnloadMat'		; GOSUB UnloadMat
	CASE Method = 'ReloadMat'		; GOSUB ReloadMat
	CASE Method = 'UnloadGan'		; GOSUB UnloadGan
	CASE Method = 'ReloadGan'		; GOSUB ReloadGan
	CASE Method = 'SplitWfr'		; GOSUB SplitWfr
	CASE Method = 'UnSplitWfr'		; GOSUB UnSplitWfr
	CASE Method = 'GetWfrSigKeys'	; GOSUB GetWfrSigKeys
	CASE Method = 'NextWfrStage'	; GOSUB NextWfrStage
	CASE Method = 'ShipGANWfrs'		; GOSUB ShipGANWfrs
	CASE Method = 'UnShipGANWfrs'	; GOSUB UnShipGANWfrs
	CASE Method = 'CharWfrDest'		; GOSUB CharWfrDest
	CASE Method = 'CharWfrStatus'	; GOSUB CharWfrStatus
	CASE Method = 'ClearCarrNCR'	; GOSUB ClearCarrNCR
	CASE Method = 'GaNDispStatus'	; GOSUB GaNDispStatus
	Case Method = 'WfrStageUnloadQ'	; Gosub WfrStageUnloadQ
	CASE Method = 'StageUnloadQ'	; GOSUB StageUnloadQ
	
	CASE 1
		
END CASE

IF ErrorMsg NE '' THEN
	Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
END

RETURN Result

* * * * * * *
Create:
* * * * * * *

WONo			= Parms[1,@RM]
WOStep			= Parms[COL2()+1,@RM]
CassNo			= Parms[COL2()+1,@RM]
PSNo			= Parms[COL2()+1,@RM]

IF WONo = ''		THEN ErrorMsg = 'Null Parameter "WONo" passed to routine. (':Method:')'
IF WOStep = ''		THEN ErrorMsg = 'Null Parameter "WOStep" passed to routine. (':Method:')'
IF CassNo = ''		THEN ErrorMsg = 'Null Parameter "CassNo" passed to routine. (':Method:')'
IF PSNo = ''		THEN ErrorMsg = 'Null Parameter "PSNo" passed to routine. (':Method:')'


IF ErrorMsg NE '' THEN RETURN

RunNo = NextKey('REACT_RUN')


RunRec = ''

RunRec<REACT_RUN_WO_NO$>		= WONo
RunRec<REACT_RUN_WO_STEP$>		= WOStep
RunRec<REACT_RUN_CASS_NO$>		= CassNo
RunRec<REACT_RUN_ENTER_BY$>		= @USER4
RunRec<REACT_RUN_ENTER_DTM$>	= ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MT'),'DT')


PSRec = XLATE('PROD_SPEC',PSNo,'','X')

ReactorType = PSRec<PROD_SPEC_REACTOR_TYPE$>

RunRec<REACT_RUN_SPECIAL_INST$>	= PSRec<Prod_Spec_Spec_Substrate$,QSSubInstructions$>

LayerSpecs = obj_Prod_Spec('GetLayerProp',PSNo:@RM:@RM:1)	;* Returns specs for all layers in internal format


* LayerSpecs is @RM between layers, @FM between fields, LayerSet ID is in the first Field and needs to peeled off
* before the equates match up correctly

* Prod_Spec table has layer specs all in one field
* RDS has First layer stuff in individual fields and then has 2 and 3 shoved into Field 33 (Layer Info)

LayerSpec 	= FIELD(LayerSpecs,@RM,1)				;* Take the first Layer
LayerSet	= FIELD(LayerSpec,@FM,1)				;* Not used here but shown for clarity
LayerSpec	= FIELD(LayerSpec,@FM,2,99)				;* LayerSpec without the LayerSet

RecipeNo = LayerSpec<PRS_LAYER_RECIPE$>
RecipeRec = XLATE('RECIPE',RecipeNo,'','X')			;* This used in 2nd and 3rd layer stuff (in error it appears)


FOR I = 1 TO COUNT(LayerSpecs,@RM) + (LayerSpecs NE '')
	LayerSpec	= FIELD(LayerSpecs,@RM,I)		;* Take the Ith Layer
	LayerSet	= FIELD(LayerSpec,@FM,1)
	LayerSpec	= FIELD(LayerSpec,@FM,2,99)		;* LayerSpec without the LayerSet 
	
	obj_RDS_Layer('Create',RunNo:@RM:LayerSet:@RM:PSNo)

	RunRec<REACT_RUN_RDS_LAYER_KEYS$,I> = RunNo:'*':LayerSet

	obj_RDS_Test('Create',RunNo:@RM:LayerSet:@RM:PSNo)
	
NEXT I


************************
psCnt = COUNT(PRSStageKeys,@VM) + (PRSStageKeys NE '')

FOR N = 1 TO psCnt
	Stage = FIELD(PRSStageKey<1,N>,'*',2)
	
	IF Stage = 'PRE' AND ReactorType NE 'EPP' THEN
		
		CINo = obj_Clean_Insp('Create',RunNo:@RM:Stage:@RM:PSNo:@RM:PSRec)		;* This is a new CLEAN_INSP record
		RunRec = INSERT(RunRec,REACT_RUN_CI_NO$,Pos,0,CINo)
		RunRec = INSERT(RunRec,REACT_RUN_CI_STAGE$,Pos,0,Stage)
		
	END	;* End of check for EpiPRO reactor
	
	

IF INDEX(PRSStageKeys,'WI',1) THEN 
	WfrCINo = obj_Clean_Insp('Create',RunNo:@RM:'WFR':@RM:PSNo:@RM:PSRec)		;* This is a new CLEAN_INSP record
	RunRec<REACT_RUN_WFR_CI_NO$> = WfrCINo
END

IF ReactorType NE 'EPP' THEN
	
	IF INDEX(PRSStageKeys,'POST',1) THEN
		PostCINo = obj_Clean_Insp('Create',RunNo:@RM:'POST':@RM:PSNo:@RM:PSRec)		;* This is a new CLEAN_INSP record
		RunRec<REACT_RUN_POST_CI_NO$> = PostCINo
	END
END	;* End of check for EpiPRO reactor
NEXT N

obj_Tables('WriteRec','REACT_RUN':@RM:RunNo:@RM:@RM:RunRec)

Result = RunNo

RETURN


* * * * * * *
RunStatus:
* * * * * * *

IF NOT(ASSIGNED(RDSNo)) THEN
	RDSNo		= Parms[1,@RM]
	ReactRunRec = Parms[COL2()+1,@RM]
END

IF RDSNo = '' THEN RETURN

IF ReactRunRec = '' THEN
	ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')
END

LSKeys = ReactRunRec<REACT_RUN_RDS_LAYER_KEYS$>

MetOutOfSpec = SUM(XLATE('RDS_LAYER',LSKeys,'TEST_OUT_OF_SPEC','X'))		;* Updated for Metrology update 4/16/2006 JCH

IF MetOutOfSpec > 0 THEN
	Result = 'SPEC'
	RETURN
END

ReactType = XLATE('REACTOR',ReactRunRec<REACT_RUN_REACTOR$>,REACTOR_REACT_TYPE$,'X')

IF ReactType = 'EPP' THEN

	PocketChars	= ReactRunRec<REACT_RUN_POCKET_CHAR$>
	InCassNos	= ReactRunRec<REACT_RUN_IN_CASS_NO$>
	OutCassNos	= ReactRunRec<REACT_RUN_OUT_CASS_NO$>
	WaferChars	= ReactRunRec<REACT_RUN_WAFER_CHAR$>
	UnloadSig	= ReactRunRec<REACT_RUN_UNLOAD_SIG$>

	TestFlag = 0
	ProdTestFlag = 0
	ProductionWafersLoaded = 0
	ProductionWafersUnloaded = 0

	FOR I = 1 TO COUNT(InCassNos,@VM) + (InCassNos NE '')
		PocketChar = PocketChars<1,I>
		WaferChar = WaferChars<1,I>
		IF PocketChar = 'TEST'  THEN
			IF WaferChar = 'PROD' THEN ProdTestFlag = 1
			IF WaferChar = 'TEST' THEN TestFlag = 1
		END ELSE
			IF PocketChar = '' THEN
				IF InCassNos<1,I> NE '' THEN ProductionWafersLoaded += 1
				IF OutCassNos<1,I> NE '' THEN ProductionWafersUnloaded += 1
			END
		END
	NEXT I
	
	MetEntered = XLATE('RDS_LAYER',LSKeys,'TEST_MET_ENTERED','X')
	IF INDEX(MetEntered,'0',1) THEN
		MetComplete = 0
	END ELSE
		MetComplete = 1
	END
	
	BEGIN CASE
		CASE ProductionWafersLoaded = 0 AND (TestFlag = 1 OR ProdTestFlag = 1) AND UnloadSig = ''		; Result = 'TLOAD'
		CASE ProductionWafersLoaded = 0 AND (TestFlag = 1 OR ProdTestFlag = 1) AND UnloadSig NE ''		; Result = 'TULOAD'
		CASE ProductionWafersLoaded = 0 AND TestFlag = 0 												; Result = 'RLOAD'
		CASE ProductionWafersLoaded > 0 AND ProductionWafersUnloaded = 0								; Result = 'LOAD'
		CASE ProductionWafersLoaded = ProductionWafersUnloaded AND MetComplete = 1						; Result = 'ULOAD'
		CASE ProductionWafersLoaded = ProductionWafersUnloaded AND MetComplete	= 0				  		; Result = 'ULMET'
		CASE 1																							; *Result = 'UNK'

	END CASE

END ELSE

		WONo	= ReactRunRec<REACT_RUN_WO_NO$>
		CassNo	= ReactRunRec<REACT_RUN_CASS_NO$>
		WOStep	= ReactRunRec<REACT_RUN_WO_STEP$>

		WOMatRec = XLATE('WO_MAT',WONo:'*':CassNo,'','X')

		RDSKeys = ''
		RSCnt = 0
		RunSigProfs		= ''
		RunSignatures	= ''
		RunSigDTMs		= ''

		AllSigs = WOMatRec<WO_MAT_SIG_PROFILE$>

		asCnt = COUNT(AllSigs,@VM) + (AllSigs NE '')

		FOR I = 1 TO asCnt
			IF AllSigs<1,I>[1,1] = WOStep THEN
				RSCnt += 1
				RunSigProfs<1,RSCnt>	= AllSigs<1,I>
				RunSignatures<1,RSCnt>	= WOMatRec<WO_MAT_SIGNATURE$,I>
				RunSigDTMs<1,RSCnt>		= WOMatRec<WO_MAT_SIG_DTM$,I>
			END
		NEXT I

		ProcessStart = 0
		ProcessComp	= 0

		LOOP
			RunSignature	= RunSignatures<1,1>
			RunSigProf		= RunSigProfs<1,1>
		UNTIL RunSignature = ''
			ProcessStart = 1
			RunSignatures	= DELETE(RunSignatures,1,1,0)
			RunSigProfs		= DELETE(RunSigProfs,1,1,0)
		REPEAT
		
		IF RunSignature = '' AND RunSigProf = '' AND ProcessStart = 1 THEN
			Result = 'COMP'
			RETURN
		END ELSE
			Result = RunSigProf[2,20]
			RETURN
		END
	
END

// ROTR inspection failure check -> Set status to PSTC (PostCleans)
If Result EQ 'ULOAD' then
    RotrAction = XLATE('REACT_RUN',RDSNo,'ROTR_ACTION','X')
    
    IF RotrAction = 'F' Then				;* Drive the CURR_STATUS to PostEpi Clean if the ROTR fails 
        Result = 'PSTC'
        RETURN
    END
end
			

RETURN



* * * * * * *
GetMetKeys:
* * * * * * *

* Returns data structure of 'LSID*ZONE' - @VM in first column associated RDS_TEST numbers in 2nd Column.

RdsNo  = Parms[1,@RM]

IF RdsNo = '' THEN RETURN

SortedLSKeys = XLATE('REACT_RUN',RdsNo,'RDS_LS_SORTED','X')
CONVERT @VM TO @FM IN SortedLSKeys

IF SortedLSKeys NE '' THEN
	LSMetKeys = XLATE('RDS_LAYER',SortedLSKeys,RDS_LAYER_RDS_TEST_KEYS$,'X')
	RDSMetZones = XLATE('RDS_TEST',LSMetKeys,RDS_TEST_ZONE$,'X')
	ResultLine = 0
	FOR I = 1 TO COUNT(SortedLSKeys,@FM) + (SortedLSKeys NE '')
		SortedLSKey = SortedLSKeys<I>
		LSMetKey = LSMetKeys<I>
		
		FOR N = 1 TO COUNT(LSMetKey,@VM) + (LSMetKey NE '')
			ResultLine += 1
			Result<1,ResultLine> = FIELD(SortedLSKey,'*',2):'*':RDSMetZones<I,N>
			Result<2,ResultLine> = LSMetKeys<I,N>
		NEXT N
	NEXT I
END

RETURN



* * * * * * *
Delete:
* * * * * * *

RdsNos		= Parms[1,@RM]
TableVar	= Parms[COL2()+1,@RM]


IF RdsNos = '' THEN RETURN
IF TableVar = '' THEN RETURN		;* Lock set should be called just prior to this to lock all the RDS's for deletion

RdsDTMs = XLATE('REACT_RUN',RdsNos,REACT_RUN_VER_SIG_DTM$,'X')

CONVERT @FM TO @VM IN RdsDTMs

TestString = RdsDTMs

CONVERT @VM TO '' IN TestString

IF TestString NE '' THEN
	FOR I = 1 TO COUNT(RdsDTMs,@VM) + (RdsDTMs NE '')
		IF RdsDTMs<1,I> NE '' THEN
			Result<1,-1> = RdsNos<1,I>			;* Return list of RdsNos that have started processing and cannot be deleted
		END
	NEXT I
	ErrorMsg = 'Production started on one or more RDS No(s).'
	RETURN
END

FOR I = 1 TO COUNT(RdsNos,@VM) + (RdsNos NE '')
	RdsNo = RdsNos<1,I>
	ReactRunRec = XLATE('REACT_RUN',RdsNo,'','X')
	
	LSKeys = ReactRunRec<REACT_RUN_RDS_LAYER_KEYS$>
	MetKeys = XLATE('RDS_LAYER',LSKeys,RDS_LAYER_RDS_TEST_KEYS$,'X')
	
	RTParms = 'REACT_RUN':@RM:RdsNo:@RM:TableVar:@RM
	obj_Tables('UnlockRec',RTParms)
	
	IF ReactRunRec<REACT_RUN_PRE_CI_NO$> NE '' THEN
		obj_Clean_Insp('Delete',ReactRunRec<REACT_RUN_PRE_CI_NO$>)
	END
	
	IF ReactRunRec<REACT_RUN_WFR_CI_NO$> NE '' THEN
		obj_Clean_Insp('Delete',ReactRunRec<REACT_RUN_WFR_CI_NO$>)
	END
	
	IF ReactRunRec<REACT_RUN_POST_CI_NO$> NE '' THEN
		obj_Clean_Insp('Delete',ReactRunRec<REACT_RUN_POST_CI_NO$>)
	END
	
	obj_RDS_Test('Delete',MetKeys)
	
	obj_RDS_Layer('Delete',LSKeys)
	
	obj_Tables('DeleteRec','REACT_RUN':RTParms)				;* Deletes and removes the lock
NEXT I

RETURN


* * * * * * *
ChangeFlag:
* * * * * * *

RDSNo	= Parms[1,@RM]
FieldNo		= Parms[COL2()+1,@RM]
Value		= Parms[COL2()+1,@RM]

IF RDSNo 	= '' THEN ErrorMsg = 'Null parameter "RDSNo" passed to routine. (':Method:')'
IF FieldNo  = '' THEN ErrorMsg = 'Null parameter "Property" passed to routine. (':Method:')'

IF Value = '' OR Value = '0' OR Value = '1' ELSE
	ErrorMsg = 'Invalid Flag ':QUOTE(Value):' passed to routine. (':Method:')'
END

IF ErrorMsg NE '' THEN RETURN

otParms = 'REACT_RUN':@RM:RDSNo
ReactRunRec = obj_Tables('ReadRec',otParms)

IF Get_Status(errCode) THEN RETURN	;* Probably locked -> return 

ReactRunRec<FieldNo> = Value
 
otParms = FieldStore(OtParms,@RM,4,0,ReactRunRec)	;* Put record in 4th field of OtParms

obj_Tables('WriteRec',otParms) 


RETURN


* * * * * * *
SetSchedQty:
* * * * * * *

* This looks like it isn't finished JCH 1/6/2009 JCH **************************

RDSNo		= Parms[1,@RM]

IF RDSNo 	= '' THEN ErrorMsg = 'Null parameter "RDSNo" passed to routine. (':Method:')'

IF ErrorMsg NE '' THEN RETURN

otParms = 'REACT_RUN':@RM:RDSNo
ReactRunRec = obj_Tables('ReadRec',otParms)

IF Get_Status(errCode) THEN RETURN	;* Probably locked -> return 

IF ReactRunRec<REACT_RUN_WO_STEP$> = 1 OR ReactRunRec<REACT_RUN_VER_WFR_CNT$> NE '' THEN
	obj_Tables('UnlockRec',otParms)	
	RETURN
END

WONo = ReactRunRec<REACT_RUN_WO_NO$>
CassNo = ReactRunRec<REACT_RUN_CASS_NO$> 

WOMatRec = ''
 
otParms = FieldStore(OtParms,@RM,4,0,ReactRunRec)	;* Put record in 4th field of OtParms

obj_Tables('WriteRec',otParms) 


RETURN


* * * * * * *
EpiMetData:
* * * * * * *

RDSNo		= Parms[1,@RM]
ReactRunRec = Parms[COL2()+1,@RM]


IF RDSNo = '' THEN RETURN

IF ReactRunRec = '' THEN
	ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')
END

IF ReactRunRec = '' THEN RETURN

Reactor = ReactRunRec<REACT_RUN_REACTOR$>
ReactType = XLATE('REACTOR',Reactor,1,'X')

IF ReactType NE 'EPP' THEN RETURN



DataArray = ''

DataArray<1,COL$WO_NO>				= 'WO No'
DataArray<1,COL$RDS_NO>				= 'RDS No'
DataArray<1,COL$REACTOR>			= 'Reactor'
DataArray<1,COL$Z1_MET_NO>			= 'Z1 Met No'
DataArray<1,COL$Z1_THICKNESS>		= 'Z1 Thickness'
DataArray<1,COL$Z1_4PP_SHEET_RHO>	= 'Z1 4PP Sheet Rho'
DataArray<1,COL$Z1_HGCV_RESL1>		= 'Z1 HgCV Res L1'
DataArray<1,COL$Z1_HGCV_RESL2>		= 'Z1 HgCV Res L2'
DataArray<1,COL$Z2_MET_NO>			= 'Z2 Met No'
DataArray<1,COL$Z2_THICKNESS>		= 'Z2 Thickness'
DataArray<1,COL$Z2_4PP_SHEET_RHO>	= 'Z2 4PP Sheet Rho'
DataArray<1,COL$Z2_HGCV_RESL1>		= 'Z2 HgCV Res L1'
DataArray<1,COL$Z2_HGCV_RESL2>		= 'Z2 HgCV Res L2'


NextLine = 2


WONo		= ReactRunRec<REACT_RUN_WO_NO$>
WOStep		= ReactRunRec<REACT_RUN_WO_STEP$>

LSKeys		= ReactRunRec<REACT_RUN_RDS_LAYER_KEYS$>
Z1MetKeys	= {MET_KEYS_Z1}
Z2MetKeys	= {MET_KEYS_Z2}
Z1MetNo		= Z1MetKeys[-1,'B':@VM]
Z2MetNo		= Z2MetKeys[-1,'B':@VM]
               
Z1MetRec = XLATE('RDS_TEST',Z1MetNo,'','X')
Z2MetRec = XLATE('RDS_TEST',Z2MetNo,'','X')

Z1TestPointMap = Z1MetRec<RDS_TEST_TEST_POINT_MAP$>
Z2TestPointMap = Z2MetRec<RDS_TEST_TEST_POINT_MAP$>

Z1MetReadings = ''
Z2MetReadings = ''
Z1Results = ''
Z2Results = ''

Z1MetKeyCnt = COUNT(Z1MetKeys,@VM) + (Z1MetKeys NE '')

FOR I = 1 TO Z1MetKeyCnt
	
	Z1MetKey = Z1MetKeys<1,I>
	Z1LMetReadings = obj_RDS_Test('GetReadSet',Z1MetKey)
	
	IF I = 1 THEN
		Z1MetReadings<1> = Z1LMetReadings<1>		;* Line Numbers
		Z1MetReadings<3> = Z1LMetReadings<3>		;* SheetRho
		Z1MetReadings<4> = Z1LMetReadings<4>		;* Hgcv
	END
	
	IF Z1MetKeyCnt = 1 THEN
		Z1MetReadings<2> = Z1LMetReadings<2>		;* Thickness readings
	END ELSE
		IF I = 2 THEN Z1MetReadings<5> = Z1LMetReadings<4>		;* Hgcv
		IF I = 3 THEN Z1MetReadings<2> = Z1LMetReadings<2>		;* Thickness readings
	END
	
NEXT I

IF Z1MetReadings<1> NE '' THEN
	CONVERT @FM TO @RM IN Z1MetReadings
	oTPM_Parms = Z1TestPointMap:@RM:Z1MetReadings
	Z1Results = obj_Test_Point_Map('PointToResult',oTPM_Parms)
END


Z2MetKeyCnt = COUNT(Z2MetKeys,@VM) + (Z2MetKeys NE '')

FOR I = 1 TO Z2MetKeyCnt
	
	Z2MetKey = Z2MetKeys<1,I>
	
	Z2LMetReadings = obj_RDS_Test('GetReadSet',Z2MetKey)
	
	IF I = 1 THEN
		Z2MetReadings<1> = Z2LMetReadings<1>		;* Line Numbers
		Z2MetReadings<3> = Z2LMetReadings<3>		;* SheetRho
		Z2MetReadings<4> = Z2LMetReadings<4>		;* Hgcv
	END
	
	IF Z2MetKeyCnt = 1 THEN
		 Z2MetReadings<2> = Z2LMetReadings<2>		;* Thickness readings
	END ELSE
		IF I = 2 THEN Z2MetReadings<5> = Z2LMetReadings<4>		;* Hgcv
		IF I = 3 THEN Z2MetReadings<2> = Z2LMetReadings<2>		;* Thickness readings
	END
		
NEXT I

IF Z2MetReadings<1> NE '' THEN
	CONVERT @FM TO @RM IN Z2MetReadings
	oTPM_Parms = Z2TestPointMap:@RM:Z2MetReadings
	Z2Results = obj_Test_Point_Map('PointToResult',oTPM_Parms)
END

Z1Cnt = COUNT(Z1Results<1>,@VM) + (Z1Results<1> NE '')
Z2Cnt = COUNT(Z2Results<1>,@VM) + (Z2Results<1> NE '')
ResultCnt = Z1Cnt
IF Z2Cnt > ResultCnt THEN ResultCnt = Z2Cnt

IF ResultCnt = 0 THEN
	DataArray<NextLine,COL$WO_NO>				= WONo
	DataArray<NextLine,COL$REACTOR>				= Reactor
	DataArray<NextLine,COL$RDS_NO>				= @ID
	DataArray<NextLine,COL$Z1_MET_NO>			= Z1MetNo
	DataArray<NextLine,COL$Z2_MET_NO>			= Z2MetNo
	NextLine += 1
END

FOR N = 1 TO ResultCnt
	IF N = 1 THEN
		DataArray<NextLine,COL$WO_NO>			= WONo
		DataArray<NextLine,COL$REACTOR>			= Reactor
		DataArray<NextLine,COL$RDS_NO>			= @ID
		DataArray<NextLine,COL$Z1_MET_NO>		= Z1MetNo
		DataArray<NextLine,COL$Z2_MET_NO>		= Z2MetNo
	END
	
	DataArray<NextLine,COL$Z1_THICKNESS>		= Z1Results<2,N>
	DataArray<NextLine,COL$Z1_4PP_SHEET_RHO>	= Z1Results<3,N>
	DataArray<NextLine,COL$Z1_HGCV_RESL1>		= Z1Results<4,N>
	DataArray<NextLine,COL$Z1_HGCV_RESL2>		= Z1Results<5,N>
	
	DataArray<NextLine,COL$Z2_THICKNESS>		= Z2Results<2,N>
	DataArray<NextLine,COL$Z2_4PP_SHEET_RHO>	= Z2Results<3,N>
	DataArray<NextLine,COL$Z2_HGCV_RESL1>		= Z2Results<4,N>
	DataArray<NextLine,COL$Z2_HGCV_RESL2>		= Z2Results<5,N>
	
	NextLine += 1
NEXT N

Result = DataArray

RETURN


* * * * * * *
WafersUnloaded:
* * * * * * *

IF NOT(ASSIGNED(RDSNo))			THEN RDSNo			= Parms[1,@RM]
IF NOT(ASSIGNED(ReactRunRec))	THEN ReactRunRec	= Parms[COL2()+1,@RM]


IF RDSNo		= '' THEN RETURN
IF ReactRunRec	= '' THEN ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')


ReactNo = ReactRunRec<REACT_RUN_REACTOR$>

ReactType = XLATE('REACTOR',ReactNo,REACTOR_REACT_TYPE$,'X')

IF ReactType = 'EPP' THEN
	* EpiPro run
	OutCassNos = ReactRunRec<REACT_RUN_OUT_CASS_NO$>
	OutCassCnt = COUNT(OutCassNos,@VM) + (OutCassNos NE '')
	UnloadQty = ''
	FOR I = 1 TO OutCassCnt
	     IF OutCassNos<1,I> NE '' THEN UnloadQty += 1
	NEXT I
	
	Result = UnloadQty		;* Qty unloaded into WMO cassette (no product test wafers)
	
	
END ELSE
	* ASM run
	WafersIn	= ReactRunRec<REACT_RUN_LOAD_WFR_CNT$>		;* Operator verified wafer qty loaded into reactor
    If Not(Num(WafersIn)) then
        // Log the WafersIn value
        LogData    = ''
        LogData<1> = LoggingDTM
        LogData<2> = RDSNo
        LogData<3> = WafersIn
        Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
        WafersIn   = WafersIn<1, 1, 1>
    end
	
	TestKeys	= XLATE('RDS_LAYER',ReactRunRec<REACT_RUN_RDS_LAYER_KEYS$>,3,'X')
	TWProd		= obj_RDS_Test('ProdTestCount',TestKeys)
	IF WafersIn > 0 AND TWProd <= WafersIn THEN
		Result = WafersIn - TWProd
	END ELSE
		Result = ''
	END
	
END


RETURN

* * * * * * *
Zone:
* * * * * * *

RunIDs = Parms[1,@RM]

IF RunIDs = '' THEN RETURN

ItemCnt = Count(RunIDs,@VM) + (RunIDs NE '')

PrevRDS	= ''
Ans		= ''

FOR I = 1 TO ItemCnt

	RunID = RunIDs<1,I>
	RDSNo = RunID[1,'.']
	Pocket = RunID[COL2()+1,'.']
	
	IF RDSNo NE PrevRDS THEN
		PreRDS = RDSNo
		ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')
	END
	
	ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')
	
	LOCATE Pocket IN ReactRunRec<REACT_RUN_POCKET$> USING @VM SETTING Pos THEN
		Result<1,I> = ReactRunRec<REACT_RUN_ZONE$,Pos>
	END
	
NEXT I

RETURN


* * * * * * *
SigProfile:
* * * * * * *

RDSNo	= Parms[1,@RM]
RRunRec	= Parms[COL2()+1,@RM]

IF RDSNo = '' THEN RETURN

IF RRunRec = '' THEN
	RRunRec = XLATE('REACT_RUN',RDSNo,'','X')
END
		
IF RRunRec = '' THEN RETURN

ReactType = XLATE('REACT_RUN',RDSNo,'PS_REACT_TYPE_CODE','X')

WONo 	= RRunRec<REACT_RUN_WO_NO$>
WOStep	= RRunRec<REACT_RUN_WO_STEP$>

IF ReactType = 'GAN' THEN

	SigProfile = RRunRec<REACT_RUN_RUN_STAGE_KEY$>
	
	SWAP RDSNo:'*' WITH '' IN SigProfile
	

END ELSE

	CassNo	= RRunRec<REACT_RUN_CASS_NO$>

	AllSigProfile = XLATE('WO_MAT',WONo:'*':CassNo,WO_MAT_SIG_PROFILE$,'X')

	SigProfile = ''
	ASigCnt = COUNT(AllSigProfile,@VM) + (AllSigProfile NE '')
	FOR I = 1 TO ASigCnt
	       IF AllSigProfile<1,I>[1,1] = WOStep THEN
	             SigProfile<1,-1> = AllSigProfile<1,I>
	       END
	NEXT I

END	;* End of check for ReactType


Result = SigProfile

RETURN


* * * * * * *
SigBy:
* * * * * * *

RDSNo	= Parms[1,@RM]
RRunRec	= Parms[COL2()+1,@RM]

IF RDSNo = '' THEN RETURN

IF RRunRec = '' THEN
	RRunRec = XLATE('REACT_RUN',RDSNo,'','X')
END
		
IF RRunRec = '' THEN RETURN

ReactType = XLATE('REACT_RUN',RDSNo,'PS_REACT_TYPE_CODE','X')

WONo 	= RRunRec<REACT_RUN_WO_NO$>
WOStep	= RRunRec<REACT_RUN_WO_STEP$>

IF ReactType = 'GAN' THEN

	StageKeys =  RRunRec<REACT_RUN_RUN_STAGE_KEY$>
	
	SigBys = XLATE('RUN_STAGE',StageKeys,RUN_STAGE_COMP_BY$,'X')

END ELSE

	CassNo	= RRunRec<REACT_RUN_CASS_NO$>

	AllSigProfile	= XLATE('WO_MAT',WONo:'*':CassNo,WO_MAT_SIG_PROFILE$,'X')
	AllSigBys		= XLATE('WO_MAT',WONo:'*':CassNo,WO_MAT_SIGNATURE$,'X')

	SigBys = ''
	ASigCnt = COUNT(AllSigProfile,@VM) + (AllSigProfile NE '')
	FOR I = 1 TO ASigCnt
	       IF AllSigProfile<1,I>[1,1] = WOStep THEN
	             SigBys<1,-1> = AllSigBys<1,I>
	       END
	NEXT I

END	;* End of check for ReactType

Result = SigBys

RETURN


* * * * * * *
SigDTM:
* * * * * * *


RDSNo	= Parms[1,@RM]
RRunRec	= Parms[COL2()+1,@RM]

IF RDSNo = '' THEN RETURN

IF RRunRec = '' THEN
	RRunRec = XLATE('REACT_RUN',RDSNo,'','X')
END
		
IF RRunRec = '' THEN RETURN

ReactType = XLATE('REACT_RUN',RDSNo,'PS_REACT_TYPE_CODE','X')

WONo 	= RRunRec<REACT_RUN_WO_NO$>
WOStep	= RRunRec<REACT_RUN_WO_STEP$>

IF ReactType = 'GAN' THEN

	StageKeys = RRunRec<REACT_RUN_RUN_STAGE_KEY$>		
	SigDTMs = XLATE('RUN_STAGE',StageKeys,RUN_STAGE_COMP_DTM$,'X')

END ELSE

	CassNo	= RRunRec<REACT_RUN_CASS_NO$>

	AllSigProfile	= XLATE('WO_MAT',WONo:'*':CassNo,WO_MAT_SIG_PROFILE$,'X')
	AllSigDtms		= XLATE('WO_MAT',WONo:'*':CassNo,WO_MAT_SIG_DTM$,'X')

	SigDtms = ''
	ASigCnt = COUNT(AllSigProfile,@VM) + (AllSigProfile NE '')
	FOR I = 1 TO ASigCnt
	       IF AllSigProfile<1,I>[1,1] = WOStep THEN
	             SigDTMs<1,-1> = AllSigDTMs<1,I>
	       END
	NEXT I

END	;* End of check for ReactType

Result = SigDTMs

RETURN

* * * * * * *
WfrsUnloadedDt:
* * * * * * * 

ReactNo  	= Parms[1,@RM]
UnloadDt	= Parms[COL2()+1,@RM]

IF ReactNo	= '' THEN RETURN
IF UnloadDt = '' THEN UnloadDt = OCONV(Date(),'D4/')		;* Default to today's date

thisUnloadDt = ICONV(UnloadDt,'D')

IF thisUnloadDt = '' THEN
	RETURN
END


OPEN 'DICT.REACT_RUN' TO DictVar ELSE
	ErrorMsg = 'Unable to open "DICT.REACT_RUN" for lookup'
	RETURN
END

SearchString  = 'REACT_NO_UNLOAD_DT':@VM:ReactNo:'.':thisUnloadDt:@FM


Option = ''
Flag = ''

Btree.Extract(SearchString,'REACT_RUN',DictVar,ReactRunKeys,Option,Flag)

RunCnt = COUNT(ReactRunKeys,@VM) + (ReactRunKeys NE '')

TotWfrsUnloaded = 0

FOR RKPos = 1 TO RunCnt
	RDSNo = ReactRunKeys<1,RKPos>
	ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')
	
	GOSUB WafersUnloaded
	
	TotWfrsUnloaded += Result
	
	Result = ''

NEXT RKPos

Result = TotWfrsUnloaded

RETURN


* * * * * * *
AddCI:
* * * * * * *

RDSNo	= Parms[1,@RM]
Stage	= Parms[COL2()+1,@RM]
CINo	= Parms[COL2()+1,@RM]

IF RDSNo = ''	THEN ErrorMsg = 'Null parameter "RDSNo" passed to routine. (':Method:')'
IF Stage = ''	THEN ErrorMsg = 'Null parameter "Stage" passed to routine. (':Method:')'
IF CINo = ''	THEN ErrorMsg = 'Null parameter "CINo" passed to routine. (':Method:')'

IF ErrorMsg NE '' THEN RETURN


otParms = 'REACT_RUN':@RM:RDSNo

RunRec = obj_Tables('ReadRec',otParms)

IF Get_Status(errCode) THEN RETURN


RunRec = INSERT(RunRec,REACT_RUN_CI_NO$,1,0,CINo)
RunRec = INSERT(RunRec,REACT_RUN_CI_STAGE$,1,0,Stage)


otParms = FieldStore(OtParms,@RM,4,0,RunRec)	;* Put record in 4th field of OtParms

obj_Tables('WriteRec',otParms)

RETURN

* * * * * * *
GetCINo:
* * * * * * *

RDSNo		= Parms[1,@RM]
ReactRunRec = Parms[COL2()+1,@RM]
Stage		= Parms[COL2()+1,@RM]


IF RDSNo = ''	THEN ErrorMsg = 'Null parameter "RDSNo" passed to routine. (':Method:')'
IF Stage = ''	THEN ErrorMsg = 'Null parameter "Stage" passed to routine. (':Method:')'

IF ErrorMsg NE '' THEN RETURN

IF ReactRunRec = '' THEN
	ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')
END

IF ReactRunRec = '' THEN RETURN

LOCATE Stage IN ReactRunRec<REACT_RUN_CI_STAGE$> USING @VM SETTING Pos THEN
	Result = ReactRunRec<REACT_RUN_CI_NO$,Pos>
END

RETURN


* * * * * * *
LoadMat:
* * * * * * *

RdsNo		= Parms[1,@RM]
ToolID		= Parms[COL2()+1,@RM]
ReactorList	= Parms[COL2()+1,@RM]	;* Contains susceptor load configuration 
SlotWfrKeys	= Parms[COL2()+1,@RM]	;* Contains SlotInID:@VM:WfrID:@VM:Scribe on each line

IF RdsNo		= ''	THEN ErrorMsg = 'Null parameter "RdsNo" passeed to routine.'
IF ReactorList	= ''	THEN ErrorMsg = 'Null parameter "ReactorList" passeed to routine.'
IF SlotWfrKeys	= ''	THEN ErrorMsg = 'Null parameter "SlotWfrKeys" passeed to routine.'
IF ErrorMsg NE '' THEN RETURN

Send_Info('Reading REACT_RUN ':RdsNo:'...')
		
lCnt = COUNT(ReactorList,@FM) + (ReactorList NE '')
FOR I = lCnt TO 1 STEP -1
	TestVal  = ReactorList<I,1>
UNTIL TestVal NE ''
	ReactorList = DELETE(ReactorList,I,0,0)		;* Strip empty lines from the user interface edit table
NEXT I

Set_Status(0)
RTParms = 'REACT_RUN':@RM:RdsNo
RR_Rec = obj_Tables('ReadRec',RTParms)


IF Get_Status(errCode) THEN
	ErrorMsg = 'Unable to read REACT_RUN ':QUOTE(RdsNo):' for UnloadEpi update.'
	RETURN
END


CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')

rCnt = COUNT(ReactorList,@FM) + (ReactorList NE '')

WfrIDs 		= ''
RunLocs		= ''
CurrSlotIDS	= ''
Scribes		= ''



swPointer = 1

FOR I = 1 TO rCnt

	IF ReactorList<I,COL$IN_SLOT_ID> = '' AND ReactorList<I,COL$WAFER_TYPE> = '' AND ReactorList<I,COL$USAGE> NE 'DUMMY' THEN
	
		* Empty Pocket and needs a wafer
		
		CurrSlot 	= SlotWfrKeys<swPointer,1>
		WfrID		= SlotWfrKeys<swPointer,2>
		Scribe		= SlotWfrKeys<swPointer,3>
		
		NewSlot		= ''
		RunLoc		= RDSNo:'.':ReactorList<I,COL$POCKET>:'.':ReactorList<I,COL$ZONE>
		
		WfrIDs<1,-1>		= WfrID
		RunLocs<1,-1>		= RunLoc
		CurrSlotIDs<1,-1>	= CurrSlot
		Scribes<1,-1> 		= Scribe
		
		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)
		
		RR_Rec<REACT_RUN_IN_SLOT_ID$,I>		= CurrSlot
		RR_Rec<REACT_RUN_IN_WFR_ID$,I>		= WfrID
		RR_Rec<REACT_RUN_IN_WFR_CHAR$,I>	= 'PROD'
		
		swPointer += 1
	
	END ELSE
	
		RR_Rec<REACT_RUN_IN_SLOT_ID$,I>		= ''
		RR_Rec<REACT_RUN_IN_WFR_ID$,I>		= ''
		RR_Rec<REACT_RUN_IN_WFR_CHAR$,I>	= ReactorList<I,COL$WAFER_TYPE>
		
	END
		
	RR_Rec<REACT_RUN_RUN_PKT$,I>		= ReactorList<I,COL$POCKET>
	RR_Rec<REACT_RUN_RUN_ZONE$,I>		= ReactorList<I,COL$ZONE>
	RR_Rec<REACT_RUN_PKT_CHAR$,I>		= ReactorList<I,COL$USAGE>
	RR_Rec<REACT_RUN_PKT_SAT_ID$,I>		= ReactorList<I,COL$SAT_ID>
	RR_Rec<REACT_RUN_OUT_SLOT_ID$,I>	= ''
	
		
NEXT I

ReactNo = ToolID[2,20]

RR_Rec<REACT_RUN_REACTOR$> = ReactNo

RTParms = FieldStore(RTParms, @RM, 4, 1, RR_Rec)
obj_Tables('WriteRec',RTParms)


RETURN

* * * * * * *
ReturnMat:
* * * * * * *

RdsNo	= Parms[1,@RM]
ToolID	= Parms[COL2()+1,@RM]

IF RdsNo = '' THEN ErrorMsg = 'Null parameter "RdsNo" passeed to routine.'

IF ErrorMsg NE '' THEN RETURN

Send_Info('Reading RDS Record ':RdsNo:'...')

Set_Status(0)

RTParms = 'REACT_RUN':@RM:RdsNo
RR_Rec = obj_Tables('ReadRec',RTParms)

IF Get_Status(errCode) THEN
	ErrorMsg = 'Unable to read RDS ':QUOTE(RdsNo):' for ReturnMat update.'
	RETURN
END

WONo	= RR_Rec<REACT_RUN_WO_NO$>
WOStep	= RR_Rec<REACT_RUN_WO_STEP$>

RLCnt = COUNT(RR_Rec<REACT_RUN_RUN_PKT$>,@VM) + (RR_Rec<REACT_RUN_RUN_PKT$> NE '')

CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')

FOR I = 1 TO RLCnt

	WfrID	= RR_Rec<REACT_RUN_IN_WFR_ID$,I>
	NewSlot = RR_Rec<REACT_RUN_IN_SLOT_ID$,I>

	IF WfrID NE '' THEN

		owwParms	 = WfrID:@RM				;* WfrID
		owwParms	:= CurrDTM:@RM				;* EventDtm
		owwParms	:= @USER4:@RM				;* EventBy
		owwParms	:= 'REPLACE':@RM			;* Event
		owwParms	:= NewSlot:@RM				;* New Slot ID
		owwParms	:= '':@RM					;* RPZ (RDSNo*Pocket*Zone)
		owwParms	:= '':@RM					;* NCRNo
		owwParms	:= '':@RM					;* TWUse ID 
		owwParms	:= '':@RM					;* Current Slot ID
		owwParms	:= '':@RM					;* NewToolID (Load Tool)
		owwParms	:= ToolID:@RM				;* CurrToolD (Unload Tool)
		owwParms 	:= '':@RM					;* NewInvLoc
		owwParms	:= '':@RM					;* CurrInvLoc
		owwParms 	:= 'I'						;* Wfr Side
			
		obj_WO_Wfr('AddEvent',owwParms)
		
	END
	
	RR_Rec<REACT_RUN_RUN_PKT$,I>		= ''
	RR_Rec<REACT_RUN_RUN_ZONE$,I>		= ''
	RR_Rec<REACT_RUN_PKT_CHAR$,I>		= ''
	RR_Rec<REACT_RUN_IN_WFR_CHAR$,I>	= ''
	RR_Rec<REACT_RUN_IN_SLOT_ID$,I>		= ''
	RR_Rec<REACT_RUN_IN_WFR_ID$,I>		= ''
	RR_Rec<REACT_RUN_OUT_SLOT_ID$,I>	= ''

NEXT I


RTParms = FieldStore(RTParms, @RM, 4, 1, RR_Rec)
obj_Tables('WriteRec',RTParms)
	
	
RETURN


* * * * * * * 
UnloadMat:
* * * * * * * 

RdsNo		= Parms[1,@RM]
ToolID		= Parms[COL2()+1,@RM]
ReactorList	= Parms[COL2()+1,@RM]	;* Contains susceptor load configuration 
UnloadSlots	= Parms[COL2()+1,@RM]	;* Contains SlotInID:@VM:WfrID:@VM:Scribe on each line

IF RdsNo		= ''	THEN ErrorMsg = 'Null parameter "RdsNo" passeed to routine.'
IF ReactorList	= ''	THEN ErrorMsg = 'Null parameter "ReactorList" passeed to routine.'
IF UnloadSlots	= ''	THEN ErrorMsg = 'Null parameter "UnloadSlots" passeed to routine.'

IF ErrorMsg NE '' THEN RETURN

Send_Info('Reading REACT_RUN ':RdsNo:'...')

lCnt = COUNT(ReactorList,@FM) + (ReactorList NE '')
FOR I = lCnt TO 1 STEP -1
	TestVal  = ReactorList<I,1>
UNTIL TestVal NE ''
	ReactorList = DELETE(ReactorList,I,0,0)		;* Strip empty lines from the user interface edit table
NEXT I

Set_Status(0)
RTParms = 'REACT_RUN':@RM:RdsNo
RR_Rec = obj_Tables('ReadRec',RTParms)		;* REACT_RUN is locked here

IF Get_Status(errCode) THEN
	ErrorMsg = 'Unable to read REACT_RUN ':QUOTE(RdsNo):' for UnloadEpi update.'
	RETURN
END

CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')

rCnt = COUNT(ReactorList,@FM) + (ReactorList NE '')

ulPointer = 1

FOR I = 1 TO rCnt

	IF ReactorList<I,REACT_RUN_OUT_SLOT_ID$> = '' AND ReactorList<I,COL$WAFER_TYPE> = 'PROD' AND ReactorList<I,COL$USAGE> = '' THEN
	
		* Empty Pocket and needs a wafer
		
		NewSlot 	= UnloadSlots<ulPointer,1>
		WfrID		= ReactorList<I,COL$WFR_ID>
		
		owwParms	 = WfrID:@RM				;* WfrID
		owwParms	:= CurrDTM:@RM				;* EventDtm
		owwParms	:= @USER4:@RM				;* EventBy
		owwParms	:= 'UNLOAD':@RM				;* Event
		owwParms	:= NewSlot:@RM				;* New Slot ID
		owwParms	:= '':@RM					;* RPZ (RDSNo*Pocket*Zone)
		owwParms	:= '':@RM					;* NCRNo
		owwParms	:= '':@RM					;* TWUse ID 
		owwParms	:= '':@RM					;* Current Slot ID
		owwParms	:= '':@RM					;* New ToolID
		owwParms	:= ToolID:@RM				;* Curr Tool ID
		owwParms 	:= '':@RM					;* NewInvLoc
		owwParms	:= '':@RM					;* CurrInvLoc
		owwParms 	:= 'O'						;* Wfr Side
			
		obj_WO_Wfr('AddEvent',owwParms)
		
		RR_Rec<REACT_RUN_OUT_SLOT_ID$,I>	= NewSlot
		
		ulPointer += 1
	
	END
		
NEXT I

RTParms = FieldStore(RTParms, @RM, 4, 1, RR_Rec)
obj_Tables('WriteRec',RTParms)


RETURN


* * * * * * *
ShipGANWfrs:
* * * * * * *

RDSNo		= Parms[1,@RM]
ShipSlots	= Parms[COL2()+1,@RM]
ShipWfrs	= Parms[COL2()+1,@RM]

IF RDSNo		= ''	THEN ErrorMsg = 'Null parameter "RdsNo" passeed to routine.'
IF ShipSlots	= ''	THEN ErrorMsg = 'Null parameter "ShipSlots" passeed to routine.'
IF ShipWfrs		= ''	THEN ErrorMsg = 'Null parameter "ShipWfrs" passeed to routine.'

IF ErrorMsg NE '' THEN RETURN


Set_Status(0)
RTParms = 'REACT_RUN':@RM:RdsNo
RR_Rec = obj_Tables('ReadRec',RTParms)		;* REACT_RUN is locked here

IF Get_Status(errCode) THEN
	ErrorMsg = 'Unable to read REACT_RUN ':QUOTE(RdsNo):' for UnloadEpi update.'
	RETURN
END

CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')

wCnt = COUNT(ShipWfrs,@VM) + (ShipWfrs NE '')


FOR I = 1 TO wCnt
	WfrID = ShipWfrs<1,I>
	NewSlot = ShipSlots<1,I>
	
	LOCATE WfrID IN RR_Rec<REACT_RUN_IN_WFR_ID$> USING @VM SETTING Pos THEN
		RR_Rec<REACT_RUN_OUT_SLOT_ID$,Pos> = ShipSlots<1,I>
	END
	
	LOCATE WfrID IN RR_Rec<REACT_RUN_CARR_WFR_ID$> USING @VM SETTING cPos THEN
		CurrCarrSlot = RR_Rec<REACT_RUN_CARR_SLOT_ID$,cPos>

	END ELSE 
		CurrCarrSlot = ''
	END

	CurrInvLoc = obj_WO_Wfr('CurrLoc',WfrID)<1,4>

	owwParms	 = WfrID:@RM				;* WfrID
	owwParms	:= CurrDTM:@RM				;* EventDtm
	owwParms	:= @USER4:@RM				;* EventBy
	owwParms	:= 'DISP':@RM				;* Event
	owwParms	:= NewSlot:@RM				;* New Slot ID
	owwParms	:= '':@RM					;* RPZ (RDSNo*Pocket*Zone)
	owwParms	:= '':@RM					;* NCRNo
	owwParms	:= '':@RM					;* TWUse ID 
	owwParms	:= '':@RM					;* Current Slot ID
	owwParms	:= '':@RM					;* New ToolID
	owwParms	:= '':@RM					;* Curr Tool ID
	owwParms 	:= '':@RM					;* NewInvLoc
	owwParms	:= CurrInvLoc:@RM			;* CurrInvLoc				;* GaN Disposition Queue
	owwParms 	:= 'O':@RM					;* Wfr Side
	owwParms	:= '':@RM					;* New Carrier Loc
	owwParms	:= CurrCarrSlot				;* Curr Carrier Loc
		
	obj_WO_Wfr('AddEvent',owwParms)


NEXT I

RTParms = FieldStore(RTParms, @RM, 4, 1, RR_Rec)
obj_Tables('WriteRec',RTParms)

RETURN



* * * * * * *
UnShipGANWfrs:
* * * * * * *

RDSNo		= Parms[1,@RM]
ShipSlots	= Parms[COL2()+1,@RM]
ShipWfrs	= Parms[COL2()+1,@RM]

IF RDSNo		= ''	THEN ErrorMsg = 'Null parameter "RdsNo" passeed to routine.'
IF ShipSlots	= ''	THEN ErrorMsg = 'Null parameter "ShipSlots" passeed to routine.'
IF ShipWfrs		= ''	THEN ErrorMsg = 'Null parameter "ShipWfrs" passeed to routine.'

IF ErrorMsg NE '' THEN RETURN

Set_Status(0)
RTParms = 'REACT_RUN':@RM:RdsNo
RR_Rec = obj_Tables('ReadRec',RTParms)		;* REACT_RUN is locked here

IF Get_Status(errCode) THEN
	ErrorMsg = 'Unable to read REACT_RUN ':QUOTE(RdsNo):' for UnloadEpi update.'
	RETURN
END

CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')

wCnt = COUNT(ShipWfrs,@VM) + (ShipWfrs NE '')

FOR I = 1 TO wCnt
	WfrID = ShipWfrs<1,I>
	CurrSlot = ShipSlots<1,I>
	
	LOCATE WfrID IN RR_Rec<REACT_RUN_IN_WFR_ID$> USING @VM SETTING Pos THEN
		RR_Rec<REACT_RUN_OUT_SLOT_ID$,Pos> = ''
	END

	CurrCarrSlot = ''

	owwParms	 = WfrID:@RM				;* WfrID
	owwParms	:= CurrDTM:@RM				;* EventDtm
	owwParms	:= @USER4:@RM				;* EventBy
	owwParms	:= 'DISP':@RM				;* Event
	owwParms	:= '':@RM					;* New Slot ID
	owwParms	:= '':@RM					;* RPZ (RDSNo*Pocket*Zone)
	owwParms	:= '':@RM					;* NCRNo
	owwParms	:= '':@RM					;* TWUse ID 
	owwParms	:= CurrSlot:@RM				;* Current Slot ID
	owwParms	:= '':@RM					;* New ToolID
	owwParms	:= '':@RM					;* Curr Tool ID
	owwParms 	:= 'GCH*Q_PACK':@RM			;* NewInvLoc				;* GaN Disposition Queue
	owwParms	:= '':@RM					;* CurrInvLoc
	owwParms 	:= 'O':@RM					;* Wfr Side
	owwParms	:= '':@RM					;* New Carrier Loc
	owwParms	:= CurrCarrSlot				;* Curr Carrier Loc
		
	obj_WO_Wfr('AddEvent',owwParms)

NEXT I

RTParms = FieldStore(RTParms, @RM, 4, 1, RR_Rec)
obj_Tables('WriteRec',RTParms)


RETURN


* * * * * * *
ReloadMat:
* * * * * * *

RdsNo	= Parms[1,@RM]
ToolID	= Parms[COL2()+1,@RM]

IF RdsNo = '' THEN ErrorMsg = 'Null parameter "RdsNo" passeed to routine.'

IF ErrorMsg NE '' THEN RETURN

Send_Info('Reading RDS Record ':RdsNo:'...')

Set_Status(0)

RTParms = 'REACT_RUN':@RM:RdsNo
RR_Rec = obj_Tables('ReadRec',RTParms)
*RR_Rec	= XLATE('REACT_RUN',RDSNo,'','X')

IF Get_Status(errCode) THEN
	ErrorMsg = 'Unable to read RDS ':QUOTE(RdsNo):' for ReturnMat update.'
	RETURN
END


RLCnt = COUNT(RR_Rec<REACT_RUN_RUN_PKT$>,@VM) + (RR_Rec<REACT_RUN_RUN_PKT$> NE '')

CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')

FOR I = 1 TO RLCnt

	WfrID		= RR_Rec<REACT_RUN_IN_WFR_ID$,I>
	OutSlotID	= RR_Rec<REACT_RUN_OUT_SLOT_ID$,I>
	
	RunLoc		= RDSNo:'.':RR_Rec<REACT_RUN_RUN_PKT$,I>:'.':RR_Rec<REACT_RUN_RUN_ZONE$,I>

	IF OutSlotID NE '' THEN

		owwParms	 = WfrID:@RM				;* WfrID
		owwParms	:= CurrDTM:@RM				;* EventDtm
		owwParms	:= @USER4:@RM				;* EventBy
		owwParms	:= 'RELOAD':@RM				;* Event
		owwParms	:= '':@RM					;* New Slot ID
		owwParms	:= RunLoc:@RM				;* RPZ (RDSNo*Pocket*Zone)
		owwParms	:= '':@RM					;* NCRNo
		owwParms	:= '':@RM					;* TWUse ID 
		owwParms	:= OutSlotID:@RM			;* Current Slot ID
		owwParms	:= ToolID:@RM				;* NewToolID (Load Tool)
		owwParms	:= '':@RM					;* CurrToolD (Unload Tool)
		owwParms 	:= '':@RM					;* NewInvLoc
		owwParms	:= '':@RM					;* CurrInvLoc
		owwParms 	:= 'O'						;* Wfr Side
			
		obj_WO_Wfr('AddEvent',owwParms)
		
	END
	
	RR_Rec<REACT_RUN_OUT_SLOT_ID$,I>	= ''

NEXT I


RTParms = FieldStore(RTParms, @RM, 4, 1, RR_Rec)
obj_Tables('WriteRec',RTParms)

RETURN


* * * * * These CarrWfrID methods are not used. Leave until done with development  * * * * * * *

* * * * * * *
SetCarrWfrID:
* * * * * * *

RDSNo	= Parms[1,@RM]
WfrID	= Parms[COL2()+1,@RM]

If RDSNol = ''		THEN ErrorMsg = 'Null Parameter "RDSNo" passed to routine. (':Method:')'
If WfrID = ''		THEN ErrorMsg = 'Null Parameter "WfrID" passed to routine. (':Method:')'

If ErrorMsg NE '' Then Return 

otParms = 'REACT_RUN':@RM:RDSNo
RRunRec = obj_Tables('ReadRec',otParms)

Locate WfrID In RRunRec<REACT_RUN_CARR_WFR_ID$> USING @VM SETTING Pos Then
	obj_Tables('UnlockRec',otParms)
End Else 
	RRunRec = Insert(RRunRec,REACT_RUN_CARR_WFR_ID$ ,-1,0, WfrID)  				;* Wafer ID is added to the END of the list i.e. no sort order
	otParms  = FieldStore(otParms,@RM,4,0,RRunRec)
	obj_Tables('WriteRec',otParms)
END


RETURN


* * * * * * *
ClearCarrWfrID:
* * * * * * *

RDSNo	= Parms[1,@RM]
WfrID	= Parms[COL2()+1,@RM]

If RDSNo = ''		THEN ErrorMsg = 'Null Parameter "RDSNo" passed to routine. (':Method:')'
If WfrID = ''		THEN ErrorMsg = 'Null Parameter "WfrID" passed to routine. (':Method:')'

If ErrorMsg NE '' Then Return 

otParms = 'REACT_RUN':@RM:RDSNo
RRunRec = obj_Tables('ReadRec',otParms)

Locate WfrID In RRunRec<REACT_RUN_CARR_WFR_ID$> USING @VM SETTING Pos Then
	RRunRec = Delete(RRunRec,REACT_RUN_CARR_WFR_ID$,Pos,0)
	otParms  = FieldStore(otParms,@RM,4,0,RRunRec)
	obj_Tables('WriteRec',otParms)
End Else 
	obj_Tables('UnlockRec',otParms)
END

RETURN


* * * * * * *
ClearCarrNCR:
* * * * * * *
! deprecated 2/24/20 - djs - do not use !
RDSNo	= Parms[1,@RM]
NCRNo	= Parms[COL2()+1,@RM]

If RDSNo = ''		THEN ErrorMsg = 'Null Parameter "RDSNo" passed to routine. (':Method:')'
If NCRNo = ''		THEN ErrorMsg = 'Null Parameter "NCRNo" passed to routine. (':Method:')'

If ErrorMsg NE '' Then Return

otParms = 'REACT_RUN':@RM:RDSNo
RRunRec = obj_Tables('ReadRec',otParms)

sCnt = COUNT(RRunRec<REACT_RUN_CARR_SLOT_NO$>,@VM) + (RRunRec<REACT_RUN_CARR_SLOT_NO$> NE '')

WriteFlag = ''
FOR I = 1 TO sCnt
	IF RRunRec<REACT_RUN_CARR_NCR_NO$,I> = NCRNo THEN
		WriteFlag = 1
		RRunRec<REACT_RUN_CARR_WFR_ID$,I> = RRunRec<REACT_RUN_CARR_PREV_WFR_ID$,I>
		RRunRec<REACT_RUN_CARR_NCR_NO$,I> = ''
	END
NEXT I

IF WriteFlag = 1 THEN
	otParms  = FieldStore(otParms,@RM,4,0,RRunRec)
	obj_Tables('WriteRec',otParms)
END ELSE
	obj_Tables('UnlockRec',otParms)
END

RETURN


* * * * * End of CarrWfrID methods.   * * * * * * *


* * * * * * * 
UnloadGan:
* * * * * * * 

RdsNo		= Parms[1,@RM]
ToolID		= Parms[COL2()+1,@RM]
ReactorList	= Parms[COL2()+1,@RM]	;* Contains susceptor load configuration 
UnloadSlots	= Parms[COL2()+1,@RM]	;* Contains CarrSlotNo:@FM:RDSNo:'.':CarrSlotNo for each wafer being "unloaded"

IF RdsNo		= ''	THEN ErrorMsg = 'Null parameter "RdsNo" passeed to routine.'
IF ReactorList	= ''	THEN ErrorMsg = 'Null parameter "ReactorList" passeed to routine.'
IF UnloadSlots	= ''	THEN ErrorMsg = 'Null parameter "UnloadSlots" passeed to routine.'

IF ErrorMsg NE '' THEN RETURN

Send_Info('Reading REACT_RUN ':RdsNo:'...')

lCnt = COUNT(ReactorList,@FM) + (ReactorList NE '')
FOR I = lCnt TO 1 STEP -1
	TestVal  = ReactorList<I,1>
UNTIL TestVal NE ''
	ReactorList = DELETE(ReactorList,I,0,0)		;* Strip empty lines from the user interface edit table
NEXT I

Set_Status(0)
RTParms = 'REACT_RUN':@RM:RdsNo
RR_Rec = obj_Tables('ReadRec',RTParms)		;* REACT_RUN is locked here

IF Get_Status(errCode) THEN
	ErrorMsg = 'Unable to read REACT_RUN ':QUOTE(RdsNo):' for UnloadEpi update.'
	RETURN
END

ToolRec = XLATE('TOOL',ToolID,'','X')


* Get QOutKey for Reactor or Reactor Class

QOutKey = ''

WHCd	= ToolRec<TOOL_QOUT_WH$>
LocCd	= ToolRec<TOOL_QOUT_LOC$>

IF WHCd NE '' AND LocCd NE '' THEN
	QOutKey = WHCd:'*':LocCd
END ELSE

	ToolClassRec = XLATE('TOOL_CLASS',ToolRec<TOOL_CLASS$>,'','X')
	
	WHCd	= ToolClassRec<TOOL_CLASS_QOUT_WH$>
	LocCd	= ToolClassRec<TOOL_CLASS_QOUT_LOC$>
	
	IF WHCd NE '' AND LocCd NE '' THEN
		QOutKey = WHCd:'*':LocCd
	END 
	
END

CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')

rCnt = COUNT(ReactorList,@FM) + (ReactorList NE '')

FOR I = 1 TO rCnt

	IF ReactorList<I,REACT_RUN_OUT_SLOT_ID$> = '' AND ReactorList<I,COL$WAFER_TYPE> = 'PROD' AND ReactorList<I,COL$USAGE> = '' THEN
	
		* Empty Pocket and needs a wafer
		* Wafers are "placed" into a carrier slot AND into the Dispo Queue
		
		
		CarrSlotID	= UnloadSlots<I,2>
		CarrSlotNo 	= UnloadSlots<I,1>
		
		WfrID		= ReactorList<I,COL$WFR_ID>
		
		owwParms	 = WfrID:@RM				;* WfrID
		owwParms	:= CurrDTM:@RM				;* EventDtm
		owwParms	:= @USER4:@RM				;* EventBy
		owwParms	:= 'UNLOAD':@RM				;* Event
		owwParms	:= '':@RM					;* New Slot ID
		owwParms	:= '':@RM					;* RPZ (RDSNo*Pocket*Zone)
		owwParms	:= '':@RM					;* NCRNo
		owwParms	:= '':@RM					;* TWUse ID 
		owwParms	:= '':@RM					;* Current Slot ID
		owwParms	:= '':@RM					;* New ToolID
		owwParms	:= ToolID:@RM				;* Curr Tool ID
		owwParms 	:= QOutKey:@RM				;* NewInvLoc			;* Outbound Que for tool
		owwParms	:= '':@RM					;* CurrInvLoc
		owwParms 	:= 'O':@RM					;* Wfr Side
		owwParms	:= CarrSlotID:@RM			;* New Carrier Slot
		owwParms	:= ''						;* Curr Carrier Slot
			
		obj_WO_Wfr('AddEvent',owwParms)
		
		LOCATE WfrID IN RR_Rec<REACT_RUN_IN_WFR_ID$> USING @VM SETTING Pos THEN
			RR_Rec<REACT_RUN_CARR_SLOT_ID$,Pos> = CarrSlotID
		END
		
		RR_Rec<REACT_RUN_CARR_WFR_ID$,Pos>	= WfrID
		RR_Rec<REACT_RUN_CARR_SLOT_NO$,Pos>	= CarrSlotNo
	
	END
		
NEXT I

RTParms = FieldStore(RTParms, @RM, 4, 1, RR_Rec)
obj_Tables('WriteRec',RTParms)


RETURN


* * * * * * *
ReloadGan:
* * * * * * *

RdsNo	= Parms[1,@RM]
ToolID	= Parms[COL2()+1,@RM]

IF RdsNo = '' THEN ErrorMsg = 'Null parameter "RdsNo" passeed to routine.'

IF ErrorMsg NE '' THEN RETURN

Send_Info('Reading RDS Record ':RdsNo:'...')

Set_Status(0)

RTParms = 'REACT_RUN':@RM:RdsNo
RR_Rec = obj_Tables('ReadRec',RTParms)


IF Get_Status(errCode) THEN
	ErrorMsg = 'Unable to read RDS ':QUOTE(RdsNo):' for ReturnMat update.'
	RETURN
END

RLCnt = COUNT(RR_Rec<REACT_RUN_RUN_PKT$>,@VM) + (RR_Rec<REACT_RUN_RUN_PKT$> NE '')

CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')

FOR I = 1 TO RLCnt

	WfrID			= RR_Rec<REACT_RUN_IN_WFR_ID$,I>
	CurrCarrSlotID	= RR_Rec<REACT_RUN_CARR_SLOT_ID$,I>
	
	RunLoc		= RDSNo:'.':RR_Rec<REACT_RUN_RUN_PKT$,I>:'.':RR_Rec<REACT_RUN_RUN_ZONE$,I>

	IF CurrCarrSlotID NE '' THEN

		owwParms	 = WfrID:@RM				;* WfrID
		owwParms	:= CurrDTM:@RM				;* EventDtm
		owwParms	:= @USER4:@RM				;* EventBy
		owwParms	:= 'RELOAD':@RM				;* Event
		owwParms	:= '':@RM					;* New Slot ID
		owwParms	:= RunLoc:@RM				;* RPZ (RDSNo*Pocket*Zone)
		owwParms	:= '':@RM					;* NCRNo
		owwParms	:= '':@RM					;* TWUse ID 
		owwParms	:= '':@RM					;* Current Slot ID
		owwParms	:= ToolID:@RM				;* NewToolID (Load Tool)
		owwParms	:= '':@RM					;* CurrToolD (Unload Tool)
		owwParms 	:= '':@RM					;* NewInvLoc
		owwParms	:= '':@RM					;* CurrInvLoc
		owwParms 	:= 'O':@RM					;* Wfr Side
		owwParms	:= '':@RM					;* New Carrier Slot
		owwParms	:= CurrCarrSlotID			;* Curr Carrier Slot
			
		obj_WO_Wfr('AddEvent',owwParms)
		
	END

	RR_Rec<REACT_RUN_CARR_WFR_ID$,I>	= ''
	RR_Rec<REACT_RUN_CARR_SLOT_ID$,I>	= ''

NEXT I


RTParms = FieldStore(RTParms, @RM, 4, 1, RR_Rec)
obj_Tables('WriteRec',RTParms)

RETURN



* * * * * * *
SplitWfr:
* * * * * * *
! Deprecated 11/06/2019 DJS
* RDSNo	= Parms[1,@RM]
* WfrID	= Parms[COL2()+1,@RM]
* 
* IF RDSNo = ''	THEN ErrorMsg = 'Null parameter "RDSNo" passed to routine. (':Method:')'
* IF WfrID = ''	THEN ErrorMsg = 'Null parameter "WfrID" passed to routine. (':Method:')'
* 
* IF ErrorMsg NE '' THEN RETURN
* 
* otParms = 'REACT_RUN':@RM:RDSNo
* 
* RunRec = obj_Tables('ReadRec',otParms)
* 
* IF Get_Status(errCode) THEN RETURN
* 
* LOCATE WfrID IN RunRec<REACT_RUN_CARR_WFR_ID$> USING @VM SETTING Pos THEN
* 
* 	RunRec<REACT_RUN_CARR_PREV_WFR_ID$,Pos> = WfrID
* 	RunRec<REACT_RUN_CARR_WFR_ID$,Pos>		= ''
* 	
* 	
* 	chCnt = COUNT(RunRec<REACT_RUN_CHAR_WFR_ID$>,@VM) + (RunRec<REACT_RUN_CHAR_WFR_ID$> NE '')
* 	NextLine = chCnt + 1
*		
* 	SplitBy = @USER4
* 
* 	IF SplitBy = '' THEN SplitBy = 'UNKNOWN'
* 
* 	SplitDTM = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT')
* 
* 	RunRec<REACT_RUN_CHAR_WFR_ID$,NextLine>		= WfrID
* 	RunRec<REACT_RUN_CHAR_SPLIT_BY$,NextLine>	= SplitBy
* 	RunRec<REACT_RUN_CHAR_SPLIT_DTM$,NextLine>	= SplitDTM
* 
* 	otParms = FieldStore(OtParms,@RM,4,0,RunRec)	;* Put record in 4th field of OtParms
* 	obj_Tables('WriteRec',otParms)
* 	
* END ELSE
* 	obj_Tables('UnlockRec',otParms)
* END
* 
RETURN


* * * * * * *
UnSplitWfr:
* * * * * * *
! Deprecated 11/06/2019 DJS
* RDSNo	= Parms[1,@RM]
* WfrID	= Parms[COL2()+1,@RM]
* 
* IF RDSNo = ''	THEN ErrorMsg = 'Null parameter "RDSNo" passed to routine. (':Method:')'
* IF WfrID = ''	THEN ErrorMsg = 'Null parameter "WfrID" passed to routine. (':Method:')'
* 
* IF ErrorMsg NE '' THEN RETURN
* 
* otParms = 'REACT_RUN':@RM:RDSNo
* 
* RunRec = obj_Tables('ReadRec',otParms)
* 
* IF Get_Status(errCode) THEN RETURN
* 
* LOCATE WfrID IN RunRec<REACT_RUN_CARR_PREV_WFR_ID$> USING @VM SETTING Pos THEN
* 
* 	RunRec<REACT_RUN_CARR_PREV_WFR_ID$,Pos> = ''
* 	RunRec<REACT_RUN_CARR_WFR_ID$,Pos>		= WfrID
* 	
* 	LOCATE WfrID IN RunRec<REACT_RUN_CHAR_WFR_ID$> USING @VM SETTING cPos THEN
*			
*		UnSplitBy = @USER4
* 
*		IF UnSplitBy = '' THEN UnSplitBy = 'UNKNOWN'
* 
*		UnSplitDTM = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT')
* 
*		RunRec<REACT_RUN_CHAR_RETURN_BY$,cPos>	= UnSplitBy
*		RunRec<REACT_RUN_CHAR_RETURN_DTM$,cPos>	= UnSplitDTM
*		
* 	END
* 
* 	otParms = FieldStore(OtParms,@RM,4,0,RunRec)	;* Put record in 4th field of OtParms
* 	obj_Tables('WriteRec',otParms)
* 	
* END ELSE
* 	obj_Tables('UnlockRec',otParms)
* END

RETURN

* * * * * * *
GetWfrSigKeys:
* * * * * * *


IF NOT(Assigned(RDSNo))		THEN RDSNo = Parms[1,@RM]
IF NOT(Assigned(WfrIDs))	THEN WfrIDs = Parms[COL2()+1,@RM]


IF RDSNo = '' THEN RETURN
IF WfrIDs = '' THEN RETURN

FirstWfrID = WfrIDs<1,1>

WONo = FirstWfrID<1,1>[1,'*']
WOMatKey = FIELD(FirstWfrID,'*',1,2)

SigProfile = XLATE('REACT_RUN',RDSNo, REACT_RUN_WFR_STAGE$,'X')

spCnt = COUNT(SigProfile,@VM) + (SigProfile NE '')

WfrSigKeys = ''
wfrCnt = COUNT(WfrIDs,@VM) + (WfrIDs NE '')

FOR W = 1 TO wfrCnt
	WfrID = WfrIDs<1,W>
	
	IF WfrID NE '' THEN
		FOR I = 1 TO spCnt
			Stage = SigProfile<1,I>
			WfrKID = WfrID
			CONVERT '*' TO '.' IN WfrKID
			
			WfrSigKeys<W,I> = RDSNo:'*':Stage:'*':WfrKID
			
		NEXT I
	END
NEXT W

Result = WfrSigKeys

RETURN


* * * * * * * 
NextWfrStage:
* * * * * * *

RDSNo	= Parms[1,@RM]
RunRec	= Parms[COL2()+1,@RM]

IF RDSNo = '' THEN RETURN

IF RunRec = '' THEN 
	RunRec = XLATE('REACT_RUN',RDSNo,'','X')
	IF RunRec = '' THEN RETURN
END

WfrIDs = RunRec<REACT_RUN_CHAR_WFR_ID$>

GOSUB GetWfrSigKeys

AllWfrStageKeys = Result

Result = ''

WfrCnt = COUNT(AllWfrStageKeys,@FM) + (AllWfrStageKeys NE '')

FOR I = 1 TO WfrCnt

	WfrStageKeys = AllWfrStageKeys<I>
	
	StageCompSigs = XLATE('RUN_STAGE_WFR',WfrStageKeys,RUN_STAGE_WFR_COMP_BY$,'X')
	
	scCnt = COUNT(StageCompSigs,@VM) + (StageCompSigs NE '')
	
	NextWfrStage = ''
	FOR S = scCnt TO 1 STEP -1
	UNTIL StageCompSigs<1,S> NE ''
		NextWfrStage = WfrStageKeys<1,S>
	NEXT S	
	
	IF NextWfrStage = '' THEN
		Result<1,I> = '-'
	END ELSE
		Result<1,I> = FIELD(NextWfrStage,'*',2)
	END

NEXT I


RETURN


* * * * * * *
CharWfrDest:
* * * * * * *

RDSNo	= Parms[1,@RM]
RunRec	= Parms[COL2()+1,@RM]

IF RDSNo = '' THEN RETURN

IF RunRec = '' THEN 
	RunRec = XLATE('REACT_RUN',RDSNo,'','X')
	IF RunRec = '' THEN RETURN
END

WfrIDs = RunRec<REACT_RUN_CHAR_WFR_ID$>

GOSUB GetWfrSigKeys
AllWfrStageKeys = Result
Result = ''

WfrCnt = COUNT(AllWfrStageKeys,@FM) + (AllWfrStageKeys NE '')


FOR I = 1 TO WfrCnt

	WfrStageKeys = AllWfrStageKeys<I>
	
	StageDestTests	= XLATE('RUN_STAGE_WFR',WfrStageKeys,'DEST_TEST','X')
	StageCompSigs	= XLATE('RUN_STAGE_WFR',WfrStageKeys,RUN_STAGE_WFR_COMP_BY$,'X')
	
	scCnt = COUNT(StageCompSigs,@VM) + (StageCompSigs NE '')
	
	
	Destroyed = ''
	FOR S = scCnt TO 1 STEP -1
		IF StageDestTests<1,S> = 1 AND StageCompSigs<1,S> NE '' THEN
			Destroyed = 1
		END
	UNTIL Destroyed
	NEXT S	
	
	Result<1,I> = Destroyed

NEXT I


RETURN

* * * * * * *
CharWfrStatus:
* * * * * * *

RDSNo	= Parms[1,@RM]
RunRec	= Parms[COL2()+1,@RM]

IF RDSNo = '' THEN RETURN

IF RunRec = '' THEN 
	RunRec = XLATE('REACT_RUN',RDSNo,'','X')
	IF RunRec = '' THEN RETURN
END

WfrIDs = RunRec<REACT_RUN_CHAR_WFR_ID$>

wCnt = COUNT( WfrIDs,@VM) + (WfrIDs NE '')

WfrStatuses = ''


GOSUB NextWfrStage

NextWfrStages = Result
Result = ''

FOR M = 1 TO wCnt
	WfrID = WfrIDs<1,M>
	
	NextWfrStage = NextWfrStages<1,M>
	
	IF NextWfrStage NE '-' THEN
		CONVERT '*' TO '.' IN WfrID
		
		NextWfrStageKey = RDSNo:'*':NextWfrStage:'*':WfrID
		
		WfrStatuses<1,M> = XLATE('RUN_STAGE_WFR',NextWfrStageKey,'CURR_STATUS','X')
	END ELSE
		WfrStatuses<1,M> = 'COMP'
	END
NEXT I

Result = WfrStatuses


Return

* * * * * * *
WfrStageUnloadQ:
* * * * * * *

ErrMsg('Notify FI TEAM if you get this message')

RETURN


RDSNo   = Parms[1,@RM]
RunRec  = Parms[COL2()+1,@RM]
StageID = Parms[COL2()+1,@RM]

IF RDSNo = '' THEN RETURN

IF RunRec = '' THEN
   RunRec = XLATE('REACT_RUN',RDSNo,'','X')
   IF RunRec = '' THEN RETURN
End

* Get Next Stages and Add 'DISP' stage to the end

RunWfrStages    = RunRec<REACT_RUN_WFR_STAGE$>

ValidStages = obj_Popup('AllCodes','GAN_WIP_STAGES')        ;* List of all valid GaN WIP Stage codes from the popup

WfrStages   = ''
InLocIDs    = ''

rwsCnt = COUNT(RunWfrStages,@VM) + (RunWfrStages NE '')

ResCnt = 0

FOR I = 1 TO rwsCnt

   LOCATE RunWfrStages<1,I> IN ValidStages USING @VM Setting Pos THEN

       NextStage = RunWfrStages<1,I+1>
       
       ColToReturn = 4
       
       ToolClass = obj_Popup('CodeDesc','GAN_WIP_STAGES':@RM:NextStage:@RM:ColToReturn)
       
       TCRec = XLATE('TOOL_CLASS',ToolClass,'','X')
       
       QInWH   = TCRec<TOOL_CLASS_QIN_WH$>
       QInLoc  = TCRec<TOOL_CLASS_QIN_LOC$>
       
       IF QInWH NE '' AND QInLoc NE '' THEN
       
           ResCnt += 1
           InLocIDs<1,ResCnt>  = QInWH:'*':QInLoc              ;* * Have a good location to unload into
           WfrStages<1,ResCnt> = RunWfrStages<1,I>
               
       END ELSE
       
           ResCnt += 1
           WfrStages<1,ResCnt> = RunWfrStages<1,I> ;* Disposition Stage
           InLocIDs<1,ResCnt> = 'GGR*Q_DISP'       ;* Unload into DISP(osition) Queue
               
       END
   END

NEXT I

IF StageID NE '' THEN
   LOCATE StageID IN WfrStages USING @VM SETTING RetPos THEN
       Result = InLocIDs<1,RetPos>
   END
END ELSE
   Result = InLocIDs
END

   
RETURN


* * * * * * *
StageUnloadQ:
* * * * * * *

* *  Returns Unload Location for GaN Run or Wfr processing stage code   * *

RDSNo 		= Parms[1,@RM]
RunRec		= Parms[COL2()+1,@RM]
StageID		= Parms[COL2()+1,@RM]

IF RDSNo = '' THEN RETURN
IF StageID = '' THEN RETURN

IF RunRec = '' THEN
	RunRec = XLATE('REACT_RUN',RDSNo,'','X')
	IF RunRec = '' THEN RETURN
End

AllStageData = Xlate('SYSREPOSPOPUPS','LSL2**GAN_WIP_STAGES',PDISPLAY$,'X')	;* Raw Data from Popup

CONVERT @VM:@SVM TO @FM:@VM IN AllStageData

AllStages		= ''
AllChars		= ''
AllToolClasses	= ''

aCnt = 0

LOOP

	StageLine = AllStageData[1,@FM]
	AllStageData[1,COL2()] = ''
	
UNTIL StageLine = ''

	IF StageLine<1,GWS$STAGE> NE '' AND StageLine<1,GWS$TOOL_CLASS> NE '' THEN
		aCnt += 1
		AllStages<1,aCnt>		= StageLine<1,GWS$STAGE>
		AllChars<1,aCnt>		= StageLine<1,GWS$CHAR>
		AllToolClasses<1,aCnt>	= StageLine<1,GWS$TOOL_CLASS>
	END
	
REPEAT

NextQ = ''

LOCATE StageID IN AllStages USING @VM SETTING Pos THEN

	IF AllChars<1,Pos> = 1 THEN
		ReactRunStages = RunRec<REACT_RUN_WFR_STAGE$>
	END ELSE
		ReactRunStages = RunRec<REACT_RUN_RUN_STAGE_KEY$>
		
		SWAP RDSNo:'*' WITH '' IN ReactRunStages			;* Strips "RDSNo*" from keys leaving just the stage
	END
END ELSE
	RETURN		;* No material movements specified
END


rrCnt = COUNT(ReactRunStages,@VM) + (ReactRunStages NE '')

IReactRunStages = ''
IReactRunToolClasses = ''

iCnt = 0

FOR I = 1 TO rrCnt

	ReactRunStage = ReactRunStages<1,I>
	
	LOCATE ReactRunStage IN AllStages USING @VM SETTING Pos THEN
		IF AllToolClasses<1,I> NE '' THEN
			iCnt += 1
			IReactRunStages<1,iCnt> = ReactRunStage
			IReactRunToolClasses<1,iCnt> = AllToolClasses<1,Pos>
		END
	END

NEXT I

LOCATE StageID IN IReactRunStages USING @VM SETTING RPos THEN
	NextStage		= IReactRunStages<1,RPos+1>
	NextToolClass	= IReactRunToolClasses<1,RPos+1>

	IF NextStage = '' THEN
		NextQ = 'GGR*Q_DISP'
	END ELSE			
		TCRec	= XLATE('TOOL_CLASS',NextToolClass,'','X')
		NextQ = TCRec<TOOL_CLASS_QIN_WH$>:'*':TCRec<TOOL_CLASS_QIN_LOC$>
	END
END

Result = NextQ
	
RETURN



* * * * * * *
GaNDispStatus:
* * * * * * *

RDSNo 	= Parms[1,@RM]
RunRec	= Parms[COL2()+1,@RM]


IF RDSNo = '' THEN RETURN

IF RunRec = '' THEN
	RunRec = XLATE('REACT_RUN',RDSNo,'','X')
	IF RunRec = '' THEN RETURN
END


RETURN

