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