Do XSL.WriteLine(<информация>)

<![CDATA[ <p>Моя разметка</p> ]]>

/// Generate code to write out non-group elements of this group.
Method %GenerateElements(pCode As %CharacterStream, ByRef tElements, pLevel As %Integer) As %Status [ Internal ]
{
	Set tSC = $$$OK
	Do {
		#; loop over elements
		Set n = $O(tElements(""))
		While (n'="") {
			Set tNode = tElements(n)
			Set tSC = ..%GetNodeField(tNode,.tNodeField,pLevel) If $$$ISERR(tSC) Quit
			If (tNode.expression'="") {
				Do pCode.WriteLine(" Set %val="_tNodeField)
				Set tSC = ..%GetNodeExpr(tNode,.tNodeExpr) If $$$ISERR(tSC) Quit
			}
			Else {
				Set tNodeExpr = tNodeField
			}

			Set tElName = $S(tNode.name="":"unnamed", 1 :tNode.name)
			Do pCode.WriteLine(" Write ""<"_tElName_"><![CDATA["",$ZCVT("_tNodeExpr_",""O"",""XML""),""]]></"_tElName_">"",!")
			Set n = $O(tElements(n))
		}
	} While( 0 )
	Quit tSC
}

<element name='Text' field='Text' expression="##class(wrk.sys).CData(%val)"/>

/// Поместить значение в контейнер
ClassMethod CData(Val As %String) As %String
{
	s Val="<![CDATA["_Val_"]]>"
	q Val
}