How do I add a variable into an object as xml

Question

I have a xml document with 2 protection order numbers. I want to get the information for one of them which is **protectionOrderNumber="1400042"**. I would like to add strPoNumber variable to the object objXmlCaseDoc. Inside this object is the xml
that was read and put inside the object. I want at the beginning of the xml code inside the objXmlCaseDoc to add the protectionOrderNumber at the end of the first line. This should be added at the beginning of the xml document. In my object (objXmlCaseDoc)
there is no variable strPoNumber. This is why I want to add it at the top. The object has xml document in it. 
It should look like this:
<Integration xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:tsg="http://tsgweb.com" xmlns:IXML="http://tsgweb.com" xmlns:CMCodeQueryHelper="urn:CMCodeQueryHelper" protectionOrderNumber="1400042">
My vb code: I have the variable strPoNumber and the object where the xml document is. Object name is objXmlCaseDoc
I want to add the line of code where I have comment Tranform case information into the output format near the bottom of the code.
Option Strict On
Option Explicit On
Imports System.Xml
Public Class BcaPoRequests
Shared Sub Main()
Dim objMessageProcessor As New MessageProcessor
Dim objSchemasCollection As New Msc.Integration.MessageBroker.Library.v4.SchemasCollection
Dim objTransformsCollection As New Msc.Integration.MessageBroker.Library.v4.TransformsCollection
objMessageProcessor.ProcessInputQueue(False, False, objSchemasCollection, objTransformsCollection)
End Sub
Private Class MessageProcessor
Inherits Msc.Integration.ServiceCatalog.Library.v4.SoapMessageProcessor
Protected Overrides Sub ProcessMessage(ByRef aobjBroker As ServiceCatalog.Library.v4.Broker, ByRef aobjXMLInputSoapEnvelopeDoc As System.Xml.XmlDocument, ByRef aobjInstantiatedObjectsCstrollection As Microsoft.VisualBasic.Collection, ByRef aobjConsumer As ServiceCatalog.Library.v4.Consumer)
MyBase.ProcessMessage(aobjBroker, aobjXMLInputSoapEnvelopeDoc, aobjInstantiatedObjectsCollection, aobjConsumer)
Dim objXmlMessageDoc As XmlDocument
Dim objXmlMessageNode As XmlNode
Dim objNameTable As NameTable
Dim objXMLNameSpaceManager As XmlNamespaceManager
Dim objXMLSchemaException As Xml.Schema.XmlSchemaException
Dim strCaseNumber As String
Dim strPoNumber As String
Dim objXmlCaseDoc As XmlDocument
'create a namespace manager used for queries into inputmessage (because of namespace)
objNameTable = New NameTable
objXMLNameSpaceManager = New XmlNamespaceManager(objNameTable)
objXMLNameSpaceManager.AddNamespace("ext", "http://www.courts.state.mn.us/ProtectionOrderExtension/1.0")
objXMLNameSpaceManager.AddNamespace("exc", "http://www.courts.state.mn.us/ProtectionOrderQuery/1.0")
objXMLNameSpaceManager.AddNamespace("soap", "http://www.w3.org/2003/05/soap-envelope")
objXMLNameSpaceManager.AddNamespace("wsa", "http://schemas.xmlsoap.org/ws/2004/08/addressing")
objXmlMessageNode = aobjXMLInputSoapEnvelopeDoc.DocumentElement.SelectSingleNode("soap:Body/exc:ProtectionOrderQueryRequest", objXMLNameSpaceManager)
objXmlMessageDoc = New XmlDocument
objXmlMessageDoc.LoadXml(objXmlMessageNode.OuterXml)
'Check authorization
'Validate the input message
objXMLSchemaException = aobjBroker.ValidateXmlDocument(objXmlMessageDoc, "ProtectionOrderQuery_1_0.xsd", "NiemExchanges\ProtectionOrders\Exchange", , False)
If Not objXMLSchemaException Is Nothing Then
'return fault if invalid
aobjBroker.Reply(aobjBroker.CreateSoapFault(Msc.Integration.Utility.Library.v4.Soap.udtSoapCodes.Sender, Msc.Integration.Utility.Library.v4.Xml.FormatXmlSchemaValidationErrorText(objXMLSchemaException), Msc.Integration.Utility.Library.v4.Soap.udtSoapRoles.RoleUltimateReceiver, aobjXMLInputSoapEnvelopeDoc, "soap:InvalidMessage", "soap:Body", Msc.Integration.Utility.Library.v4.Soap.GetReplyEndpointReference(aobjXMLInputSoapEnvelopeDoc), aobjXMLInputSoapEnvelopeDoc.DocumentElement.SelectSingleNode("soap:Header/wsa:MessageID", objXMLNameSpaceManager).InnerText, aobjConsumer))
Exit Sub
End If
'Get the case number and the PO number from the input message
strCaseNumber = objXmlMessageDoc.DocumentElement.SelectSingleNode("ext:CourtFileNumber", objXMLNameSpaceManager).InnerText
strPoNumber = objXmlMessageDoc.DocumentElement.SelectSingleNode("ext:ProtectionOrderID", objXMLNameSpaceManager).InnerText
'Get the case information from Mncis
'Code for calling the case
objXmlCaseDoc = Msc.Integration.Mncis.Library.v4.Case.GetIxmlForCaseNumber(strCaseNumber, "CourtCaseHeader,ProtectionOrder,SubjectParties,HearingTrialSetting", False)
'Tranform case information into the output format
End Sub
End Class
End Class
xslt code
<?xml version="1.0" encoding="UTF-8"?>
<?altova_samplexml file:///Z:/Training%20with%20Tim%20XML%20code%20various/BcaRequestIxml.xml?>
<xsl:stylesheet version="3.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:fn="http://www.w3.org/2005/xpath-functions" xmlns:poq="http://www.courts.state.mn.us/ProtectionOrderQuery/1.0" xmlns:ext="http://www.courts.state.mn.us/ProtectionOrderExtension/1.0" xmlns:nc="http://niem.gov/niem/niem-core/2.0" xmlns:j="http://niem.gov/niem/domains/jxdm/4.1" xmlns:mscef="courts.state.mn.us/extfun" xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:exsl="urn:schemas-microsoft-com:xslt" extension-element-prefixes="exsl" exclude-result-prefixes="mscef msxsl exsl">
<xsl:import href="../General/ExtensionFunctions.xsl"/>
<xsl:import href="MNCIS_PO_BCA_ProtectionOrder_1_0.xsl"/>
<xsl:output method="xml" version="1.0" encoding="UTF-8" indent="yes"/>
<!-- Path to environment folder used by document function. Relative to location of stylesheet. -->
<xsl:param name="gEnvPath">../..</xsl:param>
<xsl:template match="/">
<xsl:variable name="vPoNumber">
<xsl:value-of select="Integration/@protectionOrderNumber"/>
</xsl:variable>
<poq:ProtectionOrderQueryResponse>
<xsl:for-each select="//Integration/ProtectionOrder[ProtectionOrderNumber=$vPoNumber]">
<xsl:call-template name="ProtectionOrder"/>
</xsl:for-each>
</poq:ProtectionOrderQueryResponse>
</xsl:template>
</xsl:stylesheet>
XML document output  from my xslt code
<?xml version="1.0" encoding="UTF-8"?>
<poq:ProtectionOrderQueryResponse xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:fn="http://www.w3.org/2005/xpath-functions" xmlns:poq="http://www.courts.state.mn.us/ProtectionOrderQuery/1.0" xmlns:ext="http://www.courts.state.mn.us/ProtectionOrderExtension/1.0" xmlns:nc="http://niem.gov/niem/niem-core/2.0" xmlns:j="http://niem.gov/niem/domains/jxdm/4.1">
<ext:ProtectionOrder xmlns:exc="http://www.courts.state.mn.us/ProtectionOrderServiceExchange/1.0" xmlns:s="http://niem.gov/niem/structures/2.0" xmlns:usps="http://niem.gov/niem/usps_states/2.0">
<j:CourtOrderEnforcementAgency>
<nc:OrganizationIdentification>
<nc:IdentificationID>MN0700000</nc:IdentificationID>
</nc:OrganizationIdentification>
</j:CourtOrderEnforcementAgency>
<ext:ForeignOrderIdentification>
<nc:IdentificationID/>
<ext:ForeignOrderIdentificationTypeCode/>
</ext:ForeignOrderIdentification>
<ext:HearingHeldIndicator>false</ext:HearingHeldIndicator>
<nc:Location s:id="DB1618611387">
<nc:LocationAddress>
<nc:StructuredAddress>
<nc:LocationStreet>
<nc:StreetFullText>3434 Bohnsack Way</nc:StreetFullText>
<nc:StreetFullText>Unit 75 B</nc:StreetFullText>
<nc:StreetFullText/>
</nc:LocationStreet>
<nc:LocationCityName>New Prague</nc:LocationCityName>
<nc:LocationStateUSPostalServiceCode>MN</nc:LocationStateUSPostalServiceCode>
<nc:LocationPostalCode>56071</nc:LocationPostalCode>
</nc:StructuredAddress>
</nc:LocationAddress>
</nc:Location>
<ext:ProtectedParty>
<ext:PersonBirthDate ext:approximateDateIndicator="false" ext:currentIndicator="true">1987-11-21</ext:PersonBirthDate>
<nc:PersonName>
<nc:PersonGivenName>Jennifer</nc:PersonGivenName>
<nc:PersonMiddleName>Marie</nc:PersonMiddleName>
<nc:PersonSurName>O'Brien</nc:PersonSurName>
<nc:PersonNameSuffixText/>
<nc:PersonFullName>O'Brien, Jennifer Marie</nc:PersonFullName>
</nc:PersonName>
<ext:PersonRaceCode/>
<nc:PersonSexCode>F</nc:PersonSexCode>
<ext:PetitionerIndicator>true</ext:PetitionerIndicator>
</ext:ProtectedParty>
<ext:ProtectedParty>
<ext:PersonBirthDate ext:approximateDateIndicator="false" ext:currentIndicator="true">2008-03-24</ext:PersonBirthDate>
<nc:PersonName>
<nc:PersonGivenName>Eli</nc:PersonGivenName>
<nc:PersonMiddleName>Rose</nc:PersonMiddleName>
<nc:PersonSurName>Noir</nc:PersonSurName>
<nc:PersonNameSuffixText/>
<nc:PersonFullName>Noir, Eli Rose</nc:PersonFullName>
</nc:PersonName>
<ext:PersonRaceCode/>
<nc:PersonSexCode>F</nc:PersonSexCode>
<ext:PetitionerIndicator>false</ext:PetitionerIndicator>
</ext:ProtectedParty>
<ext:ProtectionOrderBradyIndicator>N</ext:ProtectionOrderBradyIndicator>
<ext:ProtectionOrderCondition>
<ext:ConditionText>Respondent must not have any contact with the Protected Person(s) whether in person, with or through other persons, by telephone, mail, e-mail, through electronic devices, social media, or by any other means except as follows: [] </ext:ConditionText>
<ext:ConditionCode>08</ext:ConditionCode>
</ext:ProtectionOrderCondition>
<ext:ProtectionOrderCondition>
<ext:ConditionText>Respondent must stay a reasonable distance away from the residence(s) of the Protected Person(s), specifically as follows: [distance]; and Respondent must stay a reasonable distance away from ANY FUTURE RESIDENCES of the Protected Person(s). </ext:ConditionText>
<ext:ConditionCode>04</ext:ConditionCode>
</ext:ProtectionOrderCondition>
<ext:ProtectionOrderCondition>
<ext:ConditionText>Respondent shall not call or enter Petitioner's place of employment which includes all land, parking lots, and buildings at: </ext:ConditionText>
<ext:ConditionCode>04</ext:ConditionCode>
</ext:ProtectionOrderCondition>
<ext:ProtectionOrderExpirationDate>2015-12-22</ext:ProtectionOrderExpirationDate>
<ext:ProtectionOrderFinding>
<ext:FindingText>Respondent personally appeared or had reasonable notice and opportunity to be heard. The procedures for service upon Respondent set forth in the Minnesota Domestic Abuse Act (Minn.Stat. 518B.01) were followed, and the court has jurisdiction over the parties and subject matter. </ext:FindingText>
<ext:FindingCode>OAH1</ext:FindingCode>
</ext:ProtectionOrderFinding>
<ext:ProtectionOrderFinding>
<ext:FindingText>Acts of domestic abuse have occurred, including the following: [] </ext:FindingText>
<ext:FindingCode>OAH4A</ext:FindingCode>
</ext:ProtectionOrderFinding>
<ext:ProtectionOrderID>1400042</ext:ProtectionOrderID>
<ext:ProtectionOrderIssuingCourt>
<nc:OrganizationIdentification>
<nc:IdentificationID>MN070015J</nc:IdentificationID>
</nc:OrganizationIdentification>
<ext:CourtFaxNumber>
<nc:TelephoneNumberFullID>952-496-8211</nc:TelephoneNumberFullID>
</ext:CourtFaxNumber>
<ext:CourtTelephoneNumber>
<nc:TelephoneNumberFullID>952-496-8200</nc:TelephoneNumberFullID>
<nc:TelephoneSuffixID/>
</ext:CourtTelephoneNumber>
</ext:ProtectionOrderIssuingCourt>
<ext:ProtectionOrderIssuingDate>2014-12-22</ext:ProtectionOrderIssuingDate>
<ext:ProtectionOrderIssuingJudicialOfficial>
<nc:PersonName>
<nc:PersonGivenName>Do</nc:PersonGivenName>
<nc:PersonMiddleName>P.</nc:PersonMiddleName>
<nc:PersonSurName>Ande</nc:PersonSurName>
<nc:PersonNameSuffixText/>
<nc:PersonFullName>Ande, Do P.</nc:PersonFullName>
</nc:PersonName>
</ext:ProtectionOrderIssuingJudicialOfficial>
<ext:ProtectionOrderOtherIdentification>
<nc:IdentificationID>12345</nc:IdentificationID>
<ext:ProtectionOrderOtherIdentificationTypeCode>NCICNUM</ext:ProtectionOrderOtherIdentificationTypeCode>
</ext:ProtectionOrderOtherIdentification>
<ext:ProtectionOrderService>
<ext:ProtectionOrderServiceAgency>
<nc:OrganizationIdentification>
<nc:IdentificationID>MN0191000</nc:IdentificationID>
</nc:OrganizationIdentification>
</ext:ProtectionOrderServiceAgency>
<ext:ProtectionOrderServiceDate>2015-01-10</ext:ProtectionOrderServiceDate>
<ext:ProtectionOrderServiceTime>16:25:00-06:00</ext:ProtectionOrderServiceTime>
<ext:ProtectionOrderServiceToCode>Respondent</ext:ProtectionOrderServiceToCode>
<ext:ProtectionOrderServiceTypeCode>BYPUB</ext:ProtectionOrderServiceTypeCode>
</ext:ProtectionOrderService>
<ext:ProtectionOrderService>
<ext:ProtectionOrderServiceAgency>
<nc:OrganizationIdentification>
<nc:IdentificationID>MN0191000</nc:IdentificationID>
</nc:OrganizationIdentification>
</ext:ProtectionOrderServiceAgency>
<ext:ProtectionOrderServiceDate>2015-01-10</ext:ProtectionOrderServiceDate>
<ext:ProtectionOrderServiceTime>16:25:00-06:00</ext:ProtectionOrderServiceTime>
<ext:ProtectionOrderServiceToCode>Respondent</ext:ProtectionOrderServiceToCode>
<ext:ProtectionOrderServiceTypeCode>BYPUB</ext:ProtectionOrderServiceTypeCode>
</ext:ProtectionOrderService>
<ext:ProtectionOrderService>
<ext:ProtectionOrderServiceAgency>
<nc:OrganizationIdentification>
<nc:IdentificationID>MN0191000</nc:IdentificationID>
</nc:OrganizationIdentification>
</ext:ProtectionOrderServiceAgency>
<ext:ProtectionOrderServiceDate>2015-01-10</ext:ProtectionOrderServiceDate>
<ext:ProtectionOrderServiceToCode>Respondent</ext:ProtectionOrderServiceToCode>
<ext:ProtectionOrderServiceTypeCode>BYPUB</ext:ProtectionOrderServiceTypeCode>
</ext:ProtectionOrderService>
<ext:ProtectionOrderService>
<ext:ProtectionOrderServiceAgency>
<nc:OrganizationIdentification>
<nc:IdentificationID>MN0250800</nc:IdentificationID>
</nc:OrganizationIdentification>
</ext:ProtectionOrderServiceAgency>
<ext:ProtectionOrderServiceDate>2015-01-09</ext:ProtectionOrderServiceDate>
<ext:ProtectionOrderServiceToCode>Respondent</ext:ProtectionOrderServiceToCode>
<ext:ProtectionOrderServiceTypeCode>BYMAIL</ext:ProtectionOrderServiceTypeCode>
</ext:ProtectionOrderService>
<ext:ProtectionOrderService>
<ext:ProtectionOrderServiceAgency>
<nc:OrganizationIdentification>
<nc:IdentificationID>MN0720100</nc:IdentificationID>
</nc:OrganizationIdentification>
</ext:ProtectionOrderServiceAgency>
<ext:ProtectionOrderServiceDate>2014-12-22</ext:ProtectionOrderServiceDate>
<ext:ProtectionOrderServiceToCode>Respondent</ext:ProtectionOrderServiceToCode>
<ext:ProtectionOrderServiceTypeCode>BYPUB</ext:ProtectionOrderServiceTypeCode>
</ext:ProtectionOrderService>
<ext:ProtectionOrderStatus>
<ext:ProtectionOrderStatusCode>SBJO</ext:ProtectionOrderStatusCode>
<ext:ProtectionOrderStatusDate>2014-12-22</ext:ProtectionOrderStatusDate>
</ext:ProtectionOrderStatus>
<ext:ProtectionOrderTypeCode>OFP</ext:ProtectionOrderTypeCode>
<ext:QualifyingRelationship>
<ext:QualifyingRelationshipCode>LIVTOGTHR</ext:QualifyingRelationshipCode>
<ext:QualifyingRelationshipText>Lived Together</ext:QualifyingRelationshipText>
</ext:QualifyingRelationship>
<ext:Respondent>
<nc:PersonEthnicityCode/>
<nc:PersonEyeColorCode/>
<nc:PersonHairColorCode>XXX</nc:PersonHairColorCode>
<nc:PersonHeightMeasure>
<nc:MeasureText>71</nc:MeasureText>
<nc:MeasureUnitText>inches</nc:MeasureUnitText>
<nc:LengthUnitCode>INH</nc:LengthUnitCode>
</nc:PersonHeightMeasure>
<ext:PersonRaceCode>W</ext:PersonRaceCode>
<nc:PersonSexCode>M</nc:PersonSexCode>
<nc:PersonWeightMeasure>
<nc:MeasureText>210</nc:MeasureText>
<nc:MeasureUnitText>pounds</nc:MeasureUnitText>
<nc:WeightUnitCode>LBR</nc:WeightUnitCode>
</nc:PersonWeightMeasure>
<ext:AddressReference ext:currentIndicator="true">
<nc:LocationReference s:ref="DB1618611387"/>
</ext:AddressReference>
<ext:PersonBirthDate ext:approximateDateIndicator="true" ext:currentIndicator="false">1990-12-23</ext:PersonBirthDate>
<ext:PersonBirthDate ext:approximateDateIndicator="false" ext:currentIndicator="false">1989-12-23</ext:PersonBirthDate>
<ext:PersonBirthDate ext:approximateDateIndicator="false" ext:currentIndicator="true">1991-12-23</ext:PersonBirthDate>
<ext:PersonName ext:currentIndicator="true">
<nc:PersonGivenName>Guy</nc:PersonGivenName>
<nc:PersonMiddleName>Andr</nc:PersonMiddleName>
<nc:PersonSurName>Noir</nc:PersonSurName>
<nc:PersonNameSuffixText>Jr.</nc:PersonNameSuffixText>
<nc:PersonFullName>Noir Jr , Guy Andr</nc:PersonFullName>
</ext:PersonName>
</ext:Respondent>
<ext:RespondentPresentAtHearingIndicator>false</ext:RespondentPresentAtHearingIndicator>
</ext:ProtectionOrder>
<ext:SupersededProtectionOrderID xmlns:exc="http://www.courts.state.mn.us/ProtectionOrderServiceExchange/1.0" xmlns:s="http://niem.gov/niem/structures/2.0" xmlns:usps="http://niem.gov/niem/usps_states/2.0"/>
<ext:Hearing xmlns:exc="http://www.courts.state.mn.us/ProtectionOrderServiceExchange/1.0" xmlns:s="http://niem.gov/niem/structures/2.0" xmlns:usps="http://niem.gov/niem/usps_states/2.0">
<ext:HearingDateTime>2015-01-20T09:00:00-06:00</ext:HearingDateTime>
<ext:HearingLocationText>Scott County</ext:HearingLocationText>
</ext:Hearing>
</poq:ProtectionOrderQueryResponse>

Answer 1

Inert to root as first nood.
http://msdn.microsoft.com/en-us/library/system.xml.xmlnode.insertbefore(v=vs.110).aspx
Dim doc As New XmlDocument()
doc.LoadXml("<book genre='novel' ISBN='1-861001-57-5'>" & _
"<title>Pride And Prejudice</title>" & _
"</book>")
Dim root As XmlNode = doc.DocumentElement
'Create a new node.
Dim elem As XmlElement = doc.CreateElement("price")
elem.InnerText = "19.95"
'Add the node to the document.
root.InsertBefore(elem, root.FirstChild)
Console.WriteLine("Display the modified XML...")
doc.Save(Console.Out)
remember make the reply as answer and vote the reply as helpful if it helps.