YTQRQAD3 ;SLC/KCM - RESTful Calls to set/get MHA administrations ; 1/25/2017
Source file <YTQRQAD3.m>
| Package | Total | Call Graph |
|---|---|---|
| Mental Health | 8 | PRIVL^YTAPI5 CCREATE^YTQCONS SPLTADM^YTQRCAT $$TITLE^YTQRQAD7 ($$FILPNOT,SAVPNOT)^YTQRQAD8 BLDRPT^YTQRRPT SETERROR^YTQRUTL PCREATE^YTQTIU |
| Text Integration Utility | 3 | ISCNSLT^TIUCNSLT $$WHATITLE^TIUPUTU REQCOS^TIUSRVA |
| Kernel | 2 | $$HTE^XLFDT $$UP^XLFSTR |
| VA FileMan | 2 | WP^DIE ($$GET1,GET1)^DIQ |
| 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 |
|---|---|---|
| REPORT(ARGS,RESULTS) | ; build report object identified by ARGS("adminId")
|
|
| REPORT1(ADMIN,REPORT,TYPE) | ; fill in the report text for ADMIN
|
|
| GETCOM(ARR,ADMIN) | ;Get the COMMENTS from the Instrument Admin
|
|
| GETNOTE(ARGS,RESULTS) | ; build note object based on ARGS("adminId")
|
|
| SETNOTE(ARGS,DATA) | ; save note in DATA("text") using ARGS("adminId")
|
|
| ALWNOTE(ADMIN) | ; return "true" if note could/should be saved
|
|
| ALWN2(TEST,ADMIN) | ;Entry point if TEST is input
|
|
| NOTE4PT(ADMIN,DATA) | ; save progress note text in assignment for a patient-entered admin
|
|
| ALWCSGN(ARGS,RESULTS) | ; GET /api/mha/permission/cosign/:adminId/:userId
|
|
| REQCSGN(ADMIN,COSIGNER) | ; return "true" if this user requires a cosigner
; if cosigner is passed in, use that instead of orderedBy |
|
| NEEDCSGN(ARGS,RESULTS) | ; GET /api/mha/permission/needcosign/:userId 208
; Returns "true" if userId requires a cosigner ; Returns "false" if userId does NOT require a cosigner |
|
| SETCOM(ARGS,DATA) | ; save comment in Instrument Admin (F601.84,f10) using ARGS("adminId")
|
|
| TXT2LN(SRC,DEST) | ; Move CRLF delimited text from .SRC into WP lines in .DEST
|
|
| PARSLN(TXT) | ; Return remainder after parsing text into lines
; expects: CRLF, DEST, IDEST |
|
| WRAP(OUT,MAX) | ; Wrap text by space piece word MAX char width
|
| Name | Field # of Occurrence |
|---|---|
| WP^DIE | SETCOM+27 |
| $$GET1^DIQ | GETCOM+3, SETNOTE+23, ALWN2+20, ALWN2+24 |
| GET1^DIQ | SETCOM+23 |
| ISCNSLT^TIUCNSLT | ALWN2+22 |
| $$WHATITLE^TIUPUTU | ALWN2+21, ALWN2+25 |
| REQCOS^TIUSRVA | REQCSGN+8, NEEDCSGN+10, NEEDCSGN+24 |
| $$HTE^XLFDT | SETCOM+10 |
| $$UP^XLFSTR | SETCOM+10 |
| PRIVL^YTAPI5 | REPORT1+11 |
| CCREATE^YTQCONS | SETNOTE+29, NOTE4PT+16 |
| SPLTADM^YTQRCAT | GETNOTE+12, NOTE4PT+8 |
| $$TITLE^YTQRQAD7 | NEEDCSGN+9 |
| $$FILPNOT^YTQRQAD8 | SETNOTE+13, SETNOTE+27 |
| SAVPNOT^YTQRQAD8 | SETNOTE+26, NOTE4PT+14 |
| BLDRPT^YTQRRPT | REPORT1+17, NOTE4PT+2 |
| SETERROR^YTQRUTL | REPORT+2, GETNOTE+2, GETNOTE+3, SETNOTE+7, SETNOTE+8, SETNOTE+14, SETNOTE+24, SETNOTE+31, NOTE4PT+18, SETCOM+6 , SETCOM+7, SETCOM+29 |
| PCREATE^YTQTIU | SETNOTE+30, NOTE4PT+17 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^YTT(601.71 - [#601.71] | GET1^DIQ |
| ^YTT(601.84 - [#601.84] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("YSMHI" | SETCOM+4!, SETCOM+17*, SETCOM+18*, SETCOM+26*, SETCOM+28! |
| ^VA(200 - [#200] | SETCOM+14 |
| ^XTMP("YTQASMT-SET-" | SETNOTE+6 |
| ^YTT(601.71 - [#601.71] | REPORT1+10, ALWN2+6, ALWN2+7, REQCSGN+7, NEEDCSGN+20, NEEDCSGN+21 |
| ^YTT(601.84 - [#601.84] | REPORT+2, REPORT1+10, GETNOTE+3, GETNOTE+4, SETNOTE+8, SETNOTE+9, SETNOTE+14, SETNOTE+32*, ALWNOTE+2, ALWN2+18 , NOTE4PT+5, REQCSGN+3, SETCOM+7 |
| Name | Line Occurrences |
|---|---|
| $$ALWN2 | ALWNOTE+3, NEEDCSGN+29 |
| $$ALWNOTE | GETNOTE+7, SETNOTE+11, NOTE4PT+3 |
| $$PARSLN | TXT2LN+3, TXT2LN+8 |
| $$REQCSGN | GETNOTE+8, SETNOTE+22, ALWCSGN+4 |
| GETCOM | REPORT1+30 |
| REPORT1 | REPORT+4, GETNOTE+10 |
| TXT2LN | SETNOTE+15, SETCOM+8 |
| WRAP | SETNOTE+16, SETCOM+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMIN | REPORT+1~*, REPORT+2, REPORT+3, REPORT+4, REPORT1~, REPORT1+10, REPORT1+17, REPORT1+30, GETCOM~, GETCOM+2 , GETNOTE+1~*, GETNOTE+2, GETNOTE+3, GETNOTE+4, GETNOTE+5, GETNOTE+7, GETNOTE+8, GETNOTE+10, GETNOTE+12, SETNOTE+2~ , SETNOTE+3*, SETNOTE+7, SETNOTE+8, SETNOTE+9, SETNOTE+11, SETNOTE+13, SETNOTE+14, SETNOTE+17, SETNOTE+22, SETNOTE+26 , SETNOTE+27, SETNOTE+32, ALWNOTE~, ALWNOTE+2, ALWNOTE+3, ALWN2~, ALWN2+4*, ALWN2+18, NOTE4PT~, NOTE4PT+2 , NOTE4PT+3, NOTE4PT+5, NOTE4PT+8, NOTE4PT+10, NOTE4PT+14, ALWCSGN+1~, ALWCSGN+2*, ALWCSGN+4, REQCSGN~, REQCSGN+3 , SETCOM+2~, SETCOM+5*, SETCOM+6, SETCOM+7, SETCOM+19 |
| AGPROG | SETNOTE+2~, SETNOTE+6*, SETNOTE+13, SETNOTE+27 |
| ARGS | REPORT~, GETNOTE~, SETNOTE~, ALWCSGN~, NEEDCSGN~, SETCOM~ |
| ARGS("adminId" | REPORT+1, GETNOTE+1, ALWCSGN+2 |
| ARGS("consult" | NEEDCSGN+16 |
| ARGS("instrumentList" | NEEDCSGN+4 |
| ARGS("instrumentlist" | NEEDCSGN+5 |
| ARGS("userId" | ALWCSGN+3, NEEDCSGN+6 |
| ARR | GETCOM~, GETCOM+14* |
| ASGN | SETNOTE+2~, SETNOTE+5*, SETNOTE+6, SETNOTE+13, SETNOTE+26, SETNOTE+27 |
| ASMT | NOTE4PT+1~, NOTE4PT+6*, NOTE4PT+14 |
| BARR | REPORT1+1~, REPORT1+18!, REPORT1+24 |
| BARR( | REPORT1+23*, REPORT1+25 |
| BCNT | REPORT1+1~, REPORT1+18*, REPORT1+21*, REPORT1+22*, REPORT1+23 |
| CFLG | NEEDCSGN+3~, NEEDCSGN+7*, NEEDCSGN+17*, NEEDCSGN+26* |
| CNT | GETCOM+1~, GETCOM+5*, GETCOM+8*, GETCOM+10*, GETCOM+12*, GETCOM+13, SETCOM+3~, SETCOM+14*, SETCOM+17*, SETCOM+18* , SETCOM+26*, WRAP+1~, WRAP+5*, WRAP+9*, WRAP+11* |
| COMMS | REPORT1+1~, REPORT1+30, REPORT1+31 |
| COMMS( | REPORT1+34, REPORT1+35 |
| CONSULT | GETNOTE+4~*, GETNOTE+6, SETNOTE+2~, SETNOTE+9*, SETNOTE+13, SETNOTE+26, SETNOTE+27, SETNOTE+29, ALWN2+2~, ALWN2+17* , ALWN2+18*, ALWN2+19, NOTE4PT+1~, NOTE4PT+5*, NOTE4PT+14, NOTE4PT+16, REQCSGN+5*, REQCSGN+7, NEEDCSGN+3~, NEEDCSGN+16* , NEEDCSGN+21, SETCOM+2~ |
| COSIGNER | NOTE4PT+1~, NOTE4PT+4*, NOTE4PT+11, NOTE4PT+14, ALWCSGN+1~, ALWCSGN+3*, ALWCSGN+4, ALWCSGN+5, REQCSGN~, REQCSGN+4 |
| CRLF | REPORT1+1~, REPORT1+6*, REPORT1+14, REPORT1+15, REPORT1+27, REPORT1+29, REPORT1+33, REPORT1+35, TXT2LN+1~, TXT2LN+2* , PARSLN+5 |
| CSLIST | NEEDCSGN+3~, NEEDCSGN+25*, NEEDCSGN+26, NEEDCSGN+28 |
| DATA | SETNOTE~, SETNOTE+13, SETNOTE+15, SETNOTE+27, NOTE4PT~, SETCOM~, SETCOM+8 |
| DATA("adminId" | SETNOTE+3, SETCOM+5 |
| DATA("assignmentId" | SETNOTE+5, NOTE4PT+6 |
| DATA("consult" | NOTE4PT+5 |
| DATA("cosigner" | SETNOTE+19, SETNOTE+20, SETNOTE+26, NOTE4PT+4 |
| DATA("lastAssignment" | SETNOTE+4, NOTE4PT+7 |
| DELIM | GETCOM+1~ |
| DEST | TXT2LN~ |
| DEST( | TXT2LN+5*, TXT2LN+9*, PARSLN+5* |
| DUZ | SETCOM+14 |
| I | REPORT1+1~, REPORT1+19*, REPORT1+20, REPORT1+23, REPORT1+25*, REPORT1+26, REPORT1+29*, REPORT1+32*, REPORT1+33*, REPORT1+35* |
| IDEST | TXT2LN+1~, TXT2LN+2*, TXT2LN+5*, TXT2LN+9*, PARSLN+5* |
| II | REPORT1+1~, REPORT1+34*, REPORT1+35, GETCOM+1~, GETCOM+3*, GETCOM+4, GETCOM+6*, GETCOM+7, GETCOM+8, GETCOM+9 , GETCOM+10, GETCOM+11, NEEDCSGN+3~, NEEDCSGN+18*, NEEDCSGN+19, NEEDCSGN+27, NEEDCSGN+28, NEEDCSGN+29, SETCOM+3~, SETCOM+16* , SETCOM+17, WRAP+1~, WRAP+5*, WRAP+6, WRAP+7 |
| INAM | NEEDCSGN+3~, NEEDCSGN+19*, NEEDCSGN+20, NEEDCSGN+27 |
| INSTS | NEEDCSGN+3~, NEEDCSGN+4*, NEEDCSGN+5*, NEEDCSGN+8, NEEDCSGN+18, NEEDCSGN+19 |
| J | TXT2LN+6~, TXT2LN+7*, TXT2LN+8 |
| JJ | GETCOM+1~, GETCOM+9*, GETCOM+10, WRAP+1~, WRAP+6*, WRAP+7 |
| LSTASGN | SETNOTE+2~, SETNOTE+4*, SETNOTE+13, SETNOTE+26, SETNOTE+27 |
| LSTASMT | NOTE4PT+1~, NOTE4PT+7*, NOTE4PT+14 |
| MAX | WRAP~, WRAP+2*, WRAP+8 |
| N | SETCOM+3~, SETCOM+12*, SETCOM+13, SETCOM+15*, SETCOM+16, SETCOM+17, SETCOM+25*, SETCOM+26 |
| NEEDCSGN | ALWCSGN+1~, ALWCSGN+4*, ALWCSGN+6 |
| OUT | WRAP~, WRAP+3, WRAP+4! |
| OUT( | WRAP+9*, WRAP+11* |
| PCE | WRAP+1~, WRAP+7*, WRAP+8, WRAP+9, WRAP+10 |
| PNOT | SETNOTE+2~, SETNOTE+10*, SETNOTE+11, SETNOTE+13*, SETNOTE+27* |
| REMAIN | TXT2LN+1~, TXT2LN+3*, TXT2LN+4, TXT2LN+5, TXT2LN+8*, TXT2LN+9 |
| REPORT | REPORT1~, REPORT1+1~, REPORT1+17 |
| REPORT( | REPORT1+19, REPORT1+20, REPORT1+26!, REPORT1+29 |
| REPORT(1 | REPORT1+27 |
| RESULTS | REPORT~, REPORT+4, GETNOTE~, GETNOTE+10, ALWCSGN~, NEEDCSGN~ |
| RESULTS("adminId" | REPORT+3*, GETNOTE+5* |
| RESULTS("allowNote" | GETNOTE+7*, GETNOTE+10, NEEDCSGN+13* |
| RESULTS("allowedToCosign" | ALWCSGN+6* |
| RESULTS("consultId" | GETNOTE+6* |
| RESULTS("cosigner" | GETNOTE+9* |
| RESULTS("instrumentList" | NEEDCSGN+27*, NEEDCSGN+28*, NEEDCSGN+29* |
| RESULTS("needCosigner" | NEEDCSGN+12* |
| RESULTS("requireCosigner" | GETNOTE+8* |
| RESULTS("text" | REPORT1+14*, REPORT1+15*, REPORT1+16*, REPORT1+27*, REPORT1+29*, REPORT1+32, REPORT1+33*, REPORT1+35*, GETNOTE+11* |
| RESULTS("userId" | ALWCSGN+5*, NEEDCSGN+11* |
| RM | REPORT1+2~, REPORT1+4*, REPORT1+5*, REPORT1+17 |
| RPRIV | REPORT1+3~, REPORT1+7*, REPORT1+12*, REPORT1+13 |
| SRC | TXT2LN~ |
| SRC("text" | TXT2LN+3, TXT2LN+4, TXT2LN+7, TXT2LN+8 |
| STR | GETCOM+1~, GETCOM+5*, GETCOM+7*, GETCOM+8*, GETCOM+11*, GETCOM+12, SETCOM+3~, SETCOM+14*, SETCOM+17*, SETCOM+18 , WRAP+1~, WRAP+6*, WRAP+8, WRAP+9*, WRAP+10*, WRAP+11 |
| TEST | ALWNOTE+1~, ALWNOTE+2*, ALWNOTE+3, ALWN2~, ALWN2+6, ALWN2+7, ALWN2+20, ALWN2+24, REQCSGN+2~, REQCSGN+5* , REQCSGN+7, NEEDCSGN+3~, NEEDCSGN+20*, NEEDCSGN+21, NEEDCSGN+29 |
| TITLE | ALWN2+2~ |
| TMP | WRAP+1~, WRAP+3* |
| TMP( | WRAP+5, WRAP+6, WRAP+7 |
| TMPAR | GETCOM+1~, GETCOM+14 |
| TMPAR( | GETCOM+8*, GETCOM+10*, GETCOM+12*, GETCOM+13! |
| TSTNM | REPORT1+3~, REPORT1+10*, REPORT1+11 |
| TXT | PARSLN~, PARSLN+2 |
| TYPE | REPORT1~, REPORT1+5, REPORT1+8, REPORT1+31 |
| U | REPORT1+10, REPORT1+12, GETNOTE+4, SETNOTE+9, SETNOTE+32, ALWNOTE+2, ALWN2+6, ALWN2+7, ALWN2+18, NOTE4PT+5 , REQCSGN+4, REQCSGN+5, REQCSGN+7, NEEDCSGN+21, SETCOM+14 |
| WPARR | GETCOM+1~ |
| WPARR( | GETCOM+6, GETCOM+7, GETCOM+8, GETCOM+9, GETCOM+10, GETCOM+11 |
| WRD | GETCOM+1~ |
| WRP | SETNOTE+2~, SETCOM+2~ |
| X | PARSLN+2~*, PARSLN+3, PARSLN+5*, PARSLN+6 |
| X0 | REQCSGN+2~, REQCSGN+3*, REQCSGN+4, REQCSGN+5 |
| Y | ALWN2+2~, ALWN2+21*, ALWN2+22 |
| YS | REPORT1+3~, REPORT1+11, SETNOTE+2~, SETNOTE+13, SETNOTE+15, SETNOTE+16, SETNOTE+26, SETNOTE+27, SETNOTE+29, SETNOTE+30 , NOTE4PT+1~, NOTE4PT+2, NOTE4PT+14, NOTE4PT+16, NOTE4PT+17, SETCOM+2~, SETCOM+8, SETCOM+9 |
| YS( | SETCOM+12, SETCOM+13*, SETCOM+15, SETCOM+16, SETCOM+17 |
| YS("AD" | SETNOTE+17*, NOTE4PT+10* |
| YS("CODE" | REPORT1+11* |
| YS("CON" | SETNOTE+29*, NOTE4PT+16* |
| YS("COSIGNER" | SETNOTE+21*, NOTE4PT+11* |
| YSCODE | ALWN2+3~ |
| YSCREQ | REQCSGN+2~, REQCSGN+8, REQCSGN+9, NEEDCSGN+3~, NEEDCSGN+10, NEEDCSGN+12, NEEDCSGN+23!, NEEDCSGN+24, NEEDCSGN+25 |
| YSCSGN | SETNOTE+20~*, SETNOTE+21, SETNOTE+22, SETNOTE+23*, SETNOTE+24 |
| YSDATA | REPORT1+3~, REPORT1+9!, REPORT1+11, SETNOTE+2~, SETNOTE+29, SETNOTE+30, NOTE4PT+1~, NOTE4PT+16, NOTE4PT+17, SETCOM+2~ |
| YSDATA(1 | REPORT1+12, SETNOTE+31, NOTE4PT+18 |
| YSDATA(2 | REPORT1+12, SETNOTE+33 |
| YSERR | SETCOM+3~, SETCOM+24, SETCOM+29 |
| YSET | ALWN2+3~ |
| YSF | SETCOM+3~, SETCOM+21*, SETCOM+23, SETCOM+27 |
| YSFILEN | SETCOM+3~, SETCOM+20*, SETCOM+23, SETCOM+27 |
| YSIEN | GETCOM+1~, GETCOM+2*, GETCOM+3, SETCOM+3~, SETCOM+19*, SETCOM+23, SETCOM+27 |
| YSISC | ALWN2+2~, ALWN2+22, ALWN2+23 |
| YSLEG | ALWN2+3~ |
| YSLEGP | ALWN2+3~ |
| YSNOW | SETCOM+3~, SETCOM+10*, SETCOM+11*, SETCOM+14 |
| YSPERSON | REQCSGN+2~, REQCSGN+4*, REQCSGN+8, NEEDCSGN+3~, NEEDCSGN+6*, NEEDCSGN+10, NEEDCSGN+11, NEEDCSGN+24 |
| YST | SETCOM+3~, SETCOM+11* |
| YSTITLE | ALWN2+2~, ALWN2+20*, ALWN2+21, ALWN2+23*, ALWN2+24*, ALWN2+25, REQCSGN+2~, REQCSGN+7*, REQCSGN+8, NEEDCSGN+3~ , NEEDCSGN+9*, NEEDCSGN+10, NEEDCSGN+21*, NEEDCSGN+22, NEEDCSGN+24 |
| YSWP | SETCOM+3~ |
| YSWP( | SETCOM+25, SETCOM+26 |
| >> YTQRERRS | SETNOTE+19 |
