AddVisit Method (IBrokerService)

Visual Basic
C#
Objective-C
Java
C++

[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
[OperationContractAttribute()]
void AddVisit( 
   WCFVisit visit
)

'Declaration
 
<FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=False)>
<OperationContractAttribute()>
Sub AddVisit( _
   ByVal visit As WCFVisit _
)

'Usage
 
Dim instance As IBrokerService
Dim visit As WCFVisit
 
instance.AddVisit(visit)

[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
[OperationContractAttribute()]
void AddVisit( 
   WCFVisit^ visit
)

Parameters

visit: Identification number of the visit as assigned by the healthcare provider.

Visual Basic
C#
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

Copy Code

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 VistTest()
    Try
        Dim visit As WCFVisit = _BrokerService.FindVisit("VS123")

        If Not visit Is Nothing Then
            _BrokerService.DeleteVisit("VS123")
        End If

        visit = New WCFVisit()
        visit.AdmissionID = "VS123"
        visit.ReferencedPatientSequence = Nothing
        _BrokerService.AddVisit(visit)

        visit = _BrokerService.FindVisit("VS123")
        If Not visit Is Nothing Then
            visit.CurrentPatientLocation = "EXAM 1"
            _BrokerService.UpdateVisit("VS123", visit)
        End If

        Dim ids As String() = _BrokerService.GetAdmissionIDs()

        For Each id As String In ids
            Console.WriteLine(id)
        Next id
    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 VistTest()
{
    try
    {
        WCFVisit visit = _BrokerService.FindVisit("VS123");

        if (visit != null)
            _BrokerService.DeleteVisit("VS123");

        visit = new WCFVisit();
        visit.AdmissionID = "VS123";
        visit.ReferencedPatientSequence = null;
        _BrokerService.AddVisit(visit);

        visit = _BrokerService.FindVisit("VS123");
        if(visit!=null)
        {
            visit.CurrentPatientLocation = "EXAM 1";
            _BrokerService.UpdateVisit("VS123", visit);
        }

        string[] ids = _BrokerService.GetAdmissionIDs();

        foreach (string id in ids)
        {
            Console.WriteLine(id);
        }
    }
    catch (Exception e)
    {
        Console.WriteLine(e.Message);
    }
}

Target Platforms

Reference

IBrokerService Interface
IBrokerService Members