-
Notifications
You must be signed in to change notification settings - Fork 0
/
Utils.cls
73 lines (60 loc) · 1.74 KB
/
Utils.cls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Class Test.Utils
{
/// Lambda関数から呼び出すときは、以下入力引数に指定します。
/// {
/// "method": "Hello",
/// "args":"none"
/// }
ClassMethod Hello() As %String
{
Set tVersion = $ZV
if ( tVersion '="" ) { set tSC = $$$OK }
Set jsonret = {}
set jsonret.message="こんにちは!只今の日付時刻は:"_$ZDATETIME($HOROLOG,16)_"です"
Set jsonret.status = $$$OK
Set jsonret.payload = tVersion
Quit jsonret.%ToJSON()
}
ClassMethod GetPerson() As %String
{
set sql="select JSON_OBJECT('Name':Name,'Email': Email) as json from Test.Person"
set stmt=##class(%SQL.Statement).%New()
set st=stmt.%Prepare(sql)
set rset=stmt.%Execute()
set array=[]
while rset.%Next() {
set rjson={}.%FromJSON(rset.%Get("json"))
do array.%Push(rjson)
}
return array.%ToJSON()
}
ClassMethod CreateDummyTbl() As %String
{
&sql(create table Test.Person(Name VARCHAR(50),Email VARCHAR(50)))
&sql(INSERT INTO Test.Person (Name,Email) VALUES('山田','taro@mail.com'))
&sql(INSERT INTO Test.Person (Name,Email) VALUES('斉藤','saito@mail.com'))
set json={}
set json.Message="登録完了"
return json.%ToJSON()
}
ClassMethod CreateDummyGlo() As %String
{
set ^KION("久留米","min")=14
set ^KION("久留米","max")=19
set ^KION("大阪","min")=12
set ^KION("大阪","max")=18
set ^KION("東京","min")=14
set ^KION("東京","max")=19
set ^KION("愛知","min")=13
set ^KION("愛知","max")=15
set ^KION("奈良","min")=10
set ^KION("奈良","max")=18
set ^KION("沖縄","min")=21
set ^KION("沖縄","max")=26
set ^KION("新潟","min")=6
set ^KION("新潟","max")=12
set json={}
set json.Message="登録完了"
return json.%ToJSON()
}
}