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
