@@ -5,14 +5,14 @@ Class UA21.Utils
5
5
ClassMethod Setup ()
6
6
{
7
7
do ..Populate ()
8
- do ##class (%DeepSee.Utils ).%BuildCube (" UA21Cube" )
8
+ do ##class (%DeepSee.Utils ).%BuildCube (" UA21Cube" , 0 )
9
9
}
10
10
11
11
ClassMethod Populate () As %Status
12
12
{
13
13
do ##class (UA21.Region ).%KillExtent ()
14
14
do ##class (UA21.District ).%KillExtent ()
15
-
15
+
16
16
set sql = " CALL %SQL_Util.CSV(,,?,?)"
17
17
18
18
set proc = ##class (%SQL.Statement ).%ExecDirect (,sql , ..GetXData (," Regions" ), $c (9 ))
@@ -31,7 +31,7 @@ ClassMethod Populate() As %Status
31
31
do :rs .region '=" " obj .regionSetObjectId (##class (Region ).getId (rs .region ))
32
32
$$$TOE(sc , obj .%Save ())
33
33
}
34
-
34
+
35
35
kill stream , stream3
36
36
37
37
quit $$$OK
@@ -40,12 +40,12 @@ ClassMethod Populate() As %Status
40
40
ClassMethod GetXData (class = {$classname ()}, xData ) As %Stream .FileCharacter
41
41
{
42
42
set stream = ##class (%Dictionary.XDataDefinition ).IDKEYOpen (class , xData ).Data
43
-
43
+
44
44
set stream2 = ##class (%Stream.FileCharacter ).%New ()
45
45
set stream2 .TranslateTable = " UTF8"
46
46
do stream2 .CopyFrom (stream )
47
47
kill stream
48
-
48
+
49
49
quit stream2
50
50
}
51
51
@@ -223,4 +223,4 @@ UA74080000000030554 Прилуцький район, Чернігівська о
223
223
UA74100000000047140 Чернігівський район, Чернігівська область 451430 27
224
224
}
225
225
226
- }
226
+ }
0 commit comments