Index: EWORDST.mac.rou =================================================================== diff -u -r56351 -r56523 --- EWORDST.mac.rou (.../EWORDST.mac.rou) (revision 56351) +++ EWORDST.mac.rou (.../EWORDST.mac.rou) (revision 56523) @@ -574,7 +574,7 @@ If $G(^ORDW("IO",ORDNr,OLUNr))=CONSNr Do . Kill ^ORDW("IO",ORDNr,OLUNr) Else Do - . Do ##class(vhLib.Logger).%New("").Warning("REMLINE^EWORDST","REMLINE opgeroepen voor CONSNr='"_CONSNr_"', maar waarde ^ORDW(""IO"",ORDNr,OLUNr)='"_^ORDW("IO",ORDNr,OLUNr)_"'" ) + . Do ##class(vhLib.Logger).%New("").Warning("REMLINE^EWORDST","REMLINE opgeroepen voor CONSNr='"_CONSNr_"', maar waarde ^ORDW(""IO"",ORDNr,OLUNr)='"_$Get(^ORDW("IO",ORDNr,OLUNr))_"'" ) If $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),D,2)'="B" Do .Set KLNr=$P(^ORDW("D",CONSNr),D,1) .Do:(""=$Get(^ORD("IU",ORDNr,OLUNr))) ##class(vhLib.Logger).%New("").Warning("REMLINE^EWORDST","^ORD(IU afwezig voor ORDNr='" _ ORDNr _ "', OLUNr='" _ OLUNr _ "', CONSNr='" _ CONSNr _ "'.")