858 lines
24 KiB
Plaintext
858 lines
24 KiB
Plaintext
Function SVC_Scheduler(Service, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8)
|
||
|
||
/********************************************************************************************************
|
||
|
||
This program is proprietary and is not to be used by or disclosed to others, nor is it to
|
||
be copied without written permission.
|
||
|
||
Name : SVC Scheduler
|
||
|
||
Description :
|
||
|
||
Tags : [SRP]
|
||
|
||
Parameters :
|
||
|
||
History (Date, Initials, Notes)
|
||
10/05/09 fjt Initial development
|
||
01/18/10 fjt Added color for reactors in escalation
|
||
08/24/10 fjt Increased security restrictions
|
||
|
||
********************************************************************************************************/
|
||
|
||
$insert SRP_APP_INSERTS
|
||
$insert SERVICE_INSERT
|
||
$insert WO_SCHEDULER_INSERTS
|
||
|
||
Declare subroutine SRP_ContextMenus, Pop_Mast_Sched_Opts, obj_Appwindow, Update_Index
|
||
Declare subroutine Master_Schedule_Control_Base_Settings, Extract_SI_Keys
|
||
Declare function Get_Lparam, NextKey, MemberOf, Utility_Services, Create_Dialog, Max
|
||
Declare function SVC_Process_Time, SVC_Scheduler, SVC_Dates, SVC_Reactor_List, SVC_Change_Log
|
||
|
||
GoSub Init
|
||
|
||
Begin Case
|
||
|
||
// Menus
|
||
Case Service _eqc "Audit" ; GoSub Audit
|
||
Case Service _eqc "Copy" ; GoSub Copy
|
||
Case Service _eqc "Delete" ; GoSub Delete
|
||
Case Service _eqc "New" ; GoSub New
|
||
Case Service _eqc "Open" ; GoSub Open
|
||
|
||
// Events
|
||
Case Service _eqc "Create" ; GoSub Create
|
||
|
||
// Methods
|
||
Case Service _eqc "AddAppts" ; GoSub AddAppts
|
||
Case Service _eqc "RemoveAppts" ; GoSub RemoveAppts
|
||
|
||
// Events
|
||
Case Service _eqc "AfterApptDrop" ; GoSub AfterApptDrop
|
||
Case Service _eqc "AfterNewApptDrop" ; GoSub AfterNewApptDrop
|
||
Case Service _eqc "OnApptClick" ; GoSub OnApptClick
|
||
Case Service _eqc "OnApptDblClick" ; GoSub OnApptDblClick
|
||
Case Service _eqc "OnDateChange" ; GoSub OnDateChange
|
||
Case Service _eqc "OnScheduleClick" ; GoSub OnScheduleClick
|
||
Case Service _eqc "OnScheduleDblClick" ; GoSub OnScheduleDblClick
|
||
|
||
Case Service _eqc "BeforeApptDrag" ; GoSub BeforeApptDrag
|
||
Case Service _eqc "BeforeApptDrop" ; GoSub BeforeApptDrop
|
||
|
||
Case Service _eqc "BeforeNewApptDrag" ; Send_Message(Ctrl$, "OLE.Cancel", 1) ; Ans = 0
|
||
Case Service _eqc "BeforeNewApptDrop" ; Send_Message(Ctrl$, "OLE.Cancel", 1) ; Ans = 0
|
||
Case Service _eqc "OnTreeCheckChange" ; null
|
||
Case Service _eqc "OnTreeItemExpanded" ; null
|
||
|
||
// Other
|
||
Case Service _eqc "Appt" ; GoSub Appt
|
||
Case Service _eqc "Bump" ; GoSub Bump
|
||
Case Service _eqc "Build_Appt_Rec" ; GoSub Build_Appt_Rec
|
||
Case Service _eqc "CheckWaferSize" ; GoSub Check_Wafer_Size
|
||
Case Service _eqc "ExtSummary" ; GoSub ExtSummary
|
||
Case Service _eqc "FlagSched" ; GoSub FlagSched
|
||
Case Service _eqc "Legacy" ; GoSub Legacy
|
||
Case Service _eqc "ProcTime" ; GoSub ProcTime
|
||
Case Service _eqc "UnFlagSched" ; GoSub UnFlagSched
|
||
|
||
End Case
|
||
|
||
Return Ans
|
||
|
||
|
||
Init:
|
||
Equ Table$ to "WO_MAST_SCHED"
|
||
Equ Info$ to Sched_Win$:".EDT_INFO"
|
||
Equ Day$ to 60 * 60 * 24
|
||
|
||
// Set some security levels
|
||
Auth.Edit = MemberOf(@USER4, 'MASTER_SCHED')
|
||
Auth.Admin = MemberOf(@USER4, 'OI_ADMIN')
|
||
Auth.Test = MemberOf(@USER4, 'TESTING')
|
||
return
|
||
|
||
|
||
!----- RIGHT-CLICK MENUS --------------------------------------------------------------------------------
|
||
|
||
|
||
Audit:
|
||
// Param1 = ApptID
|
||
If Param1 then
|
||
Mode = Yes$ ;// Allow scheduler to remain active
|
||
rv = Create_Dialog("NDW_AUDIT_TRAIL", @Window, Mode, Param1)
|
||
end
|
||
return
|
||
|
||
|
||
Copy:
|
||
Error = No$
|
||
Table = "WO_MAST_SCHED"
|
||
Open Table to hTable else hTable = ""
|
||
|
||
Begin Case
|
||
Case hTable EQ "" ; Error = Yes$
|
||
Case Param1 EQ "" ; Error = Yes$
|
||
|
||
Case Otherwise$
|
||
Key = Param1<1>
|
||
Read Rec from hTable, Key else Rec = ""
|
||
GoSub Define_Schedule_Rec
|
||
|
||
// Determine process time and range
|
||
StartDate = Param1<3>
|
||
StartTime = Rec<16>
|
||
rv = SVC_Scheduler("ProcTime", PSrec, RDS_Cnt, RDS_Comp, WO_Step)
|
||
Proc.Hrs = Field(rv, @RM, 1)
|
||
rv = SVC_Process_Time("CalcRange", StartDate, StartTime, Proc.Hrs)
|
||
|
||
ApptID = NextKey(Table)
|
||
Rec<14> = rv<1> ;// Start date
|
||
Rec<15> = Param1<2> ;// Reactor
|
||
Rec<16> = rv<2> ;// StartTime
|
||
Rec<21> = rv<3> ;// End Date
|
||
Rec<22> = rv<4>
|
||
|
||
Write Rec to hTable, ApptID then
|
||
* Msg(@Window, ApptID)
|
||
rv = SVC_Scheduler("AddAppts", ApptID, Rec)
|
||
end
|
||
|
||
End Case
|
||
return
|
||
|
||
|
||
Delete:
|
||
GoSub RemoveAppts
|
||
return
|
||
|
||
|
||
New:
|
||
Transfer Param2 to Times
|
||
|
||
For i = 1 to 2
|
||
DT = Oconv(Times<i>, "DT")
|
||
Swap " " with @FM in DT
|
||
Date = Iconv(DT<1>:" ":DT<2>:" ":DT<3>, "D")
|
||
Time = Iconv(DT<4>, "MT")
|
||
Times<i> = Time
|
||
Next i
|
||
|
||
// Find the next available queue
|
||
Queue = 1
|
||
Loop
|
||
ApptID = Param1 :"*": Queue
|
||
Until Not(RowExists("WO_MAST_SCHED", ApptID))
|
||
Queue += 1
|
||
Repeat
|
||
rv = Dialog_Box("DBW_WO_MAST_SCHED", @Window, ApptID :@FM: Times)
|
||
return
|
||
|
||
|
||
Open:
|
||
// Param1 = ApptID
|
||
If Param1 and Auth.Edit then
|
||
rv = Dialog_Box("DBW_WO_MAST_SCHED", @Window, Param1)
|
||
end
|
||
return
|
||
|
||
|
||
!----- SCHEDULER METHODS --------------------------------------------------------------------------------
|
||
|
||
|
||
AddAppts:
|
||
// Adds a single appointment to the scheduler
|
||
ApptID = Param1
|
||
Rec = Param2
|
||
Appt = SVC_Scheduler("Build_Appt_Rec", ApptID, Rec)
|
||
rv = Send_Message(Ctrl$, "OLE.AddAppts", Appt)
|
||
return
|
||
|
||
|
||
RemoveAppts:
|
||
// Param1 = ApptID
|
||
// Param2 = Appt Record
|
||
Service = "RemoveAppts"
|
||
rv = Send_Message(Ctrl$, "OLE.RemoveAppts", Param1)
|
||
rv = SVC_Scheduler("UnFlagSched", Param1, Param2)
|
||
rv = SVC_Change_Log(Service, Param1, Param2)
|
||
* Delete : need to add more here?
|
||
return
|
||
|
||
|
||
!----- SCHEDULER EVENTS ---------------------------------------------------------------------------------
|
||
|
||
|
||
AfterApptDrop:
|
||
Transfer Param1 to Key
|
||
Transfer Param2 to EntityID
|
||
Transfer Param3 to Old.EntityID
|
||
Transfer Param4 to Old.Start
|
||
Transfer Param5 to Old.End
|
||
|
||
Appt = Get_Property(Ctrl$, "OLE.Appt[":Key:"]")
|
||
Reactor = EntityID
|
||
Start.A = Appt<2>
|
||
End.A = Appt<3>
|
||
Duration = End.A - Start.A
|
||
Old.Len = Old.End - Old.Start
|
||
|
||
If Duration NE Old.Len then
|
||
// Since the appointment has already been moved, need to reset it back
|
||
Rec = Xlate(Table$, Key, "", "X")
|
||
rv = SVC_Scheduler("Appt", Key, Rec)
|
||
end else
|
||
StartDate = Field(Start.A, ".", 1)
|
||
StartTime = Field(Oconv(Start.A, "DT"), " ", 4)
|
||
StartTime = Iconv(StartTime, "MT")
|
||
If StartTime LE (Day$/2) then StartTime = 0
|
||
If StartTime GT (Day$/2) then StartTime = (Day$/2)
|
||
|
||
End.A = Iconv(Oconv(StartDate, "D") :" ": Oconv(StartTime, "MT"), "DT")
|
||
End.A += Duration
|
||
EndDate = Field(End.A, ".", 1)
|
||
EndTime = Field(Oconv(End.A, "DT"), " ", 4)
|
||
EndTime = Iconv(EndTime, "MT")
|
||
|
||
If StartDate and EndDate and Reactor and Appt then
|
||
Open "WO_MAST_SCHED" to hTable then
|
||
Read Rec from hTable, Key then
|
||
Rec<14> = StartDate
|
||
Rec<15> = Reactor
|
||
Rec<16> = StartTime
|
||
Rec<21> = EndDate
|
||
Rec<22> = EndTime
|
||
Write Rec to hTable, Key then
|
||
rv = SVC_Scheduler("Appt", Key, Rec)
|
||
end
|
||
end
|
||
end
|
||
rv = SVC_Scheduler("Bump", Key, StartDate :"*": Reactor, No$)
|
||
If EndTime EQ (Day$/2) then rv = SVC_Scheduler("Bump", Key, EndDate :"*": Reactor, Yes$)
|
||
end
|
||
end
|
||
return
|
||
|
||
|
||
AfterNewApptDrop:
|
||
Transfer Param1 to Reactor
|
||
Transfer Param2 to DT_Start
|
||
Transfer Param3 to DT_End
|
||
|
||
* DateS = Field(DT_Start, ".", 1)
|
||
* DateE = Field(DT_End, ".", 1)
|
||
*
|
||
* If DateS EQ DateE then
|
||
* ApptID = DateS :"*": Reactor
|
||
* rv = SVC_Scheduler("New", ApptID, DT_Start :@FM: DT_End)
|
||
* end
|
||
return
|
||
|
||
|
||
BeforeApptDrag:
|
||
// Check security restrictions
|
||
If Auth.Edit or Auth.Admin then
|
||
// Clear to drag to another reactor
|
||
end else
|
||
Send_Message(Ctrl$, "OLE.Cancel", 1)
|
||
Ans = 0
|
||
end
|
||
return
|
||
|
||
|
||
BeforeApptDrop:
|
||
// Check wafer size
|
||
// Param1 = ApptID, Param2 = Reactor
|
||
Wafer = Field(Xlate("WO_MAST_SCHED", Param1, "WAFER_SIZE", "X"), " ", 1)
|
||
Event = Xlate("WO_MAST_SCHED", Param1, "EVENT", "X")
|
||
rv = SVC_Scheduler("CheckWaferSize", Service, Param1, Param2, Wafer, Event)
|
||
return
|
||
|
||
|
||
Create:
|
||
Master_Schedule_Control_Base_Settings(Window, Param1)
|
||
Ctrl = Window:".OLE_STATUS"
|
||
Cols = 9
|
||
Set_Property(Ctrl, "OLE.PaneCount", Cols)
|
||
Set_Property(Ctrl, "OLE.PaneAlignment[All]", "Center")
|
||
Set_Property(Ctrl, "OLE.PaneBehavior[All]", "Fix")
|
||
Set_Property(Ctrl, "OLE.PaneBehavior[":Cols:"]", "Maximum")
|
||
|
||
// Status bar pane widths
|
||
w = "90,100,150,25,25,25,100,100"
|
||
For i = 1 to 8
|
||
Set_Property(Ctrl, "OLE.PaneWidth[":i:"]", Field(w, ",", i))
|
||
Next i
|
||
|
||
Set_Property(Ctrl, "OLE.PaneCaption[1]", " ":Version$)
|
||
Set_Property(Ctrl, "OLE.PaneCaption[2]", " ":@USER4)
|
||
If Auth.Admin then Set_Property(Ctrl, "OLE.PaneCaption[4]", "A")
|
||
If Auth.Edit then Set_Property(Ctrl, "OLE.PaneCaption[5]", "E")
|
||
If Auth.Test then Set_Property(Ctrl, "OLE.PaneCaption[6]", "T")
|
||
|
||
GoSub Reactor_List
|
||
return
|
||
|
||
|
||
OnApptClick:
|
||
// Param1 = ApptID
|
||
// Param2 = Button
|
||
Begin Case
|
||
Case Param2 _eqc "Left"
|
||
Case Param2 _eqc "Right"
|
||
lParam = Get_lParam(Ctrl$)
|
||
Table = "SYSREPOSMENUCONTEXT"
|
||
Key = "LSL2**WO_MASTER_SCHEDULER*OLE_SCHEDULE"
|
||
|
||
Begin Case
|
||
Case Auth.Admin ; Key := "_ADMIN"
|
||
Case Not(Auth.Edit) ; Key := "_LIMIT"
|
||
End Case
|
||
|
||
rv = Xlate(Table, Key, "", "X")
|
||
Set_Property(@Window, "@APPTID", Param1)
|
||
SRP_ContextMenus("CREATE/DISPLAY", Ctrl$, lParam, "", rv)
|
||
End Case
|
||
return
|
||
|
||
|
||
OnApptDblClick:
|
||
// Param1 = ApptID
|
||
// Param2 = Button
|
||
Begin Case
|
||
Case Param2 EQ "Left"
|
||
WOStepKey = Xlate(Table$, Param1, 2, "X")
|
||
If WOStepKey then Pop_Mast_Sched_Opts(WOStepKey, Param1)
|
||
End Case
|
||
return
|
||
|
||
|
||
OnDateChange:
|
||
return
|
||
|
||
|
||
OnScheduleClick:
|
||
// Non-appointment area; single click
|
||
// Param1 to EntityID
|
||
// Param2 to Button
|
||
// Param3 to Location
|
||
// Param4 to Point
|
||
return
|
||
|
||
|
||
OnScheduleDblClick:
|
||
// Reactor = Param1
|
||
Transfer Param2 to Button
|
||
Transfer Param3 to Location
|
||
|
||
If Button EQ "Left" then
|
||
Begin Case
|
||
Case Location EQ "Header"
|
||
obj_Appwindow("ViewRelated", "REACTOR" :@RM: Param1)
|
||
Case Location EQ "Entity"
|
||
rv = Dialog_Box("DBW_WO_MAST_SCHED", @Window, "REACTOR" :@RM: Param1)
|
||
End Case
|
||
end
|
||
return
|
||
|
||
|
||
!----- OTHER SERVICES -----------------------------------------------------------------------------------
|
||
|
||
|
||
Appt:
|
||
ApptID = Param1
|
||
Rec = Param2
|
||
Ans = SVC_Scheduler("Build_Appt_Rec", ApptID, Rec)
|
||
Convert @VM to @FM in Ans
|
||
ApptID = Ans<2>
|
||
|
||
!!! need to check for pace !!!
|
||
GoSub Build_Single_Appt
|
||
|
||
Set_Property(Ctrl$, "OLE.Appt[":ApptID:"]", Appt)
|
||
Set_Property(Ctrl$, "OLE.ApptLocked[":ApptID:"]", Param2<17>)
|
||
return
|
||
|
||
|
||
Build_Appt_Rec:
|
||
Key = Param1
|
||
Rec = Param2
|
||
|
||
GoSub Define_Schedule_Rec
|
||
GoSub WO_Status_Colors
|
||
GoSub Define_Schedule_Times
|
||
GoSub Build_Appointment
|
||
|
||
If Locked then Param2<17> = Locked
|
||
Ans = Appt
|
||
return
|
||
|
||
|
||
Bump:
|
||
Key = Param1
|
||
DateReact = Param2
|
||
Noon = Param3
|
||
Date = Field(DateReact, "*", 1)
|
||
Reactor = Field(DateReact, "*", 2)
|
||
Appt = Get_Property(Ctrl$, "OLE.Appt[":Key:"]")
|
||
Table = "WO_MAST_SCHED"
|
||
|
||
Open Table to hTable then
|
||
Update_Index(Table, "DATE_REACT", No$)
|
||
Extract_SI_Keys(Table, "DATE_REACT", DateReact, Keys)
|
||
Duration = (Appt<3> - Appt<2>)
|
||
If Noon then Duration -= .5
|
||
|
||
If Appt and Keys and Duration then
|
||
Swap @VM with @FM in Keys
|
||
Cnt = Count(Keys, @FM) + (Keys NE "")
|
||
For i = 1 to Cnt
|
||
Begin Case
|
||
Case Key EQ Keys<i> ;// Current key
|
||
Case Otherwise$
|
||
Read Rec from hTable, Keys<i> then
|
||
StartTime = SVC_Dates("ADD", Rec<14>, Rec<16>, Duration)
|
||
EndTime = SVC_Dates("ADD", Rec<21>, Rec<22>, Duration)
|
||
Rec<14> = StartTime<1>
|
||
Rec<16> = StartTime<2>
|
||
Rec<21> = EndTime<1>
|
||
Rec<22> = EndTime<2>
|
||
Write Rec to hTable, Keys<i> then
|
||
// Reset the display for this appt.
|
||
rv = SVC_Scheduler("Appt", Keys<i>, Rec)
|
||
rv = SVC_Scheduler("Bump", Keys<i>, StartTime<1> :"*": Reactor, No$)
|
||
If EndTime<2> EQ (Day$/2) then rv = SVC_Scheduler("Bump", Key, EndTime<1> :"*": Reactor, Yes$)
|
||
end
|
||
end
|
||
End Case
|
||
Next i
|
||
end
|
||
end
|
||
return
|
||
|
||
|
||
Check_Wafer_Size:
|
||
Ans = Yes$
|
||
Svc = Param1
|
||
ApptID = Param2
|
||
Reactor = Param3
|
||
Size.WO = Param4
|
||
Event = Param5
|
||
|
||
* Size.WO = Field(Xlate("WO_MAST_SCHED", ApptID, "WAFER_SIZE", "X"), " ", 1)
|
||
Size.RE = Field(Xlate("REACTOR", Reactor, 29, "X"), " ", 3) ;// Susceptor size
|
||
|
||
Begin Case
|
||
Case Event
|
||
Case Wafer.Check.On$ EQ No$
|
||
Case Size.WO NE Size.RE
|
||
Ans = No$
|
||
Begin Case
|
||
Case Svc EQ "BeforeApptDrop"
|
||
Err = "Move not allowed due to a wafer size mismatch."
|
||
rv = Utility_Services("Balloon", Error, @Window:".EDL_DATE", "", Err)
|
||
Send_Message(Ctrl$, "OLE.Cancel", 1)
|
||
Case Svc EQ "Copy"
|
||
Err = "Copy not allowed due to a wafer size mismatch."
|
||
rv = Utility_Services("Balloon", Error, @Window:".EDL_DATE", "", Err)
|
||
Case Svc EQ "PUB_SAVE"
|
||
Err = "Appointment save is not allowed due to a wafer size mismatch."
|
||
rv = Utility_Services("Balloon", Error, @Window:".EDL_APPT", "", Err)
|
||
End Case
|
||
End Case
|
||
return
|
||
|
||
|
||
ExtSummary:
|
||
ApptID = Param1
|
||
Rec = Param2
|
||
Key = ApptID
|
||
Array = Get_Property(Info$, "OLE.Array")
|
||
|
||
If Rec EQ "" then Rec = Xlate(Table$, ApptID, "", "X")
|
||
|
||
GoSub Define_Schedule_Rec
|
||
GoSub WO_Status_Colors
|
||
GoSub Reactor_Schedule_Setup
|
||
|
||
// Targets
|
||
TarThick = Xlate("WO_LOG", WOno, "THICK_TARGET_L1", "X")<0,1>
|
||
TarResist = Xlate("WO_LOG", WOno, "RES_TARGET_L1", "X")<0,1>
|
||
TarTuom = Xlate("WO_LOG", WOno, "THICK_UNITS_L1", "X")<0,1>
|
||
TarRuom = Xlate("WO_LOG", WOno, "RES_UNITS_L1", "X")<0,1>
|
||
|
||
// Determine the process time
|
||
rv = SVC_Scheduler("ProcTime", Rec<02>, Rec)
|
||
Proc.Hrs = Field(rv, @RM, 1)
|
||
BoxPer = Field(rv, @RM, 2)
|
||
MinPer = Field(rv, @RM, 3)
|
||
MinRem = Field(rv, @RM, 4)
|
||
Proc.Day = Field(rv, @RM, 5)
|
||
Wafers = Field(rv, @RM, 6)
|
||
|
||
CustName = Trim(CustNo:" - ":CustName)
|
||
If Index(CustName, "<no name>", 1) then CustName = ""
|
||
Cycles = Xlate("REACT_TUBE", Reactor, "SVC_CYCLES", "X")<0,1>
|
||
|
||
Array<01> = ApptID
|
||
Array<02> = WOno
|
||
Array<03> = CustName
|
||
Array<04> = EPIno
|
||
Array<05> = PSNno
|
||
Array<06> = Oconv(TarThick, "MD2") :" ":TarTuom:" / ": Oconv(TarResist, "MD3") :" ":TarRuom
|
||
Array<07> = RDS_Comp
|
||
Array<08> = RDS_Cnt
|
||
Array<09> = Wafer
|
||
Array<10> = Oconv(MinPer, "MD1") :" mpw"
|
||
Array<11> = Oconv(Commit, "D4/")
|
||
Array<12> = Cycles
|
||
Array<13> = MinRem
|
||
Array<14> = Notes
|
||
Array<15> = Event
|
||
Array<16> = Color_B
|
||
Array<17> = Color_F
|
||
Array<18> = Color_S
|
||
Array<19> = Reactor
|
||
Array<20> = Date
|
||
Array<21> = RecipeNo
|
||
Array<22> = RecipeName
|
||
Array<23> = Dopant
|
||
Array<24> = TubePressure
|
||
Array<25> = WandRestrictor
|
||
Array<26> = PinnedSusceptor
|
||
Array<27> = Oconv(BoxPer, "MD1") :" mpb"
|
||
Array<28> = Proc.Day
|
||
Array<29> = Wafers
|
||
Array<30> = Oconv(Proc.Hrs, "MD1") : " hrs."
|
||
Array<31> = WO_Qty
|
||
Array<32> = RDS_Comp*WPB
|
||
|
||
Ans = Array
|
||
return
|
||
|
||
|
||
FlagSched:
|
||
// Flag an WO as being scheduled
|
||
// This is field 9 in WO_LOG and field 14 in WO_STEP
|
||
ApptID = Param1
|
||
Rec = Param2
|
||
WO_Step = Rec<01>
|
||
WO_No = Rec<02>
|
||
Flag = Yes$
|
||
GoSub WO_Flag
|
||
return
|
||
|
||
|
||
ProcTime:
|
||
Ans = SVC_Process_Time(Service, Param1, Param2, Param3, Param4, Param5)
|
||
return
|
||
|
||
|
||
Legacy:
|
||
If Get_Property('NDW_MAIN', 'VISIBLE') then
|
||
AppMain = 'NDW_MAIN'
|
||
end else
|
||
AppMain = 'LSL_MAIN2'
|
||
end
|
||
Enabled = No$
|
||
If Auth.All$ EQ No$ then
|
||
Enabled = Yes$
|
||
Set_Property(AppMain : ".MENU.WIN.PROD.RSCHED", "ENABLED", 1)
|
||
end else
|
||
If MemberOf(@USER4, 'TESTING') then
|
||
Enabled = Yes$
|
||
end
|
||
end
|
||
Set_Property(AppMain : ".MENU.WIN.PROD.RSCHED", "ENABLED", Enabled)
|
||
return
|
||
|
||
|
||
WO_Flag:
|
||
Open "WO_LOG" to hTable then
|
||
Read rv from hTable, WO_No then
|
||
WriteV Flag to hTable, WO_No, 9 else null
|
||
end
|
||
end
|
||
|
||
Open "WO_STEP" to hTable then
|
||
Read rv from hTable, WO_Step then
|
||
// Change to boolean per David/JH
|
||
WriteV Flag to hTable, WO_Step, 14 else null
|
||
* WriteV 1 to hTable, WO_No, 14 else null
|
||
* WriteV WO_No:"*1" to hTable, WO_No, 14 else null
|
||
end
|
||
end
|
||
return
|
||
|
||
|
||
UnFlagSched:
|
||
// Unflag an WO as being scheduled
|
||
// This is field 9 in WO_LOG and field 14 in WO_STEP
|
||
ApptID = Param1
|
||
Rec = Param2
|
||
WO_Step = Rec<01>
|
||
WO_No = Rec<02>
|
||
Flag = No$
|
||
GoSub WO_Flag
|
||
return
|
||
|
||
|
||
!----- INTERNAL ROUTINES --------------------------------------------------------------------------------
|
||
|
||
|
||
Build_Single_Appt:
|
||
Appt = ""
|
||
Appt<01> = Ans<01> ;// Entity ID
|
||
Appt<02> = Ans<03> ;// Start date / time
|
||
Appt<03> = Ans<04> ;// End date / time
|
||
Appt<04> = Ans<05> ;// Background color
|
||
Appt<05> = Ans<06> ;// Foreground color
|
||
Appt<06> = Ans<07> ;// Title
|
||
Appt<07> = Ans<08> ;// Description
|
||
Appt<08> = "" ;// Lead Time
|
||
Appt<09> = ""
|
||
Appt<10> = ""
|
||
Appt<11> = ""
|
||
Appt<12> = "" ;// Trail Time
|
||
return
|
||
|
||
|
||
Reset_Date:
|
||
* Table = "WO_MAST_SCHED"
|
||
* Update_Index(Table, "SCHED_DT", No$)
|
||
* Extract_SI_Keys(Table, "SCHED_DT", Date, rv)
|
||
* Cnt = Count(rv, @VM) + (rv NE "")
|
||
*
|
||
* For i = 1 to Cnt
|
||
* Key = rv<0,i>
|
||
* Rec = Xlate(Table, Key, "", "X")
|
||
* rv = SVC_Scheduler("Appt", Key, Rec)
|
||
* Next i
|
||
return
|
||
|
||
|
||
Reactor_Schedule_Setup:
|
||
// Taken from the window WO_MAINT_SCHED, Create event
|
||
Equ Prod_Spec_Spec_Epi$ to 15
|
||
Equ Prod_Spec_Wand_Restricter$ to 89
|
||
Equ Prod_Spec_Tube_Pressure_Type$ to 92
|
||
Equ Prod_Spec_Susceptor_Type$ to 110
|
||
|
||
Equ QSEpiDopant$ to 10
|
||
Equ QSEpiRecipe$ to 11
|
||
Equ QSEpiRecipeName$ to 12
|
||
|
||
SpecEpi = PSrec<Prod_Spec_Spec_Epi$>
|
||
Convert Char(247) to @FM in SpecEpi
|
||
Convert Char(248) to @FM in SpecEpi
|
||
|
||
// Pull off the first layer info
|
||
Dopant = SpecEpi<1,QSEpiDopant$>
|
||
RecipeNo = SpecEpi<1,QSEpiRecipe$>
|
||
RecipeName = SpecEpi<1,QSEpiRecipeName$>
|
||
TubePressure = PSrec<Prod_Spec_Tube_Pressure_Type$>
|
||
PinnedSusceptor = PSrec<Prod_Spec_Susceptor_Type$>
|
||
WandRestrictor = PSrec<Prod_Spec_Wand_Restricter$>
|
||
WandRestrictor = Oconv(WandRestrictor, 'B')
|
||
return
|
||
|
||
|
||
Define_Schedule_Rec:
|
||
// WO Schedule Record
|
||
StepKey = Rec<01,1>
|
||
WOno = Rec<02>
|
||
Event = Rec<04>
|
||
Hot = Rec<05>
|
||
PSNno = Rec<06>
|
||
* Released = Rec<07>
|
||
CustNo = Rec<08>
|
||
Status = Rec<09>
|
||
Notes = Rec<11>
|
||
EPIno = Rec<13>
|
||
Date = Rec<14>
|
||
StartDate = Rec<14>
|
||
Reactor = Rec<15>
|
||
StartTime = Rec<16>
|
||
Locked = Rec<17>
|
||
ProcTime = Rec<20>
|
||
EndDate = Rec<21>
|
||
EndTime = Rec<22>
|
||
Stoppage = Rec<29>
|
||
|
||
// RDS
|
||
RDS_Comp = 0
|
||
WO_Qty = Max(Xlate("WO_LOG", WOno, 4, "X"), Xlate("WO_LOG", WOno, "RX_QTY", "X")) ;// Qty vs. Rcvd
|
||
WO_Step = Xlate("WO_STEP", StepKey, "", "X")
|
||
RDS_Keys = WO_Step<06>
|
||
RDS_Unload = Xlate("REACT_RUN", RDS_Keys, "UNLOAD_SIG", "X")
|
||
* RDS_Unload = Xlate("REACT_RUN", RDS_Keys, "LOAD_SIG", "X")
|
||
RDS_Cnt = Count(RDS_Keys, @VM) + (RDS_Keys NE "")
|
||
WPB = Xlate("RDS", WO_Step<6>, "WAFERS_SCHEDULED", "X")<0,1> ;// Wafers per box
|
||
|
||
// RDS Completed
|
||
Pos.x = 0 ; Delim.x = ""
|
||
Loop
|
||
Remove Val from RDS_Unload at Pos.x setting Delim.x
|
||
If Val GT "" then RDS_Comp += 1
|
||
Until Delim.x EQ 0
|
||
Repeat
|
||
|
||
// Build completed line with note tag if applicable
|
||
* Comp = "RDS: ":RDS_Comp:" of ":RDS_Cnt
|
||
Qty_Comp = RDS_Comp * WPB
|
||
Comp = "Wafers: ":Qty_Comp:" of ":WO_Qty
|
||
If Notes then Comp := " (See Note)"
|
||
|
||
WO.Done = (RDS_Comp EQ RDS_Cnt) and (RDS_Comp NE 0)
|
||
Comp.Time = "0.0"
|
||
If WO.Done then
|
||
Comp.Time = Sum(Xlate("RDS", RDS_Keys, "ELAPSED_HOURS", "X"))
|
||
Comp.Time = Iconv(Comp.Time, "MD0")
|
||
Comp.Time = Oconv(Comp.Time, "MD2")
|
||
end
|
||
|
||
// Customer Name
|
||
CustName = Xlate(Table$, Key, "CUST_NAME", "X")
|
||
If CustName EQ "" then CustName = "<no name>"
|
||
|
||
// Work Order Record
|
||
WOrec = Xlate("WO_LOG", WOno, "", "X")
|
||
Released = Xlate("WO_LOG", WONo, "REL_STAMP", "X") GT ""
|
||
Commit = WOrec<14>
|
||
|
||
// Product Spec Record
|
||
PSrec = Xlate("PROD_SPEC", PSNno, "", "X")
|
||
MinPer = PSrec<96> ;// MINUTES_PER_WAFER
|
||
Wafer = Xlate("PROD_SPEC", PSNno, "SUB_WAFER_INCHES", "X") ;// symb
|
||
|
||
// Stoppage adjustment
|
||
Stoppage = Oconv(Stoppage, "MD1")
|
||
|
||
// Element is the top header of the appointment; description
|
||
Desc = ""
|
||
Element = ""
|
||
Begin Case
|
||
Case Event
|
||
Element = Event
|
||
Desc = "Notes: ":Notes
|
||
|
||
Case WO.Done
|
||
Stoppage = 0
|
||
Element = "WO ":WOno
|
||
Desc = CustName :Crlf$
|
||
Desc := "Completed ":RDS_Comp:" of ":RDS_Cnt :Crlf$
|
||
Desc := "Est: ":Oconv(ProcTime, "MD1") : " / Act: " : Comp.Time
|
||
Locked = Yes$
|
||
|
||
Case WOno
|
||
Spcr = 3
|
||
Days = Int((EndDate - StartDate) / Spcr)
|
||
If Days LE 0 then Days = 1
|
||
Element = "WO ":WOno
|
||
If Days GT 1 then Element = Str(Fmt(Element, "L#":27*Spcr), Days)
|
||
|
||
Desc = Str(Fmt(Trim(CustNo:" - ":CustName), "L#104"), Days) :Crlf$
|
||
Desc := Str(Fmt("PSN: ":PSNno, "L#14") : Fmt("EPI: ":EPIno, "L#":30*Spcr), Days) :Crlf$
|
||
Desc := Str(Fmt("Wafer: ":Wafer, "L#14") : Fmt(Comp, "L#":30*Spcr), Days)
|
||
|
||
Case Otherwise$
|
||
Element = "<unknown>"
|
||
Desc = ""
|
||
|
||
End Case
|
||
return
|
||
|
||
|
||
WO_Status_Colors:
|
||
Color_F = "" ; Color_B = "" ; Color_S = ""
|
||
Begin Case
|
||
Case Event EQ "Down – No Material" ; Color_F = White$ ; Color_B = "Sienna" ; Color_S = "Offline"
|
||
Case Event ; Color_F = Black$ ; Color_B = "GoldenRod" ; Color_S = "Offline"
|
||
Case WO.Done ; Color_F = Black$ ; Color_B = "Gainsboro" ; Color_S = "Completed"
|
||
Case Hot ; Color_F = Black$ ; Color_B = "LightCoral" ; Color_S = "Hot"
|
||
Case Not(Released) ; Color_F = Black$ ; Color_B = "Yellow" ; Color_S = "Not Released"
|
||
Case Released and RDS_Comp EQ 0 ; Color_F = Black$ ; Color_B = "GreenYellow" ; Color_S = "Not Started"
|
||
Case RDS_Comp EQ RDS_Cnt and Qty_Comp NE WO_Qty ; Color_F = Black$ ; Color_B = "GreenYellow" ; Color_S = "More Unreleased"
|
||
Case RDS_Comp GT 0 ; Color_F = Black$ ; Color_B = "Lime" ; Color_S = "In Process"
|
||
Case Index(Status, "INPR", 1) ; Color_F = Black$ ; Color_B = "Lime" ; Color_S = "In Process"
|
||
Case Index(Status, "RTS", 1) ; Color_F = Black$ ; Color_B = "DarkGray" ; Color_S = "In Process"
|
||
Case Otherwise$ ; Color_F = White$ ; Color_B = "DarkSlateBlue" ; Color_S = "Unknown"
|
||
End Case
|
||
return
|
||
|
||
|
||
Define_Schedule_Times:
|
||
* If EndTime EQ 0 then EndTime = Iconv("11:59:59PM", "MT")
|
||
|
||
* debug
|
||
T_Start = Oconv(StartDate, "D4/")
|
||
T_Start<2> = Oconv(StartTime, "MTS")
|
||
T_Start = Iconv(T_Start<1> :" ": T_Start<2>, "DT")
|
||
T_End = Oconv(EndDate, "D4/")
|
||
T_End<2> = Oconv(EndTime, "MTS")
|
||
T_End = Iconv(T_End<1> :" ": T_End<2>, "DT")
|
||
return
|
||
|
||
|
||
Build_Appointment:
|
||
T_End += Stoppage
|
||
|
||
Appt = ""
|
||
Appt := Reactor :@VM ;// 01 Entity ID
|
||
Appt := Key :@VM ;// 02 Appointment key
|
||
Appt := T_Start :@VM ;// 03 Start date / time
|
||
Appt := T_End :@VM ;// 04 End date / time
|
||
Appt := Color_B :@VM ;// 05 Background color
|
||
Appt := Color_F :@VM ;// 06 Foreground color
|
||
Appt := Element :@VM ;// 07 Element (header)
|
||
Appt := Desc :@VM ;// 08 Description
|
||
Appt := "" :@VM ;// 09 Lead time
|
||
Appt := "3DFace" :@VM ;// 10 Lead Back Color
|
||
Appt := "3DShadow" :@VM ;// 11 Lead Text Color
|
||
Appt := "" :@VM ;// 12 Lead time text label
|
||
Appt := Stoppage :@VM ;// 13 Trail time
|
||
Appt := "3DFace" :@VM ;// 14 Trail Back Color
|
||
Appt := "3DShadow" :@VM ;// 15 Trail Text Color
|
||
|
||
// 16 Trail time text label
|
||
If Stoppage GT 0 then Appt<0,16> = "Pace Adjustment"
|
||
return
|
||
|
||
|
||
Reactor_List:
|
||
// Reactors are the appointment entities
|
||
rv = SVC_Reactor_List("List", Data, Colors)
|
||
|
||
// Set the list of reactors
|
||
Set_Property(@Window:".OLE_SCHEDULE", "OLE.EntityList", Data)
|
||
|
||
// Set foreground colors
|
||
Cnt = Count(Colors, @FM) + (Colors NE "")
|
||
For i = 1 to Cnt
|
||
Ent = Colors<i>
|
||
rv = Get_Property(@Window:".OLE_SCHEDULE", "OLE.Entity[":Ent:"]")
|
||
rv<3> = "Brown"
|
||
Set_Property(@Window:".OLE_SCHEDULE", "OLE.Entity[":Ent:"]", rv)
|
||
Next i
|
||
return
|
||
|