OnPage s ClientIP="192.168.1.97" ;d CLS^vhDBG ;d WL^vhDBG("Print Order - OnPage started") New Input,Key,CheckDigit,Taal Set Input=$G(%request.Data("INPUT",1)) ;Set Key=$G(%request.Data("KEY",1)) ;Set CheckDigit=$G(%request.Data("CHK",1)) Set Taal=$G(%request.Data("TAAL",1)) Set:(Taal="") Taal=##class(Res.PI.Taal).BasisTaalID() ; Default Taal If $L(Input) Do opgXMLViaID Else ;If $L(Key) Do opgXMLFromGlobal ;d WL^vhDBG("Print Order - OnPage finished.") Quit opgXMLViaID New Ord Set Ord=##class(Flow.Had.OrderHfd).%New() If $G(%request.Data("DBG",1))="WV" Do opgXMLDebug Else Do . Do Ord.XMLOudWrite(Input,0,"N","ORDF;GAV",$S($G(%request.Data("NOXSL",1))=1:"", 1:"Format GAOrder.xsl")) ;d WL^vhDBG("Tijd voor XMLWrite : "_$$RestartTimer^vhLib) Do Ord.%Close() Quit opgXMLFromGlobal q If $L(CheckDigit) Quit:(CheckDigit'=$P($G(^Hulp(Key,"I")),"\",1)) Write:($D(^Hulp(Key,"S"))#10) ^Hulp(Key,"S") Quit opgXMLDebug Write "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