YTQRQAD ;SLC/KCM - RESTful Calls for Instrument Admin ; 1/25/2017
Source file <YTQRQAD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PID(ARGS,RESULTS) | ; get patient identifiers
|
|
| APPROXY() | ; return 1 if this call is via application proxy
|
|
| LSTALL(ARGS,RESULTS) | ; get a list of all instruments
|
|
| LSTCPRS(ARGS,RESULTS) | ; get a list of all instruments
|
|
| GETSPEC(ARGS,RESULTS) | ; get an instrument specification
|
|
| MV2TMP(SPEC) | ; Load spec into ^TMP("YTQ-JSON",$J), cleaning up line feeds
|
|
| GETDOC(DOCNAME,RESULTS) | ; set ^TMP with contents of the document named
|
|
| WRCLOSE(ARGS,DATA) | ; noop call for closing Delphi wrapper
|
|
| VARYAUDC(ASMT) | ; modify the AUDC based on patient sex in ^TMP("YTQ-JSON",$J)
|
|
| PERSONS(ARGS,RESULTS) | ; GET /api/mha/persons/:match
|
|
| USERS(ARGS,RESULTS) | ; GET /api/mha/users/:match
|
|
| NM4DFN(ARGS,RESULTS) | ; get patient name given DFN
|
|
| NM4DUZ(ARGS,RESULTS) | ; get user name given DUZ
|
|
| GINSTD(ARGS,RESULTS) | ;Get Instrument Description
|
|
| SETVAR(XCAT,VAR) | ;Set JSON array values for Instrument Description - Requires YSAR to be set
|
|
| RESET | ; clear the ^XTMP("YTQASMT") nodes
; WARNING -- calling this (at RESET+3) will erase all current assignments |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
