TECH.RegisteredObject,BL.Legacy.GADataProduct.XMLParser GADataItemXML:%Stream BL.Legacy.GADataProduct.impl.XMLParser.ITEM GADataXML:%Stream,ParseTopTag:%String="ItemList" BL.Legacy.GADataProduct.impl.XMLParser.ItemList GADataItemXML:%Stream 1 %XML.Reader Status:%Status,Message:%String,Stream:%GlobalCharacterStream=##class(%GlobalCharacterStream).%New() 1