Routine: YTQRQAD3

Package	Total	Call Graph
Mental Health	6	CCREATE^YTQCONS SPLTADM^YTQRCAT ($$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

Package	Total	Caller Graph
Mental Health	3	YTQRQAD2 YTQRQAD4 YTQRQAD7

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
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+9, ALWN2+13
GET1^DIQ	SETCOM+23
ISCNSLT^TIUCNSLT	ALWN2+11
$$WHATITLE^TIUPUTU	ALWN2+10, ALWN2+14
REQCOS^TIUSRVA	REQCSGN+8
$$HTE^XLFDT	SETCOM+10
$$UP^XLFSTR	SETCOM+10
CCREATE^YTQCONS	SETNOTE+29, NOTE4PT+15
SPLTADM^YTQRCAT	GETNOTE+12, NOTE4PT+8
$$FILPNOT^YTQRQAD8	SETNOTE+13, SETNOTE+27
SAVPNOT^YTQRQAD8	SETNOTE+26, NOTE4PT+13
BLDRPT^YTQRRPT	REPORT1+6, NOTE4PT+2
WRAPTLT^YTQRRPT	REPORT1+17
SETERROR^YTQRUTL	REPORT+2, GETNOTE+2, GETNOTE+3, SETNOTE+7, SETNOTE+8, SETNOTE+14, SETNOTE+24, SETNOTE+31, NOTE4PT+17, SETCOM+6 , SETCOM+7, SETCOM+29
PCREATE^YTQTIU	SETNOTE+30, NOTE4PT+16

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

Name	Line Occurrences
$$ALWN2	ALWNOTE+3
$$ALWNOTE	GETNOTE+7, SETNOTE+11, NOTE4PT+3
$$PARSLN	TXT2LN+3, TXT2LN+8
$$REQCSGN	GETNOTE+8, SETNOTE+22, ALWCSGN+4
GETCOM	REPORT1+19
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+6, REPORT1+19, 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+3, ALWN2+7, NOTE4PT~, NOTE4PT+2, NOTE4PT+3, NOTE4PT+5 , NOTE4PT+8, NOTE4PT+10, NOTE4PT+13, 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~, SETCOM~
ARGS("adminId"	REPORT+1, GETNOTE+1, ALWCSGN+2
ARGS("userId"	ALWCSGN+3
ARR	GETCOM~, GETCOM+14*
ASGN	SETNOTE+2~, SETNOTE+5*, SETNOTE+6, SETNOTE+13, SETNOTE+26, SETNOTE+27
ASMT	NOTE4PT+1~, NOTE4PT+6*, NOTE4PT+13
BARR	REPORT1+1~, REPORT1+7!, REPORT1+13
BARR(	REPORT1+12*, REPORT1+14
BCNT	REPORT1+1~, REPORT1+7, REPORT1+10, REPORT1+11*, REPORT1+12
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+19, REPORT1+20
COMMS(	REPORT1+23, REPORT1+24
CONSULT	GETNOTE+4~, GETNOTE+6, SETNOTE+2~, SETNOTE+9, SETNOTE+13, SETNOTE+26, SETNOTE+27, SETNOTE+29, ALWN2+2~, ALWN2+6* , ALWN2+7, ALWN2+8, NOTE4PT+1~, NOTE4PT+5, NOTE4PT+13, NOTE4PT+15, REQCSGN+5*, REQCSGN+7, SETCOM+2~
COSIGNER	NOTE4PT+1~, NOTE4PT+4, NOTE4PT+13, ALWCSGN+1~, ALWCSGN+3, ALWCSGN+4, ALWCSGN+5, REQCSGN~, REQCSGN+4
CRLF	REPORT1+1~, REPORT1+5, REPORT1+16, REPORT1+18, REPORT1+22, REPORT1+24, TXT2LN+1~, TXT2LN+2, PARSLN+5
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+8, REPORT1+9, REPORT1+12, REPORT1+14, REPORT1+15, REPORT1+18, REPORT1+21, REPORT1+22, REPORT1+24
IDEST	TXT2LN+1~, TXT2LN+2, TXT2LN+5, TXT2LN+9, PARSLN+5
II	REPORT1+1~, REPORT1+23, REPORT1+24, GETCOM+1~, GETCOM+3, GETCOM+4, GETCOM+6, GETCOM+7, GETCOM+8, GETCOM+9 , GETCOM+10, GETCOM+11, SETCOM+3~, SETCOM+16, SETCOM+17, 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
LSTASGN	SETNOTE+2~, SETNOTE+4*, SETNOTE+13, SETNOTE+26, SETNOTE+27
LSTASMT	NOTE4PT+1~, NOTE4PT+7*, NOTE4PT+13
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+6, REPORT1+17
REPORT(	REPORT1+8, REPORT1+9, REPORT1+15!, REPORT1+18
REPORT(1	REPORT1+16
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+16, REPORT1+18, REPORT1+21, REPORT1+22, REPORT1+24, GETNOTE+11*
RESULTS("userId"	ALWCSGN+5*
RM	REPORT1+2~, REPORT1+3, REPORT1+4, REPORT1+6, REPORT1+17
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+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+4, REPORT1+20
U	GETNOTE+4, SETNOTE+9, ALWNOTE+2, ALWN2+4, ALWN2+5, ALWN2+7, NOTE4PT+5, REQCSGN+4, REQCSGN+5, REQCSGN+7 , 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+10*, ALWN2+11
YS	SETNOTE+2~, SETNOTE+13, SETNOTE+15, SETNOTE+16, SETNOTE+26, SETNOTE+27, SETNOTE+29, SETNOTE+30, NOTE4PT+1~, NOTE4PT+2 , NOTE4PT+13, NOTE4PT+15, NOTE4PT+16, SETCOM+2~, SETCOM+8, SETCOM+9
YS(	SETCOM+12, SETCOM+13*, SETCOM+15, SETCOM+16, SETCOM+17
YS("AD"	SETNOTE+17, NOTE4PT+10
YS("CON"	SETNOTE+29, NOTE4PT+15
YS("COSIGNER"	SETNOTE+21*
YSCREQ	REQCSGN+2~, REQCSGN+8, REQCSGN+9
YSCSGN	SETNOTE+20~, SETNOTE+21, SETNOTE+22, SETNOTE+23, SETNOTE+24
YSDATA	SETNOTE+2~, SETNOTE+29, SETNOTE+30, NOTE4PT+1~, NOTE4PT+15, NOTE4PT+16, SETCOM+2~
YSDATA(1	SETNOTE+31, NOTE4PT+17
YSDATA(2	SETNOTE+32
YSERR	SETCOM+3~, SETCOM+24, SETCOM+29
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+11, ALWN2+12
YSNOW	SETCOM+3~, SETCOM+10, SETCOM+11, SETCOM+14
YSPERSON	REQCSGN+2~, REQCSGN+4*, REQCSGN+8
YST	SETCOM+3~, SETCOM+11*
YSTITLE	ALWN2+2~, ALWN2+9, ALWN2+10, ALWN2+12, ALWN2+13, ALWN2+14, REQCSGN+2~, REQCSGN+7, REQCSGN+8
YSWP	SETCOM+3~
YSWP(	SETCOM+25, SETCOM+26
>> YTQRERRS	SETNOTE+19

Customize PDF page

Package: Mental Health

Routine: YTQRQAD3

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: