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

Removing qty less than 25 notitifcations because this is normal for engineering lots. Pre-emptively updated RList call in Schedule_Services to use external datetime instead of internal datetime.

Browse Source
This commit is contained in:
Infineon\StieberD 2025-02-03 14:21:34 -07:00
parent fcc0ce6b72
commit f1eb8e9812
2 changed files with 4 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
LSL2/STPROC/SCHEDULE_SERVICES.txt
View File

@ -3113,9 +3113,9 @@ end service
Service MarkCassProcessed(WONo, CassNo, ProcessedDTM) Service MarkCassProcessed(WONo, CassNo, ProcessedDTM)
If ((WONo NE '') and (CassNo NE '') and (ProcessedDTM NE '') ) then If ((WONo NE '') and (CassNo NE '') and (ProcessedDTM NE '') ) then
If Not(Num(ProcessedDTM)) then ProcessedDTM = IConv(ProcessedDTM, 'DT') If Num(ProcessedDTM) then ProcessedDTM = OConv(ProcessedDTM, 'DT2/^H')
// Find the SCHED_DET_NG event record that contains the cassette number // Find the SCHED_DET_NG event record that contains the cassette number
Query = 'SELECT SCHED_DET_NG WITH WO_NO EQ ':WONo:' AND WITH START_DTM LE ':ProcessedDTM:' ' Query = 'SELECT SCHED_DET_NG WITH WO_NO EQ ':WONo:' AND WITH START_DTM LE "':ProcessedDTM:'" '
Query := 'AND WITH UNPROCESSED_CASS EQ ':CassNo:' BY START_DTM' Query := 'AND WITH UNPROCESSED_CASS EQ ':CassNo:' BY START_DTM'
GoSub ClearCursors GoSub ClearCursors
RList(Query, TARGET_ACTIVELIST$, '', '', '') RList(Query, TARGET_ACTIVELIST$, '', '', '')

13
LSL2/STPROC/WO_MAT_ACTIONS.txt
View File

@ -792,19 +792,6 @@ WRITE_RECORD:
end end
PSNo = {WO_STEP_PS_NO} PSNo = {WO_STEP_PS_NO}
SpecType = Xlate('PROD_SPEC', PSNo, 'SPEC_TYPE', 'X')
If ( (SpecType EQ 'P') and (Record<WO_MAT_WAFER_QTY$> LT 25) ) then
// Notify FI as this is unusual and can cause systematic issues.
Recipients = XLATE('SEC_GROUPS', 'OI_ADMIN', 'USER', 'X')
SentFrom = 'OI Admin'
Subject = 'WO_MAT cassette quantity less than 25 detected!'
Message = 'WO_MAT ':@ID:' quantity is ':Record<WO_MAT_WAFER_QTY$>:'. Correct if needed!'
AttachWindow = 'WO_MAT'
AttachKey = @ID
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 If {REACTOR_TYPE} EQ 'EPP' then
NewEppMUFlag = Record<WO_MAT_EPO_MAKEUP_BOX$> NewEppMUFlag = Record<WO_MAT_EPO_MAKEUP_BOX$>