Imports Leadtools
Imports Leadtools.Medical.Worklist.Wcf.Service
Imports Leadtools.Medical.Worklist.DataAccessLayer.MatchingParameters
Imports Leadtools.Dicom
Imports Leadtools.Medical.Worklist.Wcf.Entities
Public Sub MPPSQueryTest()
Try
Dim query As New MPPSQuery()
Dim results As WCFPPSInformation() = Nothing
'
' Find all modality performed procedure steps in progress
'
query.PPSInfo = New WCFPPSInformation() With {.PerformedProcedureStepStatus = "IN PROGRESS"}
results = _BrokerService.QueryMPPS(query)
If results IsNot Nothing AndAlso results.Length > 0 Then
For Each mpps As WCFPPSInformation In results
Console.WriteLine(mpps.MPPSSOPInstanceUID)
Console.WriteLine(mpps.Modality)
Next
End If
Catch e As Exception
Debug.WriteLine(e.Message)
End Try
End Sub
using Leadtools;
using Leadtools.Medical.Worklist.Wcf.Service;
using Leadtools.Medical.Worklist.DataAccessLayer.MatchingParameters;
using Leadtools.Dicom;
using Leadtools.Medical.Worklist.Wcf.Entities;
public void MPPSQueryTest()
{
try
{
MPPSQuery query = new MPPSQuery();
WCFPPSInformation[] results = null;
//
// Find all modality performed procedure steps in progress
//
query.PPSInfo = new WCFPPSInformation() { PerformedProcedureStepStatus = "IN PROGRESS" };
results = _BrokerService.QueryMPPS(query);
if (results != null && results.Length > 0)
{
foreach (WCFPPSInformation mpps in results)
{
Console.WriteLine(mpps.MPPSSOPInstanceUID);
Console.WriteLine(mpps.Modality);
}
}
}
catch (Exception e)
{
Debug.WriteLine(e.Message);
}
}