AddVisit Method (IBrokerService)

Visual Basic
C#
WinRT C#
WinRT JavaScript
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
)

FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=)
OperationContractAttribute()
function Leadtools.Medical.Worklist.Wcf.Service.IBrokerService.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

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

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: 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

Reference

IBrokerService Interface
IBrokerService Members