VPRJSON ;SLC/KCM -- Decode/Encode JSON ;8/14/13 11:22
Source file <VPRJSON.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 |
Package | Total | Caller Graph |
---|---|---|
Virtual Patient Record | 4 | VPRDCRC VPRDJ VPRJSOND VPRJSONE |
Mental Health | 1 | YTXCHGT |
PCE Patient Care Encounter | 1 | PXVRPC7 |
Name | Comments | DBIA/ICR reference |
---|---|---|
DECODE(VVJSON,VVROOT,VVERR) |
|
|
ENCODE(VVROOT,VVJSON,VVERR) | ; VVROOT (M structure) --> VVJSON (array of strings)
; Examples: D ENCODE^VPRJSON("^GLO(99,2)","^TMP($J)") ; D ENCODE^VPRJSON("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 |