fixed bug in mu auto hold system
This commit is contained in:
Infineon\StieberD
@ -262,7 +262,7 @@ End Service
|
||||
// looks for MakeUp wafers older than 3 years old and then puts them on hold and sends notification.
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service ProcessAutoHold()
|
||||
|
||||
|
||||
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
|
||||
Lock hSysLists, ServiceKeyID then
|
||||
|
||||
@ -271,10 +271,12 @@ Service ProcessAutoHold()
|
||||
LogData<2> = 'Begin ':Service
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
|
||||
HoldList = ''
|
||||
FailedHoldList = ''
|
||||
CutoffDate = SRP_Date('AddYears', Date(), -3)
|
||||
Query = 'SELECT MAKEUP_WAFERS WITH UNLOAD_DTM LT ':Quote(OConv(CutoffDate, 'DT2/^H'): ' AND WITH EXPIRED NE ':True$)
|
||||
HoldList = ''
|
||||
FailedHoldList = ''
|
||||
HoldEntityIds = ''
|
||||
|
||||
CuttoffDtm = SRP_Datetime('AddYears', Datetime(), -3)
|
||||
Query = 'SELECT MAKEUP_WAFERS WITH UNLOAD_DTM LT ':Quote(OConv(CuttoffDtm, 'DT2/^H')): ' AND WITH EXPIRED NE ':True$
|
||||
Flag = ''
|
||||
RList(Query, TARGET_ACTIVELIST$, '', '', Flag)
|
||||
|
||||
@ -363,36 +365,48 @@ Service ProcessAutoHold()
|
||||
end
|
||||
If ErrorMsg EQ '' then
|
||||
// Now mark cassette as expired
|
||||
MWRec = Database_Services('ReadDataRow', 'MAKEUP_WAFERS', WOMatKey)
|
||||
ExpiredFlag = MWRec<MAKEUP_WAFERS.EXPIRED$>
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT2/^H')
|
||||
LogData<2> = 'Attempting to mark lot "':WOMatKey:'" as expired.'
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
|
||||
Material_Services('MarkMUCassExpired', WOMatKey)
|
||||
If Error_Services('NoError') then
|
||||
MWRec = Database_Services('ReadDataRow', 'MAKEUP_WAFERS', WOMatKey)
|
||||
LogData<2> = 'Checking expiry state of "':WOMatKey:'". Expired flag = ':ExpiredFlag:'.'
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
If ExpiredFlag NE True$ then
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT2/^H')
|
||||
LogData<2> = 'Lot "':WOMatKey:'" not marked as expired. Attempting to mark lot "':WOMatKey:'" as expired.'
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
Material_Services('MarkMUCassExpired', WOMatKey)
|
||||
If Error_Services('NoError') then
|
||||
ExpiredFlag = MWRec<MAKEUP_WAFERS.EXPIRED$>
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT2/^H')
|
||||
LogData<2> = 'Successfully marked lot "':WOMatKey:'" as expired. Expired flag = ':ExpiredFlag:'.'
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
MWRec = Database_Services('ReadDataRow', 'MAKEUP_WAFERS', WOMatKey)
|
||||
If Error_Services('NoError') then
|
||||
ExpiredFlag = MWRec<MAKEUP_WAFERS.EXPIRED$>
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT2/^H')
|
||||
LogData<2> = 'Successfully marked lot "':WOMatKey:'" as expired. Expired flag = ':ExpiredFlag:'.'
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
end else
|
||||
ErrorMsg = Error_Services('GetMessage')
|
||||
LogMsg = 'Failed to verify lot "':WOMatKey:'" was marked as expired.'
|
||||
LogMsg := 'Error message: ':ErrorMsg
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT2/^H')
|
||||
LogData<2> = LogMsg
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
end
|
||||
end else
|
||||
ErrorMsg = Error_Services('GetMessage')
|
||||
LogMsg = 'Failed to verify lot "':WOMatKey:'" was marked as expired.'
|
||||
LogMsg = 'Failed to mark lot "':WOMatKey:'" as expired.'
|
||||
LogMsg := 'Error message: ':ErrorMsg
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT2/^H')
|
||||
LogData<2> = LogMsg
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
end
|
||||
end else
|
||||
ErrorMsg = Error_Services('GetMessage')
|
||||
LogMsg = 'Failed to mark lot "':WOMatKey:'" as expired.'
|
||||
LogMsg := 'Error message: ':ErrorMsg
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT2/^H')
|
||||
LogData<2> = LogMsg
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT2/^H')
|
||||
LogData<2> = 'Lot "':WOMatKey:'" already marked as expired. Expired flag = ':ExpiredFlag:'.'
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
end
|
||||
end else
|
||||
@ -415,9 +429,10 @@ Service ProcessAutoHold()
|
||||
end
|
||||
|
||||
If (ErrorMsg EQ '') then
|
||||
HoldList<-1> = ReactType:TAB$:HoldEntityID
|
||||
HoldList<-1> = ReactType:TAB$:HoldEntityID
|
||||
HoldEntityIds<-1> = WOMatKey
|
||||
end else
|
||||
FailedHoldList<-1> = ReactType:TAB$:HoldEntityID
|
||||
FailedHoldList<-1> = ReactType:TAB$:HoldEntityID
|
||||
end
|
||||
|
||||
Repeat
|
||||
@ -425,7 +440,7 @@ Service ProcessAutoHold()
|
||||
NotifyDtm = Datetime()
|
||||
|
||||
// Send initial notification of successful lots and failed lots
|
||||
If (HoldList NE '') then
|
||||
If (HoldEntityIds NE '') then
|
||||
Recipients = ''
|
||||
SentFrom = 'SYSTEM'
|
||||
Subject = 'Makeup Wafer Auto-Hold Report'
|
||||
@ -439,17 +454,9 @@ Service ProcessAutoHold()
|
||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
obj_Notes('Create',Parms)
|
||||
|
||||
For each WOMatKey in HoldList using @FM
|
||||
|
||||
WONo = Field(WOMatKey, '*', 1)
|
||||
ReactType = Xlate('WO_LOG', WONo, 'REACT_TYPE', 'X')
|
||||
If ReactType EQ 'EPP' then
|
||||
CassNo = Field(WOMatKey, '*', 2)
|
||||
HoldEntityID = WONo:'*1*':CassNo
|
||||
end else
|
||||
HoldEntityID = Xlate('WO_MAT', WOMatKey, 'RDS_NO', 'X')
|
||||
end
|
||||
MUWfrRec = Database_Services('ReadDataRow', 'MAKEUP_WAFERS', WOMatKey)
|
||||
For each HoldEntityId in HoldEntityIds using @FM
|
||||
WOMatKey = HoldEntityId
|
||||
MUWfrRec = Database_Services('ReadDataRow', 'MAKEUP_WAFERS', WOMatKey)
|
||||
If Error_Services('NoError') then
|
||||
HaveLock = Database_Services('GetKeyIDLock', 'MAKEUP_WAFERS', WOMatKey, True$)
|
||||
If HaveLock then
|
||||
@ -488,7 +495,7 @@ Service ProcessAutoHold()
|
||||
LogData<2> = LogMsg
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
end
|
||||
Next WOMatKey
|
||||
Next HoldEntityId
|
||||
end
|
||||
|
||||
If (FailedHoldList NE '') then
|
||||
@ -612,7 +619,7 @@ end service
|
||||
Service GetAvailableMakeupWafers(WorkOrderNo, KeysOnly=BOOLEAN)
|
||||
|
||||
AvailableMakeupWafers = ''
|
||||
|
||||
|
||||
If WorkOrderNo NE '' then
|
||||
WorkOrderNo = WorkOrderNo[1, '*'] ; // This might be formatted as a WO_MAT Key ID, so strip off the Cassette No.
|
||||
WOLogRow = Database_Services('ReadDataRow', 'WO_LOG', WorkOrderNo)
|
||||
|
||||
Reference in New Issue
Block a user