Modified WO_MAT_ACTIONS to not block write operations if critical fields are cleared. Instead it will restore the critical values and allow the write operation to continue.
This commit is contained in:
Infineon\StieberD
@ -275,7 +275,6 @@ WRITE_RECORD_PRE:
|
|||||||
CriticalFields := WO_MAT_RX_BY$:@VM:WO_MAT_REL_DTM$:@VM:WO_MAT_REL_BY$:@VM:WO_MAT_SUB_VEND_CD$:@VM
|
CriticalFields := WO_MAT_RX_BY$:@VM:WO_MAT_REL_DTM$:@VM:WO_MAT_REL_BY$:@VM:WO_MAT_SUB_VEND_CD$:@VM
|
||||||
CriticalFields := WO_MAT_CASS_SHIP_QTY$:@VM:WO_MAT_SHIP_SHORT$:@VM:WO_MAT_MU_WAFER_FLAG$
|
CriticalFields := WO_MAT_CASS_SHIP_QTY$:@VM:WO_MAT_SHIP_SHORT$:@VM:WO_MAT_MU_WAFER_FLAG$
|
||||||
|
|
||||||
Continue = True$
|
|
||||||
For each CriticalField in CriticalFields using @VM setting vPos
|
For each CriticalField in CriticalFields using @VM setting vPos
|
||||||
|
|
||||||
If ( (OrigRecord<CriticalField> NE '') and (Record<CriticalField> EQ '') ) then
|
If ( (OrigRecord<CriticalField> NE '') and (Record<CriticalField> EQ '') ) then
|
||||||
@ -286,329 +285,322 @@ WRITE_RECORD_PRE:
|
|||||||
end else
|
end else
|
||||||
CriticalFieldName = 'Error determining field name'
|
CriticalFieldName = 'Error determining field name'
|
||||||
end
|
end
|
||||||
Recipients = ''
|
Record<CriticalField> = OrigRecord<CriticalField>
|
||||||
SentFrom = 'SYSTEM'
|
|
||||||
Subject = 'WO_MAT_ACTIONS WRITE_PRE Blocked'
|
Recipients = ''
|
||||||
Message = OConv(Datetime(), 'DT2/^H')
|
SentFrom = 'SYSTEM'
|
||||||
Message<2> = 'Computer: ':@Station
|
Subject = 'WO_MAT_ACTIONS - Critical Field Erase Attempt'
|
||||||
Message<3> = 'User: ':@User4
|
Message = OConv(Datetime(), 'DT2/^H')
|
||||||
Message<4> = 'WO_MAT key: ':Name
|
Message<2> = 'Computer: ':@Station
|
||||||
NoteMessage = 'Message: Write operation failed due to readonly field ':CriticalField
|
Message<3> = 'User: ':@User4
|
||||||
NoteMessage := ' (':CriticalFieldName:') being cleared.'
|
Message<4> = 'WO_MAT key: ':Name
|
||||||
Message<5> = NoteMessage
|
NoteMessage = 'Readonly field ':CriticalField:' (':CriticalFieldName:') restored.'
|
||||||
Message<6> = 'Call Stack:':CRLF$:RetStack()
|
Message<5> = NoteMessage
|
||||||
|
Message<6> = 'Call Stack:':CRLF$:RetStack()
|
||||||
Swap @FM with \0D0A\ in Message
|
Swap @FM with \0D0A\ in Message
|
||||||
Swap @VM with ',' in Message
|
Swap @VM with ',' in Message
|
||||||
AttachWindow = 'WO_MAT'
|
AttachWindow = 'WO_MAT'
|
||||||
AttachKey = Name
|
AttachKey = Name
|
||||||
SendToGroup = 'OI_SYSADMIN'
|
SendToGroup = 'OI_SYSADMIN'
|
||||||
|
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
|
||||||
obj_Notes('Create',Parms)
|
obj_Notes('Create',Parms)
|
||||||
|
|
||||||
OrigFileError = 104:': Write operation failed due to readonly field being cleared.'
|
|
||||||
Status = 0
|
|
||||||
Record = ''
|
|
||||||
ActionFlow = ACTION_STOP$
|
|
||||||
Continue = False$
|
|
||||||
end
|
end
|
||||||
Until (Continue EQ False$)
|
|
||||||
Next CriticalField
|
Next CriticalField
|
||||||
|
|
||||||
If Continue then
|
SaveRecord = Record
|
||||||
|
|
||||||
WaferQty = Record<WO_MAT_WAFER_QTY$>
|
WaferQty = Record<WO_MAT_WAFER_QTY$>
|
||||||
If ( (WaferQty LT 0) or (WaferQty GT 25) ) then
|
If ( (WaferQty LT 0) or (WaferQty GT 25) ) then
|
||||||
// Erroneous wafer quantity save attempt. Fallback to default wafer quantity of 25.
|
// Erroneous wafer quantity save attempt. Fallback to default wafer quantity of 25.
|
||||||
Record<WO_MAT_WAFER_QTY$> = 25
|
Record<WO_MAT_WAFER_QTY$> = 25
|
||||||
SaveRecord = Record
|
SaveRecord = Record
|
||||||
|
end
|
||||||
|
|
||||||
|
If ({REACTOR_TYPE} EQ 'GAN') and ({FQA_DTM} NE {CASS_FINAL_SIG_DTM}) then
|
||||||
|
// Copy FQA date and datetime
|
||||||
|
DTM = {CASS_FINAL_SIG_DTM}
|
||||||
|
{FQA_DTM} = DTM
|
||||||
|
Date = {CASS_FINAL_SIG_DTM}[1, 'F.']
|
||||||
|
{FQA_DT} = Date
|
||||||
|
SaveRecord = @Record
|
||||||
|
end
|
||||||
|
|
||||||
|
// Sync up NCR signatures
|
||||||
|
NewNCRList = Record<WO_MAT_NCR_KEYS$>
|
||||||
|
OrigNCRList = OrigRecord<WO_MAT_NCR_KEYS$>
|
||||||
|
NewNCRSigs = Record<WO_MAT_NCR_FINAL_SIG$>
|
||||||
|
NewNCRSigDTMs = Record<WO_MAT_NCR_FINAL_SIG_DTM$>
|
||||||
|
|
||||||
|
// Check for deleted NCRs to remove final NCR signatures as needed.
|
||||||
|
For each OrigNCRNo in OrigNCRList using @VM setting vPos
|
||||||
|
NewNCRNo = NewNCRList<0, vPos>
|
||||||
|
If NewNCRNo EQ '' then
|
||||||
|
// An NCR has been deleted so we need to remove any final NCR signatures associate with it.
|
||||||
|
NewNCRSigs<0, vPos> = ''
|
||||||
|
NewNCRSigDTMs<0, vPos> = ''
|
||||||
end
|
end
|
||||||
|
Next OrigNCRNo
|
||||||
|
|
||||||
If ({REACTOR_TYPE} EQ 'GAN') and ({FQA_DTM} NE {CASS_FINAL_SIG_DTM}) then
|
// Check for new NCRs to copy their final signature to the WO_MAT record.
|
||||||
// Copy FQA date and datetime
|
For each NewNCRNo in NewNCRList using @VM setting vPos
|
||||||
DTM = {CASS_FINAL_SIG_DTM}
|
// This is a new NCR, so copy the signature.
|
||||||
{FQA_DTM} = DTM
|
NewNCRSigs<0, vPos> = Xlate('NCR', NewNCRNo, 'AUTH_SHIP_SIG', 'X')
|
||||||
Date = {CASS_FINAL_SIG_DTM}[1, 'F.']
|
NewNCRSigDTMs<0, vPos> = Xlate('NCR', NewNCRNo, 'AUTH_SHIP_SIG_DTM', 'X')
|
||||||
{FQA_DT} = Date
|
Next NewNCRNo
|
||||||
SaveRecord = @Record
|
|
||||||
end
|
|
||||||
|
|
||||||
// Sync up NCR signatures
|
// Trim trailing @VMs to avoid WO_MAT CURR_STATUS from erroneously calculating an open NCR is present.
|
||||||
NewNCRList = Record<WO_MAT_NCR_KEYS$>
|
NewNCRSigs = SRP_Array('Clean', NewNCRSigs, 'Trim', @VM)
|
||||||
OrigNCRList = OrigRecord<WO_MAT_NCR_KEYS$>
|
NewNCRSigDTMs = SRP_Array('Clean', NewNCRSigDTMs, 'Trim', @VM)
|
||||||
NewNCRSigs = Record<WO_MAT_NCR_FINAL_SIG$>
|
Record<WO_MAT_NCR_FINAL_SIG$> = NewNCRSigs
|
||||||
NewNCRSigDTMs = Record<WO_MAT_NCR_FINAL_SIG_DTM$>
|
Record<WO_MAT_NCR_FINAL_SIG_DTM$> = NewNCRSigDTMs
|
||||||
|
SaveRecord = Record
|
||||||
|
|
||||||
// Check for deleted NCRs to remove final NCR signatures as needed.
|
WONo = Field(Name, '*', 1)
|
||||||
For each OrigNCRNo in OrigNCRList using @VM setting vPos
|
ReactType = Xlate('WO_LOG', WONo, 'REACT_TYPE', 'X')
|
||||||
NewNCRNo = NewNCRList<0, vPos>
|
GaN = (ReactType EQ 'GAN')
|
||||||
If NewNCRNo EQ '' then
|
If GaN then
|
||||||
// An NCR has been deleted so we need to remove any final NCR signatures associate with it.
|
// Sync QA signature with WO_MAT signature profile.
|
||||||
NewNCRSigs<0, vPos> = ''
|
OrigCassFinalSig = OrigRecord<WO_MAT_CASS_FINAL_SIG$>
|
||||||
NewNCRSigDTMs<0, vPos> = ''
|
OrigCassFinalSigDTM = OrigRecord<WO_MAT_CASS_FINAL_SIG_DTM$>
|
||||||
|
CassFinalSig = Record<WO_MAT_CASS_FINAL_SIG$>
|
||||||
|
CassFinalSigDTM = Record<WO_MAT_CASS_FINAL_SIG_DTM$>
|
||||||
|
|
||||||
|
If ( (OrigCassFinalSig NE CassFinalSig) or (OrigCassFinalSigDTM NE CassFinalSigDTM) ) then
|
||||||
|
WOMatStage = '1G_FQA'
|
||||||
|
SigProf = Record<WO_MAT_SIG_PROFILE$>
|
||||||
|
Sigs = Record<WO_MAT_SIGNATURE$>
|
||||||
|
SigDTMs = Record<WO_MAT_SIG_DTM$>
|
||||||
|
Locate WOMatStage in SigProf using @VM setting vPos then
|
||||||
|
Sigs<0, vPos> = CassFinalSig
|
||||||
|
SigDTMs<0, vPos> = CassFinalSigDTM
|
||||||
|
Record<WO_MAT_SIGNATURE$> = Sigs
|
||||||
|
Record<WO_MAT_SIG_DTM$> = SigDTMs
|
||||||
|
SaveRecord = Record
|
||||||
end
|
end
|
||||||
Next OrigNCRNo
|
end
|
||||||
|
end
|
||||||
|
|
||||||
// Check for new NCRs to copy their final signature to the WO_MAT record.
|
Begin Case
|
||||||
For each NewNCRNo in NewNCRList using @VM setting vPos
|
Case {REACTOR_TYPE} EQ 'EPP'
|
||||||
// This is a new NCR, so copy the signature.
|
// EpiPro Silicon - Populate OUT_SLOT_NCR column in WO_MAT record
|
||||||
NewNCRSigs<0, vPos> = Xlate('NCR', NewNCRNo, 'AUTH_SHIP_SIG', 'X')
|
NCRKeyChange = (OrigRecord<WO_MAT_NCR_KEYS$> NE Record<WO_MAT_NCR_KEYS$>)
|
||||||
NewNCRSigDTMs<0, vPos> = Xlate('NCR', NewNCRNo, 'AUTH_SHIP_SIG_DTM', 'X')
|
NCRSlotChange = (OrigRecord<WO_MAT_EPOS_NCR$> NE Record<WO_MAT_EPOS_NCR$>)
|
||||||
Next NewNCRNo
|
WOMatSlotNCRs = {EPOS_NCR}
|
||||||
|
NCRKeys = {NCR_KEYS}
|
||||||
// Trim trailing @VMs to avoid WO_MAT CURR_STATUS from erroneously calculating an open NCR is present.
|
ChangeDetected = (NCRKeyChange or NCRSlotChange)
|
||||||
NewNCRSigs = SRP_Array('Clean', NewNCRSigs, 'Trim', @VM)
|
If ChangeDetected then
|
||||||
NewNCRSigDTMs = SRP_Array('Clean', NewNCRSigDTMs, 'Trim', @VM)
|
For each NCRKey in NCRKeys using @VM setting vPos
|
||||||
Record<WO_MAT_NCR_FINAL_SIG$> = NewNCRSigs
|
OutSlotNos = Xlate('NCR', NCRKey, 'OUT_SLOT_NO', 'X')
|
||||||
Record<WO_MAT_NCR_FINAL_SIG_DTM$> = NewNCRSigDTMs
|
If OutSlotNos NE '' then
|
||||||
SaveRecord = Record
|
For each SlotNo in OutSlotNos using @VM setting sPos
|
||||||
|
WOMatSlotNCRs<0, SlotNo> = NCRKey
|
||||||
WONo = Field(Name, '*', 1)
|
Next SlotNo
|
||||||
ReactType = Xlate('WO_LOG', WONo, 'REACT_TYPE', 'X')
|
end
|
||||||
GaN = (ReactType EQ 'GAN')
|
Next NCRKey
|
||||||
If GaN then
|
// Pad value marks if necessary
|
||||||
// Sync QA signature with WO_MAT signature profile.
|
NumSlots = DCount(WOMatSlotNCRs, @VM)
|
||||||
OrigCassFinalSig = OrigRecord<WO_MAT_CASS_FINAL_SIG$>
|
If NumSlots LT 25 then WOMatSlotNCRs<0, 25> = ''
|
||||||
OrigCassFinalSigDTM = OrigRecord<WO_MAT_CASS_FINAL_SIG_DTM$>
|
Record<WO_MAT_EPOS_NCR$> = WOMatSlotNCRs
|
||||||
CassFinalSig = Record<WO_MAT_CASS_FINAL_SIG$>
|
SaveRecord = Record
|
||||||
CassFinalSigDTM = Record<WO_MAT_CASS_FINAL_SIG_DTM$>
|
end
|
||||||
|
Case {REACTOR_TYPE} EQ 'GAN'
|
||||||
If ( (OrigCassFinalSig NE CassFinalSig) or (OrigCassFinalSigDTM NE CassFinalSigDTM) ) then
|
// Galiumn Nitride - Currently no issues with NCR keys getting erased, so nothing to do here.
|
||||||
WOMatStage = '1G_FQA'
|
Null
|
||||||
SigProf = Record<WO_MAT_SIG_PROFILE$>
|
Case Otherwise$
|
||||||
Sigs = Record<WO_MAT_SIGNATURE$>
|
// Non-EpiPro Silicon - Populate SLOT_NCR column in WO_MAT record
|
||||||
SigDTMs = Record<WO_MAT_SIG_DTM$>
|
NCRKeyChange = (OrigRecord<WO_MAT_NCR_KEYS$> NE Record<WO_MAT_NCR_KEYS$>)
|
||||||
Locate WOMatStage in SigProf using @VM setting vPos then
|
NCRSlotChange = (OrigRecord<WO_MAT_SLOT_NCR$> NE Record<WO_MAT_SLOT_NCR$>)
|
||||||
Sigs<0, vPos> = CassFinalSig
|
ChangeDetected = (NCRKeyChange or NCRSlotChange)
|
||||||
SigDTMs<0, vPos> = CassFinalSigDTM
|
If ChangeDetected then
|
||||||
Record<WO_MAT_SIGNATURE$> = Sigs
|
SlotNCRs = {SLOT_NCR}
|
||||||
Record<WO_MAT_SIG_DTM$> = SigDTMs
|
NCRKeys = {NCR_KEYS}
|
||||||
SaveRecord = Record
|
For each NCRKey in NCRKeys using @VM setting vPos
|
||||||
|
NCRSlotNos = Xlate('NCR', NCRKey, 'SLOT_NO', 'X')
|
||||||
|
If NCRSlotNos NE '' then
|
||||||
|
For each SlotNo in NCRSlotNos using @VM setting Dummy
|
||||||
|
SlotNCRs<0, SlotNo> = NCRKey
|
||||||
|
Next SlotNo
|
||||||
|
end
|
||||||
|
Next NCRKey
|
||||||
|
Record<WO_MAT_SLOT_NCR$> = SlotNCRs
|
||||||
|
SaveRecord = Record
|
||||||
|
end
|
||||||
|
NewMUFlag = Record<WO_MAT_MAKEUP_BOX$>
|
||||||
|
OrigMUFlag = OrigRecord<WO_MAT_MAKEUP_BOX$>
|
||||||
|
UnloadCheck = Signature_Services('GetStageSummary', WOMatKeyID, 'UNLOAD')<2>
|
||||||
|
If (NewMUFlag EQ True$) AND (OrigMUFlag NE True$) then
|
||||||
|
If UnloadCheck NE True$ then
|
||||||
|
OrigFileError = 104:': Cassette ineligible to be converted to makeup wafer until unload is signed.'
|
||||||
|
Status = 0
|
||||||
|
Record = ''
|
||||||
|
ActionFlow = ACTION_STOP$
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
|
||||||
|
|
||||||
|
End Case
|
||||||
|
|
||||||
|
TWChangeDetected = (OrigRecord<WO_MAT_SLOT_MET_NO$> NE Record<WO_MAT_SLOT_MET_NO$>)
|
||||||
|
If TWChangeDetected then
|
||||||
Begin Case
|
Begin Case
|
||||||
Case {REACTOR_TYPE} EQ 'EPP'
|
Case {REACTOR_TYPE} EQ 'EPP'
|
||||||
// EpiPro Silicon - Populate OUT_SLOT_NCR column in WO_MAT record
|
// EpiPro silicon -> build list of RDS_TEST keys and select those with TW_USE key(s).
|
||||||
NCRKeyChange = (OrigRecord<WO_MAT_NCR_KEYS$> NE Record<WO_MAT_NCR_KEYS$>)
|
RDSNos = Xlate('WM_IN', {WMI_KEY}, 'RDS_NO', 'X')
|
||||||
NCRSlotChange = (OrigRecord<WO_MAT_EPOS_NCR$> NE Record<WO_MAT_EPOS_NCR$>)
|
RDSNos = SRP_Array('Clean', RDSNos, 'TrimAndMakeUnique', @VM)
|
||||||
WOMatSlotNCRs = {EPOS_NCR}
|
If RDSNos NE '' then
|
||||||
NCRKeys = {NCR_KEYS}
|
Query = 'SELECT RDS_TEST '
|
||||||
ChangeDetected = (NCRKeyChange or NCRSlotChange)
|
For each RDSNo in RDSNos using @VM setting vPos
|
||||||
If ChangeDetected then
|
If vPos EQ 1 then
|
||||||
For each NCRKey in NCRKeys using @VM setting vPos
|
Query := 'WITH RDS_NO EQ ':RDSNo:' '
|
||||||
OutSlotNos = Xlate('NCR', NCRKey, 'OUT_SLOT_NO', 'X')
|
end else
|
||||||
If OutSlotNos NE '' then
|
Query := 'OR WITH RDS_NO EQ ':RDSNo:' '
|
||||||
For each SlotNo in OutSlotNos using @VM setting sPos
|
|
||||||
WOMatSlotNCRs<0, SlotNo> = NCRKey
|
|
||||||
Next SlotNo
|
|
||||||
end
|
end
|
||||||
Next NCRKey
|
Next RDSNo
|
||||||
// Pad value marks if necessary
|
EOF = False$
|
||||||
NumSlots = DCount(WOMatSlotNCRs, @VM)
|
RecordCopy = Record
|
||||||
If NumSlots LT 25 then WOMatSlotNCRs<0, 25> = ''
|
RList(Query, TARGET_LATENTLIST$, '', '', '')
|
||||||
Record<WO_MAT_EPOS_NCR$> = WOMatSlotNCRs
|
Query = 'SELECT RDS_TEST WITH TW_USE_ID NE ""'
|
||||||
SaveRecord = Record
|
RList(Query, TARGET_LATENTLIST$, '', '', '')
|
||||||
|
RDSTestKeys = ''
|
||||||
|
Loop
|
||||||
|
ReadNext KeyID else EOF = True$
|
||||||
|
Until EOF
|
||||||
|
RDSTestKeys<0, -1> = KeyID
|
||||||
|
Repeat
|
||||||
|
TWUseKeys = Xlate('RDS_TEST', RDSTestKeys, 'TW_USE_ID', 'X')
|
||||||
|
WaferIDs = Xlate('TW_USE', TWUseKeys, 'WAFER_ID', 'X')
|
||||||
|
SlotMetNos = ''
|
||||||
|
For each WaferID in WaferIDs using @VM setting vPos
|
||||||
|
SlotNo = Field(WaferID, '*', 3)
|
||||||
|
SlotMetNos<0, SlotNo> = TWUseKeys<0, vPos>
|
||||||
|
Next WaferID
|
||||||
|
Done = False$
|
||||||
|
NumVMs = DCount(SlotMetNos, @VM)
|
||||||
|
// Pad column with @VMs
|
||||||
|
If NumVMs LT 25 then SlotMetNos<0, 25> = ''
|
||||||
|
Record = RecordCopy
|
||||||
|
Record<WO_MAT_SLOT_MET_NO$> = SlotMetNos
|
||||||
|
SaveRecord = Record
|
||||||
end
|
end
|
||||||
Case {REACTOR_TYPE} EQ 'GAN'
|
Case {REACTOR_TYPE} EQ 'GAN'
|
||||||
// Galiumn Nitride - Currently no issues with NCR keys getting erased, so nothing to do here.
|
// Gallium nitride -> TW_USE records do not apply, so nothing to do.
|
||||||
Null
|
Null
|
||||||
Case Otherwise$
|
Case Otherwise$
|
||||||
// Non-EpiPro Silicon - Populate SLOT_NCR column in WO_MAT record
|
|
||||||
NCRKeyChange = (OrigRecord<WO_MAT_NCR_KEYS$> NE Record<WO_MAT_NCR_KEYS$>)
|
// Non-EpiPro silicon -> lookup RDS_TEST record and interrogate it for TW_USE key(s).
|
||||||
NCRSlotChange = (OrigRecord<WO_MAT_SLOT_NCR$> NE Record<WO_MAT_SLOT_NCR$>)
|
RDSNo = Record<WO_MAT_RDS_NO$>
|
||||||
ChangeDetected = (NCRKeyChange or NCRSlotChange)
|
If RDSNo NE '' then
|
||||||
If ChangeDetected then
|
Query = 'SELECT RDS_TEST WITH RDS_NO EQ ':RDSNo
|
||||||
SlotNCRs = {SLOT_NCR}
|
EOF = False$
|
||||||
NCRKeys = {NCR_KEYS}
|
RecordCopy = Record
|
||||||
For each NCRKey in NCRKeys using @VM setting vPos
|
RList(Query, TARGET_LATENTLIST$, '', '', '')
|
||||||
NCRSlotNos = Xlate('NCR', NCRKey, 'SLOT_NO', 'X')
|
Query = 'SELECT RDS_TEST WITH TW_USE_ID NE ""'
|
||||||
If NCRSlotNos NE '' then
|
RList(Query, TARGET_LATENTLIST$, '', '', '')
|
||||||
For each SlotNo in NCRSlotNos using @VM setting Dummy
|
RDSTestKeys = ''
|
||||||
SlotNCRs<0, SlotNo> = NCRKey
|
Loop
|
||||||
Next SlotNo
|
ReadNext KeyID else EOF = True$
|
||||||
end
|
Until EOF
|
||||||
Next NCRKey
|
RDSTestKeys<0, -1> = KeyID
|
||||||
Record<WO_MAT_SLOT_NCR$> = SlotNCRs
|
Repeat
|
||||||
SaveRecord = Record
|
TWUseKeys = Xlate('RDS_TEST', RDSTestKeys, 'TW_USE_ID', 'X')
|
||||||
end
|
// Rebuild list
|
||||||
NewMUFlag = Record<WO_MAT_MAKEUP_BOX$>
|
SlotMetNos = ''
|
||||||
OrigMUFlag = OrigRecord<WO_MAT_MAKEUP_BOX$>
|
For each TWUseKey in TWUseKeys using @VM setting tPos
|
||||||
UnloadCheck = Signature_Services('GetStageSummary', WOMatKeyID, 'UNLOAD')<2>
|
WaferIDs = Xlate('TW_USE', TWUseKey, 'WAFER_ID', 'X')
|
||||||
If (NewMUFlag EQ True$) AND (OrigMUFlag NE True$) then
|
For each WaferID in WaferIDs using @VM setting vPos
|
||||||
If UnloadCheck NE True$ then
|
SlotNo = Field(WaferID, '*', 3)
|
||||||
OrigFileError = 104:': Cassette ineligible to be converted to makeup wafer until unload is signed.'
|
SlotMetNos<0, SlotNo> = TWUseKey
|
||||||
Status = 0
|
Next WaferID
|
||||||
Record = ''
|
Next TWUseKey
|
||||||
ActionFlow = ACTION_STOP$
|
NumVMs = DCount(SlotMetNos, @VM)
|
||||||
end
|
// Pad column with @VMs
|
||||||
|
If NumVMs LT 25 then SlotMetNos<0, 25> = ''
|
||||||
|
Record = RecordCopy
|
||||||
|
Record<WO_MAT_SLOT_MET_NO$> = SlotMetNos
|
||||||
|
SaveRecord = Record
|
||||||
end
|
end
|
||||||
|
|
||||||
End Case
|
End Case
|
||||||
|
end
|
||||||
|
|
||||||
TWChangeDetected = (OrigRecord<WO_MAT_SLOT_MET_NO$> NE Record<WO_MAT_SLOT_MET_NO$>)
|
// Verify slot list does not exceed 25
|
||||||
If TWChangeDetected then
|
NewSlotList = Record<WO_MAT_SLOT_NO$>
|
||||||
Begin Case
|
NumSlots = DCount(NewSlotList, @VM)
|
||||||
Case {REACTOR_TYPE} EQ 'EPP'
|
LastSlot = NewSlotList[-1, 'B':@VM]
|
||||||
// EpiPro silicon -> build list of RDS_TEST keys and select those with TW_USE key(s).
|
If ( (NumSlots GT 25) or (LastSlot GT 25) ) then
|
||||||
RDSNos = Xlate('WM_IN', {WMI_KEY}, 'RDS_NO', 'X')
|
|
||||||
RDSNos = SRP_Array('Clean', RDSNos, 'TrimAndMakeUnique', @VM)
|
|
||||||
If RDSNos NE '' then
|
|
||||||
Query = 'SELECT RDS_TEST '
|
|
||||||
For each RDSNo in RDSNos using @VM setting vPos
|
|
||||||
If vPos EQ 1 then
|
|
||||||
Query := 'WITH RDS_NO EQ ':RDSNo:' '
|
|
||||||
end else
|
|
||||||
Query := 'OR WITH RDS_NO EQ ':RDSNo:' '
|
|
||||||
end
|
|
||||||
Next RDSNo
|
|
||||||
EOF = False$
|
|
||||||
RecordCopy = Record
|
|
||||||
RList(Query, TARGET_LATENTLIST$, '', '', '')
|
|
||||||
Query = 'SELECT RDS_TEST WITH TW_USE_ID NE ""'
|
|
||||||
RList(Query, TARGET_LATENTLIST$, '', '', '')
|
|
||||||
RDSTestKeys = ''
|
|
||||||
Loop
|
|
||||||
ReadNext KeyID else EOF = True$
|
|
||||||
Until EOF
|
|
||||||
RDSTestKeys<0, -1> = KeyID
|
|
||||||
Repeat
|
|
||||||
TWUseKeys = Xlate('RDS_TEST', RDSTestKeys, 'TW_USE_ID', 'X')
|
|
||||||
WaferIDs = Xlate('TW_USE', TWUseKeys, 'WAFER_ID', 'X')
|
|
||||||
SlotMetNos = ''
|
|
||||||
For each WaferID in WaferIDs using @VM setting vPos
|
|
||||||
SlotNo = Field(WaferID, '*', 3)
|
|
||||||
SlotMetNos<0, SlotNo> = TWUseKeys<0, vPos>
|
|
||||||
Next WaferID
|
|
||||||
Done = False$
|
|
||||||
NumVMs = DCount(SlotMetNos, @VM)
|
|
||||||
// Pad column with @VMs
|
|
||||||
If NumVMs LT 25 then SlotMetNos<0, 25> = ''
|
|
||||||
Record = RecordCopy
|
|
||||||
Record<WO_MAT_SLOT_MET_NO$> = SlotMetNos
|
|
||||||
SaveRecord = Record
|
|
||||||
end
|
|
||||||
Case {REACTOR_TYPE} EQ 'GAN'
|
|
||||||
// Gallium nitride -> TW_USE records do not apply, so nothing to do.
|
|
||||||
Null
|
|
||||||
Case Otherwise$
|
|
||||||
|
|
||||||
// Non-EpiPro silicon -> lookup RDS_TEST record and interrogate it for TW_USE key(s).
|
LogCount = Max(NumSlots, LastSlot)
|
||||||
RDSNo = Record<WO_MAT_RDS_NO$>
|
// Correct the slot column
|
||||||
If RDSNo NE '' then
|
NewSlotList = ''
|
||||||
Query = 'SELECT RDS_TEST WITH RDS_NO EQ ':RDSNo
|
For Slot = 1 to 25
|
||||||
EOF = False$
|
NewSlotList<0, Slot> = Slot
|
||||||
RecordCopy = Record
|
Next Slot
|
||||||
RList(Query, TARGET_LATENTLIST$, '', '', '')
|
Record<WO_MAT_SLOT_NO$> = NewSlotList
|
||||||
Query = 'SELECT RDS_TEST WITH TW_USE_ID NE ""'
|
SaveRecord = Record
|
||||||
RList(Query, TARGET_LATENTLIST$, '', '', '')
|
|
||||||
RDSTestKeys = ''
|
|
||||||
Loop
|
|
||||||
ReadNext KeyID else EOF = True$
|
|
||||||
Until EOF
|
|
||||||
RDSTestKeys<0, -1> = KeyID
|
|
||||||
Repeat
|
|
||||||
TWUseKeys = Xlate('RDS_TEST', RDSTestKeys, 'TW_USE_ID', 'X')
|
|
||||||
// Rebuild list
|
|
||||||
SlotMetNos = ''
|
|
||||||
For each TWUseKey in TWUseKeys using @VM setting tPos
|
|
||||||
WaferIDs = Xlate('TW_USE', TWUseKey, 'WAFER_ID', 'X')
|
|
||||||
For each WaferID in WaferIDs using @VM setting vPos
|
|
||||||
SlotNo = Field(WaferID, '*', 3)
|
|
||||||
SlotMetNos<0, SlotNo> = TWUseKey
|
|
||||||
Next WaferID
|
|
||||||
Next TWUseKey
|
|
||||||
NumVMs = DCount(SlotMetNos, @VM)
|
|
||||||
// Pad column with @VMs
|
|
||||||
If NumVMs LT 25 then SlotMetNos<0, 25> = ''
|
|
||||||
Record = RecordCopy
|
|
||||||
Record<WO_MAT_SLOT_MET_NO$> = SlotMetNos
|
|
||||||
SaveRecord = Record
|
|
||||||
end
|
|
||||||
|
|
||||||
End Case
|
// Log the error
|
||||||
end
|
Stack = RetStack()
|
||||||
|
Swap @FM with CRLF$ in Stack
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LoggingDTM
|
||||||
|
LogData<2> = @User4
|
||||||
|
LogData<3> = Name
|
||||||
|
LogData<4> = LogCount
|
||||||
|
LogData<5> = CRLF$:Stack
|
||||||
|
Logging_Services('AppendLog', objSlotLog, LogData, @RM, @FM)
|
||||||
|
|
||||||
// Verify slot list does not exceed 25
|
// Send internal LSL message to OI admins
|
||||||
NewSlotList = Record<WO_MAT_SLOT_NO$>
|
Recipients = XLATE('SEC_GROUPS', 'OI_ADMIN', 'USER', 'X')
|
||||||
NumSlots = DCount(NewSlotList, @VM)
|
SentFrom = @USER4
|
||||||
LastSlot = NewSlotList[-1, 'B':@VM]
|
Subject = 'Slot count exceeds 25!'
|
||||||
If ( (NumSlots GT 25) or (LastSlot GT 25) ) then
|
Message = 'WO_MAT key ':Name
|
||||||
|
AttachWindow = 'WO_MAT'
|
||||||
|
AttachKey = Name
|
||||||
|
SendToGroup = ''
|
||||||
|
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||||
|
obj_Notes('Create',Parms)
|
||||||
|
end
|
||||||
|
|
||||||
LogCount = Max(NumSlots, LastSlot)
|
If {REACTOR_TYPE} EQ 'EPP' then
|
||||||
// Correct the slot column
|
WMKey = Field(Name, '*', 1):'*1*':Field(Name, '*', 2)
|
||||||
NewSlotList = ''
|
// Only set fields if the records exist, otherwise WO_MAT curr status can be calculated incorrectly.
|
||||||
For Slot = 1 to 25
|
If RowExists('WM_IN', WMKey) then Record<WO_MAT_WMI_KEY$> = WMKey
|
||||||
NewSlotList<0, Slot> = Slot
|
If RowExists('WM_OUT', WMKey) then Record<WO_MAT_WMO_KEY$> = WMKey
|
||||||
Next Slot
|
|
||||||
Record<WO_MAT_SLOT_NO$> = NewSlotList
|
|
||||||
SaveRecord = Record
|
|
||||||
|
|
||||||
// Log the error
|
|
||||||
Stack = RetStack()
|
|
||||||
Swap @FM with CRLF$ in Stack
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @User4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = LogCount
|
|
||||||
LogData<5> = CRLF$:Stack
|
|
||||||
Logging_Services('AppendLog', objSlotLog, LogData, @RM, @FM)
|
|
||||||
|
|
||||||
// Send internal LSL message to OI admins
|
|
||||||
Recipients = XLATE('SEC_GROUPS', 'OI_ADMIN', 'USER', 'X')
|
|
||||||
SentFrom = @USER4
|
|
||||||
Subject = 'Slot count exceeds 25!'
|
|
||||||
Message = 'WO_MAT key ':Name
|
|
||||||
AttachWindow = 'WO_MAT'
|
|
||||||
AttachKey = Name
|
|
||||||
SendToGroup = ''
|
|
||||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
|
||||||
obj_Notes('Create',Parms)
|
|
||||||
end
|
|
||||||
|
|
||||||
If {REACTOR_TYPE} EQ 'EPP' then
|
|
||||||
WMKey = Field(Name, '*', 1):'*1*':Field(Name, '*', 2)
|
|
||||||
// Only set fields if the records exist, otherwise WO_MAT curr status can be calculated incorrectly.
|
|
||||||
If RowExists('WM_IN', WMKey) then Record<WO_MAT_WMI_KEY$> = WMKey
|
|
||||||
If RowExists('WM_OUT', WMKey) then Record<WO_MAT_WMO_KEY$> = WMKey
|
|
||||||
SaveRecord = Record
|
|
||||||
end
|
|
||||||
|
|
||||||
SigProf = Record<WO_MAT_SIG_PROFILE$>
|
|
||||||
Sigs = Record<WO_MAT_SIGNATURE$>
|
|
||||||
SigDtms = Record<WO_MAT_SIG_DTM$>
|
|
||||||
NumSteps = DCount(SigProf, @VM)
|
|
||||||
Record<WO_MAT_SIGNATURE$> = Field(Sigs, @VM, 1, NumSteps)
|
|
||||||
Record<WO_MAT_SIG_DTM$> = Field(SigDtms, @VM, 1, NumSteps)
|
|
||||||
SaveRecord = Record
|
SaveRecord = Record
|
||||||
|
end
|
||||||
|
|
||||||
NewMUFlag = Record<WO_MAT_MAKEUP_BOX$>
|
SigProf = Record<WO_MAT_SIG_PROFILE$>
|
||||||
OrigMUFlag = OrigRecord<WO_MAT_MAKEUP_BOX$>
|
Sigs = Record<WO_MAT_SIGNATURE$>
|
||||||
If NewMUFlag NE OrigMUFlag then
|
SigDtms = Record<WO_MAT_SIG_DTM$>
|
||||||
SAPBatchNo = Record<WO_MAT_SAP_BATCH_NO$>
|
NumSteps = DCount(SigProf, @VM)
|
||||||
SAPTXDtm = Record<WO_MAT_SAP_TX_DTM$>
|
Record<WO_MAT_SIGNATURE$> = Field(Sigs, @VM, 1, NumSteps)
|
||||||
AwaitingBatchNo = ( (SAPTXDtm NE '') and (SAPBatchNo EQ '') )
|
Record<WO_MAT_SIG_DTM$> = Field(SigDtms, @VM, 1, NumSteps)
|
||||||
FullBoxReject = (SAPBatchNo[-1, 1] = 'R')
|
SaveRecord = Record
|
||||||
Begin Case
|
|
||||||
Case AwaitingBatchNo
|
NewMUFlag = Record<WO_MAT_MAKEUP_BOX$>
|
||||||
Error_Services('Add', 'Cassette ineligible to be converted as it is awaiting a batch number from SAP.')
|
OrigMUFlag = OrigRecord<WO_MAT_MAKEUP_BOX$>
|
||||||
OrigFileError = 104:': Cassette ineligible to be converted as it is awaiting a batch number from SAP.'
|
If NewMUFlag NE OrigMUFlag then
|
||||||
Status = 0
|
SAPBatchNo = Record<WO_MAT_SAP_BATCH_NO$>
|
||||||
Record = ''
|
SAPTXDtm = Record<WO_MAT_SAP_TX_DTM$>
|
||||||
ActionFlow = ACTION_STOP$
|
AwaitingBatchNo = ( (SAPTXDtm NE '') and (SAPBatchNo EQ '') )
|
||||||
Case FullBoxReject
|
FullBoxReject = (SAPBatchNo[-1, 1] = 'R')
|
||||||
Error_Services('Add', 'Cassette ineligible to be converted as it is a full box reject.')
|
Begin Case
|
||||||
OrigFileError = 104:': Cassette ineligible to be converted as it is a full box reject.'
|
Case AwaitingBatchNo
|
||||||
Status = 0
|
Error_Services('Add', 'Cassette ineligible to be converted as it is awaiting a batch number from SAP.')
|
||||||
Record = ''
|
OrigFileError = 104:': Cassette ineligible to be converted as it is awaiting a batch number from SAP.'
|
||||||
ActionFlow = ACTION_STOP$
|
Status = 0
|
||||||
Case Otherwise$
|
Record = ''
|
||||||
Null
|
ActionFlow = ACTION_STOP$
|
||||||
End Case
|
Case FullBoxReject
|
||||||
end
|
Error_Services('Add', 'Cassette ineligible to be converted as it is a full box reject.')
|
||||||
end
|
OrigFileError = 104:': Cassette ineligible to be converted as it is a full box reject.'
|
||||||
|
Status = 0
|
||||||
|
Record = ''
|
||||||
|
ActionFlow = ACTION_STOP$
|
||||||
|
Case Otherwise$
|
||||||
|
Null
|
||||||
|
End Case
|
||||||
|
end
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
@ -930,4 +922,3 @@ Restore_System_Variables:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user