Finished developing TW Req'd on metrology frequency for OI UI loading

LSL2/STPROC/RDS_SERVICES.txt

@@ -117,7 +117,7 @@ Declare function    Work_Order_Services, SRP_JSON, Logging_Services, Environment
 Declare function    Memberof, Obj_WO_Mat, Obj_WO_Mat_Log, SRP_Array, DateTime, Dialog_Box, obj_Prod_Spec
 Declare function    RDS_Services, RTI_DistinctList, GetTickCount, Clean_Insp_Services, WO_Mat_QA_Services
 Declare function    PSN_Services, Rds_Layer_Services, SRP_Rotate_Array, Qa_Services, SRP_Date, SRP_Time, SRP_Datetime
-Declare function	Reactor_Services, Signature_Services
+Declare function	Reactor_Services, Signature_Services, obj_rds, Test_Run_Services
 
 LogPath       = Environment_Services('GetApplicationRootPath') : '\LogFiles\RDS'
 LogDate       = Oconv(Date(), 'D4/')
@@ -415,7 +415,6 @@ end service
 // Rows are @FM delimted while columns are @VM delimited.
 //----------------------------------------------------------------------------------------------------------------------
 Service GetRDSData(WorkOrderNo, Columns, ShowGasGauge, RDSOverrideList)
-	
 	RDSList   = ''
 	
 	If ( (WorkOrderNo NE '') or (RDSOverrideList NE '') ) then
@@ -742,6 +741,23 @@ Service IsValidSubLot(RDSNo, RDSType, SupplierLot)
 	Response = IsValid
 end service
 
+Service IsTWLoggingReqd(RDSNo)
+    Response   = False$
+    RDSRec     = Database_Services('ReadDataRow', 'RDS', RDSNo, True$, 0, False$)
+    IsHGCVReqd = obj_RDS('MetPropFlag', RDSNo:@RM:RDSRec:@RM:'CRES')
+    If IsHGCVReqd NE True$ then
+        ExistingTWKeys = Test_Run_Services('GetTestRunKeysByRDS', RDSNo)
+        If ExistingTWKeys EQ '' then
+            Response = True$
+        end else
+            Response = False$
+        end
+        
+    end else
+        Response = True$
+    end
+end service
+
 //----------------------------------------------------------------------------------------------------------------------
 // VerifyEPPMetrology
 //
@@ -1638,3 +1654,4 @@ ClearCursors:
 	
 return
 
+