YTQRQAD1 ;SLC/KCM - RESTful Calls to handle MHA assignments ; 1/25/2017
Source file <YTQRQAD1.m>
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
|
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 |