diff --git a/library/IPA_Types.ttcn b/library/IPA_Types.ttcn
index ce6f9b6..110e5b1 100644
--- a/library/IPA_Types.ttcn
+++ b/library/IPA_Types.ttcn
@@ -131,5 +131,18 @@
        extension "decode(RAW)"
      }
 
+/* Finds an IE with the given tag in IPA IDENTITY RESPONSE.
+ * Returns index of an IE if found, -1 otherwise. */
+function f_ipa_id_resp_find_ie(in IpaCcmIdResp resp, IpaCcmIdTag tag)
+return integer {
+	for (var integer i := 0; i < sizeof(resp); i := i + 1) {
+		if (resp[i].tag == tag) {
+			return i;
+		}
+	}
+
+	return -1;
+}
+
 
 } with { encode "RAW" }