Routine: GMTSDGA2

Package	Total	Call Graph
Health Summary	2	(MTIM,REGDT4)^GMTSU CKP^GMTSUP
VA Fileman	2	EN^DIQ1 ^DIWP

Package

Total

Call Graph

(MTIM,REGDT4)^GMTSU CKP^GMTSUP

EN^DIQ1 ^DIWP

Package	Total	Caller Graph
Health Summary	2	GMTSDGA GMTSDGCH

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
TSOUT	; Treating Speciality Output
GETFADM	; Get future scheduled admission data
FADM	; Future Scheduled admission output

Name	Field # of Occurrence
EN^DIQ1	GETFADM+8
^DIWP	TSOUT+5
MTIM^GMTSU	TSOUT+2
REGDT4^GMTSU	TSOUT+1, FADM+12
CKP^GMTSUP	TSOUT+4, TSOUT+6, FADM+8, FADM+9, FADM+13, FADM+15

Name	Line Occurrences
Function Call: WRITE	Prompt: ADT,?21,$E(SPEC,1,25),?48,"(",DDT,")",?63,$E($P(VAIP(7),U,2),1,15),! Line Location: TSOUT+4
Function Call: WRITE	Prompt: ?21,"Diag: " Line Location: TSOUT+6
Function Call: WRITE	Prompt: ?27,^UTILITY($J,"W",GMJ,GMJ1,0),! Line Location: TSOUT+6
Function Call: WRITE	Prompt: ! Line Location: FADM+8
Function Call: WRITE	Prompt: X," (Future)",?23,$E($P(NODE,U,5),1,24) Line Location: FADM+13
Function Call: WRITE	Prompt: ?49,"Expected LOS: ",$P(NODE,U,6),! Line Location: FADM+14
Function Call: WRITE	Prompt: "Admitting Diagnosis: ",$P(NODE,U,2) Line Location: FADM+16
Function Call: WRITE	Prompt: ?51,"Provider: ",$E($P(NODE,U,3),1,15),! Line Location: FADM+17

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	TSOUT+5
^DGS(41.1 - [#41.1]	GETFADM+2, GETFADM+5
^DIC(42.4 - [#42.4]	TSOUT+3
^DIC(45.7 - [#45.7]	TSOUT+3
^TMP("GMFADM"	FADM+2!, FADM+4, FADM+7, FADM+11, FADM+18!, GETFADM+3!, GETFADM+17*
^UTILITY($J	TSOUT+5!, TSOUT+6, TSOUT+7!

Name	Line Occurrences
GETFADM	FADM+3

Name	Field # of Occurrence
^(0	TSOUT+3

Name	Field # of Occurrence
>> ADA	TSOUT+5
>> ADATE	TSOUT+2
ADDX	GETFADM+6~, GETFADM+12*, GETFADM+17
>> ADT	TSOUT+2*, TSOUT+4
DA	GETFADM+1~, GETFADM+4, GETFADM+5, GETFADM+11, GETFADM+12, GETFADM+13, GETFADM+15, GETFADM+16
>> DDT	TSOUT+1*, TSOUT+4
>> DFN	GETFADM+2, GETFADM+5
DIC	GETFADM+1~, GETFADM+4*
DIQ	GETFADM+1~, GETFADM+6~, GETFADM+7*
DIQ(0	GETFADM+7*
DIWF	TSOUT+5*, TSOUT+7!
DIWL	TSOUT+5*, TSOUT+7!
DIWR	TSOUT+5*, TSOUT+7!
DR	GETFADM+1~, GETFADM+4*
DT	GETFADM+11
>> FLAG	FADM+8, FADM+10*
>> GMC	FADM+5*
GMDT	FADM+1~, FADM+6, FADM+7, FADM+11
GMFADM	GETFADM+6~
GMFADM(	GETFADM+11, GETFADM+12, GETFADM+13, GETFADM+15, GETFADM+16
>> GMJ	TSOUT+5, TSOUT+6
>> GMJ1	TSOUT+6*
>> GMTSNPG	FADM+8
>> GMTSQIT	TSOUT+4, TSOUT+6, FADM+8, FADM+9, FADM+13, FADM+15
>> GMZ	TSOUT+6*
LOC	GETFADM+6~, GETFADM+15*, GETFADM+17
LOS	GETFADM+6~, GETFADM+16*, GETFADM+17
NODE	FADM+1~, FADM+11*, FADM+12, FADM+13, FADM+14, FADM+16, FADM+17
PROV	GETFADM+6~, GETFADM+13*, GETFADM+17
RESDT	GETFADM+6~, GETFADM+12*, GETFADM+17
>> SPEC	TSOUT+3*, TSOUT+4
SUR	GETFADM+6~, GETFADM+13*, GETFADM+17
>> TS	TSOUT+3*
U	TSOUT+3, TSOUT+4, FADM+12, FADM+13, FADM+14, FADM+16, FADM+17, GETFADM+17
>> VAIP(13	TSOUT+1
>> VAIP(7	TSOUT+4
>> VAIP(8	TSOUT+3
X	TSOUT+1, TSOUT+2, TSOUT+5, FADM+1~, FADM+12, FADM+13

Information