Extended use of Production 5S to other areas.

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
-            Query := 'FIVE_S_FLAG':@VM:True$:@FM
+        if Not(ShowArchived) then
             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
+
+