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: 13

Package Total Call Graph
Kernel 5 ($$FMTE,$$NOW)^XLFDT  $$NAMEFMT^XLFNAME  $$UP^XLFSTR  OP^XQCHK  $$DIV4^XUSER  
Registration 3 $$GCRNSITE^VAFCCRNR  TFL^VAFCTFU2  $$SITE^VASITE  
VA FileMan 3 ^%DT  $$GET1^DIQ  $$UTC^DIUTC  
Mental Health 2 TSLIST1^YTQAPI  SETERROR^YTQRUTL  

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
NM4DFN(ARGS,RESULTS) ; get patient name given DFN
NM4DUZ(ARGS,RESULTS) ; get user name given DUZ
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+11, PERSONS+13, PERSONS+23, PERSONS+25, USERS+9, USERS+12, USERS+15, USERS+28, USERS+31, USERS+34
$$UTC^DIUTC PID+48
$$GCRNSITE^VAFCCRNR PID+16
TFL^VAFCTFU2 PID+17
$$SITE^VASITE PID+26
$$FMTE^XLFDT GINSTD+11, GINSTD+13
$$NOW^XLFDT PID+46
$$NAMEFMT^XLFNAME PERSONS+8, PERSONS+20, USERS+6, USERS+25
$$UP^XLFSTR PERSONS+2, USERS+2
OP^XQCHK APPROXY+1
$$DIV4^XUSER PID+42
TSLIST1^YTQAPI GINSTD+3
SETERROR^YTQRUTL PID+21, PID+32, PID+34, GETSPEC+4, GETSPEC+7, GETSPEC+10, GETDOC+4, NM4DFN+3, NM4DUZ+3, NM4DUZ+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+34, PID+36, PID+37, PID+39, VARYAUDC+4, NM4DFN+3, NM4DFN+5
^TMP("YTQ-JSON" GETSPEC+1!, GETSPEC+13, MV2TMP+2!, MV2TMP+4*, MV2TMP+8*, GETDOC+1!, GETDOC+5*, GETDOC+6!, GETDOC+7, VARYAUDC+6
, VARYAUDC+7, VARYAUDC+8, VARYAUDC+11*, PERSONS+29!, PERSONS+30*, PERSONS+31, USERS+43!, USERS+44*, USERS+45
^VA(200 - [#200] PERSONS+4, PERSONS+5, PERSONS+16, PERSONS+17, USERS+3, USERS+4, USERS+23, NM4DUZ+4, NM4DUZ+6
^XTMP( VARYAUDC+3, RESET+4, RESET+6!
^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~, NM4DFN~, NM4DUZ~, GINSTD~
ARGS("assignmentid" GETSPEC+12
ARGS("dfn" PID+2, NM4DFN+2
ARGS("duz" NM4DUZ+2
ARGS("instrumentName" GETSPEC+3, GINSTD+2
ARGS("match" PERSONS+2, USERS+2
ASMT VARYAUDC~, VARYAUDC+2
CAP SETVAR+1~, SETVAR+2*, SETVAR+5, SETVAR+7
DATA WRCLOSE~
DFN PID+1~, PID+2*, PID+11, PID+14*, PID+28, PID+30*, PID+32, PID+34, PID+35, PID+36
, PID+37, PID+39, VARYAUDC+1~, VARYAUDC+3*, VARYAUDC+4, NM4DFN+1~, NM4DFN+2*, NM4DFN+3, NM4DFN+4, NM4DFN+5
DOCNAME GETDOC~, GETDOC+2, GETDOC+3, GETDOC+4
DONE VARYAUDC+1~, VARYAUDC+6*, VARYAUDC+11*
DUZ PID+42
DUZ(2 PID+43
EDIPI PID+14~*, PID+17, PID+21, PID+32
HASSITE PID+41~, PID+42*, PID+43
I MV2TMP+1~, MV2TMP+3*, MV2TMP+6*, MV2TMP+7, VARYAUDC+1~, VARYAUDC+6*, VARYAUDC+7, VARYAUDC+8, VARYAUDC+11, USERS+1~
, USERS+18~, USERS+19*, USERS+37~, USERS+38*, GINSTD+8*, GINSTD+9
IEN GETDOC+2~*, GETDOC+3*, GETDOC+4, GETDOC+5, PERSONS+1~, PERSONS+5*, PERSONS+7, PERSONS+11, PERSONS+13, PERSONS+17*
, PERSONS+19, PERSONS+23, PERSONS+25, USERS+1~, USERS+4*, USERS+9, USERS+12, USERS+15, USERS+21, USERS+23*
, USERS+28, USERS+31, USERS+34, USERS+40
II GINSTD+1~
INST PID+41~, PID+45*, PID+47*, PID+48
J MV2TMP+1~, MV2TMP+3*, MV2TMP+4*, MV2TMP+8
JSONAR GINSTD+1~, GINSTD+30
JSONAR("Description" SETVAR+4*, SETVAR+5*, SETVAR+6*, SETVAR+7*
L PID+29~*, PID+30
LABEL USERS+1~, USERS+6*, USERS+10, USERS+13, USERS+16, USERS+20*, USERS+22, USERS+25*, USERS+29, USERS+32
, USERS+35, USERS+39*, USERS+41
LROOT PERSONS+1~, PERSONS+2*, PERSONS+16, USERS+1~, USERS+2*
NM PERSONS+1~, PERSONS+16*, PERSONS+17, PERSONS+20, PERSONS+22, PERSONS+27, USERS+1~, USERS+16, USERS+23, USERS+25
, USERS+26, USERS+35, RESET+3~, RESET+4*, RESET+5, RESET+6
NN PID+41~, PID+46*, PID+48
NODE VARYAUDC+1~, VARYAUDC+2*, VARYAUDC+3
PREVLBL USERS+1~, USERS+2*, USERS+10, USERS+13, USERS+16*, USERS+29, USERS+32, USERS+35*
PREVNM PERSONS+1~, PERSONS+2*, PERSONS+10, PERSONS+15*, PERSONS+22, PERSONS+27*, USERS+1~, USERS+2*, USERS+7, USERS+16*
, USERS+26, USERS+35*
QUAL PERSONS+1~, PERSONS+11*, PERSONS+12, PERSONS+13*, PERSONS+14, PERSONS+23*, PERSONS+24, PERSONS+25*, PERSONS+26, USERS+1~
, USERS+6*, USERS+9*, USERS+10, USERS+12*, USERS+13, USERS+15*, USERS+16, USERS+17, USERS+19, USERS+25*
, USERS+28*, USERS+29, USERS+31*, USERS+32, USERS+34*, USERS+35, USERS+36, USERS+38
R PID+27~, PID+28*, PID+29
REQCSGN PERSONS+1~
RESULTS PID~, LSTALL~, LSTALL+1, LSTCPRS~, LSTCPRS+1, GETSPEC~, GETSPEC+13*, GETDOC~, GETDOC+7*, PERSONS~
, PERSONS+28, PERSONS+31*, USERS~, USERS+42, USERS+45*, NM4DFN~, NM4DUZ~, GINSTD~, GINSTD+30!*
RESULTS("dfn" PID+35*, NM4DFN+4*
RESULTS("duz" NM4DUZ+5*
RESULTS("email" PID+39*
RESULTS("name" PID+36*, NM4DFN+5*, NM4DUZ+6*
RESULTS("persons" PERSONS+7*, PERSONS+8*, PERSONS+9*, PERSONS+12*, PERSONS+14*, PERSONS+19*, PERSONS+20*, PERSONS+21*, PERSONS+24*, PERSONS+26*
, USERS+21*, USERS+22*, USERS+40*, USERS+41*
RESULTS("pid" PID+37*, PID+38
RESULTS("ssn" PID+38*
RESULTS("time" PID+50*, PID+51*, PID+52*, PID+53*
ROOT PERSONS+1~, PERSONS+2*, PERSONS+4, PERSONS+5, PERSONS+8, PERSONS+10, PERSONS+15, PERSONS+16, USERS+1~, USERS+2*
, USERS+3, USERS+4, USERS+6, USERS+7
SEQ PERSONS+1~, PERSONS+2*, PERSONS+6*, PERSONS+7, PERSONS+8, PERSONS+9, PERSONS+12, PERSONS+14, PERSONS+18*, PERSONS+19
, PERSONS+20, PERSONS+21, PERSONS+24, PERSONS+26, USERS+1~, USERS+2*, USERS+5*, USERS+21, USERS+22, USERS+24*
, USERS+40, USERS+41
SITE PID+41~, PID+42, PID+44
SITE( PID+43*, PID+47
SITE("" PID+45
SPEC GETSPEC+2~, GETSPEC+8*, GETSPEC+9, GETSPEC+11, MV2TMP~, MV2TMP+3, MV2TMP+6, MV2TMP+7
STA PID+26~*, PID+30
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+21, PID+26, PID+30, PID+36, PID+37, PID+39, PID+50, PID+51, PID+52, PID+53
, APPROXY+1, VARYAUDC+4, PERSONS+11, USERS+9, USERS+10, USERS+12, USERS+13, USERS+15, USERS+19, USERS+28
, USERS+29, USERS+31, USERS+32, USERS+34, USERS+38, NM4DFN+5, NM4DUZ+6, SETVAR+2
USER NM4DUZ+1~, NM4DUZ+2*, NM4DUZ+3, NM4DUZ+4, NM4DUZ+5, NM4DUZ+6
UTC PID+41~, PID+46*, PID+47, PID+48*, PID+49*, PID+50, PID+51, PID+52, PID+53
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, USERS+37~*, USERS+38*, USERS+39
, GINSTD+13~*
X0 VARYAUDC+1~, VARYAUDC+8*, VARYAUDC+9, VARYAUDC+10
X1 VARYAUDC+1~, VARYAUDC+9*, VARYAUDC+11
X2 VARYAUDC+1~, VARYAUDC+10*, VARYAUDC+11
XCAT SETVAR~, SETVAR+4, SETVAR+5, SETVAR+6, SETVAR+7
XQOPT APPROXY+1~
XVAR SETVAR+1~, SETVAR+2*, SETVAR+3, SETVAR+4, SETVAR+6, SETVAR+7
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+4, SETVAR+6
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~
YTCERNID PID+16~*, PID+17
>> YTQRERRS PID+11
YTTFL PID+17~
YTTFL( PID+28, PID+29
YTTFL(1 PID+21
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