Index: csp/vhisie/TBX/BuildRef/tmpDev.mac.rou
===================================================================
diff -u -r135 -r531
--- csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 135)
+++ csp/vhisie/TBX/BuildRef/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 531)
@@ -48,7 +48,7 @@
 	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="HFLB":"HFLB", VERW="KISCH":"KISCH", 1:""))
+    . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:""))
 	. Kill %blnBuildRef
 	
 	If ($G(%request.Data("SUBMIT",1))="Encrypt") Do
@@ -59,7 +59,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="HFLB":"HFLB", VERW="KISCH":"KISCH", 1:""))
+	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:""))
 	..  ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+="))
 	. ;New Page,UrlTaal
 	. Set Page=$G(%request.Data("PAGE",1))
@@ -142,14 +142,15 @@
 	Else  If sDomVERW="MBHO" Set blnNoAccess=$$$Not($$$AccessTestPageDataOptMBHO(%RemoteIP)||($$IsInternIPAdres^cspBasis.Library(%RemoteIP)))
 	Else  If sDomVERW="HFLB" Set blnNoAccess=$$$Not($$$AccessTestPageDataOptHFLB(%RemoteIP)||($$IsInternIPAdres^cspBasis.Library(%RemoteIP)))
 	Else  If sDomVERW="KISCH" Set blnNoAccess=1
+	Else  If sDomVERW="RAEM"  Set blnNoAccess=1
 	Else  Set blnNoAccess=1
 	
 		d WLIP^vhDBG(97,"blnNoAccess="_blnNoAccess_"")
 	Set RefOut=Ref
 	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="KISCH":"KISCH", 1:"LMC"))
+    . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,.tmpAr,$S(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", 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
@@ -191,14 +192,14 @@
 	. ;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="KISCH":"KISCH", 1:"LMC"))
+	..  Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", sDomVERW="KISCH":"KISCH", sDomVERW="RAEM":"RAEM", 1:"LMC"))
 	..  ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+="))
 	..  If blnKeySteps Do ophOPTIMAIntermediates(DataOpt,sDomVERW)
 	. ;New Page,UrlTaal
 	. Set Page=$G(%request.Data("PAGE",1))
 	. Set UrlTaal=$G(%request.Data("URLTAAL",1))
 	. Set UrlOut=$S($L(Page):Page_"?REF="_EncRefOut_$S($L(UrlTaal):"&Taal="_UrlTaal,1:""), 1:"")
-	Do ophAddToLog($S(sDomVERW="LMC":"TESTOPTIMA", sDomVERW="SFS":"TESTOPTSFS", sDomVERW="MBHO":"TESTOPTMBHO", sDomVERW="HFLB":"TESTOPTHFLB", sDomVERW="KISCH":"TESTOPTKISCH", 1:"TESTDATAOPT"))
+	Do ophAddToLog($S(sDomVERW="LMC":"TESTOPTIMA", sDomVERW="SFS":"TESTOPTSFS", sDomVERW="MBHO":"TESTOPTMBHO", sDomVERW="HFLB":"TESTOPTHFLB", sDomVERW="KISCH":"TESTOPTKISCH", sDomVERW="RAEM":"TESTOPTRAEM", 1:"TESTDATAOPT"))
 	Quit 1
 ophOPTIMAIntermediates(Data,sDomVERW)
 	New OptimaKey,encData,Step1,Step2,Step3,Step4,Step2Hex