Index: ProScan/UI/CommonFunctions.pas
===================================================================
diff -u -r396 -r514
--- ProScan/UI/CommonFunctions.pas	(.../CommonFunctions.pas)	(revision 396)
+++ ProScan/UI/CommonFunctions.pas	(.../CommonFunctions.pas)	(revision 514)
@@ -8,6 +8,7 @@
   public
     class function VerkorteDnaCode(DnaCode: string): string;
     class function IsKaderdeurLocatie(GescandeInput: string): boolean;
+    class function IsFrameId(GescandeInput: string): boolean;
   end;
 
 
@@ -22,6 +23,13 @@
   result := Copy(DnaCode,2,5);
 end;
 
+class function TCommonFunctions.IsFrameId(GescandeInput: string): boolean;
+begin
+  result := false;
+  if TRegEx.IsMatch(UpperCase(GescandeInput),'^O1[12]\d{7}$') then
+    result := true;
+end;
+
 class function TCommonFunctions.IsKaderdeurLocatie(GescandeInput: string): boolean;
 begin
   result := false;