Find

Article

Robert Cemper · Jul 21, 2020 1m read

Open Exchange

It's also an example of a customized SystemFunction extension (ZZISJSON) in Caché & IRIS
This time it is to be included in %ZLANGF00.mac

A JSON string is mostly imported from a file or over REST
You rely on a clean and compatible structure. This is the check.

required: ZPretty.mac

demo

USER>ZWRITE jsn  
jsn="{"Name":"Li,Robert K.","SSN":"672-92-9664","DOB":"1975-01-12","Home":{"Street":"986 Washington Blvd","City":"Boston","State":"PA","Zip":"95802"},"Office":{"Street":"6012 First Place","City":"Reston","State":"MT","Zip":"77739"},"Spouse":{"Name":"Avery,Zelda H.","SSN":"323-13-7437","DOB":"1943-03-27","Home":{"Street":"196 Main Drive","City":"Youngstown","State":"WY","Zip":"53229"},"Office":{"Street":"4056 Franklin Court","City":"Bensonhurst","State":"IA","Zip":"27688"},"FavoriteColors":["Black"],"Age":77},"Age":45,"Title":"Associate Marketing Manager","Salary":10421}"

USER>if $ZZISJSON(jsn) write "OK" OK

USER>set is(1)=$ZZISJSON(jsn),is(2)=$ZZISJSON(jsn_",home:") zwrite is is(1)=1 is(2)=0

GitHub

Discussion (0)1

Article

Robert Cemper · Jul 21, 2020 2m read

Open Exchange

#JSON #ObjectScript #Caché #Ensemble

t's also an example for a customized command extension (ZZJSN) in Caché & IRIS

This is the Caché version for fast JSON formatting but it also works in IRIS.
Requires package ZPretty
To allow parallel existence in IRIS this is named ZZJSN

see:

USER>ZWRITE jsn  
jsn="{"Name":"Li,Robert K.","SSN":"672-92-9664","DOB":"1975-01-12","Home":{"Street":"986 Washington Blvd","City":"Boston","State":"PA","Zip":"95802"},"Office":{"Street":"6012 First Place","City":"Reston","State":"MT","Zip":"77739"},"Spouse":{"Name":"Avery,Zelda H.","SSN":"323-13-7437","DOB":"1943-03-27","Home":{"Street":"196 Main Drive","City":"Youngstown","State":"WY","Zip":"53229"},"Office":{"Street":"4056 Franklin Court","City":"Bensonhurst","State":"IA","Zip":"27688"},"FavoriteColors":["Black"],"Age":77},"Age":45,"Title":"Associate Marketing Manager","Salary":10421}"

This doesn't look so easy to follow.
So this is a shorthand to save time and reduce mistyping.

The attached ZZJSN.inc is to be included into your %ZLANGC00.mac

USER>ZZJSN jsn        ; does the Output to Terminal / Device  
{
  "Name":"Li,Robert K.",
  "SSN":"672-92-9664",
  "DOB":"1975-01-12",
  "Home":{
    "Street":"986 Washington Blvd",
    "City":"Boston",
    "State":"PA",
    "Zip":"95802"
  },
  "Office":{
    "Street":"6012 First Place",
    "City":"Reston",
    "State":"MT",
    "Zip":"77739"
  },
  "Spouse":{
    "Name":"Avery,Zelda H.",
    "SSN":"323-13-7437",
    "DOB":"1943-03-27",
    "Home":{
      "Street":"196 Main Drive",
      "City":"Youngstown",
      "State":"WY",
      "Zip":"53229"
    },
    "Office":{
      "Street":"4056 Franklin Court",
      "City":"Bensonhurst",
      "State":"IA",
      "Zip":"27688"
    },
    "FavoriteColors":[
      "Black"
    ],
    "Age":77
  },
  "Age":45,
  "Title":"Associate Marketing Manager",
  "Salary":10421
}

output to stream

set st=##class(%Stream.GlobalCharacter).%New()
ZZJSN jsn:st      ; write result to Stream

output to string

ZZJSN jsn:"BOBBY"  ; writes it to local variable BOBBY

GitHub

Discussion (0)1

Question

Jenna Poindexter · Jul 20, 2020

#FHIR #InterSystems IRIS for Health

Has anyone been able to successfully connect IRIS for Health to Cerner's Secure FHIR Sandbox?

Anyone have any easy instructions for getting this working?

1 Comment

Discussion (1)2

Article

Robert Cemper · Jul 20, 2020 1m read

Open Exchange

#JSON #ObjectScript #InterSystems IRIS

t's also an example for a customized command extension (ZZJSON) in IRIS

IRIS has a nice %JSON.Formatter class.
But for debugging it is not really handy.
see:

ZWRITE js1  
js1="{""Name"":""Cunningham,John C."",""SSN"":""294-11-9150"",""DOB"":""1933-01-08"",""Home"":{""Street"":""4249 Ash Street"",""City"":""Tampa"",""State"":""MD"",""Zip"":""30176""},""FavoriteColors"":\[""White"",""Red"",""Green""]}"

so you proceed for the most simple case

set formatter=##class(%JSON.Formatter).%New()   
do formatter.Format(js1)  
{   
  "Name":"Cunningham,John C.",  
  "SSN":"294-11-9150",  
  "DOB":"1933-01-08",  
  "Home":{  
     "Street":"4249 Ash Street",  
     "City":"Tampa",  
     "State":"MD",  
     "Zip":"30176"  
  },  
  "FavoriteColors":\[  
    "White",  
    "Red",  
    "Green"  
  ]  
}

Not a big thing.
You do it once, you do it twice, and after the 5th time your fingers get tired.

So this is a shorthand to save time and reduce mistyping.

The attached ZZJSON.inc is to be included into your %ZLANGC00.mac

ZZJSON js1         ; does the Output to Terminal / Device

set st=##class(%Stream.GlobalCharacter).%New()
ZZJSON js1:st      ; write result to Stream

ZZJSON js1:"BOBBY"  ; writes it to local variable BOBBY

GitHub

Discussion (0)1

Article

Robert Cemper · Jul 20, 2020 1m read

Open Exchange

#InterSystems IRIS

An all-in-1 package of the WebSocket MicroService Demo

To simplify the demo of the WebSocket-Micro-Server (WSockClientMicroSV)
the whole package is now bundled into a single Docker Image

How to use it

From the same terminal start the IRIS based client and prepare your orders

  docker-compose exec iris iris session iris %ZSocket

on WebTerminal it is simply

USER>do ^%ZSocket

Open a new terminal on the download directory and start the node based service

  docker-compose exec iris node /opt/irisbuild/WsockIris.js

or open a new WebTerminal to start the client

USER>write $ZF(-1,"cd /opt/irisbuild  &&  node WsockIris.js")

The sequence of these commands is important ! Now it connects to IRIS and executes its orders

Result 1

Result 2

GitHub

Discussion (0)1

Function to Check if string is JSON object

fast JSON formatting (Caché / Ensemble)

Corner Secure FHIR Sandbox access from production

Fast JSON formatting (IRIS)

IRIS NativeAPI for Node.js compact

How to use it