Index: BL/Legacy/IPComService.cls.xml
===================================================================
diff -u
--- BL/Legacy/IPComService.cls.xml	(revision 0)
+++ BL/Legacy/IPComService.cls.xml	(revision 68654)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.IPComService">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="IsEdiVerwerkingViaBackgroundProcess">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
+	Quit ($$$StartsWith(RuntimeContext.GeefSessieID(),"CARETAKER_"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefIpAdresVoorEdiVerwerking">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "127.0.0.199"
+]]></Implementation>
+</Method>
+
+<Method name="GeefIpAdresVoorIpCom">
+<Description>
+Geeft het ClientIP adres terug, of in geval van een CARETAKER job geeft dit "127.0.0.199" terug. 
+LET OP: GeefClientIP kan ook "" (leeg) teruggeven. </Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IpAdresVoorIpCom As %String
+	
+	If ..IsEdiVerwerkingViaBackgroundProcess() {
+		Set IpAdresVoorIpCom = ..GeefIpAdresVoorEdiVerwerking()
+	}
+	Else {
+		Set IpAdresVoorIpCom = ##class(TECH.Process).GeefClientIP()   ; Normale ClientIpAdres 
+	}
+	
+	Quit IpAdresVoorIpCom
+]]></Implementation>
+</Method>
+
+<Method name="GeefNieuweIpComKey">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Groep:%String,Actie:%String,IpAdresVoorIpCom:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Key As %String
+	#dim IP As %String = IpAdresVoorIpCom
+
+	#dim IsGeldigIpAdres As %Boolean = (IP?1.3N1"."1.3N1"."1.3N1"."1.3N)
+	Do:($$$Not(IsGeldigIpAdres)) ##class(vhLib.Logger).%New("TBX_CREATE").Info("IPComNewKey","IPCom2 kon geen nieuwe Key bepalen vanwege ongeldig IP-adres '"_IP_"'.")
+	Quit:($$$Not(IsGeldigIpAdres)) ""
+
+	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)
+
+	Set ^IPCom("D",Key)=Groep_"`"_Actie_"`"_$H_"`"_IP
+
+	Quit Key
+]]></Implementation>
+</Method>
+
+<Method name="GeefIpComKey">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>IpAdres:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:(IpAdres="") ""
+	Quit $Get(^IPCom("IP",IpAdres))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderIpComData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>IpComKey:%String</FormalSpec>
+<Implementation><![CDATA[	Kill:($$$HasLength(IpComKey)) ^IPCom("D",IpComKey)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>