none
How do I end CaseParty.Get process and display message? RRS feed

  • Question

  • What I am trying to do is end the CaseParty.Get process when the original @ID is not found. This means it is not found because it was changed.
    Also inside the objCaseParty, I want to add a display message "Original party no longer exist on the case.

    In my xml document the original CaseParty/@ID was 854 but because this CasePartyName was changed the new CasePArty/@ID is 243. This causes an excelption which is what I want to avoid.
    How do I do this?

    Here is the CaseParty.Get object I want to make the changes

    objCaseParty = Msc.Integration.Mncis.Library.v4.CaseParty.Get(CInt(aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/CaseParty[Connection/@BaseConnection='DF']/@ID").InnerText), strCaseNumber, True)

    Right now I am getting an Exception "Unknown party for provided case" from running CaseParty.Get process because my xml document original CaseParty (@ID) has been changed.
    So this means the original CaseParty.@ID no longer exist.
    For that reason, instead of getting an Exception, I want to end CaseParty.Get process. I also want to display text message "The original party (MNCIS Parking) that triggered the NameGet process is no longer on the case."

    <acronym title="vBulletin">vb</acronym>.net CasePart.Get sub

    Option Strict On
    Option Explicit On
    Imports System.Xml
    Imports System.Collections.Generic
    
    Public Class BcaNameGet
    
        Shared Sub main()
            Dim objMessageProcessor As New MessageProcessor
            objMessageProcessor.ProcessInputQueue(False, False)
    
        End Sub
    
        Private Class MessageProcessor : Inherits Msc.Integration.MessageBroker.Library.v4.XmlMessageProcessor
    
            Protected Overrides Sub ProcessMessage(ByRef aobjBroker As MessageBroker.Library.v4.Broker, ByRef aobjXmlInputDoc As System.Xml.XmlDocument, ByRef aobjInstantiatedObjectsCollection As Microsoft.VisualBasic.Collection)
                MyBase.ProcessMessage(aobjBroker, aobjXmlInputDoc, aobjInstantiatedObjectsCollection)
                Dim objSimpleType As Msc.Integration.CourtXml.Library.v4.SimpleType = CType(aobjInstantiatedObjectsCollection.Item("SIMPLETYPE"), Msc.Integration.CourtXml.Library.v4.SimpleType)
    
                Dim strCitationNumber As String = aobjXmlInputDoc.DocumentElement.SelectSingleNode("Citation/CitationNumber").InnerText
                Dim strIssuingAgency As String = aobjXmlInputDoc.DocumentElement.SelectSingleNode("Citation/Agency/@Word").InnerText
                Dim blnWasEFiled As Boolean = Msc.Integration.Mncis.Library.v4.Citation.WasEFiled(strCitationNumber, strIssuingAgency, True)
                Dim strCaseNumber As String = aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/CaseNumber").InnerText
    
                Dim objXmlPersonNameNode As XmlNode = aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/CaseParty[Connection/@BaseConnection='DF']/CasePartyName")
                Dim objCaseParty As Msc.Integration.Mncis.Library.v4.CaseParty
                Dim objBusinessName As Msc.Integration.Mncis.Library.v4.BusinessName
                Dim objPersonName As Msc.Integration.Mncis.Library.v4.PersonName
                Dim objNickname As Msc.Integration.Mncis.Library.v4.Nickname
                Dim strUser As String = aobjXmlInputDoc.DocumentElement.SelectSingleNode("ControlPoint/@UserID").InnerText
                Dim blnNoRetry As Boolean = False
    
                'Get the existing party and update with registration name
                objCaseParty = Msc.Integration.Mncis.Library.v4.CaseParty.Get(CInt(aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/CaseParty[Connection/@BaseConnection='DF']/@ID").InnerText), strCaseNumber, True)
                If objVehicleRegistration.BusinessName.Length > 0 Then
                    objBusinessName = New Msc.Integration.Mncis.Library.v4.BusinessName
                    objBusinessName.BusinessName = objVehicleRegistration.BusinessName
                    objBusinessName.IsCurrent = True
                    objCaseParty.AddCasePartyName(CType(objBusinessName, Msc.Integration.Mncis.Library.v4.IName), , True)
                Else
                    If objVehicleRegistration.PersonFirstName.Length > 0 Then
                        objPersonName = New Msc.Integration.Mncis.Library.v4.PersonName
                        objPersonName.First = objVehicleRegistration.PersonFirstName
                        objPersonName.Last = objVehicleRegistration.PersonLastName
                        objPersonName.Middle = objVehicleRegistration.PersonMiddleName
                        objPersonName.IsCurrent = True
                        objCaseParty.AddCasePartyName(CType(objPersonName, Msc.Integration.Mncis.Library.v4.IName), , True)
                    Else
                        objNickname = New Msc.Integration.Mncis.Library.v4.Nickname
                        objNickname.Nickname = objVehicleRegistration.PersonLastName
                        objNickname.IsCurrent = True
                        objCaseParty.AddCasePartyName(CType(objNickname, Msc.Integration.Mncis.Library.v4.IName), , True)
                    End If
                    objCaseParty.Party.CurrentDateOfBirth = objVehicleRegistration.PersonBirthDate
                End If
            End Sub
        End Class
    End Class

    xml document

    <Integration>
    	<ControlPoint Timestamp="7/28/2016 11:20:49 AM" UserID="Nope">SAVE-CR-CASE</ControlPoint>
    	<Case InternalID="685" ID="14870882" Op="A" xmlns:user="http://tylertechnologies.com">
    		<CaseNumber>426</CaseNumber>
    		<Court/>
    		<CaseParty Op="A" ID="854">
    			<Connection Op="A" Word="JRD" BaseConnection="PL" ID="684">
    				<Description>Jurisdiction</Description>
    				<TimestampCreate Op="A">7/28/2016 11:20:49 AM</TimestampCreate>
    				<DateAdded Op="A">07/28/2016</DateAdded>
    				<RemovedDate Op="A"/>
    				<RemovedReason Op="A" Word=""/>
    				<Comment Op="A"/>
    			</Connection>
    			<CasePartyName Op="A" Current="true" ID="54441" InternalNameID="570">
    				<CasePartyNameType Op="A" Word=""/>
    				<NameType>Business</NameType>
    				<NameLast>State of Minnesota</NameLast>
    				<FormattedName>State of Minnesota</FormattedName>
    			</CasePartyName>
    			<TimestampCreate Op="A">7/28/2016 11:20:49 AM</TimestampCreate>
    		</CaseParty>
    		<CaseParty Op="A" ID="243">
    			<SendNotice Op="A">true</SendNotice>
    			<RestrictView Op="A">false</RestrictView>
    			<Connection Op="A" Word="DFD" BaseConnection="DF" ID="44919685" InternalCasePartyConnectionID="1651126621">
    				<Description>Defendant</Description>
    				<TimestampCreate Op="A">7/28/2016 11:20:49 AM</TimestampCreate>
    				<DateAdded Op="A">07/28/2016</DateAdded>
    				<RemovedDate Op="A"/>
    				<RemovedReason Op="A" Word=""/>
    				<Comment Op="A"/>
    			</Connection>
    			<CasePartyName Op="A" Current="true" ID="12121330" InternalNameID="1618922645">
    				<CasePartyNameType Op="A" Word=""/>
    				<NameType>Standard</NameType>
    				<NameFirst>MNCIS</NameFirst>
    				<NameLast>Parking</NameLast>
    				<FormattedName>Parking, MNCIS</FormattedName>
    			</CasePartyName>
    			<TimestampCreate Op="A">7/28/2016 11:20:49 AM</TimestampCreate>
    		</CaseParty>
    	</Case>
    	<Citation Op="A" ID="679" xmlns:user="http://tylertechnologies.com">
    		<CitationNumber Op="A">549</CitationNumber>
    		<CaseTypeKey Op="A" Word="CRM">Crim/Traf Mandatory</CaseTypeKey>
    		<Agency Op="A" Word="MN0270300">Brooklyn Park Police Department</Agency>
    		<OffenseDate Op="A">07/18/2016</OffenseDate>
    		<Vehicle Op="A">
    			<VehicleLicensePlateState Op="A">MN</VehicleLicensePlateState>
    			<VehicleLicensePlateNumber Op="A">348MAR</VehicleLicensePlateNumber>
    		</Vehicle>
    	</Citation>
    </Integration>


    Monday, August 1, 2016 9:10 PM

Answers

  • Maybe place a Try/Catch around the code. Display the exception caught. If the exception you are currently getting is some special exception type then the Catch may be able to use that type of excption rather than a general exception.

    Try
         objCaseParty = Msc.Integration.Mncis.Library.v4.CaseParty.Get(CInt(aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/CaseParty[Connection/@BaseConnection='DF']/@ID").InnerText), strCaseNumber, True)
    Catch ex As Exception
        ' Display exception
    End Try


    La vida loca

    • Marked as answer by winkimjr2 Tuesday, August 2, 2016 8:25 PM
    Monday, August 1, 2016 9:37 PM