fix: run migration only once

src/cls/IPM/Utils/Migration.cls

@@ -5,30 +5,12 @@ Class %IPM.Utils.Migration
 
 ClassMethod RunAll(verbose As %Boolean = 1) As %Status
 {
-    Set tOriginalNS = $Namespace
-    Do ##class(%IPM.Main).GetListNamespace(.list)
-    New $Namespace
-    Set $Namespace = "%SYS"
-    Set sourceDB = ##class(%SYS.Namespace).GetPackageDest(tOriginalNS, "%IPM")
-
-    Set ns = ""
     Set sc = $$$OK
-    For {
-        Set ns = $Order(list(ns))
-        // Perform migration for namespaces to which %IPM is mapped from the current namespace's default routine database
-        If ##class(%SYS.Namespace).GetPackageDest(ns, "%IPM") '= sourceDB {
-            Continue
-        }
-        If ns = "" {
-            Quit
-        }
-        Try {
-            Set $Namespace = $Zstrip(ns,"<>WC")
-            Do ..MigrateZPMToIPM(verbose)
-            Do ..MigrateReposFromIPM09(verbose)
-        } Catch e {
-            Set sc = $$$ADDSC(sc, e.AsStatus())
-        }
+    Try {
+        Do ..MigrateZPMToIPM(verbose)
+        Do ..MigrateReposFromIPM09(verbose)
+    } Catch e {
+        Set sc = e.AsStatus()
     }
     Quit sc
 }