YTQRQAD1 ;SLC/KCM - RESTful Calls to handle MHA assignments ; 1/25/2017
Source file <YTQRQAD1.m>
Package | Total | Call Graph |
---|---|---|
Mental Health | 7 | DELETE^YTQEVNT MVAUTOSV^YTQRCAT GETASMT^YTQRCRW ($$DELIDX,DELASMT1)^YTQRQAD1 AINSTS^YTQRQAD7 $$FILPNOT^YTQRQAD8 SETERROR^YTQRUTL |
Kernel | 4 | ($$DOW,$$FMADD,$$FMDIFF,$$NOW)^XLFDT $$UP^XLFSTR $$LKOPT^XPDMENU $$ACCESS^XQCHK |
Registration | 1 | DEM^VADPT |
VA FileMan | 1 | ^DIK |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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}
|
|
FILASGN(ARGS,DATA,SETID,TYPE) | ;File the Assignment Data
; ARGS = incoming arguments ; DATA = incoming data ; SETID = Assignment number if existing assignment(EDIT) ; TYPE = NEW or EDIT |
|
DELASMT(ARGS) | ; delete the assignment identified in ARGS("assignmentId")
|
|
TRSASMT(ARGS) | ; Delete an assignment from Staff Entry by Trash icon
; Allows deletion of any incomplete assignment (ie no instruments complete) ; *Deletes any incomplete MH ADMINISTRATIONS |
|
DELASMT1(ASMT,TRS,REPLACE) | ; 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,DELADMIN,DELFASGN,REPLACE) | ; remove test from assignment, delete assignment if empty
|
|
DELMHAD(ARGS,DATA) | ;Delete Completed MH Admin
|
|
ISMGR() | ; return 1 if admin access to admins
|
|
ADMEXPD(ADMIN,TEST) | ; return 1 if incomplete admin has expired
|
|
DELADMIN(YSADM) | ; delete an admin & associated records
|
Name | Field # of Occurrence |
---|---|
^DIK | DELADMIN+7, DELADMIN+11, DELADMIN+15 |
DEM^VADPT | NEWASMT+8, DELASMT1+14, DELIDX+2 |
$$DOW^XLFDT | ADMEXPD+6 |
$$FMADD^XLFDT | FILASGN+25 |
$$FMDIFF^XLFDT | ADMEXPD+12 |
$$NOW^XLFDT | FILASGN+34, ADMEXPD+6 |
$$UP^XLFSTR | ASMTBYNM+3 |
$$LKOPT^XPDMENU | ISMGR+2 |
$$ACCESS^XQCHK | ISMGR+3 |
DELETE^YTQEVNT | DELADMIN+17 |
MVAUTOSV^YTQRCAT | FILASGN+36 |
GETASMT^YTQRCRW | ASMTBYID+1, DELTEST+1 |
$$DELIDX^YTQRQAD1 | DELASMT1+20, DELASMT1+27 |
DELASMT1^YTQRQAD1 | FILASGN+44 |
AINSTS^YTQRQAD7 | DELASMT1+17, RMVTEST+8 |
$$FILPNOT^YTQRQAD8 | DELASMT1+26 |
SETERROR^YTQRUTL | ASMTBYID+5, ASMTBYNM+4, ASMTBYNM+7, NEWASMT+7, NEWASMT+8, FILASGN+55, DELASMT1+9, DELASMT1+14, DELASMT1+18, DELASMT1+19 , DELIDX+2, DELTEST+7, DELTEST+8, DELTEST+13, DELMHAD+4, DELMHAD+5, DELMHAD+9 |
FileNo | Call Tags |
---|---|
^YTT(601.84 - [#601.84] | Classic Fileman Calls |
^YTT(601.85 - [#601.85] | Classic Fileman Calls |
^YTT(601.92 - [#601.92] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^XTMP( | ASMTBYID+5, ASMTBYID+6, ASMTBYID+7, ASMTBYID+8, ASMTBYID+10*, ASMTBYID+11, ASMTBYID+14*, ASMTBYID+15, FILASGN+27, FILASGN+28 , FILASGN+29*, FILASGN+30, FILASGN+31, FILASGN+33*, FILASGN+45*, FILASGN+46*, FILASGN+48!, FILASGN+49!, FILASGN+50!, FILASGN+51 , FILASGN+52*, FILASGN+56*, RMVTEST+10, RMVTEST+11, RMVTEST+15!, RMVTEST+17*, RMVTEST+18*, RMVTEST+19*, RMVTEST+20 |
^XTMP("YTQASMT-INDEX" | ASMTBYNM+5, ASMTBYNM+6, FILASGN+30*, FILASGN+34*, FILASGN+35*, DELIDX+4!, DELIDX+5, DELIDX+6, DELIDX+7! |
^XTMP("YTQASMT-SET-" | PROGRESS+6, NEWASMT+21, FILASGN+41!, DELASMT1+8, DELASMT1+12, DELASMT1+28!, DELTEST+7 |
^YTT(601.71 - [#601.71] | FILASGN+11, FILASGN+12, FILASGN+13, DELTEST+12, ADMEXPD+9, DELADMIN+4 |
^YTT(601.76 - [#601.76] | PROGRESS+11 |
^YTT(601.84 - [#601.84] | ASMTBYID+11, PROGRESS+2, PROGRESS+10, DELMHAD+5, DELMHAD+6, ADMEXPD+3, DELADMIN+2, DELADMIN+3, DELADMIN+5 |
^YTT(601.85 - [#601.85] | DELADMIN+9, DELADMIN+10 |
^YTT(601.92 - [#601.92] | DELADMIN+13, DELADMIN+14 |
Name | Line Occurrences |
---|---|
$$ADMEXPD | ASMTBYID+9 |
$$FILASGN | NEWASMT+23 |
$$ISMGR | DELMHAD+2 |
$$PROGRESS | ASMTBYID+14 |
ASMTBYID | ASMTBYNM+9 |
DELADMIN | ASMTBYID+12, DELASMT1+24, RMVTEST+14, DELMHAD+8 |
DELASMT1 | DELASMT+1, TRSASMT+3, RMVTEST+20 |
RMVTEST | FILASGN+18, DELTEST+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADMIN | ASMTBYID+3~, ASMTBYID+7*, ASMTBYID+9, ASMTBYID+11, ASMTBYID+12, ASMTBYID+13*, ASMTBYID+14, PROGRESS~, PROGRESS+2, PROGRESS+8 , PROGRESS+10, ADMEXPD~, ADMEXPD+1, ADMEXPD+3 |
ADMINID | DELMHAD+1~, DELMHAD+3*, DELMHAD+4, DELMHAD+5, DELMHAD+6, DELMHAD+8 |
AGPROG | DELASMT1+5~, DELASMT1+12*, DELASMT1+26 |
ARGS | ASMTBYID~, ASMTBYNM~, ASMTBYNM+9, NEWASMT~, NEWASMT+23, FILASGN~, DELASMT~, TRSASMT~, DELTEST~, DELMHAD~ |
ARGS("adminId" | DELMHAD+3 |
ARGS("assignmentId" | ASMTBYID+1, ASMTBYID+4, ASMTBYID+5, ASMTBYID+14, ASMTBYNM+8*, DELASMT+1, TRSASMT+3, DELTEST+1, DELTEST+4 |
ARGS("delfrmassign" | DELTEST+5 |
ARGS("instrument" | DELTEST+8 |
ARGS("last4" | ASMTBYNM+2 |
ARGS("lastName" | ASMTBYNM+3 |
ASMT | ASMTBYID+3~, ASMTBYID+4*, ASMTBYID+5, ASMTBYID+6, ASMTBYID+7, ASMTBYID+8, ASMTBYID+10, ASMTBYID+11, ASMTBYID+14, ASMTBYID+15 , ASMTBYNM+1~, ASMTBYNM+6*, ASMTBYNM+7, ASMTBYNM+8, DELASMT1~, DELASMT1+8, DELASMT1+12, DELASMT1+17, DELASMT1+20, DELASMT1+26 , DELASMT1+27, DELASMT1+28, DELIDX~, DELIDX+4, DELIDX+6, DELTEST+3~, DELTEST+4*, DELTEST+7, DELTEST+14, DELTEST+15 , RMVTEST~, RMVTEST+8, RMVTEST+9, RMVTEST+20 |
ASMTID | PROGRESS~, PROGRESS+5, PROGRESS+6 |
CATPROG | PROGRESS+4~*, PROGRESS+5, PROGRESS+6* |
CONS | NEWASMT+1~, NEWASMT+5* |
COSIGN | NEWASMT+1~, NEWASMT+6* |
DA | DELADMIN+1~, DELADMIN+7*, DELADMIN+11*, DELADMIN+15* |
DATA | NEWASMT~, NEWASMT+23, FILASGN~, FILASGN+56, DELASMT1+4~, DELASMT1+8*, DELASMT1+9, DELMHAD~ |
DATA("adminDate" | NEWASMT+15*, FILASGN+49 |
DATA("appSrc" | NEWASMT+17* |
DATA("catInfo" | FILASGN+46 |
DATA("consult" | NEWASMT+5, NEWASMT+16!, FILASGN+48 |
DATA("cosigner" | NEWASMT+6, FILASGN+50 |
DATA("instruments" | NEWASMT+19, NEWASMT+20, NEWASMT+21, FILASGN+8, FILASGN+10, FILASGN+14*, FILASGN+15*, FILASGN+16*, FILASGN+17, FILASGN+18 , FILASGN+19, FILASGN+20, FILASGN+21!, FILASGN+44, FILASGN+45 |
DATA("orderedBy" | NEWASMT+4, DELASMT1+11 |
DATA("patient" | NEWASMT+3, NEWASMT+11*, NEWASMT+12*, NEWASMT+13*, DELASMT1+10 |
DATA(2 | NEWASMT+21*, FILASGN+52! |
DELADMIN | RMVTEST~, RMVTEST+6*, RMVTEST+13 |
DELFASGN | DELTEST+3~, DELTEST+5*, DELTEST+6*, DELTEST+14, RMVTEST~, RMVTEST+5*, RMVTEST+15, RMVTEST+16 |
DFN | NEWASMT+1~, NEWASMT+3*, NEWASMT+7, FILASGN+35, DELASMT1+4~, DELASMT1+10*, DELASMT1+20, DELASMT1+27, DELIDX~, DELIDX+4 |
DIK | DELADMIN+1~, DELADMIN+7*, DELADMIN+11*, DELADMIN+15* |
>> DILOCKTM | FILASGN+28 |
DT | FILASGN+25, FILASGN+29 |
DUZ | ISMGR+3 |
EXPIRE | NEWASMT+1~, FILASGN+5~, FILASGN+25*, FILASGN+29, FILASGN+35 |
FOUND | NEWASMT+1~, NEWASMT+18*, NEWASMT+19, NEWASMT+21*, FILASGN+5~, FILASGN+25*, FILASGN+26, FILASGN+37*, FILASGN+38 |
I | ASMTBYID+3~, ASMTBYID+6*, ASMTBYID+7, ASMTBYID+8, ASMTBYID+10, ASMTBYID+14, PROGRESS+9~, PROGRESS+11*, NEWASMT+1~, NEWASMT+19* , NEWASMT+20, NEWASMT+21, FILASGN+5~, FILASGN+8*, FILASGN+10, FILASGN+14, FILASGN+15, FILASGN+16, FILASGN+17, FILASGN+18 , FILASGN+19, FILASGN+20, FILASGN+21, FILASGN+26*, RMVTEST+4~, RMVTEST+10*, RMVTEST+11, RMVTEST+13, RMVTEST+14, RMVTEST+15 , RMVTEST+17, RMVTEST+18, RMVTEST+19 |
IARR | DELASMT1+4~, DELASMT1+17, RMVTEST+4~, RMVTEST+8 |
IARR( | DELASMT1+21, DELASMT1+22, DELASMT1+23, DELASMT1+24, RMVTEST+13, RMVTEST+14 |
IARR("STAT" | DELASMT1+18, DELASMT1+19 |
II | DELTEST+3~, DELTEST+9*, DELTEST+10 |
INST | DELASMT1+4~, DELASMT1+21*, DELASMT1+22, DELASMT1+23, DELASMT1+24 |
INVDT | DELIDX+1~, DELIDX+5*, DELIDX+6, DELIDX+7 |
LAST | ASMTBYNM+1~, ASMTBYNM+5*, ASMTBYNM+6 |
LNAME | DELIDX+1~, DELIDX+3*, DELIDX+5, DELIDX+6, DELIDX+7 |
MGR | DELMHAD+1~, DELMHAD+2*, DELMHAD+8 |
NODE | RMVTEST+4~, RMVTEST+9*, RMVTEST+10, RMVTEST+11, RMVTEST+15, RMVTEST+17, RMVTEST+18, RMVTEST+19, RMVTEST+20 |
OFFSET | ADMEXPD+2~, ADMEXPD+7*, ADMEXPD+12 |
OK | DELASMT1+27~* |
OLDSET | FILASGN+5~, FILASGN+20*, FILASGN+36 |
ORDBY | NEWASMT+1~, NEWASMT+4*, NEWASMT+7, FILASGN+35, DELASMT1+4~, DELASMT1+11*, DELASMT1+20, DELASMT1+27, DELIDX~, DELIDX+4 |
PID | ASMTBYNM+1~, ASMTBYNM+2*, ASMTBYNM+4, ASMTBYNM+5, ASMTBYNM+6, NEWASMT+1~, NEWASMT+9*, NEWASMT+12, FILASGN+34, DELIDX+1~ , DELIDX+3*, DELIDX+5, DELIDX+6, DELIDX+7 |
PNOT | DELASMT1+5~, DELASMT1+26* |
PREFIX | FILASGN+5~, FILASGN+23*, FILASGN+27, FILASGN+28, FILASGN+29, FILASGN+30, FILASGN+31, FILASGN+33, FILASGN+45, FILASGN+46 , FILASGN+48, FILASGN+49, FILASGN+50, FILASGN+51, FILASGN+52, FILASGN+56 |
PTNAME | ASMTBYNM+1~, ASMTBYNM+3*, ASMTBYNM+4, ASMTBYNM+5, ASMTBYNM+6, NEWASMT+1~, NEWASMT+9*, NEWASMT+11, FILASGN+34 |
QANS | PROGRESS+9~, PROGRESS+10*, PROGRESS+12 |
QTOT | PROGRESS+9~, PROGRESS+11*, PROGRESS+12 |
REPLACE | NEWASMT+2~, NEWASMT+21*, DELASMT1~, DELASMT1+7*, DELASMT1+26, RMVTEST~, RMVTEST+7*, RMVTEST+20 |
RESTRT | ADMEXPD+2~, ADMEXPD+9*, ADMEXPD+10, ADMEXPD+11*, ADMEXPD+12 |
RESULTS | ASMTBYID~, ASMTBYID+15*, ASMTBYNM~, ASMTBYNM+9 |
RETSTAT | NEWASMT+2~, NEWASMT+23*, NEWASMT+24 |
SAVED | ADMEXPD+2~, ADMEXPD+8*, ADMEXPD+12 |
SETID | NEWASMT+1~, FILASGN~, FILASGN+7*, FILASGN+24, FILASGN+26*, FILASGN+27, FILASGN+28, FILASGN+29, FILASGN+30, FILASGN+31 , FILASGN+33, FILASGN+34, FILASGN+35, FILASGN+36, FILASGN+40, FILASGN+41, FILASGN+44, FILASGN+45, FILASGN+46, FILASGN+48 , FILASGN+49, FILASGN+50, FILASGN+51, FILASGN+52, FILASGN+56, FILASGN+57 |
TEST | ASMTBYID+3~, ASMTBYID+8*, ASMTBYID+9, ASMTBYID+14, PROGRESS~, PROGRESS+11, DELTEST+3~, DELTEST+10*, DELTEST+11, DELTEST+12* , DELTEST+13, DELTEST+14, RMVTEST~, RMVTEST+11, ADMEXPD~, ADMEXPD+5, ADMEXPD+9 |
TRS | DELASMT1~, DELASMT1+6*, DELASMT1+16 |
TRSERR | DELASMT1+4~, DELASMT1+6*, DELASMT1+18*, DELASMT1+19*, DELASMT1+25 |
TSLIST | DELTEST+3~, DELTEST+8*, DELTEST+9, DELTEST+10, DELTEST+15 |
TSTFN | FILASGN+9~, FILASGN+12*, FILASGN+15 |
TSTID | FILASGN+9~, FILASGN+11*, FILASGN+12, FILASGN+13, FILASGN+14 |
TSTNM | FILASGN+9~, FILASGN+10*, FILASGN+11 |
TSTRSTRT | FILASGN+9~, FILASGN+13*, FILASGN+16 |
TYPE | FILASGN~, FILASGN+6*, FILASGN+24, FILASGN+39 |
U | ASMTBYID+11, PROGRESS+2, PROGRESS+10, FILASGN+12, FILASGN+13, FILASGN+29, FILASGN+54, FILASGN+55, DELTEST+12, ADMEXPD+4 , ADMEXPD+5, ADMEXPD+8, ADMEXPD+9, DELADMIN+2, DELADMIN+3, DELADMIN+4, DELADMIN+5, DELADMIN+10, DELADMIN+14 |
VA | NEWASMT+1~, DELASMT1+4~, DELIDX+1~ |
VA("BID" | NEWASMT+9, DELIDX+3 |
VADM | NEWASMT+1~, DELASMT1+4~, DELIDX+1~ |
VADM(1 | NEWASMT+9, DELIDX+3 |
VAERR | NEWASMT+1~, NEWASMT+8, DELASMT1+4~, DELASMT1+14, DELIDX+1~, DELIDX+2 |
X | DELADMIN+1~ |
X0 | DELMHAD+1~, DELMHAD+6*, ADMEXPD+2~, ADMEXPD+3*, ADMEXPD+4, ADMEXPD+5, ADMEXPD+8 |
Y | DELADMIN+1~ |
YSADM | DELADMIN~, DELADMIN+2, DELADMIN+3, DELADMIN+5, DELADMIN+7, DELADMIN+9, DELADMIN+10, DELADMIN+13, DELADMIN+14, DELADMIN+17 |
YSANS | DELADMIN+1~, DELADMIN+9*, DELADMIN+10, DELADMIN+11 |
YSDOW | ADMEXPD+2~, ADMEXPD+6*, ADMEXPD+7 |
YSEVCPLT | DELADMIN+1~, DELADMIN+5*, DELADMIN+17 |
YSEVDFN | DELADMIN+1~, DELADMIN+2*, DELADMIN+17 |
YSEVTST | DELADMIN+1~, DELADMIN+3*, DELADMIN+4*, DELADMIN+17 |
YSMENU | ISMGR+1~, ISMGR+2*, ISMGR+3 |
YSNOW | ADMEXPD+2~, ADMEXPD+6*, ADMEXPD+12 |
YSPRIV | ISMGR+1~, ISMGR+3*, ISMGR+4 |
YSRSLT | DELADMIN+1~, DELADMIN+13*, DELADMIN+14, DELADMIN+15 |
YSTAT | FILASGN+5~, FILASGN+23*, FILASGN+28*, FILASGN+38*, FILASGN+40*, FILASGN+51*, FILASGN+53, FILASGN+54, FILASGN+55 |