Attribute VB_Name = "modServiceStubData"
Option Explicit

Public Function ServiceStub_IsClaimEligible(info As Eligibility) As String
    Dim xml As String
    xml = ReadXmlDocument(App.path & "\Stub\Eligibility.xml")
    ServiceStub_IsClaimEligible = Replace(xml, "'", "`")
End Function

Public Function ServiceStub_GetMemberPIN(info As MemberInformation) As String
    Dim xml As String
    xml = ReadXmlDocument(App.path & "\Stub\MemberPIN.xml")
    ServiceStub_GetMemberPIN = GetXMLValue(Replace(xml, "'", "`"), "MEMBER", "PIN")
End Function

Public Function ServiceStub_IsDoctorAccredited(info As DoctorInformation) As String
    Dim xml As String
    xml = ReadXmlDocument(App.path & "\Stub\eACCREDITATION.xml")
    ServiceStub_IsDoctorAccredited = xml
End Function

Public Function ServiceStub_GetDoctorPAN(info As DoctorInformation) As String
    Dim xml As String
    xml = ReadXmlDocument(App.path & "\Stub\DoctorPAN.xml")
    ServiceStub_GetDoctorPAN = GetXMLValue(Replace(xml, "'", "`"), "DOCTOR", "PAN")
End Function

Public Function ServiceStub_SearchEmployer(info As EmployerInformation) As String
    Dim xml As String
    xml = ReadXmlDocument(App.path & "\Stub\eEMPLOYERS.xml")
    ServiceStub_SearchEmployer = Replace(xml, "'", "`")
End Function

Public Function ServiceStub_eClaimsUpload(info As String) As String
    Dim xml As String
    xml = ReadXmlDocument(App.path & "\Stub\eRECEIPT.xml")
    ServiceStub_eClaimsUpload = Replace(xml, "'", "`")
End Function

Public Function ServiceStub_eConfirmation(info As String) As String
    Dim xml As String
    xml = ReadXmlDocument(App.path & "\Stub\eCONFIRMATION.xml")
    ServiceStub_eConfirmation = Replace(xml, "'", "`")
End Function

Public Function ServiceStub_ClaimStatus(info As String) As String
    Dim xml As String
    xml = ReadXmlDocument(App.path & "\Stub\ClaimStatus.xml")
    ServiceStub_ClaimStatus = Replace(xml, "'", "`")
End Function