@@ -198,16 +198,18 @@ ClassMethod InstanceUncommittedExecute(ByRef qHandle As %Binary) As %Status
198
198
new $namespace
199
199
while $LISTNEXT (namespaces , tPtr , tValue ) {
200
200
set namespace = $ZCONVERT (tValue , " U" )
201
- set $NAMESPACE = namespace
202
- set statement = ##class (%SQL.Statement ).%New ()
203
- $$$ThrowOnError(statement .%Prepare (qHandle (" q" ), 0 ))
204
- set resultSet = statement .%Execute ()
205
- throw :resultSet .%SQLCODE <0 ##class (%Exception.SQL ).CreateFromSQLCODE (resultSet .%SQLCODE ,resultSet .%Message )
206
- while resultSet .%Next (.sc ) {
207
- $$$ThrowOnError(sc )
208
- set qHandle (" changes" , $increment (qHandle (" changes" )), " InternalName" ) = resultSet .%GetData (1 )
209
- set qHandle (" changes" , qHandle (" changes" ), " User" ) = resultSet .%GetData (2 )
210
- set qHandle (" changes" , qHandle (" changes" ), " Namespace" ) = namespace
201
+ if '(namespace [ " ^" ) {
202
+ set $NAMESPACE = namespace
203
+ set statement = ##class (%SQL.Statement ).%New ()
204
+ $$$ThrowOnError(statement .%Prepare (qHandle (" q" ), 0 ))
205
+ set resultSet = statement .%Execute ()
206
+ throw :resultSet .%SQLCODE <0 ##class (%Exception.SQL ).CreateFromSQLCODE (resultSet .%SQLCODE ,resultSet .%Message )
207
+ while resultSet .%Next (.sc ) {
208
+ $$$ThrowOnError(sc )
209
+ set qHandle (" changes" , $increment (qHandle (" changes" )), " InternalName" ) = resultSet .%GetData (1 )
210
+ set qHandle (" changes" , qHandle (" changes" ), " User" ) = resultSet .%GetData (2 )
211
+ set qHandle (" changes" , qHandle (" changes" ), " Namespace" ) = namespace
212
+ }
211
213
}
212
214
}
213
215
0 commit comments