COMPILE FUNCTION obj_GaN_Test(Method,Parms)

/*
	GaN Reports
	
	7/26/2016 JCH Initial Coding
	
	Methods:
	
	GetStatus				;* Returns GaN processing overview status
	
	
*/


DECLARE SUBROUTINE Btree.Extract, Set_Status, Send_Dyn, Btree.Extract, V119, ErrMsg
DECLARE FUNCTION obj_React_Run

$INSERT POPUP_EQUATES
$INSERT LOGICAL
$INSERT WO_LOG_EQUATES
$INSERT	REACT_RUN_EQUATES
$INSERT RUN_STAGE_EQUATES
$INSERT RUN_STAGE_WFR_EQUATES
$INSERT TOOL_EQUATES
$INSERT TOOL_CLASS_EQUATES
$INSERT TOOL_WFR_EQUATES
$INSERT LOCATION_EQUATES

EQU COL$STAGE			TO 1
EQU COL$RDS_NO			TO 2
EQU COL$WFR_ID			TO 3
EQU COL$WAIT_HRS		TO 4
EQU COL$EPI_PART_NO		TO 5
EQU COL$GAN_RUN_ID		TO 6
EQU COL$TOOL_TYPE		TO 7
EQU COL$WAIT_WFR_QTY	TO 8
EQU COL$TOOL_ID			TO 9
EQU COL$RUN_WFR			TO 10
EQU COL$RUN_HRS			TO 11



/*
EQU COL$			TO 8
EQU COL$			TO 9
EQU COL$			TO 10
EQU COL$			TO 11
EQU COL$			TO 12
*/

EQU CRLF$	TO \0D0A\
EQU TAB$ TO \09\

ErrTitle = 'Error in Stored Procedure "obj_GaN"'
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 = 'GetStatus'				; GOSUB GetStatus
	CASE Method = 'ToolWIP'					; GOSUB ToolWIP
	
	CASE 1
	
		* Put an error message here!

END CASE

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

RETURN Result


* * * * * * *
GetStatus:
* * * * * * *

PopupLiteral = XLATE('SYSREPOSPOPUPS', @APPID<1>:'**':'GAN_WIP_STAGES',PDISPLAY$,'X')

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

OPEN 'DICT.REACT_RUN' TO DictReactRun ELSE
	ErrorMsg = 'Unable to open "DICT.REACT_RUN" for Btree.Extract'
	RETURN
END

OPEN 'DICT.RUN_STAGE' TO DictRunStage ELSE
	ErrorMsg = 'Unable to open "DICT.RUN_STAGE" for Btree.Extract'
	RETURN
END

OPEN 'DICT.RUN_STAGE_WFR' TO DictRunStageWfr ELSE
	ErrorMsg = 'Unable to open "DICT.RUN_STAGE_WFR" for Btree.Extract'
	RETURN
END


LineCnt		= 0
StageCnt	= COUNT(PopupLiteral,@FM) + (PopupLiteral NE '')

Header  = 'Stage':@VM				;* Column headers for export
Header := 'RDS No':@VM
Header := 'Wait Wfr IDs':@VM
Header := 'Wait Hrs':@VM
Header := 'EPI Part No':@VM
Header := 'Run ID':@VM
Header := 'Tool Class':@VM
Header := 'Wait Cnt':@VM
Header := 'Tool ID':@VM
Header := 'Run Cnt':@VM
Header := 'Run Hrs':@VM
Header := 'Run Wfr IDs'


LineCnt += 1

Result<LineCnt> = Header

FOR S = 1 TO StageCnt

	Stage		= PopupLiteral<S,1>
	StageDesc	= PopupLiteral<S,2>
	CharFlag	= PopupLiteral<S,3>
	ToolClass	= PopupLiteral<S,4>
	ToolIDs 	= XLATE('TOOL_CLASS',ToolClass,TOOL_CLASS_TOOL$,'X')
	
	StageRdsNos			= ''
	StageWaitWfrIDs		= ''
	StageRunWfrIDs		= ''
	StageToolIDs		= ''
	StageWaitTms		= ''
	StageRunTms			= ''
	StageWaitWfrCnts	= ''
	StageRunWfrCnts		= ''
	
	BEGIN CASE
		CASE Stage = 'SPLIT'
			QInWfrIDs	= XLATE('LOCATION','GCH*Q_SP',LOCATION_WFR_ID$,'X')
			ToolClass	= 'GCH*Q_SP'
		
		CASE Stage = 'DISP'
			QInWfrIDs	= XLATE('LOCATION','GGR*Q_DISP',LOCATION_WFR_ID$,'X')
			ToolClass	= 'GGR*Q_DISP'
			
		CASE 1
	
			QInWfrIDs	= XLATE('TOOL_CLASS',ToolClass,'QIN_WFR_ID','X')
			
	END CASE
	
	* Collect data from places the wafers are stored in LOCATION (Queues), TOOL_WFR (On Tool
	
	
	* * * * *  Wafer Queues (LOCATION table)   * * * * *
	
	RDSNos		= XLATE('WO_WFR',QInWfrIDs,'RDS_NO','X')			;* Wafers in the Queue
	ElapTms		= XLATE('WO_WFR',QInWfrIDs,'ELAP_TM','X')			;* Times since last event
	
	rCnt = COUNT(RDSNos,@VM) + (RDSNos NE '')

	FOR R = 1 TO rCnt
		RDSNo		= RDSNos<1,R>
		ElapTm		= ElapTms<1,R>
		QInWfrID	= QInWfrIDs<1,R>
		
		LOCATE RDSNo IN StageRdsNos BY 'AR' USING @VM SETTING Pos THEN
			StageWaitWfrCnts<1,Pos>	= StageWaitWfrCnts<1,Pos> + 1
			StageWaitWfrIDs 		= INSERT(StageWaitWfrIDs,1,Pos,-1,QInWfrID)
		END ELSE
			StageWaitWfrCnts		= INSERT(StageWaitWfrCnts,1,Pos,0,1)
			StageRDSNos				= INSERT(StageRDSNos,1,Pos,0,RDSNo)
			StageWaitWfrIDs			= INSERT(StageWaitWfrIDs,1,Pos,0,QINWfrID)
			StageToolIDs			= INSERT(StageToolIDs,1,Pos,0,'')				;* Not on a tool this is the Queues
			StageWaitTms			= INSERT(StageWaitTms,1,Pos,0,ElapTm)
			StageRunTms				= INSERT(StageRunTms,1,Pos,0,'')
		END
		
	NEXT R
	
	* * * * *   Tool Queues    * * * * *
	
	tCnt = COUNT(ToolIDs,@VM) + (ToolIDs NE '')
	
	FOR T = 1 TO tCnt
	
		ToolID		= ToolIDs<1,T>
		RunWfrIDs	= XLATE('TOOL_WFR',ToolID,TOOL_WFR_WFR_ID$,'X')
			
		RDSNos		= XLATE('WO_WFR',RunWfrIDs,'RDS_NO','X')
		ElapTms		= XLATE('WO_WFR',RunWfrIDs,'ELAP_TM','X')
	
		rCnt = COUNT(RDSNos,@VM) + (RDSNos NE '')
		
		FOR R = 1 TO rCnt
			RDSNo		= RDSNos<1,R>
			ElapTm		= ElapTms<1,R>
			ToolWfrID	= RunWfrIDs<1,R>
			
			LOCATE RDSNo IN StageRDSNos BY 'AR' USING @VM SETTING Pos THEN
				StageRunWfrCnts<1,Pos>	= StageRunWfrCnts<1,Pos> + 1
				StageRunWfrIDs			= INSERT(StageRunWfrIDs,1,Pos,-1,ToolWfrID)
			END ELSE
				StageRunWfrCnts 		= INSERT(StageRunWfrCnts,1,Pos,0,1)
				StageRDSNos				= INSERT(StageRDSNos,1,Pos,0,RDSNo)
				StageRunWfrIDs			= INSERT(StageRunWfrIDs,1,Pos,0,ToolWfrID)
				StageToolIDs			= INSERT(StageToolIDs,1,Pos,0,ToolID)
				StageWaitTms			= INSERT(StageWaitTms,1,Pos,0,'')
				StageRunTms				= INSERT(StageRunTms,1,Pos,0,ElapTm)
			END
			
		NEXT R
		
	NEXT T
	
	
	* * * * *  Sort by DSND StageWaitTms
	
	SortArray = ''
	
	slCnt = COUNT(StageRDSNos,@VM) + (StageRDSNos NE '')
	
	FOR M = 1 TO slCnt
		SortLine  = StageWaitTms<1,M>:@FM
		SortLine := StageRDSNos<1,M>:@FM
		SortLine := StageWaitWfrIDs<1,M>:@FM
		SortLine := StageRunWfrIDs<1,M>:@FM
		SortLine := StageToolIDs<1,M>:@FM
		SortLine := StageRunTms<1,M>:@FM
		SortLine := StageWaitWfrCnts<1,M>:@FM
		SortLine := StageRunWfrCnts<1,M>
		SortArray := SortLine:@RM
	NEXT M
	
	a = LEN(SortArray)
	
	V119('S','','D','R',SortArray,'')
	
	IF Get_Status(errCode) THEN 
		ErrMsg(errCode)
	END
	
	StageWaitTms = ''
	StageRDSNos = ''
	StageWaitWfrIDs = ''
	StargeRunWfrIDs = ''
	StageToolIDs = ''
	StageRunTms = ''
	StageWaitWfrCnts = ''
	StageRunWfrCnts = ''
	
	Line = 0
	
	LOOP
		SortLine = SortArray[1,@RM]
		SortArray[1,COL2()] = ''
	UNTIL SortLine = ''
		Line += 1
		StageWaitTms<1,Line>		= SortLine<1>
		StageRDSNos<1,Line>			= SortLine<2>
		StageWaitWfrIDs<1,Line>		= SortLine<3>
		StageRunWfrIDs<1,Line>		= SortLine<4>
		StageToolIDs<1,Line>		= SortLine<5>
		StageRunTms<1,Line>			= SortLine<6>
		StageWaitWfrCnts<1,Line>	= SortLine<7>
		StageRunWfrCnts<1,Line>		= SortLine<8>
		 
	REPEAT
	
	
	
	* Build the stage lines
	
	StageLineCnt	= COUNT(StageRDSNos,@VM) + (StageRDSNos NE '')		;* All the RDS Nos in this stage
	
	Line  = Stage:@VM:@VM:@VM:@VM:@VM:@VM:@VM:@VM:@VM					;* Stage on a blank line for separator					
		
	LineCnt += 1
	Result<LineCnt> = Line
		
	For N = 1 TO StageLineCnt
		
		RDSNo	= StageRDSNos<1,N>
		RDSRec	= XLATE('REACT_RUN',RDSNo,'','X')

		EpiPartNo 	= XLATE('WO_LOG',RDSRec<REACT_RUN_WO_NO$>,WO_LOG_EPI_PART_NO$,'X')
		GanRunID	= RDSRec<REACT_RUN_GAN_RUN_ID$>
		
		WaitWfrIDs 	= StageWaitWfrIDs<1,N>
		RunWfrIDs	= StageRunWfrIDs<1,N>
		
		IF INDEX(WaitWfrIDs,@SVM,1) THEN WaitWfrIDs = 'Multi'
		IF INDEX(RunWfrIDs,@SVM,1) THEN RunWfrIDs = 'Multi'
		
		Line  = @VM							;* Place holder
		Line := RDSNo:@VM					;* RDSNo
		Line := WaitWfrIDs:@VM				;* Wafer ID
		Line := StageWaitTms<1,N>:@VM		;* Wait Times
		Line := EpiPartNo:@VM				;* EpiPartNo
		Line := GanRunID:@VM				;* GanRunID
		Line := ToolClass:@VM				;* Tool Class
		Line := StageWaitWfrCnts<1,N>:@VM	;* Wait Wfr Cnts
		Line := StageToolIDs<1,N>:@VM		;* Tool ID 
		Line := StageRunWfrCnts<1,N>:@VM	;* Run Wfr Cnts
		Line := StageRunTms<1,N>:@VM		;* Run Times
		Line := RunWfrIDs					;* Run Wfr IDs
		
		LineCnt += 1
		Result<LineCnt> = Line
		
	NEXT N
	
NEXT S


RETURN


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


* * * * * * *
ToolWIP:
* * * * * * *

PopupLiteral = XLATE('SYSREPOSPOPUPS', @APPID<1>:'**':'GAN_WIP_STAGES',PDISPLAY$,'X')

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

OPEN 'DICT.REACT_RUN' TO DictReactRun ELSE
	ErrorMsg = 'Unable to open "DICT.REACT_RUN" for Btree.Extract'
	RETURN
END

OPEN 'DICT.RUN_STAGE' TO DictRunStage ELSE
	ErrorMsg = 'Unable to open "DICT.RUN_STAGE" for Btree.Extract'
	RETURN
END

OPEN 'DICT.RUN_STAGE_WFR' TO DictRunStageWfr ELSE
	ErrorMsg = 'Unable to open "DICT.RUN_STAGE_WFR" for Btree.Extract'
	RETURN
END


LineCnt		= 0
StageCnt	= COUNT(PopupLiteral,@FM) + (PopupLiteral NE '')


Header  = 'Stage':@VM				;* Column headers for export
Header := 'Runs':@VM
Header := 'Tot Runs':@VM
Header := 'RDS No':@VM
Header := 'EPI Part No':@VM
Header := 'Run ID':@VM
Header := 'State':@VM
Header := 'Wfr Cnt':@VM
Header := 'Tool Type':@VM
Header := 'Tool ID'

LineCnt += 1

Result<LineCnt> = Header


FOR S = 1 TO StageCnt

	Stage		= PopupLiteral<S,1>
	StageDesc	= PopupLiteral<S,2>
	CharFlag	= PopupLiteral<S,3>
	ToolClass	= PopupLiteral<S,4>
	
	
	QInWfrIDs	= XLATE('TOOL_CLASS',ToolClass,'QIN_WFR_ID','X')
	RDSNos		= XLATE('WO_WFR',QInWfrIDs,'RDS_NO','X')
	
	
	
	
/*	
	
	IF CharFlag = 1 THEN
	
		Search = 'GAN_WFR_STAGE':@VM:Stage:@FM
		
		Btree.Extract(Search,'RUN_STAGE_WFR',DictRunStageWfr,RunStageWfrKeys,'','')
		
		rskCnt = COUNT(RunStageWfrKeys,@VM) + (RunStageWfrKeys NE '')
		
		StageRdsNos		= ''
		StageEpiPartNos	= ''
		StageGanRunIDs	= ''
		StageStates		= ''
		StageToolIDs	= ''
		RdsWfrCnts		= ''
		StageWfrCnt		= 0
		
		
		
		FOR I = 1 TO rskCnt
		
			RunStageWfrKey = RunStageWfrKeys<1,I>
			
			RunStageWfrRec = XLATE('RUN_STAGE_WFR',RunStageWfrKey,'','X')
			
			ToolID	= RunStageWfrRec<RUN_STAGE_WFR_TOOL_ID$>
			
			RDSNo = RunStageWfrKey[1,'*']
			
			CompBy		= RunStageWfrRec<RUN_STAGE_WFR_COMP_BY$>
			
			SigProfs	= RunStageWfrRec<RUN_STAGE_WFR_SPEC_INV_ACTION$>		;* Specified Inventory Actions
			Signatures	= RunStageWfrRec<RUN_STAGE_WFR_SIA_COMP_BY$>			;* Inv Action Complete signature
			
			spCnt = COUNT(SigProfs,@VM) + (SigProfs NE '')
			sCnt = COUNT(Signatures,@VM) + (Signatures NE '')
			
			State = ''
			
			IF spCnt = 2 THEN
				StartSig	= Signatures<1,1>
				EndSig		= Signatures<1,2>
				BEGIN CASE
					CASE EndSig NE '' 			; State = 'Comp'
					CASE StartSig NE ''			; State = 'Run'
					CASE 1						; State = 'Wait'
				END CASE
			END
	
			QInWfrIDs = XLATE('RUN_STAGE_WFR',RunStageWfrKey,'QIN_WFR_ID','X')
			QInQty = COUNT(QInWfrIDs,@VM) + (QInWfrIDs NE '')
			
			RDSNo = RunStageWfrKey[1,'*']
		
			RDSRec = XLATE('REACT_RUN',RDSNo,'','X')
			
			EpiPartNo 	= XLATE('WO_LOG',RDSRec<REACT_RUN_WO_NO$>,WO_LOG_EPI_PART_NO$,'X')
			GanRunID	= RDSRec<REACT_RUN_GAN_RUN_ID$>
			
			LOCATE RDSNo IN StageRdsNos BY 'AR' USING @VM  SETTING Pos THEN
				RDSWfrCnts<1,Pos> = RDSWfrCnts<1,Pos> + 1
			
			END ELSE
				StageRdsNos		= INSERT(StageRdsNos,1,Pos,0,RDSNo)
				StageEpiPartNos = INSERT(StageEpiPartNos,1,Pos,0,EpiPartNo)
				StageGanRunIDs	= INSERT(StageGanRunIDs,1,Pos,0,GanRunID)
				StageStates		= INSERT(StageStates,1,Pos,0,State)
				StageToolIDs	= INSERT(StageToolIDs,1,Pos,0,ToolID)
				RdsWfrCnts		= INSERT(RdsWfrCnts,1,Pos,0,1)
			END
			StageWfrCnt += WfrCnt
			
		NEXT I
		
		StageWfrCnt = SUM(RdsWfrCnts)
		
		StageLineCnt = Count(StageRDSNos,@VM) + (StageRDSNos NE '')
		
		IF StageLineCnt = 0 THEN
		
			Line  = Stage:@VM:@VM:@VM:@VM:@VM:@VM:@VM:@VM
			
			LineCnt += 1
			Result<LineCnt> = Line
			
		END ELSE
		
			For N = 1 TO StageLineCnt
				IF N = 1 THEN
					Line  = Stage:@VM					;* Stage
					Line := '':@VM						;* Active Runs
					Line := StageLineCnt:@VM			;* Total Runs
				END ELSE
					Line  = '':@VM
					Line := '':@VM
					Line := '':@VM
				END
				
				Line := StageRdsNos<1,N>:@VM		;* RDSNo
				Line := StageEpiPartNos<1,N>:@VM	;* EpiPartNo
				Line := StageGanRunIDs<1,N>:@VM		;* GanRunID
				Line := StageStates<1,N>:@VM		;* State
				Line := RdsWfrCnts<1,N>:@VM			;* RdsWfrCnt
				Line := ToolType:@VM				;* Tool Type for this stage
				Line := StageToolIDs<1,N>			;* Tool ID
				
				LineCnt += 1
				Result<LineCnt> = Line
				
			NEXT N
		END
				
	END ELSE
	
		IF Stage = 'DISP' THEN
		
			ToolType = ''
			
			Search = 'DISP_WFRS':@VM:1:@FM
		
			Btree.Extract(Search,'REACT_RUN',DictReactRun,RDSNos,'','')
			
			StageRdsNos		= ''
			StageEpiPartNos	= ''
			StageGanRunIDs	= ''
			StageStates		= ''
			StageToolIDs	= ''
			RdsWfrCnts		= ''
			StageWfrCnt		= 0
			
			rnCnt = COUNT(RDSNos,@VM) + (RDSNos NE '')
			
			FOR I = 1 TO rnCnt
				
				RDSNo = RDSNos<1,I>
			
				RDSRec = XLATE('REACT_RUN',RDSNo,'','X')
				
				EpiPartNo 	= XLATE('WO_LOG',RDSRec<REACT_RUN_WO_NO$>,WO_LOG_EPI_PART_NO$,'X')
				GanRunID	= RDSRec<REACT_RUN_GAN_RUN_ID$>
				CarrWfrs	= RDSRec<REACT_RUN_CARR_WFR_ID$>
				
				CONVERT @VM TO ' ' IN CarrWfrs
				CarrWfrs = TRIM(CarrWfrs)
				CONVERT ' ' TO @VM IN CarrWfrs
				
				WfrCnt = COUNT(CarrWfrs,@VM) + (CarrWfrs NE '')
				
				LOCATE RDSNo IN StageRdsNos BY 'AR' USING @VM  SETTING Pos THEN
			
					RDSWfrCnts<1,Pos> = RDSWfrCnts<1,Pos> + WfrCnt
				
				END ELSE
					StageRdsNos		= INSERT(StageRdsNos,1,Pos,0,RDSNo)
					StageEpiPartNos = INSERT(StageEpiPartNos,1,Pos,0,EpiPartNo)
					StageGanRunIDs	= INSERT(StageGanRunIDs,1,Pos,0,GanRunID)
					StageStates		= INSERT(StageStates,1,Pos,0,'')
					StageToolIDs	= INSERT(StageToolIDs,1,Pos,0,'')
					RdsWfrCnts		= INSERT(RdsWfrCnts,1,Pos,0,WfrCnt)
				END
				
				StageWfrCnt += WfrCnt
			
			NEXT I
		
		END ELSE
	
			Search = 'GAN_STAGE':@VM:Stage:@FM
		
			Btree.Extract(Search,'RUN_STAGE',DictRunStage,StageKeys,'','')
			
			StageRdsNos		= ''
			StageEpiPartNos	= ''
			StageGanRunIDs	= ''
			StageStates		= ''
			StageToolIDs	= ''
			RdsWfrCnts		= ''
			StageWfrCnt		= 0
			
			skCnt = COUNT(StageKeys,@VM) + (StageKeys NE '')
			
		
			FOR I = 1 TO skCnt
			
				StageKey = StageKeys<1,I>
				
				RunStageRec = XLATE('RUN_STAGE',StageKey,'','X')
				ToolType	= RunStageRec<RUN_STAGE_SPEC_TOOL_CLASS$>
				ToolID		= RunStageRec<RUN_STAGE_TOOL_ID$>
				
				QInWfrIDs = XLATE('RUN_STAGE',StageKey,'QIN_WFR_ID','X')
				
				SigProfs	= RunStageRec<RUN_STAGE_SPEC_INV_ACTION$>		;* Specified Inventory Actions
				Signatures	= RunStageRec<RUN_STAGE_SIA_COMP_BY$>			;* Inv Action Complete signature
			
				spCnt = COUNT(SigProfs,@VM) + (SigProfs NE '')
				sCnt = COUNT(Signatures,@VM) + (Signatures NE '')
				
				State = ''
				
				IF spCnt = 2 THEN
					StartSig	= Signatures<1,1>
					EndSig		= Signatures<1,2>
					BEGIN CASE
						CASE EndSig NE '' 			; State = 'Comp'
						CASE StartSig NE ''			; State = 'Run'
						CASE 1						; State = 'Wait'
					END CASE
				END
				
				RDSNo = StageKey[1,'*']
				
				RDSRec = XLATE('REACT_RUN',RDSNo,'','X')
				
	
				EpiPartNo 	= XLATE('WO_LOG',RDSRec<REACT_RUN_WO_NO$>,WO_LOG_EPI_PART_NO$,'X')
				GanRunID	= RDSRec<REACT_RUN_GAN_RUN_ID$>
				WfrCnt		= COUNT(RDSRec<REACT_RUN_IN_WFR_ID$>,@VM) + (RDSRec<REACT_RUN_IN_WFR_ID$> NE '')
				
				LOCATE RDSNo IN StageRdsNos BY 'AR' USING @VM  SETTING Pos THEN
					RDSWfrCnts<1,Pos> = RDSWfrCnts<1,Pos> + WfrCnt
				
				END ELSE
					StageRdsNos		= INSERT(StageRdsNos,1,Pos,0,RDSNo)
					StageEpiPartNos = INSERT(StageEpiPartNos,1,Pos,0,EpiPartNo)
					StageGanRunIDs	= INSERT(StageGanRunIDs,1,Pos,0,GanRunID)
					StageStates		= INSERT(StageStates,1,Pos,0,State)
					StageToolIDs	= INSERT(StageToolIDs,1,Pos,0,ToolID)
					RdsWfrCnts		= INSERT(RdsWfrCnts,1,Pos,0,WfrCnt)
				END
				
				StageWfrCnt += WfrCnt
				
			NEXT I
			
		END	;* End of check for DISPO stage
			
		StageWfrCnt = SUM(RdsWfrCnts)
			
		StageLineCnt = Count(StageRDSNos,@VM) + (StageRDSNos NE '')
		
		IF StageLineCnt = 0 THEN
		
			Line  = Stage:@VM:@VM:@VM:@VM:@VM:@VM:@VM:@VM
			
			LineCnt += 1
			Result<LineCnt> = Line
			
		END ELSE
			
			FOR N = 1 TO StageLineCnt
				IF N = 1 THEN
					Line  = Stage:@VM					;* Stage
					Line := '':@VM						;* Active Runs
					Line := StageLineCnt:@VM			;* Total Runs
				END ELSE
					Line  = '':@VM
					Line := '':@VM
					Line := '':@VM
				END
				
				Line := StageRdsNos<1,N>:@VM		;* RDSNo
				Line := StageEpiPartNos<1,N>:@VM	;* EpiPartNo
				Line := StageGanRunIDs<1,N>:@VM		;* GanRunID
				Line := StageStates<1,N>:@VM		;* State
				Line := RdsWfrCnts<1,N>:@VM			;* RdsWfrCnt
				Line := ToolType:@VM				;* Tool Type for this stage
				Line := StageToolIDs<1,N>
				
				LineCnt += 1
				Result<LineCnt> = Line
					
			NEXT N
			
		END	;* End of check for 0 StageLineCnt
		
		
	END
*/

NEXT S


RETURN