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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YTQRQAD1

Package: Mental Health

Routine: YTQRQAD1


Information

YTQRQAD1 ;SLC/KCM - RESTful Calls to handle MHA assignments ; 1/25/2017

Source Information

Source file <YTQRQAD1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Mental Health 3 MVAUTOSV^YTQRCAT  DELADMIN^YTQRIS  SETERROR^YTQRUTL  
Kernel 2 ($$DOW,$$FMADD,$$FMDIFF,$$NOW)^XLFDT  $$UP^XLFSTR  
Registration 1 DEM^VADPT  
Toolkit 1 (EN,GETWP)^XPAR  

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

Package Total Caller Graph
Mental Health 4 YTQRIS  YTQRQAD2  YTQRQAD4  YTQRQAD5  

Entry Points

Name Comments DBIA/ICR reference
ASMTBYID(ARGS,RESULTS) ; get assignment identified by assignmentId
ASMTBYNM(ARGS,RESULTS) ; get assignment identified by lastName and last4
PROGRESS(ADMIN,TEST,ASMTID) ; return the progress for an administration
; progress in 100% if administration is complete
NEWASMT(ARGS,DATA) ; save assignment, return /api/mha/assignment/{assignmentId}
DELASMT(ARGS) ; delete the assignment identified in ARGS("assignmentId")
DELASMT1(ASMT) ; delete the assignment given the assignment number
DELIDX(ASMT,DFN,ORDBY) ; return true if able to remove "AC", "AD" indexes
DELTEST(ARGS) ; remove an instrument from an assignment
RMVTEST(ASMT,TEST) ; remove test from assignment, delete assignment if empty
UPDIDX ; Update AC and AD indexes to synch with expired assignments
CHKIDX ; Check assignments to make sure the indexes are present
ADMEXPD(ADMIN,TEST) ; return 1 if incomplete admin has expired
GETASMTP(ARGS,RESULTS) ; Given user DUZ get last Assignment Preferences
SETASMTP(ARGS,DATA) ; Set a User's last Assignment Preferences
; Requires HTTPREQ to be defined coming from YTQRUTL passed in by VistA RPC handler
GETIFAV(ARGS,RESULTS) ; Given user DUZ get Instrument Favorites
SETIFAV(ARGS,DATA) ; Set a User's Instrument Favorites
; Requires HTTPREQ to be defined coming from YTQRUTL passed in by VistA RPC handler

External References

Name Field # of Occurrence
DEM^VADPT NEWASMT+5, DELIDX+2, CHKIDX+8
$$DOW^XLFDT ADMEXPD+6
$$FMADD^XLFDT NEWASMT+27
$$FMDIFF^XLFDT UPDIDX+10, UPDIDX+17, ADMEXPD+12
$$NOW^XLFDT NEWASMT+36, UPDIDX+2, ADMEXPD+6
$$UP^XLFSTR ASMTBYNM+3
EN^XPAR SETASMTP+15, SETIFAV+15
GETWP^XPAR GETASMTP+5, GETIFAV+5
MVAUTOSV^YTQRCAT NEWASMT+38
DELADMIN^YTQRIS ASMTBYID+10
SETERROR^YTQRUTL ASMTBYID+3, ASMTBYNM+4, ASMTBYNM+7, NEWASMT+4, NEWASMT+5, NEWASMT+40, DELASMT1+3, DELIDX+2, DELTEST+4, DELTEST+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"removed AC: "_ASMT,?20,PID_" "_LNAME,?40,$$FMDIFF^XLFDT(CURTM,ORIGTM,1)_" days"
  • Line Location: UPDIDX+10
Function Call: WRITE
  • Prompt: !,"removed AD: "_ASMT,?20,DFN_" "_ORDBY,?40,$$FMDIFF^XLFDT(CURTM,ORIGTM,1)_" days"
  • Line Location: UPDIDX+17
Function Call: WRITE
  • Prompt: !,"Assignment "_ASMT_" missing AD index."
  • Line Location: CHKIDX+7
Function Call: WRITE
  • Prompt: !,"Assignment "_ASMT_" missing AC index."
  • Line Location: CHKIDX+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("YTQ-JSON" GETASMTP+10*, GETASMTP+11, GETIFAV+10*, GETIFAV+11
^XTMP( ASMTBYID+3, ASMTBYID+4, ASMTBYID+5, ASMTBYID+6, ASMTBYID+8*, ASMTBYID+9, ASMTBYID+12*, ASMTBYID+13, NEWASMT+29, NEWASMT+30
, NEWASMT+31*, NEWASMT+32, NEWASMT+33, NEWASMT+34*, NEWASMT+35*, RMVTEST+3, RMVTEST+4, RMVTEST+5!, RMVTEST+6, CHKIDX+2
CHKIDX+4, CHKIDX+5
^XTMP("YTQASMT-INDEX" ASMTBYNM+5, ASMTBYNM+6, NEWASMT+32*, NEWASMT+36*, NEWASMT+37*, DELIDX+4!, DELIDX+5, DELIDX+6, DELIDX+7!, UPDIDX+3
UPDIDX+4, UPDIDX+5, UPDIDX+6, UPDIDX+8!, UPDIDX+11, UPDIDX+12, UPDIDX+13, UPDIDX+15, UPDIDX+16!, CHKIDX+6
CHKIDX+10, CHKIDX+11
^XTMP("YTQASMT-SET-" PROGRESS+6, DELASMT1+2, DELASMT1+7!, DELTEST+5, UPDIDX+7, UPDIDX+14
^XTV(8989.51 - [#8989.51] SETASMTP+11, SETIFAV+11
^YTT(601.71 - [#601.71] NEWASMT+17, NEWASMT+18, DELTEST+3, ADMEXPD+9
^YTT(601.76 - [#601.76] PROGRESS+11
^YTT(601.84 - [#601.84] ASMTBYID+9, PROGRESS+2, PROGRESS+10, ADMEXPD+3

Label References

Name Line Occurrences
$$ADMEXPD ASMTBYID+7
$$DELIDX DELASMT1+6
$$PROGRESS ASMTBYID+12
ASMTBYID ASMTBYNM+9
DELASMT1 DELASMT+1, RMVTEST+6
RMVTEST NEWASMT+22, DELTEST+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMIN ASMTBYID+1~, ASMTBYID+5*, ASMTBYID+7, ASMTBYID+9, ASMTBYID+10, ASMTBYID+11*, ASMTBYID+12, PROGRESS~, PROGRESS+2, PROGRESS+8
, PROGRESS+10, ADMEXPD~, ADMEXPD+1, ADMEXPD+3
ARGS ASMTBYID~, ASMTBYNM~, ASMTBYNM+9, NEWASMT~, DELASMT~, DELTEST~, GETASMTP~, SETASMTP~, GETIFAV~, SETIFAV~
ARGS("assignmentId" ASMTBYID+2, ASMTBYID+3, ASMTBYID+12, ASMTBYNM+8*, DELASMT+1, DELTEST+2
ARGS("instrument" DELTEST+2
ARGS("last4" ASMTBYNM+2
ARGS("lastName" ASMTBYNM+3
ASMT ASMTBYID+1~, ASMTBYID+2*, ASMTBYID+3, ASMTBYID+4, ASMTBYID+5, ASMTBYID+6, ASMTBYID+8, ASMTBYID+9, ASMTBYID+12, ASMTBYID+13
, ASMTBYNM+1~, ASMTBYNM+6*, ASMTBYNM+7, ASMTBYNM+8, DELASMT1~, DELASMT1+2, DELASMT1+6, DELASMT1+7, DELIDX~, DELIDX+4
, DELIDX+6, DELTEST+1~, DELTEST+2*, DELTEST+5, DELTEST+6, RMVTEST~, RMVTEST+2, RMVTEST+6, UPDIDX+1~, UPDIDX+6*
UPDIDX+7, UPDIDX+10, UPDIDX+13*, UPDIDX+14, UPDIDX+15, UPDIDX+16, UPDIDX+17, CHKIDX+1~, CHKIDX+3*, CHKIDX+6
CHKIDX+7, CHKIDX+11, CHKIDX+12
ASMTID PROGRESS~, PROGRESS+5, PROGRESS+6
CATPROG PROGRESS+4~*, PROGRESS+5, PROGRESS+6*
CNT SETASMTP+2~, SETASMTP+6*, SETASMTP+10*, SETIFAV+2~, SETIFAV+6*, SETIFAV+10*
CONS NEWASMT+1~
CURTM UPDIDX+1~, UPDIDX+2*, UPDIDX+10, UPDIDX+17
DATA NEWASMT~, NEWASMT+34, DELASMT1+1~, DELASMT1+2*, DELASMT1+3, SETASMTP~, SETIFAV~
DATA("adminDate" NEWASMT+12*
DATA("instruments" NEWASMT+14, NEWASMT+16, NEWASMT+19*, NEWASMT+20*, NEWASMT+21, NEWASMT+22, NEWASMT+23, NEWASMT+24, NEWASMT+25!
DATA("orderedBy" NEWASMT+3, DELASMT1+5
DATA("patient" NEWASMT+2, NEWASMT+8*, NEWASMT+9*, NEWASMT+10*, DELASMT1+4
DATAOUT GETASMTP+1~, GETIFAV+1~
DFN NEWASMT+1~, NEWASMT+2*, NEWASMT+4, NEWASMT+37, DELASMT1+1~, DELASMT1+4*, DELASMT1+6, DELIDX~, DELIDX+4, UPDIDX+1~
UPDIDX+11*, UPDIDX+12, UPDIDX+13, UPDIDX+15, UPDIDX+16, UPDIDX+17, CHKIDX+1~, CHKIDX+4*, CHKIDX+6
DILOCKTM NEWASMT+30
DT NEWASMT+27, NEWASMT+31
DUZ GETASMTP+4, SETASMTP+14, GETIFAV+4, SETIFAV+14
EXPIRE NEWASMT+1~, NEWASMT+27*, NEWASMT+31, NEWASMT+37
FDA SETASMTP+3~, SETIFAV+3~
FDAIEN SETASMTP+3~, SETIFAV+3~
FOUND NEWASMT+1~, NEWASMT+27*, NEWASMT+28, NEWASMT+39*, NEWASMT+40, CHKIDX+1~, CHKIDX+9*, CHKIDX+10, CHKIDX+11*, CHKIDX+12
>> HTTPREQ SETASMTP+5, SETIFAV+5
>> HTTPREQ( SETASMTP+8, SETASMTP+9, SETASMTP+10, SETIFAV+8, SETIFAV+9, SETIFAV+10
I ASMTBYID+1~, ASMTBYID+4*, ASMTBYID+5, ASMTBYID+6, ASMTBYID+8, ASMTBYID+12, PROGRESS+9~, PROGRESS+11*, NEWASMT+1~, NEWASMT+14*
, NEWASMT+16, NEWASMT+19, NEWASMT+20, NEWASMT+21, NEWASMT+22, NEWASMT+23, NEWASMT+24, NEWASMT+25, NEWASMT+28*, RMVTEST+1~
, RMVTEST+3*, RMVTEST+4, RMVTEST+5
IENS SETASMTP+3~, SETIFAV+3~
II SETASMTP+2~, SETASMTP+8*, SETASMTP+9, SETASMTP+10, SETIFAV+2~, SETIFAV+8*, SETIFAV+9, SETIFAV+10
INVDT DELIDX+1~, DELIDX+5*, DELIDX+6, DELIDX+7, UPDIDX+1~, UPDIDX+5*, UPDIDX+6, UPDIDX+8, UPDIDX+9, CHKIDX+1~
CHKIDX+10*, CHKIDX+11
JSONOUT GETASMTP+2!, GETIFAV+2!
LAST ASMTBYNM+1~, ASMTBYNM+5*, ASMTBYNM+6
LNAME DELIDX+1~, DELIDX+3*, DELIDX+5, DELIDX+6, DELIDX+7, UPDIDX+1~, UPDIDX+4*, UPDIDX+5, UPDIDX+6, UPDIDX+8
UPDIDX+10, CHKIDX+1~, CHKIDX+9*, CHKIDX+10, CHKIDX+11
NODE RMVTEST+1~, RMVTEST+2*, RMVTEST+3, RMVTEST+4, RMVTEST+5, RMVTEST+6
OFFSET ADMEXPD+2~, ADMEXPD+7*, ADMEXPD+12
OLDSET NEWASMT+1~, NEWASMT+24*, NEWASMT+38
ORDBY NEWASMT+1~, NEWASMT+3*, NEWASMT+4, NEWASMT+37, DELASMT1+1~, DELASMT1+5*, DELASMT1+6, DELIDX~, DELIDX+4, UPDIDX+1~
UPDIDX+12*, UPDIDX+13, UPDIDX+15, UPDIDX+16, UPDIDX+17, CHKIDX+1~, CHKIDX+5*, CHKIDX+6
ORIGTM UPDIDX+1~, UPDIDX+9*, UPDIDX+10, UPDIDX+15*, UPDIDX+17
PID ASMTBYNM+1~, ASMTBYNM+2*, ASMTBYNM+4, ASMTBYNM+5, ASMTBYNM+6, NEWASMT+1~, NEWASMT+6*, NEWASMT+9, NEWASMT+36, DELIDX+1~
, DELIDX+3*, DELIDX+5, DELIDX+6, DELIDX+7, UPDIDX+1~, UPDIDX+3*, UPDIDX+4, UPDIDX+5, UPDIDX+6, UPDIDX+8
UPDIDX+10, CHKIDX+1~, CHKIDX+9*, CHKIDX+10, CHKIDX+11
PREFIX NEWASMT+1~, NEWASMT+27*, NEWASMT+29, NEWASMT+30, NEWASMT+31, NEWASMT+32, NEWASMT+33, NEWASMT+34, NEWASMT+35
PTNAME ASMTBYNM+1~, ASMTBYNM+3*, ASMTBYNM+4, ASMTBYNM+5, ASMTBYNM+6, NEWASMT+1~, NEWASMT+6*, NEWASMT+8, NEWASMT+36
QANS PROGRESS+9~, PROGRESS+10*, PROGRESS+12
QTOT PROGRESS+9~, PROGRESS+11*, PROGRESS+12
RESTRT ADMEXPD+2~, ADMEXPD+9*, ADMEXPD+10, ADMEXPD+11*, ADMEXPD+12
RESULTS ASMTBYID~, ASMTBYID+13*, ASMTBYNM~, ASMTBYNM+9, GETASMTP~, GETASMTP+11*, GETIFAV~, GETIFAV+11*
SAVED ADMEXPD+2~, ADMEXPD+8*, ADMEXPD+12
SET CHKIDX+1~, CHKIDX+2*, CHKIDX+3, CHKIDX+4, CHKIDX+5
SETID NEWASMT+1~, NEWASMT+28*, NEWASMT+29, NEWASMT+30, NEWASMT+31, NEWASMT+32, NEWASMT+33, NEWASMT+34, NEWASMT+35, NEWASMT+36
, NEWASMT+37, NEWASMT+38, NEWASMT+41
TEST ASMTBYID+1~, ASMTBYID+6*, ASMTBYID+7, ASMTBYID+12, PROGRESS~, PROGRESS+11, DELTEST+1~, DELTEST+2*, DELTEST+3*, DELTEST+4
, DELTEST+6, RMVTEST~, RMVTEST+4, ADMEXPD~, ADMEXPD+5, ADMEXPD+9
TSTFN NEWASMT+15~, NEWASMT+18*, NEWASMT+20
TSTID NEWASMT+15~, NEWASMT+17*, NEWASMT+18, NEWASMT+19
TSTNM NEWASMT+15~, NEWASMT+16*, NEWASMT+17
U ASMTBYID+9, PROGRESS+2, PROGRESS+10, NEWASMT+18, NEWASMT+31, DELTEST+3, ADMEXPD+4, ADMEXPD+5, ADMEXPD+8, ADMEXPD+9
VA NEWASMT+1~, DELIDX+1~, CHKIDX+1~
VA("BID" NEWASMT+6, DELIDX+3, CHKIDX+9
VADM NEWASMT+1~, DELIDX+1~, CHKIDX+1~
VADM(1 NEWASMT+6, DELIDX+3, CHKIDX+9
VAERR NEWASMT+1~, NEWASMT+5, DELIDX+1~, DELIDX+2, CHKIDX+1~, CHKIDX+8
X0 ADMEXPD+2~, ADMEXPD+3*, ADMEXPD+4, ADMEXPD+5, ADMEXPD+8
YSDOW ADMEXPD+2~, ADMEXPD+6*, ADMEXPD+7
YSDUZ GETASMTP+1~, GETASMTP+4*, GETASMTP+5, SETASMTP+2~, SETASMTP+14*, SETASMTP+15, GETIFAV+1~, GETIFAV+4*, GETIFAV+5, SETIFAV+2~
, SETIFAV+14*, SETIFAV+15
YSINST SETASMTP+4~, SETASMTP+13*, SETASMTP+15, SETIFAV+4~, SETIFAV+13*, SETIFAV+15
YSJSON SETASMTP+3~, SETASMTP+15, SETIFAV+3~, SETIFAV+15
YSJSON( SETASMTP+10*, SETIFAV+10*
YSMSG SETASMTP+3~, SETASMTP+15, SETIFAV+3~, SETIFAV+15
YSNOW ADMEXPD+2~, ADMEXPD+6*, ADMEXPD+12
YSPDEF SETASMTP+2~, SETASMTP+11*, SETASMTP+12, SETASMTP+15, SETIFAV+2~, SETIFAV+11*, SETIFAV+12, SETIFAV+15
YSWDGT GETASMTP+1~, GETASMTP+3*, GETASMTP+5, GETIFAV+1~, GETIFAV+3*, GETIFAV+5
YSWPARR GETASMTP+1~, GETASMTP+5, GETASMTP+6, GETASMTP+8, GETASMTP+10, GETIFAV+1~, GETIFAV+5, GETIFAV+6, GETIFAV+8, GETIFAV+10
YSWPARR(1 GETASMTP+7*, GETASMTP+9*, GETIFAV+7*, GETIFAV+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All