From 764603f60bb737bc1da3d1645fd5b0f1a8d1c0e2 Mon Sep 17 00:00:00 2001 From: "Infineon\\StieberD" Date: Thu, 21 Aug 2025 14:55:03 -0700 Subject: [PATCH] removed wafer counter prompt when converting cassettes --- LSL2/STPROC/COMM_WM_OUT.txt | 93 +++++++++++++-------------------- LSL2/STPROC/COMM_WO_MAT_WFR.txt | 55 +++++-------------- LSL2/STPROC/REPORT_SERVICES.txt | 3 +- 3 files changed, 48 insertions(+), 103 deletions(-) diff --git a/LSL2/STPROC/COMM_WM_OUT.txt b/LSL2/STPROC/COMM_WM_OUT.txt index 642de4d..a620121 100644 --- a/LSL2/STPROC/COMM_WM_OUT.txt +++ b/LSL2/STPROC/COMM_WM_OUT.txt @@ -1768,22 +1768,8 @@ AddMakeup: AvailMU_WMOKeys = '' UserResp = Response - MakeupBox = '' - - // 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 + MakeupBox = '' + CheckValue = 1 FieldNo = WO_MAT_EPO_MAKEUP_BOX$ obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue) ;* Set WMO_MAKEUP flag on WM_OUT @@ -2000,51 +1986,42 @@ MakeupClick: End Case If Not(InvalidRequest) then - Parms = '' - Parms<1> = WMOKey ; // 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 EQ True$ then - Send_Event(CtrlEnt,'GOTFOCUS') - OrgMUPart = XLATE('WM_OUT',WMOKey,'MU_PART_NO','X') - // Log the makeup flag change - LogData = '' - LogData<1> = LoggingDTM - LogData<2> = WONo:'*':ProcStepNo:'*':CassNo - LogData<3> = CheckValue - LogData<4> = @User4 - Logging_Services('AppendLog', objLog, LogData, @RM, @FM) - - Send_Event(@WINDOW,'WRITE') ;************* 6/30/2010 - - FieldNo = WO_MAT_EPO_MAKEUP_BOX$ - - obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue) - - IF Get_Status(errCode) THEN ErrMsg(errCode) - - * Added 10/11/2010 JCH - NewMUPart = XLATE('WM_OUT',WMOKey,'MU_PART_NO','X') - IndexTransactionRow = 'MU_PART_NO':@FM:WMOKey:@FM:OrgMUPart:@FM:NewMUPart:@FM - 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) + Send_Event(CtrlEnt,'GOTFOCUS') + OrgMUPart = XLATE('WM_OUT',WMOKey,'MU_PART_NO','X') + // Log the makeup flag change + LogData = '' + LogData<1> = LoggingDTM + LogData<2> = WONo:'*':ProcStepNo:'*':CassNo + LogData<3> = CheckValue + LogData<4> = @User4 + Logging_Services('AppendLog', objLog, LogData, @RM, @FM) + + Send_Event(@WINDOW,'WRITE') ;************* 6/30/2010 + + FieldNo = WO_MAT_EPO_MAKEUP_BOX$ + + obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue) + + IF Get_Status(errCode) THEN ErrMsg(errCode) + + * Added 10/11/2010 JCH + NewMUPart = XLATE('WM_OUT',WMOKey,'MU_PART_NO','X') + IndexTransactionRow = 'MU_PART_NO':@FM:WMOKey:@FM:OrgMUPart:@FM:NewMUPart:@FM + 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 Open !WM_OUT to add index transaction. ':WMOutKey) + ErrMsg('Unable to Lock !WM_OUT to add index transaction. ':WMOutKey) END - * End of 10/11/2010 update - end else - InvalidRequest = True$ - end + END ELSE + ErrMsg('Unable to Open !WM_OUT to add index transaction. ':WMOutKey) + END + * End of 10/11/2010 update end end else InvalidRequest = True$ diff --git a/LSL2/STPROC/COMM_WO_MAT_WFR.txt b/LSL2/STPROC/COMM_WO_MAT_WFR.txt index 1b6e2bf..352fa69 100644 --- a/LSL2/STPROC/COMM_WO_MAT_WFR.txt +++ b/LSL2/STPROC/COMM_WO_MAT_WFR.txt @@ -811,18 +811,6 @@ AddMakeup: MakeupBox = '' // 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. @@ -1066,37 +1054,22 @@ MakeUpLot: End Case If Not(InvalidRequest) then - RDSNo = Get_Property(@Window:'.RDS_NO', 'TEXT') EpiCheck = Rds_Services('IsEpiPro', RDSNo) - 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 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 + 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 - InvalidRequest = True$ - ErrMsg('WARNING: Error starting wafer counter check. RDS No is missing.') + Set_Property(@WINDOW,'SAVEWARN', False$) + Send_Event(@WINDOW,'CLEAR') end end end else @@ -1233,7 +1206,3 @@ LogRecord: return - - - - diff --git a/LSL2/STPROC/REPORT_SERVICES.txt b/LSL2/STPROC/REPORT_SERVICES.txt index 56218f5..e3f65f7 100644 --- a/LSL2/STPROC/REPORT_SERVICES.txt +++ b/LSL2/STPROC/REPORT_SERVICES.txt @@ -150,7 +150,7 @@ Service GetMakeupInventoryReportJSON() end else LotID = Row<0, 2>:'*1*':Row<0, 3> end - WcRec = Wafer_Counter_Services('GetLastScan', LotID, 'MU') + WcRec = Wafer_Counter_Services('GetLastScan', LotID) WcQty = WcRec WcDtm = WcRec @@ -2435,4 +2435,3 @@ OipiPrintError: return -