Routine: YTQRQAD2

Package	Total	Call Graph
Mental Health	17	ADMSAVE^YTQAPI1 SCORSAVE^YTQAPI11 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+12
ADMSAVE^YTQAPI1	SETADM+30
SCORSAVE^YTQAPI11	SAVEADM+16
SAVEALL^YTQAPI17	QASAVE+27
$$CHKPROG^YTQRCAT	GETADM+29
SPLTADM^YTQRCAT	SAVEADM+36
GETADM^YTQRCRW	GETADM+2
POSTADM^YTQRCRW	SAVEADM+1
DELASMT1^YTQRQAD1	SAVEADM+42
$$ALWNOTE^YTQRQAD3	SAVEADM+35
NOTE4PT^YTQRQAD3	SAVEADM+20
$$FILPNOT^YTQRQAD8	SAVEADM+40
BLDRPT^YTQRRPT	SAVEADM+35
SETERROR^YTQRUTL	QASAVE+28, SETADM+9, SETADM+31, 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)
^TMP($J	SAVEADM+14!, SAVEADM+18
^XTMP(	SAVEADM+25, SAVEADM+26, SAVEADM+28!, SAVEADM+30, SAVEADM+31, SAVEADM+33, SAVEADM+37, SAVEADM+42, SETADM+5, SETADM+12 , SETADM+16, SETADM+18, SETADM+21, SETADM+22, SETADM+26, SETADM+29, ADM4ASMT+3, ADM4ASMT+4, ADM4ASMT+5
^XTMP("YTQASMT-SET-"	SAVEADM+19
^YTT(601.72 - [#601.72]	QASAVE+17, GETADM+16
^YTT(601.76 - [#601.76]	GETADM+14, GETADM+15
^YTT(601.84 - [#601.84]	SETADM+7, 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+10
$$ETFM	SETADM+12
$$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+15, SAVEADM+20, SAVEADM+30, SAVEADM+35, SAVEADM+36, SAVEADM+40, SAVEADM+44, QASAVE+4~ , QASAVE+22, QASAVE+23, QASAVE+26, QASAVE+29, SETADM+1~, SETADM+4, SETADM+7, SETADM+10, SETADM+14, SETADM+32 , SETADM+33, GETADM+6~, GETADM+7*, GETADM+8, GETADM+13, GETADM+17, GETADM+29
ADMINDT	SETADM+1~, SETADM+12*, SETADM+18
AGPROG	SAVEADM+6~, SAVEADM+37*, SAVEADM+40
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+8*, SAVEADM+19, SAVEADM+24, SAVEADM+40, SAVEADM+42
ASMTID	SETADM+1~, SETADM+2*, SETADM+3
CATPROG	GETADM+29~*, GETADM+30
CPLT	SAVEADM+6~, SAVEADM+10*, SAVEADM+12, SAVEADM+20, SAVEADM+28, SAVEADM+32, SAVEADM+34
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+20, 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+8, SETADM+2
DATA("complete"	SAVEADM+10, SAVEADM+31, SETADM+24
DATA("instrumentId"	SAVEADM+26, SETADM+10, SETADM+17
DATA("lastAssignment"	SAVEADM+9
DATA("source"	SETADM+27*, SETADM+28
END	ADDSEGS+2~, ADDSEGS+3*
FIRST	ADDSEGS+2~, ADDSEGS+4*, ADDSEGS+5
I	SAVEADM+23~, SAVEADM+25, SAVEADM+26, SAVEADM+28, SAVEADM+30, SAVEADM+31, SAVEADM+33, 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+9*, SAVEADM+20, SAVEADM+34, SAVEADM+40
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+23~, SAVEADM+24*, SAVEADM+25, SAVEADM+26, SAVEADM+28, SAVEADM+30, SAVEADM+31, SAVEADM+33, SAVEADM+37, SAVEADM+42
NODE	SETADM+1~, SETADM+3, SETADM+5, SETADM+10, SETADM+12, SETADM+16, SETADM+18, SETADM+21, SETADM+22, SETADM+26 , SETADM+29, 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+25
PNOT	SAVEADM+6~, SAVEADM+40*
PTENT	SAVEADM+6~, SAVEADM+19*, SAVEADM+20, SAVEADM+28, SAVEADM+34
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+23~, SAVEADM+24, SAVEADM+32, SAVEADM+33*, SAVEADM+42
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+35, SAVEADM+40
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+7, SETADM+32, 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	SAVEADM+13~, SAVEADM+16, SETADM+1~, SETADM+30
YS("AD"	SAVEADM+15*
YS("FILEN"	SETADM+13*
YS("IEN"	SETADM+14*
YS(1	SETADM+15*
YS(10	SETADM+25*
YS(11	SETADM+26*
YS(12	SETADM+28*
YS(13	SETADM+29*
YS(2	SETADM+16*
YS(3	SETADM+17*
YS(4	SETADM+18*
YS(5	SETADM+20*
YS(6	SETADM+21*
YS(7	SETADM+22*
YS(8	SETADM+23*
YS(9	SETADM+24*
YSCERR	SAVEADM+7~, SAVEADM+11, SAVEADM+18, SAVEADM+43
YSDATA	SAVEADM+13~, SAVEADM+16, QASAVE+25~, QASAVE+27, SETADM+1~, SETADM+30
YSDATA(1	QASAVE+28, SETADM+31
YSDATA(2	SETADM+32
YSDT	ETFM~, ETFM+3*, ETFM+4
YSERR	SETADM+1~, SETADM+6, SETADM+7, SETADM+8*, SETADM+9

Customize PDF page

Package: Mental Health

Routine: YTQRQAD2

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: