Routine: YTQRQAD2

Package	Total	Call Graph
Mental Health	16	ADMSAVE^YTQAPI1 SAVEALL^YTQAPI17 ($$CHKPROG,SPLTADM)^YTQRCAT (GETADM,POSTADM)^YTQRCRW DELASMT1^YTQRQAD1 ($$ALWNOTE,NOTE4PT)^YTQRQAD3 $$FILPNOT^YTQRQAD8 BLDRPT^YTQRRPT SETERROR^YTQRUTL VERIFY^YTSBAMC VERIFY^YTSBAMCC VERIFY^YTSBAMI VERIFY^YTSBAMIC VERIFY^YTSBAMR VERIFY^YTSBAMRC VERIFY^YTSSODU
Kernel	1	$$NOW^XLFDT
VA FileMan	1	^%DT

Package	Total	Caller Graph
Mental Health	1	YTQRCRD

Name	Comments	DBIA/ICR reference
SAVEADM(ARGS,DATA)	; save answers and return /ys/mha/admin/{adminId}
QASAVE(DATA)	; save questions and answers in DATA ; loop through DATA to create ANS array, then YSDATA array ; ANS(#)=questionId^choiceId <-- radio group question ; ANS(#,#)=wp value <-- all others
SETADM(DATA,NUM)	; return the id for new/updated admin
ETFM(YSDT)	;External to FM
ADM4ASMT(NODE,TESTID)	; return adminId if one has been saved for assignment
GETADM(ARGS,RESULTS)	; get answers for administration identified by ARGS("adminId")
TXT2ANS(IDX,QNUM)	; Convert web to ANS format for DATA(IDX) ; expects DATA,ANS
ADDSEGS(NODE)	; split text in node into LEN segments with "\|" for newlines ; expects DATA,ANS,LEN,LN
GETCHKS(ARGS,RESULTS)	; verify answer string & return check messages if needed

Name	Field # of Occurrence
^%DT	ETFM+4
$$NOW^XLFDT	SETADM+7
ADMSAVE^YTQAPI1	SETADM+25
SAVEALL^YTQAPI17	QASAVE+27
$$CHKPROG^YTQRCAT	GETADM+29
SPLTADM^YTQRCAT	SAVEADM+27
GETADM^YTQRCRW	GETADM+2
POSTADM^YTQRCRW	SAVEADM+1
DELASMT1^YTQRQAD1	SAVEADM+33
$$ALWNOTE^YTQRQAD3	SAVEADM+26
NOTE4PT^YTQRQAD3	SAVEADM+11
$$FILPNOT^YTQRQAD8	SAVEADM+31
BLDRPT^YTQRRPT	SAVEADM+26
SETERROR^YTQRUTL	QASAVE+28, SETADM+26, GETADM+1, GETADM+4
VERIFY^YTSBAMC	GETCHKS+4
VERIFY^YTSBAMCC	GETCHKS+7
VERIFY^YTSBAMI	GETCHKS+6
VERIFY^YTSBAMIC	GETCHKS+9
VERIFY^YTSBAMR	GETCHKS+5
VERIFY^YTSBAMRC	GETCHKS+8
VERIFY^YTSSODU	GETCHKS+10

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	SAVEADM+16, SAVEADM+17, SAVEADM+19!, SAVEADM+21, SAVEADM+22, SAVEADM+24, SAVEADM+28, SAVEADM+33, SETADM+7, SETADM+11 , SETADM+13, SETADM+16, SETADM+17, SETADM+21, SETADM+24, ADM4ASMT+3, ADM4ASMT+4, ADM4ASMT+5
^XTMP("YTQASMT-SET-"	SAVEADM+10
^YTT(601.72 - [#601.72]	QASAVE+17, GETADM+16
^YTT(601.76 - [#601.76]	GETADM+14, GETADM+15
^YTT(601.84 - [#601.84]	GETADM+3, GETADM+7
^YTT(601.85 - [#601.85]	GETADM+13, GETADM+17, GETADM+18, GETADM+23, GETADM+25, GETADM+26

Name	Line Occurrences
$$ADM4ASMT	SETADM+5
$$ETFM	SETADM+7
$$QASAVE	SAVEADM+3
$$SETADM	QASAVE+22
ADDSEGS	TXT2ANS+5, TXT2ANS+9
TXT2ANS	QASAVE+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMIN	SAVEADM+2~, SAVEADM+3, SAVEADM+11, SAVEADM+21, SAVEADM+26, SAVEADM+27, SAVEADM+31, SAVEADM+34, QASAVE+4~, QASAVE+22 , QASAVE+23, QASAVE+26, QASAVE+29, SETADM+1~, SETADM+4, SETADM+5, SETADM+9, SETADM+27, SETADM+28, GETADM+6~ , GETADM+7*, GETADM+8, GETADM+13, GETADM+17, GETADM+29
ADMINDT	SETADM+1~, SETADM+7*, SETADM+13
AGPROG	SAVEADM+6~, SAVEADM+28*, SAVEADM+31
ANS	QASAVE+4~, QASAVE+27, GETADM+6~, GETADM+17*, GETADM+18, GETADM+23, GETADM+25, GETADM+26
ANS(	QASAVE+12, QASAVE+18, QASAVE+19, ADDSEGS+6
ANS("AD"	QASAVE+26*
ARGS	SAVEADM~, GETADM~, GETCHKS~, GETCHKS+4, GETCHKS+5, GETCHKS+6, GETCHKS+7, GETCHKS+8, GETCHKS+9, GETCHKS+10
ARGS("adminId"	GETADM+1, GETADM+2, GETADM+3, GETADM+4, GETADM+7
ARGS("instrumentName"	GETCHKS+4, GETCHKS+5, GETCHKS+6, GETCHKS+7, GETCHKS+8, GETCHKS+9, GETCHKS+10
ASMT	SAVEADM+6~, SAVEADM+7*, SAVEADM+10, SAVEADM+15, SAVEADM+31, SAVEADM+33
ASMTID	SETADM+1~, SETADM+2*, SETADM+3
CATPROG	GETADM+29~*, GETADM+30
CPLT	SAVEADM+6~, SAVEADM+9*, SAVEADM+11, SAVEADM+19, SAVEADM+23, SAVEADM+25
CTNT	GETADM+6~, GETADM+14*, GETADM+15
CURADM	ADM4ASMT+1~, ADM4ASMT+2, ADM4ASMT+3, ADM4ASMT+5, ADM4ASMT+6*, ADM4ASMT+7
DATA	SAVEADM~, SAVEADM+3, SAVEADM+11, QASAVE~, QASAVE+22, SETADM~
DATA("adminId"	SETADM+4
DATA("answers"	QASAVE+6, QASAVE+7, QASAVE+8, QASAVE+20!, TXT2ANS+4, TXT2ANS+6, TXT2ANS+7, TXT2ANS+8
DATA("assignmentId"	SAVEADM+1, SAVEADM+7, SETADM+2
DATA("complete"	SAVEADM+9, SAVEADM+22, SETADM+19
DATA("instrumentId"	SAVEADM+17, SETADM+5, SETADM+12
DATA("lastAssignment"	SAVEADM+8
DATA("source"	SETADM+22*, SETADM+23
END	ADDSEGS+2~, ADDSEGS+3*
FIRST	ADDSEGS+2~, ADDSEGS+4*, ADDSEGS+5
I	SAVEADM+14~, SAVEADM+16, SAVEADM+17, SAVEADM+19, SAVEADM+21, SAVEADM+22, SAVEADM+24, QASAVE+4~, QASAVE+6, QASAVE+7 , QASAVE+8, QASAVE+19, ADM4ASMT+1~, ADM4ASMT+3, ADM4ASMT+4, ADM4ASMT+5, GETADM+6~, GETADM+33, GETADM+34, GETADM+35 , GETADM+36, GETADM+37, ADDSEGS+2~, ADDSEGS+3*, ADDSEGS+4
IDX	TXT2ANS~, TXT2ANS+4, TXT2ANS+6, TXT2ANS+7, TXT2ANS+8
J	GETADM+6~, GETADM+36, GETADM+37, TXT2ANS+2~, TXT2ANS+7, TXT2ANS+8
L	GETADM+6~, GETADM+25, GETADM+28, GETADM+36*, GETADM+37
LAST	ADDSEGS+2~, ADDSEGS+3, ADDSEGS+4, ADDSEGS+5
LEN	TXT2ANS+2~, TXT2ANS+3*, ADDSEGS+4
LN	TXT2ANS+2~, TXT2ANS+3, ADDSEGS+4, ADDSEGS+6
LSTASMT	SAVEADM+6~, SAVEADM+8*, SAVEADM+11, SAVEADM+25, SAVEADM+31
N	GETADM+6~, GETADM+25, GETADM+26, GETADM+33, GETADM+34, GETADM+35, GETADM+37
NA	GETADM+6~, GETADM+12, GETADM+19, GETADM+31
NOD	SAVEADM+14~, SAVEADM+15*, SAVEADM+16, SAVEADM+17, SAVEADM+19, SAVEADM+21, SAVEADM+22, SAVEADM+24, SAVEADM+28, SAVEADM+33
NODE	SETADM+1~, SETADM+3, SETADM+5, SETADM+7, SETADM+11, SETADM+13, SETADM+16, SETADM+17, SETADM+21, SETADM+24 , ADM4ASMT~, ADM4ASMT+3, ADM4ASMT+4, ADM4ASMT+5, TXT2ANS+2~, TXT2ANS+4, TXT2ANS+5, TXT2ANS+8*, TXT2ANS+9, ADDSEGS~ , ADDSEGS+3, ADDSEGS+5
NUM	SETADM~, SETADM+20
PNOT	SAVEADM+6~, SAVEADM+31*
PTENT	SAVEADM+6~, SAVEADM+10*, SAVEADM+11, SAVEADM+19, SAVEADM+25
QANS	QASAVE+4~, QASAVE+5, QASAVE+14, QASAVE+22
QID	QASAVE+4~, QASAVE+7, QASAVE+9, QASAVE+11, QASAVE+12, QASAVE+17, QASAVE+18, QASAVE+19, GETADM+6~, GETADM+13* , GETADM+14, GETADM+16, GETADM+17, GETADM+20, GETADM+22, GETADM+24, GETADM+27
QNUM	QASAVE+4~, QASAVE+5, QASAVE+10, QASAVE+12, QASAVE+18, QASAVE+19, TXT2ANS~, ADDSEGS+6
REMAIN	SAVEADM+14~, SAVEADM+15, SAVEADM+23, SAVEADM+24*, SAVEADM+33
RESULTS	GETADM~, GETCHKS~, GETCHKS+4, GETCHKS+5, GETCHKS+6, GETCHKS+7, GETCHKS+8, GETCHKS+9, GETCHKS+10
RESULTS("adminId"	GETADM+8*
RESULTS("answers"	GETADM+34, GETADM+35, GETADM+37*
RESULTS("complete"	GETADM+9*
RESULTS("count"	GETCHKS+3*
RESULTS("instrumentId"	GETADM+10*
RESULTS("progress"	GETADM+30, GETADM+31
RT1	QASAVE+4~, QASAVE+15, QASAVE+16, QASAVE+17*, QASAVE+18
SEQ	GETADM+6~, GETADM+15*, GETADM+20, GETADM+22, GETADM+24, GETADM+27, GETADM+28
TESTID	ADM4ASMT~, ADM4ASMT+4
TMP	GETADM+6~
TMP(	GETADM+20, GETADM+22, GETADM+24, GETADM+27, GETADM+28*, GETADM+33, GETADM+34, GETADM+35, GETADM+36, GETADM+37
TMPYS	SAVEADM+6~, SAVEADM+26, SAVEADM+31
TOT	GETADM+6~, GETADM+12, GETADM+18, GETADM+31
TST	GETADM+6~, GETADM+7*, GETADM+10, GETADM+14
TYP	GETADM+6~, GETADM+16, GETADM+21, GETADM+22, GETADM+24
U	QASAVE+12, QASAVE+17, QASAVE+18, SETADM+27, GETADM+7, GETADM+9, GETADM+15, GETADM+16, GETADM+18, GETADM+20 , GETADM+22, GETADM+24, GETADM+27, GETADM+34, GETADM+35
VAL	QASAVE+4~, QASAVE+8, QASAVE+12, QASAVE+14, QASAVE+16, QASAVE+18, GETADM+6~, GETADM+18, GETADM+19, GETADM+20 , GETADM+21, GETADM+22, GETADM+23, GETADM+24, GETADM+26, GETADM+27, GETADM+28
X	ETFM+2~, ETFM+4, ADDSEGS+2~, ADDSEGS+5, ADDSEGS+6
X0	GETADM+6~, GETADM+7*, GETADM+9
Y	ETFM+2~, ETFM+5*, ETFM+6
YS	SETADM+1~, SETADM+25
YS("FILEN"	SETADM+8*
YS("IEN"	SETADM+9*
YS(1	SETADM+10*
YS(10	SETADM+20*
YS(11	SETADM+21*
YS(12	SETADM+23*
YS(13	SETADM+24*
YS(2	SETADM+11*
YS(3	SETADM+12*
YS(4	SETADM+13*
YS(5	SETADM+15*
YS(6	SETADM+16*
YS(7	SETADM+17*
YS(8	SETADM+18*
YS(9	SETADM+19*
YSDATA	QASAVE+25~, QASAVE+27, SETADM+1~, SETADM+25
YSDATA(1	QASAVE+28, SETADM+26
YSDATA(2	SETADM+27
YSDT	ETFM~, ETFM+3*, ETFM+4

Customize PDF page

Package: Mental Health

Routine: YTQRQAD2

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: