added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
614
LSL2/STPROC/OBJ_OEE.txt
Normal file
614
LSL2/STPROC/OBJ_OEE.txt
Normal file
@ -0,0 +1,614 @@
|
||||
COMPILE FUNCTION obj_OEE(Method,Parms)
|
||||
/*
|
||||
Calculations methods for OEE
|
||||
|
||||
12/13/2004 JCH - Initial Coding
|
||||
|
||||
Properties:
|
||||
|
||||
Methods:
|
||||
|
||||
ReactorDetail(StartDt,EndDt,Reactors,CustNo) ;* Returns 4 digit IR Fiscal year for date passed in
|
||||
|
||||
*/
|
||||
|
||||
|
||||
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, obj_RDS, Set_Property
|
||||
DECLARE SUBROUTINE Set_Status, ErrMsg, obj_Tables, Btree.Extract, Make.List, Send_Info
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT OEE_RESULTS_EQUATES
|
||||
$INSERT WO_MASTER_SCHED_EQU
|
||||
|
||||
EQU YELLOW$ TO 255 + (255*256) + (0*65536) ;* Full yellow - non application standard
|
||||
|
||||
ErrTitle = 'Error in Stored Procedure "obj_OEE"'
|
||||
ErrorMsg = ''
|
||||
|
||||
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 = 'ReactorDetail' ; GOSUB ReactorDetail
|
||||
CASE 1 ; ErrorMsg = 'Unknown method ':QUOTE(Method):' passed to routine'
|
||||
END CASE
|
||||
|
||||
IF ErrorMsg NE '' THEN
|
||||
Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
|
||||
RETURN ''
|
||||
END
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReactorDetail:
|
||||
* * * * * * *
|
||||
|
||||
StartDt = Parms[1,@RM] ;* Always passed in OCONV'd format
|
||||
EndDt = Parms[COL2()+1,@RM]
|
||||
Reactors = Parms[COL2()+1,@RM]
|
||||
CustNo = Parms[COL2()+1,@RM]
|
||||
|
||||
IF NOT(ASSIGNED(StartDt)) THEN ErrorMsg = 'Unassigned parameter "StartDt" passed to routine. (':Method:').'
|
||||
IF NOT(ASSIGNED(EndDt)) THEN ErrorMsg = 'Unassigned parameter "EndDt" passed to routine. (':Method:').'
|
||||
IF StartDt = '' THEN ErrorMsg = 'Null parameter "StartDt" passed to routine. (':Method:').'
|
||||
IF NOT(ASSIGNED(Reactors)) THEN Reactors = ''
|
||||
IF NOT(ASSIGNED(CustNo)) THEN CustNo = ''
|
||||
|
||||
IF ErrorMsg NE '' THEN RETURN
|
||||
|
||||
thisStartDt = ICONV(StartDt,'D')
|
||||
|
||||
IF thisStartDt = '' THEN
|
||||
ErrorMsg = 'Invalid Date ':QUOTE(StartDt):' passed to routine. (':Method:').'
|
||||
END
|
||||
|
||||
IF EndDt = '' THEN
|
||||
EndDt = OCONV(Date(),'D4/')
|
||||
thisEndDt = Date()
|
||||
END ELSE
|
||||
|
||||
thisEndDt = ICONV(EndDt,'D')
|
||||
|
||||
IF thisEndDt = '' THEN
|
||||
ErrorMsg = 'Invalid Date ':QUOTE(EndDt):' passed to routine. (':Method:').'
|
||||
END
|
||||
END
|
||||
|
||||
IF ErrorMsg THEN RETURN
|
||||
|
||||
OPEN 'CONFIG' TO ConfigTable ELSE
|
||||
ErrorMsg = 'Unable to open CONFIG table. (':Method:').'
|
||||
RETURN
|
||||
END
|
||||
|
||||
OPEN 'REACT_UTIL' TO DataTable ELSE
|
||||
ErrorMsg = 'Unable to open REACT_UTIL Table. (':Method:').'
|
||||
RETURN
|
||||
END
|
||||
|
||||
OPEN 'DICT.REACT_UTIL' TO @DICT ELSE
|
||||
ErrorMsg = 'Unable to open DICT.REACT_UTIL Table. (':Method:').'
|
||||
RETURN
|
||||
END
|
||||
|
||||
ReactModeCodes = ''
|
||||
ReactModes = ''
|
||||
|
||||
PopupData = XLATE('SYSREPOSPOPUPS','LSL2**REACTOR_MODE',8,'X') ;* Retrieve List of Reactor modes from Popup record
|
||||
Code = ''
|
||||
|
||||
FOR I = 1 TO COUNT(PopupData,@VM) + (@VM NE '')
|
||||
Code = PopupData<1,I,1>
|
||||
Desc = PopupData<1,I,2>
|
||||
LOCATE Code IN ReactModeCodes BY 'AL' USING @FM Setting Pos ELSE
|
||||
ReactModeCodes = INSERT(ReactModeCodes,Pos,0,0,Code)
|
||||
ReactModes = INSERT(ReactModes,Pos,0,0,Desc) ;* Put description in second value
|
||||
END
|
||||
NEXT I
|
||||
ReactModeCnt = COUNT(ReactModeCodes,@FM) + (ReactModeCodes NE '')
|
||||
|
||||
OrgColor = Set_Property(@WINDOW:'.STATUS_LINE','BACKCOLOR',YELLOW$)
|
||||
|
||||
|
||||
IF Reactors = '' THEN
|
||||
*READV MaxReacts FROM ConfigTable,'WO_MAST_SCHED',MaxReacts$ ELSE
|
||||
* DEBUG
|
||||
*END
|
||||
|
||||
FOR I = 20 TO 74
|
||||
Reactors<-1> = I
|
||||
NEXT I
|
||||
END
|
||||
|
||||
ReactorCnt = COUNT(Reactors,@FM) + (Reactors NE '')
|
||||
|
||||
ReactModeHrs = STR(@FM,ReactorCnt-1) ;* This is the reactor mode array that contains basic reactor mode hour totals <ReactLine,ModeCol>
|
||||
FOR I = 1 TO ReactorCnt
|
||||
ReactModeHrs<I> = STR(@VM,ReactModeCnt-1)
|
||||
NEXT I
|
||||
|
||||
ReactTotalHrs = STR(@FM,ReactorCnt-1)
|
||||
ProdTime = STR(@FM,ReactorCnt-1)
|
||||
StandbyTime = STR(@FM,ReactorCnt-1)
|
||||
EngineeringTime = STR(@FM,ReactorCnt-1)
|
||||
SchedDownTime = STR(@FM,ReactorCnt-1)
|
||||
UnSchedDownTime = STR(@FM,ReactorCnt-1)
|
||||
NonSchedTime = STR(@FM,ReactorCnt-1)
|
||||
MaintTime = STR(@FM,ReactorCnt-1)
|
||||
OEETotalHours = STR(@FM,ReactorCnt-1)
|
||||
ManufTime = STR(@FM,ReactorCnt-1)
|
||||
EquipUpTime = STR(@FM,ReactorCnt-1)
|
||||
EquipDownTime = STR(@FM,ReactorCnt-1)
|
||||
SEMITime = STR(@FM,ReactorCnt-1)
|
||||
ProdPcnt = STR(@FM,ReactorCnt-1)
|
||||
StandbyPcnt = STR(@FM,ReactorCnt-1)
|
||||
EngineeringPcnt = STR(@FM,ReactorCnt-1)
|
||||
SchedDownPcnt = STR(@FM,ReactorCnt-1)
|
||||
UnSchedDownPcnt = STR(@FM,ReactorCnt-1)
|
||||
NonSchedPcnt = STR(@FM,ReactorCnt-1)
|
||||
ManufPcnt = STR(@FM,ReactorCnt-1)
|
||||
EquipUpPcnt = STR(@FM,ReactorCnt-1)
|
||||
EquipDownPcnt = STR(@FM,ReactorCnt-1)
|
||||
SEMIPcnt = STR(@FM,ReactorCnt-1)
|
||||
OperUptimePcnt = STR(@FM,ReactorCnt-1)
|
||||
OperUtilPcnt = STR(@FM,ReactorCnt-1)
|
||||
TotUtilPcnt = STR(@FM,ReactorCnt-1)
|
||||
|
||||
|
||||
|
||||
FOR R = 1 TO ReactorCnt
|
||||
Reactor = Reactors<R>
|
||||
|
||||
Send_Info('Selecting Reactor ':Reactors<R>:' Run Data Sheets....')
|
||||
|
||||
|
||||
ReactorSearch = 'REACTOR':@VM:Reactors<R>:@FM
|
||||
|
||||
* Find Last last REACT_UTIL record with a Start Date PRIOR to Report Start Date
|
||||
|
||||
SearchDt = thisStartDt
|
||||
LOOP
|
||||
Search = ReactorSearch
|
||||
Search := 'START_DATE':@VM:'=':OCONV(SearchDt,'D'):@FM
|
||||
|
||||
BTREE.EXTRACT(Search,'REACT_UTIL',@DICT,StartKeys,'',flag)
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
UNTIL StartKeys NE '' OR (thisStartDt - SearchDt > 30)
|
||||
SearchDt -= 1
|
||||
REPEAT
|
||||
|
||||
IF SearchDt NE thisStartDt THEN
|
||||
FirstKey = StartKeys[-1,'B':@VM]
|
||||
END ELSE
|
||||
FirstKey = ''
|
||||
END
|
||||
|
||||
|
||||
* Begin Selections of keys with start dates and with end dates
|
||||
|
||||
Search = ReactorSearch
|
||||
Search := 'END_DATE':@VM:OCONV(thisStartDt-1,'D'):'~':OCONV(thisEndDt+1,'D'):@FM
|
||||
|
||||
IF CustNo NE '' THEN
|
||||
Search := 'CUST_NO':@VM:CustNo:@FM
|
||||
END
|
||||
|
||||
BTREE.EXTRACT(Search,'REACT_UTIL',@DICT,ENDKeys,'',flag)
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
Search = ReactorSearch
|
||||
Search := 'START_DATE':@VM:OCONV(thisStartDt-1,'D'):'~':OCONV(thisEndDt+1,'D'):@FM
|
||||
|
||||
IF CustNo NE '' THEN
|
||||
Search := 'CUST_NO':@VM:CustNo:@FM
|
||||
END
|
||||
|
||||
BTREE.EXTRACT(Search,'REACT_UTIL',@DICT,StartKeys,'',flag)
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
FOR I = 1 TO COUNT(StartKeys,@VM) + (StartKeys NE '')
|
||||
StartKey = StartKeys<1,I>
|
||||
LOCATE StartKey IN ENDKeys BY 'AR' USING @VM SETTING POS ELSE
|
||||
ENDKeys = INSERT(ENDKeys,1,Pos,0,StartKey)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
IF FirstKey NE '' THEN
|
||||
LOCATE FirstKey IN ENDKeys USING @VM SETTING Dummy ELSE
|
||||
ENDKeys = INSERT(ENDKeys,1,1,0,FirstKey)
|
||||
END
|
||||
END
|
||||
|
||||
CONVERT @VM TO @FM IN ENDKeys
|
||||
|
||||
Make.List('0', ENDKeys, DataTable, @DICT)
|
||||
|
||||
|
||||
StartDTM = ICONV(StartDt:' 12:00AM','DT')
|
||||
|
||||
IF ICONV(EndDt,'D') >= Date() THEN
|
||||
EndDTM = ICONV(OCONV(Date(),'D'):' ':OCONV(Time(),'MTHS'),'DT')
|
||||
END ELSE
|
||||
EndDTM = ICONV(EndDt:' 11:59:59PM','DT')
|
||||
END
|
||||
|
||||
ProdTimeAddModes = 'P':@VM:'U':@VM:'V':@VM:'Y':@VM:'Z'
|
||||
StandbyTimeAddModes = 'C':@VM:'Q':@VM:'T':@VM:'W':@VM:'G':@VM:'I':@VM:'K'
|
||||
EngineeringTimeAddModes = 'A':@VM:'O':@VM:'P1'
|
||||
SchedDowntimeAddModes = 'F':@VM:'J':@VM:'K':@VM:'L':@VM:'N':@VM:'M':@VM:'R':@VM:'H'
|
||||
UnSchedDownTimeAddModes = 'B':@VM:'E':@VM:'L'
|
||||
NonSchedTimeModes = 'S':@VM:'D'
|
||||
MaintTimeModes = 'M':@VM:'N':@VM:'K':@VM:'L'
|
||||
|
||||
Done = 0
|
||||
|
||||
Send_Info('Building CrossTab Table....')
|
||||
|
||||
LOOP
|
||||
READNEXT @ID ELSE Done = 1
|
||||
UNTIL Done
|
||||
READ @Record FROM DataTable,@ID ELSE
|
||||
Msg( '', 'Unable to read ':@ID:' Key From REACT_UTIL Table...' )
|
||||
GOTO Bail
|
||||
END
|
||||
|
||||
*Reactor = {REACTOR}
|
||||
|
||||
LinePos = R
|
||||
|
||||
ReactModeCode = {MODE}
|
||||
|
||||
LOCATE ReactModeCode IN ReactModeCodes USING @FM SETTING ColPos ELSE
|
||||
ErrMsg('Unknown Reactor Mode Code ':QUOTE(ReactModeCode):' in EXPORT_OEE routine.')
|
||||
GOTO Bottom
|
||||
END
|
||||
|
||||
ModeStartDate = {START_DATE}
|
||||
ModeStartTime = {START_TIME}
|
||||
ModeEndDate = {END_DATE}
|
||||
ModeEndTime = {END_TIME}
|
||||
|
||||
IF ModeStartDate = ModeEndDate THEN
|
||||
IF ModeEndTime NE '' THEN
|
||||
IF (ModeStartTime > ModeEndTime) THEN
|
||||
* Awwww S__T! found in the data
|
||||
ModeStartTime = {END_TIME}
|
||||
ModeEndTime = {START_TIME}
|
||||
END
|
||||
END
|
||||
END
|
||||
|
||||
ModeStartDate = OCONV(ModeStartDate,'D4/')
|
||||
ModeStartTime = OCONV(ModeStartTime,'MTHS')
|
||||
ModeStartDTM = ICONV(ModeStartDate:' ':ModeStartTime,'DT')
|
||||
|
||||
ModeEndDate = OCONV(ModeEndDate,'D4/')
|
||||
ModeEndTime = OCONV(ModeEndTime,'MTHS')
|
||||
ModeEndDTM = ICONV(ModeEndDate:' ':ModeEndTime,'DT')
|
||||
|
||||
IF ModeEndDTM = '' THEN ModeEndDTM = EndDTM
|
||||
|
||||
ModeHours = (ModeEndDTM - ModeStartDTM) * 24
|
||||
|
||||
IF @USERNAME = 'BRYCE_BARB' THEN
|
||||
IF ModeHours < 0 THEN DEBUG
|
||||
END
|
||||
|
||||
BEGIN CASE
|
||||
CASE ModeStartDTM < StartDTM AND ModeEndDTM > EndDTM
|
||||
ModeHours = (EndDTM - StartDTM) * 24
|
||||
|
||||
CASE ModeStartDTM < StartDTM
|
||||
ModeHours = (ModeEndDTM - StartDTM) * 24
|
||||
|
||||
CASE ModeEndDTM > EndDTM AND ModeStartDTM < EndDTM
|
||||
ModeHours = (EndDTM - ModeStartDTM) * 24
|
||||
|
||||
END CASE
|
||||
|
||||
ModeHours = ICONV(ModeHours,'MD2')
|
||||
|
||||
|
||||
ReactModeHrs<LinePos,ColPos> = ReactModeHrs<LinePos,ColPos> + ModeHours
|
||||
ReactTotalHrs<LinePos> = SUM(ReactModeHrs<LinePos>)
|
||||
|
||||
LOCATE ReactModeCode IN ProdTimeAddModes USING @VM SETTING Dummy THEN
|
||||
ProdTime<LinePos> = ProdTime<LinePos> + ModeHours
|
||||
END
|
||||
|
||||
LOCATE ReactModeCode IN StandbyTimeAddModes USING @VM SETTING DUMMY THEN
|
||||
StandbyTime<LinePos> = StandbyTime<LinePos> + ModeHours
|
||||
END
|
||||
|
||||
LOCATE ReactModeCode IN EngineeringTimeAddModes USING @VM SETTING DUMMY THEN
|
||||
EngineeringTime<LinePos> = EngineeringTime<LinePos> + ModeHours
|
||||
END
|
||||
|
||||
LOCATE ReactModeCode IN SchedDowntimeAddModes USING @VM SETTING DUMMY THEN
|
||||
SchedDownTime<LinePos> = SchedDownTime<LinePos> + ModeHours
|
||||
END
|
||||
|
||||
LOCATE ReactModeCode IN UnSchedDownTimeAddModes USING @VM SETTING DUMMY THEN
|
||||
UnSchedDownTime<LinePos> = UnSchedDownTime<LinePos> + ModeHours
|
||||
END
|
||||
|
||||
LOCATE ReactModeCode IN NonSchedTimeModes USING @VM SETTING DUMMY THEN
|
||||
NonSchedTime<LinePos> = NonSchedTime<LinePos> + ModeHours
|
||||
END
|
||||
|
||||
LOCATE ReactModeCode IN MaintTimeModes USING @VM SETTING DUMMY THEN
|
||||
MaintTime<LinePos> = MaintTime<LinePos> + ModeHours
|
||||
END
|
||||
|
||||
OEETotalHours<LinePos> = ProdTime<LinePos> + StandbyTime<LinePos> + EngineeringTime<LinePos> + SchedDownTime<LinePos>
|
||||
OEETotalHours<LinePos> = OEETotalHours<LinePos> + UnSchedDownTime<LinePos> + NonSchedTime<LinePos>
|
||||
|
||||
IF OEETotalHours<LinePos> <= 0 THEN OEETotalHours<LinePos> = 1 ;* Divide by zero raised it's ugly head
|
||||
|
||||
ManufTime<LinePos> = ProdTime<LinePos> + StandbyTime<LinePos>
|
||||
EquipUpTime<LinePos> = ManufTime<LinePos> + EngineeringTime<LinePos>
|
||||
EquipDownTime<LinePos> = SchedDownTime<LinePos> + UnSchedDownTime<LinePos>
|
||||
SEMITime<LinePos> = OEETotalHours<LinePos> - NonSchedTime<LinePos>
|
||||
|
||||
ProdPcnt<LinePos> = ICONV((ProdTime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
StandbyPcnt<LinePos> = ICONV((StandbyTime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
EngineeringPcnt<LinePos> = ICONV((EngineeringTime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
SchedDownPcnt<LinePos> = ICONV((SchedDownTime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
UnSchedDownPcnt<LinePos> = ICONV((UnSchedDownTime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
NonSchedPcnt<LinePos> = ICONV((NonSchedTime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
ManufPcnt<LinePos> = ICONV((ManufTime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
EquipUpPcnt<LinePos> = ICONV((EquipUpTime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
EquipDownPcnt<LinePos> = ICONV((EquipDownTime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
SEMIPcnt<LinePos> = ICONV((SEMITime<LinePos>/OEETotalHours<LinePos>)*100,'MD2')
|
||||
|
||||
TotalTimePcnt = ProdPcnt<LinePos> + StandbyPcnt<LinePos> + EngineeringPcnt<LinePos> + SchedDownPcnt<LinePos> + UnSchedDownPcnt<LinePos>
|
||||
TotalTimePcnt = TotalTimePcnt + NonSchedPcnt<LinePos>
|
||||
|
||||
IF SEMIPcnt<LinePos> > 0 THEN
|
||||
OperUptimePcnt<LinePos> = ICONV((EquipUpPcnt<LinePos>/SEMIPcnt<LinePos>)*100,'MD2')
|
||||
OperUtilPcnt<LinePos> = ICONV((ProdPcnt<LinePos>/SEMIPcnt<LinePos>)*100,'MD2')
|
||||
END ELSE
|
||||
OperUptimePcnt<LinePos> = '0'
|
||||
OperUtilPcnt<LinePos> = '0'
|
||||
END
|
||||
|
||||
IF TotalTimePcnt > 0 THEN
|
||||
TotUtilPcnt<LinePos> = ICONV((ProdPcnt<LinePos>/TotalTimePcnt)*100,'MD2')
|
||||
END ELSE
|
||||
TotUtilPcnt<LinePos> = '0'
|
||||
END
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bottom:
|
||||
* * * * * * *
|
||||
|
||||
REPEAT
|
||||
NEXT R
|
||||
|
||||
|
||||
|
||||
* Get maintanence incidents
|
||||
|
||||
OPEN 'DICT.REACTOR_LOG' TO DictVar ELSE
|
||||
ErrorMsg = 'Unable to open "DICT.REACTOR_LOG" in routine. (':Method:').'
|
||||
GOTO Bail
|
||||
END
|
||||
|
||||
DownTimeOccurences = 0
|
||||
|
||||
FOR I = 1 TO ReactorCnt
|
||||
Reactor = Reactors<I>
|
||||
Send_Info('Reactor ':Reactor:' ':'Extracting Reactor Log Data...')
|
||||
|
||||
Search = 'REACTOR':@VM:Reactor:@FM
|
||||
Search := 'ENTRY_DATE':@VM:OCONV(thisStartDt-1,'D'):'~':OCONV(thisEndDt+1,'D'):@FM
|
||||
Search := 'CATEGORY':@VM:'M':@FM
|
||||
|
||||
|
||||
Btree.Extract(Search,'REACTOR_LOG',DictVar,ReactorLogKeys,'',flag)
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
FOR N = 1 TO COUNT(ReactorLogKeys,@VM) + (ReactorLogKeys NE '')
|
||||
SchedFlags = XLATE('REACTOR_LOG',ReactorLogKeys<1,N>,26,'X')
|
||||
*IF SchedFlags<1,1> = 0 THEN
|
||||
IF NOT(SchedFlags<1,1> = 1) THEN
|
||||
DownTimeOccurences += 1
|
||||
END
|
||||
NEXT N
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
* Get wafer production information
|
||||
|
||||
OPEN 'DICT.RDS' TO DictVar ELSE
|
||||
ErrorMsg = 'Unable to open "DICT.RDS" in routine. (':Method:').'
|
||||
GOTO Bail
|
||||
END
|
||||
|
||||
WafersProdQtys = ''
|
||||
WafersRejQtys = ''
|
||||
WafersInQtys = ''
|
||||
ActualWaferRate = ''
|
||||
TargetWaferRate = ''
|
||||
|
||||
FOR I = 1 TO ReactorCnt
|
||||
Reactor = Reactors<I>
|
||||
Send_Info('Reactor ':Reactor:' ':'Extracting RDS Data...')
|
||||
|
||||
Search = 'REACTOR':@VM:Reactor:@FM
|
||||
Search := 'DATE_IN':@VM:OCONV(thisStartDt-1,'D'):'~':OCONV(thisEndDt+1,'D'):@FM
|
||||
|
||||
Btree.Extract(Search,'RDS',DictVar,RDSKeys,'',flag)
|
||||
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
WafersInQtys<I> = SUM(XLATE('RDS',RDSKeys,41,'X')) ;* Wafers In
|
||||
WafersRejQtys<I> = SUM(XLATE('RDS',RDSKeys,'TOT_REJ','X')) ;* Total Rejects
|
||||
WafersProdQtys<I> = WafersInQtys<I> - WafersRejQtys<I>
|
||||
|
||||
WfrsPerHourData = obj_RDS('WafersPerHour',RDSKeys) ;* Returns overall average results for all RDSNos passed in
|
||||
|
||||
ActualWaferRate<I> = WfrsPerHourData[1,@RM] ;* In OCONV'd MD2 format
|
||||
TargetWaferRate<I> = WfrsPerHourData[COL2()+1,@RM] ;* In OCONV'd MD2 format
|
||||
|
||||
NEXT I
|
||||
|
||||
MTBFp = ''
|
||||
MTTRHours = ''
|
||||
OperAvail = '' ;* Operational Availability (Ao)
|
||||
OperUtil = '' ;* Operational Utilization (Uo)
|
||||
QualityRate = '' ;* Quality Rate (Qs)
|
||||
EquipEff = '' ;* Equip Efficiency
|
||||
OverallEquipEff = '' ;* Overall Equipment Efficiency (OEEBottlneck)
|
||||
|
||||
FOR I = 1 TO ReactorCnt
|
||||
IF DownTimeOccurences<I> <= 0 THEN
|
||||
DownTimeOccurence = 1
|
||||
END ELSE
|
||||
DownTimeOccurence = DownTimeOccurences<I>
|
||||
END
|
||||
|
||||
MTBFp<I> = ICONV((ProdTime<I> / DownTimeOccurence),'MD0')
|
||||
MTTRHours<I> = ICONV((MaintTime<I> / DownTimeOccurence),'MD0')
|
||||
|
||||
IF OEETotalHours<I> <= 0 THEN OEETotalHours<I> = 1 ;* Divide by zero raised it's ugly head
|
||||
|
||||
OperAvail<I> = ICONV(((OEETotalHours<I> - (SchedDownTime<I> + UnSchedDownTime<I>))/OEETotalHours<I>)*100,'MD2')
|
||||
|
||||
Term1 = OCONV(ProdTime<I>,'MD2')/OCONV(OEETotalHours<I>,'MD2')
|
||||
Term2 = OCONV(SEMITime<I>,'MD2') - OCONV(EquipDownTime<I>,'MD2')
|
||||
Term3 = OCONV(SEMITime<I>,'MD2')
|
||||
|
||||
IF Term2 > 0 AND Term3 > 0 THEN
|
||||
OperUtil<I> = ICONV((Term1/(Term2/Term3))*100,'MD2')
|
||||
END ELSE
|
||||
OperUtil<I> = 0
|
||||
END
|
||||
|
||||
IF WafersInQtys<I> > 0 THEN
|
||||
QualityRate<I> = ICONV(((WafersInQtys<I> - WafersRejQtys<I>)/WafersInQtys<I>)*100,'MD2')
|
||||
END ELSE
|
||||
QualityRate<I> = 0
|
||||
END
|
||||
|
||||
IF TargetWaferRate<I> > 0 THEN
|
||||
EquipEff<I> = ICONV((ActualWaferRate<I>/TargetWaferRate<I>)*100,'MD2')
|
||||
END ELSE
|
||||
EquipEff<I> = 0
|
||||
END
|
||||
|
||||
OverallEquipEff<I> = OCONV(OperAvail<I>/100,'MD2') * OCONV(EquipEff<I>/100,'MD2') * OCONV(OperUtil<I>/100,'MD2') * OCONV(QualityRate<I>/100,'MD2')
|
||||
OverAllEquipEff<I> = ICONV(OverAllEquipEff<I> * 100,'MD2')
|
||||
NEXT I
|
||||
|
||||
Send_Info(STR(' ',100))
|
||||
|
||||
|
||||
*Set up column headers for result
|
||||
|
||||
ColTitles = 'Reactor'
|
||||
FOR I = 1 TO COUNT(ReactModes,@FM) + (ReactModes NE '')
|
||||
ColTitles<I+1> = ReactModes<I>
|
||||
NEXT I
|
||||
|
||||
ColTitles<I+1> = 'Total Time'
|
||||
ColTitles<I+2> = 'Production Time'
|
||||
ColTitles<I+3> = 'Standby Time'
|
||||
ColTitles<I+4> = 'Engineering Time'
|
||||
ColTitles<I+5> = 'Sched DownTime'
|
||||
ColTitles<I+6> = 'UnSched DownTime'
|
||||
ColTitles<I+7> = 'NonSched Time'
|
||||
ColTitles<I+8> = 'OEE Total Time'
|
||||
ColTitles<I+9> = 'Manufact Time'
|
||||
ColTitles<I+10> = 'Equip Uptime'
|
||||
ColTitles<I+11> = 'Equip Downtime'
|
||||
ColTitles<I+12> = 'Operations Time'
|
||||
ColTitles<I+13> = 'Production'
|
||||
ColTitles<I+14> = 'Standby'
|
||||
ColTitles<I+15> = 'Engineering'
|
||||
ColTitles<I+16> = 'Sched Down'
|
||||
ColTitles<I+17> = 'Unsched Down'
|
||||
ColTitles<I+18> = 'Non-Sched Down'
|
||||
ColTitles<I+19> = 'Manufacturing'
|
||||
ColTitles<I+20> = 'Equip Up'
|
||||
ColTitles<I+21> = 'Equip Down'
|
||||
ColTitles<I+22> = 'Operations'
|
||||
ColTitles<I+23> = 'Operational Uptime'
|
||||
ColTitles<I+24> = 'Operational Utilization'
|
||||
ColTitles<I+25> = 'Total Utilization'
|
||||
ColTitles<I+26> = 'MTBFp Hours'
|
||||
ColTitles<I+27> = 'MTTR Hours'
|
||||
ColTitles<I+28> = 'Oper Availablility (Ao)'
|
||||
ColTitles<I+29> = 'Oper Utilization (Uo)'
|
||||
ColTitles<I+30> = 'Quality Rate (Qs)'
|
||||
ColTitles<I+31> = 'Equip Efficiency (E)'
|
||||
ColTitles<I+32> = 'OEE Bottleneck'
|
||||
|
||||
|
||||
CONVERT @FM TO @VM IN ColTitles
|
||||
Result<-1> = ColTitles
|
||||
|
||||
LineCount = COUNT(Reactors,@FM) + (Reactors NE '')
|
||||
ModeCount = COUNT(ReactModeCodes,@FM) + (ReactModeCodes NE '')
|
||||
|
||||
|
||||
FOR I = 1 TO LineCount
|
||||
PrintLine = Reactors<I>
|
||||
FOR M = 1 TO ModeCount
|
||||
PrintLine<1,M+1> = OCONV(ReactModeHrs<I,M>,'MD2')
|
||||
NEXT M
|
||||
PrintLine<1,M+1> = OCONV(ReactTotalHrs<I>,'MD12')
|
||||
PrintLine<1,M+2> = OCONV(ProdTime<I>,'MD12')
|
||||
PrintLine<1,M+3> = OCONV(StandbyTime<I>,'MD12')
|
||||
PrintLine<1,M+4> = OCONV(EngineeringTime<I>,'MD12')
|
||||
PrintLine<1,M+5> = OCONV(SchedDownTime<I>,'MD12')
|
||||
PrintLine<1,M+6> = OCONV(UnSchedDownTime<I>,'MD12')
|
||||
PrintLine<1,M+7> = OCONV(NonSchedTime<I>,'MD12')
|
||||
PrintLine<1,M+8> = OCONV(OEETotalHours<I>,'MD12')
|
||||
PrintLine<1,M+9> = OCONV(ManufTime<I>,'MD12')
|
||||
PrintLine<1,M+10> = OCONV(EquipUpTime<I>,'MD12')
|
||||
PrintLine<1,M+11> = OCONV(EquipDownTime<I>,'MD12')
|
||||
PrintLine<1,M+12> = OCONV(SEMITime<I>,'MD12')
|
||||
PrintLine<1,M+13> = OCONV(ProdPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+14> = OCONV(StandbyPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+15> = OCONV(EngineeringPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+16> = OCONV(SchedDownPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+17> = OCONV(UnSchedDownPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+18> = OCONV(NonSchedPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+19> = OCONV(ManufPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+20> = OCONV(EquipUpPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+21> = OCONV(EquipDownPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+22> = OCONV(SEMIPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+23> = OCONV(OperUptimePcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+24> = OCONV(OperUtilPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+25> = OCONV(TotUtilPcnt<I>,'MD2S%')
|
||||
PrintLine<1,M+26> = OCONV(MTBFp<I>,'MD12')
|
||||
PrintLine<1,M+27> = OCONV(MTTRHours<I>,'MD12')
|
||||
PrintLine<1,M+28> = OCONV(OperAvail<I>,'MD2S%')
|
||||
PrintLine<1,M+29> = OCONV(OperUtil<I>,'MD2S%')
|
||||
PrintLine<1,M+30> = OCONV(QualityRate<I>,'MD2S%')
|
||||
PrintLine<1,M+31> = OCONV(EquipEff<I>,'MD2S%')
|
||||
PrintLine<1,M+32> = OCONV(OverallEquipEff<I>,'MD2S%')
|
||||
|
||||
Result<-1> = PrintLine
|
||||
|
||||
NEXT I
|
||||
|
||||
* * * * * * *
|
||||
BAIL:
|
||||
* * * * * * *
|
||||
|
||||
Dummy = Set_Property(@WINDOW:'.STATUS_LINE','BACKCOLOR',OrgColor)
|
||||
|
||||
RETURN
|
||||
Reference in New Issue
Block a user