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