Routine: HMPJSOND

Package	Total	Call Graph
Enterprise Health Management Platform	1	ERRX^HMPJSON
Kernel	1	$$DEC^XLFUTL

Package	Total	Caller Graph
Enterprise Health Management Platform	1	HMPJSON

Entry Points

Name	Comments	DBIA/ICR reference
DECODE(VVJSON,VVROOT,VVERR)	; Set JSON object into closed array ref VVROOT
DIRECT	; TAG for use by DECODE^HMPJSON
NXTKN()	; Move the pointers to the beginning of the next token
ADDSTR	; Add string value to current node, escaping text along the way ; Expects VVLINE,VVIDX to reference that starting point of the index ; TODO: add a mechanism to specify names that should not be escaped ; just store as ":")= and ":",n)=
SETSTR	; Set simple string value from within same line ; expects VVJSON, VVLINE, VVINX, VVEND
UESEXT	; unescape from VVLINE,VVIDX to VVTLINE,VVEND & extend (\) if necessary ; expects VVLINE,VVIDX,VVTLINE,VVEND
ADDBUF(VVX)	; add buffer of characters to destination ; expects VVBUF,VVMAX,VVNODE,VVMORE to be defined ; used directly by ADDSTR
SAVEBUF	; write out buffer to destination ; expects VVBUF,VVMAX,VVNODE,VVMORE to be defined ; used directly by ADDSTR,ADDBUF
ISCLOSEQ(VVBLINE)	; return true if this is a closing, rather than escaped, quote ; expects ; VVJSON: lines of the JSON encoded string ; VVIDX: points to 1st character of the segment ; VVLINE: points to the line in which the segment starts ; VVEND: points to 1st character after the " (may be past the end of the line) ; used directly by ADDSTR
NAMPARS()	; Return parsed name, advancing index past the close quote ; -- This assumes no embedded quotes are in the name itself --
SETNUM(VVDIGIT)	; Set numeric along with any necessary modifier
NUMPARS(VVDIGIT)	; Return parsed number, advancing index past end of number ; VVIDX initially references the second digit
SETBOOL(VVLTR)	; Parse and set boolean value, advancing index past end of value
OSETBOOL(VVX)	; set a value and increment VVIDX
CURNODE()	; Return a global/local variable name based on VVSTACK ; Expects VVSTACK to be defined already
UES(X)	; Unescape JSON string ; copy segments from START to POS-2 (right before \) ; translate target character (which is at $F position)
REALCHAR(C)	; Return actual character from escaped
ERRX(ID,VAL)	; Set the appropriate error message

Name	Field # of Occurrence
ERRX^HMPJSON	ERRX+1
$$DEC^XLFUTL	UESEXT+18, UES+11

Name	Line Occurrences
$$CURNODE	SETSTR+4, SETSTR+7, SETSTR+8, UESEXT+3, SETNUM+3, SETNUM+5, SETBOOL+11, OSETBOOL+1
$$ISCLOSEQ	ADDSTR+9, ADDSTR+20
$$NAMPARS	DIRECT+33
$$NUMPARS	SETNUM+2
$$NXTKN	DIRECT+21
$$REALCHAR	UESEXT+19, UES+12
$$UES	SETSTR+4
ADDBUF	UESEXT+10, UESEXT+18, UESEXT+19
ADDSTR	DIRECT+34
ERRX	DIRECT+22, DIRECT+24, DIRECT+25, DIRECT+26, DIRECT+27, DIRECT+31, DIRECT+40, DIRECT+41, ADDSTR+16, UESEXT+13 , ISCLOSEQ+12, NAMPARS+8, NUMPARS+7, SETBOOL+7, SETBOOL+8, SETBOOL+9, SETBOOL+10, OSETBOOL+4, REALCHAR+11
SAVEBUF	UESEXT+23, ADDBUF+3
SETBOOL	DIRECT+36, DIRECT+37, DIRECT+38
SETNUM	DIRECT+39
SETSTR	ADDSTR+8, ADDSTR+9
UESEXT	ADDSTR+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	REALCHAR~, REALCHAR+1, REALCHAR+2, REALCHAR+3, REALCHAR+4, REALCHAR+5, REALCHAR+6, REALCHAR+7, REALCHAR+8, REALCHAR+9 , REALCHAR+11, REALCHAR+12
ID	ERRX~, ERRX+1
POS	UES+3~, UES+4, UES+5, UES+6, UES+7, UES+10, UES+11
START	UES+3~, UES+5*, UES+6, UES+7, UES+10
TGT	UES+9~, UES+10*, UES+11, UES+12
VAL	ERRX~, ERRX+1
VHMPOP	DIRECT+19~, DIRECT+20, DIRECT+22, DIRECT+30, DIRECT+31, DIRECT+33
VVBDONE	ISCLOSEQ+7~, ISCLOSEQ+8, ISCLOSEQ+10, ISCLOSEQ+14
VVBIDX	ISCLOSEQ+7~, ISCLOSEQ+8, ISCLOSEQ+11, ISCLOSEQ+13, ISCLOSEQ+14, ISCLOSEQ+15*
VVBLINE	ISCLOSEQ~, ISCLOSEQ+12*, ISCLOSEQ+13, ISCLOSEQ+14
VVBOOL	SETBOOL+1~, SETBOOL+2, SETBOOL+6, SETBOOL+8, SETBOOL+9, SETBOOL+10, SETBOOL+11
VVBS	ISCLOSEQ+7~, ISCLOSEQ+8, ISCLOSEQ+15, ISCLOSEQ+16
VVBUF	UESEXT+2~, UESEXT+3, ADDBUF+3, ADDBUF+4, SAVEBUF+3, SAVEBUF+4, SAVEBUF+5*
VVDIFF	OSETBOOL+3~*, OSETBOOL+4
VVDIGIT	SETNUM~, SETNUM+2, NUMPARS~, NUMPARS+3
VVDONE	NXTKN+1~, NXTKN+2, NXTKN+4, ADDSTR+12~, ADDSTR+13, ADDSTR+14, ADDSTR+19, ADDSTR+20, UESEXT+2~, UESEXT+4 , UESEXT+5, UESEXT+11, UESEXT+21, NAMPARS+2~, NAMPARS+3, NAMPARS+4, NAMPARS+6, NUMPARS+2~, NUMPARS+3, NUMPARS+4 , NUMPARS+5, SETBOOL+1~, SETBOOL+2, SETBOOL+3, SETBOOL+5
VVEND	ADDSTR+6~, ADDSTR+7, ADDSTR+8, ADDSTR+9, ADDSTR+16, ADDSTR+17, ADDSTR+18, ADDSTR+19, ADDSTR+25, SETSTR+3 , UESEXT+3, ISCLOSEQ+8, NAMPARS+2~, NAMPARS+5, NAMPARS+6, NAMPARS+7, NAMPARS+8
VVEOF	NXTKN+1~, NXTKN+2, NXTKN+3, NXTKN+6
VVERR	DECODE~, DIRECT+14*, REALCHAR+11
VVERRORS	DIRECT+19~, DIRECT+20*, DIRECT+21, ADDSTR+14, ADDSTR+21, UESEXT+5, UESEXT+22, ISCLOSEQ+10, NAMPARS+4, NUMPARS+4 , SETBOOL+3
VVI	UESEXT+2~, UESEXT+4, UESEXT+6, UESEXT+8, UESEXT+9, UESEXT+11, UESEXT+12, UESEXT+13, UESEXT+14, UESEXT+16* , UESEXT+17, UESEXT+20, UESEXT+21, CURNODE+2~, CURNODE+4*, CURNODE+5, CURNODE+6
VVIDX	DIRECT+19~, DIRECT+20, NXTKN+3, NXTKN+4, NXTKN+5, NXTKN+7, ADDSTR+7, ADDSTR+25, SETSTR+3, SETSTR+9* , UESEXT+4, NAMPARS+5, NAMPARS+6, NAMPARS+7, NAMPARS+8, NUMPARS+5, NUMPARS+6, NUMPARS+7, SETBOOL+4, SETBOOL+7 , OSETBOOL+2, OSETBOOL+3, OSETBOOL+4
VVINPUT	DIRECT+17~
VVINPUT(1	DIRECT+17*
VVJSON	DECODE~, DIRECT+17*, DIRECT+20, NXTKN+3, NXTKN+4, NXTKN+7, ADDSTR+7, ADDSTR+8, ADDSTR+16, ADDSTR+17 , ADDSTR+19, SETSTR+3, SETSTR+9, UESEXT+6, UESEXT+10, UESEXT+13, UESEXT+14, UESEXT+16, UESEXT+17, ISCLOSEQ+13 , ISCLOSEQ+14, NAMPARS+5, NAMPARS+6, NAMPARS+7, NAMPARS+8, NUMPARS+5, NUMPARS+6, NUMPARS+7, SETBOOL+4, SETBOOL+7 , OSETBOOL+3, OSETBOOL+4
VVLINE	DIRECT+19~, DIRECT+20, NXTKN+3, NXTKN+4, NXTKN+7, ADDSTR+7, ADDSTR+8, ADDSTR+9, ADDSTR+13, ADDSTR+25* , SETSTR+3, SETSTR+9, UESEXT+4, ISCLOSEQ+12, NAMPARS+5, NAMPARS+6, NAMPARS+7, NAMPARS+8, NUMPARS+5, NUMPARS+6 , NUMPARS+7, SETBOOL+4, SETBOOL+7, OSETBOOL+3, OSETBOOL+4*
VVLTR	SETBOOL~, SETBOOL+2, SETBOOL+8, SETBOOL+9, SETBOOL+10
VVMAX	DIRECT+13~*, ADDBUF+3
VVMORE	UESEXT+2~, UESEXT+3, SAVEBUF+3, SAVEBUF+4, SAVEBUF+5
VVNAME	NAMPARS+2~, NAMPARS+3, NAMPARS+6, NAMPARS+7, NAMPARS+10, NAMPARS+11
VVNODE	UESEXT+2~, UESEXT+3*, SAVEBUF+3, SAVEBUF+4
VVNUM	NUMPARS+2~, NUMPARS+3, NUMPARS+6, NUMPARS+8
VVROOT	DECODE~, DIRECT+18*, CURNODE+7
VVSTACK	DIRECT+19~, DIRECT+20, DIRECT+22, DIRECT+24, DIRECT+25, DIRECT+26, DIRECT+27*, DIRECT+29, DIRECT+31, DIRECT+33 , DIRECT+41, CURNODE+4
VVSTACK(	DIRECT+22, DIRECT+24, DIRECT+26, DIRECT+27, DIRECT+29, DIRECT+31, DIRECT+33, CURNODE+5, CURNODE+6
VVSTART	UESEXT+2~, UESEXT+6*, UESEXT+10
VVSTOP	UESEXT+2~, UESEXT+3*, UESEXT+8, UESEXT+11, UESEXT+21
VVSUBS	CURNODE+2~, CURNODE+3, CURNODE+4, CURNODE+5, CURNODE+6, CURNODE+7
VVTGT	UESEXT+14~*, UESEXT+15, UESEXT+19
VVTGTC	UESEXT+16~, UESEXT+17, UESEXT+18
VVTLINE	ADDSTR+12~, ADDSTR+13, ADDSTR+16, ADDSTR+17, ADDSTR+19, ADDSTR+20, ADDSTR+25, UESEXT+8, UESEXT+11, UESEXT+21
VVTO	UESEXT+2~, UESEXT+8, UESEXT+9, UESEXT+10
VVTOKEN	NXTKN+1~, NXTKN+7*, NXTKN+8
VVTYPE	DIRECT+19~, DIRECT+21, DIRECT+22, DIRECT+23, DIRECT+26, DIRECT+27, DIRECT+28, DIRECT+31, DIRECT+32, DIRECT+35 , DIRECT+36, DIRECT+37, DIRECT+38, DIRECT+39, DIRECT+40, SETBOOL+8, SETBOOL+9, SETBOOL+10
VVX	ADDSTR+6~, SETSTR+2~, SETSTR+3, SETSTR+4, SETSTR+7, SETSTR+8, ADDBUF~, ADDBUF+3, ADDBUF+4, SETNUM+1~ , SETNUM+2, SETNUM+3, SETNUM+5, SETBOOL+1~, SETBOOL+4*, SETBOOL+5, SETBOOL+6, OSETBOOL~, OSETBOOL+1, OSETBOOL+2
VVY	UESEXT+2~, UESEXT+4, UESEXT+6, UESEXT+8, UESEXT+10, UESEXT+11, UESEXT+12, UESEXT+13, UESEXT+14, UESEXT+16 , UESEXT+17, UESEXT+21
X	UES~, UES+5, UES+6, UES+7, UES+10, UES+11
Y	UES+3~, UES+4, UES+7, UES+10, UES+11, UES+12*, UES+13

Customize PDF page

Package: Enterprise Health Management Platform

Routine: HMPJSOND

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Label References

Local Variables

Legend: