LEADTOOLS Medical (Leadtools.Medical.Worklist.Wcf assembly)
LEAD Technologies, Inc

AddMPPS Method (BrokerService)

Example 





The MPPS data to add to the database.
Adds the MPPS to the worklist database.
Syntax
public void AddMPPS( 
   WCFPPSInformation mpps
)
'Declaration
 
Public Sub AddMPPS( _
   ByVal mpps As WCFPPSInformation _
) 
'Usage
 
Dim instance As BrokerService
Dim mpps As WCFPPSInformation
 
instance.AddMPPS(mpps)
public void AddMPPS( 
   WCFPPSInformation mpps
)
 function Leadtools.Medical.Worklist.Wcf.Service.BrokerService.AddMPPS( 
   mpps 
)
public:
void AddMPPS( 
   WCFPPSInformation^ mpps
) 

Parameters

mpps
The MPPS data to add to the database.
Example
 
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
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);
    }
}
Requirements

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also

Reference

BrokerService Class
BrokerService Members

 

 


Products | Support | Contact Us | Copyright Notices

© 2006-2012 All Rights Reserved. LEAD Technologies, Inc.