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

remind operator to run test wafer on last cassete in WO

Browse Source
This commit is contained in:
Chase Tucker
2024-12-12 08:38:41 -07:00
committed by Tucker Chase (CSC FI SPS MESLEO)
parent a41136e30e
commit f8c83dd7f4
6 changed files with 341 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

127
LSL2/STPROC/SCHEDULE_SERVICES.txt
View File

@ -36,6 +36,7 @@ $insert RLIST_EQUATES
$insert REACTOR_EQUATES
$insert SCHED_DET_NG_EQUATES
$insert WO_LOG_EQUATES
$Insert WO_MAT_EQUATES
$insert WO_SCHEDULE_NG_EQUATES
$insert COMPANY_EQUATES
$insert PROD_VER_EQUATES
@ -44,6 +45,7 @@ $insert SCHEDULE_EVENT_SUMMMARY_EQUATES
$insert EPI_PART_EQUATES
$insert PROD_SPEC_EQUATES
$insert SCHED_HIST_EQUATES
$Insert RDS_EQUATES
Equ new_exist$ To 0 ; * Reduce Mode 0
Equ next_cur$ To 1
@ -814,6 +816,61 @@ Service GetCurrentEvent(ReactNo)
end service
Service CurrentEventIsBlock(ReactNo)
If ReactNo NE '' then
CurrentSchedDetKey = Schedule_Services('GetCurrentEvent', ReactNo)
If Error_Services('NoError') then
CurrentSchedDetRecord = Database_Services('ReadDataRow', 'SCHED_DET_NG', CurrentSchedDetKey)
CurrentEventIsABlock = CurrentSchedDetRecord<SCHED_DET_NG.BLOCK_OUT$>
If CurrentEventIsABlock EQ '' then
CurrentEventIsABlock = False$
end
Response = CurrentEventIsABlock
end else
Error = Error_Services('GetMessage')
ErrorMsg = 'Error in service ':Service:' module. ':Error
Error_Services('Add', ErrorMsg)
end
end else
ErrorMsg = 'Error in service ':Service:' module. Invalid reactor number.'
Error_Services('Add', ErrorMsg)
end
end service
Service GetNextEvent(ReactNo)
SchedDetKey = ''
If ReactNo NE '' then
CurrDTM = Datetime()
Query = 'SELECT SCHED_DET_NG WITH REACT_NO EQ "':ReactNo:'" AND WITH EVENT_COMP NE 1 BY START_DTM'
Set_Status(0)
GoSub ClearCursors
Rlist(Query, TARGET_ACTIVELIST$, '', '', '')
errCode = ''
If Not(Get_Status(errCode)) then
EOF = False$
ReadNext SchedDetKey else EOF = True$
If EOF EQ True$ then
ErrorMsg = 'Error in service ':Service:' module. No incomplete events in schedule'
Error_Services('Add', ErrorMsg)
end else
ReadNext SchedDetKey else EOF = True$
If EOF EQ True$ then
ErrorMsg = 'Error in service ':Service:' module. No incomplete events in schedule after current event'
Error_Services('Add', ErrorMsg)
end else
Response = SchedDetKey
end
end
end else
ErrorMsg = 'Error in service ':Service:' module. Error code ':errCode
Error_Services('Add', ErrorMsg)
end
GoSub ClearCursors
end
end service
Service GetEngagedEvent(ReactNo)
@ -861,6 +918,75 @@ Service GetLastEngagedEvent(ReactNo)
end service
Service NextEventIsSamePsn(ReactNo)
Response = False$
If ReactNo NE '' then
CurrentSchedDetKey = Schedule_Services('GetCurrentEvent', ReactNo)
If Error_Services('NoError') then
CurrentEventIsABlock = Schedule_Services('CurrentEventIsBlock', ReactNo)
If CurrentEventIsABlock EQ False$ then
CurrentSchedDetRecord = Database_Services('ReadDataRow', 'SCHED_DET_NG', CurrentSchedDetKey)
CurrentEventWoNo = CurrentSchedDetRecord<SCHED_DET_NG.WO_NO$>
CurrentEventWoMatRecord = Database_Services('ReadDataRow', 'WO_MAT', CurrentEventWoNo:'*1')
CurrentEventRdsNo = CurrentEventWoMatRecord<WO_MAT_RDS_NO$>
CurrentEventRdsRecord = Database_Services('ReadDataRow', 'RDS', CurrentEventRdsNo)
CurrentEventPsn = CurrentEventRdsRecord<RDS_PROD_SPEC_ID$>
NextSchedDetKey = Schedule_Services('GetNextEvent', ReactNo)
If Error_Services('NoError') then
NextEventIsABlock = Schedule_Services('NextEventIsBlock', ReactNo)
If NextEventIsABlock EQ False$ then
NextSchedDetRecord = Database_Services('ReadDataRow', 'SCHED_DET_NG', NextSchedDetKey)
NextEventWoNo = NextSchedDetRecord<SCHED_DET_NG.WO_NO$>
NextEventWoMatRecord = Database_Services('ReadDataRow', 'WO_MAT', NextEventWoNo:'*1')
NextEventRdsNo = NextEventWoMatRecord<WO_MAT_RDS_NO$>
NextEventRdsRecord = Database_Services('ReadDataRow', 'RDS', NextEventRdsNo)
NextEventPsn = NextEventRdsRecord<RDS_PROD_SPEC_ID$>
PsnsMatch = CurrentEventPsn EQ NextEventPsn
Response = PsnsMatch
end
end
end
end
end else
ErrorMsg = 'Error in service ':Service:' module. Invalid reactor number.'
Error_Services('Add', ErrorMsg)
end
end service
Service NextEventIsBlock(ReactNo)
If ReactNo NE '' then
NextSchedDetKey = Schedule_Services('GetNextEvent', ReactNo)
If Error_Services('NoError') then
NextSchedDetRecord = Database_Services('ReadDataRow', 'SCHED_DET_NG', NextSchedDetKey)
NextEventIsABlock = NextSchedDetRecord<SCHED_DET_NG.BLOCK_OUT$>
If NextEventIsABlock EQ '' then
NextEventIsABlock = False$
end
Response = NextEventIsABlock
end else
Error = Error_Services('GetMessage')
ErrorMsg = 'Error in service ':Service:' module. ':Error
Error_Services('Add', ErrorMsg)
end
end else
ErrorMsg = 'Error in service ':Service:' module. Invalid reactor number.'
Error_Services('Add', ErrorMsg)
end
end service
//----------------------------------------------------------------------------------------------------------------------
// AdjustScheduleEvents
@ -3434,3 +3560,4 @@ CreateScheduleChangeNotification:
return