Routine: YTQRQAD6

Package	Total	Call Graph
Mental Health	3	GETSCORE^YTQAPI8 UPADM^YTQEVNT SETERROR^YTQRUTL
Kernel	1	($$FMDIFF,$$HTFM,$$NOW)^XLFDT
VA FileMan	1	FILE^DIE

Package	Total	Caller Graph
Mental Health	1	^YTT(601.71

Entry Points

Name	Comments	DBIA/ICR reference
FLAG(DFN,INST,HRR,PR)	; ROUTINE to calculate Positive response and High Risk flagging
FLAG2	;
QUEST(ADMID,INST)	; Create core code to look at questions and answers ; Requires Administration ID (ADMID) and Instrument name (INST) as an pre-existing value.
SCORES	;
TIME(TPAR)	;
HRSCR	;
YTAG	; Yes to any of specific list of questions.
YATAG	; If Yes to any question is High Risk
ATAG	; any question with a score > that passed in with the A# parameter.
I9TAG	;
GTTAG	; specific question with a score > that passed in with the GT# parameter. ; If any of the comma delimited question#>value, then YSFLAG=2 for HIGH RISK
SETFLAG	; Set YSFLAG into the MH ADMISISTRATION file (#601.84)
BHS	; BHS ; High Risk: Score of > 8 ; Positive Response: None
BSS	; BSS ; High Risk: Score > 0 to any question ; Positive Response: None
PHQ2I9	; PHQ-2+I9 ; High Risk: I9 > 0 ; Positive Response: Score >2
PSS3	; PSS-3 ; High Risk: Yes to any of Q1,2,3 within the last 6 months ; Positive Response: None
PSS32ND	; PSS-3 2ND ; High Risk: Yes to any of the questions ; Positive Response: None
CSSRS	; C-SSRS ; High Risk: Yes to any of Q3,4,5,8 ; Positive Response: None
CSSRSV2	; C-SSRS_V2 ; High Risk: Yes to any of the questions ; Positive Response: None
I9CSSRS	; I9+C-SSRS ; High Risk: Yes to any of Q3,4,5,8 or I9 > 0 ; Positive Response: None
PHQ9	; PHQ9 Instrument ; High Risk: I9 > 0 ; Positive Response: Score > 9
PTSD5I9	; PC-PTSD-5+19 ; High Risk: I9 > 0 ; Positive Response: None
BDI2	; BDI2 Instrument ; High Risk: Question 9 > 0
CCSA	; CCSA-DSM5 Instrument ; High Risk: Question 9 > 0

Name	Field # of Occurrence
FILE^DIE	SETFLAG+3
$$FMDIFF^XLFDT	FLAG2+8, FLAG2+20
$$HTFM^XLFDT	FLAG2+8
$$NOW^XLFDT	FLAG2+20
GETSCORE^YTQAPI8	SCORES+8
UPADM^YTQEVNT	SETFLAG+4
SETERROR^YTQRUTL	FLAG+31, FLAG+32

Name	Line Occurrences
Function Call: WRITE	Prompt: weeks, Line Location: FLAG+13
Routine Call	DIE Line Location: SETFLAG+3

Name	Line Occurrences (* Changed, ! Killed)
^PXRMINDX(601.84	FLAG+34, FLAG+37, FLAG2+2
^TMP("YSQA"	FLAG2+32!, QUEST+3!, QUEST+16*, YTAG+5, YTAG+7, YATAG+3, YATAG+4, I9TAG+3, I9TAG+4, GTTAG+13
^TMP($J	SCORES+7!, SCORES+9
^YTT(601.71 - [#601.71]	FLAG+34
^YTT(601.72 - [#601.72]	QUEST+9, QUEST+11
^YTT(601.75 - [#601.75]	QUEST+13, ATAG+7
^YTT(601.84 - [#601.84]	FLAG2+5, FLAG2+10
^YTT(601.85 - [#601.85]	QUEST+5, QUEST+6, QUEST+7, ATAG+4, ATAG+5

Name	Line Occurrences
$$TIME	FLAG2+19
ATAG	FLAG2+27
FLAG	BHS+7, BSS+7, PHQ2I9+7, PSS3+7, PSS32ND+7, CSSRS+7, CSSRSV2+7, I9CSSRS+7, PHQ9+7, PTSD5I9+7 , BDI2+6, CCSA+6
FLAG2	FLAG+37
GTTAG	FLAG2+31
HRSCR	FLAG2+21
I9TAG	FLAG2+29
QUEST	FLAG2+11
SCORES	FLAG2+12
SETFLAG	FLAG2+9, FLAG2+33
YATAG	FLAG2+23
YTAG	FLAG2+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMID	FLAG+29~, FLAG2+2*, FLAG2+5, FLAG2+10, FLAG2+11, QUEST~, QUEST+5, QUEST+6, SCORES+3, ATAG+4 , SETFLAG+2, SETFLAG+4
AGE	FLAG2+1~
AID	ATAG+1~, ATAG+3, ATAG+4, ATAG+5, GTTAG+2~, GTTAG+8, GTTAG+9, GTTAG+11, GTTAG+12*, GTTAG+13 , GTTAG+15
ANSID	QUEST+2~, QUEST+6*, QUEST+7
CHOICE	QUEST+2~, QUEST+12, QUEST+13, QUEST+14, QUEST+16, YTAG+1~, YTAG+7, YTAG+8, YTAG+9, YATAG+1~ , YATAG+4, YATAG+5*, YATAG+6
CHOICEID	ATAG+1~, ATAG+6*, ATAG+7, GTTAG+2~
CNT	QUEST+2~, QUEST+4, QUEST+8, QUEST+16, YTAG+1~, YTAG+4, YTAG+5, YTAG+6, YTAG+7, YATAG+1~ , YATAG+2, YATAG+3, YATAG+4, I9TAG+1~, I9TAG+2, I9TAG+3, I9TAG+4
CURFLG	FLAG2+1~, FLAG2+5*, FLAG2+6
DATE	FLAG+29~, FLAG+35, FLAG+37, FLAG2+2, FLAG2+8, FLAG2+20, SCORES+5
DAYS	TIME+1~, TIME+5, TIME+6, TIME+7*, TIME+8
DFN	FLAG~, FLAG+31, FLAG+34, FLAG+37, FLAG2+2, SCORES+6, BHS+7, BSS+7, PHQ2I9+7, PSS3+7 , PSS32ND+7, CSSRS+7, CSSRSV2+7, I9CSSRS+7, PHQ9+7, PTSD5I9+7, BDI2+6, CCSA+6
HRR	FLAG~, FLAG2+15, FLAG2+18, BHS+3~, BHS+5, BHS+7, BSS+3~, BSS+5, BSS+7, PHQ2I9+3~ , PHQ2I9+5, PHQ2I9+7, PSS3+3~, PSS3+5, PSS3+7, PSS32ND+3~, PSS32ND+5, PSS32ND+7, CSSRS+3~, CSSRS+5 , CSSRS+7, CSSRSV2+3~, CSSRSV2+5, CSSRSV2+7, I9CSSRS+3~, I9CSSRS+5, I9CSSRS+7, PHQ9+3~, PHQ9+5, PHQ9+7 , PTSD5I9+3~, PTSD5I9+5, PTSD5I9+7, BDI2+2~, BDI2+4, BDI2+6, CCSA+2~, CCSA+4, CCSA+6
I	QUEST+2~, QUEST+8, QUEST+9, QUEST+11, GTTAG+3~, GTTAG+6*, GTTAG+7
INC	TIME+1~, TIME+3*, TIME+5, TIME+6, TIME+7
INST	FLAG~, FLAG+32, FLAG+34, FLAG2+11, QUEST~, QUEST+16, SCORES+4, YTAG+5, YTAG+7, YATAG+3 , YATAG+4, I9TAG+3, I9TAG+4, GTTAG+13, BHS+3~, BHS+4, BHS+7, BSS+3~, BSS+4, BSS+7 , PHQ2I9+3~, PHQ2I9+4, PHQ2I9+7, PSS3+3~, PSS3+4, PSS3+7, PSS32ND+3~, PSS32ND+4, PSS32ND+7, CSSRS+3~ , CSSRS+4, CSSRS+7, CSSRSV2+3~, CSSRSV2+4, CSSRSV2+7, I9CSSRS+3~, I9CSSRS+4, I9CSSRS+7, PHQ9+3~, PHQ9+4* , PHQ9+7, PTSD5I9+3~, PTSD5I9+4, PTSD5I9+7, BDI2+2~, BDI2+3, BDI2+6, CCSA+2~, CCSA+3*, CCSA+6
INSTIEN	FLAG+29~, FLAG+34*, FLAG+37, FLAG2+2
LEG	QUEST+2~, QUEST+12, QUEST+13, QUEST+15, QUEST+16, ATAG+1~, ATAG+7, ATAG+8, GTTAG+2~, GTTAG+14* , GTTAG+15
MIN	ATAG+1~, ATAG+2, ATAG+8, GTTAG+2~, GTTAG+10
MULT	FLAG+29~, FLAG2+15*, FLAG2+16
PERIOD	TIME+1~, TIME+4*, TIME+5, TIME+6, TIME+7
PR	FLAG~, FLAG2+14, GTTAG+3~, GTTAG+7, GTTAG+8, GTTAG+9, BHS+3~, BHS+6, BHS+7, BSS+3~ , BSS+6, BSS+7, PHQ2I9+3~, PHQ2I9+6, PHQ2I9+7, PSS3+3~, PSS3+6, PSS3+7, PSS32ND+3~, PSS32ND+6 , PSS32ND+7, CSSRS+3~, CSSRS+6, CSSRS+7, CSSRSV2+3~, CSSRSV2+6, CSSRSV2+7, I9CSSRS+3~, I9CSSRS+6, I9CSSRS+7 , PHQ9+3~, PHQ9+6, PHQ9+7, PTSD5I9+3~, PTSD5I9+6, PTSD5I9+7, BDI2+2~, BDI2+5, BDI2+6, CCSA+2~ , CCSA+5*, CCSA+6
QARR	GTTAG+3~
QARR(	GTTAG+9*, GTTAG+12, GTTAG+15
QID	ATAG+1~, ATAG+6*, GTTAG+2~
QNUM	QUEST+2~, QUEST+4, QUEST+5, QUEST+6
QST	QUEST+2~, QUEST+8, QUEST+10, QUEST+11*, QUEST+16
SI	FLAG+29~, FLAG+30, FLAG2+21, HRSCR+1, HRSCR+2
TEMP	QUEST+2~, QUEST+7, QUEST+9, QUEST+11, QUEST+12, QUEST+13, TIME+2, TIME+3, TIME+4, YTAG+1~ , YTAG+2, YTAG+3, YTAG+6, ATAG+1~, ATAG+5, ATAG+6, I9TAG+1~, I9TAG+4, I9TAG+5, I9TAG+6 , GTTAG+2~, GTTAG+5, GTTAG+6, GTTAG+7, GTTAG+13, GTTAG+14
TEST	I9TAG+1~, I9TAG+2*, I9TAG+5
TPAR	TIME~, TIME+2
U	FLAG2+5, FLAG2+10, QUEST+9, QUEST+11, QUEST+12, QUEST+13, QUEST+16, YTAG+7, YATAG+4, ATAG+6 , ATAG+7, I9TAG+5, I9TAG+6, GTTAG+8, GTTAG+9, GTTAG+14
X	FLAG2+1~, FLAG2+16*, FLAG2+18
XXX	SETFLAG+1~, SETFLAG+2*, SETFLAG+3
YS	FLAG+29~, SCORES+8
YS("AD"	SCORES+3*
YS("ADATE"	SCORES+5*
YS("CODE"	SCORES+4*
YS("DFN"	SCORES+6*
YSCORE	FLAG+29~, FLAG2+14, SCORES+9*, HRSCR+1, HRSCR+2
YSDATA	SCORES+2~, SCORES+8
YSFDA	SETFLAG+1~
YSFDA(	SETFLAG+3*
YSFLAG	FLAG+29~, FLAG+33, FLAG2+9, FLAG2+13, FLAG2+14, FLAG2+16, FLAG2+21, FLAG2+22, FLAG2+24, FLAG2+26 , FLAG2+28, FLAG2+30, HRSCR+1, HRSCR+2, YTAG+5, YTAG+10, YTAG+11, YATAG+3, YATAG+7, YATAG+8 , ATAG+4, ATAG+9, ATAG+10, I9TAG+3, I9TAG+7, I9TAG+8, GTTAG+4, GTTAG+15, SETFLAG+3
YSHRT	FLAG2+1~, FLAG2+18*, FLAG2+19, FLAG2+21, FLAG2+23, FLAG2+25, FLAG2+27, FLAG2+29, FLAG2+31, YTAG+2 , ATAG+2, GTTAG+5, GTTAG+10
YSLIM	FLAG+29~, FLAG2+17, FLAG2+19, FLAG2+20

Customize PDF page

Package: Mental Health

Routine: YTQRQAD6

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: