phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed wafer counter prompt when converting cassettes

Browse Source
This commit is contained in:
Infineon\StieberD
2025-08-21 14:55:03 -07:00
parent 7eacacec8c
commit 764603f60b
3 changed files with 48 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
LSL2/STPROC/COMM_WM_OUT.txt
View File

@ -1768,22 +1768,8 @@ AddMakeup:
AvailMU_WMOKeys = '' AvailMU_WMOKeys = ''
UserResp = Response UserResp = Response
MakeupBox = '' MakeupBox = ''
CheckValue = 1
// User requested to convert the current cassette into a makeup box.
// Verify the quantity before proceeding.
If WMOutKey NE '' then
Parms = ''
Parms<1> = WMOutKey ; // Cassette to verify wafer count of.
Parms<2> = 0 ; // Wafer count adjustment - 0 because converting box.
Parms<3> = 'MU' ; // Wafer counter tool location
Proceed = Dialog_Box('NDW_WAFER_COUNTER', @Window, Parms)
If Proceed NE True$ then Return
end else
ErrMsg('Error starting wafer counter check. WM_OUT key is missing.')
end
CheckValue = 1
FieldNo = WO_MAT_EPO_MAKEUP_BOX$ FieldNo = WO_MAT_EPO_MAKEUP_BOX$
obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue) ;* Set WMO_MAKEUP flag on WM_OUT obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue) ;* Set WMO_MAKEUP flag on WM_OUT
@ -2000,51 +1986,42 @@ MakeupClick:
End Case End Case
If Not(InvalidRequest) then If Not(InvalidRequest) then
Parms = '' Send_Event(CtrlEnt,'GOTFOCUS')
Parms<1> = WMOKey ; // Cassette to verify wafer count of. OrgMUPart = XLATE('WM_OUT',WMOKey,'MU_PART_NO','X')
Parms<2> = 0 ; // Wafer count adjustment - 0 because converting box. // Log the makeup flag change
Parms<3> = 'MU' ; // Wafer counter tool location LogData = ''
Proceed = Dialog_Box('NDW_WAFER_COUNTER', @Window, Parms) LogData<1> = LoggingDTM
If Proceed EQ True$ then LogData<2> = WONo:'*':ProcStepNo:'*':CassNo
Send_Event(CtrlEnt,'GOTFOCUS') LogData<3> = CheckValue
OrgMUPart = XLATE('WM_OUT',WMOKey,'MU_PART_NO','X') LogData<4> = @User4
// Log the makeup flag change Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
LogData = ''
LogData<1> = LoggingDTM Send_Event(@WINDOW,'WRITE') ;************* 6/30/2010
LogData<2> = WONo:'*':ProcStepNo:'*':CassNo
LogData<3> = CheckValue FieldNo = WO_MAT_EPO_MAKEUP_BOX$
LogData<4> = @User4
Logging_Services('AppendLog', objLog, LogData, @RM, @FM) obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue)
Send_Event(@WINDOW,'WRITE') ;************* 6/30/2010 IF Get_Status(errCode) THEN ErrMsg(errCode)
FieldNo = WO_MAT_EPO_MAKEUP_BOX$ * Added 10/11/2010 JCH
NewMUPart = XLATE('WM_OUT',WMOKey,'MU_PART_NO','X')
obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue) IndexTransactionRow = 'MU_PART_NO':@FM:WMOKey:@FM:OrgMUPart:@FM:NewMUPart:@FM
OPEN "!WM_OUT" TO BangTable THEN
IF Get_Status(errCode) THEN ErrMsg(errCode) LOCK BangTable, 0 THEN
READ PendingTrans FROM BangTable, 0 ELSE PendingTrans = '0':@FM
* Added 10/11/2010 JCH PendingTrans := IndexTransactionRow
NewMUPart = XLATE('WM_OUT',WMOKey,'MU_PART_NO','X') WRITE PendingTrans ON BangTable, 0 ELSE
IndexTransactionRow = 'MU_PART_NO':@FM:WMOKey:@FM:OrgMUPart:@FM:NewMUPart:@FM ErrMsg('Unable to write index transaction to !WM_OUT. ':WMOutKey)
OPEN "!WM_OUT" TO BangTable THEN
LOCK BangTable, 0 THEN
READ PendingTrans FROM BangTable, 0 ELSE PendingTrans = '0':@FM
PendingTrans := IndexTransactionRow
WRITE PendingTrans ON BangTable, 0 ELSE
ErrMsg('Unable to write index transaction to !WM_OUT. ':WMOutKey)
END
UNLOCK BangTable, 0 ELSE ErrMsg('Unable to Unlock !WM_OUT while adding index transaction. ':WMOutKey)
END ELSE
ErrMsg('Unable to Lock !WM_OUT to add index transaction. ':WMOutKey)
END END
UNLOCK BangTable, 0 ELSE ErrMsg('Unable to Unlock !WM_OUT while adding index transaction. ':WMOutKey)
END ELSE END ELSE
ErrMsg('Unable to Open !WM_OUT to add index transaction. ':WMOutKey) ErrMsg('Unable to Lock !WM_OUT to add index transaction. ':WMOutKey)
END END
* End of 10/11/2010 update END ELSE
end else ErrMsg('Unable to Open !WM_OUT to add index transaction. ':WMOutKey)
InvalidRequest = True$ END
end * End of 10/11/2010 update
end end
end else end else
InvalidRequest = True$ InvalidRequest = True$

55
LSL2/STPROC/COMM_WO_MAT_WFR.txt
View File

@ -811,18 +811,6 @@ AddMakeup:
MakeupBox = '' MakeupBox = ''
// User requested to convert the current cassette into a makeup box. // User requested to convert the current cassette into a makeup box.
// Verify the quantity before proceeding.
RDSNo = Get_Property(@Window:'.RDS_NO', 'TEXT')
If RDSNo NE '' then
Parms = ''
Parms<1> = RDSNo ; // Cassette to verify wafer count of.
Parms<2> = 0 ; // Wafer count adjustment - 0 because converting box.
Parms<3> = 'MU' ; // Wafer counter tool location
Proceed = Dialog_Box('NDW_WAFER_COUNTER', @Window, Parms)
If Proceed NE True$ then return
end else
ErrMsg('Error starting wafer counter check. RDS No is missing.')
end
RDSNo = Get_Property(@Window : '.RDS_NO', 'TEXT') ; // Get the RDS No now before the WRITE in case it is needed to toggle the index. RDSNo = Get_Property(@Window : '.RDS_NO', 'TEXT') ; // Get the RDS No now before the WRITE in case it is needed to toggle the index.
@ -1066,37 +1054,22 @@ MakeUpLot:
End Case End Case
If Not(InvalidRequest) then If Not(InvalidRequest) then
RDSNo = Get_Property(@Window:'.RDS_NO', 'TEXT')
EpiCheck = Rds_Services('IsEpiPro', RDSNo) EpiCheck = Rds_Services('IsEpiPro', RDSNo)
If RDSNo NE '' then obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue)
Parms = '' If EpiCheck EQ False$ then
Parms<1> = RDSNo ; // Cassette to verify wafer count of. IF Get_Status(errCode) THEN
Parms<2> = 0 ; // Wafer count adjustment - 0 because converting box. ErrMsg('Unable to set makeup flag until Unload stage is signed.')
Parms<3> = 'MU' ; // Wafer counter tool location
Proceed = Dialog_Box('NDW_WAFER_COUNTER', @Window, Parms)
If Proceed EQ True$ then
obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue)
If EpiCheck EQ False$ then
IF Get_Status(errCode) THEN
ErrMsg('Unable to set makeup flag until Unload stage is signed.')
InvalidRequest = True$
END else
Set_Property(@WINDOW,'SAVEWARN', False$)
Send_Event(@WINDOW,'CLEAR')
If (CheckValue EQ True$) then
Wo_Mat_Services('MakeupFlagOn', RDSNo)
end
end
end else
Set_Property(@WINDOW,'SAVEWARN', False$)
Send_Event(@WINDOW,'CLEAR')
end
end else
InvalidRequest = True$ InvalidRequest = True$
END else
Set_Property(@WINDOW,'SAVEWARN', False$)
Send_Event(@WINDOW,'CLEAR')
If (CheckValue EQ True$) then
Wo_Mat_Services('MakeupFlagOn', RDSNo)
end
end end
end else end else
InvalidRequest = True$ Set_Property(@WINDOW,'SAVEWARN', False$)
ErrMsg('WARNING: Error starting wafer counter check. RDS No is missing.') Send_Event(@WINDOW,'CLEAR')
end end
end end
end else end else
@ -1233,7 +1206,3 @@ LogRecord:
return return

3
LSL2/STPROC/REPORT_SERVICES.txt
View File

@ -150,7 +150,7 @@ Service GetMakeupInventoryReportJSON()
end else end else
LotID = Row<0, 2>:'*1*':Row<0, 3> LotID = Row<0, 2>:'*1*':Row<0, 3>
end end
WcRec = Wafer_Counter_Services('GetLastScan', LotID, 'MU') WcRec = Wafer_Counter_Services('GetLastScan', LotID)
WcQty = WcRec<WAFER_COUNTER.SCAN_QTY$> WcQty = WcRec<WAFER_COUNTER.SCAN_QTY$>
WcDtm = WcRec<WAFER_COUNTER.SCAN_DTM$> WcDtm = WcRec<WAFER_COUNTER.SCAN_DTM$>
@ -2435,4 +2435,3 @@ OipiPrintError:
return return