open-insight/LSL2/STPROC/EPIPRO_SERVICES.txt
Infineon\StieberD 7762b129af pre cutover push
2024-09-04 20:33:41 -07:00

56 lines
1.7 KiB
Plaintext

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