<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.18 (Build 6103)" ts="2007-12-10 22:51:41">
<Class name="User.TABLEAUFuncs">
<ProcedureBlock>1</ProcedureBlock>
<Super>%RegisteredObject</Super>
<TimeChanged>60974,82034.007262</TimeChanged>
<ClassDefinitionError>0</ClassDefinitionError>

<UDLText name="T1">
<Content><![CDATA[
//TSQL - CALL TABLEAUFuncs_QueryToTable("SelecT * from Matters","T")

]]></Content>
</UDLText>

<Method name="QueryToTable">
<ClassMethod>1</ClassMethod>
<FormalSpec>Query:%String,TempTableName:%String</FormalSpec>
<ReturnType>%Boolean</ReturnType>
<SqlProc>1</SqlProc>
<Implementation><![CDATA[
	d $SYSTEM.SQL.Login("tableau","tableau")

	d ##class(TABLEAUFuncs).DropTable(TempTableName)
	;s SQL = "DROP TABLE " _ TempTableName
	;S RS=##class(%ResultSet).%New("%DynamicQuery:SQL")
	;d RS.Prepare(SQL)
	;s RS.RuntimeMode=0
	;s sc=RS.Execute()

	s ClassName = $TR(TempTableName,"_","")
	d Delete^%apiOBJ(ClassName)
	
	D $SYSTEM.SQL.QueryToTable(Query,TempTableName,0,.errors)
	if $d(errors) q 0
	q 1
]]></Implementation>
</Method>

<Method name="DropTable">
<ClassMethod>1</ClassMethod>
<FormalSpec>SqlTable:%String</FormalSpec>
<ReturnType>%Boolean</ReturnType>
<SqlProc>1</SqlProc>
<Implementation><![CDATA[
	q:'$D(SqlTable) 0
	
	if $F(SqlTable,"SQLUser.")=0 s SqlTable="SQLUser."_SqlTable
	
	s ClassName=##class(%Library.SQLCatalog).SQLClassname(.x,SqlTable)
	q:ClassName="" ""
	
	d $ZOBJCLASSMETHOD(ClassName,"%KillExtent")
	
	s SQL = "DROP TABLE " _ SqlTable
	S RS=##class(%ResultSet).%New("%DynamicQuery:SQL")
	d RS.Prepare(SQL)
	s RS.RuntimeMode=0
	s sc=RS.Execute()
	
	q sc=1
]]></Implementation>
</Method>
</Class>
<Checksum value="1408719081"/>
</Export>
