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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YTQRQAD4

Package: Mental Health

Routine: YTQRQAD4


Information

YTQRQAD4 ;ISP/MJB - RESTful Calls to handle MHA lists ; 1/25/2017

Source Information

Source file <YTQRQAD4.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Mental Health 5 ADMINS^YTQAPI5  GINSTD^YTQRQAD  ($$NEWASMT,$$PROGRESS,RMVTEST)^YTQRQAD1  $$ALWN2^YTQRQAD3  SETERROR^YTQRUTL  
Kernel 3 ($$DOW,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  ENCODE^XLFJSON  $$UP^XLFSTR  
Registration 2 WIN^DGPMDDCF  DEM^VADPT  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 ($$GET1,GETS)^DIQ  

Entry Points

Name Comments DBIA/ICR reference
GETLIST(ARGS,RESULTS) ; GET LIST OF INSTRUMENTS FOR PATIENT
SETRES(STR) ;
GETLOCS(ARGS,RESULTS) ; get list of hospital locations
; C=Clinics, Z=Other, screened by $$ACTLOC
; .Y=returned list, ORFROM=text to $O from, DIR=$O direction.
ACTLOC(LOC) ; Function: returns TRUE if active hospital location
; IA# 10040.
GETCATA(DOCNAME,RESULTS) ; set ^TMP with contents of the document named and categories
GETDES(NAME,DARR) ;Get Instrument Description
ASMTLST(ARGS,RESULTS) ; get assignments identified by patient id with list of instruments and last complete date
SETASGN(ASMT) ;Set up the Assignment JSON
INCMPLT(DFN,ORDBY,INCMPL) ; add list of incomplete instruments for DFN and ORDBY
; expects RSP,YSIDX,PTADMIN
CHKADM(YSADMIN,YSNAM,YSDFN) ;Check if Instrument Admin is the same as what is in XTMP
ASMTIDA(DFN,LSTINST) ; get administrations identified by DFN and TSTIEN
; Used to find last completed instrument admin
UPDTSRFL ;
; ICR #4290 READ OF CLINICAL REMINDER INDEX (PXRMINDX)
; Set index for 601.84 MH ADMINISTRATIONS
; X(1)=Patient X(2)=Instrument X(3)=Date Given
; ^PXRMINDX(601.84,"IP",X(2),X(1),X(3),DA)=""
; ^PXRMINDX(601.84,"PI",X(1),X(2),X(3),DA)=""

External References

Name Field # of Occurrence
WIN^DGPMDDCF ACTLOC+3
$$GET1^DIQ ASMTLST+22
GETS^DIQ INCMPLT+28, CHKADM+7
DEM^VADPT INCMPLT+6
$$DOW^XLFDT INCMPLT+9
$$FMDIFF^XLFDT ASMTLST+24, INCMPLT+20
$$FMTE^XLFDT GETLIST+28, SETASGN+5, SETASGN+20, SETASGN+21, INCMPLT+25
$$NOW^XLFDT INCMPLT+8
ENCODE^XLFJSON GETDES+5
$$UP^XLFSTR GETLOCS+6
$$GET^XPAR GETCATA+12
ADMINS^YTQAPI5 INCMPLT+12
GINSTD^YTQRQAD GETDES+4
$$NEWASMT^YTQRQAD1 ASMTLST+69
$$PROGRESS^YTQRQAD1 ASMTLST+53, SETASGN+15
RMVTEST^YTQRQAD1 SETASGN+13, SETASGN+14
$$ALWN2^YTQRQAD3 GETCATA+15
SETERROR^YTQRUTL GETLIST+10, GETLIST+11, GETLIST+34, INCMPLT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YTT(601.84 - [#601.84] GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GETLIST+11, ASMTIDA+6
^PXRMINDX(601.84 UPDTSRFL+12
^SC - [#44] GETLOCS+13, ACTLOC+2, ACTLOC+3, ACTLOC+4
^SC("B" GETLOCS+11, GETLOCS+12
^TMP("YTQ-JSON" GETLIST+5!, GETLIST+35*, GETLIST+37, SETRES+1*, GETLOCS+16*, GETLOCS+19, GETCATA+2!, GETCATA+38*, GETCATA+40, ASMTLST+8!
, ASMTLST+71*, ASMTLST+73, SETASGN+26*
^XTMP( ASMTLST+17, ASMTLST+18, ASMTLST+19, ASMTLST+20, ASMTLST+30, ASMTLST+31, ASMTLST+33, ASMTLST+34, ASMTLST+35, ASMTLST+38
, ASMTLST+39, ASMTLST+40
^XTMP("YTQASMT-INDEX" ASMTLST+13, ASMTLST+14, ASMTLST+26, ASMTLST+27
^XTMP("YTQASMT-SET-" ASMTLST+15, ASMTLST+28, SETASGN+3, SETASGN+4, SETASGN+6, SETASGN+8, SETASGN+17, SETASGN+23, SETASGN+24
^YTT(601.71 - [#601.71] GETLIST+24, GETCATA+6, GETCATA+8, GETCATA+9, GETCATA+13, GETCATA+24, GETCATA+28, GETCATA+29, ASMTIDA+13, ASMTIDA+14
UPDTSRFL+13
^YTT(601.84 - [#601.84] GETLIST+12, GETLIST+13, GETLIST+21, SETASGN+13, ASMTIDA+7, ASMTIDA+8
^YTT(601.97 - [#601.97] GETCATA+31

Label References

Name Line Occurrences
$$ACTLOC GETLOCS+13
$$CHKADM SETASGN+14
ASMTIDA ASMTLST+10
GETDES GETCATA+18
INCMPLT ASMTLST+11
SETASGN ASMTLST+37, ASMTLST+47, ASMTLST+48, ASMTLST+70
SETRES GETLIST+6, GETLIST+29, GETLIST+36, GETLOCS+8, GETLOCS+15, GETLOCS+17, GETLOCS+18, GETCATA+4, GETCATA+17, GETCATA+21
, GETCATA+27, GETCATA+35, GETCATA+37, GETCATA+39, ASMTLST+12, ASMTLST+72, SETASGN+25, SETASGN+27
UPDTSRFL GETLIST+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMINAR GETLIST+3~
ADMINAR( GETLIST+17*, GETLIST+18, GETLIST+19
ADMINDT GETLIST+2~, GETLIST+16*, GETLIST+17, GETLIST+25*, GETLIST+28, ASMTIDA+2~, ASMTIDA+16*, ASMTIDA+17
ADMINID GETLIST+2~, GETLIST+25*, GETLIST+28, ASMTLST+2~, ASMTLST+20*, ASMTLST+21, ASMTLST+22, ASMTLST+23, ASMTLST+24, ASMTLST+34*
, ASMTLST+35, ASMTLST+40*, ASMTLST+41, ASMTLST+42, ASMTLST+43, ASMTLST+46, ASMTIDA+2~, ASMTIDA+16*, ASMTIDA+17
ADMLST ASMTLST+4~
ADMLST( ASMTLST+24*, ASMTLST+46
ALWN GETCATA+1~, GETCATA+15*, GETCATA+16
APPSRC ASMTLST+5~, ASMTLST+31*, ASMTLST+47
ARGS GETLIST~, GETLOCS~, ASMTLST~, ASMTLST+69
ARGS("dfn" GETLIST+8, ASMTLST+9
ARGS("locmatch" GETLOCS+6
ARRAY ASMTIDA+3!
ASGNDT ASMTLST+1~, ASMTLST+38*
ASMT ASMTLST+1~, ASMTLST+7*, ASMTLST+14*, ASMTLST+15, ASMTLST+16, ASMTLST+24, ASMTLST+27*, ASMTLST+28, ASMTLST+29, ASMTLST+37
, ASMTLST+46, ASMTLST+47, ASMTLST+48, SETASGN~, SETASGN+3, SETASGN+4, SETASGN+5, SETASGN+6, SETASGN+8, SETASGN+13
, SETASGN+14, SETASGN+15, SETASGN+17, SETASGN+23, SETASGN+24
ASMTID ASMTLST+2~
ASSGNDT SETASGN+1~, SETASGN+3*, SETASGN+5
ASTR ASMTLST+3~, ASMTLST+52*, ASMTLST+53, ASMTLST+55, ASMTLST+56, ASMTLST+59, ASMTLST+60, ASMTLST+64, ASMTLST+67
CATHIT SETASGN+1~, SETASGN+6*, SETASGN+22*, SETASGN+26
CATN GETCATA+1~, GETCATA+25*, GETCATA+26, GETCATA+30*, GETCATA+31*, GETCATA+32
CMPL GETLIST+2~, GETLIST+15*, GETLIST+23*, SETASGN+1~, SETASGN+11*, SETASGN+20, ASMTIDA+2~, ASMTIDA+12*
CNT GETLIST+2~, GETLIST+5*, GETLIST+35, SETRES+1*, GETLOCS+3~, GETLOCS+5*, GETLOCS+16, GETCATA+1~, GETCATA+3*, GETCATA+38
, ASMTLST+8*, ASMTLST+71, SETASGN+26
D0 ACTLOC+2~, ACTLOC+3*
DARG GETDES+1~, GETDES+4
DARG("instrumentName" GETDES+3*
DARR GETCATA+1~, GETCATA+18, GETCATA+19, GETDES~, GETDES+2, GETDES+7*
DARR( GETCATA+20, GETCATA+21, GETDES+8*, GETDES+9*
DARR("" GETDES+8, GETDES+9
DATA ASMTLST+1~, ASMTLST+54!, ASMTLST+69, SETASGN+1~, SETASGN+7!, SETASGN+8*
DATA("adminDate" ASMTLST+55*
DATA("adminId" SETASGN+12
DATA("catInfo" ASMTLST+58*
DATA("complete" SETASGN+11
DATA("consult" ASMTLST+64*
DATA("date" ASMTLST+56*
DATA("entryMode" ASMTLST+57*
DATA("id" SETASGN+10
DATA("instruments" ASMTLST+65*, ASMTLST+66*, ASMTLST+67*, ASMTLST+68*
DATA("interview" ASMTLST+59*
DATA("location" ASMTLST+60*
DATA("name" SETASGN+9
DATA("orderedBy" ASMTLST+61*
DATA("patient" ASMTLST+63*
DFN GETLIST+1~, GETLIST+8*, GETLIST+10, GETLIST+11, GETLIST+12, ASMTLST+9*, ASMTLST+10, ASMTLST+11, ASMTLST+13, ASMTLST+14
, ASMTLST+26, ASMTLST+27, ASMTLST+63, SETASGN+14, INCMPLT~, INCMPLT+2, INCMPLT+11, ASMTIDA~, ASMTIDA+5, ASMTIDA+6
, ASMTIDA+7, ASMTIDA+10, UPDTSRFL+12
DI GETCATA+20~*, GETCATA+21
DIR GETLOCS+3~, GETLOCS+5*, GETLOCS+11, GETLOCS+12
DOCNAME GETCATA~
DT ACTLOC+5
DTGIVE ASMTLST+4~, ASMTLST+18*, ASMTLST+24
DUZ ASMTLST+11, ASMTLST+61
ENTRY ASMTLST+1~, ASMTLST+17*, ASMTLST+23, ASMTLST+24, ASMTLST+30*, ASMTLST+32, ASMTLST+35, SETASGN+1~, SETASGN+4*, SETASGN+5
ERRLST GETLIST+2~, GETLIST+30
ERRLST( GETLIST+14*, GETLIST+31
ERRSTR GETLIST+2~, GETLIST+31*, GETLIST+32*, GETLIST+33*, GETLIST+34
EXPDT SETASGN+1~, SETASGN+17*, SETASGN+21
G GETLIST+2~, GETLIST+13*, GETLIST+14, GETLIST+15, GETLIST+16, GETLIST+21*, GETLIST+22, GETLIST+23, GETLIST+25, GETLIST+26
, GETLIST+27, ASMTIDA+8*, ASMTIDA+9, ASMTIDA+10, ASMTIDA+11, ASMTIDA+12, ASMTIDA+16
HIT GETLIST+2~, GETLIST+7*, GETLIST+29*, GETLIST+35, GETLOCS+3~, GETLOCS+5*, GETLOCS+14*, GETLOCS+16, GETLOCS+17, GETCATA+1~
, GETCATA+3*, GETCATA+7*, GETCATA+38, ASMTLST+25*, ASMTLST+37*, ASMTLST+48*, ASMTLST+70*, ASMTLST+71, SETASGN+24*
I GETLIST+1~, GETLOCS+3~, GETLOCS+9*, GETLOCS+11, ASMTLST+1~, ASMTLST+33*, ASMTLST+34, ASMTLST+39*, ASMTLST+40, SETASGN+6*
, SETASGN+8, INCMPLT+3~, INCMPLT+13*, INCMPLT+16, INCMPLT+17, INCMPLT+18, INCMPLT+21, INCMPLT+22, INCMPLT+23, INCMPLT+24
, INCMPLT+26, INCMPLT+27
IADM ASMTLST+3~, ASMTLST+50*, ASMTLST+51, ASMTLST+52, ASMTLST+53, ASMTLST+65
IEN GETLOCS+3~, GETLOCS+12*, GETLOCS+13, GETLOCS+14
IENC GETCATA+1~, GETCATA+23*, GETCATA+29*, GETCATA+31
IENI GETCATA+1~, GETCATA+5*, GETCATA+8*, GETCATA+9, GETCATA+13, GETCATA+15, GETCATA+24, GETCATA+28, GETCATA+29
IHIT ASMTLST+4~, ASMTLST+33*, ASMTLST+35*, ASMTLST+39*, ASMTLST+46*, ASMTLST+47, ASMTLST+48
IN ASMTLST+1~, ASMTLST+19*, ASMTLST+20
INCMPL ASMTLST+11, ASMTLST+50, INCMPLT~
INCMPL( ASMTLST+46!, ASMTLST+50, ASMTLST+52, INCMPLT+31*
INSTIEN UPDTSRFL+10~, UPDTSRFL+11*, UPDTSRFL+12*, UPDTSRFL+13
LCNT GETLOCS+3~, GETLOCS+9*, GETLOCS+11
LOC GETLOCS+3~, ACTLOC~, ACTLOC+2, ACTLOC+3, ACTLOC+4
LROOT GETLOCS+4~, GETLOCS+6*, GETLOCS+11
LST GETLIST+1~
LSTADMIN SETASGN+2~, SETASGN+18*, SETASGN+19*
LSTDG ASMTLST+2~, ASMTLST+23*, ASMTLST+24
LSTDT SETASGN+2~, SETASGN+18*, SETASGN+19*, SETASGN+20
LSTINST ASMTLST+5~, ASMTLST+10, ASMTIDA~
LSTINST( SETASGN+19, ASMTIDA+17*
MHADLST ASMTLST+4~
MHADLST( ASMTLST+23, ASMTLST+24*
MHADLST("patient" ASMTLST+42, ASMTLST+51
MHCMPLT ASMTLST+5~
MHCMPLT( ASMTLST+22*, ASMTLST+43
MHTST ASMTLST+5~
N GETLIST+2~, GETLIST+4*, ASMTLST+2~, ASMTLST+6*, ASMTIDA+4*
NAME GETLIST+24*, GETLIST+28, GETCATA+1~, GETCATA+3*, GETCATA+5*, GETCATA+6*, GETCATA+8, GETCATA+11, GETCATA+12, GETCATA+16
, GETCATA+18, GETDES~, GETDES+3, SETASGN+1~, SETASGN+9*, SETASGN+13, SETASGN+14, SETASGN+20, ASMTIDA+13*
NDX GETDES+1~, GETDES+8*, GETDES+9*
NM GETLIST+1~, GETLIST+4*, GETLIST+12*, GETLIST+13, GETLIST+14, GETLIST+17, GETLIST+19*, GETLIST+21, GETLIST+31*, GETLIST+32
, ASMTLST+6*, ASMTIDA+2~, ASMTIDA+4*, ASMTIDA+7*, ASMTIDA+8
NMB GETCATA+1~, GETCATA+3*
NOD ASMTLST+2~, ASMTLST+16*, ASMTLST+17, ASMTLST+18, ASMTLST+19, ASMTLST+20, ASMTLST+29*, ASMTLST+30, ASMTLST+31, ASMTLST+33
, ASMTLST+34, ASMTLST+35, ASMTLST+38, ASMTLST+39, ASMTLST+40
NWA ASMTLST+3~, ASMTLST+69*, ASMTLST+70
OFFSET INCMPLT+3~, INCMPLT+10*, INCMPLT+20
OP GETCATA+1~, GETCATA+9*, GETCATA+10
ORDBY ASMTLST+1~, ASMTLST+7*, ASMTLST+13*, ASMTLST+14, ASMTLST+26*, ASMTLST+27, INCMPLT~, INCMPLT+2, INCMPLT+16
ORFROM GETLOCS+3~, GETLOCS+5*, GETLOCS+7*, GETLOCS+11*, GETLOCS+12, GETLOCS+14
PAT GETLIST+2~, GETLIST+25*, ASMTIDA+2~, ASMTIDA+10*
PATLST ASMTLST+4~
PATLST( ASMTLST+34, ASMTLST+35*
PID INCMPLT+3~, INCMPLT+7*
PROG ASMTLST+1~, ASMTLST+3~, ASMTLST+53*, ASMTLST+68, SETASGN+1~, SETASGN+15*, SETASGN+16*, SETASGN+21
PTNAM INCMPLT+3~, INCMPLT+7*
RESULTS GETLIST~, GETLIST+37*, GETLOCS~, GETLOCS+19*, GETCATA~, GETCATA+40*, ASMTLST~, ASMTLST+73*
ROOT GETLOCS+4~, GETLOCS+6*, GETLOCS+7, GETLOCS+11
SAVEDT GETLIST+3~, GETLIST+26*, GETLIST+28
SRCALL UPDTSRFL+10~, UPDTSRFL+16*, UPDTSRFL+17
SRISK GETLIST+1~, GETLIST+27*, GETLIST+28
STAFF GETCATA+1~, GETCATA+13*, GETCATA+14*, GETCATA+16, SETASGN+2~, SETASGN+18*, SETASGN+19*, SETASGN+20, ASMTIDA+14*, ASMTIDA+15*
, ASMTIDA+17
STAT CHKADM+1~, CHKADM+2*, CHKADM+3*, CHKADM+4*, CHKADM+5*, CHKADM+8*, CHKADM+9*, CHKADM+10*, CHKADM+11
STR GETLIST+2~, GETLIST+20*, GETLIST+28*, GETLIST+29, GETLIST+35*, SETRES~, SETRES+1, GETLOCS+3~, GETLOCS+14*, GETLOCS+15
, GETLOCS+16*, GETCATA+16*, GETCATA+17, GETCATA+22*, GETCATA+27, GETCATA+33*, GETCATA+34*, GETCATA+35, GETCATA+38*, GETDES+1~
, ASMTLST+71*, SETASGN+1~, SETASGN+5*, SETASGN+22*, SETASGN+25, SETASGN+26*
TEMP UPDTSRFL+10~, UPDTSRFL+13*, UPDTSRFL+14
TEMP(1 UPDTSRFL+14*, UPDTSRFL+15, UPDTSRFL+16
TEMP(2 UPDTSRFL+14*, UPDTSRFL+15, UPDTSRFL+16
TEST GETLIST+1~
TST GETLIST+1~, GETLIST+22*, GETLIST+24, GETLIST+28, ASMTIDA+11*, ASMTIDA+13, ASMTIDA+14, ASMTIDA+17
TSTIEN SETASGN+1~, SETASGN+10*, SETASGN+15, SETASGN+19
U GETLIST+15, GETLIST+16, GETLIST+22, GETLIST+23, GETLIST+24, GETLIST+25, GETLIST+26, GETLIST+27, GETLOCS+13, ACTLOC+5
, GETCATA+13, ASMTLST+35, ASMTLST+53, ASMTLST+55, ASMTLST+56, ASMTLST+59, ASMTLST+60, ASMTLST+64, ASMTLST+67, SETASGN+3
, SETASGN+17, INCMPLT+16, INCMPLT+17, INCMPLT+18, INCMPLT+21, INCMPLT+22, INCMPLT+23, INCMPLT+24, INCMPLT+26, INCMPLT+27
, INCMPLT+31, ASMTIDA+10, ASMTIDA+11, ASMTIDA+12, ASMTIDA+13, ASMTIDA+14, ASMTIDA+16, UPDTSRFL+14, UPDTSRFL+16
VA INCMPLT+5~
VA("BID" INCMPLT+7
VADM INCMPLT+5~
VADM(1 INCMPLT+7
VAERR INCMPLT+5~, INCMPLT+6
X ACTLOC+2~, ACTLOC+3, ACTLOC+4*, ACTLOC+5, INCMPLT+3~
XADMIN SETASGN+1~, SETASGN+12*, SETASGN+13, SETASGN+14, SETASGN+15, SETASGN+20
XDT GETLIST+3~, GETLIST+18*, GETLIST+19
XSTR GETCATA+1~, GETCATA+26*, GETCATA+32*, GETCATA+33, SETASGN+1~, SETASGN+20*, SETASGN+21*, SETASGN+22
YS INCMPLT+3~, INCMPLT+12
YS("COMPLETE" INCMPLT+11*
YS("DFN" INCMPLT+11*
YSADMIN INCMPLT+3~, INCMPLT+21*, INCMPLT+28, INCMPLT+29, INCMPLT+30, INCMPLT+31, CHKADM~, CHKADM+4, CHKADM+6
YSARR INCMPLT+3~, CHKADM+1~
YSARR( INCMPLT+29, INCMPLT+30, CHKADM+9, CHKADM+10
YSCONS INCMPLT+3~, INCMPLT+29*, INCMPLT+31
YSDARR GETDES+1~, GETDES+2*, GETDES+6!, GETDES+7
YSDATA GETLIST+2~, ASMTLST+2~, INCMPLT+3~, INCMPLT+12
YSDATA( INCMPLT+13, INCMPLT+16, INCMPLT+17, INCMPLT+18, INCMPLT+21, INCMPLT+22, INCMPLT+23, INCMPLT+24, INCMPLT+26, INCMPLT+27
YSDATA(1 ASMTIDA+5*, ASMTIDA+6*, ASMTIDA+9*
YSDATA(2 ASMTIDA+5*, ASMTIDA+6*, ASMTIDA+9*
YSDFN CHKADM~, CHKADM+3, CHKADM+10
YSDG INCMPLT+3~, INCMPLT+24*, INCMPLT+25*, INCMPLT+31
YSDOUT GETDES+1~, GETDES+4
YSDOW INCMPLT+3~, INCMPLT+9*, INCMPLT+10
YSDTSAV INCMPLT+3~, INCMPLT+17*, INCMPLT+20, INCMPLT+31
YSER GETDES+1~, GETDES+6
YSERR CHKADM+1~, CHKADM+8
YSIENS GETLIST+2~, ASMTLST+2~, CHKADM+1~, CHKADM+6*, CHKADM+7, CHKADM+9, CHKADM+10, ASMTIDA+9
YSIN INCMPLT+4~
YSINAM INCMPLT+3~, INCMPLT+22*, INCMPLT+31
YSINIEN INCMPLT+4~, INCMPLT+23*, INCMPLT+31
YSINTRV INCMPLT+4~, INCMPLT+27*, INCMPLT+31
YSINTTL INCMPLT+4~
YSLOC INCMPLT+4~, INCMPLT+26*, INCMPLT+31
YSNAM CHKADM~, CHKADM+2, CHKADM+9
YSNOW INCMPLT+3~, INCMPLT+8*, INCMPLT+9, INCMPLT+20
YSORD INCMPLT+3~
YSRSTRT INCMPLT+3~, INCMPLT+18*, INCMPLT+20, INCMPLT+31
YSSRC INCMPLT+4~, INCMPLT+30*, INCMPLT+31
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All