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 MPPSTest()
Try
Dim pps As WCFPPSInformation = _BrokerService.FindMPPS("987.654.3210000")
If Not pps Is Nothing Then
_BrokerService.DeleteMPPS("987.654.3210000")
End If
pps = New WCFPPSInformation()
pps.MPPSSOPInstanceUID = "987.654.3210000"
pps.PerformedProcedureStepID = "987.321.394093"
pps.PerformedStationAETitle = Environment.MachineName
pps.PerformedProcedureStepStartDate = New DicomDateRangeValue() With {.Date1 = New DicomDateValue(DateTime.Now)}
pps.PerformedProcedureStepStartTime = New DicomTimeRangeValue() With {.Time1 = New DicomTimeValue(DateTime.Now)}
pps.Modality = "CT"
pps.PerformedProcedureStepStatus = "IN PROGRESS"
pps.StudyInstanceUID = "0.0.4.3.6.777777.7"
_BrokerService.AddMPPS(pps)
pps = _BrokerService.FindMPPS("987.654.3210000")
If Not pps Is Nothing Then
pps.PerformedLocation = "EXAM ROOM 1"
pps.PerformedProcedureStepStatus = "COMPLETED"
_BrokerService.UpdateMPPS("987.654.3210000", pps)
End If
Catch e As Exception
Console.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 MPPSTest()
{
try
{
WCFPPSInformation pps = _BrokerService.FindMPPS("987.654.3210000");
if (pps != null)
_BrokerService.DeleteMPPS("987.654.3210000");
pps = new WCFPPSInformation();
pps.MPPSSOPInstanceUID = "987.654.3210000";
pps.PerformedProcedureStepID = "987.321.394093";
pps.PerformedStationAETitle = Environment.MachineName;
pps.PerformedProcedureStepStartDate = new DicomDateRangeValue() { Date1 = new DicomDateValue(DateTime.Now) };
pps.PerformedProcedureStepStartTime = new DicomTimeRangeValue() { Time1 = new DicomTimeValue(DateTime.Now) };
pps.Modality = "CT";
pps.PerformedProcedureStepStatus = "IN PROGRESS";
pps.StudyInstanceUID = "0.0.4.3.6.777777.7";
_BrokerService.AddMPPS(pps);
pps = _BrokerService.FindMPPS("987.654.3210000");
if (pps != null)
{
pps.PerformedLocation = "EXAM ROOM 1";
pps.PerformedProcedureStepStatus = "COMPLETED";
_BrokerService.UpdateMPPS("987.654.3210000", pps);
}
}
catch (Exception e)
{
Console.WriteLine(e.Message);
}
}