Routine: GMTSADH

Package	Total	Call Graph
Health Summary	6	(END,SELPT)^GMTS GETLIM^GMTSADH1 MAIN^GMTSADHC (HSOUT,RESUB)^GMTSDVR $$TYPE^GMTSULT HELP2^GMTSUP1
Kernel	3	$$VERSION^XPDUTL EN^XQORM DISP^XQORM1
Order Entry Results Reporting	1	PATIENT^ORU1
VA FileMan	1	^DIR

Package	Total	Caller Graph
Health Summary	3	GMTS HS ADHOC GMTSADH1 GMTSUP

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; Ad Hoc Health Summary Driver
BUILD	; Conducts Dialogue to build Ad Hoc Summary
LOAD	; Load enabled components
LOAD1	; Load array GMTSEG and GMTSEGI
LOADSEL	; Loads GMTSEG(J,FN,IFN) (Selection Items)
HELP	; Display Help Text
REDISP	; Ask Whether or not to redisplay menu
HTX1	;; Help Text for "?" and "??"
HTX2	;; Help Text for ??

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MAIN+10
Function Call: WRITE	Prompt: @IOF Line Location: BUILD+1
Function Call: WRITE	Prompt: ! Line Location: HELP+1
Function Call: WRITE	Prompt: !,$P(GMTSTXT,";",3,99) Line Location: HELP+1
Function Call: WRITE	Prompt: !! Line Location: HELP+2
Function Call: WRITE	Prompt: @IOF Line Location: REDISP+2
Function Call: WRITE	Prompt: ! Line Location: REDISP+2
Routine Call	DIR Line Location: REDISP+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	MAIN+8
^GMT(142 - [#142]	LOAD+1, LOADSEL+2

Name	Field # of Occurrence
^(	LOADSEL+3

Name	Field # of Occurrence
%	MAIN+1~
C	MAIN+1~
DFN	MAIN+1~, MAIN+5~, MAIN+7!, MAIN+8
DIC	MAIN+1~, MAIN+3*!
DIC(0	MAIN+3*
DIPGM	MAIN+1~
DIR	REDISP+1~
DIR("A"	REDISP+1*
DIR("B"	REDISP+1*
DIR(0	REDISP+1*
DIROUT	MAIN+1~, MAIN+4, MAIN+5, MAIN+6, MAIN+7, MAIN+9, BUILD+1, BUILD+3*
DTOUT	MAIN+1~, MAIN+4, MAIN+5, MAIN+6, MAIN+9
DUOUT	MAIN+1~, MAIN+4, MAIN+5, MAIN+6, MAIN+9, MAIN+10~
FROM	MAIN+1~
GMI	MAIN+1~, BUILD+1~, BUILD+4*, LOAD+1
GMJ	BUILD+1~, BUILD+4, LOAD1+1, LOADSEL+1, LOADSEL+5, HELP+1~*
GMNAME	MAIN+8~*
GMPAT	MAIN+5~, MAIN+7!, MAIN+9, MAIN+10
GMPAT(	MAIN+8*
GMTSEG	MAIN+1~, MAIN+4!
GMTSEG(	LOAD1+1, LOADSEL+5
GMTSEGC	MAIN+1~, MAIN+4!, BUILD+4*
GMTSEGI	MAIN+1~, MAIN+4!
GMTSEGI(	LOAD1+1*
GMTSMULT	MAIN+5~, MAIN+7!
GMTSQIT	MAIN+1~, BUILD+1
GMTSTITL	MAIN+1~, MAIN+3*
GMTSTXT	HELP+1~*
GMTSTYP	MAIN+1~, MAIN+3*, BUILD+3, LOAD+1, LOADSEL+2
GMW	MAIN+1~, BUILD+1~
HLP	HELP+1~*
I	MAIN+1~, REDISP+1~
I1	MAIN+1~
IOF	BUILD+1, REDISP+2
ISVALID	MAIN+1~
LRDFN	MAIN+1~
POP	MAIN+1~
PTR	MAIN+1~
S2	LOADSEL+1~, LOADSEL+2, LOADSEL+3, LOADSEL+5
SEL	LOADSEL+1~, LOADSEL+3*, LOADSEL+5
SEX	MAIN+1~
SF	LOADSEL+1~, LOADSEL+4*, LOADSEL+5
SJ	LOADSEL+1~*
SR	LOADSEL+1~, LOADSEL+3*, LOADSEL+4, LOADSEL+5
SREC	LOAD+1~*, LOAD1+1
STRN	LOAD+1~*, LOADSEL+2
TO	MAIN+1~
U	MAIN+8, LOAD1+1, LOADSEL+3, LOADSEL+4
VAOA	MAIN+1~
VASD	MAIN+1~
VASV	MAIN+1~
X	MAIN+1~, MAIN+3, BUILD+1~, BUILD+4, HELP+1, HELP+2, REDISP+1~
XQORM	BUILD+1~, BUILD+3*
XQORM("??"	BUILD+3*
XQORM("A"	BUILD+3*
XQORM("M"	BUILD+2*
XQORM("S"	BUILD+2*
XQORM(0	BUILD+3*
Y	MAIN+1~, MAIN+3*, BUILD+1~, BUILD+3, BUILD+4, REDISP+1~
Y(	BUILD+4, LOAD+1
ZTRTN	MAIN+1~, MAIN+10*

Name	Field # of Occurrence
$T(@HLP+GMJ	HELP+1
$T(PATIENT^ORU1	MAIN+2