Routine: GMTSGAF

Information

GMTSGAF ; SLC/KER - MH Gbl Assessment Funct (GAF) ; 6/20/05 1:44pm

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Health Summary	2	REGDTM4^GMTSU CKP^GMTSUP
VA Fileman	2	^%DT C^%DTC
Kernel	1	($$FMADD,$$FMTE,$$NOW)^XLFDT
Registration	1	DEM^VADPT
Uncategorized	1	GAFHX^YSGAFAPI

Entry Points

Name	Comments	DBIA/ICR reference
TOD(X)	; Today
EN	; Global Assessment Functioning Score
HDR	; Header
GET	; Get and Format Data
ERR(X)	; Entered in Error
DTM(X)	; Current Date and Time (External)
B(X,Y)	; Graph Bar
DEC(X)	; Deceased Date
SD(GMTSI,DFN,GMTSCORE,GMTSDATE,GMTSPROV,GMTSCOM)	; Save Data
ITM(X)	; convert inverse internal date to internal date to external date
GAF(X)	; 2 Digit GAF Score
ETF(X)	; External to Fileman format
TOM(X)	; Tomorrow
EXT(X)	; convert inverse internal date to internal date, add one day, then to external date
DUE(X)	; GAF Score Due Date
LINE	; Output One Line
SPC	; Get Special Case (Deceased, Due, Entered-in-Error)
OUT	; Output

External References

Name	Field # of Occurrence
^%DT	ITM+4, EXT+4, ETF+1
C^%DTC	ITM+5
REGDTM4^GMTSU	DTM+1
CKP^GMTSUP	LINE+1, HDR+2, HDR+3, HDR+4
DEM^VADPT	DEC+2
$$FMADD^XLFDT	EN+2, EN+3, EN+4, EN+5, DUE+3, EXT+6, TOM+1
$$FMTE^XLFDT	GET+3, GET+5, GET+7, GET+11, ITM+4, ITM+7, EXT+4, EXT+7, TOM+1
$$NOW^XLFDT	EN+2, EN+4, ITM+5, EXT+4, TOM+1, TOD+1, DTM+1
GAFHX^YSGAFAPI	GET+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?GMTSCS(1),$J($E(GMTSCORE,1,3),3),?GMTSCS(2),GMTSDATE,?GMTSCS(3),$E(GMTSPROV,1,GMTSCW(3)),?GMTSCS(4),GMTSCOM,! Line Location: LINE+1
Function Call: WRITE	Prompt: ?GMTSCS(1)," GAF ",?GMTSCS(2),"Date",! Line Location: HDR+2
Function Call: WRITE	Prompt: ?GMTSCS(1),"Score",?GMTSCS(2),"Determined",?GMTSCS(3),"Determined by",?GMTSCS(4),"Graph/Comment",! Line Location: HDR+3
Function Call: WRITE	Prompt: ?GMTSCS(1),GMTSI,! Line Location: HDR+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN+9, SPC+1, DEC+1
^TMP($J	EN+21, OUT+1, OUT+2, OUT+4!, GET+1!, SD+7*

Label References

Name	Line Occurrences
$$B	GET+12
$$DEC	SPC+2
$$DTM	EN+7
$$DUE	SPC+2
$$ERR	SPC+3
$$ETF	ERR+4
$$EXT	EN+13
$$GAF	SD+1
$$ITM	EN+13
$$TOD	GET+5
$$TOM	EN+13
GET	EN+21
HDR	OUT+1, LINE+1, HDR+2, HDR+3, HDR+4
LINE	OUT+3
OUT	EN+21
SD	GET+3, GET+5, GET+13
SPC	GET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+10~, DEC+1~
%DT	EN+10~, GET+1~, ETF+1~*
%H	EN+10~, DEC+1~
%I	EN+10~, DEC+1~
%T	EN+10~, DEC+1~
%X	EN+10~, DEC+1~
DFN	EN+9, EN+19, EN+21, OUT+1, OUT+2, OUT+4, GET+1, GET+3, GET+5, GET+13 , SPC+1, SPC+2, SD~, SD+1, SD+7, DEC+1~*
>> GMTS1	EN+2, EN+4, EN+6*, EN+13
>> GMTS2	EN+2, EN+6, EN+13
GMTSBAR	EN+11~, B+1~, B+4, B+5, B+6
>> GMTSBEG	EN+2, EN+3, EN+6
GMTSCHAR	B+1~, B+2*, B+4, B+5
GMTSCNT	EN+11~, ERR+1~, ERR+5, ERR+6
GMTSCOM	EN+11~, OUT+1~, OUT+3, LINE+1, GET+1~, GET+3, GET+5, GET+10, GET+11, GET+12 , GET+13, SD~, SD+7
GMTSCORE	EN+11~, OUT+1~, OUT+3, LINE+1, GET+1~, GET+9, GET+12, GET+13, SD~, SD+1* , SD+7
GMTSCS	EN+11~
GMTSCS(1	EN+18*, LINE+1, HDR+2, HDR+3, HDR+4
GMTSCS(2	EN+18*, LINE+1, HDR+2, HDR+3
GMTSCS(3	EN+18*, LINE+1, HDR+3
GMTSCS(4	EN+18*, LINE+1, HDR+3
GMTSCW	EN+11~, B+1~*, B+4, B+5
GMTSCW("L"	EN+17*, HDR+1
GMTSCW(0	EN+15*, EN+16
GMTSCW(1	EN+16*, EN+17, EN+18
GMTSCW(2	EN+16*, EN+17, EN+18
GMTSCW(3	EN+16*, EN+17, EN+18, LINE+1
GMTSCW(4	EN+16*, EN+17
GMTSDATE	EN+11~, OUT+1~, OUT+3, LINE+1, GET+1~, GET+7, GET+8, GET+13, SD~, SD+4* , SD+5, SD+6, SD+7, ERR+1~, ERR+4, ERR+5, DUE+1~, DUE+2, DUE+3
GMTSDT	EN+11~, GET+1~, GET+3, GET+5, GET+7*, GET+13
>> GMTSDTM	EN+7*
>> GMTSEND	EN+2, EN+4, EN+5*, EN+6
GMTSGAF	EN+12~, ERR+1~, ERR+2, ERR+3, ERR+4, B+1~, B+2, B+3, B+4, B+5
GMTSGAF1	EN+12~, EN+13*, EN+20
GMTSGAF2	EN+12~, EN+13*, EN+19
GMTSGAF3	EN+12~, EN+13*, EN+19
GMTSGAFN	EN+12~, EN+14*, EN+20
GMTSGPH	GET+1~*
GMTSI	EN+12~, OUT+1~, OUT+2, HDR+1~, HDR+4, SPC+1~, SPC+2, SPC+3, SD~, SD+3* , SD+5, ERR+1~, ERR+2, ERR+5, DUE+1~, DUE+2, B+1~, B+5
GMTSIG	SD+1~, SD+2, SD+5*, SD+7
GMTSJ	EN+12~, OUT+1~, OUT+2, OUT+3, ERR+1~, ERR+3, ERR+4, DUE+1~, DUE+2
GMTSLEN	EN+12~, B+1~, B+5*
>> GMTSLO	EN+7*
>> GMTSLPG	EN+7*
>> GMTSNDM	EN+1
>> GMTSNPG	LINE+1, HDR+2, HDR+3, HDR+4
GMTSPROV	EN+12~, OUT+1~, OUT+3, LINE+1, GET+1~, GET+9, GET+13, SD~, SD+4*, SD+5 , SD+7
>> GMTSQIT	LINE+1, HDR+2, HDR+3, HDR+4
GMTSRV	EN+12~
>> GMTSTITL	EN+8*
I	EN+10~, GET+6~*, GET+7, GET+9, GET+10, GET+13
IOM	EN+15
MAX	EN+1~*, EN+14
N	EN+10~
SAVX	ITM+1~, ITM+3, ITM+5, ITM+6, EXT+1~, EXT+3, EXT+4, EXT+5
VA	EN+10~, DEC+1~
VADM	EN+10~, DEC+1~
VADM(6	DEC+2
VAERR	EN+10~, DEC+1~
X	EN+10~, GET+1~, ERR~, ERR+6, DUE~, DUE+3, ITM~, ITM+2, ITM+3, ITM+4 , ITM+5, ITM+6, ITM+7, ITM+8, EXT~, EXT+2, EXT+3, EXT+4, EXT+5, EXT+6 , EXT+7, EXT+8, ETF~, ETF+1, TOM~, TOM+1, TOD~, TOD+1, DEC~, DEC+1 , DEC+2, B~, B+1, B+6, GAF~, GAF+1, DTM~, DTM+1
>> X1	ITM+5*
>> X2	ITM+5*
Y	EN+10~, GET+1~, ITM+4, EXT+4, ETF+1~, B~, B+1
YS	EN+10~, GET+1
YS("BEGIN"	EN+19*
YS("DFN"	EN+19*
YS("END"	EN+20*
YS("LIMIT"	EN+20*
YSGAF	EN+10~, GET+1!
YSGAF(	GET+6, GET+7, GET+9, ERR+1, ERR+2, DUE+2
YSGAF("DEC"	GET+2, GET+3, GET+8, SPC+2*, SPC+3
YSGAF("DUE"	GET+4, GET+5, SPC+2*, SPC+3!
YSGAF("ERR"	GET+10, GET+13, SPC+3, ERR+3, ERR+5*
YSGAF("P"	SPC+1*
YSGAF(1	DUE+1*
YSGAF(2	DUE+1

Customize PDF page

Package: Health Summary

Routine: GMTSGAF

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: