Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YTQRQAD3

Package: Mental Health

Routine: YTQRQAD3


Information

YTQRQAD3 ;SLC/KCM - RESTful Calls to set/get MHA administrations ; 1/25/2017

Source Information

Source file <YTQRQAD3.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Mental Health 8 PRIVL^YTAPI5  CCREATE^YTQCONS  SPLTADM^YTQRCAT  $$TITLE^YTQRQAD7  ($$FILPNOT,SAVPNOT)^YTQRQAD8  (BLDRPT,WRAPTLT)^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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Mental Health 5 YTQRCDB  YTQRCDB3  YTQRQAD2  YTQRQAD4  YTQRQAD7  

Entry Points

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

External References

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+14, NOTE4PT+2
WRAPTLT^YTQRRPT REPORT1+25
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^YTT(601.71 - [#601.71] GET1^DIQ
^YTT(601.84 - [#601.84] GET1^DIQ

Global Variables Directly Accessed

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, ALWNOTE+2, ALWN2+18, NOTE4PT+5
, REQCSGN+3, SETCOM+7

Label References

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+27
REPORT1 REPORT+4, GETNOTE+10
TXT2LN SETNOTE+15, SETCOM+8
WRAP SETNOTE+16, SETCOM+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMIN REPORT+1~*, REPORT+2, REPORT+3, REPORT+4, REPORT1~, REPORT1+10, REPORT1+14, REPORT1+27, 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, 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+15!, REPORT1+21
BARR( REPORT1+20*, REPORT1+22
BCNT REPORT1+1~, REPORT1+15*, REPORT1+18*, REPORT1+19*, REPORT1+20
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+27, REPORT1+28
COMMS( REPORT1+31, REPORT1+32
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+24, REPORT1+26, REPORT1+30, REPORT1+32, 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+16*, REPORT1+17, REPORT1+20, REPORT1+22*, REPORT1+23, REPORT1+26*, REPORT1+29*, REPORT1+30*, REPORT1+32*
IDEST TXT2LN+1~, TXT2LN+2*, TXT2LN+5*, TXT2LN+9*, PARSLN+5*
II REPORT1+1~, REPORT1+31*, REPORT1+32, 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+14, REPORT1+25
REPORT( REPORT1+16, REPORT1+17, REPORT1+23!, REPORT1+26
REPORT(1 REPORT1+24
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+13*, REPORT1+24*, REPORT1+26*, REPORT1+29, REPORT1+30*, REPORT1+32*, GETNOTE+11*
RESULTS("userId" ALWCSGN+5*, NEEDCSGN+11*
RM REPORT1+2~, REPORT1+4*, REPORT1+5*, REPORT1+14, REPORT1+25
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+28
U REPORT1+10, REPORT1+12, GETNOTE+4, SETNOTE+9, 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+32
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All