Index: FLOWTOE2.mac.rou
===================================================================
diff -u -r50829 -r52868
--- FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 50829)
+++ FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 52868)
@@ -205,14 +205,11 @@
  New R,Index,PRNr,Kom,Qty
  Set R=$$GWNODE(LEVNr,TLNr,TLLNr) Quit:R=""
  Set PRNr=$P(R,"`"),Index=$P(R,"`",2),Qty=$P($P(R,"`",3),D,4),Kom=$P($P(R,"`",3),D,7)
- Do ##class(vhLib.Logger).%New().Debug("KILL WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr, "KILL WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr _"   - Index " _Index _"   - PRNr " _PRNr )
  Kill ^KPR(PRNr,Index)
  If $E($O(^KPR(PRNr,"W")))'="W" Kill ^KPR(PRNr,"W")
  ; Theoretische stock
  Set R=$P(^KPR(PRNr,0),D,17)
- Do ##class(vhLib.Logger).%New().Debug("KILL WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Theoretische stock - " _R)
  Set $P(R,"#")=$P(R,"#")-Qty,$P(R,"#",Kom+2)=$P(R,"#",Kom+2)-Qty
- Do ##class(vhLib.Logger).%New().Debug("KILL WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Theoretische stock - " _R)
  Set $P(^KPR(PRNr,0),D,17)=R
  Set R=^KTO(LEVNr,TLNr,TLLNr)
  Kill ^KTO3(TLNr,$P(R,D,13,14)_D_TLLNr)