Index: csp/vhisie/TBX/BuildRef/tmpDev.mac.rou
===================================================================
diff -u -r724 -r787
--- csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 724)
+++ csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 787)
@@ -16,6 +16,7 @@
 	Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR"))
 	Set sDomVERW=$LG(lbDomLU,1)
 	Set sDomKLNr=$LG(lbDomLU,2)
+	
 	Set Taal=$G(%request.Data("Taal",1),$$$TaalDfl)
 	Set QS=$G(%request.CgiEnvs("QUERY_STRING"))
     Set Ref=$G(%request.Data("REF",1))
@@ -44,13 +45,15 @@
 	. Set KLNr=$G(%request.Data("KLNR",1))
 	. Set wsID=$G(%request.Data("WSID",1))
 	. Set sMode=$G(%request.Data("MODE",1))
- 
-	Do
-	. Set %blnBuildRef=1
-    . Set DataOpt=$G(%request.Data("DATAOPT",1))
-    . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLE":"HFLE", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:""))
-	. Kill %blnBuildRef
+ 	
+	New TBXContext Set TBXContext = ##class(APPS.TBXWeb.TBXContext).%New("")
+	Do TBXContext.ZetDomeinVerwerker(VERW)
 	
+	Set %blnBuildRef=1
+    Set DataOpt=$G(%request.Data("DATAOPT",1))
+    Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(TBXContext.KlantGegevensViaDataOpt():VERW, 1:""))
+	Kill %blnBuildRef
+	
 	If ($G(%request.Data("SUBMIT",1))="Encrypt") Do
 	. Set blnEncrypt=1
 	. Set EncRefOut=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,sMode))
@@ -59,7 +62,7 @@
 	. ;If $L($G(%request.Data("DATAOPT",1))) Do
 	. If $L(DataOpt) Do
 	..  Set DataOptCheck=DataOpt
-	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLE":"HFLE", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:""))
+	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(TBXContext.KlantGegevensViaDataOpt():VERW, 1:""))
 	..  ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+="))
 	. ;New Page,UrlTaal
 	. Set Page=$G(%request.Data("PAGE",1))
@@ -144,7 +147,7 @@
 	If 'blnNoAccess Do
 	. Set %blnBuildRef=1
     . Set DataOpt=$G(%request.Data("DATAOPT",1))
-    . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,.tmpAr,$S(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", sDomVERW="HFLE":"HFLE", sDomVERW="KISCH":"KISCH", sDomVERW="RAEM":"RAEM", 1:"LMC"))
+    . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,.tmpAr,$S(sDomVERW="HEIN":"HEIN",sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", sDomVERW="HFLE":"HFLE", sDomVERW="KISCH":"KISCH", sDomVERW="RAEM":"RAEM", 1:"LMC"))
     . Kill %blnBuildRef
 	Set tmpTaal=$G(tmpAr("Taal"))
 	Set:(tmpTaal?1(1"N",1"F",1"E",1"D")) Taal=tmpTaal
@@ -186,7 +189,7 @@
 	. ;If $L($G(%request.Data("DATAOPT",1))) Do
 	. If $L(DataOpt) Do
 	..  Set DataOptCheck=DataOpt
-	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", sDomVERW="HFLE":"HFLE", sDomVERW="KISCH":"KISCH", sDomVERW="RAEM":"RAEM", 1:"LMC"))
+	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,sDomVERW)
 	..  ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+="))
 	..  If blnKeySteps Do ophOPTIMAIntermediates(DataOpt,sDomVERW)
 	. ;New Page,UrlTaal