536 lines
19 KiB
Plaintext
536 lines
19 KiB
Plaintext
COMPILE FUNCTION obj_GaN_Dev(Method,Parms)
|
|
#pragma precomp SRP_PreCompiler
|
|
|
|
/*
|
|
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, Database_Services
|
|
DECLARE FUNCTION obj_React_Run, Database_Services, SRP_Array, Gan_Services
|
|
|
|
$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
|
|
$INSERT APP_INSERTS
|
|
$INSERT WO_WFR_EQUATES
|
|
$INSERT TOOL_ETCH_EQUATES
|
|
|
|
EQU COL$STAGE TO 1
|
|
EQU COL$RDS_NO TO 2
|
|
EQU COL$GAN_RUN_ID TO 3
|
|
EQU COL$EPI_PART_NO TO 4
|
|
EQU COL$WAIT_TOOL_TYPE TO 5
|
|
EQU COL$WAIT_WFR_QTY TO 6
|
|
EQU COL$WAIT_HRS TO 7
|
|
EQU COL$WAIT_WFR_ID TO 8
|
|
|
|
EQU COL$TOOL_ID TO 9
|
|
EQU COL$RUN_WFR TO 10
|
|
EQU COL$RUN_HRS TO 11
|
|
EQU COL$RUN_WFR_ID TO 12
|
|
|
|
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 Otherwise$ ; Null
|
|
|
|
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 := 'Run ID':@VM
|
|
Header := 'EPI Part No':@VM
|
|
|
|
Header := 'Tool Class':@VM
|
|
Header := 'Wait Cnt':@VM
|
|
Header := 'Wait Hrs':@VM
|
|
Header := 'Wait Wfr IDs':@VM
|
|
Header := 'Priority':@VM
|
|
|
|
Header := 'Tool ID':@VM
|
|
Header := 'Run Cnt':@VM
|
|
Header := 'Run Hrs':@VM
|
|
Header := 'Run Wfr IDs':@VM
|
|
Header := 'Run Priority'
|
|
|
|
LineCnt += 1
|
|
|
|
Result<LineCnt> = Header
|
|
|
|
FOR S = 1 TO StageCnt
|
|
|
|
Stage = PopupLiteral<S,1>
|
|
StageDesc = PopupLiteral<S,2>
|
|
CharFlag = PopupLiteral<S,3>
|
|
ToolClasses = PopupLiteral<S,4>
|
|
|
|
ToolIDs = ''
|
|
For each ToolClass in ToolClasses using ','
|
|
TempToolIDs = XLATE('TOOL_CLASS', ToolClass, TOOL_CLASS_TOOL$, 'X')
|
|
ToolIDs = SRP_Array('Join', TempToolIDs, ToolIDs, 'OR', @VM)
|
|
Next ToolClass
|
|
|
|
StageRdsNos = ''
|
|
StageWaitIDs = ''
|
|
StageRunIDs = ''
|
|
StageToolIDs = ''
|
|
StageWaitTms = ''
|
|
StageRunTms = ''
|
|
StageWaitCnts = ''
|
|
StageRunCnts = ''
|
|
|
|
* Stages do not have a tool class have their queue ID hardcoded below
|
|
BEGIN CASE
|
|
Case Stage _EQC 'ETCH'
|
|
QInEtchIDs = XLATE('LOCATION','GCH*Q_ETCH',LOCATION_ETCH_ID$,'X')
|
|
ToolClass = 'G_REACT'
|
|
Case Stage _EQC 'GROWTH'
|
|
QInCassIDs = XLATE('LOCATION','GCH*Q_GROWTH',LOCATION_CASS_ID$,'X')
|
|
ToolClass = 'G_REACT'
|
|
Case Stage _EQC 'G_RATE'
|
|
QInWfrIDs = XLATE('LOCATION','GCH*Q_RATE',LOCATION_WFR_ID$,'X')
|
|
ToolClass = 'G_REACT'
|
|
Case Stage _EQC 'WET_CLEAN'
|
|
QInWfrIDs = Xlate('LOCATION','GCH*CLEAN_Q',LOCATION_WFR_ID$,'X')
|
|
ToolClass = 'GCH*CLEAN_Q'
|
|
Case Stage _EQC 'SPLIT'
|
|
QInWfrIDs = XLATE('LOCATION','GCH*SPLIT_Q',LOCATION_WFR_ID$,'X')
|
|
ToolClass = 'GCH*Q_SP'
|
|
Case Stage _EQC 'DISP'
|
|
QInWfrIDs = XLATE('LOCATION','GGR*Q_DISP',LOCATION_WFR_ID$,'X')
|
|
ToolClass = 'GGR*Q_DISP'
|
|
Case Stage _EQC 'G_PACK'
|
|
QInWfrIDs = XLATE('LOCATION','GCH*Q_PACK',LOCATION_WFR_ID$,'X')
|
|
ToolClass = 'GCH*Q_PACK'
|
|
Case Stage _EQC 'RETAIN'
|
|
QInWfrIDs = Xlate('LOCATION','GCH*Q_RETAIN',LOCATION_WFR_ID$,'X')
|
|
ToolClass = 'GCH*Q_RETAIN'
|
|
Case Otherwise$
|
|
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) * * * * *
|
|
|
|
Begin Case
|
|
|
|
Case Stage EQ 'GROWTH'
|
|
RDSNos = Xlate('WO_MAT', QInCassIDs, 'RDS_NO', 'X')
|
|
ElapTms = Xlate('WO_MAT', QInCassIDs, 'ELAP_TM', 'X')
|
|
|
|
rCnt = DCount(RdSNos, @VM)
|
|
|
|
FOR R = 1 TO rCnt
|
|
RDSNo = RDSNos<1,R>
|
|
ElapTm = ElapTms<1,R>
|
|
|
|
LOCATE RDSNo IN StageRdsNos BY 'AR' USING @VM SETTING Pos ELSE
|
|
StageWaitCnts = INSERT(StageWaitCnts,1,Pos,0,'') ;* No wafers yet (we are at the cassette level)
|
|
StageRDSNos = INSERT(StageRDSNos,1,Pos,0,RDSNo)
|
|
StageWaitIDs = INSERT(StageWaitIDs,1,Pos,0,'') ;* No wafer IDs yet (we are at the cassette level)
|
|
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
|
|
|
|
Case Stage EQ 'ETCH'
|
|
|
|
For each QInEtchID in QInEtchIDs using @VM
|
|
ElapTm = Xlate('GAN_ETCH', QInEtchID, 'ELAP_HOURS', 'X')
|
|
LOCATE QInEtchID IN StageRDSNos BY 'AR' USING @VM SETTING Pos THEN
|
|
StageRunCnts<1,Pos> = StageRunCnts<1,Pos> + 1
|
|
StageRunIDs = INSERT(StageRunIDs,1,Pos,-1,QInEtchID)
|
|
END ELSE
|
|
StageWaitCnts = INSERT(StageWaitCnts,1,Pos,0,'')
|
|
StageRDSNos = INSERT(StageRDSNos,1,Pos,0, QInEtchID)
|
|
StageWaitIDs = INSERT(StageWaitIDs,1,Pos,0, '')
|
|
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 QInEtchID
|
|
|
|
|
|
Case Otherwise$
|
|
|
|
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 = DCount(QInWfrIDs, @VM)
|
|
|
|
FOR R = 1 TO rCnt
|
|
RDSNo = RDSNos<1,R>
|
|
ElapTm = ElapTms<1,R>
|
|
QInWfrID = QInWfrIDs<1,R>
|
|
|
|
If Stage _EQC 'DISP' then
|
|
ReactRunRec = Database_Services('ReadDataRow', 'REACT_RUN', RDSNo)
|
|
InWfrIDs = ReactRunRec<REACT_RUN_IN_WFR_ID$>
|
|
NumWfrsInCass = DCount(InWfrIDs, @VM)
|
|
NumDispWfrs = 0
|
|
For each WOWfrID in InWfrIDs using @VM setting vPos
|
|
ThisWOWfrRec = Database_Services('ReadDataRow', 'WO_WFR', WOWfrID)
|
|
LocQs = ThisWOWfrRec<WO_WFR_INV_LOC$>
|
|
Locate 'GGR*Q_DISP' in LocQs using @VM setting vPos then
|
|
// Wafer has been dispositioned at some point
|
|
NumDispWfrs += 1
|
|
end
|
|
Next WOWfrID
|
|
If NumWfrsInCass NE NumDispWfrs then ElapTm = '0.0'
|
|
end
|
|
|
|
LOCATE RDSNo IN StageRdsNos BY 'AR' USING @VM SETTING Pos THEN
|
|
StageWaitCnts<1,Pos> = StageWaitCnts<1,Pos> + 1
|
|
StageWaitIDs = INSERT(StageWaitIDs,1,Pos,-1,QInWfrID)
|
|
END ELSE
|
|
StageWaitCnts = INSERT(StageWaitCnts,1,Pos,0,1)
|
|
StageRDSNos = INSERT(StageRDSNos,1,Pos,0,RDSNo)
|
|
StageWaitIDs = INSERT(StageWaitIDs,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
|
|
|
|
End Case
|
|
|
|
* * * * * Tool Queues * * * * *
|
|
|
|
tCnt = COUNT(ToolIDs,@VM) + (ToolIDs NE '')
|
|
|
|
FOR T = 1 TO tCnt
|
|
ToolID = ToolIDs<1,T>
|
|
If Stage NE 'ETCH' then
|
|
|
|
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 = DCount(RDSNos, @VM)
|
|
|
|
FOR R = 1 TO rCnt
|
|
|
|
Skip = False$
|
|
RDSNo = RDSNos<1,R>
|
|
ElapTm = ElapTms<1,R>
|
|
ToolWfrID = RunWfrIDs<1,R>
|
|
|
|
If ( (Stage NE 'G_RDS') and (Stage NE 'GROWTH') and (Stage NE 'G_RATE') ) then
|
|
WfrID = ToolWfrID
|
|
Convert '*' to '.' in WfrID
|
|
RunStageWfrRec = Database_Services('ReadDataRow', 'RUN_STAGE_WFR', RDSNo:'*':Stage:'*':WfrID)
|
|
ToolClass = RunStageWfrRec<RUN_STAGE_WFR_SPEC_TOOL_CLASS$>
|
|
StageStatus = RunStageWfrRec<RUN_STAGE_WFR_STATUS$>
|
|
RunStageID = Gan_Services('GetStageID', '', '', ToolClass)
|
|
If ( (RunStageID NE Stage) or (StageStatus NE 'START') ) then Skip = True$
|
|
end
|
|
|
|
If Skip EQ False$ then
|
|
If RDSNo NE '' then
|
|
LOCATE RDSNo IN StageRDSNos BY 'AR' USING @VM SETTING Pos THEN
|
|
StageRunCnts<1,Pos> = StageRunCnts<1,Pos> + 1
|
|
StageRunIDs = INSERT(StageRunIDs,1,Pos,-1,ToolWfrID)
|
|
Locate ToolID in StageToolIDs using @VM setting tPos else
|
|
StageToolIDs = INSERT(StageToolIDs,1,Pos,-1,ToolID)
|
|
end
|
|
Locate ElapTm in StageRunTms using @VM setting ePos else
|
|
StageRunTms = INSERT(StageRunTms,1,Pos,0,ElapTm)
|
|
end
|
|
END ELSE
|
|
StageRunCnts = INSERT(StageRunCnts,1,Pos,0,1)
|
|
StageRDSNos = INSERT(StageRDSNos,1,Pos,0,RDSNo)
|
|
StageRunIDs = INSERT(StageRunIDs,1,Pos,0,ToolWfrID)
|
|
StageToolIDs = INSERT(StageToolIDs,1,Pos,0,ToolID)
|
|
StageWaitTms = INSERT(StageWaitTms,1,Pos,0,'')
|
|
StageRunTms = INSERT(StageRunTms,1,Pos,0,ElapTm)
|
|
StageWaitIDs = INSERT(StageWaitIDs,1,Pos,0,'')
|
|
StageWaitCnts = INSERT(StageWaitCnts,1,Pos,0,'')
|
|
END
|
|
end
|
|
end
|
|
NEXT R
|
|
|
|
end else
|
|
|
|
// Etch stage
|
|
RunEtchIDs = XLATE('TOOL_ETCH', ToolID, TOOL_ETCH_ETCH_ID$, 'X')
|
|
|
|
For each ToolEtchID in RunEtchIDs using @VM setting tPos
|
|
GaNEtchKey = Field(ToolEtchID, '-', 2)
|
|
ElapTm = XLATE('GAN_ETCH', GaNEtchKey, 'ELAP_HOURS', 'X')
|
|
LocEvents = XLATE('GAN_ETCH', GaNEtchKey, 'LOC_EVENT', 'X')
|
|
EtchStartStatus = LocEvents<1,2> EQ 'START'
|
|
EtchStopStatus = LocEvents<1,3> EQ 'STOP'
|
|
|
|
If (EtchStartStatus EQ True$) and (EtchStopStatus EQ False$) then
|
|
LOCATE ToolEtchID IN StageRDSNos BY 'AR' USING @VM SETTING Pos THEN
|
|
StageRunCnts<1,Pos> = StageRunCnts<1,Pos> + 1
|
|
StageRunIDs = INSERT(StageRunIDs,1,Pos,-1,ToolEtchID)
|
|
StageToolIDs = INSERT(StageToolIDs,1,Pos,0,ToolID)
|
|
StageRunTms = INSERT(StageRunTms,1,Pos,0,ElapTm)
|
|
END ELSE
|
|
StageRunCnts = INSERT(StageRunCnts,1,Pos,0,1)
|
|
StageRDSNos = INSERT(StageRDSNos,1,Pos,0,ToolEtchID)
|
|
StageRunIDs = INSERT(StageRunIDs,1,Pos,0,ToolEtchID)
|
|
StageToolIDs = INSERT(StageToolIDs,1,Pos,0,ToolID)
|
|
StageWaitTms = INSERT(StageWaitTms,1,Pos,0,'')
|
|
StageRunTms = INSERT(StageRunTms,1,Pos,0,ElapTm)
|
|
END
|
|
end
|
|
Next ToolEtchID
|
|
end
|
|
|
|
NEXT T
|
|
|
|
* Build the stage lines
|
|
|
|
* * * * * Sort by DSND StageWaitTms
|
|
SortArray = ''
|
|
slCnt = DCount(StageRDSNos, @VM)
|
|
|
|
FOR M = 1 TO slCnt
|
|
SortLine = StageWaitTms<1,M>:@FM
|
|
SortLine := StageRDSNos<1,M>:@FM
|
|
SortLine := StageWaitIDs<1,M>:@FM
|
|
SortLine := StageRunIDs<1,M>:@FM
|
|
SortLine := StageToolIDs<1,M>:@FM
|
|
SortLine := StageRunTms<1,M>:@FM
|
|
SortLine := StageWaitCnts<1,M>:@FM
|
|
SortLine := StageRunCnts<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 = ''
|
|
StageWaitIDs = ''
|
|
StargeRunWfrIDs = ''
|
|
StageToolIDs = ''
|
|
StageRunTms = ''
|
|
StageWaitCnts = ''
|
|
StageRunCnts = ''
|
|
|
|
Line = 0
|
|
|
|
LOOP
|
|
SortLine = SortArray[1,@RM]
|
|
SortArray[1,COL2()] = ''
|
|
UNTIL SortLine = ''
|
|
Line += 1
|
|
StageWaitTms<1,Line> = SortLine<1>
|
|
StageRDSNos<1,Line> = SortLine<2>
|
|
StageWaitIDs<1,Line> = SortLine<3>
|
|
StageRunIDs<1,Line> = SortLine<4>
|
|
StageToolIDs<1,Line> = SortLine<5>
|
|
StageRunTms<1,Line> = SortLine<6>
|
|
StageWaitCnts<1,Line> = SortLine<7>
|
|
StageRunCnts<1,Line> = SortLine<8>
|
|
|
|
REPEAT
|
|
If Stage EQ 'ETCH' then
|
|
|
|
StageLineCnt = DCount(StageRunIDs,@VM) + DCount(StageWaitIDs,@VM) + DCount(StageRDSNos,@VM)
|
|
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
|
|
EtchID = StageRunIDs<1,N>
|
|
WaitWfrIDs = StageWaitIDs<1,N>
|
|
RunWfrIDs = StageRunIDs<1,N>
|
|
WaitWfrPri = ''
|
|
RunWfrPri = ''
|
|
Line = @VM ;* Place holder
|
|
Line := @VM ;* RDSNo
|
|
Line := EtchID:@VM ;* EtchID (from Etch manager)
|
|
Line := @VM ;* EpiPartNo
|
|
Line := @VM ;* Run Priority
|
|
Line := StageWaitCnts<1,N>:@VM ;* Wait Wfr Cnts
|
|
Line := StageWaitTms<1,N>:@VM ;* Wait Times
|
|
Line := WaitWfrIDs:@VM ;* Wafer ID
|
|
Line := StageToolIDs<1,N>:@VM ;* Tool ID
|
|
Line := @VM ;* Run Wfr Cnts
|
|
Line := StageRunTms<1,N>:@VM ;* Run Times
|
|
Line := @VM ;* Run Wfr IDs
|
|
LineCnt += 1
|
|
Result<LineCnt> = Line
|
|
Next N
|
|
|
|
end else
|
|
|
|
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$>
|
|
RunPri = RDSRec<REACT_RUN_RUN_PRI$>
|
|
WaitWfrIDs = StageWaitIDs<1,N>
|
|
RunWfrIDs = StageRunIDs<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 := GanRunID:@VM ;* GanRunID
|
|
Line := EpiPartNo:@VM ;* EpiPartNo
|
|
Line := RunPri:@VM ;* Run Priority
|
|
Line := StageWaitCnts<1,N>:@VM ;* Wait Wfr Cnts
|
|
Line := StageWaitTms<1,N>:@VM ;* Wait Times
|
|
Line := WaitWfrIDs:@VM ;* Wafer I
|
|
Line := StageToolIDs<1,N>:@VM ;* Tool ID
|
|
Line := StageRunCnts<1,N>:@VM ;* Run Wfr Cnts
|
|
Line := StageRunTms<1,N>:@VM ;* Run Times
|
|
Line := RunWfrIDs:@VM ;* Run Wfr IDs
|
|
LineCnt += 1
|
|
Result<LineCnt> = Line
|
|
NEXT N
|
|
end
|
|
|
|
NEXT S
|
|
|
|
Database_Services('WriteDataRow', 'APP_INFO', 'GAN_WIP', Result, True$, False$, True$)
|
|
|
|
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')
|
|
|
|
NEXT S
|
|
|
|
|
|
RETURN
|
|
|
|
|