Extended use of Production 5S to other areas.

LSL2/STPROC/NDW_5S_EVENTS.txt

@@ -52,7 +52,18 @@ Return EventFlow or 1
 //-----------------------------------------------------------------------------
 
 Event WINDOW.CREATE(CreateParam)
-    
+    SelectedArea = ''
+    Begin Case
+        Case CreateParam EQ 'CLEANROOM'
+            SelectedArea = 'CLEANROOM'
+        Case CreateParam EQ 'MAINTENANCE'
+            SelectedArea = 'MAINTENANCE'
+        Case CreateParam EQ 'SHIPPING/RECEIVING'
+            SelectedArea = 'SHIPPING/RECEIVING'
+        Case Otherwise$
+            SelectedArea = 'CLEANROOM'
+    End Case
+    Set_Property(@Window : '.CMB_AREA', 'TEXT', SelectedArea)
     GoSub Setup_OLE_Controls
     GoSub SetupForm
     GoSub GetKeys
@@ -68,6 +79,10 @@ Event CHK_ARCHIVED.CLICK()
     
 end event
 
+Event CMB_AREA.CHANGED(NewData)
+    GoSub GetKeys
+end event
+
 
 Event EDT_5S_TABLE.OnClick(Cell, Point, Button, Shift, Ctrl)
     
@@ -202,11 +217,10 @@ end event
 //-----------------------------------------------------------------------------
 
 GetKeys:
-    
-    //Step 1: Check if the archived button is set
     ShowArchived = Get_Property(@Window : '.CHK_ARCHIVED', 'CHECK')
-    //Step 2: Get the 5S keys, passing the Show Archived variable
+    SelectedArea = Get_Property(@Window : '.CMB_AREA', 'TEXT')
-    FiveSPMKeys  = Pm_Services('Get5SPMs', ShowArchived) 
+    
+    FiveSPMKeys  = Pm_Services('Get5SPMs', ShowArchived, SelectedArea) 
     
 FormatData:
     
@@ -375,3 +389,4 @@ Setup_OLE_Controls:
 return
 
 
+

LSL2/STPROC/PM_SERVICES.txt

@@ -51,6 +51,8 @@ Return Response or ""
 // Service Parameter Options
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 Options BOOLEAN     = True$, False$
+Options PM_CLASSES = 'SCRUBBER', '5S'
+Options AREAS = 'CLEANROOM', 'SHIPPING/RECEIVING', 'MAINTENANCE'
 
 //-----------------------------------------------------------------------------
 // SERVICES
@@ -444,7 +446,6 @@ Service FailedPM(PMNo, UserID, StartDTM)
     
 end service
 
-
 Service ProcessQual(PSN, ToolID, CompDtm, Pass)
     
     StatusCode = 'UID001'
@@ -520,19 +521,21 @@ Service ProcessQual(PSN, ToolID, CompDtm, Pass)
 end service
 
 
-Service Get5SPMs(ShowArchived=BOOLEAN)
+Service Get5SPMs(ShowArchived=BOOLEAN, Area=AREAS)
     
     Option  = ''
     Flag    = ''
     keylist = ''
     Query  = ''
     Open 'DICT.PM_SPEC' to PmsDict then
-        if NOT(ShowArchived) then
+        if Not(ShowArchived) then
-            Query := 'FIVE_S_FLAG':@VM:True$:@FM
             Query := 'ARCHIVED':@VM:'#1':@FM 
-        end else
-            Query := 'FIVE_S_FLAG':@VM:True$:@FM
         end
+        If Area NE '' then
+            Query := 'AREA':@VM:Area:@FM
+        end
+        Query := 'FIVE_S_FLAG':@VM:True$:@FM
+
         Btree.Extract(Query, 'PM_SPEC', PmsDict, keylist, '', Flag)
     end
     Response = keylist
@@ -1078,4 +1081,9 @@ Service GetActivePMsByToolId(ToolId)
     Response = ActivePMIdList
 end service
 
+Processing:
+  ctr += 1
+return
+
+
 

LSL2/STPROCINS/PM_SPEC_EQUATES.txt

@@ -1,41 +1,41 @@
 compile insert PM_SPEC_EQUATES
 /*----------------------------------------
- Author      : Table Create Insert Routine
+ Author : Table Create Insert Routine
- Written     : 31/10/2016
+ Written : 12/12/2024
  Description : Insert for Table PM_SPEC
 ----------------------------------------*/
+#ifndef __PM_SPEC_EQUATES__ 
+#define __PM_SPEC_EQUATES__ 
 
+    Equ PM_SPEC_PMS_ID$                  To   0
+    Equ PM_SPEC_TOOL_ID$                 To   1
+    Equ PM_SPEC_DESC$                    To   2
+    Equ PM_SPEC_CHANGE_STAT$             To   3
+    Equ PM_SPEC_UNITS$                   To   4
+    Equ PM_SPEC_INT_TIME_CD$             To   5
+    Equ PM_SPEC_INTERVAL$                To   6
+    Equ PM_SPEC_INT_DT$                  To   6
+    Equ PM_SPEC_INT_QTY$                 To   6
+    Equ PM_SPEC_INT_TM$                  To   6
+    Equ PM_SPEC_EARLY_START_DELTA$       To   7
+    Equ PM_SPEC_EARLY_START_DT$          To   7
+    Equ PM_SPEC_EARLY_START_QTY$         To   7
+    Equ PM_SPEC_EARLY_START_TM$          To   7
+    Equ PM_SPEC_LATE_START_DELTA$        To   8
+    Equ PM_SPEC_LATE_START_DT$           To   8
+    Equ PM_SPEC_LATE_START_QTY$          To   8
+    Equ PM_SPEC_LATE_START_TM$           To   8
+    Equ PM_SPEC_NOTES$                   To  17
+    Equ PM_SPEC_PM_KEYS$                 To  18
+    Equ PM_SPEC_PM_START_TIME$           To  19
+    Equ PM_SPEC_PM_ARCHIVED$             To  20
+    Equ PM_SPEC_FIVE_S_FLAG$             To  21
+    Equ PM_SPEC_SEND_EARLY_NOTIFICATION$ To  22
+    Equ PM_SPEC_SEND_DUE_NOTIFICATION$   To  23
+    Equ PM_SPEC_SEND_LATE_NOTIFICATION$  To  24
+    Equ PM_SPEC_LAST_PM_COMP_DTM$        To  25
+    Equ PM_SPEC_PM_CLASS$                To  26
+    Equ PM_SPEC_AD_NOTIFICATION_GROUPS$  To  27
+    Equ PM_SPEC_AREA$                    To  28 
 
-Equ PM_SPEC_PMS_ID$                  To   0
+#endif
-Equ PM_SPEC_TOOL_ID$                 To   1
-Equ PM_SPEC_DESC$                    To   2
-Equ PM_SPEC_CHANGE_STAT$             To   3
-Equ PM_SPEC_UNITS$                   To   4
-Equ PM_SPEC_INT_TIME_CD$             To   5
-Equ PM_SPEC_INTERVAL$                To   6
-Equ PM_SPEC_INT_DT$                  To   6
-Equ PM_SPEC_INT_QTY$                 To   6
-Equ PM_SPEC_INT_TM$                  To   6
-Equ PM_SPEC_EARLY_START_DELTA$       To   7
-Equ PM_SPEC_EARLY_START_DT$          To   7
-Equ PM_SPEC_EARLY_START_QTY$         To   7
-Equ PM_SPEC_EARLY_START_TM$          To   7
-Equ PM_SPEC_LATE_START_DELTA$        To   8
-Equ PM_SPEC_LATE_START_DT$           To   8
-Equ PM_SPEC_LATE_START_QTY$          To   8
-Equ PM_SPEC_LATE_START_TM$           To   8
-Equ PM_SPEC_NOTES$                   To  17
-Equ PM_SPEC_PM_KEYS$                 To  18
-Equ PM_SPEC_PM_START_TIME$           To  19
-Equ PM_SPEC_PM_ARCHIVED$             To  20
-Equ PM_SPEC_FIVE_S_FLAG$             To  21
-Equ PM_SPEC_SEND_EARLY_NOTIFICATION$ To  22
-Equ PM_SPEC_SEND_DUE_NOTIFICATION$   To  23
-Equ PM_SPEC_SEND_LATE_NOTIFICATION$  To  24
-Equ PM_SPEC_LAST_PM_COMP_DTM$        To  25
-Equ PM_SPEC_PM_CLASS$                To  26
-Equ PM_SPEC_AD_NOTIFICATION_GROUPS$  To  27 
-
-
-
-