HMPJSON ;SLC/KCM,ASMR/RRB - Decode/Encode JSON;9/25/2015 10:15
Source file <HMPJSON.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DECODE(VVJSON,VVROOT,VVERR) | ||
| ENCODE(VVROOT,VVJSON,VVERR) | ; VVROOT (M structure) --> VVJSON (array of strings)
; Examples: D ENCODE^HMPJSON("^GLO(99,2)","^TMP($J)") ; D ENCODE^HMPJSON("LOCALVAR","MYJSON","LOCALERR") |
|
| ESC(X) | ; Escape string for JSON
|
|
| UES(X) | ; Unescape JSON string
|
|
| ERRX(ID,VAL) | ; Set the appropriate error message
; switch (ID) -- XERRX ends statement |
|
| XERRX | ; end switch
|
| Name | Line Occurrences |
|---|---|
| XERRX | ERRX+6, ERRX+7, ERRX+8, ERRX+9, ERRX+10, ERRX+11, ERRX+12, ERRX+13, ERRX+14, ERRX+15 , ERRX+16, ERRX+17, ERRX+18, ERRX+19, ERRX+20, ERRX+21, ERRX+22, ERRX+23, ERRX+24, ERRX+28 , ERRX+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ERRMSG | ERRX+2~, ERRX+6*, ERRX+7*, ERRX+8*, ERRX+9*, ERRX+10*, ERRX+11*, ERRX+12*, ERRX+13*, ERRX+14* , ERRX+15*, ERRX+16*, ERRX+17*, ERRX+18*, ERRX+19*, ERRX+20*, ERRX+21*, ERRX+22*, ERRX+23*, ERRX+24* , ERRX+28*, ERRX+29*, ERRX+30*, XERRX+2 |
| ID | ERRX~, ERRX+6, ERRX+7, ERRX+8, ERRX+9, ERRX+10, ERRX+11, ERRX+12, ERRX+13, ERRX+14 , ERRX+15, ERRX+16, ERRX+17, ERRX+18, ERRX+19, ERRX+20, ERRX+21, ERRX+22, ERRX+23, ERRX+24 , ERRX+28, ERRX+29, ERRX+30 |
| VAL | ERRX~, ERRX+13, ERRX+14, ERRX+15, ERRX+16, ERRX+17, ERRX+24, ERRX+28, ERRX+29, ERRX+30 |
| VVERR | DECODE~, ENCODE~, XERRX+1, XERRX+2 |
| >> VVERRORS | XERRX+3* |
| VVJSON | DECODE~, ENCODE~ |
| VVROOT | DECODE~, ENCODE~ |
| X | ESC~, ESC+1, UES~, UES+1 |