Routine: YSMTI

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMDIFF,$$FMTE)^XLFDT
VA FileMan	2	^DIC ^DIR
Mental Health	1	^YSMTI0
Registration	1	(DEM,PID)^VADPT

Package	Total	Caller Graph
Mental Health	2	YSMTI0 YT MTI

Entry Points

Name	Comments	DBIA/ICR reference
PTALL	; SELECT PT
SELTST	;select test
SELSCAL	;
ENTASK	;taskman entry
HDR	;
CR	;loop thru TMP
CR1
ENFRNT	;
LK2	;LOOP THRU DATES
EXEC	;SELECT TYPE OF TEST AND EXECUTE PROPER RTN
FSD	;file scale data
FSD1	;
FRONT	; front end output
FOUT2
FRONT1
TLIST	;list of tests for a pt

External References

Name	Field # of Occurrence
^%ZIS	SELSCAL+4
HOME^%ZIS	SELSCAL+6
^%ZISC	SELSCAL+6
^%ZTLOAD	SELSCAL+5
^DIC	PTALL+1, SELTST+1, SELSCAL+3
^DIR	SELSCAL+1
DEM^VADPT	ENFRNT+1
PID^VADPT	ENFRNT+1
$$FMDIFF^XLFDT	CR1+1
$$FMTE^XLFDT	CR1+3, FRONT1+2
^YSMTI0	SELSCAL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?10,"Psychological Testing Mutliple Administraion Reporting",! Line Location: YSMTI+3
Function Call: WRITE	Prompt: !,"No Tests found" Line Location: PTALL+3
Function Call: WRITE	Prompt: !,"Only Tests can be graphed" Line Location: SELTST+2
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"QUEUED",1:"Not queued"),$C(7) Line Location: SELSCAL+5
Function Call: WRITE	Prompt: @IOF,!?7,"** M U L T I P L E T E S T A D M I N I S T R A T I O N S **" Line Location: HDR+2
Function Call: WRITE	Prompt: !,VADM(1),?40,"SSN: xxx-xx-"_$E($P(VADM(2),U,2),8,11)," ",$P(VADM(5),U,2),?60," DOB: ",$P(VADM(3),U,2) Line Location: HDR+3
Function Call: WRITE	Prompt: !?(72-$L(X)/2),X Line Location: HDR+4
Function Call: WRITE	Prompt: !,YSLN,!?(72-$L(X)/2),X,!,YSLN Line Location: HDR+5
Function Call: WRITE	Prompt: !,"Entered: Days between Raw Scaled" Line Location: HDR+6
Function Call: WRITE	Prompt: !! Line Location: CR+2
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(YSED,"5ZD"),?14,$S(YSED1:$J(YSED1,5),1:" "),?24,$J(R,6)," ",$J(S,6) Line Location: CR1+3
Function Call: WRITE	Prompt: "11111<BOT>",$C(13) Line Location: FRONT+3
Function Call: WRITE	Prompt: "<EOT>",$C(13) Line Location: FOUT2+1
Function Call: WRITE	Prompt: Y1,$C(13) Line Location: FRONT1+3
Function Call: WRITE	Prompt: "11111<BOT>",$C(13) Line Location: TLIST+1
Function Call: WRITE	Prompt: YSTEST_U_$P(^YTT(601,YSTEST,0),U)_U_$P(^YTT(601,YSTEST,"P"),"---",2)_$C(13) Line Location: TLIST+2
Function Call: WRITE	Prompt: "<EOT>",$C(13) Line Location: TLIST+3
Routine Call	%ZIS Line Location: SELSCAL+4
Routine Call	%ZIS Line Location: SELSCAL+6
Routine Call	DIC Line Location: PTALL+1 SELTST+1 SELSCAL+3
Routine Call	DIR Line Location: SELSCAL+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^YTD(601.2 - [#601.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("YSMTI"	PTALL+2!, CR+1, CR1, FSD+1, FSD+2, FSD1+1*, FRONT+1!, FOUT2, FRONT1
^YTD(601.2 - [#601.2]	PTALL+3, LK2+1, TLIST+2
^YTT(601 - [#601]	SELTST+1, SELTST+2, HDR+4, EXEC+1, FRONT1+2, TLIST+2
^YTT(601.6 - [#601.6]	EXEC+2, EXEC+3

Label References

Name	Line Occurrences
CR	SELSCAL+6, ENTASK+2
CR1	CR+1
ENFRNT	SELTST+3, ENTASK+2, FRONT+2
EXEC	LK2+1
FRONT1	FOUT2
FSD	LK2+1
FSD1	FSD+3
HDR	SELSCAL+6, ENTASK+2
SELSCAL	SELSCAL+2, SELSCAL+5, SELSCAL+7
SELTST	SELTST+2, SELSCAL+3

Naked Globals

Name	Field # of Occurrence
^(	FSD+2, FSD1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	SELSCAL+4*
>> DFN	ENFRNT+1*
DIC	PTALL+1!, SELTST+1!, SELSCAL+3!*
DIC("A"	PTALL+1, SELSCAL+3
DIC("W"	SELSCAL+3*
DIC(0	PTALL+1, SELTST+1, SELSCAL+3*
DIK	PTALL+1!
DIR	SELSCAL+1!
DIR("A"	SELSCAL+1*
DIR("B"	SELSCAL+1*
DIR(0	SELSCAL+1*
>> DIROUT	SELSCAL+1
>> I	FSD+2, FSD1+1
>> I1	FSD+3*, FSD1+1
IO	SELSCAL+6
IO("Q"	SELSCAL+5!
IOF	YSMTI+3, HDR+2
IOP	SELSCAL+4!
>> P3	FRONT+1, TLIST+1
>> P4	FRONT+1
>> P5	FRONT+1
>> POP	SELSCAL+4
R	CR1+1*, CR1+3, EXEC+1!, FSD+1, FSD+2
R(	FSD+3, FSD1+1
S	CR1+1*, CR1+3, EXEC+1!, FSD+2
S(	FSD1+1
U	SELTST+1, SELTST+2, SELSCAL+3, HDR+3, HDR+4, CR1+1, ENFRNT+2, EXEC+1, EXEC+3, FSD+2 , FSD1+1, FRONT1+2, TLIST+2
>> VA("PID"	ENFRNT+2
>> VADM(1	HDR+3, ENFRNT+2
>> VADM(2	HDR+3
>> VADM(3	HDR+3, ENFRNT+2
>> VADM(4	ENFRNT+2
>> VADM(5	HDR+3, ENFRNT+2
>> X	HDR+4, HDR+5, EXEC+1, EXEC+3
>> Y	PTALL+1, SELTST+1, SELSCAL+1, SELSCAL+2, SELSCAL+3, CR1, CR1+1, FRONT1*, FRONT1+2
>> Y(0	SELSCAL+3
>> Y1	FRONT1+2*, FRONT1+3
>> YSAGE	ENFRNT+2*
>> YSCALEN	SELSCAL+3, CR+1, CR1, FSD+3, FSD1+1*
>> YSCALET	SELSCAL+3*, HDR+5
>> YSDAT	LK2+1*
>> YSDFN	PTALL+1, PTALL+2, PTALL+3, CR+1, CR1, ENFRNT+1, LK2+1, FSD+1, FSD+2, FSD1+1 , FRONT+1, FOUT2, FRONT1, TLIST+1*, TLIST+2
>> YSDOB	ENFRNT+2*
>> YSED	CR+1, CR1, CR1+1, CR1+3, LK2+1, FSD+1, FSD+2, FSD1+1, FOUT2*, FRONT1 , FRONT1+2
>> YSED1	CR+1, CR1+1, CR1+3
>> YSET	SELTST+1, ENFRNT+1, EXEC+2, EXEC+3, FSD+1, FSD+2, FSD1+1, FRONT+1*, FOUT2, FRONT1 , FRONT1+2
>> YSLN	HDR+1*, HDR+5
>> YSNM	ENFRNT+2*
>> YSNSCALE	FRONT+1*, FOUT2, FRONT1, FRONT1+2
>> YSR(0	EXEC+2*, EXEC+3
>> YSSEX	ENFRNT+2*
>> YSSSN	ENFRNT+2*
>> YSSX	ENFRNT+2*
>> YSTEST	SELTST+1, SELTST+2, HDR+4, CR+1, CR1, ENFRNT+1, LK2+1, EXEC+1, FRONT+1, TLIST+2*
>> YSTESTA	SELTST+1*, SELSCAL+1
>> YSTN	EXEC+1*
>> ZTDESC	SELSCAL+5*
>> ZTQUEUED	ENTASK+1
>> ZTREQ	ENTASK+1*
>> ZTRTN	SELSCAL+5*
>> ZTSAVE("YS*"	SELSCAL+5*
>> ZTSK	SELSCAL+5

Customize PDF page

Package: Mental Health

Routine: YSMTI

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: