Index: TECH/SQLUtils.cls.xml
===================================================================
diff -u
--- TECH/SQLUtils.cls.xml	(revision 0)
+++ TECH/SQLUtils.cls.xml	(revision 3164)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.SQLUtils">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Query name="SQLTables">
+<Description>
+Get a List of all Basetables and Views.</Description>
+<Type>%Query</Type>
+<SqlProc>1</SqlProc>
+<Parameter name="ROWSPEC" value="Name"/>
+</Query>
+
+<Method name="SQLTablesExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&QHandle:%Binary,%user:%String]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ set %TableId=0
+ QUIT $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SQLTablesFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&QHandle:%Binary,&Row:%List,AtEnd:%Integer]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ set AtEnd=0,Row=""
+ set %TableId=$order(^mdd(1,%TableId))
+ if %TableId>0 {
+   set Row=$lb($p(^mdd(1,%TableId,1),$c(1),17)_"."_$p($p(^mdd(1,%TableId,1),$c(1),1),$C(1,1)))
+   set AtEnd = $order(^mdd(1,%TableId))'>0
+ } else {
+   set AtEnd = 1
+ }
+ QUIT $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SQLTablesClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&QHandle:%Binary]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ kill %TableId
+ QUIT $$$OK
+]]></Implementation>
+</Method>
+
+<Query name="SQLViews">
+<Description>
+Get a List of all Basetables and Views.</Description>
+<Type>%Query</Type>
+<SqlProc>1</SqlProc>
+<Parameter name="ROWSPEC" value="Name"/>
+</Query>
+
+<Method name="SQLViewsExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&QHandle:%Binary,%user:%String]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ set %ViewId=0
+ QUIT $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SQLViewsFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&QHandle:%Binary,&Row:%List,AtEnd:%Integer]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ set AtEnd=0,Row=""
+ set %ViewId=$order(^mdd(3,%ViewId))
+ if %ViewId>0 {
+   set Row=$lb($p(^mdd(3,%ViewId,1),$c(1),12)_"."_$p($p(^mdd(3,%ViewId,1),$c(1),1),$C(1,1)))
+   set AtEnd = $order(^mdd(3,%ViewId))'>0
+ } else {
+   set AtEnd = 1
+ }
+ 
+ QUIT $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SQLViewsClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&QHandle:%Binary]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ kill %ViewId
+ QUIT $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>