File tree 1 file changed +6
-2
lines changed
1 file changed +6
-2
lines changed Original file line number Diff line number Diff line change @@ -8,16 +8,18 @@ ClassMethod GetMonthList() As %List
8
8
9
9
ClassMethod MonthListUsage ()
10
10
{
11
+ set sc = $$$OK
11
12
set monthList =..GetMonthList ()
12
13
13
14
// get the particular value by index
14
- w " Month N5 is " ,$Listget (monthlist ,5 )
15
+ w " Month N5 is " , $Listget (monthList ,5 )
15
16
16
17
// work with all entries of the list
17
18
set iter =0 ,id =0
18
19
while $Listnext (monthList ,iter ,month ) {
19
20
w $seq (id )," month is " ,month ,!
20
21
}
22
+ quit sc
21
23
}
22
24
23
25
ClassMethod MonthGlobalSetup (ad )
@@ -29,6 +31,7 @@ ClassMethod MonthGlobalSetup(ad)
29
31
30
32
ClassMethod MonthGlobalUsage ()
31
33
{
34
+ set sc = $$$OK
32
35
set ad =$na (^Month ) k @ad
33
36
d ..MonthGlobalSetup (ad )
34
37
@@ -41,6 +44,7 @@ ClassMethod MonthGlobalUsage()
41
44
w monthId ," month is " ,@ad @(monthId ),!
42
45
set monthId =$Order (@ad @(monthId ))
43
46
}
47
+ quit sc
44
48
}
45
49
46
- }
50
+ }
You can’t perform that action at this time.
0 commit comments