added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
692
LSL2/STPROC/OBJ_GAN_TEST.txt
Normal file
692
LSL2/STPROC/OBJ_GAN_TEST.txt
Normal file
@ -0,0 +1,692 @@
|
||||
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>
|
||||
|
||||
IF @USERNAME = 'BRYCE_BARB' THEN DEBUG
|
||||
|
||||
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$>
|
||||
|
||||
|
||||
|
||||
If @USERNAME = 'BRYCE_BARB' Then
|
||||
DEBUG
|
||||
QInWfrIDs = Xlate('TOOL_CLASS',ToolType,'QIN_WFR_ID','X')
|
||||
END
|
||||
|
||||
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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user