Routine: YTQRQAD2

Package	Total	Call Graph
Mental Health	11	ADMSAVE^YTQAPI1 SAVEALL^YTQAPI17 $$CHKPROG^YTQRCAT DELASMT1^YTQRQAD1 NOTE4PT^YTQRQAD3 $$FILPNOT^YTQRQAD8 BLDRPT^YTQRRPT SETERROR^YTQRUTL VERIFY^YTSBAMC VERIFY^YTSBAMI VERIFY^YTSBAMR
Kernel	1	$$NOW^XLFDT
VA FileMan	1	^%DT

Name	Comments	DBIA/ICR reference
SAVEADM(ARGS,DATA)	; save answers and return /ys/mha/admin/{adminId} ; 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+6
ADMSAVE^YTQAPI1	SETADM+24
SAVEALL^YTQAPI17	SAVEADM+27
$$CHKPROG^YTQRCAT	GETADM+28
DELASMT1^YTQRQAD1	SAVEADM+52
NOTE4PT^YTQRQAD3	SAVEADM+35
$$FILPNOT^YTQRQAD8	SAVEADM+51
BLDRPT^YTQRRPT	SAVEADM+49
SETERROR^YTQRUTL	SAVEADM+28, SETADM+25, GETADM+1, GETADM+3
VERIFY^YTSBAMC	GETCHKS+4
VERIFY^YTSBAMI	GETCHKS+6
VERIFY^YTSBAMR	GETCHKS+5

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	SAVEADM+39, SAVEADM+40, SAVEADM+42!, SAVEADM+44, SAVEADM+45, SAVEADM+47, SAVEADM+50, SAVEADM+52, SETADM+6, SETADM+10 , SETADM+12, SETADM+15, SETADM+16, SETADM+20, SETADM+23, ADM4ASMT+3, ADM4ASMT+4, ADM4ASMT+5
^XTMP("YTQASMT-SET-"	SAVEADM+34
^YTT(601.72 - [#601.72]	SAVEADM+17, GETADM+15
^YTT(601.76 - [#601.76]	GETADM+13, GETADM+14
^YTT(601.84 - [#601.84]	GETADM+2, GETADM+6
^YTT(601.85 - [#601.85]	GETADM+12, GETADM+16, GETADM+17, GETADM+22, GETADM+24, GETADM+25

Name	Line Occurrences
$$ADM4ASMT	SETADM+4
$$ETFM	SETADM+6
$$SETADM	SAVEADM+22
ADDSEGS	TXT2ANS+5, TXT2ANS+9
TXT2ANS	SAVEADM+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMIN	SAVEADM+4~, SAVEADM+22, SAVEADM+23, SAVEADM+26, SAVEADM+35, SAVEADM+44, SAVEADM+49, SAVEADM+53, SETADM+1~, SETADM+3 , SETADM+4, SETADM+8, SETADM+26, SETADM+27, GETADM+5~, GETADM+6, GETADM+7, GETADM+12, GETADM+16, GETADM+28
ADMINDT	SETADM+1~, SETADM+6*, SETADM+12
AGPROG	SAVEADM+4~, SAVEADM+50*, SAVEADM+51
ANS	SAVEADM+4~, SAVEADM+27, GETADM+5~, GETADM+16*, GETADM+17, GETADM+22, GETADM+24, GETADM+25
ANS(	SAVEADM+12, SAVEADM+18, SAVEADM+19, ADDSEGS+6
ANS("AD"	SAVEADM+26*
ARGS	SAVEADM~, GETADM~, GETCHKS~, GETCHKS+4, GETCHKS+5, GETCHKS+6
ARGS("adminId"	GETADM+1, GETADM+2, GETADM+3, GETADM+6
ARGS("instrumentName"	GETCHKS+4, GETCHKS+5, GETCHKS+6
ASMT	SAVEADM+30~, SAVEADM+31*, SAVEADM+34, SAVEADM+38, SAVEADM+51, SAVEADM+52
CATPROG	GETADM+28~*, GETADM+29
CPLT	SAVEADM+30~, SAVEADM+33*, SAVEADM+35, SAVEADM+42, SAVEADM+46, SAVEADM+48
CTNT	GETADM+5~, GETADM+13*, GETADM+14
CURADM	ADM4ASMT+1~, ADM4ASMT+2, ADM4ASMT+3, ADM4ASMT+5, ADM4ASMT+6
DATA	SAVEADM~, SAVEADM+22, SAVEADM+35, SETADM~
DATA("adminId"	SETADM+3
DATA("answers"	SAVEADM+6, SAVEADM+7, SAVEADM+8, SAVEADM+20!, TXT2ANS+4, TXT2ANS+6, TXT2ANS+7, TXT2ANS+8
DATA("assignmentId"	SAVEADM+31, SETADM+2
DATA("complete"	SAVEADM+33, SAVEADM+45, SETADM+18
DATA("instrumentId"	SAVEADM+40, SETADM+4, SETADM+11
DATA("lastAssignment"	SAVEADM+32
DATA("source"	SETADM+21*, SETADM+22
END	ADDSEGS+2~, ADDSEGS+3*
FIRST	ADDSEGS+2~, ADDSEGS+4*, ADDSEGS+5
I	SAVEADM+4~, SAVEADM+6, SAVEADM+7, SAVEADM+8, SAVEADM+19, SAVEADM+39, SAVEADM+40, SAVEADM+42, SAVEADM+44, SAVEADM+45 , SAVEADM+47, ADM4ASMT+1~, ADM4ASMT+3, ADM4ASMT+4, ADM4ASMT+5, GETADM+5~, GETADM+32, GETADM+33, GETADM+34, GETADM+35 , GETADM+36, ADDSEGS+2~, ADDSEGS+3*, ADDSEGS+4
IDX	TXT2ANS~, TXT2ANS+4, TXT2ANS+6, TXT2ANS+7, TXT2ANS+8
J	GETADM+5~, GETADM+35, GETADM+36, TXT2ANS+2~, TXT2ANS+7, TXT2ANS+8
L	GETADM+5~, GETADM+24, GETADM+27, GETADM+35*, GETADM+36
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+30~, SAVEADM+32*, SAVEADM+35, SAVEADM+48, SAVEADM+51
N	GETADM+5~, GETADM+24, GETADM+25, GETADM+32, GETADM+33, GETADM+34, GETADM+36
NA	GETADM+5~, GETADM+11, GETADM+18, GETADM+30
NOD	SAVEADM+37~, SAVEADM+38*, SAVEADM+39, SAVEADM+40, SAVEADM+42, SAVEADM+44, SAVEADM+45, SAVEADM+47, SAVEADM+50, SAVEADM+52
NODE	SETADM+1~, SETADM+2, SETADM+4, SETADM+6, SETADM+10, SETADM+12, SETADM+15, SETADM+16, SETADM+20, SETADM+23 , 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+19
PNOT	SAVEADM+30~, SAVEADM+51*
PTENT	SAVEADM+30~, SAVEADM+34*, SAVEADM+35, SAVEADM+42, SAVEADM+48
QANS	SAVEADM+4~, SAVEADM+5, SAVEADM+14, SAVEADM+22
QID	SAVEADM+4~, SAVEADM+7, SAVEADM+9, SAVEADM+11, SAVEADM+12, SAVEADM+17, SAVEADM+18, SAVEADM+19, GETADM+5~, GETADM+12* , GETADM+13, GETADM+15, GETADM+16, GETADM+19, GETADM+21, GETADM+23, GETADM+26
QNUM	SAVEADM+4~, SAVEADM+5, SAVEADM+10, SAVEADM+12, SAVEADM+18, SAVEADM+19, TXT2ANS~, ADDSEGS+6
REMAIN	SAVEADM+37~, SAVEADM+38, SAVEADM+46, SAVEADM+47*, SAVEADM+52
RESULTS	GETADM~, GETCHKS~, GETCHKS+4, GETCHKS+5, GETCHKS+6
RESULTS("adminId"	GETADM+7*
RESULTS("answers"	GETADM+33, GETADM+34, GETADM+36*
RESULTS("complete"	GETADM+8*
RESULTS("count"	GETCHKS+3*
RESULTS("instrumentId"	GETADM+9*
RESULTS("progress"	GETADM+29, GETADM+30
RT1	SAVEADM+4~, SAVEADM+15, SAVEADM+16, SAVEADM+17*, SAVEADM+18
SEQ	GETADM+5~, GETADM+14*, GETADM+19, GETADM+21, GETADM+23, GETADM+26, GETADM+27
TESTID	ADM4ASMT~, ADM4ASMT+4
TMP	GETADM+5~
TMP(	GETADM+19, GETADM+21, GETADM+23, GETADM+26, GETADM+27*, GETADM+32, GETADM+33, GETADM+34, GETADM+35, GETADM+36
TMPYS	SAVEADM+4~, SAVEADM+49, SAVEADM+51
TOT	GETADM+5~, GETADM+11, GETADM+17, GETADM+30
TST	GETADM+5~, GETADM+6*, GETADM+9, GETADM+13
TYP	GETADM+5~, GETADM+15, GETADM+20, GETADM+21, GETADM+23
U	SAVEADM+12, SAVEADM+17, SAVEADM+18, SETADM+26, GETADM+6, GETADM+8, GETADM+14, GETADM+15, GETADM+17, GETADM+19 , GETADM+21, GETADM+23, GETADM+26, GETADM+33, GETADM+34
VAL	SAVEADM+4~, SAVEADM+8, SAVEADM+12, SAVEADM+14, SAVEADM+16, SAVEADM+18, GETADM+5~, GETADM+17, GETADM+18, GETADM+19 , GETADM+20, GETADM+21, GETADM+22, GETADM+23, GETADM+25, GETADM+26, GETADM+27
X	ETFM+2~, ETFM+4, ADDSEGS+2~, ADDSEGS+5, ADDSEGS+6
X0	GETADM+5~, GETADM+6*, GETADM+8
Y	ETFM+2~, ETFM+5*, ETFM+6
YS	SETADM+1~, SETADM+24
YS("FILEN"	SETADM+7*
YS("IEN"	SETADM+8*
YS(1	SETADM+9*
YS(10	SETADM+19*
YS(11	SETADM+20*
YS(12	SETADM+22*
YS(13	SETADM+23*
YS(2	SETADM+10*
YS(3	SETADM+11*
YS(4	SETADM+12*
YS(5	SETADM+14*
YS(6	SETADM+15*
YS(7	SETADM+16*
YS(8	SETADM+17*
YS(9	SETADM+18*
YSDATA	SAVEADM+25~, SAVEADM+27, SETADM+1~, SETADM+24
YSDATA(1	SAVEADM+28, SETADM+25
YSDATA(2	SETADM+26
YSDT	ETFM~, ETFM+3*, ETFM+4

Customize PDF page

Package: Mental Health

Routine: YTQRQAD2

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: