set writer = ##class(%XML.Writer).%New()
	
//устанавливаем отступы
set writer.Indent = 1
	
//указываем что писать будем в поток
set xml = ##class(%Stream.TmpCharacter).%New()
do writer.OutputToStream(.xml)
	
//указываем себя, как объект для сериализации
do writer.RootObject($THIS)

set f = ##class(%FileCharacterStream).%New()
set f.Filename = "c:\мойфайл.xml"
set f.TranslateTable = "cp1251"
set status = f.CopyFromAndSave(xml)

set streamxslt = ##class(%Stream.TmpCharacter).%New()
do streamxslt.Write(xslt)

//создаём объект стиля трансформации
Set status=##class(%XML.XSLT.CompiledStyleSheet).CreateFromStream(streamxslt,.pXSL)
	
//создаем объект трансформации и производим её
set Transformer = ##class(%XML.XSLT.Transformer).%New()
set status = Transformer.TransformStreamWithCompiledXSL(xml, pXSL, .resultxml, , , , )

set result = resultxml.Read(resultxml.Size)
quit $ZCONVERT(result, "I", "UTF8")

Cache for Windows (x86-64) 2017.1.1 (Build 111) Wed May 17 2017 15:55:41 EDT