Index: csp/prgaorder.cls.xml =================================================================== diff -u -r1074 -r2200 --- csp/prgaorder.cls.xml (.../prgaorder.cls.xml) (revision 1074) +++ csp/prgaorder.cls.xml (.../prgaorder.cls.xml) (revision 2200) @@ -1,6 +1,7 @@ +vhLib.Macro %CSP.Page 0 @@ -21,9 +22,63 @@ %Status 0 Zie ^Hulp(""AAATest"",""S"")" + ;Quit + New CStream,rSize,i + Set CStream=##class(%GlobalCharacterStream).%New() + Do Ord.XMLOudWrite(Input,CStream,"N","ORDF;GAV","Format GAOrder.xsl") + Set rSize=20000 + Kill ^Hulp("AAATest","S") + Set ^Hulp("AAATest","S")=CStream.Read(.rSize) + Set i=0 + For Do Quit:(rSize<0) + . Set tmpR=CStream.Read(.rSize) + . Quit:(rSize<0) + . Set ^Hulp("AAATest","S",$INCREMENT(i))=tmpR + Quit ]]> + + +1 +%Boolean +1 + +