Routine: GMTSADOR

Information

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

Name	Comments	DBIA/ICR reference
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
BUILD	; Conducts Dialogue to build Ad Hoc Summary	ICR #3965 Status: Active Usage: Private
LOAD	; Load enabled components
LOAD1	; Load array GMTSEG
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
HTX1	; Help Text for "?"
HTX2	; Help Text for ??

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