←Select platform

AddVisit Method (IBrokerService)

Summary

Adds the specified visit to the worklist database.

Syntax

C++

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

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

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

Parameters

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

Example

Shows how to use the visit specific-methods of the broker service.

Imports Leadtools 
Imports Leadtools.Medical.Worklist.Wcf.Service 
Imports Leadtools.Medical.Worklist.DataAccessLayer.MatchingParameters 
Imports Leadtools.Dicom 
Imports Leadtools.Medical.Worklist.Wcf.Entities 
 
<TestMethod()> _ 
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); 
    } 
}