I was able to define ECP connection in Installer class that I run when I build docker image for my Docker IRIS application. Now I start to use Amazon ECS and Autoscaling. When a new instance is created and it runs the IRIS container, I want it to "register" as an Application server on the remote database server. What code can I execute to add an ip address as an Application Server?
We have an immediate requirement for an experienced Intersystems Ensemble/Health Connect consultant to join our team with a good grounding in OO Programming, Healthcare Integration and at least 2 years experience with InterSystems Ensemble/Healthshare Health Connect
Is there any way that we can pass the values to the read prompts via cache routine.
For example, we have a couple of reports/routine in our system which accepts some inputs and after taking the inputs it generates some data. Right now it has proper UI and where User enters the value and in routines we have Read statements which accepts those inputs for further processing.
Now we want to schedule all these reports on a task manager on cache and don't want to modify the existing routines so wanted to check is there any way to pass the values to those "Read statement" via cache routine ?
To make it more clear, following is a test routine, if we run on terminal it accepts for two inputs, now if we want to trigger the same via a routine, then how to supply these "Read" command values ?
TestRun W !,"Enter First Variable Name" R a W !,"Enter Second Variable Name" R b s ^zparas=a_" "_b
We have a vendor that every couple of days will just stop transmitting messages, but still hold the TCP/IP connection open. No matter how many times we troubleshoot and talk with them, they don't seem to think its an issue with system. Normally if I just restart the service it will get the data flowing again.
I know ideal is for them to fix the issue, but in the meantime I have setup an Inactivity time out alert. I was wondering with the correct filtering if there was a way to say if the Inactivity Alert is triggered during the business day, to have the Alert trigger a restart of the service?
set obj={}
set obj.Name="山田太郎"do obj.%Set("Zip","160-0023")
do obj.%Set("Tel","03-5321-6200")
write obj.%ToJSON()
write obj.%Get("Zip")," - ",obj.%Get("Name")
do obj.%Remove("Zip")
write obj.%ToJSON()
set obj.Pref="東京都"write obj.%ToJSON()
do obj.%Set("City","新宿区")
write obj.%ToJSON()
02:02～ %Set()、%Get()、%Remove() 配列編
set array=[]
do array.%Set(0,"最初")
write array.%ToJSON()
set array."4"="最後"//set array."番号"="値" は array.%Set("番号","値")と同等do array.%Set(2,"真中")
write array.%ToJSON()
do array.%Pop()
write array.%ToJSON()
do array.%Push("Pushしたデータ")
write array.%ToJSON()
do array.%Remove(1) // 左から2番目の null を削除write array.%ToJSON()
03:34～ JSON配列 要素の操作：%Size()、%Get()
set array=["最初",null,""]
do array.%Set(4,"最後") // インデックス番号3 はJSONのnullを設定write array.%ToJSON()
// 出力結果は以下の通り
["最初",null,"",null,"最後"]
for i=0:1:array.%Size()-1w array.%Get(i),!
// 出力結果は以下の通り
最初
最後
set obj={"日付":($ZDATE($H,16)),"時刻":($ZTIME($PIECE($H,",",2)))}
write obj.%ToJSON()
set mgr=$system.Util.ManagerDirectory()
set array=[($system.Util.InstallDirectory()),(mgr)]
write array.%ToJSON()
SELECT JSON_OBJECT('Name':Name,'Email':Email) ABSENT ON NULL as json from Test.Person
02:42～ JSON_OBJECT()例（埋込SQLでの実行例）
Class Test.JSONTest
{
ClassMethod GetAllPerson()
{
//埋込SQL
&sql(declare C1 cursorforselect JSON_OBJECT('Name':Name,'Email':Email) as json into :json from Test.Person)
&sql(open C1)
set array=[]
for {
&sql(fetch C1)
if SQLCODE'=0 {
quit
}
set obj={}.%FromJSON(json)
do array.%Push(obj)
}
&sql(close C1)
write array.%ToJSON()
}
}
SELECT JSON_ARRAY(Name,Email ABSENT ON NULL) as array from Test.Person
07:50～ JSON_ARRAY()例（ダイナミックSQL実行例）
ClassMethod GetAllPersonArray()
{
set sql="SELECT JSON_ARRAY(Name,Email ABSENT ON NULL) as array from Test.Person"set stmt=##class(%SQL.Statement).%New()
set status=stmt.%Prepare(sql)
set rset=stmt.%Execute()
set root=[]
while rset.%Next() {
set array=[].%FromJSON(rset.%Get("array"))
do root.%Push(array)
}
do root.%ToJSON()
}
//実行文do##class(Test.JSONTest).GetAllPersonArray()
08:59～ JSONアダプタ（%JSON.Adapter）
set person=##class(Test.Person).%OpenId(1)
set status=person.%JSONExport()
write status
set person=##class(Test.Person).%OpenId(1)
set st=person.%JSONExportToStream(.jstream)
write st
write jstream.Read()
write jstream.Rewind()
set jobj={}.%FromJSON(jstream.Read())
write jobj.Name
write jobj.Email
12:59～ オブジェクト→JSON文字列にマッピング %JSONExportToString()
set person=##class(Test.Person).%OpenId(1)
set st=person.%JSONExportToString(.jstring)
write st
write jstring
set jobj={}.%FromJSON(jstring)
write jobj.Name
write jobj.Email
13:20～ JSON文字列→オブジェクトへのマッピング %JSONImport()
set json={}
set json.Name="ジェイソン", json.Email="json@mail.com"zwrite json
set p1=##class(Test.Person).%New()
set st=p1.%JSONImport(json)
write st
