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

AddPatient Method (IBrokerService)

Example 





The patient record to add.
Inserts a patient record into the broker database.
Syntax
[OperationContractAttribute()]
[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
void AddPatient( 
   WCFPatient patient
)
'Declaration
 
<OperationContractAttribute()>
<FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=False)>
Sub AddPatient( _
   ByVal patient As WCFPatient _
) 
'Usage
 
Dim instance As IBrokerService
Dim patient As WCFPatient
 
instance.AddPatient(patient)
[OperationContractAttribute()]
[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
void AddPatient( 
   WCFPatient patient
)
OperationContractAttribute()
FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=)
function Leadtools.Medical.Worklist.Wcf.Service.IBrokerService.AddPatient( 
   patient 
)
[OperationContractAttribute()]
[FaultContractAttribute(DetailType=Leadtools.Medical.Worklist.Wcf.Utils.ApplicationFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
void AddPatient( 
   WCFPatient^ patient
) 

Parameters

patient
The patient record to add.
Example
 
Public Sub PatientTest()
    Try
        Dim patient As WCFPatient = Nothing
        '
        ' Find and delete the patient
        '
        patient = _BrokerService.FindPatient("000000", "246")
        If Not patient Is Nothing Then
            _BrokerService.DeletePatient("000000", "246")
        End If

        patient = New WCFPatient()
        patient.IssuerOfPatientID = "246"
        patient.PatientID = "000000"
        patient.PatientNameFamilyName = "Family"
        patient.PatientNameGivenName = "Given"
        patient.PatientSex = "M"

        '
        ' Add the patient
        '
        _BrokerService.AddPatient(patient)

        '
        ' Search for the patient
        '
        patient = _BrokerService.FindPatient("000000", "246")
        If Not patient Is Nothing Then
            patient.AdditionalPatientHistory = "Additional History"
            _BrokerService.UpdatePatient("000000", "246", patient)
        End If

        '
        ' List all patient ids
        '
        Dim ids As String() = _BrokerService.GetPatientIDs()

        For Each id As String In ids
            Console.WriteLine(id)
        Next id
    Catch e As Exception
        Debug.WriteLine(e.Message)
    End Try
End Sub
public void PatientTest()
{
    try
    {
        WCFPatient patient = null;
        //
        // Find and delete the patient
        //


        patient = _BrokerService.FindPatient("000000", "246");
        if (patient != null)
            _BrokerService.DeletePatient("000000", "246");

        patient = new WCFPatient();
        patient.IssuerOfPatientID = "246";
        patient.PatientID = "000000";
        patient.PatientNameFamilyName = "Family";
        patient.PatientNameGivenName = "Given";
        patient.PatientSex = "M";

        //
        // Add the patient
        //


        _BrokerService.AddPatient(patient);

        //
        // Search for the patient
        //


        patient = _BrokerService.FindPatient("000000", "246");
        if (patient != null)
        {
            patient.AdditionalPatientHistory = "Additional History";
            _BrokerService.UpdatePatient("000000", "246", patient);
        }

        //
        // List all patient ids
        //


        string[] ids = _BrokerService.GetPatientIDs();

        foreach (string id in ids)
        {
            Console.WriteLine(id);
        }
    }
    catch (Exception e)
    {
        Debug.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

IBrokerService Interface
IBrokerService Members

 

 


Products | Support | Contact Us | Copyright Notices

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