JoinCommonContext Method

Imports Leadtools 
        Imports Leadtools.Ccow 
        Imports Leadtools.Ccow.UI 
 
        Private ApplicationName As String = "LEADTOOLS CCOW App" 
        <TestMethod()> _ 
        Public Sub JoinCommonContext() 
            Dim contextManager As IContextManager = Utils.COMCreateObject(Of IContextManager)(CcowProgId) 
            Dim participant As ContextParticipant = New ContextParticipant() 
            Dim coupon As Integer = 0 
 
            Try 
                coupon = contextManager.JoinCommonContext(participant, ApplicationName, True, False) 
 
                ' 
                ' Set Patient Context 
                ' 
                SetPatientContext(contextManager, coupon) 
 
                ' 
                ' Get Patient Context 
                ' 
                GetPatientContext(contextManager, coupon) 
 
                contextManager.LeaveCommonContext(coupon) 
            Catch e As Exception 
                Debug.WriteLine(e.Message) 
            End Try 
        End Sub 
 
        Public Sub SetPatientContext(ByVal contextManager As IContextManager, ByVal coupon As Integer) 
            Dim patientSubject As Subject = New Subject("Patient") 
            Dim contextData As IContextData = TryCast(contextManager, IContextData) 
            Dim transactionCoupon As Integer = 0 
            Dim noContinue As Boolean = True, disconnect As Boolean = False 
            Dim reasons As Object 
            Dim decision As String = "accept" 
 
            patientSubject.Items.Add(New ContextItem("Patient.id.mrn", "123456789")) 
            patientSubject.Items.Add(New ContextItem("Patient.co.Patientname", "Doe^John^^^")) 
 
            Try 
                transactionCoupon = contextManager.StartContextChanges(coupon) 
                contextData.SetItemValues(coupon, patientSubject.ToItemNameArray(), patientSubject.ToItemValueArray(), transactionCoupon) 
                reasons = contextManager.EndContextChanges(transactionCoupon, noContinue) 
 
                ' 
                ' If any application responded that they cannot apply the change we need to display 
                ' a dialog that displays the reasons for the problems. 
                ' 
                If (Not reasons Is Nothing AndAlso (CType(reasons, String())).Length > 0) OrElse noContinue Then 
                    Dim pd As ProblemDialog = New ProblemDialog(CType(reasons, String()), noContinue) 
                    Dim result As DialogResult 
 
                    result = pd.ShowDialog() 
                    If noContinue Then 
                        decision = "cancel" 
                    End If 
                    If result = System.Windows.Forms.DialogResult.OK Then 
                        decision = "accept" 
                    ElseIf result = DialogResult.Cancel Then 
                        decision = "cancel" 
                    Else 
                        decision = "cancel" 
                        disconnect = True 
                    End If 
                End If 
 
                contextManager.PublishChangesDecision(transactionCoupon, decision) 
 
                ' 
                ' If user decided to break context we must leave 
                ' 
                If disconnect Then 
                    contextManager.LeaveCommonContext(coupon) 
                End If 
            Catch e As Exception 
                Debug.WriteLine(e.Message) 
            End Try 
        End Sub 
 
        Public Sub GetPatientContext(ByVal contextManager As IContextManager, ByVal coupon As Integer) 
            Dim contextData As IContextData = TryCast(contextManager, IContextData) 
            Dim data As Object = Nothing 
 
            Try 
                data = contextData.GetItemNames(contextManager.MostRecentContextCoupon) 
                If data.GetType() Is GetType(String()) AndAlso (CType(data, String())).Length > 0 Then 
                    Dim names As String() = CType(data, String()) 
 
                    For Each name As String In names 
                        Debug.WriteLine(name) 
                    Next name 
                    data = contextData.GetItemValues(data, False, contextManager.MostRecentContextCoupon) 
                    If data.GetType() Is GetType(Object()) Then 
                        Dim values As Object() = CType(data, Object()) 
 
                        Dim i As Integer = 0 
                        Do While i < values.Length 
                            Debug.Write(values(i).ToString()) 
                            Debug.Write("     ") 
                            Debug.WriteLine(values(i + 1).ToString()) 
                            i += 2 
                        Loop 
                    End If 
                End If 
            Catch e As Exception 
                Debug.WriteLine(e.Message) 
            End Try 
        End Sub 
 
        <ComVisible(True)> _ 
        Public Class ContextParticipant 
            Implements IContextParticipant 
#Region "IContextParticipant Members" 
 
            Public Sub CommonContextTerminated() Implements IContextParticipant.CommonContextTerminated 
                Console.WriteLine("CommonContextTerminated") 
            End Sub 
 
            Public Sub ContextChangesAccepted(ByVal contextCoupon As Integer) Implements IContextParticipant.ContextChangesAccepted 
                Console.WriteLine("ContextChangesAccepted") 
            End Sub 
 
            Public Sub ContextChangesCanceled(ByVal contextCoupon As Integer) Implements IContextParticipant.ContextChangesCanceled 
                Console.WriteLine("ContextChangesCanceled") 
            End Sub 
 
            Public Function ContextChangesPending(ByVal contextCoupon As Integer, ByRef reason As String) As String Implements IContextParticipant.ContextChangesPending 
                reason = String.Empty 
                Console.WriteLine("ContextChangesPending") 
                Return "accept" 
            End Function 
 
            Public Sub Ping() Implements IContextParticipant.Ping 
            End Sub 
 
#End Region 
        End Class