YTQRQAD4 ;ISP/MJB - RESTful Calls to handle MHA lists ; 1/25/2017
Source file <YTQRQAD4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETLIST(ARGS,RESULTS) | ; GET Insts for Pat
|
|
| SETRES(STR) | ;
|
|
| GETLOCS(ARGS,RESULTS) | ; get list of hosp loc
; C=Clinics, Z=Other, $$ACTLOC ; .Y=return, ORFROM=text to $O from, DIR=$O dir. |
|
| GETLNAM(ARGS,RESULTS) | ;Hosp Loc name
|
|
| ACTLOC(LOC) | ; TRUE if active
|
|
| GETCATA(DOCNAME,RESULTS) | ; set ^TMP with doc named and cat
|
|
| GETDES(NAME,DARR) | ;Get Inst Desc
|
|
| GETINTRP(ARGS,RESULTS) | ;Get Interp Desc
|
|
| ASMTLST(ARGS,RESULTS) | ; get assgn by patid
|
|
| SETASGN(ASMT) | ;Set up the Assign JSON
|
|
| INCMPLT(DFN,ORDBY,INCMPL) | ; add list of incompl insts for DFN/ORDBY
; expects RSP,YSIDX,PTADMIN |
|
| CHKADM(YSADMIN,YSNAM,YSDFN) | ;Check Instrument Ad= what is in XTMP
|
|
| ASMTIDA(DFN,LSTINST) | ; get admins by DFN/TSTIEN
; Find last complete admin |
|
| UPDTSRFL | ;
; 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)="" |
| FileNo | Call Tags |
|---|---|
| ^YTT(601.71 - [#601.71] | GET1^DIQ |
| ^YTT(601.84 - [#601.84] | GET1^DIQ, GETS^DIQ |
