Index: cspBasis/SOAPlib.mac.rou
===================================================================
diff -u -r762 -r1369
--- cspBasis/SOAPlib.mac.rou	(.../SOAPlib.mac.rou)	(revision 762)
+++ cspBasis/SOAPlib.mac.rou	(.../SOAPlib.mac.rou)	(revision 1369)
@@ -109,6 +109,17 @@
 	..  ;Set tmpLB=tmpLB_$LB(tmpAr(Serv,NSpace))
 	. Else  Do
 	..  Do glcAddLoc($G(tmpAr(Serv,NSpace)))   ; Conditional Set tmpLB=tmpLB_$LB(tmpAr(Serv,NSpace))
+	
+	// Added by WimV on 06/06/2011 
+	// Voor ondersteuning WSLocations naar lokale cach�-server
+	If ($LL(lbWSlocs)'<1)&&($LG(tmpLB,1)="") {
+		Set tmpLB=""
+		Do glcAddLoc($G(tmpAr("ConfigItem_Prod")))
+	}
+	If ($LL(lbWSlocs)'<2)&&($LG(tmpLB,2)="") {
+		Do glcAddLoc($G(tmpAr("ConfigItem_ProdFailOver")))
+	}
+	
 	Quit tmpLB
 glcAddLoc(loc)
 	Set:($LF(tmpLB,loc)<1) tmpLB=tmpLB_$LB(loc)
@@ -137,6 +148,15 @@
 	Set arLocations("WS.PR.KADWebSoap","cache02","JRNL-ADMIN1") =ProductieFailoverWebServiceLocation_"WS.PR.KADWeb.cls"
 	Set arLocations("WS.PR.KADWebSoap","cache02","DEV-ADMIN1")  =DevelopmentWebServiceLocation_"WS.PR.KADWeb.cls"
  
+	// Added by WimV on 06/06/2011 
+	// Voor ondersteuning WSLocations naar lokale cach�-server
+	Set arLocations("WS.TBX.CalcSoap","ConfigItem_Prod")          =ProductieWebServiceLocation_"WS.TBX.Calc.cls"
+	Set arLocations("WS.TBX.CalcSoap","ConfigItem_ProdFailOver")  =ProductieFailoverWebServiceLocation_"WS.TBX.Calc.cls"
+	Set arLocations("WS.TBX.DataIOSoap","ConfigItem_Prod")        =ProductieWebServiceLocation_"WS.TBX.DataIO.cls"
+	Set arLocations("WS.TBX.DataIOSoap","ConfigItem_ProdFailOver")=ProductieFailoverWebServiceLocation_"WS.TBX.DataIO.cls"
+	Set arLocations("WS.PR.KADWebSoap","ConfigItem_Prod")         =ProductieWebServiceLocation_"WS.PR.KADWeb.cls"
+	Set arLocations("WS.PR.KADWebSoap","ConfigItem_ProdFailOver") =ProductieFailoverWebServiceLocation_"WS.PR.KADWeb.cls"
+ 
 	/*
 	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("x_x_x_IsInDMZ")) { 
 		Set arLocations("WS.TBX.CalcSoap","cache01","ADMIN1")       ="http://195.130.157.5:88/csp/admin1/WS.TBX.Calc.cls"