Index: HADWIZ.mac.rou
===================================================================
diff -u -r45840 -r58853
--- HADWIZ.mac.rou	(.../HADWIZ.mac.rou)	(revision 45840)
+++ HADWIZ.mac.rou	(.../HADWIZ.mac.rou)	(revision 58853)
@@ -76,24 +76,28 @@
  Set ^IPCom("N")=Key
  Lock -^IPCom("N")
  Kill ^IPCom("D",Key)
- Set IP=$$GetIP()
- Set:(IP="127.0.0.1") IP=$$GetIP^BLDSYSLOG($$$Server,1)   ; Patch voor lokale terminal op CacheServer  ; Added by WimV on 18/05/2011 
+ Set IP = ##class(TECH.Process).GeefClientIP()
+ ;Set IP=$$GetIP()
+ ;Set:(IP="127.0.0.1") IP=$$GetIP^BLDSYSLOG($$$Server,1)   ; Patch voor lokale terminal op CacheServer  ; Added by WimV on 18/05/2011 
  Quit:IP'?1.3N1"."1.3N1"."1.3N1"."1.3N ""
  Set ^IPCom("IP",IP)=Key
+ Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("IPComNewKey","IPCom entry added : "_$Name(^IPCom("IP",IP))_" = "_Key)
  Kill ^IPCom("D",Key)
  Set ^IPCom("D",Key)=Groep_"`"_Actie_"`"_$H_"`"_IP
  Quit Key
 NewIPCom2(Groep,Actie) 
  New Key,IP
  Do WLIP^vhDBG(97,"Test IP")
- Set IP=$$GetClientIP^vhLib()
+ Set IP = ##class(TECH.Process).GeefClientIP()
+ ;Set IP=$$GetClientIP^vhLib()
  Quit:IP'?1.3N1"."1.3N1"."1.3N1"."1.3N ""
  Lock +^IPCom("N")
  Set Key=$G(^IPCom("N"))+1
  Set ^IPCom("N")=Key
  Lock -^IPCom("N")
  Kill ^IPCom("D",Key)
  Set ^IPCom("IP",IP)=Key
+ Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("IPComNewKey","IPCom2 entry added : "_$Name(^IPCom("IP",IP))_" = "_Key)
  Kill ^IPCom("D",Key)
  Set ^IPCom("D",Key)=Groep_"`"_Actie_"`"_$H_"`"_IP
  Quit Key