Routine: GMTSDGCH

Package	Total	Call Graph
Health Summary	5	GETFADM^GMTSDGA2 OTHER^GMTSDGC1 (ICDP,ICDS)^GMTSDGC2 ($$NDBI,$$ROK,REGDT4,REGDTM4)^GMTSU CKP^GMTSUP
Registration	1	(ELIG,IN5,KVAR)^VADPT
Uncategorized	1	(DSP,LST)^A7RHSM
VA Fileman	1	EN^DIQ1

Package

Total

Call Graph

Health Summary

GETFADM^GMTSDGA2 OTHER^GMTSDGC1 (ICDP,ICDS)^GMTSDGC2 ($$NDBI,$$ROK,REGDT4,REGDTM4)^GMTSU CKP^GMTSUP

Registration

(ELIG,IN5,KVAR)^VADPT

Uncategorized

(DSP,LST)^A7RHSM

VA Fileman

EN^DIQ1

Entry Points

Name	Comments	DBIA/ICR reference
MVTS	; Loop through mvts chronologically, per admission
GET	; D IN5^VADPT for each mvt, print info
PRNT	; output line of data
SETUTL	; Set ^UTILITY array
NEXT1	; Next ^UTILITY($J,"GMTSMVTS",<inverse date>) - "ATS"
NEXT2	; Next ^UTILITY($J,"GMTSMVTS",<date>) - "APCA"
DISAB	; Disability Display
MAIN	; Loop through admissions starting from most recent
FADM	; Future Admissions

External References

Name	Field # of Occurrence
DSP^A7RHSM	MAIN+5
LST^A7RHSM	MAIN+4
EN^DIQ1	DISAB+13
GETFADM^GMTSDGA2	FADM+3
OTHER^GMTSDGC1	PRNT+20
ICDP^GMTSDGC2	MAIN+7
ICDS^GMTSDGC2	MAIN+7
$$NDBI^GMTSU	MAIN+4, MAIN+5
$$ROK^GMTSU	MAIN+4, MAIN+5
REGDT4^GMTSU	FADM+8
REGDTM4^GMTSU	PRNT+1
CKP^GMTSUP	MVTS+5, PRNT+2, DISAB+4, DISAB+6, DISAB+8, DISAB+14, DISAB+15, FADM+9, FADM+11, FADM+12 , FADM+15
ELIG^VADPT	DISAB+2
IN5^VADPT	MVTS+4, GET+3
KVAR^VADPT	MAIN+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: X,?18,TT,?23,$E(TYPE,1,56),! Line Location: PRNT+9
Function Call: WRITE	Prompt: ?3,AWS,?56,SPEC,! Line Location: PRNT+12
Function Call: WRITE	Prompt: ?7,AWS,?56,WARD,! Line Location: PRNT+18
Function Call: WRITE	Prompt: "Eligibility: ",$E($P(VAEL("EL"),U,2),1,40) Line Location: DISAB+4
Function Call: WRITE	Prompt: !," No rated disabilities" Line Location: DISAB+8
Function Call: WRITE	Prompt: !?3,GMTSDIS(2.04,DA,.01,"E"),?51,$J(GMTSDIS(2.04,DA,2,"E"),3),"%",?60,$S(GMTSDIS(2.04,DA,3,"E")="YES":"S/C",1:"NSC") Line Location: DISAB+14
Function Call: WRITE	Prompt: ! Line Location: DISAB+15
Function Call: WRITE	Prompt: ! Line Location: FADM+9
Function Call: WRITE	Prompt: X,?16,"Scheduled Admission",?56,$E($P(NODE,U,5),1,12),?69,$E($P(NODE,U,3),1,10),! Line Location: FADM+11
Function Call: WRITE	Prompt: ?11,"Adm. Diag.: ",$P(NODE,U,2) Line Location: FADM+13
Function Call: WRITE	Prompt: ?56,"Expected LOS: ",$P(NODE,U,6),! Line Location: FADM+14
Function Call: WRITE	Prompt: ?14,"Surgery: ",$P(NODE,U,4),! Line Location: FADM+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APCA"	SETUTL+3, NEXT2+1
^DGPM("ATID1"	MAIN+5, MVTS+1
^DGPM("ATS"	SETUTL+2, NEXT1+1, NEXT1+2
^DPT - [#2]	DISAB+7, DISAB+10
^TMP("GMFADM"	FADM+2!, FADM+4, FADM+6, FADM+7, FADM+17!
^UTILITY($J	MAIN+8!, MVTS+3!, MVTS+8, MVTS+10!, GET+1, GET+3, NEXT1+3, NEXT2+2

Name	Line Occurrences
DISAB	MAIN+3
FADM	MAIN+3
GET	MVTS+8
MVTS	MAIN+6
NEXT1	SETUTL+2
NEXT2	SETUTL+3
PRNT	MVTS+5, GET+4
SETUTL	MVTS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A7RHS	MAIN+4, MAIN+9!
ADA	MAIN+1~, MVTS+1*, MVTS+4, GET+1, SETUTL+2, SETUTL+3, NEXT1+1, NEXT1+2, NEXT2+1, NEXT2+2
ADM	MAIN+1~, MAIN+2, MAIN+5, MVTS+1
ATTN	PRNT+3~, PRNT+14*, PRNT+16, PRNT+17, PRNT+19
AWS	PRNT+11~, PRNT+12, PRNT+17, PRNT+18
CNTR	MAIN+1~, MAIN+2, MAIN+5, MVTS+9
CODE	MAIN+1~, PRNT+3~, PRNT+5*, PRNT+7, PRNT+20
DA	DISAB+11~, DISAB+12*, DISAB+14
>> DFN	MAIN+4, MAIN+5, MAIN+7, MVTS+1, PRNT+20, SETUTL+2, SETUTL+3, NEXT1+1, NEXT1+2, NEXT2+1 , DISAB+7, DISAB+10, DISAB+12
DIC	DISAB+11~, DISAB+12*
DIQ	DISAB+11~, DISAB+12*
DIQ(0	DISAB+12*
DOC	MAIN+1~, PRNT+3~, PRNT+4*, PRNT+10, PRNT+11, PRNT+13
DR	DISAB+11~, DISAB+12*
FLAG	MAIN+1~, MAIN+2, MVTS+5, PRNT+21, DISAB+3, FADM+9, FADM+10
GMC	MAIN+1~, MAIN+2, MAIN+6, PRNT+8*
GMDT	FADM+1~, FADM+5, FADM+6, FADM+7
GMMDA	MAIN+1~, MVTS+4, GET+3, PRNT+20
>> GMTS1	MAIN+2
>> GMTS2	MAIN+5
GMTSDIS	DISAB+11~
GMTSDIS(	DISAB+14
GMTSI	DISAB+1~, DISAB+9, DISAB+10, DISAB+12
>> GMTSNDM	MAIN+2
>> GMTSQIT	MVTS+5, PRNT+2, DISAB+4, DISAB+6, DISAB+8, DISAB+14, DISAB+15, FADM+9, FADM+11, FADM+12 , FADM+15
GMW	DISAB+1~
IM	MAIN+1~
IN	MAIN+1~
ITS	MAIN+1~
MDA	MAIN+1~, NEXT2+1*, NEXT2+2
MDM	MAIN+1~, MVTS+7, MVTS+8, GET+1, GET+3, SETUTL+1, SETUTL+3, NEXT2+1, NEXT2+2
NODE	FADM+1~, FADM+7*, FADM+8, FADM+11, FADM+13, FADM+14, FADM+16
PREVAP	MVTS+2~, PRNT+16, PRNT+19*
PREVDR	MVTS+2~, PRNT+10, PRNT+13*
PREVSP	MVTS+2~, PRNT+10, PRNT+13*
PREVWD	MVTS+2~, PRNT+16, PRNT+19*
PTF	MAIN+1~, MAIN+7, PRNT+6*, PRNT+20
SPEC	MAIN+1~, PRNT+3~, PRNT+5*, PRNT+10, PRNT+12, PRNT+13
TS	MAIN+1~, NEXT1+1*, NEXT1+2
TSDA	MAIN+1~, NEXT1+2*, NEXT1+3
TSDM	MAIN+1~, SETUTL+1, SETUTL+2, NEXT1+1, NEXT1+2, NEXT1+3
TT	MAIN+1~, PRNT+7*, PRNT+9
TYPE	MAIN+1~, PRNT+3~, PRNT+4*, PRNT+9
U	PRNT+1, PRNT+4, PRNT+5, DISAB+4, DISAB+5, DISAB+6, FADM+8, FADM+11, FADM+13, FADM+14 , FADM+16
VA	DISAB+1~
VA200	MAIN+1~, MAIN+2*
VADM	DISAB+1~
VAEL	DISAB+1~
VAEL("EL"	DISAB+2, DISAB+4
VAEL("ES"	DISAB+5
VAEL("SC"	DISAB+6
VAERR	DISAB+1~
VAHOW	MAIN+1~, MAIN+2*
VAIP	MAIN+1!, MVTS+2~, MVTS+5, GET+2!, GET+4, PRNT+20
VAIP(	PRNT+5
VAIP("AP"	PRNT+14
VAIP("DR"	PRNT+4
VAIP("E"	MVTS+4, GET+3
VAIP("MD"	PRNT+1
VAIP("MT"	PRNT+4
VAIP("PT"	PRNT+6
VAIP("TT"	PRNT+5
VAIP("WL"	PRNT+15
VAPA	DISAB+1~
WARD	PRNT+3~, PRNT+15*, PRNT+16, PRNT+18, PRNT+19
X	MAIN+1~, PRNT+1, PRNT+9, FADM+1~, FADM+8, FADM+11

Customize PDF page

Package: Health Summary

Routine: GMTSDGCH

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: