Routine: YTQPXRM8

Package	Total	Call Graph
VA FileMan	3	(C,H,NOW)^%DTC ^DIK $$GET1^DIQ
Mental Health	1	SCALEG^YTQAPI3

Package	Total	Caller Graph
Mental Health	4	YTQ GET SCRATCH YTQ GET SCRATCH SCORES YTQ KILL SCRATCH YTQ SET SCRATCH

Name	Comments	DBIA/ICR reference
SETSCR(YSDATA,YS)	;save scratch CR
NEW(YSFILEN)	;Adding New Entries - return an internal number - EXTRINSIC FUNCTION
GETSCR(YSDATA,YS)	;get CR scratch -for a user,patient and instrument ; input: DFN as Patient Ien ; input: CODE as Instrument name- 601.71 ; input: HANDLE= identifer for cprs GIU ; output: SCRATCH list in format ; QuestionID^AnswerValue^AnswerLegacyValue^IsMultipleChoice^Response Date
KILLSCR(YSDATA,YS)	;delete scratch data
MULTT	;multiple test remover
KILLS(YSDFN,YSTN,YSIEN)	;
OLDKILL	;clean up scratch file
GETTSC(YSCRA,YS)	;patch 123, calculate Scale scores from Scratch Global ; input: DFN as Patient Ien ; input: CODE as Instrument name- 601.71 ; input: HANDLE= identifer for cprs GIU ; output: Temp SCALE SCORES in format: '*' + Scale IEN + '~' + Scale Score
MAPSCR	;
CMPLX	;
SETARR(SCARR,NODE)	;
ANSWER(YSQN)	;

Name	Field # of Occurrence
C^%DTC	OLDKILL+2
H^%DTC	GETSCR+16, GETSCR+24, MAPSCR+3, MAPSCR+11
NOW^%DTC	SETSCR+15, GETSCR+15, MAPSCR+2
^DIK	KILLS+10, OLDKILL+6
$$GET1^DIQ	GETTSC+22, ANSWER+2
SCALEG^YTQAPI3	GETTSC+20

RPC Name	Call Tags
YTQ SET SCRATCH	SETSCR
YTQ GET SCRATCH	GETSCR
YTQ KILL SCRATCH	KILLSCR
YTQ GET SCRATCH SCORES	GETTSC

FileNo	Call Tags
^YTT(601.71 - [#601.71]	GET1^DIQ
^YTT(601.72 - [#601.72]	GET1^DIQ
^YTT(601.94 - [#601.94]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	GETSCR+7!, GETSCR+8, GETSCR+13, GETSCR+14, GETSCR+29, GETSCR+32, GETSCR+33, GETSCR+34, GETTSC+12!, GETTSC+13 , GETTSC+14, GETTSC+15, GETTSC+16, GETTSC+35, GETTSC+38, MAPSCR+24, MAPSCR+25, CMPLX+2, CMPLX+4, CMPLX+16* , CMPLX+18, CMPLX+19, CMPLX+21*, CMPLX+22!, SETARR+3, SETARR+4
^XUSEC("YSPROG"	NEW+4
^YTT(	NEW+5, NEW+8, NEW+10, NEW+12, NEW+13, NEW+14*, NEW+15
^YTT(601.71 - [#601.71]	SETSCR+12, GETSCR+12, KILLSCR+12, GETTSC+10
^YTT(601.75 - [#601.75]	GETTSC+33
^YTT(601.76 - [#601.76]	CMPLX+9, CMPLX+11
^YTT(601.91 - [#601.91]	GETTSC+28, GETTSC+29
^YTT(601.94 - [#601.94]	SETSCR+25, SETSCR+30, SETSCR+31, SETSCR+32, SETSCR+33, SETSCR+34, SETSCR+35, SETSCR+37*, SETSCR+38, GETSCR+18 , GETSCR+19, GETSCR+26, GETSCR+30, GETSCR+32, KILLSCR+15, MULTT+1, MULTT+3, KILLS+2, KILLS+6, KILLS+11 , OLDKILL+5, OLDKILL+6, MAPSCR+5, MAPSCR+6, MAPSCR+20, MAPSCR+21

Name	Line Occurrences
$$ANSWER	MAPSCR+19
$$NEW	SETSCR+19
@(	CMPLX+15
CMPLX	GETTSC+23
KILLS	KILLSCR+16, MULTT+4
MAPSCR	GETTSC+18
MULTT	KILLSCR+11
SETARR	GETTSC+25, CMPLX+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SETSCR+7~, SETSCR+15, GETSCR+6~, GETSCR+15, GETTSC+6~, MAPSCR+2
>> %H	GETSCR+16, GETSCR+24, MAPSCR+3, MAPSCR+11
>> %T	GETSCR+16, GETSCR+24, MAPSCR+3, MAPSCR+11
>> ANS	MAPSCR+21*, MAPSCR+22
ARR	GETTSC+6~, MAPSCR+24, CMPLX+2
ARR(	GETTSC+31, MAPSCR+16, MAPSCR+18, MAPSCR+22, CMPLX+8, CMPLX+12*, CMPLX+13
DA	KILLSCR+5~, KILLS+1~, KILLS+8, OLDKILL+1~, OLDKILL+6
DIK	KILLSCR+5~, KILLS+1~, KILLS+9, OLDKILL+1~, OLDKILL+4
>> DILOCKTM	SETSCR+25, NEW+8, KILLS+6
DT	OLDKILL+2
DUZ	SETSCR+30, SETSCR+33, NEW+4, GETSCR+21, KILLSCR+15, MULTT+1, MULTT+3, KILLS+4, MAPSCR+8
FAIL	GETTSC+6~, GETTSC+11, GETTSC+18, MAPSCR+24, CMPLX+1~, CMPLX+2, CMPLX+4
G	GETSCR+6~, GETSCR+19, GETSCR+20, GETSCR+21, GETSCR+22, GETSCR+23, GETSCR+27, GETSCR+29, GETTSC+6~, GETTSC+29 , GETTSC+30, MAPSCR+6*, MAPSCR+7, MAPSCR+8, MAPSCR+9, MAPSCR+10, MAPSCR+13, MAPSCR+16
G2	GETSCR+6~, GETSCR+26*
I	CMPLX+1~, CMPLX+18, CMPLX+19, SETARR+2~, SETARR+3, SETARR+4
IX	SETARR+2~, SETARR+5*, SETARR+7
MHQ2X	NEW+2~, NEW+10*, NEW+12, NEW+13, NEW+16
>> MHQ2XFND	NEW+10, NEW+11*
N	SETSCR+7~, SETSCR+17, SETSCR+18, SETSCR+30, SETSCR+37, GETSCR+6~, KILLSCR+5~, GETTSC+6~, GETTSC+36, GETTSC+38 , CMPLX+1~, CMPLX+7, CMPLX+13, CMPLX+17, CMPLX+21
N1	GETSCR+6~, GETSCR+17, GETSCR+28, GETSCR+29, GETSCR+31*, GETSCR+32, GETTSC+6~
N2	SETSCR+7~, SETSCR+37, GETSCR+6~, GETSCR+30, GETSCR+32, GETTSC+6~
N3	SETSCR+7~, SETSCR+37*
NODE	SETARR~, SETARR+5, SETARR+6, ANSWER+1~, ANSWER+2*, ANSWER+3
NX	MAPSCR+1~, MAPSCR+20*, MAPSCR+21, MAPSCR+22
QUE	CMPLX+1~, CMPLX+7, CMPLX+8, CMPLX+9, CMPLX+12, CMPLX+13
SCA	GETTSC+6~, GETTSC+26, GETTSC+27, GETTSC+28, GETTSC+36, GETTSC+37, GETTSC+38, CMPLX+1~, CMPLX+19, CMPLX+20 , CMPLX+21, SETARR+2~, SETARR+4, SETARR+5, SETARR+6
SCARR	GETTSC+6~, GETTSC+25, CMPLX+6, SETARR~
SCARR(	GETTSC+27, GETTSC+37, GETTSC+38, CMPLX+21, SETARR+7
SNM	CMPLX+1~, CMPLX+20, CMPLX+21, SETARR+2~, SETARR+4, SETARR+5
STR	GETTSC+6~, GETTSC+36, CMPLX+11, CMPLX+13
STR1	SETARR+2~, SETARR+4*
U	SETSCR+8, SETSCR+30, NEW+5, NEW+13, NEW+14, GETSCR+20, GETSCR+21, GETSCR+22, GETSCR+23, GETSCR+27 , GETSCR+29, GETSCR+32, KILLS+3, KILLS+4, KILLS+5, GETTSC+30, MAPSCR+7, MAPSCR+8, MAPSCR+9, MAPSCR+10 , MAPSCR+13, MAPSCR+16, MAPSCR+22, CMPLX+10, CMPLX+12, CMPLX+13, CMPLX+21, SETARR+4
VAL	SETARR+2~, SETARR+6*, SETARR+7
X	SETSCR+7~, GETSCR+6~, GETSCR+15, GETSCR+23, OLDKILL+1~, OLDKILL+3, GETTSC+6~, MAPSCR+2, MAPSCR+10
X1	GETSCR+6~, GETSCR+16, GETSCR+25, OLDKILL+1~, OLDKILL+2, GETTSC+6~, MAPSCR+3*, MAPSCR+12
X2	GETSCR+6~, GETSCR+24, GETSCR+25, OLDKILL+1~, OLDKILL+2, GETTSC+6~, MAPSCR+11*, MAPSCR+12
Y	SETSCR+7~
YS	SETSCR~, NEW+2~, NEW+5, NEW+6, NEW+7*, NEW+10, GETSCR~, KILLSCR~, GETTSC~, GETTSC+20
YS(	SETSCR+18, SETSCR+30, SETSCR+37
YS("CODE"	SETSCR+8, SETSCR+11, GETSCR+10, KILLSCR+10, GETTSC+8
YS("DFN"	SETSCR+10, GETSCR+9, KILLSCR+7, GETTSC+7
YS("HANDLE"	SETSCR+9, GETSCR+11, KILLSCR+9, GETTSC+9
YS76	CMPLX+1~, CMPLX+9*, CMPLX+11
YSCH	GETTSC+5~, GETTSC+31*, GETTSC+32, GETTSC+33
YSCH1	GETTSC+5~, GETTSC+33*, GETTSC+34
YSCODE	SETSCR+7~, SETSCR+11, SETSCR+12, GETSCR+6~, GETSCR+10, GETSCR+12, KILLSCR+10, KILLSCR+11, KILLSCR+12, GETTSC+5~ , GETTSC+8, GETTSC+10, CMPLX+10
YSCRA	GETTSC~, GETTSC+13*
YSDATA	SETSCR~, GETSCR~, GETSCR+7*, KILLSCR~, GETTSC+20, CMPLX+1~
YSDATA(	CMPLX+13*
YSDATA(1	SETSCR+8, SETSCR+22, SETSCR+28, SETSCR+39, KILLSCR+6, KILLSCR+17, MULTT+5*
YSDATA(2	SETSCR+8, SETSCR+13, SETSCR+14, SETSCR+23, SETSCR+29, SETSCR+39, KILLSCR+8, KILLSCR+13, CMPLX+10*
YSDFN	SETSCR+7~, SETSCR+10, SETSCR+13, SETSCR+30, SETSCR+33, GETSCR+6~, GETSCR+9, GETSCR+13, GETSCR+20, KILLSCR+5~ , KILLSCR+7, KILLSCR+8, KILLSCR+15, KILLSCR+16, MULTT+1, MULTT+3, MULTT+4, KILLS~, KILLS+3, GETTSC+5~ , GETTSC+7, GETTSC+15, MAPSCR+7
YSFILEN	NEW~, NEW+5, NEW+8, NEW+10, NEW+12, NEW+13, NEW+14, NEW+15
YSFLAG	SETSCR+7~, SETSCR+16, SETSCR+21, SETSCR+27*, SETSCR+39
YSHANDLE	SETSCR+7~, SETSCR+9, SETSCR+31, SETSCR+33, SETSCR+35, GETSCR+6~, GETSCR+11, GETSCR+18, KILLSCR+9, KILLSCR+15 , MULTT+3, GETTSC+5~, GETTSC+9, MAPSCR+5
YSIEN	SETSCR+7~, SETSCR+19, SETSCR+20, SETSCR+25, SETSCR+30, SETSCR+31, SETSCR+32, SETSCR+33, SETSCR+34, SETSCR+35 , SETSCR+37, SETSCR+38, GETSCR+6~, GETSCR+17, GETSCR+18, GETSCR+19, GETSCR+26, GETSCR+30, GETSCR+32, KILLSCR+5~ , KILLSCR+14, KILLSCR+15, KILLSCR+16, MULTT+2, MULTT+3, MULTT+4, KILLS~, KILLS+2, KILLS+8, GETTSC+5~ , MAPSCR+4, MAPSCR+5*, MAPSCR+6, MAPSCR+20, MAPSCR+21
YSKEYI	GETTSC+5~, GETTSC+28*, GETTSC+29
YSNODE0	KILLS+1~, KILLS+2*, KILLS+3, KILLS+4, KILLS+5
YSNOW	SETSCR+7~, SETSCR+15*, SETSCR+30, SETSCR+34
YSOUT	OLDKILL+1~, OLDKILL+3*, OLDKILL+5
YSPROG	NEW+3!, NEW+4*, NEW+6, NEW+7
YSQN	GETSCR+6~, GETSCR+27, GETSCR+32, GETTSC+5~, GETTSC+30, GETTSC+31, MAPSCR+13*, MAPSCR+14, MAPSCR+16, MAPSCR+18 , MAPSCR+19, MAPSCR+22, ANSWER~, ANSWER+2
YSRAW	GETTSC+5~, GETTSC+27, GETTSC+34
YSRDATE	GETSCR+6~, KILLSCR+5~
YSRTN	CMPLX+1~, CMPLX+14*, CMPLX+15
YSRTN71	GETTSC+5~, GETTSC+22*, GETTSC+23, CMPLX+14
YSTARG	GETTSC+5~, GETTSC+30*, GETTSC+34
YSTN	SETSCR+7~, SETSCR+12, SETSCR+14, SETSCR+30, SETSCR+33, GETSCR+6~, GETSCR+12, GETSCR+14, GETSCR+22, KILLSCR+5~ , KILLSCR+12, KILLSCR+13, KILLSCR+15, KILLSCR+16, MULTT+1, MULTT+3, MULTT+4, KILLS~, KILLS+5, GETTSC+5~ , GETTSC+10*, GETTSC+16, GETTSC+22, MAPSCR+9
YSVAL	GETTSC+5~, GETTSC+30*, GETTSC+34
YSWHEN	OLDKILL+1~, OLDKILL+5*, OLDKILL+6

Customize PDF page

Package: Mental Health

Routine: YTQPXRM8

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: