How do I end CaseParty.Get process and display a message

okaymy1112

Member
Joined
Aug 26, 2014
Messages
6
Programming Experience
Beginner
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
VB.NET:
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."
vb.net sub
VB.NET:
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
VB.NET:
<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="[URL]http://tylertechnologies.com[/URL]">
  <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="[URL]http://tylertechnologies.com[/URL]">
  <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>
 
Top Bottom