Business Operation SOAP WebClient

Set tSC = $System.Status.OK()
Try{
    Set tRequest = ##class(PortalPaciente.s0.ConsultaPaciente1).%New()
    Set tResponse = ##class(PortalPaciente.s0.InformacionPaciente).%New()
    Set pResponse = ##class(PortalPaciente.Msg.OInformacionPaciente).%New()
    Set tRequest.RUT = pRequest.RUT
    Set tSC = ..Adapter.InvokeMethod("ConsultaPaciente",.tResponse,tRequest)
    if '$IsObject(tResponse)
    {
        Set tSC = $System.Status.Error(5001,"The method ConsultaPaciente did not return anything!")
        Quit
    }
    Set pResponse.EstadoConsulta = tResponse.EstadoConsulta
}
catch(tException)
{
    Set tSC = tException.AsStatus()
}
Quit tSC