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,10 +1,11 @@
 compile insert PM_SPEC_EQUATES
 /*----------------------------------------
  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
@@ -35,7 +36,6 @@ 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 
 
-
+#endif
-
-