Index: FLOWORD2.mac.rou
===================================================================
diff -u -r49871 -r49927
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 49871)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 49927)
@@ -354,6 +354,7 @@
  New R,Index,PRNr,Kom,Qty
  Set R=$$GWNODE(KLNr,ORDNr,OLNr) Quit:R=""
  Set PRNr=$P(R,"`"),Index=$P(R,"`",2),Qty=$P($P(R,"`",3),D),Kom=$P($P(R,"`",3),D,3)
+ Do ##class(vhLib.Logger).%New().Debug("KILL WNODE " _KLNr _" " _ORDNr _" " _OLNr, "KILL WNODE " _KLNr _" " _ORDNr _" " _OLNr _"   - Index " _Index _"   - PRNr " _PRNr )
  Kill ^KPR(PRNr,Index)
  If $E($O(^KPR(PRNr,"W")))'="W" Kill ^KPR(PRNr,"W")
  Do MODRES(KLNr,ORDNr,OLNr,1) 
@@ -370,6 +371,7 @@
  Set R=^KOD(KLNr,"F",ORDNr,OLNr)
  Set:'Qty Qty=$P(R,D,3)
  Set Data=Qty_D_$P(R,D,25)_D_($P(R,D,27)'="")
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE " _KLNr _" " _ORDNr _" " _OLNr, "SET WNODE " _KLNr _" " _ORDNr _" " _OLNr _"   - Index " _Index _"   - PRNr " _PRNr _"   - Data " _Data)
  Set ^KPR(PRNr,Index)=Data,^KPR(PRNr,"W")=""
  Do MODRES(KLNr,ORDNr,OLNr) 
  Do BUILDORD^FLOWORD3(KLNr,ORDNr,OLNr)