Check %Status from %Next()

Author: isc-etamarch

cls/SourceControl/Git/Change.cls

@@ -203,7 +203,8 @@ ClassMethod InstanceUncommittedExecute(ByRef qHandle As %Binary) As %Status
         $$$ThrowOnError(statement.%Prepare(qHandle("q"), 0))
         set resultSet = statement.%Execute()
         throw:resultSet.%SQLCODE<0 ##class(%Exception.SQL).CreateFromSQLCODE(resultSet.%SQLCODE,resultSet.%Message)
-        while resultSet.%Next() {
+        while resultSet.%Next(.sc) {
+            $$$ThrowOnError(sc)
             set qHandle("changes", $increment(qHandle("changes")), "InternalName") = resultSet.%GetData(1)
             set qHandle("changes", qHandle("changes"), "User") = resultSet.%GetData(2)
             set qHandle("changes", qHandle("changes"), "Namespace") = namespace

cls/SourceControl/Git/Utils.cls

@@ -2451,7 +2451,8 @@ ClassMethod InstanceWideUncommittedCheck(InternalName As %String, Output User, O
     set isUncommitted = 0
     set resultSet = ##class(SourceControl.Git.Change).InstanceUncommittedFunc()
     throw:resultSet.%SQLCODE<0 ##class(%Exception.SQL).CreateFromSQLCODE(resultSet.%SQLCODE,resultSet.%Message)
-    while resultSet.%Next() {
+    while resultSet.%Next(.sc) {
+        $$$ThrowOnError(sc)
         set fileName = resultSet.InternalName
         if (InternalName = fileName) && (resultSet.Namespace '= $namespace) {
             set isUncommitted = 1