Index: cspBasis/TBX/Lib.mac.rou =================================================================== diff -u -r41616 -r47662 --- cspBasis/TBX/Lib.mac.rou (.../Lib.mac.rou) (revision 41616) +++ cspBasis/TBX/Lib.mac.rou (.../Lib.mac.rou) (revision 47662) @@ -44,8 +44,11 @@ New DecryptedRef #dim DecryptedRef As %String = $$DecryptHashedRef^cspBasis.TBX.Lib(Ref) If $L(DecryptedRef) { + If $$$Not(DecryptedRef [ "\") { + Do ##class(TECH.Exceptions.InvalidInputException).Throw("Decrypteer van de Ref '"_Ref_"' geeft geen geldige data (decrypted='"_$$$LCVT(DecryptedRef)_"'") + } Do ophRefToArray^cspBasis.TBX.Lib(DecryptedRef,.RefArray) - } + } DecryptHashedRef(Ref) Quit:(Ref="") "" Quit $$ophDecryptHashedRef(Ref) @@ -77,7 +80,7 @@ Set:($L($P(Ref,"\",3))) RefArray("WSID")=$P(Ref,"\",3) Set:($L($P(Ref,"\",4))) RefArray("MODE")=$P(Ref,"\",4) Set:($L($P(Ref,"\",5))) RefArray("OfferteID")=$P(Ref,"\",5) - Set:(RefArray("MODE")="") RefArray("MODE")="A" + Set:($G(RefArray("MODE"))="") RefArray("MODE")="A" Quit ophArrayToRef(RefArray) New Ref