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: 8

Package Total Call Graph
Mental Health 4 CCREATE^YTQCONS  (BLDRPT,WRAPTLT)^YTQRRPT  SETERROR^YTQRUTL  PCREATE^YTQTIU  
Text Integration Utility 3 ISCNSLT^TIUCNSLT  $$WHATITLE^TIUPUTU  REQCOS^TIUSRVA  
VA FileMan 1 $$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: 2

Package Total Caller Graph
Mental Health 2 YTQRQAD2  YTQRQAD4  

Entry Points

Name Comments DBIA/ICR reference
REPORT(ARGS,RESULTS) ; build report object identifed 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) ; create a progress note 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
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
$$GET1^DIQ GETCOM+3, SETNOTE+17, ALWN2+9, ALWN2+13
ISCNSLT^TIUCNSLT ALWN2+11
$$WHATITLE^TIUPUTU ALWN2+10, ALWN2+14
REQCOS^TIUSRVA REQCSGN+8
CCREATE^YTQCONS SETNOTE+19, NOTE4PT+6
BLDRPT^YTQRRPT REPORT1+3, NOTE4PT+3
WRAPTLT^YTQRRPT REPORT1+5
SETERROR^YTQRUTL REPORT+2, GETNOTE+2, GETNOTE+3, SETNOTE+4, SETNOTE+5, SETNOTE+8, SETNOTE+18, SETNOTE+21, NOTE4PT+8
PCREATE^YTQTIU SETNOTE+20, NOTE4PT+7

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)
^YTT(601.71 - [#601.71] ALWN2+4, ALWN2+5, REQCSGN+7
^YTT(601.84 - [#601.84] REPORT+2, GETNOTE+3, GETNOTE+4, SETNOTE+5, SETNOTE+7, SETNOTE+8, ALWNOTE+2, ALWN2+7, NOTE4PT+4, REQCSGN+3

Label References

Name Line Occurrences
$$ALWN2 ALWNOTE+3
$$ALWNOTE GETNOTE+7, SETNOTE+6, NOTE4PT+2
$$PARSLN TXT2LN+3, TXT2LN+8
$$REQCSGN GETNOTE+8, SETNOTE+16, ALWCSGN+4
GETCOM REPORT1+7
REPORT1 REPORT+4, GETNOTE+10
TXT2LN SETNOTE+9
WRAP SETNOTE+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMIN REPORT+1~*, REPORT+2, REPORT+3, REPORT+4, REPORT1~, REPORT1+3, REPORT1+7, GETCOM~, GETCOM+2, GETNOTE+1~*
, GETNOTE+2, GETNOTE+3, GETNOTE+4, GETNOTE+5, GETNOTE+7, GETNOTE+8, GETNOTE+10, SETNOTE+2~, SETNOTE+3*, SETNOTE+4
, SETNOTE+5, SETNOTE+6, SETNOTE+7, SETNOTE+8, SETNOTE+11, SETNOTE+16, ALWNOTE~, ALWNOTE+2, ALWNOTE+3, ALWN2~
, ALWN2+3*, ALWN2+7, NOTE4PT~, NOTE4PT+2, NOTE4PT+3, NOTE4PT+4, NOTE4PT+5, ALWCSGN+1~, ALWCSGN+2*, ALWCSGN+4
, REQCSGN~, REQCSGN+3
ARGS REPORT~, GETNOTE~, SETNOTE~, ALWCSGN~
ARGS("adminId" REPORT+1, GETNOTE+1, ALWCSGN+2
ARGS("userId" ALWCSGN+3
ARR GETCOM~, GETCOM+14*
CNT GETCOM+1~, GETCOM+5*, GETCOM+8*, GETCOM+10*, GETCOM+12*, GETCOM+13, WRAP+1~, WRAP+5*, WRAP+9*, WRAP+11*
COMMS REPORT1+1~, REPORT1+7, REPORT1+8
COMMS( REPORT1+11, REPORT1+12
CONSULT GETNOTE+4~*, GETNOTE+6, SETNOTE+2~, SETNOTE+7*, SETNOTE+19, ALWN2+2~, ALWN2+6*, ALWN2+7*, ALWN2+8, NOTE4PT+1~
, NOTE4PT+4*, NOTE4PT+6, REQCSGN+5*, REQCSGN+7
COSIGNER ALWCSGN+1~, ALWCSGN+3*, ALWCSGN+4, ALWCSGN+5, REQCSGN~, REQCSGN+4
CRLF REPORT1+1~, REPORT1+2*, REPORT1+4, REPORT1+6, REPORT1+10, REPORT1+12, TXT2LN+1~, TXT2LN+2*, PARSLN+5
DATA SETNOTE~, SETNOTE+9
DATA("adminId" SETNOTE+3
DATA("cosigner" SETNOTE+13, SETNOTE+14
DELIM GETCOM+1~
DEST TXT2LN~
DEST( TXT2LN+5*, TXT2LN+9*, PARSLN+5*
I REPORT1+1~, REPORT1+6*, REPORT1+9*, REPORT1+10*, REPORT1+12*
IDEST TXT2LN+1~, TXT2LN+2*, TXT2LN+5*, TXT2LN+9*, PARSLN+5*
II REPORT1+1~, REPORT1+11*, REPORT1+12, GETCOM+1~, GETCOM+3*, GETCOM+4, GETCOM+6*, GETCOM+7, GETCOM+8, GETCOM+9
, GETCOM+10, GETCOM+11, WRAP+1~, WRAP+5*, WRAP+6, WRAP+7
J TXT2LN+6~, TXT2LN+7*, TXT2LN+8
JJ GETCOM+1~, GETCOM+9*, GETCOM+10, WRAP+1~, WRAP+6*, WRAP+7
MAX WRAP~, WRAP+2*, WRAP+8
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
REMAIN TXT2LN+1~, TXT2LN+3*, TXT2LN+4, TXT2LN+5, TXT2LN+8*, TXT2LN+9
REPORT REPORT1~, REPORT1+1~, REPORT1+3, REPORT1+5
REPORT( REPORT1+6
REPORT(1 REPORT1+4
RESULTS REPORT~, REPORT+4, GETNOTE~, GETNOTE+10, ALWCSGN~
RESULTS("adminId" REPORT+3*, GETNOTE+5*
RESULTS("allowNote" GETNOTE+7*, GETNOTE+10
RESULTS("allowedToCosign" ALWCSGN+6*
RESULTS("consultId" GETNOTE+6*
RESULTS("cosigner" GETNOTE+9*
RESULTS("requireCosigner" GETNOTE+8*
RESULTS("text" REPORT1+4*, REPORT1+6*, REPORT1+9, REPORT1+10*, REPORT1+12*, GETNOTE+11*
RESULTS("userId" ALWCSGN+5*
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, WRAP+1~, WRAP+6*, WRAP+8, WRAP+9*
, WRAP+10*, WRAP+11
TEST ALWNOTE+1~, ALWNOTE+2*, ALWNOTE+3, ALWN2~, ALWN2+4, ALWN2+5, ALWN2+9, ALWN2+13, REQCSGN+2~, REQCSGN+5*
, REQCSGN+7
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!
TXT PARSLN~, PARSLN+2
TYPE REPORT1~, REPORT1+8
U GETNOTE+4, SETNOTE+7, ALWNOTE+2, ALWN2+4, ALWN2+5, ALWN2+7, NOTE4PT+4, REQCSGN+4, REQCSGN+5, REQCSGN+7
WPARR GETCOM+1~
WPARR( GETCOM+6, GETCOM+7, GETCOM+8, GETCOM+9, GETCOM+10, GETCOM+11
WRD GETCOM+1~
WRP SETNOTE+2~
X PARSLN+2~*, PARSLN+3, PARSLN+5*, PARSLN+6
X0 REQCSGN+2~, REQCSGN+3*, REQCSGN+4, REQCSGN+5
Y ALWN2+2~, ALWN2+10*, ALWN2+11
YS SETNOTE+2~, SETNOTE+9, SETNOTE+10, SETNOTE+19, SETNOTE+20, NOTE4PT+1~, NOTE4PT+3, NOTE4PT+6, NOTE4PT+7
YS("AD" SETNOTE+11*, NOTE4PT+5*
YS("CON" SETNOTE+19*, NOTE4PT+6*
YS("COSIGNER" SETNOTE+15*
YSCREQ REQCSGN+2~, REQCSGN+8, REQCSGN+9
YSCSGN SETNOTE+14~*, SETNOTE+15, SETNOTE+16, SETNOTE+17*, SETNOTE+18
YSDATA SETNOTE+2~, SETNOTE+19, SETNOTE+20, NOTE4PT+1~, NOTE4PT+6, NOTE4PT+7
YSDATA(1 SETNOTE+21, NOTE4PT+8
YSDATA(2 SETNOTE+22
YSIEN GETCOM+1~, GETCOM+2*, GETCOM+3
YSISC ALWN2+2~, ALWN2+11, ALWN2+12
YSPERSON REQCSGN+2~, REQCSGN+4*, REQCSGN+8
YSTITLE ALWN2+2~, ALWN2+9*, ALWN2+10, ALWN2+12*, ALWN2+13*, ALWN2+14, REQCSGN+2~, REQCSGN+7*, REQCSGN+8
>> YTQRERRS SETNOTE+13
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