Routine: GMTSYTQS

Package	Total	Call Graph
Mental Health	3	ADMINS^YTQAPI5 GAFRET^YTQAPI6 GETSCORE^YTQAPI8
Health Summary	2	REGDTM4^GMTSU CKP^GMTSUP
VA FileMan	2	$$EXTERNAL^DILFD $$GET1^DIQ
Kernel	1	($$FMADD,$$NOW)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; MHA SCOREIT
OUT	; Output
SCORE	;
GAFSCORE	;
ASISCORE	;
LINE	; Output One Line
HDR	; Header
GET	; Get and Format Data
ASIGET	;
GAFGET	;get axis5
ITM(X)	; Inverse date to Mental Health formats
DTM(X)	; Current Date and Time (External)

External References

Name	Field # of Occurrence
$$EXTERNAL^DILFD	OUT+7, OUT+8
$$GET1^DIQ	ASISCORE+3, ASISCORE+4, ASISCORE+5, ASISCORE+6, ASISCORE+7, ASISCORE+8, ASISCORE+9
REGDTM4^GMTSU	ITM+1, DTM+1
CKP^GMTSUP	SCORE+10, LINE+1, HDR+2
$$FMADD^XLFDT	EN+5, EN+6, EN+7, EN+8
$$NOW^XLFDT	EN+5, EN+7, DTM+1
ADMINS^YTQAPI5	GET+10
GAFRET^YTQAPI6	GAFGET+3
GETSCORE^YTQAPI8	SCORE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?42,$J(GMTSRAW,5)," ",$J(GMTSTRA,8)," ",GMTSSCL,! Line Location: SCORE+12
Function Call: WRITE	Prompt: $J($P(GMTSJ,U,2),5),! Line Location: GAFSCORE+1
Function Call: WRITE	Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",8.12),5),$J($$GET1^DIQ(604,IFN_",",.61),8)," Medical",! Line Location: ASISCORE+3
Function Call: WRITE	Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",9.34),5),$J($$GET1^DIQ(604,IFN_",",.62),5)," Employment",! Line Location: ASISCORE+4
Function Call: WRITE	Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",11.18),5),$J($$GET1^DIQ(604,IFN_",",.63),5)," Alcohol",! Line Location: ASISCORE+5
Function Call: WRITE	Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",11.185),5),$J($$GET1^DIQ(604,IFN_",",.635),5)," Drug",! Line Location: ASISCORE+6
Function Call: WRITE	Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",14.34),5),$J($$GET1^DIQ(604,IFN_",",.64),5)," Legal",! Line Location: ASISCORE+7
Function Call: WRITE	Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",18.29),5),$J($$GET1^DIQ(604,IFN_",",.65),5)," Family",! Line Location: ASISCORE+8
Function Call: WRITE	Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",19.33),5),$J($$GET1^DIQ(604,IFN_",",.66),5)," Psychiatric",! Line Location: ASISCORE+9
Function Call: WRITE	Prompt: GMTSDAY,?20,$J($E(GMTSTN,1,20)_$S($L(GMTSTN)>20:"* ",1:" "),22) Line Location: LINE+3
Function Call: WRITE	Prompt: "Date",?31,"Instrument Raw Trans Scale",! Line Location: HDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^YTT(601.84 - [#601.84]	EXTERNAL^DILFD
^YSTX(604 - [#604]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN+12
^TMP("GMTSYTQS"	EN+3!, EN+17, OUT+4, OUT+5, OUT+14!, GET+19, GET+20, ASIGET+12, GAFGET+11*
^TMP("GMTSYTQSEG"	EN+3!, OUT+14!, GET+2!, GET+6*, GET+14, GET+22, GET+24
^TMP($J	SCORE+3, SCORE+4, SCORE+5
^YSD(627.8 - [#627.8]	GAFGET+7
^YSTX(604 - [#604]	ASIGET+4, ASIGET+5, ASIGET+7
^YTT(601.71 - [#601.71]	GET+6

Label References

Name	Line Occurrences
$$DTM	EN+10
$$ITM	OUT+6
ASIGET	GET+24
ASISCORE	OUT+12
GAFGET	GET+22
GAFSCORE	OUT+11
GET	EN+17
HDR	OUT+3, SCORE+11, LINE+2, HDR+2
LINE	OUT+10
OUT	EN+17
SCORE	OUT+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	GET+1~
>> DFN	EN+12*, SCORE+1, GET+10, ASIGET+4, GAFGET+3
G	ASIGET+1~, ASIGET+5, ASIGET+6, GAFGET+1~, GAFGET+6, GAFGET+7, GAFGET+11
GMTS1	EN+1~, EN+5, EN+7, EN+9*
GMTS2	EN+1~, EN+5, EN+9
GMTSAI	EN+1~, GET+6*
GMTSAJ	EN+1~, GET+6*
>> GMTSBEG	EN+5, EN+6, EN+9, GET+16, ASIGET+9, GAFGET+8
GMTSCC	EN+1~, GET+4*, GET+5, GET+6
GMTSCOR	EN+1~, SCORE+5*, SCORE+6, SCORE+8, SCORE+9
GMTSCS	EN+1~
GMTSCS(1	EN+16*
GMTSCS(2	EN+16*
GMTSCS(3	EN+16*
GMTSCS(4	EN+16*
GMTSCW	EN+1~
GMTSCW("L"	EN+15*, HDR+1
GMTSCW(0	EN+13*, EN+14
GMTSCW(1	EN+14*, EN+15, EN+16
GMTSCW(2	EN+14*, EN+15, EN+16
GMTSCW(3	EN+14*, EN+15, EN+16
GMTSCW(4	EN+14*, EN+15
GMTSDATA	EN+1~, SCORE+2, GET+10, GET+21!, GET+23!, GAFGET+3
GMTSDATA(	GET+12, GET+13, GET+15, GET+20, GAFGET+5, GAFGET+6
GMTSDATA(2	GAFGET+4
GMTSDATA(3	GET+11
GMTSDAY	EN+2~, OUT+6*, LINE+3
GMTSDTM	EN+2~, EN+10*
>> GMTSEG(	GET+4, GET+6
GMTSELS	ASIGET+1~, ASIGET+7*, ASIGET+8
>> GMTSEND	EN+5, EN+7, EN+8*, EN+9, GET+17, ASIGET+10, GAFGET+9
GMTSGIV	EN+2~, OUT+4, OUT+5, OUT+6, SCORE+1, GET+1~, GET+15, GET+16, GET+17, GET+19* , GET+20, ASIGET+6, ASIGET+9, ASIGET+10, ASIGET+12, GAFGET+7, GAFGET+8, GAFGET+9, GAFGET+11
GMTSI	EN+2~, OUT+1~, HDR+1~*
GMTSIEN	ASIGET+1~, ASIGET+3, ASIGET+4, ASIGET+5, ASIGET+7, ASIGET+12
GMTSJ	EN+2~, OUT+1~, OUT+5*, OUT+7, OUT+8, SCORE+1, GAFSCORE+1, ASISCORE+2
GMTSLO	EN+2~, EN+10*
GMTSLOC	EN+2~, OUT+8*
GMTSLPG	EN+2~, EN+10*
>> GMTSNDM	EN+4
GMTSNN	EN+2~, OUT+1~, OUT+2, OUT+4, OUT+9, GET+1~, GET+8, GET+12, GET+18, ASIGET+1~ , ASIGET+2, ASIGET+11, GAFGET+1~, GAFGET+2, GAFGET+5, GAFGET+10
GMTSNPG	EN+2~, SCORE+11, LINE+2, HDR+2
GMTSOR	EN+2~, OUT+7*
GMTSQIT	EN+2~, SCORE+10, LINE+1, HDR+2
GMTSRAW	EN+2~, SCORE+8*, SCORE+12
GMTSSCL	EN+2~, SCORE+6, SCORE+7, SCORE+12
GMTSTITL	EN+2~, EN+11*
GMTSTN	EN+2~, OUT+4, OUT+5, OUT+11, OUT+12, OUT+13, SCORE+1, LINE+3, GET+1~, GET+13 , GET+14, GET+19, GET+20
GMTSTRA	EN+2~, SCORE+9*, SCORE+12
GMTSX	EN+2~, SCORE+1!, SCORE+2, GET+9!, GET+10, GAFGET+3
GMTSX("AD"	SCORE+1*
GMTSX("ADATE"	SCORE+1*
GMTSX("CODE"	SCORE+1*
GMTSX("COMPLETE"	GET+10*
GMTSX("DFN"	SCORE+1, GET+10, GAFGET+3*
IFN	ASISCORE+1~, ASISCORE+2*, ASISCORE+3, ASISCORE+4, ASISCORE+5, ASISCORE+6, ASISCORE+7, ASISCORE+8, ASISCORE+9
IOM	EN+13
MAX	EN+2~, EN+4*, OUT+4, GET+12, GAFGET+5
N	EN+2~, SCORE+4, SCORE+5, GET+12, GET+13, GET+15, GET+20, GAFGET+1~, GAFGET+5*, GAFGET+6
U	OUT+7, OUT+8, SCORE+8, SCORE+9, GAFSCORE+1, GET+6, GET+13, GET+15, ASIGET+6, ASIGET+7 , GAFGET+7, GAFGET+11
X	GET+1~, ITM~, ITM+1, DTM~, DTM+1
Y	GET+1~

Customize PDF page

Package: Health Summary

Routine: GMTSYTQS

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: