f {  
  o "|TCP|4":(:"55555":"CTS"):1 i '$t w "<error>",! q
  s newstream=##class(%GlobalBinaryStream).%New()
  u "|TCP|4" 

    FOR {
      r data:1
      
          i $t {
            i $F(data,"<?xml version=""1.0") S str1="xml"
            i str1="xml" d newstream.WriteLine(data)
          }
          q:data="</soapenv:Envelope>"         
       }
       d newstream.WriteLine("</soapenv:Envelope>") 
       u $p
    set httprequest = ##class(%Net.HttpRequest).%New()
  set httprequest.Server = ""
  set httprequest.Port = ""
  set httprequest.WriteRawMode = 1
  set httprequest.Timeout=90
  set httprequest.ContentType = "text/xml"
  do httprequest.EntityBody.CopyFrom(newstream)
  do httprequest.Post() //SID0004154,SID0004153 - ЖКХ 
  s stream=httprequest.HttpResponse.Data
  u "|TCP|4"
  w stream.OutputToDevice()
  Close "|TCP|4"
}