Routine: GMTSPP

Information

GMTSPP ;SLC/KER - Define HS Print-by-Location Parameters ; 09/21/2001

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	5	DD^%DT (,FIND)^DIC ^DIE $$GET1^DIQ ^DIR
Health Summary	2	LIST^GMTSRM $$TYPE^GMTSULT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Health Summary	1	GMTS HS BY LOC PARAMETERS

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; Print by Location
MAIN1	; Controls Branching
QUEOK	; Informs user of print time if queued to print
ALERT	; Warns user that summaries have not been queued
GETDATA	; Selects Location/Health Summary Type and Edits parameters
DISPLAY	; Displays Health Summary Types associated with Location
WRITE	; Writes Health Summary Type with parameters
NEW	; Sets parameters for new Health Summary Type
SDT(X)	; Get the last schedule date/time

External References

Name	Field # of Occurrence
DD^%DT	QUEOK+1
^DIC	GETDATA+1, WRITE+3
FIND^DIC	SDT+2
^DIE	GETDATA+23, NEW+6
$$GET1^DIQ	SDT+5
^DIR	GETDATA+16
LIST^GMTSRM	GETDATA+11
$$TYPE^GMTSULT	GETDATA+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"For your information:",! Line Location: QUEOK+2
Function Call: WRITE	Prompt: "Health Summary Batches are queued to print nightly at ",QTIM,! Line Location: QUEOK+3
Function Call: WRITE	Prompt: "and should be available for distribution by early morning.",! Line Location: QUEOK+4
Function Call: WRITE	Prompt: !!," *Alert*",!! Line Location: ALERT+1
Function Call: WRITE	Prompt: "Health Summary batches have not been queued to print or date is not current.",! Line Location: ALERT+2
Function Call: WRITE	Prompt: "Please ask your IRM SERVICE to queue option GMTS TASK STARTUP",! Line Location: ALERT+3
Function Call: WRITE	Prompt: "to run nightly. Parameters may be set now but will not produce",! Line Location: ALERT+4
Function Call: WRITE	Prompt: "Health Summaries until option is queued." Line Location: ALERT+5
Function Call: WRITE	Prompt: ! Line Location: GETDATA+1
Function Call: WRITE	Prompt: ! Line Location: GETDATA+16
Function Call: WRITE	Prompt: ! Line Location: GETDATA+22
Function Call: WRITE	Prompt: !!,"Print for Health Summary Type deleted" Line Location: GETDATA+24
Function Call: WRITE	Prompt: !!,"At present the following Health Summary Types are printed for ",GMTSLNM,":" Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !?70,"Action",!?2,"Type",?32,"Device" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ?54,"Days Ahead" Condition for execution: CLINIC Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ?70,"Profile",! Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !!,"*This Type will not print since Device is invalid or has not been entered" Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !!,"You may edit a Health Summary Type from the list or enter a new Type",! Line Location: DISPLAY+6
Function Call: WRITE	Prompt: ! Line Location: NEW+6
Routine Call	DIC Line Location: GETDATA+1 WRITE+3
Routine Call	DIC Line Location: SDT+2
Routine Call	DIE Line Location: GETDATA+23 NEW+6
Routine Call	DIR Line Location: GETDATA+16

FileNo	Call Tags
^DIC(19.2 - [#19.2]	FIND^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	GETDATA+4, GETDATA+10, GETDATA+19, DISPLAY+4, WRITE+1, WRITE+2, NEW+1, NEW+2

Label References

Name	Line Occurrences
$$SDT	MAIN+2
ALERT	MAIN+3, MAIN+5
DISPLAY	GETDATA+4
GETDATA	MAIN1+1
MAIN1	MAIN+3, MAIN+4
NEW	GETDATA+14
QUEOK	MAIN+4
WRITE	DISPLAY+4

Naked Globals

Name	Field # of Occurrence
^(0	NEW+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	MAIN1+2!
C	MAIN1+2!
CLINIC	MAIN1+2!, GETDATA+3*, GETDATA+22, DISPLAY+2, NEW+4
D0	MAIN1+2!
DA	GETDATA+19, GETDATA+25!, NEW+3, NEW+6!
DA(1	GETDATA+18, NEW+3
DATA	WRITE+2*, WRITE+6, WRITE+7!
DAYS	WRITE+7!
DEL	GETDATA+19, GETDATA+20, GETDATA+24, GETDATA+25!
DEV	WRITE+2*, WRITE+3, WRITE+5, WRITE+7!
DEVFLG	DISPLAY+3, DISPLAY+5, DISPLAY+7!, WRITE+4
DEVNM	WRITE+5*, WRITE+6, WRITE+7!
DI	MAIN1+2!
DIC	MAIN+1!, MAIN+2, GETDATA+1!, GETDATA+6!, WRITE+3, WRITE+6!
DIC("A"	GETDATA+1, GETDATA+6
DIC("S"	GETDATA+1*
DIC(0	MAIN+2, GETDATA+1, GETDATA+6, WRITE+3
DIE	MAIN+1!, GETDATA+18, GETDATA+25!, NEW+3, NEW+6!
DIE("NO^"	GETDATA+18, NEW+3
DIJ	MAIN1+2!
DIR	MAIN+1!, GETDATA+16!
DIR("A"	GETDATA+15*
DIR("B"	GETDATA+15*
DIR(0	GETDATA+15*
DIROUT	MAIN1+2!
DIRUT	MAIN1+2!, GETDATA+13, GETDATA+17
DISYS	MAIN1+2!
DP	MAIN1+2!
DQ	MAIN1+2!
DR	GETDATA+20, GETDATA+22, GETDATA+25!, NEW+4, NEW+5, NEW+6!
DT	MAIN+4
DTOUT	MAIN1+1, MAIN1+2!
DUOUT	MAIN1+2!, GETDATA+13, GETDATA+17
EXISTS	GETDATA+11*, GETDATA+12!
GMTSDA	SDT+1~
GMTSDA("DILIST"	SDT+3, SDT+4
GMTSE	SDT+1~, SDT+4*, SDT+5
GMTSI	SDT+1~, SDT+3, SDT+4
GMTSIFN	MAIN1+2!, GETDATA+9*, GETDATA+10, GETDATA+18, GETDATA+19, NEW+1, NEW+2, NEW+3
GMTSLNM	GETDATA+3*, GETDATA+5!, DISPLAY+1
GMTSLOC	MAIN1+2!, GETDATA+3*, GETDATA+4, GETDATA+10, GETDATA+19, DISPLAY+4, WRITE+1, NEW+4, NEW+5
GMTSM	SDT+1~, SDT+6, SDT+7
GMTSNEW	GETDATA+11*, GETDATA+12!
GMTSQIT	GETDATA+11*, GETDATA+12!
GMTSR	SDT+1~, SDT+5*, SDT+6
GMTSUM	GETDATA+11*, GETDATA+12!
J1	MAIN1+2!, DISPLAY+4*
J2	MAIN1+2!
J3	NEW+6!
LI	NEW+1*, NEW+3, NEW+6!
LOCIFN	WRITE+1*, WRITE+2, WRITE+7!
NEWTYP	MAIN1+2!, GETDATA+9, GETDATA+10, GETDATA+14
NI	NEW+1*, NEW+6!
P	MAIN1+2!
PPQIT	MAIN1+1, MAIN1+2!, GETDATA+2, GETDATA+8, GETDATA+13, GETDATA+17
QTIM	QUEOK+1*, QUEOK+3, QUEOK+5!
TYP	DISPLAY+4*, DISPLAY+7!, WRITE+1, WRITE+2
TYP1	GETDATA+9, GETDATA+10, GETDATA+12!
TYPNM	WRITE+1*, WRITE+6, WRITE+7!
U	GETDATA+3, GETDATA+11, WRITE+1, WRITE+2, WRITE+5, WRITE+6
X	MAIN+2, MAIN+3!, MAIN1+2!, GETDATA+2!, GETDATA+3!, GETDATA+7!, GETDATA+8!, GETDATA+11!, GETDATA+21!, GETDATA+25! , WRITE+3, WRITE+6!, NEW+6!, SDT~, SDT+2, SDT+7*
Y	MAIN+2, MAIN+3!, MAIN+4!, QUEOK+1!, GETDATA+2!, GETDATA+3!, GETDATA+6, GETDATA+7!, GETDATA+8!, GETDATA+9 , GETDATA+11!, GETDATA+20, GETDATA+21!, GETDATA+25!, WRITE+4, WRITE+5, WRITE+6!, NEW+6!
Y(0	GETDATA+3

Customize PDF page

Package: Health Summary