Imports System

Imports System.Xml.Serialization

Imports System.Xml

Imports System.IO

Imports System.Xml.Linq

Imports System.Collections.Generic

​

​

    <XmlRoot(ElementName:="patienteClaimingResponse", Namespace:="http://medicareaustralia.gov.au/eclaiming/version  2")>

    Public Class PatienteClaimingResponse

        <XmlElement("claim", Namespace:="")>

        Public Property Claim As Claim

    End Class

    Public Class Claim

        <XmlAttributeAttribute("medicareAcceptanceType")>

        Public Property MedicareAcceptanceType As String

        <XmlAttributeAttribute("assessmentStatus")>

        Public Property AssessmentStatus As String

        <XmlAttributeAttribute("accountPaidInd")>

        Public Property AccountPaidInd As String

        <XmlElement("voucher")>

        Public Property Voucher As Voucher

        <XmlElement("claimant")>

        Public Property Claimant As Claimant

        <XmlElement("patient")>

        Public Property Patient As Patient

        <XmlElement("provider")>

        Public Property Provider As Provider

        <XmlElement("assessmentError")>

        Public Property AssessmentError As AssessmentError

    End Class

    Public Class Voucher

        <XmlAttributeAttribute("voucherId")>

        Public Property VoucherId As String

        <XmlElement("service")>

        Public Property Services As List(Of Service)

    End Class

    Public Class Service

        <XmlAttributeAttribute("serviceId")>

        Public Property ServiceId As String

        <XmlAttributeAttribute("dateOfService")>

        Public Property DateOfService As String

        <XmlAttributeAttribute("assessmentStatus")>

        Public Property AssessmentStatus As String

        <XmlAttributeAttribute("chargeAmount")>

        Public Property ChargeAmount As String

        <XmlAttributeAttribute("benefitAmount")>

        Public Property BenefitAmount As String

        <XmlAttributeAttribute("patientContribAmt")>

        Public Property PatientContribAmt As String

        <XmlAttributeAttribute("scheduleFee")>

        Public Property ScheduleFee As String

        <XmlAttributeAttribute("mbsItemNum")>

        Public Property MbsItemNum As String

        <XmlElement("assessmentExplanation")>

        Public Property assessmentExplanation As AssessmentError

    End Class

    Public Class Claimant

        <XmlAttributeAttribute("CurrentSubnumerate")>

        Public Property currentSubnumerate As String

        <XmlAttributeAttribute("CurrentMedicareCardNum")>

        Public Property currentMedicareCardNum As String

        <XmlElement("identity")>

        Public Property Identity As Identity

    End Class

    Public Class Patient

        <XmlAttributeAttribute("CurrentSubnumerate")>

        Public Property currentSubnumerate As String

        <XmlAttributeAttribute("CurrentMedicareCardNum")>

        Public Property currentMedicareCardNum As String

        <XmlElement("identity")>

        Public Property Identity As Identity

    End Class

    Public Class Provider

        <XmlAttributeAttribute("providerNum")>

        Public Property ProviderNum As String

        <XmlElement("name")>

        Public Property Name As String

    End Class

    Public Class Identity

        <XmlAttributeAttribute("firstName")>

        Public Property FirstName As String

        <XmlAttributeAttribute("lastName")>

        Public Property LastName As String

    End Class

    Public Class AssessmentError

        <XmlAttributeAttribute("code")>

        Public Property Code As String

    End Class

    Public Module Module1

        Public Sub Main()

            Dim xml as String = <?xml version="1.0" encoding="UTF-8" ?> 

    <ns1:patienteClaimingResponse xmlns:ns1="http://medicareaustralia.gov.au/eclaiming/version  2">

        <claim medicareAcceptanceType="NAC" assessmentStatus="OK" accountPaidInd="N">

            <voucher voucherId="01">

                <service serviceId="0001" dateOfService="2015  11  17+11:00" assessmentStatus="ERR" chargeAmount="14815" patientContribAmt="4000" mbsItemNum="55036">

                <assessmentExplanation code="9632" /> 

                </service>

                <service serviceId="0002" dateOfService="2015 11 17+11:00" assessmentStatus="OK" chargeAmount="14605" benefitAmount="1" patientContribAmt="4500" scheduleFee="1" mbsItemNum="55032">

                <assessmentExplanation code="0" /> 

                </service>

            </voucher>

        <claimant currentSubnumerate="1" currentMedicareCardNum="6950323991">

            <identity firstName="CELINA" lastName="HOBBS" /> 

        </claimant>

        <patient currentSubnumerate="1" currentMedicareCardNum="6950323991">

            <identity firstName="CELINA" lastName="HOBBS" /> 

        </patient>

        <provider providerNum="2402491W">

            <name>L ARKIE</name> 

        </provider>

        <assessmentError code="0" /> 

        </claim>

    </ns1:patienteClaimingResponse>.ToString()

        Dim serializer As New XmlSerializer(GetType(PatienteClaimingResponse))

        Dim ppClaim As New PatienteClaimingResponse

        Using s As New StringReader(xml)

            ppClaim  = serializer.Deserialize(s)

        End Using

        Console.WriteLine("Re-serialized PatienteClaimingResponse) class: ")

        Using w As New StringWriter()

            serializer.Serialize(w, ppClaim)

            Console.WriteLine(w.ToString())

        End Using

        End Sub

    End Module