YTQRQAD7 ;BAL/KTL - RESTful Calls to handle MHA Web RPCs ; 7/19/2021
Source file <YTQRQAD7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RBAC(ARGS,RESULTS) | ;Get Role prop
|
|
| IACTV(INAM) | ;1-Inst Act/0 Inact
|
|
| GETASMTP(ARGS,RESULTS) | ;last Assign Pref
|
|
| SETASMTP(ARGS,DATA) | ; Set last Assig Pref
; Requires HTTPREQ |
|
| GETIFAV(ARGS,RESULTS) | ; Get Inst Fav
|
|
| SETIFAV(ARGS,DATA) | ; Set Inst Fav
; Requires HTTPREQ |
|
| GETGRAPH(ARGS,RESULTS) | ; Get Graph Pref
|
|
| SETGRAPH(ARGS,DATA) | ; Set Graph Pref
; Requires HTTPREQ |
|
| GETSPCLG(ARGS,RESULTS) | ; Get Special Rept Graph Pref
|
|
| SETSPCLG(ARGS,DATA) | ; Set Special Rept Graph Pref
; Requires HTTPREQ |
|
| GETRPT(ARGS,RESULTS) | ; Get Rept Pref
|
|
| SETRPT(ARGS,DATA) | ; Set Rept Pref
; Requires HTTPREQ |
|
| GETNP(ARGS,RESULTS) | ; Get Rept Save Prog Note pref
|
|
| SETNP(ARGS,DATA) | ; Set Prog Note pref
; Requires HTTPREQ |
|
| SETPARAM(YSPNAM,RETURL,HTTPREQ,YSWDGT,YSVAL) | ||
| GETPARAM(YSPNAM,DFLT,YSWPARR,YSWDGT) | ||
| RSTPARAM(YSPNAM,RETURL,YSWPARR,YSWDGT,YSVAL) | ||
| GETBAT(ARGS,RESULTS) | ; Given user DUZ get Instrument Batteries
|
|
| SETBAT(ARGS,DATA) | ; Set Inst Batt
; Requires HTTPREQ |
|
| CHKPRMA(YSWPARR,DFLT) | ;Check Last Assign
; Input=array of JSON ; If CHGF=1 then invalid |
|
| FNDB(FNAM,FILEN,INSTI) | ;Return IEN if entry found("B" xref)
|
|
| CHKPRMI(YSWPARR,DFLT,CHGF) | ;Check inact inst
|
|
| LOADCOM(ARGS,RESULTS) | ;Get Comments
|
|
| AINSTS(SETID,IARR) | ||
| GETCONS(ARGS,RESULTS) | ||
| GETCONS2(ARGS,RESULTS) | ||
| ASMTSTAF(ARGS,RESULTS) | ; get assignment by assignmentId
|
|
| SETRES(STR) | ;
|
|
| GLIST(YSPAR,YSENT,YSLIST) | ;Get the number of values for a particular parameter
|
|
| SRLST(SRARR) | ;Special Reports Parm List
|
|
| GETSRLST(ARGS,RESULTS) | ;Get Special Reports Parm
|
|
| SAVSRLST(ARGS,RESULTS) | ;Save Special Reports Parameter
|
|
| J2ARR(JARR,OUTARR) | ;Move XLFJSON array contents to OUTARR
|
|
| TITLE() | ;Get MENTAL HEALTH DIAGNOSTIC STUDY NOTE title
|
|
| GETLOCT(TITL,ERR) | ; Get Local Title IENs
|
|
| CHKTIU(NAME,CLS) | ;
|
|
| CHKTITLE(FILE,NAME) | ;
|
| FileNo | Call Tags |
|---|---|
| ^TIU(8925.1 - [#8925.1] | FIND1^DIC |
