Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMTSPP

Package: Health Summary

Routine: GMTSPP


Information

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

Source Information

Source file <GMTSPP.m>

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

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
WRITE ; Writes Health Summary Type with parameters
GETDATA ; Selects Location/Health Summary Type and Edits parameters
MAIN1 ; Controls Branching
ALERT ; Warns user that summaries have not been queued
QUEOK ; Informs user of print time if queued to print
NEW ; Sets parameters for new Health Summary Type
MAIN ; Print by Location
DISPLAY ; Displays Health Summary Types associated with Location
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
  • DIE
  • Line Location:
    • GETDATA+23
    • NEW+6
Routine Call
  • DIC
  • Line Location:
    • SDT+2
Routine Call
  • DIC
  • Line Location:
    • GETDATA+1
    • WRITE+3
Routine Call
  • DIR
  • Line Location:
    • GETDATA+16

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All