added triggers to calculate and store the scrapped quantity of a work order and auto close the work order when the scrap quantity and ship quantity equal the total work order quantity

added performance improvements to reduce unnecessary writes to the WO_LOG table

LSL2/STPROC/RDS_ACTIONS.txt

@@ -870,12 +870,12 @@ WRITE_RECORD:
     
     Service_Services('PostProcedure', 'RDS_SERVICES', 'PushSigProfileToWoMat':@VM:Name)
     
+    WONo    	= Record<RDS_WO$>
     OrigDateOut = OrigRecord<RDS_DATE_OUT$>
     NewDateOut  = Record<RDS_DATE_OUT$>
     
     If ( ( (OrigDateOut EQ '') and (NewDateOut NE '') ) ) then
         // Mark this cassette as processed in the schedule event record
-        WONo    	= Record<RDS_WO$>
         DatetimeOut = {DATETIME_OUT}
 		ReactType   = Xlate('WO_LOG', WONo, 'REACT_TYPE', 'X')
 		EpiPro      = (ReactType EQ 'EPP')        
@@ -891,6 +891,12 @@ WRITE_RECORD:
         end
     end
     
+    OrigPocketChar = OrigRecord<RDS_POCKET_CHAR$>
+    NewPocketChar  = Record<RDS_POCKET_CHAR$>
+    If (OrigPocketChar NE NewPocketChar) then
+    	Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateScrappedQty':@VM:WONo)
+    end
+    
     EndTick = GetTickCount()
     Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)