diff --git a/msc/MSC_Tests.ttcn b/msc/MSC_Tests.ttcn
index 6b2b259..a15fa57 100644
--- a/msc/MSC_Tests.ttcn
+++ b/msc/MSC_Tests.ttcn
@@ -63,6 +63,8 @@
 import from USSD_Helpers all;
 import from DNS_Helpers all;
 
+import from TCCConversion_Functions all;
+
 const integer NUM_BSC := 2;
 type record of BSSAP_Configuration BSSAP_Configurations;
 
@@ -3540,6 +3542,21 @@
    * too long / short TLV values
  */
 
+/* Check if a subscriber exists in the VLR */
+private function f_ctrl_subscr_in_vlr(charstring imsi_or_msisdn) runs on BSC_ConnHdlr return boolean {
+
+	var CtrlValue active_subsribers;
+	var integer rc;
+	active_subsribers := f_ctrl_get(IPA_CTRL, "subscriber-list-active-v1");
+
+	rc := f_strstr(active_subsribers, imsi_or_msisdn);
+	if (rc < 0) {
+		return false;
+	}
+
+	return true;
+}
+
 /* Perform a location updatye at the A-Interface and run some checks to confirm
  * that everything is back to normal. */
 private function f_sgsap_bssmap_screening()  runs on BSC_ConnHdlr {