facts parameter

Author: Evgeny Shvarov

Dockerfile

@@ -32,6 +32,7 @@ RUN \
   zn "DCANALYTICS" \
   zpm "install dsw" \
   zpm "install isc-dev" \
+  zpm "install webterminal" \
   do ##class(dev.code).workdir("/irisdev/app/src") \
   do EnableDeepSee^%SYS.cspServer("/csp/dcanalytics/") \
   do ##class(Community.Utils).setup("/opt/dcanalytics/globals.xml") \

src/cls/Community/Utils.cls

@@ -1,7 +1,7 @@
 Class Community.Utils [ Abstract ]
 {
 
-ClassMethod setup(globalPath As %String = "") As %Status
+ClassMethod setup(globalPath As %String = "", facts = 10000) As %Status
 {
 	if globalPath = "" {
 		write "Please input path to global GZ file.", !
@@ -26,7 +26,7 @@ ClassMethod setup(globalPath As %String = "") As %Status
 	return:$$$ISERR(sc) sc
 
 	write "Building cubes", !
-	set sc = ..UpdateCubes()
+	set sc = ..UpdateCubes(,facts)
 	return:$$$ISERR(sc) sc
 
 	w "Done!", !
@@ -64,7 +64,7 @@ ClassMethod buildIndices() As %Status
 	return sc
 }
 
-ClassMethod UpdateCubes(verbose = 1) As %Status
+ClassMethod UpdateCubes(verbose = 1, facts = 10000) As %Status
 {
 	set st = ##class(%DeepSee.Utils).%GetCubeList(.list, "cubes")
 	return:$$$ISERR(st) st
@@ -75,7 +75,7 @@ ClassMethod UpdateCubes(verbose = 1) As %Status
 		#; if (cube="POST") continue
 		quit:cube=""
 
-		Set st1 = ##class(%DeepSee.Utils).%BuildCube(cube, $$$YES, verbose,,10000)
+		Set st1 = ##class(%DeepSee.Utils).%BuildCube(cube, $$$YES, verbose,,facts)
 
 		set st = $$$ADDSC(st, st1) 
 	}

src/cls/Community/iKnow/Answer.cls

@@ -7,7 +7,7 @@ Parameter DomainName As STRING = "CommunityAnswer";
 
 Parameter BlackLists As STRING = "BLcommunity";
 
-ClassMethod GetConceptsByID(ID As %Integer, ByRef CList, Flg = 0) As %String
+ClassMethod GetConceptsByID(ID As %Integer, ByRef CList, Flg = 0)
 {
 	set domId  = ##class(%iKnow.Domain).GetOrCreateId(..#DomainName)
 
@@ -38,7 +38,7 @@ ClassMethod GetConceptsByID(ID As %Integer, ByRef CList, Flg = 0) As %String
 }
 
 /// Returns the combined sets and concepts by answer ID
-ClassMethod GetSetsAndConceptsByID(ID As %Integer) As %String
+ClassMethod GetSetsAndConceptsByID(ID As %Integer)
 {
 	set st = ..GetConceptsByID(ID, .CList, 1)
 	set ^AnswerSets(ID) = ""
@@ -133,8 +133,7 @@ ClassMethod Update() As %Status
 	set tSC = lister.AddListToBatch(myquery, id, group, data, meta)
 	do loader.ProcessBatch()
 
-	return "OK"
+	return $$$OK
 }
 
 }
-