added LSL2 stored procedures

LSL2/STPROC/EPIPRO_SERVICES.txt

@@ -0,0 +1,55 @@
+Compile function EpiPro_Services(@Service, @Params)
+#pragma precomp SRP_PreCompiler
+
+$insert LOGICAL
+$insert WM_OUT_EQUATES
+
+Declare function Database_Services, Error_Services
+Declare subroutine Error_Services
+
+GoToService
+
+Return Response or ""
+
+//-----------------------------------------------------------------------------
+// SERVICES
+//-----------------------------------------------------------------------------
+
+Service GetBatchID(MUCassID)
+    
+    Response = ''
+    If MUCassID NE '' then
+        WONo     = Field(MUCassID, '.', 1)
+        CassNo   = Field(MUCassID, '.', 2)
+        WOMatKey = WONo:'*':CassNo
+        BatchID  = Xlate('WO_MAT', WOMatKey, 'SAP_BATCH_NO', 'X')
+        Response = BatchID
+    end
+    
+end service
+
+
+//----------------------------------------------------------------------------------------------------------------------
+// GetFinalQAStatus
+//
+// RDSNo. - [Required]
+//
+// Returns the boolean value of the Final QA status of a given RDS record. Returns True$ if
+// the Final QA step is signed and False$ if it is not signed.
+//----------------------------------------------------------------------------------------------------------------------
+Service GetFinalQAStatus(WMOKey)
+    
+    FinalQA         = False$
+    If WMOKey NE '' then
+        WMOutRow    = Database_Services('ReadDataRow', 'WM_OUT', WMOKey)
+        If Error_Services('NoError') then
+            If (WMOutRow<WM_OUT_SUP_VER_SIG$> NE '') then
+                FinalQA = True$
+            end
+        end
+    end else
+        Error_Services('Add', 'Null WMOKey supplied to ':Service:'.')     
+    end
+    Response = FinalQA
+
+End Service