Index: EWORDSW.mac.rou =================================================================== diff -u -r73186 -r73512 --- EWORDSW.mac.rou (.../EWORDSW.mac.rou) (revision 73186) +++ EWORDSW.mac.rou (.../EWORDSW.mac.rou) (revision 73512) @@ -457,7 +457,6 @@ Kill C Set ORDRec=^KOD(KLNr,"F",ORDNr,1) Set ConsRec=^ORDW("D",CONSNr) - Do ##class(Tools.Wlip).%New(207).String($G(ConsRec)) Set C("CONSNR")=CONSNr Set C("KLNR")=KLNr Set KLId=^KK1(KLNr)