Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YTQRQAD

Package: Mental Health

Routine: YTQRQAD


Information

YTQRQAD ;SLC/KCM - RESTful Calls for Instrument Admin ; 1/25/2017

Source Information

Source file <YTQRQAD.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 $$FMTE^XLFDT  $$NAMEFMT^XLFNAME  $$UP^XLFSTR  OP^XQCHK  
Mental Health 2 TSLIST1^YTQAPI  SETERROR^YTQRUTL  
Registration 2 TFL^VAFCTFU2  $$SITE^VASITE  
VA FileMan 2 ^%DT  $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health 1 YTQRQAD4  

Entry Points

Name Comments DBIA/ICR reference
PID(ARGS,RESULTS) ; get patient identifiers
APPROXY() ; return 1 if this call is via application proxy
LSTALL(ARGS,RESULTS) ; get a list of all instruments
LSTCPRS(ARGS,RESULTS) ; get a list of all instruments
GETSPEC(ARGS,RESULTS) ; get an instrument specification
MV2TMP(SPEC) ; Load spec into ^TMP("YTQ-JSON",$J), cleaning up line feeds
GETDOC(DOCNAME,RESULTS) ; set ^TMP with contents of the document named
WRCLOSE(ARGS,DATA) ; noop call for closing Delphi wrapper
VARYAUDC(ASMT) ; modify the AUDC based on patient sex in ^TMP("YTQ-JSON",$J)
PERSONS(ARGS,RESULTS) ; GET /api/mha/persons/:match
USERS(ARGS,RESULTS) ; GET /api/mha/users/:match
GINSTD(ARGS,RESULTS) ;Get Instrument Description
SETVAR(XCAT,VAR) ;Set JSON array values for Instrument Description - Requires YSAR to be set
RESET ; clear the ^XTMP("YTQASMT") nodes
; WARNING -- calling this (at RESET+3) will erase all current assignments

External References

Name Field # of Occurrence
^%DT GINSTD+13
$$GET1^DIQ PERSONS+10, PERSONS+12, USERS+9, USERS+12, USERS+15
TFL^VAFCTFU2 PID+15
$$SITE^VASITE PID+23
$$FMTE^XLFDT GINSTD+11, GINSTD+13
$$NAMEFMT^XLFNAME PERSONS+7, USERS+6
$$UP^XLFSTR PERSONS+2, USERS+2
OP^XQCHK APPROXY+1
TSLIST1^YTQAPI GINSTD+3
SETERROR^YTQRUTL PID+18, PID+29, PID+31, GETSPEC+4, GETSPEC+7, GETSPEC+10, GETDOC+4, GINSTD+4, GINSTD+6, GINSTD+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,NM
  • Line Location: RESET+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PID+31, PID+33, PID+34, PID+36, VARYAUDC+3
^TMP("YTQ-JSON" GETSPEC+1!, GETSPEC+13, MV2TMP+2!, MV2TMP+4*, MV2TMP+8*, GETDOC+1!, GETDOC+5*, GETDOC+6!, GETDOC+7, VARYAUDC+5
, VARYAUDC+6, VARYAUDC+7, VARYAUDC+10*, PERSONS+16!, PERSONS+17*, PERSONS+18, USERS+24!, USERS+25*, USERS+26
^VA(200 - [#200] PERSONS+3, PERSONS+4, USERS+3, USERS+4
^XTMP( RESET+4, RESET+6!
^XTMP("YTQASMT-SET-" VARYAUDC+2
^YTT(601.71 - [#601.71] GETSPEC+5, GETSPEC+6
^YTT(601.712 - [#601.712] GETSPEC+8, GETSPEC+9, MV2TMP+3, MV2TMP+6, MV2TMP+7
^YTT(601.96 - [#601.96] GETDOC+2, GETDOC+3, GETDOC+5

Label References

Name Line Occurrences
GETDOC LSTALL+1, LSTCPRS+1
MV2TMP GETSPEC+11
SETVAR GINSTD+16, GINSTD+18, GINSTD+20, GINSTD+22
VARYAUDC GETSPEC+12

Naked Globals

Name Field # of Occurrence
^( MV2TMP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT GINSTD+13~
ARGS PID~, LSTALL~, LSTCPRS~, GETSPEC~, WRCLOSE~, PERSONS~, USERS~, GINSTD~
ARGS("assignmentid" GETSPEC+12
ARGS("dfn" PID+2
ARGS("instrumentName" GETSPEC+3, GINSTD+2
ARGS("match" PERSONS+2, USERS+2
ASMT VARYAUDC~, VARYAUDC+2
CAP SETVAR+1~, SETVAR+2*, SETVAR+4
DATA WRCLOSE~
DFN PID+1~, PID+2*, PID+11, PID+14*, PID+25, PID+27*, PID+29, PID+31, PID+32, PID+33
, PID+34, PID+36, VARYAUDC+1~, VARYAUDC+2*, VARYAUDC+3
DOCNAME GETDOC~, GETDOC+2, GETDOC+3, GETDOC+4
DONE VARYAUDC+1~, VARYAUDC+5*, VARYAUDC+10*
EDIPI PID+14~*, PID+15, PID+18, PID+29
I MV2TMP+1~, MV2TMP+3*, MV2TMP+6*, MV2TMP+7, VARYAUDC+1~, VARYAUDC+5*, VARYAUDC+6, VARYAUDC+7, VARYAUDC+10, USERS+1~
, USERS+18~, USERS+19*, GINSTD+8*, GINSTD+9
IEN GETDOC+2~*, GETDOC+3*, GETDOC+4, GETDOC+5, PERSONS+1~, PERSONS+4*, PERSONS+6, PERSONS+10, PERSONS+12, USERS+1~
, USERS+4*, USERS+9, USERS+12, USERS+15, USERS+21
II GINSTD+1~
J MV2TMP+1~, MV2TMP+3*, MV2TMP+4*, MV2TMP+8
JSONAR GINSTD+1~, GINSTD+30
JSONAR("Description" SETVAR+3*, SETVAR+4*
L PID+26~*, PID+27
LABEL USERS+1~, USERS+6*, USERS+10, USERS+13, USERS+16, USERS+20*, USERS+22
LROOT PERSONS+1~, PERSONS+2*, PERSONS+3, USERS+1~, USERS+2*, USERS+3
NM PERSONS+1~, PERSONS+3*, PERSONS+4, PERSONS+7, PERSONS+9, PERSONS+14, USERS+1~, USERS+3*, USERS+4, USERS+6
, USERS+7, USERS+16, RESET+3~, RESET+4*, RESET+5, RESET+6
PREVLBL USERS+1~, USERS+2*, USERS+10, USERS+13, USERS+16*
PREVNM PERSONS+1~, PERSONS+2*, PERSONS+9, PERSONS+14*, USERS+1~, USERS+2*, USERS+7, USERS+16*
QUAL PERSONS+1~, PERSONS+10*, PERSONS+11, PERSONS+12*, PERSONS+13, USERS+1~, USERS+6*, USERS+9*, USERS+10, USERS+12*
, USERS+13, USERS+15*, USERS+16, USERS+17, USERS+19
R PID+24~, PID+25*, PID+26
REQCSGN PERSONS+1~
RESULTS PID~, LSTALL~, LSTALL+1, LSTCPRS~, LSTCPRS+1, GETSPEC~, GETSPEC+13*, GETDOC~, GETDOC+7*, PERSONS~
, PERSONS+15, PERSONS+18*, USERS~, USERS+23, USERS+26*, GINSTD~, GINSTD+30!*
RESULTS("dfn" PID+32*
RESULTS("email" PID+36*
RESULTS("name" PID+33*
RESULTS("persons" PERSONS+6*, PERSONS+7*, PERSONS+8*, PERSONS+11*, PERSONS+13*, USERS+21*, USERS+22*
RESULTS("pid" PID+34*, PID+35
RESULTS("ssn" PID+35*
ROOT PERSONS+1~, PERSONS+2*, PERSONS+3, USERS+1~, USERS+2*, USERS+3
SEQ PERSONS+1~, PERSONS+2*, PERSONS+5*, PERSONS+6, PERSONS+7, PERSONS+8, PERSONS+11, PERSONS+13, USERS+1~, USERS+2*
, USERS+5*, USERS+21, USERS+22
SPEC GETSPEC+2~, GETSPEC+8*, GETSPEC+9, GETSPEC+11, MV2TMP~, MV2TMP+3, MV2TMP+6, MV2TMP+7
STA PID+23~*, PID+27
TEST GETSPEC+2~, GETSPEC+5*, GETSPEC+6*, GETSPEC+7, GETSPEC+8
TESTNM GETSPEC+2~, GETSPEC+3*, GETSPEC+5, GETSPEC+6, GETSPEC+7, GETSPEC+12
U PID+18, PID+23, PID+27, PID+33, PID+34, PID+36, APPROXY+1, VARYAUDC+3, USERS+9, USERS+10
, USERS+12, USERS+13, USERS+15, USERS+19, SETVAR+2
VAL GINSTD+1~, GINSTD+9*, GINSTD+11*, GINSTD+13*, GINSTD+14
VAR GINSTD+1~, GINSTD+9*, GINSTD+10, GINSTD+11, GINSTD+12, GINSTD+14, GINSTD+15*, GINSTD+16, GINSTD+17*, GINSTD+18
, GINSTD+19*, GINSTD+20, GINSTD+21*, GINSTD+22, SETVAR~, SETVAR+2
X MV2TMP+1~, MV2TMP+3*, MV2TMP+4, MV2TMP+5, USERS+18~*, USERS+19*, USERS+20, GINSTD+13~*
X0 VARYAUDC+1~, VARYAUDC+7*, VARYAUDC+8, VARYAUDC+9
X1 VARYAUDC+1~, VARYAUDC+8*, VARYAUDC+10
X2 VARYAUDC+1~, VARYAUDC+9*, VARYAUDC+10
XCAT SETVAR~, SETVAR+3, SETVAR+4
XQOPT APPROXY+1~
XVAR SETVAR+1~, SETVAR+2*, SETVAR+3, SETVAR+4
XX GINSTD+1~, GINSTD+9*
Y MV2TMP+1~, MV2TMP+6, MV2TMP+7*, MV2TMP+8, GINSTD+13~
YS GINSTD+1~, GINSTD+3
YS("CODE" GINSTD+2*
YSAR GINSTD+1~
YSAR( GINSTD+14*, SETVAR+3
YSDATA GINSTD+1~, GINSTD+3, GINSTD+4
YSDATA( GINSTD+8, GINSTD+9
YSDATA(1 GINSTD+5*, GINSTD+6, GINSTD+7
YSDATA(2 GINSTD+5*, GINSTD+6, GINSTD+7
YSTESTN GINSTD+1~
>> YTQRERRS PID+11
YTTFL PID+15~
YTTFL( PID+25, PID+26
YTTFL(1 PID+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All