Index: PERS.mac.rou
===================================================================
diff -u -r734 -r1343
--- PERS.mac.rou	(.../PERS.mac.rou)	(revision 734)
+++ PERS.mac.rou	(.../PERS.mac.rou)	(revision 1343)
@@ -102,7 +102,6 @@
  Do BLDINDEX(ObjType,ObjRef)
  Set:ObjType="K" $P(^KKL(^KK1(ObjRef),7),D,7)=$$EXTDATE^vhDTyp($H,"DK")
  Set:ObjType="K"&$D(B(8)) $P(B(8),D,7)=$$EXTDATE^vhDTyp($H,"DK")
- Do CONV2OLD^PERS2(ObjType,ObjRef)
  Do:ObjType="K" CompMassMail^PERS2(%J,ObjRef)
  ;TCOMMIT
  Quit
@@ -126,8 +125,10 @@
  New PersNr,Rec,C,EMail,Usr,Domain
  Set Kill=$G(Kill) ; BldIndex als default
  For PersNr=1:1:$O(^PERS(ObjType,ObjRef,""),-1) Do
+ .d WLIP^vhDBG(127,"^PERS("_ObjType_","_ObjRef_","_PersNr_")")
  .Set Rec=^PERS(ObjType,ObjRef,PersNr)
  .Set:'Kill ^PERS("IN",$P(Rec,D,1),ObjType,ObjRef,PersNr)=""
+ .d WLIP^vhDBG(127,"^PERS(""IN"","_$P(Rec,D,1)_","_ObjType_","_ObjRef_","_PersNr_")")
  .Kill:Kill ^PERS("IN",$P(Rec,D,1),ObjType,ObjRef,PersNr)
  .For C=1:1:5 Do:$P($P(Rec,D,14+C),U)="E"  ; Email adres
  ..Set EMail=$P($P(Rec,D,14+C),U,2)