Routine: GMTSADOR

Information

GMTSADOR ;SLC/KER - Ad Hoc Summary Driver ; 09/21/2001

Source file <GMTSADOR.m>

Package	Total	Call Graph
Health Summary	4	(END,HSOUT,SELPT)^GMTS GETLIM^GMTSADH1 $$TYPE^GMTSULT HELP2^GMTSUP1
Kernel	2	EN^XQORM DISP^XQORM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORCXPNDR

Name	Comments	DBIA/ICR reference
LOAD	; Load enabled components
HTX1	; Help Text for "?"
HTX2	; Help Text for ??
LOADSEL	; Loads GMTSEG(J,FN,IFN) (Selection Items)
END	; Cleans up any residual locals
HELP	; Display Help Text
REDISP	; Ask Whether or not to redisplay menu
BUILD	; Conducts Dialogue to build Ad Hoc Summary	ICR #3965 Status: Active Usage: Private
LOAD1	; Load array GMTSEG
MAIN	; External call to allow user to define components and ; defaults through the AD Hoc menu interface and print ; health summaries for a programmer-specified patient ; and device. Called with: ; ; DFN = Patient internal file record number (optional) ; For OE/RR interface sets DFN to Patient DFN in ; the ORVP variable. If not defined a patient ; will be prompted for. ;	ICR #2750 Status: Active Usage: Private

Name	Line Occurrences
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+1
Function Call: WRITE	Prompt: ! Line Location: REDISP+2
Routine Call	DIR Line Location: REDISP+1

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